grammars/timetable/TimetableHTML.gf


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

--# -path=.:../prelude

concrete TimetableHTML of Timetable = open Prelude in {

  lin
    MkTable cs ts = 
      ss ("<table>" ++ "<tr><td></td>"++ cs.s ++ </tr> ++ ts.s ++ "</table>") ;
    NilTrain _ = ss [] ;
    ConsTrain cs n t ts = 
      ss ("<tr>" ++ n.s ++ t.s ++ "</tr>") ;
    OneCity c = ss ("<td>" ++ c ++ "</td>") ;
    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 ;

}