3 (defvar *candle-dir* nil
8 A pathname or pathstring
16 The main directory for all candle work to be done in. When the server is running
17 in local mode, this is also the place that builds are built in")
19 (define-condition candle-error (error)
20 ((reason :initarg :reason :reader candle-error-reason))
22 "An error on the server that needs to be handled in the client.
24 This error is usually because some input was incorrect. The response will
25 have a reason that is a keyword that must be handled. The current used keywords
28 - :project-does-not-exist - if the project isn't in the database
29 - :invalid-project-name - the specified name doesn't match the requirements
30 - :invlides-project-uri - the uri isn't reachable by git
31 - :project-name-taken - name is a duplicate
32 - :project-failed-to-get-branches - when refreshing fails
33 - :job-does-not-exist - the specified job can't be found"))
35 (setf (documentation 'candle-error-reason 'function)
36 "CANDLE-ERROR-REASON CANDLE-ERROR => REASON
40 CANDLE-ERROR: the error for the reason
41 REASON: a keyword representing the reason
45 Returns the reason for this candle error. See the documentation of
46 the candle-error condition for possible values")
48 (defun raise-candle-error (reason) (error (make-instance 'candle-error :reason reason)))
50 (lame-db:defdbstruct project name src)
53 ; - :queued - to be run
54 ; - :failed - job failed
55 ; - :succeeded - job succeeded
56 ; - :no-candle-file - no candle file was found
57 ; - :in-progress - job is running
58 (lame-db:defdbstruct job status sha create-date log (project :join project))
60 (setf (documentation 'job-project 'function)
61 "JOB-PROJECT JOB => PROJECT
66 PROJECT: the project for this job
70 Returns the project for the job in question.")
72 ; in-git here refers to whether the branch exists in git. As branches get deleted,
73 ; this will get set to nil but we keep them around for historical reference
74 (lame-db:defdbstruct branch name in-git (project :join project) (job :join job))
76 (defun project-dir (project)
77 "PROJECT-DIR PROJECT => DIR
82 DIR: the working directory for the project
86 Returns the checked out directory for this project, specifically for use
87 in candle. Resides in the *CANDLE-DIR*."
88 (format nil "~Arepos/~A/" *candle-dir* (project-name project)))