diff options
| author | bjorn <bjorn@bringert.net> | 2008-08-14 07:58:04 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-08-14 07:58:04 +0000 |
| commit | 77270a010a0b453e9a84c3e62db7cfd22e49d55d (patch) | |
| tree | d17682a545d6ac1e68ff49b8c20964182794baf7 /grammars/timetable/TimetableEng.gf | |
| parent | 0bbb906141711767678f82b15a7b43e65e0b5bd6 (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/TimetableEng.gf')
| -rw-r--r-- | grammars/timetable/TimetableEng.gf | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/grammars/timetable/TimetableEng.gf b/grammars/timetable/TimetableEng.gf deleted file mode 100644 index 498f96975..000000000 --- a/grammars/timetable/TimetableEng.gf +++ /dev/null @@ -1,23 +0,0 @@ ---# -path=.:../prelude - -concrete TimetableEng of Timetable = open Prelude in { - - lin - MkTable cs ts = - ss (["The following trains run on the line from"] ++ cs.s ++ "." ++ ts.s) ; - NilTrain _ = ss [] ; - ConsTrain cs n t ts = ss (n.s ++ ":" ++ t.s ++ "." ++ ts.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 ; - -} |
