World of A1200/World_Of_A1200.iso/programs/compress/filearchivers/archandler/remove

Text File | 1995-02-27 | 4.8 KB | 212 lines

;;$VER: Remove 37.3 (15.1.95)
;;
;;  $Filename: Remove $
;;  $Version: 37.3 $
;;  $Date: 15.1.95 $
;;  $Creation: 1.6.94 $
;;
;;  Installer script to remove ARCHandler.
;;
;;  © Copyright 1995 Rafael D'Halleweyn, all rights reserved
;;

; Get the language
(run 'C/PrefLanguage')
(set pref-language (getenv "Language"))

;================================================================================
; English strings

(set #hello
  (cat "\n\n\nThis script will remove all the parts that were installed with the "
       "ARCHandler Install script!\n\n"
       "Are you sure you want to do this?"
  )
)

(set #remove "Remove")
(set #cancel "Abort Remove")

(set #archandler-dir
  (cat "Where did you install ARCHandler?")
)

(set #archandler-dir-help
  (cat "Select the directory where installed ARCHandler. All the files and "
       "directories that where copied will be removed.\n\n"
  )
)

(set #working "ARCHandler is being removed.")

(set #removed "\nARCHandler has been removed from the %s drawer (or partition).")

;================================================================================
; Dutch strings

(if (= pref-language "nederlands")
  (
    (set #hello
      (cat "\n\n\nDit script zal alle delen die met het ARCHandler Install "
           "script geïnstalleerd werden verwijderen!\n\n"
           "Bent u zeker dat u dit wilt doen?"
      )
    )

    (set #remove "Verwijderen")
    (set #cancel "Verwijderen afbreken")

    (set #archandler-dir
      (cat "Waar heeft u ARCHandler geïnstalleerd?")
    )

    (set #archandler-dir-help
      (cat "Selecteer de lade waarin u ARCHandler geïnstalleerd heeft. Al de "
           "bestanden en lades die gekopieerd werden zullen verwijderd worden.\n\n"
      )
    )

    (set #working "ARCHandler wordt verwijderd.")

    (set #removed "\nARCHandler is verwijderd uit de %s lade (of partitie).")
  )
)

;================================================================================
; Hi there...

(user 2)
(if (askbool
      (prompt #hello)
      (choices #remove #cancel)
      (help "")
    )
  (
    (user 0)

    (complete 10)

    ; try to find ARCHandler
    (run 'SetEnv archandlerpath "`C/FindCommand ARCHandler`"'
      (safe)
    )
    (set archandler-dir (pathonly (getenv "archandlerpath")))
    (run 'UnSetEnv archandlerpath'
      (safe)
    )

    (complete 20)

    (user 2)
    (if (= archandler-dir "")
      (set archandler-dir
        (askdir
          (prompt #archandler-dir)
          (help #archandler-dir-help @askdir-help)
          (default "SYS:Tools")
        )
      )
    )
    (user 0)

    (working #working)

    (complete 30)

    ; program
    (delete (tackon archandler-dir "ARCHandler"))
    (delete (tackon archandler-dir "ARCHandler.info"))

    (complete 40)

    ; launcher
    (delete "SYS:WbStartup/StartARC")
    (delete "SYS:WbStartup/StartARC.info")

    (complete 50)

    ; files dir
    (set arcfiles-dir (tackon archandler-dir "ARCFiles"))
    (if (exists arcfiles-dir)
      (
        (foreach arcfiles-dir "#?"
          (delete (tackon arcfiles-dir @each-name))
        )
        (delete (tackon archandler-dir "ARCFiles"))
      )
    )

    (complete 60)

    ; catalogs
    (if (exists "LOCALE:Catalogs")
      (foreach "LOCALE:Catalogs" "#?"
        (
          (user 2)
          (delete (tackon (tackon "LOCALE:Catalogs" @each-name) "archandler.catalog"))
          (delete @each-name)
        )
      )
    )

    (complete 75)

    ; help
    (set help-dir (tackon archandler-dir "Help"))
    (if (exists help-dir)
      (
        (foreach help-dir "#?"
          (
            (if (> @each-type 0)
              (
                (delete (tackon (tackon help-dir @each-name) "ARCHandler.guide"))
                (delete (tackon (tackon help-dir @each-name) "ARCHandler.guide.info"))
              )
            )
            (delete (tackon help-dir @each-name))
          )
        )
        (if (exists (tackon help-dir "Pictures"))
          (
            (foreach (tackon help-dir "Pictures") "ARCHandler#?"
              (delete (tackon (tackon help-dir "Pictures") @each-name))
            )
            (delete (tackon help-dir "Pictures"))
          )
        )
        (delete (tackon archandler-dir "Help"))
        (delete (tackon archandler-dir "Help.info"))
      )
    )

    (complete 90)

    ; support commands
    (run 'SetEnv supportpath "`C/FindCommand FromARC`"'
      (safe)
    )
    (set support-dest (pathonly (getenv "supportpath")))
    (run 'UnSetEnv supportpath'
      (safe)
    )
    (delete (tackon support-dest "FromARC"))
    (delete (tackon support-dest "ToARC"))

    (complete 100)

    (message (#removed archandler-dir))
  )
)

(complete 100)

;================================================================================
; Goodbye...

(exit (quiet))

;================================================================================
;

(welcome)