1 files changed, 0 insertions, 64 deletions
diff --git a/examples/numerals/votic.gf b/examples/numerals/votic.gf
deleted file mode 100644
index a0f192424..000000000
--- a/examples/numerals/votic.gf
+++ /dev/null
@@ -1,64 +0,0 @@
-concrete votic of Numerals = {
--- include numerals.Abs.gf ;
-
-param DForm = unit | attr | teen | ten | ten2 ;
-param Size = sg | pl ;
-
-oper LinDigit = {s : DForm => Str ; size : Size };
-oper LinS100 = {s : Str ; size : Size} ;
-
-oper bind : Str -> Str -> Str = \a -> \b -> a ++ b ;
-
-lincat Numeral = {s : Str} ;
-lincat Digit = LinDigit ;
-lincat Sub10 = LinDigit ;
-lincat Sub100 = LinS100 ;
-lincat Sub1000 = LinS100 ;
-lincat Sub1000000 = {s : Str} ;
-lin num x0 = {s = x0.s} ; -- TODO
-
-oper mkN2 : Str -> LinDigit = \u ->
-  mkN u u (u + "ts^ümmettä") (u + "ts^ümmet") ;
-
-oper mkN : Str -> Str -> Str -> Str -> LinDigit = \u -> \a -> \t -> \t2 ->
-  {s = table {unit => u ; attr => a + "sata:"; ten => t ; ten2 => t2 ; 
-              teen => a + tess} ; size = pl} ;
-
-lin n2 = mkN "kahsi" "kahs"
-             (variants {"kahs^'t's^'ümmettä" ; "kahts^ümmettä"})
-             (variants {"kahs^'t's^'ümmet" ; "kahts^ümmet"});
-lin n3 = mkN "keVLmeV" "keVm" "keVmts^ümmettä" "keVmts^ümmet";
-lin n4 = mkN2 "nellä" ; 
-lin n5 = mkN "vi:si" "vi:s" "vi:s^'t's^'ümmettä" "vi:s^'t's^'ümmet";
-lin n6 = mkN "ku:si" "ku:s" "ku:s^'t's^'ümmettä" "ku:s^'t's^'ümmet"; 
-lin n7 = mkN2 "seitse:" ;
-lin n8 = mkN2 "kaheVsa:" ;
-lin n9 = mkN2 "ühesä:" ;
-
-oper tess : Str = (variants {"teV*s^s^eVmeVtta" ; "teV*is^'t's^'ümmeD"} ) ;
-
-lin pot01 = {s = table {unit => "ühsi" ; attr => "sata" ; _ => "dummy" }; size = sg } ;
-
-oper ss : Str -> LinS100 = \s1 -> {s = s1 ; size = pl } ; 
-
-lin pot0 d = d ; 
-lin pot110 = ss "ts^ümme:" ;
-lin pot111 = ss ("ühs" + tess) ;
-lin pot1to19 d = ss (d.s ! teen) ;
-lin pot0as1 n = {s = n.s ! unit ; size = n.size } ;
-lin pot1 d = ss (d.s ! ten) ;
-lin pot1plus d e = ss ((d.s ! ten2) ++ (e.s ! unit)) ;
-lin pot1as2 n = n ;
-lin pot2 d = ss (d.s ! attr) ;
-lin pot2plus d e = ss ((d.s ! attr) ++ e.s) ;
-lin pot2as3 n =
-  {s = n.s } ;
-lin pot3 n =
-  {s = selsg (variants {"tuhatta" ; "tuhaD" }) (bind n.s "tuhatta") ! n.size} ;
-lin pot3plus n m =
-  {s = selsg (variants {"tuhatta" ; "tuhaD" }) (bind n.s "tuhatta") ! n.size ++ m.s }; 
-
-oper selsg : Str -> Str -> Size => Str = \a -> \b ->
-  table {sg => a ; pl => b} ; 
-
-}