home *** CD-ROM | disk | FTP | other *** search
/ Da Capo / da_capo_vol1.bin / install < prev    next >
Text File  |  1995-05-19  |  21KB  |  642 lines
  1. ; Installer program for da capo Volume 1 CD.
  2. ; Written by Fred Fish, Amiga Library Services.
  3. ; This script is public domain.     Use it for any purpose you wish.
  4.  
  5. ; Make the system aware of some useful datatypes that we can use.
  6.  
  7. (procedure AddDataTypes
  8.     (set datatypes
  9.         (askoptions
  10.             (prompt ask_select_datatypes)
  11.             (help help_select_datatypes)
  12.             (choices
  13.                 "AIFF"
  14.                 "AU"
  15.                 "VOC"
  16.                 "WAVE"
  17.             )
  18.         )
  19.     )
  20.     (if (<> 0 datatypes)
  21.         (
  22.             (textfile
  23.                 (dest tmpfile)
  24.                 (append ("assign devs: %s:devs add\n" volname))
  25.                 (append ("assign libs: %s:classes add\n" volname)))
  26.             (if (= 1 debugflag) (debug "execute" tmpfile))
  27.             (execute tmpfile)
  28.             (delete tmpfile)
  29.             (set i 0)
  30.             (while
  31.                 (set datatype
  32.                     (select i
  33.                         "AIFF"
  34.                         "AU"
  35.                         "VOC"
  36.                         "WAVE"
  37.                         ""
  38.                     )
  39.                 )
  40.                 (if (IN datatypes i)
  41.                     (
  42.                         (textfile
  43.                             (dest tmpfile)
  44.                             (append ("c:AddDataTypes FILES %s:devs/datatypes/%s\n" volname datatype))
  45.                             (if (= 1 debugflag) (debug "add datatype" datatype))
  46.                         )
  47.                         (execute tmpfile)
  48.                         (delete tmpfile)
  49.                     )
  50.                 )
  51.                 (set i (+ i 1))
  52.             )
  53.         )
  54.     )
  55. )
  56.  
  57.  
  58. ; Select the user's desired language to use during installation.
  59. ;
  60. ; This is also where all the language dependent strings get defined.
  61. ; To install support for a new language, just add the appropriate
  62. ; language selection and install the strings for that language.
  63.  
  64. (procedure SelectLanguage
  65.     (if (patmatch @language "English") (set lang 0))
  66.     (if (patmatch @language "Deutsch") (set lang 1))
  67.     (set langval
  68.         (askchoice
  69.             (prompt    (cat    "Select your native language.\n"
  70.                     "Bitte waehlen Sie die Sprache aus."))
  71.             (help (cat    "You can choose a language for prompts and help.\n\n"
  72.                     "Sie koennen eine Sprache fuer die Anweisungen und die Hilfe auswaehlen.")) 
  73.             (choices
  74.                 "English"
  75.                 "Deutsch"
  76.             )
  77.             (default lang)
  78.         )
  79.     
  80.     )
  81.  
  82.     (set @language
  83.         (select langval
  84.             ("English")
  85.             ("Deutsch")))
  86.     
  87.     (set yes
  88.         (select langval
  89.             ("Yes")
  90.             ("Ja")))
  91.  
  92.     (set no
  93.         (select langval
  94.             ("No")
  95.             ("Nein")))
  96.  
  97.     (set msg_hello
  98.         (select langval
  99.             (cat    "Hello, and welcome to the 'da capo' volume 1 CD.\n\n"
  100.                 "Before using this CD you should run this installer script. "
  101.                 "It will make no permanent changes to your system without asking "
  102.                 "you first.  If you do not agree to the change, a simple reboot "
  103.                 "will always restore your system to the state it was in prior "
  104.                 "to running this install script.\n\n"
  105.                 "Every requester has help available via the Help gadget.")
  106.             (cat    "Vor der Benutzung dieser CD-ROM, sollten Sie dieses "
  107.                 "Skript laufen lassen. Es wird keine Veränderungen "
  108.                 "an ihrem, ohne ihre ausdrückliche Genehmigung vornehmen. "
  109.                 "Es nimmt keine permanenten Veraenderungen vor, so dass ein "
  110.                 "einfach Reboot die Einstellungen wieder rueckgaengig macht.")))
  111.  
  112.     (set ask_select_metatoolprefs
  113.         (select langval
  114.             (cat    "Select a MetaTool preferences file from which to read default settings. "
  115.                 "This file will also be where the new preferences are written if "
  116.                 "you agree later to having them preserved.")
  117.             (cat    "Waehlen Sie die MetaTool Einstellungsdatei aus, von der die Einstellungen "
  118.                 "gelesen werden sollen. In diese Datei werden spaeter auch die neuen "
  119.                 "Einstellungen gespeichert, falls Sie das wuenschen.")))
  120.  
  121.     (set help_select_metatoolprefs
  122.         (select langval
  123.             (cat    "Please select a file for your MetaTool preferences.\n\n"
  124.                 "If the file exists, default preferences will be extracted "
  125.                 "from it and you will have the opportunity later to change them.\n\n"
  126.                 "The file you select will be rebuilt, or created if it does "
  127.                 "not currently exist, using default preferences or preferences "
  128.                 "that you specify later.")
  129.             (cat    "Bitte waehlen Sie eine Datei fuer ihre MetaTool Voreinstellungen aus.\n\n"
  130.                 "Falls die Datei bereits existiert, werden die Voreinstellungen ausgelesen "
  131.                 "und Sie werden spaeter die Moeglichkeit haben, diese zu aendern.\n\n"
  132.                 "Diese Datei wird erzeugt, falls sie noch nicht existiert, und es werden "
  133.                 "entweder die voreingestellten Werte oder die von Ihnen eingetragenen Werte "
  134.                 "gespeichert.")))
  135.  
  136.     (set ask_select_datatypes
  137.         (select langval
  138.             (cat    "This CD contains some datatypes that will allow you to play "
  139.                 "the instrument sound samples with MultiView. "
  140.                 "Please select which datatypes you wish to make available to "
  141.                 "your system.")
  142.             (cat    "Diese CD enthält einige Datatypes, die es ihnen erlauben, "
  143.                 "die Instrumente unter Multiview abzuspielen. Wählen Sie bitte "
  144.                 "aus, welche Datatypes ihr System erkennen soll.")))
  145.  
  146.     (set help_select_datatypes
  147.         (select langval
  148.             (cat    "If you select any datatypes, the 'devs' directory on this CD "
  149.                 "will be added to your DEVS: assignment with a multi-assign, "
  150.                 "the 'classes' directory will be added to your LIBS: "
  151.                 "assignment, and the datatypes will be added with the "
  152.                 "AddDataTypes command.\n\n"
  153.                 "These changes will not permanently affect your system. "
  154.                 "After your next reboot everything will be as it was before. "
  155.                 "If you already have these datatypes installed, it is not necessary "
  156.                 "to add these to your system and you can skip this step or "
  157.                 "deselect the datatypes that are already installed.")
  158.             (cat    "Wenn Sie Datatypes auswählen, wird das 'devs' Verzeichnis auf "
  159.                 "dieser CD (über ein Multiassign) zu ihrem DEVS: Verzeichnis "
  160.                 "hinzugefügt. Das gleiche gilt für das Verzeichnis 'Classes'. Die "
  161.                 "Datatypes werden mit dem AddDataTypes Befehl eingebunden. "
  162.                 "Nach dem nächsten Start wird wieder alles so sein, wie vorher. Wenn "
  163.                 "Sie die Datatypes bereits installiert haben, müssen Sie diese nicht "
  164.                 "auswählen.")))
  165.  
  166.     (set ask_update_metatoolprefs
  167.         (select langval
  168.             (cat    "Do you wish to make changes to your MetaTool preferences "
  169.                 "permanent by updating your preferences file?")
  170.             (cat    "Moechten Sie die Aenderungen in ihren MetaTool Einstellungen "
  171.                 "permanent machen, in dem Sie die Datei updaten?")))
  172.  
  173.     (set help_update_metatoolprefs
  174.         (select langval
  175.             (cat    "If you select Yes, the new preferences will be copied to your "
  176.                 "selected preferences file and "
  177.                 "ENV:METACONFIG and ENVARC:METACONFIG will be updated "
  178.                 "accordingly so that the next time you reboot you will "
  179.                 "still get the new preferences file.\n\n"
  180.                 "If you select No, MetaTool will use the preferences file "
  181.                 ramprefs
  182.                 " and will set ENV:METACONFIG to point to that file. "
  183.                 "The first time you reboot, everything will be as it was before.")
  184.             (cat    "Wenn Sie Ja auswaehlen, dann werden die neuen Einstellungen in Ihre "
  185.                 "ausgewaehlte Datei geschrieben und ENV:METACONFIG und ENVARC:METACONFIG "
  186.                 "werden geupdatet, so dass Sie beim naechsten Start die neuen Einstellungen "
  187.                 "zur Verfuegung haben.\n\n"
  188.                 "Wenn Sie Nein waehlen, wird MetaTool die Voreinstellungs-Datei ramprefs "
  189.                 "benutzen und ENV:METACONFIG auf diese Datei ansetzen."
  190.                 "Nach einem Reboot wird alles wieder so sein, wie es davor war.")))
  191.  
  192.     (set ask_cli_or_workbench
  193.         (select langval
  194.             (cat    "Run a CLI or WorkBench command for file type")
  195.             (cat    "Starten Sie eine CLI oder Workbench-Befehl fuer die Dateiart")))
  196.  
  197.     (set help_cli_or_workbench
  198.         (select langval
  199.             (cat    "MetaTool can run either a CLI or WorkBench command.\n\n"
  200.                 "If you select CLI, you will be prompted for the CLI command line to run. "
  201.                 "If you select WorkBench, a requester will let you select a command to run.")
  202.             (cat    "MetaTool kann entweder ein CLI oder Workbench Befehl starten.\n\n."
  203.                 "Wenn Sie CLI waehlen, muessen Sie eine CLI Befehlszeile eingeben. "
  204.                 "Wenn Sie Workbench auswaehlen, erscheint ein Requester, in dem Sie "
  205.                 "das Programm auswaehlen koennen.")))
  206.  
  207.     (set ask_specify_Workbench_command
  208.         (select langval
  209.             (cat    "Select Workbench command to run for file type")
  210.             (cat    "Waehlen Sie Workbench Befehl fuer Dateityp aus")))
  211.  
  212.     (set help_specify_Workbench_command
  213.         (select langval
  214.             (cat    "You can either accept the default command to run, or select/enter "
  215.                 "another command to be run.")
  216.             (cat    "Sie koennen entweder den voreigestellten Befehl annehmen, oder einen "
  217.                 "anderen Befehl auswaeh