GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

Added CompCN to ParseEng. Perhaps this should move to NounEng.

Browse Source
This commit is contained in:
bjorn
2008-11-21 12:33:56 +00:00
parent 289618b81f
commit b047a99a84
2 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
next-lib/src/parse/ParseEng.gf
View File

@@ -30,7 +30,7 @@ concrete ParseEng of ParseEngAbs =
VA, become_VA], VA, become_VA],
BigLexEng BigLexEng
** open ParadigmsEng, ResEng, MorphoEng, ParamX, Prelude in { ** open ParadigmsEng, ResEng, MorphoEng, NounEng, ParamX, Prelude in {
flags startcat = Phr ; unlexer = text ; lexer = text ; flags startcat = Phr ; unlexer = text ; lexer = text ;
@@ -125,6 +125,9 @@ lin
a = agrP3 Sg a = agrP3 Sg
} ; } ;
CompCN cn = { s = \\a => let n = (fromAgr a).n
in IndefArt.s ! False ! n ++ cn.s ! n ! Acc} ;
-- Lexical additions -- Lexical additions
lin lin

2
next-lib/src/parse/ParseEngAbs.gf
View File

@@ -26,6 +26,8 @@ fun NumOfNP : Num -> NP -> NP ; -- ten of the dogs
fun CAdvNP : CAdv -> CN -> NP -> NP ; -- more wine than the professor fun CAdvNP : CAdv -> CN -> NP -> NP ; -- more wine than the professor
fun CAdvSSlash : CAdv -> CN -> SSlash -> NP ; -- more wine than the professor drank fun CAdvSSlash : CAdv -> CN -> SSlash -> NP ; -- more wine than the professor drank
fun CompCN : CN -> Comp ; -- "(every man is) a dog", "(all men are) dogs"
-- Lexical additions -- Lexical additions
fun a8few_Det : Det ; fun a8few_Det : Det ;