forked from GitHub/gf-core
63 lines
1.8 KiB
Plaintext
63 lines
1.8 KiB
Plaintext
|
|
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 ;
|
|
|
|
}
|