home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / text / edit / golded / install < prev    next >
Text File  |  1995-06-28  |  59KB  |  2,033 lines
  1. ; $VER: GoldED Install 2, Copyright ©1995 Dietmar Eilert
  2.  
  3. (delopts "oknodelete" "force" "askuser")
  4. (complete 0)
  5.  
  6. ; --- English (default) strings ---
  7.  
  8. (set #introduction (cat "\n"
  9.  
  10.     "Programmer's Editor, All Rights Reserved.   \n"
  11.     "                                            \n"
  12.     "GoldED ©1995 Dietmar Eilert                 \n"
  13.     "Reqtools ©1991-1995 Nico François           \n"
  14.     "                                            \n"
  15.     "GoldED is NOT 'freely distributable'. Please\n"
  16.     "have a look at the licence file before      \n"
  17.     "installing GoldED; installing this software \n"
  18.     "means accepting that licence. Thank you.    \n"
  19. ))
  20.  
  21. (set #badkick "\n Sorry, this package requires OS v2.04 or better.\n")
  22.  
  23. (set #error (cat
  24.  
  25.     " Some error has occurred. Please inform a GoldED  \n"
  26.     " support site (e.g. dietmar@tomate.tng.oche.de)   \n"
  27.     " AFTER having tried a different Installer release:\n"
  28.     " 1.24 is known to work fine.                      \n"
  29.     "                                                   \n"
  30.     " The following information is required: error code\n"
  31.     " (above), last error message, the percentage done \n"
  32.     " (window title) and your log file. If available:  \n"
  33.     " a SnoopDos report. Thank you !                   \n"
  34. ))
  35.  
  36. (set #assign_found "\nGOLDED: assign detected...\n")
  37.  
  38. (set #assign_found_help (cat "\n"
  39.  
  40.     " If you decide for updating your old installation\n"
  41.     " you won't be asked for directories. Directories \n"
  42.     " of your previous installation will be used.     \n"
  43.     "                                                 \n"
  44.     " If you decide for removing your current GoldED  \n"
  45.     " installation this script will try to delete     \n"
  46.     " files introduced by a former GoldED installation\n"
  47.     " However, this utility is not able to remove all \n"
  48.     " files related to GoldED. For example it won't   \n"
  49.     " remove the reqtools library since this library  \n"
  50.     " might be used by other applications, too. It    \n"
  51.     " won't remove the QuickStarter since it doesn't  \n"
  52.     " know where it has been placed.                  \n"
  53.     "                                                 \n"
  54.     " If you ever run into troubles related to this   \n"
  55.     " install script (which certainly is not perfect),\n"
  56.     " remove your outdated GED copy (use the 'remove' \n"
  57.     " option) before attempting a completely new      \n"
  58.     " installation.                                   \n"
  59.     "                                                 \n"
  60.     " Backups of your presets (if available) are made.\n"
  61.     "                                                 \n"
  62.     " Libraries are not overwritten unless they are   \n"
  63.     " outdated (depends on version/revision number).  \n"
  64. ))
  65.  
  66. (set #new    "install new")
  67. (set #update "update existing GoldED")
  68. (set #remove "remove GoldED from your system")
  69.  
  70. (set #remove_ged  "remove 'GoldED:' assign ?\n")
  71. (set #remove_hs   "remove 'HiSpeed:' assign ?\n")
  72. (set #remove_ed   "remove quickstarter access ?\n")
  73. (set #remove_gmk  "remove 'GUIMake:' assign ?\n")
  74. (set #must_remove "You should have this assign/reference removed !")
  75. (set #removed     "; (removed)")
  76.  
  77. (set #pref_icons "Select preferred icon type")
  78.  
  79. (set #medres " med-res icons (pixel ratio 1:2)")
  80. (set #hires  " hi-res  icons (pixel ratio 1:1)")
  81.  
  82. (set #pref_icons_help (cat "\n"
  83.  
  84.     " Select med-res if the pixel ratio of your preferred\n"
  85.     " screen resolution is approx. 1:2 (e.g. in 640*200  \n"
  86.     " mode the pixel width is half of pixel height).     \n"
  87.     "                                                    \n"
  88.     " Select hi-res if the pixel ratio of your preferred \n"
  89.     " resolution is approx. 1:1 (eg. 640*400 or 800*600).\n"
  90. ))
  91.  
  92. (set #where " Where do you want to have the package installed ? \n")
  93.  
  94. (set #where_help (cat "\n"
  95.  
  96.     " Simply select a directory (a root directory is   \n"
  97.     " fine, too). I'm going to create a new directory  \n"
  98.     " called 'GoldED' within the directory you specify.\n"
  99.     " You should select a directory which has an icon  \n"
  100.     " attached to it (e.g. SYS:Utilities).             \n"
  101.     "                                                  \n"
  102.     " The GoldED directory will keep several support   \n"
  103.     " files/tools as well as the main editor. ARexx    \n"
  104.     " macros related to GoldED are usually kept in a   \n"
  105.     " subdirectory of GoldED. Furthermore the manuals  \n"
  106.     " reside in GoldED's directory.                    \n"
  107. ))
  108.  
  109. (set #bad_path "Sorry, can't install to RAM disk")
  110.  
  111. (set #drive_space (cat "\n"
  112.  
  113.     " This installation requires at least 1.2 MB free\n"
  114.     " disk space. Please make this space available   \n"
  115.     " and start again.                               \n"
  116. ))
  117.  
  118. (set #gold_lib "Installation of GoldED.library ...")
  119.  
  120. (set #gold_lib_help (cat "\n"
  121.  
  122.     "This library is required by the unregistered version\n"
  123.     "only. Registered users recieve a keyfile instead.   \n"
  124. ))
  125.  
  126. (set #what_catalog "\n What catalogs do you want to have installed ?\n")
  127.  
  128. (set #what_catalog_help (cat "\n"
  129.  
  130.     " Catalogs are required by OS2.1 or better to localize\n"
  131.     " GoldED, i.e. to make the editor use the language    \n"
  132.     " selected by the locale preferences program (however \n"
  133.     " menus are not loacalized since menus are not part of\n"
  134.     " the editor itself).                                 \n"
  135. ))
  136.  
  137. (set #what_manuals "\nWhat manuals do you want to have installed ?\n")
  138.  
  139. (set #what_manuals_help (cat "\n"
  140.  
  141.     " Each manual (ie. AmigaGuide file) consumes approx.\n"
  142.     " 300K disk space                                   \n"
  143. ))
  144.  
  145. (set #add_ged_assign "Add 'GoldED:' assign to 's:user-startup' ?\n")
  146.  
  147. (set #add_ged_assign_help (cat "\n"
  148.             
  149.     " The main editor does need this assign to find its \n"
  150.     " files (libraries, presets, macros).               \n"
  151. ))
  152.  
  153. (set #quickname " Choose a name for the QuickStarter")
  154.  
  155. (set #other_name "(other)")
  156.  
  157. (set #quickname_help (cat "\n"
  158.  
  159.     " The QuickStarter is a small (4 KB) GoldED front-  \n"
  160.     " end. You can use it AS IF it were a real editor.  \n"
  161.     " For example you might type 'ed letter' to edit the\n"
  162.     " file letter if the QuickStarter were named 'ed'.  \n"
  163.     " The big advantage of a QuickStarter is its abilty \n"
  164.     " to pass a new job to an already runnning instance \n"
  165.     " of GoldED (if there is any). This happens FAST.   \n"             
  166.     "                                                   \n"
  167.     " The QuickStarters default name is 'ED' but feel   \n"
  168.     " free to choose any name you like. Personally, I   \n"
  169.     " prefer to use 'ED' (replacing Commodore's ED).    \n"
  170. ))
  171.  
  172. (set #enter_name " Enter a name:\n")
  173.  
  174. (set #enter_name_help (cat "\n"
  175.  
  176.     " Any name (GED, ED, ...) will do. Existing files are \n"
  177.     " overwritten. If you decide for 'ED', the original ED\n" 
  178.     " is replaced.                                        \n"
  179. ))
  180.  
  181. (set #place_quick (cat "\n"
  182.  
  183.     " Now let's place the QuickStarter within a valid\n"
  184.     " command directory. Select a directory:         \n"
  185. ))
  186.  
  187. (set #place_quick_help (cat "\n"
  188.  
  189.     " You should select one of these directories if you\n"
  190.     " want to run the editor simply by typing its name,\n"
  191.     " no matter what your current path is:             \n"
  192.     "                                                  \n"
  193.     " SYS:C, SYS:TOOLS, SYS:UTILITIES or SYS:SYSTEM    \n"
  194.     "                                                  \n"
  195.     " If you choose ED as default name, you must either\n"
  196.     " place the quick starter into c: or delete the old\n"
  197.     " ED from c: to prevent unpredictable behaviour.   \n"
  198. ))
  199.  
  200. (set #resident "\n Make QuickStarter resident ?\n")
  201.  
  202. (set #resident_help (cat "\n"
  203.  
  204.     " I would suggest to make the QuickStarter (4 KB)\n"
  205.     " resident - it will work faster.                \n"
  206. ))
  207.  
  208. (set #backup_presets "Creating backup of old presets ...")
  209. (set #backup_macros  "Creating backup of old macros...")
  210.  
  211. (set #bak_done (cat "\n"
  212.  
  213.     "Backups of your old preferences have been written\n"
  214.     "to directory:\n\n"
  215. ))
  216.  
  217. (set #what_menu "\n Choose default menu definition file:\n")
  218.  
  219. (set #what_menu_help (cat "\n"
  220.  
  221.     " GoldED is localized (i.e. uses the locale library   \n"
  222.     " of WB2.1/3.x) as far as its internal textes are     \n"
  223.     " concerned. Since menus are not part of the editor   \n"
  224.     " itself they are not localized. Instead, the user may\n"
  225.     " specify a menu definition file to get menus in his/ \n"
  226.     " her preferred language.                             \n"
  227. ))
  228.  
  229. (set #screen "\n Choose default screen resolution \n")
  230.  
  231. (set #screen_help (cat "\n"
  232.  
  233.     " Decide for a default screen mode to be used when the\n"
  234.     " editor is started for the 1st time. I would suggest \n"
  235.     " to use a custom screen for this will make GoldED run\n"
  236.     " faster and look much nicer.                         \n"
  237. ))
  238.  
  239. (set #screen_ntsc   "custom screen NTSC")
  240. (set #screen_ntsc_i "custom screen NTSC interlaced")
  241. (set #screen_pal    "custom screen PAL")
  242. (set #screen_pal_i  "custom screen PAL interlaced")
  243. (set #screen_wb     "workbench screen")
  244.  
  245. (set #look_feel "Look & feel")
  246.  
  247. (set #look_feel_help (cat "\n"
  248.  
  249.     " Suggestion: use a 2-color mode if your Amiga \n"
  250.     " isn't that fast (68000) but a four color mode\n"
  251.     " for any other Amiga. Additional modes are    \n"
  252.     " available within GoldED.                     \n"
  253. ))
  254.  
  255. (set #mode_blue    "Blue     (2 colors, faaaast)")
  256. (set #mode_tpp     "TPP      (4 colors, dark blue)")
  257. (set #mode_ocean   "Ocean    (4 colors, bright green)")
  258. (set #mode_stone   "Modern   (4 colors, grey)")
  259. (set #mode_leaf    "Leaf     (4 colors, my favourite)")
  260. (set #mode_ced     "CED      (4 colors, bright blue)")
  261. (set #mode_tennis  "Tennis   (4 colors, brown-green)")
  262. (set #mode_desktop "Desktop  (8 colors, slow)")
  263.  
  264. (set #what_printer "\n What printer do you own ? \n")
  265. (set #what_printer_help "\n Simply select the printer model you own.")
  266.  
  267. (set #printer_deskjet "DeskJet or 100% compabible")
  268. (set #printer_laser   "PCL laser printer")
  269. (set #printer_other   "none/other")
  270.  
  271. (set #what_proglang "\n Select preferred programming language:\n")
  272.  
  273. (set #what_proglang_other "other")
  274.  
  275. (set #what_proglang_help (cat "\n"
  276.  
  277.     " GoldED offers smart indention after keywords like   \n"
  278.     " IF. The indention scheme depends on your programming\n"
  279.     " language. Additionally, a C-dictionary is available \n"
  280.     " (required for AutoCompletion).                      \n"
  281. ))
  282.  
  283. (set #no_prefs "\n Couldn't create preferences file ?!\n")
  284.  
  285. (set #install_aguide "Installation of AmigaGuide-Library...")
  286.  
  287. (set #install_reqtools "Installation of Reqtools-Library...")
  288.  
  289. (set #install_xpk "Installation of XpkMaster-Library...")
  290.  
  291. (set #install_presets "Installation of presets...")
  292.  
  293. (set #second_disk (cat "\n"
  294.  
  295.     " Please insert part II of the GoldED distribution\n"
  296.     " into disk drive df0: ...                        \n"
  297. ))
  298.  
  299. (set #hs_assign "\n Add 'HISPEED:' assign to 's:user-startup' ?\n")
  300.  
  301. (set #hs_assign_help (cat "\n"
  302.  
  303.     " A 'HISPEED:' assign is required if you want to run\n"
  304.     " HiSpeed without having to worry about the current \n"
  305.     " path (i.e. you won't have to CD to HiSpeed's dir).\n"
  306.     " However, this assignment is not required if you   \n"
  307.     " don't intend to use the softfonts of this package.\n"
  308.     "                                                   \n"
  309. ))
  310.  
  311. (set #complete (cat "\n"
  312.  
  313.     "Installation complete. You should reboot your Amiga \n"
  314.     "before running this GED-release for the 1st time.   \n"
  315. ))
  316.  
  317. ; --- German strings ---
  318.  
  319. (if (= @language "deutsch") (
  320.  
  321.     (set #introduction (cat "\n"
  322.  
  323.         "Programmer's Editor, Alle Rechte vorbehalten. \n"
  324.         "                                              \n"
  325.         "GoldED ©1995 Dietmar Eilert                   \n"
  326.         "Reqtools ©1991-1994 Nico François             \n"
  327.         "                                              \n"
  328.         "GoldED ist NICHT 'frei vertreibbar'. Bitte    \n"
  329.         "lesen Sie die Lizenz-Datei, bevor Sie GoldED  \n"
  330.         "installieren. Mit der Installation stimmen Sie\n"
  331.         "den Lizenzbedingungen zu. Danke.              \n"
  332.  
  333.     ))
  334.  
  335.     (set #badkick "\n Sorry, dieses Paket benoetigt mind. OS2.04.\n")
  336.  
  337.     (set #error (cat
  338.  
  339.         " Ein Fehler ist aufgetreten. Bitte informieren Sie\n"
  340.         " den Support (dietmar@tomate.tng.oche.de) NACHDEM \n"
  341.         " Sie die Intallation mit einer anderen Installer- \n"
  342.         " Version (Empfehlung: 1.24) wiederholt haben.     \n"
  343.         "                                                  \n"
  344.         " Die folgende Information wird benoetigt: Fehler- \n"
  345.         " Code (s.o.), Fehler-Text, abgearbeiteter Prozent-\n"
  346.         " satz (s. Fenstertitel) und die Log-Datei. Falls  \n"
  347.         " vorhanden: ein SnoopDos-Report. Danke !          \n"
  348.     ))
  349.  
  350.     (set #assign_found "\nGoldED-Installation entdeckt...\n")
  351.  
  352.     (set #assign_found_help (cat "\n"
  353.  
  354.         " Wählen Sie 'Update', um die neue GED-Fassung über\n"
  355.         " ihre bisherige Kopie zu installieren; in diesem  \n"
  356.         " Fall wird das Skript auf einige Fragen verzichten\n"
  357.         " und sich dafür an der bisherigen Installation    \n"
  358.         " orientieren.                                     \n"
  359.         "                                                  \n"
  360.         " Mit 'Deinstallation' kann eine schon vorhandene  \n"
  361.         " GoldED-Version entfernt werden. Einige Dateien   \n" 
  362.         " werden dabei allerdings nicht gelöscht werden    \n"
  363.         " können (u.a. Libraries, da sie meist noch von    \n"
  364.         " anderen Programmen benötigt werden).             \n"
  365.         "                                                  \n"
  366.         " Sollten im Laufe dieser sicher nicht perfekten   \n"
  367.         " Installation Probleme auftreten, empfiehlt sich  \n"
  368.         " eine Deinstallation, bevor dann komplett neu     \n"
  369.         " installiert wird.                                \n"
  370.         "                                                  \n"
  371.         " Von Ihren bisherigen Presets (etwa Menus) werden \n"
  372.         " Sicherheitskopien angelegt.                      \n"
  373.         "                                                  \n"
  374.         " Libraries werden nicht überschrieben, sofern sie \n"
  375.         " nicht überholt sind).                            \n"
  376.     ))
  377.  
  378.     (set #new    "Neu installieren")
  379.     (set #update "Update (über bisherige Version installieren)")
  380.     (set #remove "Deinstallation (GoldED entfernen)")
  381.  
  382.     (set #remove_ged  "GoldED-Assign entfernen ?\n")
  383.     (set #remove_hs   "HiSpeed-Assign entfernen ?\n")
  384.     (set #remove_ed   "Quickstarter-Referenz entfernen ?\n")
  385.     (set #remove_gmk  "GUIMake-Assign entfernen ?\n")
  386.     (set #must_remove "Sie sollten den Assign/die Referenz entfernen lassen !")
  387.     (set #removed     "; (entfernt)")
  388.  
  389.     (set #pref_icons "Bevorzugten Icon-Typ wählen")
  390.  
  391.     (set #medres " mittlere Auflösung (Seitenverhältnis 1:2)")
  392.     (set #hires  " hohe Auflösung     (Seitenverhältnis 1:1)")
  393.  
  394.     (set #pref_icons_help (cat "\n"
  395.  
  396.         " Wählen Sie die mittlere Auflösung, wenn für Ihre  \n"
  397.         " Workbench ein Modus wie 640*200 eingestellt ist.  \n"
  398.         "                                                   \n"
  399.         " Die hohe Auflösung sollte bei einem Höhen/Breiten-\n"
  400.         " verhältnis von etwa 1:1 verwendet werden (640*512 \n"
  401.         " oder 800*600).                                    \n"
  402.     ))
  403.  
  404.     (set #where " Wo soll das Paket installiert werden ? \n")
  405.  
  406.     (set #where_help (cat "\n"
  407.  
  408.         " Wählen Sie ein beliebiges Verzeichnis. Hauptver-  \n"
  409.         " zeichnisse wie DH0: können auch benutzt werden.   \n"
  410.         " In dem angegebenen Pfad wird ein Ordner 'GoldED'  \n"
  411.         " samt Icon erzeugt werden.                         \n"
  412.         "                                                   \n"
  413.         " Sie sollten ein Verzeichnis wählen, dem ein Icon  \n"
  414.         " zugeordnet ist, um GoldED auch über die Workbench \n"
  415.         " wiederfinden zu können (etwa SYS:TOOLS).          \n"
  416.         "                                                   \n"
  417.         " Das GoldED-Verzeichnis wird neben dem Editor auch \n"
  418.         " diverse begleitende Dateien aufnehmen: neben einer\n"
  419.         " Makrosammlung einige Hilfsprogramme. Die Anleitung\n"
  420.         " werden Sie dort ebenfalls wiederfinden.           \n"
  421.     ))
  422.  
  423.     (set #bad_path "Sorry, Installation in RAM-Disk nicht möglich")
  424.  
  425.     (set #drive_space (cat "\n"
  426.  
  427.         " Diese Installation benötigt mindestens 1.2 MB\n"
  428.         " freien Platz auf dem Zieldatenträger. Bitte  \n"
  429.         " machen Sie diesen Platz verfügbar und starten\n"
  430.         " die Installation dann neu.                   \n"
  431.     ))
  432.  
  433.     (set #gold_lib "Installation der GoldED-Library ...")
  434.  
  435.     (set #gold_lib_help (cat "\n"
  436.  
  437.         "Diese Library wird nur für die unregistrierte Version\n"
  438.         "benötigt. Registrierte Benutzer erhalten ersatzweise \n"
  439.         "ein Keyfile.                                         \n"
  440.     ))
  441.  
  442.     (set #what_catalog "\n Welche Kataloge sollen installiert werden ?\n")
  443.  
  444.     (set #what_catalog_help (cat "\n"
  445.  
  446.         " Diese Daten werden vom Betriebssystem benötigt, um  \n"
  447.         " GoldED in verschiedenen Sprachen ablaufen zu lassen \n"
  448.         " (dazu ist allerdings mindestens OS2.1 erforderlich).\n"
  449.         "                                                     \n"
  450.         " Menus werden nicht automatisch lokalisiert, da sie  \n"
  451.         " benutzerabhängig und nicht Teil des Editors sind;   \n"
  452.         " dazu später mehr.                                   \n"
  453.     ))
  454.  
  455.     (set #what_manuals "\n Welche Anleitungen sollen installiert werden ?\n")
  456.  
  457.     (set #what_manuals_help (cat "\n"
  458.  
  459.         " Jede Anleitung (AmigaGuide-Datei) belegt etwa 300K\n"
  460.         " Platz auf Ihrer Festplatte                        \n"
  461.     ))
  462.  
  463.     (set #add_ged_assign "'GoldED:'-Assign einrichten ?\n")
  464.  
  465.     (set #add_ged_assign_help (cat "\n"
  466.                 
  467.         " Der Editor benötigt diesen Assign zum Auffinden \n"
  468.         " diverser Dateien.                               \n"
  469.  
  470.     ))
  471.  
  472.     (set #quickname " Namen für Schnellstarter wählen")
  473.  
  474.     (set #other_name "(anderer)")
  475.  
  476.     (set #quickname_help (cat "\n"
  477.  
  478.         " Der Schnellstarter ist ein kleiner (4 K) Vorsatz  \n"
  479.         " für GoldED, der benutzt werden kann, ALS OB er    \n"
  480.         " selbst ein Editor wäre. Sie könnten so ED LETTER  \n"
  481.         " eingeben, um den Text LETTER zu bearbeiten, wenn  \n"
  482.         " der Name des Quickstarters ED lautet. Der Vorteil \n"
  483.         " des Quickstarters: Er kann einen schon laufenden  \n"
  484.         " Editor ansprechen und diesem die Aufgabe über-    \n"
  485.         " geben. Dies geschieht SEHR schnell. In der Praxis \n"
  486.         " werden Sie vermutlich bald nur noch den Schnell-  \n"
  487.         " starter verwenden.                                \n"
  488.         "                                                   \n"
  489.         " Namensvorgabe ist ED; damit würde der originale ED\n"
  490.         " Ihrer Workbench ersetzt. Es kann aber natürlich   \n"
  491.         " jeder beliebige Name benutzt werden.              \n"
  492.     ))
  493.  
  494.     (set #enter_name " Einen Namen angeben:\n")
  495.  
  496.     (set #enter_name_help (cat "\n"
  497.  
  498.         " Wählen Sie einen beliebigen Namen. Unter diesem   \n"
  499.         " Namen vorhandene Dateien werden überschrieben. Mit\n"
  500.         " ED würden sie den alten ED der Workbench ersetzen.\n"
  501.     ))
  502.  
  503.     (set #place_quick " Plazieren des Schnellstarters im Kommandopfad:\n")
  504.  
  505.     (set #place_quick_help (cat "\n"
  506.  
  507.         " Sie sollten eines der folgenden Verzeichnisse be- \n"
  508.         " nutzen, um den Starter durch einfache Namensangabe\n"
  509.         " von jedem Verzeichnis aus aufrufen zu können:     \n"
  510.         "                                                   \n"
  511.         " SYS:C, SYS:TOOLS, SYS:UTILITIES oder SYS:SYSTEM   \n"
  512.         "                                                   \n"
  513.         " Haben Sie den Starter ED genannt, so sollte er    \n"
  514.         " entweder in 'C:' plaziert werden oder der dort    \n"
  515.         " vorhandene ED gelöscht werden, um eindeutige Ver- \n"
  516.         " hältnisse zu schaffen.                            \n"
  517.     ))
  518.  
  519.     (set #resident "\n Schnellstarter resident machen ?\n")
  520.  
  521.     (set #resident_help (cat "\n"
  522.  
  523.         " Der Quickstarter sollte resident gemacht werden,\n"
  524.         " da er dann noch schneller ansprechbar ist. Der  \n"
  525.         " damit verbundene Speicherverbrauch ist vernach- \n"
  526.         " lässigbar (4 KB).                               \n"
  527.     ))
  528.  
  529.     (set #backup_presets "Sicherheitskopien der Einstellungen anlegen...")
  530.     (set #backup_macros  "Sicherheitskopien der Makros anlegen...")
  531.  
  532.     (set #bak_done (cat "\n"
  533.  
  534.         "Kopien der alten Einstellungen wurden im folgenden\n"
  535.         "Verzeichnis abgelegt:\n\n"
  536.     ))
  537.  
  538.     (set #what_menu "\n Sprache für Menu auswählen: \n")
  539.  
  540.     (set #what_menu_help (cat "\n"
  541.  
  542.         " GoldED ist lokalisiert, sprich: benutzt ab OS2.1 die\n"
  543.         " Locale-Library, um seine Requester an die system-   \n"
  544.         " weit eingestellte Sprache anzupassen. Da aber Menus \n"
  545.         " nicht Bestandteil von GoldED selbst sind, können sie\n"
  546.         " auch nicht automatisch lokalisiert werden; wählen   \n"
  547.         " Sie deshalb bitte jetzt die gewünschte Sprache.     \n"
  548.     ))
  549.  
  550.     (set #screen "\n Gewünschter Bildschirmmodus:\n")
  551.  
  552.     (set #screen_help (cat "\n"
  553.  
  554.         " Zur Einstellung des Bildschirmmodus vor dem ersten\n"
  555.         " Programmstart. Ich würde zu einem eigenen Screen  \n"
  556.         " raten, da GED dann schneller arbeitet und schöner \n"
  557.         " aussieht (bei Rechnern mit nur 512K Chip-RAM ist  \n"
  558.         " dafür aber möglicherweise zu wenig Speicher vor-  \n"
  559.         " handen).                                          \n"
  560.     ))
  561.  
  562.     (set #screen_ntsc   "eigener NTSC-Screen")
  563.     (set #screen_ntsc_i "eigener NTSC-Screen interlaced")
  564.     (set #screen_pal    "eigener PAL-Screen")
  565.     (set #screen_pal_i  "eigener PAL-Screen interlaced")
  566.     (set #screen_wb     "Workbench-Screen")
  567.  
  568.     (set #look_feel "Look & Feel")
  569.  
  570.     (set #look_feel_help (cat "\n"
  571.  
  572.         " Vorschlag: benutzen Sie einen 2-Farb-Modus,  \n"
  573.         " wenn Ihr Rechner eher langsam ist (68000er), \n"
  574.         " ansonsten einen 4-Farb-Modus. Innerhalb von  \n"
  575.         " GoldED stehen Ihnen noch wesentlich mehr Modi\n"
  576.         " zur Vefügung.                                \n"
  577.     ))
  578.  
  579.     (set #mode_blue    "Blau     (2 Farben, schnell)")
  580.     (set #mode_tpp     "TPP      (4 Farben, dunkelblau)")
  581.     (set #mode_ocean   "Ozean    (4 Farben, helles Grün)")
  582.     (set #mode_stone   "Modern   (4 Farben, grau)")
  583.     (set #mode_leaf    "Laub     (4 Farben, grün)")
  584.     (set #mode_ced     "CED      (4 Farben, helles Blau)")
  585.     (set #mode_tennis  "Tennis   (4 Farben, rostbraun-grün)")
  586.     (set #mode_desktop "Desktop  (8 Farben, langsam)")
  587.  
  588.     (set #what_printer "\n Welchen Drucker besitzen Sie ? \n")
  589.     (set #what_printer_help "\n Geben Sie den Druckertyp an, den Sie besitzen.")
  590.  
  591.     (set #printer_deskjet "DeskJet oder Kompatibler")
  592.     (set #printer_laser   "PCL Laserdrucker")
  593.     (set #printer_other   "anderer/kein Drucker")
  594.  
  595.     (set #what_proglang "\n Bevorzugte Programmiersprache:\n")
  596.  
  597.     (set #what_proglang_other "andere/keine")
  598.  
  599.     (set #what_proglang_help (cat "\n"
  600.  
  601.         " GED bietet 'intelligente' Einrückung nach Schlüssel-\n"
  602.         " worten wie IF. Das Einrückungsschema hängt von Ihrer\n"
  603.         " Programmiersprache ab. Daneben wird bei Wahl von C  \n"
  604.         " auch noch ein C-Wörterbuch installiert, das der     \n"
  605.         " automatischen Korrektur von Groß-/Kleinschreibung   \n"
  606.         " sowie der automatischen Wortvervollständigung dient.\n"
  607.     ))
  608.  
  609.     (set #no_prefs "\n Konfigurationsdatei konnte nicht erzeugt werden ?!\n")
  610.  
  611.     (set #install_aguide "Installation der AmigaGuide-Library...")
  612.  
  613.     (set #install_reqtools "Installation der Reqtools-Library...")
  614.  
  615.     (set #install_xpk "Installation der XpkMaster-Library...")
  616.  
  617.     (set #install_presets "Installation der Konfigurationsdateien...")
  618.  
  619.     (set #second_disk (cat "\n"
  620.  
  621.         " Bitte legen Sie Teil II des GoldED-Paketes in\n"
  622.         " das Laufwerk df0: ein ...                    \n"
  623.     ))
  624.  
  625.     (set #hs_assign "\n 'HISPEED:'-Assign einrichten ?\n")
  626.  
  627.     (set #hs_assign_help (cat "\n"
  628.  
  629.         " Dieser Assign wird benötigt, wenn Sie HiSpeed aus\n"
  630.         " jedem beliebigen Verzeichnis heraus aufrufen     \n"
  631.         " möchten. Er kann entfallen, wenn Sie die im Paket\n"
  632.         " enthaltenen DJ-Sftfonts nicht benutzen werden.   \n"
  633.     ))
  634.  
  635.     (set #complete (cat "\n"
  636.  
  637.         "Installation abgeschlossen. Sie sollen Ihren Amiga  \n"
  638.         "neu booten, bevor Sie diese GoldED-Fassung erstmalig\n"
  639.         "benutzen.                                           \n"
  640.     ))
  641. ))
  642.  
  643. ; --- French strings ---
  644.  
  645. (if (= @language "français") (
  646.  
  647.     (set #introduction (cat "\n"
  648.  
  649.         "L'éditeur du programmeur, Tous droits réservés \n"
  650.         "                                               \n"
  651.         "GoldED ©1995 Dietmar Eilert                    \n"
  652.         "Reqtools  ©1991-1994 Nico François             \n"
  653.         "                                               \n"
  654.         "GoldED N'EST PAS 'librement distribuable'.     \n"
  655.         "Consultez le fichier licence avant d'installer \n"
  656.         "GoldED; l'installation de ce logiciel signifie \n"
  657.         "que vous acceptez cette licence. Merci.        \n"
  658.     ))
  659.  
  660.     (set #badkick "\n Désolé, ce pack demande l'OS v2.04 ou mieux.\n")
  661.  
  662.     (set #error (cat
  663.  
  664.         " Une erreur est survenue. Informez-en svp un site  \n"
  665.         " de support de GoldED (dietmar@tomate.tng.oche.de).\n"
  666.         " Les informations suivantes sont nécessaires: le   \n"
  667.         " code d'erreur (ci-dessus), le pourcentage atteint \n"
  668.         " et votre fichier log. Merci !                     \n"
  669.     ))
  670.  
  671.     (set #assign_found "\nAssign GOLDED: détecté...\n")
  672.  
  673.     (set #assign_found_help (cat "\n"
  674.  
  675.         " Si vous décidez de mettre à jour votre vieille    \n"
  676.         " installation, on ne vous demandera pas de réper-  \n"
  677.         " toires. Ceux de l'installation précédente seront  \n"
  678.         " utilisés.                                         \n"
  679.         "                                                   \n"
  680.         " Si vous décidez d'effacer votre installation      \n"
  681.         " actuelle de GoldED, celui-ci essaiera d'effacer   \n"
  682.         " les fichiers créés par une installation normale   \n"
  683.         " de GoldED. Cet utilitaire est par contre incapable\n"
  684.         " d'effacer tous les fichiers appartenant à GoldED. \n"
  685.         " Par exemple, il n'effacera pas la reqtools.library\n"
  686.         " car celle-ci peut être utilisée par d'autres      \n"
  687.         " application. Il n'effacera pas le QuickStarter car\n"
  688.         " il ne sait pas ou il se trouve.                   \n"
  689.         "                                                   \n"
  690.         " Si vous rencontrez des problèmes avec ce script   \n"
  691.         " d'installation (qui n'est certainement pas par-   \n"
  692.         " fait), effacez d'abord votre ancienne copie (uti- \n"
  693.         " lisez l'option remove) avant d'essayer une        \n"
  694.         " nouvelle installation.                            \n"
  695.         "                                                   \n"
  696.         " Des copies de sauvegarde de vos préférences sont  \n"
  697.         " faites.                                           \n"
  698.         "                                                   \n"
  699.         " Les bibliothèques ne sont pas effacées mais mises \n"
  700.         " à jour (selon le numéro de version/révision).     \n"
  701.     ))
  702.  
  703.     (set #new    "Installation de GoldED")
  704.     (set #update "Mettre à jour votre GoldED")
  705.     (set #remove "Effacer GoldED de votre système")
  706.  
  707.     (set #remove_ged  "Effacer l'assign 'GoldED:' ?\n")
  708.     (set #remove_hs   "Effacer l'assign 'HiSpeed:' ?\n")
  709.     (set #remove_ed   "Effacer l'accès au quickstarter ?\n")
  710.     (set #remove_gmk  "Effacer l'assign 'GUIMake:' ?\n")
  711.     (set #must_remove "Vous devez effacer cet assign !")
  712.     (set #removed     "; (effacé)")
  713.  
  714.     (set #pref_icons "Sélectionnez le type d'icônes souhaité")
  715.  
  716.     (set #medres " Icônes moyenne résolution (aspect 1:2)")
  717.     (set #hires  " Icônes haute résolution (aspect 1:1)")
  718.  
  719.     (set #pref_icons_help (cat "\n"
  720.  
  721.         " Sélectionnez la moyenne résolution si votre écran\n"
  722.         " a une résolution de 640x256 ou de 640x200 (dans  \n"
  723.         " ce mode les pixels sont plus hauts que larges).  \n"
  724.         " Sélectionnez la haute résolution si la résolution\n"
  725.         " de votre écran est d'environ 1:1 (640x512 ou     \n"
  726.         " 800x600).                                        \n"
  727.     ))
  728.  
  729.     (set #where " Ou désirez-vous installer le répertoire de GED ?\n")
  730.  
  731.     (set #where_help (cat "\n"
  732.  
  733.         " Sélectionnez simplement un répertoire (le réper- \n"
  734.         " toire principal est très bien pour cela). Je vais\n"
  735.         " créer un répertoire GoldED dans votre répertoire.\n"
  736.         " Vous devriez sélectionner un répertoire possédant\n"
  737.         " une icône (ex: SYS:Utilities).                   \n"
  738.         "                                                  \n"
  739.         " Le répertoire de GoldED contiendra plusieurs fi- \n"
  740.         " chiers/utilitaires ainsi que l'éditeur principal.\n"
  741.         " Les macros ARexx sont normalement placés dans un \n"
  742.         " sous-répertoire de GoldED. Les manuels de GoldED \n"
  743.         " y sont également installés.                      \n"
  744.     ))
  745.  
  746.     (set #bad_path "Désolé, pas d'installation en RAM")
  747.  
  748.     (set #drive_space (cat "\n"
  749.  
  750.         " Cette installation demande environ 1.2 Mo de  \n"
  751.         " libre sur le volume dans lequel vous voulez   \n"
  752.         " GoldED. Libérez un peu de place sur ce volume \n"
  753.         " et réinstallez-le.                            \n"
  754.     ))
  755.  
  756.     (set #gold_lib "Installation de la GoldED.library ...")
  757.  
  758.     (set #gold_lib_help (cat "\n"
  759.  
  760.         " Cette bibliothèque est seulement requise pour la    \n"
  761.         " version non enregistrée de GoldED. Les utilisateurs \n"
  762.         " enregistrés reçoivent un fichier-clé à la place.    \n"
  763.     ))
  764.  
  765.     (set #what_catalog "\n Quels catalogues désirez-vous installer ?\n")
  766.  
  767.     (set #what_catalog_help (cat "\n"
  768.  
  769.         " Les catalogues sont requis par l'OS 2.1 ou plus pour\n"
  770.         " localiser GoldED, c.à.d pour que l'éditeur soit tra-\n"
  771.         " duit dans le langage de l'utilisateur (même si les  \n"
  772.         " menus ne sont pas localisés car ils ne dépendent pas\n"
  773.         " de l'éditeur lui-même).                             \n"
  774.     ))
  775.  
  776.     (set #what_manuals "\n Quels manuels désirez-vous installer ?\n")
  777.  
  778.     (set #what_manuals_help (cat "\n"
  779.  
  780.         " Each manual (amiga guide file) will consume approx. \n"
  781.         " 300K disk space                                     \n"
  782.  
  783.     ))
  784.  
  785.     (set #add_ged_assign "Ajouter l'assign GoldED à la s:user-startup ?\n")
  786.  
  787.     (set #add_ged_assign_help (cat "\n"
  788.                 
  789.         " The main editor does need this assign to find its \n"
  790.         " files (libraries, presets, macros).               \n"
  791.     ))
  792.  
  793.     (set #quickname " Choisissez un nom pour le Quickstarter")
  794.  
  795.     (set #other_name "(autre nom)")
  796.  
  797.     (set #quickname_help (cat "\n"
  798.  
  799.         " Le QuickStarter est une petite façade (4 Ko) de  \n"
  800.         " GoldED. Vous pouvez l'utiliser comme si c'était  \n"
  801.         " un vrai éditeur. Vous pouvez entrer par exemple  \n"
  802.         " 'ed lettre' si le QuickStarter s'appelle 'ed'.   \n"
  803.         " Le grand avantage du QuickStarter est qu'il peut \n"
  804.         " passer une nouveau texte à une tâche de GoldED   \n"
  805.         " déjà existante (s'il y en a une). Le Quickstarter\n"
  806.         " peut être résident (l'éditeur principal non).    \n"
  807.         "                                                  \n"
  808.         " Le nom par défaut de QuickStarter est 'ED' mais  \n"
  809.         " vous êtes libre de choisir le nom que vous       \n"
  810.         " voulez. Personnellement, je préfère ED           \n"
  811.         " (remplacant celui de Commodore).                 \n"
  812.     ))
  813.  
  814.     (set #enter_name " Entrez un nom:\n")
  815.  
  816.     (set #enter_name_help (cat "\n"
  817.  
  818.         " N'importe quel nom (GED, ...) est possible. Les \n"
  819.         " fichiers existants seront effacés. Si vous      \n"
  820.         " l'appelez ED, celui-ci sera perdu.              \n"
  821.     ))
  822.  
  823.     (set #place_quick (cat "\n"
  824.  
  825.         " Plaçons maintenant le QuickStarter dans un      \n"
  826.         " répertoire valable. Sélectionnez-en un:         \n"
  827.     ))
  828.  
  829.     (set #place_quick_help (cat "\n"
  830.  
  831.         " Vous devriez sélectionnez un de ces répertoires \n"
  832.         " si vous voulez entrer son nom sans vous occuper \n"
  833.         " de l'endroit où il se trouve:                   \n"
  834.         "                                                 \n"
  835.         " SYS:C, SYS:TOOLS, SYS:UTILITIES or SYS:SYSTEM   \n"
  836.         "                                                 \n"
  837.         " Si vous choisissez ED comme nom par défaut, vous\n"
  838.         " devez soit le placer dans C: ou effacer le vieux\n"
  839.         " ED pour éviter des conflits entre les deux.     \n"
  840.     ))
  841.  
  842.     (set #resident "\n Rendre Quickstarter résident?\n")
  843.  
  844.     (set #resident_help (cat "\n"
  845.  
  846.         " Je vous suggère de rendre résident le           \n"
  847.         " Quickstarter (4Ko) - il sera ainsi plus rapide. \n"
  848.     ))
  849.  
  850.     (set #backup_presets "Crée un backup des anciens règlages...")
  851.     (set #backup_macros  "Crée un backup des anciens makros...")
  852.  
  853.     (set #bak_done (cat "\n"
  854.  
  855.         " Des copies de sauvegarde de vos anciens réglages ont\n"
  856.         " été placées dans le répertoire:\n\n"
  857.     ))
  858.  
  859.     (set #what_menu "\n Choisissez le langage de vos menus: \n")
  860.  
  861.     (set #what_menu_help (cat "\n"
  862.  
  863.         " GoldED est localisé (il utilise la locale.library  \n"
  864.         " du WB2/3.x) en ce qui concerne les textes internes.\n"
  865.         " Comme les menus ne font pas partie de l'éditeur en \n"
  866.         " lui-même, ils ne sont pas localisés. A la place, l \n"
  867.         " utilisateur peut choisir un fichier menu dans son  \n"
  868.         " langage.                                           \n"
  869.     ))
  870.  
  871.     (set #screen "\n Choisissez la résolution de l'écran par défaut:")
  872.  
  873.     (set #screen_help (cat "\n"
  874.  
  875.         " Définit le mode d'écran à utiliser lors du premier \n"
  876.         " démarrage de GoldED. Je vous suggère d'utiliser un \n"
  877.         " écran Custom car cela rendra GoldED beaucoup plus  \n"
  878.         " rapide et beaucoup plus beau.                      \n"
  879.     ))
  880.  
  881.     (set #screen_ntsc   "Ecran Custom NTSC")
  882.     (set #screen_ntsc_i "Ecran Custom NTSC entrelacé")
  883.     (set #screen_pal    "Ecran Custom PAL")
  884.     (set #screen_pal_i  "Ecran Custom PAL entrelacé")
  885.     (set #screen_wb     "Ecran Workbench")
  886.  
  887.     (set #look_feel "Look & Feel")
  888.  
  889.     (set #look_feel_help (cat "\n"
  890.  
  891.         " Suggestion: utilisez un mode à 2 couleurs si votre\n"
  892.         " Amiga n'est pas très rapide (68000) ou n'importe  \n"
  893.         " lequel pour un autre Amiga. Attention: il existe  \n"
  894.         " d'autres modes disponibles depuis GoldED          \n"
  895.     ))
  896.  
  897.     (set #mode_blue    "Bleu     (2 couleurs, rapide)")
  898.     (set #mode_tpp     "TPP      (4 couleurs, bleu foncé)")
  899.     (set #mode_ocean   "Océan    (4 couleurs, vert clair)")
  900.     (set #mode_stone   "Pierre   (4 couleurs, gris)")
  901.     (set #mode_leaf    "Feuilles (4 couleurs, vert)")
  902.     (set #mode_ced     "CED      (4 couleurs, bleu clair)")
  903.     (set #mode_tennis  "Tennis   (4 couleurs, marron-vert)")
  904.     (set #mode_desktop "Desktop  (8 couleurs, beau mais lent)")
  905.  
  906.     (set #what_printer "\n Quel imprimante possédez-vous ?\n")
  907.     (set #what_printer_help "\n Sélectionnez simplement votre modèle.")
  908.  
  909.     (set #printer_deskjet "DeskJet ou similaire (Olivetti, Fujitsu...)")
  910.     (set #printer_laser   "Imprimante Laser (PCL)")
  911.     (set #printer_other   "Aucune/Autre")
  912.  
  913.     (set #what_proglang "\n Votre langage de programmation préféré?\n")
  914.  
  915.     (set #what_proglang_other "Autre")
  916.  
  917.     (set #what_proglang_help (cat "\n"
  918.  
  919.         " GoldED propose un formatage automatique après les\n"
  920.         " mots-clé comme IF. Ce formatage dépend du langage\n"
  921.         " de programmation. Un dictionnaire C est de plus  \n"
  922.         " disponible (requis pour l'Autocomplétion).       \n"
  923.     ))
  924.  
  925.     (set #no_prefs "\n Impossible de créer le fichier de préférences !?\n")
  926.  
  927.     (set #install_aguide "Installation de la AmigaGuide-Library...")
  928.  
  929.     (set #install_reqtools "Installation de la Reqtools-Library...")
  930.  
  931.     (set #install_xpk "Installation de la XpkMaster-Library...")
  932.  
  933.     (set #install_presets "Installation des règlages...")
  934.  
  935.     (set #second_disk (cat "\n"
  936.  
  937.         " Insérez la deuxième disquette de la distribution\n"
  938.         " de GoldED dans le lecteur df0: ...              \n"
  939.     ))
  940.  
  941.     (set #hs_assign "\n Ajoutez l'assign HISPEED à la s:user-startup ?\n")
  942.  
  943.     (set #hs_assign_help (cat "\n"
  944.  
  945.         " Un assign 'HISPEED:' est requis si vous voulez      \n"
  946.         " utiliser HiSpeed sans vous préoccuper des chemins   \n"
  947.         " à utiliser (vous n'aurez pas à faire un CD HiSpeed).\n"
  948.         " Cet assign n'est par contre pas requis si vous      \n"
  949.         " ne comptez pas utiliser les polices soft de ce pack.\n"
  950.     ))
  951.  
  952.     (set #complete (cat "\n"
  953.  
  954.         " Installation terminée. Vous devriez réinitialiser   \n"
  955.         " votre machine avant d'utiliser GED pour la première \n"
  956.         " fois.                                               \n"
  957.     ))
  958. ))
  959.  
  960. ; sure we are running under a 2.04 ROM ?
  961.  
  962. (if (< (/ (getversion) 65536) 37)
  963.  
  964.     (
  965.         (message #badkick)
  966.  
  967.         (exit (quiet))
  968.     )
  969. )
  970.  
  971. (complete 0)
  972.  
  973. (run "bin/sync SCRIPT=INSTALL.BAT")
  974.  
  975. (message #introduction)
  976.  
  977. (welcome)
  978.  
  979. (set @default-dest "")
  980.  
  981. ; set default language selection (catalogs) to English
  982.  
  983. (set catalogs 1)
  984. (set update   0)
  985.  
  986. (if (not (exists "prefs:" (noreq))) (makeassign "prefs" "sys:prefs"))
  987.  
  988. (onerror (
  989.  
  990.     (if (> @ioerr 0) 
  991.  
  992.         (message (cat "\n ERROR CODE: " @ioerr "\n\n" #error))
  993.     )
  994. ))
  995.  
  996. ; check for existing installation
  997.  
  998. (if (exists "GoldED:" (noreq)) (
  999.  
  1000.     ; check for installed catalogs (1=english, 2=german, 4=french, 8=swedish 16=italiano 32=nederlands
  1001.  
  1002.     (if (exists "golded:catalogs")
  1003.  
  1004.         (
  1005.             (if (exists "golded:catalogs/deutsch/golded.catalog"    (noreq)) (set catalogs (+ catalogs  2)))
  1006.             (if (exists "golded:catalogs/français/golded.catalog"   (noreq)) (set catalogs (+ catalogs  4)))
  1007.             (if (exists "golded:catalogs/svenska/golded.catalog"    (noreq)) (set catalogs (+ catalogs  8)))
  1008.             (if (exists "golded:catalogs/italiano/golded.catalog"   (noreq)) (set catalogs (+ catalogs 16)))
  1009.             (if (exists "golded:catalogs/nederlands/golded.catalog" (noreq)) (set catalogs (+ catalogs 32)))
  1010.         )
  1011.  
  1012.         (if (exists "locale:" (noreq)) (
  1013.  
  1014.             (if (exists "locale:catalogs/deutsch/golded.catalog"    (noreq)) (set catalogs (+ catalogs  2)))
  1015.             (if (exists "locale:catalogs/français/golded.catalog"   (noreq)) (set catalogs (+ catalogs  4)))
  1016.             (if (exists "locale:catalogs/svenska/golded.catalog"    (noreq)) (set catalogs (+ catalogs  8)))
  1017.             (if (exists "locale:catalogs/italiano/golded.catalog"   (noreq)) (set catalogs (+ catalogs 16)))
  1018.             (if (exists "locale:catalogs/nederlands/golded.catalog" (noreq)) (set catalogs (+ catalogs 32)))
  1019.         ))
  1020.     )
  1021.  
  1022.     (set update (askchoice
  1023.  
  1024.         (prompt #assign_found)
  1025.         (help   #assign_found_help)
  1026.  
  1027.         (default 1)
  1028.  
  1029.         (choices
  1030.  
  1031.             #new
  1032.             #update
  1033.             #remove
  1034.         )
  1035.     ))
  1036. ))
  1037.  
  1038. ; remove GoldED ?
  1039.  
  1040. (if (= update 2) (
  1041.  
  1042.     (if (exists "GoldED:" (noreq))
  1043.  
  1044.         (
  1045.             (run "assign >NIL: oldged:   GoldED:/")
  1046.             (run "assign >NIL: HiSpeed:  remove")
  1047.             (run "assign >NIL: GoldED:   remove")
  1048.             (run "assign >NIL: GUIMake:  remove")
  1049.  
  1050.             (run "delete >NIL: oldged:GoldED all quiet force")
  1051.             (run "delete >NIL: oldged:GoldED.info")
  1052.  
  1053.             (if (exists "locale:" (noreq)) (
  1054.  
  1055.                 (delete "locale:catalogs/deutsch/GoldED.catalog")
  1056.                 (delete "locale:catalogs/français/GoldED.catalog")
  1057.                 (delete "locale:catalogs/italiano/GoldED.catalog")
  1058.                 (delete "locale:catalogs/nederlands/GoldED.catalog")
  1059.                 (delete "locale:catalogs/svenska/GoldED.catalog")
  1060.                 (delete "locale:catalogs/deutsch/SpellIT.catalog")
  1061.                 (delete "locale:catalogs/français/SpellIT.catalog")
  1062.                 (delete "locale:catalogs/deutsch/HiSpeed.catalog")
  1063.                 (delete "locale:catalogs/français/HiSpeed.catalog")
  1064.             ))
  1065.  
  1066.             (run "delete >NIL: prefs:presets/GED_#? all quiet")
  1067.             (run "delete >NIL: prefs:presets/GoldED all quiet")
  1068.             (run "delete >NIL: envarc:GoldED        all quiet")
  1069.             (run "delete >NIL: env:GoldED           all quiet")
  1070.             (run "delete >NIL: envarc:HiSpeed       all quiet")
  1071.             (run "delete >NIL: env:HiSpeed          all quiet")
  1072.             (run "delete >NIL: fonts:GoldED         all quiet")
  1073.  
  1074.             (delete "s:GUIMake.pref")
  1075.             (delete "libs:golded.library")
  1076.  
  1077.             ((startup "GoldED"
  1078.  
  1079.                 (prompt  #remove_ged)
  1080.                 (help    #must_remove)
  1081.                 (command #removed)
  1082.             ))
  1083.  
  1084.             ((startup "HiSpeed"
  1085.  
  1086.                 (prompt  #remove_hs)
  1087.                 (help    #must_remove)
  1088.                 (command #removed)
  1089.             ))
  1090.  
  1091.             ((startup "GED_quick"
  1092.  
  1093.                 (prompt  #remove_ed)
  1094.                 (help    #must_remove)
  1095.                 (command #removed)
  1096.             ))
  1097.  
  1098.             ((startup "GUIMake"
  1099.  
  1100.                 (prompt  #remove_gmk)
  1101.                 (help    #must_remove)
  1102.                 (command #removed)
  1103.             ))
  1104.  
  1105.             (run "assign >NIL: oldged:  remove")
  1106.         )
  1107.     )
  1108.  
  1109.     (exit (quiet))
  1110. ))
  1111.  
  1112. (complete 1)
  1113.  
  1114. (if (= update 1)
  1115.  
  1116.     (
  1117.         ; <icons>: 0 = medRes icons, 1 = hiRes icons
  1118.  
  1119.         (if (> (getsize "golded:golded.info") 800)
  1120.  
  1121.             (set icons 1)
  1122.             (set icons 0)
  1123.         )
  1124.     )
  1125.  
  1126.     (set icons
  1127.  
  1128.         (askchoice
  1129.  
  1130.             (prompt #pref_icons)
  1131.             (help   #pref_icons_help)
  1132.  
  1133.             (choices
  1134.  
  1135.                 #medres
  1136.                 #hires
  1137.             )
  1138.  
  1139.             (default 1)
  1140.         )
  1141.     )
  1142. )
  1143.  
  1144. (complete 2)
  1145.  
  1146. ; install the main editor
  1147.  
  1148. (if (= update 1)
  1149.  
  1150.     (set target "golded:/")
  1151.  
  1152.     ((set target (askdir
  1153.  
  1154.         (prompt #where)
  1155.         (help   #where_help)
  1156.  
  1157.         (default "SYS:TOOLS")
  1158.     ))
  1159. ))
  1160.  
  1161. (set @default-dest target)
  1162.  
  1163. (if (not (exists (tackon target "golded")))
  1164.  
  1165.         (makedir (tackon target "golded"))
  1166. )       
  1167.  
  1168. (makeassign "golded" (tackon target "golded"))
  1169.  
  1170. (run (cat "bin/patch FILE=data/main/golded/ed FIND=$GOLDED INSERT=\"" (tackon (expandpath target) "golded") "\""))
  1171.  
  1172. (if (not (exists "golded:obsolete"))
  1173.  
  1174.     (makedir "golded:obsolete")
  1175. )
  1176.  
  1177. ; backup old arexx macros
  1178.  
  1179. (if (exists "golded:arexx" (noreq)) (
  1180.  
  1181.     (working #backup_macros)
  1182.  
  1183.     (copyfiles
  1184.  
  1185.         (source "golded:arexx")
  1186.         (dest   "golded:arexx/backup")
  1187.         (pattern "~(backup)")
  1188.         (nogauge)
  1189.     )
  1190. ))
  1191.  
  1192. ; no installation to RAM disk allowed ...
  1193.  
  1194. (if (= "RAM" (getdevice target)) (
  1195.  
  1196.     (message #bad_path)
  1197.     (exit (quiet))
  1198. ))
  1199.  
  1200. (complete 5)
  1201.  
  1202. (set targetsize (getdiskspace target))
  1203.  
  1204. (if (= update 0)
  1205.  
  1206.     (if (< targetsize 1250000) (
  1207.  
  1208.         (if (<> (getdevice target) "RAM") (
  1209.  
  1210.             (abort #drive_space)
  1211.         ))
  1212.     ))
  1213. )
  1214.  
  1215. (complete 10)
  1216.  
  1217. (copyfiles
  1218.  
  1219.     (source "data/main")
  1220.     (dest target)
  1221.     (infos)
  1222.     (all)
  1223. )
  1224.  
  1225. ; just in case somebody saved the keyfile as golded:keyfile
  1226.  
  1227. (run "delete golded:keyfile")
  1228.  
  1229. ; install keyfile ?
  1230.  
  1231. (set keyfile (tackon (pathonly @icon) "keyfile/keyfile"))
  1232.  
  1233. (if (exists "envarc:golded/keyfile" (noreq))
  1234.  
  1235.     (set keyfile "envarc:golded/keyfile")
  1236. )
  1237.  
  1238. (if (exists "s:golded/keyfile" (noreq))
  1239.  
  1240.     (set keyfile "s:golded/keyfile")
  1241. )
  1242.  
  1243. (if (exists keyfile (noreq))
  1244.  
  1245.     (
  1246.         (if (not (exists "golded:keyfile"))
  1247.  
  1248.             (makedir "golded:keyfile")
  1249.         )
  1250.  
  1251.         (copyfiles
  1252.  
  1253.             (source keyfile)
  1254.             (dest "golded:keyfile")
  1255.             (nogauge)
  1256.         )
  1257.     )
  1258. )
  1259.  
  1260. ; install new drawer icon
  1261.  
  1262. (copyfiles
  1263.  
  1264.     (source "data/icons/drawer/GoldED.info")
  1265.     (dest target)
  1266.     (infos)
  1267. )
  1268.  
  1269. (complete 15)
  1270.  
  1271. ; install med-res icons
  1272.  
  1273. (if (= icons 0)
  1274.  
  1275.     (copyfiles
  1276.  
  1277.         (source "data/Icons/GoldED")
  1278.         (dest (tackon target "GoldED"))
  1279.         (all)
  1280.         (infos)
  1281.     )
  1282. )
  1283.  
  1284. ; get rid of .info file created by installer
  1285.  
  1286. (delete (tackon target ".info"))
  1287.  
  1288. (set prefsdir "golded:presets")
  1289. (set oldprefs "golded:presets")
  1290.  
  1291. (if (exists "sys:prefs/presets/golded")
  1292.  
  1293.     (set oldprefs "sys:prefs/presets/golded")
  1294. )
  1295.  
  1296. ; backup old presets
  1297.  
  1298. (if (exists oldprefs) (
  1299.  
  1300.     (set bakdir "golded:obsolete/presets")
  1301.  
  1302.     (working #backup_presets)
  1303.  
  1304.     (copyfiles
  1305.  
  1306.         (source oldprefs)
  1307.         (dest   bakdir)
  1308.         (nogauge)
  1309.         (all)
  1310.     )
  1311.  
  1312.     (message (cat #bak_done bakdir))
  1313.  
  1314.     (run (cat "delete " oldprefs " all quiet"))
  1315. ))
  1316.  
  1317. (complete 20)
  1318.  
  1319. (working #install_presets)
  1320.  
  1321. (copyfiles
  1322.  
  1323.     (source "data/presets")
  1324.     (dest   prefsdir)
  1325.     (all)
  1326.     (nogauge)
  1327. )
  1328.  
  1329. (complete 30)
  1330.  
  1331. (set oldconfig "golded:config")
  1332.  
  1333. (if (exists "envarc:golded")
  1334.  
  1335.     (set oldconfig "envarc:golded")
  1336. )
  1337.  
  1338. (if (exists oldconfig (noreq))
  1339.  
  1340.     (
  1341.         (copyfiles
  1342.  
  1343.             (source oldconfig)
  1344.             (dest "golded:obsolete/config")
  1345.             (nogauge)
  1346.             (all)
  1347.         )
  1348.  
  1349.         (run (cat "bin/splitconfig " (tackon oldconfig "golded.prefs") " " prefsdir " YourOldConfig"))
  1350.     )
  1351. )
  1352.  
  1353. ; remove obsolete files
  1354.  
  1355. (delete "golded:golded.guide" (infos))
  1356. (delete "golded:GEDApp" (infos))
  1357. (delete "golded:Hi!" (infos))
  1358. (delete "golded:Tools/Unlock.info" (infos))
  1359. (delete "golded:rx")
  1360. (delete "golded:API/ReadMe.info")
  1361. (delete "golded:API/dock/dock1.prefs")
  1362. (delete "golded:API/dock/dock2.prefs")
  1363. (delete "golded:macros/test.ged")
  1364. (delete "golded:Anleitung")
  1365. (delete "golded:Manual")
  1366. (delete "golded:Manuel")
  1367. (delete "libs:golded.library")
  1368.  
  1369. ; remove obsolete icons
  1370.  
  1371. (delete "golded:arexx.info")
  1372. (delete "golded:menu.info")
  1373. (delete "golded:tools/hispeed.info")
  1374. (delete "golded:tools/ed.info")
  1375. (delete "golded:tools/gedrefs.info")
  1376. (delete "golded:tools/recover.info")
  1377. (delete "golded:tools/gedapp.info")
  1378. (delete "golded:tools/prjsource.info")
  1379. (delete "golded:tools/unlock.info")
  1380. (delete "golded:tools/geddock.info")
  1381. (delete "golded:tools/gedscan.info")
  1382.  
  1383. ; remove obsolete catalogs
  1384.  
  1385. (if (exists "locale:" (noreq)) (
  1386.  
  1387.     (delete "locale:catalogs/deutsch/GoldED.catalog")
  1388.     (delete "locale:catalogs/français/GoldED.catalog")
  1389.     (delete "locale:catalogs/italiano/GoldED.catalog")
  1390.     (delete "locale:catalogs/nederlands/GoldED.catalog")
  1391.     (delete "locale:catalogs/svenska/GoldED.catalog")
  1392.     (delete "locale:catalogs/deutsch/HiSpeed.catalog")
  1393.     (delete "locale:catalogs/français/HiSpeed.catalog")
  1394. ))
  1395.  
  1396. ; remove obsolete drawers
  1397.  
  1398. (run "delete >NIL: golded:menu            all quiet")
  1399. (run "delete >NIL: golded:tools/ed        all quiet")
  1400. (run "delete >NIL: golded:tools/gedrefs   all quiet")
  1401. (run "delete >NIL: golded:tools/recover   all quiet")
  1402. (run "delete >NIL: golded:tools/gedapp    all quiet")
  1403. (run "delete >NIL: golded:tools/prjsource all quiet")
  1404. (run "delete >NIL: golded:tools/unlock    all quiet")
  1405. (run "delete >NIL: golded:tools/geddock   all quiet")
  1406. (run "delete >NIL: golded:tools/gedscan   all quiet")
  1407. (run "delete >NIL: env:golded             all quiet")
  1408. (run "delete >NIL: envarc:golded          all quiet")
  1409. (run "delete >NIL: s:golded               all quiet")
  1410. (run "delete >NIL: golded:tools/edsource  all quiet")
  1411. (run "delete >NIL: prefs:presets/GED_#?   all quiet")
  1412.  
  1413. ; create GoldED ARexx macro icons
  1414.  
  1415. (if (= icons 0)
  1416.  
  1417.     (run "bin/moveicons QUIET DIR=golded:arexx ICON=data/icons/script/medres DX=90 DY=40 COLUMNS=5")
  1418.     (run "bin/moveicons QUIET DIR=golded:arexx ICON=data/icons/script/hires  DX=95 DY=45 COLUMNS=5")
  1419. )
  1420.  
  1421. (complete 40)
  1422.  
  1423. ; ask for catalogs to be installed in non-upgrade mode only
  1424.  
  1425. (if (= update 0)
  1426.  
  1427.     ; 1=english, 2=german, 4=french, 8=swedish 16=italiano 32=nederlands (63=all, 0=none)
  1428.  
  1429.     (set catalogs (askoptions
  1430.  
  1431.         (prompt #what_catalog)
  1432.         (help   #what_catalog_help)
  1433.  
  1434.         (choices
  1435.  
  1436.             " English"
  1437.             " Deutsch"
  1438.             " Français"
  1439.             " Svenska"
  1440.             " Italiano"
  1441.             " Nederlands"
  1442.         )
  1443.  
  1444.         (default catalogs)
  1445.     ))
  1446. )
  1447.  
  1448. ; remove obsolete catalogs
  1449.  
  1450. (if (NOT (IN catalogs 1))
  1451.     (run "delete golded:catalogs/deutsch all")
  1452. )
  1453.  
  1454. (if (NOT (IN catalogs 2))
  1455.     (run "delete golded:catalogs/français all")
  1456. )
  1457.  
  1458. (if (NOT (IN catalogs 3))
  1459.     (run "delete golded:catalogs/svenska all")
  1460. )
  1461.  
  1462. (if (NOT (IN catalogs 4))
  1463.     (run "delete golded:catalogs/italiano all")
  1464. )
  1465.  
  1466. (if (NOT (IN catalogs 5))
  1467.     (run "delete golded:catalogs/nederlands all")
  1468. )
  1469.  
  1470. (if (= update 0) (
  1471.  
  1472.     (startup "GoldED"
  1473.  
  1474.         (prompt #add_ged_assign)
  1475.         (help   #add_ged_assign_help)
  1476.     
  1477.         (command  ("ASSIGN >NIL: GOLDED: %s " (tackon target "GoldED")))
  1478.     )
  1479. ))
  1480.  
  1481. ; choose manuals
  1482.  
  1483. (if (exists "data/doc/French/manuel")
  1484.  
  1485.     (set manuals (askoptions
  1486.  
  1487.         (prompt #what_manuals)
  1488.         (help   #what_manuals_help)
  1489.  
  1490.         (choices
  1491.  
  1492.             " English"
  1493.             " Deutsch"
  1494.             " Français"
  1495.         )
  1496.  
  1497.         (default catalogs)
  1498.     ))
  1499.  
  1500.     (set manuals (askoptions
  1501.  
  1502.         (prompt #what_manuals)
  1503.         (help   #what_manuals_help)
  1504.  
  1505.         (choices
  1506.  
  1507.             " English"
  1508.             " Deutsch"
  1509.         )
  1510.  
  1511.         (default catalogs)
  1512.     ))
  1513. )
  1514.  
  1515. (complete 45)
  1516.  
  1517. ; install QuickStarter
  1518.  
  1519. (set progname (askchoice
  1520.  
  1521.     (prompt #quickname)
  1522.     (help   #quickname_help)
  1523.  
  1524.     (choices 
  1525.  
  1526.         "GED"
  1527.         "ED"
  1528.         #other_name
  1529.     )
  1530.  
  1531.     (default 1)
  1532. ))
  1533.  
  1534. (complete 50)
  1535.  
  1536. (if (= progname 0) (set name "GED"))
  1537. (if (= progname 1) (set name "ED" ))
  1538.  
  1539. (if (= progname 2)
  1540.  
  1541.     (set name (askstring
  1542.  
  1543.         (prompt #enter_name)
  1544.         (help   #enter_name_help)
  1545.  
  1546.         (default "ED")
  1547.     ))
  1548. )
  1549.  
  1550. (complete 55)
  1551.  
  1552. (set comdir (askdir
  1553.  
  1554.     (prompt #place_quick)
  1555.     (help   #place_quick_help)
  1556.  
  1557.     (default "C:")
  1558. ))
  1559.  
  1560. (copyfiles 
  1561.  
  1562.     (source  "data/main/golded/ed")
  1563.     (dest     comdir)
  1564.     (newname  name)
  1565. )
  1566.  
  1567. (run "resident >NIL: ED remove")
  1568.  
  1569. (startup "GED_quick"
  1570.  
  1571.     (prompt #resident)
  1572.     (help   #resident_help)
  1573.  
  1574.     (command (cat "resident " (tackon comdir name) " pure"))
  1575. )
  1576.  
  1577. (complete 60)
  1578.  
  1579. ; install config file ...
  1580.  
  1581. (set language 255)
  1582.  
  1583. ; already a language selected (while installing main editor) ?
  1584.  
  1585. (if (= catalogs 1) (set language 0))
  1586. (if (= catalogs 2) (set language 1))
  1587. (if (= catalogs 4) (set language 2))
  1588. (if (= catalogs 8) (set language 3))
  1589.  
  1590. (if (= language 255) (
  1591.  
  1592.     (set language (askchoice
  1593.  
  1594.         (prompt #what_menu)
  1595.         (help   #what_menu_help)
  1596.  
  1597.         (choices
  1598.  
  1599.             "English"
  1600.             "Deutsch"
  1601.             "Français"
  1602.             "Svenska"
  1603.             "Italiano"
  1604.         )
  1605.  
  1606.         (default 0)
  1607.     ))
  1608. ))
  1609.  
  1610. (if (= language 0) (set menufile "FactoryUS.men"))
  1611. (if (= language 1) (set menufile "FactoryD.men" ))
  1612. (if (= language 2) (set menufile "FactoryF.men" ))
  1613. (if (= language 3) (set menufile "FactoryS.men" ))
  1614. (if (= language 4) (set menufile "FactoryI.men" ))
  1615.  
  1616. (if (= (database "vblank") 50) (
  1617.  
  1618.     (set vblank 1)
  1619.     (set vblank 3)
  1620. ))
  1621.  
  1622. (complete 61)
  1623.  
  1624. (set screen (askchoice
  1625.  
  1626.     (prompt #screen)
  1627.     (help   #screen_help)
  1628.  
  1629.     (choices
  1630.  
  1631.         #screen_ntsc
  1632.         #screen_ntsc_i
  1633.         #screen_pal
  1634.         #screen_pal_i
  1635.         #screen_wb
  1636.     )
  1637.  
  1638.     (default vblank)
  1639. ))
  1640.  
  1641. (complete 62)
  1642.  
  1643. (if (= screen 4)
  1644.  
  1645.     (set display "workbench.dsp")
  1646.  
  1647.     (
  1648.         (if (< (/ (getversion) 65536) 39)
  1649.  
  1650.             (
  1651.                 (set mode (askchoice
  1652.                 
  1653.                     (prompt #look_feel)
  1654.                     (help   #look_feel_help)
  1655.                     (default 3)
  1656.  
  1657.                     (choices
  1658.  
  1659.                         #mode_blue
  1660.                         #mode_tpp
  1661.                         #mode_ocean
  1662.                         #mode_stone
  1663.                         #mode_leaf
  1664.                     )
  1665.                 ))
  1666.             )
  1667.  
  1668.             (
  1669.                 (set mode (askchoice
  1670.                 
  1671.                     (prompt #look_feel)
  1672.                     (help   #look_feel_help)
  1673.                     (default 3)
  1674.  
  1675.                     (choices
  1676.  
  1677.                         #mode_blue
  1678.                         #mode_tpp
  1679.                         #mode_ocean
  1680.                         #mode_stone
  1681.                         #mode_leaf
  1682.                         #mode_ced
  1683.                         #mode_tennis
  1684.                         #mode_desktop
  1685.                     )
  1686.                 ))
  1687.             )
  1688.         )
  1689.  
  1690.         (if (= mode 0) (set display "Blue"        ))
  1691.         (if (= mode 1) (set display "TPP"         ))
  1692.         (if (= mode 2) (set display "Ocean"       ))
  1693.         (if (= mode 3) (set display "FinalWriter" ))
  1694.         (if (= mode 4) (set display "Leaf"        ))
  1695.         (if (= mode 5) (set display "CED"         ))
  1696.         (if (= mode 6) (set display "Tennis"      ))
  1697.         (if (= mode 7) (set display "Desktop"     ))
  1698.  
  1699.         (if (or (= screen 0) (= screen 1))
  1700.  
  1701.             (set display (cat display "_NTSC"))
  1702.             (set display (cat display "_PAL" ))
  1703.         )
  1704.  
  1705.         (if (or (= screen 1) (= screen 3)) (
  1706.  
  1707.             (set display (cat display "_LACE"))
  1708.         ))
  1709.  
  1710.         (set display (cat display ".dsp"))
  1711.     )
  1712. )
  1713.  
  1714. (complete 63)
  1715.  
  1716. (set printer (askchoice
  1717.  
  1718.     (prompt #what_printer)
  1719.     (help   #what_printer_help)
  1720.  
  1721.     (choices
  1722.  
  1723.         #printer_deskjet
  1724.         #printer_laser
  1725.         #printer_other
  1726.     )
  1727.  
  1728.     (default 0)
  1729. ))
  1730.  
  1731. (if (= printer 2)
  1732.  
  1733.     (set prtfile "standard.prt"  )
  1734.     (set prtfile "DeskJetLQ.prt" )
  1735. )
  1736.  
  1737. (complete 64)
  1738.  
  1739. (set proglang (askchoice
  1740.  
  1741.     (prompt #what_proglang)
  1742.     (help   #what_proglang_help)
  1743.  
  1744.     (choices
  1745.  
  1746.         "C"
  1747.         "Pascal"
  1748.         "Basic"
  1749.         #what_proglang_other
  1750.     )
  1751.  
  1752.     (default 0)
  1753. ))
  1754.  
  1755. (if (= proglang 0) 
  1756.  
  1757.     (
  1758.         (set indention  "C.ind")
  1759.         (set dictionary "C.dic")
  1760.     )
  1761.  
  1762.     (
  1763.         (set indention  "empty.ind")
  1764.         (set dictionary "empty.dic")
  1765.     )
  1766. )
  1767.  
  1768. (if (= proglang 1) (set indention "Pascal.ind"))
  1769. (if (= proglang 2) (set indention "Basic.ind"))
  1770.  
  1771. (copyfiles
  1772.  
  1773.     (source "data/config")
  1774.     (dest "golded:config")
  1775.     (all)
  1776.     (nogauge)
  1777. )
  1778.  
  1779. ; create preferences file
  1780.  
  1781. (run (cat "bin/makeprefs DIR=\"" (pathonly @icon) "\" FROM=data/presets "
  1782.  
  1783.     menufile      " "
  1784.    "standard.key" " "
  1785.     display       " "
  1786.    "standard.def" " "
  1787.    "standard.rat" " "
  1788.    "standard.tpl" " "
  1789.    "standard.gui" " "
  1790.    "standard.msc" " "
  1791.    "empty.ref"    " "
  1792.     prtfile       " "
  1793.    "standard.tab" " "
  1794.     dictionary    " "
  1795.     indention     " "
  1796.    "standard.lay" " "
  1797.    "empty.prj"    " "
  1798.    "standard.hnt" " "
  1799.    "standard.api" " "
  1800.    "standard.syn" " "
  1801. ))
  1802.  
  1803. ; install 2nd set of icons (medRes, pixel ratio approx. 1:2) ?
  1804.  
  1805. (if (= icons 0)
  1806.  
  1807.     (copyfiles 
  1808.  
  1809.         (source "data/Icons/config")
  1810.         (dest   "golded:config")
  1811.         (infos)
  1812.         (all)
  1813.         (nogauge)
  1814.     )
  1815. )
  1816.  
  1817. (complete 70)
  1818.  
  1819. ; install font (has been revised, i.e. has to be installed in update mode, too)
  1820.  
  1821. (copyfiles
  1822.  
  1823.     (source "data/fonts" )
  1824.     (dest   "fonts:")
  1825.     (all)
  1826.     (nogauge)
  1827. )
  1828.  
  1829. (complete 75)
  1830.  
  1831. ; install GoldED related tools
  1832.  
  1833. (set drive "GoldED:Tools")
  1834.  
  1835. (if (not (exists drive))
  1836.  
  1837.     (makedir drive)
  1838. )
  1839.  
  1840. ; install HiSpeed
  1841.  
  1842. (working #install_hispeed)
  1843.  
  1844. (if (not (exists (tackon drive "HiSpeed")))
  1845.  
  1846.     (makedir (tackon drive "HiSpeed"))
  1847. )
  1848.  
  1849. (set target (tackon drive "HiSpeed"))
  1850.  
  1851. (if (not (exists target))
  1852.  
  1853.     (makedir target)
  1854. )
  1855.  
  1856. (makeassign "hispeed" target)
  1857.  
  1858. (run "delete hispeed:~(arexx#?|HiSpeed#?|softfonts|templates|cover) ALL QUIET")
  1859.  
  1860. (if (exists "HiSpeed:ARexx" (noreq)) (
  1861.  
  1862.     (copyfiles
  1863.  
  1864.         (source  "HiSpeed:ARexx")
  1865.         (dest    "HiSpeed:ARexx/backup")
  1866.         (pattern "~(backup)")
  1867.         (nogauge)
  1868.     )
  1869. ))
  1870.  
  1871. (set oldconfig "hispeed:config")
  1872.  
  1873. (if (exists "envarc:hispeed")
  1874.  
  1875.     (set oldconfig "envarc:hispeed")
  1876. )
  1877.  
  1878. (if (exists oldconfig) (
  1879.  
  1880.     (copyfiles
  1881.  
  1882.         (source oldconfig)
  1883.         (dest "golded:obsolete/hispeed")
  1884.         (all)
  1885.         (nogauge)
  1886.     )
  1887.  
  1888.     (run (cat "delete " oldconfig " all quiet"))
  1889. ))
  1890.  
  1891. (copyfiles
  1892.  
  1893.     (source "data/tools/HiSpeed")
  1894.     (dest "HISPEED:")
  1895.     (all)
  1896.     (infos)
  1897. )
  1898.  
  1899. (copyfiles
  1900.  
  1901.     (source "data/tools/HiSpeed/HiSpeed")
  1902.     (dest "golded:")
  1903. )
  1904.  
  1905. ; remove obsolete catalogs
  1906.  
  1907. (if (NOT (IN catalogs 1))
  1908.     (run "delete hispeed:catalogs/deutsch all")
  1909. )
  1910.  
  1911. (if (NOT (IN catalogs 2))
  1912.     (run "delete hispeed:catalogs/français all")
  1913. )
  1914.  
  1915. (delete "HiSpeed:.info")
  1916.  
  1917. ; create HiSpeed ARexx macro icons
  1918.  
  1919. (if (= icons 0)
  1920.  
  1921.     (run "bin/moveicons QUIET DIR=hispeed:arexx ICON=data/icons/script/medres DX=90 DY=40 COLUMNS=5")
  1922.     (run "bin/moveicons QUIET DIR=hispeed:arexx ICON=data/icons/script/hires  DX=95 DY=45 COLUMNS=5")
  1923. )
  1924.  
  1925. (complete 85)
  1926.  
  1927. (if (= update 0) (
  1928.  
  1929.     ((startup "HISPEED"
  1930.  
  1931.         (prompt #hs_assign)
  1932.         (help   #hs_assign_help)
  1933.  
  1934.         (command  ("ASSIGN >NIL: HISPEED: %s " target))
  1935.     ))
  1936.  
  1937.     ; remove obsolete files
  1938.  
  1939.     (delete "s:HiSpeed.config")
  1940.  
  1941.     (delete "golded:tools/HiSpeed/Setup"     (infos))
  1942.     (delete "golded:tools/HiSpeed/ARexxDoc"  (infos))
  1943.     (delete "golded:tools/HiSpeed/SetupE"    (infos))
  1944.     (delete "golded:tools/HiSpeed/ARexxEDoc" (infos))
  1945.     (delete "golded:tools/hispeed/Anleitung" (infos))
  1946.     (delete "golded:tools/hispeed/Manual"    (infos))
  1947.     (delete "golded:tools/hispeed/Manuel"    (infos))
  1948.  
  1949.     ; remove obsolete directories
  1950.  
  1951.     (run "delete envarc:hispeed env:HiSpeed all quiet")
  1952. ))
  1953.  
  1954. ; install HiSpeed keyfile ?
  1955.  
  1956. (if (exists "golded:keyfile/keyfile") (
  1957.  
  1958.     (if (not (exists "hispeed:keyfile"))
  1959.  
  1960.         (makedir "hispeed:keyfile")
  1961.     )
  1962.  
  1963.     (copyfiles
  1964.  
  1965.         (source "golded:keyfile/keyfile")
  1966.         (dest   "hispeed:keyfile")
  1967.         (nogauge)
  1968.     )
  1969. ))
  1970.  
  1971. (complete 80)
  1972.  
  1973. ; install other tools to GoldED's Tools drawer
  1974.  
  1975. (copyfiles
  1976.  
  1977.     (source "data/tools")
  1978.     (dest "GoldED:Tools")
  1979.     (pattern "(CAT|SCANNER|SOURCE|MENU)#?")
  1980.     (infos)
  1981. )
  1982.  
  1983. (complete 90)
  1984.  
  1985. ; install manuals and history file
  1986.  
  1987. (delete "golded:history")
  1988.  
  1989. (if (in manuals 2) (copyfiles (source "data/doc/French" ) (all) (dest "GoldED:") (infos)))
  1990. (if (in manuals 1) (copyfiles (source "data/doc/German" ) (all) (dest "GoldED:") (infos)))
  1991. (if (in manuals 0) (copyfiles (source "data/doc/English") (all) (dest "GoldED:") (infos)))
  1992.  
  1993. (if (not (exists "golded:history"))
  1994.  
  1995.     (delete "golded:history.info")
  1996. )
  1997.  
  1998. ; get rid of .info file created by installer
  1999.  
  2000. (delete "golded:.info")
  2001.  
  2002. ; tools: install med-res icons ?
  2003.  
  2004. (if (= icons 0) (
  2005.  
  2006.     (copyfiles
  2007.  
  2008.         (source "data/icons/tools")
  2009.         (dest   "GoldED:Tools")
  2010.         (all)
  2011.         (infos)
  2012.         (nogauge)
  2013.     )
  2014. ))
  2015.  
  2016. ; arrange manual icons
  2017.  
  2018. (run "bin/moveicons QUIET GAP FILES=Anleitung Manual Manuel DIR=GoldED:")
  2019.  
  2020. (delete "golded:config.info")
  2021.  
  2022. ; arrange icons within tool drawer
  2023.  
  2024. (run "bin/moveicons DIR=golded:tools GRID DX=0 DY=27 COLUMNS=1")
  2025.  
  2026. (complete 100)
  2027.  
  2028. (if (= update 2)
  2029.  
  2030.     (exit (quiet))
  2031.     (exit #complete)
  2032. )
  2033.