;; ;; EPU-Stakker Un-Install ;; ;; by S.Tavener - National Amiga Users Group ;; ;; DATE : 3/9/94 ;; REVISION NO. : v1.70 ;; ;; © Installer Routine Copyright to Stuart Tavener (set @default-dest "WorkBench:") (set intro (cat "\n\nDe-Compression Routine\n" "Compiled by Stuart Tavener - September '94\n" "\n\nINSTRUCTIONS\n " "BOOT from Workbench as Normal\n" "then Run this De-Compression Routine\n" ) ) (set deflib (cat " - NOT Installed")) (set devices-help (cat "This Should be the Device with the Startup-Sequence " "that is booted up. As this starts EPU.\n\n" "HARDDISK USERS should choose 'SYS:'\n\n" "FLOPPY DRIVE users can just select DF0: or similar," "but this Device should be Bootable with a Startup-Sequence." ) ) (set startupfileerr (cat "\n\n\nYou Have no Startup-sequence on this Disk!" "\nSo EPU cannot be Installed !!") ) (set again (cat "\n\n\n\n\n\n\ Do You want to Un-Compress Another Device ?")) (set reboot (cat "\n\n\n\n To Take Effect of EPU Stakker" "\n Re-Boot Your Computer NOW" ) ) ;----------------------------------------------------------- (complete 0) (message intro) (welcome) ;ask which is boot device for compressed drives (set @default-dest (askdir (prompt "\nPlease Select Your Boot Device\n") (help devices-help) (default "SYS:") ) ) (complete 5) ;redo 'install' loop flag (set install 1) (while install (complete 10) (set installdevice (askdir (prompt "\nPlease Select Device or Partition that\n" "you wish to De-Compress\n") (help "This section allows you to choose which drive/device " "you want to compress.\n\n" "HARD DISK users can pick any partition (See documents " "before compressing your Workbench partition).\n\n" "FLOPPY DISK users should pick the SAME device (disk) " "that they chose at the last option - See Docs!.") (default "Work:") (disk) ) ) (complete 20) (set lib "NONE") (set len (- (strlen installdevice) 1)) (set dev (substr installdevice 0 len)) (complete 30) (if (exists ("T:")) (set null 0) ( (makedir (tackon @default-dest "T")) (makeassign "T" (Tackon @default-dest "T")) ) ) ;------------------------------------------------------------ (complete 40) (if (<> @pretend 1) ;so if not in pretend mode then do this bit. ( ;----------------------------------------------------------- ;change Startup-sequence, no EPU for chosen device (lib NONE) ;remove startup-old for sake of errors (if (exists (tackon @default-dest "s/startup-old")) (delete (tackon @default-dest "s/startup-old") (optional"force")) ) (if (exists (tackon @default-dest "s/startup-sequence")) ( (protect (tackon @default-dest "s/startup-sequence") "+w") (rename (tackon @default-dest "s/startup-sequence") (tackon @default-dest "s/startup-old")) ) (Abort startupfileerr) ) (complete 50) ;----------------------------------------- ;create new Startup-sequence with epu run line (textfile (help) (prompt) (dest (tackon @default-dest "s/startup-sequence")) (append (cat "EPU device " dev " lib NONE Hmode\n")) (include (tackon @default-dest "s/startup-old")) ) ) ) (complete 55) ;----------------------------------------------------------- ;create new EPU execute script file for chosen device (textfile (help) (prompt) (dest (tackon @default-dest "start")) (append (cat "EPU device " dev " lib NONE Chng")) (safe) ) (complete 60) ;----------------------------------------------------------- ;run EPU 'start' script file - EVERYTHING WRITTEN TO INSTALLDEVICE ; WILL NOW BE COMPRESSED WITH THIS LIBRARY !!!!!!!!!!! ;only run EPU if in REAL mode (if (<> @pretend 1) (execute (tackon @default-dest "start")) ) ;-------------------------------- (complete 65) ;write 'compress' script to recomp selected drive ;and delete extra .EpuTmp files (set update (cat "\n\n\nEPU Un-Installed from " installdevice " " "\n\n\nStarting EPU Un-Compression\n\n\n Press 'Proceed'" "to Un-Compress Device") ) (textfile (help "\nThe EPU program will Uncompress your chosen device or partition " "when you press proceed.\n\n" "REMEMBER that the Uncompression may take some time, especially " "if you are Uncompressing are large hard drive - maybe 3 hours!\n\n" "The program will delete any TMP (temporary) files created by " "the compression so don't reset your drive until the drive stops " "and you are told to do so.\n\n" " Press PROCEED to Uncompress your device" ) (prompt update) (dest (tackon @default-dest "Uncompress")) (append (cat "stack 500000\n" "Recomp >CON: " installdevice " all\n" "STAKKER:C/delete " installdevice "#?.EpuTmp\n" "STAKKER:C/delete " installdevice "#?/#?.EpuTmp\n" ) ) (confirm) (safe) ) (complete 70) ;------------------------------------ ;execute Uncompress file (set workmsg (cat "\n\n\n Uncompressing All of " installdevice "\n\n Please Wait ...." "\n\nIF The EPU UnCompression fails and Will not Exit..." "\n\nIt IS safe to 'ReBoot' your computer" "\nONLY if the Working drive has STOPPED." "\nAs damage to the Data/File Structure may occur" ) ) (working workmsg) (complete 75) (execute (tackon @default-dest "Uncompress")) (complete 99) ;now remove all extra files ; (delete (tackon @default-dest "start")) ; (delete (tackon @default-dest "uncompress")) ;------------------------------------------------------------ (complete 100) ( (set install (askbool (prompt again) (help "This option allows you to Uncompress another partition" " or device." ) (default 1) ) ) (if install (set install 1) ; do it all again (set install 0) ; finish ) ) ) (exit (reboot) (quiet) ) ;------------------------------------------------------------