Sammie grammars added to examples

1 files changed, 90 insertions, 0 deletions

diff --git a/examples/sammie/ParamSammieFin.gf b/examples/sammie/ParamSammieFin.gf
new file mode 100644
index 000000000..9e7613b22
--- /dev/null
+++ b/examples/sammie/ParamSammieFin.gf
@@ -0,0 +1,90 @@
+instance ParamSammieFin of ParamSammie = open 
+  SyntaxFin,
+  ExtraFin,
+  SymbolicFin,
+  (R = ResFin), ----
+  ParadigmsFin,
+  (C = ConstructX),
+  Prelude 
+in {
+
+oper 
+
+  song_N = mkN "laulu" ;
+  track_N = mkN "kappale" ;
+  album_N = mkN "albumi" ;
+  record_N = mkN "levy" ;
+  cd_N = mkN "cd-levy" ;
+  playlist_N = mkN "soittolista" ;
+  artist_N = mkN "artisti" ;
+  number_N = mkN "numero" ;
+  rock_N = mkN "rock" ;
+
+  new_A = mkA (mkN "uusi" "uuden" "uusia") ;
+
+  add_V3 = 
+    dirV3 (mkV "lisätä") illative ;
+  remove_V3 = 
+    dirV3 (mkV "poistaa") ablative ;
+  show_V3 = mkV3 (mkV "näyttää") (casePrep allative) accPrep ;
+
+  create_V2 = dirV2 (mkV "luoda") ;
+  tell_V2Q = mkV2Q (mkV "sanoa") (casePrep allative) ;
+  play_V2 = dirV2 (mkV "soittaa") ;
+  show_V2Q = mkV2Q (mkV "näyttää") (casePrep allative) ;
+  return_V2 = mkV2 (mkV "palata") to_Prep ;
+  goto_V2 = mkV2 (mkV "mennä") to_Prep ;
+  record_V2 = dirV2 (mkV "levyttää") ;
+  make_V2 = dirV2 (mkV "tehdä" "tekee" "teen" "tekevät" "tehkää" "tehdään"
+      "teki" "tein" "tekisi" "tehnyt" "tehty" "tehdyn") ; 
+
+  stop_V = mkV "lopettaa" ;
+
+  back_Adv = mkAdv "takaisin" ;
+
+  what_IAdv = C.mkIAdv "mikä" ;
+
+  previous_A = mkA "edellinen" ; 
+  next_A = mkA "seuraava" ; 
+  please_PConj = C.mkPConj ["ole hyvä"] ;
+
+  mainmenu_NP = mkNP the_Art (mkN "päävalikko") ;
+
+  goback_VP = mkVP (mkVP (mkV "mennä")) back_Adv ;
+  shutup_VP = mkVP (mkAdv "hiljaa") ;
+  pause_VP  = mkVP (dirV2 (mkV "pitää")) (mkNP the_Art (mkN "tauko")) ;
+  resume_VP = mkVP (mkVP (mkV "palata")) (mkAdv "asiaan") ;
+
+  whatever_Utt = C.mkUtt ["mitä tahansa"] ;
+
+  typeWithGenre x genre =
+    mkCN x (mkRS (RelExistNP in_Prep which_RP (mkNP genre))) ;
+
+  name = mkPN ;
+
+  WhatName = mkQCl what_IAdv ;
+
+  past = <TPres,AAnter> ;
+
+  imperative vp = 
+      mkUtt (mkImp vp)
+    | mkUtt (mkQS (mkQCl (mkCl (mkNP youSg_Pron) can_VV vp)))
+    | mkUtt (mkCl (mkNP i_Pron) want_VV vp)
+    | mkUtt vp
+    ;
+
+  previous cn = mkNP the_Art (mkCN previous_A cn) ;
+  next cn = mkNP the_Art (mkCN next_A cn) ;
+
+  what_say = mkUtt whatPart_IP ;
+
+  all_art = the_Art ;
+
+  artist_Prep = casePrep ablative ;
+
+  this cn = 
+      mkNP this_Quant
+    | mkNP the_Art (mkCN (mkA "tämänhetkinen") cn)
+    ;
+
+}