home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / MAXONTWIST2.07A.DMS / in.adf / INSTALL-MaxonTWIST-HD < prev    next >
Encoding:
Text File  |  1994-11-24  |  13.2 KB  |  408 lines
  1. ; $VER: MaxonTWIST Install Version 2.5 (24.11.94)
  2. ; Script zum Installieren von MaxonTWIST 2 auf Festplatte
  3. ; Dipl.-Ing. Michael Giebel (:-{==
  4. ;
  5. ;============================
  6. ;=== Deutsche Erklärungen ===
  7. ;============================
  8. (set #introduction
  9. (cat "Mit diesem Programm wird \n\n MaxonTWIST 2\n\n auf einer "
  10.      "Festplatte installiert.\nDie komplette Installation läuft "
  11.      "nahezu vollständig automatisch ab.\n"
  12.      "Drücken Sie \"Proceed\", um mit der Installation fortzufahren.\n"
  13.      "Drücken Sie \"Abbruch\", um die Installation abzubrechen."))
  14. (set #askdir-help
  15. (cat "\nWählen Sie zuerst die Partition Ihrer Festplatte aus, auf der "
  16.      "Sie gerne MaxonTWIST installieren möchten. Danach klicken Sie "
  17.      "auf \"MAKE NEW DRAWER\" und geben hinter dem Doppelpunkt den "
  18.      "Namen des Verzeichnisses an (z.B. WORK:TWIST2). Dann drücken Sie "
  19.      "auf \"PROCEED\" und das Programm beginnt mit der Arbeit.\n\n"
  20.      "Beschreibung der Schalter:\n\n"
  21.      "Der große \"Rollbereich\" in der Mitte des Fensters zeigt den "
  22.      "Inhalt der aktuellen Diskette oder des aktuellen Verzeichnisses. "
  23.      "Schubladen werden durch\ndie invertierten Buchstaben \"DRW\" vor "
  24.      "deren Namen gekennzeichnet. Der Name der Diskette oder des "
  25.      "Verzeichnisses, das dargestellt wird, erscheint darunter in einem "
  26.      "hervorgehobenen Kasten. Auf der rechten Seite des Inhaltsfeldes "
  27.      "befindete sich ein Schieber, mit dem man sich durch eine "
  28.      "Verzeichnis- liste bewegen kann, falls der sichtbare Platz nicht für "
  29.      "alle Einträge ausreicht.\n\n"
  30.      "Man kann das aktuelle Verzeichnis wechseln, indem auf den Namen "
  31.      "einer Schublade geklickt wird.\n\n"
  32.      "Mit dem Schalter \"Parent Drawer\" gelangt man wieder in das "
  33.      "übergeordnete Verzeichnis (von dem aus eine Schublade angeklickt "
  34.      "wurde.)\n\n"
  35.      "Der Schalter \"Show Drives\" zeigt alle am Amiga ange- schlossenen "
  36.      "Geräte (z.B. Disketten- oder Fest- platten-Laufwerke) an. Klicken "
  37.      "auf einen Namen, um sich den Inhalt des betreffenden Gerätes "
  38.      "anzusehen.\n\n"
  39.      "Über den Schalter \"Make New Drawer\" können Sie ein neues "
  40.      "Verzeichnis erzeugen. Diese neue Schublade\nwird in dem Verzeichnis "
  41.      "angelegt, das Sie soeben betrachten.\n\n"
  42.      "Mit dem Schalter \"Proceed\" erklären Sie sich mit dem eingestellten "
  43.      "Verzeichnis zufrieden und fahren mit der Installation fort.\n\n"
  44.      "Ein Klick auf den Schalter \"Abort Install\" bricht die Installation "
  45.      "an dieser Stelle ab. Es werden keine weiteren Änderungen mehr "
  46.      "vorgenommen.\n\n"
  47.      "\"Help...\" zeigt diesen Text."))
  48. (set #help-startup
  49. (cat "Die Datei \"user-startup\" befindet sich im Verzeichnis \"S:\". "
  50.      "In ihr befinden sich spezielle Kommandos, die einige Programme "
  51.      "bereits beim Systemstart ausführen.\n\n"
  52.      "Wenn Sie auf den Schalter \"Proceed\" klicken, so wird Ihre "
  53.      "\"user-startup\" automatisch um die angezeigten Zeilen ergänzt. "
  54.      "Wollen Sie jedoch diesen Teil überspringen, so klicken Sie auf "
  55.      "den Schalter \"Skip This Part\"\n\n"
  56.      "\"Abort\" bricht die Installation an dieser Stelle ab."))
  57. (set #help-delete
  58. (cat "Die Datei \"Assigns\" ist nur nötig, wenn Sie keine Änderungen in der "
  59.      "User-Startup bzw. Startup-Sequence vorgenommen haben.\n\n"
  60.      "Wenn Sie auf den Schalter \"Proceed\" klicken, so wird die Datei "
  61.      "\"Assigns\" gelöscht.\n\n"
  62.      "Wollen Sie jedoch diesen Teil überspringen, so klicken Sie auf "
  63.      "den Schalter \"Skip This Part\". Die Datei \"Assigns\" bleibt im "
  64.      "Installationsverzeichnis erhalten.\n\n"
  65.      "\"Abort\" bricht die Installation an dieser Stelle ab."))
  66. (set #startup-help
  67. (cat "Erklärung der Schalter:\n\n"
  68.      "\"Install for Real\"\n"
  69.      "Dies veranlaßt den Installer, die Installation tatsächlich vorzunehmen.\n\n"
  70.      "\"Pretend to Install\"\n"
  71.      "Hiermit führt der Installer alle Schritte der Installation durch. "
  72.      "Allerdings werden keine Änderungen an irgendwelchen Dateien vorgenommen. "
  73.      "Man kann diese Option dazu verwenden, um zu sehen, was der Installer tun "
  74.      "wird, bevor man die eigentliche Installation veranlaßt. In Verbindung "
  75.      "mit dem Schalter \"Log File\" darunter erhält man außerdem eine komplette "
  76.      "Liste über alle durchgeführten Aktionen.\n\n"
  77.      "\"Printer\"\n"
  78.      "Hiermit wird eine Liste aller Aktionen des Installers auf dem Drucker "
  79.      "ausgegeben.\n\n"
  80.      "\"Log File\"\n"
  81.      "Alle Aktionen des Installers werden in eine Protokolldatei geschrieben. Wenn "
  82.      "die Installation beendet ist, werden Sie über den Ort dieser Datei informiert. "
  83.      "Sie können diese Liste mit einem beliebigen Editor betrachten.\n\n"
  84.      "\"None\"\n"
  85.      "Ist dieser Schalter gedrückt, so wird keine Protokolldatei erzeugt.\n"))
  86. (set #no-inst
  87. (cat "\nDer Platz in dem von Ihnen gewählten Verzeichnis reicht nicht aus, um die "
  88.      "nötigsten MaxonTWIST-Dateien zu kopieren\n\n"
  89.      "!!! Die Installation wird abgebrochen !!!"))
  90. (set #no-ram
  91. (cat "\nDer Speicherplatz Ihres Computers reicht nicht aus, um "
  92.      "MaxonTWIST zu installieren und zu betreiben!\n\n"
  93.      "!!! Die Installation wird abgebrochen !!!"))
  94. (set #ERRORRAM (cat "Kann die notwendigen Dateien nicht in die Ram disk kopieren."))
  95. (set #COPYFILES (cat "\nKopiere Dateien!\n"))
  96. (set #COPVERZ
  97. (cat "Bitte wählen Sie das Verzeichnis, in das das\nTWIST-Programm installiert werden soll!\n"
  98.      "Ein Verzeichnis z.B. \"MaxonTWIST\" muß evtl. erzeugt werden!"))
  99. (set #TWDEFAULTS (cat "\n Kopiere die Default-Icons!\n"))
  100. (set #TWPROGRAMM (cat "\n Kopiere das TWIST Hauptprogramm!\n"))
  101. (set #TWUTIL (cat "\n Kopiere Icons und ARexx-Skripte!\n"))
  102. (set #TWSONSTIGES (cat "\n Kopiere Zusatzdateien!\n"))
  103. (set #TWDEMOS (cat "\nEntpacke die Beispiele nach\n\n"))
  104.  
  105. ;=================
  106. ;=== Variablen ===
  107. ;=================
  108.  
  109. (set @abort-button "Abbruch")
  110. (set @language "Deutsch")
  111.  
  112. (set Disk1 "MaxonTWIST2-1")
  113. (set Disk2 "MaxonTWIST2-2")
  114. (set source-lha "MaxonTWIST2-1:c/LHX")
  115. (set dest-lha "RAM:LHX")
  116.  
  117. ;=================
  118. ;===    MAIN   ===
  119. ;=================
  120.  
  121. (complete 0)
  122. (message #introduction)
  123. (welcome)
  124.  
  125. ; Verzeichnis aussuchen
  126. ;----------------------
  127. (set @default-dest
  128.     (askdir
  129.         (prompt #COPVERZ)
  130.         (help
  131.             "Sie wählen hier das Verzeichnis aus, in das MaxonTWIST und die Zusatzdateien "
  132.             "kopiert werden sollen. Eine Schublade wird NICHT automatisch erzeugt. Ein "
  133.             "separates Unterverzeichnis müssen Sie \"von Hand\" über den Schalter \"Make "
  134.             "New Drawer\" erzeugen.\n\n"
  135.             #askdir-help)
  136.         (default "WORK:")
  137.     )
  138. )
  139. (complete 1)
  140.  
  141. ; Verzeichnis erzeugen
  142. ;---------------------
  143. (if
  144.     (= (exists @default-dest) 0)
  145.     (makedir @default-dest
  146.         (safe)                                        ; auch bei scheinbarer Installation
  147.         (infos)
  148.     )
  149. )
  150. (complete 2)
  151.  
  152. ; zur Sicherheit nach Installationsdiskette fragen
  153. ;-------------------------------------------------
  154. (askdisk
  155.     (prompt "\n\n\nBitte legen Sie die Diskette \"MaxonTWIST2-1\" ein!")
  156.     (help "\nAuf Diskette 1 befindet sich das Hauptprogramm!")
  157.     (dest Disk1)
  158. )
  159. (complete 3)
  160.  
  161. ; LHX kopieren
  162. ;-------------
  163. (copyfiles
  164.     (prompt "Kopiere LHX in die RAM-Disk !"); was sieht der User
  165.     (help                                                ; der User drückt auf HELP
  166.         "Der Archivierer wird benötigt zum Entpacken zweier Beispieldatenbanken.\n\n"
  167.         @copyfiles-help)
  168.     (source source-lha)                            ; wo ist welche die Datei
  169.     (dest "RAM:")                                    ; wohin soll sie
  170.     (files)                                            ; nur Dateien kopieren
  171.     (confirm)                                        ; fragen im Expert-Modus
  172.     (safe)                                            ; auch im "scheinbar"-Modus
  173. )
  174. (complete 4)
  175.  
  176. ; TWIST2, TWIST2.info und TWIST.inf kopieren
  177. ;-------------------------------------------
  178. (copyfiles
  179.     (prompt "Kopiere das Programm \"MaxonTWIST2\" !")
  180.     (help
  181.         "Es werden das Hauptprogramm, sowie die Voreinstellungsdatei kopiert.\n\n"
  182.         @copyfiles-help)
  183.     (source "MaxonTWIST2-1:")
  184.     (dest @default-dest)
  185.     (pattern "TWIST#?")
  186.     (files)
  187.     (infos)                                            ; auch .info-Dateien kopieren
  188.     (confirm)
  189. )
  190. (complete 27)
  191.  
  192. ; SORTING.dat kopieren
  193. ;---------------------
  194. (copyfiles
  195.     (prompt "Kopiere die Datei \"sorting.dat\" !")
  196.     (help
  197.         "Die Datei \"sorting.dat\" enthält Informationen über die Reihenfolge, in der "
  198.         "MaxonTWIST2 Daten sortieren soll.\n\n"
  199.         @copyfiles-help)
  200.     (source "MaxonTWIST2-1:")
  201.     (dest @default-dest)
  202.     (pattern "sorting.dat")
  203.     (files)
  204.     (confirm)
  205. )
  206. (complete 28)
  207.  
  208. ; Liesmich und Liesmich.info kopieren
  209. ;------------------------------------
  210. (copyfiles
  211.     (prompt "Kopiere die Datei \"Liesmich\" !")
  212.     (help
  213.         "In der Datei \"Liesmich\" stehen WICHTIGE Informationen über Änderungen im Programm "
  214.         "gegenüber dem Handbuch.\n\nLesen Sie diese Datei unbedingt!\n\n"
  215.         @copyfiles-help)
  216.     (source "MaxonTWIST2-1:")
  217.     (dest @default-dest)
  218.     (pattern "Liesmic#?")
  219.     (files)
  220.     (infos)
  221.     (confirm)
  222. )
  223. (complete 29)
  224.  
  225. ; Inhalt und Inhalt.info kopieren
  226. ;--------------------------------
  227. (copyfiles
  228.     (prompt "Kopiere die Datei \"Inhalt\" !")
  229.     (help
  230.         "In der Datei \"Inhalt\" stehen Informationen zur Installation, dem Support, sowie "
  231.         "zum Urheberrechtsschutz\n\n"
  232.         @copyfiles-help)
  233.     (source "MaxonTWIST2-1:")
  234.     (dest @default-dest)
  235.     (pattern "Inhal#?")
  236.     (files)
  237.     (infos)
  238.     (confirm)
  239. )
  240. (complete 30)
  241.  
  242. ; Assigns und Assigns.info kopieren
  243. ;----------------------------------
  244. (copyfiles
  245.     (prompt "Kopiere die Datei \"Assigns\" !")
  246.     (help
  247.         "Die Datei \"Assigns\" wird benötigt, wenn Sie die für MaxonTWIST unbedingt "
  248.         "erforderlichen Zuweisungen nicht automatisch am Ende der Installation in der "
  249.         "Datei \"user-startup\" vornehmen lassen wollen.\n\n"
  250.         "Sie MÜSSEN dann jedes Mal vor dem Start von MaxonTWIST diese Datei starten!\n\n"
  251.         @copyfiles-help)
  252.     (source "MaxonTWIST2-1:")
  253.     (dest @default-dest)
  254.     (pattern "Assign#?")
  255.     (files)
  256.     (infos)
  257.     (confirm)
  258. )
  259. (complete 31)
  260.  
  261. ; RCT-LIB kopieren
  262. ;-----------------
  263. (copylib
  264.     (prompt "Kopiere die RCT-LIBRARY !")
  265.     (help
  266.         "Die RCT-Library enthält einen Standard-Filerequester "
  267.         "Wenn Sie diese Bibliothek schon auf Ihrer Festplatte "
  268.         "installiert haben, dann ist hier eine neuere Version.\n\n"
  269.         @copyfiles-help)
  270.     (source "MaxonTWIST2-1:libs/rct.library")
  271.     (dest "Libs:")
  272.     (confirm)
  273. )
  274. (complete 35)
  275.  
  276. ; ARexx-Programme kopieren
  277. ;-------------------------
  278. (if
  279.     (= (exists (tackon @default-dest "ARexx")) 0)
  280.     (makedir (tackon @default-dest "ARexx")
  281.         (safe)
  282.         (infos)
  283.     )
  284. )
  285. (copyfiles
  286.     (prompt "Kopiere die ARexx-Programme !")
  287.     (help
  288.         "Die Programme im Verzeichnis \"ARexx\" im MaxonTWIST-Ordner zeigen die "
  289.         "Leistungsfähigkeit dieser Sprache zusammen mit TWIST. Einige der Scripten "
  290.         "sind für den Gebrauch externer Dateien in einer MaxonTWIST-Datenbank "
  291.         "unabdingbar !\n\n"
  292.         @copyfiles-help)
  293.     (source "MaxonTWIST2-1:ARexx")
  294.     (dest (tackon @default-dest "Arexx"))
  295.     (all)                                                ; auch Unterverzeichnisse kopieren
  296.     (infos)
  297.     (confirm)
  298. )
  299. (complete 36)
  300.  
  301. ; Icons kopieren
  302. ;---------------
  303. (if
  304.     (= (exists (tackon @default-dest "Icons")) 0)
  305.     (makedir (tackon @default-dest "Icons")
  306.         (safe)
  307.         (infos)
  308.     )
  309. )
  310. (copyfiles
  311.     (prompt "Kopiere die MaxonTWIST-Piktogramme !")
  312.     (help
  313.         "Die Piktogramme im Verzeichnis \"Icons\" im MaxonTWIST-Ordner werden "
  314.         "verwendet z.B. für die Icons auf dem MaxonTWIST-Desktop. Aber auch in "
  315.         "einer Datensatzmaske können sie zum Einsatz kommen.\n\n"
  316.         @copyfiles-help)
  317.     (source "MaxonTWIST2-1:Icons")
  318.     (dest (tackon @default-dest "Icons"))
  319.     (all)
  320.     (infos)
  321.     (confirm)
  322. )
  323. (complete 39)
  324.  
  325. ; nach Diskette 2 fragen
  326. ;-----------------------
  327. (askdisk
  328.     (prompt "\n\n\nBitte legen Sie die Diskette \"MaxonTWIST2-2\" ein!")
  329.     (help "\nAuf Diskette 2 befinden sich die Beispiele!")
  330.     (dest Disk2)
  331. )
  332. (complete 40)
  333.  
  334. ; Demobeispiele entpacken
  335. ;------------------------
  336. (
  337.     (set @Working #TWDEMOS)
  338.     (set @Source "MaxonTWIST2-2:twist2bsp1.lha")
  339.     (set @Dest @default-dest)
  340.     (working @Working @Dest)
  341.     (run ("RAM:Lhx -x -a -N x %s \"%s/\"" @Source @Dest))
  342. )
  343. (complete 77)
  344.  
  345. ; Weitere Beispiele kopieren (<= Verz. BEISPIELE existiert seit Entpacken)
  346. ;---------------------------
  347. (if
  348.     (= (exists (tackon @default-dest "Beispiele")) 0)
  349.     (makedir (tackon @default-dest "Beispiele")
  350.         (safe)
  351.         (infos)
  352.     )
  353. )
  354. (copyfiles
  355.     (prompt "Kopiere weitere Beispiel-Dateien !")
  356.     (help
  357.         "Hier finden Sie Beispiele zu den verschiedenen Relationsarten, aber auch zum "
  358.         "Umgang mit externen Dateien.\n\n"
  359.         @copyfiles-help)
  360.     (source "MaxonTWIST2-2:Beispiele")
  361.     (dest (tackon @default-dest "Beispiele"))
  362.     (all)
  363.     (infos)
  364.     (confirm)
  365. )
  366. ;(complete 96)
  367.  
  368. ; LHX löschen (keine Spuren zurücklassen)
  369. ;------------
  370. (delete dest-lha
  371.     (optional "force")                            ; auch löschen, wenn schreibgeschützt
  372.     (safe)                                            ; wurde ja auch in jedem Fall kopiert
  373. )
  374. ;(complete 97)
  375.  
  376. ; STARTUP ändern
  377. ;---------------
  378. (set command1
  379. (cat  "ASSIGN TWIST: " @default-dest "\nASSIGN TWISTICON: TWIST:ICONS\n"))
  380. (set command1.txt
  381. (cat    "\n\n\nUm mit dem MaxonTWIST richtig arbeiten zu können, muß eine "
  382.         "Änderung an der User-Startup vorgenommen werden.\n\n"
  383.         command1))
  384. (startup "MaxonTWIST.app"
  385.     (prompt command1.txt)
  386.     (help #help-startup)
  387.     (command command1)
  388. )
  389. (complete 98)
  390.  
  391. ; ASSIGNS durchführen (=> sofort startbar)
  392. ;--------------------
  393. (makeassign "TWIST")
  394. (makeassign "TWIST" @default-dest)
  395. (makeassign "TWISTICON")
  396. (makeassign "TWISTICON" "TWIST:Icons")
  397. (complete 99)
  398.  
  399. ; FERTIG
  400. ;-------
  401. (message
  402. (cat    "Installation der Datenbank MaxonTWIST 2 beendet.\n"
  403.         "Falls die Zeilen:\n" command1 "\nnicht in Ihre Startup-Sequence bzw. "
  404.         "User-Startup eingefügt wurden, holen Sie dies bitte nach.\n\n"
  405.         "Entfernen Sie nun die Diskette aus Ihrem Laufwerk und starten Sie "
  406.         "MaxonTWIST 2.\n\nViel Erfolg!"))
  407. (complete 100)
  408.