GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

Added all missing lincats in numerals grammars.

Browse Source
This commit is contained in:
bringert
2005-05-11 08:10:23 +00:00
parent c8de5fc0da
commit 9699fe1651
38 changed files with 88 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
examples/numerals/albanian.gf
View File

@@ -7,10 +7,12 @@ param DForm = unit | teen | ten ;
oper LinDigit = {s : DForm => Str };
oper LinSub100 = {s : Str } ;
lincat Numeral = { s : Str } ;
lincat Digit = LinDigit ;
lincat Sub10 = LinDigit ;
lincat Sub100 = LinSub100 ;
lincat Sub1000 = LinSub100 ;
lincat Sub1000000 = { s : Str } ;
oper mkNum : Str -> LinDigit = \tri ->
{ s = table {unit => tri ; teen => tri + "mbë" + "dhjetë" ; ten => tri + "dhjetë" }};

2
examples/numerals/bearlake_slave.gf
View File

@@ -4,10 +4,12 @@ param DForm = unit | hundred ;
oper LinDigit = {s : Str } ;
lincat Numeral = { s : Str } ;
lincat Digit = LinDigit ;
lincat Sub10 = LinDigit ;
lincat Sub100 = {s : Str } ;
lincat Sub1000 = {s : Str } ;
lincat Sub1000000 = { s : Str } ;
oper mkNum : Str -> LinDigit = \two ->
{s = two } ;

6
examples/numerals/bulgarian.gf
View File

@@ -11,10 +11,12 @@ param DForm = unit | teen | ten | hundred ;
oper LinDigit = {s : DForm => Str ; size : Size } ;
lincat Digit = LinDigit ;
lincat Sub10 = LinDigit ;
lincat Numeral = { s : Str } ;
lincat Digit = LinDigit ;
lincat Sub10 = LinDigit ;
lincat Sub100 = {s : Str ; size : Size } ;
lincat Sub1000 = {s : Str ; size : Size } ;
lincat Sub1000000 = { s : Str } ;
oper mkNum : Str -> Str -> Str -> LinDigit = \tri -> \trijset -> \trista ->
{ s = table {unit => tri ; teen => variants {tri + "nadeset" ; tri + "najset" }; ten => trijset ; hund => trista} ; size = below10};

3
examples/numerals/croatian.gf
View File

@@ -9,10 +9,13 @@ param DForm = unit | teen | ten | hund ;
param ThForm = onlyone | lastone | twoorthreeorfour | fiveup ;
oper LinDigit = {s : DForm => Str; o : ThForm ; t : ThForm } ;
lincat Numeral = { s : Str } ;
lincat Digit = LinDigit ;
lincat Sub10 = {s : DForm => Str; o : ThForm ; t : ThForm } ;
lincat Sub100 = {s : Str; t : ThForm } ;
lincat Sub1000 = {s : Str; t : ThForm } ;
lincat Sub1000000 = { s : Str } ;
oper mkNum : Str -> Str -> Str -> Str -> ThForm -> LinDigit =
\dwa -> \dwanascie -> \dwadziescia -> \dwiescie -> \thform ->

2
examples/numerals/czech.gf
View File

@@ -8,10 +8,12 @@ oper bind : Str -> Str -> Str = \s1 -> \s2 -> s1 ++ s2 ;
param Size = sg | twothreefour | fiveup ;
param DForm = unit | teen | ten | hundred ;
lincat Numeral = { s : Str } ;
lincat Digit = {s : DForm => Str ; size : Size} ;
lincat Sub10 = {s : DForm => Str ; size : Size} ;
lincat Sub100 = {s : Str; size : Size } ;
lincat Sub1000 = {s : Str; size : Size } ;
lincat Sub1000000 = { s : Str } ;
oper mkNum : Str -> Str -> Str -> Str -> Size -> Lin Digit =
\dva -> \dvanast -> \dvadsat -> \dveste -> \sz ->

3
examples/numerals/decimal.gf
View File

