diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-09-20 13:26:59 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-09-20 13:26:59 +0000 |
| commit | 74ad9aa2fd7a9cbd4fb011cd445cd1e47a03e8ef (patch) | |
| tree | e162194d717ff5126b8653e7422d6cda7dce061b /src/GF/Canon/GFCC/FCFGParsing.hs | |
| parent | 8bf5ff0a9423be908502a0ad4c5f91ff00f342e4 (diff) | |
printing GSyntax with GFCC trees
Diffstat (limited to 'src/GF/Canon/GFCC/FCFGParsing.hs')
| -rw-r--r-- | src/GF/Canon/GFCC/FCFGParsing.hs | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/src/GF/Canon/GFCC/FCFGParsing.hs b/src/GF/Canon/GFCC/FCFGParsing.hs index dfedc6622..eeea653d2 100644 --- a/src/GF/Canon/GFCC/FCFGParsing.hs +++ b/src/GF/Canon/GFCC/FCFGParsing.hs @@ -118,13 +118,11 @@ cnv_forests2 (FFloat x) = FFloat x tree2term :: SyntaxTree Fun -> Exp tree2term (TNode f ts) = Tr (AC f) (map tree2term ts) -{- ---- -tree2term (TString s) = Macros.string2term s -tree2term (TInt n) = Macros.int2term n -tree2term (TFloat f) = Macros.float2term f -tree2term (TMeta) = Macros.mkMeta 0 --} +tree2term (TString s) = Tr (AS s) [] +tree2term (TInt n) = Tr (AI n) [] +tree2term (TFloat f) = Tr (AF f) [] +tree2term (TMeta) = Tr AM [] ---------------------------------------------------------------------- -- conversion and unification of forests |