wip

bf6/hbs23

@@ -1,17 +1,17 @@
 #! /usr/bin/env -S hbs2-cli file
 
-println *args
+; # println *args
 
 ; # (println (grep (sym "-g") *args))
 
 (match *args
-  ( (list? _ ...)
+  ( (list? [sym? store] ...)
     (begin
       (println "FUCKING STORE" space ...))
 
   )
 
-  ( _ nil)
+  ( _  (println "FUCK") )
 )
 
 

hbs2-cli/app/Main.hs

@@ -105,8 +105,19 @@ main = do
 
   runHBS2Cli do
 
+    -- error (show $ pretty cli)
+
     case cli of
 
+      ( cmd@(ListVal [StringLike "file", StringLike fn]) : _ ) -> do
+        void $ run dict [cmd]
+
+      ( cmd@(ListVal [StringLike "stdin"]) : _ ) -> do
+        void $ run dict [cmd]
+
+      ( cmd@(ListVal [StringLike "--help"]) : _ ) -> do
+        void $ run dict [cmd]
+
       [] -> do
         eof <- liftIO IO.isEOF
         if eof then