;****************************************************************
;* HighSpeed MathLibs Installer Version 1.1d  10.November 1998  *
;*                                                              *
;*             Copyright © 1998 by CyberdyneSystems             *
;*                  written by Matthias Henze                   *
;*         english translation written by Thomas Blätte         *
;*                                                              *
;****************************************************************
;
; $VER: HD-Installer_script 1.1d (10.11.98)

(set HSMathLibs-Version "44.32")
(set HSMathLibs-Datum "10.November 1998")
(set HSMathLibs-Datum_e "10.November 1998")

;====================================================================
; Initialisierungen
;====================================================================

(set @default-dest "")

(if (= @language "deutsch")
 (
	(set #welcome (cat
	"\nWillkommen bei der Installation der \n"
	"D E M O V E R S I O N\n"
	"der\n"
	"\"HighSpeed MathLibs\"\n\n"
	"Version "HSMathLibs-Version" vom "HSMathLibs-Datum"\n\n"
	"Dieses Skript installiert die \"HighSpeed MathLibs\",\n"
	"entsprechend Ihrer Angaben, auf Ihre Festplatte.\n\n\n"
	"Kopierrecht © 1998 bei CyberdyneSystems\n"
	"geschrieben von Matthias Henze"))
	
	(set #Benchmarks_Auswahl (cat
	"\nUm die Vorteile der \"HSMathLibs\" etwas zu verdeutlichen, habe ich Benchmark Programme beigelegt.\n"
	"\nWählen Sie die Sprache für die Benchmark Programme aus.\n"))
	
	(set #keine_Benchmarks "Keine Benchmarks")
	
	(set #Benchmarks_Liste (cat
	"Installation der Benchmark Programme.\n"
	"Bitte wählen Sie ein Laufwerk oder ein Verzeichnis.\n"
	"Ein Verzeichnis \"HSMathLibs\" wird automatisch erzeugt."))
	
       
	(set #Anleitungen_Auswahl (cat
	"\nWählen Sie die Sprache für die AmigaGuide Dokumentation aus.\n"))
	
	(set #Anleitungen_Liste (cat
	"Installation der Anleitung.\n"
	"Bitte wählen Sie ein Laufwerk oder ein Verzeichnis.\n"
	"Es wird kein Verzeichnis erzeugt."))
 )
 (
	(set #welcome (cat
	"\nWelcome to the installation of the\n"
	"D E M O V E R S I O N\n"
	"of\n"
	"\"HighSpeed MathLibs\"\n\n"
	"version "HSMathLibs-Version" from "HSMathLibs-Datum_e"\n\n"
	"This script installs the \"HighSpeed MathLibs\"\n"
	"according to your specification to your harddisk.\n\n\n"
	"Copyright © 1998 by CyberdyneSystems\n"
	"written by Matthias Henze"))
	
	(set #Benchmarks_Auswahl (cat
	"\nI added benchmark programs to show the advanages of the \"HSMathLibs\".\n"
	"\nPlease choose the language for the benchmark programs.\n"))
	
	(set #keine_Benchmarks "No benchmarks")
	
	(set #Benchmarks_Liste (cat
	"Installation of the benchmark programs.\n"
	"Please choose a volume or directory.\n"
	"A directory \"HSMathLibs\" will be created automatically."))
	
       
	(set #Anleitungen_Auswahl (cat
	"\nPlease choose the language for the AmigaGuide documentation.\n"))
	
	(set #Anleitungen_Liste (cat
	"Installation of the manual.\n"
	"Please choose a volume or a directory.\n"
	"A new directory will not be created."))
 )
)

;=====================================================================================
; Beginn der Installation
;=====================================================================================

(message #welcome)
(welcome)


(set Math_ver (getversion "libs:mathieeedoubbas.library"))
(if (< Math_ver (* 44 65536))
  (
    (rename "libs:mathieeedoubbas.library" "libs:mathieeedoubbas.library.bak")
  )
)
(set Math_ver (getversion "libs:mathieeedoubtrans.library"))
(if (< Math_ver (* 44 65536))
  (
    (rename "libs:mathieeedoubtrans.library" "libs:mathieeedoubtrans.library.bak")
  )
)
(set Math_ver (getversion "libs:mathieeesingtrans.library"))
(if (< Math_ver (* 44 65536))
  (
    (rename "libs:mathieeesingtrans.library" "libs:mathieeesingtrans.library.bak")
  )
)
(set Math_ver (getversion "libs:mathtrans.library"))
(if (< Math_ver (* 44 65536))
  (
    (rename "libs:mathtrans.library" "libs:mathtrans.library.bak")
  )
)
(copyfiles
  (source "libs")
  (dest "libs:")
  (all)
)

(
  (set kopiere_Benchmarks
    (askchoice
      (prompt #Benchmarks_Auswahl)
      (help   @askchoice-help)
      (if (= @language "deutsch")
	((default 0))
	((default 1))
      )
      (choices
	"Deutsch"
	"English"
	#keine_Benchmarks
      )
    )
  )
  (if (< kopiere_Benchmarks 2)
    (
      (if (= kopiere_Benchmarks 0) (set Quelle-B "Benchmarks_ger"))
      (if (= kopiere_Benchmarks 1) (set Quelle-B "Benchmarks"))
      (
	(set Zielverzeichnis
	  (askdir
	    (prompt #Benchmarks_Liste)
	    (help @askdir-help)
	    (default "")
	    (disk)
	  )
	)
	(makeassign "INST" Zielverzeichnis)
	(copyfiles
	  (source Quelle-B)
	  (dest "INST:HSMathLibs")
	  (all)
	  (infos)
	)
      )
    )
  )
)

(
  (set kopiere_Anleitungen
    (askchoice
      (prompt #Anleitungen_Auswahl)
      (help   @askchoice-help)
      (if (= @language "deutsch")
	((default 0))
	((default 1))
      )
      (choices
	"Deutsch"
	"English"
      )
    )
  )
  (if (= kopiere_Anleitungen 0) (set Quelle-D "HSMathLibs.guide"))
  (if (= kopiere_Anleitungen 1) (set Quelle-D "HSMathLibs_e.guide"))
  (
    (set Dokverzeichnis
      (askdir
	(prompt #Anleitungen_Liste)
	(help @askdir-help)
	(default "")
	(disk)
      )
    )
    (makeassign "INSTDOK" Dokverzeichnis)
    (copyfiles
      (source Quelle-D)
      (dest "INSTDOK:")
      (infos)
    )
  )
)
(makeassign "INST")
(makeassign "INSTDOK")