diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-27 09:18:50 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-27 09:18:50 +0000 |
| commit | 5c713d8f027a9b6be687ee3f7e917e8bd2115773 (patch) | |
| tree | 65da19829810b753345a5b2164bef2d8876268dd /old-examples/wiki/LexEditorFin.gf | |
| parent | f7b2a83059697f1b36a6369e489ac276e7ff875d (diff) | |
took away old-examples
Diffstat (limited to 'old-examples/wiki/LexEditorFin.gf')
| -rw-r--r-- | old-examples/wiki/LexEditorFin.gf | 62 |
1 files changed, 0 insertions, 62 deletions
diff --git a/old-examples/wiki/LexEditorFin.gf b/old-examples/wiki/LexEditorFin.gf deleted file mode 100644 index 21bd9ae00..000000000 --- a/old-examples/wiki/LexEditorFin.gf +++ /dev/null @@ -1,62 +0,0 @@ - -instance LexEditorFin of LexEditor = open SyntaxFin, ParadigmsFin in { - --- flags coding = utf8 ; - - oper mkAdV : Str -> AdV = \s -> {s = s ; lock_AdV = <>} ; - - oper --- Sentences - singleWordCommand_Utt verb = mkUtt politeImpForm positivePol (mkImp verb) ; - command_Utt verb det adj noun = mkUtt politeImpForm positivePol (mkImp (mkVP (mkV2 verb) (mkNP det (mkCN adj noun)))) ; - randomlyCommand_Utt verb det noun = mkUtt politeImpForm positivePol (mkImp (mkVP (mkAdV "satunnaisesti") (mkVP (mkV2 verb) (mkNP det noun)))) ; - label_Utt noun = mkUtt (mkNP (mkPN noun)) ; - errorMessage_Utt adj noun = mkUtt (mkS negativePol (mkCl (mkNP indefPlDet (mkCN adj noun)))) ; - --- Verbs - undo_V = mkV "perua" ; - redo_V = mkV "toistaa" ; - cut_V = mkV "leikata" ; - copy_V = mkV "kopioida" ; - paste_V = mkV "liimata" ; - delete_V = mkV "poistaa" ; - refine_V = mkV "hienontaa" ; - replace_V = mkV "korvata" ; - wrap_V = mkV "kääriä" ; - select_V = mkV "valita" ; - enter_V = mkV "lisätä" ; - show_V = mkV "näyttää" ; - --- Nouns - language_N = mkN "kieli" "kieliä" ; - node_N = mkN "solmu" ; - tree_N = mkN "puu" ; - refinement_N = mkN "hienonnus" ; - wrapper_N = mkN "kääre" ; - string_N = mkN "merkkijono" ; - page_N = mkN "sivu" ; - danish_N = mkN "tanska" ; - english_N = mkN "englanti" ; - finnish_N = mkN "suomi" "suomia" ; - french_N = mkN "ranska" ; - german_N = mkN "saksa" ; - italian_N = mkN "italia" ; - norwegian_N = mkN "norja" ; - russian_N = mkN "venäjä" ; - spanish_N = mkN "espanja" ; - swedish_N = mkN "ruotsi" ; - --- Adjectives - noAdj_A = mkA "" ; - available_A = mkA "saatavillaoleva" ; - next_A = mkA "seuraava" ; - previous_A = mkA "edellinen" ; - --- Determiners - defSg_Det = defSgDet ; - defPl_Det = defPlDet ; - indefSg_Det = indefSgDet ; - indefPl_Det = indefPlDet ; - this_Det = mkDet this_QuantSg ; - -} |
