Differences From Artifact [028e47144f]:
- File attic/env.scm — part of check-in [101ee7c52b] at 2021-03-06 04:39:46 on branch v1.65-real-chicken-5 — Try a grounds-up switch to chicken-5 (user: matt, size: 8484) [annotate] [blame] [check-ins using]
- File env.scm — part of check-in [e6e04b8c79] at 2019-11-04 20:47:50 on branch v1.65-merge-fixes — Applied more fixes from modulization work (user: matt, size: 8484) [annotate] [blame] [check-ins using]
To Artifact [84be7d5a91]:
- File env.scm — part of check-in [7060a6d776] at 2023-03-27 18:15:58 on branch v1.80 — Lots of proper use of debugprint and mtargs plus some small cleanup. (user: mrwellan, size: 8581) [annotate] [blame] [check-ins using] [more...]
| ︙ | |||
15 16 17 18 19 20 21 22 23 24 25 26 27 28 | 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | + + + + + + |
;;
;; You should have received a copy of the GNU General Public License
;; along with Megatest. If not, see <http://www.gnu.org/licenses/>.
;;======================================================================
(declare (unit env))
(declare (uses debugprint))
(declare (uses mtargs))
(import (prefix mtargs args:)
debugprint)
(use sql-de-lite) ;; srfi-1 posix regex regex-case srfi-69 srfi-18 call-with-environment-variables)
(define (env:open-db fname)
(let* ((db-exists (common:file-exists? fname))
(db (open-database fname)))
(if (not db-exists)
|
| ︙ |