forked from GitHub/gf-core
35 lines
814 B
Plaintext
35 lines
814 B
Plaintext
--# -path=.:../Common:prelude:resource-1.0/abstract:resource-1.0/common:resource-1.0/english
|
|
|
|
concrete TramLexiconEng of TramLexicon = CatEng **
|
|
open Prelude, ParadigmsEng, ParamX, (Lex=LexiconEng), (Irr=IrregEng), GodisLangEng in {
|
|
|
|
lin
|
|
|
|
-- Adjectives
|
|
short_A = Lex.short_A;
|
|
|
|
-- Conjunctions
|
|
and_then_Conj = {s = ["and then"]; n = Pl; lock_Conj = <>};
|
|
|
|
-- Nouns
|
|
route_N = regN "route";
|
|
stop_N = regN "stop";
|
|
way_N = regN "way";
|
|
|
|
-- Prepositions
|
|
from_Prep = ss "from";
|
|
to_Prep = ss "to";
|
|
|
|
-- Verb-1
|
|
help_V = regV "help";
|
|
restart_V = regV "restart";
|
|
|
|
-- Verb-2
|
|
go_from_V2 = dirV2 (partV (regV "go") "from"); --- ??
|
|
go_to_V2 = dirV2 (partV (regV "go") "to"); --- ??
|
|
find_V2 = Lex.find_V2;
|
|
findout_V2 = dirV2 (regV "findout"); --- ??
|
|
take_V2 = dirV2 Irr.take_V;
|
|
|
|
}
|