home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL1.DMS / in.adf / INSTALL-MaxonPASCAL-HD < prev    next >
Encoding:
Text File  |  1994-08-26  |  13.9 KB  |  480 lines
  1. ; $VER: MaxonPASCAL Install Version 1.0 (20.8.94)
  2. ; Script zum Installieren von MaxonPASCAL auf Festplatte
  3. ; 
  4. ;============================
  5. ;=== Deutsche Erklärungen ===
  6. ;============================
  7. (set #introduction
  8. (cat "Mit diesem Installationsprogramm können Sie\n\n MaxonPASCAL 3\n\n auf einer "
  9.      "Festplatte installieren.\nDie komplette Installation läuft "
  10.      "nahezu vollständig automatisch ab.\n"
  11.      "Das Compilersystem belegt ca. 2 MByte auf Ihrer Festplatte!\n\n"
  12.      "Drücken Sie \"Proceed\", um mit der Installation fortzufahren.\n"
  13.      "Drücken Sie \"Abort Install\", um die Installation abzubrechen."))
  14. (set #askdir-help
  15. (cat "\nWählen Sie zuerst die Partition Ihrer Festplatte aus, auf der "
  16.      "Sie gerne MaxonPASCAL 3 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:MaxonPASCAL). 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 MaxonPASCAL-Dateien zu kopieren\n\n"
  89.      "!!! Die Installation wird abgebrochen !!!"))
  90.  
  91. (set #ERRORRAM (cat "Kann die notwendigen Dateien nicht in die Ram disk kopieren."))
  92.  
  93. (set #COPYFILES (cat "\nKopiere Dateien!\n"))
  94. (set #COPVERZ    (cat "\nIn welches Verzeichnis soll MaxonPASCAL 3\nkopiert werden?\n\n"))
  95. (set #CPPINCLDEKOMP    (cat "\nDie Includes für Kickstart 3.0 werden kopiert!\n"))
  96. (set #CPPLIBDEKOMP    (cat "\nDie Units werden kopiert!\n"))
  97. (set #COPYDEMOS        (cat "\nKopiere die PASCAL-Demos\n"))
  98.  
  99. (set @CPPSIZE    0)
  100. (set @DEMOSIZE    0)
  101. (set @CPPINCLSIZE 0)
  102. (set @CPPLIBSIZE 0)
  103.  
  104. (set @abort-button "Abbruch")
  105. (set @language "Deutsch")
  106.  
  107. (Procedure Inst_NormFiles
  108. ;    (if (< (getdiskspace @Dest) @Size)
  109. ;        (abort #no-inst))
  110.  
  111.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
  112.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(choices @FName)(files)(infos)(dest @Dest)(confirm))
  113. )
  114.  
  115. (Procedure Inst_PatternFiles
  116.     (set @Dest_File (tackon @default-dest @Dest))
  117.     (if                                          ; Verzeichnis erzeugen
  118.         (= (exists @Dest_File) 0)
  119.         (makedir (@Dest_File) (infos))
  120.     )
  121.  
  122. ;    (if (< (getdiskspace @Dest) @Size)
  123. ;        (abort #no-inst))
  124.  
  125.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest_File))
  126.     (working @Working @Dest)
  127.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(pattern @Pattern)(infos)(dest @Dest_File)(confirm))
  128. )
  129.  
  130. (Procedure Inst_LhaFiles
  131.     (set @TMP (tackon "RAM:" @FName.lha))
  132.     (set @Dest_File (tackon @default-dest @Dest))
  133.     (if                                          ; Verzeichnis erzeugen
  134.         (= (exists @Dest_File) 0)
  135.         (makedir (@Dest_File)(infos))
  136.     )
  137.  
  138.     (copyfiles (prompt "")(help "")(source @Source)(choices @FName.lha)(dest "RAM:")(confirm))
  139.     (working @Working @Dest)
  140.     (run ("RAM:Lhx -E -N x %s \"%s/\"" @TMP @Dest_File))
  141.     (delete @TMP)
  142. )
  143.  
  144. (complete 0)
  145.  
  146. (message #introduction)
  147. (welcome)
  148.  
  149. (set @default-dest                           ;Verzeichnis aussuchen 
  150.     (askdir
  151.         (prompt #COPVERZ)
  152.         (help    #askdir-help)
  153.         (default "WORK:MaxonPASCAL")
  154.     )
  155. )
  156.  
  157. (if                                          ; Verzeichnis erzeugen
  158.     (= (exists @default-dest) 0)
  159.     (makedir @default-dest)
  160. )
  161.  
  162.  
  163.     (askdisk
  164.         (prompt "\n\n\nBitte legen Sie die Diskette \"MaxonPASCAL-D1\" ein!")
  165.         (help #askdir-help)
  166.         (dest "MaxonPASCAL-D1")
  167.     )
  168.  
  169.  
  170. (if
  171.    (= (exists "C:More") 0)
  172.     (copyfiles                                        ; More kopieren
  173.         (prompt "Einige Installationsdateien werden kopiert ...")
  174.         (help @copyfiles-help)
  175.         (source "MaxonPASCAL-D1:C")
  176.         (dest "C:")
  177.        (choices "More")
  178.     )
  179. )
  180.  
  181. ;(copyfiles                                            ; LHX kopieren
  182. ;    (prompt #COPYRAM)
  183. ;    (help @copyfiles-help)
  184. ;    (source "MaxonC++_Light1:LHX")
  185. ;    (dest "RAM:")
  186. ;   (choices "Lhx")
  187. ;)
  188.  
  189. ;(if(= 0 (exists "RAM:Lhx"))
  190. ;    (abort #ERRORRAM))
  191.  
  192. (complete 5)
  193.  
  194. (copylib                                            ; RCT-LIB kopieren
  195.     (prompt "Die RCT-LIBRARY wird kopiert ...")
  196.     (help
  197.         "Die RCT-Library beinhaltet den Standard-Filerequester "
  198.       "Wenn Sie diese Bibliothek schon auf Ihrer Festplatte "
  199.       "installiert haben, dann ist hier eine neuere Version.\n\n"
  200.         @copyfiles-help
  201.     )
  202.     (source "MaxonPASCAL-D1:libs/rct.library")
  203.     (dest "Libs:")
  204.     (confirm)
  205. )
  206.  
  207. (complete 5)
  208.  
  209. (copyfiles
  210.     (prompt "Die Datei INHALT wird kopiert")
  211.     (help @copyfiles-help)
  212.     (source "MaxonPASCAL-D1:")
  213.     (dest @default-dest)
  214.       (choices "INHALT")
  215. )
  216. (copyfiles
  217.     (prompt "Die Datei INHALT wird kopiert")
  218.     (help @copyfiles-help)
  219.     (source "MaxonPASCAL-D1:")
  220.     (dest @default-dest)
  221.       (choices "INHALT.info")
  222. )
  223.  
  224. (complete 10)
  225.  
  226. (set @Dest_File (tackon @default-dest "BIN"))
  227. (if                                          ; Verzeichnis erzeugen
  228.     (= (exists @Dest_File) 0)
  229.     (makedir (@Dest_File))
  230. )
  231.  
  232. (set @ARexx_File (tackon @Dest_File "ARexx"))
  233. (if                                          ; Verzeichnis erzeugen
  234.     (= (exists @ARexx_File) 0)
  235.     (makedir (@ARexx_File) (infos))
  236. )
  237.  
  238. (
  239.     (set @Source "MaxonPASCAL-D1:BIN")
  240.     (set @Dest "BIN")
  241.    (set @Pattern "#?")
  242.     (set @Size @CPPSIZE)
  243.     (Inst_PatternFiles)
  244. )
  245.  
  246. (complete 20)
  247.  
  248. (    (set @Working #COPYFILES)
  249.     (set @Dest @default-dest)
  250.     (set @Source "MaxonPASCAL-D1:")
  251.     (set @FName  "BIN.info")
  252.     (set @Size 0)
  253.     (Inst_NormFiles)
  254. )
  255.  
  256. ;(set @Dest_File (tackon @default-dest "BIN"))
  257.  
  258. ;(copyfiles
  259. ;    (prompt "Die Compiler- und Editordateien werden kopiert")
  260. ;    (help @copyfiles-help)
  261. ;    (source "MaxonPASCAL-D1:BIN")
  262. ;    (dest @Dest_File)
  263. ;      (choices "EDWARD")
  264. ;)
  265.  
  266. ;(copyfiles
  267. ;    (prompt "Die Compiler- und Editordateien werden kopiert")
  268. ;    (help @copyfiles-help)
  269. ;    (source "MaxonPASCAL-D1:BIN")
  270. ;    (dest @Dest_File)
  271. ;      (choices "EDWARD.DEF")
  272. ;)
  273. ;(copyfiles
  274. ;    (prompt "Die Compiler- und Editordateien werden kopiert")
  275. ;    (help @copyfiles-help)
  276. ;    (source "MaxonPASCAL-D1:BIN")
  277. ;    (dest @Dest_File)
  278. ;      (choices "EDWARDDEFAULT.INFO")
  279. ;)
  280. ;(copyfiles
  281. ;    (prompt "Die Compiler- und Editordateien werden kopiert")
  282. ;    (help @copyfiles-help)
  283. ;    (source "MaxonPASCAL-D1:BIN")
  284. ;    (dest @Dest_File)
  285. ;      (choices "EDWARDRES.RCT")
  286. ;)
  287. ;(copyfiles
  288. ;    (prompt "Die Compiler- und Editordateien werden kopiert")
  289. ;    (help @copyfiles-help)
  290. ;    (source "MaxonPASCAL-D1:BIN")
  291. ;    (dest @Dest_File)
  292. ;      (choices "MCPP1.DEF")
  293. ;)
  294. ;(copyfiles
  295. ;    (prompt "Die Compiler- und Editordateien werden kopiert")
  296. ;    (help @copyfiles-help)
  297. ;    (source "MaxonPASCAL-D1:BIN")
  298. ;    (dest @Dest_File)
  299. ;      (choices "MPASCAL")
  300. ;)
  301. ;(copyfiles
  302. ;    (prompt "Die Compiler- und Editordateien werden kopiert")
  303. ;    (help @copyfiles-help)
  304. ;    (source "MaxonPASCAL-D1:BIN")
  305. ;    (dest @Dest_File)
  306. ;      (choices "MPASCAL.INFO")
  307. ;)
  308. ;(copyfiles
  309. ;    (prompt "Die Compiler- und Editordateien werden kopiert")
  310. ;    (help @copyfiles-help)
  311. ;    (source "MaxonPASCAL-D1:BIN")
  312. ;    (dest @Dest_File)
  313. ;      (choices "MPASCAL.RCT")
  314. ;)
  315. ;(copyfiles
  316. ;    (prompt "Die Compiler- und Editordateien werden kopiert")
  317. ;    (help @copyfiles-help)
  318. ;    (source "MaxonPASCAL-D1:BIN")
  319. ;    (dest @Dest_File)
  320. ;      (choices "MPASCAL3.DEF")
  321. ;)
  322.  
  323. (complete 30)
  324.  
  325. (set Mppref
  326.     (cat    "-X1,0,0,0,0,0\n"
  327.                 "-X3,0,0,0,0,0\n"
  328.                 "-X4,0,0,0,0,0\n"
  329.                 "-X5,0,0,592,212,1\n"
  330.                 "-X6,0,0,0,0,0\n"
  331.                 "-X7,0,0,0,0,0\n"
  332.                 "-X8,0,0,600,200,0\n"
  333.                 "-X10,0 -X11,0 -X13,0 -X14,0 -X15,0 -X16,20 -X18,0\n"
  334.                 "-X20,\"prt:\" -X21,\"\" -X22,\"pascal:bin/masm $*.asm -c clo -v $*.err\" -X23,\"pascal:bin/MaxonSDB <> CON:0/0/640/120/MaxonSDB\" -X24,\"\"\n"
  335.                 "-gR -gI -gB -gS -gv -ps -b0 -mX -i \"Pascal:include\" -u \"Pascal:unit\" -w200\n"
  336.                 "-lc\n"
  337.                 "-X\"Edward:Edward\"\n"
  338.                 "-M\"\"\n")
  339. )
  340. (working #wrk-create-pref-file)
  341. (set @Dest_File (tackon @default-dest "BIN/MPASCAL.SESSION"))
  342.  
  343. (textfile
  344.     (dest @Dest_File)
  345.     (append mppref)
  346. )
  347.  
  348. (complete 50)
  349.  
  350. (askdisk
  351.     (prompt "\n\n\nBitte legen Sie die Diskette \"MaxonPASCAL-D2\" ein!")
  352.     (help #askdir-help)
  353.     (dest "MaxonPASCAL-D2")
  354. )
  355.  
  356. (
  357.     (set @Working #CPPINCLDEKOMP)
  358.     (set @Source "MaxonPASCAL-D2:Include")
  359.     (set @Dest "Include")
  360.    (set @Pattern "#?")
  361.     (set @Size @DEMOSIZE)
  362.     (Inst_PatternFiles)
  363. )
  364. (complete 55)
  365.  
  366. (
  367.     (set @Working #CPPLIBDEKOMP)
  368.     (set @Source "MaxonPASCAL-D2:Unit")
  369.     (set @Dest "Unit")
  370.    (set @Pattern "#?")
  371.     (set @Size @DEMOSIZE)
  372.     (Inst_PatternFiles)
  373. )
  374. (complete 60)
  375.  
  376. (copyfiles                                        ; New_Open_Screen.Dok kopieren
  377.     (prompt "Die Datei New_Open_Screen.Dok wird kopiert")
  378.     (help @copyfiles-help)
  379.     (source "MaxonPASCAL-D2:")
  380.     (dest @default-dest)
  381.     (choices "New_Open_Screen.Dok")
  382. )
  383. (copyfiles                                        ; New_Open_Screen.Dok kopieren
  384.     (prompt "Die Datei New_Open_Screen.Dok wird kopiert")
  385.     (help @copyfiles-help)
  386.     (source "MaxonPASCAL-D2:")
  387.     (dest @default-dest)
  388.     (choices "New_Open_Screen.Dok.info")
  389. )
  390.  
  391. (copyfiles
  392.     (prompt "Der OS-2.x-KURS wird kopiert")
  393.     (help @copyfiles-help)
  394.     (source "MaxonPASCAL-D2:")
  395.     (dest @default-dest)
  396.       (choices "OS2.x_Kurs.guide")
  397. )
  398. (copyfiles
  399.     (prompt "Der OS-2.x-KURS wird kopiert")
  400.     (help @copyfiles-help)
  401.     (source "MaxonPASCAL-D2:")
  402.     (dest @default-dest)
  403.       (choices "OS2.x_Kurs.guide.info")
  404. )
  405.  
  406. (complete 65)
  407.  
  408. (askdisk
  409.     (prompt "\n\n\nBitte legen Sie die Diskette \"MaxonPASCAL-D3\" ein!")
  410.     (help #askdir-help)
  411.     (dest "MaxonPASCAL-D3")
  412. )
  413.  
  414. (
  415.     (set @Working #COPYDEMOS)
  416.     (set @Source "MaxonPASCAL-D3:DEMOS-OS1.3")
  417.     (set @Dest "DEMOS-OS1.3")
  418.    (set @Pattern "#?")
  419.     (set @Size @DEMOSIZE)
  420.     (Inst_PatternFiles)
  421. )
  422. (complete 70)
  423.  
  424. (
  425.     (set @Working #COPYDEMOS)
  426.     (set @Source "MaxonPASCAL-D3:DEMOS-OS2.0")
  427.     (set @Dest "DEMOS-OS2.0")
  428.    (set @Pattern "#?")
  429.     (set @Size @DEMOSIZE)
  430.     (Inst_PatternFiles)
  431. )
  432. (complete 80)
  433.  
  434. (
  435.     (set @Working #COPYDEMOS)
  436.     (set @Source "MaxonPASCAL-D3:DEMOS-OS2.1")
  437.     (set @Dest "DEMOS-OS2.1")
  438.    (set @Pattern "#?")
  439.     (set @Size @DEMOSIZE)
  440.     (Inst_PatternFiles)
  441. )
  442. (complete 90)
  443.  
  444. ; ------- STARTUP ÄNDERN
  445.  
  446. (set command1 (cat  "ASSIGN PASCAL: " @default-dest "\nASSIGN EDWARD: PASCAL:BIN" "\nPATH PASCAL:BIN ADD"))
  447.  
  448. (set command1.txt
  449.     (cat 
  450.          "\n\n\nUm mit dem MaxonPASCAL 3 korrekt arbeiten zu "
  451.       "können muß eine Änderung an der User-Startup vorgenommen werden.\n\n"
  452.          command1
  453.     )
  454. )
  455.  
  456. (startup "MaxonPASCAL.app"
  457.     (prompt command1.txt)
  458.     (help #help-startup)
  459.     (command command1)
  460. )
  461.  
  462. (makeassign "PASCAL")
  463. (makeassign "EDWARD")
  464. (makeassign "PASCAL" @default-dest)
  465. (makeassign "EDWARD" "PASCAL:BIN")
  466.  
  467. (complete 100)
  468.  
  469. ; ------- FERTIG
  470.  
  471. (message (cat 
  472.     "Installation des MaxonPASCAL Compilers beendet.\n"
  473.    "Falls die Zeilen:\n" command1 "\nnicht in Ihre Startup-Sequence bzw. "
  474.    "User-Startup eingefügt wurde, dann holen Sie dies bitte nach.\n\n"
  475.    "Entfernen Sie nun die Diskette aus Ihrem Laufwerk und starten Sie "
  476.    "MaxonPASCAL.\n\nViel Erfolg!")
  477. )
  478.  
  479.  
  480.