mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-23 11:42:49 -06:00
57 lines
1.4 KiB
Plaintext
57 lines
1.4 KiB
Plaintext
--# -path=.:../Common:prelude:resource-1.0/abstract:resource-1.0/common
|
|
|
|
incomplete concrete TramUserI of TramUser = GodisUserI **
|
|
open Prelude, Grammar, GodisLang, TramSystemI, TramLexicon in {
|
|
|
|
----------------------------------------------------------------------
|
|
-- Predicates and questions
|
|
|
|
lin
|
|
|
|
shortest_route
|
|
= variants{ askQS shortest_route_Q;
|
|
reqVP (ComplV2 (variants{find_V2;findout_V2})
|
|
(variants {indef_N_sg (variants{way_N;route_N});
|
|
(the_A_super_N_sg short_A (variants{way_N;route_N}))})) };
|
|
|
|
shortest_route__dept x
|
|
= reqVP (ComplV2 go_from_V2 x);
|
|
|
|
shortest_route__dest x
|
|
= reqVP (ComplV2 go_to_V2 x);
|
|
|
|
shortest_route__dept_dest x y
|
|
= variants{ reqVP (AdvVP (ComplV2 go_from_V2 x) (Prep_NP to_Prep y));
|
|
reqVP (AdvVP (ComplV2 go_to_V2 y) (Prep_NP from_Prep y)) };
|
|
|
|
|
|
dest_stop x = UttAdv (Prep_NP to_Prep x);
|
|
dept_stop x = UttAdv (Prep_NP from_Prep x);
|
|
|
|
dept_dest_stop x y
|
|
= variants{ UttAdv (Prep_NP to_Prep (NP_Prep_NP from_Prep x y));
|
|
UttAdv (Prep_NP from_Prep (NP_Prep_NP to_Prep x y)) };
|
|
|
|
|
|
----------------------------------------------------------------------
|
|
-- short answers
|
|
lin
|
|
|
|
stop x = ansNP x;
|
|
|
|
stop_dest_stop x y = ansNP (NP_Prep_NP to_Prep x y);
|
|
stop_dept_stop x y = ansNP (NP_Prep_NP from_Prep x y);
|
|
|
|
|
|
|
|
----------------------------------------------------------------------
|
|
-- Actions
|
|
lin
|
|
|
|
top = reqVP top;
|
|
|
|
help = reqVP help;
|
|
|
|
}
|
|
|