Loop for schedule

[Gintaras]

rep
,RepeatLoop

Then you can edit function RepeatLoop while scheduler is running. Click Compile button to apply changes. On syntax error the thread ends, then you can edit the function and click Run. But always need to restart thread when you change SCHEDULEDTASK type, ie add new members.
Some variables must exist between function calls. Yo can pass them to the function by reference, or use thread variables, like int- mPrev. Other ways exist.
Example:
Function scheduler

Code:

Copy      Help

lock schedule
str+ g_schedule=
;Macro1950,    2013.03.08 17:47, 5m, mac, "Macro1950", "command line"
;write,        2013.03.08 17:48, 0, run, "C:\Windows\write.exe"
;notepad,    2013.03.08 17:49, 1h, run, "C:\Windows\notepad.exe"
int+ g_scheduleUpdate=1
lock- schedule

;List of scheduled tasks in CSV format: name, date, action, path, arguments, flags
;;;name - task name. Must be unique in the list.
;;;date - start date. Any supported format. If in the past, anyway will run if interval is set.
;;;interval - repeat interval. Format like 1m, 1h, 1d, 1w, 1M. Use "" or 0 to run once.
;;;action - run (run program) or mac (start macro).
;;;path - program path or macro name or path.
;;;arguments (optional) - command line arguments for the program or macro.
;;;flags (optional): 1 disabled
;After updating schedule, run this function. If already running, it will catch the new schedule.
;After updating code, end thread and run again. Or move the loop body to other function, then will not need to end/run everytime, just compile.

;_____________________________________

if(getopt(nthreads)>1) ret ;;if already running, let just update schedule

rep
,scheduler_Loop

Function scheduler_Loop

Code:

Copy      Help

;/scheduler
function

type SCHEDULEDTASK
,str'name
,DateTime'tStart
,repeatEvery
,everyWhat ;;1 min, 2 hour, 3 day, 4 week, 5 month
,weekDays ;;flags: 1 mon, 2 tue, 4 wed, 8 thu, 16 fri, 32 sat, 64 sun
,action ;;1 run, 2 mac
,str'path str'args
,flags
ARRAY(SCHEDULEDTASK)- a
SCHEDULEDTASK& t
int i nc; lpstr k

;first time or when schedule changed, parse schedule CSV and store in ARRAY(SCHEDULEDTASK) a
if g_scheduleUpdate
,lock schedule
,g_scheduleUpdate=0
,ICsv c._create; c.FromString(g_schedule)
,lock- schedule
,nc=c.ColumnCount
,a.create(c.RowCount)
,for i 0 a.len
,,&t=a[i]
,,t.name=c.Cell(i 0)
,,t.tStart.FromStr(c.Cell(i 1)) ;;info: error if incorrect format
,,k=c.Cell(i 2); t.repeatEvery=val(k 0 _i); if(t.repeatEvery) t.everyWhat=SelStr(0 k+_i "m" "h" "d" "w" "M"); if(!t.everyWhat) end F"invalid interval: {k}"
,,k=c.Cell(i 3); t.action=SelStr(0 k "run" "mac"); if(!t.action) end F"invalid action: {k}"
,,t.path=c.Cell(i 4)
,,if(nc>5) t.args=c.Cell(i 5)
,,if(nc>6) t.flags=val(c.Cell(i 6))
,,;out _s.getstruct(t 1) ;;debug
,out "Schedule updated" ;;debug

;wait 1 s
wait 1

;get current time
DateTime tNow.FromComputerTime
int mNow; int-- mPrev; tNow.GetParts(0 0 0 0 mNow); if(mNow=mPrev) ret; else mPrev=mNow ;;check with precision of every 1 minute
out tNow.ToStr(4) ;;debug
int M d h m wd _M _d _h _m _wd
tNow.GetParts(0 M d h m 0 0 0 wd)

;for each scheduled task
for i 0 a.len
,&t=a[i]
,;compare time
,if(tNow<t.tStart or t.flags&1) continue
,t.tStart.GetParts(0 _M _d _h _m 0 0 0 _wd)
,int runNow=(_m=m and _h=h and _d=d and _M=M)
,;reschedule if need
,sel t.everyWhat
,,case 0 t.flags|1
,,case 1 rep() t.tStart.AddParts(0 0 t.repeatEvery); if(t.tStart>tNow) break ;;not the best way, but easy
,,case 2 rep() t.tStart.AddParts(0 t.repeatEvery); if(t.tStart>tNow) break
,,case 3 rep() t.tStart.AddParts(t.repeatEvery); if(t.tStart>tNow) break
,,case 4 rep() t.tStart.AddParts(t.repeatEvery*7); if(t.tStart>tNow) break
,,case 5 rep() t.tStart.AddMonths(t.repeatEvery); if(t.tStart>tNow) break
,;is it late to run task now?
,if !runNow
,,sel t.action
,,,case 1 out F"<>late: {t.name} at {t.tStart.ToStr}. <link ''{t.path} /{t.args}''>Run now</link>."
,,,case 2 out F"<>late: {t.name} at {t.tStart.ToStr}. <macro ''{t.path} /{t.args}''>Run now</macro>."
,,continue
,;run task
,sel t.action
,,case 1 run t.path t.args; err out F"failed: run ''{t.path}'' ''{t.args}''"
,,case 2 mac t.path t.args; err out F"failed: mac ''{t.path}'' ''{t.args}''"

When you run scheduler, it updates CSV string and sets g_scheduleUpdate=1. The loop runs every 1 s. If g_scheduleUpdate is 1 it sets it to 0 and creates new array.