284
285
286
287
288
289
290
291
292
293
294
295
296
297
|
;; put this following into a do-work procedure
(match rdat
((rem-host-port cmd params)
(let* ((start-time (current-milliseconds))
(result (proc rem-host-port cmd params))
(end-time (current-milliseconds))
(run-time (- end-time start-time)))
result))
(else
(print "ERROR: rdat "rdat", did not match rem-host-port qrykey cmd params")
#f))))
;;======================================================================
;; misc utils
|
>
>
|
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
|
;; put this following into a do-work procedure
(match rdat
((rem-host-port cmd params)
(let* ((start-time (current-milliseconds))
(result (proc rem-host-port cmd params))
(end-time (current-milliseconds))
(run-time (- end-time start-time)))
(if (> run-time 1000)
(print "ULEX INFO: Note that "cmd" with params "params" took "run-time"ms to complete."))
result))
(else
(print "ERROR: rdat "rdat", did not match rem-host-port qrykey cmd params")
#f))))
;;======================================================================
;; misc utils
|