mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-23 11:42:49 -06:00
21 lines
503 B
Plaintext
21 lines
503 B
Plaintext
--# -path=.:../Common:prelude:alltenses:mathematical
|
|
|
|
concrete TramUserFin of TramUser = TramUserFin0-[stop_dest_stop, stop_dept_stop] **
|
|
open GrammarFin, GodisLangFin, TramLexiconFin, ParadigmsFin in {
|
|
|
|
lin
|
|
stop_dest_stop x y =
|
|
UttAdv (mkAdv (
|
|
(PrepNP (casePrep from_Case) x).s ++
|
|
(PrepNP (casePrep to_Case) y).s
|
|
)
|
|
) ;
|
|
stop_dept_stop x y =
|
|
UttAdv (mkAdv (
|
|
(PrepNP (casePrep to_Case) x).s ++
|
|
(PrepNP (casePrep from_Case) y).s
|
|
)
|
|
) ;
|
|
}
|
|
|