From ca9541c0c10d4e6aa94055ecfb47301ed7292828 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 8 May 2018 21:08:43 -0400
Subject: - Improved the way "lux program" is analysed and compiled. - Improved
 the syntax for "program:" arguments.

---
 stdlib/source/lux/cli.lux | 73 ++++++++++++++++++++++++-----------------------
 1 file changed, 38 insertions(+), 35 deletions(-)

(limited to 'stdlib')

diff --git a/stdlib/source/lux/cli.lux b/stdlib/source/lux/cli.lux
index 466895876..72a22a267 100644
--- a/stdlib/source/lux/cli.lux
+++ b/stdlib/source/lux/cli.lux
@@ -97,10 +97,10 @@
 (def: program-args^
   (Syntax Program-Args)
   (p.alt s.local-symbol
-         (s.form (p.some (p.either (do p.Monad<Parser>
-                                     [name s.local-symbol]
-                                     (wrap [(code.symbol ["" name]) (` any)]))
-                                   (s.tuple (p.seq s.any s.any)))))))
+         (s.tuple (p.some (p.either (do p.Monad<Parser>
+                                      [name s.local-symbol]
+                                      (wrap [(code.symbol ["" name]) (` any)]))
+                                    (s.record (p.seq s.any s.any)))))))
 
 (syntax: #export (program:
                    {args program-args^}
@@ -113,39 +113,42 @@
                    bar (do-something all-args)]
                   (wrap [])))
 
-              (program: (name)
+              (program: [name]
                 (io (log! (text/compose "Hello, " name))))
 
-              (program: ([config config^])
+              (program: [{config config^}]
                 (do Monad<IO>
                   [data (init-program config)]
                   (do-something data))))}
-  (case args
-    (#Raw args)
-    (wrap (list (` ("lux program" (~ (code.symbol ["" args]))
-                    ((~! do) (~! io.Monad<IO>)
-                     []
-                     (~ body))))))
-    
-    (#Parsed args)
-    (with-gensyms [g!args g!_ g!output g!message]
-      (wrap (list (` ("lux program" (~ g!args)
-                      (case ((: (~! (..CLI (io.IO .Top)))
-                                ((~! do) (~! p.Monad<Parser>)
-                                 [(~+ (|> args
-                                          (list/map (function (_ [binding parser])
-                                                      (list binding parser)))
-                                          list/join))
-                                  (~ g!_) ..end]
-                                 ((~' wrap) ((~! do) (~! io.Monad<IO>)
-                                             []
-                                             (~ body)))))
-                             (~ g!args))
-                        (#E.Success [(~ g!_) (~ g!output)])
-                        (~ g!output)
-
-                        (#E.Error (~ g!message))
-                        (error! (~ g!message))
-                        )))
-                  )))
-    ))
+  (with-gensyms [g!program]
+    (case args
+      (#Raw args)
+      (wrap (list (` ("lux program"
+                      (.function ((~ g!program) (~ (code.symbol ["" args])))
+                        ((~! do) (~! io.Monad<IO>)
+                         []
+                         (~ body)))))))
+      
+      (#Parsed args)
+      (with-gensyms [g!args g!_ g!output g!message]
+        (wrap (list (` ("lux program"
+                        (.function ((~ g!program) (~ g!args))
+                          (case ((: (~! (..CLI (io.IO .Top)))
+                                    ((~! do) (~! p.Monad<Parser>)
+                                     [(~+ (|> args
+                                              (list/map (function (_ [binding parser])
+                                                          (list binding parser)))
+                                              list/join))
+                                      (~ g!_) ..end]
+                                     ((~' wrap) ((~! do) (~! io.Monad<IO>)
+                                                 []
+                                                 (~ body)))))
+                                 (~ g!args))
+                            (#E.Success [(~ g!_) (~ g!output)])
+                            (~ g!output)
+
+                            (#E.Error (~ g!message))
+                            (error! (~ g!message))
+                            ))))
+                    )))
+      )))
-- 
cgit v1.2.3