forked from GitHub/gf-core
godis tram grammars, augmented with Fin
This commit is contained in:
40
examples/godis-tram/Tram/TramLexiconSwe.gf
Normal file
40
examples/godis-tram/Tram/TramLexiconSwe.gf
Normal file
@@ -0,0 +1,40 @@
|
||||
--# -path=.:../Common:prelude:resource-1.0/abstract:resource-1.0/common:resource-1.0/scandinavian:resource-1.0/swedish
|
||||
|
||||
concrete TramLexiconSwe of TramLexicon = CatSwe **
|
||||
open Prelude, ParadigmsSwe, ParamX, (Lex=LexiconSwe), (Irr=IrregSwe), GodisLangSwe in {
|
||||
|
||||
lin
|
||||
|
||||
-- Adjectives
|
||||
short_A = Lex.short_A;
|
||||
|
||||
-- Conjunctions
|
||||
and_then_Conj = {s = ["och sedan"]; n = Pl; lock_Conj = <>};
|
||||
|
||||
-- Nouns
|
||||
route_N = regGenN "rutt" utrum;
|
||||
stop_N = regGenN "hållplats" utrum;
|
||||
way_N = regGenN "väg" utrum;
|
||||
|
||||
-- Prepositions
|
||||
from_Prep = ss "från";
|
||||
to_Prep = ss "till";
|
||||
|
||||
-- Verb-1
|
||||
help_V = regV "hjälpa";
|
||||
restart_V = partV (regV "starta") "om";
|
||||
|
||||
-- Verb-2
|
||||
go_from_V2 = dirV2 (partV åka_V "från");
|
||||
go_to_V2 = dirV2 (partV åka_V "till");
|
||||
find_V2 = dirV2 (regV "hittar");
|
||||
findout_V2 = dirV2 (Irr.finna_V);
|
||||
take_V2 = dirV2 (ta_V);
|
||||
|
||||
|
||||
oper
|
||||
åka_V : V = irregV "åka" "åkte" "åkt";
|
||||
ta_V : V = mkV "ta" "tar" "ta" "tog" "tagit" "tagen";
|
||||
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user