(Ger) Some lincats changed to remove number in plural; DetQuant and DetQuantOrd reimplemented

This commit is contained in:
Hans Leiss
2023-12-22 22:44:28 +01:00
parent c365d802fe
commit 21db782ef5
17 changed files with 224 additions and 181 deletions
+4 -4
View File
@@ -1,4 +1,4 @@
--# -path=.:../common:../../prelude
--# -path=.:../common:../prelude:
--
----1 A Simple German Resource Morphology
----
@@ -18,7 +18,7 @@ oper
-- For $StructuralGer$.
mkPrep : Str -> Case -> Preposition = \s,c ->
{s = \\_ => s ; s2 = [] ; c = c ; isPrep = isPrep} ;
{s = \\_ => s ; s2 = [] ; c = c ; t = isPrep} ;
nameNounPhrase : Gender -> {s : Case => Str} -> {s : Bool => Case => Str ;
a : Agr ;
@@ -83,7 +83,7 @@ oper
cardOrd : Str -> Str -> CardOrd => Str = \drei,dritte ->
table {
NCard _ _ => drei ;
NCard _ => drei ;
NOrd a => (regA (init dritte)).s ! Posit ! a
} ;
@@ -102,7 +102,7 @@ oper
regDigit : Str -> LinDigit = \vier ->
mkDigit vier (vier + "zehn") (vier + "zig") (vier + "te") ;
invNum : CardOrd = NCard Masc Nom ;
invNum : CardOrd = NCard (AMod (GSg Masc) Nom) ;
} ;