GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-27 11:48:55 -06:00
Code Issues Packages Projects Releases Wiki Activity

BronzeageDan

Browse Source
This commit is contained in:
aarne
2006-05-30 14:36:40 +00:00
parent 5dc1edf50f
commit 719e751051
4 changed files with 13 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
examples/bronzeage/BronzeageDan.gf Normal file
View File

@@ -0,0 +1,5 @@
--# -path=.:present:prelude
concrete BronzeageDan of Bronzeage = CatDan, SwadeshDan ** BronzeageI with
(Lang = LangDan) ;

2
examples/bronzeage/BronzeageI.gf
View File

@@ -1,7 +1,7 @@
incomplete concrete BronzeageI of Bronzeage = open Lang in { incomplete concrete BronzeageI of Bronzeage = open Lang in {
flags flags
startcat = Phr ; optimize = all_subs ; startcat = Phr ; optimize = share_subs ;
unlexer = text ; lexer = text ; unlexer = text ; lexer = text ;
lincat lincat

5
examples/bronzeage/SwadeshDan.gf Normal file
View File

@@ -0,0 +1,5 @@
--# -path=.:present:prelude
concrete SwadeshDan of Swadesh = CatDan ** SwadeshI with
(Lang = LangDan) ;

6
src/GF/Compile/Compile.hs
View File

@@ -272,10 +272,8 @@ compileSourceModule opts env@(k,gr,can) mo@(i,mi) = do
(k',mo3r:_) <- ioeErr $ refreshModule (k,mos) mo3 (k',mo3r:_) <- ioeErr $ refreshModule (k,mos) mo3
mo4 <- mo4 <-
---- case snd mo1b of ---- if oElem "check_only" opts
---- ModMod n | isModCnc n -> putpp " optimizing " $ ioeErr $ optimizeModule opts mos mo3r
putpp " optimizing " $ ioeErr $ optimizeModule opts mos mo3r
---- _ -> return [mo3r]
return (k',mo4) return (k',mo4)
where where
---- prDebug mo = ioeIO $ putStrLn $ prGrammar $ MGrammar [mo] ---- debug ---- prDebug mo = ioeIO $ putStrLn $ prGrammar $ MGrammar [mo] ---- debug