English and Swedish resource functions for Query

This commit is contained in:
aarne
2010-10-20 16:19:33 +00:00
parent 43cbc6693d
commit 8a29598f3c
16 changed files with 103 additions and 59 deletions

View File

@@ -21,6 +21,12 @@ incomplete concrete ConjunctionScand of Conjunction =
c = ss.c
} ;
ConjIAdv = conjunctDistrSS ;
ConjCN co ns = conjunctDistrTable3 Number DetSpecies Case co ns **
{g = utrum ; isMod = True} ; ----
-- These fun's are generated from the list cat's.
BaseS = twoTable Order ;
@@ -33,12 +39,18 @@ incomplete concrete ConjunctionScand of Conjunction =
ConsAP xs x = consrTable AFormPos comma xs x ** {isPre = andB xs.isPre x.isPre} ;
BaseRS x y = twoTable Agr x y ** {c = y.c} ;
ConsRS xs x = consrTable Agr comma xs x ** {c = xs.c} ;
BaseIAdv = twoSS ;
ConsIAdv = consrSS comma ;
BaseCN = twoTable3 Number DetSpecies Case ;
ConsCN = consrTable3 Number DetSpecies Case comma ;
lincat
[S] = {s1,s2 : Order => Str} ;
[Adv] = {s1,s2 : Str} ;
[IAdv] = {s1,s2 : Str} ;
[NP] = {s1,s2 : NPForm => Str ; a : Agr} ;
[AP] = {s1,s2 : AFormPos => Str ; isPre : Bool} ;
[RS] = {s1,s2 : Agr => Str ; c : NPForm} ;
[CN] = {s1,s2 : Number => DetSpecies => Case => Str} ; --- g : NGender ; isMod : Bool} ;
}