; XPKatana Installer Script
; $Ver: 1.0 (28.11.95)
; Written by Philip A. Vedovatti
; Portuguese translation by Georges Goncalves

(set #bad-kick
   (cat "\n\nPesso desculpa ! Vôcé tem que ter o Workbench 2.0"
        "ó melhor para utilizar XPKatana."))

(set #hello-message
   (cat "\n\n\"Corte ao comprimento do seus archivos em boccados !\""
        "\n\nBenvindo ao scripto d'installaçaõ de XPKatana."
        "\n\nQueira ler a documentacaõ para tirar ao maximo"
        "\nd'este programma."
        "\n\n\nPRIMA PARA CONTINUAR"))

(set #install-which
   (cat "\nQual partes de XPKatana vôcé quer"
        "\ninstallar no disco ?\n"))

(set #tools-dest
   (cat "\nEm qual repertorio vôcé quer installar"
        "\nao programma principàl de XPKatana ?\n"))

(set #docs-dest
   (cat "\nEm qual repertorio vôcé quer installar"
        "\na documentacaõ de XPKatana ?\n"))

(set #rexx-dest
   (cat "\nEm qual repertorio vôcé quer installar"
        "\naos scriptos ARexx de XPKatana ?\n"))

(set #install-arexx-help
   (cat "\nIsto vai installar alguns scriptos ARexx"
        "\nque podem ser utilizados com XPKatana."))

(set #exit-message
   (cat "\nInstallacaõ complèta !"))

(set #install-library
   ("\nCopiagem da FileID.library em Libs:"))

; ------------------------------
; Check Kickstart Version
; ------------------------------

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

(message #hello-message)

; ------------------------------
; What should I install?
; ------------------------------

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

(if (= InstallOpt 0)
      (abort (cat "\n\nInstallation Avortée :(")
                  "\n\nAucun fichier à installer!")
)


;-------------------------------------------------------
;Install binary, Icons, and support files
;-------------------------------------------------------


(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)
   )
  )
)

;-------------------------------------------------------
;Insall Arexx scripts
;-------------------------------------------------------



(if (BITAND InstallOpt 2)

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

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

;-------------------------------------------------------
;Install FileID.library files
;-------------------------------------------------------

(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")
       )
   )
  )
)

;-------------------------------------------------------
;Install FileID.library files
;-------------------------------------------------------

(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)