;; -*- lisp -*- ;; Livingshuffle Installation Script $VER:LivingShuffle 1.2 (06-Mar-97) ;; ;-------------------------- get correct language ---------------------------- (if (= @language "deutsch") ( ;use german texts (set #choice_install "Installieren") (set #choice_cancel "Abbruch") (set #choice_68000 "68000 (und besser)") (set #choice_68020 "68020 (und besser)") (set #choice_68030 "68030 (und besser)") (set #txt_welcome1 "Willkommen zum LivingShuffle ") (set #txt_welcome2 (cat " Installationsskript. " "\nWie Sie ja wahrscheinlich schon wissen, ist LivingShuffle ein Modul " "für den Garshneblanker Bildschirmschoner. Wenn Sie Garshneblanker " "nicht besitzen, ist das Modul für Sie vollkommen nutzlos." "\nBefolgen Sie einfach die Anweisungen des Installationsskripts " "um dieses Modul auf Ihrem System zu installieren. " )) (set #prompt_modulelocation "Wo haben Sie Ihre Garshneblanker Module installiert?") (set #help_modulelocation (cat "Garshneblanker installiert seine Module normalerweise " "im Verzeichnis \"SYS:WBStartUp/Blankers\". " "\nWenn Sie jetzt nicht wissen, wo die Module versteckt " "sind, sollten Sie sie sofort suchen. " "\n(Suchen Sie nach dem Verzeichnis, in dem die Datei " "\"PrefInterP\" zu finden ist.) " "\nLivingShuffle wird direkt in das von Ihnen ausgewählte " "Verzeichnis kopiert." "\n\n" @askdir-help )) (set #stat_checkversion "Suche eine eventuell vorhandene Version LivingShuffles.") (set #abort_moddirnotexisting (cat "Fehler!! " "\nSie sollten ein existierendes Verzeichnis angeben. " "Es muß das Verzeichnis sein, in dem Garshneblanker " "seine Module installiert hat. " "\nFinden Sie es, und starten Sie die Installation neu. " "Wenn Sie nicht wissen, wo diese Module zu finden sind, " "suchen Sie nach einem Verzeichnis, das die Datei " "\"PrefInterP\" enthält. Dorthin muß auch dieses Modul." )) (set #prompt_foundnewerversion1 "Version ") (set #prompt_foundnewerversion2 " LivingShuffles ist bereits installiert. Installiere ältere (oder gleichalte) Version ") (set #prompt_foundnewerversion3 " ?") (set #help_foundnewerversion (cat "Die aktuelle oder eine neuere Version LivingShuffles ist " "bereits installiert. Möchten Sie LivingShuffle trotzdem " "installieren, klicken Sie bitte \"Installieren\". Wenn Sie die " "veraltete Version nicht installieren möchten, klicken " "Sie \"Abbruch\". " )) (set #abort_foundnewerversion (cat "Die aktuelle oder eine neuere Version LivingShuffles ist " "bereits installiert. " "\nDiese wird nicht überschrieben. " "\nMöchten Sie das unbedingt tun, starten Sie das Skript " "im \"Expert\" Modus nocheinmal." )) (set #prompt_foundoldversion "Eine ältere Version ") (set #prompt_foundoldversion " LivingShuffles ist bereits installiert. Installiere neuere Version ") (set #prompt_foundoldversion "?") (set #help_foundoldversion (cat "Eine ältere Version LivingShuffles ist bereits installiert. " "Wenn Sie nun die neuere Version von LivingShuffle " "installieren möchten klicken Sie bitte \"Installieren\". " "Wenn Sie lieber die veraltete Version behalten möchten, " "klicken Sie bitte auf \"Abbruch\"." "\n\n" @askbool-help )) (set #abort_foundoldversion (cat "Ältere Version LivingShuffles bereits installiert. " "\nSie entschieden sich, diese zu behalten. " "\nWarum?? (Nun gut, Sie haben das Sagen ;-) " )) (set #prompt_cpuchoice "Für welche cpu möchten Sie das Modul installieren?") (set #help_cpuchoice (cat "Sie werden gefragt, welche Version des Modules installiert " "werden soll. Normalerweise sollten Sie einfach auf \"OK\" " "klicken, da der Installer bereits Ihren Amiga nach der " "CPU gefragt hat und die korrekte Auswahl vorselektiert hat. " "Wenn Sie aber diese Entscheidung ändern möchten, wählen Sie " "nur eine Version aus, die über der Angebotenen steht. " "Wenn Sie z.B. einen 68020 Prozessor haben, sollten Sie nur " "zwischen der 68020 oder der 68000 Version wählen. Die 68030 " "Version verursachte höchstwahrscheinlich Programmabstürze." "\nVermissen Sie eine Version für einen neueren Prozessor, " "dann schicken Sie bitte eine email an: " "\nschmiegel@cip.rog.rwth-aachen.de " "\n\n" @askchoice-help )) (set #stat_copynewversion "Kopiere neue Version...") (set #prompt_copymodexe "Kopiere das Modul nach ") (set #prompt_copymodexerenaming "\n(Es wird in \"LivingShuffle\" umbenannt werden.)") (set #help_copymodexe1 " ist das ausführbare Modul für den ") (set #help_copymodexe2 (cat " und alle nachfolgenden Prozessoren. " "\n\n" @copyfiles-help )) (set #prompt_copyneeded "Kopiere die Dateien, die das Modul benötigt nach ") (set #help_copyneeded (cat "LivingShuffle.ifc ist unbedingt nötig," "\nLivingShuffle.prefs sind die Standardeinstellungen," "\nLivingShuffle.txt ist benötigte Kurzbeschreibung" "\n\n" )) (set #prompt_askifcopydoc "Möchten Sie auch die Dokumentation installieren?") (set #help_askifcopydoc (cat "Die Installation der Dokumentation kann ich nur " "empfehlen. Sie enthält z.B. eine komplette " "Beschreibung aller Parameter des Moduls. " "\nSie werden gefragt werden, wo Sie sie " "ablegen wollen. " "\nKlicken Sie auf \"Ja\" wenn Sie sie wollen, ansonsten " "auf \"Nein\". " "\n\n" )) (set #stat_copydocumentation "Kopiere Dokumentation...") (set #prompt_copydocumentation "Wohin möchten Sie gerne die Dokumentation kopieren? (Es wird kein Unterverzeichnis erzeugt.)") (set #help_copydocumentation (cat "Sie können die Dokumentation ablegen, wo Sie " "wollen :) " "\nWenn Sie auch die Entwicklerdateien installieren, " "werden Sie noch einmal gefragt, ob Sie diese " "Dokumentation kopieren möchten. Sie können in " "diesem Falle also diesen Teil überspringen. " "\n\n" )) (set #prompt_actualdoccopy "Kopiere Modul Dokumentation nach ") (set #help_actualdoccopy "LivingShuffle.guide ist die Dokumentation\n\n") (set #stat_copydev "Kopiere Entwicklerdateien...") (set #prompt_askifcopydev "Möchten Sie die Dateien für Entwickler auch kopieren?") (set #help_askifcopydev (cat "Diese Dateien benötigen Sie nur dann, wenn Sie " "vorhaben ein Modul selbst zu verbessern. Bevor " "Sie aber damit anfangen, empfehle ich Ihnen erst " "einmal mit mir via email in Kontakt zu treten. Vielleicht " "hat ja schon irgendjemand genau die Veränderungen " "vorgenommen, die Sie programmieren wollen. " "Sie könnten eine Menge Zeit sparen ;-) " "\nDer Sourcecode wurde in C programmiert. " "\nSie werden gefragt werden, wo Sie die Dateien " "ablegen wollen. Das Entwicklerpaket umfasst den " "Sourcecode, die Dokumentation und die üblichen anderen " "Modul Dateien. " "\nKlicken Sie auf \"Ja\" wenn Sie sie wollen, ansonsten " "auf \"Nein\". " "\n\n" )) (set #prompt_devdestination "Wo möchten Sie die Entwicklerdateien ablegen? (Ein Unterverzeichnis \"LivingShuffle\" wird dort erzeugt.) ") (set #help_devdestination (cat "Sie sollten das Verzeichnis anwählen, wo auch die " "anderen Modul-Entwicklerdateien abgelegt sind. " "Jeder andere Ort ist zwar auch möglich, bereitet " "Ihnen aber nur mehr Arbeit. " "\nNormalerweise lautet der Pfad ungefähr so: " "\nDEV:Garshneblanker/Blankers " "\n\n" )) (set #prompt_copydev "Kopiere Entwickler Dateien nach ") (set #help_copydev (cat "blank.c C Sourcecode," "\nLivingShuffle.ifc Voreinstellerbeschreibung," "\nLivingShuffle.txt Kurzbeschreibung," "\nLivingShuffle_rev.h Versionen header," "\nLOCAL_SCOPTIONS sind die Compiler" "\nSCOPTIONS Optionen des Moduls" "\n\n" )) (set #prompt_copydevdoc "Kopiere Dokumentation nach ") (set #help_copydevdoc (cat "LivingShuffle.guide ist die Dokumentation (Die " "\n standart Moduldokumentation) " "\n\n" )) (set #exit_byebyetxt (cat "Installation erfolgreich beendet! " "\nSollte Garshneblanker im Moment aktiv sein, können " "Sie dieses Modul direkt in seine Modulliste aufnehmen, " "indem Sie in Garshneblankers Hauptfenster \"Settings\" " "und dann - im Icon-Fenster - \"Cancel\" anklicken. " "\"LivingShuffle\" sollte dann in der Liste auftauchen." "\nHilfe zu den Parametern finden Sie in der Dokumentation " "unter \"Parameter\"." )) ) ( ;use english texts (set #choice_install "install") (set #choice_cancel "cancel") (set #choice_68000 "68000 (and above)") (set #choice_68020 "68020 (and above)") (set #choice_68030 "68030 (and above)") (set #txt_welcome1 "Welcome to the LivingShuffle ") (set #txt_welcome2 (cat " installer script. " "\n\nAs you'll probably know, this is a module for the " "Garshneblanker screensaver. If you don't have Garshneblanker, this " "module is completely useless." "\nFollow the installer script's instructions to install " "this screen blanking module on your system. " )) (set #prompt_modulelocation "Where have you installed your Garshneblanker modules?") (set #help_modulelocation (cat "Garshneblanker installs its blankers normally in the " "directory \"SYS:WBStartUp/Blankers\". " "\nIf you don't know " "where your modules are look for them now! " "\n(Search for the directory containing the file \"PrefInterP\".) " "\nLivingShuffle will be directly put in the directory you choose." "\n\n" @askdir-help )) (set #stat_checkversion "Checking for previously installed version of LivingShuffle.") (set #abort_moddirnotexisting (cat "Error!! " "\nYou should have specified an existing directory. " "This must be the directory where Garshneblanker " "has installed its screen blanking modules. " "\nFind it, and start this script again. " "If you don't know where your modules are " "search for the directory containing the file \"PrefInterP\"." )) (set #prompt_foundnewerversion1 "Newer or equal version ") (set #prompt_foundnewerversion2 " of LivingShuffle already installed. Install version ") (set #prompt_foundnewerversion3 " anyway?") (set #help_foundnewerversion (cat "An equal or newer version of LivingShuffle is already " "installed. If you would like to install LivingShuffle " "anyway, click 'Install'. If you don't want to install " "the older LivingShuffle, click 'Cancel'. " )) (set #abort_foundnewerversion (cat "Equal or newer version of LivingShuffle already installed. " "\nThat version won't be overwritten. " "\n(If you wanted to do exactly that please start this script " "again and use the \"Expert\" mode.) " )) (set #prompt_foundoldversion "Old version ") (set #prompt_foundoldversion " of LivingShuffle already installed. Install newer version ") (set #prompt_foundoldversion "?") (set #help_foundoldversion (cat "An older version of LivingShuffle is already " "installed. If you would like to install the newer LivingShuffle, " "click 'Install'. If you don't want to install " "LivingShuffle, click 'Cancel'." "\n\n" @askbool-help )) (set #abort_foundoldversion (cat "Older version of LivingShuffle already installed. " "\nYou denied overwriting that obsolete version. " "\nWhy?? (But ok, you're the boss.) " )) (set #prompt_cpuchoice "For which cpu do you want to install the module?") (set #help_cpuchoice (cat "You are asked which version of the module executable " "should be installed. Normally you should simply click " "on \"OK\" because this installer script checked your " "Amiga for its CPU and selected already the appropriate " "choice. If you really want to change this decision, only " "select a choice above the proposed one. Say you've got " "a 68020. Then you should only install the 68020 or the " "68000 version of this file. The 68030 version would " "most probably lead to system failures." "\nIf you miss a version for a newer processor contact the " "author at: " "\nschmiegel@cip.rog.rwth-aachen.de " "\n\n" @askchoice-help )) (set #stat_copynewversion "Copying new version...") (set #prompt_copymodexe "Copying the module executable to ") (set #prompt_copymodexerenaming "\n(It will be renamed as \"LivingShuffle\")") (set #help_copymodexe1 " is the executable for the ") (set #help_copymodexe2 (cat " and all succeeding processors. " "\n\n" @copyfiles-help )) (set #prompt_copyneeded "Copying the module's needed files to ") (set #help_copyneeded (cat "LivingShuffle.ifc is the prefs description, " "\nLivingShuffle.prefs are the default module prefs, " "\nLivingShuffle.txt is the short module info file " "\n\n" )) (set #prompt_askifcopydoc "Do you want to install the documentation?") (set #help_askifcopydoc (cat "I strongly recommend to install it. " "It contains for example a complete " "description of all parameters of the module. " "\nYou will be asked where to put the file. " "\nClick on \"Yes\" if you like explanative texts else " "click \"No\". " "\n\n" )) (set #stat_copydocumentation "Copying documentation...") (set #prompt_copydocumentation "Where would you like to install the documentation? (No subdirectory is created.)") (set #help_copydocumentation (cat "You can put the docs anywhere you like :) " "\nIf you're also going to install the developer files, " "you can safely skip this part. The developer " "files contain this documentation, too. " "\n\n" )) (set #prompt_actualdoccopy "Copying module documentation to ") (set #help_actualdoccopy "LivingShuffle.guide is the documentation\n\n") (set #stat_copydev "Copying developer files...") (set #prompt_askifcopydev "Would you like to install the source code, too?") (set #help_askifcopydev (cat "You need the source code only, if you want to " "improve a module by yourself. Before you do that " "I recommend that you contact me first via email. " "Perhaps someone is already working on your idea " "and you can save your time :) " "\nThe source is written in C. " "\nYou will be asked where you want to place it and " "the accompanying documentation. " "\nClick \"Yes\" if you want them, else \"No\" " "\n\n" )) (set #prompt_devdestination "Where would you like to install the module sources? (A subdirectory \"LivingShuffle\" is created there.) ") (set #help_devdestination (cat "You should put these developer files where the other " "Module source directories are, for your own convenience. " "\nNormally this is somewhere like: " "\nDEV:Garshneblanker/Blankers " "\n\n" )) (set #prompt_copydev "Copying developer files to ") (set #help_copydev (cat "blank.c is the C source code, " "\nLivingShuffle.ifc is the prefs description, " "\nLivingShuffle.txt is the short module info file, " "\nLivingShuffle_rev.h is the version header, " "\nLOCAL_SCOPTIONS are the module's " "\nSCOPTIONS compiling options " "\n\n" )) (set #prompt_copydevdoc "Copying documentation to ") (set #help_copydevdoc (cat "LivingShuffle.guide is the documentation (the " "\n standard module documentation) " "\n\n" )) (set #exit_byebyetxt (cat "Installation succeeded! " "\nIf Garshneblanker is running right now, you can " "immediately add this module to its modulelist by " "clicking in Garshneblanker's main window on \"Settings\" " "and then - in the icon-window - on \"Cancel\". " "\"LivingShuffle\" should then appear in the list." "\nDetailed help to the parameters can be found in the documentation " "at \"Parameter\"." )) ) ) ;-------------------------- Get installer's version ------------------------ (set #installerVer (/ @installer-version 65536)) (set #installerRev (- @installer-version (* #installerVer 65536))) ;-------------------------- Get new version number ------------------------- (set #newModuleVersion (getversion "LivingShuffle")) (set #newVer (/ #newModuleVersion 65536)) (set #newRev (- #newModuleVersion (* #newVer 65536))) ;----------------------------- welcome the user ----------------------------- (welcome) (message #txt_welcome1 ("%ld.%ld" #newVer #newRev) #txt_welcome2) ;-------------------------- Select modules directory ------------------------ (set #module-dest "SYS:WBStartup/Blankers") (set #module-dest (askdir (prompt #prompt_modulelocation) (help #help_modulelocation) (default #module-dest) ) ) ;--------------------------- Check old version ------------------------------ (working #stat_checkversion) (set #newModule "LivingShuffle") (if (exists #module-dest) (set #oldModule (tackon #module-dest "LivingShuffle")) (abort #abort_moddirnotexisting) ) (if (exists #oldModule) ( (set #oldModuleVersion (getversion #oldModule)) (set #oldVer (/ #oldModuleVersion 65536)) (set #oldRev (- #oldModuleVersion (* #oldVer 65536))) (if (<= #newModuleVersion #oldModuleVersion) ( (if (> @user-level 1) ;the new version should be saved (if (not (askbool (prompt #prompt_foundnewerversion1 ("%ld.%ld" #oldVer #oldRev) #prompt_foundnewerversion2 ("%ld.%ld" #newVer #newRev) #prompt_foundnewerversion3) (default 0) (choices #choice_install #choice_cancel) (help #help_foundnewerversion) )) (exit #abort_foundnewerversion (quiet)) ) (exit #abort_foundnewerversion (quiet)) ) ) ( (if (> @user-level 1) ;the old version should be replaced (if (not (askbool (prompt #prompt_foundoldversion1 ("%ld.%ld" #oldVer #oldRev) #prompt_foundoldversion2 ("%ld.%ld" #newVer #newRev) #prompt_foundoldversion3) (default 1) (choices #choice_install #choice_cancel) (help #help_foundoldversion) )) (exit #abort_foundoldversion (quiet)) ) ) ) ) ) ( ;no LivingShuffle installed so far (set #oldModuleVersion (+ (* 65536 1) 0)) ) ) (complete 20) ;--------------------------------- check cpu of amiga ----------------------- (set #cpu (database "cpu")) (set #cpudefault (if (patmatch "68000|68010" #cpu) 0 (if (= "68020" #cpu) 1 (if (= "68030" #cpu) 2 2 ;as long as I haven't got a higher cpu ) ) ) ) (if (> @user-level 1) ;only ask user this question if he's an expert ( ;ask user, if that's ok (set #cpuno (askchoice (prompt #prompt_cpuchoice) (help #help_cpuchoice) (choices #choice_68000 #choice_68020 #choice_68030) (default #cpudefault) ) ) ) (set #cpuno #cpudefault) ) (set #cpufile (if (= #cpuno 0) ("LivingShuffle") (if (= #cpuno 1) ("LivingShuffle020") (if (= #cpuno 2) ("LivingShuffle030") ;next would be number 4, then 8, ..., so no select here! ) ) ) ) ;------------------------------------ copy module --------------------------- (working #stat_copynewversion) (copyfiles (prompt #prompt_copymodexe #module-dest (if (= #cpuno 0) "" #prompt_copymodexerename) ) (help #cpufile #help_copymodexe1 #cpu #help_copymodexe2 @copyfiles-help) (source #cpufile) (dest #module-dest) (newname "LivingShuffle") (confirm) (files) ;no subdirs (infos) ;take icons, too (noposition) ) ;--------------------------------- copy *.(ifc|prefs|txt) ------------------- (copyfiles (prompt #prompt_copyneeded #module-dest) (help #help_copyneeded @copyfiles-help) (source "") (choices "LivingShuffle.ifc" "LivingShuffle.prefs" "LivingShuffle.txt") (dest #module-dest) (confirm) (files) ;no subdirs (infos) ;take icons, too (noposition) ) (complete 40) ;------------------------------------- documentation ------------------------ (working #stat_copydocumentation) (if (askbool (prompt #prompt_askifcopydoc) (default 1) (help #help_askifcopydoc) ) ( (set #doc-dest "Docs:") (set #doc-dest (askdir (prompt #prompt_copydocumentation) (help #help_copydocumentation @askdir-help) (default #doc-dest) ) ) (copyfiles (prompt #prompt_actualdoccopy #doc-dest) (help #help_actualdoccopy @copyfiles-help) (source "") (choices "LivingShuffle.guide") (dest #doc-dest) (confirm) (infos) ;icons, too (noposition) ) ) ) (complete 60) ;------------------------------------- source code -------------------------- (working #stat_copydev) (if (askbool (prompt #prompt_askifcopydev) (default 1) (help #help_askifcopydev) ) ( (set #dev-dest "Dev:Garshneblanker/Blankers") (set #dev-dest (askdir (prompt #prompt_devdestination) (help #help_devdestination @askdir-help) (default #dev-dest) ) ) (set #dev-dest (tackon #dev-dest "LivingShuffle")) (copyfiles (prompt #prompt_copydev #dev-dest) (help #help_copydev @copyfiles-help) (source "Dev/") (choices "blank.c" "LivingShuffle.ifc" "LivingShuffle.txt" "LivingShuffle_rev.h" "LOCAL_SCOPTIONS" "SCOPTIONS") (dest #dev-dest) (if (> @user-level 1) (confirm)) (infos) ;icons, too (noposition) ) (copyfiles (prompt #prompt_copydevdoc #dev-dest) (help #help_copydevdoc @copyfiles-help) (source "") (choices "LivingShuffle.guide") (dest #dev-dest) (if (> @user-level 1) (confirm)) (infos) ;icons, too (noposition) ) ) ) ;------------------------------------ end ----------------------------------- (complete 100) (exit #exit_byebyetxt)