blob: 664f3ef9534063cb8372197662efa8258b72568c (
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
-- File name System/specific.Swe.gf
include
specific.Abs.gf ;
lin
-- Confirm recording job
confirmRecJob act = {s = ["bekräftar"] ++ act.s } ;
-- programmet är inspelat -- spela in
-- inspelningen är tillagd -- lägga till
-- programmet är borttaget -- ta bort
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 } ;
-- prep Time
endTimeToStoreQ et = {s = "till" ++ et.s } ;
-- prep Time
--- Channel and Weekday in question
channelToStoreQ ch = {s = "på" ++ ch.s } ;
-- prep Channel
weekdayToStoreQ wd = {s = "på" ++ wd.s } ;
--prep Weekday
--- 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 } ;
|
