Changeset 18010

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:

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

AUTHORS

@@ -168 +168 @@
 Randal L. Schwartz               (MERLYN)
 Richard "crysflame" Soderberg    (RSOD)
+Rob Hoelz
 Rob "dragonchild" Kinyon         (RKINYON)
 Rob Zinkov

docs/SEEALSO

@@ -2 +2 @@
 
 ./README                 Installation, platforms, mailinglists and websites.
-
-./lib/Pugs/Doc/Run.pod   pugs::run - How to run Pugs
-./lib/Pugs/Doc/Hack.pod  pugs::hack - How to hack on Pugs
 
 ./READTHEM               Haskell resources. Assorted recommended reading.

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"