home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 2 / FFMCD02.bin / new / util / misc / rsys / rsys13.install < prev    next >
Text File  |  1993-12-21  |  22KB  |  583 lines
  1. ;--------------------------------------------------------------------------
  2. ; $VER: RSys13.Install 1.31 (25-Sep-93)
  3. ;--------------------------------------------------------------------------
  4. ; Install script for RSys 1.3
  5. ;--------------------------------------------------------------------------
  6.  
  7. (set @abort-button "Installation abbrechen")
  8. (set @language     "deutsch")
  9.  
  10. (set @pretend      0)
  11. (set @user-level   2)
  12.  
  13. (set @rsysversion  "1.3")
  14.  
  15. (set RSysMain     "RSYS:")
  16. (set RSysDoc      "RSYS:Doc/")
  17. (set RSysSrc      "RSYS:Src/")
  18. (set RSysCalls    "RSYS:Src/Calls/")
  19. (set RSysData     "RSYS:Data/")
  20. (set RSysGoodies  "RSYS:")
  21. (set RSysArexx    "RSYS:Arexx/")
  22.  
  23. (set ass-created 0)
  24.  
  25. (set RSys-dir-size   185000)
  26. (set doc-dir-size    582000)
  27. (set src-dir-size    580000)
  28. (set calls-dir-size   80000)
  29. (set goodies-size     55000)
  30. (set arexx-size        8000)
  31.  
  32. (set tmpdir "T:@@@")
  33.  
  34. (set starline "\n     ----------------------------------------")
  35.  
  36. ;--------------------------------------------------------------------------
  37. ; This is the Welcome
  38. ;--------------------------------------------------------------------------
  39. (set @welcome (cat "----------------------------------------"
  40.          "\n\n Willkommen zu der Installation von RSys "@rsysversion "!\n"
  41.          "\n Bitte lesen Sie nach der Installation zuerst die"
  42.          "\nDokumentation, damit Sie RSys auch im vollen Umfang"
  43.          "\n nutzen können. Viel Erfolg bei der Installation!\n\n"
  44.          "\nDieses Script können Sie auch dazu verwenden, Teile"
  45.          "\ndes Programmpaketes nachzuinstallieren.\n"
  46.          "\n----------------------------------------")
  47. )
  48.  
  49. (set archiver-help (cat starline
  50.                         "\nHier geben Sie Ihr Entpack-Programm an,"
  51.                         " mit dem Sie die Archive entpacken können."
  52.                         starline
  53.                         "\n\n" @askfile-help)
  54. )
  55. (set work-tmp-archiv (cat "\n\n" "Entpacke das Archiv in ein T:-Unterverzeichnis."
  56.                           "\n"   "Liegt es im RAM:, so kann die Installation"
  57.                           "\n"   "schneller durchführt werden."
  58.                           "\n\n" )
  59. )
  60. (set work-RSys-archiv (cat "\n\n" "Entpacke Hauptprogramm und die Daten."
  61.                           "\n\n" )
  62. )
  63. (set work-RSysDoc-archiv (cat "\n\n" "Entpacke die Dokumentation."
  64.                           "\n\n" )
  65. )
  66. (set ask-dest-dir-help (cat starline
  67.                              "\nIn diesem anzugebenden Verzeichnis"
  68.                              " befinden sich alle Dateien, die zu RSys"
  69.                              " gehören. Sie können auch ein neues"
  70.                              " Verzeichnis anlegen."
  71.                              starline
  72.                              "\n\n" @askdir-help)
  73. )
  74. (set copy-to-destdir-help (cat starline
  75.                                "\nDie Dateien werden in das Zielverzeichnis kopiert."
  76.                                starline
  77.                                "\n\n" @copyfiles-help)
  78. )
  79. (set copy-lib-help (cat starline
  80.                                "\nDie Library amigaguide.library wird im Verzeichns"
  81.                                "\nLIBS: installiert. Damit kann die RSys-Amigaguide-"
  82.                                "\nHilfe genutzt werden."
  83.                                starline
  84.                                "\n\n" @askbool-help)
  85. )
  86. (set ask-src-dir-help (cat starline
  87.                              "\nIn diesem anzugebenden Verzeichnis"
  88.                              " befinden sich alle C-Quelltexte von RSys"
  89.                              " gehören. Sie können auch ein neues"
  90.                              " Verzeichnis anlegen."
  91.                              starline
  92.                              "\n\n" @askdir-help)
  93. )
  94. (set ask-doc-dir-help (cat starline
  95.                              "\nIn diesem anzugebenden Verzeichnis"
  96.                              " befindet sich die Dokumentation von RSys."
  97.                              " Sie können auch ein neues Verzeichnis"
  98.                              " anlegen."
  99.                              starline
  100.                              "\n\n" @askdir-help)
  101. )
  102. (set install-env-help (cat starline
  103.                            "\nRSys arbeitet mit zwei Environmentvariablen, RSYSHELP"
  104.                            " und RSYSACTION. In ihnen stehen die Pfadnamen für"
  105.                            " eine Hilfedatei und der Aktionsdatei."
  106.                            starline
  107.                            "\n\n" @askbool-help)
  108. )
  109. (set install-src-help (cat starline
  110.                            "\nZum Lieferumfang von RSys gehören sämtliche Quelltexte."
  111.                            " Wählen Sie \"Ja\", so werden die C-Sourcen in ein"
  112.                            " auszuwählendes Verzeichnis entpackt."
  113.                            starline
  114.                            "\n\n" @askbool-help)
  115. )
  116. (set install-calls-help (cat starline
  117.                            "\nZum Lieferumfang von RSys gehören auch die Calls."
  118.                            " Das sind die Dateien, in denen die Struktur der"
  119.                            " Quelltexte dokumentiert sind. Sie dienen nur der"
  120.                            " Programmdokumentation und brauchen nicht installiert"
  121.                            " zu werden."
  122.                            starline
  123.                            "\n\n" @askbool-help)
  124. )
  125. (set install-Arexx-help (cat starline
  126.                            "\nZum Lieferumfang von RSys gehört eine."
  127.                            " Arexx-Datei zum Erstellen der Library-Offsets."
  128.                            " Sie braucht nicht installiert zu werden."
  129.                            starline
  130.                            "\n\n" @askbool-help)
  131. )
  132. (set install-doc-help (cat starline
  133.                            "\nZum Lieferumfang von RSys gehört die Dokumentation."
  134.                            " Wählen Sie \"Ja\", so werden die Dokumentationen"
  135.                            " in ein auszuwählendes Verzeichnis entpackt."
  136.                            starline
  137.                            "\n\n" @askbool-help)
  138. )
  139. (set install-goodies-help (cat starline
  140.                            "\nZum Lieferumfang von RSys gehört einige nette Goodies."
  141.                            " Wählen Sie \"Ja\", so werden die Programme"
  142.                            " in ein auszuwählendes Verzeichnis entpackt."
  143.                            starline
  144.                            "\n\n" @askbool-help)
  145. )
  146. (set my-choice-help (cat starline
  147.                            "\nHier können Sie auswählen, welche Teile des"
  148.                            " Programmpaketes installiert werden sollen."
  149.                            starline
  150.                            "\n\n" @askchoice-help)
  151. )
  152. (set wbstart-copy-help (cat starline
  153.                             "\nEs gibt die Möglichkeit, RSys nach jedem Neustart"
  154.                             " des Rechners automatisch zu starten. Dazu müssen die"
  155.                             " Dateien RSys und RSys.info in das Verzeichnis"
  156.                             " SYS:WBStartup kopiert werden."
  157.                             starline
  158.                             "\n\n" @askbool-help)
  159. )
  160. (set del-tmp-help (cat starline
  161.                        "\nInstall hat ein Temporärverzeichnis angelegt,"
  162.                        " damit die Installation schneller voran geht."
  163.                        " Sie werden nun gefragt, ob Sie es löschen"
  164.                        " möchten."
  165.                        starline
  166.                        "\n\n" @askbool-help)
  167. )
  168. (set startup-help (cat starline
  169.                        "\nInstall wird ein Assign namens RSYS: in die"
  170.                        " die Datei S:User-Startup eintragen. Damit kann"
  171.                        " RSys alle externen Dateien leichter finden."
  172.                        starline
  173.                        "\n\n" @startup-help)
  174. )
  175.  
  176.  
  177. ;--------------------------------------------------------------------------
  178. ; Ask the user which archiver were used
  179. ;--------------------------------------------------------------------------
  180. (procedure AskArchiver
  181. (
  182.    (set archiver (askfile (prompt "\n" "Geben Sie hier Ihr LHARC-Programm an:")
  183.                           (help archiver-help)
  184.                           (default "C/LhX")
  185.                  )
  186.    )
  187. ))
  188.  
  189. ;---------------------------------