summaryrefslogtreecommitdiff
path: root/examples/sammie/ParamSammieGer.gf
diff options
context:
space:
mode:
Diffstat (limited to 'examples/sammie/ParamSammieGer.gf')
-rw-r--r--examples/sammie/ParamSammieGer.gf118
1 files changed, 0 insertions, 118 deletions
diff --git a/examples/sammie/ParamSammieGer.gf b/examples/sammie/ParamSammieGer.gf
deleted file mode 100644
index cbeae08e1..000000000
--- a/examples/sammie/ParamSammieGer.gf
+++ /dev/null
@@ -1,118 +0,0 @@
-instance ParamSammieGer of ParamSammie = open
- SyntaxGer,
- ExtraGer,
- SymbolicGer,
- ParadigmsGer,
- IrregGer,
- (ConstructX = ConstructX),
- Prelude
-in {
-
-oper
-
- song_N = mkN "song" "songs" masculine ;
-
- track_N = variants {
- mkN "lied" "lieder" neuter ;
- mkN "stück" "stücke" neuter
- } ;
-
- album_N = mkN "album" "album" "album" "albums" "alben" "alben" neuter ;
- record_N = mkN "platte" ;
- cd_N = mkN "cd" "cds" feminine ;
- playlist_N = variants {
- mkN "playlist" "playlisten" feminine ;
- mkN "wiedergabeliste"
- } ;
- artist_N = mkN "künstler" ;
- number_N = mkN "nummer" "nummern" feminine ;
- rock_N = mkN "rock" ;
-
- new_A = mkA "neu" ;
-
- add_V3 =
- mkV3 (prefixV "hinzu" (mkV "fügen")) accPrep zu_Prep ;
- remove_V3 =
- mkV3 (prefixV "aus" nehmen_V) accPrep (mkPrep "aus" dative) ;
- show_V3 = mkV3 (mkV "zeigen") datPrep accPrep ;
-
- create_V2 = dirV2 (no_geV (mkV (variants {"erzeugen" ; "erstellen"}))) ;
- tell_V2Q = mkV2Q (mkV "sagen") datPrep ;
- play_V2 = dirV2 (mkV "spielen") ;
- show_V2Q = mkV2Q (mkV "zeigen") datPrep ;
- return_V2 = mkV2 (prefixV "zurück" gehen_V) zu_Prep ;
- goto_V2 = mkV2 gehen_V to_Prep ;
- record_V2 = dirV2 (no_geV (mkV "interpretieren")) ;
- --prefixV "ein" (mkV "spielen")) ;
- make_V2 = dirV2 (mkV "machen") ;
-
- stop_V = halten_V ;
-
- back_Adv = mkAdv "zurück" ;
-
- what_IAdv = ConstructX.mkIAdv "was" ;
-
-
-
- previous_A = mkA "vorig" | mkA "vorhergehend" ;
-
- next_A = mkA "nächst" | mkA "nachfolgend" | mkA "folgend" ;
-
- please_PConj = ConstructX.mkPConj "bitte" ;
-
- mainmenu_NP =
- mkNP the_Art
- (mkCN (mkN "hauptmenü" "hauptmenüs" neuter)) ;
-
- goback_VP = mkVP (mkVP gehen_V) back_Adv ;
- shutup_VP = mkVP (schweigen_V) ;
- pause_VP = mkVP (mkV "pausieren") ;
- resume_VP = mkVP (mkV "wiederholen") ; ----
-
- whatever_Utt = ConstructX.mkUtt ["irgendwas"] ;
-
- typeWithGenre x genre =
- mkCN x (SyntaxGer.mkAdv with_Prep (mkNP genre)) ;
-
- name = regPN ;
-
- WhatName x = mkQCl how_IAdv (mkCl x heißen_V) ;
-
- past = <presentTense,anteriorAnt> ;
-
- imperative vp =
- mkUtt (mkImp (bitteVP vp))
- | mkUtt (mkImp vp)
- | mkUtt (mkQS (mkQCl (mkCl (mkNP youSg_Pron) can_VV vp)))
- | mkUtt (mkQS (mkQCl (mkCl (mkNP youPol_Pron) can_VV vp)))
- | mkUtt (mkS (mkCl (mkNP i_Pron) want_VV vp))
- | mkUtt (mkS TImpfSubj (mkCl (mkNP i_Pron) moegen_VV vp))
- | mkUtt vp
- ;
-
- bitteVP : VP -> VP = \vp -> variants {
- vp ;
- mkVP (ConstructX.mkAdV "bitte") vp
- } ;
-
- previous cn =
- mkNP the_Art (mkCN previous_A cn)
- | mkNP (mkCN previous_A cn)
- ;
- next cn =
- mkNP the_Art (mkCN next_A cn)
- | mkNP (mkCN next_A cn)
- ;
-
- what_say = mkUtt whatSg_IP ;
-
- all_art = a_Art | the_Art ;
-
- artist_Prep = by8agent_Prep ; ---- | with_Prep ;
-
- this cn =
- mkNP this_Quant cn
- | mkNP the_Art (mkCN (mkA "aktuell") cn)
- ;
-
-}