WIP NAT runCommand and defcommand

This commit is contained in:
2021-06-26 11:09:52 -06:00
parent 0335ac0305
commit c2eb26d426
3 changed files with 46 additions and 38 deletions

View File

@@ -4,8 +4,7 @@
(new ArchiveController
(new Archive archiveDir)
(new CLI))]
(controller.collectAndValidateArg (object name "numerical" type (Number -5 5 1)) ->:Void val ~val)
(controller.collectAndValidateArg (object name "string" type (Text 5 null)) ->:Void val ~val)))
(controller.runCommand (object args [(object name "str" type (Text 3 55)) (object name "int" type (Number 0 5 1))] handler (lambda [fuck shit] ~"string $fuck number $shit")))))
(defnew [])