@@ -4,6 +4,9 @@ flags lexer=chars ; unlexer=concat ;
param Zeros = noz | zz ;
lincat Numeral = { s : Str } ;
lincat Digit = { s : Str } ;
lincat Sub10 = { s : Str } ;
lincat Sub100 = {s : Zeros => Str} ;
lincat Sub1000 = {s : Zeros => Str} ;
lincat Sub1000000 = {s : Zeros => Str} ;

4
examples/numerals/english.gf
View File

@@ -2,8 +2,12 @@ include numerals.Abs.gf ;
param DForm = unit | teen | ten ;
lincat Numeral = { s : Str } ;
lincat Digit = {s : DForm => Str} ;
lincat Sub10 = {s : DForm => Str} ;
lincat Sub100 = { s : Str } ;
lincat Sub1000 = { s : Str } ;
lincat Sub1000000 = { s : Str } ;
oper mkNum : Str -> Str -> Str -> Lin Digit =
\two -> \twelve -> \twenty ->

1
examples/numerals/greek_classical.gf
View File

@@ -17,6 +17,7 @@ lincat Numeral = {s : Str} ;
oper LinDigit = {s : DForm => Str} ;
oper LinSub1000 = {s : InterData => Str ; size : Size} ;
lincat Numeral = { s : Str } ;
lincat Digit = LinDigit ;
lincat Sub10 = {s : DForm => Str ;
size : Size} ;

2
examples/numerals/guahibo.gf
View File

@@ -6,10 +6,12 @@ param Size = sg | pl ;
oper All = {s : Str ; size : Size};
lincat Numeral = { s : Str } ;
lincat Digit = All ;
lincat Sub10 = All ;
lincat Sub100 = All ;
lincat Sub1000 = All ;
lincat Sub1000000 = { s : Str } ;
oper mkNum : Str -> All = \tri ->
{ s = tri ; size = pl};

2
examples/numerals/guarani.gf
View File

@@ -6,10 +6,12 @@ param Size = sg | pl ;
oper All = {s : Str ; s2 : Str ; size : Size};
lincat Numeral = { s : Str } ;
lincat Digit = All ;
lincat Sub10 = All ;
lincat Sub100 = {s : Str ; size : Size} ;
lincat Sub1000 = {s : Str ; size : Size} ;
lincat Sub1000000 = { s : Str } ;
oper mkNum : Str -> All = \tri ->
{ s = tri ; s2 = "kua" + tri ; size = pl};

3
examples/numerals/hindi.gf
View File

@@ -6,10 +6,13 @@ param DSize = sg | r2 | r3 | r4 | r5 | r6 | r7 | r8 | r9 ;
param Size = sing | less100 | more100 ;
oper LinDigit = {s : DForm => Str ; size : DSize} ;
lincat Numeral = { s : Str } ;
lincat Digit = LinDigit ;
lincat Sub10 = {s : DForm => Str ; size : DSize} ;
lincat Sub100 = {s : Str ; size : Size} ;
lincat Sub1000 = {s : Str ; s2 : Str ; size : Size } ;
lincat Sub1000000 = { s : Str } ;
lin num x0 =
{s = "/&" ++ x0.s ++ "&/"} ; -- the Devana:gari environment

2
examples/numerals/icelandic.gf
View File

@@ -6,10 +6,12 @@ param Size = sg | less10 | pl ;
oper LinDigit = {s : DForm => Str} ;
lincat Numeral = { s : Str } ;
lincat Digit = LinDigit ;
lincat Sub10 = {s : DForm => Str ; size : Size} ;
lincat Sub100 = {s : Gen => Str ; size : Size} ;
lincat Sub1000 = {s : Gen => Str ; size : Size} ;
lincat Sub1000000 = { s : Str } ;
oper mkNum : Str -> Str -> Str -> Str -> LinDigit =
\two -> \twelve -> \twenty -> \tvo ->

1
examples/numerals/italian.gf
View File

@@ -4,6 +4,7 @@ param DForm = ental Pred | ton | tiotal ;
param Num = sg | pl ;
param Pred = pred | indip ;
lincat Numeral = { s : Str } ;
lincat Digit = {s : DForm => Str} ;
lincat Sub10 = {s : DForm => Str ; n : Num} ;
lincat Sub100 = {s : Str ; n : Num} ;

