home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fresh Fish 8
/
FreshFishVol8-CD1.bin
/
new
/
util
/
misc
/
recall
/
unstall
/
unstallme!
next >
Wrap
Text File
|
1994-04-28
|
6KB
|
247 lines
; A simple script which removes the Recall-package from your harddisk
(set #programmer "© 1993 Ketil Hunn")
(set #version "V2.3")
(set RECALL "Recall")
(set RECALLPREFS (cat RECALL " Preferences"))
(set RECALL.PREFS (cat RECALL ".prefs"))
(set RECALLGUIDE (cat RECALL ".guide"))
(set RECALLASCII (cat RECALL ".ASCII"))
(set CONVERTER "ReConvert")
(set CONVERTERGUIDE (cat CONVERTER ".guide"))
(set CONVERTERASCII (cat CONVERTER ".ASCII"))
(set #Mainprog (cat "SYS:WBStartup/" RECALL))
(set #Prefsprog (cat "SYS:Prefs/" RECALL))
(set #Project (cat "ENVARC:" RECALL ".prefs"))
(set #Convprog (cat "SYS:Tools/" CONVERTER))
(set #recguide (cat RECALL ".guide"))
(set #convguide (cat CONVERTER ".guide"))
(set #recascii (cat RECALL ".ASCII"))
(set #convascii (cat CONVERTER ".ASCII"))
(set @default-dest "SYS:")
(set guidedest "HELP:English/")
(set docdest "DOCS:")
(set mainsize (getsize #Mainprog))
(set prefssize (getsize #Prefsprog))
(set convsize (getsize #Convprog))
(set projectsize (getsize #Project))
(set guidesize (getsize #recguide))
(set guidesize (getsize #convguide))
(set asciisize (getsize #recascii))
(set asciisize (getsize #convascii))
(set done (+ mainsize prefssize convsize projectsize recguidesize recasciisize))
(complete 0)
(message "This script will remove any copy of components of the "
RECALL "-utility from your harddisk.\n\n"
"Please press 'Proceed' to bring up the menu in which you "
"select which parts of the " RECALL "-package you will remove.\n\n"
"Please take no notice of all occurences of the word 'Install' "
"throughout this script. That word cannot be changed since it "
"resides inside the Commodore's Installer-utility. (I guess they "
"never thought that Installer could be of much use other than to "
"install programs :·( )"
)
(set progs
(askoptions
(help @askoptions-help)
(prompt "Select parts to remove:")
(choices RECALL
RECALLPREFS
RECALL.PREFS
RECALLGUIDE
RECALLASCII
CONVERTER
CONVERTERGUIDE
CONVERTERASCII
(default 0)
)
)
)
(set languages
(askoptions
(prompt "Select languages to remove:")
(help @askoptions-help)
(choices "Norsk"
"Deutsch"
"Nederlands"
"Italiano"
"Suomi"
(default 0)
)
)
)
; ****** RECALL *****
(if (IN progs 0)
(
(delete (#Mainprog)
(prompt (cat "About to delete " #Mainprog))
(help @delete-help)
(confirm)
(infos)
)
)
)
(complete (/ (* (set sofar (+ sofar mainsize)) 100) done))
; ****** RECALL PREFERENCES *****
(if (IN progs 1)
(
(delete (#Prefsprog)
(prompt (cat "About to delete " #Prefsprog))
(help @delete-help)
(confirm)
(infos)
)
)
)
(complete (/ (* (set sofar (+ sofar prefssize)) 100) done))
; ****** RECALL.PREFS *****
(if (IN progs 2)
(
(delete (#Project)
(prompt (cat "About to delete " #Project))
(help @delete-help)
(confirm)
(infos)
)
)
)
(complete (/ (* (set sofar (+ sofar projectsize)) 100) done))
; ****** RECALL.GUIDE *****
(if (IN progs 3)
(
(set guidedest
(askdir
(prompt "Select disk or drawer where Recall Amigaguide-document resides:")
(help @askdir-help)
(default "HELP:english/")
)
)
(delete (tackon guidedest #recguide)
(prompt (cat "About to delete " guidedest #recguide))
(help @delete-help)
(confirm)
(infos)
)
(complete (/ (* (set sofar (+ sofar recguidesize)) 100) done))
)
)
; ****** RECALL.ASCII *****
(if (IN progs 4)
(
(set docdest
(askdir
(prompt "Select disk or drawer where Recall ASCII-document resides:")
(help @askdir-help)
(default "Docs:")
)
)
(delete (tackon docdest #recascii)
(prompt (cat "About to delete " docdest #recascii))
(help @delete-help)
(confirm)
(infos)
)
(complete (/ (* (set sofar (+ sofar recasciisize)) 100) done))
)
)
; ****** CONVERTER *****
(if (IN progs 5)
(
(delete (#Convprog)
(prompt (cat "About to delete " #Convprog))
(help @delete-help)
(confirm)
(infos)
)
)
)
(complete (/ (* (set sofar (+ sofar convsize)) 100) done))
; ****** CONVERTER.GUIDE *****
(if (IN progs 6)
(
(set guidedest
(askdir
(prompt "Select disk or drawer where Converter Amigaguide-document resides:")
(help @askdir-help)
(default guidedest)
)
)
(delete (tackon guidedest #convguide)
(prompt (cat "About to delete " guidedest #convguide))
(help @delete-help)
(confirm)
(infos)
)
(complete (/ (* (set sofar (+ sofar convguidesize)) 100) done))
)
)
; ****** CONVERTER.ASCII *****
(if (IN progs 7)
(
(set docdest
(askdir
(prompt "Select disk or drawer where Converter ASCII-document resides:")
(help @askdir-help)
(default docdest)
)
)
(delete (tackon docdest #convascii)
(prompt (cat "About to delete " docdest #convascii))
(help @delete-help)
(confirm)
(infos)
)
(complete (/ (* (set sofar (+ sofar convasciisize)) 100) done))
)
)
(if (IN languages 0)
(
(run (cat "c:delete LOCALE:catalogs/Norsk/Recall all"))
)
)
(if (IN languages 1)
(
(run (cat "c:delete LOCALE:catalogs/Deutsch/Recall all"))
)
)
(if (IN languages 2)
(
(run (cat "c:delete LOCALE:catalogs/Nederlands/Recall all"))
)
)
(if (IN languages 3)
(
(run (cat "c:delete LOCALE:catalogs/Italiano/Recall all"))
)
)
(if (IN languages 4)
(
(run (cat "c:delete LOCALE:catalogs/Suomi/Recall all"))
)
)
(complete 100)
(message RECALL " is now removed from your " default-dest "-partition!")