GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-20 16:42:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

workaround for a compilation bug for param defs (to be fixed)

Browse Source
This commit is contained in:
aarne
2006-01-19 17:27:46 +00:00
parent 2b2f6e4925
commit c40ad4e79f
3 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/resource-1.0/romance/DiffRomance.gf
View File

@@ -10,7 +10,7 @@ param
Case = Nom | Acc | CPrep Prep ; Case = Nom | Acc | CPrep Prep ;
NPForm = Ton Case | Aton Case | Poss AAgr ; NPForm = Ton Case | Aton Case | Poss {g : Gender ; n : Number} ; --- AAgr
RelForm = RSimple Case | RComplex Gender Number Case ; RelForm = RSimple Case | RComplex Gender Number Case ;

4
lib/resource-1.0/romance/NounRomance.gf
View File

@@ -33,7 +33,7 @@ incomplete concrete NounRomance of Noun =
n = Sg n = Sg
} ; } ;
DetPl quant num ord = { DetPl quant num ord = {
s = \\g,c => quant.s ! g ! c ++ num.s ! g ++ ord.s ! aagr g Sg ; s = \\g,c => quant.s ! g ! c ++ num.s ! g ++ ord.s ! aagr g Pl ;
n = Pl n = Pl
} ; } ;
@@ -64,7 +64,7 @@ incomplete concrete NounRomance of Noun =
n = Sg n = Sg
} ; } ;
DefPl = { DefPl = {
s = \\g,c => artDef g Sg c ; s = \\g,c => artDef g Pl c ;
n = Pl n = Pl
} ; } ;

1
src/GF/Compile/CheckGrammar.hs
View File

@@ -185,6 +185,7 @@ checkResInfo gr (c,info) = do
return (c, ResOper pty' pde') return (c, ResOper pty' pde')
ResParam (Yes pcs) -> chIn "parameter type" $ do ResParam (Yes pcs) -> chIn "parameter type" $ do
---- mapM ((mapM (computeLType gr . snd)) . snd) pcs
mapM_ ((mapM_ (checkIfParType gr . snd)) . snd) pcs mapM_ ((mapM_ (checkIfParType gr . snd)) . snd) pcs
return (c,info) return (c,info)