diff options
Diffstat (limited to 'next-lib/src/parse')
| -rw-r--r-- | next-lib/src/parse/ParseEng.gf | 5 | ||||
| -rw-r--r-- | next-lib/src/parse/ParseEngAbs.gf | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/next-lib/src/parse/ParseEng.gf b/next-lib/src/parse/ParseEng.gf index 88b3ec9a1..80fd6da0f 100644 --- a/next-lib/src/parse/ParseEng.gf +++ b/next-lib/src/parse/ParseEng.gf @@ -30,7 +30,7 @@ concrete ParseEng of ParseEngAbs = VA, become_VA], BigLexEng - ** open ParadigmsEng, ResEng, MorphoEng, ParamX, Prelude in { + ** open ParadigmsEng, ResEng, MorphoEng, NounEng, ParamX, Prelude in { flags startcat = Phr ; unlexer = text ; lexer = text ; @@ -125,6 +125,9 @@ lin a = agrP3 Sg } ; + CompCN cn = { s = \\a => let n = (fromAgr a).n + in IndefArt.s ! False ! n ++ cn.s ! n ! Acc} ; + -- Lexical additions lin diff --git a/next-lib/src/parse/ParseEngAbs.gf b/next-lib/src/parse/ParseEngAbs.gf index 103263524..1e04348b2 100644 --- a/next-lib/src/parse/ParseEngAbs.gf +++ b/next-lib/src/parse/ParseEngAbs.gf @@ -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 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 fun a8few_Det : Det ; |