mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-12 14:29:31 -06:00
24 lines
563 B
Plaintext
24 lines
563 B
Plaintext
--# -path=.:../prelude
|
|
|
|
concrete TimetableEng of Timetable = open Prelude in {
|
|
|
|
lin
|
|
MkTable cs ts =
|
|
ss (["The following trains run on the line from"] ++ cs.s ++ "." ++ ts.s) ;
|
|
NilTrain _ = ss [] ;
|
|
ConsTrain cs n t ts = ss (n.s ++ ":" ++ t.s ++ "." ++ ts.s) ;
|
|
OneCity c = c ;
|
|
ConsCity c cs = ss (c.s ++ "to" ++ cs.s) ;
|
|
|
|
StopTime t = t ;
|
|
NoStop = ss ["no stop"] ;
|
|
|
|
LocTrain c s = cc2 c s ;
|
|
CityTrain c s cs t = ss (c.s ++ s.s ++ "," ++ t.s) ;
|
|
|
|
T i = prefixSS "at" i ;
|
|
N n = prefixSS "Train" n ;
|
|
C s = s ;
|
|
|
|
}
|