diff options
Diffstat (limited to 'examples/numerals/tamil.gf')
| -rw-r--r-- | examples/numerals/tamil.gf | 171 |
1 files changed, 0 insertions, 171 deletions
diff --git a/examples/numerals/tamil.gf b/examples/numerals/tamil.gf deleted file mode 100644 index 3d9c1ed7f..000000000 --- a/examples/numerals/tamil.gf +++ /dev/null @@ -1,171 +0,0 @@ -concrete tamil of Numerals = { -flags coding = utf8 ; --- Tamil
--- Ad hoc transcr.
--- when there is something bigger maybe a:yiram should be preceded --- by an o:ru
- --- c is sh/ch etc --- s is sanskr. s' --- S is sanskr. s. --- G is velar n i.e [ng] --- V regular n in e.g [na:ru] --- n one ring n --- N two ring n --- ñ --- l --- L (like N but without the middle ring) --- M is retroflex l with the char that looks a bit like m (e.g l in Tamil) - - --- include numerals.Abs.gf ; --- flags coding=tamil ; - -oper - vowel : Strs = strs {"ஒ" ; "எ" ; "அ" ; "இ" ; "உ"} ; - labial : Strs = strs {"மௌ" ; "பௌ"} ; - retroflex : Strs = strs {"ணௌ" ; "டௌ"} ; - sandhi_u : Str = pre {"உ" ; [] / vowel} ; - sandhi_n : Str = pre {"னௌ" ; "மௌ" / labial} ; - sandhi_spc_n : Str = pre {"னௌ" ; "பௌ" / labial} ; - -- sandhi_N : Str = post {"னௌ" ; "ணௌ" / retroflex } ; - -param DForm = unit | attr1 | attr2 | teen ; -param Size = sg | four | five | eight | nine | more100 | less100 ; -param Place = attr | indep ; -param Sub1000Data = attrtwo | indeptwo | preceded | lakhs | lakhs2 ; - -lincat Numeral = {s : Str} ;
-lincat Digit = {s : DForm => Str ; size : Size} ;
-lincat Sub10 = {s : DForm => Str ; size : Size} ;
-lincat Sub100 = {s : Place => Str ; size : Size} ;
-lincat Sub1000 = {s : Sub1000Data => Str ; size : Size} ;
-lincat Sub1000000 = {s : Str} ;
-lin num x0 =
- {s = [] ++ x0.s ++ []} ; -- the Tamil environment
- -lin n2 = - {s = table {teen => "பனௌனாரணௌடீ" ;
- unit => "இரணௌடௌ" + sandhi_u ;
- attr1 => "இரீ" ;
- attr2 => variants {"இரணௌடௌ" + sandhi_u ; "ஈரௌ"} } ; size = less100} ;
-lin n3 = - {s = table {teen => "பதானௌ" + "முனௌரீ" ;
- unit => "முனௌரௌ" + sandhi_u ;
- attr1 => "மீ" + sandhi_spc_n ;
- attr2 => "முறௌ"} ; size = less100} ;
-lin n4 = - {s = table {teen => "பதா" + variants { "நறீ" ; "நனௌகீ" } ; - unit => variants { "நறௌ" + sandhi_u ; "நனௌகௌ" + sandhi_u } ; - attr1 => "நரௌ" ; - attr2 => "நறௌ"} ; size = four} ;
-lin n5 = - {s = table {teen => "பதானௌ" + "ஐனௌdீ" ;
- unit => "ஐனௌதௌ" + sandhi_u ;
- attr1 => "ஐ" + sandhi_n ;
- attr2 => "ஐயௌ"} ; size = five} ;
-lin n6 = - {s = table {teen => "பதானௌ" + "ஆரீ" ;
- unit => "ஆரௌ" + sandhi_u ;
- attr1 => "அரீ" ;
- attr2 => "ஆரௌ"} ; size = less100} ;
-lin n7 = - {s = table {teen => "பதானௌ" + "ஏலீ" ;
- unit => "ஏலௌ" + sandhi_u ;
- attr1 => "எலீ" ;
- attr2 => "எலௌ"} ; size = less100} ;
-lin n8 = - {s = table {teen => "பதானௌ" + "எடௌடீ" ;
- unit => "எடௌடௌ" + sandhi_u ;
- attr1 => "எணௌ" ;
- attr2 => "எணௌணௌ"} ; size = eight} ;
-lin n9 = - {s = table {teen => "பதௌதௌ" + "ஓனௌபதீ" ;
- unit => "ஓனௌபதௌ" + sandhi_u ;
- attr1 => "தணௌ" ;
- attr2 => "ஓனௌபதானௌ"} ; size = nine} ;
- -oper fiveh : Str = variants { "ஐனௌனரீ" ; "அஞௌஞரீ"} ; -oper fiveh_sandhi : Str = variants { "ஐனௌனரௌ" + sandhi_u ; "அஞௌஞரௌ" + sandhi_u } ; - -lin pot01 =
- {s = table {unit => "ஓனௌரீ"; teen => "பதானௌ" + "ஓனௌரீ" ; attr1 => "ஓரௌ" + sandhi_u ; attr2 => []} ; size = sg} ;
-lin pot0 d =
- {s = d.s ; size = d.size} ;
-lin pot110 =
- {s = table {_ => "பதௌதீ"} ; size = less100} ;
-lin pot111 =
- {s = table {_ => "பதானௌ" + "ஓனௌரௌ" + sandhi_u} ; size = less100} ;
-lin pot1to19 d =
- {s = table {_ => d.s ! teen} ; size = less100} ;
-lin pot0as1 n =
- {s = table {attr => n.s ! attr2 ; indep => n.s ! unit} ; size = n.size} ;
-lin pot1 d = - {s = table {_ => table {nine => "தணௌணரௌ" + sandhi_u ; _ => d.s ! attr1 ++ "பதீ"} ! d.size} ; size = less100} ;
-lin pot1plus d e = - {s = table {_ => table {nine => ("தணௌணரௌ" + sandhi_u) ++ e.s ! unit; _ => d.s ! attr1 ++ "பதௌ" + sandhi_u } ! d.size ++ e.s ! unit }; size = less100} ;
-lin pot1as2 n = - {s = table {indeptwo => n.s ! indep ; attrtwo => n.s ! attr ; preceded => n.s ! indep ; _ => "dீமௌமௌயௌ"}; size = n.size} ; -lin pot2 d = - {s = table {indeptwo => - table {nine => "தலௌலயாரமௌ" ; - eight => "எணௌணரீ" ; - four => "நநரீ" ; - five => fiveh ; - sg => "நரீ" ; - _ => d.s ! attr1 ++ "நரீ"} ! d.size ; - attrtwo => - table {nine => "தலௌலயாரதௌதௌ" + sandhi_u ; - eight => "எணௌணரௌ" + sandhi_u ; - four => "நநரௌ" + sandhi_u; - five => fiveh_sandhi ; - _ => d.s ! attr1 ++ "நரௌ" + sandhi_u} ! d.size ; - preceded => - table {nine => "தலௌலயாரமௌ" ; - eight => "எணௌணரீ" ; - four => "நநரீ" ; - five => fiveh ; - _ => d.s ! attr1 ++ "நரீ"} ! d.size ; - lakhs => d.s ! unit ++ "இறடௌசமௌ" ; - lakhs2 => d.s ! unit ++ "இறடௌசதௌதீ" } ; - size = more100} ; -lin pot2plus d e =
- {s = table {indeptwo =>
- table {nine => ("தலௌலயாரதௌதௌ" + sandhi_u) ; - eight => ("எணௌணரௌ" + sandhi_u) ; - four => ("நநரௌ" + sandhi_u) ; - five => fiveh_sandhi ; - sg => ("நரௌ" + sandhi_u) ; - _ => d.s ! attr1 ++ ("நரௌ" + sandhi_u) } ! d.size ++ e.s ! indep ; - attrtwo => - table {nine => ("தலௌலயாரதௌதௌ" + sandhi_u) ; - eight => ("எணௌணரௌ" + sandhi_u) ; - four => ("நநரௌ" + sandhi_u) ; - five => fiveh_sandhi ; - sg => ("நரௌ" + sandhi_u) ; - _ => d.s ! attr1 ++ ("நரௌ" + sandhi_u) } ! d.size ++ e.s ! indep ; - preceded => - table {nine => ("தலௌலயாரதௌதௌ" + sandhi_u) ; - eight => ("எணௌணரௌ" + sandhi_u) ; - four => ("நநரௌ" + sandhi_u) ; - five => fiveh_sandhi ; - _ => d.s ! attr1 ++ ("நரௌ" + sandhi_u) } ! d.size ++ e.s ! indep ; - lakhs => d.s ! unit ++ ("இறடௌசதௌதௌ" + sandhi_u) ++ - table {sg => "ஆயாரமௌ" ; _ => e.s ! attr ++ "ஆயாரமௌ" } ! e.size ; - lakhs2 => d.s ! unit ++ ("இறடௌசதௌதௌ" + sandhi_u) ++ - table {sg => "ஆயாரதௌதௌ" + sandhi_u ; _ => e.s ! attr ++ ("ஆயாரதௌதௌ" + sandhi_u) } ! e.size} ; size = more100} ; - -lin pot2as3 n = - {s = n.s ! indeptwo} ; -lin pot3 n = - {s = table {sg => "ஆயாரமௌ" ; - more100 => n.s ! lakhs ; - _ => n.s ! attrtwo ++ "ஆயாரமௌ" } ! n.size } ; - -lin pot3plus n m = - {s = table {sg => "ஆயாரதௌதௌ" + sandhi_u; - more100 => n.s ! lakhs2 ; - _ => n.s ! attrtwo ++ "ஆயாரதௌதௌ" + sandhi_u } ! n.size ++ m.s ! preceded} ; - - -} |