Overview
| Comment: | added helpful comments to open-run-close methods |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | refactor-db-v1.61-shoeb |
| Files: | files | file ages | folders |
| SHA1: |
3c104e39df69cb40893f162282d37709 |
| User & Date: | srehman on 2016-09-08 16:08:23 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-09-08
| ||
| 16:08 | added helpful comments to open-run-close methods Closed-Leaf check-in: 3c104e39df user: srehman tags: refactor-db-v1.61-shoeb | |
| 14:44 | merged with 1.62 check-in: 1029496a83 user: srehman tags: refactor-db-v1.61-shoeb | |
Changes
Modified db.scm from [2c0d31eafb] to [7e725106a3].
| ︙ | ︙ | |||
857 858 859 860 861 862 863 864 865 866 867 868 869 870 |
dead-runs))))
;; (db:close-all dbstruct)
;; (sqlite3:finalize! mdb)
))
;; keeping it around for debugging purposes only
(define (open-run-close-no-exception-handling proc idb . params)
(debug:print-info 11 *default-log-port* "open-run-close-no-exception-handling START given a db=" (if idb "yes " "no ") ", params=" params)
(if (or *db-write-access*
(not (member proc *db:all-write-procs*)))
(let* ((db (cond
((pair? idb) (db:dbdat-get-db idb))
((sqlite3:database? idb) idb)
| > > | 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 |
dead-runs))))
;; (db:close-all dbstruct)
;; (sqlite3:finalize! mdb)
))
;; keeping it around for debugging purposes only
;; idb = incoming db
;;
(define (open-run-close-no-exception-handling proc idb . params)
(debug:print-info 11 *default-log-port* "open-run-close-no-exception-handling START given a db=" (if idb "yes " "no ") ", params=" params)
(if (or *db-write-access*
(not (member proc *db:all-write-procs*)))
(let* ((db (cond
((pair? idb) (db:dbdat-get-db idb))
((sqlite3:database? idb) idb)
|
| ︙ | ︙ |