diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-25 16:54:35 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-25 16:54:35 +0000 |
| commit | e9e80fc389365e24d4300d7d5390c7d833a96c50 (patch) | |
| tree | f0b58473adaa670bd8fc52ada419d8cad470ee03 /examples/wiki/LexEditorFre.gf | |
| parent | b96b36f43de3e2f8b58d5f539daa6f6d47f25870 (diff) | |
changed names of resource-1.3; added a note on homepage on release
Diffstat (limited to 'examples/wiki/LexEditorFre.gf')
| -rw-r--r-- | examples/wiki/LexEditorFre.gf | 64 |
1 files changed, 0 insertions, 64 deletions
diff --git a/examples/wiki/LexEditorFre.gf b/examples/wiki/LexEditorFre.gf deleted file mode 100644 index 519d3d7e8..000000000 --- a/examples/wiki/LexEditorFre.gf +++ /dev/null @@ -1,64 +0,0 @@ - -instance LexEditorFre of LexEditor = open SyntaxFre, ParadigmsFre, IrregFre in { - --- flags coding = utf8 ; - - oper --- - mkAdV : Str -> AdV = \s -> {s = s ; lock_AdV = <>} ; - myMkPN : N -> PN = \n -> {s = n.s ! singular ; g = n.g ; lock_PN = <>} ; - - 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 "aléatoirement") (mkVP (mkV2 verb) (mkNP det noun)))) ; - label_Utt noun = mkUtt (mkNP (myMkPN noun)) ; - errorMessage_Utt adj noun = mkUtt (mkS negativePol (mkCl (mkNP indefPlDet (mkCN adj noun)))) ; - --- Verbs - undo_V = défaire_V2 ; - redo_V = refaire_V2 ; - cut_V = mkV "couper" ; - copy_V = mkV "copier" ; - paste_V = mkV "coller" ; - delete_V = détruire_V2 ; - refine_V = mkV "raffiner" ; - replace_V = mkV "remplacer" ; - wrap_V = mkV "emballer" ; - select_V = mkV "selectionner" ; - enter_V = mkV "ajouter" ; - show_V = mkV "montrer" ; - --- Nouns - language_N = mkN "langue" ; - node_N = mkN "noeud" ; - tree_N = mkN "arbre" masculine ; - refinement_N = mkN "raffinement" ; - wrapper_N = mkN "emballage" masculine ; - string_N = mkN "chaîne" ; - page_N = mkN "page" ; - danish_N = mkN "danois" ; - english_N = mkN "anglais" ; - finnish_N = mkN "finnois" ; - french_N = mkN "français" ; - german_N = mkN "allemand" ; - italian_N = mkN "italien" ; - norwegian_N = mkN "norvégien" ; - russian_N = mkN "russe" ; - spanish_N = mkN "espagnol" ; - swedish_N = mkN "suédois" ; - --- Adjectives - noAdj_A = mkA "" "" "" "" ; - available_A = mkA "disponible" ; - next_A = mkA "prochaine" ; - previous_A = mkA "précédent" ; - --- Determiners - defSg_Det = defSgDet ; - defPl_Det = defPlDet ; - indefSg_Det = indefSgDet ; - indefPl_Det = indefPlDet ; - this_Det = mkDet this_QuantSg ; - -} |
