From e9e80fc389365e24d4300d7d5390c7d833a96c50 Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 25 Jun 2008 16:54:35 +0000 Subject: changed names of resource-1.3; added a note on homepage on release --- examples/wiki/LexEditorSpa.gf | 67 ------------------------------------------- 1 file changed, 67 deletions(-) delete mode 100644 examples/wiki/LexEditorSpa.gf (limited to 'examples/wiki/LexEditorSpa.gf') diff --git a/examples/wiki/LexEditorSpa.gf b/examples/wiki/LexEditorSpa.gf deleted file mode 100644 index 1e0c8793d..000000000 --- a/examples/wiki/LexEditorSpa.gf +++ /dev/null @@ -1,67 +0,0 @@ - -instance LexEditorSpa of LexEditor = open SyntaxSpa, IrregSpa, ParadigmsSpa in { - - flags coding = utf8 ; - - oper --- Sentences - singleWordCommand_Utt verb = mkUtt (mkVP verb) ; - command_Utt verb det adj noun = mkUtt (mkVP (mkV2 verb) (mkNP det (mkCN adj noun))) ; - randomlyCommand_Utt verb det noun = mkUtt (mkVP (mkAdV "aleatoriamente") (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 = deshacer_V ; --- redo_V = rehacer_V ; - undo_V = mkV "Deshacer" ; - redo_V = mkV "Rehacer" ; - cut_V = mkV "Cortar" ; - copy_V = mkV "Copiar" ; - paste_V = mkV "Pegar" ; - delete_V = mkV "Borrar" ; - refine_V = mkV "Refinar" ; - replace_V = mkV "Reemplazar" ; --- wrap_V = envolver_V ; - wrap_V = mkV "Envolver" ; - select_V = mkV "Seleccionar" ; - enter_V = mkV "Introducir" ; - show_V = mkV "Mostrar" ; - --- Nouns - language_N = mkN "lenguaje" ; - node_N = mkN "nodo" ; - tree_N = mkN "árbol" ; - refinement_N = mkN "refinamiento" ; - wrapper_N = mkN "envoltura" ; - string_N = compN (mkN "cadena") ("de" ++ "caracteres") ; - page_N = mkN "página" ; - danish_N = mkN "Danés" ; - english_N = mkN "Inglés" ; - finnish_N = mkN "Finlandés" ; - french_N = mkN "Francés" ; - german_N = mkN "Alemán" ; - italian_N = mkN "Italiano" ; - norwegian_N = mkN "Noruego" ; - russian_N = mkN "Ruso" ; - spanish_N = mkN "Español" ; - swedish_N = mkN "Sueco" ; - --- Adjectives - noAdj_A = mkA "" ; - available_A = mkA "disponible" ; - next_A = mkA "siguiente" ; - previous_A = mkA "anterior" ; - --- Determiners - defSg_Det = defSgDet ; - defPl_Det = defPlDet ; - indefSg_Det = indefSgDet ; - indefPl_Det = indefPlDet ; - this_Det = mkDet this_QuantSg ; - --- Functions - myMkPN : N -> PN = - \n -> {s = n.s ! singular ; g = n.g ; lock_PN = <>} ; - -} -- cgit v1.2.3