Random Bits of Open Code

Check-in [4b007bc17a]
Login

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

Overview
Comment:use more portable names for the /tmp/ areas
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:4b007bc17a4a114dd40eb518970d96fe9bf3ba7b
User & Date: matt 2018-05-11 09:43:48
Context
2018-05-14
06:08
Added an assert on dbi:open. Wierd problems... check-in: 449cd12f61 user: matt tags: trunk
2018-05-11
09:43
use more portable names for the /tmp/ areas check-in: 4b007bc17a user: matt tags: trunk
2018-05-10
14:57
rename function any? to any-defined? check-in: e6d9fe4acc user: mrwellan 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
	 (mtdb   (conc apath "/megatest.db"))
	 (mtcfg  (conc apath "/megatest.config"))
	 (rccfg  (conc apath "/runconfigs.config"))
	 (tmpbase (if onwin (current-directory) "/tmp/"))
	 (tmppth (if (adat-tmppath adat)
		     (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))







|
>
>
>







266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
	 (mtdb   (conc apath "/megatest.db"))
	 (mtcfg  (conc apath "/megatest.config"))
	 (rccfg  (conc apath "/runconfigs.config"))
	 (tmpbase (if onwin (current-directory) "/tmp/"))
	 (tmppth (if (adat-tmppath adat)
		     (adat-tmppath adat)
		     (let* ((p1 (conc tmpbase (current-user-name) "/mtview_cache"))
			    (p2 (conc aname (string-translate (if (equal? apath ".")
								  "localdir"
								  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))