Changeset 18010 for src/Pugs/Parser

Timestamp:

09/20/07 23:03:56 (14 months ago)

Author:

hoelzro

Message:

Added myself to the AUTHORS list, fixed a discrepancy in docs/SEEALSO, and
implemented the yada operators (..., !!!, ???). Tests are soon to follow...

Files:

• src/Pugs/Parser/Literal.hs (modified) (1 diff)

src/Pugs/Parser/Literal.hs

@@ -126 +126 @@
 yadaLiteral = expRule $ do
     sym  <- choice . map symbol $ words " ... ??? !!! "
-    return $ App (_Var $ doYada sym) Nothing [Val $ VStr (sym ++ " - not yet implemented")]
-    where
-    doYada "..." = "&fail_" -- XXX rename to fail() eventually
+    exp <- option emptyExp ruleExpression
+    return $ App (_Var $ doYada sym) Nothing $
+        if exp == emptyExp
+            then [(Val $ VStr "Unimplemented stub called")]
+            else [exp]
+    where
+    doYada "..." = "&fail"
     doYada "???" = "&warn"
     doYada "!!!" = "&die"