home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AmigActive 6
/
AACD06.ISO
/
AACD
/
Sound
/
SampleE
/
Install
/
Install_SampleE
< prev
Wrap
Text File
|
1999-10-10
|
10KB
|
349 lines
; $VER: Install_SampleE 4.00 (12.10.99)
;
; by Rainer Müller
;
; 15.08.1997 first installerversion
; 04.04.1998 some optical changes, comments now in english
; 15.04.1998 bumped version number to 2.90
; 31.05.1998 spanish support added
; 08.09.1998 updated script to the new directory and file structure. Because of that asking for
; install-dir of catalogs was removed -> removed text #AskCatdir. Because of the great
; number of files, switched to "gauge" while copying -> removed text #Copy_files
; 06.11.1998 bumped version number to 3.00
; 05.01.1999 bumped version number to 3.10
; 12.10.1999 bumped version number to 4.00
(set SourceDir "/")
;************************************************************************
;* *
;* German Texts by Rainer Müller *
;* *
;************************************************************************
(if (= @language "deutsch")
(
(set #WrongInstallerVersion
(cat "\nSie benötigen mindestens Version 42 des Installers!\n"
"Die Version 43.3 finden Sie im Aminet in util/misc/Installer43.3.lha\n\n"
"Ihre Installer-Version ist: %ld.%ld"
))
(set #WrongKickVersion
(cat "\nSie benötigen mindestens Kickstart-Version 37!\n"
"Ihre Kickstart-Version ist: %ld.%ld"
))
(set #WrongUserLevel
(cat "\nEine Installation im Einsteiger-Modus ist nicht möglich!\n"
))
(set #AskTargetdir
(cat "\nWo soll das Programm installiert werden?\n"
"Ein neues Verzeichnis namens SampleE wird dort angelegt"
))
(set #AskLibdir
(cat "\nWo soll die reqtools.library installiert werden?\n"
))
(set #InstallingLibs
(cat "Installiere die reqtools.library.\n"
))
))
;************************************************************************
;* *
;* English Texts by Rainer Müller *
;* *
;************************************************************************
(if (= @language "english")
(
(set #WrongInstallerVersion
(cat "\nYou need at least V42 of the Installers!\n"
"Version 43.3 can be found on Aminet in util/misc/Installer43.3.lha\n\n"
"Your Installer-Version is: %ld.%ld"
))
(set #WrongKickVersion
(cat "\nYou need at least Kickstart-Version 37!\n"
"Your Kickstart-Version is: %ld.%ld"
))
(set #WrongUserLevel
(cat "\nInstalling with Novice-Mode is not supported!\n"
))
(set #AskTargetdir
(cat "\nWhere do you want to install the program?\n"
"A new directory called SampleE will be created there"
))
(set #AskLibdir
(cat "\nWhere do you want to install the reqtools.library?\n"
))
(set #InstallingLibs
(cat "Installing the reqtools.library.\n"
))
))
;************************************************************************
;* *
;* French Texts by Georges Goncalves *
;* *
;************************************************************************
(if (= @language "français")
(
(set #WrongInstallerVersion
(cat "\nVous avez besoin d'au moins la version 42 d'Installer !\n"
"La version 43.3 peut être trouvée sur Aminet dans util/misc/Installer43.3.lha\n\n"
"Votre version d'Installer est : %ld.%ld"
))
(set #WrongKickVersion
(cat "\nVous avez besoin d'au moins le Kickstart version 37 !\n"
"Votre version de Kickstart est : %ld.%ld"
))
(set #WrongUserLevel
(cat "\nL'installation en mode Novice n'est pas supportée !\n"
))
(set #AskTargetdir
(cat "\nOù voulez vous installer le programme ?\n"
"Un nouveau répertoire appellé SampleE y sera créé"
))
(set #AskLibdir
(cat "\nOù voulez vous installer la reqtools.library?\n"
))
(set #InstallingLibs
(cat "Installation de la reqtools.library.\n"
))
))
;************************************************************************
;* *
;* Spanish Texts by Javier de las Rivas *
;* *
;************************************************************************
(if (= @language "español")
(
(set #WrongInstallerVersion
(cat "\nNecesitas la versión V42 del Instalador!\n"
"La versión 43.3 puedes encontrarla en Aminet en util/misc/Installer43.3.lha\n\n"
"Tu Versión del Instalador es la: %ld.%ld"
))
(set #WrongKickVersion
(cat "\nNecesitas la version 37 de Kickstart!\n"
"Tu versión del Kickstart es la: %ld.%ld"
))
(set #WrongUserLevel
(cat "\nLa Instalación en modo 'Usuario nuevo' no es posible!\n"
))
(set #AskTargetdir
(cat "¿ Donde quieres instalar el programa ?\n"
"Se creará un directorio llamado SampleE."
))
(set #AskLibdir
(cat "\n¿ Donde quieres instalar reqtools.library ?\n"
))
(set #InstallingLibs
(cat "Instalando reqtools.library.\n"
))
))
;************************************************************************
;*** ***
;*** Some version-tests (Installer, OS and User-Level) ***
;*** ***
;************************************************************************
;************************************************************************
;* at least Version 42 of the Installer is needed *
;************************************************************************
(set #vernum @installer-version)
(set #ver (/ #vernum 65536))
(set #rev (- #vernum (* #ver 65536) ) )
(if (< #ver 42)
(
(abort (#WrongInstallerVersion #ver #rev) )
))
;************************************************************************
;* at least Kickstart 3.0 (V39) of the System is needed *
;************************************************************************
(set #vernum (getversion) )
(set #ver (/ #vernum 65536))
(set #rev (- #vernum (* #ver 65536) ) )
(if (< #ver 39)
(abort (#WrongKickVersion #ver #rev) )
)
;************************************************************************
;* at least a "Average User" is needed *
;************************************************************************
(if (= @user-level 0)
(
(abort (#WrongUserLevel) )
))
;************************************************************************
;*** ***
;*** Here begins installation procedure ***
;*** ***
;*** Part 1: all needed requests ***
;*** ***
;************************************************************************
;************************************************************************
;* ask where SampleE shall be placed *
;* ==> #Installverz *
;************************************************************************
(complete 0)
(set #Zielverzeichnis @default-dest)
(set #Zielverzeichnis (askdir (prompt #AskTargetdir)
(help @askdir-help)
(default #Zielverzeichnis)
)
)
(set #Installverz (tackon #Zielverzeichnis "SampleE"))
(set @default-dest #Installverz)
;************************************************************************
;* ask where the Libraries shall be placed *
;* ==> #Libverz *
;************************************************************************
;*** install reqtools.library
;*** a Average-User is not asked
;*** a Expert-User can choose
(complete 5)
(set #Libverz "LIBS:")
;*** ask the Expert-User
(if (> @user-level 1)
(
(set #Libverz (askdir (prompt #AskLibdir)
(help @askdir-help)
(default #Libverz)
)
)
))
;************************************************************************
;*** ***
;*** Here begins installation procedure ***
;*** ***
;*** Part 2: copy needed/selected files ***
;*** ***
;************************************************************************
;************************************************************************
;* create destination directory *
;************************************************************************
(makedir #Installverz (infos))
;************************************************************************
;* install libraries *
;************************************************************************
(complete 10)
(copylib (prompt #InstallingLibs) (source (tackon SourceDir "libs/reqtools.library"))
(dest #Libverz)
(help @copylib-help)
(confirm)
)
;************************************************************************
;* copy needed files *
;************************************************************************
(complete 20)
(working "")
(copyfiles (source (tackon SourceDir "Samplee"))
(dest #Installverz ) (infos) (noposition)
)
(complete 60)
(copyfiles (source (tackon SourceDir "Samplee_Prefs"))
(dest #Installverz ) (infos) (noposition)
)
(copyfiles (source (tackon SourceDir "SampleE_History"))
(dest #Installverz ) (infos) (noposition)
)
(copyfiles (source (tackon SourceDir "se-icons"))
(dest (tackon #Installverz "se-icons")) (all)
)
(complete 65)
(copyfiles (source (tackon SourceDir "se-libs"))
(dest (tackon #Installverz "se-libs")) (all)
)
(complete 85)
;************************************************************************
;* install catalogs *
;************************************************************************
;*** CAUTION: English is the built-in language - in this case no Catalog is needed
(if (<> @language "english")
(
(set #CatVerz (tackon #Installverz "Catalogs") )
(makedir #Catverz)
(copyfiles (source (tackon SourceDir (tackon "catalogs" @language)))
(dest (tackon #Catverz @language) ) (all)
)
))
;************************************************************************
;* install documentation in the needed language *
;************************************************************************
(copyfiles (source (tackon SourceDir (tackon "docs" @language)))
(dest #Installverz ) (all) (infos) (noposition)
)
;************************************************************************
;* finish *
;************************************************************************
(complete 100)
(exit)