home *** CD-ROM | disk | FTP | other *** search
/ Amiga Developer CD 2.1 / Amiga Developer CD v2.1.iso / DevInfo / DeviceDevelopment / NSDPatch / Install < prev    next >
Encoding:
Text File  |  1997-02-28  |  11.1 KB  |  273 lines
  1. ;------------------------------------------------------------------------
  2. (procedure P_SETUP_NSDPATCH_TEXTS #nsd_language
  3. (
  4.     ; English as default
  5.     (set #wrongversion "You need at least Installer V43!")
  6.  
  7.     (set #nsd_installnsdpatch
  8.     (cat "Do you want to install or update NSDPatch now?\n\nAside from fixing several "
  9.          "obscure bugs within AmigaOS and third party devices, it will also "
  10.          "improve device handling for modern applications and make device "
  11.          "access safer in general."
  12.     ))
  13.     (set #nsd_installnsdpatch_help
  14.     (cat "Have you already checked the README.FIRST file that is included?\n\n"
  15.          "It contains a list of what NSDPatch can do for "
  16.          "you right in the first paragraphs. For the experienced users, "
  17.          "there is also quite an amount of "
  18.          "details included.\n\n"
  19.          "You really should have NSDPatch installed or updated!"
  20.     ))
  21.     (set #nsd_copypatch "Copying NSDPatch to C:")
  22.     (set #nsd_copypatch_help
  23.     (cat "NSDPatch will fix several problems with device handling "
  24.          "in AmigaOS and also make many devices compatible to the "
  25.          "New Style Device standard by Amiga Technologies GmbH.\n"
  26.          "It is strongly recommended that you have it installed."))
  27.     (set #nsd_installpatchsys "Installing NSDPatch in Startup...")
  28.     (set #nsd_installpatchsys_help
  29.     (cat "To activate NSDPatch, lines must be added to your S:Startup-Sequence "
  30.          "file. NSDPatch is a low level OS patch and should ideally placed "
  31.          "right after SetPatch into your S:Startup-Sequence.\n"))
  32.     (set #nsd_installpatch "Installing NSDPatch in User-Startup ...")
  33.     (set #nsd_installpatch_help
  34.     (cat "To activate NSDPatch, lines must be added to your S:User-Startup "
  35.          "file. NSDPatch is a low level OS patch and should ideally placed "
  36.          "right after SetPatch into your S:Startup-Sequence.\n"
  37.          "Due to ARexx not being installed on your System this isn't "
  38.          "possible right now, so the next best location in this case has been chosen.\n"))
  39.     (set #nsd_runnsdpatch "Start NSDPatch now?")
  40.     (set #nsd_runnsdpatch_help
  41.     (cat "If you don't start it now, it will be activated on the "
  42.          "next reset of your Amiga. It is usally wise to start it now.\n"))
  43.     (set #nsd_newconfig
  44.     (cat "You don't have a configuration file for NSDPatch installed yet. "
  45.          "Do you want to install the current one now?\n\n"
  46.          "NSDPatch won't work without a configuration file!\n"
  47.     ))
  48.     (set #nsd_newconfig_help
  49.     (cat "You may want to make some changes to the configuration file "
  50.          "DEVS:NSDPatch.cfg after the installation. In that case, make "
  51.          "a backup copy of your changed file in case of future automatic "
  52.          "updates.\n\n"
  53.          "You do want to have the most current patches installed!\n"
  54.     ))
  55.     (set #nsd_updateconfig
  56.     (cat "You already have a configuration file for NSDPatch installed. "
  57.          "Should it be replaced with the one from this installation?\n\n"
  58.          "Please check the help text before making a decision!\n"
  59.     ))
  60.     (set #nsd_updateconfig_help
  61.     (cat "You may have made some changes to the configuration file "
  62.          "DEVS:NSDPatch.cfg that you don't want to lose. In that case, "
  63.          "chose 'No' and compare the files afterwards manually!\n\n"
  64.          "You do want to have the most current patches installed!\n"
  65.     ))
  66.  
  67.     (if (patmatch #nsd_language "deutsch")
  68.       (
  69.         (set #wrongversion "Sie benötigen mindestens Installer V43!")
  70.  
  71.         (set #nsd_installnsdpatch
  72.         (cat "Möchten Sie jetzt NSDPatch installieren oder ein Update davon machen?\n\n"
  73.              "NSDPatch repariert nicht nur obskure Fehler von Gerätetreibern in AmigaOS "
  74.              "und Fremdherstellern, es verbessert auch die Anzeige und Verwaltung "
  75.              "von Gerätetreibern in modernen Applikationen.\n\n"
  76.              "Im allgemeinen macht NSDPatch den "
  77.              "Zugriff auf Gerätetreiber sicherer."
  78.         ))
  79.         (set #nsd_installnsdpatch_help
  80.         (cat "Haben Sie schon die README.FIRST-Datei angesehen? Dort steht in Englisch "
  81.              "schon in den ersten Absätzen genau, was NSDPatch alles für Sie tun kann. "
  82.              "Es ist genaugenommen nur eine etwas detailliertere Beschreibung dessen, was "
  83.              "Sie in diesem Fenster vorhin gelesen haben.\n"
  84.              "Für erfahrene Anwender ist in dieser Datei noch einiges an Details zu finden.\n\n"
  85.              "Für weitere Rückfragen finden Sie am Ende dieser Datei auch die Kontaktadresse "
  86.              "des Autors.\n\n"
  87.              "Sie sollten wirklich NSDPatch installieren oder, falls schon vorhanden, updaten!"
  88.         ))
  89.         (set #nsd_copypatch "Kopiere NSDPatch nach C:")
  90.         (set #nsd_copypatch_help
  91.         (cat "NSDPatch behebt verschiedene Probleme mit Devices in AmigaOS "
  92.              "und stellt auch konfigurierbar Kompatibilität zum "
  93.              "New Style Device Standard von Amiga Technologies GmbH her.\n"
  94.              "Es wird empfohlen, daß Sie es installieren."))
  95.         (set #nsd_installpatchsys "Installiere NSDPatch im Startup...")
  96.         (set #nsd_installpatchsys_help
  97.         (cat "Um NSDPatch zu aktivieren, müssen mehrere Zeilen in Ihrer "
  98.              "Startup-Sequence-Datei eingefügt werden. NSDPatch greift tief in "
  99.              "AmigaOS ein und sollte idealerweise unmittelbar nach SetPatch "
  100.              "in Ihrer Startup-Sequence gestartet werden.\n"))
  101.         (set #nsd_installpatch "Installiere NSDPatch im User-Startup ...")
  102.         (set #nsd_installpatch_help
  103.         (cat "Um NSDPatch zu aktivieren, müssen mehrere Zeilen in Ihrer "
  104.              "User-Startup-Datei eingefügt werden. Idealerweise sollte dies "
  105.              "zwar besser unmittelbar nach SetPatch in Ihrer Startup-Sequence-Datei "
  106.              "geschehen, leider ist dies momentan nicht möglich. Wahrscheinlich "
  107.              "ist ARexx nicht aktiv. Daher wurde User-Startup als die, in "
  108.              "diesem Fall, zweitbeste Lösung gewählt."))
  109.         (set #nsd_runnsdpatch "Soll NSDPatch jetzt gestartet werden?")
  110.         (set #nsd_runnsdpatch_help
  111.         (cat "Wenn Sie NSDPatch nicht jetzt starten, wird das Programm erst nach "
  112.              "dem nächsten Reset aktiv. Es ist üblicherweise eine gute Entscheidung, "
  113.              "NSDPatch jetzt zu aktivieren.\n"))
  114.         (set #nsd_newconfig
  115.         (cat "Es ist noch keine Konfigurationsdatei für NSDPatch installiert. "
  116.              "Möchten Sie jetzt die aktuelle installieren?\n\n"
  117.              "NSDPatch funktioniert nicht ohne Konfigurationsdatei!\n"
  118.         ))
  119.         (set #nsd_newconfig_help
  120.         (cat "Eventuell möchten Sie nach der Installation noch Änderungen an "
  121.              "der Konfigurationsdatei DEVS:NSDPatch.cfg vornehmen. "
  122.              "Bitte machen Sie sich in dem Fall noch eine Sicherheitskopie "
  123.              "Ihrer veränderten Datei, um Sie auch bei zukünftigen automatischen "
  124.              "Updates noch als Referenz zu behalten.\n\n"
  125.              "Sie sollten immer die aktuellste Konfiguration installiert haben!"
  126.         ))
  127.         (set #nsd_updateconfig
  128.         (cat "Es ist schon eine Konfigurationsdatei für NSDPatch als "
  129.              "DEVS:NSDPatch.cfg installiert. Soll sie durch die Datei dieser "
  130.              "Installation ersetzt werden?\n\n"
  131.              "Bitte lesen Sie den Hilfetext, bevor Sie eine Entscheidung treffen!\n"
  132.         ))
  133.         (set #nsd_updateconfig_help
  134.         (cat "Eventuell haben Sie an der Datei DEVS:NSDPatch.cfg schon "
  135.              "Änderungen vorgenommen die Sie nicht verlieren wollen. "
  136.              "Wählen Sie dann 'Nein' und vergleichen Sie die Dateien nach "
  137.              "der Installation manuell.\n\n"
  138.              "Sie sollten immer die aktuellste Konfiguration installiert haben!"
  139.         ))
  140.       )
  141.     )
  142. ))
  143.  
  144. ;------------------------------------------------------------------------
  145. ; Needed in sourcedir:
  146. ;   NSDPatch
  147. ;   v40.nsdpatchcfg or NSDPatch.cfg
  148. ;   NSDPatchInstall.rexx
  149. (procedure P_INSTALL_NSDPATCH #nsd_sourcedir
  150. (
  151.     (if (askbool
  152.           (prompt #nsd_installnsdpatch)
  153.           (help #nsd_installnsdpatch_help)
  154.           (default 1)
  155.         )
  156.       (
  157.         (set #nsd_patchisnew   (not (exists "SYS:C/NSDPatch")))
  158.         (set #nsd_configisnew  (not (exists "SYS:DEVS/NSDPatch.cfg")))
  159.         (set #nsd_copyconfig 0)
  160.  
  161.         ; Copy or update NSDPatch
  162.         (copylib
  163.             (prompt #nsd_copypatch)
  164.             (help #nsd_copypatch_help)
  165.             (confirm)
  166.             (source (tackon #nsd_sourcedir "NSDPatch"))
  167.             (dest "SYS:C")
  168.          )
  169.  
  170.         ; Accept any existing file. Quick and silent copy
  171.         (if #nsd_configisnew
  172.           (
  173.             (if (askbool
  174.                   (prompt #nsd_newconfig)
  175.                   (help #nsd_newconfig_help)
  176.                   (default 1)
  177.                 )
  178.               (
  179.                 (set #nsd_copyconfig 1)
  180.               )
  181.             ) ; if
  182.           )
  183.           (
  184.             (if (askbool
  185.                   (prompt #nsd_updateconfig)
  186.                   (help #nsd_updateconfig_help)
  187.                   (default 0)
  188.                 )
  189.               (
  190.                 (set #nsd_copyconfig 1)
  191.               )
  192.             ) ; if
  193.           )
  194.         ) ; if
  195.  
  196.         ; We will not ever touch any existing NSDPatch configuration!
  197.         (if #nsd_copyconfig
  198.           (
  199.             (set #nsd_config "v40.nsdpatchcfg")
  200.             (if (exists (tackon #nsd_sourcedir "NSDPatch.cfg"))
  201.               (
  202.                 ; New style archive
  203.                 (set #nsd_config "NSDPatch.cfg")
  204.               )
  205.             )
  206.  
  207.             (copyfiles
  208.                 (source (tackon #nsd_sourcedir #nsd_config))
  209.                 (dest "SYS:DEVS")
  210.                 (newname "NSDPatch.cfg")
  211.                 (optional "askuser" "force")
  212.             )
  213.           )
  214.         ) ; if
  215.  
  216.         ; Only ask for Startup-Sequence installation if necessary!
  217.         (if #nsd_patchisnew
  218.             (
  219.             (set #nsd_res (run
  220.                   (confirm)
  221.                   (prompt #nsd_installpatchsys)
  222.                   (help #nsd_installpatchsys_help)
  223.                   (tackon #nsd_sourcedir "RX NSDPatchInstall.rexx")
  224.             ))
  225.  
  226.             (if (not (= #nsd_res 0))
  227.               (
  228.                 (startup "NSDPATCH"
  229.                   (prompt #nsd_installpatch)
  230.                   (help #nsd_installpatch_help)
  231.                   (command "C:NSDPatch QUIET\n")
  232.                 )
  233.               )
  234.             ) ; if
  235.           )
  236.         ) ; if
  237.  
  238.         ; Activate NSDPatch now if acceptable!
  239.         (run
  240.             (confirm)
  241.             (prompt #nsd_runnsdpatch)
  242.             (help #nsd_runnsdpatch_help)
  243.             "C:NSDPatch QUIET"
  244.         )
  245.       )
  246.     ) ; if
  247.  
  248. )) ; P_INSTALL_NSDPATCH
  249.  
  250. ;------------------------------------------------------------------------
  251. ;------------------------------------------------------------------------
  252. ; We can't handle this script without Installer 42.9 or better!
  253. (if (< @installer-version 2752521)
  254.   (
  255.     ; Big problem!
  256.     (user 2)
  257.     (message #wrongversion)
  258.     (exit (quiet))
  259.   )
  260. )
  261.  
  262. (welcome)
  263. (set @default-dest "C:")
  264.  
  265. (complete 5)
  266. (P_SETUP_NSDPATCH_TEXTS @language)
  267. (complete 10)
  268. (P_INSTALL_NSDPATCH "")
  269. (complete 100)
  270.  
  271. ;------------------------------------------------------------------------
  272.  
  273.