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

#t and #f added to language, datetime fixes

Browse Source
This commit is contained in:
VaclavT
2021-10-12 13:26:38 +02:00
parent adca8a452b
commit 4359012190
13 changed files with 90 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
debug.lsp
View File

@@ -1,8 +1,7 @@
(print (str-to-date "2021-10-11 16:57:00" "%Y-%m-%d %H:%M:%S"))
(print (date-to-str 1633971420 "%Y-%m-%d %H:%M:%S"))
;; (include "/usr/local/var/mlisp/ut.lsp")
;; (ut::define-test "result of (get-localtime-offset)" '(ut::assert-equal 7200 (get-localtime-offset)))
;; (ut::run-tests)
;; (define time (get-universal-time))
;; (str-to-date (date-to-str time "%Y-%m-%d %H:%M:%S") "%Y-%m-%d %H:%M:%S")
;; (define create_tbl_sql "create table prices (datetime integer, symbol varchar(8), prev_close float, open float, price float, change float, change_prct varchar(16))")
@@ -16,11 +15,6 @@
;; (print (usql "select to_string(datetime, '%d.%m.%Y %H:%M:%S'), symbol, prev_close, open, price, change, change_prct from prices"))
;; (define var "promena var")
;; (define var2 "promena var2")
;; (print var)
;; (print var2)
;; (print (+ "select min(adjClose), max(adjClose) from history_prices where symbol = '" var "'"))
;; (print (usql "create table data (ticker varchar(8), price float null)"))