diff options
Diffstat (limited to 'examples/numerals')
| -rw-r--r-- | examples/numerals/irula.gf | 7 | ||||
| -rw-r--r-- | examples/numerals/kodagu.gf | 3 | ||||
| -rw-r--r-- | examples/numerals/korean.gf | 8 |
3 files changed, 12 insertions, 6 deletions
diff --git a/examples/numerals/irula.gf b/examples/numerals/irula.gf index 22b299193..9d060519a 100644 --- a/examples/numerals/irula.gf +++ b/examples/numerals/irula.gf @@ -11,7 +11,8 @@ oper oper uru : Str = "u:" + pre {"r_u" ; "tti" / cons ; "tt"/ vowel} ; laks : Str = "lacca" + T ; ayira : Str = "a:yira" + T ; - cavira : Str = variants {ayira ; "ca:vira" + T} ; +---- cavira : Str = variants {ayira ; "ca:vira" + T} ; ----BUG in Compute (AR 9/5/2005) + cavira : Str = variants {"a:yira" + T ; "ca:vira" + T} ; T : Str = pre {[] ; "tt" / vowel ; "tti" / cons} ; U : Str = pre {"u" ; [] / vowel } ;-- ; "ï" / cons} ; @@ -49,7 +50,9 @@ lin n9 = {s = table {unit => "ombadu" ; teen => "pattombad"+U ; oper ss : Str -> LinS100 = \s1 -> {s = table {p => s1 ; lak => bind s1 cavira }} ; lin pot01 = - {s = table {unit => pre {[] ; "önr_u" / strs {[]}} ; + {s = table {unit => "önr_u" ; ---- pre {[] ; "önr_u" / strs {[]}} ; + ---- equivalent by the sem. of pre. AR + thou => cavira ; thou2 => "or" + ayira ; hund => "n" + uru ; diff --git a/examples/numerals/kodagu.gf b/examples/numerals/kodagu.gf index 33d80ae35..48703d0fd 100644 --- a/examples/numerals/kodagu.gf +++ b/examples/numerals/kodagu.gf @@ -47,7 +47,8 @@ lin n9 = mkN "oymbadï" ("pattoymbad"+I) "tomb" "oymbayn" "oymbad" ; oper ss : Str -> LinS100 = \s1 -> {s = table {p => s1 ; lak => bind s1 ayra }} ; lin pot01 = - {s = table {unit => pre {[] ; "ondï" / strs {[]}} ; + {s = table {unit => "ondï" ; ---- pre {[] ; "ondï" / strs {[]}} ; + ---- equivalent by the sem. of pre. AR thou => variants {ayra ; "o:r" + ayra} ; hund => "n" + uri ; _ => "dummy"} }; diff --git a/examples/numerals/korean.gf b/examples/numerals/korean.gf index b73e9978b..f00b89695 100644 --- a/examples/numerals/korean.gf +++ b/examples/numerals/korean.gf @@ -15,8 +15,6 @@ lincat Sub10 = LinDigit ; lincat Sub100 = {s : Str ; s2 : S100 => Str; size : Size} ; lincat Sub1000 = {s : Str ; s2 : Str ; size : Size } ; lincat Sub1000000 = {s : Str} ; -lin num x0 = - {s = "/L" ++ x0.s ++ "L/" } ; -- just makes colons into length bar ontop of char oper mkNumq : Str -> Str -> Str -> Str -> LinDigit = \twul -> \yelqtwul -> \sumul -> \i -> @@ -34,7 +32,11 @@ oper mkNum9 : Str -> Str -> Str -> Str -> LinDigit = \twul -> \yelqtwul -> \sumul -> \i -> {s = table {unit => twul ; teen => yelqtwul ; ten => sumul ; tenq => sumul + "q" ; chi => i ; chiten => i ++ "sip"} ; size = nine} ; --- lin n1 = mkNum variants{"hana" ; "han } ; variants {"yelhana" ; "yelhan" } +lin num x0 = + {s = "/L" ++ x0.s ++ "L/" } ; -- just makes colons into length bar ontop of char + +-- lin n1 = mkNum variants{"hana" ; "han"} ; variants {"yelhana" ;"yelhan"} + lin n2 = mkNumq (variants {"twu:l" ; "twu" }) (variants {"yelqtwul" ; "yelqtwu" }) (variants {"sumul" ; "sumu" }) |