1 files changed, 0 insertions, 154 deletions
diff --git a/examples/godis-tram/Common/GodisLangFin.gf b/examples/godis-tram/Common/GodisLangFin.gf
deleted file mode 100644
index bc7f62652..000000000
--- a/examples/godis-tram/Common/GodisLangFin.gf
+++ /dev/null
@@ -1,154 +0,0 @@
---# -path=.:prelude:alltenses
-
-instance GodisLangFin of GodisLang = 
-    open Prelude, PredefCnc, GrammarFin, 
-         ParadigmsFin, (ResFin=ResFin), ParamX, ConstructX, 
-         (Lex=LangFin) in {
-
---flags optimize = noexpand ;
-
-oper
-
-TODO : (a : Type) -> a = Predef.error "TODO" ;
-
-----------------------------------------------------------------------
--- focus
-
-embed_NP a b x = TODO NP ; 
-----{s = \\c => a ++ (x.s ! c) ++ b; a = x.a; lock_NP = <>};
-
-
-----------------------------------------------------------------------
--- user utterances
-
-userGreet = ss ["hei"];
-userQuit  = ss (variants{ ["näkemiin"]; ["lopetetaan"] });
-userNo    = ss ["ei"];
-userYes   = ss ["kyllä"];
-userOkay  = variants { ss ["okei"]; ss ["selvä"] };
-
-userCoordinate x y = ss (x.s ++ "ja" ++ optStr "sitten" ++ y.s);
-
-thank_you_Str = variants {"kiitos"; "loistavaa"; "kiitti"};
-i_want_to_Str = variants {"haluan"; "haluaisin"} ;
-
-please_Str    = ["ole hyvä"] ;
-this_that_Str = variants{"tämä"; "tuo"};
-
-not_user_prop  p = ss ( Predef.toStr Predet not_Predet ++ p.s );
-not_user_short a = ss ( Predef.toStr Predet not_Predet ++ a.s );
-
-----------------------------------------------------------------------
--- system utterances
-
-hello           = mkUtt ["Valmis"];
-goodbye         = mkUtt ["Näkemiin"];
-yes             = mkUtt ["Kyllä"];
-no              = mkUtt ["Ei"];
-
-is_that_correct_Post   = mkUtt [", pitääkö paikkansa"];
-returning_to_Pre       = mkUtt ["Takaisin kohtaan"];
-returning_to_act_Pre   = mkUtt ["Takaisin kohtaan"];
-returning_to_issue_Pre = mkUtt ["Takaisin aiheeseen"];
-what_did_you_say       = mkUtt ["Mitä sanoit"];
-what_do_you_mean       = mkUtt ["Mitä tarkoitat"];
-i_dont_understand      = mkUtt ["Anteeksi, en ymmärrä"];
-cant_answer_que_Pre    = mkUtt ["Anteeksi, en tiedä mitään aiheesta"];
-not_valid_Post         = mkUtt ["ei ole mahdollinen vaihtoehto"];
-
-icm_acc_pos     = variants { mkUtt ["Okei"]; mkUtt thank_you_Str }; 
-icm_con_neg     = mkUtt ["No?"];
-icm_reraise     = mkUtt ["No niin, "];
-icm_loadplan    = mkUtt ["Katsotaan"];
-icm_accommodate = mkUtt ["Selvä"];
-
-icm_per_pos   x = mkUtt (["Luulin että sanoit että"] ++ x.s);
-
-
-----------------------------------------------------------------------
--- noun phrases
-
-sing_NP    s = mkNP (nLinux s) singular ; ----
-plur_NP    s = mkNP (nLinux s) plural ;
-
-NPgen_NP np1 np2 = AdvNP np2 (PrepNP possess_Prep np1) ; ----
-
-NP_Cl np = TODO Cl ;
-
-prefix_N n1 n2 = n2 ; ----
-
-----------------------------------------------------------------------
--- verb phrases, actions
-
-VPing  vp = case vp.clform of {
-  HasDone => vp; 
-  IsDoing => ProgrVP vp
-  };
-
-vp2Utt vp = UttVP vp ;
-
-
-----------------------------------------------------------------------
--- general syntactical operations
-
-disjunct_QCl q q' = 
-    {s = \\t,a,p => q.s!t!a!p ++ "vai" ++ q'.s!t!a!p;
-     lock_QCl = <>};
-
-negate_Cl c = 
-    {s = \\t,a,p,o => c.s!t!a!(case p of {
-       Neg => Pos; 
-       Pos => Neg
-       })!o;
-     lock_Cl = <>};
-
-----------------------------------------------------------------------
--- verbs
-
-see_V           = Lex.see_V2 ** {lock_V = <>}; ----
-
-do_V2           = Lex.do_V2;
-have_V2         = Lex.have_V2;
-understand_V2   = Lex.understand_V2;
-
-know_VQ         = mkVQ (reg2V "tietää" "tiesi") ;
-wonder_VQ       = Lex.wonder_VQ;
-
-say_VS          = Lex.say_VS;
-
-fail_VV         = mkVV (regV "epäonnistua");
-like_VV         = mkVV (regV "haluta"); ----
-
-----------------------------------------------------------------------
--- nouns, proper nouns, common nouns and noun phrases
-
-information_N   = regN "informaatio";
-
-you_NP          = UsePron Lex.youSg_Pron;
-
-----------------------------------------------------------------------
--- closed word categories
-
-of_på_Prep      = casePrep genitive ;
-for_Prep        = casePrep allative ;
-
-not_Predet      = {s = \\n,c => "ei" ; lock_Predet = <>} ; ----
-
-no_Quant        = TODO Quant ;
-all_Quant       = TODO QuantPl ;
-
-
-------------------------------------------------------------------
-
-i_dont_want_to = variants { ["en halua"];
-                            ["en tahdo"] };
-
--- Finnish-specific
-
--- local cases in free variation
-
-in_Case   : Case = variants {adessive ; inessive} ;
-to_Case   : Case = variants {allative ; illative} ;
-from_Case : Case = variants {ablative ; elative} ;
-
-}