summaryrefslogtreecommitdiff
path: root/grammars/video/System/specSystemProlog.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/video/System/specSystemProlog.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/video/System/specSystemProlog.gf')
-rw-r--r--grammars/video/System/specSystemProlog.gf45
1 files changed, 0 insertions, 45 deletions
diff --git a/grammars/video/System/specSystemProlog.gf b/grammars/video/System/specSystemProlog.gf
deleted file mode 100644
index 6ee65c4e3..000000000
--- a/grammars/video/System/specSystemProlog.gf
+++ /dev/null
@@ -1,45 +0,0 @@
--- File name System/specific.Prolog.gf
-
-concrete specSystemProlog of specSystem = genSystemProlog, specificProlog **
- open prologResource in {
-
-lin
--- Confirm recording job
-confirmRecJob act = {s = app "confirm" act.s } ;
-
-q_lambdaActionDel dact = {s = ["rec_job_to_delete"]} ;
-
---- Time in question
-startTimeToStoreQ st = {s = app "start_time_to_store" st.s } ;
-endTimeToStoreQ et = {s = app "stop_time_to_store" et.s } ;
-
---- Channel and Weekday in question
-channelToStoreQ ch = {s = app "channel_to_store" ch.s } ;
-weekdayToStoreQ wd = {s = app "weekday_to_store" wd.s } ;
-
---- WHQuestions --- Lambdas
-q_lambdaWeekday wdts = {s = ["weekday_to_store"]} ;
-q_lambdaChannel chts = {s = ["channel_to_store"]} ;
-q_lambdaStartTime stts = {s = ["start_time_to_store"]} ;
-q_lambdaEndTime etts = {s = ["stop_time_to_store"]} ;
-
-
---- Constructions for ynquestions
-lin
-ynQuST y = {s = y.s} ;
-ynQuET y = {s = y.s} ;
-ynQuCH y = {s = y.s} ;
-ynQuWD y = {s = y.s} ;
-
---- Props
-startTimeToStoreProp st = {s = st.s } ;
-endTimeToStoreProp et = {s = et.s } ;
-channelToStoreProp chst = {s = chst.s } ;
-weekdayToStoreProp wdts = {s = wdts.s } ;
-
-channelListing chs = {s = chs.s } ;
-channels1 ch = {s = ch.s } ;
-channels2 ch chs = {s = ch.s ++ "," ++ chs.s } ;
-channelListAction ch = {s = ch.s } ;
-channelListActionDMove ch = {s = ch.s } ;
-} \ No newline at end of file