; XPKatana Installer Script
; $Ver: 1.0 (28.11.95)
; Written by Philip A. Vedovatti
; for Program Author Eric Sauvageau.
; Translated to Italian by Claudio Di Martino.

(set #bad-kick
   (cat "\n\nQuesto programma necessita almeno del"
        "Workbench 2.0 per funzionare."))

(set #hello-message
   (cat "\n\n\"Riduci i tuoi file a brandelli!\""
        "\n\nBenvenuto nello script di installazione di XPKatana."
        "\n\nSei pregato di leggere la documentazione per"
        "\nottenere il massimo da questo programma."
        "\n\n\nPREMI IL BOTTONE PER PROCEDERE"))

(set #install-which
   (cat "\nQuale parte dell'archivio di XPKatana vuoi"
        "\ninstallare sul tuo disco rigido?\n"))

(set #tools-dest
   (cat "\nIn quale cassetto vuoi che sia installato"
        "\nil programma principale XPKatana?\n"))

(set #docs-dest
   (cat "\nDove vuoi che sia installata"
        "\nla documentazione?\n"))

(set #rexx-dest
   (cat "\nDove vuoi che siano installati"
        "\ngli script Arexx di Katana?\n"))

(set #install-arexx-help
   (cat "\nInstalla gli script Arexx per migliorare"
        "\nla funzionalitą di XPKatana."))

(set #exit-message
   (cat "\nL'installazione di XPKatana č completata!"
        "\nBuon divertimento."))

(set #install-library
   ("\nInstallazione di FileID.library in Libs:"))

; -----------------------------------
; Controlla la versione del Kickstart
; -----------------------------------

 (if (< (getversion "LIBS:version.library") (* 37 65536))
        (abort #bad-kick)
 )

(message #hello-message)

; ------------------------------
; Cosa devo installare?
; ------------------------------

(set InstallOpt
      (askoptions (prompt #install-which)
                  (help @askoptions-help)
                  (choices "XPKatana" "Script Arexx" "FileID.library"
                           "Documentazione")
      )
)

(if (= InstallOpt 0)
      (abort (cat "\n\nInstallazione interrotta :(")
                  "\n\nNessun file selezionato per l'installazione!")
)


;-------------------------------------------------------
;Installo l'eseguibile, le icone e i file di supporto
;-------------------------------------------------------


(if (BITAND InstallOpt 1)

  ((set destdir
      (askdir
            (prompt #tools-dest)
            (help @askdir-help)
            (default "Sys:Utilities")
      )
   )

   (set @default-dest destdir)
   (copyfiles
      (source "/XPKatana")
      (dest destdir)
      (infos)
   )
  )
)

;-------------------------------------------------------
;Installo gli script Arexx
;-------------------------------------------------------



(if (BITAND InstallOpt 2)

  ((set destdir
      (askdir
            (prompt #rexx-dest)
            (help #install-arexx-help)
            (default "REXX:")
      )
   )

   (copyfiles
      (source "/ARexx")
      (dest destdir)
      (all)
   )
  )
)

;-------------------------------------------------------
;Installo i file di FileID.library
;-------------------------------------------------------

(if (BITAND InstallOpt 4)

  ((copylib
      (prompt #install-library)
      (source "/Libs/FileID.library")
      (dest "Libs:")
   )

   (if (exists "Locale:catalogs/deutsch")
       (copyfiles
          (source "/Locale/catalogs/deutsch/FileID_lib.catalog")
          (dest "Locale:catalogs/deutsch")
       )
   )
  )
)

;-------------------------------------------------------
;Installa la documentazione
;-------------------------------------------------------

(if (BITAND InstallOpt 8)

  ((set destdir
      (askdir
            (prompt #docs-dest)
            (help @askdir-help)
            (default "Help:")
      )
   )
   (copyfiles
      (source "/Docs/XPKatana.guide")
      (dest destdir)
      (newname "XPKatana.guide")
      (infos)
   )
  )
)
(exit #exit-message)