Changeset 5853 for src/Pugs/Compile.hs

Timestamp:

07/27/05 21:49:57 (3 years ago)

Author:

iblech

svk:copy_cache_prev:

7758

Message:

* t/subroutines/subroutine.t -- unEVAL.
* Pugs.Compile -- Emit &circumfix:<${ }> for Syn "${}" (and similar for

@{}, etc.) so I can implement the dereferencers in PIL2JS.

* PIL2JS: Prelude::JS::Ref -- Implemented ${}, @{}, etc.

Files:

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

src/Pugs/Compile.hs

@@ -357 +357 @@
     compile (Syn "\\[]" exps) = do
         compile (App (Var "&circumfix:[]") Nothing exps)
+    compile (Syn name@(sigil:"{}") exps) | (sigil ==) `any` "$@%&" = do
+        compile (App (Var $ "&circumfix:" ++ name) Nothing exps)
     compile (Syn "\\{}" exps) = do
         compile (App (Var "&circumfix:{}") Nothing exps)