home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / FileMover / MAXT21.LHA / INSTALL-MaxonTOOLS2_HD < prev    next >
Encoding:
Text File  |  1995-11-03  |  10.4 KB  |  512 lines
  1. ; $VER: MaxonTOOLS Install Version 2.0 (4.11.95)
  2. ; Script zum Installieren von MaxonTOOLS 2
  3. ; 
  4. ;============================
  5. ;=== Deutsche Erklärungen ===
  6. ;============================
  7. (set #introduction
  8. (cat "\nMit diesem Installationsprogramm können Sie\n\nMaxonTOOLS 2\n\n auf einer "
  9.      "Festplatte installieren bzw. eine vorhandene Version updaten.\n"
  10.      "Auf Ihrer Festplatte muß mindestens 1.8 MB Platz frei sein!\n\n"))
  11.  
  12. (set #askdir-help
  13. (cat "\nWählen Sie zuerst die Partition Ihrer Festplatte aus, auf der "
  14.      "Sie gerne MaxonTOOLS 2 installieren möchten. Sie müssen KEIN Verzeichnis "
  15.      "anlegen, da das Installationsprogramm dies automatisch macht! "
  16.  
  17.       "\nSie können über das Symbol 'Laufwerke anz.' (bzw. 'Show drives') "
  18.       "eine Übersicht über alle Laufwerke Ihres Amiga anfordern; aus "
  19.       "dieser Übersicht sollten Sie nur die oberen, nicht farblich "
  20.       "gekennzeichneten Einträge auswählen.\n"
  21.       "Typische sinnvolle Namen sind z.B. \"WORK:\", \"HD0:\" oder \"DH0:\"; "
  22.       "nicht verwenden sollten Sie Namen wie \"DF0:\", \"DF1:\", "
  23.       "\"DF2:\", \"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\", "
  24.       "\"WB_2.x:\", \"System3.0:\" oder \"WB_3.x:\"!"
  25.       "\n\n"
  26.       ))
  27.  
  28. (set #help-startup
  29. (cat "Die Datei \"user-startup\" befindet sich im Verzeichnis \"S:\". "
  30.      "In ihr befinden sich spezielle Kommandos, die einige Programme "
  31.      "bereits beim Systemstart ausführen.\n\n"))
  32.  
  33.  
  34. (set #no-inst
  35. (cat "\nDer Platz auf der von Ihnen gewählten Partition reicht nicht aus, um die "
  36.      "MaxonTOOLS-Dateien zu kopieren\n\n"
  37.      "!!! Die Installation wird abgebrochen !!!"))
  38.  
  39.  
  40. (set #COPVERZ    (cat "\nAuf welcher Partition soll MaxonTOOLS\nangelegt werden?"
  41.                           "\nDas Verzeichnis \"MaxonTOOLS\" wird automatisch erzeugt!"
  42. ))
  43.  
  44. (set #SIZE 1)
  45.  
  46. (set @language "Deutsch")
  47.  
  48. (set os-version (/ (getversion) 65536))
  49. (set os-13 (< os-version 36))
  50. (set os-20 (>= os-version 36))
  51. (set os-21 (>= os-version 38))
  52.  
  53.  
  54.  
  55. (Procedure Inst_NormFiles
  56.     (if (< (getdiskspace @Dest) @Size)
  57.         (abort #no-inst))
  58.  
  59.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
  60.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(choices @FName)(files)(infos)(dest @Dest)(confirm))
  61. )
  62.  
  63. (Procedure Inst_PatternFiles
  64.     (if (< (getdiskspace @Dest) @Size)
  65.         (abort #no-inst))
  66.  
  67.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
  68.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(pattern @Pattern)(infos)(dest @Dest)(confirm))
  69. )
  70.  
  71.  
  72.  
  73. (message #introduction)
  74. (welcome)
  75. (set old_level @user-level)
  76.  
  77. (complete 0)
  78.  
  79.  
  80. (set @default-dest                           ; Verzeichnis aussuchen 
  81.     (askdir
  82.         (prompt #COPVERZ)
  83.         (help    #askdir-help)
  84.         (default "WORK:")
  85.     )
  86. )
  87.  
  88. (set @default-dest (tackon @default-dest "MaxonTOOLS"))
  89. (set @default-src "MaxonTOOLS_2:")
  90.  
  91.  
  92. (if                                          ; Verzeichnis erzeugen
  93.     (= (exists @default-dest) 0)
  94.     (makedir @default-dest)
  95. )
  96.  
  97. (if                              
  98.     (= (exists "locale:catalogs/deutsch/mt.catalog") 1)
  99.     (delete "locale:catalogs/deutsch/mt.catalog")
  100. )
  101.  
  102.  
  103. (set oldflag 0)
  104.  
  105. (if
  106.     (=  
  107.     (AND (exists (tackon @default-dest "MaxonTOOLS"))
  108.           (exists (tackon @default-dest "Config"))) 1)
  109.      
  110. (
  111.     (message "\nAuf Ihrem System ist bereits eine MaxonTOOLS-"
  112.                 "Version installiert. "
  113.                 "Das Installationsprogramm wird diese alte Version "
  114.                 "durch die aktuelle ersetzen.\n\n"
  115.     )
  116.     (set oldflag 1)            
  117.  
  118.  
  119.  
  120.  
  121. (set configflag
  122.     (askchoice
  123.         (prompt     "MaxonTOOLS 2 enthält neue Menüs, Aktionssymbole "
  124.                 "und Dateitypen sowie neue Archivierer-Definitionen. "
  125.                 "Wenn Sie diese installieren, gehen "
  126.                 "Ihre alten Einstellungen für diese Teile verloren.\n\n "
  127.  
  128.                 "Beim Installieren der neuen Einstellungen werden die "
  129.                 "alten Config-Dateien mit der Endung '.bak' versehen, "
  130.                 "so daß sie wenn nötig durch Umbennen restauriert werden "
  131.                 "können.\n")
  132.         (help "Genauere Informationen entnehmen Sie bitte Ihrem Handbuch "
  133.                 "auf Seite A-4.")
  134.         (choices "Neue Config-Dateien installieren" "Neue Config-Dateien nicht installieren")
  135.         (default 1)
  136.     )
  137. )
  138.  
  139.     (if (= configflag 1)
  140.      (
  141.         (message    "\nDie neuen Einstellungen "
  142.                     "werden nicht installiert.\n"
  143.  
  144.                     "Folgende Einstellungen gehen trotzdem verloren und "
  145.                     "müssen neu vorgenommen werden: \n"
  146.                     "Bildschirm, Fensterlage, Farben und Startup-Verzeichnisse "
  147.                     "bzw. -Scripts.\n"
  148.         )
  149.      )
  150.     )
  151.  
  152.     (if (= configflag 0)
  153.      (
  154.         (message "\nDie neuen Einstellungen werden installiert. Folgende "
  155.                     "Config-Dateien werden durch neue ersetzt:\n"
  156.                     "arc.cfg, filetypes.cfg, gadgets.cfg, menus.cfg\n\n"
  157.                     "Die alten Config-Dateien werden umbenannt in:\n"
  158.                     "arc.bak, filetypes.bak, gadgets.bak, menus.bak"
  159.  
  160.         )
  161.      )
  162.     )
  163.     
  164. )
  165.  
  166.  
  167.         
  168. )
  169.  
  170.     (askdisk
  171.         (prompt "\n\n\nBitte legen Sie die Diskette 1/2 ein!")
  172.         (help #askdir-help)
  173.         (dest "MaxonTOOLS_2")
  174.     )
  175.  
  176.  
  177.  
  178. (complete 5)
  179.  
  180. (
  181.     (set @Source @default-src)
  182.     (set @Dest @default-dest)
  183.    (set @Pattern "MaxonTOOLS2")
  184.     (set @Size #SIZE)
  185.     (Inst_PatternFiles)
  186. )
  187.  
  188.  
  189.  
  190. (if
  191.     (= (exists (tackon @default-dest "MaxonTOOLS")) 1)
  192.     (
  193.     (delete (tackon @default-dest "MaxonTOOLS"))
  194.     )
  195. )
  196.  
  197.  
  198. (if
  199.     (= (exists (tackon @default-dest "Neuheiten")) 1)
  200.     (
  201.     (delete (tackon @default-dest "Neuheiten"))
  202.     )
  203. )
  204.  
  205. (if
  206.     (= (exists (tackon @default-dest "MaxonTOOLS.info")) 1)
  207.     (
  208.     (delete (tackon @default-dest "MaxonTOOLS.info"))
  209.     )
  210. )
  211.  
  212.  
  213. (if
  214.     (= (exists (tackon @default-dest "Neuheiten.info")) 1)
  215.     (
  216.     (delete (tackon @default-dest "Neuheiten.info"))
  217.     )
  218. )
  219.  
  220. (if
  221.     (= (exists (tackon @default-dest "Symbole.iff")) 1)
  222.     (
  223.     (delete (tackon @default-dest "Symbole.iff"))
  224.     )
  225. )
  226.  
  227.  
  228.     
  229.  
  230.  
  231. (complete 10)
  232.  
  233.  
  234. (if (= oldflag 1)
  235.  (
  236.  
  237.  
  238.     (if (= configflag 1)
  239.     ; Neue Configs nicht installieren
  240.     
  241.     (
  242.  
  243.         (set @Source (tackon @default-src "Config"))
  244.         (set @Dest (tackon @default-dest "Config"))
  245.  
  246.  
  247.        (set @Pattern "patterns.cfg")
  248.         (copyfiles (source @Source) (dest @Dest) (pattern @Pattern))
  249.  
  250.        (set @Pattern "drwbrushes.cfg")
  251.         (copyfiles (source @Source) (dest @Dest) (pattern @Pattern))
  252.  
  253.        (set @Pattern "MTConfig")
  254.         (copyfiles (source @Source) (dest @Dest) (pattern @Pattern))
  255.  
  256.        (set @Pattern "internals.cfg")
  257.         (copyfiles (source @Source) (dest @Dest) (pattern @Pattern))
  258.     
  259.     )
  260.     )
  261.  
  262.  
  263.     (if (= configflag 0)
  264.     ; Neue Configs installieren
  265.     
  266.     (
  267.  
  268.  
  269.         (set @Source (tackon @default-src "Config"))
  270.         (set @Dest (tackon @default-dest "Config"))
  271.  
  272.         (rename (tackon @Dest "arc.cfg") (tackon @Dest "arc.bak"))
  273.         (rename (tackon @Dest "filetypes.cfg") (tackon @Dest "filetypes.bak"))
  274.         (rename (tackon @Dest "gadgets.cfg") (tackon @Dest "gadgets.bak"))
  275.         (rename (tackon @Dest "menus.cfg") (tackon @Dest "menus.bak"))
  276.  
  277.  
  278.        (set @Pattern "arc.cfg")
  279.         (copyfiles (source @Source) (dest @Dest) (pattern @Pattern))
  280.  
  281.        (set @Pattern "filetypes.cfg")
  282.         (copyfiles (source @Source) (dest @Dest) (pattern @Pattern))
  283.  
  284.        (set @Pattern "gadgets.cfg")
  285.         (copyfiles (source @Source) (dest @Dest) (pattern @Pattern))
  286.  
  287.        (set @Pattern "menus.cfg")
  288.         (copyfiles (source @Source) (dest @Dest) (pattern @Pattern))
  289.  
  290.        (set @Pattern "patterns.cfg")
  291.         (copyfiles (source @Source) (dest @Dest) (pattern @Pattern))
  292.  
  293.        (set @Pattern "drwbrushes.cfg")
  294.         (copyfiles (source @Source) (dest @Dest) (pattern @Pattern))
  295.  
  296.        (set @Pattern "MTConfig")
  297.         (copyfiles (source @Source) (dest @Dest) (pattern @Pattern))
  298.  
  299.        (set @Pattern "internals.cfg")
  300.         (copyfiles (source @Source) (dest @Dest) (pattern @Pattern))
  301.  
  302.     )    
  303.     )
  304.  
  305.  )
  306. )
  307.  
  308.  
  309.  
  310.  
  311. (if (= oldflag 0)
  312.  (
  313.     (set @Source @default-src)
  314.     (set @Dest @default-dest)
  315.    (set @Pattern "Config")
  316.     (set @Size 80000)
  317.     (Inst_PatternFiles)
  318.  )
  319.  
  320. )
  321.  
  322.  
  323.  
  324. (complete 20)
  325.  
  326. (
  327.     (set @Source @default-src)
  328.     (set @Dest @default-dest)
  329.    (set @FName "Prefs")
  330.     (set @Size 300000)
  331.     (Inst_NormFiles)
  332. )
  333.  
  334. (complete 30)
  335.  
  336. (
  337.     (set @Source @default-src)
  338.     (set @Dest @default-dest)
  339.    (set @FName "Icons")
  340.     (set @Size 40000)
  341.     (Inst_NormFiles)
  342.  
  343. )
  344.  
  345.  
  346.  
  347. (
  348.     (set @Source @default-src)
  349.     (set @Dest @default-dest)
  350.    (set @Pattern "Inhalt")
  351.     (set @Size 1000)
  352.     (Inst_PatternFiles)
  353. )
  354.  
  355.  
  356. (
  357.     (set @Source @default-src)
  358.     (set @Dest @default-dest)
  359.    (set @Pattern "Bitte_lesen!")
  360.     (set @Size 1000)
  361.     (Inst_PatternFiles)
  362. )
  363.  
  364.  
  365. (complete 40)
  366.  
  367.     (makedir (tackon @default-dest "libs"))
  368.  
  369. (
  370.     (set @Source @default-src)
  371.     (set @Dest (tackon @default-dest "libs"))
  372.    (set @FName "mt.library")
  373.     (set @Size 30000)
  374.     (Inst_NormFiles)
  375. )
  376.  
  377.  
  378. (
  379.     (set @Source @default-src)
  380.     (set @Dest @default-dest)
  381.    (set @FName "rexx")
  382.     (set @Size 125000)
  383.     (Inst_NormFiles)
  384. )
  385.  
  386. (
  387.     (set @Source @default-src)
  388.     (set @Dest @default-dest)
  389.    (set @Pattern "c")
  390.     (set @Size 12000)
  391.     (Inst_PatternFiles)
  392. )
  393.  
  394.     (askdisk
  395.         (prompt "\n\n\nBitte legen Sie die Diskette 2/2 ein!")
  396.         (help #askdir-help)
  397.         (dest "MT2_Disk2")
  398.     )
  399.  
  400. (set @default-src "MT2_Disk2:")
  401. (complete 50)
  402.  
  403. (
  404.     (set @Source @default-src)
  405.     (set @Dest @default-dest)
  406.    (set @Pattern "LHA")
  407.     (set @Size 125000)
  408.     (Inst_PatternFiles)
  409. )
  410.  
  411.  
  412. (complete 60)
  413.  
  414. (
  415.     (set @Source @default-src)
  416.     (set @Dest @default-dest)
  417.    (set @Pattern "docs")
  418.     (set @Size 125000)
  419.     (Inst_PatternFiles)
  420. )
  421.  
  422.  
  423.  
  424. (complete 70)
  425.  
  426. (
  427.     (set @Source @default-src)
  428.     (set @Dest @default-dest)
  429.    (set @Pattern "Module")
  430.     (set @Size 5000)
  431.     (Inst_PatternFiles)
  432. )
  433.  
  434. (complete 80)
  435.  
  436. (
  437.     (set @Source @default-src)
  438.     (set @Dest @default-dest)
  439.    (set @FName "MT_Symbole.iff")
  440.     (set @Size 180000)
  441.     (Inst_NormFiles)
  442. )
  443.  
  444.  
  445.  
  446. (complete 95)
  447.  
  448.  
  449.  
  450.  
  451.     
  452.     (
  453.     ; ------- STARTUP ÄNDERN
  454.     
  455. (set iconifyflag
  456.     (askchoice
  457.         (prompt     "Soll MaxonTOOLS 2 beim Hochfahren des Rechners "
  458.                 "automatisch iconifiziert gestartet werden?")
  459.         (help "Sie können MaxonTOOLS 2 automatisch beim Hochfahren des "
  460.                 "Rechners iconifiziert starten. Es erscheint dann als "
  461.                 "Fensterleiste auf der Workbench und kann von dort aus "
  462.                 "aktiviert werden.")
  463.         (choices "Ja" "Nein")
  464.         (default 1)
  465.     )
  466. )
  467.  
  468.  
  469.     
  470.     (set command1 (cat "SETENV MTPATH=" "\"" @default-dest "\""))
  471.     (set command2 (cat "ASSIGN LIBS: " "\"" (tackon @default-dest "LIBS\" ADD")))
  472.     (set command3 (cat "PATH " "\"" (tackon @default-dest "LHA\" ADD")))
  473.     (set command4 (cat "RUN <NIL: >NIL: " (cat (tackon @default-dest "MaxonTOOLS2") " ICONIFY=SBAR")))
  474.     (set command1.txt
  475.         (cat 
  476.              "\n\n\nDie User-Startup muß um Pfadangaben für MaxonTOOLS 2 ergänzt werden.\n\n"
  477.         )
  478.     )
  479.     
  480.     (startup "MaxonTOOLS"
  481.         (prompt command1.txt)
  482.         (help #help-startup)
  483.         (command command1)
  484.         (command (cat "\n" command2))
  485.         (command (cat "\n" command3))
  486.         (if (= iconifyflag 0)
  487.          (
  488.             (command (cat "\n" command4))
  489.          )
  490.         )
  491.  
  492.     )
  493.     )
  494.  
  495.     (run command1)
  496.     (run command2)
  497.     (run command3)
  498.  
  499. (complete 100)
  500.  
  501. ; ------- FERTIG
  502.  
  503.  
  504. (message "Die Installation von MaxonTOOLS 2 wurde erfolgreich beendet.\n\n"
  505.             "Führen Sie vor dem ersten Start von MaxonTOOLS 2 unbedingt einen "
  506.             "Reset durch!\n")
  507.             
  508.  
  509.  
  510. ;=============================================================================
  511.  
  512.