home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / MAXONB31.DMS / in.adf / Install-MaxonBASIC_Disk < prev    next >
Encoding:
Text File  |  1994-11-01  |  6.4 KB  |  234 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 Disketten "
  9.      "installieren. Die komplette Installation läuft "
  10.      "automatisch ab. "
  11.      "Damit die Installation korrekt abläuft, müssen Sie Ihren Rechner\n\n"
  12.      " mit einer Workbench-Diskette gebootet haben!"))
  13.  
  14. (set #startup-help
  15. (cat "Erklärung der Schalter:\n\n"
  16.      "\"Install for Real\"\n"
  17.      "Dies veranlaßt den Installer, die Installation tatsächlich vorzunehmen.\n\n"
  18.      "\"Pretend to Install\"\n"
  19.      "Hiermit führt der Installer alle Schritte der Installation durch. "
  20.      "Allerdings werden keine Änderungen an irgendwelchen Dateien vorgenommen. "
  21.      "Man kann diese Option dazu verwenden, um zu sehen, was der Installer tun "
  22.      "wird, bevor man die eigentliche Installation veranlaßt. In Verbindung "
  23.      "mit dem Schalter \"Log File\" darunter erhält man außerdem eine komplette "
  24.      "Liste über alle durchgeführten Aktionen.\n\n"
  25.      "\"Printer\"\n"
  26.      "Hiermit wird eine Liste aller Aktionen des Installers auf dem Drucker "
  27.      "ausgegeben.\n\n"
  28.      "\"Log File\"\n"
  29.      "Alle Aktionen des Installers werden in eine Protokolldatei geschrieben. Wenn "
  30.      "die Installation beendet ist, werden Sie über den Ort dieser Datei informiert. "
  31.      "Sie können diese Liste mit einem beliebigen Editor betrachten.\n\n"
  32.      "\"None\"\n"
  33.      "Ist dieser Schalter gedrückt, so wird keine Protokolldatei erzeugt.\n"))
  34.  
  35.  
  36. (set #askdir-help
  37. (cat "\nWählen Sie zuerst die Partition Ihrer Festplatte aus, auf der "
  38.      "Sie gerne MaxonBASIC installieren möchten. Sie müssen KEIN Verzeichnis "
  39.      "anlegen, da das Installationsprogramm dies automatisch macht! "
  40.  
  41.       "\nSie können über das Symbol 'Laufwerke anz.' (bzw. 'Show drives') "
  42.       "eine Übersicht über alle Laufwerke Ihres Amiga anfordern; aus "
  43.       "dieser Übersicht sollten Sie nur die oberen, nicht farblich "
  44.       "gekennzeichneten Einträge auswählen.\n"
  45.       "Typische sinnvolle Namen sind z.B. \"WORK:\", \"HD0:\" oder \"DH0:\"; "
  46.       "nicht verwenden sollten Sie Namen wie \"DF0:\", \"DF1:\", "
  47.       "\"DF2:\", \"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\", "
  48.       "\"WB_2.x:\", \"System3.0:\" oder \"WB_3.x:\"!"
  49.       "\n\n"
  50.       ))
  51.  
  52. (set #help-startup
  53. (cat "Die Datei \"user-startup\" befindet sich im Verzeichnis \"S:\". "
  54.      "In ihr befinden sich spezielle Kommandos, die einige Programme "
  55.      "bereits beim Systemstart ausführen.\n\n"))
  56.  
  57.  
  58. (set #no-inst
  59. (cat "\nDer Platz auf der von Ihnen gewählten Partition reicht nicht aus, um die "
  60.      "MaxonBASIC-Dateien zu kopieren\n\n"
  61.      "!!! Die Installation wird abgebrochen !!!"))
  62.  
  63.  
  64. (set #COPVERZ    (cat "\nAuf welcher Partition soll MaxonBASIC\nangelegt werden?"
  65.                           "\nDas Verzeichnis \"MaxonBASIC\" wird automatisch erzeugt!"
  66. ))
  67.  
  68. (set #SIZE 100000)
  69.  
  70. (set @language "Deutsch")
  71. (set @abort-button "Abbruch")
  72.  
  73. (set os-version (/ (getversion) 65536))
  74. (set os-13 (< os-version 36))
  75. (set os-20 (>= os-version 36))
  76. (set os-21 (>= os-version 38))
  77.  
  78.  
  79.  
  80. (Procedure Inst_NormFiles
  81.     (if (< (getdiskspace @Dest) @Size)
  82.         (abort #no-inst))
  83.  
  84.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
  85.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(choices @FName)(files)(infos)(dest @Dest)(confirm))
  86. )
  87.  
  88. (Procedure Inst_PatternFiles
  89.     (if (< (getdiskspace @Dest) @Size)
  90.         (abort #no-inst))
  91.  
  92.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
  93.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(pattern @Pattern)(infos)(dest @Dest)(confirm))
  94. )
  95.  
  96.  
  97.  
  98. (message #introduction)
  99. (welcome)
  100. (set old_level @user-level)
  101.  
  102. (complete 0)
  103.  
  104.  
  105. (if os-20
  106.  
  107. (copylib
  108.     (prompt "Die ASL-LIBRARY wird kopiert ...")
  109.     (help
  110.         "Die ASL-Library auf Ihrem Rechner ist für MaxonBASIC"
  111.       " zu alt oder nicht vorhanden. Sie erhalten eine aktuelle Version."
  112.         @copyfiles-help
  113.     )
  114.     (source "MaxonBASIC:libs/asl.library")
  115.     (dest "Libs:")
  116.     (confirm)
  117. )
  118.  
  119.  
  120. (copylib    
  121.     (prompt "Die IFFPARSE-LIBRARY wird kopiert ...")
  122.     (help
  123.         "Die IFFPARSE-Library auf Ihrem Rechner ist für MaxonBASIC"
  124.       " zu alt oder nicht vorhanden. Sie erhalten eine aktuelle Version."
  125.         @copyfiles-help
  126.     )
  127.     (source "MaxonBASIC:libs/iffparse.library")
  128.     (dest "Libs:")
  129.     (confirm)
  130. )
  131. )
  132.  
  133.  
  134. (copylib    
  135.     (prompt "Die HBASIC-LIBRARY wird kopiert ...")
  136.     (help
  137.         "Die HBASIC-Library auf Ihrem Rechner ist für MaxonBASIC"
  138.       " zu alt oder nicht vorhanden. Sie erhalten eine aktuelle Version."
  139.         @copyfiles-help
  140.     )
  141.     (source "MaxonBASIC:libs/hbasic2.library")
  142.     (dest "Libs:")
  143.     (confirm)
  144. )
  145.  
  146. (if os-13
  147.  
  148. (copylib                                            ; RCT-LIB kopieren
  149.     (prompt "Die ARP-LIBRARY wird kopiert ...")
  150.     (help
  151.         "Die ARP-Library auf Ihrem Rechner ist für MaxonBASIC"
  152.       " zu alt oder nicht vorhanden. Sie erhalten eine aktuelle Version."
  153.         @copyfiles-help
  154.     )
  155.     (source "MaxonBASIC:libs/arp.library")
  156.     (dest "Libs:")
  157.     (confirm)
  158. )
  159. )
  160.  
  161. (complete 30)
  162.  
  163.     (askdisk
  164.         (prompt "\n\n\nBitte legen Sie die Diskette \"MaxonBASIC Daten\" ein!")
  165.         (help "Legen Sie bitte die zweite Diskette ein und wählen Sie 'Proceed'!")
  166.         (dest "MB_Daten")
  167.     )
  168.  
  169.  
  170.  
  171. (set @default-src "MB_Daten:")
  172.  
  173.     (askdisk
  174.         (prompt "\n\n\nBitte legen Sie eine leere Diskette mit Namen \n"
  175.         "\"MB_Includes\" ein!")
  176.         (help "Formatieren Sie zunächst eine Diskette mit dem Namen \"MB_Includes\".\n"
  177.         "Legen Sie diese dann in das Laufwerk. Die Include-Dateien werden auf diese\n"
  178.         " Diskette entpackt.")
  179.         (dest "MB_Includes")
  180.     )
  181.  
  182. (set @default-dest "MB_Includes:")
  183.  
  184.  
  185. (complete 60)
  186.  
  187.     (working "Entpacke Includes!\nBitte warten...")
  188.  
  189.     (set @TMP (tackon @default-src "includes.lha"))
  190.     (set @TMP2 (tackon @default-src "c/LHA"))
  191.  
  192.     (run ("%s -q x %s \"%s\"" @TMP2 @TMP "MB_Includes:"))
  193.  
  194. (complete 75)
  195.  
  196. (set @default-src "MB_Daten:")
  197.  
  198.     (askdisk
  199.         (prompt "\n\n\nBitte legen Sie eine leere Diskette mit Namen \n"
  200.         "\"Dokumentation\" ein!")
  201.         (help "Formatieren Sie zunächst eine Diskette mit dem Namen \"Dokumentation\".\n"
  202.         "Legen Sie diese dann in das Laufwerk. Die Include-Dateien werden auf diese\n"
  203.         " Diskette entpackt.")
  204.         (dest "Dokumentation")
  205.     )
  206.  
  207.  
  208.     (working "Entpacke Dokumentation!\nBitte warten...")
  209.  
  210.  
  211. (set @default-dest "Dokumentation:")
  212.  
  213.  
  214.     (set @TMP (tackon @default-src "docs.lha"))
  215.     (set @TMP2 (tackon @default-src "c/LHA"))
  216.  
  217.      (run ("%s -q x %s \"%s\"" @TMP2 @TMP "Dokumentation:"))
  218.  
  219.  
  220.  
  221.  
  222.     
  223.  
  224. (complete 100)
  225.  
  226. ; ------- FERTIG
  227.  
  228.  
  229.  
  230. (exit)
  231.  
  232. ;=============================================================================
  233.  
  234.