home *** CD-ROM | disk | FTP | other *** search
- ; $VER: MaxonC++ V3.00.8 Install Version 3.1 (17.7.95)
- ; Script zum Installieren des Updates von MaxonC++ 3 auf Festplatte
- ;
-
- (complete 0)
-
- ; Die Versionsnummer und das Erstellungs-Datum der hier installierten
- ; C++ Version.
-
- (set cpp-version "3.00.7")
- (set cpp-date "(11 Juli 95)")
-
- ;====================================================================
- ; Einige Initialisierungen
- ;====================================================================
-
- (set @default-dest "")
-
- (set os-version (/ (getversion) 65536))
- (set os-13 (< os-version 36))
- (set os-20 (>= os-version 36))
- (set os-21 (>= os-version 38))
-
- (set totalmem (database "total-mem")) ; Diese schöne Funktion vereinfacht einiges
-
- ; Die Pfadnamen der Programme, die vom Installations-Skript aufgerufen werden.
-
- ;(set run-lha "RAM:LhX -a")
-
-
- ; Die Pfadnamen der einzelnen Quell-Dateien.
-
- (set source-muchmore "MaxonCPP3_D5:C/MuchMore")
- (set source-lhx "MaxonCPP3_D5:LHX/LHX")
- (set source-rctlib "MaxonCPP3_D5:Libs/rct.library")
- (set source-compiler "MaxonC++_V3.00.8_Update-D1:BIN")
- (set source-edwardconf "MaxonC++_V3.00.8_Update-D1:S/Edward.conf")
- (set source-readme "MaxonC++_V3.00.8_Update-D1:readme.first")
- (set source-msdb "MaxonC++_V3.00.8_Update-D2:BIN")
- (set source-lib "MaxonC++_V3.00.8_Update-D2:Lib")
- (set source-libsrc "MaxonC++_V3.00.8_Update-D2:Libsrc")
-
- ; Die benötigten Disketten
-
- (set #prp-insert-disk1
- (cat "\n\n\nBitte legen Sie nun die Diskette 1 \"MaxonC++_V3.00.8_Update-D1\" "
- "in ein beliebiges Laufwerk ein!"))
- (set #prp-insert-disk2
- (cat "\n\n\nBitte legen Sie nun die Diskette 2 \"MaxonC++_V3.00.8_Update-D2\" "
- "in ein beliebiges Laufwerk ein!"))
-
- (set #prp-copy-rct-lib
- "Kopieren der RCT-Library")
- (set #hlp-copy-rct-lib
- (cat "Die RCT-Library beinhaltet den Standard-Filerequester "
- "Wenn Sie diese Bibliothek schon auf Ihrer Festplatte "
- "installiert haben, dann ist hier eine neuere Version.\n\n"))
- (set #wrk-create-pref-file
- "\nDie Voreinstellungs-Datei wird erzeugt...")
-
- ; Die Größen der Text-Dateien.
-
- (set size-mcpp 420000)
- (set size-mcppc 279000)
- (set size-edward 180000)
- (set size-includes 1800000)
- (set size-libs 314000)
- (set size-classes 822000)
- (set size-classdemos 936000)
- (set size-debugger 622000)
- (set size-demos 426000)
- (set size-libsrc 518000)
- (set size-hh-projekte 880000)
-
- (set size-komplett (+ size-mcpp size-mcppc size-edward size-includes size-libs size-classes size-classdemos size-debugger size-demos size-libsrc size-hh-projekte))
-
- ;=====================================================================================
- ; Beginn der Installation
- ;=====================================================================================
-
- ; Eine kleine Einleitungs-Message, gefolgt vom Startbildschirm des Installers.
-
-
- ;(if (= (getassign "HOTHELP") "")
- ; (
- ; (abort (cat "\n\nBevor Sie das Compilersystem installieren "
- ; "sollten Sie die mitgelieferte HotHelp-Developer "
- ; "Version installieren. Anderenfalls können die "
- ; "HotHelp-Projekte zur Klassenbibliothek und die "
- ; "Compiler-Fehlermeldungen nicht kopiert werden!"))
- ;
- ; )
- ;)
-
- (message (cat "\nWillkommen zum Installationsprogramm von \n\n\"MaxonC++ "
- Update cpp-version " vom "cpp-date "\"!\n\n"
- "Dieses Skript kopiert die verschiedenen Dateien, "
- "aus denen sich das Update zusammensetzt, "
- "auf Ihre Festplatte.\n"))
-
-
- (welcome)
-
- (complete 5)
-
- ; Alte Version prüfen und entsprechende Warnung ausgeben! **************************************************************
-
- (if (<> (getassign "MCPP") "") ; Da ist kar keine C++-Version installiert!
- (
- (copyfiles
- (source source-compiler)
- (dest "MCPP:BIN")
- (pattern "#?")
- (prompt (cat "\nKopiere die neue Compilerversion 3.00.8\n\n"
- "in das Verzeichnis MCPP:BIN\n\n "))
- (help (cat "Bei Zustimmung wird der Compiler in das "
- "BIN-Verzeichnis kopiert."))
-
- (confirm)
- )
-
- (complete 30)
-
- (copyfiles
- (source source-readme)
- (dest "MCPP:")
- )
-
- (complete 40)
-
- (copyfiles
- (source source-edwardconf)
- (dest "S:")
- (prompt (cat "\nKopiere eine neue EDWARD-Konfiguration\n\n"
- "in das Verzeichnis S:\n\n "))
- (help (cat "Die Datei EDWARD.CONF wurde für den Compilerbetrieb."))
- (confirm)
- )
-
- (complete 50)
-
- ; Diskette 2 einlegen!
-
- (askdisk
- (prompt #prp-insert-disk2)
- (help #askdir-help)
- (dest "MaxonC++_V3.00.8_Update-D2")
- )
-
- (complete 60)
-
-
- (copyfiles
- (source source-msdb)
- (pattern "#?")
- (dest "MCPP:BIN")
- (prompt (cat "\nKopiere eine neue Debugger-Version\n\n"
- "in das Verzeichnis MCPP:BIN\n\n "))
- (help @copyfiles-help)
- (confirm)
- )
-
- (complete 70)
-
- (copyfiles
- (source source-lib)
- (pattern "#?")
- (dest "MCPP:LIB")
- (prompt (cat "\nKopiere veränderte Bibliotheken\n\n"
- "in das Verzeichnis MCPP:LIB\n\n "))
- (help @copyfiles-help)
- (confirm)
- )
-
- (complete 80)
-
- (copyfiles
- (source source-libsrc)
- (pattern "#?")
- (dest "MCPP:LIBSRC")
- (prompt (cat "\nKopiere die Sourcen der veränderten Bibliotheken\n\n"
- "in das Verzeichnis MCPP:LIBSRC\n\n "))
- (help @copyfiles-help)
- (confirm)
- )
-
-
- )
- (
- ( abort (cat "Das Update kann nur Installiert werden, "
- "wenn sich bereits eine ältere, korrekt Installierte "
- "Version auf Ihrem System befindet.\n\n"
- "Bitte installieren Sie zuerst von Ihren Original-Disketten."))
-
- )
- )
-
- (complete 100)
-
- ; ------- FERTIG
-
- (message (cat
- "Installation des MaxonC++ V3.00.8 Updates beendet.\n"
- "Lesen Sie bitte die Datei readme.first im Verzeichnis MCPP:"
- "\n\nViel Erfolg!")
- )
-
-