summaryrefslogtreecommitdiff
path: root/grammars/timetable/TimetableEng.gf
diff options
context:
space:
mode:
authoraarne <unknown>2004-04-29 04:03:19 +0000
committeraarne <unknown>2004-04-29 04:03:19 +0000
commitb5bb4fc2b5b1d7e8ce17eb87722ba11e46a2ab2b (patch)
treed96f0012126c7c7a929fe1c0b4b600155672f8fa /grammars/timetable/TimetableEng.gf
parent6993118eab6699182738ffcbddf03731ec41e1db (diff)
multimodality exx
Diffstat (limited to 'grammars/timetable/TimetableEng.gf')
-rw-r--r--grammars/timetable/TimetableEng.gf7
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 ;
}