mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-10 13:29:32 -06:00
25 lines
626 B
Plaintext
25 lines
626 B
Plaintext
--# -path=.:../prelude
|
|
|
|
concrete TimetableHTML of Timetable = open Prelude, HTML in {
|
|
|
|
lin
|
|
MkTable cs ts =
|
|
ss (intagAttr "table"
|
|
"border=ON" (intag "tr" (intag "td" [] ++ cs.s) ++ ts.s)) ;
|
|
NilTrain _ = ss [] ;
|
|
ConsTrain cs n t ts = ss (intag "tr" (intag "td" n.s ++ t.s) ++ ts.s) ;
|
|
OneCity c = ss (intag "td" c.s) ;
|
|
ConsCity c cs = ss (intag "td" c.s ++ cs.s) ;
|
|
|
|
StopTime t = ss (intag "td" t.s) ;
|
|
NoStop = ss (intag "td" "-") ;
|
|
|
|
LocTrain c s = s ;
|
|
CityTrain c s cs t = ss (s.s ++ t.s) ;
|
|
|
|
T i = i ;
|
|
N n = ss (intag "b" n.s) ;
|
|
C s = ss (intag "b" s.s) ;
|
|
|
|
}
|