scsh-conservatory
/
scsh-install-lib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

- install files in <prefix>/share/scsh-install-lib and 

<prefix>/share/doc/scsh-install-lib instead of the previous
  locations
This commit is contained in:
michel-schinz 2004-04-01 18:34:43 +00:00
parent d73107f673
commit 19197a7aca
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
install.scm
View File

@ -4,9 +4,9 @@ exec scsh -e main -o let-opt -o srfi-1 -o srfi-37 -s "$0" "$@"
;; Install scsh's installation library as follows: ;; Install scsh's installation library as follows:
;; - files install-lib.scm and install-lib-module.scm go to ;; - files install-lib.scm and install-lib-module.scm go to
;; <prefix>/share/scsh/install-lib/scheme/ ;; <prefix>/share/scsh-install-lib/scheme/
;; - file proposal.pdf goes to ;; - file proposal.pdf goes to
;; <prefix>/share/scsh/doc/install-lib/ ;; <prefix>/share/doc/scsh-install-lib/
;; - a new file called scsh-install-pkg, providing an entry point to ;; - a new file called scsh-install-pkg, providing an entry point to
;; the installation library, is installed in <prefix>/bin ;; the installation library, is installed in <prefix>/bin
@ -109,13 +109,13 @@ END
(i-prefix (re-root-file-name r-prefix (alist-get 'dest-dir options)))) (i-prefix (re-root-file-name r-prefix (alist-get 'dest-dir options))))
;; Install documentation ;; Install documentation
(let ((doc-dir (absolute-file-name "share/doc/scsh/install-lib" (let ((doc-dir (absolute-file-name "share/doc/scsh-install-lib"
i-prefix))) i-prefix)))
(create-directory&parents doc-dir) (create-directory&parents doc-dir)
(copy-file-to-dir "doc/proposal.pdf" doc-dir)) (copy-file-to-dir "doc/proposal.pdf" doc-dir))
;; Install Scheme code ;; Install Scheme code
(let ((scheme-dir (absolute-file-name "share/scsh/install-lib/scheme" (let ((scheme-dir (absolute-file-name "share/scsh-install-lib/scheme"
i-prefix))) i-prefix)))
(create-directory&parents scheme-dir) (create-directory&parents scheme-dir)
(copy-file-to-dir "scheme/install-lib.scm" scheme-dir) (copy-file-to-dir "scheme/install-lib.scm" scheme-dir)
@ -123,7 +123,7 @@ END
;; Install script ;; Install script
(let ((bin-dir (absolute-file-name "bin" i-prefix)) (let ((bin-dir (absolute-file-name "bin" i-prefix))
(r-scheme-dir (absolute-file-name "share/scsh/install-lib/scheme" (r-scheme-dir (absolute-file-name "share/scsh-install-lib/scheme"
r-prefix))) r-prefix)))
(create-directory&parents bin-dir) (create-directory&parents bin-dir)
(call-with-output-file (absolute-file-name "scsh-install-pkg" bin-dir) (call-with-output-file (absolute-file-name "scsh-install-pkg" bin-dir)