home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 9 / FreshFishVol9-CD2.bin / bbs / util / rsys-1.3.lha / RSys / RSys12.install < prev    next >
Text File  |  1993-07-15  |  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.