Amiga Format CD 28/amigaformatcd28.iso/-in_the_mag-/under_the_bonnet/scsi/scsibench/scsibench-install

Text File | 1998-05-02 | 3KB | 184 lines

(if (= @language "deutsch")
(
   (set #wrongversion
      (cat "Achtung! Es ist eine alte Version des Programmes 'Installer' "
           "auf Ihrem Amiga!\n\nDie Installation benÖtigt mindestens Installer 42.9.\n\n"
           "Bitte ÜberprÜfen Sie Ihre Konfiguration!"
      )
   )

   (set #welcome
      (cat "Willkommen zur Installation von SCSIBench V1.0!\n\n"
           "Copyright Frank Toepper & Ralph Wermke von\n"
           "Digital Innovations."
      )
   )

   (set #destdir
      (cat "Wähle das Verzeichnis in das SCSIBench kopiert werden soll. "
           "Es wird kein Verzeichnis angelegt."
      )
   )

   (set #copystr (cat "Kopiere SCSIBench..."))

   (set #askdoc
      (cat "Soll die Dokumentation installiert werden?")
   )

   (set #yes "Ja")

   (set #no "Nein")

   (set #docdir
      (cat "Wähle das Verzeichnis für die Dokumentation.")
   )

   (set #copydoc (cat "Kopiere Dokumentation..."))

   (set #cat (cat "Welche Katalogdatei(en) soll(en) installiert werden?"))

)

;-------- English --------
(
   (set #wrongversion
      (cat "You have an old version of the program 'Installer' "
           "on your Amiga!\n\nThe installation procedure needs at least Installer 42.9.\n\n"
           "Please check your configuration!"
      )
   )

   (set #welcome
      (cat "Welcome to the Installation of SCSIBench V1.0!\n\n"
           "Copyright by Frank Toepper & Ralph Wermke of\n"
           "Digital Innovations."
      )
   )

   (set #destdir
      (cat "Select a directory to copy SCSIBench to.\n"
           "No directory will be created."
      )
   )

   (set #copystr (cat "Copying SCSIBench..."))

   (set #askdoc
      (cat "Do you want to install the documentation?")
   )

   (set #yes "Yes")

   (set #no "No")

   (set #docdir
      (cat "Select a directory for the documentation.")
   )

   (set #copydoc
      (cat "Copying documentation...")
   )

   (set #cat (cat "Which catalog file(s) do you want to install?"))

)
) ; if

;------------------------------------------------------------------------
; We can't handle this script without Installer 42.9 or better!
(if (< @installer-version 2752521)
  (
    ; Big problem!
    (message #wrongversion)
    (exit (quiet))
  )
)


(welcome #welcome)

(set destdir
 (askdir
  (prompt #destdir)
  (help @askdir-help)
  (default "SYS:")
 )
)

(if (patmatch "68000|68010" (database "cpu"))
(
    (set #srcname "scsibench")
)
;else
(
    (if (= "NOFPU" (database "fpu"))
    (
        (set #srcname "scsibench.020")
    )
    ; else
    (
        (set #srcname "scsibench.020_881")
    )
    ) ;if
)
) ;if

(copyfiles
   (prompt #copystr)
   (help @copyfiles-help)
   (source #srcname)
   (dest destdir)
   (files)
   (newname "SCSIBench")
   (optional force)
)

(copyfiles
   (prompt #copystr)
   (help @copyfiles-help)
   (source "scsibench.info")
   (dest destdir)
   (noposition)
   (optional force)
)

(set docbool
   (askbool
      (prompt #askdoc)
      (choices #yes #no)
      (help "No Help!")
      (default 0)
   )
)

(if (= docbool 1)
(
   (set docdir
      (askdir
         (prompt #docdir)
         (help @askdir-help)
         (default "help:english")
      )
   )
   (copyfiles
      (prompt #copydoc)
      (help @copyfiles-help)
      (source "scsibench.guide")
      (infos)
      (noposition)
      (dest docdir)
   )
)
) ; if

(copyfiles
   (prompt #cat)
   (help @copyfiles-help)
   (source "catalogs")
   (dest "Locale:")
   (pattern "#?")
   (confirm)
)