Inflect German Numeral pot01 ("ein") in gender and case. Needed to get phrases such as "eine grosse Pizza" correct when "eine" is a Numeral rather than indef art.

This commit is contained in:
bjorn
2008-06-25 17:30:50 +00:00
parent edda3db1b5
commit 475e1ea4d9
6 changed files with 18 additions and 18 deletions

View File

@@ -71,7 +71,7 @@ oper
cardOrd : Str -> Str -> CardOrd => Str = \drei,dritte ->
table {
NCard => drei ;
NCard _ _ => drei ;
NOrd a => (regA (init dritte)).s ! Posit ! a
} ;
@@ -90,7 +90,7 @@ oper
regDigit : Str -> LinDigit = \vier ->
mkDigit vier (vier + "zehn") (vier + "zig") (vier + "te") ;
invNum : CardOrd = NCard ;
invNum : CardOrd = NCard Masc Nom ;
} ;