summaryrefslogtreecommitdiff
path: root/grammars/video/User/specUserProlog.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/User/specUserProlog.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/User/specUserProlog.gf')
-rw-r--r--grammars/video/User/specUserProlog.gf68
1 files changed, 0 insertions, 68 deletions
diff --git a/grammars/video/User/specUserProlog.gf b/grammars/video/User/specUserProlog.gf
deleted file mode 100644
index f586951ce..000000000
--- a/grammars/video/User/specUserProlog.gf
+++ /dev/null
@@ -1,68 +0,0 @@
--- File name User/specific.Prolog.gf
-
-concrete specUserProlog of specUser = genUserProlog, specificProlog **
- open prologResource in {
-
-
-
---- Answers in request list
-lin
-vcr_add_rec_job_args4 chst wdts stts etts =
- {s =
- "add_rec_job" ++ "," ++
- app "answer" chst.s ++ "," ++
- app "answer" wdts.s ++ "," ++
- app "answer" stts.s ++ "," ++
- "answer" ++ "(" ++ etts.s } ;
-
-vcr_add_rec_job_args3 chst wdts stts =
- {s =
- "add_rec_job" ++ "," ++
- app "answer" chst.s ++ "," ++
- app "answer" wdts.s ++ "," ++
- "answer" ++ "(" ++ stts.s} ;
-
-vcr_add_rec_job_args2 chst wdts = {s =
- "add_rec_job" ++ "," ++
- app "answer" chst.s ++ "," ++
- "answer" ++ "(" ++ wdts.s } ;
-
-vcr_add_rec_job_args1 chst = {s =
- "add_rec_job" ++ "," ++
- "answer" ++ "(" ++ chst.s } ;
-
----- vcr_add_rec_job_no_args = {s = "add_rec_job"} ; -- moved to specific
-
-
-
---- Possible answers in request list
-startTimeToStoreReq v = {s= v.s} ;
-endTimeToStoreReq v = {s= v.s} ;
-channelToStoreReq v = {s= v.s} ;
-weekdayToStoreReq v = {s= v.s} ;
-
---- AnswerList
-answerListReq4 chts wdts stts etts =
- { s =
- app "answer" chts.s ++ "," ++
- app "answer" wdts.s ++ "," ++
- app "answer" stts.s ++ "," ++
- app "answer" etts.s } ;
-
-answerListReq3 chts wdts stts =
- { s =
- app "answer" chts.s ++ "," ++
- app "answer" wdts.s ++ "," ++
- app "answer" stts.s} ;
-
-answerListReq2 chts wdts =
- { s =
- app "answer" chts.s ++ "," ++
- app "answer" wdts.s } ;
-
-answerListReq aL = {s = aL.s} ;
-
-answerReq v = {s= v.s} ;
-
-requestChannels = {s = ["list_channels"]} ;
-}