GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-21 17:12:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

Quant with variable number

Browse Source
This commit is contained in:
aarne
2006-02-02 15:23:43 +00:00
parent 478d1f4435
commit f5f3ba0e42
19 changed files with 142 additions and 114 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
lib/resource-1.0/german/CatGer.gf
View File

@@ -50,6 +50,7 @@ concrete CatGer of Cat = TenseX ** open ResGer, Prelude in {
Pron = {s : NPForm => Str ; a : Agr} ;
Det = {s : Gender => Case => Str ; n : Number ; a : Adjf} ;
QuantSg, QuantPl = {s : Gender => Case => Str ; a : Adjf} ;
Quant = {s : Number => Gender => Case => Str ; a : Adjf} ;
Predet = {s : Number => Gender => Case => Str} ;
Num = {s : Str} ;
Ord = {s : AForm => Str} ;

42
lib/resource-1.0/german/NounGer.gf
View File

@@ -42,16 +42,18 @@ concrete NounGer of Noun = CatGer ** open ResGer, Prelude in {
a = a
} ;
PossSg p = {
s = \\g,c => p.s ! NPPoss (gennum g Sg) c ;
n = Sg ;
a = Strong
SgQuant q = {
s = q.s ! Sg ;
a = q.a
} ;
PlQuant q = {
s = q.s ! Pl ;
a = q.a
} ;
PossPl p = {
s = \\g,c => p.s ! NPPoss (gennum g Pl) c ;
n = Pl ;
a = Weak
PossPron p = {
s = \\n,g,c => p.s ! NPPoss (gennum g n) c ;
a = Strong --- need separately weak for Pl ?
} ;
NoNum = {s = []} ;
@@ -67,25 +69,16 @@ concrete NounGer of Noun = CatGer ** open ResGer, Prelude in {
OrdSuperl a = {s = a.s ! Superl} ;
DefSg = {
s = \\g,c => artDef ! GSg g ! c ;
n = Sg ;
a = Weak
} ;
DefPl = {
s = \\_,c => artDef ! GPl ! c ;
n = Pl ;
DefArt = {
s = \\n,g,c => artDef ! gennum g n ! c ;
a = Weak
} ;
IndefSg = {
s = \\g,c => "ein" + pronEnding ! GSg g ! c ;
n = Sg ;
a = Strong
} ;
IndefPl = {
s = \\_,_ => [] ;
n = Pl ;
IndefArt = {
s = table {
Sg => \\g,c => "ein" + pronEnding ! GSg g ! c ;
Pl => \\_,_ => []
} ;
a = Strong
} ;
@@ -95,7 +88,6 @@ concrete NounGer of Noun = CatGer ** open ResGer, Prelude in {
a = Strong
} ;
UseN, UseN2, UseN3 = \n -> {
s = \\_ => n.s ;
g = n.g

6
lib/resource-1.0/german/StructuralGer.gf
View File

@@ -82,19 +82,17 @@ concrete StructuralGer of Structural = CatGer **
} ;
something_NP = nameNounPhrase {s = \\_ => "etwas"} ;
somewhere_Adv = ss "irgendwo" ;
that_Quant = detLikeAdj Sg "jen" ;
that_Quant = {s = \\n => (detLikeAdj n "jen").s ; a = Weak} ;
that_NP = nameNounPhrase {s = caselist "das" "das" "denem" "dessen"} ; ----
there_Adv = ss "da" ;
there7to_Adv = ss "dahin" ;
there7from_Adv = ss ["daher"] ;
therefore_PConj = ss "deshalb" ;
these_NP = {s = caselist "diese" "diese" "diesen" "dieser" ; a = agrP3 Pl} ;
these_Quant = detLikeAdj Pl "dies" ;
they_Pron = mkPronPers "sie" "sie" "ihnen" "ihrer" "ihr" Pl P3 ;
this_Quant = detLikeAdj Sg "dies" ;
this_Quant = {s = \\n => (detLikeAdj n "dies").s ; a = Weak} ;
this_NP = nameNounPhrase {s = caselist "dies" "dies" "diesem" "dieses"} ; ----
those_NP = {s = caselist "jene" "jene" "jenen" "jener" ; a = agrP3 Pl} ;
those_Quant = detLikeAdj Pl "jen" ;
through_Prep = mkPrep "durch" Acc ;
too_AdA = ss "zu" ;
to_Prep = mkPrep "nach" Dat ;