New command-line syntax.

This commit is contained in:
Dominik Pantůček 2023-03-14 09:22:29 +01:00
parent 08d365ff6a
commit 70e5079239
3 changed files with 21 additions and 13 deletions

View file

@ -45,7 +45,8 @@
(newline)
(command-line
(-h "This help" () (print "help")))
(load-member-file "members/joe")
(newline)
print-help
(-h "This help" () (print "help") (print-help) (print "done") (exit 0))
(-a "One-argument" (x) (print "Argument x " x))
(-b "Two arguments" (x y) (print "Arguments " x y))
(-c "Argument lambda" (lambda (x) (print "Lambda x " x))))