diff --git a/Readme.md b/Readme.md index 291abaa..c0ee885 100644 --- a/Readme.md +++ b/Readme.md @@ -18,21 +18,20 @@ - add url of source/inspiration to clib/*.cpp - add instrumentation (time, nr of evals, num of atoms, debug info, debug environment etc) #### Language -- support for (), nil, t, in lsp code replace 0 by nil in logicals +- support for "t" symbol as a true - file functions - open file - read line - write line - close file - 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 - regexp functions - date support - decode-universal-time - env functions - 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) - syntax highlighting do VS Code - add hash datatype diff --git a/debug.lsp b/debug.lsp index 48ca4e5..309735a 100644 --- a/debug.lsp +++ b/debug.lsp @@ -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 ;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 second_tid (thread-create (while 1 (do (thread-under-lock "ilock" (print 2)) (thread-sleep 75))))) - ;; (print "first thread id:" first_tid) ;; (print "second thread id:" second_tid) - - ;; (threads-join) ;; (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))) -;; ))