godis tram grammars, augmented with Fin

2006-11-08 15:08:09 +00:00
parent 1fd0113015
commit eb3d750459
45 changed files with 2626 additions and 0 deletions
@@ -0,0 +1,154 @@
+--# -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} ;
+
+}