forked from GitHub/gf-rgl
Hans Leiss
1cf6496883
Agr = AgSgP1 | AgSgP2 | AgSgP3 Gender | AgSgP3Gen | AgPl Person | AgPlPol ;
with AgSgP3Gen resp. AgPlPol used for reflexive,possessive forms of "man", "Sie".
Compiles AllGer from src in 162sec with 15M VerbGer.gfo vs. 380sec with 17M VerbGer.gfo
50 lines
1.2 KiB
Plaintext
50 lines
1.2 KiB
Plaintext
--# -path=.:../abstract:../common:../prelude
|
|
|
|
concrete SymbolGer of Symbol = CatGer ** open Prelude, ResGer in {
|
|
|
|
lin
|
|
SymbPN i = {s = \\c => i.s ; g = Neutr ; n = Sg} ; --- c
|
|
IntPN i = {s = \\c => i.s ; g = Neutr ; n = Sg} ; --- c
|
|
FloatPN i = {s = \\c => i.s ; g = Neutr ; n = Sg} ; --- c
|
|
NumPN i = {s = i.s ! Neutr ; g = Neutr ; n = Sg} ; --- c
|
|
|
|
CNIntNP cn i = {
|
|
s = \\_,c => cn.s ! Weak ! Sg ! Nom ++ i.s ;
|
|
a = agrP3 Sg ;
|
|
w = WLight ;
|
|
ext,rc = [] -- added
|
|
} ;
|
|
CNSymbNP det cn xs = let g = cn.g in {
|
|
s = \\b,c => det.s ! b ! g ! c ++ cn.s ! adjfCase det.a c ! det.n ! c ++ xs.s ;
|
|
a = agrP3 det.n ;
|
|
w = WLight ;
|
|
ext,rc = [] -- added
|
|
} ;
|
|
CNNumNP cn i = {
|
|
s = \\b,c => case b of {True => [] ; False => artDef ! (GSg cn.g) ! c}
|
|
++ cn.s ! Weak ! Sg ! Nom ++ i.s ! Neutr ! c ;
|
|
a = agrgP3 cn.g Sg ; -- HL 27.9.2023
|
|
w = WDefArt ; -- im Haus 14
|
|
ext,rc = [] -- added
|
|
} ;
|
|
|
|
SymbS sy = {s = \\_ => sy.s} ;
|
|
|
|
SymbNum n = {s = \\_,_ => n.s ; n = Pl ; isNum = True} ;
|
|
SymbOrd n = {s = \\_ => glue n.s "."} ;
|
|
|
|
|
|
lincat
|
|
|
|
Symb, [Symb] = SS ;
|
|
|
|
lin
|
|
|
|
MkSymb s = s ;
|
|
|
|
BaseSymb = infixSS "und" ;
|
|
ConsSymb = infixSS "," ;
|
|
|
|
}
|
|
|