vaclavt
/
mlisp
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

todo update

This commit is contained in:
VaclavT 2021-05-10 19:25:23 +02:00
parent b287608554
commit cdfcc753e4
2 changed files with 2 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Readme.md
View File

@ -18,21 +18,20 @@
- add url of source/inspiration to clib/*.cpp - add url of source/inspiration to clib/*.cpp
- 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)
#### Language #### Language
- support for (), nil, t, in lsp code replace 0 by nil in logicals - support for "t" symbol as a true
- file functions - file functions
- open file - open file
- read line - read line
- write line - write line
- close file - close file
- string functions - string functions
- itok - integer to char, chartoint (better names) - mini printf can be useed for it (%d) - char to int - ktoi (better names) - maybe mini printf can be useed for it (%d (one_char_string))
- compare - needed for sorting, cmp ignore case - compare - needed for sorting, cmp ignore case
- regexp functions - regexp functions
- date support - date support
- decode-universal-time - decode-universal-time
- env functions - env functions
- get-env, set-env; set-env cannot be implemented in stdlib.lsp, because popen is in fact subshell - get-env, set-env; set-env cannot be implemented in stdlib.lsp, because popen is in fact subshell
- format (sprintf)
- add include-stdlib function for other libs in stdlib dir (during startup stdlib.lsp is loaded only) - add include-stdlib function for other libs in stdlib dir (during startup stdlib.lsp is loaded only)
- syntax highlighting do VS Code - syntax highlighting do VS Code
- add hash datatype - add hash datatype

13
debug.lsp
View File

@ -1,8 +1,4 @@
;; (benchmark "benchmark makelist 1000 : " (make-list 1000))
;; (benchmark "benchmark range 1000 : " (range 1 1000))
;https://github.com/anthay/Lisp90/blob/master/lisp90.cpp ;https://github.com/anthay/Lisp90/blob/master/lisp90.cpp
;http://howtowriteaprogram.blogspot.com/2010/11/lisp-interpreter-in-90-lines-of-c.html ;http://howtowriteaprogram.blogspot.com/2010/11/lisp-interpreter-in-90-lines-of-c.html
@ -27,17 +23,8 @@
;; (define first_tid (thread-create (while 1 (do (thread-under-lock "ilock" (print 1)) (thread-sleep 50))))) ;; (define first_tid (thread-create (while 1 (do (thread-under-lock "ilock" (print 1)) (thread-sleep 50)))))
;; (define second_tid (thread-create (while 1 (do (thread-under-lock "ilock" (print 2)) (thread-sleep 75))))) ;; (define second_tid (thread-create (while 1 (do (thread-under-lock "ilock" (print 2)) (thread-sleep 75)))))
;; (print "first thread id:" first_tid) ;; (print "first thread id:" first_tid)
;; (print "second thread id:" second_tid) ;; (print "second thread id:" second_tid)
;; (threads-join) ;; (threads-join)
;; (print "ok") ;; (print "ok")
;; (define av (read-url "https://www.alphavantage.co/query?function=EARNINGS&symbol=WFC&apikey=LJ4XGQ7BQIL925RF"))
;; (if (= (first av) 200)
;; (do
;; (define json (parse-json (second av)))
;; ))