From 77270a010a0b453e9a84c3e62db7cfd22e49d55d Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Thu, 14 Aug 2008 07:58:04 +0000
Subject: 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.

---
 grammars/video/User/specUserProlog.gf | 68 -----------------------------------
 1 file changed, 68 deletions(-)
 delete mode 100644 grammars/video/User/specUserProlog.gf

(limited to 'grammars/video/User/specUserProlog.gf')

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"]} ;
-}
-- 
cgit v1.2.3