forked from GitHub/gf-core
added wiki grammars
This commit is contained in:
68
examples/wiki/Editor.gf
Normal file
68
examples/wiki/Editor.gf
Normal file
@@ -0,0 +1,68 @@
|
||||
|
||||
abstract Editor = {
|
||||
|
||||
flags startcat = Sentence ;
|
||||
coding = utf8 ;
|
||||
|
||||
cat
|
||||
Sentence ;
|
||||
Verb ;
|
||||
Noun ;
|
||||
Adjective ;
|
||||
Determiner ;
|
||||
|
||||
fun
|
||||
-- Sentences
|
||||
SingleWordCommand : Verb -> Sentence ;
|
||||
Command : Verb -> Determiner -> Adjective -> Noun -> Sentence ;
|
||||
RandomlyCommand : Verb -> Determiner -> Noun -> Sentence ;
|
||||
Label : Noun -> Sentence ;
|
||||
ErrorMessage : Adjective -> Noun -> Sentence ;
|
||||
|
||||
-- Verbs
|
||||
Undo : Verb ;
|
||||
Redo : Verb ;
|
||||
Cut : Verb ;
|
||||
Copy : Verb ;
|
||||
Paste : Verb ;
|
||||
Delete : Verb ;
|
||||
Refine : Verb ;
|
||||
Replace : Verb ;
|
||||
Wrap : Verb ;
|
||||
Select : Verb ;
|
||||
Enter : Verb ;
|
||||
Show : Verb ;
|
||||
|
||||
-- Nouns
|
||||
Language : Noun ;
|
||||
Node : Noun ;
|
||||
Tree : Noun ;
|
||||
Refinement : Noun ;
|
||||
Wrapper : Noun ;
|
||||
String : Noun ;
|
||||
Page : Noun ;
|
||||
Danish : Noun ;
|
||||
English : Noun ;
|
||||
Finnish : Noun ;
|
||||
French : Noun ;
|
||||
German : Noun ;
|
||||
Italian : Noun ;
|
||||
Norwegian : Noun ;
|
||||
Russian : Noun ;
|
||||
Spanish : Noun ;
|
||||
Swedish : Noun ;
|
||||
|
||||
-- Adjectives
|
||||
NoAdj : Adjective ;
|
||||
Available : Adjective ;
|
||||
Next : Adjective ;
|
||||
Previous : Adjective ;
|
||||
|
||||
-- Determiners
|
||||
DefSgDet : Determiner ;
|
||||
DefPlDet : Determiner ;
|
||||
IndefSgDet : Determiner ;
|
||||
IndefPlDet : Determiner ;
|
||||
This : Determiner ;
|
||||
|
||||
}
|
||||
7
examples/wiki/EditorEng.gf
Normal file
7
examples/wiki/EditorEng.gf
Normal file
@@ -0,0 +1,7 @@
|
||||
|
||||
--# -path=.:present:prelude
|
||||
|
||||
concrete EditorEng of Editor = EditorI with
|
||||
|
||||
(Syntax = SyntaxEng),
|
||||
(LexEditor = LexEditorEng) ;
|
||||
7
examples/wiki/EditorFin.gf
Normal file
7
examples/wiki/EditorFin.gf
Normal file
@@ -0,0 +1,7 @@
|
||||
|
||||
--# -path=.:present:prelude
|
||||
|
||||
concrete EditorFin of Editor = EditorI with
|
||||
|
||||
(Syntax = SyntaxFin),
|
||||
(LexEditor = LexEditorFin) ;
|
||||
7
examples/wiki/EditorFre.gf
Normal file
7
examples/wiki/EditorFre.gf
Normal file
@@ -0,0 +1,7 @@
|
||||
|
||||
--# -path=.:present:prelude
|
||||
|
||||
concrete EditorFre of Editor = EditorI with
|
||||
|
||||
(Syntax = SyntaxFre),
|
||||
(LexEditor = LexEditorFre) ;
|
||||
69
examples/wiki/EditorI.gf
Normal file
69
examples/wiki/EditorI.gf
Normal file
@@ -0,0 +1,69 @@
|
||||
|
||||
--# -path=.=present=prelude
|
||||
|
||||
incomplete concrete EditorI of Editor = open Syntax, LexEditor in {
|
||||
|
||||
flags coding = utf8 ;
|
||||
|
||||
lincat
|
||||
Sentence = Utt ;
|
||||
Verb = V ;
|
||||
Noun = N ;
|
||||
Adjective = A ;
|
||||
Determiner = Det ;
|
||||
|
||||
lin
|
||||
-- Sentences
|
||||
SingleWordCommand verb = singleWordCommand_Utt verb ;
|
||||
Command verb det adj noun = command_Utt verb det adj noun ;
|
||||
RandomlyCommand verb det noun = randomlyCommand_Utt verb det noun ;
|
||||
Label noun = label_Utt noun ;
|
||||
ErrorMessage adj noun = errorMessage_Utt adj noun ;
|
||||
|
||||
-- Verbs
|
||||
Undo = undo_V ;
|
||||
Redo = redo_V ;
|
||||
Cut = cut_V ;
|
||||
Copy = copy_V ;
|
||||
Paste = paste_V ;
|
||||
Delete = delete_V ;
|
||||
Refine = refine_V ;
|
||||
Replace = replace_V ;
|
||||
Wrap = wrap_V ;
|
||||
Select = select_V ;
|
||||
Enter = enter_V ;
|
||||
Show = show_V ;
|
||||
|
||||
-- Nouns
|
||||
Language = language_N ;
|
||||
Node = node_N ;
|
||||
Tree = tree_N ;
|
||||
Refinement = refinement_N ;
|
||||
Wrapper = wrapper_N ;
|
||||
String = string_N ;
|
||||
Page = page_N ;
|
||||
Danish = danish_N ;
|
||||
English = english_N ;
|
||||
Finnish = finnish_N ;
|
||||
French = french_N ;
|
||||
German = german_N ;
|
||||
Italian = italian_N ;
|
||||
Norwegian = norwegian_N ;
|
||||
Russian = russian_N ;
|
||||
Spanish = spanish_N ;
|
||||
Swedish = swedish_N ;
|
||||
|
||||
-- Adjectives
|
||||
NoAdj = noAdj_A ;
|
||||
Available = available_A ;
|
||||
Next = next_A ;
|
||||
Previous = previous_A ;
|
||||
|
||||
-- Determiners
|
||||
DefSgDet = defSg_Det ;
|
||||
DefPlDet = defPl_Det ;
|
||||
IndefSgDet = indefSg_Det ;
|
||||
IndefPlDet = indefPl_Det ;
|
||||
This = this_Det ;
|
||||
|
||||
}
|
||||
7
examples/wiki/EditorSpa.gf
Normal file
7
examples/wiki/EditorSpa.gf
Normal file
@@ -0,0 +1,7 @@
|
||||
|
||||
--# -path=.:present:prelude
|
||||
|
||||
concrete EditorSpa of Editor = EditorI with
|
||||
|
||||
(Syntax = SyntaxSpa),
|
||||
(LexEditor = LexEditorSpa) ;
|
||||
7
examples/wiki/EditorSwe.gf
Normal file
7
examples/wiki/EditorSwe.gf
Normal file
@@ -0,0 +1,7 @@
|
||||
|
||||
--# -path=.:present:prelude
|
||||
|
||||
concrete EditorSwe of Editor = EditorI with
|
||||
|
||||
(Syntax = SyntaxSwe),
|
||||
(LexEditor = LexEditorSwe) ;
|
||||
58
examples/wiki/LexEditor.gf
Normal file
58
examples/wiki/LexEditor.gf
Normal file
@@ -0,0 +1,58 @@
|
||||
|
||||
interface LexEditor = open Syntax in {
|
||||
|
||||
oper
|
||||
-- Sentences
|
||||
singleWordCommand_Utt : V -> Utt ;
|
||||
command_Utt : V -> Det -> A -> N -> Utt ;
|
||||
randomlyCommand_Utt : V -> Det -> N -> Utt ;
|
||||
label_Utt : N -> Utt ;
|
||||
errorMessage_Utt : A -> N -> Utt ;
|
||||
|
||||
-- Verbs
|
||||
undo_V : V ;
|
||||
redo_V : V ;
|
||||
cut_V : V ;
|
||||
copy_V : V ;
|
||||
paste_V : V ;
|
||||
delete_V : V ;
|
||||
refine_V : V ;
|
||||
replace_V : V ;
|
||||
wrap_V : V ;
|
||||
select_V : V ;
|
||||
enter_V : V ;
|
||||
show_V : V ;
|
||||
|
||||
-- Nouns
|
||||
language_N : N ;
|
||||
node_N : N ;
|
||||
tree_N : N ;
|
||||
refinement_N : N ;
|
||||
wrapper_N : N ;
|
||||
string_N : N ;
|
||||
page_N : N ;
|
||||
danish_N : N ;
|
||||
english_N : N ;
|
||||
finnish_N : N ;
|
||||
french_N : N ;
|
||||
german_N : N ;
|
||||
italian_N : N ;
|
||||
norwegian_N : N ;
|
||||
russian_N : N ;
|
||||
spanish_N : N ;
|
||||
swedish_N : N ;
|
||||
|
||||
-- Adjectives
|
||||
noAdj_A : A ;
|
||||
available_A : A ;
|
||||
next_A : A ;
|
||||
previous_A : A ;
|
||||
|
||||
-- Determiners
|
||||
defSg_Det : Det ;
|
||||
defPl_Det : Det ;
|
||||
indefSg_Det : Det ;
|
||||
indefPl_Det : Det ;
|
||||
this_Det : Det ;
|
||||
|
||||
}
|
||||
60
examples/wiki/LexEditorEng.gf
Normal file
60
examples/wiki/LexEditorEng.gf
Normal file
@@ -0,0 +1,60 @@
|
||||
|
||||
instance LexEditorEng of LexEditor = open SyntaxEng, ParadigmsEng in {
|
||||
|
||||
flags coding = utf8 ;
|
||||
|
||||
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 "Randomly") (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 "Undo" ;
|
||||
redo_V = mkV "Redo" ;
|
||||
cut_V = mkV "Cut" ;
|
||||
copy_V = mkV "Copy" ;
|
||||
paste_V = mkV "Paste" ;
|
||||
delete_V = mkV "Delete" ;
|
||||
refine_V = mkV "Refine" ;
|
||||
replace_V = mkV "Replace" ;
|
||||
wrap_V = mkV "Wrap" ;
|
||||
select_V = mkV "Select" ;
|
||||
enter_V = mkV "Enter" ;
|
||||
show_V = mkV "Show" ;
|
||||
|
||||
-- Nouns
|
||||
language_N = mkN "language" ;
|
||||
node_N = mkN "node" ;
|
||||
tree_N = mkN "tree" ;
|
||||
refinement_N = mkN "refinement" ;
|
||||
wrapper_N = mkN "wrapper" ;
|
||||
string_N = mkN "string" ;
|
||||
page_N = mkN "page" ;
|
||||
danish_N = mkN "Danish" "Danish" ;
|
||||
english_N = mkN "English" "English" ;
|
||||
finnish_N = mkN "Finnish" "Finnish" ;
|
||||
french_N = mkN "French" "French" ;
|
||||
german_N = mkN "German" "German" ;
|
||||
italian_N = mkN "Italian" "Italian" ;
|
||||
norwegian_N = mkN "Norwegian" "Norwegian" ;
|
||||
russian_N = mkN "Russian" "Russian" ;
|
||||
spanish_N = mkN "Spanish" "Spanish" ;
|
||||
swedish_N = mkN "Swedish" "Swedish" ;
|
||||
|
||||
-- Adjectives
|
||||
noAdj_A = mkA "" ;
|
||||
available_A = mkA "available" ;
|
||||
next_A = mkA "next" ;
|
||||
previous_A = mkA "previous" ;
|
||||
|
||||
-- Determiners
|
||||
defSg_Det = defSgDet ;
|
||||
defPl_Det = defPlDet ;
|
||||
indefSg_Det = indefSgDet ;
|
||||
indefPl_Det = indefPlDet ;
|
||||
this_Det = mkDet this_QuantSg ;
|
||||
|
||||
}
|
||||
62
examples/wiki/LexEditorFin.gf
Normal file
62
examples/wiki/LexEditorFin.gf
Normal file
@@ -0,0 +1,62 @@
|
||||
|
||||
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 ;
|
||||
|
||||
}
|
||||
64
examples/wiki/LexEditorFre.gf
Normal file
64
examples/wiki/LexEditorFre.gf
Normal 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 ;
|
||||
|
||||
}
|
||||
67
examples/wiki/LexEditorSpa.gf
Normal file
67
examples/wiki/LexEditorSpa.gf
Normal file
@@ -0,0 +1,67 @@
|
||||
|
||||
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 = <>} ;
|
||||
|
||||
}
|
||||
60
examples/wiki/LexEditorSwe.gf
Normal file
60
examples/wiki/LexEditorSwe.gf
Normal file
@@ -0,0 +1,60 @@
|
||||
|
||||
instance LexEditorSwe of LexEditor = open SyntaxSwe, IrregSwe, ParadigmsSwe in {
|
||||
|
||||
flags coding = utf8 ;
|
||||
|
||||
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 "slumpmässigt") (mkVP (mkV2 verb) (mkNP det noun)))) ;
|
||||
label_Utt noun = mkUtt (mkNP (nounPN noun)) ;
|
||||
errorMessage_Utt adj noun = mkUtt (mkS negativePol (mkCl (mkNP indefPlDet (mkCN adj noun)))) ;
|
||||
|
||||
-- Verbs
|
||||
undo_V = mkV "Ångrar" ;
|
||||
redo_V = mkV "Upprepar" ;
|
||||
cut_V = mkV (mkV "Klipper") "ut" ;
|
||||
copy_V = mkV "Kopierar" ;
|
||||
paste_V = mkV (mkV "Klistrar") "in" ;
|
||||
delete_V = mkV "Raderar" ;
|
||||
refine_V = mkV "Raffinerar" ; -- FIX!!!
|
||||
replace_V = mkV "Ersätter" ;
|
||||
wrap_V = mkV "Förpackar" ; -- FIX!!!
|
||||
select_V = mkV "Väljer" ;
|
||||
enter_V = mkV "Skriver" ;
|
||||
show_V = mkV "Visar" ;
|
||||
|
||||
-- Nouns
|
||||
language_N = mkN "språk" "språket" "språk" "språken" ;
|
||||
node_N = mkN "nod" ;
|
||||
tree_N = mkN "träd" "trädet" "träd" "träden" ;
|
||||
refinement_N = mkN "raffinemang" ;
|
||||
wrapper_N = mkN "förpackning" ;
|
||||
string_N = mkN "sträng" ;
|
||||
page_N = mkN "sida" ;
|
||||
danish_N = mkN "Danska" ;
|
||||
english_N = mkN "Engelska" ;
|
||||
finnish_N = mkN "Finska" ;
|
||||
french_N = mkN "Franska" ;
|
||||
german_N = mkN "Tyska" ;
|
||||
italian_N = mkN "Italienska" ;
|
||||
norwegian_N = mkN "Norska" ;
|
||||
russian_N = mkN "Ryska" ;
|
||||
spanish_N = mkN "Spanska" ;
|
||||
swedish_N = mkN "Svenska" ;
|
||||
|
||||
-- Adjectives
|
||||
noAdj_A = mkA "" ;
|
||||
available_A = mkA "tillgänglig" ;
|
||||
next_A = mkA "näst" ;
|
||||
previous_A = mkA "föregående" ;
|
||||
|
||||
-- Determiners
|
||||
defSg_Det = defSgDet ;
|
||||
defPl_Det = defPlDet ;
|
||||
indefSg_Det = indefSgDet ;
|
||||
indefPl_Det = indefPlDet ;
|
||||
this_Det = mkDet this_QuantSg ;
|
||||
|
||||
}
|
||||
66
examples/wiki/LexRestaurant.gf
Normal file
66
examples/wiki/LexRestaurant.gf
Normal file
@@ -0,0 +1,66 @@
|
||||
|
||||
interface LexRestaurant = open Syntax in {
|
||||
|
||||
oper
|
||||
restaurant_N : N ;
|
||||
food_N : N ;
|
||||
staff_N : N ;
|
||||
wine_N : N ;
|
||||
pizza_N : N ;
|
||||
cheese_N : N ;
|
||||
fish_N : N ;
|
||||
dish_N : N ;
|
||||
drink_N : N ;
|
||||
dessert_N : N ;
|
||||
|
||||
recommend_V2 : V2 ;
|
||||
|
||||
chinese_A : A ;
|
||||
french_A : A ;
|
||||
italian_A : A ;
|
||||
japanese_A : A ;
|
||||
mexican_A : A ;
|
||||
thai_A : A ;
|
||||
expensive_A : A ;
|
||||
cheap_A : A ;
|
||||
nice_A : A ;
|
||||
clean_A : A ;
|
||||
dirty_A : A ;
|
||||
fresh_A : A ;
|
||||
delicious_A : A ;
|
||||
fatty_A : A ;
|
||||
tasteless_A : A ;
|
||||
authentic_A : A ;
|
||||
efficient_A : A ;
|
||||
courteous_A : A ;
|
||||
helpful_A : A ;
|
||||
friendly_A : A ;
|
||||
personal_A : A ;
|
||||
warm_A : A ;
|
||||
prompt_A : A ;
|
||||
attentive_A : A ;
|
||||
inefficient_A : A ;
|
||||
rude_A : A ;
|
||||
impersonal_A : A ;
|
||||
slow_A : A ;
|
||||
unattentive_A : A ;
|
||||
good_A : A ;
|
||||
great_A : A ;
|
||||
excellent_A : A ;
|
||||
bad_A : A ;
|
||||
awful_A : A ;
|
||||
horrible_A : A ;
|
||||
disgusting_A : A ;
|
||||
boring_A : A ;
|
||||
diverse_A : A ;
|
||||
|
||||
noAdv_AdV : AdV ;
|
||||
strongly_AdV : AdV ;
|
||||
completely_AdV : AdV ;
|
||||
certainly_AdV : AdV ;
|
||||
honestly_AdV : AdV ;
|
||||
really_AdV : AdV ;
|
||||
reluctantly_AdV : AdV ;
|
||||
hardly_AdV : AdV ;
|
||||
|
||||
}
|
||||
68
examples/wiki/LexRestaurantEng.gf
Normal file
68
examples/wiki/LexRestaurantEng.gf
Normal file
@@ -0,0 +1,68 @@
|
||||
|
||||
instance LexRestaurantEng of LexRestaurant = open SyntaxEng,GrammarEng,ParadigmsEng in {
|
||||
|
||||
oper
|
||||
restaurant_N = mkN "restaurant" ;
|
||||
food_N = mkN "food" ;
|
||||
staff_N = variants {mkN "staff" ; mkN "service"} ;
|
||||
wine_N = mkN "wine" ;
|
||||
pizza_N = mkN "pizza" ;
|
||||
cheese_N = mkN "cheese" ;
|
||||
fish_N = mkN "fish" "fish" ;
|
||||
dish_N = mkN "dish" ;
|
||||
drink_N = mkN "drink" ;
|
||||
dessert_N = mkN "dessert" ;
|
||||
|
||||
recommend_V2 = mkV2 (mkV "recommend") ;
|
||||
|
||||
chinese_A = mkA "chinese" ;
|
||||
french_A = mkA "french" ;
|
||||
italian_A = mkA "italian" ;
|
||||
japanese_A = mkA "japanese" ;
|
||||
mexican_A = mkA "mexican" ;
|
||||
thai_A = mkA "thai" ;
|
||||
expensive_A = mkA "expensive" ;
|
||||
cheap_A = mkA "cheap" ;
|
||||
nice_A = mkA "nice" ;
|
||||
clean_A = mkA "clean" ;
|
||||
dirty_A = mkA "dirty" ;
|
||||
fresh_A = mkA "fresh" ;
|
||||
delicious_A = variants {mkA "delicious"; mkA "exquisit"; mkA "tasty"} ;
|
||||
fatty_A = mkA "fatty" ;
|
||||
tasteless_A = variants {mkA "tasteless"; mkA "flavorless"; mkA "bland"} ;
|
||||
authentic_A = mkA "authentic" ;
|
||||
efficient_A = mkA "efficient" ;
|
||||
courteous_A = mkA "courteous" ;
|
||||
helpful_A = mkA "helpful" ;
|
||||
friendly_A = mkA "friendly" ;
|
||||
personal_A = mkA "personal" ;
|
||||
warm_A = mkA "warm" ;
|
||||
prompt_A = mkA "prompt" ;
|
||||
attentive_A = mkA "attentive" ;
|
||||
inefficient_A = variants {mkA "inefficient" ; mkA "incompetent"} ;
|
||||
rude_A = variants {mkA "rude" ; mkA "discourteous"} ;
|
||||
impersonal_A = variants {mkA "impersonal" ; mkA "cold"} ;
|
||||
slow_A = mkA "slow" ;
|
||||
unattentive_A = mkA "unattentive" ;
|
||||
good_A = mkA "good" "better" "best" "well" ;
|
||||
great_A = mkA "great" ;
|
||||
excellent_A = mkA "excellent" ;
|
||||
bad_A = mkA "bad" ;
|
||||
awful_A = mkA "awful" ;
|
||||
horrible_A = variants {mkA "horrible" ; mkA "dreadful"} ;
|
||||
disgusting_A = variants {mkA "disgusting"; mkA "gross"} ;
|
||||
boring_A = mkA "boring" ;
|
||||
diverse_A = mkA "diverse" ;
|
||||
|
||||
noAdv_AdV = mkAdV "" ;
|
||||
strongly_AdV = mkAdV "strongly" ;
|
||||
completely_AdV = mkAdV (variants {"completely"; "totally"; "definitely"; "absolutely"}) ;
|
||||
certainly_AdV = mkAdV "certainly" ;
|
||||
honestly_AdV = mkAdV "honestly" ;
|
||||
really_AdV = mkAdV (variants {"really"; "truly"}) ;
|
||||
reluctantly_AdV = mkAdV "reluctantly" ;
|
||||
hardly_AdV = mkAdV "hardly" ;
|
||||
|
||||
-- but_Conj = ss "but" ** {n = Pl} ;
|
||||
|
||||
}
|
||||
70
examples/wiki/LexRestaurantFin.gf
Normal file
70
examples/wiki/LexRestaurantFin.gf
Normal file
@@ -0,0 +1,70 @@
|
||||
|
||||
instance LexRestaurantFin of LexRestaurant = open SyntaxFin,GrammarFin,ParadigmsFin in {
|
||||
|
||||
oper
|
||||
restaurant_N = mkN "ravintola" ;
|
||||
food_N = mkN "ruoka" ;
|
||||
staff_N = mkN "henkilökunta" ;
|
||||
wine_N = mkN "viini" ;
|
||||
pizza_N = mkN "pizza" ;
|
||||
cheese_N = mkN "juusto" ;
|
||||
fish_N = mkN "kala" ;
|
||||
dish_N = mkN "ruokalaji" ;
|
||||
drink_N = mkN "juoma" ;
|
||||
dessert_N = mkN "jälkiruoka" ;
|
||||
|
||||
recommend_V2 = mkV2 (mkV "suositella") ;
|
||||
|
||||
chinese_A = mkA "kiinalainen" ;
|
||||
french_A = mkA "ranskalainen" ;
|
||||
italian_A = mkA "italialainen" ;
|
||||
japanese_A = mkA "japanilainen" ;
|
||||
mexican_A = mkA "meksikolainen" ;
|
||||
thai_A = mkA "thaimaalainen" ;
|
||||
expensive_A = mkA "kallis" ;
|
||||
cheap_A = mkA "halpa" ;
|
||||
nice_A = mkA "mukava" ;
|
||||
clean_A = mkA "siisti" ;
|
||||
dirty_A = mkA "likainen" ;
|
||||
fresh_A = mkA "raikas" ;
|
||||
delicious_A = mkA "herkullinen" ;
|
||||
fatty_A = mkA "rasvainen" ;
|
||||
tasteless_A = mkA "mauton";
|
||||
authentic_A = mkA "autenttinen" ;
|
||||
efficient_A = mkA "tehokas" ;
|
||||
courteous_A = mkA "kohtelias" ;
|
||||
helpful_A = mkA "avulias" ;
|
||||
friendly_A = mkA "ystävällinen" ;
|
||||
personal_A = mkA "persoonallinen" ;
|
||||
warm_A = mkA "lämmin" ;
|
||||
prompt_A = mkA "nopea" ;
|
||||
attentive_A = mkA "valpas" ;
|
||||
inefficient_A = mkA "tehoton" ;
|
||||
rude_A = mkA "tyly" ;
|
||||
impersonal_A = mkA "persoonaton" ;
|
||||
slow_A = mkA "hidas" ;
|
||||
unattentive_A = mkA "unelias" ;
|
||||
good_A = mkA "hyvä" ;
|
||||
great_A = mkA "upea" ;
|
||||
excellent_A = mkA "erinomainen" ;
|
||||
bad_A = mkA "huono" ;
|
||||
awful_A = mkA "kamala" ;
|
||||
horrible_A = mkA "kauhea" ;
|
||||
disgusting_A = mkA "vastenmielinen" ;
|
||||
boring_A = mkA "tylsä" ;
|
||||
diverse_A = mkA "erilainen" ;
|
||||
|
||||
noAdv_AdV = mkAdV "" ;
|
||||
strongly_AdV = mkAdV "vahvasti" ;
|
||||
completely_AdV = mkAdV "täysin";
|
||||
certainly_AdV = mkAdV "varmasti" ;
|
||||
honestly_AdV = mkAdV "vilpittömästi" ;
|
||||
really_AdV = mkAdV "todella" ;
|
||||
reluctantly_AdV = mkAdV "vastahakoisesti" ;
|
||||
hardly_AdV = mkAdV "tuskin" ;
|
||||
|
||||
-- but_Conj = ss "vaan" ** {n = Pl} ;
|
||||
|
||||
oper mkAdV : Str -> AdV = \s -> {s = s ; lock_AdV = <>} ;
|
||||
|
||||
}
|
||||
70
examples/wiki/LexRestaurantFre.gf
Normal file
70
examples/wiki/LexRestaurantFre.gf
Normal file
@@ -0,0 +1,70 @@
|
||||
|
||||
instance LexRestaurantFre of LexRestaurant = open SyntaxFre,GrammarFre,ParadigmsFre in {
|
||||
|
||||
oper
|
||||
restaurant_N = mkN "restaurant" ;
|
||||
food_N = mkN "manger" ;
|
||||
staff_N = mkN "personnel" ;
|
||||
wine_N = mkN "vin" ;
|
||||
pizza_N = mkN "pizza" feminine ;
|
||||
cheese_N = mkN "fromage" masculine ;
|
||||
fish_N = mkN "poisson" ;
|
||||
dish_N = mkN "plat" ;
|
||||
drink_N = mkN "boisson" feminine ;
|
||||
dessert_N = mkN "dessert" ;
|
||||
|
||||
recommend_V2 = mkV2 (mkV "recommander") ;
|
||||
|
||||
chinese_A = mkA "chinois" ;
|
||||
french_A = mkA "français" ;
|
||||
italian_A = mkA "italien" ;
|
||||
japanese_A = mkA "japonais" ;
|
||||
mexican_A = mkA "mexicain" ;
|
||||
thai_A = mkA "thaïlandais" ;
|
||||
expensive_A = mkA "cher" ;
|
||||
cheap_A = mkA ["bon marché"] ["bon marché"] ["bon marché"] ["bon marché"] ;
|
||||
nice_A = mkA "agréable" ;
|
||||
clean_A = mkA "propre" ;
|
||||
dirty_A = mkA "sale" ;
|
||||
fresh_A = mkA "frais" "fraîche" "frais" "fraîches" ;
|
||||
delicious_A = mkA "délicieux" ;
|
||||
fatty_A = mkA "gras" "grasse" "gras" "grasses" ;
|
||||
tasteless_A = mkA "fade";
|
||||
authentic_A = mkA "authentique" ;
|
||||
efficient_A = mkA "efficace" ;
|
||||
courteous_A = mkA "poli" ;
|
||||
helpful_A = mkA "obligeant" ;
|
||||
friendly_A = mkA "amical" ;
|
||||
personal_A = mkA "personnel" ;
|
||||
warm_A = mkA "chaud" ;
|
||||
prompt_A = mkA "rapide" ;
|
||||
attentive_A = mkA "attentif" ;
|
||||
inefficient_A = mkA "inefficace" ;
|
||||
rude_A = mkA "rude" ;
|
||||
impersonal_A = mkA "impersonnel" ;
|
||||
slow_A = mkA "lent" ;
|
||||
unattentive_A = mkA "inattentif" ;
|
||||
good_A = mkA "bon" "bonne" ;
|
||||
great_A = mkA "magnifique" ;
|
||||
excellent_A = mkA "excellent" ;
|
||||
bad_A = mkA "mauveux" ;
|
||||
awful_A = mkA "affreux" ;
|
||||
horrible_A = mkA "horrible" ;
|
||||
disgusting_A = mkA "dégoûtant" ;
|
||||
boring_A = mkA "ennuyeux" ;
|
||||
diverse_A = mkA "divers" ;
|
||||
|
||||
noAdv_AdV = mkAdV "" ;
|
||||
strongly_AdV = mkAdV "fortement" ;
|
||||
completely_AdV = mkAdV "complètement";
|
||||
certainly_AdV = mkAdV "certainement" ;
|
||||
honestly_AdV = mkAdV "honnêtement" ;
|
||||
really_AdV = mkAdV "vraiment" ;
|
||||
reluctantly_AdV = mkAdV ["avec réticence"] ;
|
||||
hardly_AdV = mkAdV ["à peine"] ;
|
||||
|
||||
-- but_Conj = ss "mais" ** {n = Pl} ;
|
||||
|
||||
oper mkAdV : Str -> AdV = \s -> {s = s ; lock_AdV = <>} ;
|
||||
|
||||
}
|
||||
68
examples/wiki/LexRestaurantSpa.gf
Normal file
68
examples/wiki/LexRestaurantSpa.gf
Normal file
@@ -0,0 +1,68 @@
|
||||
|
||||
instance LexRestaurantSpa of LexRestaurant = open SyntaxSpa,GrammarSpa,ParadigmsSpa in {
|
||||
|
||||
flags encoding = utf8 ;
|
||||
|
||||
oper
|
||||
restaurant_N = mkN "restaurante" ;
|
||||
food_N = mkN "comida" ;
|
||||
staff_N = variants {mkN "personal" ; mkN "servicio"} ;
|
||||
wine_N = mkN "vino" ;
|
||||
pizza_N = mkN "pizza" ;
|
||||
cheese_N = mkN "queso" ;
|
||||
fish_N = mkN "pescado" ;
|
||||
dish_N = mkN "platillo" ;
|
||||
drink_N = mkN "bebida" ;
|
||||
dessert_N = mkN "postre" ;
|
||||
|
||||
recommend_V2 = mkV2 (mkV "recomendar" "recomiendo") ;
|
||||
|
||||
chinese_A = mkA "chino" ;
|
||||
french_A = mkA "francés" "francesa" "franceses" "francesas" "francesamente";
|
||||
italian_A = mkA "italiano" ;
|
||||
japanese_A = mkA "japonés" ;
|
||||
mexican_A = mkA "mexicano" ;
|
||||
thai_A = mkA "tailandés" "tailandesa" "tailandeses" "tailandesas" "tailandesamente";
|
||||
expensive_A = mkA "caro" ;
|
||||
cheap_A = mkA "barato" ;
|
||||
nice_A = mkA "agradable" ;
|
||||
clean_A = mkA "limpio" ;
|
||||
dirty_A = mkA "sucio" ;
|
||||
fresh_A = mkA "fresco" ;
|
||||
delicious_A = variants {mkA "delicioso"; mkA "exquisito"; mkA "sabroso"} ;
|
||||
fatty_A = mkA "grasoso" ;
|
||||
tasteless_A = variants {mkA "insípido"; mkA "insulso"} ;
|
||||
authentic_A = mkA "auténtico" ;
|
||||
efficient_A = mkA "eficiente" ;
|
||||
courteous_A = mkA "cortés" ;
|
||||
helpful_A = mkA "servicial" ;
|
||||
friendly_A = mkA "amigable" ;
|
||||
personal_A = mkA "personal" ;
|
||||
warm_A = mkA "cálido" ;
|
||||
prompt_A = mkA "rápido" ;
|
||||
attentive_A = mkA "atento" ;
|
||||
inefficient_A = variants {mkA "ineficiente" ; mkA "incompetente"} ;
|
||||
rude_A = variants {mkA "grosero" ; mkA "descortés"} ;
|
||||
impersonal_A = variants {mkA "impersonal" ; mkA "frío"} ;
|
||||
slow_A = mkA "lento" ;
|
||||
unattentive_A = mkA "desatento" ;
|
||||
good_A = mkA "bueno" ;
|
||||
great_A = mkA "magnífico" ;
|
||||
excellent_A = mkA "excelente" ;
|
||||
bad_A = mkA "malo" ;
|
||||
awful_A = mkA "terrible" ;
|
||||
horrible_A = variants {mkA "horrible" ; mkA "espantoso"} ;
|
||||
disgusting_A = mkA "repugnante" ;
|
||||
boring_A = mkA "aburrido" ;
|
||||
diverse_A = mkA "variado" ;
|
||||
|
||||
noAdv_AdV = mkAdV "" ;
|
||||
strongly_AdV = mkAdV "enfáticamente" ;
|
||||
completely_AdV = mkAdV (variants {"completamente"; "totalmente"; "definitivamente"; "absolutamente"}) ;
|
||||
certainly_AdV = mkAdV "ciertamente" ;
|
||||
honestly_AdV = mkAdV "honestamente" ;
|
||||
really_AdV = mkAdV (variants {"realmente"; "verdaderamente"}) ;
|
||||
reluctantly_AdV = mkAdV ("a" ++ "regañadientes") ;
|
||||
hardly_AdV = mkAdV "difícilmente" ;
|
||||
|
||||
}
|
||||
68
examples/wiki/LexRestaurantSwe.gf
Normal file
68
examples/wiki/LexRestaurantSwe.gf
Normal file
@@ -0,0 +1,68 @@
|
||||
|
||||
instance LexRestaurantSwe of LexRestaurant = open SyntaxSwe,GrammarSwe,ParadigmsSwe in {
|
||||
|
||||
flags encoding = utf8 ;
|
||||
|
||||
oper
|
||||
restaurant_N = mkN "restaurang" ;
|
||||
food_N = mkN "mat" ;
|
||||
staff_N = variants {mkN "personal" ; mkN "betjäning"} ;
|
||||
wine_N = mkN "vin" "vinet" "viner" "vinerna" ;
|
||||
pizza_N = mkN "pizza" ;
|
||||
cheese_N = mkN "ost" ;
|
||||
fish_N = mkN "fisk" ;
|
||||
dish_N = mkN "rätt" "rätten" "rätter" "rätterna" ;
|
||||
drink_N = mkN "dryck" "drycken" "drycker" "dryckerna" ;
|
||||
dessert_N = mkN "dessert" "desserten" "desserter" "desserterna" ;
|
||||
|
||||
recommend_V2 = mkV2 (mkV "rekommenderar") ;
|
||||
|
||||
chinese_A = mkA "kinesisk" ;
|
||||
french_A = mkA "fransk" ;
|
||||
italian_A = mkA "italiensk" ;
|
||||
japanese_A = mkA "japansk" ;
|
||||
mexican_A = mkA "mexikansk" ;
|
||||
thai_A = mkA "thailändsk" ;
|
||||
expensive_A = mkA "dyr" ;
|
||||
cheap_A = mkA "billig" ;
|
||||
nice_A = mkA "fin" ;
|
||||
clean_A = mkA "ren" ;
|
||||
dirty_A = mkA "smutsig" ;
|
||||
fresh_A = mkA "färsk" ;
|
||||
delicious_A = variants {mkA "läcker" "läckert" "läckra" "läckra" "läckrast" ; mkA "smaklig"} ;
|
||||
fatty_A = mkA "fet" ;
|
||||
tasteless_A = mkA "smaklös" ;
|
||||
authentic_A = mkA "autentisk" ;
|
||||
efficient_A = mkA "effektiv" ;
|
||||
courteous_A = variants {mkA "artig"; mkA "hövlig"} ;
|
||||
helpful_A = variants {mkA "hjälpsam" "hjälpsamt" "hjälpsamma" "" "" ; mkA "tjänstvillig"} ;
|
||||
friendly_A = mkA "vänlig" ;
|
||||
personal_A = mkA "personlig" ;
|
||||
warm_A = mkA "varm" ;
|
||||
prompt_A = mkA "snabb" ;
|
||||
attentive_A = mkA "uppmärksam" "uppmärksamt" "uppmärksamma" "" "" ;
|
||||
inefficient_A = variants {mkA "ineffektiv" ; mkA "inkompetent"} ;
|
||||
rude_A = variants {mkA "oartig" "rått" ; mkA "otrevlig"} ;
|
||||
impersonal_A = variants {mkA "opersonlig" ; mkA "kall"} ;
|
||||
slow_A = mkA "långsam" "långsamt" "långsamma" "" "" ;
|
||||
unattentive_A = mkA "oartig" ;
|
||||
good_A = mkA "god" "gott" "goda" "bättre" "bäst" ;
|
||||
great_A = mkA "fantastisk" ;
|
||||
excellent_A = mkA "utmärkt" "utmärkt" ;
|
||||
bad_A = mkA "dålig" ;
|
||||
awful_A = mkA "hemsk" ;
|
||||
horrible_A = mkA "hemsk" ;
|
||||
disgusting_A = mkA "äcklig" ;
|
||||
boring_A = mkA "tråkig" ;
|
||||
diverse_A = mkA "varierad" "varierat" "varierade" "" "" ;
|
||||
|
||||
noAdv_AdV = mkAdV "" ;
|
||||
strongly_AdV = mkAdV "absolut" ;
|
||||
completely_AdV = mkAdV (variants {"helt"; "absolut"}) ;
|
||||
certainly_AdV = mkAdV "definitivt" ;
|
||||
honestly_AdV = mkAdV ["helt ärligt"] ;
|
||||
really_AdV = mkAdV (variants {"verkligen"; "sannerligen"}) ;
|
||||
reluctantly_AdV = mkAdV "motvilligt" ;
|
||||
hardly_AdV = mkAdV "knappast" ;
|
||||
|
||||
}
|
||||
399
examples/wiki/LexWiki.gf
Normal file
399
examples/wiki/LexWiki.gf
Normal file
@@ -0,0 +1,399 @@
|
||||
|
||||
interface LexWiki = open Syntax in {
|
||||
|
||||
oper
|
||||
-- Sentences
|
||||
singleWordCommand_Utt : V -> Utt ;
|
||||
command_Utt : V -> Det -> N -> Utt ;
|
||||
randomlyCommand_Utt : V -> Det -> N -> Utt ;
|
||||
label_Utt : N -> Utt ;
|
||||
countryName_Utt : PN -> Utt;
|
||||
cuisineName_Utt : PN -> Utt;
|
||||
|
||||
-- Verbs
|
||||
cancel_V : V ;
|
||||
select_V : V ;
|
||||
edit_V : V ;
|
||||
save_V : V ;
|
||||
add_V : V ;
|
||||
undo_V : V ;
|
||||
redo_V : V ;
|
||||
cut_V : V ;
|
||||
copy_V : V ;
|
||||
paste_V : V ;
|
||||
delete_V : V ;
|
||||
refine_V : V ;
|
||||
replace_V : V ;
|
||||
wrap_V : V ;
|
||||
|
||||
-- Nouns
|
||||
-- Labels
|
||||
-- Information
|
||||
information_N : N ;
|
||||
name_N : N ;
|
||||
address_N : N ;
|
||||
city_N : N ;
|
||||
state_N : N ;
|
||||
postalcode_N : N ;
|
||||
country_N : N ;
|
||||
phone_N : N ;
|
||||
cuisine_N : N ;
|
||||
language_N : N ;
|
||||
|
||||
-- Misc
|
||||
page_N : N ;
|
||||
index_N : N ;
|
||||
review_N : N ;
|
||||
restaurant_N : N ;
|
||||
food_N : N ;
|
||||
service_N : N ;
|
||||
node_N : N ;
|
||||
tree_N : N ;
|
||||
|
||||
-- Proper Nouns
|
||||
-- Countries
|
||||
Andorra_PN : PN ;
|
||||
UnitedArabEmirates_PN : PN ;
|
||||
Afghanistan_PN : PN ;
|
||||
AntiguaAndBarbuda_PN : PN ;
|
||||
Anguilla_PN : PN ;
|
||||
Albania_PN : PN ;
|
||||
Armenia_PN : PN ;
|
||||
NetherlandsAntilles_PN : PN ;
|
||||
Angola_PN : PN ;
|
||||
Antarctica_PN : PN ;
|
||||
Argentina_PN : PN ;
|
||||
AmericanSamoa_PN : PN ;
|
||||
Austria_PN : PN ;
|
||||
Australia_PN : PN ;
|
||||
Aruba_PN : PN ;
|
||||
AlandIslands_PN : PN ;
|
||||
Azerbaijan_PN : PN ;
|
||||
BosniaAndHerzegovina_PN : PN ;
|
||||
Barbados_PN : PN ;
|
||||
Bangladesh_PN : PN ;
|
||||
Belgium_PN : PN ;
|
||||
BurkinaFaso_PN : PN ;
|
||||
Bulgaria_PN : PN ;
|
||||
Bahrain_PN : PN ;
|
||||
Burundi_PN : PN ;
|
||||
Benin_PN : PN ;
|
||||
Bermuda_PN : PN ;
|
||||
Brunei_PN : PN ;
|
||||
Bolivia_PN : PN ;
|
||||
Brazil_PN : PN ;
|
||||
Bahamas_PN : PN ;
|
||||
Bhutan_PN : PN ;
|
||||
BouvetIsland_PN : PN ;
|
||||
Botswana_PN : PN ;
|
||||
Belarus_PN : PN ;
|
||||
Belize_PN : PN ;
|
||||
Canada_PN : PN ;
|
||||
CocosIslands_PN : PN ;
|
||||
CongoDemocraticRepublicofthe_PN : PN ;
|
||||
CentralAfricanRepublic_PN : PN ;
|
||||
Congo_PN : PN ;
|
||||
Switzerland_PN : PN ;
|
||||
CotedIvoire_PN : PN ;
|
||||
CookIslands_PN : PN ;
|
||||
Chile_PN : PN ;
|
||||
Cameroon_PN : PN ;
|
||||
China_PN : PN ;
|
||||
Colombia_PN : PN ;
|
||||
CostaRica_PN : PN ;
|
||||
SerbiaAndMontenegro_PN : PN ;
|
||||
Cuba_PN : PN ;
|
||||
CapeVerde_PN : PN ;
|
||||
ChristmasIsland_PN : PN ;
|
||||
Cyprus_PN : PN ;
|
||||
CzechRepublic_PN : PN ;
|
||||
Germany_PN : PN ;
|
||||
Djibouti_PN : PN ;
|
||||
Denmark_PN : PN ;
|
||||
Dominica_PN : PN ;
|
||||
DominicanRepublic_PN : PN ;
|
||||
Algeria_PN : PN ;
|
||||
Ecuador_PN : PN ;
|
||||
Estonia_PN : PN ;
|
||||
Egypt_PN : PN ;
|
||||
WesternSahara_PN : PN ;
|
||||
Eritrea_PN : PN ;
|
||||
Spain_PN : PN ;
|
||||
Ethiopia_PN : PN ;
|
||||
Finland_PN : PN ;
|
||||
Fiji_PN : PN ;
|
||||
FalklandIslands_PN : PN ;
|
||||
Micronesia_PN : PN ;
|
||||
FaroeIslands_PN : PN ;
|
||||
France_PN : PN ;
|
||||
Gabon_PN : PN ;
|
||||
UnitedKingdom_PN : PN ;
|
||||
Grenada_PN : PN ;
|
||||
Georgia_PN : PN ;
|
||||
FrenchGuiana_PN : PN ;
|
||||
Guernsey_PN : PN ;
|
||||
Ghana_PN : PN ;
|
||||
Gibraltar_PN : PN ;
|
||||
Greenland_PN : PN ;
|
||||
Gambia_PN : PN ;
|
||||
Guinea_PN : PN ;
|
||||
Guadeloupe_PN : PN ;
|
||||
EquatorialGuinea_PN : PN ;
|
||||
Greece_PN : PN ;
|
||||
SouthGeorgiaAndTheSouthSandwichIslands_PN : PN ;
|
||||
Guatemala_PN : PN ;
|
||||
Guam_PN : PN ;
|
||||
GuineaBissau_PN : PN ;
|
||||
Guyana_PN : PN ;
|
||||
HongKong_PN : PN ;
|
||||
HeardIslandAndMcDonaldIslands_PN : PN ;
|
||||
Honduras_PN : PN ;
|
||||
Croatia_PN : PN ;
|
||||
Haiti_PN : PN ;
|
||||
Hungary_PN : PN ;
|
||||
Indonesia_PN : PN ;
|
||||
Ireland_PN : PN ;
|
||||
Israel_PN : PN ;
|
||||
IsleofMan_PN : PN ;
|
||||
India_PN : PN ;
|
||||
BritishIndianOceanTerritory_PN : PN ;
|
||||
Iraq_PN : PN ;
|
||||
Iran_PN : PN ;
|
||||
Iceland_PN : PN ;
|
||||
Italy_PN : PN ;
|
||||
Jersey_PN : PN ;
|
||||
Jamaica_PN : PN ;
|
||||
Jordan_PN : PN ;
|
||||
Japan_PN : PN ;
|
||||
Kenya_PN : PN ;
|
||||
Kyrgyzstan_PN : PN ;
|
||||
Cambodia_PN : PN ;
|
||||
Kiribati_PN : PN ;
|
||||
Comoros_PN : PN ;
|
||||
SaintKittsAndNevis_PN : PN ;
|
||||
NorthKorea_PN : PN ;
|
||||
SouthKorea_PN : PN ;
|
||||
Kuwait_PN : PN ;
|
||||
CaymanIslands_PN : PN ;
|
||||
Kazakhstan_PN : PN ;
|
||||
Laos_PN : PN ;
|
||||
Lebanon_PN : PN ;
|
||||
SaintLucia_PN : PN ;
|
||||
Liechtenstein_PN : PN ;
|
||||
SriLanka_PN : PN ;
|
||||
Liberia_PN : PN ;
|
||||
Lesotho_PN : PN ;
|
||||
Lithuania_PN : PN ;
|
||||
Luxembourg_PN : PN ;
|
||||
Latvia_PN : PN ;
|
||||
Libya_PN : PN ;
|
||||
Morocco_PN : PN ;
|
||||
Monaco_PN : PN ;
|
||||
Moldova_PN : PN ;
|
||||
Montenegro_PN : PN ;
|
||||
Madagascar_PN : PN ;
|
||||
MarshallIslands_PN : PN ;
|
||||
Macedonia_PN : PN ;
|
||||
Mali_PN : PN ;
|
||||
Myanmar_PN : PN ;
|
||||
Mongolia_PN : PN ;
|
||||
Macao_PN : PN ;
|
||||
NorthernMarianaIslands_PN : PN ;
|
||||
Martinique_PN : PN ;
|
||||
Mauritania_PN : PN ;
|
||||
Montserrat_PN : PN ;
|
||||
Malta_PN : PN ;
|
||||
Mauritius_PN : PN ;
|
||||
Maldives_PN : PN ;
|
||||
Malawi_PN : PN ;
|
||||
Mexico_PN : PN ;
|
||||
Malaysia_PN : PN ;
|
||||
Mozambique_PN : PN ;
|
||||
Namibia_PN : PN ;
|
||||
NewCaledonia_PN : PN ;
|
||||
Niger_PN : PN ;
|
||||
NorfolkIsland_PN : PN ;
|
||||
Nigeria_PN : PN ;
|
||||
Nicaragua_PN : PN ;
|
||||
Netherlands_PN : PN ;
|
||||
Norway_PN : PN ;
|
||||
Nepal_PN : PN ;
|
||||
Nauru_PN : PN ;
|
||||
Niue_PN : PN ;
|
||||
NewZealand_PN : PN ;
|
||||
Oman_PN : PN ;
|
||||
Panama_PN : PN ;
|
||||
Peru_PN : PN ;
|
||||
FrenchPolynesia_PN : PN ;
|
||||
PapuaNewGuinea_PN : PN ;
|
||||
Philippines_PN : PN ;
|
||||
Pakistan_PN : PN ;
|
||||
Poland_PN : PN ;
|
||||
SaintPierreAndMiquelon_PN : PN ;
|
||||
Pitcairn_PN : PN ;
|
||||
PuertoRico_PN : PN ;
|
||||
PalestinianTerritory_PN : PN ;
|
||||
Portugal_PN : PN ;
|
||||
Palau_PN : PN ;
|
||||
Paraguay_PN : PN ;
|
||||
Qatar_PN : PN ;
|
||||
Reunion_PN : PN ;
|
||||
Romania_PN : PN ;
|
||||
Serbia_PN : PN ;
|
||||
Russia_PN : PN ;
|
||||
Rwanda_PN : PN ;
|
||||
SaudiArabia_PN : PN ;
|
||||
SolomonIslands_PN : PN ;
|
||||
Seychelles_PN : PN ;
|
||||
Sudan_PN : PN ;
|
||||
Sweden_PN : PN ;
|
||||
Singapore_PN : PN ;
|
||||
SaintHelena_PN : PN ;
|
||||
Slovenia_PN : PN ;
|
||||
SvalbardAndJanMayen_PN : PN ;
|
||||
Slovakia_PN : PN ;
|
||||
SierraLeone_PN : PN ;
|
||||
SanMarino_PN : PN ;
|
||||
Senegal_PN : PN ;
|
||||
Somalia_PN : PN ;
|
||||
Suriname_PN : PN ;
|
||||
SaoTomeAndPrincipe_PN : PN ;
|
||||
ElSalvador_PN : PN ;
|
||||
Syria_PN : PN ;
|
||||
Swaziland_PN : PN ;
|
||||
TurksAndCaicosIslands_PN : PN ;
|
||||
Chad_PN : PN ;
|
||||
FrenchSouthernTerritories_PN : PN ;
|
||||
Togo_PN : PN ;
|
||||
Thailand_PN : PN ;
|
||||
Tajikistan_PN : PN ;
|
||||
Tokelau_PN : PN ;
|
||||
EastTimor_PN : PN ;
|
||||
Turkmenistan_PN : PN ;
|
||||
Tunisia_PN : PN ;
|
||||
Tonga_PN : PN ;
|
||||
Turkey_PN : PN ;
|
||||
TrinidadAndTobago_PN : PN ;
|
||||
Tuvalu_PN : PN ;
|
||||
Taiwan_PN : PN ;
|
||||
Tanzania_PN : PN ;
|
||||
Ukraine_PN : PN ;
|
||||
Uganda_PN : PN ;
|
||||
UnitedStatesMinorOutlyingIslands_PN : PN ;
|
||||
UnitedStates_PN : PN ;
|
||||
Uruguay_PN : PN ;
|
||||
Uzbekistan_PN : PN ;
|
||||
VaticanCity_PN : PN ;
|
||||
SaintVincentAndtheGrenadines_PN : PN ;
|
||||
Venezuela_PN : PN ;
|
||||
VirginIslandsBritish_PN : PN ;
|
||||
VirginIslandsUS_PN : PN ;
|
||||
Vietnam_PN : PN ;
|
||||
Vanuatu_PN : PN ;
|
||||
WallisAndFutuna_PN : PN ;
|
||||
Samoa_PN : PN ;
|
||||
Yemen_PN : PN ;
|
||||
Mayotte_PN : PN ;
|
||||
SouthAfrica_PN : PN ;
|
||||
Zambia_PN : PN ;
|
||||
Zimbabwe_PN : PN ;
|
||||
|
||||
-- Cuisines
|
||||
Afghani_PN : PN ;
|
||||
African_PN : PN ;
|
||||
American_PN : PN ;
|
||||
Arabic_PN : PN ;
|
||||
Argentine_PN : PN ;
|
||||
Armenian_PN : PN ;
|
||||
Asian_PN : PN ;
|
||||
Australian_PN : PN ;
|
||||
Austrian_PN : PN ;
|
||||
Balinese_PN : PN ;
|
||||
Basque_PN : PN ;
|
||||
Belgian_PN : PN ;
|
||||
Brazilian_PN : PN ;
|
||||
Bulgarian_PN : PN ;
|
||||
Burmese_PN : PN ;
|
||||
Cajun_PN : PN ;
|
||||
Cambodian_PN : PN ;
|
||||
Caribbean_PN : PN ;
|
||||
Catalan_PN : PN ;
|
||||
Chinese_PN : PN ;
|
||||
Colombian_PN : PN ;
|
||||
Contemporary_PN : PN ;
|
||||
Continental_PN : PN ;
|
||||
Creole_PN : PN ;
|
||||
Cuban_PN : PN ;
|
||||
Czech_PN : PN ;
|
||||
Dutch_PN : PN ;
|
||||
EasternEuropean_PN : PN ;
|
||||
Eclectic_PN : PN ;
|
||||
Egyptian_PN : PN ;
|
||||
English_PN : PN ;
|
||||
Ethiopian_PN : PN ;
|
||||
Ethnic_PN : PN ;
|
||||
French_PN : PN ;
|
||||
Fusion_PN : PN ;
|
||||
German_PN : PN ;
|
||||
Greek_PN : PN ;
|
||||
Haitian_PN : PN ;
|
||||
Hungarian_PN : PN ;
|
||||
Indian_PN : PN ;
|
||||
Indonesian_PN : PN ;
|
||||
International_PN : PN ;
|
||||
Irish_PN : PN ;
|
||||
Israeli_PN : PN ;
|
||||
Italian_PN : PN ;
|
||||
Jamaican_PN : PN ;
|
||||
Japanese_PN : PN ;
|
||||
Jewish_PN : PN ;
|
||||
Korean_PN : PN ;
|
||||
LatinAmerican_PN : PN ;
|
||||
Lebanese_PN : PN ;
|
||||
Malaysian_PN : PN ;
|
||||
Mexican_PN : PN ;
|
||||
MiddleEastern_PN : PN ;
|
||||
Mongolian_PN : PN ;
|
||||
Moroccan_PN : PN ;
|
||||
NewZealandCuisine_PN : PN ;
|
||||
Nicaraguan_PN : PN ;
|
||||
Nouveau_PN : PN ;
|
||||
Pakistani_PN : PN ;
|
||||
Persian_PN : PN ;
|
||||
Peruvian_PN : PN ;
|
||||
Philippine_PN : PN ;
|
||||
Polish_PN : PN ;
|
||||
Polynesian_PN : PN ;
|
||||
Portuguese_PN : PN ;
|
||||
PuertoRican_PN : PN ;
|
||||
Russian_PN : PN ;
|
||||
Salvadorean_PN : PN ;
|
||||
Scandinavian_PN : PN ;
|
||||
Scottish_PN : PN ;
|
||||
Seafood_PN : PN ;
|
||||
Singaporean_PN : PN ;
|
||||
Spanish_PN : PN ;
|
||||
SriLankan_PN : PN ;
|
||||
Swedish_PN : PN ;
|
||||
Swiss_PN : PN ;
|
||||
Tex_Mex_PN : PN ;
|
||||
Thai_PN : PN ;
|
||||
Tibetan_PN : PN ;
|
||||
Turkish_PN : PN ;
|
||||
Ukrainian_PN : PN ;
|
||||
Vegan_PN : PN ;
|
||||
Vegetarian_PN : PN ;
|
||||
Venezulean_PN : PN ;
|
||||
Vietnamese_PN : PN ;
|
||||
|
||||
-- Determiners
|
||||
defSg_Det : Det ;
|
||||
-- defPl_Det : Det ;
|
||||
indefSg_Det : Det ;
|
||||
-- indefPl_Det : Det ;
|
||||
this_Det : Det ;
|
||||
-- that_Det : Det ;
|
||||
-- these_Det : Det ;
|
||||
-- those_Det : Det ;
|
||||
|
||||
}
|
||||
400
examples/wiki/LexWikiEng.gf
Normal file
400
examples/wiki/LexWikiEng.gf
Normal file
@@ -0,0 +1,400 @@
|
||||
|
||||
instance LexWikiEng of LexWiki = open SyntaxEng, ParadigmsEng in {
|
||||
|
||||
flags coding = utf8 ;
|
||||
|
||||
oper
|
||||
-- Sentences
|
||||
singleWordCommand_Utt verb = mkUtt politeImpForm positivePol (mkImp verb) ;
|
||||
command_Utt verb det noun = mkUtt politeImpForm positivePol (mkImp (mkVP (mkV2 verb) (mkNP det noun))) ;
|
||||
randomlyCommand_Utt verb det noun = mkUtt politeImpForm positivePol (mkImp (mkVP (mkAdV "randomly") (mkVP (mkV2 verb) (mkNP det noun)))) ;
|
||||
label_Utt noun = mkUtt (mkNP (mkPN noun)) ;
|
||||
countryName_Utt pn = mkUtt (mkNP pn) ;
|
||||
cuisineName_Utt pn = mkUtt (mkNP pn) ;
|
||||
|
||||
-- Verbs
|
||||
cancel_V = mkV "cancel" ;
|
||||
select_V = mkV "select" ;
|
||||
edit_V = mkV "edit" ;
|
||||
save_V = mkV "save" ;
|
||||
add_V = mkV "add" ;
|
||||
undo_V = mkV "undo" ;
|
||||
redo_V = mkV "redo" ;
|
||||
cut_V = mkV "cut" ;
|
||||
copy_V = mkV "copy" ;
|
||||
paste_V = mkV "paste" ;
|
||||
delete_V = mkV "delete" ;
|
||||
refine_V = mkV "refine" ;
|
||||
replace_V = mkV "replace" ;
|
||||
wrap_V = mkV "wrap" ;
|
||||
|
||||
-- Nouns
|
||||
-- Information
|
||||
information_N = mkN "information" ;
|
||||
name_N = mkN "name" ;
|
||||
address_N = mkN "address" ;
|
||||
city_N = mkN "city" ;
|
||||
state_N = mkN "state" ;
|
||||
postalcode_N = mkN "postal" (mkN "code") ;
|
||||
country_N = mkN "country" ;
|
||||
phone_N = mkN "phone" ;
|
||||
cuisine_N = mkN "cuisine" ;
|
||||
language_N = mkN "language" ;
|
||||
|
||||
-- Misc
|
||||
page_N = mkN "page" ;
|
||||
index_N = mkN "index" ;
|
||||
review_N = mkN "review" ;
|
||||
restaurant_N = mkN "restaurant" ;
|
||||
food_N = mkN "food" ;
|
||||
service_N = mkN "service" ;
|
||||
node_N = mkN "node" ;
|
||||
tree_N = mkN "tree" ;
|
||||
|
||||
-- Proper Nouns
|
||||
-- Countries
|
||||
Andorra_PN = mkPN "Andorra" ;
|
||||
UnitedArabEmirates_PN = mkPN ("United" ++ "Arab" ++ "Emirates") ;
|
||||
Afghanistan_PN = mkPN "Afghanistan" ;
|
||||
AntiguaAndBarbuda_PN = mkPN ("Antigua" ++ "and" ++ "Barbuda") ;
|
||||
Anguilla_PN = mkPN "Anguilla" ;
|
||||
Albania_PN = mkPN "Albania" ;
|
||||
Armenia_PN = mkPN "Armenia" ;
|
||||
NetherlandsAntilles_PN = mkPN ("Netherlands" ++ "Antilles") ;
|
||||
Angola_PN = mkPN "Angola" ;
|
||||
Antarctica_PN = mkPN "Antarctica" ;
|
||||
Argentina_PN = mkPN "Argentina" ;
|
||||
AmericanSamoa_PN = mkPN ("American" ++ "Samoa") ;
|
||||
Austria_PN = mkPN "Austria" ;
|
||||
Australia_PN = mkPN "Australia" ;
|
||||
Aruba_PN = mkPN "Aruba" ;
|
||||
AlandIslands_PN = mkPN ("Aland" ++ "Islands") ;
|
||||
Azerbaijan_PN = mkPN "Azerbaijan" ;
|
||||
BosniaAndHerzegovina_PN = mkPN ("Bosnia" ++ "and" ++ "Herzegovina") ;
|
||||
Barbados_PN = mkPN "Barbados" ;
|
||||
Bangladesh_PN = mkPN "Bangladesh" ;
|
||||
Belgium_PN = mkPN "Belgium" ;
|
||||
BurkinaFaso_PN = mkPN ("Burkina" ++ "Faso") ;
|
||||
Bulgaria_PN = mkPN "Bulgaria" ;
|
||||
Bahrain_PN = mkPN "Bahrain" ;
|
||||
Burundi_PN = mkPN "Burundi" ;
|
||||
Benin_PN = mkPN "Benin" ;
|
||||
Bermuda_PN = mkPN "Bermuda" ;
|
||||
Brunei_PN = mkPN "Brunei" ;
|
||||
Bolivia_PN = mkPN "Bolivia" ;
|
||||
Brazil_PN = mkPN "Brazil" ;
|
||||
Bahamas_PN = mkPN "Bahamas" ;
|
||||
Bhutan_PN = mkPN "Bhutan" ;
|
||||
BouvetIsland_PN = mkPN ("Bouvet" ++ "Island") ;
|
||||
Botswana_PN = mkPN "Botswana" ;
|
||||
Belarus_PN = mkPN "Belarus" ;
|
||||
Belize_PN = mkPN "Belize" ;
|
||||
Canada_PN = mkPN "Canada" ;
|
||||
CocosIslands_PN = mkPN ("Cocos" ++ "Islands") ;
|
||||
CongoDemocraticRepublicofthe_PN = mkPN ("Congo," ++ "Democratic" ++ "Republic" ++ "of" ++ "the") ;
|
||||
CentralAfricanRepublic_PN = mkPN ("Central" ++ "African" ++ "Republic") ;
|
||||
Congo_PN = mkPN "Congo" ;
|
||||
Switzerland_PN = mkPN "Switzerland" ;
|
||||
CotedIvoire_PN = mkPN ("Côte" ++ "d'Ivoire") ;
|
||||
CookIslands_PN = mkPN ("Cook" ++ "Islands") ;
|
||||
Chile_PN = mkPN "Chile" ;
|
||||
Cameroon_PN = mkPN "Cameroon" ;
|
||||
China_PN = mkPN "China" ;
|
||||
Colombia_PN = mkPN "Colombia" ;
|
||||
CostaRica_PN = mkPN ("Costa" ++ "Rica") ;
|
||||
SerbiaAndMontenegro_PN = mkPN ("Serbia" ++ "and" ++ "Montenegro") ;
|
||||
Cuba_PN = mkPN "Cuba" ;
|
||||
CapeVerde_PN = mkPN ("Cape" ++ "Verde") ;
|
||||
ChristmasIsland_PN = mkPN ("Christmas" ++ "Island") ;
|
||||
Cyprus_PN = mkPN "Cyprus" ;
|
||||
CzechRepublic_PN = mkPN ("Czech" ++ "Republic") ;
|
||||
Germany_PN = mkPN "Germany" ;
|
||||
Djibouti_PN = mkPN "Djibouti" ;
|
||||
Denmark_PN = mkPN "Denmark" ;
|
||||
Dominica_PN = mkPN "Dominica" ;
|
||||
DominicanRepublic_PN = mkPN ("Dominican" ++ "Republic") ;
|
||||
Algeria_PN = mkPN "Algeria" ;
|
||||
Ecuador_PN = mkPN "Ecuador" ;
|
||||
Estonia_PN = mkPN "Estonia" ;
|
||||
Egypt_PN = mkPN "Egypt" ;
|
||||
WesternSahara_PN = mkPN ("Western" ++ "Sahara") ;
|
||||
Eritrea_PN = mkPN "Eritrea" ;
|
||||
Spain_PN = mkPN "Spain" ;
|
||||
Ethiopia_PN = mkPN "Ethiopia" ;
|
||||
Finland_PN = mkPN "Finland" ;
|
||||
Fiji_PN = mkPN "Fiji" ;
|
||||
FalklandIslands_PN = mkPN ("Falkland" ++ "Islands") ;
|
||||
Micronesia_PN = mkPN "Micronesia" ;
|
||||
FaroeIslands_PN = mkPN ("Faroe" ++ "Islands") ;
|
||||
France_PN = mkPN "France" ;
|
||||
Gabon_PN = mkPN "Gabon" ;
|
||||
UnitedKingdom_PN = mkPN ("United" ++ "Kingdom") ;
|
||||
Grenada_PN = mkPN "Grenada" ;
|
||||
Georgia_PN = mkPN "Georgia" ;
|
||||
FrenchGuiana_PN = mkPN ("French" ++ "Guiana") ;
|
||||
Guernsey_PN = mkPN "Guernsey" ;
|
||||
Ghana_PN = mkPN "Ghana" ;
|
||||
Gibraltar_PN = mkPN "Gibraltar" ;
|
||||
Greenland_PN = mkPN "Greenland" ;
|
||||
Gambia_PN = mkPN "Gambia" ;
|
||||
Guinea_PN = mkPN "Guinea" ;
|
||||
Guadeloupe_PN = mkPN "Guadeloupe" ;
|
||||
EquatorialGuinea_PN = mkPN ("Equatorial" ++ "Guinea") ;
|
||||
Greece_PN = mkPN "Greece" ;
|
||||
SouthGeorgiaAndTheSouthSandwichIslands_PN = mkPN ("South" ++ "Georgia" ++ "and" ++ "the" ++ "South" ++ "Sandwich" ++ "Islands") ;
|
||||
Guatemala_PN = mkPN "Guatemala" ;
|
||||
Guam_PN = mkPN "Guam" ;
|
||||
GuineaBissau_PN = mkPN "Guinea-Bissau" ;
|
||||
Guyana_PN = mkPN "Guyana" ;
|
||||
HongKong_PN = mkPN ("Hong" ++ "Kong") ;
|
||||
HeardIslandAndMcDonaldIslands_PN = mkPN ("Heard" ++ "Island" ++ "and" ++ "McDonald" ++ "Islands") ;
|
||||
Honduras_PN = mkPN "Honduras" ;
|
||||
Croatia_PN = mkPN "Croatia" ;
|
||||
Haiti_PN = mkPN "Haiti" ;
|
||||
Hungary_PN = mkPN "Hungary" ;
|
||||
Indonesia_PN = mkPN "Indonesia" ;
|
||||
Ireland_PN = mkPN "Ireland" ;
|
||||
Israel_PN = mkPN "Israel" ;
|
||||
IsleofMan_PN = mkPN ("Isle" ++ "of" ++ "Man") ;
|
||||
India_PN = mkPN "India" ;
|
||||
BritishIndianOceanTerritory_PN = mkPN ("British" ++ "Indian" ++ "Ocean" ++ "Territory") ;
|
||||
Iraq_PN = mkPN "Iraq" ;
|
||||
Iran_PN = mkPN "Iran" ;
|
||||
Iceland_PN = mkPN "Iceland" ;
|
||||
Italy_PN = mkPN "Italy" ;
|
||||
Jersey_PN = mkPN "Jersey" ;
|
||||
Jamaica_PN = mkPN "Jamaica" ;
|
||||
Jordan_PN = mkPN "Jordan" ;
|
||||
Japan_PN = mkPN "Japan" ;
|
||||
Kenya_PN = mkPN "Kenya" ;
|
||||
Kyrgyzstan_PN = mkPN "Kyrgyzstan" ;
|
||||
Cambodia_PN = mkPN "Cambodia" ;
|
||||
Kiribati_PN = mkPN "Kiribati" ;
|
||||
Comoros_PN = mkPN "Comoros" ;
|
||||
SaintKittsAndNevis_PN = mkPN ("Saint" ++ "Kitts" ++ "and" ++ "Nevis") ;
|
||||
NorthKorea_PN = mkPN ("North" ++ "Korea") ;
|
||||
SouthKorea_PN = mkPN ("South" ++ "Korea") ;
|
||||
Kuwait_PN = mkPN "Kuwait" ;
|
||||
CaymanIslands_PN = mkPN ("Cayman" ++ "Islands") ;
|
||||
Kazakhstan_PN = mkPN "Kazakhstan" ;
|
||||
Laos_PN = mkPN "Laos" ;
|
||||
Lebanon_PN = mkPN "Lebanon" ;
|
||||
SaintLucia_PN = mkPN ("Saint" ++ "Lucia") ;
|
||||
Liechtenstein_PN = mkPN "Liechtenstein" ;
|
||||
SriLanka_PN = mkPN ("Sri" ++ "Lanka") ;
|
||||
Liberia_PN = mkPN "Liberia" ;
|
||||
Lesotho_PN = mkPN "Lesotho" ;
|
||||
Lithuania_PN = mkPN "Lithuania" ;
|
||||
Luxembourg_PN = mkPN "Luxembourg" ;
|
||||
Latvia_PN = mkPN "Latvia" ;
|
||||
Libya_PN = mkPN "Libya" ;
|
||||
Morocco_PN = mkPN "Morocco" ;
|
||||
Monaco_PN = mkPN "Monaco" ;
|
||||
Moldova_PN = mkPN "Moldova" ;
|
||||
Montenegro_PN = mkPN "Montenegro" ;
|
||||
Madagascar_PN = mkPN "Madagascar" ;
|
||||
MarshallIslands_PN = mkPN ("Marshall" ++ "Islands") ;
|
||||
Macedonia_PN = mkPN "Macedonia" ;
|
||||
Mali_PN = mkPN "Mali" ;
|
||||
Myanmar_PN = mkPN "Myanmar" ;
|
||||
Mongolia_PN = mkPN "Mongolia" ;
|
||||
Macao_PN = mkPN "Macao" ;
|
||||
NorthernMarianaIslands_PN = mkPN ("Northern" ++ "Mariana" ++ "Islands") ;
|
||||
Martinique_PN = mkPN "Martinique" ;
|
||||
Mauritania_PN = mkPN "Mauritania" ;
|
||||
Montserrat_PN = mkPN "Montserrat" ;
|
||||
Malta_PN = mkPN "Malta" ;
|
||||
Mauritius_PN = mkPN "Mauritius" ;
|
||||
Maldives_PN = mkPN "Maldives" ;
|
||||
Malawi_PN = mkPN "Malawi" ;
|
||||
Mexico_PN = mkPN "Mexico" ;
|
||||
Malaysia_PN = mkPN "Malaysia" ;
|
||||
Mozambique_PN = mkPN "Mozambique" ;
|
||||
Namibia_PN = mkPN "Namibia" ;
|
||||
NewCaledonia_PN = mkPN ("New" ++ "Caledonia") ;
|
||||
Niger_PN = mkPN "Niger" ;
|
||||
NorfolkIsland_PN = mkPN ("Norfolk" ++ "Island") ;
|
||||
Nigeria_PN = mkPN "Nigeria" ;
|
||||
Nicaragua_PN = mkPN "Nicaragua" ;
|
||||
Netherlands_PN = mkPN "Netherlands" ;
|
||||
Norway_PN = mkPN "Norway" ;
|
||||
Nepal_PN = mkPN "Nepal" ;
|
||||
Nauru_PN = mkPN "Nauru" ;
|
||||
Niue_PN = mkPN "Niue" ;
|
||||
NewZealand_PN = mkPN ("New" ++ "Zealand") ;
|
||||
Oman_PN = mkPN "Oman" ;
|
||||
Panama_PN = mkPN "Panama" ;
|
||||
Peru_PN = mkPN "Peru" ;
|
||||
FrenchPolynesia_PN = mkPN ("French" ++ "Polynesia") ;
|
||||
PapuaNewGuinea_PN = mkPN ("Papua" ++ "New" ++ "Guinea") ;
|
||||
Philippines_PN = mkPN "Philippines" ;
|
||||
Pakistan_PN = mkPN "Pakistan" ;
|
||||
Poland_PN = mkPN "Poland" ;
|
||||
SaintPierreAndMiquelon_PN = mkPN ("Saint" ++ "Pierre" ++ "and" ++ "Miquelon") ;
|
||||
Pitcairn_PN = mkPN "Pitcairn" ;
|
||||
PuertoRico_PN = mkPN ("Puerto" ++ "Rico") ;
|
||||
PalestinianTerritory_PN = mkPN ("Palestinian" ++ "Territory") ;
|
||||
Portugal_PN = mkPN "Portugal" ;
|
||||
Palau_PN = mkPN "Palau" ;
|
||||
Paraguay_PN = mkPN "Paraguay" ;
|
||||
Qatar_PN = mkPN "Qatar" ;
|
||||
Reunion_PN = mkPN "Reunion" ;
|
||||
Romania_PN = mkPN "Romania" ;
|
||||
Serbia_PN = mkPN "Serbia" ;
|
||||
Russia_PN = mkPN "Russia" ;
|
||||
Rwanda_PN = mkPN "Rwanda" ;
|
||||
SaudiArabia_PN = mkPN ("Saudi" ++ "Arabia") ;
|
||||
SolomonIslands_PN = mkPN ("Solomon" ++ "Islands") ;
|
||||
Seychelles_PN = mkPN "Seychelles" ;
|
||||
Sudan_PN = mkPN "Sudan" ;
|
||||
Sweden_PN = mkPN "Sweden" ;
|
||||
Singapore_PN = mkPN "Singapore" ;
|
||||
SaintHelena_PN = mkPN ("Saint" ++ "Helena") ;
|
||||
Slovenia_PN = mkPN "Slovenia" ;
|
||||
SvalbardAndJanMayen_PN = mkPN ("Svalbard" ++ "and" ++ "Jan" ++ "Mayen") ;
|
||||
Slovakia_PN = mkPN "Slovakia" ;
|
||||
SierraLeone_PN = mkPN ("Sierra" ++ "Leone") ;
|
||||
SanMarino_PN = mkPN ("San" ++ "Marino") ;
|
||||
Senegal_PN = mkPN "Senegal" ;
|
||||
Somalia_PN = mkPN "Somalia" ;
|
||||
Suriname_PN = mkPN "Suriname" ;
|
||||
SaoTomeAndPrincipe_PN = mkPN ("São" ++ "Tomé" ++ "and" ++ "Príncipe") ;
|
||||
ElSalvador_PN = mkPN ("El" ++ "Salvador") ;
|
||||
Syria_PN = mkPN "Syria" ;
|
||||
Swaziland_PN = mkPN "Swaziland" ;
|
||||
TurksAndCaicosIslands_PN = mkPN ("Turks" ++ "and" ++ "Caicos" ++ "Islands") ;
|
||||
Chad_PN = mkPN "Chad" ;
|
||||
FrenchSouthernTerritories_PN = mkPN ("French" ++ "Southern" ++ "Territories") ;
|
||||
Togo_PN = mkPN "Togo" ;
|
||||
Thailand_PN = mkPN "Thailand" ;
|
||||
Tajikistan_PN = mkPN "Tajikistan" ;
|
||||
Tokelau_PN = mkPN "Tokelau" ;
|
||||
EastTimor_PN = mkPN ("East" ++ "Timor") ;
|
||||
Turkmenistan_PN = mkPN "Turkmenistan" ;
|
||||
Tunisia_PN = mkPN "Tunisia" ;
|
||||
Tonga_PN = mkPN "Tonga" ;
|
||||
Turkey_PN = mkPN "Turkey" ;
|
||||
TrinidadAndTobago_PN = mkPN ("Trinidad" ++ "and" ++ "Tobago") ;
|
||||
Tuvalu_PN = mkPN "Tuvalu" ;
|
||||
Taiwan_PN = mkPN "Taiwan" ;
|
||||
Tanzania_PN = mkPN "Tanzania" ;
|
||||
Ukraine_PN = mkPN "Ukraine" ;
|
||||
Uganda_PN = mkPN "Uganda" ;
|
||||
UnitedStatesMinorOutlyingIslands_PN = mkPN ("United" ++ "States" ++ "minor" ++ "outlying" ++ "islands") ;
|
||||
UnitedStates_PN = mkPN ("United" ++ "States") ;
|
||||
Uruguay_PN = mkPN "Uruguay" ;
|
||||
Uzbekistan_PN = mkPN "Uzbekistan" ;
|
||||
VaticanCity_PN = mkPN ("Vatican" ++ "City") ;
|
||||
SaintVincentAndtheGrenadines_PN = mkPN ("Saint" ++ "Vincent" ++ "and" ++ "the" ++ "Grenadines") ;
|
||||
Venezuela_PN = mkPN "Venezuela" ;
|
||||
VirginIslandsBritish_PN = mkPN ("Virgin" ++ "Islands," ++ "British") ;
|
||||
VirginIslandsUS_PN = mkPN ("Virgin" ++ "Islands," ++ "U.S.") ;
|
||||
Vietnam_PN = mkPN "Vietnam" ;
|
||||
Vanuatu_PN = mkPN "Vanuatu" ;
|
||||
WallisAndFutuna_PN = mkPN ("Wallis" ++ "and" ++ "Futuna") ;
|
||||
Samoa_PN = mkPN "Samoa" ;
|
||||
Yemen_PN = mkPN "Yemen" ;
|
||||
Mayotte_PN = mkPN "Mayotte" ;
|
||||
SouthAfrica_PN = mkPN ("South" ++ "Africa") ;
|
||||
Zambia_PN = mkPN "Zambia" ;
|
||||
Zimbabwe_PN = mkPN "Zimbabwe" ;
|
||||
|
||||
-- Cuisines
|
||||
Afghani_PN = mkPN "Afghani" ;
|
||||
African_PN = mkPN "African" ;
|
||||
American_PN = mkPN "American" ;
|
||||
Arabic_PN = mkPN "Arabic" ;
|
||||
Argentine_PN = mkPN "Argentine" ;
|
||||
Armenian_PN = mkPN "Armenian" ;
|
||||
Asian_PN = mkPN "Asian" ;
|
||||
Australian_PN = mkPN "Australian" ;
|
||||
Austrian_PN = mkPN "Austrian" ;
|
||||
Balinese_PN = mkPN "Balinese" ;
|
||||
Basque_PN = mkPN "Basque" ;
|
||||
Belgian_PN = mkPN "Belgian" ;
|
||||
Brazilian_PN = mkPN "Brazilian" ;
|
||||
Bulgarian_PN = mkPN "Bulgarian" ;
|
||||
Burmese_PN = mkPN "Burmese" ;
|
||||
Cajun_PN = mkPN "Cajun" ;
|
||||
Cambodian_PN = mkPN "Cambodian" ;
|
||||
Caribbean_PN = mkPN "Caribbean" ;
|
||||
Catalan_PN = mkPN "Catalan" ;
|
||||
Chinese_PN = mkPN "Chinese" ;
|
||||
Colombian_PN = mkPN "Colombian" ;
|
||||
Contemporary_PN = mkPN "Contemporary" ;
|
||||
Continental_PN = mkPN "Continental" ;
|
||||
Creole_PN = mkPN "Creole" ;
|
||||
Cuban_PN = mkPN "Cuban" ;
|
||||
Czech_PN = mkPN "Czech" ;
|
||||
Dutch_PN = mkPN "Dutch" ;
|
||||
EasternEuropean_PN = mkPN ("Eastern" ++ "European") ;
|
||||
Eclectic_PN = mkPN "Eclectic" ;
|
||||
Egyptian_PN = mkPN "Egyptian" ;
|
||||
English_PN = mkPN "English" ;
|
||||
Ethiopian_PN = mkPN "Ethiopian" ;
|
||||
Ethnic_PN = mkPN "Ethnic" ;
|
||||
French_PN = mkPN "French" ;
|
||||
Fusion_PN = mkPN "Fusion" ;
|
||||
German_PN = mkPN "German" ;
|
||||
Greek_PN = mkPN "Greek" ;
|
||||
Haitian_PN = mkPN "Haitian" ;
|
||||
Hungarian_PN = mkPN "Hungarian" ;
|
||||
Indian_PN = mkPN "Indian" ;
|
||||
Indonesian_PN = mkPN "Indonesian" ;
|
||||
International_PN = mkPN "International" ;
|
||||
Irish_PN = mkPN "Irish" ;
|
||||
Israeli_PN = mkPN "Israeli" ;
|
||||
Italian_PN = mkPN "Italian" ;
|
||||
Jamaican_PN = mkPN "Jamaican" ;
|
||||
Japanese_PN = mkPN "Japanese" ;
|
||||
Jewish_PN = mkPN "Jewish" ;
|
||||
Korean_PN = mkPN "Korean" ;
|
||||
LatinAmerican_PN = mkPN ("Latin" ++ "American") ;
|
||||
Lebanese_PN = mkPN "Lebanese" ;
|
||||
Malaysian_PN = mkPN "Malaysian" ;
|
||||
Mexican_PN = mkPN "Mexican" ;
|
||||
MiddleEastern_PN = mkPN ("Middle" ++ "Eastern") ;
|
||||
Mongolian_PN = mkPN "Mongolian" ;
|
||||
Moroccan_PN = mkPN "Moroccan" ;
|
||||
NewZealandCuisine_PN = mkPN ("New" ++ "Zealand") ;
|
||||
Nicaraguan_PN = mkPN "Nicaraguan" ;
|
||||
Nouveau_PN = mkPN "Nouveau" ;
|
||||
Pakistani_PN = mkPN "Pakistani" ;
|
||||
Persian_PN = mkPN "Persian" ;
|
||||
Peruvian_PN = mkPN "Peruvian" ;
|
||||
Philippine_PN = mkPN "Philippine" ;
|
||||
Polish_PN = mkPN "Polish" ;
|
||||
Polynesian_PN = mkPN "Polynesian" ;
|
||||
Portuguese_PN = mkPN "Portuguese" ;
|
||||
PuertoRican_PN = mkPN ("Puerto" ++ "Rican") ;
|
||||
Russian_PN = mkPN "Russian" ;
|
||||
Salvadorean_PN = mkPN "Salvadorean" ;
|
||||
Scandinavian_PN = mkPN "Scandinavian" ;
|
||||
Scottish_PN = mkPN "Scottish" ;
|
||||
Seafood_PN = mkPN "Seafood" ;
|
||||
Singaporean_PN = mkPN "Singaporean" ;
|
||||
Spanish_PN = mkPN "Spanish" ;
|
||||
SriLankan_PN = mkPN ("Sri" ++ "Lankan") ;
|
||||
Swedish_PN = mkPN "Swedish" ;
|
||||
Swiss_PN = mkPN "Swiss" ;
|
||||
Tex_Mex_PN = mkPN "Tex-Mex" ;
|
||||
Thai_PN = mkPN "Thai" ;
|
||||
Tibetan_PN = mkPN "Tibetan" ;
|
||||
Turkish_PN = mkPN "Turkish" ;
|
||||
Ukrainian_PN = mkPN "Ukrainian" ;
|
||||
Vegan_PN = mkPN "Vegan" ;
|
||||
Vegetarian_PN = mkPN "Vegetarian" ;
|
||||
Venezulean_PN = mkPN "Venezulean" ;
|
||||
Vietnamese_PN = mkPN "Vietnamese" ;
|
||||
|
||||
-- Determiners
|
||||
defSg_Det = defSgDet ;
|
||||
-- defPl_Det = defPlDet ;
|
||||
indefSg_Det = indefSgDet ;
|
||||
-- indefPl_Det = indefPlDet ;
|
||||
this_Det = mkDet this_QuantSg ;
|
||||
-- that_Det = mkDet that_QuantSg ;
|
||||
-- these_Det = mkDet these_QuantPl ;
|
||||
-- those_Det = mkDet those_QuantPl ;
|
||||
|
||||
}
|
||||
401
examples/wiki/LexWikiFin.gf
Normal file
401
examples/wiki/LexWikiFin.gf
Normal file
@@ -0,0 +1,401 @@
|
||||
|
||||
instance LexWikiFin of LexWiki = 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 noun = mkUtt politeImpForm positivePol (mkImp (mkVP (mkV2 verb) (mkNP det 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)) ;
|
||||
countryName_Utt pn = mkUtt (mkNP pn) ;
|
||||
cuisineName_Utt pn = mkUtt (mkNP pn) ;
|
||||
|
||||
-- Verbs
|
||||
cancel_V = mkV "peruuttaa" ;
|
||||
select_V = mkV "valita" ;
|
||||
edit_V = mkV "editoida" ;
|
||||
save_V = mkV "tallentaa" ;
|
||||
add_V = mkV "lisätä" ;
|
||||
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ä" ;
|
||||
|
||||
-- Nouns
|
||||
-- Information
|
||||
information_N = mkN "informaatio" ;
|
||||
name_N = mkN "nimi" "nimen" ;
|
||||
address_N = mkN "osoite" ;
|
||||
city_N = mkN "kaupunki" ;
|
||||
state_N = mkN "osavaltio" ;
|
||||
postalcode_N = mkN "postinumero" ;
|
||||
country_N = mkN "maa" ;
|
||||
phone_N = mkN "puhelin" ;
|
||||
cuisine_N = mkN "keittiö" ;
|
||||
language_N = mkN "kieli" "kielen" ;
|
||||
|
||||
-- Misc
|
||||
page_N = mkN "sivu" ;
|
||||
index_N = mkN "sisällysluettelo" ;
|
||||
review_N = mkN "arvostelu" ;
|
||||
restaurant_N = mkN "ravintola" ;
|
||||
food_N = mkN "ruoka" ;
|
||||
service_N = mkN "palvelu" ;
|
||||
node_N = mkN "solmu" ;
|
||||
tree_N = mkN "puu" ;
|
||||
|
||||
-- Proper Nouns
|
||||
-- Countries
|
||||
Andorra_PN = mkPN "Andorra" ;
|
||||
UnitedArabEmirates_PN = mkPN ("United" ++ "Arab" ++ "Emirates") ;
|
||||
Afghanistan_PN = mkPN "Afghanistan" ;
|
||||
AntiguaAndBarbuda_PN = mkPN ("Antigua" ++ "and" ++ "Barbuda") ;
|
||||
Anguilla_PN = mkPN "Anguilla" ;
|
||||
Albania_PN = mkPN "Albania" ;
|
||||
Armenia_PN = mkPN "Armenia" ;
|
||||
NetherlandsAntilles_PN = mkPN ("Netherlands" ++ "Antilles") ;
|
||||
Angola_PN = mkPN "Angola" ;
|
||||
Antarctica_PN = mkPN "Antarctica" ;
|
||||
Argentina_PN = mkPN "Argentina" ;
|
||||
AmericanSamoa_PN = mkPN ("American" ++ "Samoa") ;
|
||||
Austria_PN = mkPN "Austria" ;
|
||||
Australia_PN = mkPN "Australia" ;
|
||||
Aruba_PN = mkPN "Aruba" ;
|
||||
AlandIslands_PN = mkPN ("Aland" ++ "Islands") ;
|
||||
Azerbaijan_PN = mkPN "Azerbaijan" ;
|
||||
BosniaAndHerzegovina_PN = mkPN ("Bosnia" ++ "and" ++ "Herzegovina") ;
|
||||
Barbados_PN = mkPN "Barbados" ;
|
||||
Bangladesh_PN = mkPN "Bangladesh" ;
|
||||
Belgium_PN = mkPN "Belgium" ;
|
||||
BurkinaFaso_PN = mkPN ("Burkina" ++ "Faso") ;
|
||||
Bulgaria_PN = mkPN "Bulgaria" ;
|
||||
Bahrain_PN = mkPN "Bahrain" ;
|
||||
Burundi_PN = mkPN "Burundi" ;
|
||||
Benin_PN = mkPN "Benin" ;
|
||||
Bermuda_PN = mkPN "Bermuda" ;
|
||||
Brunei_PN = mkPN "Brunei" ;
|
||||
Bolivia_PN = mkPN "Bolivia" ;
|
||||
Brazil_PN = mkPN "Brazil" ;
|
||||
Bahamas_PN = mkPN "Bahamas" ;
|
||||
Bhutan_PN = mkPN "Bhutan" ;
|
||||
BouvetIsland_PN = mkPN ("Bouvet" ++ "Island") ;
|
||||
Botswana_PN = mkPN "Botswana" ;
|
||||
Belarus_PN = mkPN "Belarus" ;
|
||||
Belize_PN = mkPN "Belize" ;
|
||||
Canada_PN = mkPN "Canada" ;
|
||||
CocosIslands_PN = mkPN ("Cocos" ++ "Islands") ;
|
||||
CongoDemocraticRepublicofthe_PN = mkPN ("Congo," ++ "Democratic" ++ "Republic" ++ "of" ++ "the") ;
|
||||
CentralAfricanRepublic_PN = mkPN ("Central" ++ "African" ++ "Republic") ;
|
||||
Congo_PN = mkPN "Congo" ;
|
||||
Switzerland_PN = mkPN "Switzerland" ;
|
||||
CotedIvoire_PN = mkPN ("Côte" ++ "d'Ivoire") ;
|
||||
CookIslands_PN = mkPN ("Cook" ++ "Islands") ;
|
||||
Chile_PN = mkPN "Chile" ;
|
||||
Cameroon_PN = mkPN "Cameroon" ;
|
||||
China_PN = mkPN "China" ;
|
||||
Colombia_PN = mkPN "Colombia" ;
|
||||
CostaRica_PN = mkPN ("Costa" ++ "Rica") ;
|
||||
SerbiaAndMontenegro_PN = mkPN ("Serbia" ++ "and" ++ "Montenegro") ;
|
||||
Cuba_PN = mkPN "Cuba" ;
|
||||
CapeVerde_PN = mkPN ("Cape" ++ "Verde") ;
|
||||
ChristmasIsland_PN = mkPN ("Christmas" ++ "Island") ;
|
||||
Cyprus_PN = mkPN "Cyprus" ;
|
||||
CzechRepublic_PN = mkPN ("Czech" ++ "Republic") ;
|
||||
Germany_PN = mkPN "Germany" ;
|
||||
Djibouti_PN = mkPN "Djibouti" ;
|
||||
Denmark_PN = mkPN "Denmark" ;
|
||||
Dominica_PN = mkPN "Dominica" ;
|
||||
DominicanRepublic_PN = mkPN ("Dominican" ++ "Republic") ;
|
||||
Algeria_PN = mkPN "Algeria" ;
|
||||
Ecuador_PN = mkPN "Ecuador" ;
|
||||
Estonia_PN = mkPN "Estonia" ;
|
||||
Egypt_PN = mkPN "Egypt" ;
|
||||
WesternSahara_PN = mkPN ("Western" ++ "Sahara") ;
|
||||
Eritrea_PN = mkPN "Eritrea" ;
|
||||
Spain_PN = mkPN "Spain" ;
|
||||
Ethiopia_PN = mkPN "Ethiopia" ;
|
||||
Finland_PN = mkPN "Finland" ;
|
||||
Fiji_PN = mkPN "Fiji" ;
|
||||
FalklandIslands_PN = mkPN ("Falkland" ++ "Islands") ;
|
||||
Micronesia_PN = mkPN "Micronesia" ;
|
||||
FaroeIslands_PN = mkPN ("Faroe" ++ "Islands") ;
|
||||
France_PN = mkPN "France" ;
|
||||
Gabon_PN = mkPN "Gabon" ;
|
||||
UnitedKingdom_PN = mkPN ("United" ++ "Kingdom") ;
|
||||
Grenada_PN = mkPN "Grenada" ;
|
||||
Georgia_PN = mkPN "Georgia" ;
|
||||
FrenchGuiana_PN = mkPN ("French" ++ "Guiana") ;
|
||||
Guernsey_PN = mkPN "Guernsey" ;
|
||||
Ghana_PN = mkPN "Ghana" ;
|
||||
Gibraltar_PN = mkPN "Gibraltar" ;
|
||||
Greenland_PN = mkPN "Greenland" ;
|
||||
Gambia_PN = mkPN "Gambia" ;
|
||||
Guinea_PN = mkPN "Guinea" ;
|
||||
Guadeloupe_PN = mkPN "Guadeloupe" ;
|
||||
EquatorialGuinea_PN = mkPN ("Equatorial" ++ "Guinea") ;
|
||||
Greece_PN = mkPN "Greece" ;
|
||||
SouthGeorgiaAndTheSouthSandwichIslands_PN = mkPN ("South" ++ "Georgia" ++ "and" ++ "the" ++ "South" ++ "Sandwich" ++ "Islands") ;
|
||||
Guatemala_PN = mkPN "Guatemala" ;
|
||||
Guam_PN = mkPN "Guam" ;
|
||||
GuineaBissau_PN = mkPN "Guinea-Bissau" ;
|
||||
Guyana_PN = mkPN "Guyana" ;
|
||||
HongKong_PN = mkPN ("Hong" ++ "Kong") ;
|
||||
HeardIslandAndMcDonaldIslands_PN = mkPN ("Heard" ++ "Island" ++ "and" ++ "McDonald" ++ "Islands") ;
|
||||
Honduras_PN = mkPN "Honduras" ;
|
||||
Croatia_PN = mkPN "Croatia" ;
|
||||
Haiti_PN = mkPN "Haiti" ;
|
||||
Hungary_PN = mkPN "Hungary" ;
|
||||
Indonesia_PN = mkPN "Indonesia" ;
|
||||
Ireland_PN = mkPN "Ireland" ;
|
||||
Israel_PN = mkPN "Israel" ;
|
||||
IsleofMan_PN = mkPN ("Isle" ++ "of" ++ "Man") ;
|
||||
India_PN = mkPN "India" ;
|
||||
BritishIndianOceanTerritory_PN = mkPN ("British" ++ "Indian" ++ "Ocean" ++ "Territory") ;
|
||||
Iraq_PN = mkPN "Iraq" ;
|
||||
Iran_PN = mkPN "Iran" ;
|
||||
Iceland_PN = mkPN "Iceland" ;
|
||||
Italy_PN = mkPN "Italy" ;
|
||||
Jersey_PN = mkPN "Jersey" ;
|
||||
Jamaica_PN = mkPN "Jamaica" ;
|
||||
Jordan_PN = mkPN "Jordan" ;
|
||||
Japan_PN = mkPN "Japan" ;
|
||||
Kenya_PN = mkPN "Kenya" ;
|
||||
Kyrgyzstan_PN = mkPN "Kyrgyzstan" ;
|
||||
Cambodia_PN = mkPN "Cambodia" ;
|
||||
Kiribati_PN = mkPN "Kiribati" ;
|
||||
Comoros_PN = mkPN "Comoros" ;
|
||||
SaintKittsAndNevis_PN = mkPN ("Saint" ++ "Kitts" ++ "and" ++ "Nevis") ;
|
||||
NorthKorea_PN = mkPN ("North" ++ "Korea") ;
|
||||
SouthKorea_PN = mkPN ("South" ++ "Korea") ;
|
||||
Kuwait_PN = mkPN "Kuwait" ;
|
||||
CaymanIslands_PN = mkPN ("Cayman" ++ "Islands") ;
|
||||
Kazakhstan_PN = mkPN "Kazakhstan" ;
|
||||
Laos_PN = mkPN "Laos" ;
|
||||
Lebanon_PN = mkPN "Lebanon" ;
|
||||
SaintLucia_PN = mkPN ("Saint" ++ "Lucia") ;
|
||||
Liechtenstein_PN = mkPN "Liechtenstein" ;
|
||||
SriLanka_PN = mkPN ("Sri" ++ "Lanka") ;
|
||||
Liberia_PN = mkPN "Liberia" ;
|
||||
Lesotho_PN = mkPN "Lesotho" ;
|
||||
Lithuania_PN = mkPN "Lithuania" ;
|
||||
Luxembourg_PN = mkPN "Luxembourg" ;
|
||||
Latvia_PN = mkPN "Latvia" ;
|
||||
Libya_PN = mkPN "Libya" ;
|
||||
Morocco_PN = mkPN "Morocco" ;
|
||||
Monaco_PN = mkPN "Monaco" ;
|
||||
Moldova_PN = mkPN "Moldova" ;
|
||||
Montenegro_PN = mkPN "Montenegro" ;
|
||||
Madagascar_PN = mkPN "Madagascar" ;
|
||||
MarshallIslands_PN = mkPN ("Marshall" ++ "Islands") ;
|
||||
Macedonia_PN = mkPN "Macedonia" ;
|
||||
Mali_PN = mkPN "Mali" ;
|
||||
Myanmar_PN = mkPN "Myanmar" ;
|
||||
Mongolia_PN = mkPN "Mongolia" ;
|
||||
Macao_PN = mkPN "Macao" ;
|
||||
NorthernMarianaIslands_PN = mkPN ("Northern" ++ "Mariana" ++ "Islands") ;
|
||||
Martinique_PN = mkPN "Martinique" ;
|
||||
Mauritania_PN = mkPN "Mauritania" ;
|
||||
Montserrat_PN = mkPN "Montserrat" ;
|
||||
Malta_PN = mkPN "Malta" ;
|
||||
Mauritius_PN = mkPN "Mauritius" ;
|
||||
Maldives_PN = mkPN "Maldives" ;
|
||||
Malawi_PN = mkPN "Malawi" ;
|
||||
Mexico_PN = mkPN "Mexico" ;
|
||||
Malaysia_PN = mkPN "Malaysia" ;
|
||||
Mozambique_PN = mkPN "Mozambique" ;
|
||||
Namibia_PN = mkPN "Namibia" ;
|
||||
NewCaledonia_PN = mkPN ("New" ++ "Caledonia") ;
|
||||
Niger_PN = mkPN "Niger" ;
|
||||
NorfolkIsland_PN = mkPN ("Norfolk" ++ "Island") ;
|
||||
Nigeria_PN = mkPN "Nigeria" ;
|
||||
Nicaragua_PN = mkPN "Nicaragua" ;
|
||||
Netherlands_PN = mkPN "Netherlands" ;
|
||||
Norway_PN = mkPN "Norway" ;
|
||||
Nepal_PN = mkPN "Nepal" ;
|
||||
Nauru_PN = mkPN "Nauru" ;
|
||||
Niue_PN = mkPN "Niue" ;
|
||||
NewZealand_PN = mkPN ("New" ++ "Zealand") ;
|
||||
Oman_PN = mkPN "Oman" ;
|
||||
Panama_PN = mkPN "Panama" ;
|
||||
Peru_PN = mkPN "Peru" ;
|
||||
FrenchPolynesia_PN = mkPN ("French" ++ "Polynesia") ;
|
||||
PapuaNewGuinea_PN = mkPN ("Papua" ++ "New" ++ "Guinea") ;
|
||||
Philippines_PN = mkPN "Philippines" ;
|
||||
Pakistan_PN = mkPN "Pakistan" ;
|
||||
Poland_PN = mkPN "Poland" ;
|
||||
SaintPierreAndMiquelon_PN = mkPN ("Saint" ++ "Pierre" ++ "and" ++ "Miquelon") ;
|
||||
Pitcairn_PN = mkPN "Pitcairn" ;
|
||||
PuertoRico_PN = mkPN ("Puerto" ++ "Rico") ;
|
||||
PalestinianTerritory_PN = mkPN ("Palestinian" ++ "Territory") ;
|
||||
Portugal_PN = mkPN "Portugal" ;
|
||||
Palau_PN = mkPN "Palau" ;
|
||||
Paraguay_PN = mkPN "Paraguay" ;
|
||||
Qatar_PN = mkPN "Qatar" ;
|
||||
Reunion_PN = mkPN "Reunion" ;
|
||||
Romania_PN = mkPN "Romania" ;
|
||||
Serbia_PN = mkPN "Serbia" ;
|
||||
Russia_PN = mkPN "Russia" ;
|
||||
Rwanda_PN = mkPN "Rwanda" ;
|
||||
SaudiArabia_PN = mkPN ("Saudi" ++ "Arabia") ;
|
||||
SolomonIslands_PN = mkPN ("Solomon" ++ "Islands") ;
|
||||
Seychelles_PN = mkPN "Seychelles" ;
|
||||
Sudan_PN = mkPN "Sudan" ;
|
||||
Sweden_PN = mkPN "Sweden" ;
|
||||
Singapore_PN = mkPN "Singapore" ;
|
||||
SaintHelena_PN = mkPN ("Saint" ++ "Helena") ;
|
||||
Slovenia_PN = mkPN "Slovenia" ;
|
||||
SvalbardAndJanMayen_PN = mkPN ("Svalbard" ++ "and" ++ "Jan" ++ "Mayen") ;
|
||||
Slovakia_PN = mkPN "Slovakia" ;
|
||||
SierraLeone_PN = mkPN ("Sierra" ++ "Leone") ;
|
||||
SanMarino_PN = mkPN ("San" ++ "Marino") ;
|
||||
Senegal_PN = mkPN "Senegal" ;
|
||||
Somalia_PN = mkPN "Somalia" ;
|
||||
Suriname_PN = mkPN "Suriname" ;
|
||||
SaoTomeAndPrincipe_PN = mkPN ("São" ++ "Tomé" ++ "and" ++ "PrÃncipe") ;
|
||||
ElSalvador_PN = mkPN ("El" ++ "Salvador") ;
|
||||
Syria_PN = mkPN "Syria" ;
|
||||
Swaziland_PN = mkPN "Swaziland" ;
|
||||
TurksAndCaicosIslands_PN = mkPN ("Turks" ++ "and" ++ "Caicos" ++ "Islands") ;
|
||||
Chad_PN = mkPN "Chad" ;
|
||||
FrenchSouthernTerritories_PN = mkPN ("French" ++ "Southern" ++ "Territories") ;
|
||||
Togo_PN = mkPN "Togo" ;
|
||||
Thailand_PN = mkPN "Thailand" ;
|
||||
Tajikistan_PN = mkPN "Tajikistan" ;
|
||||
Tokelau_PN = mkPN "Tokelau" ;
|
||||
EastTimor_PN = mkPN ("East" ++ "Timor") ;
|
||||
Turkmenistan_PN = mkPN "Turkmenistan" ;
|
||||
Tunisia_PN = mkPN "Tunisia" ;
|
||||
Tonga_PN = mkPN "Tonga" ;
|
||||
Turkey_PN = mkPN "Turkey" ;
|
||||
TrinidadAndTobago_PN = mkPN ("Trinidad" ++ "and" ++ "Tobago") ;
|
||||
Tuvalu_PN = mkPN "Tuvalu" ;
|
||||
Taiwan_PN = mkPN "Taiwan" ;
|
||||
Tanzania_PN = mkPN "Tanzania" ;
|
||||
Ukraine_PN = mkPN "Ukraine" ;
|
||||
Uganda_PN = mkPN "Uganda" ;
|
||||
UnitedStatesMinorOutlyingIslands_PN = mkPN ("United" ++ "States" ++ "minor" ++ "outlying" ++ "islands") ;
|
||||
UnitedStates_PN = mkPN ("United" ++ "States") ;
|
||||
Uruguay_PN = mkPN "Uruguay" ;
|
||||
Uzbekistan_PN = mkPN "Uzbekistan" ;
|
||||
VaticanCity_PN = mkPN ("Vatican" ++ "City") ;
|
||||
SaintVincentAndtheGrenadines_PN = mkPN ("Saint" ++ "Vincent" ++ "and" ++ "the" ++ "Grenadines") ;
|
||||
Venezuela_PN = mkPN "Venezuela" ;
|
||||
VirginIslandsBritish_PN = mkPN ("Virgin" ++ "Islands," ++ "British") ;
|
||||
VirginIslandsUS_PN = mkPN ("Virgin" ++ "Islands," ++ "U.S.") ;
|
||||
Vietnam_PN = mkPN "Vietnam" ;
|
||||
Vanuatu_PN = mkPN "Vanuatu" ;
|
||||
WallisAndFutuna_PN = mkPN ("Wallis" ++ "and" ++ "Futuna") ;
|
||||
Samoa_PN = mkPN "Samoa" ;
|
||||
Yemen_PN = mkPN "Yemen" ;
|
||||
Mayotte_PN = mkPN "Mayotte" ;
|
||||
SouthAfrica_PN = mkPN ("South" ++ "Africa") ;
|
||||
Zambia_PN = mkPN "Zambia" ;
|
||||
Zimbabwe_PN = mkPN "Zimbabwe" ;
|
||||
|
||||
-- Cuisines
|
||||
Afghani_PN = mkPN "Afghani" ;
|
||||
African_PN = mkPN "African" ;
|
||||
American_PN = mkPN "American" ;
|
||||
Arabic_PN = mkPN "Arabic" ;
|
||||
Argentine_PN = mkPN "Argentine" ;
|
||||
Armenian_PN = mkPN "Armenian" ;
|
||||
Asian_PN = mkPN "Asian" ;
|
||||
Australian_PN = mkPN "Australian" ;
|
||||
Austrian_PN = mkPN "Austrian" ;
|
||||
Balinese_PN = mkPN "Balinese" ;
|
||||
Basque_PN = mkPN "Basque" ;
|
||||
Belgian_PN = mkPN "Belgian" ;
|
||||
Brazilian_PN = mkPN "Brazilian" ;
|
||||
Bulgarian_PN = mkPN "Bulgarian" ;
|
||||
Burmese_PN = mkPN "Burmese" ;
|
||||
Cajun_PN = mkPN "Cajun" ;
|
||||
Cambodian_PN = mkPN "Cambodian" ;
|
||||
Caribbean_PN = mkPN "Caribbean" ;
|
||||
Catalan_PN = mkPN "Catalan" ;
|
||||
Chinese_PN = mkPN "Chinese" ;
|
||||
Colombian_PN = mkPN "Colombian" ;
|
||||
Contemporary_PN = mkPN "Contemporary" ;
|
||||
Continental_PN = mkPN "Continental" ;
|
||||
Creole_PN = mkPN "Creole" ;
|
||||
Cuban_PN = mkPN "Cuban" ;
|
||||
Czech_PN = mkPN "Czech" ;
|
||||
Dutch_PN = mkPN "Dutch" ;
|
||||
EasternEuropean_PN = mkPN ("Eastern" ++ "European") ;
|
||||
Eclectic_PN = mkPN "Eclectic" ;
|
||||
Egyptian_PN = mkPN "Egyptian" ;
|
||||
Finlish_PN = mkPN "Finlish" ;
|
||||
Ethiopian_PN = mkPN "Ethiopian" ;
|
||||
Ethnic_PN = mkPN "Ethnic" ;
|
||||
French_PN = mkPN "French" ;
|
||||
Fusion_PN = mkPN "Fusion" ;
|
||||
German_PN = mkPN "German" ;
|
||||
Greek_PN = mkPN "Greek" ;
|
||||
Haitian_PN = mkPN "Haitian" ;
|
||||
Hungarian_PN = mkPN "Hungarian" ;
|
||||
Indian_PN = mkPN "Indian" ;
|
||||
Indonesian_PN = mkPN "Indonesian" ;
|
||||
International_PN = mkPN "International" ;
|
||||
Irish_PN = mkPN "Irish" ;
|
||||
Israeli_PN = mkPN "Israeli" ;
|
||||
Italian_PN = mkPN "Italian" ;
|
||||
Jamaican_PN = mkPN "Jamaican" ;
|
||||
Japanese_PN = mkPN "Japanese" ;
|
||||
Jewish_PN = mkPN "Jewish" ;
|
||||
Korean_PN = mkPN "Korean" ;
|
||||
LatinAmerican_PN = mkPN ("Latin" ++ "American") ;
|
||||
Lebanese_PN = mkPN "Lebanese" ;
|
||||
Malaysian_PN = mkPN "Malaysian" ;
|
||||
Mexican_PN = mkPN "Mexican" ;
|
||||
MiddleEastern_PN = mkPN ("Middle" ++ "Eastern") ;
|
||||
Mongolian_PN = mkPN "Mongolian" ;
|
||||
Moroccan_PN = mkPN "Moroccan" ;
|
||||
NewZealandCuisine_PN = mkPN ("New" ++ "Zealand") ;
|
||||
Nicaraguan_PN = mkPN "Nicaraguan" ;
|
||||
Nouveau_PN = mkPN "Nouveau" ;
|
||||
Pakistani_PN = mkPN "Pakistani" ;
|
||||
Persian_PN = mkPN "Persian" ;
|
||||
Peruvian_PN = mkPN "Peruvian" ;
|
||||
Philippine_PN = mkPN "Philippine" ;
|
||||
Polish_PN = mkPN "Polish" ;
|
||||
Polynesian_PN = mkPN "Polynesian" ;
|
||||
Portuguese_PN = mkPN "Portuguese" ;
|
||||
PuertoRican_PN = mkPN ("Puerto" ++ "Rican") ;
|
||||
Russian_PN = mkPN "Russian" ;
|
||||
Salvadorean_PN = mkPN "Salvadorean" ;
|
||||
Scandinavian_PN = mkPN "Scandinavian" ;
|
||||
Scottish_PN = mkPN "Scottish" ;
|
||||
Seafood_PN = mkPN "Seafood" ;
|
||||
Singaporean_PN = mkPN "Singaporean" ;
|
||||
Spanish_PN = mkPN "Spanish" ;
|
||||
SriLankan_PN = mkPN ("Sri" ++ "Lankan") ;
|
||||
Swedish_PN = mkPN "Swedish" ;
|
||||
Swiss_PN = mkPN "Swiss" ;
|
||||
Tex_Mex_PN = mkPN "Tex-Mex" ;
|
||||
Thai_PN = mkPN "Thai" ;
|
||||
Tibetan_PN = mkPN "Tibetan" ;
|
||||
Turkish_PN = mkPN "Turkish" ;
|
||||
Ukrainian_PN = mkPN "Ukrainian" ;
|
||||
Vegan_PN = mkPN "Vegan" ;
|
||||
Vegetarian_PN = mkPN "Vegetarian" ;
|
||||
Venezulean_PN = mkPN "Venezulean" ;
|
||||
Vietnamese_PN = mkPN "Vietnamese" ;
|
||||
|
||||
-- Determiners
|
||||
defSg_Det = defSgDet ;
|
||||
-- defPl_Det = defPlDet ;
|
||||
indefSg_Det = indefSgDet ;
|
||||
-- indefPl_Det = indefPlDet ;
|
||||
this_Det = mkDet this_QuantSg ;
|
||||
-- that_Det = mkDet that_QuantSg ;
|
||||
-- these_Det = mkDet these_QuantPl ;
|
||||
-- those_Det = mkDet those_QuantPl ;
|
||||
|
||||
}
|
||||
402
examples/wiki/LexWikiFre.gf
Normal file
402
examples/wiki/LexWikiFre.gf
Normal file
@@ -0,0 +1,402 @@
|
||||
|
||||
instance LexWikiFre of LexWiki = 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 noun = mkUtt politeImpForm positivePol (mkImp (mkVP (mkV2 verb) (mkNP det 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)) ;
|
||||
countryName_Utt pn = mkUtt (mkNP pn) ;
|
||||
cuisineName_Utt pn = mkUtt (mkNP pn) ;
|
||||
|
||||
-- Verbs
|
||||
cancel_V = mkV "annuler" ;
|
||||
select_V = mkV "selectionner" ;
|
||||
edit_V = mkV "rédiger" ;
|
||||
save_V = mkV "sauvegarder" ;
|
||||
add_V = mkV "ajouter" ;
|
||||
undo_V = défaire_V2 ;
|
||||
redo_V = refaire_V2 ;
|
||||
cut_V = mkV "couper" ;
|
||||
copy_V = mkV "copier" ;
|
||||
paste_V = mkV "coller" ;
|
||||
delete_V = mkV "supprimer" ;
|
||||
refine_V = mkV "raffiner" ;
|
||||
replace_V = mkV "remplacer" ;
|
||||
wrap_V = mkV "emballer" ;
|
||||
|
||||
-- Nouns
|
||||
-- Information
|
||||
information_N = mkN "informaatio" ;
|
||||
name_N = mkN "nom" ;
|
||||
address_N = mkN "adresse" ;
|
||||
city_N = mkN "ville" ;
|
||||
state_N = mkN "état" ;
|
||||
postalcode_N = mkN "code" masculine ;
|
||||
country_N = mkN "pays" ;
|
||||
phone_N = mkN "téléphone" masculine ;
|
||||
cuisine_N = mkN "cuisine" ;
|
||||
language_N = mkN "langue" ;
|
||||
|
||||
-- Misc
|
||||
page_N = mkN "page" ;
|
||||
index_N = mkN "index" ;
|
||||
review_N = mkN "critique" ;
|
||||
restaurant_N = mkN "restaurant" ;
|
||||
food_N = mkN "manger" ;
|
||||
service_N = mkN "service" masculine ;
|
||||
node_N = mkN "noeud" ;
|
||||
tree_N = mkN "arbre" ;
|
||||
|
||||
-- Proper Nouns
|
||||
-- Countries
|
||||
Andorra_PN = mkPN "Andorra" ;
|
||||
UnitedArabEmirates_PN = mkPN ("United_Arab_Emirates") ;
|
||||
Afghanistan_PN = mkPN "Afghanistan" ;
|
||||
AntiguaAndBarbuda_PN = mkPN ("Antigua_and_Barbuda") ;
|
||||
Anguilla_PN = mkPN "Anguilla" ;
|
||||
Albania_PN = mkPN "Albania" ;
|
||||
Armenia_PN = mkPN "Armenia" ;
|
||||
NetherlandsAntilles_PN = mkPN ("Netherlands_Antilles") ;
|
||||
Angola_PN = mkPN "Angola" ;
|
||||
Antarctica_PN = mkPN "Antarctica" ;
|
||||
Argentina_PN = mkPN "Argentina" ;
|
||||
AmericanSamoa_PN = mkPN ("American_Samoa") ;
|
||||
Austria_PN = mkPN "Austria" ;
|
||||
Australia_PN = mkPN "Australia" ;
|
||||
Aruba_PN = mkPN "Aruba" ;
|
||||
AlandIslands_PN = mkPN ("Aland_Islands") ;
|
||||
Azerbaijan_PN = mkPN "Azerbaijan" ;
|
||||
BosniaAndHerzegovina_PN = mkPN ("Bosnia_and_Herzegovina") ;
|
||||
Barbados_PN = mkPN "Barbados" ;
|
||||
Bangladesh_PN = mkPN "Bangladesh" ;
|
||||
Belgium_PN = mkPN "Belgium" ;
|
||||
BurkinaFaso_PN = mkPN ("Burkina_Faso") ;
|
||||
Bulgaria_PN = mkPN "Bulgaria" ;
|
||||
Bahrain_PN = mkPN "Bahrain" ;
|
||||
Burundi_PN = mkPN "Burundi" ;
|
||||
Benin_PN = mkPN "Benin" ;
|
||||
Bermuda_PN = mkPN "Bermuda" ;
|
||||
Brunei_PN = mkPN "Brunei" ;
|
||||
Bolivia_PN = mkPN "Bolivia" ;
|
||||
Brazil_PN = mkPN "Brazil" ;
|
||||
Bahamas_PN = mkPN "Bahamas" ;
|
||||
Bhutan_PN = mkPN "Bhutan" ;
|
||||
BouvetIsland_PN = mkPN ("Bouvet_Island") ;
|
||||
Botswana_PN = mkPN "Botswana" ;
|
||||
Belarus_PN = mkPN "Belarus" ;
|
||||
Belize_PN = mkPN "Belize" ;
|
||||
Canada_PN = mkPN "Canada" ;
|
||||
CocosIslands_PN = mkPN ("Cocos_Islands") ;
|
||||
CongoDemocraticRepublicofthe_PN = mkPN ("Congo,_Democratic_Republic_of_the") ;
|
||||
CentralAfricanRepublic_PN = mkPN ("Central_African_Republic") ;
|
||||
Congo_PN = mkPN "Congo" ;
|
||||
Switzerland_PN = mkPN "Switzerland" ;
|
||||
CotedIvoire_PN = mkPN ("Côte_d'Ivoire") ;
|
||||
CookIslands_PN = mkPN ("Cook_Islands") ;
|
||||
Chile_PN = mkPN "Chile" ;
|
||||
Cameroon_PN = mkPN "Cameroon" ;
|
||||
China_PN = mkPN "China" ;
|
||||
Colombia_PN = mkPN "Colombia" ;
|
||||
CostaRica_PN = mkPN ("Costa_Rica") ;
|
||||
SerbiaAndMontenegro_PN = mkPN ("Serbia_and_Montenegro") ;
|
||||
Cuba_PN = mkPN "Cuba" ;
|
||||
CapeVerde_PN = mkPN ("Cape_Verde") ;
|
||||
ChristmasIsland_PN = mkPN ("Christmas_Island") ;
|
||||
Cyprus_PN = mkPN "Cyprus" ;
|
||||
CzechRepublic_PN = mkPN ("Czech_Republic") ;
|
||||
Germany_PN = mkPN "Germany" ;
|
||||
Djibouti_PN = mkPN "Djibouti" ;
|
||||
Denmark_PN = mkPN "Denmark" ;
|
||||
Dominica_PN = mkPN "Dominica" ;
|
||||
DominicanRepublic_PN = mkPN ("Dominican_Republic") ;
|
||||
Algeria_PN = mkPN "Algeria" ;
|
||||
Ecuador_PN = mkPN "Ecuador" ;
|
||||
Estonia_PN = mkPN "Estonia" ;
|
||||
Egypt_PN = mkPN "Egypt" ;
|
||||
WesternSahara_PN = mkPN ("Western_Sahara") ;
|
||||
Eritrea_PN = mkPN "Eritrea" ;
|
||||
Spain_PN = mkPN "Spain" ;
|
||||
Ethiopia_PN = mkPN "Ethiopia" ;
|
||||
Finland_PN = mkPN "Finland" ;
|
||||
Fiji_PN = mkPN "Fiji" ;
|
||||
FalklandIslands_PN = mkPN ("Falkland_Islands") ;
|
||||
Micronesia_PN = mkPN "Micronesia" ;
|
||||
FaroeIslands_PN = mkPN ("Faroe_Islands") ;
|
||||
France_PN = mkPN "France" ;
|
||||
Gabon_PN = mkPN "Gabon" ;
|
||||
UnitedKingdom_PN = mkPN ("United_Kingdom") ;
|
||||
Grenada_PN = mkPN "Grenada" ;
|
||||
Georgia_PN = mkPN "Georgia" ;
|
||||
FrenchGuiana_PN = mkPN ("French_Guiana") ;
|
||||
Guernsey_PN = mkPN "Guernsey" ;
|
||||
Ghana_PN = mkPN "Ghana" ;
|
||||
Gibraltar_PN = mkPN "Gibraltar" ;
|
||||
Greenland_PN = mkPN "Greenland" ;
|
||||
Gambia_PN = mkPN "Gambia" ;
|
||||
Guinea_PN = mkPN "Guinea" ;
|
||||
Guadeloupe_PN = mkPN "Guadeloupe" ;
|
||||
EquatorialGuinea_PN = mkPN ("Equatorial_Guinea") ;
|
||||
Greece_PN = mkPN "Greece" ;
|
||||
SouthGeorgiaAndTheSouthSandwichIslands_PN = mkPN ("South_Georgia_and_the_South_Sandwich_Islands") ;
|
||||
Guatemala_PN = mkPN "Guatemala" ;
|
||||
Guam_PN = mkPN "Guam" ;
|
||||
GuineaBissau_PN = mkPN "Guinea-Bissau" ;
|
||||
Guyana_PN = mkPN "Guyana" ;
|
||||
HongKong_PN = mkPN ("Hong_Kong") ;
|
||||
HeardIslandAndMcDonaldIslands_PN = mkPN ("Heard_Island_and_McDonald_Islands") ;
|
||||
Honduras_PN = mkPN "Honduras" ;
|
||||
Croatia_PN = mkPN "Croatia" ;
|
||||
Haiti_PN = mkPN "Haiti" ;
|
||||
Hungary_PN = mkPN "Hungary" ;
|
||||
Indonesia_PN = mkPN "Indonesia" ;
|
||||
Ireland_PN = mkPN "Ireland" ;
|
||||
Israel_PN = mkPN "Israel" ;
|
||||
IsleofMan_PN = mkPN ("Isle_of_Man") ;
|
||||
India_PN = mkPN "India" ;
|
||||
BritishIndianOceanTerritory_PN = mkPN ("British_Indian_Ocean_Territory") ;
|
||||
Iraq_PN = mkPN "Iraq" ;
|
||||
Iran_PN = mkPN "Iran" ;
|
||||
Iceland_PN = mkPN "Iceland" ;
|
||||
Italy_PN = mkPN "Italy" ;
|
||||
Jersey_PN = mkPN "Jersey" ;
|
||||
Jamaica_PN = mkPN "Jamaica" ;
|
||||
Jordan_PN = mkPN "Jordan" ;
|
||||
Japan_PN = mkPN "Japan" ;
|
||||
Kenya_PN = mkPN "Kenya" ;
|
||||
Kyrgyzstan_PN = mkPN "Kyrgyzstan" ;
|
||||
Cambodia_PN = mkPN "Cambodia" ;
|
||||
Kiribati_PN = mkPN "Kiribati" ;
|
||||
Comoros_PN = mkPN "Comoros" ;
|
||||
SaintKittsAndNevis_PN = mkPN ("Saint_Kitts_and_Nevis") ;
|
||||
NorthKorea_PN = mkPN ("North_Korea") ;
|
||||
SouthKorea_PN = mkPN ("South_Korea") ;
|
||||
Kuwait_PN = mkPN "Kuwait" ;
|
||||
CaymanIslands_PN = mkPN ("Cayman_Islands") ;
|
||||
Kazakhstan_PN = mkPN "Kazakhstan" ;
|
||||
Laos_PN = mkPN "Laos" ;
|
||||
Lebanon_PN = mkPN "Lebanon" ;
|
||||
SaintLucia_PN = mkPN ("Saint_Lucia") ;
|
||||
Liechtenstein_PN = mkPN "Liechtenstein" ;
|
||||
SriLanka_PN = mkPN ("Sri_Lanka") ;
|
||||
Liberia_PN = mkPN "Liberia" ;
|
||||
Lesotho_PN = mkPN "Lesotho" ;
|
||||
Lithuania_PN = mkPN "Lithuania" ;
|
||||
Luxembourg_PN = mkPN "Luxembourg" ;
|
||||
Latvia_PN = mkPN "Latvia" ;
|
||||
Libya_PN = mkPN "Libya" ;
|
||||
Morocco_PN = mkPN "Morocco" ;
|
||||
Monaco_PN = mkPN "Monaco" ;
|
||||
Moldova_PN = mkPN "Moldova" ;
|
||||
Montenegro_PN = mkPN "Montenegro" ;
|
||||
Madagascar_PN = mkPN "Madagascar" ;
|
||||
MarshallIslands_PN = mkPN ("Marshall_Islands") ;
|
||||
Macedonia_PN = mkPN "Macedonia" ;
|
||||
Mali_PN = mkPN "Mali" ;
|
||||
Myanmar_PN = mkPN "Myanmar" ;
|
||||
Mongolia_PN = mkPN "Mongolia" ;
|
||||
Macao_PN = mkPN "Macao" ;
|
||||
NorthernMarianaIslands_PN = mkPN ("Northern_Mariana_Islands") ;
|
||||
Martinique_PN = mkPN "Martinique" ;
|
||||
Mauritania_PN = mkPN "Mauritania" ;
|
||||
Montserrat_PN = mkPN "Montserrat" ;
|
||||
Malta_PN = mkPN "Malta" ;
|
||||
Mauritius_PN = mkPN "Mauritius" ;
|
||||
Maldives_PN = mkPN "Maldives" ;
|
||||
Malawi_PN = mkPN "Malawi" ;
|
||||
Mexico_PN = mkPN "Mexico" ;
|
||||
Malaysia_PN = mkPN "Malaysia" ;
|
||||
Mozambique_PN = mkPN "Mozambique" ;
|
||||
Namibia_PN = mkPN "Namibia" ;
|
||||
NewCaledonia_PN = mkPN ("New_Caledonia") ;
|
||||
Niger_PN = mkPN "Niger" ;
|
||||
NorfolkIsland_PN = mkPN ("Norfolk_Island") ;
|
||||
Nigeria_PN = mkPN "Nigeria" ;
|
||||
Nicaragua_PN = mkPN "Nicaragua" ;
|
||||
Netherlands_PN = mkPN "Netherlands" ;
|
||||
Norway_PN = mkPN "Norway" ;
|
||||
Nepal_PN = mkPN "Nepal" ;
|
||||
Nauru_PN = mkPN "Nauru" ;
|
||||
Niue_PN = mkPN "Niue" ;
|
||||
NewZealand_PN = mkPN ("New_Zealand") ;
|
||||
Oman_PN = mkPN "Oman" ;
|
||||
Panama_PN = mkPN "Panama" ;
|
||||
Peru_PN = mkPN "Peru" ;
|
||||
FrenchPolynesia_PN = mkPN ("French_Polynesia") ;
|
||||
PapuaNewGuinea_PN = mkPN ("Papua_New_Guinea") ;
|
||||
Philippines_PN = mkPN "Philippines" ;
|
||||
Pakistan_PN = mkPN "Pakistan" ;
|
||||
Poland_PN = mkPN "Poland" ;
|
||||
SaintPierreAndMiquelon_PN = mkPN ("Saint_Pierre_and_Miquelon") ;
|
||||
Pitcairn_PN = mkPN "Pitcairn" ;
|
||||
PuertoRico_PN = mkPN ("Puerto_Rico") ;
|
||||
PalestinianTerritory_PN = mkPN ("Palestinian_Territory") ;
|
||||
Portugal_PN = mkPN "Portugal" ;
|
||||
Palau_PN = mkPN "Palau" ;
|
||||
Paraguay_PN = mkPN "Paraguay" ;
|
||||
Qatar_PN = mkPN "Qatar" ;
|
||||
Reunion_PN = mkPN "Reunion" ;
|
||||
Romania_PN = mkPN "Romania" ;
|
||||
Serbia_PN = mkPN "Serbia" ;
|
||||
Russia_PN = mkPN "Russia" ;
|
||||
Rwanda_PN = mkPN "Rwanda" ;
|
||||
SaudiArabia_PN = mkPN ("Saudi_Arabia") ;
|
||||
SolomonIslands_PN = mkPN ("Solomon_Islands") ;
|
||||
Seychelles_PN = mkPN "Seychelles" ;
|
||||
Sudan_PN = mkPN "Sudan" ;
|
||||
Sweden_PN = mkPN "Sweden" ;
|
||||
Singapore_PN = mkPN "Singapore" ;
|
||||
SaintHelena_PN = mkPN ("Saint_Helena") ;
|
||||
Slovenia_PN = mkPN "Slovenia" ;
|
||||
SvalbardAndJanMayen_PN = mkPN ("Svalbard_and_Jan_Mayen") ;
|
||||
Slovakia_PN = mkPN "Slovakia" ;
|
||||
SierraLeone_PN = mkPN ("Sierra_Leone") ;
|
||||
SanMarino_PN = mkPN ("San_Marino") ;
|
||||
Senegal_PN = mkPN "Senegal" ;
|
||||
Somalia_PN = mkPN "Somalia" ;
|
||||
Suriname_PN = mkPN "Suriname" ;
|
||||
SaoTomeAndPrincipe_PN = mkPN ("São_Tomé_and_PrÃncipe") ;
|
||||
ElSalvador_PN = mkPN ("El_Salvador") ;
|
||||
Syria_PN = mkPN "Syria" ;
|
||||
Swaziland_PN = mkPN "Swaziland" ;
|
||||
TurksAndCaicosIslands_PN = mkPN ("Turks_and_Caicos_Islands") ;
|
||||
Chad_PN = mkPN "Chad" ;
|
||||
FrenchSouthernTerritories_PN = mkPN ("French_Southern_Territories") ;
|
||||
Togo_PN = mkPN "Togo" ;
|
||||
Thailand_PN = mkPN "Thailand" ;
|
||||
Tajikistan_PN = mkPN "Tajikistan" ;
|
||||
Tokelau_PN = mkPN "Tokelau" ;
|
||||
EastTimor_PN = mkPN ("East_Timor") ;
|
||||
Turkmenistan_PN = mkPN "Turkmenistan" ;
|
||||
Tunisia_PN = mkPN "Tunisia" ;
|
||||
Tonga_PN = mkPN "Tonga" ;
|
||||
Turkey_PN = mkPN "Turkey" ;
|
||||
TrinidadAndTobago_PN = mkPN ("Trinidad_and_Tobago") ;
|
||||
Tuvalu_PN = mkPN "Tuvalu" ;
|
||||
Taiwan_PN = mkPN "Taiwan" ;
|
||||
Tanzania_PN = mkPN "Tanzania" ;
|
||||
Ukraine_PN = mkPN "Ukraine" ;
|
||||
Uganda_PN = mkPN "Uganda" ;
|
||||
UnitedStatesMinorOutlyingIslands_PN = mkPN ("United_States_minor_outlying_islands") ;
|
||||
UnitedStates_PN = mkPN ("United_States") ;
|
||||
Uruguay_PN = mkPN "Uruguay" ;
|
||||
Uzbekistan_PN = mkPN "Uzbekistan" ;
|
||||
VaticanCity_PN = mkPN ("Vatican_City") ;
|
||||
SaintVincentAndtheGrenadines_PN = mkPN ("Saint_Vincent_and_the_Grenadines") ;
|
||||
Venezuela_PN = mkPN "Venezuela" ;
|
||||
VirginIslandsBritish_PN = mkPN ("Virgin_Islands,_British") ;
|
||||
VirginIslandsUS_PN = mkPN ("Virgin_Islands,_U.S.") ;
|
||||
Vietnam_PN = mkPN "Vietnam" ;
|
||||
Vanuatu_PN = mkPN "Vanuatu" ;
|
||||
WallisAndFutuna_PN = mkPN ("Wallis_and_Futuna") ;
|
||||
Samoa_PN = mkPN "Samoa" ;
|
||||
Yemen_PN = mkPN "Yemen" ;
|
||||
Mayotte_PN = mkPN "Mayotte" ;
|
||||
SouthAfrica_PN = mkPN ("South_Africa") ;
|
||||
Zambia_PN = mkPN "Zambia" ;
|
||||
Zimbabwe_PN = mkPN "Zimbabwe" ;
|
||||
|
||||
-- Cuisines
|
||||
Afghani_PN = mkPN "Afghani" ;
|
||||
African_PN = mkPN "African" ;
|
||||
American_PN = mkPN "American" ;
|
||||
Arabic_PN = mkPN "Arabic" ;
|
||||
Argentine_PN = mkPN "Argentine" ;
|
||||
Armenian_PN = mkPN "Armenian" ;
|
||||
Asian_PN = mkPN "Asian" ;
|
||||
Australian_PN = mkPN "Australian" ;
|
||||
Austrian_PN = mkPN "Austrian" ;
|
||||
Balinese_PN = mkPN "Balinese" ;
|
||||
Basque_PN = mkPN "Basque" ;
|
||||
Belgian_PN = mkPN "Belgian" ;
|
||||
Brazilian_PN = mkPN "Brazilian" ;
|
||||
Bulgarian_PN = mkPN "Bulgarian" ;
|
||||
Burmese_PN = mkPN "Burmese" ;
|
||||
Cajun_PN = mkPN "Cajun" ;
|
||||
Cambodian_PN = mkPN "Cambodian" ;
|
||||
Caribbean_PN = mkPN "Caribbean" ;
|
||||
Catalan_PN = mkPN "Catalan" ;
|
||||
Chinese_PN = mkPN "Chinese" ;
|
||||
Colombian_PN = mkPN "Colombian" ;
|
||||
Contemporary_PN = mkPN "Contemporary" ;
|
||||
Continental_PN = mkPN "Continental" ;
|
||||
Creole_PN = mkPN "Creole" ;
|
||||
Cuban_PN = mkPN "Cuban" ;
|
||||
Czech_PN = mkPN "Czech" ;
|
||||
Dutch_PN = mkPN "Dutch" ;
|
||||
EasternEuropean_PN = mkPN ("Eastern_European") ;
|
||||
Eclectic_PN = mkPN "Eclectic" ;
|
||||
Egyptian_PN = mkPN "Egyptian" ;
|
||||
English_PN = mkPN "English" ;
|
||||
Ethiopian_PN = mkPN "Ethiopian" ;
|
||||
Ethnic_PN = mkPN "Ethnic" ;
|
||||
French_PN = mkPN "French" ;
|
||||
Fusion_PN = mkPN "Fusion" ;
|
||||
German_PN = mkPN "German" ;
|
||||
Greek_PN = mkPN "Greek" ;
|
||||
Haitian_PN = mkPN "Haitian" ;
|
||||
Hungarian_PN = mkPN "Hungarian" ;
|
||||
Indian_PN = mkPN "Indian" ;
|
||||
Indonesian_PN = mkPN "Indonesian" ;
|
||||
International_PN = mkPN "International" ;
|
||||
Irish_PN = mkPN "Irish" ;
|
||||
Israeli_PN = mkPN "Israeli" ;
|
||||
Italian_PN = mkPN "Italian" ;
|
||||
Jamaican_PN = mkPN "Jamaican" ;
|
||||
Japanese_PN = mkPN "Japanese" ;
|
||||
Jewish_PN = mkPN "Jewish" ;
|
||||
Korean_PN = mkPN "Korean" ;
|
||||
LatinAmerican_PN = mkPN ("Latin_American") ;
|
||||
Lebanese_PN = mkPN "Lebanese" ;
|
||||
Malaysian_PN = mkPN "Malaysian" ;
|
||||
Mexican_PN = mkPN "Mexican" ;
|
||||
MiddleEastern_PN = mkPN ("Middle_Eastern") ;
|
||||
Mongolian_PN = mkPN "Mongolian" ;
|
||||
Moroccan_PN = mkPN "Moroccan" ;
|
||||
NewZealandCuisine_PN = mkPN ("New_Zealand") ;
|
||||
Nicaraguan_PN = mkPN "Nicaraguan" ;
|
||||
Nouveau_PN = mkPN "Nouveau" ;
|
||||
Pakistani_PN = mkPN "Pakistani" ;
|
||||
Persian_PN = mkPN "Persian" ;
|
||||
Peruvian_PN = mkPN "Peruvian" ;
|
||||
Philippine_PN = mkPN "Philippine" ;
|
||||
Polish_PN = mkPN "Polish" ;
|
||||
Polynesian_PN = mkPN "Polynesian" ;
|
||||
Portuguese_PN = mkPN "Portuguese" ;
|
||||
PuertoRican_PN = mkPN ("Puerto_Rican") ;
|
||||
Russian_PN = mkPN "Russian" ;
|
||||
Salvadorean_PN = mkPN "Salvadorean" ;
|
||||
Scandinavian_PN = mkPN "Scandinavian" ;
|
||||
Scottish_PN = mkPN "Scottish" ;
|
||||
Seafood_PN = mkPN "Seafood" ;
|
||||
Singaporean_PN = mkPN "Singaporean" ;
|
||||
Spanish_PN = mkPN "Spanish" ;
|
||||
SriLankan_PN = mkPN ("Sri_Lankan") ;
|
||||
Swedish_PN = mkPN "Swedish" ;
|
||||
Swiss_PN = mkPN "Swiss" ;
|
||||
Tex_Mex_PN = mkPN "Tex-Mex" ;
|
||||
Thai_PN = mkPN "Thai" ;
|
||||
Tibetan_PN = mkPN "Tibetan" ;
|
||||
Turkish_PN = mkPN "Turkish" ;
|
||||
Ukrainian_PN = mkPN "Ukrainian" ;
|
||||
Vegan_PN = mkPN "Vegan" ;
|
||||
Vegetarian_PN = mkPN "Vegetarian" ;
|
||||
Venezulean_PN = mkPN "Venezulean" ;
|
||||
Vietnamese_PN = mkPN "Vietnamese" ;
|
||||
|
||||
-- Determiners
|
||||
defSg_Det = defSgDet ;
|
||||
-- defPl_Det = defPlDet ;
|
||||
indefSg_Det = indefSgDet ;
|
||||
-- indefPl_Det = indefPlDet ;
|
||||
this_Det = mkDet this_QuantSg ;
|
||||
-- that_Det = mkDet that_QuantSg ;
|
||||
-- these_Det = mkDet these_QuantPl ;
|
||||
-- those_Det = mkDet those_QuantPl ;
|
||||
|
||||
}
|
||||
404
examples/wiki/LexWikiSpa.gf
Normal file
404
examples/wiki/LexWikiSpa.gf
Normal file
@@ -0,0 +1,404 @@
|
||||
|
||||
instance LexWikiSpa of LexWiki = open SyntaxSpa, IrregSpa, ParadigmsSpa in {
|
||||
|
||||
flags coding = utf8 ;
|
||||
|
||||
oper
|
||||
-- Sentences
|
||||
singleWordCommand_Utt verb = mkUtt (mkVP verb) ;
|
||||
command_Utt verb det noun = mkUtt (mkVP (mkV2 verb) (mkNP det noun)) ;
|
||||
randomlyCommand_Utt verb det noun = mkUtt (mkVP (mkAdV "aleatoriamente") (mkVP (mkV2 verb) (mkNP det noun))) ;
|
||||
label_Utt noun = mkUtt (mkNP (myMkPN noun)) ;
|
||||
countryName_Utt pn = mkUtt (mkNP pn) ;
|
||||
cuisineName_Utt pn = mkUtt (mkNP pn) ;
|
||||
|
||||
-- Verbs
|
||||
cancel_V = mkV "cancelar" ;
|
||||
select_V = mkV "seleccionar" ;
|
||||
edit_V = mkV "editar" ;
|
||||
save_V = mkV "guardar" ;
|
||||
add_V = mkV "agregar" ;
|
||||
undo_V = deshacer_V ;
|
||||
redo_V = rehacer_V ;
|
||||
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 ;
|
||||
|
||||
-- Nouns
|
||||
-- Information
|
||||
information_N = mkN "información" feminine;
|
||||
name_N = mkN "nombre" ;
|
||||
address_N = mkN "dirección" ;
|
||||
city_N = mkN "ciudad" ;
|
||||
state_N = mkN "estado" ;
|
||||
postalcode_N = compN (mkN "código") "postal" ;
|
||||
country_N = mkN "país" ;
|
||||
phone_N = mkN "teléfono" ;
|
||||
cuisine_N = mkN "cocina" ;
|
||||
language_N = mkN "lenguaje" ;
|
||||
|
||||
-- Misc
|
||||
page_N = mkN "página" ;
|
||||
index_N = mkN "índice" ;
|
||||
review_N = mkN "crítica" ;
|
||||
restaurant_N = mkN "restaurante" ;
|
||||
food_N = mkN "comida" ;
|
||||
service_N = mkN "servicio" ;
|
||||
node_N = mkN "nodo" ;
|
||||
tree_N = mkN "árbol" ;
|
||||
|
||||
-- Proper Nouns
|
||||
-- Countries
|
||||
Andorra_PN = mkPN "Andorra" feminine ;
|
||||
UnitedArabEmirates_PN = mkPN ("Emiratos" ++ "Árabes" ++ "Unidos") masculine ;
|
||||
Afghanistan_PN = mkPN "Afganistán" masculine ;
|
||||
AntiguaAndBarbuda_PN = mkPN ("Antigua" ++ "y" ++ "Barbuda") feminine ;
|
||||
Anguilla_PN = mkPN "Anguila" feminine ;
|
||||
Albania_PN = mkPN "Albania" feminine ;
|
||||
Armenia_PN = mkPN "Armenia" feminine ;
|
||||
NetherlandsAntilles_PN = mkPN ("Antillas" ++ "Neerlandesas") feminine ;
|
||||
Angola_PN = mkPN "Angola" feminine ;
|
||||
Antarctica_PN = mkPN "Antártida" feminine ;
|
||||
Argentina_PN = mkPN "Argentina" feminine ;
|
||||
AmericanSamoa_PN = mkPN ("Samoa" ++ "americana") feminine ;
|
||||
Austria_PN = mkPN "Austria" feminine ;
|
||||
Australia_PN = mkPN "Australia" feminine ;
|
||||
Aruba_PN = mkPN "Aruba" feminine ;
|
||||
AlandIslands_PN = mkPN ("Islas" ++ "Aland") feminine ;
|
||||
Azerbaijan_PN = mkPN "Azerbaiyán" masculine ;
|
||||
BosniaAndHerzegovina_PN = mkPN ("Bosnia" ++ "y" ++ "Hercegovina") feminine ;
|
||||
Barbados_PN = mkPN "Barbados" masculine ;
|
||||
Bangladesh_PN = mkPN "Bangladesh" masculine ;
|
||||
Belgium_PN = mkPN "Bélgica" feminine ;
|
||||
BurkinaFaso_PN = mkPN ("Burkina" ++ "Faso") masculine ;
|
||||
Bulgaria_PN = mkPN "Bulgaria" feminine ;
|
||||
Bahrain_PN = mkPN "Bahráin" masculine ;
|
||||
Burundi_PN = mkPN "Burundi" masculine ;
|
||||
Benin_PN = mkPN "Benín" masculine ;
|
||||
Bermuda_PN = mkPN "Bermudas" feminine ;
|
||||
Brunei_PN = mkPN "Brunéi" masculine ;
|
||||
Bolivia_PN = mkPN "Bolivia" feminine ;
|
||||
Brazil_PN = mkPN "Brasil" masculine ;
|
||||
Bahamas_PN = mkPN "Bahamas" feminine ;
|
||||
Bhutan_PN = mkPN "Bután" masculine ;
|
||||
BouvetIsland_PN = mkPN ("Isla" ++ "Bouvet") feminine ;
|
||||
Botswana_PN = mkPN "Botsuana" feminine ;
|
||||
Belarus_PN = mkPN "Bielorrusia" feminine ;
|
||||
Belize_PN = mkPN "Belice" masculine ;
|
||||
Canada_PN = mkPN "Canadá" feminine ;
|
||||
CocosIslands_PN = mkPN ("Islas" ++ "Cocos") feminine ;
|
||||
CongoDemocraticRepublicofthe_PN = mkPN ("Congo," ++ "República" ++ "Democrática" ++ "del") masculine ;
|
||||
CentralAfricanRepublic_PN = mkPN ("República" ++ "Centroafricana") feminine ;
|
||||
Congo_PN = mkPN "Congo" masculine ;
|
||||
Switzerland_PN = mkPN "Suiza" feminine ;
|
||||
CotedIvoire_PN = mkPN ("Costa" ++ "de" ++ "Marfil") feminine ;
|
||||
CookIslands_PN = mkPN ("Islas" ++ "Cook") feminine ;
|
||||
Chile_PN = mkPN "Chile" masculine ;
|
||||
Cameroon_PN = mkPN "Camerún" masculine ;
|
||||
China_PN = mkPN "China" feminine ;
|
||||
Colombia_PN = mkPN "Colombia" feminine ;
|
||||
CostaRica_PN = mkPN ("Costa" ++ "Rica") feminine ;
|
||||
SerbiaAndMontenegro_PN = mkPN ("Serbia" ++ "y" ++ "Montenegro") masculine ;
|
||||
Cuba_PN = mkPN "Cuba" feminine ;
|
||||
CapeVerde_PN = mkPN ("Cabo" ++ "Verde") masculine ;
|
||||
ChristmasIsland_PN = mkPN ("Isla" ++ "Christmas") feminine ;
|
||||
Cyprus_PN = mkPN "Chipre" masculine ;
|
||||
CzechRepublic_PN = mkPN ("República" ++ "Checa") feminine ;
|
||||
Germany_PN = mkPN "Alemania" feminine ;
|
||||
Djibouti_PN = mkPN "Yibuti" masculine ;
|
||||
Denmark_PN = mkPN "Dinamarca" feminine ;
|
||||
Dominica_PN = mkPN "Dominica" feminine ;
|
||||
DominicanRepublic_PN = mkPN ("República" ++ "Dominicana") feminine ;
|
||||
Algeria_PN = mkPN "Argelia" feminine ;
|
||||
Ecuador_PN = mkPN "Ecuador" masculine ;
|
||||
Estonia_PN = mkPN "Estonia" feminine ;
|
||||
Egypt_PN = mkPN "Egipto" masculine ;
|
||||
WesternSahara_PN = mkPN ("Sáhara" ++ "Occidental") feminine ;
|
||||
Eritrea_PN = mkPN "Eritrea" feminine ;
|
||||
Spain_PN = mkPN "España" feminine ;
|
||||
Ethiopia_PN = mkPN "Etiopía" feminine ;
|
||||
Finland_PN = mkPN "Finlandia" feminine ;
|
||||
Fiji_PN = mkPN "Fiyi" masculine ;
|
||||
FalklandIslands_PN = mkPN ("Islas" ++ "Malvinas") feminine ;
|
||||
Micronesia_PN = mkPN "Micronesia" feminine ;
|
||||
FaroeIslands_PN = mkPN ("Islas" ++ "Feroe") feminine ;
|
||||
France_PN = mkPN "Francia" feminine ;
|
||||
Gabon_PN = mkPN "Gabón" masculine ;
|
||||
UnitedKingdom_PN = mkPN ("Reino" ++ "Unido") masculine ;
|
||||
Grenada_PN = mkPN "Granada" feminine ;
|
||||
Georgia_PN = mkPN "Georgia" feminine ;
|
||||
FrenchGuiana_PN = mkPN ("Guayana" ++ "Francesa") feminine ;
|
||||
Guernsey_PN = mkPN "Guernsey" masculine ;
|
||||
Ghana_PN = mkPN "Ghana" feminine ;
|
||||
Gibraltar_PN = mkPN "Gibraltar" masculine ;
|
||||
Greenland_PN = mkPN "Groenlandia" feminine ;
|
||||
Gambia_PN = mkPN "Gambia" feminine ;
|
||||
Guinea_PN = mkPN "Guinea" feminine ;
|
||||
Guadeloupe_PN = mkPN "Guadalupe" masculine ;
|
||||
EquatorialGuinea_PN = mkPN "Guinea" feminine ;
|
||||
Greece_PN = mkPN "Grecia" feminine ;
|
||||
SouthGeorgiaAndTheSouthSandwichIslands_PN = mkPN ("Islas" ++ "Georgia" ++ "del" ++ "Sur" ++ "y" ++ "Sandwich" ++ "del" ++ "Sur") feminine ;
|
||||
Guatemala_PN = mkPN "Guatemala" feminine ;
|
||||
Guam_PN = mkPN "Guam" masculine ;
|
||||
GuineaBissau_PN = mkPN "Guinea-Bissau" feminine ;
|
||||
Guyana_PN = mkPN "Guyana" feminine ;
|
||||
HongKong_PN = mkPN ("Hong" ++ "Kong") masculine ;
|
||||
HeardIslandAndMcDonaldIslands_PN = mkPN ("Islas" ++ "Heard" ++ "y" ++ "McDonald") feminine ;
|
||||
Honduras_PN = mkPN "Honduras" masculine ;
|
||||
Croatia_PN = mkPN "Croacia" feminine ;
|
||||
Haiti_PN = mkPN "Haití" masculine ;
|
||||
Hungary_PN = mkPN "Hungría" feminine ;
|
||||
Indonesia_PN = mkPN "Indonesia" feminine ;
|
||||
Ireland_PN = mkPN "Irlanda" feminine ;
|
||||
Israel_PN = mkPN "Israel" masculine ;
|
||||
IsleofMan_PN = mkPN ("Isla" ++ "de" ++ "Man") feminine ;
|
||||
India_PN = mkPN "India" feminine ;
|
||||
BritishIndianOceanTerritory_PN = mkPN ("Territorio" ++ "Británico" ++ "del" ++ "Océano" ++ "Índico") masculine ;
|
||||
Iraq_PN = mkPN "Iraq" masculine ;
|
||||
Iran_PN = mkPN "Irán" masculine ;
|
||||
Iceland_PN = mkPN "Islandia" feminine ;
|
||||
Italy_PN = mkPN "Italia" feminine ;
|
||||
Jersey_PN = mkPN "Jersey" masculine ;
|
||||
Jamaica_PN = mkPN "Jamaica" feminine ;
|
||||
Jordan_PN = mkPN "Jordania" feminine ;
|
||||
Japan_PN = mkPN "Japón" masculine ;
|
||||
Kenya_PN = mkPN "Kenia" feminine ;
|
||||
Kyrgyzstan_PN = mkPN "Kirguizistán" masculine ;
|
||||
Cambodia_PN = mkPN "Camboya" feminine ;
|
||||
Kiribati_PN = mkPN "Kiribati" masculine ;
|
||||
Comoros_PN = mkPN "Comoras" feminine ;
|
||||
SaintKittsAndNevis_PN = mkPN ("San" ++ "Cristóbal" ++ "y" ++ "Nieves") masculine ;
|
||||
NorthKorea_PN = mkPN ("Corea" ++ "del" ++ "Norte") feminine ;
|
||||
SouthKorea_PN = mkPN ("Corea" ++ "del" ++ "Sur") feminine ;
|
||||
Kuwait_PN = mkPN "Kuwait" masculine ;
|
||||
CaymanIslands_PN = mkPN ("Islas" ++ "Caimán") feminine ;
|
||||
Kazakhstan_PN = mkPN "Kazajistán" masculine ;
|
||||
Laos_PN = mkPN "Laos" masculine ;
|
||||
Lebanon_PN = mkPN "Líbano" masculine ;
|
||||
SaintLucia_PN = mkPN ("Santa" ++ "Lucía") feminine ;
|
||||
Liechtenstein_PN = mkPN "Liechtenstein" masculine ;
|
||||
SriLanka_PN = mkPN ("Sri" ++ "Lanka") feminine ;
|
||||
Liberia_PN = mkPN "Liberia" feminine ;
|
||||
Lesotho_PN = mkPN "Lesoto" masculine ;
|
||||
Lithuania_PN = mkPN "Lituania" feminine ;
|
||||
Luxembourg_PN = mkPN "Luxemburgo" masculine ;
|
||||
Latvia_PN = mkPN "Letonia" feminine ;
|
||||
Libya_PN = mkPN "Libia" feminine ;
|
||||
Morocco_PN = mkPN "Marruecos" masculine ;
|
||||
Monaco_PN = mkPN "Mónaco" masculine ;
|
||||
Moldova_PN = mkPN "Moldavia" feminine ;
|
||||
Montenegro_PN = mkPN "Montenegro" masculine ;
|
||||
Madagascar_PN = mkPN "Madagascar" masculine ;
|
||||
MarshallIslands_PN = mkPN ("Islas" ++ "Marshall") feminine ;
|
||||
Macedonia_PN = mkPN "Macedonia" feminine ;
|
||||
Mali_PN = mkPN "Mali" masculine ;
|
||||
Myanmar_PN = mkPN "Myanmar" masculine ;
|
||||
Mongolia_PN = mkPN "Mongolia" feminine ;
|
||||
Macao_PN = mkPN "Macao" masculine ;
|
||||
NorthernMarianaIslands_PN = mkPN ("Islas" ++ "Mariana" ++ "del" ++ "Norte") feminine ;
|
||||
Martinique_PN = mkPN "Martinica" feminine ;
|
||||
Mauritania_PN = mkPN "Mauritania" feminine ;
|
||||
Montserrat_PN = mkPN "Montserrat" masculine ;
|
||||
Malta_PN = mkPN "Malta" feminine ;
|
||||
Mauritius_PN = mkPN "Mauricio" masculine ;
|
||||
Maldives_PN = mkPN "Maldivas" feminine ;
|
||||
Malawi_PN = mkPN "Malaui" masculine ;
|
||||
Mexico_PN = mkPN "México" masculine ;
|
||||
Malaysia_PN = mkPN "Malasia" feminine ;
|
||||
Mozambique_PN = mkPN "Mozambique" masculine ;
|
||||
Namibia_PN = mkPN "Namibia" feminine ;
|
||||
NewCaledonia_PN = mkPN ("Nueva" ++ "Caledonia") feminine ;
|
||||
Niger_PN = mkPN "Níger" masculine ;
|
||||
NorfolkIsland_PN = mkPN ("Isla" ++ "Norfolk") feminine ;
|
||||
Nigeria_PN = mkPN "Nigeria" feminine ;
|
||||
Nicaragua_PN = mkPN "Nicaragua" feminine ;
|
||||
Netherlands_PN = mkPN ("Países" ++ "Bajos") masculine ;
|
||||
Norway_PN = mkPN "Noruega" feminine ;
|
||||
Nepal_PN = mkPN "Nepal" masculine ;
|
||||
Nauru_PN = mkPN "Nauru" masculine ;
|
||||
Niue_PN = mkPN "Niue" masculine ;
|
||||
NewZealand_PN = mkPN ("Nueva" ++ "Zelanda") feminine ;
|
||||
Oman_PN = mkPN "Omán" masculine ;
|
||||
Panama_PN = mkPN "Panamá" feminine ;
|
||||
Peru_PN = mkPN "Perú" masculine ;
|
||||
FrenchPolynesia_PN = mkPN ("Polinesia" ++ "Francesa") feminine ;
|
||||
PapuaNewGuinea_PN = mkPN ("Papúa-Nueva" ++ "Guinea") feminine ;
|
||||
Philippines_PN = mkPN "Filipinas" feminine ;
|
||||
Pakistan_PN = mkPN "Pakistán" masculine ;
|
||||
Poland_PN = mkPN "Polonia" feminine ;
|
||||
SaintPierreAndMiquelon_PN = mkPN ("San" ++ "Pedro" ++ "y" ++ "Miquelón") masculine ;
|
||||
Pitcairn_PN = mkPN ("Islas" ++ "Pitcairn") feminine ;
|
||||
PuertoRico_PN = mkPN ("Puerto" ++ "Rico") masculine ;
|
||||
PalestinianTerritory_PN = mkPN ("Territorio" ++ "Palestino") masculine ;
|
||||
Portugal_PN = mkPN "Portugal" masculine ;
|
||||
Palau_PN = mkPN "Palaos" masculine ;
|
||||
Paraguay_PN = mkPN "Paraguay" masculine ;
|
||||
Qatar_PN = mkPN "Qatar" masculine ;
|
||||
Reunion_PN = mkPN "Reunión" masculine ;
|
||||
Romania_PN = mkPN "Rumania" feminine ;
|
||||
Serbia_PN = mkPN "Serbia" feminine ;
|
||||
Russia_PN = mkPN "Rusia" feminine ;
|
||||
Rwanda_PN = mkPN "Ruanda" feminine ;
|
||||
SaudiArabia_PN = mkPN ("Arabia" ++ "Saudí") feminine ;
|
||||
SolomonIslands_PN = mkPN ("Islas" ++ "Salomón") feminine ;
|
||||
Seychelles_PN = mkPN "Seychelles" masculine ;
|
||||
Sudan_PN = mkPN "Sudán" masculine ;
|
||||
Sweden_PN = mkPN "Suecia" feminine ;
|
||||
Singapore_PN = mkPN "Singapur" masculine ;
|
||||
SaintHelena_PN = mkPN ("Santa" ++ "Elena") feminine ;
|
||||
Slovenia_PN = mkPN "Eslovenia" feminine ;
|
||||
SvalbardAndJanMayen_PN = mkPN ("Islas" ++ "Svalbard" ++ "y" ++ "Jan" ++ "Mayen") feminine ;
|
||||
Slovakia_PN = mkPN "Eslovaquia" feminine ;
|
||||
SierraLeone_PN = mkPN ("Sierra" ++ "Leona") feminine ;
|
||||
SanMarino_PN = mkPN ("San" ++ "Marino") masculine ;
|
||||
Senegal_PN = mkPN "Senegal" masculine ;
|
||||
Somalia_PN = mkPN "Somalia" feminine ;
|
||||
Suriname_PN = mkPN "Surinam" masculine ;
|
||||
SaoTomeAndPrincipe_PN = mkPN ("Santo" ++ "Tomé" ++ "y" ++ "Príncipe") masculine ;
|
||||
ElSalvador_PN = mkPN ("El" ++ "Salvador") masculine ;
|
||||
Syria_PN = mkPN "Siria" feminine ;
|
||||
Swaziland_PN = mkPN "Suazilandia" feminine ;
|
||||
TurksAndCaicosIslands_PN = mkPN ("Islas" ++ "Turcas" ++ "y" ++ "Caicos") feminine ;
|
||||
Chad_PN = mkPN "Chad" masculine ;
|
||||
FrenchSouthernTerritories_PN = mkPN ("Territorios" ++ "Australes" ++ "Franceses") masculine ;
|
||||
Togo_PN = mkPN "Togo" masculine ;
|
||||
Thailand_PN = mkPN "Tailandia" feminine ;
|
||||
Tajikistan_PN = mkPN "Tayikistán" masculine ;
|
||||
Tokelau_PN = mkPN "Tokelau" masculine ;
|
||||
EastTimor_PN = mkPN ("Timor" ++ "Oriental") masculine ;
|
||||
Turkmenistan_PN = mkPN "Turkmenistán" masculine ;
|
||||
Tunisia_PN = mkPN "Túnez" masculine ;
|
||||
Tonga_PN = mkPN "Tonga" feminine ;
|
||||
Turkey_PN = mkPN "Turquía" feminine ;
|
||||
TrinidadAndTobago_PN = mkPN ("Trinidad" ++ "y" ++ "Tobago") masculine ;
|
||||
Tuvalu_PN = mkPN "Tuvalu" masculine ;
|
||||
Taiwan_PN = mkPN "Taiwán" masculine ;
|
||||
Tanzania_PN = mkPN "Tanzania" feminine ;
|
||||
Ukraine_PN = mkPN "Ucrania" feminine ;
|
||||
Uganda_PN = mkPN "Uganda" feminine ;
|
||||
UnitedStatesMinorOutlyingIslands_PN = mkPN ("Islas" ++ "menores" ++ "alejadas" ++ "de" ++ "los" ++ "Estados" ++ "Unidos") feminine ;
|
||||
UnitedStates_PN = mkPN ("Estados" ++ "Unidos") masculine ;
|
||||
Uruguay_PN = mkPN "Uruguay" masculine ;
|
||||
Uzbekistan_PN = mkPN "Uzbekistán" masculine ;
|
||||
VaticanCity_PN = mkPN ("Ciudad" ++ "del" ++ "Vaticano") feminine ;
|
||||
SaintVincentAndtheGrenadines_PN = mkPN ("San" ++ "Vicente" ++ "y" ++ "las" ++ "Granadinas") masculine ;
|
||||
Venezuela_PN = mkPN "Venezuela" feminine ;
|
||||
VirginIslandsBritish_PN = mkPN ("Islas" ++ "Vírgenes" ++ "Británicas") feminine ;
|
||||
VirginIslandsUS_PN = mkPN ("Islas" ++ "Vírgenes," ++ "EE.UU.") feminine ;
|
||||
Vietnam_PN = mkPN "Vietnam" masculine ;
|
||||
Vanuatu_PN = mkPN "Vanuatu" masculine ;
|
||||
WallisAndFutuna_PN = mkPN ("Wallis" ++ "y" ++ "Futuna") feminine ;
|
||||
Samoa_PN = mkPN "Samoa" feminine ;
|
||||
Yemen_PN = mkPN "Yemen" masculine ;
|
||||
Mayotte_PN = mkPN "Mayotte" masculine ;
|
||||
SouthAfrica_PN = mkPN "Sudáfrica" feminine ;
|
||||
Zambia_PN = mkPN "Zambia" feminine ;
|
||||
Zimbabwe_PN = mkPN "Zimbabue" masculine ;
|
||||
|
||||
-- Cuisines
|
||||
Afghani_PN = mkPN "Afgana" ;
|
||||
African_PN = mkPN "Africana" ;
|
||||
American_PN = mkPN "Americana" ;
|
||||
Arabic_PN = mkPN "Arabe" ;
|
||||
Argentine_PN = mkPN "Argentina" ;
|
||||
Armenian_PN = mkPN "Armenia" ;
|
||||
Asian_PN = mkPN "Asiática" ;
|
||||
Australian_PN = mkPN "Australiana" ;
|
||||
Austrian_PN = mkPN "Austriaca" ;
|
||||
Balinese_PN = mkPN "Balinesa" ;
|
||||
Basque_PN = mkPN "Vasca" ;
|
||||
Belgian_PN = mkPN "Belga" ;
|
||||
Brazilian_PN = mkPN "Brasileña" ;
|
||||
Bulgarian_PN = mkPN "Búlgara" ;
|
||||
Burmese_PN = mkPN "Birmana" ;
|
||||
Cajun_PN = mkPN "Cajun" ;
|
||||
Cambodian_PN = mkPN "Camboyana" ;
|
||||
Caribbean_PN = mkPN "Caribeña" ;
|
||||
Catalan_PN = mkPN "Catalana" ;
|
||||
Chinese_PN = mkPN "China" ;
|
||||
Colombian_PN = mkPN "Colombiana" ;
|
||||
Contemporary_PN = mkPN "Contemporánea" ;
|
||||
Continental_PN = mkPN "Continental" ;
|
||||
Creole_PN = mkPN "Criolla" ;
|
||||
Cuban_PN = mkPN "Cubana" ;
|
||||
Czech_PN = mkPN "Checa" ;
|
||||
Dutch_PN = mkPN "Holandesa" ;
|
||||
EasternEuropean_PN = mkPN ("Europea" ++ "oriental") feminine ;
|
||||
Eclectic_PN = mkPN "Ecléctica" ;
|
||||
Egyptian_PN = mkPN "Egipcia" ;
|
||||
English_PN = mkPN "Inglesa" ;
|
||||
Ethiopian_PN = mkPN "Etíope" ;
|
||||
Ethnic_PN = mkPN "Etnica" ;
|
||||
French_PN = mkPN "Francesa" ;
|
||||
Fusion_PN = mkPN "Fusión" ;
|
||||
German_PN = mkPN "Alemana" ;
|
||||
Greek_PN = mkPN "Griega" ;
|
||||
Haitian_PN = mkPN "Haitiana" ;
|
||||
Hungarian_PN = mkPN "Húngara" ;
|
||||
Indian_PN = mkPN "India" ;
|
||||
Indonesian_PN = mkPN "Indonesia" ;
|
||||
International_PN = mkPN "Internacional" ;
|
||||
Irish_PN = mkPN "Irlandesa" ;
|
||||
Israeli_PN = mkPN "Israelí" ;
|
||||
Italian_PN = mkPN "Italiana" ;
|
||||
Jamaican_PN = mkPN "Jamaiquina" ;
|
||||
Japanese_PN = mkPN "Japonesa" ;
|
||||
Jewish_PN = mkPN "Judía" ;
|
||||
Korean_PN = mkPN "Coreana" ;
|
||||
LatinAmerican_PN = mkPN "Latinoamericana" ;
|
||||
Lebanese_PN = mkPN "Libanesa" ;
|
||||
Malaysian_PN = mkPN "Malasia" ;
|
||||
Mexican_PN = mkPN "Mexicana" ;
|
||||
MiddleEastern_PN = mkPN ("Del" ++ "Medio" ++ "Oriente") feminine ;
|
||||
Mongolian_PN = mkPN "Mongola" ;
|
||||
Moroccan_PN = mkPN "Marroquí" ;
|
||||
NewZealandCuisine_PN = mkPN "Neozelandesa" ;
|
||||
Nicaraguan_PN = mkPN "Nicaraguense" ;
|
||||
Nouveau_PN = mkPN "Nouveau" ;
|
||||
Pakistani_PN = mkPN "Pakistaní" ;
|
||||
Persian_PN = mkPN "Persa" ;
|
||||
Peruvian_PN = mkPN "Peruana" ;
|
||||
Philippine_PN = mkPN "Filipina" ;
|
||||
Polish_PN = mkPN "Polaca" ;
|
||||
Polynesian_PN = mkPN "Polinesia" ;
|
||||
Portuguese_PN = mkPN "Portuguesa" ;
|
||||
PuertoRican_PN = mkPN "Puertorriqueña" ;
|
||||
Russian_PN = mkPN "Rusa" ;
|
||||
Salvadorean_PN = mkPN "Salvadoreña" ;
|
||||
Scandinavian_PN = mkPN "Escandinava" ;
|
||||
Scottish_PN = mkPN "Escocesa" ;
|
||||
Seafood_PN = mkPN ("Pescados" ++ "y" ++ "mariscos") feminine ;
|
||||
Singaporean_PN = mkPN "Singapurense" ;
|
||||
Spanish_PN = mkPN "Española" ;
|
||||
SriLankan_PN = mkPN "Esrilanquesa" ;
|
||||
Swedish_PN = mkPN "Sueca" ;
|
||||
Swiss_PN = mkPN "Suiza" ;
|
||||
Tex_Mex_PN = mkPN "Tex-Mex" ;
|
||||
Thai_PN = mkPN "Tailandesa" ;
|
||||
Tibetan_PN = mkPN "Tibetana" ;
|
||||
Turkish_PN = mkPN "Turca" ;
|
||||
Ukrainian_PN = mkPN "Ucraniana" ;
|
||||
Vegan_PN = mkPN "Vegana" ;
|
||||
Vegetarian_PN = mkPN "Vegetariana" ;
|
||||
Venezulean_PN = mkPN "Venezolana" ;
|
||||
Vietnamese_PN = mkPN "Vietnamita" ;
|
||||
|
||||
-- Determiners
|
||||
defSg_Det = defSgDet ;
|
||||
-- defPl_Det = defPlDet ;
|
||||
indefSg_Det = indefSgDet ;
|
||||
-- indefPl_Det = indefPlDet ;
|
||||
this_Det = mkDet this_QuantSg ;
|
||||
-- that_Det = mkDet that_QuantSg ;
|
||||
-- these_Det = mkDet these_QuantPl ;
|
||||
-- those_Det = mkDet those_QuantPl ;
|
||||
|
||||
-- Functions
|
||||
myMkPN : N -> PN =
|
||||
\n -> {s = n.s ! singular ; g = n.g ; lock_PN = <>} ;
|
||||
|
||||
}
|
||||
401
examples/wiki/LexWikiSwe.gf
Normal file
401
examples/wiki/LexWikiSwe.gf
Normal file
@@ -0,0 +1,401 @@
|
||||
|
||||
instance LexWikiSwe of LexWiki = open SyntaxSwe, IrregSwe, ParadigmsSwe in {
|
||||
|
||||
flags coding = utf8 ;
|
||||
|
||||
oper
|
||||
-- Sentences
|
||||
singleWordCommand_Utt verb = mkUtt politeImpForm positivePol (mkImp verb) ;
|
||||
command_Utt verb det noun = mkUtt politeImpForm positivePol (mkImp (mkVP (mkV2 verb) (mkNP det noun))) ;
|
||||
randomlyCommand_Utt verb det noun = mkUtt politeImpForm positivePol (mkImp (mkVP (mkAdV "slumpmässigt") (mkVP (mkV2 verb) (mkNP det noun)))) ;
|
||||
label_Utt noun = mkUtt (mkNP (nounPN noun)) ;
|
||||
countryName_Utt pn = mkUtt (mkNP pn) ;
|
||||
cuisineName_Utt pn = mkUtt (mkNP pn) ;
|
||||
|
||||
-- Verbs
|
||||
cancel_V = mkV "avbryt" ;
|
||||
select_V = mkV "väljer" ;
|
||||
edit_V = mkV "redigerar" ;
|
||||
save_V = mkV "sparar" ;
|
||||
add_V = mkV (mkV "lägger") "till" ;
|
||||
undo_V = mkV "ångrar" ;
|
||||
redo_V = mkV "upprepar" ;
|
||||
cut_V = mkV (mkV "klipper") "ut" ;
|
||||
copy_V = mkV "kopierar" ;
|
||||
paste_V = mkV (mkV "klistrar") "in" ;
|
||||
delete_V = mkV "raderar" ;
|
||||
refine_V = mkV "raffinerar" ; -- FIX!!!
|
||||
replace_V = mkV "ersätter" ;
|
||||
wrap_V = mkV "förpackar" ; -- FIX!!!
|
||||
|
||||
-- Nouns
|
||||
-- Information
|
||||
information_N = mkN "information" ;
|
||||
name_N = mkN "namn" "namnet" "namn" "namnen" ;
|
||||
address_N = mkN "adress" ;
|
||||
city_N = mkN "stad" "städer" ;
|
||||
state_N = mkN "stat" ;
|
||||
postalcode_N = mkN "postnummer" "postnumret" "postnummer" "postnumren" ;
|
||||
country_N = mkN "land" "landet" "länder" "länderna" ;
|
||||
phone_N = mkN "telefonnummer" "telefonnumret" "telefonnummer" "telefonnumren" ;
|
||||
cuisine_N = mkN "kök" "köket" "kök" "köken" ;
|
||||
language_N = mkN "språk" "språket" "språk" "språken" ;
|
||||
|
||||
-- Misc
|
||||
page_N = mkN "sida" ;
|
||||
index_N = mkN "index" "indexet" "index" "indexen" ;
|
||||
review_N = mkN "recension" ;
|
||||
restaurant_N = mkN "restaurang" ;
|
||||
food_N = mkN "mat" ;
|
||||
service_N = mkN "betjäning" ;
|
||||
node_N = mkN "nod" ;
|
||||
tree_N = mkN "träd" "trädet" "träd" "träden" ;
|
||||
|
||||
-- Proper Nouns
|
||||
-- Countries
|
||||
Andorra_PN = mkPN "Andorra" ;
|
||||
UnitedArabEmirates_PN = mkPN "Förenade Arabemiraten" ;
|
||||
Afghanistan_PN = mkPN "Afghanistan" ;
|
||||
AntiguaAndBarbuda_PN = mkPN "Antigua och Barbuda" ;
|
||||
Anguilla_PN = mkPN "Anguilla" ;
|
||||
Albania_PN = mkPN "Albanien" ;
|
||||
Armenia_PN = mkPN "Armenien" ;
|
||||
NetherlandsAntilles_PN = mkPN "Nederländska Antillerna" ;
|
||||
Angola_PN = mkPN "Angola" ;
|
||||
Antarctica_PN = mkPN "Antarktis" ;
|
||||
Argentina_PN = mkPN "Argentina" ;
|
||||
AmericanSamoa_PN = mkPN "Amerikanska Samoa" ;
|
||||
Austria_PN = mkPN "Österrike" ;
|
||||
Australia_PN = mkPN "Australien" ;
|
||||
Aruba_PN = mkPN "Aruba" ;
|
||||
AlandIslands_PN = mkPN "Åland" ;
|
||||
Azerbaijan_PN = mkPN "Azerbajdzjan" ;
|
||||
BosniaAndHerzegovina_PN = mkPN "Bosnien-Hercegovina" ;
|
||||
Barbados_PN = mkPN "Barbados" ;
|
||||
Bangladesh_PN = mkPN "Bangladesh" ;
|
||||
Belgium_PN = mkPN "Belgien" ;
|
||||
BurkinaFaso_PN = mkPN "Burkina Faso" ;
|
||||
Bulgaria_PN = mkPN "Bulgarien" ;
|
||||
Bahrain_PN = mkPN "Bahrain" ;
|
||||
Burundi_PN = mkPN "Burundi" ;
|
||||
Benin_PN = mkPN "Benin" ;
|
||||
Bermuda_PN = mkPN "Bermuda" ;
|
||||
Brunei_PN = mkPN "Brunei" ;
|
||||
Bolivia_PN = mkPN "Bolivia" ;
|
||||
Brazil_PN = mkPN "Brasilien" ;
|
||||
Bahamas_PN = mkPN "Bahamas" ;
|
||||
Bhutan_PN = mkPN "Bhutan" ;
|
||||
BouvetIsland_PN = mkPN "Bouvetön" ;
|
||||
Botswana_PN = mkPN "Botswana" ;
|
||||
Belarus_PN = mkPN "Vitryssland" ;
|
||||
Belize_PN = mkPN "Belize" ;
|
||||
Canada_PN = mkPN "Kanada" ;
|
||||
CocosIslands_PN = mkPN "Kokosöarna" ;
|
||||
CongoDemocraticRepublicofthe_PN = mkPN "Demokratiska republiken Kongo" ;
|
||||
CentralAfricanRepublic_PN = mkPN "Centralafrikanska republiken" ;
|
||||
Congo_PN = mkPN "Kongo" ;
|
||||
Switzerland_PN = mkPN "Schweiz" ;
|
||||
CotedIvoire_PN = mkPN "Elfenbenskusten" ;
|
||||
CookIslands_PN = mkPN "Cooköarna" ;
|
||||
Chile_PN = mkPN "Chile" ;
|
||||
Cameroon_PN = mkPN "Kamerun" ;
|
||||
China_PN = mkPN "Kina" ;
|
||||
Colombia_PN = mkPN "Colombia" ;
|
||||
CostaRica_PN = mkPN "Costa Rica" ;
|
||||
SerbiaAndMontenegro_PN = mkPN "Serbien och Montenegro" ;
|
||||
Cuba_PN = mkPN "Kuba" ;
|
||||
CapeVerde_PN = mkPN "Kap Verde" ;
|
||||
ChristmasIsland_PN = mkPN "Julön" ;
|
||||
Cyprus_PN = mkPN "Cypern" ;
|
||||
CzechRepublic_PN = mkPN "Tjeckien" ;
|
||||
Germany_PN = mkPN "Tyskland" ;
|
||||
Djibouti_PN = mkPN "Djibouti" ;
|
||||
Denmark_PN = mkPN "Danmark" ;
|
||||
Dominica_PN = mkPN "Dominica" ;
|
||||
DominicanRepublic_PN = mkPN "Dominikanska republiken" ;
|
||||
Algeria_PN = mkPN "Algeriet" ;
|
||||
Ecuador_PN = mkPN "Ecuador" ;
|
||||
Estonia_PN = mkPN "Estland" ;
|
||||
Egypt_PN = mkPN "Egypten" ;
|
||||
WesternSahara_PN = mkPN "Västsahara" ;
|
||||
Eritrea_PN = mkPN "Eritrea" ;
|
||||
Spain_PN = mkPN "Spanien" ;
|
||||
Ethiopia_PN = mkPN "Etiopien" ;
|
||||
Finland_PN = mkPN "Finland" ;
|
||||
Fiji_PN = mkPN "Fiji" ;
|
||||
FalklandIslands_PN = mkPN "Falklandsöarna" ;
|
||||
Micronesia_PN = mkPN "Mikronesien" ;
|
||||
FaroeIslands_PN = mkPN "Färöarna" ;
|
||||
France_PN = mkPN "Frankrike" ;
|
||||
Gabon_PN = mkPN "Gabon" ;
|
||||
UnitedKingdom_PN = mkPN "Storbritannien" ;
|
||||
Grenada_PN = mkPN "Grenada" ;
|
||||
Georgia_PN = mkPN "Georgia" ;
|
||||
FrenchGuiana_PN = mkPN "Franska Guyana" ;
|
||||
Guernsey_PN = mkPN "Guernsey" ;
|
||||
Ghana_PN = mkPN "Ghana" ;
|
||||
Gibraltar_PN = mkPN "Gibraltar" ;
|
||||
Greenland_PN = mkPN "Grönland" ;
|
||||
Gambia_PN = mkPN "Gambia" ;
|
||||
Guinea_PN = mkPN "Guinea" ;
|
||||
Guadeloupe_PN = mkPN "Guadeloupe" ;
|
||||
EquatorialGuinea_PN = mkPN "Ekvatorialguinea" ;
|
||||
Greece_PN = mkPN "Grekland" ;
|
||||
SouthGeorgiaAndTheSouthSandwichIslands_PN = mkPN "Sydgeorgien och Sydsandwichöarna" ;
|
||||
Guatemala_PN = mkPN "Guatemala" ;
|
||||
Guam_PN = mkPN "Guam" ;
|
||||
GuineaBissau_PN = mkPN "Guinea-Bissau" ;
|
||||
Guyana_PN = mkPN "Guyana" ;
|
||||
HongKong_PN = mkPN "Hongkong" ;
|
||||
HeardIslandAndMcDonaldIslands_PN = mkPN "Heardön och McDonaldöarna" ;
|
||||
Honduras_PN = mkPN "Honduras" ;
|
||||
Croatia_PN = mkPN "Kroatien" ;
|
||||
Haiti_PN = mkPN "Haiti" ;
|
||||
Hungary_PN = mkPN "Ungern" ;
|
||||
Indonesia_PN = mkPN "Indonesien" ;
|
||||
Ireland_PN = mkPN "Irland" ;
|
||||
Israel_PN = mkPN "Israel" ;
|
||||
IsleofMan_PN = mkPN "Isle of Man" ;
|
||||
India_PN = mkPN "Indien" ;
|
||||
BritishIndianOceanTerritory_PN = mkPN "Brittiska territoriet i Indiska Oceanen" ;
|
||||
Iraq_PN = mkPN "Irak" ;
|
||||
Iran_PN = mkPN "Iran" ;
|
||||
Iceland_PN = mkPN "Island" ;
|
||||
Italy_PN = mkPN "Italien" ;
|
||||
Jersey_PN = mkPN "Jersey" ;
|
||||
Jamaica_PN = mkPN "Jamaica" ;
|
||||
Jordan_PN = mkPN "Jordanien" ;
|
||||
Japan_PN = mkPN "Japan" ;
|
||||
Kenya_PN = mkPN "Kenya" ;
|
||||
Kyrgyzstan_PN = mkPN "Kirgizistan" ;
|
||||
Cambodia_PN = mkPN "Kambodja" ;
|
||||
Kiribati_PN = mkPN "Kiribati" ;
|
||||
Comoros_PN = mkPN "Komorerna" ;
|
||||
SaintKittsAndNevis_PN = mkPN "St Kitts och Nevis" ;
|
||||
NorthKorea_PN = mkPN "Nordkorea" ;
|
||||
SouthKorea_PN = mkPN "Sydkorea" ;
|
||||
Kuwait_PN = mkPN "Kuwait" ;
|
||||
CaymanIslands_PN = mkPN "Caymanöarna" ;
|
||||
Kazakhstan_PN = mkPN "Kazakstan" ;
|
||||
Laos_PN = mkPN "Laos" ;
|
||||
Lebanon_PN = mkPN "Libanon" ;
|
||||
SaintLucia_PN = mkPN "St Lucia" ;
|
||||
Liechtenstein_PN = mkPN "Liechtenstein" ;
|
||||
SriLanka_PN = mkPN "Sri Lanka" ;
|
||||
Liberia_PN = mkPN "Liberia" ;
|
||||
Lesotho_PN = mkPN "Lesotho" ;
|
||||
Lithuania_PN = mkPN "Litauen" ;
|
||||
Luxembourg_PN = mkPN "Luxemburg" ;
|
||||
Latvia_PN = mkPN "Lettland" ;
|
||||
Libya_PN = mkPN "Libyen" ;
|
||||
Morocco_PN = mkPN "Marocko" ;
|
||||
Monaco_PN = mkPN "Monaco" ;
|
||||
Moldova_PN = mkPN "Moldavien" ;
|
||||
Montenegro_PN = mkPN "Montenegro" ;
|
||||
Madagascar_PN = mkPN "Madagaskar" ;
|
||||
MarshallIslands_PN = mkPN "Marshallöarna" ;
|
||||
Macedonia_PN = mkPN "Makedonien" ;
|
||||
Mali_PN = mkPN "Mali" ;
|
||||
Myanmar_PN = mkPN "Myanmar" ;
|
||||
Mongolia_PN = mkPN "Mongoliet" ;
|
||||
Macao_PN = mkPN "Macao" ;
|
||||
NorthernMarianaIslands_PN = mkPN "Nordmarianerna" ;
|
||||
Martinique_PN = mkPN "Martinique" ;
|
||||
Mauritania_PN = mkPN "Mauretanien" ;
|
||||
Montserrat_PN = mkPN "Montserrat" ;
|
||||
Malta_PN = mkPN "Malta" ;
|
||||
Mauritius_PN = mkPN "Mauritius" ;
|
||||
Maldives_PN = mkPN "Maldiverna" ;
|
||||
Malawi_PN = mkPN "Malawi" ;
|
||||
Mexico_PN = mkPN "Mexiko" ;
|
||||
Malaysia_PN = mkPN "Malaysia" ;
|
||||
Mozambique_PN = mkPN "Moçambique" ;
|
||||
Namibia_PN = mkPN "Namibia" ;
|
||||
NewCaledonia_PN = mkPN "Nya Kaledonien" ;
|
||||
Niger_PN = mkPN "Niger" ;
|
||||
NorfolkIsland_PN = mkPN "Norfolkön" ;
|
||||
Nigeria_PN = mkPN "Nigeria" ;
|
||||
Nicaragua_PN = mkPN "Nicaragua" ;
|
||||
Netherlands_PN = mkPN "Nederländerna" ;
|
||||
Norway_PN = mkPN "Norge" ;
|
||||
Nepal_PN = mkPN "Nepal" ;
|
||||
Nauru_PN = mkPN "Nauru" ;
|
||||
Niue_PN = mkPN "Niue" ;
|
||||
NewZealand_PN = mkPN "Nya Zeeland" ;
|
||||
Oman_PN = mkPN "Oman" ;
|
||||
Panama_PN = mkPN "Panama" ;
|
||||
Peru_PN = mkPN "Peru" ;
|
||||
FrenchPolynesia_PN = mkPN "Franska Polynesien" ;
|
||||
PapuaNewGuinea_PN = mkPN "Papua Nya Guinea" ;
|
||||
Philippines_PN = mkPN "Filippinerna" ;
|
||||
Pakistan_PN = mkPN "Pakistan" ;
|
||||
Poland_PN = mkPN "Polen" ;
|
||||
SaintPierreAndMiquelon_PN = mkPN "St. Pierre och Miquelon" ;
|
||||
Pitcairn_PN = mkPN "Pitcairn" ;
|
||||
PuertoRico_PN = mkPN "Puerto Rico" ;
|
||||
PalestinianTerritory_PN = mkPN "Palestinska territoriet" ;
|
||||
Portugal_PN = mkPN "Portugal" ;
|
||||
Palau_PN = mkPN "Palau Belau" ;
|
||||
Paraguay_PN = mkPN "Paraguay" ;
|
||||
Qatar_PN = mkPN "Qatar" ;
|
||||
Reunion_PN = mkPN "Réunion" ;
|
||||
Romania_PN = mkPN "Rumänien" ;
|
||||
Serbia_PN = mkPN "Serbien" ;
|
||||
Russia_PN = mkPN "Ryssland" ;
|
||||
Rwanda_PN = mkPN "Rwanda" ;
|
||||
SaudiArabia_PN = mkPN "Saudiarabien" ;
|
||||
SolomonIslands_PN = mkPN "Salomonöarna" ;
|
||||
Seychelles_PN = mkPN "Seychellerna" ;
|
||||
Sudan_PN = mkPN "Sudan" ;
|
||||
Sweden_PN = mkPN "Sverige" ;
|
||||
Singapore_PN = mkPN "Singapore" ;
|
||||
SaintHelena_PN = mkPN "St Helena" ;
|
||||
Slovenia_PN = mkPN "Slovenien" ;
|
||||
SvalbardAndJanMayen_PN = mkPN "Svalbard och Jan Mayen" ;
|
||||
Slovakia_PN = mkPN "Slovakien" ;
|
||||
SierraLeone_PN = mkPN "Sierra Leone" ;
|
||||
SanMarino_PN = mkPN "San Marino" ;
|
||||
Senegal_PN = mkPN "Senegal" ;
|
||||
Somalia_PN = mkPN "Somalia" ;
|
||||
Suriname_PN = mkPN "Surinam" ;
|
||||
SaoTomeAndPrincipe_PN = mkPN "Sao Tomé och Principe" ;
|
||||
ElSalvador_PN = mkPN "El Salvador" ;
|
||||
Syria_PN = mkPN "Syrien" ;
|
||||
Swaziland_PN = mkPN "Swaziland" ;
|
||||
TurksAndCaicosIslands_PN = mkPN "Turks- och Caicosöarna" ;
|
||||
Chad_PN = mkPN "Tchad" ;
|
||||
FrenchSouthernTerritories_PN = mkPN "Franska territorierna i södra Indiska Oceanen" ;
|
||||
Togo_PN = mkPN "Togo" ;
|
||||
Thailand_PN = mkPN "Thailand" ;
|
||||
Tajikistan_PN = mkPN "Tadzjikistan" ;
|
||||
Tokelau_PN = mkPN "Tokelauöarna" ;
|
||||
EastTimor_PN = mkPN "Östtimor" ;
|
||||
Turkmenistan_PN = mkPN "Turkmenistan" ;
|
||||
Tunisia_PN = mkPN "Tunisien" ;
|
||||
Tonga_PN = mkPN "Tonga" ;
|
||||
Turkey_PN = mkPN "Turkiet" ;
|
||||
TrinidadAndTobago_PN = mkPN "Trinidad och Tobago" ;
|
||||
Tuvalu_PN = mkPN "Tuvalu" ;
|
||||
Taiwan_PN = mkPN "Taiwan" ;
|
||||
Tanzania_PN = mkPN "Tanzania" ;
|
||||
Ukraine_PN = mkPN "Ukraina" ;
|
||||
Uganda_PN = mkPN "Uganda" ;
|
||||
UnitedStatesMinorOutlyingIslands_PN = mkPN "Förenta staternas yttre öar" ;
|
||||
UnitedStates_PN = mkPN "USA" ;
|
||||
Uruguay_PN = mkPN "Uruguay" ;
|
||||
Uzbekistan_PN = mkPN "Uzbekistan" ;
|
||||
VaticanCity_PN = mkPN "Vatikanstaten" ;
|
||||
SaintVincentAndtheGrenadines_PN = mkPN "Saint Vincent och Grenadinerna" ;
|
||||
Venezuela_PN = mkPN "Venezuela" ;
|
||||
VirginIslandsBritish_PN = mkPN "Brittiska jungfruöarna" ;
|
||||
VirginIslandsUS_PN = mkPN "Amerikanska jungfruöarna" ;
|
||||
Vietnam_PN = mkPN "Vietnam" ;
|
||||
Vanuatu_PN = mkPN "Vanuatu" ;
|
||||
WallisAndFutuna_PN = mkPN "Wallis och Futuna" ;
|
||||
Samoa_PN = mkPN "Samoa" ;
|
||||
Yemen_PN = mkPN "Yemen" ;
|
||||
Mayotte_PN = mkPN "Mayotte" ;
|
||||
SouthAfrica_PN = mkPN "Sydafrika" ;
|
||||
Zambia_PN = mkPN "Zambia" ;
|
||||
Zimbabwe_PN = mkPN "Zimbabwe" ;
|
||||
|
||||
|
||||
-- Cuisines
|
||||
Afghani_PN = mkPN "Afghansk" ;
|
||||
African_PN = mkPN "Afrikansk" ;
|
||||
American_PN = mkPN "Amerikansk" ;
|
||||
Arabic_PN = mkPN "Arabisk" ;
|
||||
Argentine_PN = mkPN "Argentinsk" ;
|
||||
Armenian_PN = mkPN "Armenisk" ;
|
||||
Asian_PN = mkPN "Asiatisk" ;
|
||||
Australian_PN = mkPN "Australiensisk" ;
|
||||
Austrian_PN = mkPN "Österrikisk" ;
|
||||
Balinese_PN = mkPN "Balinesisk" ;
|
||||
Basque_PN = mkPN "Baskisk" ;
|
||||
Belgian_PN = mkPN "Belgisk" ;
|
||||
Brazilian_PN = mkPN "Brasiliansk" ;
|
||||
Bulgarian_PN = mkPN "Bulgarisk" ;
|
||||
Burmese_PN = mkPN "Burmesisk" ;
|
||||
Cajun_PN = mkPN "Cajun" ;
|
||||
Cambodian_PN = mkPN "Kambodjansk" ;
|
||||
Caribbean_PN = mkPN "Karibisk" ;
|
||||
Catalan_PN = mkPN "Katalansk" ;
|
||||
Chinese_PN = mkPN "Kinesisk" ;
|
||||
Colombian_PN = mkPN "Colombiansk" ;
|
||||
Contemporary_PN = mkPN "Samtida" ;
|
||||
Continental_PN = mkPN "Kontinental" ;
|
||||
Creole_PN = mkPN "Kreolsk" ;
|
||||
Cuban_PN = mkPN "Kubansk" ;
|
||||
Czech_PN = mkPN "Tjeckisk" ;
|
||||
Dutch_PN = mkPN "Nederländsk" ;
|
||||
EasternEuropean_PN = mkPN "Östeuropeisk" ;
|
||||
Eclectic_PN = mkPN "Eklektisk" ;
|
||||
Egyptian_PN = mkPN "Egyptisk" ;
|
||||
English_PN = mkPN "Brittisk" ;
|
||||
Ethiopian_PN = mkPN "Etiopisk" ;
|
||||
Ethnic_PN = mkPN "Etnisk" ;
|
||||
French_PN = mkPN "Fransk" ;
|
||||
Fusion_PN = mkPN "Fusion" ;
|
||||
German_PN = mkPN "Tysk" ;
|
||||
Greek_PN = mkPN "Grekisk" ;
|
||||
Haitian_PN = mkPN "Haitiansk" ;
|
||||
Hungarian_PN = mkPN "Ungersk" ;
|
||||
Indian_PN = mkPN "Indisk" ;
|
||||
Indonesian_PN = mkPN "Indonesisk" ;
|
||||
International_PN = mkPN "Internationell" ;
|
||||
Irish_PN = mkPN "Irländsk" ;
|
||||
Israeli_PN = mkPN "Israelisk" ;
|
||||
Italian_PN = mkPN "Italiensk" ;
|
||||
Jamaican_PN = mkPN "Jamaicansk" ;
|
||||
Japanese_PN = mkPN "Japansk" ;
|
||||
Jewish_PN = mkPN "Judisk" ;
|
||||
Korean_PN = mkPN "Koreansk" ;
|
||||
LatinAmerican_PN = mkPN "Latinamerikansk" ;
|
||||
Lebanese_PN = mkPN "Libanesisk" ;
|
||||
Malaysian_PN = mkPN "Malaysisk" ;
|
||||
Mexican_PN = mkPN "Mexikansk" ;
|
||||
MiddleEastern_PN = mkPN "Mellanösternsk" ;
|
||||
Mongolian_PN = mkPN "Mongolisk" ;
|
||||
Moroccan_PN = mkPN "Marockansk" ;
|
||||
NewZealandCuisine_PN = mkPN "Nyzeeländsk" ;
|
||||
Nicaraguan_PN = mkPN "Nicaraguansk" ;
|
||||
Nouveau_PN = mkPN "Nouveau" ;
|
||||
Pakistani_PN = mkPN "Pakistansk" ;
|
||||
Persian_PN = mkPN "Iransk" ;
|
||||
Peruvian_PN = mkPN "Peruansk" ;
|
||||
Philippine_PN = mkPN "Filippinsk" ;
|
||||
Polish_PN = mkPN "Polsk" ;
|
||||
Polynesian_PN = mkPN "Polynesisk" ;
|
||||
Portuguese_PN = mkPN "Portugisisk" ;
|
||||
PuertoRican_PN = mkPN "Puertorikansk" ;
|
||||
Russian_PN = mkPN "Rysk" ;
|
||||
Salvadorean_PN = mkPN "Salvadoransk" ;
|
||||
Scandinavian_PN = mkPN "Skandinavisk" ;
|
||||
Scottish_PN = mkPN "Skotsk" ;
|
||||
Seafood_PN = mkPN "Fisk och Skaldjur" ; --FIX!!!
|
||||
Singaporean_PN = mkPN "Singaporiansk" ;
|
||||
Spanish_PN = mkPN "Spansk" ;
|
||||
SriLankan_PN = mkPN "Lankiesisk" ;
|
||||
Swedish_PN = mkPN "Svensk" ;
|
||||
Swiss_PN = mkPN "Schweizisk" ;
|
||||
Tex_Mex_PN = mkPN "Tex-Mex" ;
|
||||
Thai_PN = mkPN "Thailändsk" ;
|
||||
Tibetan_PN = mkPN "Tibetansk" ;
|
||||
Turkish_PN = mkPN "Turkisk" ;
|
||||
Ukrainian_PN = mkPN "Ukrainsk" ;
|
||||
Vegan_PN = mkPN "Vegansk" ;
|
||||
Vegetarian_PN = mkPN "Vegetarisk" ;
|
||||
Venezulean_PN = mkPN "Venezolansk" ;
|
||||
Vietnamese_PN = mkPN "Vietnamesisk" ;
|
||||
|
||||
-- Determiners
|
||||
defSg_Det = defSgDet ;
|
||||
-- defPl_Det = defPlDet ;
|
||||
indefSg_Det = indefSgDet ;
|
||||
-- indefPl_Det = indefPlDet ;
|
||||
this_Det = mkDet this_QuantSg ;
|
||||
-- that_Det = mkDet that_QuantSg ;
|
||||
-- these_Det = mkDet these_QuantPl ;
|
||||
-- those_Det = mkDet those_QuantPl ;
|
||||
|
||||
}
|
||||
111
examples/wiki/Restaurant.gf
Normal file
111
examples/wiki/Restaurant.gf
Normal file
@@ -0,0 +1,111 @@
|
||||
|
||||
abstract Restaurant = {
|
||||
|
||||
flags startcat = Paragraph ;
|
||||
coding = utf8 ;
|
||||
|
||||
cat
|
||||
Paragraph ;
|
||||
Phrase ;
|
||||
Item ;
|
||||
Quality ;
|
||||
ListQual ;
|
||||
Adverb ;
|
||||
STense ;
|
||||
|
||||
fun
|
||||
|
||||
-- Paragraphs
|
||||
Sentence : Phrase -> Paragraph -> Paragraph ;
|
||||
Empty_Sentence : Paragraph ;
|
||||
|
||||
-- Sentences
|
||||
|
||||
The_Item_Is : Item -> Quality -> Phrase ;
|
||||
The_Item_Is_Not : Item -> Quality -> Phrase ;
|
||||
I_Recommend : Adverb -> Item -> Phrase ;
|
||||
I_Do_Not_Recommend : Adverb -> Item -> Phrase ;
|
||||
|
||||
-- Noun Phrases
|
||||
The_Restaurant : Item ;
|
||||
The_Food : Item ;
|
||||
The_Staff : Item ;
|
||||
The_Wine : Item ;
|
||||
The_Wines : Item ;
|
||||
The_Cheese : Item ;
|
||||
The_Cheeses : Item ;
|
||||
The_Fish : Item ;
|
||||
The_Pizza : Item ;
|
||||
The_Dishes : Item ;
|
||||
The_Drinks : Item ;
|
||||
The_Desserts : Item ;
|
||||
|
||||
-- Adjectival Phrases
|
||||
|
||||
Adjective_And_Adjective : Quality -> Quality -> ListQual ;
|
||||
Adj_Comma_List_Of_Adjs : Quality -> ListQual -> ListQual ;
|
||||
A_List_Of_Adjectives : ListQual -> Quality ;
|
||||
Very_Adjective : Quality -> Quality ;
|
||||
|
||||
-- Adjectives
|
||||
-- Restaurant
|
||||
Chinese : Quality ;
|
||||
French : Quality ;
|
||||
Italian : Quality ;
|
||||
Japanese : Quality ;
|
||||
Mexican : Quality ;
|
||||
Thai : Quality ;
|
||||
|
||||
Expensive : Quality ;
|
||||
Cheap : Quality ;
|
||||
Nice : Quality ;
|
||||
Clean : Quality ;
|
||||
Dirty : Quality ;
|
||||
|
||||
-- Food
|
||||
|
||||
Fresh : Quality ;
|
||||
Delicious : Quality ;
|
||||
Fatty : Quality ;
|
||||
Tasteless : Quality ;
|
||||
Authentic : Quality ;
|
||||
|
||||
-- Service
|
||||
Efficient : Quality ;
|
||||
Courteous : Quality ;
|
||||
Helpful : Quality ;
|
||||
Friendly : Quality ;
|
||||
Personal : Quality ;
|
||||
Warm : Quality ;
|
||||
Prompt : Quality ;
|
||||
Attentive : Quality ;
|
||||
|
||||
Inefficient : Quality ;
|
||||
Rude : Quality ;
|
||||
Impersonal : Quality ;
|
||||
Slow : Quality ;
|
||||
UnAttentive : Quality ;
|
||||
|
||||
-- General
|
||||
Good, Great, Excellent : Quality ;
|
||||
Bad, Awful, Horrible, Disgusting : Quality ;
|
||||
Boring : Quality ;
|
||||
|
||||
-- General Plural
|
||||
Diverse : Quality ;
|
||||
|
||||
-- Adverbs
|
||||
NoAdverb : Adverb ;
|
||||
Strongly : Adverb ;
|
||||
Completely : Adverb ;
|
||||
Certainly : Adverb ;
|
||||
Honestly : Adverb ;
|
||||
Really : Adverb ;
|
||||
Reluctantly : Adverb ;
|
||||
Hardly : Adverb ;
|
||||
|
||||
-- Tenses
|
||||
Present_Tense : STense ;
|
||||
Conditional_Tense : STense ;
|
||||
|
||||
}
|
||||
8
examples/wiki/RestaurantEng.gf
Normal file
8
examples/wiki/RestaurantEng.gf
Normal file
@@ -0,0 +1,8 @@
|
||||
|
||||
--# -path=.:alltenses:prelude
|
||||
|
||||
concrete RestaurantEng of Restaurant = RestaurantI with
|
||||
|
||||
(Syntax = SyntaxEng),
|
||||
(Grammar = GrammarEng),
|
||||
(LexRestaurant = LexRestaurantEng) ;
|
||||
8
examples/wiki/RestaurantFin.gf
Normal file
8
examples/wiki/RestaurantFin.gf
Normal file
@@ -0,0 +1,8 @@
|
||||
|
||||
--# -path=.:alltenses:prelude
|
||||
|
||||
concrete RestaurantFin of Restaurant = RestaurantI with
|
||||
|
||||
(Syntax = SyntaxFin),
|
||||
(Grammar = GrammarFin),
|
||||
(LexRestaurant = LexRestaurantFin) ;
|
||||
8
examples/wiki/RestaurantFre.gf
Normal file
8
examples/wiki/RestaurantFre.gf
Normal file
@@ -0,0 +1,8 @@
|
||||
|
||||
--# -path=.:alltenses:prelude
|
||||
|
||||
concrete RestaurantFre of Restaurant = RestaurantI with
|
||||
|
||||
(Syntax = SyntaxFre),
|
||||
(Grammar = GrammarFre),
|
||||
(LexRestaurant = LexRestaurantFre) ;
|
||||
117
examples/wiki/RestaurantI.gf
Normal file
117
examples/wiki/RestaurantI.gf
Normal file
@@ -0,0 +1,117 @@
|
||||
|
||||
--# -path=.:alltenses:prelude
|
||||
|
||||
incomplete concrete RestaurantI of Restaurant = open Syntax, Grammar, LexRestaurant in {
|
||||
|
||||
flags coding = utf8 ;
|
||||
|
||||
lincat
|
||||
Paragraph = Text ;
|
||||
Phrase = Phr ;
|
||||
Item = NP ;
|
||||
Quality = AP ;
|
||||
ListQual = ListAP ;
|
||||
Adverb = AdV ;
|
||||
STense = Tense ;
|
||||
|
||||
lin
|
||||
-- Paragraphs
|
||||
Sentence phrase phrases = mkText phrase phrases ;
|
||||
Empty_Sentence = emptyText ;
|
||||
|
||||
-- Sentences
|
||||
|
||||
The_Item_Is item quality = mkPhr (mkS positivePol (mkCl item quality)) ;
|
||||
The_Item_Is_Not item quality = mkPhr (mkS negativePol (mkCl item quality)) ;
|
||||
I_Recommend adv item =
|
||||
variants {mkPhr (mkS presentTense positivePol (mkCl (mkNP i_Pron) (mkVP adv (mkVP recommend_V2 item)))) ;
|
||||
mkPhr (mkS conditionalTense positivePol (mkCl (mkNP i_Pron) (mkVP adv (mkVP recommend_V2 item))))} ;
|
||||
I_Do_Not_Recommend adv item =
|
||||
variants {mkPhr (mkS presentTense negativePol (mkCl (mkNP i_Pron) (mkVP adv (mkVP recommend_V2 item)))) ;
|
||||
mkPhr (mkS conditionalTense negativePol (mkCl (mkNP i_Pron) (mkVP adv (mkVP recommend_V2 item))))} ;
|
||||
|
||||
-- Common Nouns
|
||||
The_Restaurant = variants {mkNP defSgDet restaurant_N; mkNP this_QuantSg restaurant_N} ;
|
||||
The_Food = mkNP defSgDet food_N ;
|
||||
The_Staff = mkNP defSgDet staff_N ;
|
||||
The_Wine = mkNP defSgDet wine_N ;
|
||||
The_Wines = mkNP defPlDet wine_N ;
|
||||
The_Cheese = mkNP defSgDet cheese_N ;
|
||||
The_Cheeses = mkNP defPlDet cheese_N ;
|
||||
The_Fish = mkNP defSgDet fish_N ;
|
||||
The_Pizza = mkNP defSgDet pizza_N ;
|
||||
The_Dishes = mkNP defPlDet dish_N ;
|
||||
The_Drinks = mkNP defPlDet drink_N ;
|
||||
The_Desserts = mkNP defPlDet dessert_N ;
|
||||
|
||||
-- Adjectival Phrases
|
||||
Adjective_And_Adjective qualA qualB = mkListAP qualA qualB ;
|
||||
Adj_Comma_List_Of_Adjs qualA qualB = mkListAP qualA qualB ;
|
||||
A_List_Of_Adjectives qual = mkAP and_Conj qual ;
|
||||
Very_Adjective quality = mkAP very_AdA quality ;
|
||||
|
||||
-- Adjectives
|
||||
-- Restaurant
|
||||
Chinese = mkAP chinese_A ;
|
||||
French = mkAP french_A ;
|
||||
Italian = mkAP italian_A ;
|
||||
Japanese = mkAP japanese_A ;
|
||||
Mexican = mkAP mexican_A ;
|
||||
Thai = mkAP thai_A ;
|
||||
|
||||
Expensive = mkAP expensive_A ;
|
||||
Cheap = mkAP cheap_A ;
|
||||
Nice = mkAP nice_A ;
|
||||
Clean = mkAP clean_A ;
|
||||
Dirty = mkAP dirty_A ;
|
||||
|
||||
-- Food
|
||||
Fresh = mkAP fresh_A ;
|
||||
Delicious = mkAP delicious_A ;
|
||||
Fatty = mkAP fatty_A ;
|
||||
Tasteless = mkAP tasteless_A;
|
||||
Authentic = mkAP authentic_A ;
|
||||
|
||||
-- Service
|
||||
Efficient = mkAP efficient_A ;
|
||||
Courteous = mkAP courteous_A ;
|
||||
Helpful = mkAP helpful_A ;
|
||||
Friendly = mkAP friendly_A ;
|
||||
Personal = mkAP personal_A ;
|
||||
Warm = mkAP warm_A ;
|
||||
Prompt = mkAP prompt_A ;
|
||||
Attentive = mkAP attentive_A ;
|
||||
Inefficient = mkAP inefficient_A ;
|
||||
Rude = mkAP rude_A ;
|
||||
Impersonal = mkAP impersonal_A ;
|
||||
Slow = mkAP slow_A ;
|
||||
UnAttentive = mkAP unattentive_A ;
|
||||
|
||||
-- Generic
|
||||
Good = mkAP good_A ;
|
||||
Great = mkAP great_A ;
|
||||
Excellent = mkAP excellent_A ;
|
||||
Bad = mkAP bad_A ;
|
||||
Awful = mkAP awful_A ;
|
||||
Horrible = mkAP horrible_A ;
|
||||
Disgusting = mkAP disgusting_A ;
|
||||
Boring = mkAP boring_A ;
|
||||
|
||||
-- Generic Plural
|
||||
Diverse = mkAP diverse_A ;
|
||||
|
||||
-- Adverbs
|
||||
NoAdverb = noAdv_AdV ;
|
||||
Strongly = strongly_AdV ;
|
||||
Completely = completely_AdV ;
|
||||
Certainly = certainly_AdV ;
|
||||
Honestly = honestly_AdV ;
|
||||
Really = really_AdV ;
|
||||
Reluctantly = reluctantly_AdV ;
|
||||
Hardly = hardly_AdV ;
|
||||
|
||||
-- Tenses
|
||||
Present_Tense = presentTense ;
|
||||
Conditional_Tense = conditionalTense ;
|
||||
|
||||
}
|
||||
8
examples/wiki/RestaurantSpa.gf
Normal file
8
examples/wiki/RestaurantSpa.gf
Normal file
@@ -0,0 +1,8 @@
|
||||
|
||||
--# -path=.:alltenses:prelude
|
||||
|
||||
concrete RestaurantSpa of Restaurant = RestaurantI with
|
||||
|
||||
(Syntax = SyntaxSpa),
|
||||
(Grammar = GrammarSpa),
|
||||
(LexRestaurant = LexRestaurantSpa) ;
|
||||
8
examples/wiki/RestaurantSwe.gf
Normal file
8
examples/wiki/RestaurantSwe.gf
Normal file
@@ -0,0 +1,8 @@
|
||||
|
||||
--# -path=.:alltenses:prelude
|
||||
|
||||
concrete RestaurantSwe of Restaurant = RestaurantI with
|
||||
|
||||
(Syntax = SyntaxSwe),
|
||||
(Grammar = GrammarSwe),
|
||||
(LexRestaurant = LexRestaurantSwe) ;
|
||||
410
examples/wiki/Wiki.gf
Normal file
410
examples/wiki/Wiki.gf
Normal file
@@ -0,0 +1,410 @@
|
||||
|
||||
abstract Wiki = {
|
||||
|
||||
flags startcat = Sentence ;
|
||||
coding = utf8 ;
|
||||
|
||||
cat
|
||||
Sentence ;
|
||||
Verb ;
|
||||
Noun ;
|
||||
CountryPN ;
|
||||
CuisinePN ;
|
||||
Determiner ;
|
||||
|
||||
fun
|
||||
-- Sentences
|
||||
SingleWordCommand : Verb -> Sentence ;
|
||||
Command : Verb -> Determiner -> Noun -> Sentence ;
|
||||
RandomlyCommand : Verb -> Determiner -> Noun -> Sentence ;
|
||||
Label : Noun -> Sentence ;
|
||||
CountryName : CountryPN -> Sentence ;
|
||||
CuisineName : CuisinePN -> Sentence ;
|
||||
|
||||
-- Verbs
|
||||
Cancel : Verb ;
|
||||
Select : Verb ;
|
||||
Edit : Verb ;
|
||||
Save : Verb ;
|
||||
Add : Verb ;
|
||||
Undo : Verb ;
|
||||
Redo : Verb ;
|
||||
Cut : Verb ;
|
||||
Copy : Verb ;
|
||||
Paste : Verb ;
|
||||
Delete : Verb ;
|
||||
Refine : Verb ;
|
||||
Replace : Verb ;
|
||||
Wrap : Verb ;
|
||||
|
||||
-- Nouns
|
||||
-- Field Labels
|
||||
-- Information
|
||||
Information : Noun ;
|
||||
Name : Noun ;
|
||||
Address : Noun ;
|
||||
City : Noun ;
|
||||
State : Noun ;
|
||||
Postalcode : Noun ;
|
||||
Country : Noun ;
|
||||
Phone : Noun ;
|
||||
Cuisine : Noun ;
|
||||
Language : Noun ;
|
||||
|
||||
-- Misc
|
||||
Page : Noun ;
|
||||
Index : Noun ;
|
||||
Review : Noun ;
|
||||
Restaurant : Noun ;
|
||||
Food : Noun ;
|
||||
Service : Noun ;
|
||||
Node : Noun ;
|
||||
Tree : Noun ;
|
||||
|
||||
-- Proper Nouns
|
||||
-- Countries
|
||||
Andorra : CountryPN ;
|
||||
UnitedArabEmirates : CountryPN ;
|
||||
Afghanistan : CountryPN ;
|
||||
AntiguaAndBarbuda : CountryPN ;
|
||||
Anguilla : CountryPN ;
|
||||
Albania : CountryPN ;
|
||||
Armenia : CountryPN ;
|
||||
NetherlandsAntilles : CountryPN ;
|
||||
Angola : CountryPN ;
|
||||
Antarctica : CountryPN ;
|
||||
Argentina : CountryPN ;
|
||||
AmericanSamoa : CountryPN ;
|
||||
Austria : CountryPN ;
|
||||
Australia : CountryPN ;
|
||||
Aruba : CountryPN ;
|
||||
AlandIslands : CountryPN ;
|
||||
Azerbaijan : CountryPN ;
|
||||
BosniaAndHerzegovina : CountryPN ;
|
||||
Barbados : CountryPN ;
|
||||
Bangladesh : CountryPN ;
|
||||
Belgium : CountryPN ;
|
||||
BurkinaFaso : CountryPN ;
|
||||
Bulgaria : CountryPN ;
|
||||
Bahrain : CountryPN ;
|
||||
Burundi : CountryPN ;
|
||||
Benin : CountryPN ;
|
||||
Bermuda : CountryPN ;
|
||||
Brunei : CountryPN ;
|
||||
Bolivia : CountryPN ;
|
||||
Brazil : CountryPN ;
|
||||
Bahamas : CountryPN ;
|
||||
Bhutan : CountryPN ;
|
||||
BouvetIsland : CountryPN ;
|
||||
Botswana : CountryPN ;
|
||||
Belarus : CountryPN ;
|
||||
Belize : CountryPN ;
|
||||
Canada : CountryPN ;
|
||||
CocosIslands : CountryPN ;
|
||||
CongoDemocraticRepublicofthe : CountryPN ;
|
||||
CentralAfricanRepublic : CountryPN ;
|
||||
Congo : CountryPN ;
|
||||
Switzerland : CountryPN ;
|
||||
CotedIvoire : CountryPN ;
|
||||
CookIslands : CountryPN ;
|
||||
Chile : CountryPN ;
|
||||
Cameroon : CountryPN ;
|
||||
China : CountryPN ;
|
||||
Colombia : CountryPN ;
|
||||
CostaRica : CountryPN ;
|
||||
SerbiaAndMontenegro : CountryPN ;
|
||||
Cuba : CountryPN ;
|
||||
CapeVerde : CountryPN ;
|
||||
ChristmasIsland : CountryPN ;
|
||||
Cyprus : CountryPN ;
|
||||
CzechRepublic : CountryPN ;
|
||||
Germany : CountryPN ;
|
||||
Djibouti : CountryPN ;
|
||||
Denmark : CountryPN ;
|
||||
Dominica : CountryPN ;
|
||||
DominicanRepublic : CountryPN ;
|
||||
Algeria : CountryPN ;
|
||||
Ecuador : CountryPN ;
|
||||
Estonia : CountryPN ;
|
||||
Egypt : CountryPN ;
|
||||
WesternSahara : CountryPN ;
|
||||
Eritrea : CountryPN ;
|
||||
Spain : CountryPN ;
|
||||
Ethiopia : CountryPN ;
|
||||
Finland : CountryPN ;
|
||||
Fiji : CountryPN ;
|
||||
FalklandIslands : CountryPN ;
|
||||
Micronesia : CountryPN ;
|
||||
FaroeIslands : CountryPN ;
|
||||
France : CountryPN ;
|
||||
Gabon : CountryPN ;
|
||||
UnitedKingdom : CountryPN ;
|
||||
Grenada : CountryPN ;
|
||||
Georgia : CountryPN ;
|
||||
FrenchGuiana : CountryPN ;
|
||||
Guernsey : CountryPN ;
|
||||
Ghana : CountryPN ;
|
||||
Gibraltar : CountryPN ;
|
||||
Greenland : CountryPN ;
|
||||
Gambia : CountryPN ;
|
||||
Guinea : CountryPN ;
|
||||
Guadeloupe : CountryPN ;
|
||||
EquatorialGuinea : CountryPN ;
|
||||
Greece : CountryPN ;
|
||||
SouthGeorgiaAndTheSouthSandwichIslands : CountryPN ;
|
||||
Guatemala : CountryPN ;
|
||||
Guam : CountryPN ;
|
||||
GuineaBissau : CountryPN ;
|
||||
Guyana : CountryPN ;
|
||||
HongKong : CountryPN ;
|
||||
HeardIslandAndMcDonaldIslands : CountryPN ;
|
||||
Honduras : CountryPN ;
|
||||
Croatia : CountryPN ;
|
||||
Haiti : CountryPN ;
|
||||
Hungary : CountryPN ;
|
||||
Indonesia : CountryPN ;
|
||||
Ireland : CountryPN ;
|
||||
Israel : CountryPN ;
|
||||
IsleofMan : CountryPN ;
|
||||
India : CountryPN ;
|
||||
BritishIndianOceanTerritory : CountryPN ;
|
||||
Iraq : CountryPN ;
|
||||
Iran : CountryPN ;
|
||||
Iceland : CountryPN ;
|
||||
Italy : CountryPN ;
|
||||
Jersey : CountryPN ;
|
||||
Jamaica : CountryPN ;
|
||||
Jordan : CountryPN ;
|
||||
Japan : CountryPN ;
|
||||
Kenya : CountryPN ;
|
||||
Kyrgyzstan : CountryPN ;
|
||||
Cambodia : CountryPN ;
|
||||
Kiribati : CountryPN ;
|
||||
Comoros : CountryPN ;
|
||||
SaintKittsAndNevis : CountryPN ;
|
||||
NorthKorea : CountryPN ;
|
||||
SouthKorea : CountryPN ;
|
||||
Kuwait : CountryPN ;
|
||||
CaymanIslands : CountryPN ;
|
||||
Kazakhstan : CountryPN ;
|
||||
Laos : CountryPN ;
|
||||
Lebanon : CountryPN ;
|
||||
SaintLucia : CountryPN ;
|
||||
Liechtenstein : CountryPN ;
|
||||
SriLanka : CountryPN ;
|
||||
Liberia : CountryPN ;
|
||||
Lesotho : CountryPN ;
|
||||
Lithuania : CountryPN ;
|
||||
Luxembourg : CountryPN ;
|
||||
Latvia : CountryPN ;
|
||||
Libya : CountryPN ;
|
||||
Morocco : CountryPN ;
|
||||
Monaco : CountryPN ;
|
||||
Moldova : CountryPN ;
|
||||
Montenegro : CountryPN ;
|
||||
Madagascar : CountryPN ;
|
||||
MarshallIslands : CountryPN ;
|
||||
Macedonia : CountryPN ;
|
||||
Mali : CountryPN ;
|
||||
Myanmar : CountryPN ;
|
||||
Mongolia : CountryPN ;
|
||||
Macao : CountryPN ;
|
||||
NorthernMarianaIslands : CountryPN ;
|
||||
Martinique : CountryPN ;
|
||||
Mauritania : CountryPN ;
|
||||
Montserrat : CountryPN ;
|
||||
Malta : CountryPN ;
|
||||
Mauritius : CountryPN ;
|
||||
Maldives : CountryPN ;
|
||||
Malawi : CountryPN ;
|
||||
Mexico : CountryPN ;
|
||||
Malaysia : CountryPN ;
|
||||
Mozambique : CountryPN ;
|
||||
Namibia : CountryPN ;
|
||||
NewCaledonia : CountryPN ;
|
||||
Niger : CountryPN ;
|
||||
NorfolkIsland : CountryPN ;
|
||||
Nigeria : CountryPN ;
|
||||
Nicaragua : CountryPN ;
|
||||
Netherlands : CountryPN ;
|
||||
Norway : CountryPN ;
|
||||
Nepal : CountryPN ;
|
||||
Nauru : CountryPN ;
|
||||
Niue : CountryPN ;
|
||||
NewZealand : CountryPN ;
|
||||
Oman : CountryPN ;
|
||||
Panama : CountryPN ;
|
||||
Peru : CountryPN ;
|
||||
FrenchPolynesia : CountryPN ;
|
||||
PapuaNewGuinea : CountryPN ;
|
||||
Philippines : CountryPN ;
|
||||
Pakistan : CountryPN ;
|
||||
Poland : CountryPN ;
|
||||
SaintPierreAndMiquelon : CountryPN ;
|
||||
Pitcairn : CountryPN ;
|
||||
PuertoRico : CountryPN ;
|
||||
PalestinianTerritory : CountryPN ;
|
||||
Portugal : CountryPN ;
|
||||
Palau : CountryPN ;
|
||||
Paraguay : CountryPN ;
|
||||
Qatar : CountryPN ;
|
||||
Reunion : CountryPN ;
|
||||
Romania : CountryPN ;
|
||||
Serbia : CountryPN ;
|
||||
Russia : CountryPN ;
|
||||
Rwanda : CountryPN ;
|
||||
SaudiArabia : CountryPN ;
|
||||
SolomonIslands : CountryPN ;
|
||||
Seychelles : CountryPN ;
|
||||
Sudan : CountryPN ;
|
||||
Sweden : CountryPN ;
|
||||
Singapore : CountryPN ;
|
||||
SaintHelena : CountryPN ;
|
||||
Slovenia : CountryPN ;
|
||||
SvalbardAndJanMayen : CountryPN ;
|
||||
Slovakia : CountryPN ;
|
||||
SierraLeone : CountryPN ;
|
||||
SanMarino : CountryPN ;
|
||||
Senegal : CountryPN ;
|
||||
Somalia : CountryPN ;
|
||||
Suriname : CountryPN ;
|
||||
SaoTomeAndPrincipe : CountryPN ;
|
||||
ElSalvador : CountryPN ;
|
||||
Syria : CountryPN ;
|
||||
Swaziland : CountryPN ;
|
||||
TurksAndCaicosIslands : CountryPN ;
|
||||
Chad : CountryPN ;
|
||||
FrenchSouthernTerritories : CountryPN ;
|
||||
Togo : CountryPN ;
|
||||
Thailand : CountryPN ;
|
||||
Tajikistan : CountryPN ;
|
||||
Tokelau : CountryPN ;
|
||||
EastTimor : CountryPN ;
|
||||
Turkmenistan : CountryPN ;
|
||||
Tunisia : CountryPN ;
|
||||
Tonga : CountryPN ;
|
||||
Turkey : CountryPN ;
|
||||
TrinidadAndTobago : CountryPN ;
|
||||
Tuvalu : CountryPN ;
|
||||
Taiwan : CountryPN ;
|
||||
Tanzania : CountryPN ;
|
||||
Ukraine : CountryPN ;
|
||||
Uganda : CountryPN ;
|
||||
UnitedStatesMinorOutlyingIslands : CountryPN ;
|
||||
UnitedStates : CountryPN ;
|
||||
Uruguay : CountryPN ;
|
||||
Uzbekistan : CountryPN ;
|
||||
VaticanCity : CountryPN ;
|
||||
SaintVincentAndtheGrenadines : CountryPN ;
|
||||
Venezuela : CountryPN ;
|
||||
VirginIslandsBritish : CountryPN ;
|
||||
VirginIslandsUS : CountryPN ;
|
||||
Vietnam : CountryPN ;
|
||||
Vanuatu : CountryPN ;
|
||||
WallisAndFutuna : CountryPN ;
|
||||
Samoa : CountryPN ;
|
||||
Yemen : CountryPN ;
|
||||
Mayotte : CountryPN ;
|
||||
SouthAfrica : CountryPN ;
|
||||
Zambia : CountryPN ;
|
||||
Zimbabwe : CountryPN ;
|
||||
|
||||
-- Cuisines
|
||||
Afghani : CuisinePN ;
|
||||
African : CuisinePN ;
|
||||
American : CuisinePN ;
|
||||
Arabic : CuisinePN ;
|
||||
Argentine : CuisinePN ;
|
||||
Armenian : CuisinePN ;
|
||||
Asian : CuisinePN ;
|
||||
Australian : CuisinePN ;
|
||||
Austrian : CuisinePN ;
|
||||
Balinese : CuisinePN ;
|
||||
Basque : CuisinePN ;
|
||||
Belgian : CuisinePN ;
|
||||
Brazilian : CuisinePN ;
|
||||
Bulgarian : CuisinePN ;
|
||||
Burmese : CuisinePN ;
|
||||
Cajun : CuisinePN ;
|
||||
Cambodian : CuisinePN ;
|
||||
Caribbean : CuisinePN ;
|
||||
Catalan : CuisinePN ;
|
||||
Chinese : CuisinePN ;
|
||||
Colombian : CuisinePN ;
|
||||
Contemporary : CuisinePN ;
|
||||
Continental : CuisinePN ;
|
||||
Creole : CuisinePN ;
|
||||
Cuban : CuisinePN ;
|
||||
Czech : CuisinePN ;
|
||||
Dutch : CuisinePN ;
|
||||
EasternEuropean : CuisinePN ;
|
||||
Eclectic : CuisinePN ;
|
||||
Egyptian : CuisinePN ;
|
||||
English : CuisinePN ;
|
||||
Ethiopian : CuisinePN ;
|
||||
Ethnic : CuisinePN ;
|
||||
French : CuisinePN ;
|
||||
Fusion : CuisinePN ;
|
||||
German : CuisinePN ;
|
||||
Greek : CuisinePN ;
|
||||
Haitian : CuisinePN ;
|
||||
Hungarian : CuisinePN ;
|
||||
Indian : CuisinePN ;
|
||||
Indonesian : CuisinePN ;
|
||||
International : CuisinePN ;
|
||||
Irish : CuisinePN ;
|
||||
Israeli : CuisinePN ;
|
||||
Italian : CuisinePN ;
|
||||
Jamaican : CuisinePN ;
|
||||
Japanese : CuisinePN ;
|
||||
Jewish : CuisinePN ;
|
||||
Korean : CuisinePN ;
|
||||
LatinAmerican : CuisinePN ;
|
||||
Lebanese : CuisinePN ;
|
||||
Malaysian : CuisinePN ;
|
||||
Mexican : CuisinePN ;
|
||||
MiddleEastern : CuisinePN ;
|
||||
Mongolian : CuisinePN ;
|
||||
Moroccan : CuisinePN ;
|
||||
NewZealandCuisine : CuisinePN ;
|
||||
Nicaraguan : CuisinePN ;
|
||||
Nouveau : CuisinePN ;
|
||||
Pakistani : CuisinePN ;
|
||||
Persian : CuisinePN ;
|
||||
Peruvian : CuisinePN ;
|
||||
Philippine : CuisinePN ;
|
||||
Polish : CuisinePN ;
|
||||
Polynesian : CuisinePN ;
|
||||
Portuguese : CuisinePN ;
|
||||
PuertoRican : CuisinePN ;
|
||||
Russian : CuisinePN ;
|
||||
Salvadorean : CuisinePN ;
|
||||
Scandinavian : CuisinePN ;
|
||||
Scottish : CuisinePN ;
|
||||
Seafood : CuisinePN ;
|
||||
Singaporean : CuisinePN ;
|
||||
Spanish : CuisinePN ;
|
||||
SriLankan : CuisinePN ;
|
||||
Swedish : CuisinePN ;
|
||||
Swiss : CuisinePN ;
|
||||
Tex_Mex : CuisinePN ;
|
||||
Thai : CuisinePN ;
|
||||
Tibetan : CuisinePN ;
|
||||
Turkish : CuisinePN ;
|
||||
Ukrainian : CuisinePN ;
|
||||
Vegan : CuisinePN ;
|
||||
Vegetarian : CuisinePN ;
|
||||
Venezulean : CuisinePN ;
|
||||
Vietnamese : CuisinePN ;
|
||||
|
||||
-- Determiners
|
||||
DefSgDet : Determiner ;
|
||||
-- DefPlDet : Determiner ;
|
||||
IndefSgDet : Determiner ;
|
||||
-- IndefPlDet : Determiner ;
|
||||
This : Determiner ;
|
||||
-- That : Determiner ;
|
||||
-- These : Determiner ;
|
||||
-- Those : Determiner ;
|
||||
|
||||
}
|
||||
7
examples/wiki/WikiEng.gf
Normal file
7
examples/wiki/WikiEng.gf
Normal file
@@ -0,0 +1,7 @@
|
||||
|
||||
--# -path=.:present:prelude
|
||||
|
||||
concrete WikiEng of Wiki = WikiI with
|
||||
|
||||
(Syntax = SyntaxEng),
|
||||
(LexWiki = LexWikiEng) ;
|
||||
7
examples/wiki/WikiFin.gf
Normal file
7
examples/wiki/WikiFin.gf
Normal file
@@ -0,0 +1,7 @@
|
||||
|
||||
--# -path=.:present:prelude
|
||||
|
||||
concrete WikiFin of Wiki = WikiI with
|
||||
|
||||
(Syntax = SyntaxFin),
|
||||
(LexWiki = LexWikiFin) ;
|
||||
7
examples/wiki/WikiFre.gf
Normal file
7
examples/wiki/WikiFre.gf
Normal file
@@ -0,0 +1,7 @@
|
||||
|
||||
--# -path=.:present:prelude
|
||||
|
||||
concrete WikiFre of Wiki = WikiI with
|
||||
|
||||
(Syntax = SyntaxFre),
|
||||
(LexWiki = LexWikiFre) ;
|
||||
411
examples/wiki/WikiI.gf
Normal file
411
examples/wiki/WikiI.gf
Normal file
@@ -0,0 +1,411 @@
|
||||
|
||||
--# -path=.=present=prelude
|
||||
|
||||
incomplete concrete WikiI of Wiki = open Syntax, LexWiki in {
|
||||
|
||||
flags coding = utf8 ;
|
||||
|
||||
lincat
|
||||
Sentence = Utt ;
|
||||
Verb = V ;
|
||||
Noun = N ;
|
||||
CountryPN = PN ;
|
||||
CuisinePN = PN ;
|
||||
Determiner = Det ;
|
||||
|
||||
lin
|
||||
-- Sentences
|
||||
SingleWordCommand verb = singleWordCommand_Utt verb ;
|
||||
Command verb det noun = command_Utt verb det noun ;
|
||||
RandomlyCommand verb det noun = randomlyCommand_Utt verb det noun ;
|
||||
Label noun = label_Utt noun ;
|
||||
CountryName pn = countryName_Utt pn ;
|
||||
CuisineName pn = cuisineName_Utt pn ;
|
||||
|
||||
-- Verbs
|
||||
Cancel = cancel_V ;
|
||||
Select = select_V ;
|
||||
Edit = edit_V ;
|
||||
Save = save_V ;
|
||||
Add = add_V ;
|
||||
Undo = undo_V ;
|
||||
Redo = redo_V ;
|
||||
Cut = cut_V ;
|
||||
Copy = copy_V ;
|
||||
Paste = paste_V ;
|
||||
Delete = delete_V ;
|
||||
Refine = refine_V ;
|
||||
Replace = replace_V ;
|
||||
Wrap = wrap_V ;
|
||||
|
||||
-- Nouns
|
||||
-- Field Labels
|
||||
-- Information
|
||||
Information = information_N ;
|
||||
Name = name_N ;
|
||||
Address = address_N ;
|
||||
City = city_N ;
|
||||
State = state_N ;
|
||||
Postalcode = postalcode_N ;
|
||||
Country = country_N ;
|
||||
Phone = phone_N ;
|
||||
Cuisine = cuisine_N ;
|
||||
Language = language_N ;
|
||||
|
||||
-- Misc
|
||||
Page = page_N ;
|
||||
Index = index_N ;
|
||||
Review = review_N ;
|
||||
Restaurant = restaurant_N ;
|
||||
Food = food_N ;
|
||||
Service = service_N ;
|
||||
Node = node_N ;
|
||||
Tree = tree_N ;
|
||||
|
||||
-- Proper Nouns
|
||||
-- Countries
|
||||
Andorra = Andorra_PN ;
|
||||
UnitedArabEmirates = UnitedArabEmirates_PN ;
|
||||
Afghanistan = Afghanistan_PN ;
|
||||
AntiguaAndBarbuda = AntiguaAndBarbuda_PN ;
|
||||
Anguilla = Anguilla_PN ;
|
||||
Albania = Albania_PN ;
|
||||
Armenia = Armenia_PN ;
|
||||
NetherlandsAntilles = NetherlandsAntilles_PN ;
|
||||
Angola = Angola_PN ;
|
||||
Antarctica = Antarctica_PN ;
|
||||
Argentina = Argentina_PN ;
|
||||
AmericanSamoa = AmericanSamoa_PN ;
|
||||
Austria = Austria_PN ;
|
||||
Australia = Australia_PN ;
|
||||
Aruba = Aruba_PN ;
|
||||
AlandIslands = AlandIslands_PN ;
|
||||
Azerbaijan = Azerbaijan_PN ;
|
||||
BosniaAndHerzegovina = BosniaAndHerzegovina_PN ;
|
||||
Barbados = Barbados_PN ;
|
||||
Bangladesh = Bangladesh_PN ;
|
||||
Belgium = Belgium_PN ;
|
||||
BurkinaFaso = BurkinaFaso_PN ;
|
||||
Bulgaria = Bulgaria_PN ;
|
||||
Bahrain = Bahrain_PN ;
|
||||
Burundi = Burundi_PN ;
|
||||
Benin = Benin_PN ;
|
||||
Bermuda = Bermuda_PN ;
|
||||
Brunei = Brunei_PN ;
|
||||
Bolivia = Bolivia_PN ;
|
||||
Brazil = Brazil_PN ;
|
||||
Bahamas = Bahamas_PN ;
|
||||
Bhutan = Bhutan_PN ;
|
||||
BouvetIsland = BouvetIsland_PN ;
|
||||
Botswana = Botswana_PN ;
|
||||
Belarus = Belarus_PN ;
|
||||
Belize = Belize_PN ;
|
||||
Canada = Canada_PN ;
|
||||
CocosIslands = CocosIslands_PN ;
|
||||
CongoDemocraticRepublicofthe = CongoDemocraticRepublicofthe_PN ;
|
||||
CentralAfricanRepublic = CentralAfricanRepublic_PN ;
|
||||
Congo = Congo_PN ;
|
||||
Switzerland = Switzerland_PN ;
|
||||
CotedIvoire = CotedIvoire_PN ;
|
||||
CookIslands = CookIslands_PN ;
|
||||
Chile = Chile_PN ;
|
||||
Cameroon = Cameroon_PN ;
|
||||
China = China_PN ;
|
||||
Colombia = Colombia_PN ;
|
||||
CostaRica = CostaRica_PN ;
|
||||
SerbiaAndMontenegro = SerbiaAndMontenegro_PN ;
|
||||
Cuba = Cuba_PN ;
|
||||
CapeVerde = CapeVerde_PN ;
|
||||
ChristmasIsland = ChristmasIsland_PN ;
|
||||
Cyprus = Cyprus_PN ;
|
||||
CzechRepublic = CzechRepublic_PN ;
|
||||
Germany = Germany_PN ;
|
||||
Djibouti = Djibouti_PN ;
|
||||
Denmark = Denmark_PN ;
|
||||
Dominica = Dominica_PN ;
|
||||
DominicanRepublic = DominicanRepublic_PN ;
|
||||
Algeria = Algeria_PN ;
|
||||
Ecuador = Ecuador_PN ;
|
||||
Estonia = Estonia_PN ;
|
||||
Egypt = Egypt_PN ;
|
||||
WesternSahara = WesternSahara_PN ;
|
||||
Eritrea = Eritrea_PN ;
|
||||
Spain = Spain_PN ;
|
||||
Ethiopia = Ethiopia_PN ;
|
||||
Finland = Finland_PN ;
|
||||
Fiji = Fiji_PN ;
|
||||
FalklandIslands = FalklandIslands_PN ;
|
||||
Micronesia = Micronesia_PN ;
|
||||
FaroeIslands = FaroeIslands_PN ;
|
||||
France = France_PN ;
|
||||
Gabon = Gabon_PN ;
|
||||
UnitedKingdom = UnitedKingdom_PN ;
|
||||
Grenada = Grenada_PN ;
|
||||
Georgia = Georgia_PN ;
|
||||
FrenchGuiana = FrenchGuiana_PN ;
|
||||
Guernsey = Guernsey_PN ;
|
||||
Ghana = Ghana_PN ;
|
||||
Gibraltar = Gibraltar_PN ;
|
||||
Greenland = Greenland_PN ;
|
||||
Gambia = Gambia_PN ;
|
||||
Guinea = Guinea_PN ;
|
||||
Guadeloupe = Guadeloupe_PN ;
|
||||
EquatorialGuinea = EquatorialGuinea_PN ;
|
||||
Greece = Greece_PN ;
|
||||
SouthGeorgiaAndTheSouthSandwichIslands = SouthGeorgiaAndTheSouthSandwichIslands_PN ;
|
||||
Guatemala = Guatemala_PN ;
|
||||
Guam = Guam_PN ;
|
||||
GuineaBissau = GuineaBissau_PN ;
|
||||
Guyana = Guyana_PN ;
|
||||
HongKong = HongKong_PN ;
|
||||
HeardIslandAndMcDonaldIslands = HeardIslandAndMcDonaldIslands_PN ;
|
||||
Honduras = Honduras_PN ;
|
||||
Croatia = Croatia_PN ;
|
||||
Haiti = Haiti_PN ;
|
||||
Hungary = Hungary_PN ;
|
||||
Indonesia = Indonesia_PN ;
|
||||
Ireland = Ireland_PN ;
|
||||
Israel = Israel_PN ;
|
||||
IsleofMan = IsleofMan_PN ;
|
||||
India = India_PN ;
|
||||
BritishIndianOceanTerritory = BritishIndianOceanTerritory_PN ;
|
||||
Iraq = Iraq_PN ;
|
||||
Iran = Iran_PN ;
|
||||
Iceland = Iceland_PN ;
|
||||
Italy = Italy_PN ;
|
||||
Jersey = Jersey_PN ;
|
||||
Jamaica = Jamaica_PN ;
|
||||
Jordan = Jordan_PN ;
|
||||
Japan = Japan_PN ;
|
||||
Kenya = Kenya_PN ;
|
||||
Kyrgyzstan = Kyrgyzstan_PN ;
|
||||
Cambodia = Cambodia_PN ;
|
||||
Kiribati = Kiribati_PN ;
|
||||
Comoros = Comoros_PN ;
|
||||
SaintKittsAndNevis = SaintKittsAndNevis_PN ;
|
||||
NorthKorea = NorthKorea_PN ;
|
||||
SouthKorea = SouthKorea_PN ;
|
||||
Kuwait = Kuwait_PN ;
|
||||
CaymanIslands = CaymanIslands_PN ;
|
||||
Kazakhstan = Kazakhstan_PN ;
|
||||
Laos = Laos_PN ;
|
||||
Lebanon = Lebanon_PN ;
|
||||
SaintLucia = SaintLucia_PN ;
|
||||
Liechtenstein = Liechtenstein_PN ;
|
||||
SriLanka = SriLanka_PN ;
|
||||
Liberia = Liberia_PN ;
|
||||
Lesotho = Lesotho_PN ;
|
||||
Lithuania = Lithuania_PN ;
|
||||
Luxembourg = Luxembourg_PN ;
|
||||
Latvia = Latvia_PN ;
|
||||
Libya = Libya_PN ;
|
||||
Morocco = Morocco_PN ;
|
||||
Monaco = Monaco_PN ;
|
||||
Moldova = Moldova_PN ;
|
||||
Montenegro = Montenegro_PN ;
|
||||
Madagascar = Madagascar_PN ;
|
||||
MarshallIslands = MarshallIslands_PN ;
|
||||
Macedonia = Macedonia_PN ;
|
||||
Mali = Mali_PN ;
|
||||
Myanmar = Myanmar_PN ;
|
||||
Mongolia = Mongolia_PN ;
|
||||
Macao = Macao_PN ;
|
||||
NorthernMarianaIslands = NorthernMarianaIslands_PN ;
|
||||
Martinique = Martinique_PN ;
|
||||
Mauritania = Mauritania_PN ;
|
||||
Montserrat = Montserrat_PN ;
|
||||
Malta = Malta_PN ;
|
||||
Mauritius = Mauritius_PN ;
|
||||
Maldives = Maldives_PN ;
|
||||
Malawi = Malawi_PN ;
|
||||
Mexico = Mexico_PN ;
|
||||
Malaysia = Malaysia_PN ;
|
||||
Mozambique = Mozambique_PN ;
|
||||
Namibia = Namibia_PN ;
|
||||
NewCaledonia = NewCaledonia_PN ;
|
||||
Niger = Niger_PN ;
|
||||
NorfolkIsland = NorfolkIsland_PN ;
|
||||
Nigeria = Nigeria_PN ;
|
||||
Nicaragua = Nicaragua_PN ;
|
||||
Netherlands = Netherlands_PN ;
|
||||
Norway = Norway_PN ;
|
||||
Nepal = Nepal_PN ;
|
||||
Nauru = Nauru_PN ;
|
||||
Niue = Niue_PN ;
|
||||
NewZealand = NewZealand_PN ;
|
||||
Oman = Oman_PN ;
|
||||
Panama = Panama_PN ;
|
||||
Peru = Peru_PN ;
|
||||
FrenchPolynesia = FrenchPolynesia_PN ;
|
||||
PapuaNewGuinea = PapuaNewGuinea_PN ;
|
||||
Philippines = Philippines_PN ;
|
||||
Pakistan = Pakistan_PN ;
|
||||
Poland = Poland_PN ;
|
||||
SaintPierreAndMiquelon = SaintPierreAndMiquelon_PN ;
|
||||
Pitcairn = Pitcairn_PN ;
|
||||
PuertoRico = PuertoRico_PN ;
|
||||
PalestinianTerritory = PalestinianTerritory_PN ;
|
||||
Portugal = Portugal_PN ;
|
||||
Palau = Palau_PN ;
|
||||
Paraguay = Paraguay_PN ;
|
||||
Qatar = Qatar_PN ;
|
||||
Reunion = Reunion_PN ;
|
||||
Romania = Romania_PN ;
|
||||
Serbia = Serbia_PN ;
|
||||
Russia = Russia_PN ;
|
||||
Rwanda = Rwanda_PN ;
|
||||
SaudiArabia = SaudiArabia_PN ;
|
||||
SolomonIslands = SolomonIslands_PN ;
|
||||
Seychelles = Seychelles_PN ;
|
||||
Sudan = Sudan_PN ;
|
||||
Sweden = Sweden_PN ;
|
||||
Singapore = Singapore_PN ;
|
||||
SaintHelena = SaintHelena_PN ;
|
||||
Slovenia = Slovenia_PN ;
|
||||
SvalbardAndJanMayen = SvalbardAndJanMayen_PN ;
|
||||
Slovakia = Slovakia_PN ;
|
||||
SierraLeone = SierraLeone_PN ;
|
||||
SanMarino = SanMarino_PN ;
|
||||
Senegal = Senegal_PN ;
|
||||
Somalia = Somalia_PN ;
|
||||
Suriname = Suriname_PN ;
|
||||
SaoTomeAndPrincipe = SaoTomeAndPrincipe_PN ;
|
||||
ElSalvador = ElSalvador_PN ;
|
||||
Syria = Syria_PN ;
|
||||
Swaziland = Swaziland_PN ;
|
||||
TurksAndCaicosIslands = TurksAndCaicosIslands_PN ;
|
||||
Chad = Chad_PN ;
|
||||
FrenchSouthernTerritories = FrenchSouthernTerritories_PN ;
|
||||
Togo = Togo_PN ;
|
||||
Thailand = Thailand_PN ;
|
||||
Tajikistan = Tajikistan_PN ;
|
||||
Tokelau = Tokelau_PN ;
|
||||
EastTimor = EastTimor_PN ;
|
||||
Turkmenistan = Turkmenistan_PN ;
|
||||
Tunisia = Tunisia_PN ;
|
||||
Tonga = Tonga_PN ;
|
||||
Turkey = Turkey_PN ;
|
||||
TrinidadAndTobago = TrinidadAndTobago_PN ;
|
||||
Tuvalu = Tuvalu_PN ;
|
||||
Taiwan = Taiwan_PN ;
|
||||
Tanzania = Tanzania_PN ;
|
||||
Ukraine = Ukraine_PN ;
|
||||
Uganda = Uganda_PN ;
|
||||
UnitedStatesMinorOutlyingIslands = UnitedStatesMinorOutlyingIslands_PN ;
|
||||
UnitedStates = UnitedStates_PN ;
|
||||
Uruguay = Uruguay_PN ;
|
||||
Uzbekistan = Uzbekistan_PN ;
|
||||
VaticanCity = VaticanCity_PN ;
|
||||
SaintVincentAndtheGrenadines = SaintVincentAndtheGrenadines_PN ;
|
||||
Venezuela = Venezuela_PN ;
|
||||
VirginIslandsBritish = VirginIslandsBritish_PN ;
|
||||
VirginIslandsUS = VirginIslandsUS_PN ;
|
||||
Vietnam = Vietnam_PN ;
|
||||
Vanuatu = Vanuatu_PN ;
|
||||
WallisAndFutuna = WallisAndFutuna_PN ;
|
||||
Samoa = Samoa_PN ;
|
||||
Yemen = Yemen_PN ;
|
||||
Mayotte = Mayotte_PN ;
|
||||
SouthAfrica = SouthAfrica_PN ;
|
||||
Zambia = Zambia_PN ;
|
||||
Zimbabwe = Zimbabwe_PN ;
|
||||
|
||||
-- Cuisines
|
||||
Afghani = Afghani_PN ;
|
||||
African = African_PN ;
|
||||
American = American_PN ;
|
||||
Arabic = Arabic_PN ;
|
||||
Argentine = Argentine_PN ;
|
||||
Armenian = Armenian_PN ;
|
||||
Asian = Asian_PN ;
|
||||
Australian = Australian_PN ;
|
||||
Austrian = Austrian_PN ;
|
||||
Balinese = Balinese_PN ;
|
||||
Basque = Basque_PN ;
|
||||
Belgian = Belgian_PN ;
|
||||
Brazilian = Brazilian_PN ;
|
||||
Bulgarian = Bulgarian_PN ;
|
||||
Burmese = Burmese_PN ;
|
||||
Cajun = Cajun_PN ;
|
||||
Cambodian = Cambodian_PN ;
|
||||
Caribbean = Caribbean_PN ;
|
||||
Catalan = Catalan_PN ;
|
||||
Chinese = Chinese_PN ;
|
||||
Colombian = Colombian_PN ;
|
||||
Contemporary = Contemporary_PN ;
|
||||
Continental = Continental_PN ;
|
||||
Creole = Creole_PN ;
|
||||
Cuban = Cuban_PN ;
|
||||
Czech = Czech_PN ;
|
||||
Dutch = Dutch_PN ;
|
||||
EasternEuropean = EasternEuropean_PN ;
|
||||
Eclectic = Eclectic_PN ;
|
||||
Egyptian = Egyptian_PN ;
|
||||
English = English_PN ;
|
||||
Ethiopian = Ethiopian_PN ;
|
||||
Ethnic = Ethnic_PN ;
|
||||
French = French_PN ;
|
||||
Fusion = Fusion_PN ;
|
||||
German = German_PN ;
|
||||
Greek = Greek_PN ;
|
||||
Haitian = Haitian_PN ;
|
||||
Hungarian = Hungarian_PN ;
|
||||
Indian = Indian_PN ;
|
||||
Indonesian = Indonesian_PN ;
|
||||
International = International_PN ;
|
||||
Irish = Irish_PN ;
|
||||
Israeli = Israeli_PN ;
|
||||
Italian = Italian_PN ;
|
||||
Jamaican = Jamaican_PN ;
|
||||
Japanese = Japanese_PN ;
|
||||
Jewish = Jewish_PN ;
|
||||
Korean = Korean_PN ;
|
||||
LatinAmerican = LatinAmerican_PN ;
|
||||
Lebanese = Lebanese_PN ;
|
||||
Malaysian = Malaysian_PN ;
|
||||
Mexican = Mexican_PN ;
|
||||
MiddleEastern = MiddleEastern_PN ;
|
||||
Mongolian = Mongolian_PN ;
|
||||
Moroccan = Moroccan_PN ;
|
||||
NewZealandCuisine = NewZealandCuisine_PN ;
|
||||
Nicaraguan = Nicaraguan_PN ;
|
||||
Nouveau = Nouveau_PN ;
|
||||
Pakistani = Pakistani_PN ;
|
||||
Persian = Persian_PN ;
|
||||
Peruvian = Peruvian_PN ;
|
||||
Philippine = Philippine_PN ;
|
||||
Polish = Polish_PN ;
|
||||
Polynesian = Polynesian_PN ;
|
||||
Portuguese = Portuguese_PN ;
|
||||
PuertoRican = PuertoRican_PN ;
|
||||
Russian = Russian_PN ;
|
||||
Salvadorean = Salvadorean_PN ;
|
||||
Scandinavian = Scandinavian_PN ;
|
||||
Scottish = Scottish_PN ;
|
||||
Seafood = Seafood_PN ;
|
||||
Singaporean = Singaporean_PN ;
|
||||
Spanish = Spanish_PN ;
|
||||
SriLankan = SriLankan_PN ;
|
||||
Swedish = Swedish_PN ;
|
||||
Swiss = Swiss_PN ;
|
||||
Tex_Mex = Tex_Mex_PN ;
|
||||
Thai = Thai_PN ;
|
||||
Tibetan = Tibetan_PN ;
|
||||
Turkish = Turkish_PN ;
|
||||
Ukrainian = Ukrainian_PN ;
|
||||
Vegan = Vegan_PN ;
|
||||
Vegetarian = Vegetarian_PN ;
|
||||
Venezulean = Venezulean_PN ;
|
||||
Vietnamese = Vietnamese_PN ;
|
||||
|
||||
-- Determiners
|
||||
DefSgDet = defSg_Det ;
|
||||
-- DefPlDet = defPl_Det ;
|
||||
IndefSgDet = indefSg_Det ;
|
||||
-- IndefPlDet = indefPl_Det ;
|
||||
This = this_Det ;
|
||||
-- That = that_Det ;
|
||||
-- These = these_Det ;
|
||||
-- Those = those_Det ;
|
||||
|
||||
}
|
||||
7
examples/wiki/WikiSpa.gf
Normal file
7
examples/wiki/WikiSpa.gf
Normal file
@@ -0,0 +1,7 @@
|
||||
|
||||
--# -path=.:present:prelude
|
||||
|
||||
concrete WikiSpa of Wiki = WikiI with
|
||||
|
||||
(Syntax = SyntaxSpa),
|
||||
(LexWiki = LexWikiSpa) ;
|
||||
7
examples/wiki/WikiSwe.gf
Normal file
7
examples/wiki/WikiSwe.gf
Normal file
@@ -0,0 +1,7 @@
|
||||
|
||||
--# -path=.:present:prelude
|
||||
|
||||
concrete WikiSwe of Wiki = WikiI with
|
||||
|
||||
(Syntax = SyntaxSwe),
|
||||
(LexWiki = LexWikiSwe) ;
|
||||
Reference in New Issue
Block a user