nounverbadjmorphoandsuffixmodule

This commit is contained in:
e1560697
2010-02-15 17:22:10 +00:00
parent aa64592e37
commit 699e84d26e
7 changed files with 1009 additions and 240 deletions

View File

@@ -20,7 +20,11 @@ concrete NounTur of Noun = CatTur ** open ResTur, Prelude in {
NumCard n = n ** {n = Sg} ;
NumNumeral numeral = {s = numeral.s} ;
NumNumeral numeral = {s = numeral.s ! NCard} ;
OrdDigits dig = {s = dig.s ! NOrd} ;
OrdNumeral num = {s = num.s ! NOrd} ;
OrdSuperl a = {s = "daha" ++ a.s ! Sg ! Nom} ;
DefArt = {
s = []
@@ -30,4 +34,4 @@ concrete NounTur of Noun = CatTur ** open ResTur, Prelude in {
} ;
UseN n = n ;
}
}