home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / MAXONB31.DMS / in.adf / Install-MaxonBASIC_HD < prev    next >
Encoding:
Text File  |  1994-11-01  |  8.4 KB  |  387 lines
  1. ; $VER: MaxonBASIC Install Version 1.0 (26.10.94)
  2. ; Script zum Installieren von MaxonBASIC
  3. ; 
  4. ;============================
  5. ;=== Deutsche Erklärungen ===
  6. ;============================
  7. (set #introduction
  8. (cat "\nMit diesem Installationsprogramm können Sie\n\nMaxonBASIC\n\n auf einer "
  9.      "Festplatte installieren. Die komplette Installation läuft "
  10.      "automatisch ab. "
  11.      "Auf Ihrer Festplatte muß mindestens 1.5 MB Platz frei sein!\n\n"))
  12.  
  13. (set #startup-help
  14. (cat "Erklärung der Schalter:\n\n"
  15.      "\"Install for Real\"\n"
  16.      "Dies veranlaßt den Installer, die Installation tatsächlich vorzunehmen.\n\n"
  17.      "\"Pretend to Install\"\n"
  18.      "Hiermit führt der Installer alle Schritte der Installation durch. "
  19.      "Allerdings werden keine Änderungen an irgendwelchen Dateien vorgenommen. "
  20.      "Man kann diese Option dazu verwenden, um zu sehen, was der Installer tun "
  21.      "wird, bevor man die eigentliche Installation veranlaßt. In Verbindung "
  22.      "mit dem Schalter \"Log File\" darunter erhält man außerdem eine komplette "
  23.      "Liste über alle durchgeführten Aktionen.\n\n"
  24.      "\"Printer\"\n"
  25.      "Hiermit wird eine Liste aller Aktionen des Installers auf dem Drucker "
  26.      "ausgegeben.\n\n"
  27.      "\"Log File\"\n"
  28.      "Alle Aktionen des Installers werden in eine Protokolldatei geschrieben. Wenn "
  29.      "die Installation beendet ist, werden Sie über den Ort dieser Datei informiert. "
  30.      "Sie können diese Liste mit einem beliebigen Editor betrachten.\n\n"
  31.      "\"None\"\n"
  32.      "Ist dieser Schalter gedrückt, so wird keine Protokolldatei erzeugt.\n"))
  33.  
  34.  
  35. (set #askdir-help
  36. (cat "\nWählen Sie zuerst die Partition Ihrer Festplatte aus, auf der "
  37.      "Sie gerne MaxonBASIC installieren möchten. Sie müssen KEIN Verzeichnis "
  38.      "anlegen, da das Installationsprogramm dies automatisch macht! "
  39.  
  40.       "\nSie können über das Symbol 'Laufwerke anz.' (bzw. 'Show drives') "
  41.       "eine Übersicht über alle Laufwerke Ihres Amiga anfordern; aus "
  42.       "dieser Übersicht sollten Sie nur die oberen, nicht farblich "
  43.       "gekennzeichneten Einträge auswählen.\n"
  44.       "Typische sinnvolle Namen sind z.B. \"WORK:\", \"HD0:\" oder \"DH0:\"; "
  45.       "nicht verwenden sollten Sie Namen wie \"DF0:\", \"DF1:\", "
  46.       "\"DF2:\", \"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\", "
  47.       "\"WB_2.x:\", \"System3.0:\" oder \"WB_3.x:\"!"
  48.       "\n\n"
  49.       ))
  50.  
  51. (set #help-startup
  52. (cat "Die Datei \"user-startup\" befindet sich im Verzeichnis \"S:\". "
  53.      "In ihr befinden sich spezielle Kommandos, die einige Programme "
  54.      "bereits beim Systemstart ausführen.\n\n"))
  55.  
  56.  
  57. (set #no-inst
  58. (cat "\nDer Platz auf der von Ihnen gewählten Partition reicht nicht aus, um die "
  59.      "MaxonBASIC-Dateien zu kopieren\n\n"
  60.      "!!! Die Installation wird abgebrochen !!!"))
  61.  
  62.  
  63. (set #COPVERZ    (cat "\nAuf welcher Partition soll MaxonBASIC\nangelegt werden?"
  64.                           "\nDas Verzeichnis \"MaxonBASIC\" wird automatisch erzeugt!"
  65. ))
  66.  
  67. (set #SIZE 100000)
  68.  
  69. (set @language "Deutsch")
  70. (set @abort-button "Abbruch")
  71.  
  72. (set os-version (/ (getversion) 65536))
  73. (set os-13 (< os-version 36))
  74. (set os-20 (>= os-version 36))
  75. (set os-21 (>= os-version 38))
  76.  
  77.  
  78.  
  79. (Procedure Inst_NormFiles
  80.     (if (< (getdiskspace @Dest) @Size)
  81.         (abort #no-inst))
  82.  
  83.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
  84.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(choices @FName)(files)(infos)(dest @Dest)(confirm))
  85. )
  86.  
  87. (Procedure Inst_PatternFiles
  88.     (if (< (getdiskspace @Dest) @Size)
  89.         (abort #no-inst))
  90.  
  91.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
  92.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(pattern @Pattern)(infos)(dest @Dest)(confirm))
  93. )
  94.  
  95.  
  96.  
  97. (message #introduction)
  98. (welcome)
  99. (set old_level @user-level)
  100.  
  101. (complete 0)
  102.  
  103. (set @default-dest                           ; Verzeichnis aussuchen 
  104.     (askdir
  105.         (prompt #COPVERZ)
  106.         (help    #askdir-help)
  107.         (default "WORK:")
  108.     )
  109. )
  110.  
  111. (set @default-dest (tackon @default-dest "MaxonBASIC"))
  112. (set @default-src "MaxonBASIC:")
  113.  
  114.  
  115. (if                                          ; Verzeichnis erzeugen
  116.     (= (exists @default-dest) 0)
  117.     (makedir @default-dest)
  118. )
  119.  
  120.  
  121.     (askdisk
  122.         (prompt "\n\n\nBitte legen Sie die Diskette \"MaxonBASIC\" ein!")
  123.         (help #askdir-help)
  124.         (dest "MaxonBASIC")
  125.     )
  126.  
  127.  
  128.  
  129. (complete 5)
  130.  
  131. (if os-20
  132. (
  133.     (set @Source @default-src)
  134.     (set @Dest @default-dest)
  135.    (set @Pattern "MaxonBASIC")
  136.     (set @Size #SIZE)
  137.     (Inst_PatternFiles)
  138. )
  139. )
  140.  
  141. (if os-13
  142. (
  143.     (set @Source @default-src)
  144.     (set @Dest @default-dest)
  145.    (set @Pattern "MaxonBASIC_1.3")
  146.     (set @Size #SIZE)
  147.     (Inst_PatternFiles)
  148. )
  149. )
  150.  
  151.  
  152.  
  153. (complete 20)
  154.  
  155. (
  156.     (set @Source @default-src)
  157.     (set @Dest @default-dest)
  158.    (set @Pattern "HBC")
  159.     (set @Size #SIZE)
  160.     (Inst_PatternFiles)
  161. )
  162.  
  163. (
  164.     (set @Source @default-src)
  165.     (set @Dest @default-dest)
  166.    (set @Pattern "HBC.Opts")
  167.     (set @Size #SIZE)
  168.     (Inst_PatternFiles)
  169. )
  170.  
  171. (
  172.     (set @Source @default-src)
  173.     (set @Dest @default-dest)
  174.    (set @Pattern "mbasic.prefs")
  175.     (set @Size #SIZE)
  176.     (Inst_PatternFiles)
  177. )
  178.  
  179.  
  180. (complete 30)
  181.  
  182. (
  183.     (set @Source @default-src)
  184.     (set @Dest @default-dest)
  185.    (set @FName "MonAM")
  186.     (set @Size #SIZE)
  187.     (Inst_NormFiles)
  188. )
  189.  
  190. (
  191.     (set @Source @default-src)
  192.     (set @Dest @default-dest)
  193.    (set @FName "Inhalt")
  194.     (set @Size #SIZE)
  195.     (Inst_NormFiles)
  196. )
  197.  
  198.  
  199.  
  200. (if os-20
  201.  
  202. (copylib
  203.     (prompt "Die ASL-LIBRARY wird kopiert ...")
  204.     (help
  205.         "Die ASL-Library auf Ihrem Rechner ist für MaxonBASIC"
  206.       " zu alt oder nicht vorhanden. Sie erhalten eine aktuelle Version."
  207.         @copyfiles-help
  208.     )
  209.     (source "MaxonBASIC:libs/asl.library")
  210.     (dest "Libs:")
  211.     (confirm)
  212. )
  213.  
  214.  
  215. (copylib    
  216.     (prompt "Die IFFPARSE-LIBRARY wird kopiert ...")
  217.     (help
  218.         "Die IFFPARSE-Library auf Ihrem Rechner ist für MaxonBASIC"
  219.       " zu alt oder nicht vorhanden. Sie erhalten eine aktuelle Version."
  220.         @copyfiles-help
  221.     )
  222.     (source "MaxonBASIC:libs/iffparse.library")
  223.     (dest "Libs:")
  224.     (confirm)
  225. )
  226. )
  227.  
  228.  
  229. (copylib    
  230.     (prompt "Die HBASIC-LIBRARY wird kopiert ...")
  231.     (help
  232.         "Die HBASIC-Library auf Ihrem Rechner ist für MaxonBASIC"
  233.       " zu alt oder nicht vorhanden. Sie erhalten eine aktuelle Version."
  234.         @copyfiles-help
  235.     )
  236.     (source "MaxonBASIC:libs/hbasic2.library")
  237.     (dest "Libs:")
  238.     (confirm)
  239. )
  240.  
  241. (if os-13
  242.  
  243. (copylib                                            ; RCT-LIB kopieren
  244.     (prompt "Die ARP-LIBRARY wird kopiert ...")
  245.     (help
  246.         "Die ARP-Library auf Ihrem Rechner ist für MaxonBASIC"
  247.       " zu alt oder nicht vorhanden. Sie erhalten eine aktuelle Version."
  248.         @copyfiles-help
  249.     )
  250.     (source "MaxonBASIC:libs/arp.library")
  251.     (dest "Libs:")
  252.     (confirm)
  253. )
  254. )
  255.  
  256. (complete 40)
  257.  
  258. (
  259.     (set @Source @default-src)
  260.     (set @Dest @default-dest)
  261.    (set @FName "Debug")
  262.     (set @Size #SIZE)
  263.     (Inst_NormFiles)
  264.  
  265. )
  266.  
  267.  
  268.     (askdisk
  269.         (prompt "\n\n\nBitte legen Sie die Diskette \"MaxonBASIC Daten\" ein!")
  270.         (help "Legen Sie bitte die zweite Diskette ein und wählen Sie 'Proceed'!")
  271.         (dest "MB_Daten")
  272.     )
  273.  
  274.  
  275. (set @default-src "MB_Daten:")
  276.  
  277. (complete 50)
  278.  
  279. (
  280.     (set @Source @default-src)
  281.     (set @Dest @default-dest)
  282.    (set @FName "Beispiele_1.3")
  283.     (set @Size #SIZE)
  284.     (Inst_NormFiles)
  285. )
  286.  
  287. (complete 60)
  288.  
  289. (
  290.     (set @Source @default-src)
  291.     (set @Dest @default-dest)
  292.    (set @FName "Beispiele_2.0")
  293.     (set @Size #SIZE)
  294.     (Inst_NormFiles)
  295. )
  296.  
  297. (
  298.     (set @Source @default-src)
  299.     (set @Dest @default-dest)
  300.    (set @FName "Beispiele_2.1")
  301.     (set @Size #SIZE)
  302.     (Inst_NormFiles)
  303. )
  304.  
  305. (
  306.     (set @Source @default-src)
  307.     (set @Dest @default-dest)
  308.    (set @FName "Beispiele_3.0")
  309.     (set @Size #SIZE)
  310.     (Inst_NormFiles)
  311. )
  312.  
  313.  
  314. (complete 80)
  315.  
  316.  
  317.  
  318.     (working "Entpacke Includes & Dokumentation!\nBitte warten...")
  319.  
  320.     (set @TMP (tackon @default-src "includes.lha"))
  321.     (set @TMP2 (tackon @default-src "c/LHA"))
  322.  
  323.     (run ("%s -q x %s \"%s/\"" @TMP2 @TMP @default-dest))
  324.  
  325.  
  326.  
  327.     (set @TMP (tackon @default-src "docs.lha"))
  328.     (set @Dest_File (tackon @default-dest "Dokumentation"))
  329.     (set @TMP2 (tackon @default-src "c/LHA"))
  330.  
  331.     (makedir @Dest_File (infos))
  332.      (run ("%s -q x %s \"%s/\"" @TMP2 @TMP @Dest_File))
  333.  
  334.  
  335.  
  336.  
  337. (complete 95)
  338.  
  339.  
  340.  
  341.  
  342.     
  343.     (
  344.     ; ------- STARTUP ÄNDERN
  345.     
  346.     
  347.     (set command1 (cat "ASSIGN MBASIC: " "\"" @default-dest "\""))
  348.     (set command2 "PATH MBASIC: ADD")
  349.     (set command3 "ASSIGN BH: MBASIC:BH")
  350.     (set command4 "ASSIGN BMAP: MBASIC:BMAP")
  351.     (set command5 "ASSIGN MB_INCLUDES: MBASIC:")
  352.  
  353.     (set command1.txt
  354.         (cat 
  355.              "\n\n\nDie User-Startup muß um Pfadangaben für MaxonBASIC ergänzt werden.\n\n"
  356.         )
  357.     )
  358.     
  359.     (startup "MaxonBASIC"
  360.         (prompt command1.txt)
  361.         (help #help-startup)
  362.         (command command1)
  363.         (command (cat "\n" command2))
  364.         (command (cat "\n" command3))
  365.         (command (cat "\n" command4))
  366.         (command (cat "\n" command5))
  367.  
  368.     )
  369.     )
  370.  
  371.     (run command1)
  372.     (run command2)
  373.     (run command3)
  374.     (run command4)
  375.     (run command5)
  376.  
  377. (complete 100)
  378.  
  379. ; ------- FERTIG
  380.  
  381.  
  382.  
  383. (exit)
  384.  
  385. ;=============================================================================
  386.  
  387.