Close to finishing new verisons of Finnish and GErman.

This commit is contained in:
aarne
2004-01-05 15:42:38 +00:00
parent 122d2592b2
commit 4ee91af554
15 changed files with 2544 additions and 97 deletions

View File

@@ -30,7 +30,8 @@ lincat
CN = CommNounPhrase ;
NP = {s : NPForm => Str ; n : Number ; p : NPPerson} ;
PN = {s : Case => Str} ;
Det = {s : Gender => Case => Str ; n : Number} ;
Det = {s : Gender => Case => Str ; n : Number ; isNum : Bool} ;
Num = {s : NPForm => Str ; isNum : Bool} ;
Fun = Function ;
-- = CommNounPhrase ** {c : NPForm} ;
Fun2 = Function ** {c2 : NPForm} ;
@@ -38,18 +39,22 @@ lincat
Adj1 = Adjective ;
-- = CommonNoun
Adj2 = Adjective ** {c : NPForm} ;
AdjDeg = {s : Degree => NForm => Str} ;
AP = {s : AdjPos => Number => Case => Str} ;
AdjDeg = {s : Degree => AForm => Str} ;
AP = {s : AdjPos => AForm => Str} ;
V = Verb ;
-- = {s : VForm => Str}
VP = Verb ** {s2 : VForm => Str ; c : ComplCase} ;
VG = {s,s2 : Bool => VForm => Str ; c : ComplCase} ;
TV = TransVerb ;
-- = Verb ** {s3, s4 : Str ; c : ComplCase} ;
V3 = TransVerb ** {s5, s6 : Str ; c2 : ComplCase} ;
VS = Verb ;
VV = Verb ** {c : ComplCase} ;
AdV = {s : Str} ;
Prep = {s : Str ; c : Case ; isPrep : Bool} ;
S = Sentence ;
-- = {s : Str} ;
@@ -67,7 +72,7 @@ lincat
ConjD = {s1 : Str ; s2 : Str ; n : Number} ;
ListS = {s1 : Str ; s2 : Str} ;
ListAP = {s1,s2 : AdjPos => Number => Case => Str} ;
ListAP = {s1,s2 : AdjPos => AForm => Str} ;
ListNP = {s1,s2 : NPForm => Str ; n : Number ; p : NPPerson} ;
--.
@@ -76,7 +81,7 @@ lin
UseN = noun2CommNounPhrase ;
ModAdj = modCommNounPhrase ;
ModGenOne = npGenDet singular ;
ModGenMany = npGenDet plural ;
ModGenMany = npGenDetNum ;
UsePN = nameNounPhrase ;
UseFun = funAsCommNounPhrase ;
AppFun = appFunComm ;
@@ -89,9 +94,12 @@ lin
DetNP = detNounPhrase ;
IndefOneNP = indefNounPhrase singular ;
IndefManyNP = indefNounPhrase plural ;
IndefManyNP = nounPhraseNum False ;
DefOneNP = defNounPhrase singular ;
DefManyNP = defNounPhrase plural ;
DefManyNP = nounPhraseNum True ;
MassNP = partNounPhrase singular ;
NoNum = noNum ;
UseInt i = {s = \\_ => i.s ; isNum = True} ; --- case endings sometimes needed
CNthatS = nounThatSentence ;
@@ -111,14 +119,16 @@ lin
PredVV = complVerbVerb ;
VTrans = transAsVerb ;
AdjAdv a = ss (a.s ! AAttr ! AAdv) ; --- also APred?
AdvVP = adVerbPhrase ;
LocNP = locativeNounPhrase ;
PrepNP = prepPhrase ;
AdvCN = advCommNounPhrase ;
AdvAP = advAdjPhrase ;
PosSlashTV = slashTransVerb True ;
NegSlashTV = slashTransVerb False ;
OneVP = passPredVerbPhrase ;
ThereNP = onNounPhrase ;
IdRP = identRelPron ;
FunRP = funRelPron ;
@@ -137,6 +147,7 @@ lin
QuestVP = questVerbPhrase ;
IntVP = intVerbPhrase ;
IsThereNP = onkoNounPhrase ;
IntSlash = intSlash ;
QuestAdv = questAdverbial ;