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