msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

gfcc files now start with (grammar absname cncname1 ... cncnameN).

Browse Source
This commit is contained in:
bringert
2007-12-21 17:18:36 +00:00
parent ebac1125e1
commit b10fab6bfb
1 changed files with 2 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/GF/GFCC/Raw/ConvertGFCC.hs
View File

@@ -9,8 +9,7 @@ import Data.Map
toGFCC :: Grammar -> GFCC toGFCC :: Grammar -> GFCC
toGFCC (Grm [ toGFCC (Grm [
AId a, App (CId "grammar") (AId a:cs),
App (CId "concrete") cs,
App (CId "flags") gfs, App (CId "flags") gfs,
ab@( ab@(
App (CId "abstract") [ App (CId "abstract") [
@@ -102,8 +101,7 @@ toTerm e = case e of
fromGFCC :: GFCC -> Grammar fromGFCC :: GFCC -> Grammar
fromGFCC gfcc0 = Grm [ fromGFCC gfcc0 = Grm [
AId (absname gfcc), app "grammar" (AId (absname gfcc) : lmap AId (cncnames gfcc)),
app "concrete" (lmap AId (cncnames gfcc)),
app "flags" [App f [AStr v] | (f,v) <- toList (gflags gfcc)], app "flags" [App f [AStr v] | (f,v) <- toList (gflags gfcc)],
app "abstract" [ app "abstract" [
app "flags" [App f [AStr v] | (f,v) <- toList (aflags agfcc)], app "flags" [App f [AStr v] | (f,v) <- toList (aflags agfcc)],