From 7127550a3a8bc07f34a9a7f9404b5eea6a3b11cd Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 17 Oct 2017 00:17:37 -0400
Subject: - Added custom "run" function for Syntax.

---
 stdlib/source/lux/meta/syntax.lux | 65 ++++++++++++++++++++-------------------
 1 file changed, 34 insertions(+), 31 deletions(-)

(limited to 'stdlib/source')

diff --git a/stdlib/source/lux/meta/syntax.lux b/stdlib/source/lux/meta/syntax.lux
index c92db5191..a4108941c 100644
--- a/stdlib/source/lux/meta/syntax.lux
+++ b/stdlib/source/lux/meta/syntax.lux
@@ -181,23 +181,29 @@
       (#E;Success [input value])
       )))
 
-(def: #export (local local-inputs syntax)
-  {#;doc "Run a syntax parser with the given list of inputs, instead of the real ones."}
-  (All [a] (-> (List Code) (Syntax a) (Syntax a)))
-  (function [real-inputs]
-    (case (syntax local-inputs)
-      (#E;Error error)
-      (#E;Error error)
+(def: #export (run inputs syntax)
+  (All [a] (-> (List Code) (Syntax a) (E;Error a)))
+  (case (syntax inputs)
+    (#E;Error error)
+    (#E;Error error)
+
+    (#E;Success [unconsumed value])
+    (case unconsumed
+      #;Nil
+      (#E;Success value)
 
-      (#E;Success [unconsumed-inputs value])
-      (case unconsumed-inputs
-        #;Nil
-        (#E;Success [real-inputs value])
+      _
+      (#E;Error (text/compose "Unconsumed inputs: "
+                              (|> (list/map code;to-text unconsumed)
+                                  (text;join-with ", ")))))))
 
-        _
-        (#E;Error (text/compose "Unconsumed inputs: "
-                                (|> (list/map code;to-text unconsumed-inputs)
-                                    (text;join-with ", "))))))))
+(def: #export (local inputs syntax)
+  {#;doc "Run a syntax parser with the given list of inputs, instead of the real ones."}
+  (All [a] (-> (List Code) (Syntax a) (Syntax a)))
+  (function [real]
+    (do E;Monad<Error>
+      [value (run inputs syntax)]
+      (wrap [real value]))))
 
 ## [Syntax]
 (def: #hidden text.join-with text;join-with)
@@ -262,7 +268,6 @@
                                           (meta;fail "Syntax pattern expects tuples or symbols."))))
                                    args)
            #let [g!state (code;symbol ["" "*compiler*"])
-                 g!end (code;symbol ["" ""])
                  error-msg (code;text (text/compose "Wrong syntax for " name))
                  export-ast (: (List Code) (case exported?
                                              (#;Some #E;Error)
@@ -273,22 +278,20 @@
 
                                              _
                                              (list)))]]
-          (wrap (list (` (macro: (~@ export-ast) ((~ (code;symbol ["" name])) (~ g!tokens))
+          (wrap (list (` (macro: (~@ export-ast) ((~ (code;symbol ["" name])) (~ g!tokens) (~ g!state))
                            (~ meta)
-                           (function [(~ g!state)]
-                             (;_lux_case (;;_run_ (~ g!tokens)
-                                                  (: (Syntax (Meta (List Code)))
-                                                     (do ;;_Monad<Parser>_
-                                                       [(~@ (join-pairs vars+parsers))
-                                                        (~ g!end) ;;end!]
-                                                       ((~' wrap) (do meta;Monad<Meta>
-                                                                    []
-                                                                    (~ body))))))
-                               (#E;Success [(~ g!tokens) (~ g!body)])
-                               ((~ g!body) (~ g!state))
-
-                               (#E;Error (~ g!msg))
-                               (#E;Error (text.join-with ": " (list (~ error-msg) (~ g!msg))))))))))))
+                           (;_lux_case (;;run (~ g!tokens)
+                                              (: (Syntax (Meta (List Code)))
+                                                 (do ;;_Monad<Parser>_
+                                                   [(~@ (join-pairs vars+parsers))]
+                                                   ((~' wrap) (do meta;Monad<Meta>
+                                                                []
+                                                                (~ body))))))
+                             (#E;Success (~ g!body))
+                             ((~ g!body) (~ g!state))
+
+                             (#E;Error (~ g!msg))
+                             (#E;Error (text.join-with ": " (list (~ error-msg) (~ g!msg)))))))))))
       
       _
       (meta;fail "Wrong syntax for syntax:"))))
-- 
cgit v1.2.3