Changeset 14355 for src/Pugs/Compile.hs

Timestamp:

10/17/06 08:26:11 (2 years ago)

Author:

audreyt

svk:copy_cache_prev:

21206

Message:

* Pugs.Compile: Stub out the "subst" and "trans" nodes.

Files:

• src/Pugs/Compile.hs (modified) (1 diff)

src/Pugs/Compile.hs

@@ -404 +404 @@
     compile (Syn "match" exp) = compile $ Syn "rx" exp -- wrong
     compile (Syn "//" exp) = compile $ Syn "rx" exp
-    compile (Syn "rx" [exp, _]) = compile exp -- XXX WRONG - use PCRE
+    compile (Syn "rx" (exp:_)) = compile exp -- XXX WRONG - use PCRE
+    compile (Syn "subst" (exp:_)) = compile exp -- XXX WRONG - use PCRE
+    compile (Syn "trans" (exp:_)) = compile exp -- XXX WRONG
     compile (Syn "|" [exp]) = compile exp -- XXX WRONG
     compile (Syn "|<<" [exp]) = compile exp -- XXX WRONG