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

added option -h and -v

Browse Source
This commit is contained in:
VaclavT
2021-03-10 23:29:49 +01:00
parent 11ad7fc3bc
commit 55d39ef321
4 changed files with 39 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
debug.lsp
View File

@@ -16,11 +16,14 @@
(defun term-red (str) (sprintf (+ term-red-esc str term-rst-esc)))
(print (term-red "red") (sprintf "%.2f" (list 1.11)) "ss")
(print (+ (term-red (sprintf "%.2f" (list 1.11))) " "
(term-green (sprintf "%.2f" (list 1.11))) " "
(term-blue (sprintf "%.2f" (list 1.11))) " "
(term-yellow (sprintf "%.2f" (list 1.11))) " "
))
(define q_change_str (sprintf "%+.2f %%" (list q)))
;; (define q_change_str (sprintf "%+.2f %%" (list q)))
;; (if (>= q_change 0.0)
;; (define q_change_str (term-green q_change_str))
;; (define q_change_str (term-red q_change_str)))