; $VER: GoldED 0.99 ; Copyright ©1994 Dietmar Eilert - All Rights Reserved (delopts "oknodelete" "force" "askuser") (complete 0) ; --- English (default) strings --- (set #introduction (cat "\n" "Programmer's Editor, All Rights Reserved. \n" " \n" "GoldED ©'94 Dietmar Eilert \n" "Reqtools ©'91-94 Nico François \n" "GUIMake ©'93 Rico Krasowski \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.OCHE.DE). The \n" " following information is required: error code \n" " (above), last error message, the percentage done\n" " (window title) and your log file. 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" )) (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 access ?\n") (set #must_remove "You should have this assign/reference removed !") (set #removed "; (removed)") (set #what_parts "\n What parts do you want to have installed ?\n") (set #what_parts_help (cat "\n" " You should decide for a complete installation if \n" " you are a novice user. Preferences files, manuals \n" " & libraries are essential for running the editor \n" " (e.g. the manual is referenced by GoldED's help \n" " facility). \n" " \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 running instance \n" " of GoldED (if there is any). Needless to say that \n" " this happens *very* fast. The QuickStarter may be \n" " made resident (the main editor may not). \n" " \n" " Backups of your presets (if available) are made, \n" " however your current configuration (if available) \n" " is OVERWRITTEN. I would suggest to split it into \n" " pieces (e.g. menu preset, display preset, ...) \n" " if you want to keep parts of it. \n" " \n" " Libraries are not overwritten unless they are out-\n" " dated (depends on version/revision number). \n" )) (set #parts_main " main editor & manual") (set #parts_quick " QuickStarter") (set #parts_libs " libraries") (set #parts_support " support tools") (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 #add_ged_assign "Add 'GoldED:' assign to 's:user-startup' ?\n") (set #add_ged_assign_help (cat "\n" " This editor does support user menus, i.e. you can \n" " set up own menu items of several types (scripts, \n" " ARexx macros, DOS commands, ...). Thus ususally \n" " external files have to be referenced. It is quite \n" " convenient - and strongly recommended - to place \n" " files related to GoldED in a symbolic directory \n" " GoldED: (or one of its subdirectories). If you \n" " don't set up an approbiate assign you will run \n" " into TROUBLE. Nevertheless, the main editor itself\n" " does not need any assign to run. Actually it does \n" " not need any external file at all apart from its \n" " config file (envarc:GOLDED/GOLDED.PREFS). \n" " \n" )) (set #quickname " Choose a name for the QuickStarter") (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 lost (well, let's call it a gain :-) \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 #creating_bak "creating backup of old presets ...") (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 #install_gui "\n Install GUIMake's menu (©'93 Rico Krasowski) ?") (set #install_gui_help (cat "\n" " GUIMake is a GUI driven compiler frontend for GoldED\n" " (to be used instead of makefiles). Supports project \n" " management and comfortable error handling (e.g. jump\n" " to first error after compilation). Included with \n" " kind permisssion of the author of GUIMake. \n" " \n" " Supported compiler(s) so far: unregistered DICE and \n" " registered DICE. \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. Be warned: There a many \n" " more modes available from within GoldED :-) \n" )) (set #mode_blue "Blue (2 colors, faaaast)") (set #mode_sun "Sun (4 colors, orange-grey)") (set #mode_tpp "TPP (4 colors, dark blue)") (set #mode_ocean "Ocean (4 colors, bright green)") (set #mode_stone "Stone (2 colors, grey, fast)") (set #mode_leaf "Leaf (4 colors, my favourite)") (set #mode_ced "CED-Blue (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 (cat "\n" " Couldn't create preferences file ?! Please check \n" " whether the standard JOIN command of the AmigaOS is \n" " available (c:join). \n" )) (set #bad_env "\n Warning - bad ENV: assign (pointing to ENVARC:)\n") (set #install_aguide "Installation of AmigaGuide-Library...") (set #install_reqtools "Installation of Reqtools-Library...") (set #install_xpk "Installation of XpkMaster-Library...") (set #second_disk (cat "\n" " Please insert part II of the GoldED distribution\n" " into disk drive df0: ... \n" )) (set #gui_assign "\n Add 'GUIMake:' assign to 's:user-startup' ?\n") (set #gui_assign_help (cat "\n" " A 'GUIMake:' assign is required if you want to use\n" " GUIMake (GUI driven compiler frontend). \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" "Have fun :-) \n" )) ; --- German strings --- (if (= @language "deutsch") ( (set #introduction (cat "\n" "Programmer's Editor, Alle Rechte vorbehalten. \n" " \n" "GoldED ©'94 Dietmar Eilert \n" "Reqtools ©'91-94 Nico François \n" "GUIMake ©'93 Rico Krasowski \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" " eine GED-Support-Stelle o. DIETMAR@TOMATE.OCHE.DE\n" " Die folgende Information wird benoetigt: Fehler- \n" " Code (s.o.), Fehler-Text, abgearbeiteter Prozent-\n" " satz (s. Fenstertitel) und die Log-Datei. Vielen \n" " Dank ! \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" )) (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 ?\n") (set #remove_gmk "GUIMake-Assign entfernen ?\n") (set #must_remove "Sie sollten den Assign/die Referenz entfernen lassen !") (set #removed "; (entfernt)") (set #what_parts "\n Welche Teile sollen installiert werden ?\n") (set #what_parts_help (cat "\n" " Sie sollten sich für eine komplette Installation \n" " entscheiden. Anleitungen, Libraries, etc. sind \n" " entscheidend für die Lauffähigkeit des Systems \n" " (die Anleitung wird beispielsweise von der Hilfe- \n" " Funktion benötigt). \n" " \n" " Der Schnellstarter ist ein kleiner Vorsatz (4 KB) \n" " für GED, der benutzt werden kann, als ob er selbst\n" " ein Editor wäre. Der große Vorteil des Schnell- \n" " starters ist, dass er Jobs an einen schon lau- \n" " fenden Editor weitergeben kann. Dies geschieht \n" " *extrem* schnell. Der Quickstarter kann resident \n" " gemacht werden (GoldED selbst nicht). \n" " \n" " Von Ihren bisherigen Presets - etwa Menus - werden\n" " Sicherheitskopien angelegt, von ihrer Gesamtkon- \n" " figuration NICHT (sie wäre mit der neuen Version \n" " auch nicht benutzbar). \n" " \n" " Libraries werden nicht überschrieben (sofern sie \n" " nicht überholt sind). \n" )) (set #parts_main " Editor & Anleitung") (set #parts_quick " Schnellstarter") (set #parts_libs " Libraries") (set #parts_support " begleitende Tools") (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 Sprachen 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 #add_ged_assign "'GoldED:'-Assign einrichten ?\n") (set #add_ged_assign_help (cat "\n" " GoldED untererstützt benutzerdefinierbare Menus. \n" " In der Regel müssen dabei einige Menueinträge auf \n" " externe Daten wie ARexx-Makros zugreifen. Es ist \n" " üblich, hierbei absolute symbolische Pfade zu ver-\n" " wenden; Standard für diesen Editor ist 'GOLDED:'. \n" " Wenn Sie diesen Assign nicht anbringen lassen, \n" " werden insbesondere unerfahrene Anwender und An- \n" " wenderinnen PROBLEME bekommen. \n" " \n" " Prinzipiell kann aber auf diesen Assign verzichtet\n" " werden, da von GED selbst nur eine einzige externe\n" " Datei benötigt wird (envarc:GoldED/GoldED.prefs). \n" )) (set #quickname " Namen für Schnellstarter wählen") (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 #creating_bak "Sicherheitskopien der Einstellungen 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 \n" " die Locale-Library um seine Requester an die system-\n" " weit eingestellte Sprache anzupassen. Da Menus aber \n" " nicht Bestandteil von GoldED selbst sind, können sie\n" " nicht automatisch lokalisiert werden. Statt dessen \n" " ist dem Programm mitzuteilen, welche Menudefinition \n" " verwendet werden soll. Menudefinitionen stehen in \n" " Form von Dateien z.Zt. in Deutsch und Englisch zur \n" " Verfügung. Sie sind später auch jederzeit aus dem \n" " Editor heraus nachladbar. \n" )) (set #install_gui "\n GUIMake einbinden (©'93 Rico Krasowski) ?") (set #install_gui_help (cat "\n" " GUIMake ist ein Make-Tool mit grafischer Oberfläche \n" " und direkter Anbindung an GED (beim Programmieren \n" " als Ersatz für Makefiles zu verwenden). Unterstützt \n" " Projekt-Management und komfortables Fehler-Handling \n" " (Sprung zur fehlerhaften Zeile nach dem Übersetzen).\n" " Mit freundlicher Genehmigung des Autors von GUIMake \n" " (Rico Kraswoski). \n" " \n" " Unterstützte Compiler zur Zeit: unregistrierter und \n" " registrierter DICE. \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. Seien Sie ge- \n" " warnt: innerhalb von GoldED stehen Ihnen noch\n" " wesentlich mehr Modi zur Vefügung :-) \n" )) (set #mode_blue "Blue (2 Farben, schnellll)") (set #mode_sun "Sun (4 Farben, orange-grau)") (set #mode_tpp "TPP (4 Farben, dunkelblau)") (set #mode_ocean "Ocean (4 Farben, helles Grün)") (set #mode_stone "Stone (2 Farben, grau, schnell)") (set #mode_leaf "Leaf (4 Farben, mein Favorit)") (set #mode_ced "CED-Blue (4 Farben, helles Grün)") (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 (cat "\n" " Konfigurationsdatei konnte nicht erzeugt werden ?! \n" " Bitte überprüfen Sie, ob der originale JOIN-Befehl \n" " des Amiga-OS (c:join) vorhanden ist. \n" )) (set #bad_env "\n Warnung - falscher ENV:-Assign (zeigt auf ENVARC:)") (set #install_aguide "Installation der AmigaGuide-Library...") (set #install_reqtools "Installation der Reqtools-Library...") (set #install_xpk "Installation der XpkMaster-Library...") (set #second_disk (cat "\n" " Bitte legen Sie Teil II des GoldED-Paketes in\n" " das Laufwerk df0: ein ... \n" )) (set #gui_assign "\n 'GUIMake:'-Assign einrichten ?\n") (set #gui_assign_help (cat "\n" " Dieser Assign wird benötigt, wenn Sie GUIMake be-\n" " nutzen möchten (ein Make-Programm mit grafischer \n" " Benutzeroberfläche). \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. Have fun :-) \n" )) )) (message #introduction) (welcome) (set @default-dest "") ; set default language selection (catalogs) to 'none' (set catalogs 0) ; sure we are running under a 2.04 ROM ? (if (< (/ (getversion) 65536) 37) ( (message #badkick) (exit (quiet)) ) ) (if (not (exists "prefs:" (noreq))) (makeassign "prefs" "sys:prefs")) (onerror ( (if (> @ioerr 0) (message (cat "\n ERROR CODE: " @ioerr "\n\n" #error)) ) )) (welcome) (if (exists "GoldED:" (noreq)) (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:catalogs/deutsch/GoldED.catalog" (noreq)) (delete "locale:catalogs/deutsch/GoldED.catalog") ) (if (exists "locale:catalogs/deutsch/SpellIT.catalog" (noreq)) (delete "locale:catalogs/deutsch/SpellIT.catalog") ) (if (exists "locale:catalogs/deutsch/HiSpeed.catalog" (noreq)) (delete "locale:catalogs/deutsch/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: 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) )) ) ) (exit (quiet)) )) ; what parts should be installed ? (if (= update 0) (set parts (askoptions (prompt #what_parts) (help #what_parts_help) (choices #parts_main #parts_quick #parts_libs #parts_support ) (default 255) )) (set parts 255) ) (complete 1) (if (OR (IN parts 0) (IN parts 3)) (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 editor itself ? (if (IN parts 0) ( (set reboot 1) (if (= update 1) (set target "golded:/") ((set target (askdir (prompt #where) (help #where_help) (default "SYS:TOOLS") )) )) (set @default-dest target) ; 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) ) (makeassign "GoldED" (tackon target "GoldED")) ; install keyfile ? (if (not (exists ("envarc:GoldED"))) (makedir "envarc:GoldED")) (if (exists "/keyfile/keyfile") (copyfiles (source "/keyfile/keyfile") (dest "envarc:golded") ) (if (not (exists "envarc:golded/keyfile")) (copylib (prompt #gold_lib) (help #gold_lib_help) (source "data/libs/golded.library") (dest "libs:") (confirm) ) ) ) ; install new drawer icon ? (if (not (exists (tackon target "GoldED.info"))) (copyfiles (source "data/icons/drawer/GoldED.info") (dest target) (infos) ) ) (complete 15) (if (= icons 0) (copyfiles (source "data/Icons/GoldED") (dest (tackon target "GoldED")) (all) (infos) ) ) (makeassign "GoldED" (tackon target "GoldED")) ; decrunch manual (self-extracting) (run "data/doc/Manual.run GoldED:") ; remove obsolete files (delete "GoldED:GoldED.guide" (infos)) (delete "GoldED:Hi!" (infos)) (delete "GoldED:Tools/Unlock.info" (infos)) (delete "GoldED:rx") (run "delete >NIL: GoldED:Tools/Unlock all") ; dechrunch SpellIT (self-extracting) (run "data/API/SpellIT.run GoldED:API/") (complete 20) (if (= update 1) ( (set catalogs 3) (if (exists "locale:catalogs/deutsch/golded.catalog" (noreq)) ( (set catalogs 2) (delete "locale:catalogs/deutsch/golded.catalog") (delete "locale:catalogs/deutsch/SpellIT.catalog") ) ) ) ((set catalogs (askoptions (prompt #what_catalog) (help #what_catalog_help) (choices " English" " German " ) (default 3) )) )) (if (not (exists "locale:" (noreq))) ( (makedir "sys:locale") (makeassign "locale" "sys:locale") )) (if (not (exists "locale:catalogs"))) (makedir "locale:catalogs") (if (IN catalogs 1) ( (if (not (exists "locale:catalogs/deutsch"))) (makedir "locale:catalogs/deutsch") (copyfiles (source "data/catalogs/deutsch") (dest "locale:catalogs/deutsch") (all) ) )) (if (= update 0) ( (makeassign "GoldED" (tackon target "GoldED")) (startup "GoldED" (prompt #add_ged_assign) (help #add_ged_assign_help) (command ("ASSIGN >NIL: GOLDED: %s " (tackon target "GoldED"))) ) ) ) )) (complete 25) ; install QuickStarter ? (if (IN parts 1) ( (set progname (askchoice (prompt #quickname) (help #quickname_help) (choices "GED" "ED" "(other)" ) (default 1) )) (complete 30) (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 35) (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 40) ; install presets ... (if (IN parts 0) ( (set prefsdir "prefs:presets/GoldED") (if (exists prefsdir) ( (set bakdir "prefs:presets/GED_BAK") (if (exists bakdir) ( (while (exists bakdir) ( (set bakdir (cat bakdir "X")) )) )) (complete 45) (working #creating_bak) (complete 50) (copyfiles (source prefsdir) (dest bakdir) (nogauge) (all) ) (message (cat #bak_done bakdir)) (run (cat "delete " prefsdir " all quiet")) )) (complete 55) (copyfiles (source "data/presets") (dest "prefs:presets") (all) ) (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 (= language 255) ( (set language (askchoice (prompt #what_menu) (help #what_menu_help) (choices "English" "Deutsch" ) (default 0) )) )) (set guimake (askbool (prompt #install_gui) (help #install_gui_help) (default 1) )) (if (= guimake 1) ((if (= language 0) (set menufile "GUI_FactoryUS.men") (set menufile "GUI_FactoryD.men" ) )) ((if (= language 0) (set menufile "FactoryUS.men") (set menufile "FactoryD.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) (choices #mode_blue #mode_sun #mode_tpp #mode_ocean #mode_stone #mode_leaf ) )) ) ( (set mode (askchoice (prompt #look_feel) (help #look_feel_help) (choices #mode_blue #mode_sun #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 "Sun" )) (if (= mode 2) (set display "TPP" )) (if (= mode 3) (set display "Ocean" )) (if (= mode 4) (set display "Stone" )) (if (= mode 5) (set display "Leaf" )) (if (= mode 6) (set display "CED" )) (if (= mode 7) (set display "Tennis")) (if (= mode 8) (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")) (if (not (exists ("envarc:GoldED"))) (makedir "envarc:GoldED")) (if (exists "envarc:GoldED/GoldED.prefs" (noreq)) ( (run (cat "SplitConfig envarc:GoldED/GoldED.prefs " prefsdir " YourOldConfig")) (delete "envarc:GoldED/GoldED.prefs") ) ) (copyfiles (source "data/envarc") (dest "envarc:") (infos) (all) ) (set prefs " data/presets/GoldED/") ; create main preferences file by joining preset files (order is important) (run (cat "JOIN " (cat prefs "standard.msc") (cat prefs "standard.key") (cat prefs "empty.ref" ) (cat prefs display ) (cat prefs "standard.def") (cat prefs prtfile ) (cat prefs "standard.tab") " AS T:GED.prefs" )) (run (cat "JOIN T:GED.prefs " (cat prefs menufile ) (cat prefs dictionary ) (cat prefs indention ) (cat prefs "standard.lay") (cat prefs "empty.prj" ) (cat prefs "standard.hnt") (cat prefs "standard.gui") (cat prefs "standard.api") " AS envarc:GoldED/GoldED.prefs" )) (if (not (exists "envarc:GoldED/GoldED.prefs")) (message #no_prefs) ) (if (= (expandpath "env:") (expandpath "envarc:")) (message #bad_env) (copyfiles (source "envarc:GoldED") (dest "env:GoldED") (all) (infos) ) ) ; install 2nd set of icons (pixel ratio approx. 1:2) ? (if (= icons 0) (copyfiles (source "data/Icons/Envarc") (dest "envarc:") (infos) (all) ) ) )) (complete 65) (if (= update 0) ( ; install libraries ? (if (IN parts 2) ( (if (exists "support/amigaguide") (copylib (prompt #install_aguide) (help @copylib-help) (source "support/amigaguide/amigaguide.library") (dest "libs:") (confirm) ) ) (if (exists "support/reqtools") ( (copylib (prompt #install_reqtools) (help @copylib-help) (source "support/reqtools/reqtools.library") (dest "libs:") (confirm) ) (if (not (exists "envarc:ReqTools.prefs")) ( (copyfiles (source "support/reqtools/ReqTools.prefs") (dest "envarc:")) )) )) (if (exists "support/xpk") ( (copylib (prompt #install_xpk) (help @copylib-help) (dest "libs:") (source "support/xpk/xpkmaster.library") (confirm) ) (if (not (exists "libs:compressors")) (copyfiles (source "support/xpk/compressors") (dest "libs:compressors") (all) ) ) )) )) (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) ; process second disk ... (if (exists "/GoldED2") (set from "/GoldED2/") ( ; is this a Fish disk (i.e. name of 2nd disk unknown) ? (if (= @app-name "GoldED/FF") ( (while (not (exists "df0:GoldED2.info")) (message #second_disk) ) (makeassign "GOLDED2" "df0:") )) (set from "GoldED2:GoldEd2/" ) ) ) ; install main editor (2nd part) ? (if (IN parts 0) ( ; copy hires icons ? (if (= icons 1) (copyfiles (source (cat from "data/main")) (dest target) (all) ) ) ; decrunch manual (self-extracting) (run (cat from "data/doc/Anleitung.run GoldED:")) )) ; install tools ? (if (IN parts 3) ( (set drive "GoldED:Tools") (if (not (exists drive)) (makedir drive)) ; explicitely makedir drawers containing nested subdrawers (former installer versions seem to have a problem here ?!) (if (not (exists (tackon drive "HiSpeed"))) (makedir (tackon drive "HiSpeed"))) (if (not (exists (tackon drive "GUIMake"))) (makedir (tackon drive "GUIMake"))) (complete 80) ; get rid of blank within destination path name ("Ram disk:") ... (if (= "RAM" (getdevice drive)) (set drive "RAM:")) ; install catalogs (if (not (exists "locale:" (noreq))) ( (makedir "sys:locale") (makeassign "locale" "sys:locale") )) (copyfiles (source (tackon from "tools/locale")) (dest "locale:") (all) ) (if (exists "GUIMake:" (noreq)) (set guimake 1)) (if (= guimake 1) ( (set target (tackon drive "GUIMake")) ((startup "GUIMake" (prompt #gui_assign) (help #gui_assign_help) (command ("ASSIGN >NIL: GUIMake: %s " target)) )) )) (set target (tackon drive "HiSpeed")) (if (not (exists target)) (makedir target)) (makeassign "HISPEED" target) (run "delete HISPEED:#? ALL QUIET") (copyfiles (source (tackon from "tools/HiSpeed")) (dest "HISPEED:") (all) (infos) ) (copyfiles (source (tackon from "tools/HiSpeed.info")) (infos) (dest drive)) (complete 85) (if (= update 0) ( ((startup "HISPEED" (prompt #hs_assign) (help #hs_assign_help) (command ("ASSIGN >NIL: HISPEED: %s " target)) )) ; remove obsolete files (delete "envarc:hispeed.config") (delete "s:HiSpeed.config") (delete (tackon from "tools/HiSpeed/Setup" ) (infos)) (delete (tackon from "tools/HiSpeed/ARexxDoc" ) (infos)) (delete (tackon from "tools/HiSpeed/SetupE" ) (infos)) (delete (tackon from "tools/HiSpeed/ARexxEDoc") (infos)) )) (if (exists "envarc:HiSpeed") ( (copyfiles (source "envarc:HiSpeed/HiSpeed.prefs") (newname "HiSpeed.prefs.bak") (dest "envarc:HiSpeed") ) (delete "envarc:HiSpeed/HiSpeed.prefs") ) (makedir "envarc:HiSpeed") ) (copyfiles (source (tackon from "tools/envarc")) (dest "envarc:") (infos) (all) ) ; install keyfile ? (if (exists "envarc:golded/keyfile") (copyfiles (source "envarc:golded/keyfile") (dest "envarc:hispeed") ) ) (if (<> (expandpath "env:") (expandpath "envarc:")) (copyfiles (source "envarc:HiSpeed") (dest "env:HiSpeed") (all) (infos) ) ) (complete 90) (copyfiles (source (tackon from "tools")) (dest "GoldED:Tools") (pattern "(ED|PRJ|REC|GUI|GED|API|CAT)#?") (infos) ) ; delete obsolete files (run "delete GoldED:Tools/GEDDock#? all quiet") (makeassign "GUIMake" "GoldED:tools/guimake") (copyfiles (source (tackon from "tools/GUIMake/s/GUIMake.pref")) (dest "s:") ) ; tools: install med-res icons ? (if (AND (IN parts 3) (= icons 0)) ( (copyfiles (source (tackon from "data/icons/tools")) (dest "GoldED:Tools") (all) (infos) ) )) (complete 95) )) ; delete temporary files (if (not (= update 2)) (message #complete)) (complete 100)