mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-22 19:22:50 -06:00
23 lines
530 B
Plaintext
23 lines
530 B
Plaintext
--# -path=.:../prelude
|
|
|
|
concrete TimetableEng of Timetable = open Prelude in {
|
|
|
|
lin
|
|
MkTable cs ts = ss (["trains on the line from"] ++ cs.s ++ ":" ++ ts.s) ;
|
|
NilTrain _ = ss [] ;
|
|
ConsTrain cs n t ts = ss (n.s ++ ":" ++ t.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 ;
|
|
|
|
}
|