diff options
| author | john.j.camilleri <john.j.camilleri@chalmers.se> | 2013-09-16 07:17:27 +0000 |
|---|---|---|
| committer | john.j.camilleri <john.j.camilleri@chalmers.se> | 2013-09-16 07:17:27 +0000 |
| commit | f5461eb3d4eb2605b546a4ed202c12bcdaa1f4e4 (patch) | |
| tree | 946c9e8542b8e8271b6b529a95c0400fa6613cb4 /examples/sammie/ParamSammieSwe.gf | |
| parent | 8e1c6cca407c82fc09569d80c231b8d256735989 (diff) | |
Remove contribs and examples
Everything has now been moved to a separate repository at
https://github.com/GrammaticalFramework/gf-contrib
The contents of the examples folder are build during SetupWeb
Diffstat (limited to 'examples/sammie/ParamSammieSwe.gf')
| -rw-r--r-- | examples/sammie/ParamSammieSwe.gf | 94 |
1 files changed, 0 insertions, 94 deletions
diff --git a/examples/sammie/ParamSammieSwe.gf b/examples/sammie/ParamSammieSwe.gf deleted file mode 100644 index 23bd16edb..000000000 --- a/examples/sammie/ParamSammieSwe.gf +++ /dev/null @@ -1,94 +0,0 @@ -instance ParamSammieSwe of ParamSammie = open - SyntaxSwe, - GrammarSwe, - ExtraSwe, - SymbolSwe, - ParadigmsSwe, - IrregSwe, - ConstructX, - Prelude -in { - -oper - - song_N = mk1N "sångerna" ; - track_N = mk1N "låtarna" ; - album_N = mk1N "albumen" ; - record_N = regN "platta" ; - cd_N = regN "cd-skiva" ; - playlist_N = regN "spellista" ; - artist_N = mk1N "artisterna" ; - number_N = mkN "nummer" "numret" "nummer" "numren" ; - rock_N = regN "rock" ; - - new_A = regA "ny" ; - - add_V3 = - mkV3 (partV lägga_V "till") noPrep (mkPrep "till") ; - remove_V3 = - mkV3 (partV taga_V "bort") noPrep (mkPrep "från") ; - show_V3 = dirdirV3 (regV "visa") ; - - create_V2 = dirV2 (regV "skapa") ; - tell_V2 = dirV2 säga_V ; - play_V2 = dirV2 (regV "spela") ; - show_V2 = dirV2 (regV "visa") ; - return_V2 = mkV2 (regV "återvänder") to_Prep ; - goto_V2 = mkV2 gå_V to_Prep ; - record_V2 = dirV2 (partV (regV "spela") "in") ; - make_V2 = dirV2 göra_V ; - - stop_V = regV "stanna" ; - - back_Adv = mkAdv "tillbaka" ; - - what_IAdv = mkIAdv "vad" ; - - previous_Ord = {s = "föregående" ; isDet = False ; lock_Ord = <>} ; - next_Ord = {s = "nästa" ; isDet = False ; lock_Ord = <>} ; - please_PConj = mkPConj "snälla" ; - - next_A = mkA "näst" ; --- not used - previous_A = mkA "föregående" ; --- not used - show_V2Q = mkV2Q (mkV "visa") noPrep ; - tell_V2Q = mkV2Q (mkV "berätta") noPrep ; - - mainmenu_NP = - mkNP the_Quant - (UseN (mk2N "huvudmeny" "huvudmenyer")) ; - - goback_VP = AdvVP (UseV gå_V) back_Adv ; - shutup_VP = UseV (tiga_V) ; - pause_VP = UseV (regV "pausa") ; - resume_VP = UseV (irregV "återupptaga" "återupptog" "återupptagit") ; - - whatever_Utt = mkUtt ["vad som helst"] ; - - typeWithGenre x genre = ----- CompoundCN genre x ; - AdvCN x (PrepNP with_Prep - (mkNP genre)) ; - - name = regPN ; - - WhatName x = mkQCl whatSg_IP x (dirV2 (mk2V "heta" "hette")) ; - - past = <pastTense,simultaneousAnt> ; - - imperative = SyntaxSwe.mkUtt ; - - previous cn = mkNP the_Art cn ; --previous_Ord cn ; - next cn = mkNP the_Art cn ; --next_Ord cn ; - - what_say = UttIP whatSg_IP ; - - all_art = variants {IndefArt ; DefArt} ; - - artist_Prep = variants {by8agent_Prep ; with_Prep} ; - - this cn = variants { - mkNP this_Quant cn ; - mkNP the_Quant - (AdjCN (PositA (regA "nuvarande")) cn) - } ; -} |
