Random Bits of Open Code

Check-in [478335bf96]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix case where . is provided as directory.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:478335bf96362555094f0d5d257d8e55b0b72804
User & Date: matt 2018-05-08 11:19:34
Context
2018-05-09
03:32
Added mindata-filtered check-in: 7d200f0d31 user: mrwellan tags: trunk
2018-05-08
11:19
Fix case where . is provided as directory. check-in: 478335bf96 user: matt tags: trunk
06:10
Switch order of data returned from get-area-infos. check-in: cfcf6d3c8e user: matt tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to mtutils/mtdb/mtdb.scm.

266
267
268
269
270
271
272


273
274
275
276
277
278
279
280
		     (adat-tmppath adat)
		     (let* ((p1 (conc tmpbase (current-user-name) "/mtview_cache"))
			    (p2 (conc (string-translate apath "/" "." )))
			    (tpath (conc p1 "/" p2)))
		       (adat-tmp-area-set! adat p1)
		       (adat-tmppath-set! adat tpath)
		       tpath))))


    (if (not (directory-exists? tmppth))(create-directory tmppth #t))
    (if (and use-mt-area (file-read-access? mtdb)(file-read-access? mtcfg)(file-read-access? rccfg))
	(begin
	  (if (not (adat-mtconfig adat))
	      (adat-mtconfig-set! adat (configf:read-config mtcfg #f #f)))
	  (if (not (adat-runconfig adat))
	      (adat-runconfig-set! adat (configf:read-config rccfg #f #f)))))
    adat))







>
>
|







266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
		     (adat-tmppath adat)
		     (let* ((p1 (conc tmpbase (current-user-name) "/mtview_cache"))
			    (p2 (conc (string-translate apath "/" "." )))
			    (tpath (conc p1 "/" p2)))
		       (adat-tmp-area-set! adat p1)
		       (adat-tmppath-set! adat tpath)
		       tpath))))
    (if (and (not (directory-exists? tmppth))
	     (not (file-exists? tmppth)))     ;; catch the case where ">" is provided
	(create-directory tmppth #t))
    (if (and use-mt-area (file-read-access? mtdb)(file-read-access? mtcfg)(file-read-access? rccfg))
	(begin
	  (if (not (adat-mtconfig adat))
	      (adat-mtconfig-set! adat (configf:read-config mtcfg #f #f)))
	  (if (not (adat-runconfig adat))
	      (adat-runconfig-set! adat (configf:read-config rccfg #f #f)))))
    adat))