added wiki grammars

examples/wiki/LexEditorFin.gf

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