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

some comments in the uninstaller

Browse Source 
svn: r3461
This commit is contained in:
Eli Barzilay 2006-06-24 00:19:13 +00:00
parent 5ef1314ae5
commit ee8379c6da
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -223,6 +223,7 @@
(with-output-to-file uninstaller
(lambda ()
(printf "#!/bin/sh\n")
(printf "\n# Remove files and dirs that we own\n")
(printf "while true; do read R || break; rm -rf -- \"$R\"; done \\\n")
(printf "<<::://E//O//F////O//N//E//:::\n")
;; only moved/copied stuff are part of the distribution
@ -230,12 +231,14 @@
(when (memq (car p) '(mv cp)) (printf "~a\n" (caddr p))))
path-changes)
(printf "::://E//O//F////O//N//E//:::\n")
(printf "\n# Remove dirs that we created but not own only if empty\n")
(printf "while true; do read R || break; ~a"
"rmdir -- \"$R\" > /dev/null 2>&1; done \\\n")
(printf "<<::://E//O//F////T//W//O//:::\n")
(for-each (lambda (p) (when (eq? 'md (car p)) (printf "~a\n" (cadr p))))
path-changes)
(printf "::://E//O//F////T//W//O//:::\n")
(printf "\n# Remove this script\n")
(printf "exec rm \"$0\"\n"))
'replace)
(run "chmod" "+x" uninstaller))