interpreter with pipes

This commit is contained in:
aarne
2007-11-04 10:17:48 +00:00
parent 95abbbd8f4
commit 450044b81e
3 changed files with 89 additions and 21 deletions

View File

@@ -1,4 +1,4 @@
module GF.Command.PPrTree (pTree, prExp) where
module GF.Command.PPrTree (pTree, prExp, tree2exp) where
import GF.GFCC.AbsGFCC
import GF.GFCC.Macros
@@ -17,7 +17,7 @@ tree2exp t = case t of
TAbs xs t -> DTr (map i2i xs ++ ys) f ts where DTr ys f ts = tree2exp t
TId c -> tree (AC (i2i c)) []
TInt i -> tree (AI i) []
-- TStr s
TStr s -> tree (AS s) []
-- TFloat d ->
where
i2i (Ident s) = CId s