Karin C's example

grammars/video/System/re2specific.Swe.gf

@@ -0,0 +1,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 } ;