Overview
| Comment: | missed these changes ... |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
376151225a88cdf21593dad6538ad3c2 |
| User & Date: | matt on 2014-10-05 22:47:51 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-10-05
| ||
| 23:51 | Lazy server starting mostly working well check-in: abf327cf94 user: matt tags: v1.60 | |
| 22:47 | missed these changes ... check-in: 376151225a user: matt tags: v1.60 | |
| 22:39 | Sorta working without servers check-in: ce47c7863e user: matt tags: v1.60 | |
Changes
Modified megatest.scm from [f7bd26591e] to [a6b79b9361].
| ︙ | ︙ | |||
344 345 346 347 348 349 350 |
(if (args:get-arg "-itempatt")
(let ((newval (conc (args:get-arg "-testpatt") "/" (args:get-arg "-itempatt"))))
(debug:print 0 "WARNING: -itempatt has been deprecated, please use -testpatt testpatt/itempatt method, new testpatt is "newval)
(hash-table-set! args:arg-hash "-testpatt" newval)
(hash-table-delete! args:arg-hash "-itempatt")))
(on-exit (lambda ()
| > | < | 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 |
(if (args:get-arg "-itempatt")
(let ((newval (conc (args:get-arg "-testpatt") "/" (args:get-arg "-itempatt"))))
(debug:print 0 "WARNING: -itempatt has been deprecated, please use -testpatt testpatt/itempatt method, new testpatt is "newval)
(hash-table-set! args:arg-hash "-testpatt" newval)
(hash-table-delete! args:arg-hash "-itempatt")))
(on-exit (lambda ()
(if *dbstruct-db* (db:close-all *dbstruct-db*))
(if *megatest-db* (sqlite3:finalize! *megatest-db*))))
;;======================================================================
;; Misc general calls
;;======================================================================
(if (args:get-arg "-env2file")
(begin
|
| ︙ | ︙ |
Modified rmt.scm from [41ba4d4320] to [16ddcd4743].
| ︙ | ︙ | |||
84 85 86 87 88 89 90 | (rmt:send-receive cmd run-id params)))) (begin (debug:print-info 4 "no server and read-only query, bypassing normal channel") (rmt:open-qry-close-locally cmd run-id params))))) (define (rmt:open-qry-close-locally cmd run-id params) (let* ((dbdir (conc (configf:lookup *configdat* "setup" "linktree") "/.db")) | | | | | 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 |
(rmt:send-receive cmd run-id params))))
(begin
(debug:print-info 4 "no server and read-only query, bypassing normal channel")
(rmt:open-qry-close-locally cmd run-id params)))))
(define (rmt:open-qry-close-locally cmd run-id params)
(let* ((dbdir (conc (configf:lookup *configdat* "setup" "linktree") "/.db"))
(dbstruct-local (if *dbstruct-db*
*dbstruct-db*
(let ((db (make-dbr:dbstruct path: dbdir local: #t)))
(set! *dbstruct-db* db)
db)))
(db-file-path (db:dbfile-path 0))
;; (read-only (not (file-read-access? db-file-path)))
(res (api:execute-requests dbstruct-local (symbol->string cmd) params)))
;; (db:close-all dbstruct-local)
res))
|
| ︙ | ︙ |