ray/ordo
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Implement trigger handlers

Browse source
This commit is contained in:
Ray Miller 2025-01-05 18:24:33 +00:00
parent c290a5caea
commit 297d779ea4
Signed by: ray
GPG key ID: 043F786C4CD681B8
4 changed files with 70 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

20
modules/ordo/task.scm
View file

@ -4,17 +4,25 @@
#:use-module (srfi srfi-9) ; records
#:use-module (srfi srfi-26) ; cut
#:use-module (ordo context)
#:export (task run-task))
#:export (task
task?
get-task-description
set-task-description!
get-task-register
set-task-register!
get-task-triggers
set-task-triggers!
run-task))
(define-record-type <task>
(make-task description action register triggers)
task?
(description get-description set-description!)
(action get-action set-action!)
(register get-register set-regiseter!)
(triggers get-triggers set-triggers!))
(description get-task-description set-task-description!)
(action get-task-action set-task-action!)
(register get-task-register set-task-regiseter!)
(triggers get-task-triggers set-task-triggers!))
(define* (task description action #:key register triggers)
(define* (task description action #:key (register #f) (triggers '()))
(make-task description action register triggers))
(define (run-task conn ctx task)