diff options
| author | aarne <unknown> | 2004-04-29 04:03:19 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-04-29 04:03:19 +0000 |
| commit | b5bb4fc2b5b1d7e8ce17eb87722ba11e46a2ab2b (patch) | |
| tree | d96f0012126c7c7a929fe1c0b4b600155672f8fa /grammars/timetable/TimetableEng.gf | |
| parent | 6993118eab6699182738ffcbddf03731ec41e1db (diff) | |
multimodality exx
Diffstat (limited to 'grammars/timetable/TimetableEng.gf')
| -rw-r--r-- | grammars/timetable/TimetableEng.gf | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/grammars/timetable/TimetableEng.gf b/grammars/timetable/TimetableEng.gf index 2800ce010..498f96975 100644 --- a/grammars/timetable/TimetableEng.gf +++ b/grammars/timetable/TimetableEng.gf @@ -3,9 +3,10 @@ concrete TimetableEng of Timetable = open Prelude in { lin - MkTable cs ts = ss (["trains on the line from"] ++ cs.s ++ ":" ++ ts.s) ; + 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 ++ ";") ; + ConsTrain cs n t ts = ss (n.s ++ ":" ++ t.s ++ "." ++ ts.s) ; OneCity c = c ; ConsCity c cs = ss (c.s ++ "to" ++ cs.s) ; @@ -16,7 +17,7 @@ concrete TimetableEng of Timetable = open Prelude in { CityTrain c s cs t = ss (c.s ++ s.s ++ "," ++ t.s) ; T i = prefixSS "at" i ; - N n = prefixSS "train" n ; + N n = prefixSS "Train" n ; C s = s ; } |
