335
336
337
338
339
340
341
342
343
344
345
346
347
348
|
;; BB> bb opinion - want to push responsibility into api (encapsulation), like waiting if db is busy and finding the db handle in the first place. why should the caller need to be concerned?? If my opinion carries, we'll remove the bb- and make other needful adjustments.
(define (bb-mdb-inserter mdb-expecting-proc mdbless-args)
(let ((mdb (db:delay-if-busy (tasks:open-db))))
(apply mdb-expecting-proc (cons mdb mdbless-args))))
(define (tasks:bb-server-lock-slot . args)
(bb-mdb-inserter tasks:server-lock-slot args))
(define (tasks:bb-server-set-interface-port . args)
(bb-mdb-inserter tasks:server-set-interface-port args))
(define (tasks:bb-server-am-i-the-server? . args)
|
>
>
>
|
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
|
;; BB> bb opinion - want to push responsibility into api (encapsulation), like waiting if db is busy and finding the db handle in the first place. why should the caller need to be concerned?? If my opinion carries, we'll remove the bb- and make other needful adjustments.
(define (bb-mdb-inserter mdb-expecting-proc mdbless-args)
(let ((mdb (db:delay-if-busy (tasks:open-db))))
(apply mdb-expecting-proc (cons mdb mdbless-args))))
(define (tasks:bb-server-force-clean-run-record . args)
(bb-mdb-inserter tasks:server-force-clean-run-record args))
(define (tasks:bb-server-lock-slot . args)
(bb-mdb-inserter tasks:server-lock-slot args))
(define (tasks:bb-server-set-interface-port . args)
(bb-mdb-inserter tasks:server-set-interface-port args))
(define (tasks:bb-server-am-i-the-server? . args)
|