505
506
507
508
509
510
511
512
513
514
515
516
517
518
|
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
|
+
+
+
+
|
runs:gendat-inc-results-last-update-set!
runs:gendat-inc-results-fmt-set!
runs:gendat-run-info-set!
runs:gendat-runname-set!
runs:gendat-target-set!
megatest-fossil-hash
rmt:mk-signature
rmt:get-signature
)
(import scheme
chicken.base
chicken.condition
chicken.file
|
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
|
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
|
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
;; (define db:dbfile-path common:get-db-tmp-area)
(define *global-db-store* (make-hash-table))
;;======================================================================
;; end globals
;;======================================================================
;; Generate a unique signature for this process, used at both client and
;; server side
(define (rmt:mk-signature)
(message-digest-string (md5-primitive)
(with-output-to-string
(lambda ()
(write (list (current-directory)
(current-process-id)
(argv)))))))
(define (rmt:get-signature)
(if *my-signature* *my-signature*
(let ((sig (rmt:mk-signature)))
(set! *my-signature* sig)
*my-signature*)))
;; 0 1 2 3
(defstruct launch:einf (pid #t)(exit-status #t)(exit-code #t)(rollup-status 0))
;; copied from egg call-with-environment-variables
;;
(define (call-with-environment-variables variables thunk)
|