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

BronzeageDan

Browse Source
This commit is contained in:
aarne
2006-05-30 14:36:40 +00:00
parent 516abb5d58
commit 6f57b5b530
5 changed files with 13 additions and 6 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 {
flags
startcat = Phr ; optimize = all_subs ;
startcat = Phr ; optimize = share_subs ;
unlexer = text ; lexer = text ;
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) ;

1
lib/resource-1.0/common/CommonX.gf
View File

@@ -9,7 +9,6 @@ concrete CommonX of Common = open (R = ParamX) in {
Adv = {s : Str} ; --lock_Adv : {}} ;
AdV = {s : Str} ; --lock_AdV : {}} ;
AdA = {s : Str} ; --lock_AdA : {}} ;
AdS = {s : Str} ; --lock_AdS : {}} ;
AdN = {s : Str} ; --lock_AdN : {}} ;
IAdv = {s : Str} ; --lock_IAdv : {}} ;
CAdv = {s : Str} ; --lock_CAdv : {}} ;

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
mo4 <-
---- case snd mo1b of
---- ModMod n | isModCnc n ->
putpp " optimizing " $ ioeErr $ optimizeModule opts mos mo3r
---- _ -> return [mo3r]
---- if oElem "check_only" opts
putpp " optimizing " $ ioeErr $ optimizeModule opts mos mo3r
return (k',mo4)
where
---- prDebug mo = ioeIO $ putStrLn $ prGrammar $ MGrammar [mo] ---- debug