home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / GED410.LHA / ged410 / Install < prev    next >
Encoding:
Text File  |  1996-08-22  |  68.8 KB  |  1,984 lines
  1. ; $VER: GoldED Install 4, Copyright ⌐1996 Dietmar Eilert
  2.  
  3. (delopts "oknodelete" "force" "askuser")
  4.  
  5. ; ------------------------------- Set run mode ---------------------------------
  6.  
  7. ; disable script debug mode
  8.  
  9. (set golded_install_debug 0)
  10.  
  11. ; ------------------------------ English strings -------------------------------
  12.  
  13. (if (not (= @language "deutsch"))
  14.  
  15.     (
  16.         (set #golded_introduction (cat "\n"
  17.  
  18.             "GoldED 4 ╖ Programmer's Editor                    \n"
  19.             "⌐1996 Dietmar Eilert                              \n"
  20.             "All Rights Reserved.                              \n"
  21.             "                                                  \n"
  22.             "GoldED is not freely distributable. Please read   \n"
  23.             "the licence file before you install the software. \n"
  24.             "Information on installing GoldED 4 over GoldED 3  \n"
  25.             "can be found in the readme file.                  \n"
  26.             "                                                  \n"
  27.             "This script supports uninstallation.              \n"
  28.         ))
  29.  
  30.         (set #golded_badkick "\n Sorry, this package requires OS v2.04 or better.\n")
  31.  
  32.         (set #golded_warn_userstartup "\nWARNING: S:USER-STARTUP MISSING")
  33.  
  34.         (set #golded_error (cat
  35.  
  36.             " Some error has occurred. Please inform a GoldED  \n"
  37.             " support site (e.g. dietmar@tomate.tng.oche.de)   \n"
  38.             " AFTER having tried a different Installer release:\n"
  39.             " 1.24 is known to work fine.                      \n"
  40.             "                                                  \n"
  41.             " The following information is required: error code\n"
  42.             " (above), last error message, the percentage done \n"
  43.             " (window title) and your log file. If available:  \n"
  44.             " a SnoopDos report. Thank you !                   \n"
  45.         ))
  46.  
  47.         (set #golded_assign_found "\nGOLDED installation detected ...\n")
  48.  
  49.         (set #golded_assign_found_help (cat "\n"
  50.  
  51.             " INSTALL NEW:                                     \n"
  52.             "                                                  \n"
  53.             " Install to a directory of your choice. Old GoldED\n"
  54.             " installations are NOT removed if you install to a\n"
  55.             " new directory. Your old files are overwritten if \n"
  56.             " you install over an existing GoldED installation \n"
  57.             " (backups are made if requested).                 \n"
  58.             "                                                  \n"
  59.             " UPDATE EXISTING GOLDED:                          \n"
  60.             "                                                  \n"
  61.             " You won't be asked for directories: Directories  \n"
  62.             " of your previous installation are used. Existing \n"
  63.             " files are overwritten (backups are made if       \n"
  64.             " requested).                                      \n"
  65.             "                                                  \n"
  66.             " REMOVE GOLDED:                                   \n"
  67.             "                                                  \n"
  68.             " All files and drawers created by a former GoldED \n"
  69.             " installation are removed. Your own files are     \n"
  70.             " removed, too, if placed in one of GoldED's       \n"
  71.             " drawers.                                         \n"
  72.         ))
  73.  
  74.         (set #golded_new         "Install new")
  75.         (set #golded_update      "Update existing GoldED")
  76.         (set #golded_remove      "Remove GoldED from your system")
  77.  
  78.         (set #golded_ask_amount "\nPlease choose installation mode:\n")
  79.  
  80.         (set #golded_ask_amount_help (cat "\n"
  81.  
  82.             " This decision affects the amount of data  written\n"
  83.             " to your disk.                                    \n"
  84.         ))
  85.  
  86.         (set #golded_ask_amount_standard "Complete installation (2 MB)")
  87.         (set #golded_ask_amount_user     "User defined installation")
  88.         (set #golded_ask_amount_minimum  "Minimum installation (575 K)")
  89.  
  90.         (set #golded_remove_ged  "\nRemove GoldED assign ?\n")
  91.         (set #golded_remove_hs   "\nRemove HiSpeed assign ?\n")
  92.         (set #golded_remove_ed   "\nRemove quickstarter access ?\n")
  93.         (set #golded_remove_gmk  "\nRemove GUIMake assign ?\n")
  94.  
  95.         (set #golded_must_remove "You should have this assign/reference removed !")
  96.  
  97.         (set #golded_removed "; (removed)")
  98.  
  99.         (set #golded_lharc     "\nExtracting data (could take a few minutes)")
  100.         (set #golded_lharcfail "\nCouldn't extract files - check free disk space")
  101.  
  102.         (set #golded_installing_files "\nInstalling files ...")
  103.         (set #golded_prepare_install  "\nPreparing installation ...")
  104.  
  105.         (set #golded_backup_mode "\nChoose a backup strategy for your old GoldED installation.\n")
  106.  
  107.         (set #golded_backup_mode_help (cat "\n"
  108.  
  109.             " Determines how old files are handled before they \n"
  110.             " are overwritten by new files or before they are  \n"
  111.             " deleted (if considered obsolete).                \n"
  112.         ))
  113.  
  114.         (set #golded_backup_mode_none     "No backups, please")
  115.         (set #golded_backup_mode_selected "Backup presets & macros")
  116.         (set #golded_backup_mode_all      "Backup all files")
  117.  
  118.         (set #golded_pref_icons "\nSelect preferred icon type:\n")
  119.  
  120.         (set #golded_medres " med-res icons (pixel ratio 1:2)")
  121.         (set #golded_hires  " hi-res  icons (pixel ratio 1:1)")
  122.  
  123.         (set #golded_pref_icons_help (cat "\n"
  124.  
  125.             " Select med-res if the pixel ratio of your        \n"
  126.             " preferred screen resolution is approx. 1:2 (e.g. \n"
  127.             " in 640*200 mode the pixel width is half of pixel \n"
  128.             " height).                                         \n"
  129.             "                                                  \n"
  130.             " Select HiRes if the pixel ratio of your preferred\n"
  131.             " resolution is approx. 1:1 (eg. 640*400).         \n"
  132.         ))
  133.  
  134.         (set #golded_where (cat
  135.  
  136.             "Select path for installation. The drawer 'GoldED' \n"
  137.             "is created within the directory you select:       \n"
  138.         ))
  139.  
  140.         (set #golded_where_help (cat "\n"
  141.  
  142.             " Simply select a directory (a root directory is   \n"
  143.             " fine, too). I'm going to create a new directory  \n"
  144.             " called 'GoldED' within the directory you specify.\n"
  145.             " You should select a directory which has an icon  \n"
  146.             " attached to it (e.g. SYS:Utilities).             \n"
  147.             "                                                  \n"
  148.             " The GoldED directory will keep several support   \n"
  149.             " files/tools as well as the main editor.          \n"
  150.         ))
  151.  
  152.         (set #golded_bad_path "Sorry, can't install to RAM disk")
  153.  
  154.         (set #golded_drive_space (cat "\n"
  155.  
  156.             " This installation requires at least 5 MB free    \n"
  157.             " disk space. Please make this space available     \n"
  158.             " and start again.                                 \n"
  159.         ))
  160.  
  161.         (set #golded_gold_lib "Installation of GoldED.library ...")
  162.  
  163.         (set #golded_gold_lib_help (cat "\n"
  164.  
  165.             "This library is required by the demo version only.\n"
  166.             "Registered users recieve a keyfile instead.       \n"
  167.         ))
  168.  
  169.         (set #golded_select_optional (cat "\n"
  170.  
  171.             "Choose the GoldED components you would like to    \n"
  172.             "have installed. Already-installed components are  \n"
  173.             "removed if unchecked.                             \n"
  174.         ))
  175.  
  176.         (set #golded_select_optional_help (cat "\n"
  177.  
  178.             " You shouldn't disable any of these components:   \n"
  179.             "                                                  \n"
  180.             " SYNTAX PARSERS (80 K)                            \n"
  181.             "                                                  \n"
  182.             " A selection of syntax parsers (responsible for   \n"
  183.             " color-coded text (e-mail, source codes, ...)     \n"
  184.             "                                                  \n"
  185.             " HISPEED (300 K)                                  \n"
  186.             "                                                  \n"
  187.             " Printing utility for Laser printers, DeskJet     \n"
  188.             " printers and other PCL printers.                 \n"
  189.             "                                                  \n"
  190.             " You may disable any of these components without  \n"
  191.             " affecting the performance of GoldED:             \n"
  192.             "                                                  \n"
  193.             " APPICON STARTER (6 K)                            \n"
  194.             "                                                  \n"
  195.             " Adds a drag & drop icon to your workbench. Files \n"
  196.             " dropped over the icon are sent to GoldED.        \n"
  197.             "                                                  \n"
  198.             " RECOVER TOOL (6 K)                               \n"
  199.             "                                                  \n"
  200.             " Helps you to restore a text lost due to a system \n"
  201.             " crash.                                           \n"
  202.             "                                                  \n"
  203.             " ORDER TOOL (19 K)                                \n"
  204.             "                                                  \n"
  205.             " Program to print a GoldED order form.            \n"
  206.             "                                                  \n"
  207.             " API CLIENTS (16 K)                               \n"
  208.             "                                                  \n"
  209.             " Applets for GoldED (examples)                    \n"
  210.             "                                                  \n"
  211.             " DEVELOPER (400 K)                                \n"
  212.             "                                                  \n"
  213.             " Developer material (sourcecodes, syntax scanner  \n"
  214.             " examples, QuickStarter, ...).                    \n"
  215.             "                                                  \n"
  216.             " MANUAL (290 - 350 K)                             \n"
  217.             "                                                  \n"
  218.             " GoldED manual (several languages). AmigaGuide    \n"
  219.             " format. Menu help is not available if you don't  \n"
  220.             " install a manual written in the same language    \n"
  221.             " you have choosen for GoldED.                     \n"
  222.             "                                                  \n"
  223.             " QUICKSTARTER (5 K)                               \n"
  224.             "                                                  \n"
  225.             " Fast GoldED frontend: to be used as resident     \n"
  226.             " GoldED activator.                                \n"
  227.             "                                                  \n"
  228.             " UNLOCK (1 K)                                     \n"
  229.             "                                                  \n"
  230.             " Utility to unlock GoldED's user interface if a   \n"
  231.             " faulty macro quits without unlocking GoldED.     \n"
  232.             "                                                  \n"
  233.             " ADDITIONAL TOOLBAR ICONS (20 K)                  \n"
  234.             "                                                  \n"
  235.             " Optional toolbar icons.                          \n"
  236.  
  237.         ))
  238.  
  239.         (set #golded_select_presets       "Presets"         )
  240.         (set #golded_select_parsers       "Syntax parsers"  )
  241.         (set #golded_select_hispeed       "HiSpeed"         )
  242.         (set #golded_select_appicon       "AppIcon starter" )
  243.         (set #golded_select_recover       "Recover utility" )
  244.         (set #golded_select_order         "Order program"   )
  245.         (set #golded_select_api           "API clients"     )
  246.         (set #golded_select_sources       "Sourcecodes"     )
  247.         (set #golded_select_manual_e      "Manual (English)")
  248.         (set #golded_select_manual_d      "Manual (German)" )
  249.         (set #golded_select_quickstarter  "QickStarter"     )
  250.         (set #golded_select_unlock        "UnLock utility"  )
  251.         (set #golded_select_icons         "Additional icons")
  252.  
  253.         (set #golded_update_keyfile (cat "\n"
  254.  
  255.             "You already own a GoldED keyfile. Overwrite old   \n"
  256.             "keyfile with new keyfile ?                        \n"
  257.         ))
  258.  
  259.         (set #golded_update_keyfile_help (cat "\n"
  260.  
  261.             " DON'T let this install script overwrite your     \n"
  262.             " old keyfile unless you know what you do. One     \n"
  263.             " valid reason would be that you have purchased    \n"
  264.             " GoldED and know want to have a pirated keyfile   \n"
  265.             " removed.                                         \n"
  266.         ))
  267.  
  268.         (set #golded_update_keyfile_overwrite "Overwrite old keyfile")
  269.         (set #golded_update_keyfile_keep "Keep old keyfile")
  270.  
  271.         (set #golded_updating_icons "\nUpdating icons ...")
  272.  
  273.         (set #golded_what_manuals "\nWhat manuals do you want to have installed ?\n")
  274.  
  275.         (set #golded_what_manuals_help (cat "\n"
  276.  
  277.             " Each manual (ie. AmigaGuide file) consumes about \n"
  278.             " 300K disk space.                                 \n"
  279.         ))
  280.  
  281.         (set #golded_add_ged_assign "Add GoldED assign to user-startup ?\n")
  282.  
  283.         (set #golded_add_ged_assign_help (cat "\n"
  284.  
  285.             " GoldED needs this assign to find its files       \n"
  286.             " (libraries, presets, macros).                    \n"
  287.         ))
  288.  
  289.         (set #golded_quickname " Choose a name for the QuickStarter:")
  290.  
  291.         (set #golded_quickname_help (cat "\n"
  292.  
  293.             " The QuickStarter is a small (5 KB) GoldED front- \n"
  294.             " end. You can use it as if it were a real editor. \n"
  295.             " For example you might type 'ed letter' to edit   \n"
  296.             " the file 'letter' if the QuickStarter were named \n"
  297.             " 'ed'. The big advantage of a QuickStarter is its \n"
  298.             " ability to pass a new job to an already runnning \n"
  299.             " instance of GoldED. Additionally, it helps you to\n"
  300.             " start GoldED from any directory or to detach     \n"
  301.             " GoldED from a shell without having to use the RUN\n"
  302.             " command.                                         \n"
  303.             "                                                  \n"
  304.             " The default name is 'ED'. Feel free to choose any\n"
  305.             " name you like. Personally, I prefer to use 'ED'  \n"
  306.             " (replacing the original ED).                     \n"
  307.         ))
  308.  
  309.         (set #golded_place_quick (cat "\n"
  310.  
  311.             " Select a directory for the QuickStarter (you     \n"
  312.             " should select a valid command directory):        \n"
  313.         ))
  314.  
  315.         (set #golded_place_quick_help (cat "\n"
  316.  
  317.             " You should select one of these directories if you\n"
  318.             " want to run the editor simply by typing its name,\n"
  319.             " no matter what your current path is:             \n"
  320.             "                                                  \n"
  321.             " SYS:C, SYS:TOOLS, SYS:UTILITIES or SYS:SYSTEM    \n"
  322.             "                                                  \n"
  323.             " If you choose ED as default name, you must either\n"
  324.             " place the quick starter into c: or delete the old\n"
  325.             " ED from c: to prevent unpredictable behaviour.   \n"
  326.         ))
  327.  
  328.         (set #golded_quick_resident "\n Make QuickStarter resident ?\n")
  329.  
  330.         (set #golded_quick_resident_help (cat "\n"
  331.  
  332.             " I would suggest to make the QuickStarter (5 KB)  \n"
  333.             " resident - it will work faster.                  \n"
  334.         ))
  335.  
  336.         (set #golded_saving_files "\nCreating backups (golded:obsolete)")
  337.  
  338.         (set #golded_what_menu "\n Choose default menu definition file:\n")
  339.  
  340.         (set #golded_what_menu_help (cat "\n"
  341.  
  342.             " GoldED is localized and uses the locale library  \n"
  343.             " of OS 3 to display requester text in the language\n"
  344.             " choosen by the user. Menus are not part of the   \n"
  345.             " editor and not localized. However, the user may  \n"
  346.             " choose from different menu translations shipped  \n"
  347.             " with GoldED.                                     \n"
  348.         ))
  349.  
  350.         (set #golded_screen "\n Choose default screen resolution \n")
  351.  
  352.         (set #golded_screen_help (cat "\n"
  353.  
  354.             " Decide for a default screen mode to be used when \n"
  355.             " the editor is started for the first time. We     \n"
  356.             " suggest to use a custom screen to make GoldED run\n"
  357.             " faster and look better.                          \n"
  358.         ))
  359.  
  360.         (set #golded_screen_wb     "Workbench screen")
  361.         (set #golded_screen_ntsc_i "NTSC interlaced (640*400)")
  362.         (set #golded_screen_pal_i  "PAL  interlaced (640*512)")
  363.  
  364.         (set #golded_look_feel "\nLook & feel\n")
  365.  
  366.         (set #golded_look_feel_help (cat "\n"
  367.  
  368.             " Suggestion: use a two-colors mode if your Amiga  \n"
  369.             " is slow (68000), a four colors mode for 68020 and\n"
  370.             " 68030 models (e.g. A1200) and more colors if you \n"
  371.             " own a fast Amiga (68040/68060).                  \n"
  372.         ))
  373.  
  374.         (set #golded_mode_blue    "Blue    (2 colors)")
  375.         (set #golded_mode_stone   "Modern  (4 colors)")
  376.         (set #golded_mode_desktop "Desktop (8 colors)")
  377.  
  378.         (set #golded_what_proglang "\n Select preferred programming language:\n")
  379.  
  380.         (set #golded_what_proglang_other "other")
  381.         (set #golded_what_proglang_none  "none" )
  382.  
  383.         (set #golded_what_proglang_help (cat "\n"
  384.  
  385.             " This setting affects installation of additional  \n"
  386.             " language-related features (e.g. syntax parsers). \n"
  387.             " All files are installed but only support for the \n"
  388.             " language you choose know is made part of your    \n"
  389.             " default configuration.                           \n"
  390.         ))
  391.  
  392.         (set #golded_install_reqtools "Install Reqtools library ?")
  393.  
  394.         (set #golded_install_reqtools_help (cat "\n"
  395.  
  396.             " Reqtools ⌐1991-1996 Nico Franτois. GoldED will   \n"
  397.             " not start if the Reqtools requester library is   \n"
  398.             " missing.                                         \n"
  399.         ))
  400.  
  401.         (set #golded_install_presets "Installation of presets...")
  402.  
  403.         (set #golded_hs_assign "\n Add HiSpeed assign to user-startup ?\n")
  404.  
  405.         (set #golded_hs_assign_help (cat "\n"
  406.  
  407.             " A HISPEED: assign is required if you want to run \n"
  408.             " HiSpeed without having to worry about the current\n"
  409.             " path (GoldED won't find HiSpeed if the assign is \n"
  410.             " missing). HiSpeed is a PCL printing program for  \n"
  411.             " Laser/DeskJet printers.                          \n"
  412.         ))
  413.  
  414.         (set #golded_removing_temp_files "\nRemoving temporary files ...")
  415.  
  416.         (set #golded_complete "\nInstallation complete.")
  417.  
  418.         (set #install_presets "\nInstall standard presets ?\n")
  419.  
  420.         (set #install_presets_help (cat "\n"
  421.  
  422.             " Standard configurations for menus, keyboard, etc.\n"
  423.             " are shipped with GoldED. These configurations are\n"
  424.             " not required if you update your existing GoldED  \n"
  425.             " installation - you may continue using your old   \n"
  426.             " configuration. However, you will not benefit from\n"
  427.             " updated material (e.g new menu translations) if  \n"
  428.             " you skip installation of standard presets.       \n"
  429.             "                                                  \n"
  430.             " We suggest that you do not name your own presets \n"
  431.             " standard.* so that standard presets can be       \n"
  432.             " reinstalled safely every time you update GoldED. \n"
  433.         ))
  434.  
  435.         (set #install_presets_install "Install standard presets")
  436.         (set #install_presets_keep    "Use installed presets")
  437.     )
  438. )
  439.  
  440. ; -------------------------------- German strings ------------------------------
  441.  
  442. (if (= @language "deutsch")
  443.  
  444.     (
  445.         (set #golded_introduction (cat "\n"
  446.  
  447.             "GoldED 4 ╖ Programmer's Editor                    \n"
  448.             "⌐1996 Dietmar Eilert                              \n"
  449.             "Alle Rechte vorbehalten.                          \n"
  450.             "                                                  \n"
  451.             "GoldED ist nicht frei vertreibbar. Bitte lesen    \n"
  452.             "Sie die Lizenz-Datei, bevor Sie diese Software    \n"
  453.             "installieren. Informationen fⁿr eine Installation \n"
  454.             "von GoldED 4 ⁿber GoldED 3 finden Sie in der      \n"
  455.             "Readme-Datei.                                     \n"
  456.             "                                                  \n"
  457.             "Dieses Script unterstⁿtzt eine Deinstallation.    \n"
  458.         ))
  459.  
  460.         (set #golded_badkick "\n Sorry, dieses Paket ben÷tigt mind. OS2.04.\n")
  461.  
  462.         (set #golded_warn_userstartup "\nWARNUNG: S:USER-STARTUP NICHT GEFUNDEN")
  463.  
  464.         (set #golded_error (cat
  465.  
  466.             " Ein Fehler ist aufgetreten. Bitte informieren Sie\n"
  467.             " den Support (dietmar@tomate.tng.oche.de) NACHDEM \n"
  468.             " Sie die Intallation mit einer anderen Installer- \n"
  469.             " Version (Empfehlung: 1.24) wiederholt haben.     \n"
  470.             "                                                  \n"
  471.             " Die folgende Information wird ben÷tigt: Fehler-  \n"
  472.             " Code (s.o.), Fehler-Text, abgearbeiteter Prozent-\n"
  473.             " satz (s. Fenstertitel) und die Log-Datei. Falls  \n"
  474.             " vorhanden: ein SnoopDos-Report. Danke !          \n"
  475.         ))
  476.  
  477.         (set #golded_assign_found "\nGoldED-Installation entdeckt ...\n")
  478.  
  479.         (set #golded_assign_found_help (cat "\n"
  480.  
  481.             " NEU INSTALLIEREN                                 \n"
  482.             "                                                  \n"
  483.             " Installiert GoldED in ein Verzeichnis Ihrer Wahl.\n"
  484.             " Eine vorhandene GoldED-Installation wird NICHT   \n"
  485.             " entfernt, wenn Sie in ein anderes Verzeichnis in-\n"
  486.             " stallieren. Bei Installation in ein vorhandenes  \n"
  487.             " GoldED-Verzeichnis werden vorhandene Dateien     \n"
  488.             " dagegen ⁿberschrieben (Backups werden wunschweise\n"
  489.             " angelegt).                                       \n"
  490.             "                                                  \n"
  491.             " UPDATE                                           \n"
  492.             "                                                  \n"
  493.             " Installiert GoldED in das vorhandene GoldED-Ver- \n"
  494.             " zeichnis. Dort vorhandene Dateien werden ⁿber-   \n"
  495.             " schrieben (Backups werden wunschweise angelegt). \n"
  496.             "                                                  \n"
  497.             " GOLDED ENTFERNEN                                 \n"
  498.             "                                                  \n"
  499.             " Alle Dateien und Ordner, die fⁿr GoldED angelegt \n"
  500.             " wurden, werden entfernt. Ihre eigenen Dateien    \n"
  501.             " werden ebenfalls gel÷scht, wenn sie sich in einem\n"
  502.             " dieser Ordner befinden.                          \n"
  503.         ))
  504.  
  505.         (set #golded_new    "Neu installieren")
  506.         (set #golded_update "Update (ⁿber bisherige Version installieren)")
  507.         (set #golded_remove "Deinstallation (GoldED entfernen)")
  508.  
  509.         (set #golded_ask_amount "\nBitte wΣhlen Sie die gewⁿnschte Installation:\n")
  510.  
  511.         (set #golded_ask_amount_help (cat "\n"
  512.  
  513.             " Diese Auswahl bestimmt die Anzahl der Dateien,   \n"
  514.             " die installiert werden.                          \n"
  515.         ))
  516.  
  517.         (set #golded_ask_amount_standard "Komplette Installation (2 MB)")
  518.         (set #golded_ask_amount_user     "Benutzerdefiniert")
  519.         (set #golded_ask_amount_minimum  "Minimalinstallation (575 K)")
  520.  
  521.         (set #golded_remove_ged  "\nGoldED-Assign entfernen ?\n")
  522.         (set #golded_remove_hs   "\nHiSpeed-Assign entfernen ?\n")
  523.         (set #golded_remove_ed   "\nQuickstarter-Referenz entfernen ?\n")
  524.         (set #golded_remove_gmk  "\nGUIMake-Assign entfernen ?\n")
  525.  
  526.         (set #golded_must_remove "Sie sollten den Assign/die Referenz entfernen lassen !")
  527.  
  528.         (set #golded_removed "; (entfernt)")
  529.  
  530.         (set #golded_lharc     "\nEntpacken der Daten (kann einige Minuten dauern)")
  531.         (set #golded_lharcfail "\nEntpacken der Daten abgebrochen - Speicherplatz ⁿberprⁿfen")
  532.  
  533.         (set #golded_installing_files "\nInstallieren der Dateien ...")
  534.         (set #golded_prepare_install  "\nVorbereiten der Installation ...")
  535.  
  536.         (set #golded_backup_mode "\nWΣhlen Sie eine Backup-Strategie fⁿr Ihre alte GoldED-Installation:\n")
  537.  
  538.         (set #golded_backup_mode_help (cat "\n"
  539.  
  540.             " Hier k÷nnen Sie bestimmen, wie alte Dateien be-  \n"
  541.             " handelt werden, bevor sie durch neuere Versionen \n"
  542.             " ⁿberschrieben oder (falls als obsolet eingestuft)\n"
  543.             " gel÷scht werden.                                 \n"
  544.         ))
  545.  
  546.         (set #golded_backup_mode_none      "Keine Backups")
  547.         (set #golded_backup_mode_selected  "Konfiguration & Makros sichern")
  548.         (set #golded_backup_mode_all       "Backup aller Dateien")
  549.  
  550.         (set #golded_pref_icons "\nBevorzugten Icon-Typ wΣhlen:\n")
  551.  
  552.         (set #golded_medres " mittlere Aufl÷sung (SeitenverhΣltnis 1:2)")
  553.         (set #golded_hires  " hohe Aufl÷sung     (SeitenverhΣltnis 1:1)")
  554.  
  555.         (set #golded_pref_icons_help (cat "\n"
  556.  
  557.             " WΣhlen Sie die mittlere Aufl÷sung, wenn fⁿr Ihre \n"
  558.             " Workbench ein Modus wie 640*200 eingestellt ist. \n"
  559.             "                                                  \n"
  560.             " Die hohe Aufl÷sung sollte bei einem H÷hen-/      \n"
  561.             " BreitenverhΣltnis von etwa 1:1 verwendet werden  \n"
  562.             " (640*512 oder 800*600).                          \n"
  563.         ))
  564.  
  565.         (set #golded_where (cat
  566.  
  567.             "Wo soll installiert werden ? In dem angegebenen   \n"
  568.             "Verzeichnis wird der Ordner 'GoldED' erzeugt:     \n"
  569.         ))
  570.  
  571.         (set #golded_where_help (cat "\n"
  572.  
  573.             " WΣhlen Sie ein beliebiges Verzeichnis. Hauptver- \n"
  574.             " zeichnisse wie DH0: k÷nnen auch benutzt werden.  \n"
  575.             " In dem angegebenen Pfad wird ein Ordner 'GoldED' \n"
  576.             " samt Icon erzeugt werden.                        \n"
  577.             "                                                  \n"
  578.             " Sie sollten ein Verzeichnis wΣhlen, dem ein Icon \n"
  579.             " zugeordnet ist, um GoldED auch ⁿber die Workbench\n"
  580.             " wiederfinden zu k÷nnen (etwa SYS:TOOLS).         \n"
  581.             "                                                  \n"
  582.             " Das GoldED-Verzeichnis wird neben dem Editor auch\n"
  583.             " diverse begleitende Dateien aufnehmen.           \n"
  584.         ))
  585.  
  586.         (set #golded_bad_path "Sorry, Installation in RAM-Disk nicht m÷glich")
  587.  
  588.         (set #golded_drive_space (cat "\n"
  589.  
  590.             " Diese Installation ben÷tigt mindestens fⁿnf MB   \n"
  591.             " freien Platz auf dem ZieldatentrΣger. Bitte      \n"
  592.             " machen Sie diesen Platz verfⁿgbar und starten Sie\n"
  593.             " die Installation dann neu.                       \n"
  594.         ))
  595.  
  596.         (set #golded_gold_lib "Installation der GoldED-Library ...")
  597.  
  598.         (set #golded_gold_lib_help (cat "\n"
  599.  
  600.             "Diese Library wird nur fⁿr die unregistrierte     \n"
  601.             "Version ben÷tigt. Registrierte Benutzer erhalten  \n"
  602.             "ersatzweise ein Keyfile.                          \n"
  603.         ))
  604.  
  605.         (set #golded_select_optional (cat "\n"
  606.  
  607.             "Bitte wΣhlen Sie, welche der folgenden GoldED-    \n"
  608.             "Komponenten installiert werden sollen (schon in-  \n"
  609.             "stallierte Komponenten werden ggf. entfernt):     \n"
  610.         ))
  611.  
  612.         (set #golded_select_optional_help (cat "\n"
  613.  
  614.             " Sie sollten keine der folgenden Komponenten de-  \n"
  615.             " aktivieren:                                      \n"
  616.             "                                                  \n"
  617.             " SYNTAX-PARSER (80 K)                             \n"
  618.             "                                                  \n"
  619.             " Diverse Syntax-Parser (verantwortlich fⁿr die    \n"
  620.             " farbkodierte Textdarstellung: Sourcecodes, HTML, \n"
  621.             " E-Mail, ...)                                     \n"
  622.             "                                                  \n"
  623.             " HISPEED (300 K)                                  \n"
  624.             "                                                  \n"
  625.             " Drucker-Utility fⁿr Laserdrucker, DeskJets und   \n"
  626.             " andere PCL-Drucker.                              \n"
  627.             "                                                  \n"
  628.             " Sie k÷nnen jede der folgenden Komponenten ohne   \n"
  629.             " Auswirkungen auf GoldED entfernen lassen:        \n"
  630.             "                                                  \n"
  631.             " AppIcon-STARTER (6 K)                            \n"
  632.             "                                                  \n"
  633.             " Erzeugt ein Drag & Drop-Icon auf der Workbench:  \n"
  634.             " GoldED ÷ffnet Texte, die auf dieses Icon gezogen \n"
  635.             " werden.                                          \n"
  636.             "                                                  \n"
  637.             " RECOVER (6 K)                                    \n"
  638.             "                                                  \n"
  639.             " Kann nach einem Systemabsturz den zuletzt be-    \n"
  640.             " arbeiteten Text rekonstruieren.                  \n"
  641.             "                                                  \n"
  642.             " BESTELLPROGRAMM (19 K)                           \n"
  643.             "                                                  \n"
  644.             " Druckt Bestellformular fⁿr GoldED.               \n"
  645.             "                                                  \n"
  646.             " API CLIENTS (16 K)                               \n"
  647.             "                                                  \n"
  648.             " API-Erweiterungen (Beispiele)                    \n"
  649.             "                                                  \n"
  650.             " DEVELOPER-MATERIAL (400 K)                       \n"
  651.             "                                                  \n"
  652.             " Beispiel-Sourcecodes (Syntax-Scanner, Quick-     \n"
  653.             " Starter, ...).                                   \n"
  654.             "                                                  \n"
  655.             " ANLEITUNG (290 - 350 K)                          \n"
  656.             "                                                  \n"
  657.             " Anleitung (diverse Sprachen). AmigaGuide-Format. \n"
  658.             " Hilfe zu den Menupunkten ist nur verfⁿgbar, wenn \n"
  659.             " eine Anleitung installiert wird, die der fⁿr     \n"
  660.             " GoldED ausgewΣhlten Sprache entspricht.          \n"
  661.             "                                                  \n"
  662.             " QUICKSTARTER (5 K)                               \n"
  663.             "                                                  \n"
  664.             " Schnelles GoldED-Frontend: GoldED-Aktivator.     \n"
  665.             "                                                  \n"
  666.             " UNLOCK (1 K)                                     \n"
  667.             "                                                  \n"
  668.             " Utility, das die BenutzeroberflΣche von GoldED   \n"
  669.             " freischalten kann, wenn ein fehlerhaftes ARexx-  \n"
  670.             " Makro dies versΣumt.                             \n"
  671.             "                                                  \n"
  672.             " ZUS─TZLICHE ICONS (20 K)                         \n"
  673.             "                                                  \n"
  674.             " Alternative Toolbar-Icons.                       \n"
  675.         ))
  676.  
  677.         (set #golded_select_presets      "Konfigurationsdateien")
  678.         (set #golded_select_parsers      "Syntax-Parser"        )
  679.         (set #golded_select_hispeed      "HiSpeed"              )
  680.         (set #golded_select_appicon      "AppIcon-Starter"      )
  681.         (set #golded_select_recover      "Recover-Utility"      )
  682.         (set #golded_select_order        "Bestellprogramm"      )
  683.         (set #golded_select_api          "API-Clients"          )
  684.         (set #golded_select_sources      "Sourcecodes"          )
  685.         (set #golded_select_manual_e     "Anleitung (englisch)" )
  686.         (set #golded_select_manual_d     "Anleitung (deutsch)"  )
  687.         (set #golded_select_quickstarter "QuickStarter"         )
  688.         (set #golded_select_unlock       "UnLock-Utility"       )
  689.         (set #golded_select_icons        "ZusΣtzliche Icons"    )
  690.  
  691.         (set #golded_what_catalog "\n Welche Kataloge sollen installiert werden ?\n")
  692.  
  693.         (set #golded_what_catalog_help (cat "\n"
  694.  
  695.             " Diese Daten werden vom Betriebssystem ben÷tigt,  \n"
  696.             " um GoldED in verschiedenen Sprachen ablaufen zu  \n"
  697.             " lassen (dazu ist mindestens OS2.1 erforderlich). \n"
  698.             "                                                  \n"
  699.             " Menus werden nicht automatisch lokalisiert, da   \n"
  700.             " sie konfigurierbar sind und nicht direkt in den  \n"
  701.             " Editor eingebaut wurden - dazuu spΣter mehr.     \n"
  702.         ))
  703.  
  704.         (set #golded_update_keyfile (cat "\n"
  705.  
  706.             "Sie besitzen schon ein Keyfile. Soll das vor-     \n"
  707.             "handene Keyfile ersetzt werden ?                  \n"
  708.         ))
  709.  
  710.         (set #golded_update_keyfile_help (cat "\n"
  711.  
  712.             " Lassen Sie ein vorhandenes GoldED Keyfile NICHT  \n"
  713.             " ersetzen,  wenn Sie nicht genau wissen, was Sie  \n"
  714.             " tun. Sinnvolle Anwendung: Sie haben GoldED er-   \n"
  715.             " worben und m÷chten nun eine Raubkopie entfernen  \n"
  716.             " lassen.                                          \n"
  717.         ))
  718.  
  719.         (set #golded_update_keyfile_overwrite "Keyfile ersetzen")
  720.         (set #golded_update_keyfile_keep "Altes Keyfile beibehalten")
  721.  
  722.         (set #golded_updating_icons "\nAktualisieren der Icons ...")
  723.  
  724.         (set #golded_what_manuals "\n Welche Anleitungen sollen installiert werden ?\n")
  725.  
  726.         (set #golded_what_manuals_help (cat "\n"
  727.  
  728.             " Jede Anleitung (AmigaGuide-Datei) belegt etwa    \n"
  729.             " 300K Platz auf Ihrer Festplatte                  \n"
  730.         ))
  731.  
  732.         (set #golded_add_ged_assign "\nGoldED-Assign einrichten ?\n")
  733.  
  734.         (set #golded_add_ged_assign_help (cat "\n"
  735.  
  736.             " Der Editor ben÷tigt diesen Assign zum Auffinden  \n"
  737.             " diverser Dateien.                                \n"
  738.         ))
  739.  
  740.         (set #golded_quickname " Namen fⁿr Schnellstarter wΣhlen:")
  741.  
  742.         (set #golded_quickname_help (cat "\n"
  743.  
  744.             " Der Schnellstarter ist ein kleiner (5 KB) Vorsatz\n"
  745.             " fⁿr GoldED, der benutzt werden kann, als ob er   \n"
  746.             " selbst ein Editor wΣre. Sie k÷nnten so 'ed text' \n"
  747.             " eingeben, um die Datei 'text' zu bearbeiten, wenn\n"
  748.             " der Name des Quickstarters ED lautet. Der Vor-   \n"
  749.             " teil des Schnellstarters: Er kann einen schon    \n"
  750.             " laufenden Editor ansprechen und diesem die       \n"
  751.             " Aufgabe ⁿbergeben. Dies geschieht sehr schnell.  \n"
  752.             " Weiterhin erlaubt er es, GoldED von jedem be-    \n"
  753.             " liebigen Verzeichnis aus aufzurufen oder den     \n"
  754.             " Editor von der Shell abzukoppeln, ohne da▀ RUN   \n"
  755.             " eingegeben werden mu▀.                           \n"
  756.             "                                                  \n"
  757.             " Namensvorgabe ist ED; damit wⁿrde der originale  \n"
  758.             " ED Ihrer Workbench ersetzt. Es kann natⁿrlich    \n"
  759.             " jeder beliebige andere Name benutzt werden.      \n"
  760.         ))
  761.  
  762.         (set #golded_place_quick (cat "\n"
  763.  
  764.             " WΣhlen Sie ein Verzeichnis fⁿr den Quickstarter. \n"
  765.             " Das gewΣhlte Verzeichnis sollte sich im Befehls- \n"
  766.             " pfad befinden:                                   \n"
  767.         ))
  768.  
  769.         (set #golded_place_quick_help (cat "\n"
  770.  
  771.             " Sie sollten eines der folgenden Verzeichnisse be-\n"
  772.             " nutzen, um den Quickstarter durch einfache       \n"
  773.             " Namensangabe von jedem Verzeichnis aus aufrufen  \n"
  774.             " zu k÷nnen:                                       \n"
  775.             "                                                  \n"
  776.             " SYS:C, SYS:TOOLS, SYS:UTILITIES oder SYS:SYSTEM  \n"
  777.             "                                                  \n"
  778.             " Haben Sie den Starter ED genannt, so sollte er   \n"
  779.             " entweder in 'C:' plaziert werden oder der dort   \n"
  780.             " vorhandene ED gel÷scht werden, um eindeutige Ver-\n"
  781.             " hΣltnisse zu schaffen.                           \n"
  782.         ))
  783.  
  784.         (set #golded_quick_resident "\n Schnellstarter resident machen ?\n")
  785.  
  786.         (set #golded_quick_resident_help (cat "\n"
  787.  
  788.             " Der Quickstarter sollte resident gemacht werden, \n"
  789.             " da er dann noch schneller ansprechbar ist. Der   \n"
  790.             " damit verbundene Speicherverbrauch ist vernach-  \n"
  791.             " lΣssigbar (5 KB).                                \n"
  792.         ))
  793.  
  794.         (set #golded_saving_files "\nBackups anlegen (golded:obsolete) ...")
  795.  
  796.         (set #golded_what_menu "\n Sprache fⁿr Menu auswΣhlen: \n")
  797.  
  798.         (set #golded_what_menu_help (cat "\n"
  799.  
  800.             " GoldED ist lokalisiert und benutzt die Locale-   \n"
  801.             " Library des Betriebssystems (OS3), um die Re-    \n"
  802.             " questertexte in der bevorzugten Sprache darzu-   \n"
  803.             " stellen. Menus sind nicht Bestandteil von GoldED \n"
  804.             " und werden deshalb auch nicht automatisch in der \n"
  805.             " Sprache angepa▀t. WΣhlen Sie deshalb bitte jetzt \n"
  806.             " die gewⁿnschte ▄bersetzung.                      \n"
  807.         ))
  808.  
  809.         (set #golded_screen "\n Gewⁿnschter Bildschirmmodus:\n")
  810.  
  811.         (set #golded_screen_help (cat "\n"
  812.  
  813.             " Einstellung des Bildschirmmodus vor dem ersten   \n"
  814.             " Programmstart. Wir raten zu einem eigenen Screen,\n"
  815.             " da GoldED dann schneller arbeitet und sch÷ner    \n"
  816.             " aussieht (bei Rechnern mit nur 512K Chip-RAM ist \n"
  817.             " dafⁿr aber m÷glicherweise zu wenig Speicher vor- \n"
  818.             " handen).                                         \n"
  819.         ))
  820.  
  821.         (set #golded_screen_wb     "Workbench-Screen")
  822.         (set #golded_screen_ntsc_i "NTSC interlaced (640*400)")
  823.         (set #golded_screen_pal_i  "PAL  interlaced (640*512)")
  824.  
  825.         (set #golded_look_feel "\nLook & Feel\n")
  826.  
  827.         (set #golded_look_feel_help (cat "\n"
  828.  
  829.             " Vorschlag: Verwenden Sie zwei Farben, wenn Ihr   \n"
  830.             " Rechner langsam ist (68000-CPU), vier Farben     \n"
  831.             " fⁿr Rechner mit 68030/68030-CPU (etwa A1200) oder\n"
  832.             " einen beliebigen Modus fⁿr schnelle Rechner mit  \n"
  833.             " 68040/68060-CPU.                                 \n"
  834.         ))
  835.  
  836.         (set #golded_mode_blue    "Blau    (2 Farben)")
  837.         (set #golded_mode_stone   "Modern  (4 Farben)")
  838.         (set #golded_mode_desktop "Desktop (8 Farben)")
  839.  
  840.         (set #golded_what_proglang "\n Bevorzugte Programmiersprache:\n")
  841.  
  842.         (set #golded_what_proglang_other "andere")
  843.         (set #golded_what_proglang_none  "keine")
  844.  
  845.         (set #golded_what_proglang_help (cat "\n"
  846.  
  847.             " Diese Auswahl kontrolliert die Vorinstallation   \n"
  848.             " sprachspezifischer Features (z.B. Syntax-Parser).\n"
  849.             " Prinzipiell werden alle Dateien installiert, aber\n"
  850.             " nur der Support fⁿr die hier gewΣhlten Sprache   \n"
  851.             " wird in Ihre Grundkonfiguration aufgenommen.     \n"
  852.         ))
  853.  
  854.         (set #golded_install_reqtools "Reqtools-Library installieren ?")
  855.  
  856.         (set #golded_install_reqtools_help (cat "\n"
  857.  
  858.             " Reqtools ⌐1991-1996 Nico Franτois. GoldED wird   \n"
  859.             " nicht starten, wenn die Reqtools-Library nicht   \n"
  860.             " verfⁿgbar ist.                                   \n"
  861.         ))
  862.  
  863.         (set #golded_install_presets "Installation der Konfigurationsdateien...")
  864.  
  865.         (set #golded_hs_assign "\n HiSpeed-Assign einrichten ?\n")
  866.  
  867.         (set #golded_hs_assign_help (cat "\n"
  868.  
  869.             " Dieser Assign wird ben÷tigt, wenn HiSpeed aus    \n"
  870.             " jedem beliebigen Verzeichnis heraus aufrufbar    \n"
  871.             " soll. Ohne diesen Assign kann HiSpeed nicht durch\n"
  872.             " GoldED gestartet werden. HiSpeed ist ein Druck-  \n"
  873.             " programm fⁿr PCL-Drucker (Laser, Deskjet).       \n"
  874.         ))
  875.  
  876.         (set #golded_removing_temp_files "\nEntfernen temporΣrer Dateien ...")
  877.  
  878.         (set #golded_complete (cat "\nInstallation abgeschlossen."))
  879.  
  880.         (set #install_presets "\nStandardeinstellungen installieren ?\n")
  881.  
  882.         (set #install_presets_help (cat "\n"
  883.  
  884.             " Zusammen mit GoldED werden Standardeinstellungen \n"
  885.             " fⁿr Menus, Tastaturbelegung, etc. ausgeliefert.  \n"
  886.             " Eine erneute Installation dieses Materials ist   \n"
  887.             " nicht erforderlich, wenn GoldED schon einmal     \n"
  888.             " installiert wurde: Sie k÷nnen die vorhandenen    \n"
  889.             " Einstellungen weiter verwenden. Allerdings ent-  \n"
  890.             " gehen Ihnen dann m÷glicherweise aktualisierte    \n"
  891.             " Komponenten (beispielsweise eine neue Menⁿ-      \n"
  892.             " ⁿbersetzung).                                    \n"
  893.             "                                                  \n"
  894.             " Tip: Nennen Sie die eigenen Konfigurationen nicht\n"
  895.             " standard.*. Dann k÷nnen die Standardeinstellungen\n"
  896.             " mit jedem Update neu installiert werden, ohne da▀\n"
  897.             " eigenes Material davon berⁿhrt wird.             \n"
  898.         ))
  899.  
  900.         (set #install_presets_install "Standardeinstellungen installieren")
  901.         (set #install_presets_keep    "Vorhandene Einstellungen verwenden")
  902.     )
  903. )
  904.  
  905. ; --------------------------- Prepare installation -----------------------------
  906.  
  907. (onerror (
  908.  
  909.     (if (> @ioerr 0) 
  910.  
  911.         (message (cat "\n ERROR CODE: " @ioerr "\n\n" #golded_error))
  912.     )
  913. ))
  914.  
  915. ; initialize return code
  916.  
  917. (textfile (dest "env:GOLDEDINSTALL") (append "INCOMPLETE"))
  918.  
  919. (if (not (exists "prefs:" (noreq)))
  920.  
  921.     (makeassign "prefs" "sys:prefs")
  922. )
  923.  
  924. ; sure we are running under a 2.04 ROM ?
  925.  
  926. (if (< (/ (getversion) 65536) 37)
  927.  
  928.     (
  929.         (message #golded_badkick)
  930.  
  931.         (textfile (dest "env:GOLDEDINSTALL") (append "ERROR"))
  932.  
  933.         (exit (quiet))
  934.     )
  935. )
  936.  
  937. ; -------------------------------- Constants -----------------------------------
  938.  
  939. (set install_mode_new          0)
  940. (set install_mode_update       1)
  941. (set install_mode_remove       2)
  942.  
  943. (set install_type_maximum      0)
  944. (set install_type_user         1)
  945. (set install_type_minimum      2)
  946.  
  947. (set backup_mode_none          0)
  948. (set backup_mode_ask           1)
  949.  
  950. (set screen_workbench          0)
  951.  
  952. (set component_parser          1)
  953. (set component_hispeed         2)
  954. (set component_appicon         4)
  955. (set component_recover         8)
  956. (set component_order          16)
  957. (set component_api            32)
  958. (set component_sources        64)
  959. (set component_manual_e      128)
  960. (set component_manual_d      256)
  961. (set component_quickstarter  512)
  962. (set component_unlock       1024)
  963. (set component_icons        2048)
  964.  
  965. (set component_all (+ component_parser component_hispeed component_appicon component_recover component_order component_api component_sources component_manual_e component_manual_d component_quickstarter component_unlock component_icons))
  966.  
  967. (set install_presets_again     0)
  968. (set install_presets_keep      1)
  969.  
  970. ; ----------------------------- Welcome user -----------------------------------
  971.  
  972. (message #golded_introduction)
  973.  
  974. (welcome)
  975.  
  976. (if (exists "GoldED:" (noreq))
  977.  
  978.     (
  979.         (set install_path (expandpath "golded:/"))
  980.  
  981.         (set install_mode
  982.  
  983.             (askchoice
  984.  
  985.                 (prompt #golded_assign_found)
  986.                 (help   #golded_assign_found_help)
  987.  
  988.                 (default 1)
  989.  
  990.                 (choices
  991.  
  992.                     #golded_new
  993.                     #golded_update
  994.                     #golded_remove
  995.                 )
  996.             )
  997.         )
  998.     )
  999.  
  1000.     ; GoldED not yet installed
  1001.  
  1002.     (set install_mode install_mode_new )
  1003. )
  1004.  
  1005. ; ---------------------------- Deinstall GoldED --------------------------------
  1006.  
  1007. (if (= install_mode install_mode_remove)
  1008.  
  1009.     (
  1010.         (run "assign >NIL: oldged: GoldED:/")
  1011.  
  1012.         ; assigns have to be removed first
  1013.  
  1014.         (run "assign >NIL: HiSpeed:  remove")
  1015.         (run "assign >NIL: GoldED:   remove")
  1016.         (run "assign >NIL: GUIMake:  remove")
  1017.  
  1018.         (run "delete >NIL: oldged:GoldED all quiet force")
  1019.         (run "delete >NIL: oldged:GoldED.info")
  1020.  
  1021.         (if (exists "locale:" (noreq))
  1022.  
  1023.             (
  1024.                 (delete "locale:catalogs/deutsch/GoldED.catalog"   )
  1025.                 (delete "locale:catalogs/franτais/GoldED.catalog"  )
  1026.                 (delete "locale:catalogs/italiano/GoldED.catalog"  )
  1027.                 (delete "locale:catalogs/nederlands/GoldED.catalog")
  1028.                 (delete "locale:catalogs/svenska/GoldED.catalog"   )
  1029.                 (delete "locale:catalogs/deutsch/SpellIT.catalog"  )
  1030.                 (delete "locale:catalogs/franτais/SpellIT.catalog" )
  1031.                 (delete "locale:catalogs/deutsch/HiSpeed.catalog"  )
  1032.                 (delete "locale:catalogs/franτais/HiSpeed.catalog" )
  1033.             )
  1034.         )
  1035.  
  1036.         (run "delete >NIL: prefs:presets/GED_#? all quiet")
  1037.         (run "delete >NIL: prefs:presets/GoldED all quiet")
  1038.         (run "delete >NIL: envarc:GoldED        all quiet")
  1039.         (run "delete >NIL: env:GoldED           all quiet")
  1040.         (run "delete >NIL: envarc:HiSpeed       all quiet")
  1041.         (run "delete >NIL: env:HiSpeed          all quiet")
  1042.         (run "delete >NIL: fonts:GoldED         all quiet")
  1043.  
  1044.         (delete "s:GUIMake.pref")
  1045.  
  1046.         (delete "libs:golded.library")
  1047.  
  1048.         (startup "GoldED"
  1049.  
  1050.             (prompt  #golded_remove_ged)
  1051.             (help    #golded_must_remove)
  1052.             (command #golded_removed)
  1053.         )
  1054.  
  1055.         (startup "HiSpeed"
  1056.  
  1057.             (prompt  #golded_remove_hs)
  1058.             (help    #golded_must_remove)
  1059.             (command #golded_removed)
  1060.         )
  1061.  
  1062.         (startup "GED_quick"
  1063.  
  1064.             (prompt  #golded_remove_ed)
  1065.             (help    #golded_must_remove)
  1066.             (command #golded_removed)
  1067.         )
  1068.  
  1069.         (startup "GUIMake"
  1070.  
  1071.             (prompt  #golded_remove_gmk)
  1072.             (help    #golded_must_remove)
  1073.             (command #golded_removed)
  1074.         )
  1075.  
  1076.         (run "assign >NIL: oldged:  remove")
  1077.  
  1078.         ; set return code
  1079.  
  1080.         (textfile (dest "env:GOLDEDINSTALL") (append "REMOVED"))
  1081.  
  1082.         (exit (quiet))
  1083.     )
  1084. )
  1085.  
  1086. ; choose destination directotry
  1087.  
  1088. (if (= install_mode install_mode_new)
  1089.  
  1090.     (
  1091.  
  1092.         (set install_path
  1093.  
  1094.             (askdir
  1095.  
  1096.                 (prompt #golded_where)
  1097.                 (help   #golded_where_help)
  1098.  
  1099.                 (default "SYS:TOOLS")
  1100.             )
  1101.         )
  1102.     )
  1103. )
  1104.  
  1105. ; ask for installation type
  1106.  
  1107. (set install_type
  1108.  
  1109.     (askchoice
  1110.  
  1111.         (prompt #golded_ask_amount)
  1112.         (help   #golded_ask_amount_help)
  1113.  
  1114.         (default 0)
  1115.  
  1116.         (choices
  1117.  
  1118.             #golded_ask_amount_standard
  1119.             #golded_ask_amount_user
  1120.             #golded_ask_amount_minimum
  1121.         )
  1122.     )
  1123. )
  1124.  
  1125. ; ------------------------ Prepare destination directory -----------------------
  1126.  
  1127. ; create destination directory, create GoldED: assign
  1128.  
  1129. (if (= install_mode install_mode_update)
  1130.  
  1131.     (
  1132.  
  1133.         (set install_path (expandpath "golded:/"))
  1134.         (set install_dir  (expandpath "golded:" ))
  1135.  
  1136.         (set backup_mode  backup_mode_ask)
  1137.     )
  1138.  
  1139.     (
  1140.         (set install_dir (tackon install_path "GoldED"))
  1141.  
  1142.         (if (exists install_dir)
  1143.  
  1144.             (
  1145.                 (set backup_mode backup_mode_ask)
  1146.  
  1147.                 (if (exists (tackon install_path "GoldED.info"))
  1148.  
  1149.                     (makedir install_dir)
  1150.                     (makedir install_dir (infos))
  1151.                 )
  1152.             )
  1153.  
  1154.             (
  1155.  
  1156.                 (set backup_mode backup_mode_none)
  1157.  
  1158.                 (makedir install_dir (infos))
  1159.             )
  1160.         )
  1161.  
  1162.         (makeassign "GoldED" install_dir)
  1163.     )
  1164. )
  1165.  
  1166. ; ------------------------------ Uncompress files ------------------------------
  1167.  
  1168. (if (or (= golded_install_debug 0) (not (exists "golded:goldeddata")))
  1169.  
  1170.     (
  1171.         (working #golded_lharc)
  1172.  
  1173.         ; lhfasfx is somewhat fussy about missing "/"'s - we use the assign instead
  1174.  
  1175.         (run "install.run golded:")
  1176.  
  1177.         (if (not (exists "golded:goldeddata"))
  1178.  
  1179.             (
  1180.                 (message #golded_lharcfail)
  1181.  
  1182.                 (exit (quiet))
  1183.             )
  1184.         )
  1185.     )
  1186. )
  1187.  
  1188. ; ------------------------------- Install libs ---------------------------------
  1189.  
  1190. (if (exists "golded:libs/reqtools.library")
  1191.  
  1192.     (
  1193.         (copylib
  1194.  
  1195.             (prompt  #golded_install_reqtools)
  1196.             (help    #golded_install_reqtools_help)
  1197.             (source  "golded:libs/reqtools.library")
  1198.             (dest    "libs:")
  1199.             (confirm)
  1200.         )
  1201.     )
  1202. )
  1203.  
  1204. ; ------------------------------- Start presentation ---------------------------
  1205.  
  1206. ; run Describe presentation
  1207.  
  1208. (if (= @language "deutsch")
  1209.  
  1210.     (run "golded:goldeddata/installdata/bin/sync SCRIPT=INSTALL_D.BAT")
  1211.     (run "golded:goldeddata/installdata/bin/sync SCRIPT=INSTALL_E.BAT")
  1212. )
  1213.  
  1214. ; --------------------------- Check existing installation ----------------------
  1215.  
  1216. (if (= install_mode install_mode_update)
  1217.  
  1218.     ; upgrading from GoldED 4 ?
  1219.  
  1220.     (if (exists "golded:registry")
  1221.  
  1222.         (
  1223.             (set install_optional (+ component_parser component_hispeed))
  1224.  
  1225.             (if (exists "golded:appicon"           ) (set install_optional (+ install_optional component_appicon     )))
  1226.             (if (exists "golded:recover"           ) (set install_optional (+ install_optional component_recover     )))
  1227.             (if (exists "golded:order"             ) (set install_optional (+ install_optional component_order       )))
  1228.             (if (exists "golded:api/rexx.api"      ) (set install_optional (+ install_optional component_api         )))
  1229.             (if (exists "golded:developer"         ) (set install_optional (+ install_optional component_sources     )))
  1230.             (if (exists "golded:manual"            ) (set install_optional (+ install_optional component_manual_e    )))
  1231.             (if (exists "golded:anleitung"         ) (set install_optional (+ install_optional component_manual_d    )))
  1232.             (if (exists "golded:ed"                ) (set install_optional (+ install_optional component_quickstarter)))
  1233.             (if (exists "golded:unlock"            ) (set install_optional (+ install_optional component_unlock      )))
  1234.             (if (exists "golded:toolbar/monochrome") (set install_optional (+ install_optional component_icons       )))
  1235.         )
  1236.  
  1237.         (set install_optional component_all)
  1238.     )
  1239.  
  1240.     (set install_optional component_all)
  1241. )
  1242.  
  1243. (if (exists "golded:golded.info")
  1244.  
  1245.     (if (> (getsize "golded:golded.info") 800)
  1246.  
  1247.         (set icon_set 1)
  1248.         (set icon_set 0)
  1249.     )
  1250.  
  1251.     (set icon_set 0)
  1252. )
  1253.  
  1254. ; --------------------------- Backup important files ---------------------------
  1255.  
  1256. (if (exists "golded:obsolete")
  1257.  
  1258.     (run "delete golded:obsolete all quiet")
  1259. )
  1260.  
  1261. (if (= backup_mode backup_mode_ask)
  1262.  
  1263.     (
  1264.         (if (exists "golded:config")
  1265.  
  1266.             (set backup_default 2)
  1267.             (set backup_default 1)
  1268.         )
  1269.  
  1270.         (set backup_mode
  1271.  
  1272.             (askchoice
  1273.  
  1274.                 (prompt #golded_backup_mode)
  1275.                 (help   #golded_backup_mode_help)
  1276.  
  1277.                 (default backup_default)
  1278.  
  1279.                 (choices
  1280.  
  1281.                     #golded_backup_mode_none
  1282.                     #golded_backup_mode_selected
  1283.                     #golded_backup_mode_all
  1284.                 )
  1285.             )
  1286.         )
  1287.     )
  1288. )
  1289.  
  1290. (if (not (= backup_mode backup_mode_none))
  1291.  
  1292.     (
  1293.         (makedir "golded:obsolete")
  1294.  
  1295.         (if (= backup_mode 2)
  1296.  
  1297.             (
  1298.                 (working #golded_saving_files)
  1299.  
  1300.                 (copyfiles
  1301.  
  1302.                     (source   "golded:"                )
  1303.                     (dest     "golded:obsolete"        )
  1304.                     (pattern  "~(goldeddata|obsolete)" )
  1305.                     (nogauge)
  1306.                 )
  1307.             )
  1308.  
  1309.             (if (or (exists "golded:arexx") (exists "golded:registry") (exists "golded:config"))
  1310.  
  1311.                 (
  1312.                     (working #golded_saving_files)
  1313.  
  1314.                     (copyfiles
  1315.  
  1316.                         (source   "golded:"          )
  1317.                         (dest     "golded:obsolete"  )
  1318.                         (pattern  "(registry|arexx|config)" )
  1319.                         (nogauge)
  1320.                     )
  1321.                 )
  1322.             )
  1323.         )
  1324.     )
  1325. )
  1326.  
  1327. ; --------------------------- Remove obsolete files ----------------------------
  1328.  
  1329. (run "delete golded:presets all quiet")
  1330. (run "delete golded:config  all quiet")
  1331.  
  1332. ; remove obsolete files
  1333.  
  1334. (delete "golded:golded.guide" (infos))
  1335. (delete "golded:GEDApp" (infos))
  1336. (delete "golded:Hi!" (infos))
  1337. (delete "golded:Tools/Unlock.info" (infos))
  1338. (delete "golded:rx")
  1339. (delete "golded:api/history")
  1340. (delete "golded:api/readme")
  1341. (delete "golded:api/readme.info")
  1342. (delete "golded:api/dock/dock1.prefs")
  1343. (delete "golded:api/dock/dock2.prefs")
  1344. (delete "golded:macros/test.ged")
  1345. (delete "golded:Anleitung")
  1346. (delete "golded:Manual")
  1347. (delete "golded:Manuel")
  1348. (delete "golded:History")
  1349. (delete "golded:keyfile/keyfile")
  1350. (delete "libs:golded.library")
  1351.  
  1352. ; remove obsolete icons
  1353.  
  1354. (delete "golded:arexx.info"          )
  1355. (delete "golded:menu.info"           )
  1356. (delete "golded:manuel.info"         )
  1357. (delete "golded:tools/hispeed.info"  )
  1358. (delete "golded:tools/ed.info"       )
  1359. (delete "golded:tools/gedrefs.info"  )
  1360. (delete "golded:tools/recover.info"  )
  1361. (delete "golded:tools/gedapp.info"   )
  1362. (delete "golded:tools/prjsource.info")
  1363. (delete "golded:tools/unlock.info"   )
  1364. (delete "golded:tools/geddock.info"  )
  1365. (delete "golded:tools/gedscan.info"  )
  1366. (delete "golded:tools/menu.info"     )
  1367. (delete "golded:api/reversed.info"   )
  1368. (delete "golded:api/nextstep.info"   )
  1369. (delete "golded:api/dock.info"       )
  1370. (delete "golded:tools/source.info"   )
  1371. (delete "golded:tools/scanner.info"  )
  1372.  
  1373. ; remove obsolete catalogs
  1374.  
  1375. (if (exists "locale:" (noreq)) (
  1376.  
  1377.     (delete "locale:catalogs/deutsch/GoldED.catalog")
  1378.     (delete "locale:catalogs/franτais/GoldED.catalog")
  1379.     (delete "locale:catalogs/italiano/GoldED.catalog")
  1380.     (delete "locale:catalogs/nederlands/GoldED.catalog")
  1381.     (delete "locale:catalogs/svenska/GoldED.catalog")
  1382.     (delete "locale:catalogs/deutsch/HiSpeed.catalog")
  1383.     (delete "locale:catalogs/franτais/HiSpeed.catalog")
  1384. ))
  1385.  
  1386. ; remove obsolete drawers
  1387.  
  1388. (run "delete golded:config                all quiet")
  1389. (run "delete golded:macros                all quiet")
  1390. (run "delete golded:presets               all quiet")
  1391. (run "delete golded:syntax/developer      all quiet")
  1392. (run "delete golded:menu                  all quiet")
  1393. (run "delete golded:tools/menu            all quiet")
  1394. (run "delete golded:tools/scanner         all quiet")
  1395. (run "delete golded:tools/source          all quiet")
  1396. (run "delete golded:tools/ed              all quiet")
  1397. (run "delete golded:tools/gedrefs         all quiet")
  1398. (run "delete golded:tools/recover         all quiet")
  1399. (run "delete golded:tools/gedapp          all quiet")
  1400. (run "delete golded:tools/prjsource       all quiet")
  1401. (run "delete golded:tools/unlock          all quiet")
  1402. (run "delete golded:tools/geddock         all quiet")
  1403. (run "delete golded:tools/gedscan         all quiet")
  1404. (run "delete golded:tools/hispeed/keyfile all quiet")
  1405. (run "delete env:golded                   all quiet")
  1406. (run "delete envarc:golded                all quiet")
  1407. (run "delete s:golded                     all quiet")
  1408. (run "delete golded:tools/edsource        all quiet")
  1409. (run "delete prefs:presets/GED_#?         all quiet")
  1410. (run "delete golded:api/rexx              all quiet")
  1411. (run "delete golded:api/spell             all quiet")
  1412. (run "delete golded:api/reversed          all quiet")
  1413. (run "delete golded:api/nextstep          all quiet")
  1414. (run "delete golded:api/dock              all quiet")
  1415. (run "delete golded:api/include           all quiet")
  1416. (run "delete golded:arexx/backup          all quiet")
  1417.  
  1418. ; ----------------------------- Install all files ------------------------------
  1419.  
  1420. (if (or (= golded_install_debug 0) (not (exists "golded:golded")))
  1421.  
  1422.     (
  1423.  
  1424.         (if (= install_type install_type_user)
  1425.  
  1426.             (working #golded_prepare_install)
  1427.             (working #golded_installing_files)
  1428.         )
  1429.  
  1430.         (copyfiles
  1431.  
  1432.             (source  "golded:goldeddata")
  1433.             (dest    "golded:"          )
  1434.             (pattern "~(installdata)"   )
  1435.             (nogauge)
  1436.         )
  1437.     )
  1438. )
  1439.  
  1440. (copyfiles
  1441.  
  1442.     (source "golded:tools/hispeed/HiSpeed")
  1443.     (dest   "golded:")
  1444.     (nogauge)
  1445. )
  1446.  
  1447. (copyfiles
  1448.  
  1449.     (source "golded:goldeddata/installdata/fonts" )
  1450.     (dest   "fonts:")
  1451.     (all)
  1452.     (nogauge)
  1453. )
  1454.  
  1455. (if (not (exists "golded:registry"))
  1456.  
  1457.     (makedir "golded:registry")
  1458. )
  1459.  
  1460. (if (not (exists "golded:registry/presets"))
  1461.  
  1462.     (makedir "golded:registry/presets")
  1463. )
  1464.  
  1465.  
  1466. (if (not (exists "golded:xref"))
  1467.  
  1468.     (makedir "golded:xref")
  1469. )
  1470.  
  1471.  
  1472. (if (not (exists "golded:recordings"))
  1473.  
  1474.     (makedir "golded:recordings")
  1475. )
  1476.  
  1477. (if (not (exists "golded:sessions"))
  1478.  
  1479.     (makedir "golded:sessions")
  1480. )
  1481.  
  1482. ; ------------------------------ Install keyfile -------------------------------
  1483.  
  1484. (if (exists "keyfile/golded.keyfile")
  1485.  
  1486.     (
  1487.         (if (exists "golded:keyfile/golded.keyfile")
  1488.  
  1489.             (set install_keyfile
  1490.  
  1491.                 (askchoice
  1492.  
  1493.                     (prompt #golded_update_keyfile)
  1494.                     (help   #golded_update_keyfile_help)
  1495.  
  1496.                     (default 0)
  1497.  
  1498.                     (choices
  1499.  
  1500.                         #golded_update_keyfile_keep
  1501.                         #golded_update_keyfile_overwrite
  1502.                     )
  1503.                 )
  1504.             )
  1505.  
  1506.             (set install_keyfile 1)
  1507.         )
  1508.     )
  1509.  
  1510.     ; just a demo
  1511.  
  1512.     (set install_keyfile 0)
  1513. )
  1514.  
  1515. (if (= install_keyfile 1)
  1516.  
  1517.     (
  1518.         ; just in case somebody saved the keyfile as golded:keyfile (supposed to be a drawer)
  1519.  
  1520.         (run "delete golded:keyfile")
  1521.  
  1522.         (if (not (exists "golded:keyfile"))
  1523.  
  1524.             (makedir "golded:keyfile")
  1525.         )
  1526.  
  1527.         (copyfiles
  1528.  
  1529.             (source "keyfile/golded.keyfile")
  1530.             (dest   "golded:keyfile")
  1531.         )
  1532.     )
  1533. )
  1534.  
  1535. ; ------------------------------- Install icons --------------------------------
  1536.  
  1537. (if (= install_mode install_mode_new)
  1538.  
  1539.     (set icon_set
  1540.  
  1541.         (askchoice
  1542.  
  1543.             (prompt #golded_pref_icons)
  1544.             (help   #golded_pref_icons_help)
  1545.  
  1546.             (choices
  1547.  
  1548.                 #golded_medres
  1549.                 #golded_hires
  1550.             )
  1551.  
  1552.             (default icon_set)
  1553.         )
  1554.     )
  1555. )
  1556.  
  1557. (working #golded_updating_icons)
  1558.  
  1559. ; install small (med-res) icons
  1560.  
  1561. (if (= icon_set 0)
  1562.  
  1563.     (
  1564.         (copyfiles
  1565.  
  1566.             (source "golded:goldeddata/installdata/icons/golded")
  1567.             (dest   "golded:")
  1568.             (all)
  1569.             (nogauge)
  1570.         )
  1571.     )
  1572. )
  1573.  
  1574. ; create GoldED ARexx macro icons
  1575.  
  1576. (if (= icon_set 0)
  1577.  
  1578.     (run "golded:goldeddata/installdata/bin/moveicons QUIET DIR=golded:arexx ICON=golded:goldeddata/installdata/icons/script/medres DX=100 DY=40 COLUMNS=5")
  1579.     (run "golded:goldeddata/installdata/bin/moveicons QUIET DIR=golded:arexx ICON=golded:goldeddata/installdata/icons/script/hires  DX=100 DY=45 COLUMNS=5")
  1580. )
  1581.  
  1582. ; create HiSpeed Arexx macro icons
  1583.  
  1584. (if (= icon_set 0)
  1585.  
  1586.     (run "golded:goldeddata/installdata/bin/moveicons QUIET DIR=golded:tools/hispeed/arexx ICON=golded:goldeddata/installdata/icons/script/medres DX=90 DY=40 COLUMNS=5")
  1587.     (run "golded:goldeddata/installdata/bin/moveicons QUIET DIR=golded:tools/hispeed/arexx ICON=golded:goldeddata/installdata/icons/script/hires  DX=95 DY=45 COLUMNS=5")
  1588. )
  1589.  
  1590. ; ------------------------------ Select components  ----------------------------
  1591.  
  1592. (if (= install_type install_type_maximum)
  1593.  
  1594.     (set install_optional component_all)
  1595. )
  1596.  
  1597. (if (= install_type install_type_minimum)
  1598.  
  1599.     (set install_optional 0)
  1600. )
  1601.  
  1602. (if (= install_type install_type_user)
  1603.  
  1604.     (set install_optional
  1605.  
  1606.         (askoptions
  1607.  
  1608.             (prompt #golded_select_optional)
  1609.             (help   #golded_select_optional_help)
  1610.  
  1611.             (default install_optional)
  1612.  
  1613.             (choices
  1614.  
  1615.                 #golded_select_parsers
  1616.                 #golded_select_hispeed
  1617.                 #golded_select_appicon
  1618.                 #golded_select_recover
  1619.                 #golded_select_order
  1620.                 #golded_select_api
  1621.                 #golded_select_sources
  1622.                 #golded_select_manual_e
  1623.                 #golded_select_manual_d
  1624.                 #golded_select_quickstarter
  1625.                 #golded_select_unlock
  1626.                 #golded_select_icons
  1627.             )
  1628.         )
  1629.     )
  1630. )
  1631.  
  1632. ; ----------------------------- Remove unwanted files --------------------------
  1633.  
  1634. (if (= 0 (bitand install_optional component_sources))
  1635.  
  1636.     (
  1637.  
  1638.         (run "delete golded:developer all quiet")
  1639.         (run "delete golded:tools/cat all quiet")
  1640.  
  1641.         (delete "golded:tools/cat.info")
  1642.     )
  1643. )
  1644.  
  1645. (if (= 0 (bitand install_optional component_parser))
  1646.  
  1647.     (run "delete golded:syntax/#? all quiet")
  1648. )
  1649.  
  1650. (if (= 0 (bitand install_optional component_hispeed))
  1651.  
  1652.     (
  1653.         (if (exists "hispeed:" (noreq))
  1654.  
  1655.             (run "assign HiSpeed: remove")
  1656.  
  1657.             (startup "HiSpeed"
  1658.  
  1659.                 (prompt  #golded_remove_hs)
  1660.                 (help    #golded_must_remove)
  1661.                 (command #golded_removed)
  1662.             )
  1663.         )
  1664.  
  1665.         (delete "golded:hispeed")
  1666.  
  1667.         (run "delete golded:tools/hispeed#? all quiet")
  1668.     )
  1669. )
  1670.  
  1671. (if (= 0 (bitand install_optional component_appicon))
  1672.  
  1673.     (delete "golded:appicon")
  1674. )
  1675.  
  1676. (if (= 0 (bitand install_optional component_recover))
  1677.  
  1678.     (delete "golded:recover")
  1679. )
  1680.  
  1681. (if (= 0 (bitand install_optional component_order))
  1682.  
  1683.     (delete "golded:order")
  1684. )
  1685.  
  1686. (if (= 0 (bitand install_optional component_api))
  1687.  
  1688.     (run "delete golded:api/(dock|rexx|spell|startup|mirror)#? all quiet")
  1689. )
  1690.  
  1691. (if (= 0 (bitand install_optional component_manual_e))
  1692.  
  1693.     (delete "golded:manual")
  1694. )
  1695.  
  1696. (if (= 0 (bitand install_optional component_manual_d))
  1697.  
  1698.     (delete "golded:anleitung")
  1699. )
  1700.  
  1701. (if (= 0 (bitand install_optional component_quickstarter))
  1702.  
  1703.     (delete "golded:ed")
  1704. )
  1705.  
  1706. (if (= 0 (bitand install_optional component_unlock))
  1707.  
  1708.     (delete "golded:unlock")
  1709. )
  1710.  
  1711. (if (= 0 (bitand install_optional component_icons))
  1712.  
  1713.     (
  1714.         (run "delete golded:toolbar/monochrome all quiet")
  1715.         (run "delete golded:toolbar/borderless all quiet")
  1716.     )
  1717. )
  1718.  
  1719. ; --------------------------------- Arrange icons ------------------------------
  1720.  
  1721. ; arrange icons
  1722.  
  1723. (run "golded:goldeddata/installdata/bin/moveicons QUIET GAP FILES=GoldED ED AppIcon Anleitung Manual Manuel DIR=golded:")
  1724. (run "golded:goldeddata/installdata/bin/moveicons QUIET GAP FILES=HiSpeed Recover Unlock Order DIR=golded:")
  1725.  
  1726. (run "golded:goldeddata/installdata/bin/moveicons DIR=golded:tools GRID DX=0 DY=27 COLUMNS=1")
  1727. (run "golded:goldeddata/installdata/bin/moveicons DIR=golded:api   GRID DX=0 DY=45 COLUMNS=1")
  1728.  
  1729. ; ---------------------------------- QuickStarter ------------------------------
  1730.  
  1731. (if (bitand install_optional component_quickstarter)
  1732.  
  1733.     (
  1734.         (set quick_starter_name (askstring
  1735.  
  1736.             (prompt #golded_quickname)
  1737.             (help   #golded_quickname_help)
  1738.  
  1739.             (default "ED")
  1740.         ))
  1741.  
  1742.         (if (= quick_starter_name "")
  1743.  
  1744.             (set quick_starter_name "ED")
  1745.             (set quick_starter_name (fileonly quick_starter_name))
  1746.         )
  1747.  
  1748.         (set quick_starter_dir (askdir
  1749.  
  1750.             (prompt #golded_place_quick)
  1751.             (help   #golded_place_quick_help)
  1752.  
  1753.             (default "C:")
  1754.         ))
  1755.  
  1756.         ; patch quickstarter to allow it running GoldED without GOLDED: assign
  1757.  
  1758.         (run (cat "golded:goldeddata/installdata/bin/patch file=golded:ed find=$GOLDED INSERT=\"" (expandpath "golded:") "\""))
  1759.  
  1760.         (copyfiles
  1761.  
  1762.             (source  "golded:ed")
  1763.             (dest     quick_starter_dir)
  1764.             (newname  quick_starter_name)
  1765.             (nogauge)
  1766.         )
  1767.  
  1768.         (set quickstarter (tackon quick_starter_dir quick_starter_name))
  1769.  
  1770.     )
  1771. )
  1772.  
  1773. ; ----------------------------- Standard configuration -------------------------
  1774.  
  1775. (if (= @language "english" ) (set menu_language 0))
  1776. (if (= @language "deutsch" ) (set menu_language 1))
  1777. (if (= @language "italiano") (set menu_language 2))
  1778.  
  1779. (if (exists "golded:registry/registry")
  1780.  
  1781.     (
  1782.         (set install_presets
  1783.  
  1784.             (askchoice
  1785.  
  1786.                 (prompt #install_presets)
  1787.                 (help   #install_presets_help)
  1788.  
  1789.                 (default install_presets_keep)
  1790.  
  1791.                 (choices
  1792.  
  1793.                     #install_presets_install
  1794.                     #install_presets_keep
  1795.                 )
  1796.             )
  1797.         )
  1798.     )
  1799.  
  1800.     (
  1801.         (copyfiles
  1802.  
  1803.             (source "golded:goldeddata/installdata/registry/registry")
  1804.             (dest   "golded:registry")
  1805.             (nogauge)
  1806.         )
  1807.  
  1808.         (set install_presets install_presets_again)
  1809.     )
  1810. )
  1811.  
  1812. (if (= install_presets install_presets_again)
  1813.  
  1814.     (
  1815.  
  1816.         (copyfiles
  1817.  
  1818.             (source "golded:goldeddata/installdata/registry/presets/standard")
  1819.             (dest   "golded:registry/presets")
  1820.             (all)
  1821.             (nogauge)
  1822.         )
  1823.  
  1824.         (set menu_language (askchoice
  1825.  
  1826.             (prompt #golded_what_menu)
  1827.             (help   #golded_what_menu_help)
  1828.  
  1829.             (choices
  1830.  
  1831.                 "English"
  1832.                 "Deutsch"
  1833.                 "Italiano"
  1834.             )
  1835.  
  1836.             (default menu_language)
  1837.         ))
  1838.  
  1839.         (if (= menu_language 0) (set menu_preset "golded:goldeddata/installdata/registry/presets/special/standard.menu.e"))
  1840.         (if (= menu_language 1) (set menu_preset "golded:goldeddata/installdata/registry/presets/special/standard.menu.d"))
  1841.         (if (= menu_language 2) (set menu_preset "golded:goldeddata/installdata/registry/presets/special/standard.menu.i"))
  1842.  
  1843.         (copyfiles
  1844.  
  1845.             (source  menu_preset)
  1846.             (dest    "golded:registry/presets")
  1847.             (newname "standard.menu")
  1848.             (nogauge)
  1849.         )
  1850.  
  1851.         (set screen_mode (askchoice
  1852.  
  1853.             (prompt #golded_screen)
  1854.             (help   #golded_screen_help)
  1855.  
  1856.             (choices
  1857.  
  1858.                 #golded_screen_wb
  1859.                 #golded_screen_ntsc_i
  1860.                 #golded_screen_pal_i
  1861.             )
  1862.  
  1863.             (default screen_workbench)
  1864.         ))
  1865.  
  1866.         (if (= screen_mode screen_workbench)
  1867.  
  1868.             (copyfiles
  1869.  
  1870.                 (source  "golded:goldeddata/installdata/registry/presets/special/standard.display.wb")
  1871.                 (dest    "golded:registry/presets")
  1872.                 (newname "standard.display")
  1873.                 (nogauge)
  1874.             )
  1875.  
  1876.             (
  1877.                 (set screen_layout (askchoice
  1878.  
  1879.                     (prompt #golded_look_feel)
  1880.                     (help   #golded_look_feel_help)
  1881.  
  1882.                     (default 1)
  1883.  
  1884.                     (choices
  1885.  
  1886.                         #golded_mode_blue
  1887.                         #golded_mode_stone
  1888.                         #golded_mode_desktop
  1889.                     )
  1890.                 ))
  1891.  
  1892.                 (if (= screen_layout 0) (set preset_display "golded:goldeddata/installdata/registry/presets/special/standard.display.2"))
  1893.                 (if (= screen_layout 1) (set preset_display "golded:goldeddata/installdata/registry/presets/special/standard.display.4"))
  1894.                 (if (= screen_layout 2) (set preset_display "golded:goldeddata/installdata/registry/presets/special/standard.display.8"))
  1895.  
  1896.                 (if (= screen_mode 1)
  1897.  
  1898.                     (set preset_display (cat preset_display "n"))
  1899.                     (set preset_display (cat preset_display "p"))
  1900.                 )
  1901.  
  1902.                 (set preset_display (cat preset_display "i"))
  1903.  
  1904.                 (copyfiles
  1905.  
  1906.                     (source  preset_display)
  1907.                     (dest    "golded:registry/presets")
  1908.                     (newname "standard.display")
  1909.                     (nogauge)
  1910.                 )
  1911.             )
  1912.         )
  1913.     )
  1914. )
  1915.  
  1916. ; ------------------------------ Modify user-startup -------------------------
  1917.  
  1918. (if (not (exists "s:user-startup"))
  1919.  
  1920.     (message #golded_warn_userstartup)
  1921. )
  1922.  
  1923. (startup "GoldED"
  1924.  
  1925.     (prompt #golded_add_ged_assign)
  1926.     (help   #golded_add_ged_assign_help)
  1927.  
  1928.     (command  ("ASSIGN >NIL: GOLDED: %s" install_dir))
  1929. )
  1930.  
  1931. (if (bitand install_optional component_quickstarter)
  1932.  
  1933.     (startup "GED_quick"
  1934.  
  1935.         (prompt #golded_quick_resident)
  1936.         (help   #golded_quick_resident_help)
  1937.  
  1938.         (command ("resident %s pure" quickstarter))
  1939.     )
  1940. )
  1941.  
  1942. (if (bitand install_optional component_hispeed)
  1943.  
  1944.     (
  1945.         (startup "HiSpeed"
  1946.  
  1947.             (prompt #golded_hs_assign)
  1948.             (help   #golded_hs_assign_help)
  1949.  
  1950.             (command ("ASSIGN >NIL: HISPEED: GOLDED:TOOLS/HISPEED"))
  1951.         )
  1952.  
  1953.         (makeassign "HiSpeed" "golded:tools/hispeed")
  1954.     )
  1955. )
  1956.  
  1957. ; ------------------------------------- Done -----------------------------------
  1958.  
  1959. ; stop Describe presentation
  1960.  
  1961. (run "golded:goldeddata/installdata/bin/sync COMMAND=QUIT")
  1962.  
  1963. (working #golded_removing_temp_files)
  1964.  
  1965. (if (= golded_install_debug 0)
  1966.  
  1967.     (run "delete golded:goldeddata#? all quiet")
  1968. )
  1969.  
  1970. (complete 100)
  1971.  
  1972. (if (= install_mode install_mode_remove)
  1973.  
  1974.     (exit (quiet))
  1975.  
  1976.     (
  1977.         ; set return code
  1978.  
  1979.         (textfile (dest "env:GOLDEDINSTALL") (append "OK"))
  1980.  
  1981.         (exit #golded_complete)
  1982.     )
  1983. )
  1984.