; $VER: GoldED Install 2, Copyright ©1995 Dietmar Eilert (delopts "oknodelete" "force" "askuser") (complete 0) ; --- English (default) strings --- (set #introduction (cat "\n" "Programmer's Editor, All Rights Reserved. \n" " \n" "GoldED ©1995 Dietmar Eilert \n" "Reqtools ©1991-1995 Nico François \n" " \n" "GoldED is NOT 'freely distributable'. Please\n" "have a look at the licence file before \n" "installing GoldED; installing this software \n" "means accepting that licence. Thank you. \n" )) (set #badkick "\n Sorry, this package requires OS v2.04 or better.\n") (set #error (cat " Some error has occurred. Please inform a GoldED \n" " support site (e.g. dietmar@tomate.tng.oche.de) \n" " AFTER having tried a different Installer release:\n" " 1.24 is known to work fine. \n" " \n" " The following information is required: error code\n" " (above), last error message, the percentage done \n" " (window title) and your log file. If available: \n" " a SnoopDos report. Thank you ! \n" )) (set #assign_found "\nGOLDED: assign detected...\n") (set #assign_found_help (cat "\n" " If you decide for updating your old installation\n" " you won't be asked for directories. Directories \n" " of your previous installation will be used. \n" " \n" " If you decide for removing your current GoldED \n" " installation this script will try to delete \n" " files introduced by a former GoldED installation\n" " However, this utility is not able to remove all \n" " files related to GoldED. For example it won't \n" " remove the reqtools library since this library \n" " might be used by other applications, too. It \n" " won't remove the QuickStarter since it doesn't \n" " know where it has been placed. \n" " \n" " If you ever run into troubles related to this \n" " install script (which certainly is not perfect),\n" " remove your outdated GED copy (use the 'remove' \n" " option) before attempting a completely new \n" " installation. \n" " \n" " Backups of your presets (if available) are made.\n" " \n" " Libraries are not overwritten unless they are \n" " outdated (depends on version/revision number). \n" )) (set #new "install new") (set #update "update existing GoldED") (set #remove "remove GoldED from your system") (set #remove_ged "remove 'GoldED:' assign ?\n") (set #remove_hs "remove 'HiSpeed:' assign ?\n") (set #remove_ed "remove quickstarter access ?\n") (set #remove_gmk "remove 'GUIMake:' assign ?\n") (set #must_remove "You should have this assign/reference removed !") (set #removed "; (removed)") (set #pref_icons "Select preferred icon type") (set #medres " med-res icons (pixel ratio 1:2)") (set #hires " hi-res icons (pixel ratio 1:1)") (set #pref_icons_help (cat "\n" " Select med-res if the pixel ratio of your preferred\n" " screen resolution is approx. 1:2 (e.g. in 640*200 \n" " mode the pixel width is half of pixel height). \n" " \n" " Select hi-res if the pixel ratio of your preferred \n" " resolution is approx. 1:1 (eg. 640*400 or 800*600).\n" )) (set #where " Where do you want to have the package installed ? \n") (set #where_help (cat "\n" " Simply select a directory (a root directory is \n" " fine, too). I'm going to create a new directory \n" " called 'GoldED' within the directory you specify.\n" " You should select a directory which has an icon \n" " attached to it (e.g. SYS:Utilities). \n" " \n" " The GoldED directory will keep several support \n" " files/tools as well as the main editor. ARexx \n" " macros related to GoldED are usually kept in a \n" " subdirectory of GoldED. Furthermore the manuals \n" " reside in GoldED's directory. \n" )) (set #bad_path "Sorry, can't install to RAM disk") (set #drive_space (cat "\n" " This installation requires at least 1.2 MB free\n" " disk space. Please make this space available \n" " and start again. \n" )) (set #gold_lib "Installation of GoldED.library ...") (set #gold_lib_help (cat "\n" "This library is required by the unregistered version\n" "only. Registered users recieve a keyfile instead. \n" )) (set #what_catalog "\n What catalogs do you want to have installed ?\n") (set #what_catalog_help (cat "\n" " Catalogs are required by OS2.1 or better to localize\n" " GoldED, i.e. to make the editor use the language \n" " selected by the locale preferences program (however \n" " menus are not loacalized since menus are not part of\n" " the editor itself). \n" )) (set #what_manuals "\nWhat manuals do you want to have installed ?\n") (set #what_manuals_help (cat "\n" " Each manual (ie. AmigaGuide file) consumes approx.\n" " 300K disk space \n" )) (set #add_ged_assign "Add 'GoldED:' assign to 's:user-startup' ?\n") (set #add_ged_assign_help (cat "\n" " The main editor does need this assign to find its \n" " files (libraries, presets, macros). \n" )) (set #quickname " Choose a name for the QuickStarter") (set #other_name "(other)") (set #quickname_help (cat "\n" " The QuickStarter is a small (4 KB) GoldED front- \n" " end. You can use it AS IF it were a real editor. \n" " For example you might type 'ed letter' to edit the\n" " file letter if the QuickStarter were named 'ed'. \n" " The big advantage of a QuickStarter is its abilty \n" " to pass a new job to an already runnning instance \n" " of GoldED (if there is any). This happens FAST. \n" " \n" " The QuickStarters default name is 'ED' but feel \n" " free to choose any name you like. Personally, I \n" " prefer to use 'ED' (replacing Commodore's ED). \n" )) (set #enter_name " Enter a name:\n") (set #enter_name_help (cat "\n" " Any name (GED, ED, ...) will do. Existing files are \n" " overwritten. If you decide for 'ED', the original ED\n" " is replaced. \n" )) (set #place_quick (cat "\n" " Now let's place the QuickStarter within a valid\n" " command directory. Select a directory: \n" )) (set #place_quick_help (cat "\n" " You should select one of these directories if you\n" " want to run the editor simply by typing its name,\n" " no matter what your current path is: \n" " \n" " SYS:C, SYS:TOOLS, SYS:UTILITIES or SYS:SYSTEM \n" " \n" " If you choose ED as default name, you must either\n" " place the quick starter into c: or delete the old\n" " ED from c: to prevent unpredictable behaviour. \n" )) (set #resident "\n Make QuickStarter resident ?\n") (set #resident_help (cat "\n" " I would suggest to make the QuickStarter (4 KB)\n" " resident - it will work faster. \n" )) (set #backup_presets "Creating backup of old presets ...") (set #backup_macros "Creating backup of old macros...") (set #bak_done (cat "\n" "Backups of your old preferences have been written\n" "to directory:\n\n" )) (set #what_menu "\n Choose default menu definition file:\n") (set #what_menu_help (cat "\n" " GoldED is localized (i.e. uses the locale library \n" " of WB2.1/3.x) as far as its internal textes are \n" " concerned. Since menus are not part of the editor \n" " itself they are not localized. Instead, the user may\n" " specify a menu definition file to get menus in his/ \n" " her preferred language. \n" )) (set #screen "\n Choose default screen resolution \n") (set #screen_help (cat "\n" " Decide for a default screen mode to be used when the\n" " editor is started for the 1st time. I would suggest \n" " to use a custom screen for this will make GoldED run\n" " faster and look much nicer. \n" )) (set #screen_ntsc "custom screen NTSC") (set #screen_ntsc_i "custom screen NTSC interlaced") (set #screen_pal "custom screen PAL") (set #screen_pal_i "custom screen PAL interlaced") (set #screen_wb "workbench screen") (set #look_feel "Look & feel") (set #look_feel_help (cat "\n" " Suggestion: use a 2-color mode if your Amiga \n" " isn't that fast (68000) but a four color mode\n" " for any other Amiga. Additional modes are \n" " available within GoldED. \n" )) (set #mode_blue "Blue (2 colors, faaaast)") (set #mode_tpp "TPP (4 colors, dark blue)") (set #mode_ocean "Ocean (4 colors, bright green)") (set #mode_stone "Modern (4 colors, grey)") (set #mode_leaf "Leaf (4 colors, my favourite)") (set #mode_ced "CED (4 colors, bright blue)") (set #mode_tennis "Tennis (4 colors, brown-green)") (set #mode_desktop "Desktop (8 colors, slow)") (set #what_printer "\n What printer do you own ? \n") (set #what_printer_help "\n Simply select the printer model you own.") (set #printer_deskjet "DeskJet or 100% compabible") (set #printer_laser "PCL laser printer") (set #printer_other "none/other") (set #what_proglang "\n Select preferred programming language:\n") (set #what_proglang_other "other") (set #what_proglang_help (cat "\n" " GoldED offers smart indention after keywords like \n" " IF. The indention scheme depends on your programming\n" " language. Additionally, a C-dictionary is available \n" " (required for AutoCompletion). \n" )) (set #no_prefs "\n Couldn't create preferences file ?!\n") (set #install_aguide "Installation of AmigaGuide-Library...") (set #install_reqtools "Installation of Reqtools-Library...") (set #install_xpk "Installation of XpkMaster-Library...") (set #install_presets "Installation of presets...") (set #second_disk (cat "\n" " Please insert part II of the GoldED distribution\n" " into disk drive df0: ... \n" )) (set #hs_assign "\n Add 'HISPEED:' assign to 's:user-startup' ?\n") (set #hs_assign_help (cat "\n" " A 'HISPEED:' assign is required if you want to run\n" " HiSpeed without having to worry about the current \n" " path (i.e. you won't have to CD to HiSpeed's dir).\n" " However, this assignment is not required if you \n" " don't intend to use the softfonts of this package.\n" " \n" )) (set #complete (cat "\n" "Installation complete. You should reboot your Amiga \n" "before running this GED-release for the 1st time. \n" )) ; --- German strings --- (if (= @language "deutsch") ( (set #introduction (cat "\n" "Programmer's Editor, Alle Rechte vorbehalten. \n" " \n" "GoldED ©1995 Dietmar Eilert \n" "Reqtools ©1991-1994 Nico François \n" " \n" "GoldED ist NICHT 'frei vertreibbar'. Bitte \n" "lesen Sie die Lizenz-Datei, bevor Sie GoldED \n" "installieren. Mit der Installation stimmen Sie\n" "den Lizenzbedingungen zu. Danke. \n" )) (set #badkick "\n Sorry, dieses Paket benoetigt mind. OS2.04.\n") (set #error (cat " Ein Fehler ist aufgetreten. Bitte informieren Sie\n" " den Support (dietmar@tomate.tng.oche.de) NACHDEM \n" " Sie die Intallation mit einer anderen Installer- \n" " Version (Empfehlung: 1.24) wiederholt haben. \n" " \n" " Die folgende Information wird benoetigt: Fehler- \n" " Code (s.o.), Fehler-Text, abgearbeiteter Prozent-\n" " satz (s. Fenstertitel) und die Log-Datei. Falls \n" " vorhanden: ein SnoopDos-Report. Danke ! \n" )) (set #assign_found "\nGoldED-Installation entdeckt...\n") (set #assign_found_help (cat "\n" " Wählen Sie 'Update', um die neue GED-Fassung über\n" " ihre bisherige Kopie zu installieren; in diesem \n" " Fall wird das Skript auf einige Fragen verzichten\n" " und sich dafür an der bisherigen Installation \n" " orientieren. \n" " \n" " Mit 'Deinstallation' kann eine schon vorhandene \n" " GoldED-Version entfernt werden. Einige Dateien \n" " werden dabei allerdings nicht gelöscht werden \n" " können (u.a. Libraries, da sie meist noch von \n" " anderen Programmen benötigt werden). \n" " \n" " Sollten im Laufe dieser sicher nicht perfekten \n" " Installation Probleme auftreten, empfiehlt sich \n" " eine Deinstallation, bevor dann komplett neu \n" " installiert wird. \n" " \n" " Von Ihren bisherigen Presets (etwa Menus) werden \n" " Sicherheitskopien angelegt. \n" " \n" " Libraries werden nicht überschrieben, sofern sie \n" " nicht überholt sind). \n" )) (set #new "Neu installieren") (set #update "Update (über bisherige Version installieren)") (set #remove "Deinstallation (GoldED entfernen)") (set #remove_ged "GoldED-Assign entfernen ?\n") (set #remove_hs "HiSpeed-Assign entfernen ?\n") (set #remove_ed "Quickstarter-Referenz entfernen ?\n") (set #remove_gmk "GUIMake-Assign entfernen ?\n") (set #must_remove "Sie sollten den Assign/die Referenz entfernen lassen !") (set #removed "; (entfernt)") (set #pref_icons "Bevorzugten Icon-Typ wählen") (set #medres " mittlere Auflösung (Seitenverhältnis 1:2)") (set #hires " hohe Auflösung (Seitenverhältnis 1:1)") (set #pref_icons_help (cat "\n" " Wählen Sie die mittlere Auflösung, wenn für Ihre \n" " Workbench ein Modus wie 640*200 eingestellt ist. \n" " \n" " Die hohe Auflösung sollte bei einem Höhen/Breiten-\n" " verhältnis von etwa 1:1 verwendet werden (640*512 \n" " oder 800*600). \n" )) (set #where " Wo soll das Paket installiert werden ? \n") (set #where_help (cat "\n" " Wählen Sie ein beliebiges Verzeichnis. Hauptver- \n" " zeichnisse wie DH0: können auch benutzt werden. \n" " In dem angegebenen Pfad wird ein Ordner 'GoldED' \n" " samt Icon erzeugt werden. \n" " \n" " Sie sollten ein Verzeichnis wählen, dem ein Icon \n" " zugeordnet ist, um GoldED auch über die Workbench \n" " wiederfinden zu können (etwa SYS:TOOLS). \n" " \n" " Das GoldED-Verzeichnis wird neben dem Editor auch \n" " diverse begleitende Dateien aufnehmen: neben einer\n" " Makrosammlung einige Hilfsprogramme. Die Anleitung\n" " werden Sie dort ebenfalls wiederfinden. \n" )) (set #bad_path "Sorry, Installation in RAM-Disk nicht möglich") (set #drive_space (cat "\n" " Diese Installation benötigt mindestens 1.2 MB\n" " freien Platz auf dem Zieldatenträger. Bitte \n" " machen Sie diesen Platz verfügbar und starten\n" " die Installation dann neu. \n" )) (set #gold_lib "Installation der GoldED-Library ...") (set #gold_lib_help (cat "\n" "Diese Library wird nur für die unregistrierte Version\n" "benötigt. Registrierte Benutzer erhalten ersatzweise \n" "ein Keyfile. \n" )) (set #what_catalog "\n Welche Kataloge sollen installiert werden ?\n") (set #what_catalog_help (cat "\n" " Diese Daten werden vom Betriebssystem benötigt, um \n" " GoldED in verschiedenen Sprachen ablaufen zu lassen \n" " (dazu ist allerdings mindestens OS2.1 erforderlich).\n" " \n" " Menus werden nicht automatisch lokalisiert, da sie \n" " benutzerabhängig und nicht Teil des Editors sind; \n" " dazu später mehr. \n" )) (set #what_manuals "\n Welche Anleitungen sollen installiert werden ?\n") (set #what_manuals_help (cat "\n" " Jede Anleitung (AmigaGuide-Datei) belegt etwa 300K\n" " Platz auf Ihrer Festplatte \n" )) (set #add_ged_assign "'GoldED:'-Assign einrichten ?\n") (set #add_ged_assign_help (cat "\n" " Der Editor benötigt diesen Assign zum Auffinden \n" " diverser Dateien. \n" )) (set #quickname " Namen für Schnellstarter wählen") (set #other_name "(anderer)") (set #quickname_help (cat "\n" " Der Schnellstarter ist ein kleiner (4 K) Vorsatz \n" " für GoldED, der benutzt werden kann, ALS OB er \n" " selbst ein Editor wäre. Sie könnten so ED LETTER \n" " eingeben, um den Text LETTER zu bearbeiten, wenn \n" " der Name des Quickstarters ED lautet. Der Vorteil \n" " des Quickstarters: Er kann einen schon laufenden \n" " Editor ansprechen und diesem die Aufgabe über- \n" " geben. Dies geschieht SEHR schnell. In der Praxis \n" " werden Sie vermutlich bald nur noch den Schnell- \n" " starter verwenden. \n" " \n" " Namensvorgabe ist ED; damit würde der originale ED\n" " Ihrer Workbench ersetzt. Es kann aber natürlich \n" " jeder beliebige Name benutzt werden. \n" )) (set #enter_name " Einen Namen angeben:\n") (set #enter_name_help (cat "\n" " Wählen Sie einen beliebigen Namen. Unter diesem \n" " Namen vorhandene Dateien werden überschrieben. Mit\n" " ED würden sie den alten ED der Workbench ersetzen.\n" )) (set #place_quick " Plazieren des Schnellstarters im Kommandopfad:\n") (set #place_quick_help (cat "\n" " Sie sollten eines der folgenden Verzeichnisse be- \n" " nutzen, um den Starter durch einfache Namensangabe\n" " von jedem Verzeichnis aus aufrufen zu können: \n" " \n" " SYS:C, SYS:TOOLS, SYS:UTILITIES oder SYS:SYSTEM \n" " \n" " Haben Sie den Starter ED genannt, so sollte er \n" " entweder in 'C:' plaziert werden oder der dort \n" " vorhandene ED gelöscht werden, um eindeutige Ver- \n" " hältnisse zu schaffen. \n" )) (set #resident "\n Schnellstarter resident machen ?\n") (set #resident_help (cat "\n" " Der Quickstarter sollte resident gemacht werden,\n" " da er dann noch schneller ansprechbar ist. Der \n" " damit verbundene Speicherverbrauch ist vernach- \n" " lässigbar (4 KB). \n" )) (set #backup_presets "Sicherheitskopien der Einstellungen anlegen...") (set #backup_macros "Sicherheitskopien der Makros anlegen...") (set #bak_done (cat "\n" "Kopien der alten Einstellungen wurden im folgenden\n" "Verzeichnis abgelegt:\n\n" )) (set #what_menu "\n Sprache für Menu auswählen: \n") (set #what_menu_help (cat "\n" " GoldED ist lokalisiert, sprich: benutzt ab OS2.1 die\n" " Locale-Library, um seine Requester an die system- \n" " weit eingestellte Sprache anzupassen. Da aber Menus \n" " nicht Bestandteil von GoldED selbst sind, können sie\n" " auch nicht automatisch lokalisiert werden; wählen \n" " Sie deshalb bitte jetzt die gewünschte Sprache. \n" )) (set #screen "\n Gewünschter Bildschirmmodus:\n") (set #screen_help (cat "\n" " Zur Einstellung des Bildschirmmodus vor dem ersten\n" " Programmstart. Ich würde zu einem eigenen Screen \n" " raten, da GED dann schneller arbeitet und schöner \n" " aussieht (bei Rechnern mit nur 512K Chip-RAM ist \n" " dafür aber möglicherweise zu wenig Speicher vor- \n" " handen). \n" )) (set #screen_ntsc "eigener NTSC-Screen") (set #screen_ntsc_i "eigener NTSC-Screen interlaced") (set #screen_pal "eigener PAL-Screen") (set #screen_pal_i "eigener PAL-Screen interlaced") (set #screen_wb "Workbench-Screen") (set #look_feel "Look & Feel") (set #look_feel_help (cat "\n" " Vorschlag: benutzen Sie einen 2-Farb-Modus, \n" " wenn Ihr Rechner eher langsam ist (68000er), \n" " ansonsten einen 4-Farb-Modus. Innerhalb von \n" " GoldED stehen Ihnen noch wesentlich mehr Modi\n" " zur Vefügung. \n" )) (set #mode_blue "Blau (2 Farben, schnell)") (set #mode_tpp "TPP (4 Farben, dunkelblau)") (set #mode_ocean "Ozean (4 Farben, helles Grün)") (set #mode_stone "Modern (4 Farben, grau)") (set #mode_leaf "Laub (4 Farben, grün)") (set #mode_ced "CED (4 Farben, helles Blau)") (set #mode_tennis "Tennis (4 Farben, rostbraun-grün)") (set #mode_desktop "Desktop (8 Farben, langsam)") (set #what_printer "\n Welchen Drucker besitzen Sie ? \n") (set #what_printer_help "\n Geben Sie den Druckertyp an, den Sie besitzen.") (set #printer_deskjet "DeskJet oder Kompatibler") (set #printer_laser "PCL Laserdrucker") (set #printer_other "anderer/kein Drucker") (set #what_proglang "\n Bevorzugte Programmiersprache:\n") (set #what_proglang_other "andere/keine") (set #what_proglang_help (cat "\n" " GED bietet 'intelligente' Einrückung nach Schlüssel-\n" " worten wie IF. Das Einrückungsschema hängt von Ihrer\n" " Programmiersprache ab. Daneben wird bei Wahl von C \n" " auch noch ein C-Wörterbuch installiert, das der \n" " automatischen Korrektur von Groß-/Kleinschreibung \n" " sowie der automatischen Wortvervollständigung dient.\n" )) (set #no_prefs "\n Konfigurationsdatei konnte nicht erzeugt werden ?!\n") (set #install_aguide "Installation der AmigaGuide-Library...") (set #install_reqtools "Installation der Reqtools-Library...") (set #install_xpk "Installation der XpkMaster-Library...") (set #install_presets "Installation der Konfigurationsdateien...") (set #second_disk (cat "\n" " Bitte legen Sie Teil II des GoldED-Paketes in\n" " das Laufwerk df0: ein ... \n" )) (set #hs_assign "\n 'HISPEED:'-Assign einrichten ?\n") (set #hs_assign_help (cat "\n" " Dieser Assign wird benötigt, wenn Sie HiSpeed aus\n" " jedem beliebigen Verzeichnis heraus aufrufen \n" " möchten. Er kann entfallen, wenn Sie die im Paket\n" " enthaltenen DJ-Sftfonts nicht benutzen werden. \n" )) (set #complete (cat "\n" "Installation abgeschlossen. Sie sollen Ihren Amiga \n" "neu booten, bevor Sie diese GoldED-Fassung erstmalig\n" "benutzen. \n" )) )) ; --- French strings --- (if (= @language "français") ( (set #introduction (cat "\n" "L'éditeur du programmeur, Tous droits réservés \n" " \n" "GoldED ©1995 Dietmar Eilert \n" "Reqtools ©1991-1994 Nico François \n" " \n" "GoldED N'EST PAS 'librement distribuable'. \n" "Consultez le fichier licence avant d'installer \n" "GoldED; l'installation de ce logiciel signifie \n" "que vous acceptez cette licence. Merci. \n" )) (set #badkick "\n Désolé, ce pack demande l'OS v2.04 ou mieux.\n") (set #error (cat " Une erreur est survenue. Informez-en svp un site \n" " de support de GoldED (dietmar@tomate.tng.oche.de).\n" " Les informations suivantes sont nécessaires: le \n" " code d'erreur (ci-dessus), le pourcentage atteint \n" " et votre fichier log. Merci ! \n" )) (set #assign_found "\nAssign GOLDED: détecté...\n") (set #assign_found_help (cat "\n" " Si vous décidez de mettre à jour votre vieille \n" " installation, on ne vous demandera pas de réper- \n" " toires. Ceux de l'installation précédente seront \n" " utilisés. \n" " \n" " Si vous décidez d'effacer votre installation \n" " actuelle de GoldED, celui-ci essaiera d'effacer \n" " les fichiers créés par une installation normale \n" " de GoldED. Cet utilitaire est par contre incapable\n" " d'effacer tous les fichiers appartenant à GoldED. \n" " Par exemple, il n'effacera pas la reqtools.library\n" " car celle-ci peut être utilisée par d'autres \n" " application. Il n'effacera pas le QuickStarter car\n" " il ne sait pas ou il se trouve. \n" " \n" " Si vous rencontrez des problèmes avec ce script \n" " d'installation (qui n'est certainement pas par- \n" " fait), effacez d'abord votre ancienne copie (uti- \n" " lisez l'option remove) avant d'essayer une \n" " nouvelle installation. \n" " \n" " Des copies de sauvegarde de vos préférences sont \n" " faites. \n" " \n" " Les bibliothèques ne sont pas effacées mais mises \n" " à jour (selon le numéro de version/révision). \n" )) (set #new "Installation de GoldED") (set #update "Mettre à jour votre GoldED") (set #remove "Effacer GoldED de votre système") (set #remove_ged "Effacer l'assign 'GoldED:' ?\n") (set #remove_hs "Effacer l'assign 'HiSpeed:' ?\n") (set #remove_ed "Effacer l'accès au quickstarter ?\n") (set #remove_gmk "Effacer l'assign 'GUIMake:' ?\n") (set #must_remove "Vous devez effacer cet assign !") (set #removed "; (effacé)") (set #pref_icons "Sélectionnez le type d'icônes souhaité") (set #medres " Icônes moyenne résolution (aspect 1:2)") (set #hires " Icônes haute résolution (aspect 1:1)") (set #pref_icons_help (cat "\n" " Sélectionnez la moyenne résolution si votre écran\n" " a une résolution de 640x256 ou de 640x200 (dans \n" " ce mode les pixels sont plus hauts que larges). \n" " Sélectionnez la haute résolution si la résolution\n" " de votre écran est d'environ 1:1 (640x512 ou \n" " 800x600). \n" )) (set #where " Ou désirez-vous installer le répertoire de GED ?\n") (set #where_help (cat "\n" " Sélectionnez simplement un répertoire (le réper- \n" " toire principal est très bien pour cela). Je vais\n" " créer un répertoire GoldED dans votre répertoire.\n" " Vous devriez sélectionner un répertoire possédant\n" " une icône (ex: SYS:Utilities). \n" " \n" " Le répertoire de GoldED contiendra plusieurs fi- \n" " chiers/utilitaires ainsi que l'éditeur principal.\n" " Les macros ARexx sont normalement placés dans un \n" " sous-répertoire de GoldED. Les manuels de GoldED \n" " y sont également installés. \n" )) (set #bad_path "Désolé, pas d'installation en RAM") (set #drive_space (cat "\n" " Cette installation demande environ 1.2 Mo de \n" " libre sur le volume dans lequel vous voulez \n" " GoldED. Libérez un peu de place sur ce volume \n" " et réinstallez-le. \n" )) (set #gold_lib "Installation de la GoldED.library ...") (set #gold_lib_help (cat "\n" " Cette bibliothèque est seulement requise pour la \n" " version non enregistrée de GoldED. Les utilisateurs \n" " enregistrés reçoivent un fichier-clé à la place. \n" )) (set #what_catalog "\n Quels catalogues désirez-vous installer ?\n") (set #what_catalog_help (cat "\n" " Les catalogues sont requis par l'OS 2.1 ou plus pour\n" " localiser GoldED, c.à.d pour que l'éditeur soit tra-\n" " duit dans le langage de l'utilisateur (même si les \n" " menus ne sont pas localisés car ils ne dépendent pas\n" " de l'éditeur lui-même). \n" )) (set #what_manuals "\n Quels manuels désirez-vous installer ?\n") (set #what_manuals_help (cat "\n" " Each manual (amiga guide file) will consume approx. \n" " 300K disk space \n" )) (set #add_ged_assign "Ajouter l'assign GoldED à la s:user-startup ?\n") (set #add_ged_assign_help (cat "\n" " The main editor does need this assign to find its \n" " files (libraries, presets, macros). \n" )) (set #quickname " Choisissez un nom pour le Quickstarter") (set #other_name "(autre nom)") (set #quickname_help (cat "\n" " Le QuickStarter est une petite façade (4 Ko) de \n" " GoldED. Vous pouvez l'utiliser comme si c'était \n" " un vrai éditeur. Vous pouvez entrer par exemple \n" " 'ed lettre' si le QuickStarter s'appelle 'ed'. \n" " Le grand avantage du QuickStarter est qu'il peut \n" " passer une nouveau texte à une tâche de GoldED \n" " déjà existante (s'il y en a une). Le Quickstarter\n" " peut être résident (l'éditeur principal non). \n" " \n" " Le nom par défaut de QuickStarter est 'ED' mais \n" " vous êtes libre de choisir le nom que vous \n" " voulez. Personnellement, je préfère ED \n" " (remplacant celui de Commodore). \n" )) (set #enter_name " Entrez un nom:\n") (set #enter_name_help (cat "\n" " N'importe quel nom (GED, ...) est possible. Les \n" " fichiers existants seront effacés. Si vous \n" " l'appelez ED, celui-ci sera perdu. \n" )) (set #place_quick (cat "\n" " Plaçons maintenant le QuickStarter dans un \n" " répertoire valable. Sélectionnez-en un: \n" )) (set #place_quick_help (cat "\n" " Vous devriez sélectionnez un de ces répertoires \n" " si vous voulez entrer son nom sans vous occuper \n" " de l'endroit où il se trouve: \n" " \n" " SYS:C, SYS:TOOLS, SYS:UTILITIES or SYS:SYSTEM \n" " \n" " Si vous choisissez ED comme nom par défaut, vous\n" " devez soit le placer dans C: ou effacer le vieux\n" " ED pour éviter des conflits entre les deux. \n" )) (set #resident "\n Rendre Quickstarter résident?\n") (set #resident_help (cat "\n" " Je vous suggère de rendre résident le \n" " Quickstarter (4Ko) - il sera ainsi plus rapide. \n" )) (set #backup_presets "Crée un backup des anciens règlages...") (set #backup_macros "Crée un backup des anciens makros...") (set #bak_done (cat "\n" " Des copies de sauvegarde de vos anciens réglages ont\n" " été placées dans le répertoire:\n\n" )) (set #what_menu "\n Choisissez le langage de vos menus: \n") (set #what_menu_help (cat "\n" " GoldED est localisé (il utilise la locale.library \n" " du WB2/3.x) en ce qui concerne les textes internes.\n" " Comme les menus ne font pas partie de l'éditeur en \n" " lui-même, ils ne sont pas localisés. A la place, l \n" " utilisateur peut choisir un fichier menu dans son \n" " langage. \n" )) (set #screen "\n Choisissez la résolution de l'écran par défaut:") (set #screen_help (cat "\n" " Définit le mode d'écran à utiliser lors du premier \n" " démarrage de GoldED. Je vous suggère d'utiliser un \n" " écran Custom car cela rendra GoldED beaucoup plus \n" " rapide et beaucoup plus beau. \n" )) (set #screen_ntsc "Ecran Custom NTSC") (set #screen_ntsc_i "Ecran Custom NTSC entrelacé") (set #screen_pal "Ecran Custom PAL") (set #screen_pal_i "Ecran Custom PAL entrelacé") (set #screen_wb "Ecran Workbench") (set #look_feel "Look & Feel") (set #look_feel_help (cat "\n" " Suggestion: utilisez un mode à 2 couleurs si votre\n" " Amiga n'est pas très rapide (68000) ou n'importe \n" " lequel pour un autre Amiga. Attention: il existe \n" " d'autres modes disponibles depuis GoldED \n" )) (set #mode_blue "Bleu (2 couleurs, rapide)") (set #mode_tpp "TPP (4 couleurs, bleu foncé)") (set #mode_ocean "Océan (4 couleurs, vert clair)") (set #mode_stone "Pierre (4 couleurs, gris)") (set #mode_leaf "Feuilles (4 couleurs, vert)") (set #mode_ced "CED (4 couleurs, bleu clair)") (set #mode_tennis "Tennis (4 couleurs, marron-vert)") (set #mode_desktop "Desktop (8 couleurs, beau mais lent)") (set #what_printer "\n Quel imprimante possédez-vous ?\n") (set #what_printer_help "\n Sélectionnez simplement votre modèle.") (set #printer_deskjet "DeskJet ou similaire (Olivetti, Fujitsu...)") (set #printer_laser "Imprimante Laser (PCL)") (set #printer_other "Aucune/Autre") (set #what_proglang "\n Votre langage de programmation préféré?\n") (set #what_proglang_other "Autre") (set #what_proglang_help (cat "\n" " GoldED propose un formatage automatique après les\n" " mots-clé comme IF. Ce formatage dépend du langage\n" " de programmation. Un dictionnaire C est de plus \n" " disponible (requis pour l'Autocomplétion). \n" )) (set #no_prefs "\n Impossible de créer le fichier de préférences !?\n") (set #install_aguide "Installation de la AmigaGuide-Library...") (set #install_reqtools "Installation de la Reqtools-Library...") (set #install_xpk "Installation de la XpkMaster-Library...") (set #install_presets "Installation des règlages...") (set #second_disk (cat "\n" " Insérez la deuxième disquette de la distribution\n" " de GoldED dans le lecteur df0: ... \n" )) (set #hs_assign "\n Ajoutez l'assign HISPEED à la s:user-startup ?\n") (set #hs_assign_help (cat "\n" " Un assign 'HISPEED:' est requis si vous voulez \n" " utiliser HiSpeed sans vous préoccuper des chemins \n" " à utiliser (vous n'aurez pas à faire un CD HiSpeed).\n" " Cet assign n'est par contre pas requis si vous \n" " ne comptez pas utiliser les polices soft de ce pack.\n" )) (set #complete (cat "\n" " Installation terminée. Vous devriez réinitialiser \n" " votre machine avant d'utiliser GED pour la première \n" " fois. \n" )) )) ; sure we are running under a 2.04 ROM ? (if (< (/ (getversion) 65536) 37) ( (message #badkick) (exit (quiet)) ) ) (complete 0) (run "bin/sync SCRIPT=INSTALL.BAT") (message #introduction) (welcome) (set @default-dest "") ; set default language selection (catalogs) to English (set catalogs 1) (set update 0) (if (not (exists "prefs:" (noreq))) (makeassign "prefs" "sys:prefs")) (onerror ( (if (> @ioerr 0) (message (cat "\n ERROR CODE: " @ioerr "\n\n" #error)) ) )) ; check for existing installation (if (exists "GoldED:" (noreq)) ( ; check for installed catalogs (1=english, 2=german, 4=french, 8=swedish 16=italiano 32=nederlands (if (exists "golded:catalogs") ( (if (exists "golded:catalogs/deutsch/golded.catalog" (noreq)) (set catalogs (+ catalogs 2))) (if (exists "golded:catalogs/français/golded.catalog" (noreq)) (set catalogs (+ catalogs 4))) (if (exists "golded:catalogs/svenska/golded.catalog" (noreq)) (set catalogs (+ catalogs 8))) (if (exists "golded:catalogs/italiano/golded.catalog" (noreq)) (set catalogs (+ catalogs 16))) (if (exists "golded:catalogs/nederlands/golded.catalog" (noreq)) (set catalogs (+ catalogs 32))) ) (if (exists "locale:" (noreq)) ( (if (exists "locale:catalogs/deutsch/golded.catalog" (noreq)) (set catalogs (+ catalogs 2))) (if (exists "locale:catalogs/français/golded.catalog" (noreq)) (set catalogs (+ catalogs 4))) (if (exists "locale:catalogs/svenska/golded.catalog" (noreq)) (set catalogs (+ catalogs 8))) (if (exists "locale:catalogs/italiano/golded.catalog" (noreq)) (set catalogs (+ catalogs 16))) (if (exists "locale:catalogs/nederlands/golded.catalog" (noreq)) (set catalogs (+ catalogs 32))) )) ) (set update (askchoice (prompt #assign_found) (help #assign_found_help) (default 1) (choices #new #update #remove ) )) )) ; remove GoldED ? (if (= update 2) ( (if (exists "GoldED:" (noreq)) ( (run "assign >NIL: oldged: GoldED:/") (run "assign >NIL: HiSpeed: remove") (run "assign >NIL: GoldED: remove") (run "assign >NIL: GUIMake: remove") (run "delete >NIL: oldged:GoldED all quiet force") (run "delete >NIL: oldged:GoldED.info") (if (exists "locale:" (noreq)) ( (delete "locale:catalogs/deutsch/GoldED.catalog") (delete "locale:catalogs/français/GoldED.catalog") (delete "locale:catalogs/italiano/GoldED.catalog") (delete "locale:catalogs/nederlands/GoldED.catalog") (delete "locale:catalogs/svenska/GoldED.catalog") (delete "locale:catalogs/deutsch/SpellIT.catalog") (delete "locale:catalogs/français/SpellIT.catalog") (delete "locale:catalogs/deutsch/HiSpeed.catalog") (delete "locale:catalogs/français/HiSpeed.catalog") )) (run "delete >NIL: prefs:presets/GED_#? all quiet") (run "delete >NIL: prefs:presets/GoldED all quiet") (run "delete >NIL: envarc:GoldED all quiet") (run "delete >NIL: env:GoldED all quiet") (run "delete >NIL: envarc:HiSpeed all quiet") (run "delete >NIL: env:HiSpeed all quiet") (run "delete >NIL: fonts:GoldED all quiet") (delete "s:GUIMake.pref") (delete "libs:golded.library") ((startup "GoldED" (prompt #remove_ged) (help #must_remove) (command #removed) )) ((startup "HiSpeed" (prompt #remove_hs) (help #must_remove) (command #removed) )) ((startup "GED_quick" (prompt #remove_ed) (help #must_remove) (command #removed) )) ((startup "GUIMake" (prompt #remove_gmk) (help #must_remove) (command #removed) )) (run "assign >NIL: oldged: remove") ) ) (exit (quiet)) )) (complete 1) (if (= update 1) ( ; : 0 = medRes icons, 1 = hiRes icons (if (> (getsize "golded:golded.info") 800) (set icons 1) (set icons 0) ) ) (set icons (askchoice (prompt #pref_icons) (help #pref_icons_help) (choices #medres #hires ) (default 1) ) ) ) (complete 2) ; install the main editor (if (= update 1) (set target "golded:/") ((set target (askdir (prompt #where) (help #where_help) (default "SYS:TOOLS") )) )) (set @default-dest target) (if (not (exists (tackon target "golded"))) (makedir (tackon target "golded")) ) (makeassign "golded" (tackon target "golded")) (run (cat "bin/patch FILE=data/main/golded/ed FIND=$GOLDED INSERT=\"" (tackon (expandpath target) "golded") "\"")) (if (not (exists "golded:obsolete")) (makedir "golded:obsolete") ) ; backup old arexx macros (if (exists "golded:arexx" (noreq)) ( (working #backup_macros) (copyfiles (source "golded:arexx") (dest "golded:arexx/backup") (pattern "~(backup)") (nogauge) ) )) ; no installation to RAM disk allowed ... (if (= "RAM" (getdevice target)) ( (message #bad_path) (exit (quiet)) )) (complete 5) (set targetsize (getdiskspace target)) (if (= update 0) (if (< targetsize 1250000) ( (if (<> (getdevice target) "RAM") ( (abort #drive_space) )) )) ) (complete 10) (copyfiles (source "data/main") (dest target) (infos) (all) ) ; just in case somebody saved the keyfile as golded:keyfile (run "delete golded:keyfile") ; install keyfile ? (set keyfile (tackon (pathonly @icon) "keyfile/keyfile")) (if (exists "envarc:golded/keyfile" (noreq)) (set keyfile "envarc:golded/keyfile") ) (if (exists "s:golded/keyfile" (noreq)) (set keyfile "s:golded/keyfile") ) (if (exists keyfile (noreq)) ( (if (not (exists "golded:keyfile")) (makedir "golded:keyfile") ) (copyfiles (source keyfile) (dest "golded:keyfile") (nogauge) ) ) ) ; install new drawer icon (copyfiles (source "data/icons/drawer/GoldED.info") (dest target) (infos) ) (complete 15) ; install med-res icons (if (= icons 0) (copyfiles (source "data/Icons/GoldED") (dest (tackon target "GoldED")) (all) (infos) ) ) ; get rid of .info file created by installer (delete (tackon target ".info")) (set prefsdir "golded:presets") (set oldprefs "golded:presets") (if (exists "sys:prefs/presets/golded") (set oldprefs "sys:prefs/presets/golded") ) ; backup old presets (if (exists oldprefs) ( (set bakdir "golded:obsolete/presets") (working #backup_presets) (copyfiles (source oldprefs) (dest bakdir) (nogauge) (all) ) (message (cat #bak_done bakdir)) (run (cat "delete " oldprefs " all quiet")) )) (complete 20) (working #install_presets) (copyfiles (source "data/presets") (dest prefsdir) (all) (nogauge) ) (complete 30) (set oldconfig "golded:config") (if (exists "envarc:golded") (set oldconfig "envarc:golded") ) (if (exists oldconfig (noreq)) ( (copyfiles (source oldconfig) (dest "golded:obsolete/config") (nogauge) (all) ) (run (cat "bin/splitconfig " (tackon oldconfig "golded.prefs") " " prefsdir " YourOldConfig")) ) ) ; remove obsolete files (delete "golded:golded.guide" (infos)) (delete "golded:GEDApp" (infos)) (delete "golded:Hi!" (infos)) (delete "golded:Tools/Unlock.info" (infos)) (delete "golded:rx") (delete "golded:API/ReadMe.info") (delete "golded:API/dock/dock1.prefs") (delete "golded:API/dock/dock2.prefs") (delete "golded:macros/test.ged") (delete "golded:Anleitung") (delete "golded:Manual") (delete "golded:Manuel") (delete "libs:golded.library") ; remove obsolete icons (delete "golded:arexx.info") (delete "golded:menu.info") (delete "golded:tools/hispeed.info") (delete "golded:tools/ed.info") (delete "golded:tools/gedrefs.info") (delete "golded:tools/recover.info") (delete "golded:tools/gedapp.info") (delete "golded:tools/prjsource.info") (delete "golded:tools/unlock.info") (delete "golded:tools/geddock.info") (delete "golded:tools/gedscan.info") ; remove obsolete catalogs (if (exists "locale:" (noreq)) ( (delete "locale:catalogs/deutsch/GoldED.catalog") (delete "locale:catalogs/français/GoldED.catalog") (delete "locale:catalogs/italiano/GoldED.catalog") (delete "locale:catalogs/nederlands/GoldED.catalog") (delete "locale:catalogs/svenska/GoldED.catalog") (delete "locale:catalogs/deutsch/HiSpeed.catalog") (delete "locale:catalogs/français/HiSpeed.catalog") )) ; remove obsolete drawers (run "delete >NIL: golded:menu all quiet") (run "delete >NIL: golded:tools/ed all quiet") (run "delete >NIL: golded:tools/gedrefs all quiet") (run "delete >NIL: golded:tools/recover all quiet") (run "delete >NIL: golded:tools/gedapp all quiet") (run "delete >NIL: golded:tools/prjsource all quiet") (run "delete >NIL: golded:tools/unlock all quiet") (run "delete >NIL: golded:tools/geddock all quiet") (run "delete >NIL: golded:tools/gedscan all quiet") (run "delete >NIL: env:golded all quiet") (run "delete >NIL: envarc:golded all quiet") (run "delete >NIL: s:golded all quiet") (run "delete >NIL: golded:tools/edsource all quiet") (run "delete >NIL: prefs:presets/GED_#? all quiet") ; create GoldED ARexx macro icons (if (= icons 0) (run "bin/moveicons QUIET DIR=golded:arexx ICON=data/icons/script/medres DX=90 DY=40 COLUMNS=5") (run "bin/moveicons QUIET DIR=golded:arexx ICON=data/icons/script/hires DX=95 DY=45 COLUMNS=5") ) (complete 40) ; ask for catalogs to be installed in non-upgrade mode only (if (= update 0) ; 1=english, 2=german, 4=french, 8=swedish 16=italiano 32=nederlands (63=all, 0=none) (set catalogs (askoptions (prompt #what_catalog) (help #what_catalog_help) (choices " English" " Deutsch" " Français" " Svenska" " Italiano" " Nederlands" ) (default catalogs) )) ) ; remove obsolete catalogs (if (NOT (IN catalogs 1)) (run "delete golded:catalogs/deutsch all") ) (if (NOT (IN catalogs 2)) (run "delete golded:catalogs/français all") ) (if (NOT (IN catalogs 3)) (run "delete golded:catalogs/svenska all") ) (if (NOT (IN catalogs 4)) (run "delete golded:catalogs/italiano all") ) (if (NOT (IN catalogs 5)) (run "delete golded:catalogs/nederlands all") ) (if (= update 0) ( (startup "GoldED" (prompt #add_ged_assign) (help #add_ged_assign_help) (command ("ASSIGN >NIL: GOLDED: %s " (tackon target "GoldED"))) ) )) ; choose manuals (if (exists "data/doc/French/manuel") (set manuals (askoptions (prompt #what_manuals) (help #what_manuals_help) (choices " English" " Deutsch" " Français" ) (default catalogs) )) (set manuals (askoptions (prompt #what_manuals) (help #what_manuals_help) (choices " English" " Deutsch" ) (default catalogs) )) ) (complete 45) ; install QuickStarter (set progname (askchoice (prompt #quickname) (help #quickname_help) (choices "GED" "ED" #other_name ) (default 1) )) (complete 50) (if (= progname 0) (set name "GED")) (if (= progname 1) (set name "ED" )) (if (= progname 2) (set name (askstring (prompt #enter_name) (help #enter_name_help) (default "ED") )) ) (complete 55) (set comdir (askdir (prompt #place_quick) (help #place_quick_help) (default "C:") )) (copyfiles (source "data/main/golded/ed") (dest comdir) (newname name) ) (run "resident >NIL: ED remove") (startup "GED_quick" (prompt #resident) (help #resident_help) (command (cat "resident " (tackon comdir name) " pure")) ) (complete 60) ; install config file ... (set language 255) ; already a language selected (while installing main editor) ? (if (= catalogs 1) (set language 0)) (if (= catalogs 2) (set language 1)) (if (= catalogs 4) (set language 2)) (if (= catalogs 8) (set language 3)) (if (= language 255) ( (set language (askchoice (prompt #what_menu) (help #what_menu_help) (choices "English" "Deutsch" "Français" "Svenska" "Italiano" ) (default 0) )) )) (if (= language 0) (set menufile "FactoryUS.men")) (if (= language 1) (set menufile "FactoryD.men" )) (if (= language 2) (set menufile "FactoryF.men" )) (if (= language 3) (set menufile "FactoryS.men" )) (if (= language 4) (set menufile "FactoryI.men" )) (if (= (database "vblank") 50) ( (set vblank 1) (set vblank 3) )) (complete 61) (set screen (askchoice (prompt #screen) (help #screen_help) (choices #screen_ntsc #screen_ntsc_i #screen_pal #screen_pal_i #screen_wb ) (default vblank) )) (complete 62) (if (= screen 4) (set display "workbench.dsp") ( (if (< (/ (getversion) 65536) 39) ( (set mode (askchoice (prompt #look_feel) (help #look_feel_help) (default 3) (choices #mode_blue #mode_tpp #mode_ocean #mode_stone #mode_leaf ) )) ) ( (set mode (askchoice (prompt #look_feel) (help #look_feel_help) (default 3) (choices #mode_blue #mode_tpp #mode_ocean #mode_stone #mode_leaf #mode_ced #mode_tennis #mode_desktop ) )) ) ) (if (= mode 0) (set display "Blue" )) (if (= mode 1) (set display "TPP" )) (if (= mode 2) (set display "Ocean" )) (if (= mode 3) (set display "FinalWriter" )) (if (= mode 4) (set display "Leaf" )) (if (= mode 5) (set display "CED" )) (if (= mode 6) (set display "Tennis" )) (if (= mode 7) (set display "Desktop" )) (if (or (= screen 0) (= screen 1)) (set display (cat display "_NTSC")) (set display (cat display "_PAL" )) ) (if (or (= screen 1) (= screen 3)) ( (set display (cat display "_LACE")) )) (set display (cat display ".dsp")) ) ) (complete 63) (set printer (askchoice (prompt #what_printer) (help #what_printer_help) (choices #printer_deskjet #printer_laser #printer_other ) (default 0) )) (if (= printer 2) (set prtfile "standard.prt" ) (set prtfile "DeskJetLQ.prt" ) ) (complete 64) (set proglang (askchoice (prompt #what_proglang) (help #what_proglang_help) (choices "C" "Pascal" "Basic" #what_proglang_other ) (default 0) )) (if (= proglang 0) ( (set indention "C.ind") (set dictionary "C.dic") ) ( (set indention "empty.ind") (set dictionary "empty.dic") ) ) (if (= proglang 1) (set indention "Pascal.ind")) (if (= proglang 2) (set indention "Basic.ind")) (copyfiles (source "data/config") (dest "golded:config") (all) (nogauge) ) ; create preferences file (run (cat "bin/makeprefs DIR=\"" (pathonly @icon) "\" FROM=data/presets " menufile " " "standard.key" " " display " " "standard.def" " " "standard.rat" " " "standard.tpl" " " "standard.gui" " " "standard.msc" " " "empty.ref" " " prtfile " " "standard.tab" " " dictionary " " indention " " "standard.lay" " " "empty.prj" " " "standard.hnt" " " "standard.api" " " "standard.syn" " " )) ; install 2nd set of icons (medRes, pixel ratio approx. 1:2) ? (if (= icons 0) (copyfiles (source "data/Icons/config") (dest "golded:config") (infos) (all) (nogauge) ) ) (complete 70) ; install font (has been revised, i.e. has to be installed in update mode, too) (copyfiles (source "data/fonts" ) (dest "fonts:") (all) (nogauge) ) (complete 75) ; install GoldED related tools (set drive "GoldED:Tools") (if (not (exists drive)) (makedir drive) ) ; install HiSpeed (working #install_hispeed) (if (not (exists (tackon drive "HiSpeed"))) (makedir (tackon drive "HiSpeed")) ) (set target (tackon drive "HiSpeed")) (if (not (exists target)) (makedir target) ) (makeassign "hispeed" target) (run "delete hispeed:~(arexx#?|HiSpeed#?|softfonts|templates|cover) ALL QUIET") (if (exists "HiSpeed:ARexx" (noreq)) ( (copyfiles (source "HiSpeed:ARexx") (dest "HiSpeed:ARexx/backup") (pattern "~(backup)") (nogauge) ) )) (set oldconfig "hispeed:config") (if (exists "envarc:hispeed") (set oldconfig "envarc:hispeed") ) (if (exists oldconfig) ( (copyfiles (source oldconfig) (dest "golded:obsolete/hispeed") (all) (nogauge) ) (run (cat "delete " oldconfig " all quiet")) )) (copyfiles (source "data/tools/HiSpeed") (dest "HISPEED:") (all) (infos) ) (copyfiles (source "data/tools/HiSpeed/HiSpeed") (dest "golded:") ) ; remove obsolete catalogs (if (NOT (IN catalogs 1)) (run "delete hispeed:catalogs/deutsch all") ) (if (NOT (IN catalogs 2)) (run "delete hispeed:catalogs/français all") ) (delete "HiSpeed:.info") ; create HiSpeed ARexx macro icons (if (= icons 0) (run "bin/moveicons QUIET DIR=hispeed:arexx ICON=data/icons/script/medres DX=90 DY=40 COLUMNS=5") (run "bin/moveicons QUIET DIR=hispeed:arexx ICON=data/icons/script/hires DX=95 DY=45 COLUMNS=5") ) (complete 85) (if (= update 0) ( ((startup "HISPEED" (prompt #hs_assign) (help #hs_assign_help) (command ("ASSIGN >NIL: HISPEED: %s " target)) )) ; remove obsolete files (delete "s:HiSpeed.config") (delete "golded:tools/HiSpeed/Setup" (infos)) (delete "golded:tools/HiSpeed/ARexxDoc" (infos)) (delete "golded:tools/HiSpeed/SetupE" (infos)) (delete "golded:tools/HiSpeed/ARexxEDoc" (infos)) (delete "golded:tools/hispeed/Anleitung" (infos)) (delete "golded:tools/hispeed/Manual" (infos)) (delete "golded:tools/hispeed/Manuel" (infos)) ; remove obsolete directories (run "delete envarc:hispeed env:HiSpeed all quiet") )) ; install HiSpeed keyfile ? (if (exists "golded:keyfile/keyfile") ( (if (not (exists "hispeed:keyfile")) (makedir "hispeed:keyfile") ) (copyfiles (source "golded:keyfile/keyfile") (dest "hispeed:keyfile") (nogauge) ) )) (complete 80) ; install other tools to GoldED's Tools drawer (copyfiles (source "data/tools") (dest "GoldED:Tools") (pattern "(CAT|SCANNER|SOURCE|MENU)#?") (infos) ) (complete 90) ; install manuals and history file (delete "golded:history") (if (in manuals 2) (copyfiles (source "data/doc/French" ) (all) (dest "GoldED:") (infos))) (if (in manuals 1) (copyfiles (source "data/doc/German" ) (all) (dest "GoldED:") (infos))) (if (in manuals 0) (copyfiles (source "data/doc/English") (all) (dest "GoldED:") (infos))) (if (not (exists "golded:history")) (delete "golded:history.info") ) ; get rid of .info file created by installer (delete "golded:.info") ; tools: install med-res icons ? (if (= icons 0) ( (copyfiles (source "data/icons/tools") (dest "GoldED:Tools") (all) (infos) (nogauge) ) )) ; arrange manual icons (run "bin/moveicons QUIET GAP FILES=Anleitung Manual Manuel DIR=GoldED:") (delete "golded:config.info") ; arrange icons within tool drawer (run "bin/moveicons DIR=golded:tools GRID DX=0 DY=27 COLUMNS=1") (complete 100) (if (= update 2) (exit (quiet)) (exit #complete) )