mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-11 13:59:31 -06:00
45 lines
1.3 KiB
Plaintext
45 lines
1.3 KiB
Plaintext
-- File name System/specific.Prolog.gf
|
|
|
|
concrete specSystemProlog of specSystem = genSystemProlog, specificProlog **
|
|
open prologResource in {
|
|
|
|
lin
|
|
-- Confirm recording job
|
|
confirmRecJob act = {s = app "confirm" act.s } ;
|
|
|
|
q_lambdaActionDel dact = {s = ["rec_job_to_delete"]} ;
|
|
|
|
--- Time in question
|
|
startTimeToStoreQ st = {s = app "start_time_to_store" st.s } ;
|
|
endTimeToStoreQ et = {s = app "stop_time_to_store" et.s } ;
|
|
|
|
--- Channel and Weekday in question
|
|
channelToStoreQ ch = {s = app "channel_to_store" ch.s } ;
|
|
weekdayToStoreQ wd = {s = app "weekday_to_store" wd.s } ;
|
|
|
|
--- WHQuestions --- Lambdas
|
|
q_lambdaWeekday wdts = {s = ["weekday_to_store"]} ;
|
|
q_lambdaChannel chts = {s = ["channel_to_store"]} ;
|
|
q_lambdaStartTime stts = {s = ["start_time_to_store"]} ;
|
|
q_lambdaEndTime etts = {s = ["stop_time_to_store"]} ;
|
|
|
|
|
|
--- Constructions for ynquestions
|
|
lin
|
|
ynQuST y = {s = y.s} ;
|
|
ynQuET y = {s = y.s} ;
|
|
ynQuCH y = {s = y.s} ;
|
|
ynQuWD y = {s = y.s} ;
|
|
|
|
--- 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 } ;
|
|
} |