summaryrefslogtreecommitdiff
path: root/grammars/timetable/TimetableHTML.gf
diff options
context:
space:
mode:
authorbjorn <bjorn@bringert.net>2008-08-14 07:58:04 +0000
committerbjorn <bjorn@bringert.net>2008-08-14 07:58:04 +0000
commit77270a010a0b453e9a84c3e62db7cfd22e49d55d (patch)
treed17682a545d6ac1e68ff49b8c20964182794baf7 /grammars/timetable/TimetableHTML.gf
parent0bbb906141711767678f82b15a7b43e65e0b5bd6 (diff)
Remove the grammars directory. It was full of old grammars that don't compile these days. See the old source distributions if you want them.
Diffstat (limited to 'grammars/timetable/TimetableHTML.gf')
-rw-r--r--grammars/timetable/TimetableHTML.gf24
1 files changed, 0 insertions, 24 deletions
diff --git a/grammars/timetable/TimetableHTML.gf b/grammars/timetable/TimetableHTML.gf
deleted file mode 100644
index 0fec2a1ab..000000000
--- a/grammars/timetable/TimetableHTML.gf
+++ /dev/null
@@ -1,24 +0,0 @@
---# -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) ;
-
-}