Changeset 5853

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:

• perl5/PIL2JS/lib6/Prelude/JS/Ref.pm (modified) (1 diff)
• src/Pugs/Compile.hs (modified) (1 diff)
• t/subroutines/subroutine.t (modified) (1 diff)

perl5/PIL2JS/lib6/Prelude/JS/Ref.pm

@@ -25 +25 @@
   })')($thing);
 }
+
+sub circumfix:<${}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
+sub circumfix:<@{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
+sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
+sub circumfix:<&{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }

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)

t/subroutines/subroutine.t

@@ -31 +31 @@
 ok(twice(5) == 10);
 #if (&twice(5 - 3) == 4) { say "ok 4" } else { say "not ok 4" }
-ok(eval 'twice(5 - 3) == 4');
+ok(twice(5 - 3) == 4);
 
 my $_;