GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 03:32:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

added wiki grammars

Browse Source
This commit is contained in:
aarne
2008-03-04 11:56:12 +00:00
parent b21fe03735
commit bc77ad3163
39 changed files with 4484 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

64
examples/wiki/LexEditorFre.gf Normal file
View File

@@ -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 ;
}