Stuff

4 files changed, 32 insertions, 26 deletions

diff --git a/desmo-apply.scm b/desmo-apply.scm
index 48d646c..0eed930 100644
--- a/desmo-apply.scm
+++ b/desmo-apply.scm
@@ -1,4 +1,7 @@
 (module desmo-apply (run-apply)
-  (import scheme)
-  (define (run-apply opts) 'todo))
+  (import scheme
+          (chicken base))
+  (define (run-apply opts)
+    (print "TODO")
+    'todo))
 
diff --git a/desmo-logs.scm b/desmo-logs.scm
index e3aff7a..46a3133 100644
--- a/desmo-logs.scm
+++ b/desmo-logs.scm
@@ -1,4 +1,7 @@
 (module desmo-logs (run-logs)
-  (import scheme)
-  (define (run-logs opts) 'todo))
+  (import scheme
+          (chicken base))
+  (define (run-logs opts)
+    (print "TODO")
+    'todo))
 
diff --git a/desmo-status.scm b/desmo-status.scm
index b8ffd3d..47faa94 100644
--- a/desmo-status.scm
+++ b/desmo-status.scm
@@ -1,4 +1,7 @@
 (module desmo-status (run-status)
-  (import scheme)
-  (define (run-status opts) 'todo))
+  (import scheme
+          (chicken base))
+  (define (run-status opts)
+    (print "TODO")
+    'todo))
 
diff --git a/desmoctl.scm b/desmoctl.scm
index ca8fdb0..792ef69 100644
--- a/desmoctl.scm
+++ b/desmoctl.scm
@@ -5,6 +5,8 @@
         matchable
         test
         desmo-apply
+        desmo-status
+        desmo-logs
         )
 
 (define should-run-inline-tests?
@@ -71,15 +73,12 @@
   (match args
     [("apply")
      '(parse-ok cmd-apply ())]
-    [("status" . rest)
-     (print "TODO status subcommand")
-     (exit 0)]
-    [("logs" . rest)
-     (print "TODO logs subcommand")
-     (exit 0)]
-    [("help" . rest)
-     (print usage-string)
-     (exit 0)]
+    [("status")
+     '(parse-ok cmd-status ())]
+    [("logs")
+     '(parse-ok cmd-logs ())]
+    [("help")
+     '(parse-ok cmd-help ())]
     [_ `(parse-error ,usage-string)]))
 
 (inline-tests
@@ -98,8 +97,8 @@
 (define cli-opts (cadr top-level-flags-parse-result))
 (define cli-subcommand-args (caddr top-level-flags-parse-result))
 
-(print (format "debug: cli-opts: ~A" cli-opts))
-(print (format "debug: cli-subcommand-args: ~A" cli-subcommand-args))
+;; (print (format "debug: cli-opts: ~A" cli-opts))
+;; (print (format "debug: cli-subcommand-args: ~A" cli-subcommand-args))
 
 (define subcommand-parse-result (parse-subcommand cli-subcommand-args))
 
@@ -111,20 +110,18 @@
 (define cli-subcommand (cadr subcommand-parse-result))
 (define cli-opts (append (caddr subcommand-parse-result) cli-opts))
 
-(print (format "debug: cli-subcommand: ~A" cli-subcommand))
-(print (format "debug: cli-opts: ~A" cli-opts))
+;; (print (format "debug: cli-subcommand: ~A" cli-subcommand))
+;; (print (format "debug: cli-opts: ~A" cli-opts))
 
 ; evaluate parsed command
 
-(define (eval-apply opts)
-  'done)
-
 (define (eval-subcommand subcmd opts)
   (match subcmd
-    ['cmd-apply (eval-apply opts)]
+    ['cmd-apply (run-apply opts)]
+    ['cmd-status (run-status opts)]
+    ['cmd-logs (run-logs opts)]
+    ['cmd-help (print usage-string) 'done]
     [other (print `(eval-error ,(format "invalid subcommand: ~A" other)))]))
 
-(display (format "debug: eval-cmd: ~A ~%" (eval-subcommand cli-subcommand cli-opts)))
-
-(print (run-apply 'benis))
+(eval-subcommand cli-subcommand cli-opts)