/
quartz-code.scm
143 lines (136 loc) · 9.23 KB
/
quartz-code.scm
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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
;;
;; Use like:
;;
;; (schedule-job-easier (lambda () (d/n "Hello world!")) "0 * * * * ?")
;;
;; From http://www.quartz-scheduler.org/api/previous_versions/1.8.5/org/quartz/CronExpression.html
;; public class CronExpression
;; extends Object
;; implements Serializable, Cloneable
;;
;; Provides a parser and evaluator for unix-like cron expressions. Cron expressions provide the ability to specify complex time combinations such as "At 8:00am every Monday
;; through Friday" or "At 1:30am every last Friday of the month".
;;
;; Cron expressions are comprised of 6 required fields and one optional field separated by white space. The fields respectively are described as follows:
;;
;; Field Name Allowed Values Allowed Special Characters
;;
;; Seconds 0-59 , - * /
;;
;; Minutes 0-59 , - * /
;;
;; Hours 0-23 , - * /
;;
;; Day-of-month 1-31 , - * ? / L W
;;
;; Month 1-12 or JAN-DEC , - * /
;;
;; Day-of-Week 1-7 or SUN-SAT , - * ? / L #
;;
;; Year (Optional) empty, 1970-2199 , - * /
;;
;; The '*' character is used to specify all values. For example, "*" in the minute field means "every minute".
;;
;; The '?' character is allowed for the day-of-month and day-of-week fields. It is used to specify 'no specific value'. This is useful when you need to specify something in
;; one of the two fields, but not the other.
;;
;; The '-' character is used to specify ranges For example "10-12" in the hour field means "the hours 10, 11 and 12".
;;
;; The ',' character is used to specify additional values. For example "MON,WED,FRI" in the day-of-week field means "the days Monday, Wednesday, and Friday".
;;
;; The '/' character is used to specify increments. For example "0/15" in the seconds field means "the seconds 0, 15, 30, and 45". And "5/15" in the seconds field means "the
;; seconds 5, 20, 35, and 50". Specifying '*' before the '/' is equivalent to specifying 0 is the value to start with. Essentially, for each field in the expression, there
;; is a set of numbers that can be turned on or off. For seconds and minutes, the numbers range from 0 to 59. For hours 0 to 23, for days of the month 0 to 31, and for
;; months 1 to 12. The "/" character simply helps you turn on every "nth" value in the given set. Thus "7/6" in the month field only turns on month "7", it does NOT mean
;; every 6th month, please note that subtlety.
;;
;; The 'L' character is allowed for the day-of-month and day-of-week fields. This character is short-hand for "last", but it has different meaning in each of the two fields.
;; For example, the value "L" in the day-of-month field means "the last day of the month" - day 31 for January, day 28 for February on non-leap years. If used in the
;; day-of-week field by itself, it simply means "7" or "SAT". But if used in the day-of-week field after another value, it means "the last xxx day of the month" - for
;; example "6L" means "the last friday of the month". When using the 'L' option, it is important not to specify lists, or ranges of values, as you'll get confusing results.
;;
;; The 'W' character is allowed for the day-of-month field. This character is used to specify the weekday (Monday-Friday) nearest the given day. As an example, if you were
;; to specify "15W" as the value for the day-of-month field, the meaning is: "the nearest weekday to the 15th of the month". So if the 15th is a Saturday, the trigger will
;; fire on Friday the 14th. If the 15th is a Sunday, the trigger will fire on Monday the 16th. If the 15th is a Tuesday, then it will fire on Tuesday the 15th. However if
;; you specify "1W" as the value for day-of-month, and the 1st is a Saturday, the trigger will fire on Monday the 3rd, as it will not 'jump' over the boundary of a month's
;; days. The 'W' character can only be specified when the day-of-month is a single day, not a range or list of days.
;;
;; The 'L' and 'W' characters can also be combined for the day-of-month expression to yield 'LW', which translates to "last weekday of the month".
;;
;; The '#' character is allowed for the day-of-week field. This character is used to specify "the nth" XXX day of the month. For example, the value of "6#3" in the
;; day-of-week field means the third Friday of the month (day 6 = Friday and "#3" = the 3rd one in the month). Other examples: "2#1" = the first Monday of the month and "4#
;; 5" = the fifth Wednesday of the month. Note that if you specify "#5" and there is not 5 of the given day-of-week in the month, then no firing will occur that month. If
;; the '#' character is used, there can only be one expression in the day-of-week field ("3#1,6#3" is not valid, since there are two expressions).
;;
;; The legal characters and the names of months and days of the week are not case sensitive.
;;
;; NOTES:
;;
;; * Support for specifying both a day-of-week and a day-of-month value is not complete (you'll need to use the '?' character in one of these fields).
;; * Overflowing ranges is supported - that is, having a larger number on the left hand side than the right. You might do 22-2 to catch 10 o'clock at night until 2 o'clock
;; in the morning, or you might have NOV-FEB. It is very important to note that overuse of overflowing ranges creates ranges that don't make sense and no effort has been
;; made to determine which interpretation CronExpression chooses. An example would be "0 0 14-6 ? * FRI-MON".
(define (schedule-job-easier thunk cron-expression)
(let* ((job-group (uuid-string))
(job-name (uuid-string))
(trigger-group (uuid-string))
(trigger-name (uuid-string))
(scheduler (create-scheduler))
(job (create-quartz-job-from-closure job-group job-name thunk))
(trigger (create-quartz-cron-trigger trigger-group trigger-name cron-expression)))
(schedule-job scheduler job trigger)))
(define current-scheduler-id (make-atomic-long 1))
(define create-scheduler
(lambda* ((thread-count: thread-count 10))
(j
(quote-convert
(let ((vname (random-var)))
(string-append*
"
" vname " = new Properties();
" vname ".setProperty('org.quartz.scheduler.instanceName', '" vname "');
" vname ".setProperty('org.quartz.scheduler.instanceId', '" (get-and-inc-atomic-long! current-scheduler-id) "');
" vname ".setProperty('org.quartz.scheduler.rmi.export', 'false');
" vname ".setProperty('org.quartz.scheduler.rmi.proxy', 'false');
" vname ".setProperty('org.quartz.threadPool.class', 'org.quartz.simpl.SimpleThreadPool');
" vname ".setProperty('org.quartz.threadPool.threadCount', '" thread-count "');
" vname ".setProperty('org.quartz.jobStore.class', 'org.quartz.simpl.RAMJobStore');
org.quartz.Scheduler scheduler = new org.quartz.impl.StdSchedulerFactory(" vname ").getDefaultScheduler();
scheduler.start();
" vname " = null;
scheduler;"))))))
(define (create-quartz-job-from-closure job-group job-name cl)
(j
(quote-convert
"import org.quartz.JobDetail;
String closureKey='CLOSURE_KEY';
import org.apache.log4j.Logger;
import sisc.interpreter.Interpreter;
import sisc.interpreter.Context;
public class ClosureJob implements org.quartz.Job {
static final Logger log = Logger.getLogger('closureJobLogger');
public void execute(org.quartz.JobExecutionContext context) {
log.debug('Starting scheme job.');
Object closure=context.getJobDetail().getJobDataMap().get('CLOSURE_KEY');
Interpreter current = Context.currentInterpreter();
if(current==null) {
current =
sisc.interpreter.Context.enter(sisc.interpreter.Context.getDefaultAppContext());
}
current.eval(closure,new sisc.data.Value[0]);
log.info('Finished scheme job.');
}
};
JobDetail job = new JobDetail(jobname, jobgroup, ClosureJob.class);
job.getJobDataMap().put(closureKey,cl);job;")
`((jobname ,(->jstring job-name))
(jobgroup ,(->jstring job-group))
(cl ,(java-wrap cl)))))
(define (create-quartz-cron-trigger trigger-group trigger-name cron-expression)
(j "trigger = new org.quartz.CronTrigger(triggername, triggergroup, cronexpression); trigger;"
`((triggername ,(->jstring trigger-name)) (triggergroup ,(->jstring trigger-group))
(cronexpression ,(->jstring cron-expression))
(trigger))))
(define (schedule-job scheduler job trigger)
(j "r = scheduler.scheduleJob(job, trigger); scheduler.start();r;"
`((r)(scheduler ,scheduler) (job ,job) (trigger ,trigger))))