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/System/specSystemSwe.gf | 49 ----------------------------------
 1 file changed, 49 deletions(-)
 delete mode 100644 grammars/video/System/specSystemSwe.gf

(limited to 'grammars/video/System/specSystemSwe.gf')

diff --git a/grammars/video/System/specSystemSwe.gf b/grammars/video/System/specSystemSwe.gf
deleted file mode 100644
index e2f59cb89..000000000
--- a/grammars/video/System/specSystemSwe.gf
+++ /dev/null
@@ -1,49 +0,0 @@
---# -path=.:..:../Shared:../Weekday:../Time:../Channel
-
--- File name System/specific.Swe.gf
-
-concrete specSystemSwe of specSystem = specificSwe, genSystemSwe ** {
-
-lin
--- Confirm recording job
-confirmRecJob act = {s = ["bekräftar"] ++ act.s } ;
-
-q_lambdaActionDel dact = {s = ["vilket programnummer vill du ta bort"]};
-
----- vcr_add_rec_job_no_args = {s = ["spela in"]} ; -- hack!!!
-
---- Time in question
-startTimeToStoreQ st = {s = "från" ++ st.s } ; 
-endTimeToStoreQ et = {s = "till" ++ et.s } ; 
-
---- Channel and Weekday in question
-channelToStoreQ ch = {s = "på" ++ ch.s } ; 
-weekdayToStoreQ wd = {s = "på" ++  wd.s } ; 
-
---- WHQuestions --- Lambdas
-q_lambdaWeekday wdts = {s = ["vilken dag vill du spela in på"]};
-q_lambdaChannel chts = {s = ["vilken kanal vill du spela in från"]};
-q_lambdaStartTime stts = {s = ["vilken tid vill du påbörja inspelningen"]};
-q_lambdaEndTime etts = {s = ["vilken tid vill du avsluta inspelningen"]};
-
-
---- Constructions for ynquestions
-lin
-ynQuST y = {s = y.s} ;
-ynQuET y = {s = y.s} ;
-ynQuCH y = {s = y.s} ;
-ynQuWD y = {s = y.s} ;
-
-lin
---- 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 } ; 
-}
-- 
cgit v1.2.3