IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

Guile path on win32 needs to be separated by ; instead of :.

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@14745 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Christian Stimming 2006-08-28 12:34:52 +00:00
parent 9fbd42d09b
commit 6e0fb684bd
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/gnc-test-env
View File

@ -61,6 +61,12 @@ exec guile -s $0 "$@"
"\\\\" ;; Needs to be quoted twice because of additional shell quoting "\\\\" ;; Needs to be quoted twice because of additional shell quoting
"/")) "/"))
;; The path separator string; only needed for GUILE_LOAD_PATH
(define path-sep-str
(if is-windows?
";"
":"))
;; Adapt the directory separator character in the given PATH and ;; Adapt the directory separator character in the given PATH and
;; return the result. ;; return the result.
(define (adapt-dirsep path) (define (adapt-dirsep path)
@ -83,10 +89,12 @@ exec guile -s $0 "$@"
(string-join gnc-module-dirs (string-join gnc-module-dirs
":"))) ":")))
(display " GUILE_LOAD_PATH=${GUILE_LOAD_PATH}:") (display " GUILE_LOAD_PATH=\"${GUILE_LOAD_PATH}")
(display path-sep-str)
(display (adapt-dirsep (display (adapt-dirsep
(string-join (append gnc-module-dirs guile-load-dirs) (string-join (append gnc-module-dirs guile-load-dirs)
":"))) path-sep-str)))
(display "\"")
(display " LD_LIBRARY_PATH=${LD_LIBRARY_PATH}") (display " LD_LIBRARY_PATH=${LD_LIBRARY_PATH}")
(display (adapt-dirsep (display (adapt-dirsep