forked from GitHub/gf-core
41 lines
962 B
Plaintext
41 lines
962 B
Plaintext
--# -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";
|
|
|
|
|
|
}
|