3
examples/numerals/kabardian.gf
View File

@@ -14,10 +14,13 @@ param DForm = unit | unite | unitra | teen | ten | tenra | hund | thou;
oper LinDigit = {s : DForm => Str };
oper LinS100 = {s : Str; s2 : Str } ;
lincat Numeral = { s : Str } ;
lincat Digit = LinDigit ;
lincat Sub10 = LinDigit ;
lincat Sub100 = LinS100 ;
lincat Sub1000 = LinS100 ;
lincat Sub1000000 = { s : Str } ;
oper mkNum : Str -> LinDigit = \dwa ->
{s = table {unit => dwa ; unite => dwa + "&" ; unitra => dwa + "&ra" ;

2
examples/numerals/kambera.gf
View File

@@ -4,10 +4,12 @@ param Size = sg | two | pl ;
oper Form = {s : Str ; size : Size} ;
lincat Numeral = { s : Str } ;
lincat Digit = Form ;
lincat Sub10 = Form ;
lincat Sub100 = Form ;
lincat Sub1000 = Form ;
lincat Sub1000000 = { s : Str } ;
oper mkNum : Str -> Form = \two ->
{s = two ; size = pl} ;

2
examples/numerals/khmer.gf
View File

@@ -6,10 +6,12 @@ param Size = sg | pl ;
oper LinDigit = {s : DForm => Str ; size : Size} ;
lincat Numeral = { s : Str } ;
lincat Digit = LinDigit ;
lincat Sub10 = LinDigit ;
lincat Sub100 = {s : Str ; s2 : Str ; size : Size} ;
lincat Sub1000 = {s : Str ; s2 : Str ; size : Size} ;
lincat Sub1000000 = { s : Str } ;
oper mkNum : Str -> Str -> LinDigit = \u -> \t -> {s = table {unit => u ; ten => t} ; size = pl} ;

2
examples/numerals/kolyma_yukaghir.gf
View File

@@ -6,10 +6,12 @@ param DForm = u | teen ;
oper LinDigit = {s : DForm => Str } ;
lincat Numeral = { s : Str } ;
lincat Digit = LinDigit ;
lincat Sub10 = LinDigit ;
lincat Sub100 = {s : Str } ;
lincat Sub1000 = {s : Str } ;
lincat Sub1000000 = { s : Str } ;
oper bind : Str -> Str -> Str = \a -> \b -> a ++ b ;

4
examples/numerals/kulung.gf
View File

@@ -8,10 +8,12 @@ param Scale = reg | lakh ;
-- Expanded in Jadranka Gvozdanovic' (ed.) Numeral Types and Changes
-- Worldwide, 1999
lincat Numeral = { s : Str } ;
lincat Digit = {s : DForm => Str} ;
lincat Sub10 = {s : DForm => Str ; size : Size} ;
lincat Sub100 = {s : Str ; size : Size} ;
lincat Sub1000 = {s : Scale => Str ; size : Size} ;
lincat Sub1000 = {s : Scale => Str ; size : Size}
lincat Sub1000000 = { s : Str } ;
oper mkNum : Str -> Str -> Str -> Str -> Lin Digit =
\two -> \two2 -> \twenty -> \twenty2 ->

1
examples/numerals/lalo.gf
View File

@@ -9,6 +9,7 @@ lincat Digit = {s : Str} ;
lincat Sub10 = {s : Str} ;
lincat Sub100 = LinS100 ;
lincat Sub1000 = LinS100 ;
lincat Sub1000000 = { s : Str } ;
-- TODO encoding

2
examples/numerals/lamani.gf
View File

@@ -8,10 +8,12 @@ param Size = sg | two | five | seven | nine | e25 | e75 | e50s | e90s | other ;
oper LinDigit = {s : DForm => Str ; s2 : Str ; size : Size} ;
oper LinSub100 = {s : Str ; s2 : Str ; s3 : Str ; size : Size} ;
lincat Numeral = { s : Str } ;
lincat Digit = LinDigit ;
lincat Sub10 = LinDigit ;
lincat Sub100 = LinSub100 ;
lincat Sub1000 = {s : Str ; s2 : Str } ;
lincat Sub1000000 = { s : Str } ;
lin num x0 =
{s = x0.s } ;

2
examples/numerals/latvian.gf
View File

@@ -11,10 +11,12 @@ param DForm = unit | teen | ten | hundred ;
oper LinDigit = {s : DForm => Str ; s2 : Str };
oper LinSub100 = {s : Str ; s2 : Str } ;
lincat Numeral = { s : Str } ;
lincat Digit = LinDigit ;
lincat Sub10 = LinDigit ;
lincat Sub100 = LinSub100 ;
lincat Sub1000 = LinSub100 ;
lincat Sub1000000 = { s : Str } ;
oper mkNum : Str -> Str -> LinDigit = \tri -> \tribase ->
{ s = table {unit => tri ; teen => tribase + "padsmit" ; ten => tribase + "desmit" ; hundred => variants {tribase + "simt" ; tri ++ "simti"} } ; s2 = tribase + "tu^kstos^" };

2
examples/numerals/lithuanian.gf
View File

@@ -15,10 +15,12 @@ param DForm = unit | teen | ten ;
oper LinDigit = {s : DForm => Str ; size : Size };
oper LinSub100 = {s : Str ; size : Size } ;
lincat Numeral = { s : Str } ;
lincat Digit = LinDigit ;
lincat Sub10 = LinDigit ;
lincat Sub100 = LinSub100 ;
lincat Sub1000 = LinSub100 ;
lincat Sub1000000 = { s : Str } ;
oper mkNum : Str -> Str -> Str -> LinDigit = \tri -> \dvylika -> \tribase ->
{ s = table {unit => tri ; teen => dvylika ; ten => tribase + "des^imt" } ; size = pl};

2
examples/numerals/mapuche.gf
View File

@@ -4,10 +4,12 @@ param Size = sg | pl ;
oper All = {s : Str ; size : Size};
lincat Numeral = { s : Str } ;
lincat Digit = All ;
lincat Sub10 = All ;
lincat Sub100 = All ;
lincat Sub1000 = All ;
lincat Sub1000000 = { s : Str } ;
oper mkNum : Str -> All = \tri ->
{ s = tri ; size = pl};

2
examples/numerals/margi.gf
View File

@@ -5,6 +5,8 @@ param Size = sg | pl ;
oper LinDigit = {s : DForm => Str ; size : Size} ;
oper LinS100 = {s : Str ; s2 : Str ; size : Size} ;
lincat Numeral = { s : Str } ;
lincat Digit = LinDigit ;
lincat Sub10 = LinDigit ;
lincat Sub100 = LinS100 ;

2
examples/numerals/old_church_slavonic.gf
View File

@@ -11,10 +11,12 @@ flags coding=OCScyrillic ;
param Size = sg | dual | threefour | fiveup ;
lincat Numeral = { s : Str } ;
lincat Digit = {s : Str ; s2 : Str ; size : Size } ;
lincat Sub10 = {s : Str ; s2 : Str ; size : Size } ;
lincat Sub100 = {s : Str ; s2 : Str ; size : Size } ;
lincat Sub1000 = {s : Str ; s2 : Str ; size : Size } ;
lincat Sub1000000 = { s : Str } ;
oper mkNum : Str -> Size -> {s : Str ; s2 : Str ; size : Size} =
\petI -> \sz -> { s = petI ; s2 = petI ; size = sz};

2
examples/numerals/pashto.gf
View File

@@ -17,10 +17,12 @@ param Size = sg | two | less100 | more100 ;
-- [P] is a Ha with a hamza above
-- [R] is an r with a ring below
lincat Numeral = { s : Str } ;
lincat Digit = {s : DForm => Str ; size : Size} ;
lincat Sub10 = {s : DForm => Str ; size : Size} ;
lincat Sub100 = {s : Str ; size : Size} ;
lincat Sub1000 = {s : Str ; s2 : Str ; size : Size } ;
lincat Sub1000000 = { s : Str } ;
lin num x0 =
{s = "/A" ++ x0.s ++ "A/"} ; -- the Extented-Arabic environment

3
examples/numerals/polish.gf
View File

@@ -23,10 +23,13 @@ param DForm = unit | teen | ten | hund ;
param ThForm = onlyone | lastone | twoorthreeorfour | fiveup ;
oper LinDigit = {s : DForm => Str; o : ThForm ; t : ThForm } ;
lincat Numeral = { s : Str } ;
lincat Digit = LinDigit ;
lincat Sub10 = {s : DForm => Str; o : ThForm ; t : ThForm } ;
lincat Sub100 = {s : Str; t : ThForm } ;
lincat Sub1000 = {s : Str; t : ThForm } ;
lincat Sub1000000 = { s : Str } ;
oper mkNum : Str -> Str -> Str -> Str -> ThForm -> LinDigit =
\dwa -> \dwanascie -> \dwadziescia -> \dwiescie -> \thform ->

3
examples/numerals/quechua.gf
View File

@@ -6,11 +6,12 @@ param Size = sg | pl ;
-- Quechua har no standard orthography so there are numerous spelling variants
-- not considered here.
lincat Numeral = { s : Str } ;
lincat Digit = {s : DForm => Str ; size : Size} ;
lincat Sub10 = {s : DForm => Str ; size : Size} ;
lincat Sub100 = {s : Str ; size : Size} ;
lincat Sub1000 = {s : Str ; size : Size} ;
lincat Sub1000000 = { s : Str } ;
oper mkRegNum1 : Str -> Lin Digit =
\juk ->

2
examples/numerals/romanian.gf
View File

@@ -7,10 +7,12 @@ param DForm = unit | teen | ten | attr ;
param MidForm = indep | det ;
param Size = sg | less20 | pl ;
lincat Numeral = { s : Str } ;
lincat Digit = {s : DForm => Str ; size : Size} ;
lincat Sub10 = {s : DForm => Str ; size : Size} ;
lincat Sub100 = {s : MidForm => Str ; size : Size} ;
lincat Sub1000 = {s : MidForm => Str ; size : Size} ;
lincat Sub1000000 = { s : Str } ;
oper mkNum : Str -> Str -> Str -> Lin Digit =
\two -> \twelve -> \twenty -> mkNumSpc two twelve twenty two ;

3
examples/numerals/sanskrit.gf
View File

@@ -27,10 +27,13 @@ oper
LinDigit = {s : DForm => Str ; size : DSize} ;
lincat Numeral = { s : Str } ;
lincat Digit = LinDigit ;
lincat Sub10 = {s : DForm => Str ; size : DSize} ;
lincat Sub100 = {s : Str ; s2 : Str ; size : Size} ;
lincat Sub1000 = {s : Str ; s2 : Str ; size : Size } ;
lincat Sub1000000 = { s : Str } ;
lin num x0 =
{s = "/&" ++ x0.s ++ "&/"} ; -- the Devanagari environment

2
examples/numerals/sorani.gf
View File

@@ -22,10 +22,12 @@ param Size = sg | less500 | fiveup | more500 ;
-- [P] is a Ha with a hamza above
-- [R] is an r with a ring below
lincat Numeral = { s : Str } ;
lincat Digit = {s : DForm => Str ; size : Size} ;
lincat Sub10 = {s : DForm => Str ; size : Size} ;
lincat Sub100 = {s : Str ; size : Size} ;
lincat Sub1000 = {s : Str ; s2 : Str ; size : Size} ;
lincat Sub1000000 = { s : Str } ;
lin num x0 =
{s = "/A" ++ x0.s ++ "A/"} ; -- the Arabic environment

2
examples/numerals/stieng.gf
View File

@@ -4,10 +4,12 @@ param Size = sg | belowten | moreten ;
oper LinDigit = {s : Str ; size : Size} ;
lincat Numeral = { s : Str } ;
lincat Digit = LinDigit ;
lincat Sub10 = LinDigit ;
lincat Sub100 = {s : Str ; s2 : Str ; size : Size} ;
lincat Sub1000 = {s : Str ; s2 : Str ; size : Size} ;
lincat Sub1000000 = { s : Str } ;
oper mkNum : Str -> LinDigit = \u -> {s = u ; size = belowten} ;

9
examples/numerals/swedish.gf
View File

@@ -2,9 +2,12 @@ include numerals.Abs.gf ;
param DForm = ental | ton | tiotal ;
lincat
Digit = {s : DForm => Str} ;
Sub10 = {s : DForm => Str} ;
lincat Numeral = { s : Str } ;
lincat Digit = {s : DForm => Str} ;
lincat Sub10 = {s : DForm => Str} ;
lincat Sub100 = { s : Str } ;
lincat Sub1000 = { s : Str } ;
lincat Sub1000000 = { s : Str } ;
oper
mkTal : Str -> Str -> Str -> Lin Digit = \två, tolv, tjugo ->

2
examples/numerals/tibetan.gf
View File

@@ -10,10 +10,12 @@ param DForm = unit | teen | bform | ten | hundred | agg ;
oper LinDigit = {s : DForm => Str} ;
lincat Numeral = { s : Str } ;
lincat Digit = LinDigit ;
lincat Sub10 = LinDigit ;
lincat Sub100 = {s : Str ; s2 : Str} ;
lincat Sub1000 = {s : Str ; s2 : Str} ;
lincat Sub1000000 = { s : Str } ;
oper mkNum : Str -> Str -> Str -> Str -> LinDigit =
\u -> \tn -> \b -> \t ->

2
examples/numerals/tuda_daza.gf
View File

@@ -5,6 +5,8 @@ param Size = sg | sub10 | pl | e10;
oper LinDigit = {s : DForm => Str ; s2 : Str ; size : Size} ;
oper LinS100 = {s : Str ; s2 : Str ; size : Size} ;
lincat Numeral = { s : Str } ;
lincat Digit = LinDigit ;
lincat Sub10 = LinDigit ;
lincat Sub100 = LinS100 ;

2
examples/numerals/tukang_besi.gf
View File

@@ -4,10 +4,12 @@ param DForm = u | v ;
oper LinDigit = {s : DForm => Str } ;
lincat Numeral = { s : Str } ;
lincat Digit = LinDigit ;
lincat Sub10 = LinDigit ;
lincat Sub100 = LinDigit ;
lincat Sub1000 = LinDigit ;
lincat Sub1000000 = { s : Str } ;
oper bind : Str -> Str -> Str = \a -> \b -> a ++ b ;

2
examples/numerals/turkish.gf
View File

@@ -12,10 +12,12 @@ param Size = sg | pl ;
-- The hundreds and trheir qualif can be written together e.g ikiyüz
-- aswelll as ten + unit e.g yirmibir
lincat Numeral = { s : Str } ;
lincat Digit = {s : DForm => Str } ;
lincat Sub10 = {s : DForm => Str ; size : Size} ;
lincat Sub100 = {s : Str ; size : Size } ;
lincat Sub1000 = {s : Str ; size : Size } ;
lincat Sub1000000 = { s : Str } ;
oper mkNum : Str -> Str -> Lin Digit =
\iki -> \yirmi ->

2
examples/numerals/zaiwa.gf
View File

@@ -4,10 +4,12 @@ param Size = sg | sub10 | pl ;
oper LinDigit = {s : Str ; size : Size} ;
lincat Numeral = { s : Str } ;
lincat Digit = LinDigit ;
lincat Sub10 = LinDigit ;
lincat Sub100 = {s : Str ; s2 : Str ; size : Size} ;
lincat Sub1000 = {s : Str ; s2 : Str ; size : Size} ;
lincat Sub1000000 = { s : Str } ;
oper mkNum : Str -> LinDigit = \u -> {s = u ; size = sub10} ;