forked from GitHub/gf-core
godis tram grammars, augmented with Fin
This commit is contained in:
34
examples/godis-tram/Tram/TramLexiconEng.gf
Normal file
34
examples/godis-tram/Tram/TramLexiconEng.gf
Normal file
@@ -0,0 +1,34 @@
|
||||
--# -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;
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user