mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-23 03:32:51 -06:00
NumeralsEng.n9, SymbolFin.CNIntNP
This commit is contained in:
@@ -21,7 +21,7 @@ lin n5 = mkNum "five" "fifteen" "fifty" "fifth" ;
|
|||||||
lin n6 = regNum "six" ;
|
lin n6 = regNum "six" ;
|
||||||
lin n7 = regNum "seven" ;
|
lin n7 = regNum "seven" ;
|
||||||
lin n8 = mkNum "eight" "eighteen" "eighty" "eighth" ;
|
lin n8 = mkNum "eight" "eighteen" "eighty" "eighth" ;
|
||||||
lin n9 = regNum "nine" ;
|
lin n9 = mkNum "nine" "nineteen" "ninety" "ninth" ;
|
||||||
|
|
||||||
lin pot01 = mkNum "one" "eleven" "ten" "first" ** {n = Sg} ;
|
lin pot01 = mkNum "one" "eleven" "ten" "first" ** {n = Sg} ;
|
||||||
lin pot0 d = d ** {n = Pl} ;
|
lin pot0 d = d ** {n = Pl} ;
|
||||||
|
|||||||
@@ -6,7 +6,7 @@ lin
|
|||||||
FloatPN i = {s = \\c => i.s} ; --- c
|
FloatPN i = {s = \\c => i.s} ; --- c
|
||||||
|
|
||||||
CNIntNP cn i = {
|
CNIntNP cn i = {
|
||||||
s = \\c => cn.s ! NCase Sg (npform2case c) ++ i.s ;
|
s = \\c => cn.s ! NCase Sg (npform2case Sg c) ++ i.s ;
|
||||||
a = agrP3 Sg ;
|
a = agrP3 Sg ;
|
||||||
isPron = False
|
isPron = False
|
||||||
} ;
|
} ;
|
||||||
|
|||||||
Reference in New Issue
Block a user