mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-14 23:39:32 -06:00
23 lines
632 B
Plaintext
23 lines
632 B
Plaintext
-- File name Shared/specific.Prolog.gf
|
|
|
|
concrete specificProlog of specific =
|
|
generalProlog, weekdayProlog, channelProlog, timeProlog **
|
|
open prologResource in {
|
|
|
|
lin
|
|
indTime t = {s = t.s} ;
|
|
indChannel c = {s = c.s} ;
|
|
indWeekday w = {s = w.s} ;
|
|
|
|
delete_rec_job = {s = "delete_rec_job"} ;
|
|
delAction dact = {s = dact.s };
|
|
|
|
|
|
startTimeToStore st = {s = app "start_time_to_store" st.s } ;
|
|
endTimeToStore et = {s = app "stop_time_to_store" et.s } ;
|
|
channelToStore ch = {s = app "channel_to_store" ch.s } ;
|
|
weekdayToStore wd = {s = app "weekday_to_store" wd.s } ;
|
|
|
|
vcr_add_rec_job_no_args = {s = ["add_rec_job"]} ; -- hack!!!
|
|
}
|