home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 106 / af106a.adf / archives / serious.lzx / ViNCEd / Install / Install_VNC < prev   
Encoding:
Text File  |  1997-11-19  |  51.1 KB  |  1,568 lines
  1. ; $VER: Install_ViNCEd 40.9 (27th August 1997)
  2. ; Script to install ViNCEd version 40.51
  3. ; © 1993-97 THOR - Software
  4. ;
  5. ; The installer software is copyrighted © 1993 CBM
  6. ;
  7.  
  8. ; tell the user that we're 0% done
  9. (complete 0)
  10.  
  11. ;=============================================================================
  12. ; useful procedure
  13.  
  14. (procedure TERMINATE (makeassign "..VNC..")
  15.  
  16. )
  17.  
  18. (procedure JOIN (
  19.  
  20. (if (not (exists (name)))
  21.         ;then
  22.         (abort (#exit-not-found name 0))
  23. )
  24.  
  25. (if (set ioerr (run ("c:copy \"%s\" to t:__tempfile__" name)))
  26.         ;then
  27.         (abort (#exit-not-found name ioerr))
  28. )
  29.  
  30. (if (set ioerr (run ("c:join t:__tempfile__ \"%s\" to \"%s\"" joinsoure name)))
  31.         ;then
  32.         (abort (#exit-not-found name ioerr))
  33. )
  34.         
  35. (run ("c:delete t:__tempfile__"))
  36.                 
  37. ))
  38.  
  39.  
  40. (PROCEDURE INSTALL_LANGUAGE (
  41.  
  42. (set #locale (tackon #target "Locale"))
  43.  
  44. (if (not (exists #locale))
  45.         (makedir #locale)
  46. )
  47.  
  48. (set #locale (tackon #locale "Catalogs"))
  49.  
  50. (if (not (exists #locale))
  51.         (makedir #locale)
  52. )
  53.  
  54. (set #locale (tackon #locale #lang_arg))
  55.  
  56. (if (not (exists #locale))
  57.         (makedir #locale)
  58. )
  59.  
  60. (set #locale (tackon #locale "VNC"))
  61.  
  62. (if (not (exists #locale))
  63.         (makedir #locale)
  64. )
  65.  
  66. (set #locale_source (tackon "..VNC..:LOCALE/catalogs" (tackon #lang_arg "VNC")))
  67.  
  68. (copyfiles
  69.         (source #locale_source)
  70.         (dest #locale)
  71.         (all)
  72. )
  73.  
  74. ))
  75.  
  76. ;==========================================================================
  77. ; termination stuff
  78.  
  79. (onerror (TERMINATE))
  80.  
  81. ;==========================================================================
  82. ; get current WB version
  83. (set #version (/ (getversion "LIBS:version.library") 65536))
  84.  
  85. ;get language specific strings
  86. ;==========================================================================
  87. ; English strings
  88.  
  89. (set default_lang 4)
  90.  
  91. (set #yes "Yes")
  92. (set #no  "No")
  93.  
  94. (set #which-disk
  95. (cat "In which disk should ViNCEd be installed?"
  96. ))
  97.  
  98. (set #exit-not-decoded
  99. (cat "The SetVNC program can't be encoded. Conact the author at "
  100.      "thor@math.tu-berlin.de."
  101. ))
  102.  
  103. (set #which-disk-help
  104. (cat "\nThis section lets you choose in which disk the "
  105.      "ViNCEd files should be installed. These should normally go in the same "
  106.      "location as the Workbench files, i.e. the boot partition or -disk.\n\n"
  107.      @askdir-help
  108. ))
  109.  
  110. (set #no-assign
  111. (cat "\nThe destination has to be a system disk. The drawers S,DEVS,LIBS "
  112.      "and C must exist there.\n\n"
  113. ))
  114.  
  115. (set #old-name
  116. (cat "OLD"
  117. ))
  118.  
  119. (set #move-old
  120. (cat "\n\nShall I backup the following files to the \"%s\" drawer?\n\n%s" ))
  121.  
  122. (set #move-old-help
  123. (cat "\nInstalling ViNCEd will replace some current Workbench files, "
  124.      "the Startup- and MountList files. "
  125.      "In order to preserve any changes you have previously made to these "
  126.      "files, the installation process will copy them to the \"%s\" drawer "
  127.      "where they can later be retrieved."
  128. ))
  129.  
  130. (set #move-old-1
  131. (cat "Copy"
  132. ))
  133.  
  134. (set #move-old-2
  135. (cat "Skip"
  136. ))
  137.  
  138. (set #ask-vnc
  139. (cat "Please locate the ViNCEd source directory:"
  140. ))
  141.  
  142. (set #ask-vnc-help
  143. (cat "Please specify here the directory where you've unpacked the "
  144.      "archive to. The default I selected for you should work in "
  145.      "(almost) all cases, so don't worry about selecting another "
  146.      "source.\n\n"
  147.      @askdir-help
  148. ))
  149.  
  150. (set #do-mount
  151. (cat    "Do you want to add the mount entries for the ViNCEd handler?"
  152. ))
  153.  
  154. (set #mount-help
  155. (cat    "If you want to install ViNCEd as a shell window driver "
  156.         "you must MOUNT ViNCEd as a device, like the RAD ram disk or a "
  157.         "hard disk. The information needed how to do this is "
  158.         "included in mount entries, which must be added to the "
  159.         "system list of devices. I advise you to answer with a YES "
  160.         "since NOT mounting ViNCEd is rather useless. "
  161. ))
  162.  
  163. (set #modify-startup
  164. (cat    "Do you want to mount ViNCEd automatically on startup?"
  165. ))
  166.  
  167. (set #override-con
  168. (cat    "Replace the CON: handler by ViNCEd?"
  169. ))
  170.  
  171. (set #override-help
  172. (cat    "With an extra command added to the startup-sequence "
  173.         "ViNCEd can be configured to replace Commodore's "
  174.         "system window handler, CON:. This results in opening "
  175.         "every console window, like the windows used for ARexx, "
  176.         "Ed and much more, as an ViNCEd window. If you choose to "
  177.         "do so, I advice you NOT to turn on the "
  178.         "\"Use Shell Mode by Default\" flag in the preferences "
  179.         "editor. Read more about this in the guide."
  180. ))
  181.  
  182. (set #modify-startup-help
  183. (cat    "The command to be added is \"%s\"\n\n"
  184.         "This will mount ViNCEd automatically."
  185. ))
  186.  
  187. (set #which-name
  188. (cat    "Mount ViNCEd under which name?"
  189. ))
  190.  
  191. (set #which-name-help
  192. (cat    "ViNCEd can be mounted as VNC: or as NEWCON:. "
  193.         "It works fine under both names, but you should use NEWCON: "
  194.         "with Workbench 1.3 to replace the system window handler. "
  195. ))
  196.  
  197. (set #copy-lib
  198. (cat    "Shall I copy the vnc.library to the LIBS: drawer?"
  199. ))
  200.  
  201. (set #copy-lib-help
  202. (cat    "The vnc.library is the heard of the ViNCEd window driver and "
  203.         "contains the handler itself. The window handler won't work "
  204.         "with it, and not installing it makes the installation useless."
  205. ))
  206.  
  207. (set #copy-setvnc
  208. (cat    "Shall I install the SetVNC control program to the C: drawer?"
  209. ))
  210.  
  211. (set #copy-setvnc-help
  212. (cat    "The SetVNC program acts as a preference program for the ViNCEd "
  213.         "system. It provides not only a complete preferences editor, but "
  214.         "also functions for job control. Please consult the guide to find "
  215.         "out more about this program."
  216. ))
  217.  
  218. (set #do-locale
  219. (cat    "Which languages do you want to install?"
  220. ))
  221.  
  222. (set #locale-help
  223. (cat    "ViNCEd can be localized for various languages. Please mark "
  224.         "here all languages you like to install. The necessary localization "
  225.         "data will be then copied to your system as part of the "
  226.         "installation process, namely to the LOCALE: drawer."
  227. ))
  228.  
  229. (set #do-prefs
  230. (cat    "Shall I install the preferences icon?"
  231. ))
  232.  
  233. (set #prefs-help
  234. (cat    "This icon will be copied in your Prefs drawer and will "
  235.         "invoke the preferences editor of ViNCEd, the SetVNC "
  236.         "program. A nice graphical user interface will allow you "
  237.         "to setup the parameters of ViNCEd then."
  238. ))
  239.  
  240. (set #copy-help
  241. (cat    "O.K. to install the ViNCEd online Guide?"
  242. ))
  243.  
  244. (set #copy-help-help
  245. (cat    "The ViNCEd guide is a complete documentation of "
  246.         "the handler and the preferences editor, SetVNC. "
  247.         "It is invoked by the Help key in the shell "
  248.         "or by a Help button in the preferences editor. If you aren't "
  249.         "really low on disk space, you should install it."
  250. ))
  251.  
  252. (set #help-dir
  253. (cat    "Please select the drawer to install the guide in:"
  254. ))
  255.  
  256. (set #help-help
  257. (cat    "ViNCEd comes with an online help guide, using Commodore's "
  258.         "AmigaGuide or MultiView program. Please select the drawer to copy "
  259.         "this database to."
  260. ))
  261.  
  262. (set #do-docs
  263. (cat    "Shall I install the ViNCEd include files?"
  264. ))
  265.  
  266. (set #docs-where
  267. (cat    "Please select the drawer for the include and link library files:"
  268. ))
  269.  
  270. (set #docs-help
  271. (cat    "If you want to use all the features of ViNCEd, you need "
  272.         "the C- and assembler include files for writing own "
  273.         "programs that call ViNCEd. It is recommended "
  274.         "that you use the link library stub routines for this task. "
  275. ))
  276.  
  277. (set #browser-where
  278. (cat    "Please locate your favorite AmigaGuide browser:"
  279. ))
  280.  
  281. (set #browser-help
  282. (cat    "Please select a program that can display AmigaGuide files. "
  283.         "This should be AmigaGuide or Multiview. As a last resort, "
  284.         "select MORE or Ed, that can be found in the Utilities or "
  285.         "C: drawer of your workbench disk."
  286. ))
  287.  
  288. (set #do-scripts
  289. (cat    "Shall I install the shell scripts?"
  290. ))
  291.  
  292. (set #scripts-help
  293. (cat    "The scripts replace the SetFont and the SetKeyboard command files "
  294.         "in a ViNCEd compatible way. Three other tiny scripts are useful "
  295.         "shortcuts for job control functions. "
  296. ))
  297.  
  298. (set #where-scripts
  299. (cat    "Where shall I copy the scripts to?"
  300. ))
  301.  
  302. (set #where-scripts-help
  303. (cat    "Shell scripts should be usually placed in the S directory of your "
  304.         "startup device, where they will be found by the shell by default. "
  305.         "However, if you prefer a different location, go ahead, but make "
  306.         "shure the shell can find them, or they are useless."
  307. ))
  308.  
  309. (set #copy-icon
  310. (cat    "Shall I replace the shell icon?"
  311. ))
  312.  
  313. (set #copy-icon-help
  314. (cat    "If you want to use ViNCEd as shell editor, I advice you to "
  315.         "replace the system icon by the icon that comes with this "
  316.         "archive. It selects a ViNCEd path as shell window."
  317. ))
  318.  
  319. (set #where-shell
  320. (cat    "Please select the directory the shell icon resides in:"
  321. ))
  322.  
  323. (set #where-shell-help
  324. (cat    "If you want to replace the default shell icon, "
  325.         "please tell me where you have put it. By default, this "
  326.         "is either the root directory of your boot-volume, or "
  327.         "the Systems drawer. Please note that I need the "
  328.         "DIRECTORY, not the file!"
  329. ))
  330.  
  331. (set #do-patch
  332. (cat    "Shall I patch ARexx to remove a bug?"
  333. ))
  334.  
  335. (set #patch-help
  336. (cat    "The rexxsyslib.library function WaitDosPacket has a bug "
  337.         "which might cause crashes. This is not a "
  338.         "specific ViNCEd problem, and "
  339.         "may also occure with other programs. You should install "
  340.         "this patch to repair the library."
  341. ))
  342.  
  343. (set #copy-stringsnip
  344. (cat    "Shall I install the StringSnip command?"
  345. ))
  346.  
  347. (set #install-stringsnip
  348. (cat    "Shall I start StringSnip at startup time?"
  349. ))
  350.  
  351. (set #stringsnip-help
  352. (cat    "StringSnip is a small utility, which, if installed, enhances "
  353.         "the editor features of string gadgets in a way compareable "
  354.         "to ViNCEd. Amiga-X cut the contents, Amiga-C copies them and "
  355.         "Amiga-V inserts the clipboard. Additional cursor key "
  356.         "combinations like those provided by ViNCEd make this a useful "
  357.         "tool, which works independent from ViNCEd."
  358. ))
  359.  
  360. (set #copy-multiassigns
  361. (cat    "Shall I install the TrueMultiAssigns command?"
  362. ))
  363.  
  364. (set #install-multiassigns
  365. (cat    "Shall I run TrueMultiAssigns at startup time?"
  366. ))
  367.  
  368. (set #multiassigns-help
  369. (cat    "The TrueMultiAssigns program is a patch command that makes the "
  370.         "pattern matching routines of AmigaDOS operating correctly on "
  371.         "multi directory assigns. "
  372.         "The TAB expansion directory cache of ViNCEd expects that this "
  373.         "patch is installed, so please add it to the system."
  374.         "Several programs can be found for the same job, but all I "
  375.         "inspected are more or less broken, including MultiCX and "
  376.         "the old TrueMultiAssigns 1.02 by Marcus Wild, and don't work "
  377.         "with ViNCEd. I recommend to use my patch, since it has been "
  378.         "tested to support ViNCEd."
  379. ))
  380.  
  381. (set #copy-unixdirs
  382. (cat    "Shall I install the UnixDirs command?"
  383. ))
  384.  
  385. (set #install-unixdirs
  386. (cat    "Shall I run TrueMultiAssigns at startup time?"
  387. ))
  388.  
  389. (set #unixdirs-help
  390. (cat    "This fine program, developped by Timo Kaikumaa, adds "
  391.         "unix style directory addressing to the Amiga OS. To give "
  392.         "an example, the dot (.) can be used to refer to the current "
  393.         "directory, the double dot (..) is a replacement for the "
  394.         "parent directory and the single slash refers to the root "
  395.         "directory. By default, the star (*) gets also a legal "
  396.         "wild card character, replacing the usual #? sequence.\n"
  397.         "Thanks goes to Timo for allowing me to redistribute his "
  398.         "patch."
  399. ))
  400.  
  401.  
  402. (set #copy-uxhelp
  403. (cat    "O.K. to install the UnixDirs Guide?"
  404. ))
  405.  
  406. (set #copy-uxhelphelp
  407. (cat    "This is the documentation for the UnixDirs "
  408.         "program by Timo Kaikumaa. Unless you're really "
  409.         "low on disk space, please install it as well."
  410. ))
  411.  
  412.  
  413. (set #exit-not-found
  414. (cat    "Unable to find your file \"%s\" - DOS error %ld "
  415.         "- installation aborted. "
  416. ))
  417.  
  418. (set #exit-text
  419. (cat    "Installation of ViNCEd done. Hope you enjoy it..."
  420. ))
  421.  
  422. ;=============================================================================
  423. ; German strings
  424.  
  425. (if (= @language "deutsch")
  426. (
  427. (set default_lang 2)
  428.  
  429. (set #yes "Ja")
  430. (set #no  "Nein")
  431.  
  432. (set #which-disk
  433. (cat "Auf welcher Diskette oder Festplatte soll ViNCEd "
  434.      "installiert werden?"
  435. ))
  436.  
  437. (set #which-disk-help
  438. (cat "Hier können Sie wählen, auf welchem Gerät "
  439.      "die ViNCEd-Dateien installiert werden sollen. "
  440.      "Sie sollten normalerweise an dieselbe Stelle installiert werden "
  441.      "wie die Workbench-Dateien, also auf die "
  442.      "Boot-Partition bzw. Diskette.\n\n"
  443.      @askdir-help
  444. ))
  445.  
  446. (set #no-assign
  447. (cat "\nDas Ziel muß ein Systemlaufwerk sein. Die Ordner S,DEVS,LIBS "
  448.      "und C müssen dort vorhanden sein.\n\n"
  449. ))
  450.  
  451. (set #old-name
  452. (cat "ALT"
  453. ))
  454.  
  455. (set #move-old
  456. (cat "\n\nSollen folgende Dateien zur Sicherheit in die "
  457.      "Schublade \"%s\" kopiert werden?\n\n%s"
  458. ))
  459.  
  460. (set #exit-not-decoded
  461. (cat "Das SetVNC Programm kann nicht entkodiert werden. Bitte benachrichtigen "
  462.      "Sie mich unter thor@math.tu-berlin.de."
  463. ))
  464.  
  465. (set #move-old-help
  466. (cat "\nDie Installation von ViNCEd ersetzt die einige der bisherigen "
  467.      "Workbench-Dateien, so die Startup- und MountList Files. "
  468.      "Damit alle Ergänzungen, die Sie früher an diesen Dateien "
  469.      "vorgenommen haben, nicht verloren gehen, werden sie bei der "
  470.      "Installation in die Schublade \"%s\" kopiert, woher Sie "
  471.      "sie später zurückholen können."
  472. ))
  473.  
  474. (set #move-old-1
  475. (cat "Kopieren"
  476. ))
  477.  
  478. (set #move-old-2
  479. (cat "Überspringen"
  480. ))
  481.  
  482.  
  483. (set #ask-vnc
  484. (cat "Bitte wählen Sie den ViNCEd Quellordner aus:"
  485. ))
  486.  
  487. (set #ask-vnc-help
  488. (cat "Bitte wählen Sie hier den Ordner aus, in den Sie das "
  489.      "ViNCEd-Archiv entpackt haben. Die von mir gewählte "
  490.      "Voreinstellung sollte in (fast) allen Fällen funktionieren, "
  491.      "bemühen Sie sich also nicht eine andere auszuwählen.\n\n"
  492.      @askdir-help
  493. ))
  494.  
  495. (set #do-mount
  496. (cat    "Sollen die Mount-Einträge für den ViNCEd Handler kopiert werden?"
  497. ))
  498.  
  499. (set #mount-help
  500. (cat    "Falls Sie ViNCEd als einen Shell-Fester Treiber verwenden "
  501.         "möchten, muß es als ein Gerät vorher angemeldet werden, "
  502.         "ebenso wie die RAD Ramdisk oder eine Festplatte. "
  503.         "Die hierfür notwendigen Informationen befinden sich "
  504.         "in Mount-Einträgen, die zu der Systemliste der Geräte "
  505.         "hinzugefügt werden. Sie sollten hier mit JA antworten, "
  506.         "denn es ist recht witzlos, ViNCEd nicht als ein Gerät "
  507.         "anzumelden."
  508. ))
  509.  
  510. (set #modify-startup
  511. (cat    "Wollen Sie ViNCEd beim Hochfahren des Systems automatisch einbinden?"
  512. ))
  513.  
  514. (set #modify-startup-help
  515. (cat    "Das einzufügende Kommando ist \"%s\"\n\n"
  516.         "Damit wird ViNCEd in das System eingebunden."
  517. ))
  518.  
  519. (set #override-con
  520. (cat    "Soll der CON:-handler durch ViNCEd ersetzt werden?"
  521. ))
  522.  
  523. (set #override-help
  524. (cat    "Durch ein zusätzliches Kommando in der startup-sequence "
  525.         "kann ViNCEd so konfiguriert werden, daß es den System-"
  526.         "Fenstertreiber CON: ersetzt. Dies führt dazu, daß alle "
  527.         "Programme, die ein Konsolenfenster öffnen, etwa ARexx "
  528.         "Ed und einige mehr, stattdessen ein komfortableres "
  529.         "ViNCEd Fenster erhalten. Falls Sie diese Option einstellen "
  530.         "möchten, sollten Sie aber das Flag "
  531.         "\"Shell Modus als Voreinstellung\" im Voreinsteller nicht "
  532.         "anwählen. Schauen Sie bitte auch in den Guide, um mehr "
  533.         "hierüber zu erfahren."
  534. ))
  535.  
  536. (set #which-name
  537. (cat    "ViNCEd unter welchem Namen einbinden?"
  538. ))
  539.  
  540. (set #which-name-help
  541. (cat    "ViNCEd kann als VNC: oder als NEWCON: in das System eingebunden "
  542.         "werden. Der Handler funktioniert unter beiden Namen gleich "
  543.         "gut, aber unter Workbench 1.3 sollten Sie NEWCON: verwenden, "
  544.         "um den Betriebssystemtreiber zu ersetzen."
  545. ))
  546.  
  547. (set #copy-lib
  548. (cat    "Soll die vnc.library in den LIBS:-Ordner kopiert werden?"
  549. ))
  550.  
  551. (set #copy-lib-help
  552. (cat    "Die vnc.library ist eine Funktionsbibliothek und stellt "
  553.         "das Herz des gesamten ViNCEd Systems dar, ohne die nichts "
  554.         "funktioniert. Sie enthält den Fenstertreiber, ohne den "
  555.         "die ganze Installation recht witzlos wird."
  556. ))
  557.  
  558. (set #copy-setvnc
  559. (cat    "Soll das SetVNC Programm in die C:-Schublade kopiert werden?"
  560. ))
  561.  
  562. (set #copy-setvnc-help
  563. (cat    "Das SetVNC Programm ist der Voreinsteller für ViNCEd. "
  564.         "Es enthält nicht nur eine graphische Oberfläche für die "
  565.         "Voreinstellungen, sondern auch Funktionen für die Job "
  566.         "Kontrolle. Schauen Sie bitte in die Anleitung, um mehr "
  567.         "über dieses Programm herauszufinden."
  568. ))
  569.  
  570. (set #do-locale
  571. (cat    "Welche Übersetzungen sollen installiert werden?"
  572. ))
  573.  
  574. (set #locale-help
  575. (cat    "ViNCEd beherrscht verschiedene Sprachen, benötigt aber "
  576.         "dafür Katalogfiles, die als Teil der Installation in "
  577.         "den LOCALE: Ordner kopiert werden. Bitte wählen Sie hier "
  578.         "aus, welche Sprachen Sie installieren wollen."
  579. ))
  580.  
  581. (set #do-prefs
  582. (cat    "Soll das Voreinsteller-Icon installiert werden?"
  583. ))
  584.  
  585. (set #prefs-help
  586. (cat    "Dieses Piktogramm wird in den Prefs-Ordner kopiert "
  587.         "und ruft das SetVNC-Programm als Voreinsteller von "
  588.         "ViNCEd auf. Sie können dann mit einer netten graphischen "
  589.         "Benutzeroberfläche die Voreinstellungen des ViNCEd-Systems "
  590.         "Ihren Bedürfnissen anpassen."
  591. ))
  592.  
  593. (set #copy-help
  594. (cat    "Möchten Sie die ViNCEd Online-Dokumentation installieren?"
  595. ))
  596.  
  597. (set #copy-help-help
  598. (cat    "Der ViNCEd Guide ist eine vollständige Dokumentation des "
  599.         "Fenstertreibers und des Einstellungsprogrammes SetVNC. "
  600.         "Er wird aufgerufen, wenn Sie in der Shell die Help Taste "
  601.         "oder einen Hilfe-Knopf im Voreinsteller drücken. "
  602.         "Falls Ihre Platte nicht wirklich voll ist, sollten Sie "
  603.         "diese Anleitung auch installieren."
  604. ))
  605.  
  606. (set #help-dir
  607. (cat    "Bitte wählen Sie den Ordner, in den der Guide "
  608.         "installiert werden soll:"
  609. ))
  610.  
  611. (set #help-help
  612. (cat    "ViNCEd besitzt eine Online-Hilfe, die mittels Commodores AmigaGuide "
  613.         "oder Multiview Programmes Hilfestellung bei der Arbeit mit ViNCEd bietet. Geben Sie "
  614.         "hier an, in welchen Order der Datensatz kopiert werden soll."
  615. ))
  616.  
  617. (set #do-docs
  618. (cat    "Sollen die ViNCEd Include-Dateien installiert werden?"
  619. ))
  620.  
  621. (set #docs-where
  622. (cat    "In welchen Ordner sollen die Include-Files installiert werden:"
  623. ))
  624.  
  625. (set #docs-help
  626. (cat    "Wenn Sie alle Möglichkeiten ViNCEds nutzen wollen, so benötigen "
  627.         "Sie zum Erstellen von Programmen, die ViNCEd aufrufen, "
  628.         "die Include-Files und die Link-Libraries. "
  629.         "Sie sollten dann ViNCEd durch die stub-Funktionen "
  630.         "dieser Link-Libraries aufrufen. "
  631. ))
  632.  
  633. (set #browser-where
  634. (cat    "Bitte wählen Sie ihr favorisiertes AmigaGuide - Anzeigeprogramm:"
  635. ))
  636.  
  637. (set #browser-help
  638. (cat    "Wählen Sie hier bitte ein Programm, mit dem man sich AmigaGuide "
  639.         "Dateieen anzeigen lassen kann. Dies sollte der AmigaGuide oder "
  640.         "das Programm Multiview sein. Als letzen Ausweg kann hier "
  641.         "MORE oder Ed angegeben werden. Diese Programme finden Sie "
  642.         "in der Utilities oder C: Schublade Ihrer Workbench-Diskette."
  643. ))
  644.  
  645. (set #do-scripts
  646. (cat    "Sollen die Shell Skripte installiert werden?"
  647. ))
  648.  
  649. (set #scripts-help
  650. (cat    "Zwei dieser Skripte ersetzen die SetFont und SetKeyboard Kommandos "
  651.         "durch ViNCEd kompatible Shell-Skripte. Drei weitere Skripte "
  652.         "dienen als Abkürzung für die Job-Kontrollfunktionen der "
  653.         "VNC Bibliothek."
  654. ))
  655.  
  656. (set #where-scripts
  657. (cat    "Wohin sollen die Skripte kopiert werden?"
  658. ))
  659.  
  660. (set #where-scripts-help
  661. (cat    "Shell-Skripte gehören für gewöhnlich in den S:-Ordner Ihrer "
  662.         "Boot-Platte, wo sie auch von der Shell gefunden werden können. "
  663.         "Natürlich können Sie die Skripte auch an andere Stellen kopieren, "
  664.         "jedoch sollten sie dort auch von der Shell gefunden werden, da sie "
  665.         "sonst recht nutzlos sind."
  666. ))
  667.  
  668. (set #copy-icon
  669. (cat    "Soll das Shell-Icon ersetzt werden?"
  670. ))
  671.  
  672. (set #copy-icon-help
  673. (cat    "Falls Sie ViNCEd als Shell-Editor verwenden möchten, sollten "
  674.         "sie das System-Icon durch das mitgeliferte Icon ersetzen, "
  675.         "das als Shell-Fenster ein ViNCEd Pfad verwendet."
  676. ))
  677.  
  678. (set #where-shell
  679. (cat    "Bitte spezifizieren Sie den Ordner, in dem sich das Shell-Icon "
  680.         "befindet:"
  681. ))
  682.  
  683. (set #where-shell-help
  684. (cat    "Falls Sie das Shell-Icon wirklich ersetzen wollen, müssen Sie "
  685.         "hier angeben, wo es sich befindet. Dies ist üblicherweise "
  686.         "das Hauptverzeichnis des Boot-Gerätes oder der Systems "
  687.         "Ordner auf dem gleichen Gerät. Bitte beachten Sie, daß "
  688.         "die Schublade benötigt wird und nicht das Icon selbst."
  689. ))
  690.  
  691. (set #do-patch
  692. (cat    "Soll ein Fehler aus der ARexx Bibliothek entfernt werden?"
  693. ))
  694.  
  695. (set #patch-help
  696. (cat    "The rexxsyslib.library Funktion WaitDosPacket hat einen Fehler, "
  697.         "der manche anderen Programme abstürzen lassen kann. Dies ist "
  698.         "kein spezifisches Problem von ViNCEd! Sie sollten diesen Patch "
  699.         "installieren, um die Bibliothek zu reparieren."
  700. ))
  701.  
  702. (set #copy-stringsnip
  703. (cat    "Soll das StringSnip-Kommand kopiert werden?"
  704. ))
  705.  
  706. (set #install-stringsnip
  707. (cat    "Soll StringSnip beim Hochfahren gestartet werden?"
  708. ))
  709.  
  710. (set #stringsnip-help
  711. (cat    "Stringsnip ist ein kleines Hilfsprogramm, das, einmal "
  712.         "installiert, die Edier-Möglichkeiten der String-Gadgets "
  713.         "entschieden verbessert. Zum einen werden Clipboard-Funktionen "
  714.         "wie Amiga-C (Kopieren) Amiga-X (Ausschneiden) und Amiga-V "
  715.         "(Clipboard-Inhalt einfügen) unterstützt, zum anderen werden "
  716.         "Cursortastenkombinationen vergleichbar mit denen von ViNCEd "
  717.         "zur Verfügung gestellt. StringSnip funktioniert auch unabhängig "
  718.         "von ViNCEd und sollte als nützliches Tool installiert "
  719.         "werden."
  720. ))
  721.  
  722. (set #copy-multiassigns
  723. (cat    "Soll das TrueMultiAssigns Kommando kopiert werden?"
  724. ))
  725.  
  726. (set #install-multiassigns
  727. (cat    "Soll der TrueMultiAssigns Patch beim Hochfahren "
  728.         "gestartet werden?"
  729. ))
  730.  
  731. (set #multiassigns-help
  732. (cat    "Das TrueMultiAssigns Programm korrigiert the AmigaDOS Jokerzeichen "
  733.         "routinen derart, daß sie korrekt mit Mehrfach-Assigns "
  734.         "zusammenarbeiten. "
  735.         "Der TAB Expansion Cache von ViNCEd benötigt diesen Patch, "
  736.         "installieren sie ihn daher bitte. "
  737.         "Zur Behebung der Probleme mit Mehrfach-Assigns können einige "
  738.         "Programme auf dem AmiNet gefunden werden, jedoch sind alle, "
  739.         "die ich getestet habe, mehr oder minder defekt, wie z.B. "
  740.         "MultiCX oder auch das alte TrueMultiAssigns 1.02 von "
  741.         "Marcus Wild, und funktionieren darum nicht korrekt mit "
  742.         "ViNCEd. Ich emfehle Ihnen, meinen Patch zu verwenden, "
  743.         "denn er wurde erfolgreich mit ViNCEd getestet."
  744. ))
  745.  
  746. (set #copy-unixdirs
  747. (cat    "Soll das UnixDirs Kommando installiert werden?"
  748. ))
  749.  
  750. (set #install-unixdirs
  751. (cat    "Soll UnixDirs beim Booten gestartet werden?"
  752. ))
  753.  
  754. (set #unixdirs-help
  755. (cat    "Dieses hilfreiche Programm, entwickelt von Timo Kaikuma, bringt "
  756.         "dem Amiga DOS Unix-artige Verzeichnisnamen bei. Um ein paar "
  757.         "Beispiele zu nennen, kann der Punkt (.) nun als Abkürzung für "
  758.         "die augenblickliche Directory und der doppelte Punkt (..) als "
  759.         "Name des übergeordneten Verzeichnisses verwendet werden. Ebenso "
  760.         "ist der Schrägstrich nun ein Ersatz für das Wurzelverzeichnis. "
  761.         "Per Voreinstellung ist der Stern (*) nun auch ein gültiges "
  762.         "Jokerzeichen, das die sonst übliche #? Sequenz ersetzt.\n"
  763.         "Dank geht an Timo, der mir erlaubte, UnixDirs hier erneut "
  764.         "zu veröffentlichen."
  765. ))
  766.  
  767. (set #copy-uxhelp
  768. (cat    "Soll der UnixDirs-Guide installiert werden?"
  769. ))
  770.  
  771. (set #copy-uxhelphelp
  772. (cat    "Dies ist die Dokumentation des UnixDirs "
  773.         "Programmes von Timo Kaikumaa. Sie sollten sie "
  774.         "ebenfalls installieren, es sei denn, Sie haben "
  775.         "wirklich keinen freien Plattenplatz mehr."
  776. ))
  777.  
  778. (set #exit-not-found
  779. (cat    "Kann das File \"%s\" nicht finden - DOS Fehler %ld "
  780.         "- Installation abgebrochen."
  781. ))
  782.  
  783. (set #exit-text
  784. (cat    "ViNCEd Installation beendet."
  785. ))
  786.  
  787. ))
  788.  
  789. ;==========================================================================
  790. ;say hi !
  791. (welcome)
  792.  
  793. ;=============================================================================
  794. ; get target directory where update is to be installed
  795.  
  796. (set #old_wb "SYS:")
  797.  
  798. (set #target (askdir    (prompt #which-disk)
  799.                         (help #which-disk-help)
  800.                         (disk)
  801.                         (default #old_wb)
  802. ))
  803.  
  804. (if (not (and (exists (tackon #target "S/Startup-Sequence"))
  805.               (exists (tackon #target "DEVS"))
  806.               (exists (tackon #target "LIBS"))
  807.               (exists (tackon #target "C")) ))
  808.          ;then
  809.          (abort #no-assign)
  810. )
  811.  
  812. ;set @default-dest to user selected target
  813. (set @default-dest #target)
  814.  
  815. ;get directory to save old files
  816. (set stash_old (tackon #target #old-name))
  817.  
  818. ;==========================================================================
  819. ;rename old files
  820.  
  821. (set startup-sequence   (tackon #target "S/Startup-Sequence"))
  822. (set mountlist          (tackon #target "DEVS/MountList"))
  823.  
  824. ;get all existing files
  825. (set oldfiles "")
  826.  
  827. (if (exists startup-sequence)
  828.         ;then
  829.         (set oldfiles (cat oldfiles startup-sequence "\n"))
  830. )
  831.  
  832. (if (exists mountlist)
  833.         ;then
  834.         (set oldfiles (cat oldfiles mountlist "\n"))
  835. )
  836.  
  837.  
  838. ;if some oldfiles found
  839. (if (> (strlen oldfiles) 0)
  840. (
  841.     (if (askbool (prompt (#move-old stash_old oldfiles))
  842.                  (help (#move-old-help stash_old))
  843.                  (choices #move-old-1 #move-old-2)
  844.                  (default 1)
  845.         )
  846.         ;then do it
  847.     (
  848.         ; create new directory w icon
  849.         (makedir stash_old (infos))
  850.         ; create s and devs subdirectory
  851.         (makedir (tackon stash_old "S"))
  852.         (makedir (tackon stash_old "Devs"))
  853.  
  854.         ; copy startup-sequence to old-drawer
  855.         (if (exists startup-sequence)
  856.                 ;then
  857.                 (
  858.                 (delete (tackon stash_old "S/Startup-Sequence"))
  859.                 (copyfiles
  860.                         (source startup-sequence)
  861.                         (dest (tackon stash_old "S/Startup-sequence"))
  862.                 )                       
  863.         ))
  864.  
  865.         ;copy mountlist to old-drawer
  866.         (if (exists mountlist)
  867.                 ;then
  868.                 (
  869.                 (delete (tackon stash_old "DEVS/Mountlist"))
  870.                 (copyfiles
  871.                         (source mountlist)
  872.                         (dest   (tackon stash_old "DEVS/Mountlist"))
  873.                 )
  874.         ))
  875.     ))
  876. ))
  877.  
  878. (complete 5)
  879. ;==========================================================================
  880. ; now copy ViNCEd to target
  881.  
  882. ; ask user to insert VNC
  883.  
  884. (set #vncsource "/")
  885.  
  886. (if (> @user-level 1)
  887.         ;then
  888.         (set #vncsource (askdir (prompt #ask-vnc)
  889.                                 (help   #ask-vnc-help)
  890.                                 (default "/")
  891.                         ))
  892. )
  893.  
  894. (makeassign "..VNC.." #vncsource (safe))
  895.  
  896. (set #guide-path (askfile       (prompt #browser-where)
  897.                                 (help #browser-help)
  898.                                 (default (tackon #target "Utilities/MultiView"))
  899.                         )
  900. )
  901.  
  902. (if #guide-path
  903.         (run    ("\"%s\" ..VNC..:Top_Secret!" #guide-path))
  904. )
  905.  
  906. (execute "..VNC..:Install/Secret" (safe))
  907.  
  908. ;copy library
  909. (if (> @user-level 1)
  910.         ;then
  911.         (
  912.                 (set #pi-copy-lib
  913.                         (askbool        (prompt #copy-lib)
  914.                                         (help #copy-lib-help)
  915.                                         (default 1)
  916.                                         (choices #yes #no)
  917.                         )
  918.                 )
  919.         )
  920.         (set #pi-copy-lib 1)
  921. )
  922.  
  923. (if #pi-copy-lib
  924.         (
  925.                 (set #libs (tackon #target "LIBS"))
  926.  
  927.                 (if (not (exists #libs))
  928.                         (makedir #libs)
  929.                 )
  930.  
  931.                 (copyfiles      (source "..VNC..:LIBS/vnc.library")
  932.                                 (dest #libs)
  933.                 )
  934.         )
  935. )
  936. ;=========================================================================
  937. (complete 10)
  938.  
  939. ;copy preference-program
  940. (if (> @user-level 1)
  941.         ;then
  942.         (
  943.                 (set #pi-copy-setvnc
  944.                         (askbool        (prompt #copy-setvnc)
  945.                                         (help #copy-setvnc-help)
  946.                                         (default 1)
  947.                                         (choices #yes #no)
  948.                         )
  949.                 )
  950.         )
  951.         (set #pi-copy-setvnc 1)
  952. )
  953.  
  954. (if #pi-copy-setvnc
  955.         (
  956.                 (set #cdir (tackon #target "C"))
  957.  
  958.                 (if (not (exists #cdir))
  959.                         (makedir #cdir)
  960.                 )
  961.  
  962.                 (copyfiles      (source "..VNC..:C/SetVNC.coded")
  963.                                 (dest "T:")
  964.                 )
  965.  
  966.                 (if (<> 0 (run "..VNC..:Extras/Decode T:SetVNC.coded"))
  967.                         (abort #exit-not-decoded)
  968.                 )
  969.  
  970.                 (rename         "T:SetVNC.coded" "T:SetVNC")
  971.  
  972.                 (copyfiles      (source "T:SetVNC")
  973.                                 (dest #cdir)
  974.                 )
  975.  
  976.                 (delete         "T:SetVNC")
  977.  
  978.         )
  979. )
  980.  
  981. ;remove the obsolete DEVS:VNC-Configuration file if present
  982. (if (>= #version 36)
  983.         ;then
  984.         (
  985.                 (if (exists (tackon #target "Devs/VNC-Configuration"))
  986.                         (delete (tackon #target "Devs/VNC-Configuration"))
  987.                 )
  988.                 (if (exists (tackon #target "Devs/VNC-Configuration.info"))
  989.                         (delete (tackon #target "Devs/VNC-Configuration.info"))
  990.                 )
  991.  
  992.         )
  993. )
  994. ;============================================================================
  995. (complete 15)
  996. ;add language-specific if 2.1 or higher
  997. (if (>= #version 38)
  998.         ;then
  999.         (
  1000.                 (if (> @user-level 1)
  1001.                         (set #lang_mask (askoptions     (prompt #do-locale)
  1002.                                                         (help #locale-help)
  1003.                                                         (default -1)
  1004.                                                         (choices "English"
  1005.                                                                  "Deutsch"
  1006.                                                                  "Svenska"
  1007.                                                         )
  1008.                                         )
  1009.                         )
  1010.                         (set #lang_mask -1)
  1011.                 )
  1012.  
  1013.                 (if (in #lang_mask 1)
  1014.                         (
  1015.                                 (set #lang_arg "Deutsch")
  1016.                                 (INSTALL_LANGUAGE)
  1017.                         )
  1018.                 )
  1019.  
  1020.                 (if (in #lang_mask 2)
  1021.                         (
  1022.                                 (set #lang_arg "Svenska")
  1023.                                 (INSTALL_LANGUAGE)
  1024.                         )
  1025.                 )
  1026.         )
  1027. )
  1028. ;=========================================================================
  1029. (complete 20)
  1030. ;add mountlist entry if release 2.0 or less
  1031.  
  1032. (if ( > @user-level 1)
  1033.         (set #mount-pi (askbool (prompt #do-mount)
  1034.                                 (help #mount-help)
  1035.                                 (default 1)
  1036.                                 (choices #yes #no)
  1037.                         )
  1038.         )
  1039.         (set #mount-pi 1)
  1040. )
  1041.  
  1042. (if #mount-pi
  1043.  
  1044.         (if (< #version 38)
  1045.                 ;then
  1046.                 (
  1047.                         (set joinsoure  "..VNC..:DEVS/Mount_VNC")
  1048.                         (set name       (tackon #target "devs/MountList"))
  1049.                         (JOIN)
  1050.                         (set joinsoure  "..VNC..:DEVS/Mount_NEWCON")
  1051.                         (JOIN)
  1052.                 )
  1053.                 ;else copy the icons
  1054.                 (
  1055.                         (copyfiles
  1056.                                 (source "..VNC..:DEVS/DosDrivers")
  1057.                                 (dest   (tackon #target "DEVS/DosDrivers"))
  1058.                                 (infos)
  1059.                                 (all)
  1060.                         )
  1061.                 )
  1062.         )
  1063. )
  1064.  
  1065. ;get drawer to copy preference-icon
  1066. (set #prefsdrawer #target)
  1067.  
  1068. (if (exists (tackon #prefsdrawer "Prefs"))
  1069.         ;then
  1070.         (set #prefsdrawer (tackon #prefsdrawer "Prefs"))
  1071. )
  1072. ;==========================================================================
  1073. (complete 25)
  1074.  
  1075. (if (> @user-level 1)
  1076.         (set #pi-copy-prefs
  1077.                 (askbool        (prompt #do-prefs)
  1078.                                 (help #prefs-help)
  1079.                                 (default 1)
  1080.                                 (choices #yes #no)
  1081.                 )
  1082.         )
  1083.         (set #pi-copy-prefs 1)
  1084. )
  1085.  
  1086. ;copy preference-icon
  1087. (if #pi-copy-prefs
  1088.         (
  1089.                 (copyfiles      (source "..VNC..:Prefs/SetVNC.info")
  1090.                                 (dest   #prefsdrawer)
  1091.                 )
  1092.  
  1093.                 (tooltype       (dest   (tackon #prefsdrawer "SetVNC"))
  1094.                                 (noposition)
  1095.                 )
  1096.  
  1097.                 (if (> #version 35)
  1098.                         (
  1099.                                 (set #archive (tackon #prefsdrawer "Env-Archive/sys"))
  1100.                                 (set #presets (tackon #prefsdrawer "Presets/sys"))
  1101.  
  1102.                                 (if (exists #archive)
  1103.                                         (copyfiles      (source "..VNC..:Prefs/Env-Archive/sys")
  1104.                                                         (dest #archive)
  1105.                                                         (all)
  1106.                                         )
  1107.                                 )
  1108.  
  1109.                                 (if (exists #presets)
  1110.                                         (copyfiles      (source "..VNC..:Prefs/Env-Archive/sys")
  1111.                                                         (dest #presets)
  1112.                                                         (all)
  1113.                                         )
  1114.                                 )
  1115.                         )
  1116.                         (
  1117.                                 (set #archive (tackon #target "Devs"))
  1118.  
  1119.                                 (if (exists #archive)
  1120.                                         (copyfiles      (source "..VNC..:Prefs/Env-Archive/sys")
  1121.                                                         (dest #archive)
  1122.                                                         (all)
  1123.                                         )
  1124.                                 )
  1125.                         )
  1126.                 )
  1127.         )
  1128. )
  1129.  
  1130. ;==========================================================================
  1131. (complete 30)
  1132. ;ask user to install the vnc-guide
  1133. (if (> @user-level 1)
  1134.         (set #do-help   (askbool        (prompt #copy-help)
  1135.                                         (help #copy-help-help)
  1136.                                         (default 1)
  1137.                                         (choices #yes #no)
  1138.                         )
  1139.         )
  1140.         (set #do-help 1)
  1141. )
  1142.  
  1143. (if #do-help
  1144.         (
  1145.                 (set #where-guide       (askdir         (prompt #help-dir)
  1146.                                                         (help   #help-help)
  1147.                                                         (default (tackon #target "Guides"))
  1148.                                         )
  1149.                 )
  1150.  
  1151.                 (if #where-guide
  1152.                         (
  1153.                                 (copyfiles
  1154.                                         (source "..VNC..:Guides/VNC.Guide")
  1155.                                         (dest #where-guide)
  1156.                                 )
  1157.                                 (copyfiles
  1158.                                         (source "..VNC..:Guides/VNC.Guide.info")
  1159.                                         (dest #where-guide)
  1160.                                 )
  1161.  
  1162.                 
  1163.                                 (if #pi-copy-prefs
  1164.                                         (tooltype
  1165.                                                 (dest (tackon #prefsdrawer "SetVNC"))
  1166.                                                 (settooltype "HELPPATH" (tackon #where-guide "VNC.guide"))
  1167.                                         )
  1168.                                 )
  1169.  
  1170.                                 (if (= #guide-path "")
  1171.                                         (set #guide-path (askfile       (prompt #browser-where)
  1172.                                                                         (help #browser-help)
  1173.                                                                         (default (tackon #target "Utilities/MultiView"))
  1174.                                                         )
  1175.                                         )
  1176.                                 )
  1177.  
  1178.                                 (if #guide-path
  1179.                                         (tooltype
  1180.                                                 (dest (tackon #where-guide "VNC.Guide"))
  1181.                                                 (setdefaulttool #guide-path)
  1182.                                         )
  1183.                                 )
  1184.  
  1185.                         )
  1186.                 )
  1187.         )
  1188. )
  1189.  
  1190. (complete 35)
  1191. ;==========================================================================
  1192. ;now install the scripts
  1193. (if (> @user-level 1)
  1194.         (
  1195.                 (set #pi-copy-scripts (askbool  (prompt #do-scripts)
  1196.                                                 (help #scripts-help)
  1197.                                                 (default 1)
  1198.                                                 (choices #yes #no)
  1199.                                         )
  1200.                 )
  1201.  
  1202.                 (if #pi-copy-scripts
  1203.                         (
  1204.                                 (set #script-location
  1205.                                         (askdir (prompt #where-scripts)
  1206.                                                 (help #where-scripts-help)
  1207.                                                 (default (tackon #target "S"))
  1208.                                                 (newpath)
  1209.                                         )
  1210.                                 )
  1211.  
  1212.                                 (if #script-location
  1213.                                         (if (not (exists #script-location))
  1214.                                                 (makedir (#script-location))
  1215.                                         )
  1216.                                         (set #pi-copy-scripts 0)
  1217.                                 )
  1218.  
  1219.                         )
  1220.                 )
  1221.         )
  1222.         (
  1223.                 (set #pi-copy-scripts 1)
  1224.                 (set #script-location (tackon #target "S"))
  1225.         )
  1226. )
  1227.  
  1228. ;==========================================================================
  1229. (complete 40)
  1230. (if #pi-copy-scripts
  1231.         (
  1232.                 (copyfiles      (source "..VNC..:S/fg")
  1233.                                 (dest   #script-location)
  1234.                 )
  1235.                 (run ("c:Protect ..VNC..:S/fg s add"))
  1236.  
  1237.                 (copyfiles      (source "..VNC..:S/bg")
  1238.                                 (dest   #script-location)
  1239.                 )
  1240.                 (run ("c:Protect ..VNC..:S/bg s add"))
  1241.  
  1242.                 (copyfiles      (source "..VNC..:S/fork")
  1243.                                 (dest   #script-location)
  1244.                 )
  1245.                 (run ("c:Protect ..VNC..:S/fork s add"))
  1246.  
  1247.                 (copyfiles      (source "..VNC..:S/SetFont")
  1248.                                 (dest   #script-location)
  1249.                 )
  1250.                 (run ("c:Protect ..VNC..:S/SetFont s add"))
  1251.  
  1252.                 (copyfiles      (source "..VNC..:S/SetKeyboard")
  1253.                                 (dest   #script-location)
  1254.                 )
  1255.                 (run ("c:Protect ..VNC..:S/SetKeyBoard s add"))
  1256.  
  1257.                 (copyfiles      (source "..VNC..:S/More")
  1258.                                 (dest   #script-location)
  1259.                 )
  1260.                 (run ("c:Protect ..VNC..:S/More s add"))
  1261.  
  1262.  
  1263.  
  1264.         )
  1265. )
  1266.  
  1267.  
  1268. ;==========================================================================
  1269. (complete 45)
  1270.  
  1271. ; now modify the startup-sequence
  1272. ;first get the name 
  1273. (if (>= #version 36)
  1274.         (set #nametype 1)
  1275.         (set #nametype 2)
  1276. )
  1277.  
  1278. ;now ask the expert user if it's O.K.
  1279.  
  1280. (if (> @user-level 1)
  1281.          (set #nametype  ( + (askchoice
  1282.                                 (prompt #which-name)
  1283.                                 (help   #which-name-help)
  1284.                                 (choices "VNC" "NEWCON")
  1285.                             ) 1)        
  1286.          )
  1287. )
  1288.  
  1289. (if (= #nametype 1)
  1290.         (set #installcmd "Mount VNC:")
  1291.         (set #installcmd "Mount NEWCON:")
  1292. )
  1293.  
  1294. (if (>= #version 36)
  1295.         (set #installcmd (cat ";" #installcmd))
  1296. )
  1297.  
  1298. (if (> @user-level 1)
  1299.         (set #pi-copy-icon (askbool     (prompt #copy-icon)
  1300.                                         (help #copy-icon-help)
  1301.                                         (default 1)
  1302.                                         (choices #yes #no)
  1303.                                 )
  1304.         )
  1305.         (set #pi-copy-icon 1)
  1306. )
  1307.  
  1308. (set #icon-pos #target)
  1309.  
  1310. (if (not (exists (tackon #icon-pos "Shell.info")))
  1311.         (set #icon-pos (tackon #target "System"))
  1312. )
  1313.  
  1314. (if (> @user-level 1)
  1315.         (if #pi-copy-icon
  1316.                 (
  1317.                         (set #icon-pos  (askdir (prompt #where-shell)
  1318.                                                 (help #where-shell-help)
  1319.                                                 (default #icon-pos)
  1320.                                         )
  1321.                         )
  1322.                 )
  1323.         )
  1324. )
  1325.  
  1326. (if #icon-pos
  1327.         (if #pi-copy-icon
  1328.                 (
  1329.  
  1330.                         (if (exists (tackon #icon-pos "Shell.Info"))
  1331.                                 (delete (tackon #icon-pos "Shell.info"))
  1332.                         )
  1333.  
  1334.                         (if (= #nametype 1)
  1335.                                 (
  1336.                                         (copyfiles
  1337.                                                 (source "..VNC..:Shell_VNC.info")
  1338.                                                 (dest   #icon-pos)
  1339.                                         )
  1340.                                         (rename (tackon #icon-pos "Shell_VNC.info")
  1341.                                                 (tackon #icon-pos "Shell.info"))
  1342.                                 )
  1343.                                 (
  1344.                                         (copyfiles
  1345.                                                 (source "..VNC..:Shell.info")
  1346.                                                 (dest   #icon-pos)
  1347.                                         )
  1348.                                 )
  1349.                         )
  1350.  
  1351.                         (tooltype       (dest   (tackon #icon-pos "Shell"))
  1352.                                         (noposition)
  1353.                         )
  1354.  
  1355.                 )
  1356.         )
  1357. )
  1358.  
  1359. (if (> @user-level 0)
  1360.         (set #do-override
  1361.                 (askbool        (prompt #override-con)
  1362.                                 (help #override-help)
  1363.                                 (default 1)
  1364.                                 (choices #yes #no)
  1365.                 )
  1366.         )
  1367.         (set #do-override 1)
  1368. )
  1369.  
  1370. (if #do-override
  1371.         (set #installcmd (cat #installcmd "\nSetVNC Quiet Mount Override as CON:"))
  1372. )
  1373.  
  1374. (startup "VNC"
  1375.         (command #installcmd)
  1376.         (prompt #modify-startup)
  1377.         (help (#modify-startup-help #installcmd))
  1378. )
  1379.  
  1380. (complete 50)
  1381. ;==========================================================================
  1382. ;now install documentation-files for expert user
  1383.  
  1384. (if (> @user-level 1)
  1385.         (
  1386.                 (if (askbool    (prompt #do-docs)
  1387.                                 (help #docs-help)
  1388.                                 (default 0)
  1389.                                 (choices #yes #no)
  1390.                         )
  1391.                         (
  1392.                                 (set #where-docs        (askdir (prompt #docs-where)
  1393.                                                                 (help   #docs-help)
  1394.                                                                 (default (tackon #target "Include"))
  1395.                                                         )
  1396.                                 )
  1397.  
  1398.                                 (if #where-docs
  1399.                                         (copyfiles
  1400.                                                 (source "..VNC..:Include")
  1401.                                                 (all)
  1402.                                                 (dest #where-docs)
  1403.                                         )
  1404.                                 )
  1405.                         )
  1406.                 )
  1407.         )
  1408. )
  1409.  
  1410. ;==========================================================================
  1411. (complete 55)
  1412. (if (exists (tackon #target "LIBS/rexxsyslib.library"))
  1413.         (
  1414.                 (if (> @user-level 1)
  1415.                         (set #patch-arexx (askbool      (prompt #do-patch)
  1416.                                                         (help #patch-help)
  1417.                                                         (default 1)
  1418.                                                         (choices #yes #no)
  1419.                                                 )
  1420.                         )
  1421.                         (set #patch-arexx 1)
  1422.                 )
  1423.  
  1424.                 (if #patch-arexx
  1425.                         (
  1426.                                 (set #rlibs (tackon #target "LIBS/rexxsyslib.library"))
  1427.                                 (set #libs (tackon #target "LIBS"))
  1428.  
  1429.                                 (if (not (exists #libs))
  1430.                                         (makedir #libs)
  1431.                                 )
  1432.  
  1433.                                 (if (= 0 (run ("..VNC..:Extras/SPatch -ot:rexxsyslib.library -p..VNC..:ARexx/rexxsyslib.pch \"%s\"" #rlibs)))
  1434.                                         (copyfiles      (source "t:rexxsyslib.library")
  1435.                                                         (dest #libs)
  1436.                                         )
  1437.                                 )
  1438.                         )
  1439.                 )
  1440.         )
  1441. )
  1442. ;==========================================================================
  1443. (complete 70)
  1444. (if (>= #version 37)
  1445.         (
  1446.                 (if (> @user-level 0)
  1447.                     (set #pi-copy-stringsnip        (askbool        (prompt #copy-stringsnip)
  1448.                                                                         (help #stringsnip-help)
  1449.                                                                         (default 1)
  1450.                                                                         (choices #yes #no)
  1451.                                                         )
  1452.                         )
  1453.                         (set #pi-copy-stringsnip 1)
  1454.                 )
  1455.  
  1456.                 (if #pi-copy-stringsnip
  1457.                         (
  1458.                                 (copyfiles      (source "..VNC..:Extras/StringSnip")
  1459.                                                 (dest (tackon #target "C"))
  1460.                                 )
  1461.  
  1462.                                 (startup "StringSnip"
  1463.                                         (command "StringSnip >NIL: install")
  1464.                                         (prompt #install-stringsnip)
  1465.                                         (help #stringsnip-help)
  1466.                                 )
  1467.                         )
  1468.                 )
  1469.         )
  1470. )
  1471. ;==========================================================================
  1472. (complete 80)
  1473. (if (>= #version 37)
  1474.         (
  1475.                 (if (> @user-level 0)
  1476.                     (set #pi-copy-uxd                   (askbool        (prompt #copy-unixdirs)
  1477.                                                                         (help #unixdirs-help)
  1478.                                                                         (default 0)
  1479.                                                                         (choices #yes #no)
  1480.                                                         )
  1481.                         )
  1482.                         (set #pi-copy-multi 0)
  1483.                 )
  1484.  
  1485.                 (if #pi-copy-uxd
  1486.                         (
  1487.                                 (copyfiles      (source "..VNC..:Extras/UnixDirs3/UnixDirs3")
  1488.                                                 (dest (tackon #target "C"))
  1489.                                 )
  1490.  
  1491.                                 (startup "UnixDirs3"
  1492.                                         (command "UnixDirs3 WILDSTAR UNIXROOT QUIET")
  1493.                                         (prompt #install-unixdirs)
  1494.                                         (help #unixdirs-help)
  1495.                                 )
  1496.  
  1497.                                 (set #pi-uxd-guide              (askbool        (prompt #copy-uxhelp)
  1498.                                                                                 (help #copy-uxhelphelp)
  1499.                                                                                 (default 1)
  1500.                                                                                 (choices #yes #no)
  1501.                                                                 )
  1502.                                 )
  1503.                                 (if #pi-uxd-guide
  1504.                                         (
  1505.                                                 (if (= #where-guide "")
  1506.                                                         (set #where-guide       (askdir         (prompt #help-dir)
  1507.                                                                                                 (help   #help-help)
  1508.                                                                                                 (default (tackon #target "Guides"))
  1509.                                                                                 )
  1510.                                                         )
  1511.                                                 )
  1512.  
  1513.                                                 (if #where-guide
  1514.                                                         (
  1515.  
  1516.                                                                 (copyfiles      (source "..VNC..:Extras/UnixDirs3/UnixDirs3.guide")
  1517.                                                                                 (dest #where-guide)
  1518.                                                                 )
  1519.  
  1520.                                                                 (copyfiles      (source "..VNC..:Extras/UnixDirs3/UnixDirs3.guide.info")
  1521.                                                                                 (dest #where-guide)
  1522.                                                                 )
  1523.                                                         )
  1524.                                                 )
  1525.                                         )
  1526.                                 )
  1527.                         )
  1528.                 )
  1529.         )
  1530. )
  1531. ;==========================================================================
  1532. (complete 90)
  1533. (if (>= #version 37)
  1534.         (
  1535.                 (if (> @user-level 0)
  1536.                     (set #pi-copy-multi                 (askbool        (prompt #copy-multiassigns)
  1537.                                                                         (help #multiassigns-help)
  1538.                                                                         (default 1)
  1539.                                                                         (choices #yes #no)
  1540.                                                         )
  1541.                         )
  1542.                         (set #pi-copy-multi 1)
  1543.                 )
  1544.  
  1545.                 (if #pi-copy-multi
  1546.                         (
  1547.                                 (copyfiles      (source "..VNC..:Extras/TrueMultiAssigns")
  1548.                                                 (dest (tackon #target "C"))
  1549.                                 )
  1550.  
  1551.                                 (startup "TrueMultiAssigns"
  1552.                                         (command "TrueMultiAssigns")
  1553.                                         (prompt #install-multiassigns)
  1554.                                         (help #multiassigns-help)
  1555.                                 )
  1556.                         )
  1557.                 )
  1558.         )
  1559. )
  1560.  
  1561.  
  1562. ;==========================================================================
  1563. (complete 100)
  1564.  
  1565. (TERMINATE)
  1566.  
  1567. (exit #exit-text)
  1568.