From ee8379c6da30d8945af162fbde30054044254731 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sat, 24 Jun 2006 00:19:13 +0000 Subject: [PATCH] some comments in the uninstaller svn: r3461 --- collects/setup/unixstyle-install.ss | 3 +++ 1 file changed, 3 insertions(+) diff --git a/collects/setup/unixstyle-install.ss b/collects/setup/unixstyle-install.ss index f4586e23ed..08a48e1f83 100644 --- a/collects/setup/unixstyle-install.ss +++ b/collects/setup/unixstyle-install.ss @@ -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))