GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-22 19:22:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

multimodality exx

Browse Source
This commit is contained in:
aarne
2004-04-29 04:03:19 +00:00
parent 6993118eab
commit b5bb4fc2b5
7 changed files with 104 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
grammars/timetable/TimetableHTML.gf
View File

@@ -1,24 +1,24 @@
--# -path=.:../prelude
concrete TimetableHTML of Timetable = open Prelude in {
concrete TimetableHTML of Timetable = open Prelude, HTML in {
lin
MkTable cs ts =
ss ("<table>" ++ "<tr><td></td>"++ cs.s ++ </tr> ++ ts.s ++ "</table>") ;
ss (intagAttr "table"
"border=ON" (intag "tr" (intag "td" [] ++ cs.s) ++ ts.s)) ;
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) ;
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 = t ;
NoStop = ss ["no stop"] ;
StopTime t = ss (intag "td" t.s) ;
NoStop = ss (intag "td" "-") ;
LocTrain c s = cc2 c s ;
CityTrain c s cs t = ss (c.s ++ s.s ++ "," ++ t.s) ;
LocTrain c s = s ;
CityTrain c s cs t = ss (s.s ++ t.s) ;
T i = prefixSS "at" i ;
N n = prefixSS "train" n ;
C s = s ;
T i = i ;
N n = ss (intag "b" n.s) ;
C s = ss (intag "b" s.s) ;
}