some comments and Readme changes

This commit is contained in:
VaclavT 2021-03-28 13:46:12 +02:00
parent 89dd5c6f07
commit c75a04a4f7
3 changed files with 6 additions and 18 deletions

View File

@ -4,28 +4,24 @@
- error: the expression `("/usr/local/var/mlisp")` with message "cannot cast" - should add to what is casting - error: the expression `("/usr/local/var/mlisp")` with message "cannot cast" - should add to what is casting
- better error reporting..for example ls_dir on non existing dir should prind `pwd` dir - better error reporting..for example ls_dir on non existing dir should prind `pwd` dir
### TODO ### TODO
- add total tuntime into -p
- add debug support, at least call stack - add debug support, at least call stack
- documentation - documentation
- add url of source/inspiration to clib/*.cpp - add url of source/inspiration to clib/*.cpp
- add stdtest - to test every functionality - add stdtest - to test every functionality
- add -l option (no linenoise)
- add -sb option to remove sheebang line
- add instrumentation (time, nr of evals, num of atoms, debug info, debug environment etc) - add instrumentation (time, nr of evals, num of atoms, debug info, debug environment etc)
- add -p (profile/performance option) - multiline editing (kilo editor)
- multiline editting (kilo editor)
- execute system command should capture stderr - execute system command should capture stderr
- add built in for and, or
- add some mem stats to benchmark - add some mem stats to benchmark
- support for (), nil, t, in lsp code replace 0 by nil in logicals - support for (), nil, t, in lsp code replace 0 by nil in logicals
- file functions - file functions
- name it here - name it here
- string functions - string functions
- compare - needed for sorting - compare - needed for sorting
- uppper/lower case - regexp functions
- trim
- replace
- regexp functions
- date support - date support
- decode-universal-time - decode-universal-time
- env functions - env functions

View File

@ -44,5 +44,6 @@
;; (define fdx_list (parse-csv (read-file "tests/csv_data.csv"))) ;; (define fdx_list (parse-csv (read-file "tests/csv_data.csv")))
;; (print fdx_list) ;; (print fdx_list)
(print (and (print "xx") (= 1 0) (print "yy")))
(sleep 1.5) (sleep 1.5)

View File

@ -42,19 +42,10 @@
(second (system-cmd (+ "echo ${" var "} | tr -d \"\n\"")))) (second (system-cmd (+ "echo ${" var "} | tr -d \"\n\""))))
; return second element of list
(defun second (l) (index l 1)) (defun second (l) (index l 1))
; return third element of list
(defun third (l) (index l 2)) (defun third (l) (index l 2))
; return fourth element of list
(defun fourth (l) (index l 3)) (defun fourth (l) (index l 3))
; return fifth element of list
(defun fifth (l) (index l 4)) (defun fifth (l) (index l 4))
; return nth element of list, indexing from 0
(defun nth (i l) (index l i)) (defun nth (i l) (index l i))
; return 1 when list contains item otherwise 0 ; return 1 when list contains item otherwise 0