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

Added PGF version numbers to GFCC file.

Browse Source
This commit is contained in:
bjorn
2008-02-07 13:48:41 +00:00
parent 9f861ee537
commit 53106abf7e
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -11,12 +11,14 @@ import GF.Parsing.FCFG.PInfo (FCFPInfo(..), buildFCFPInfo)
import qualified Data.Array as Array import qualified Data.Array as Array
import Data.Map import Data.Map
pgfMajorVersion, pgfMinorVersion :: Integer
(pgfMajorVersion, pgfMinorVersion) = (1,0)
-- convert parsed grammar to internal GFCC -- convert parsed grammar to internal GFCC
toGFCC :: Grammar -> GFCC toGFCC :: Grammar -> GFCC
toGFCC (Grm [ toGFCC (Grm [
App (CId "grammar") (App a []:cs), App (CId "pgf") (AInt v1 : AInt v2 : App a []:cs),
App (CId "flags") gfs, App (CId "flags") gfs,
ab@( ab@(
App (CId "abstract") [ App (CId "abstract") [
@@ -147,7 +149,8 @@ toTerm e = case e of
fromGFCC :: GFCC -> Grammar fromGFCC :: GFCC -> Grammar
fromGFCC gfcc0 = Grm [ fromGFCC gfcc0 = Grm [
app "grammar" (App (absname gfcc) [] : lmap (flip App []) (cncnames gfcc)), app "pgf" (AInt pgfMajorVersion:AInt pgfMinorVersion
: App (absname gfcc) [] : lmap (flip App []) (cncnames gfcc)),
app "flags" [App f [AStr v] | (f,v) <- toList (gflags gfcc `union` aflags agfcc)], app "flags" [App f [AStr v] | (f,v) <- toList (gflags gfcc `union` aflags agfcc)],
app "abstract" [ app "abstract" [
app "fun" [App f [fromType t,fromExp d] | (f,(t,d)) <- toList (funs agfcc)], app "fun" [App f [fromType t,fromExp d] | (f,(t,d)) <- toList (funs agfcc)],