GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-29 12:48:54 -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 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 { 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) ;

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 : {}} ;
AdV = {s : Str} ; --lock_AdV : {}} ; AdV = {s : Str} ; --lock_AdV : {}} ;
AdA = {s : Str} ; --lock_AdA : {}} ; AdA = {s : Str} ; --lock_AdA : {}} ;
AdS = {s : Str} ; --lock_AdS : {}} ;
AdN = {s : Str} ; --lock_AdN : {}} ; AdN = {s : Str} ; --lock_AdN : {}} ;
IAdv = {s : Str} ; --lock_IAdv : {}} ; IAdv = {s : Str} ; --lock_IAdv : {}} ;
CAdv = {s : Str} ; --lock_CAdv : {}} ; 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 (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