This commit is contained in:
aarne
2005-09-15 15:22:00 +00:00
parent efaafffb77
commit 7df1ff9409
30 changed files with 412 additions and 55 deletions

View File

@@ -24,14 +24,6 @@ lin
UseN = noun2CommNounPhrase ;
UsePN = nameNounPhrase ;
SymbPN i = {s = \\_ => i.s} ; --- case endings often needed
SymbCN cn s =
{s = \\f,n,c => cn.s ! f ! n ! c ++ s.s ;
g = cn.g} ;
IntCN cn s =
{s = \\f,n,c => cn.s ! f ! n ! c ++ s.s ;
g = cn.g} ;
IndefOneNP = indefNounPhrase singular ;
IndefNumNP = nounPhraseNum False ;
DefOneNP = defNounPhrase singular ;
@@ -206,6 +198,8 @@ lin
---- OneNP = nameNounPhrase (nameReg "one" human) ;
--- should be partitive in negative forms: "ei ole olemassa puista autoa"
ExistCN cn =
sats2clause (
mkSatsCopula impersNounPhrase ("olemassa" ++ (singularNounPhrase cn).s ! NPCase Nom)