home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / monitors / rsys / rsys12.install < prev    next >
Text File  |  1995-02-27  |  15KB  |  394 lines
  1. ;--------------------------------------------------------------------------
  2. ; $VER: RSys12.Install 1.2
  3. ;--------------------------------------------------------------------------
  4. ; Install script for RSys 1.2
  5. ;--------------------------------------------------------------------------
  6.  
  7. (set @abort-button "Installation abbrechen")
  8. (set @language     "Deutsch")
  9.  
  10. (set @pretend      0)
  11. (set @user-level   2)
  12.  
  13.  
  14. (set starline "\n     ----------------------------------------")
  15.  
  16. ;--------------------------------------------------------------------------
  17. ; This is the Welcome
  18. ;--------------------------------------------------------------------------
  19. (set welco (cat "----------------------------------------"
  20.          "\n\n Willkommen zu der Installation von RSys 1.2!\n"
  21.          "\n Bitte lesen Sie nach der Installation zuerst die"
  22.          "\nDokumentation, damit Sie RSys auch im vollen Umfang"
  23.          "\n nutzen können. Viel Erfolg bei der Installation!\n\n"
  24.          "\nDieses Script können Sie auch dazu verwenden, Teile"
  25.          "\ndes Programmpaketes nachzuinstallieren.\n"
  26.          "\n----------------------------------------")
  27. )
  28.  
  29. (message welco)
  30.  
  31. (set badkick (cat starline
  32.                   "\nSie müssen Kickstart 2.04 benutzen, um dieses Skript zur Installation"
  33.                   "benutzen zu können!"
  34.                   "\n" @error-msg
  35.                   starline)
  36. )
  37. (set archiver-help (cat starline
  38.                         "\nHier geben Sie Ihr Entpack-Programm an,"
  39.                         " mit dem Sie die Archive entpacken können."
  40.                         starline
  41.                         "\n\n" @askfile-help)
  42. )
  43. (set work-tmp-archiv (cat "\n\n" "Entpacke das Archiv in ein T:-Unterverzeichnis."
  44.                           "\n"   "Liegt es im RAM:, so kann die Installation"
  45.                           "\n"   "schneller durchführt werden."
  46.                           "\n\n" )
  47. )
  48. (set ask-dest-dir-help (cat starline
  49.                              "\nIn diesem anzugebenden Verzeichnis"
  50.                              " befinden sich alle Dateien, die zu RSys"
  51.                              " gehören. Sie können auch ein neues"
  52.                              " Verzeichnis anlegen."
  53.                              starline
  54.                              "\n\n" @askdir-help)
  55. )
  56. (set copy-to-destdir-help (cat starline
  57.                                "\nDie Dateien werden in das Zielverzeichnis kopiert."
  58.                                starline
  59.                                "\n\n" @copyfiles-help)
  60. )
  61. (set ask-src-dir-help (cat starline
  62.                              "\nIn diesem anzugebenden Verzeichnis"
  63.                              " befinden sich alle C-Quelltexte von RSys"
  64.                              " gehören. Sie können auch ein neues"
  65.                              " Verzeichnis anlegen."
  66.                              starline
  67.                              "\n\n" @askdir-help)
  68. )
  69. (set ask-doc-dir-help (cat starline
  70.                              "\nIn diesem anzugebenden Verzeichnis"
  71.                              " befindet sich die Dokumentation von RSys."
  72.                              " Sie können auch ein neues Verzeichnis"
  73.                              " anlegen."
  74.                              starline
  75.                              "\n\n" @askdir-help)
  76. )
  77. (set install-env-help (cat starline
  78.                            "\nRSys arbeitet mit zwei Environmentvariablen, RSYSHELP"
  79.                            " und RSYSACTION. In ihnen stehen die Pfadnamen für"
  80.                            " eine Hilfedatei und der Aktionsdatei."
  81.                            starline
  82.                            "\n\n" @askbool-help)
  83. )
  84. (set install-src-help (cat starline
  85.                            "\nZum Lieferumfang von RSys gehören sämtliche Quelltexte."
  86.                            " Wählen Sie \"Ja\", so werden die C-Sourcen in ein"
  87.                            " auszuwählendes Verzeichnis entpackt."
  88.                            starline
  89.                            "\n\n" @askbool-help)
  90. )
  91. (set install-doc-help (cat starline
  92.                            "\nZum Lieferumfang von RSys gehört die Dokumentation."
  93.                            " Wählen Sie \"Ja\", so werden die Dokumentationen"
  94.                            " in ein auszuwählendes Verzeichnis entpackt."
  95.                            starline
  96.                            "\n\n" @askbool-help)
  97. )
  98. (set install-goodies-help (cat starline
  99.                            "\nZum Lieferumfang von RSys gehört einige nette Goodies."
  100.                            " Wählen Sie \"Ja\", so werden die Programme"
  101.                            " in ein auszuwählendes Verzeichnis entpackt."
  102.                            starline
  103.                            "\n\n" @askbool-help)
  104. )
  105. (set my-choice-help (cat starline
  106.                            "\nHier können Sie auswählen, welche Teile des"
  107.                            " Programmpaketes installiert werden sollen."
  108.                            starline
  109.                            "\n\n" @askchoice-help)
  110. )
  111. (set wbstart-copy-help (cat starline
  112.                             "\nEs gibt die Möglichkeit, RSys nach jedem Neustart"
  113.                             " des Rechners automatisch zu starten. Dazu müssen die"
  114.                             " Dateien RSys und RSys.info in das Verzeichnis"
  115.                             " SYS:WBStartup kopiert werden."
  116.                             starline
  117.                             "\n\n" @askbool-help)
  118. )
  119. (set del-tmp-help (cat starline
  120.                        "\nInstall hat ein Temporärverzeichnis angelegt,"
  121.                        " damit die Installation schneller voran geht."
  122.                        " Sie werden nun gefragt, ob Sie es löschen"
  123.                        " möchten."
  124.                        starline
  125.                        "\n\n" @askbool-help)
  126. )
  127.  
  128. (set RSys-dir-size   130000)
  129. (set doc-dir-size    385000)
  130. (set src-dir-size    520000)
  131. (set goodies-size     55000)
  132.  
  133. ;=============================================================================
  134. ; make sure we are running under a 2.04 ROM
  135.  
  136. (procedure TestVersion
  137.    (
  138.       (if (< (/ (getversion) 65536) 37)
  139.           (
  140.              (abort badkick)
  141.           )
  142.       )
  143.    )
  144. )
  145.  
  146. ;=============================================================================
  147. ; Ask the user which archiver were used
  148.  
  149. (procedure AskArchiver
  150.    (
  151.       (set tmpdir "T:@@@")
  152.       (set archiver (askfile (prompt "\n" "Geben Sie hier Ihr LHARC-Programm an:")
  153.                              (help archiver-help)
  154.                              (default "C/LhX")))
  155.    )
  156. )
  157.  
  158. ;=============================================================================
  159. ; Installs the RSys main files
  160.  
  161. (procedure InstallRSysFiles
  162.    (
  163.       (set freespace (getdiskspace destdir))
  164.  
  165.       (if (>= freespace RSys-dir-size)
  166.          ((copyfiles (prompt "\n" "Kopiere Files...")
  167.                      (help copy-to-destdir-help)
  168.                      (source tmpdir)
  169.                      (dest destdir)
  170.                      (confirm)
  171.                      (pattern "~(src.#?|doc.#?|Goodies.#?)"))
  172.  
  173.           (if (askbool (prompt "\n" "Sollen die ENV:-Variablen RSYSHELP und RSYSACTION angelegt werden?")
  174.                        (help install-env-help)
  175.                        (default 1))
  176.              ((working (cat "\n\n" "Erzeuge Environmentvariablen... "))
  177.               (run (cat "C:setenv RSYSACTION " (tackon destdir "RSYS.act")))
  178.               (run (cat "C:setenv RSYSHELP " (tackon destdir "RSYS.hlp")))
  179.              )
  180.           )
  181.  
  182.           (if (askbool (prompt "\n" "Soll RSys nach SYS:WBStartup/ kopiert werden?")
  183.                        (help wbstart-copy-help)
  184.                        (default 1))
  185.              ((copyfiles (prompt "\n" "Kopiere RSys...")
  186.                          (source (tackon tmpdir "RSys"))
  187.                          (dest "SYS:WBStartup"))
  188.               (copyfiles (prompt "\n" "Kopiere RSys.info..." "\n")
  189.                          (source (tackon tmpdir "RSys.info"))
  190.                          (dest "SYS:WBStartup"))
  191.              )
  192.           )
  193.          )
  194.          ((message (cat "\nFür RSys 1.2 sind mindestens"
  195.                         "\n   " RSys-dir-size " Bytes"
  196.                         "\nfreier Platz auf der Festplatte oder"
  197.                         "\nDiskette notwendig!"))
  198.          )
  199.       )
  200.    )
  201. )
  202.  
  203. ;=============================================================================
  204. ; Installs the document files for RSys
  205.  
  206. (procedure InstallDocFiles
  207.    (
  208.       (if (askbool (prompt "\n" "Sollen die Dokumentationen entpackt werden?")
  209.                    (help install-doc-help)
  210.                    (default 1))
  211.          ((set docdir   (askdir (prompt "\nIn welchem Verzeichnis sollen die Dokumentationen"
  212.                                         " von RSys 1.0 installiert werden?\n" )
  213.                                 (help ask-doc-dir-help)
  214.                                 (default (tackon destdir "DOC"))))
  215.  
  216.           (set freespace (getdiskspace docdir))
  217.  
  218.           (if (>= freespace doc-dir-size)
  219.              ((set doc-unpack (cat archiver " x " (tackon tmpdir "doc.lha") " \"" docdir "/\""))
  220.  
  221.               (working (cat "\n\n" "Entpacke Quelltexte nach " docdir "...\n\n"
  222.                                 doc-unpack ))
  223.               (run doc-unpack)
  224.              )
  225.              ((message (cat "\nFür die Doku sind mindestens"
  226.                             "\n   " doc-dir-size " Bytes"
  227.                             "\nfreier Platz auf der Festplatte oder"
  228.                             "\nDiskette notwendig!"))
  229.              )
  230.           )
  231.          )
  232.       )
  233.    )
  234. )
  235.  
  236. ;=============================================================================
  237. ; Installs the Sourcefiles for RSys
  238.  
  239. (procedure InstallSrcFiles
  240.    (
  241.       (if (askbool (prompt "\n" "Sollen die C_Quellentexte entpackt werden?")
  242.                    (help install-src-help)
  243.                    (default 1))
  244.          ((set srcdir   (askdir (prompt "\nIn welchem Verzeichnis sollen die C-Quelltexte"
  245.                                         " von RSys 1.0 installiert werden?\n" )
  246.                                 (help ask-src-dir-help)
  247.                                 (default (tackon destdir "SRC"))))
  248.  
  249.           (set freespace (getdiskspace srcdir))
  250.  
  251.           (if (>= freespace src-dir-size)
  252.             ((set src-unpack (cat archiver " x " (tackon tmpdir "src.lha") " \"" srcdir "/\""))
  253.  
  254.              (working (cat "\n\n" "Entpacke Quelltexte nach " srcdir "...\n\n"
  255.                            src-unpack ))
  256.              (run src-unpack)
  257.             )
  258.             ((message (cat "\nFür die Quelltexte sind mindestens"
  259.                            "\n   " src-dir-size " Bytes"
  260.                            "\nfreier Platz auf der Festplatte oder"
  261.                            "\nDiskette notwendig!"))
  262.             )
  263.            )
  264.          )
  265.       )
  266.    )
  267. )
  268.  
  269. ;=============================================================================
  270. ; Installs the Goodies
  271.  
  272. (procedure InstallGoodies
  273.    (
  274.       (if (askbool (prompt "\n" "Sollen die Goodies entpackt werden?")
  275.                    (help install-Goodies-help)
  276.                    (default 1))
  277.          ((set goodiesdir destdir)
  278.  
  279.           (set freespace (getdiskspace goodiesdir))
  280.  
  281.           (if (>= freespace goodies-size)
  282.              ((set goodies-unpack (cat archiver " -x x "
  283.                                             (tackon tmpdir "Goodies.lha")
  284.                                             " \"" goodiesdir "/\""))
  285.  
  286.               (working (cat "\n\n" "Entpacke Goodies nach " goodiesdir "...\n\n"
  287.                         goodies-unpack ))
  288.               (run goodies-unpack)
  289.              )
  290.              ((message (cat "\nFür die Goodies sind mindestens "
  291.                             "\n  " goodies-size " Byte"
  292.                             "\nfreier Platz auf der Festplatte oder"
  293.                             "\nDiskette notwendig!"))
  294.              )
  295.           )
  296.          )
  297.       )
  298.    )
  299. )
  300.  
  301. ;=============================================================================
  302. ; Kills the T:@@@-Verzeichnis to return memory
  303.  
  304. (procedure KillTmpDirectory
  305.    (
  306.       (if (askbool (prompt "\nSoll das Temporärverzeichnis gelöscht werden?")
  307.                    (help del-tmp-help)
  308.                    (default 1))
  309.          ((working (cat "\n\n" "Lösche Temporärverzeichnis " tmpdir "..."))
  310.           (run (cat "delete " tmpdir " all"))
  311.          )
  312.       )
  313.    )
  314. )
  315.  
  316. ;=============================================================================
  317. ; Main programm
  318.  
  319. (procedure MainInstall
  320.    (
  321.       (TestVersion)
  322.       (AskArchiver)
  323.       (complete 5)
  324.  
  325.       (if (exists archiver)
  326.          (
  327.             (set unpack (cat archiver " x RSys.lha " tmpdir "/"))
  328.             (working (cat work-tmp-archiv unpack))
  329.             (run unpack)
  330.             (complete 20)
  331.  
  332.             (set destdir   (askdir (prompt "\nWählen Sie bitte das Hauptverzeichnis"
  333.                                            " von RSys 1.2\n" )
  334.                                    (help ask-dest-dir-help)
  335.                                    (default "T:RSYS")))
  336.  
  337.             (set part-install (askchoice
  338.                         (prompt "Welche Teile des Programmpaketes möchten Sie installieren?")
  339.                           (help my-choice-help)
  340.                           (choices "Alles installieren"
  341.                                  "Nur RSys lauffähig installieren"
  342.                                  "Dokumentation installieren"
  343.                                  "C-Quelltexte installieren"
  344.                                  "Goodies installieren")
  345.                           (default 0)))
  346.  
  347.             (if (OR (= part-install 0) (= part-install 1))
  348.                (
  349.                   (InstallRSysFiles)
  350.                   (complete 45)
  351.                )
  352.             )
  353.  
  354.             (if (OR (= part-install 0) (= part-install 2))
  355.                (
  356.                   (InstallDocFiles)
  357.                   (complete 60)
  358.                )
  359.             )
  360.  
  361.             (if (OR (= part-install 0) (= part-install 3))
  362.                (
  363.                   (InstallSrcFiles)
  364.                   (complete 80)
  365.                )
  366.             )
  367.  
  368.             (if (OR (= part-install 0) (= part-install 4))
  369.                (
  370.                   (InstallGoodies)
  371.                   (complete 95)
  372.                )
  373.             )
  374.  
  375.             (KillTmpDirectory)
  376.             (complete 100)
  377.  
  378.             (set @default-dest destdir)
  379.  
  380.             (exit)
  381.          )
  382.          (
  383.             (abort (cat "Der Archiver " archiver " existiert nicht!"))
  384.          )
  385.       )
  386.    )
  387. )
  388.  
  389. ;=============================================================================
  390. ; Call the Main programm
  391.  
  392. (MainInstall)
  393.  
  394.