summaryrefslogtreecommitdiff
path: root/examples/numerals/kabardian.gf
diff options
context:
space:
mode:
authorjohn.j.camilleri <john.j.camilleri@chalmers.se>2013-09-16 07:17:27 +0000
committerjohn.j.camilleri <john.j.camilleri@chalmers.se>2013-09-16 07:17:27 +0000
commitf5461eb3d4eb2605b546a4ed202c12bcdaa1f4e4 (patch)
tree946c9e8542b8e8271b6b529a95c0400fa6613cb4 /examples/numerals/kabardian.gf
parent8e1c6cca407c82fc09569d80c231b8d256735989 (diff)
Remove contribs and examples
Everything has now been moved to a separate repository at https://github.com/GrammaticalFramework/gf-contrib The contents of the examples folder are build during SetupWeb
Diffstat (limited to 'examples/numerals/kabardian.gf')
-rw-r--r--examples/numerals/kabardian.gf85
1 files changed, 0 insertions, 85 deletions
diff --git a/examples/numerals/kabardian.gf b/examples/numerals/kabardian.gf
deleted file mode 100644
index ade6a75ed..000000000
--- a/examples/numerals/kabardian.gf
+++ /dev/null
@@ -1,85 +0,0 @@
-concrete kabardian of Numerals = {
--- Kabardian
-
--- W is superscript w (= IPA labialisation)
--- & is schwa upside down e
--- s'
--- L is lambda
--- L is lambda with dash across
--- x^ is x with ^ ontop
--- G is gamma
-
--- include numerals.Abs.gf ;
-
-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" ;
- ten => dwa + "&s'" ; tenra => dwa + "&s'ra" ;
- teen => "p's''&" + "k'W&" + dwa ;
- hund => "s'a" + "&y" + dwa ;
- thou => variants {"m&yn"+"&y"+dwa ; dwa+"a"+"s''a"++"m&yn"}}};
-
-oper mkNum2 : Str -> LinDigit = \dwa ->
- {s = table {unit => dwa ; unite => dwa + "&" ; unitra => dwa + "&ra" ;
- ten => dwa + "as'" ; tenra => dwa + "as'ra" ;
- teen => "p's''&"+"k'W&"+"t'" ;
- hund => "s'a" + "&y" + "t'" ;
- thou => variants {"m&yn"+"&y"+"t'" ; dwa+"a"+"s''a"++"m&yn"}}};
-
-oper mkNum3 : Str -> LinDigit = \dwa ->
- {s = table {unit => dwa ; unite => dwa + "&" ; unitra => dwa + "&ra" ;
- ten => dwa + "as'" ; tenra => dwa + "as'ra" ;
- teen => "p's''&"+"k'W&"+dwa ;
- hund => "s'a" + "&y" + dwa ;
- thou => variants {"m&yn"+"&y"+dwa ; dwa+"a"+"s''a"++"m&yn"}}};
-
-lin num x = {s = x.s } ; -- TODO ;
-
-lin n2 = mkNum2 "t'?W" ;
-lin n3 = mkNum3 "s'" ;
-lin n4 = mkNum "p'L-'" ;
-lin n5 = mkNum "tx^W" ;
-lin n6 = mkNum "x^";
-lin n7 = mkNum "bL" ;
-lin n8 = mkNum "y" ;
-lin n9 = mkNum "bGW" ;
-
-oper bind : Str -> Str -> Str = \s1 -> \s2 -> s1 ++ s2 ;
-
-lin pot01 =
- {s = table {unit => "z" ; unite => "z&" ; unitra => "z&" + "ra" ;
- teen => "p's''&"+"k'W&"+"z" ; ten => "dummy" ; tenra => "dummy" ;
- hund => "s'a" ; thou => "m&yn"}};
-
-oper ss : Str -> LinS100 = \f ->
- {s = f ; s2 = variants {("m&yn"+"&y") ++ f ; (bind f "as'a") ++ "m&yn"}};
-
-lin pot0 d = d ;
-lin pot110 =
- {s = "p's''&" ;
- s2 = variants {"m&yn"+"&y"+"p's''" ; "p's''"+"a"+"s''a"++"m&yn"}};
-lin pot111 = ss ("p's''&"+"k'W&"+"z") ;
-lin pot1to19 d = ss (d.s ! teen) ;
-lin pot0as1 n = {s = n.s ! unite ; s2 = n.s ! thou } ;
-lin pot1 d = ss (variants {(d.s ! ten) ; (d.s ! unite) ++ "p's''&wa"}) ;
- -- extra variant p's''ay = 80
-lin pot1plus d e = ss ((d.s ! tenra) ++ (e.s ! unitra)) ;
-lin pot1as2 n = n ;
-lin pot2 d = ss (d.s ! hund) ;
-lin pot2plus d e = ss ((d.s ! hund) ++ e.s) ;
-lin pot2as3 n = {s = n.s } ;
-lin pot3 n = {s = n.s2} ;
-lin pot3plus n m = {s = n.s2 ++ m.s} ;
-
-}