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

API documentation and slight change in Det syntax

Browse Source
This commit is contained in:
aarne
2006-01-10 15:39:20 +00:00
parent d2dc0e82e8
commit da26bfb246
38 changed files with 4254 additions and 130 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -15,9 +15,19 @@ concrete NounGer of Noun = CatGer ** open ResGer, Prelude in {
a = pron.a
} ;
MkDet pred quant num ord =
DetSg pred quant ord =
let
n = quant.n ;
n = Sg ;
a = quant.a
in {
s = \\g,c => pred.s ! n ! g ! c ++ quant.s ! g ! c ++
ord.s ! agrAdj g (adjfCase a c) n c ;
n = n ;
a = a
} ;
DetPl pred quant num ord =
let
n = Pl ;
a = quant.a
in {
s = \\g,c => pred.s ! n ! g ! c ++ quant.s ! g ! c ++
@@ -26,13 +36,13 @@ concrete NounGer of Noun = CatGer ** open ResGer, Prelude in {
a = a
} ;
PossPronSg p = {
PossSg p = {
s = \\g,c => p.s ! NPPoss (gennum g Sg) c ;
n = Sg ;
a = Strong
} ;
PossPronPl p = {
PossPl p = {
s = \\g,c => p.s ! NPPoss (gennum g Pl) c ;
n = Pl ;
a = Weak
@@ -73,6 +83,18 @@ concrete NounGer of Noun = CatGer ** open ResGer, Prelude in {
a = Strong
} ;
MassDet = {
s = \\g,c => [] ;
n = Sg ;
a = Strong
} ;
UseN, UseN2, UseN3 = \n -> {
s = \\_ => n.s ;
g = n.g
} ;
ComplN2 f x = {
s = \\_,n,c => f.s ! n ! c ++ appPrep f.c2 x.s ;
g = f.g
@@ -108,9 +130,5 @@ concrete NounGer of Noun = CatGer ** open ResGer, Prelude in {
g = cn.g
} ;
UseN n = {
s = \\_ => n.s ;
g = n.g
} ;
}