Changeset 5644 for src/Pugs/CodeGen

Timestamp:

07/17/05 19:41:27 (3 years ago)

Author:

iblech

svk:copy_cache_prev:

7648

Message:

PIL -> JavaScript? compiler.
* Pugs.Compile: Modified the declaration of PApp to accept an invocant.
* Pugs.CodeGen?.PIR: Minor changes because of change #1, pugs -BPIR still passes

the sanity tests.

* New directory perl5/PIL2JS, containing various modules, a README, and

pil2js.pl:
$ pugs -CPIL -Ilib6 -MPrelude::JS -we 'say 2 + 3' | \

./pil2js.pl -html > /tmp/t.html

* t/01-sanity mostly pass! (see

http://m19s28.vlinux.de/iblech/stuff/not_perm/pil2js-demo/)

* t/01-sanity/03-equal.t doesn't pass because of a bug in Pugs.Compile

("3 4" is compiled to "&infix:<>(3, 4)" instead of "&infix:<>(3, {4})"
or something similar.

* See perl5/PIL2JS/README for a list of things which already work.

Files:

• src/Pugs/CodeGen/PIR.hs (modified) (1 diff)

src/Pugs/CodeGen/PIR.hs

@@ -108 +108 @@
         tell [thisC]
         trans rest
-    trans (PApp _ exp@(PCode _ _ _) []) = do
+    trans (PApp _ exp@(PCode _ _ _) Nothing []) = do
         blockC  <- trans exp
         tellIns $ [reg tempPMC] <-& blockC $ []
         return tempPMC
-    trans (PApp (TCxtLValue _) (PExp (PVar "&postcircumfix:[]")) [PExp lhs, rhs]) = do
+    trans (PApp (TCxtLValue _) (PExp (PVar "&postcircumfix:[]")) Nothing [PExp lhs, rhs]) = do
         lhsC    <- trans lhs
         rhsC    <- trans rhs
         return $ lhsC `KEYED` rhsC
-    trans (PApp _ fun args) = do
+    trans (PApp ctx fun (Just inv) args) =
+        trans (PApp ctx fun Nothing (inv:args))  -- XXX wrong
+    trans (PApp _ fun Nothing args) = do
         funC    <- trans fun {- case fun of
             PExp (PVar name) -> return $ lit name