suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added srcdir to unixstyle distribution

Browse Source 
svn: r3405
This commit is contained in:
Eli Barzilay 2006-06-18 20:47:25 +00:00
parent 89e43db944
commit 00e0ef64eb
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/setup/unixstyle-install.ss
View File

@ -23,6 +23,7 @@
(define includepltdir (get-arg)) (define includepltdir (get-arg))
(define libpltdir (get-arg)) (define libpltdir (get-arg))
(define mandir (get-arg)) (define mandir (get-arg))
(define srcdir (get-arg))
;; Configures level where we start owning stuff (in the sense that the ;; Configures level where we start owning stuff (in the sense that the
;; generated uninstaller will remove it, and the installation will remove ;; generated uninstaller will remove it, and the installation will remove
@ -42,6 +43,7 @@
;; independently, as if they had a level of #f ;; independently, as if they had a level of #f
[(equal? dir "lib") 1] [(equal? dir "lib") 1]
[(equal? dir "man") #f] [(equal? dir "man") #f]
[(equal? dir "src") 1]
[(equal? dir "readme.txt") #f] ; moved last [(equal? dir "readme.txt") #f] ; moved last
[else (error 'level-of "internal-error: unknown dir ~e" dir)])) [else (error 'level-of "internal-error: unknown dir ~e" dir)]))
@ -279,6 +281,8 @@
(move-tree "include" includepltdir) (move-tree "include" includepltdir)
(move-tree "lib" libpltdir) (move-tree "lib" libpltdir)
(move-tree "man" mandir) (move-tree "man" mandir)
(when (and (not (equal? srcdir "")) (directory-exists? srcdir))
(move-tree "src" srcdir))
;; part of the distribution: ;; part of the distribution:
(move-tree "readme.txt" (build-path docdir "readme.txt")) (move-tree "readme.txt" (build-path docdir "readme.txt"))
;; nothing should be left now ;; nothing should be left now