diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-03-04 11:56:12 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-03-04 11:56:12 +0000 |
| commit | bc77ad31639775dbb8201e44d1f8a3c3b8b78852 (patch) | |
| tree | 83654a2fc5e67ebfb8ed8908b7c779b728a4edcf /examples/wiki/LexEditorFre.gf | |
| parent | b21fe037352bbbe55a1d30515c278d21f964bdec (diff) | |
added wiki grammars
Diffstat (limited to 'examples/wiki/LexEditorFre.gf')
| -rw-r--r-- | examples/wiki/LexEditorFre.gf | 64 |
1 files changed, 64 insertions, 0 deletions
diff --git a/examples/wiki/LexEditorFre.gf b/examples/wiki/LexEditorFre.gf new file mode 100644 index 000000000..519d3d7e8 --- /dev/null +++ b/examples/wiki/LexEditorFre.gf @@ -0,0 +1,64 @@ + +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 ; + +} |