blob: b5ac0aa8644b7860b0c560838dc38dbfa18779f9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
--# -path=.:..:../Shared:../Weekday:../Time:../Channel
-- File name User/specific.Swe.gf
concrete specUserSwe of specUser = specificSwe, genUserSwe ** {
flags startcat=DMove ;
lin
--- Answers in request list
vcr_add_rec_job_args4 chts wdts stts etts = {s =
["spela in"] ++ stts.s ++ "," ++ etts.s ++ "," ++ wdts.s ++ "," ++ chts.s };
vcr_add_rec_job_args3 chts wdts stts = {s =
["spela in"] ++ chts.s ++ "," ++ wdts.s ++ "," ++ stts.s };
vcr_add_rec_job_args2 chts wdts = {s =
["spela in"] ++ chts.s ++ "," ++ wdts.s };
vcr_add_rec_job_args1 chts = {s = ["spela in"] ++ chts.s } ;
---- vcr_add_rec_job_no_args = {s = ["spela in"]} ;
lin
--- 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 = stts.s ++ "," ++ etts.s ++ "," ++ wdts.s ++ "," ++ chts.s };
answerListReq3 chts wdts stts = {s = chts.s ++ "," ++ wdts.s ++ "," ++ stts.s };
answerListReq2 chts wdts = {s = chts.s ++ "," ++ wdts.s };
answerListReq aL = {s = aL.s} ;
answerReq v = {s= v.s} ;
requestChannels = {s= (variants{["lista alla kanaler"];["vilka kanaler finns det"]})};
}
|
