GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-28 20:36:29 -06:00
Code Issues Packages Projects Releases Wiki Activity

harmonized the lincats of Numeral and Det

Browse Source
This commit is contained in:
Aarne Ranta
2020-04-04 09:18:57 +02:00
parent 870f181efb
commit f0685a3233
4 changed files with 90 additions and 73 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/czech/NumeralCze.gf
+32 -31
View File
@@ -11,8 +11,8 @@ concrete NumeralCze of Numeral =
-- AR 2020-03-20
oper LinNumeral = {s : NumeralForms ; size : NumSize} ;
oper LinDigit = {unit : NumeralForms ; teen, ten, hundred : Str ; size : NumSize} ;
oper LinNumeral = Determiner ; -- {s : NumeralForms ; size : NumSize} ;
oper LinDigit = {unit : Gender => Case => Str ; teen, ten, hundred : Str ; size : NumSize} ;
lincat Digit = LinDigit ;
lincat Sub10 = LinDigit ;
@@ -21,30 +21,30 @@ lincat Sub100 = LinNumeral ;
lincat Sub1000 = LinNumeral ;
lincat Sub1000000 = LinNumeral ;
oper mkNum : NumeralForms -> Str -> Str -> Str -> NumSize -> LinDigit =
\dva, dvanast, dvadsat, dveste, sz -> {
unit = dva ;
oper mkNum : Determiner -> Str -> Str -> Str -> LinDigit =
\dva, dvanast, dvadsat, dveste -> {
unit = dva.s ;
teen = dvanast + "náct" ;
ten = dvadsat ;
hundred = dveste ;
size = sz
size = dva.size ;
} ;
oper mk2Num : NumeralForms -> Str -> Str -> Str -> LinDigit =
oper mk2Num : Determiner -> Str -> Str -> Str -> LinDigit =
\unit, teenbase, tenbase, hundred ->
mkNum unit teenbase (tenbase + "cet") hundred Num2_4 ;
mkNum unit teenbase (tenbase + "cet") hundred ;
oper mk5Num : Str -> Str -> Str -> Str -> LinDigit =
\unit,uniti, teenbase, tenbase ->
mkNum (regNumeralForms unit uniti) teenbase (tenbase + "desát") (unit ++ "set") Num5 ;
mkNum (regNumeral unit uniti) teenbase (tenbase + "desát") (unit ++ "set") ;
oper bigNumeral : Str -> LinNumeral = \s -> {s = invarNumeralForms s ; size = Num5} ;
oper bigNumeral : Str -> LinNumeral = \s -> invarNumeral s ;
lin num x = x ;
lin n2 = mk2Num twoNumeralForms "dva" "dva" ("dvě" ++ "stě") ;
lin n3 = mk2Num threeNumeralForms "tři" "tři" ("tři" ++ "sta") ;
lin n4 = mk2Num fourNumeralForms "čtr" "čtyři" ("čtyři" ++ "sta") ;
lin n2 = mk2Num twoNumeral "dva" "dva" ("dvě" ++ "stě") ;
lin n3 = mk2Num threeNumeral "tři" "tři" ("tři" ++ "sta") ;
lin n4 = mk2Num fourNumeral "čtr" "čtyři" ("čtyři" ++ "sta") ;
lin n5 = mk5Num "pět" "pěti" "pat" "pa" ;
lin n6 = mk5Num "šest" "šesti" "šest" "še" ;
lin n7 = mk5Num "sedm" "sedmi" "sedm" "sedm";
@@ -52,7 +52,7 @@ lin n8 = mk5Num "osm" "osmi" "osm" "osm";
lin n9 = mk5Num "devět" "devíti" "devate" "deva" ;
lin pot01 = {
unit = oneNumeralForms ; hundred = "sto" ; ten = "deset" ; teen = "jedenáct" ;
unit = oneNumeral.s ; hundred = "sto" ; ten = "deset" ; teen = "jedenáct" ;
size = Num1
} ;
lin pot0 d = d ;
@@ -64,7 +64,7 @@ lin pot1to19 d = bigNumeral d.teen ;
lin pot0as1 n = {s = n.unit ; size = n.size} ;
lin pot1 d = bigNumeral d.ten ;
lin pot1plus d e = {
s = invarNumeralForms (d.ten ++ e.unit.msnom) ; ---- TODO inflection?
s = (invarNumeral (d.ten ++ determinerStr (e ** {s = e.unit}))).s ; ---- TODO inflection?
size = tfSize e.size
} ;
---- variants { d.s ! ten ++ e.s ! unit ; glue (glue (e.s ! unit) "a") (d.s ! ten)} ; size = tfSize e.size} ;
@@ -72,15 +72,15 @@ lin pot1plus d e = {
lin pot1as2 n = n ;
lin pot2 d = bigNumeral d.hundred ;
lin pot2plus d e = {
s = invarNumeralForms (d.hundred ++ e.s.msnom) ; ---- TODO inflection?
s = (invarNumeral (d.hundred ++ determinerStr e)).s ; ---- TODO inflection?
size = tfSize e.size
} ;
lin pot2as3 n = n ;
lin pot3 n = bigNumeral (mkTh n.s.msnom n.size) ;
lin pot3 n = bigNumeral (mkTh (determinerStr n) n.size) ;
lin pot3plus n m = {
s = invarNumeralForms (mkTh n.s.msnom n.size ++ m.s.msnom) ; ---- TODO inflection?
s = (invarNumeral (mkTh (determinerStr n) n.size ++ determinerStr m)).s ; ---- TODO inflection?
size = tfSize m.size
} ;
@@ -94,25 +94,26 @@ oper mkTh : Str -> NumSize -> Str = \attr,size ->
Num5 => attr ++ "tisíc"
} ;
oper determinerStr : Determiner -> Str = \d -> d.s ! Masc Anim ! Nom ;
-- -- Numerals as sequences of digits have a separate, simpler grammar
lincat Dig = {s:Str ; n : NumSize} ;
lincat Dig = {s:Str ; size : NumSize} ;
lin
IDig d = d;
IDig d = d ;
IIDig d dd = {s = d.s ++ Predef.BIND ++ dd.s ; n = Num5} ; ---- leading zeros ??
IIDig d dd = {s = d.s ++ Predef.BIND ++ dd.s ; size = Num5} ; ---- leading zeros ??
D_0 = { s = "0" ; n = Num1} ; ---- ??
D_1 = { s = "1" ; n = Num1} ;
D_2 = { s = "2" ; n = Num2_4} ;
D_3 = { s = "3" ; n = Num2_4} ;
D_4 = { s = "4" ; n = Num2_4} ;
D_5 = { s = "5" ; n = Num5} ;
D_6 = { s = "6" ; n = Num5} ;
D_7 = { s = "7" ; n = Num5} ;
D_8 = { s = "8" ; n = Num5} ;
D_9 = { s = "9" ; n = Num5} ;
D_0 = { s = "0" ; size = Num1} ; ---- ??
D_1 = { s = "1" ; size = Num1} ;
D_2 = { s = "2" ; size = Num2_4} ;
D_3 = { s = "3" ; size = Num2_4} ;
D_4 = { s = "4" ; size = Num2_4} ;
D_5 = { s = "5" ; size = Num5} ;
D_6 = { s = "6" ; size = Num5} ;
D_7 = { s = "7" ; size = Num5} ;
D_8 = { s = "8" ; size = Num5} ;
D_9 = { s = "9" ; size = Num5} ;
}