home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Disk&HD / BB-RDBSA.LZX / RDB-Salv / Install < prev    next >
Encoding:
Text File  |  1996-05-17  |  26.2 KB  |  926 lines
  1. ;$VER: RDB-Salv-Install 1.00 (17-May-96)
  2. ;
  3.  
  4. (set txt_lang_0 "Deutsch")    (set txt_langdir_0 "deutsch")
  5. (set txt_lang_1 "English")    (set txt_langdir_1 "english")
  6. (set txt_lang_2 "Français")   (set txt_langdir_2 "français")
  7. (set txt_lang_3 "Nederlands") (set txt_langdir_3 "nederlands")
  8. (set txt_lang_4 "Norsk")      (set txt_langdir_4 "norsk")
  9. (set txt_lang_5 "Svenska")    (set txt_langdir_5 "svenska")
  10. (set txt_lang_6 "")           (set txt_langdir_6 "")
  11. (set txt_lang_7 "")           (set txt_langdir_7 "")
  12. (set txt_lang_8 "")           (set txt_langdir_8 "")
  13. (set txt_lang_9 "")           (set txt_langdir_9 "")
  14.  
  15. (set numlangs 6)
  16.  
  17. (set langnum
  18.     (askchoice
  19.         (prompt "Choose the language to be used in this installer script.")
  20.         (help @askchoice-help)
  21.         (choices
  22.             txt_lang_0
  23.             txt_lang_1
  24.             txt_lang_2
  25.             txt_lang_3
  26.             txt_lang_4
  27.             txt_lang_5
  28.         )
  29.         (default
  30.             (if (patmatch @language txt_lang_0)
  31.                 0
  32.                 (if (patmatch @language txt_lang_1)
  33.                     1
  34.                     (if (patmatch @language txt_lang_2)
  35.                         2
  36.                         (if (patmatch @language txt_lang_3)
  37.                             3
  38.                             (if (patmatch @language txt_lang_4)
  39.                                 4
  40.                                 (if (patmatch @language txt_lang_5)
  41.                                     5
  42.                                     1    ; English
  43.                                 )
  44.                             )
  45.                         )
  46.                     )
  47.                 )
  48.             )
  49.         )
  50.     )
  51. )
  52.  
  53. (if (= langnum 0) (set langstring txt_lang_0))
  54. (if (= langnum 1) (set langstring txt_lang_1))
  55. (if (= langnum 2) (set langstring txt_lang_2))
  56. (if (= langnum 3) (set langstring txt_lang_3))
  57. (if (= langnum 4) (set langstring txt_lang_4))
  58. (if (= langnum 5) (set langstring txt_lang_5))
  59. (if (= langnum 6) (set langstring txt_lang_6))
  60. (if (= langnum 7) (set langstring txt_lang_7))
  61. (if (= langnum 8) (set langstring txt_lang_8))
  62. (if (= langnum 9) (set langstring txt_lang_9))
  63.  
  64.  
  65. ; Set default strings
  66.  
  67. (set txt_choose_rdbsalv_directory
  68.     ("%s%s"
  69.         "Please choose the destination directory for RDB-Salv. "
  70.         "A drawer named \"RDB-Salv\" will be created there."
  71.     )
  72. )
  73. (set txt_which_languages_to_install
  74.     ("%s"
  75.         "Which languages do you want to install?"
  76.     )
  77. )
  78. (set txt_which_devicename 
  79.     ("%s%s"
  80.         "Please enter the name of the device you are usually using. "
  81.         "You MUST write this name in a CASE-SENSITIV way!"
  82.     )
  83. )
  84. (set txt_which_devicename_help
  85.     ("%s%s%s"
  86.         "The name requires the suffix .device. The device must be in memory at the moment. "
  87.         "If you don't know the name of the device, consult the manual of your harddisk controller "
  88.         "or SCSI hostadapter, please."
  89.     )
  90. )
  91. (set txt_device_not_there
  92.     ("%s%s"
  93.         "You may only choose a device which is already loaded into memory.\n"
  94.         "Sorry, but \"%s\" is not yet in memory."
  95.     )
  96. )
  97. (set txt_must_end_with_device
  98.     ("%s%s"
  99.         "A device always ends on \".device\". Please try again!\n"
  100.         "You have entered \"%s\"."
  101.     )
  102. )
  103. (set txt_which_unitnumber
  104.     ("%s"
  105.         "Please enter the number of the unit your drive is connected with."
  106.     )
  107. )
  108. (set txt_which_unitnumber_help
  109.     ("%s%s"
  110.         "If you are using more than one drive, use the number you're probably using more often. "
  111.         "If you don't know the unit number, enter 0."
  112.     )
  113. )
  114. (set txt_cannot_find_lang_docs
  115.     ("%s%s"
  116.         "Sorry, cannot find any docs for language \"%s\".\n\n"
  117.         "Installation of the docs of this language skipped."
  118.     )
  119. )
  120. (set txt_cannot_find_lang_catalogs
  121.     ("%s%s"
  122.         "Sorry, cannot find any catalogs for language \"%s\".\n\n"
  123.         "Installation of the catalogs of this language skipped."
  124.     )
  125. )
  126. (set txt_warning_unknown_device_etc
  127.     ("%s%s%s%s"
  128.         "Sorry, we could not test the device you are using and so the "
  129.         "best configuration cannot be set automatically. Please read the "
  130.         "installation chapter in the manual and follow the instrutions "
  131.         "which are described there."
  132.     )
  133. )
  134. (set txt_start_rdbtools_debug
  135.     ("%s%s%s%s%s%s"
  136.         "Do you have email access and do you want to support the future "
  137.         "development of RDB-Salv? Then, please allow a test program to be "
  138.         "started. It creates the file \"T:RDB-Tools-Mail\". Please send "
  139.         "this file to \"Angela.Schmidt@stud.uni-karlsruhe.de\", so this "
  140.         "installer script will be able to support your system much better in future.\n\n"
  141.         "Do you want the test program to be started?"
  142.     )
  143. )
  144. (set txt_start_rdbtools_debug_help
  145.     ("%s%s%s%s"
  146.         "This tool tests your device driver for bugs. This allows some "
  147.         "workaround to be written in future. The commands TD_GETGEOMETRY, "
  148.         "HD_SCSICMD (to find out the media size) and CMD_READ will be sent and "
  149.         "some a protocol will be written."
  150.     )
  151. )
  152. (set txt_start_rdbtools_debug_thanx
  153.     ("%s%s"
  154.         "Thank you for your support. Please send now \"T:RDB-Tools-Mail\" to "
  155.         "\"Angela.Schmidt@stud.uni-karlsruhe.de\"."
  156.     )
  157. )
  158.  
  159. ;(if (patmatch langstring "English")
  160. ;    (
  161. ;        ; default strings set above
  162. ;    )
  163. ;)
  164. (if (patmatch langstring "Deutsch")
  165.     (
  166.         (set txt_choose_rdbsalv_directory
  167.             ("%s%s"
  168.                 "Bitte wählen Sie das Zielverzeichnis für RDB-Salv. "
  169.                 "Es wird ein eigener Ordner mit dem Namen \"RDB-Salv\" angelegt."
  170.             )
  171.         )
  172.         (set txt_which_languages_to_install
  173.             ("%s"
  174.                 "Welche Sprachen möchten Sie installieren?"
  175.             )
  176.         )
  177.         (set txt_which_devicename 
  178.             ("%s%s"
  179.                 "Bitte geben Sie den Namen des Gerätes (Devices) ein, das Sie normalerweise verwenden. "
  180.                 "Bitte beachten Sie UNBEDINGT, daß Sie die Groß-/Kleinschreibung EXAKT einhalten!"
  181.             )
  182.         )
  183.         (set txt_which_devicename_help
  184.             ("%s%s%s"
  185.                 "Der Name muß auf .device enden. Das Gerät muß momentan angemeldet sein. "
  186.                 "Falls Sie den Geräte-Namen nicht kennen, schlagen Sie bitte im Handbuch "
  187.                 "Ihres Festplattencontrollers/Hostadapters nach."
  188.             )
  189.         )
  190.         (set txt_device_not_there
  191.             ("%s%s"
  192.                 "Sie können nur ein Device wählen, das bereits in den Speicher geladen wurde.\n"
  193.                 "\"%s\" ist leider noch nicht im Speicher."
  194.             )
  195.         )
  196.         (set txt_must_end_with_device
  197.             ("%s%s"
  198.                 "Ein Gerätetreiber (Device) endet immer auf \".device\". Bitte nochmal probieren!\n"
  199.                 "Sie haben \"%s\" eingegeben."
  200.             )
  201.         )
  202.         (set txt_which_unitnumber
  203.             ("%s"
  204.                 "Bitte geben Sie ein, unter welcher Gerätenummer (Unit) Ihre Festplatte angeschlossen ist."
  205.             )
  206.         )
  207.         (set txt_which_unitnumber_help
  208.             ("%s%s"
  209.                 "Falls Sie mehrere Festplatten haben, geben Sie die voraussichtlich am häufigsten "
  210.                 "benutzte Gerätenummer ein. Falls Sie die Gerätenummer nicht kennen, geben Sie 0 ein."
  211.             )
  212.         )
  213.         (set txt_cannot_find_lang_docs
  214.             ("%s%s"
  215.                 "Die Anleitung für die Sprache \"%s\" kann leider nicht gefunden werden.\n\n"
  216.                 "Die Installation der Anleitung dieser Sprache wurde übersprungen."
  217.             )
  218.         )
  219.         (set txt_cannot_find_lang_catalogs
  220.             ("%s%s"
  221.                 "Der Katalog für die Sprache \"%s\" kann leider nicht gefunden werden.\n\n"
  222.                 "Die Installation des Katalogs dieser Sprache wurde übersprungen."
  223.             )
  224.         )
  225.         (set txt_warning_unknown_device_etc
  226.             ("%s%s%s%s"
  227.                 "Leider konnten wir das von Ihnen verwendete Gerät nicht ausprobieren. "
  228.                 "Daher können die idealen Einstellungen nicht automatisch gesetzt werden. "
  229.                 "Bitte lesen Sie im Handbuch das Installations-Kapitel und befolgen Sie die "
  230.                 "dort beschriebenen weiteren Anweisungen."
  231.             )
  232.         )
  233.         (set txt_start_rdbtools_debug
  234.             ("%s%s%s%s%s%s"
  235.                 "Haben Sie EMail-Zugang und möchten Sie die zukünftige Entwicklung von "
  236.                 "RDB-Salv unterstützen? Dann erlauben Sie bitte, daß ein Test-Programm "
  237.                 "gestartet wird, das die Datei \"T:RDB-Tools-Mail\" erzeugt. Schicken Sie "
  238.                 "diese Datei dann bitte an \"Angela.Schmidt@stud.uni-karlsruhe.de\", "
  239.                 "damit dieses Installer-Script Ihr System in Zukunft besser unterstützen kann.\n\n"
  240.                 "Soll das Test-Programm gestartet werden?"
  241.             )
  242.         )
  243.         (set txt_start_rdbtools_debug_help
  244.             ("%s%s%s%s"
  245.                 "Dieses Tool testet Ihren Gerätetreiber auf Unzulänglichkeiten, damit diese "
  246.                 "in Zukunft umgangen werden können. Es werden die Befehle TD_GETGEOMETRY, "
  247.                 "HD_SCSICMD (zum Herausfinden der Plattengröße) und CMD_READ abgeschickt und "
  248.                 "einige Daten protokolliert."
  249.             )
  250.         )
  251.         (set txt_start_rdbtools_debug_thanx
  252.             ("%s%s"
  253.                 "Vielen Dank für Ihre Unterstützung. Schicken Sie \"T:RDB-Tools-Mail\" nun "
  254.                 "bitte an \"Angela.Schmidt@stud.uni-karlsruhe.de\"."
  255.             )
  256.         )
  257.     )
  258. )
  259. (if (patmatch langstring "Français")
  260.     (
  261.         (set txt_choose_rdbsalv_directory
  262.             ("%s%s"
  263.                 "Veuillez choisir le répertoire de destination pour RDB-Salv. "
  264.                 "Un tiroir nommé \"RDB-Salv\" y sera créé."
  265.             )
  266.         )
  267.         (set txt_which_languages_to_install
  268.             ("%s"
  269.                 "Quelles langues voulez-vous installer ?"
  270.             )
  271.         )
  272.         (set txt_which_devicename 
  273.             ("%s%s"
  274.                 "Veuillez entrer le nom du périphérique que utilisez d'habitude. "
  275.                 "Vous DEVEZ écrire ce nom en TENANT COMPTE DES MAJUSCULES !"
  276.             )
  277.         )
  278.         (set txt_which_devicename_help
  279.             ("%s%s%s"
  280.                 "Le suffixe .device est nécessaire pour ce nom. Le périphérique doit être en mémoire actuellement. "
  281.                 "Si vous ne connaissez pas ce nom, veuillez consulter le manuel de votre contrôleur "
  282.                 " de disque dur ou contrôleur SCSI."
  283.             )
  284.         )
  285.         (set txt_device_not_there
  286.             ("%s%s"
  287.                 "Vous ne pouvez choisir qu'un périphérique qui est déjà chargé en mémoire.\n"
  288.                 "Désolé, mais \"%s\" n'est pas encore en mémoire."
  289.             )
  290.         )
  291.         (set txt_must_end_with_device
  292.             ("%s%s"
  293.                 "Le nom d'un pilote de périphérique se termine toujours par \".device\". Veuillez réessayer !\n"
  294.                 "Vous avez entré \"%s\"."
  295.             )
  296.         )
  297.         (set txt_which_unitnumber
  298.             ("%s"
  299.                 "Veuillez entrer le numéro d'unité sous lequel votre disque est connecté."
  300.             )
  301.         )
  302.         (set txt_which_unitnumber_help
  303.             ("%s%s"
  304.                 "Si vous utilisez plus d'un seul disque, donnez le numéro que vous emploierez le plus souvent. "
  305.                 "Si vous ne connaissez pas le numéro d'unité, entrez 0."
  306.             )
  307.         )
  308.         (set txt_cannot_find_lang_docs
  309.             ("%s%s"
  310.                 "Désolé, impossible de trouver de documentation dans la langue \"%s\".\n\n"
  311.                 "L'installation de la documentation dans cette langue est ignorée."
  312.             )
  313.         )
  314.         (set txt_cannot_find_lang_catalogs
  315.             ("%s%s"
  316.                 "Désolé, impossible de trouver de catalogue dans la langue \"%s\".\n\n"
  317.                 "L'installation du catalogue dans cette langue est ignorée."
  318.             )
  319.         )
  320.         (set txt_warning_unknown_device_etc
  321.             ("%s%s%s%s"
  322.                 "Désolé, nous n'avons pas pu tester le périphérique indiqué et la meilleure "
  323.                 "configuration ne peut donc pas être trouvée automatiquement. Veuillez lire "
  324.                 "le chapitre sur l'installation dans le manuel et suivre les instrutions "
  325.                 "qui y sont décrites."
  326.             )
  327.         )
  328.         (set txt_start_rdbtools_debug
  329.             ("%s%s%s%s%s%s"
  330.                 "Avez-vous accès au courrier électronique et voulez-vous soutenir le développement "
  331.                 "futur de RDB-Salv ? Dans ce cas, veuillez permettre le lancement d'un programme de "
  332.                 "test. Il crée le fichier \"T:RDB-Tools-Mail\". Veuillez envoyer ce fichier "
  333.                 "à \"Angela.Schmidt@stud.uni-karlsruhe.de\", de sorte que ce script "
  334.                 "d'installation soit capable de mieux reconnaître votre système à l'avenir.\n\n"
  335.                 "Désirez-vous que le programme de test soit lancé ?"
  336.             )
  337.         )
  338.         (set txt_start_rdbtools_debug_help
  339.             ("%s%s%s%s"
  340.                 "Cet outil recherche d'éventuelles bogues dans votre pilote de périphériques. "
  341.                 "Ce qui permettra dans le futur de concevoir des astuces les contournant. Les "
  342.                 "commandes TD_GETGEOMETRY, HD_SCSICMD (afin de déterminer la taille du support) "
  343.                 "et CMD_READ seront envoyées afin de pouvoir écrire un protocole."
  344.             )
  345.         )
  346.         (set txt_start_rdbtools_debug_thanx
  347.             ("%s%s"
  348.                 "Merci de votre soutien. Veuillez envoyer maintenant \"T:RDB-Tools-Mail\" à "
  349.                 "\"Angela.Schmidt@stud.uni-karlsruhe.de\"."
  350.             )
  351.         )
  352.     )
  353. )
  354. (if (patmatch langstring "Norsk")
  355.     (
  356.         (set txt_choose_rdbsalv_directory
  357.             ("%s%s"
  358.                 "Vennligst velg en katalog å plassere RDB-Salv i. "
  359.                 "En katalog med navn \"RDB-Salv\" vil bli opprettet der."
  360.             )
  361.         )
  362.         (set txt_which_languages_to_install
  363.             ("%s"
  364.                 "Hvilke språk vil du installere?"
  365.             )
  366.         )
  367.         (set txt_which_devicename 
  368.             ("%s%s"
  369.                 "Vennligst skriv inn navnet på den enheten du vanligvis bruker. "
  370.                 "Du MÅ skrive inn navnet korrekt med tanke på STORE og små bokstaver!"
  371.             )
  372.         )
  373.         (set txt_which_devicename_help
  374.             ("%s%s%s"
  375.                 "Navnet må ha etternavnet .device. Enheten må være i minnet på det nåværende tidspunkt. "
  376.                 "Hvis du ikke vet navnet på enheten, konsulter manualen til harddisk-kontrolleren "
  377.                 "eller SCSI vertskortet ditt."
  378.             )
  379.         )
  380.         (set txt_device_not_there
  381.             ("%s%s"
  382.                 "Du kan kun velge en enhet som allerede er lastet inn i minnet.\n"
  383.                 "Beklager, men \"%s\" er ikke i minnet på det nåværende tidspunkt."
  384.             )
  385.         )
  386.         (set txt_must_end_with_device
  387.             ("%s%s"
  388.                 "En enhet må alltid slutte på \".device\". Vennligst prøv igjen!\n"
  389.                 "Du skrev inn \"%s\"."
  390.             )
  391.         )
  392.         (set txt_which_unitnumber
  393.             ("%s"
  394.                 "Vennligst skriv inn nummeret på enheten som disken din er forbundet med."
  395.             )
  396.         )
  397.         (set txt_which_unitnumber_help
  398.             ("%s%s"
  399.                 "Hvis du bruker mere enn en disk, skriv det nummeret du bruker oftest. "
  400.                 "Hvis du ikke vet enhets-nummeret, skriv 0."
  401.             )
  402.         )
  403.         (set txt_cannot_find_lang_docs
  404.             ; *** This string is still subject to be translated!
  405.             ("%s%s"
  406.                 "Beklager, kunne ikke finne dokumentasjon for språket \"%s\".\n\n"
  407.                 "Installeringen av dokumentasjonen for dette språket hoppes over."
  408.             )
  409.         )
  410.         (set txt_cannot_find_lang_catalogs
  411.             ; *** This string is still subject to be translated!
  412.             ("%s%s"
  413.                 "Beklager kunne ikke finne språkfiler for språket \"%s\".\n\n"
  414.                 "Installeringen av dokumentasjonen for dette språket hoppes over."
  415.             )
  416.         )
  417.         (set txt_warning_unknown_device_etc
  418.             ("%s%s%s%s"
  419.                 "Beklager men vi kunne ikke teste enheten du bruker, og vi kan "
  420.                 "derfor ikke automatisk sette de perfekte innstillingene dine automatisk. Vennligst les "
  421.                 "innstallerings-kapittelet i manualen og følg instruksjonene "
  422.                 "som er beskrevet der."
  423.             )
  424.         )
  425.         (set txt_start_rdbtools_debug
  426.             ("%s%s%s%s%s%s"
  427.                 "Har du en EMail adresse og vil være med å støtte den videre fremtidige "
  428.                 "utviklingen av RDB-Salv? Da kan du vennligst tillate et testprogram "
  429.                 "å bli startet. Det lager filen \"T:RDB-Tools-Mail\". Vennligst send "
  430.                 "denne filen til \"Angela.Schmidt@stud.uni-karlsruhe.de\", så dette "
  431.                 "installerings-scriptet vil ha muligheten til å støtte ditt system bedre i fremtiden.\n\n"
  432.                 "Vil du starte testprogrammet nå?"
  433.             )
  434.         )
  435.         (set txt_start_rdbtools_debug_help
  436.             ("%s%s%s%s"
  437.                 "Dette programmet tester enheten din for \"bugs\". Dette muliggjør "
  438.                 "å lage en slags fiksing av dette i fremtiden. Kommandoene TD_GETGEOMETRY, "
  439.                 "HD_SCSICMD (for å finne ut lagringskapasiteten på mediet) og CMD_READ vil bli sendt og "
  440.                 "en loggfil vil bli skrevet."
  441.             )
  442.         )
  443.         (set txt_start_rdbtools_debug_thanx
  444.             ("%s%s"
  445.                 "Tusen takk for hjelpen. Vennligst send \"T:RDB-Tools-Mail\" til "
  446.                 "\"Angela.Schmidt@stud.uni-karlsruhe.de\"."
  447.             )
  448.         )
  449.     )
  450. )
  451. (if (patmatch langstring "Svenska")
  452.     (
  453.         (set txt_choose_rdbsalv_directory
  454.             ("%s%s"
  455.                 "Välj var du vill installera RDB-Salv. "
  456.                 "En låda kallad \"RDB-Salv\" kommer att skapas automatiskt."
  457.             )
  458.         )
  459.         (set txt_which_languages_to_install
  460.             ("%s"
  461.                 "Vilka språk vill du installera?"
  462.             )
  463.         )
  464.         (set txt_which_devicename 
  465.             ("%s%s"
  466.                 "Skriv in vilket device du normalt använder. "
  467.                 "Tänk på att det i det här fallet är skillnad mellan stora och små bokstäver!"
  468.             )
  469.         )
  470.         (set txt_which_devicename_help
  471.             ("%s%s%s"
  472.                 "Device-namnet måste sluta med \".device\". Devicet måste vara inladdat i minnet. "
  473.                 "Om du inte vet vilket device som gäller, se efter i manualen du fick med din "
  474.                 "hårddiskkontroller eller SCSI-hostadapter."
  475.             )
  476.         )
  477.         (set txt_device_not_there
  478.             ("%s%s"
  479.                 "Du kan bara välja ett device som för tillfället är inladdat i minnet.\n"
  480.                 "\"%s\" finns tyvärr inte i minnet."
  481.             )
  482.         )
  483.         (set txt_must_end_with_device
  484.             ("%s%s"
  485.                 "Ett device måste alltid sluta med \".device\". Försök igen.\n"
  486.                 "Du skrev \"%s\"."
  487.             )
  488.         )
  489.         (set txt_which_unitnumber
  490.             ("%s"
  491.                 "Skriv in vilket enhetsnummer din drive är ansluten som."
  492.             )
  493.         )
  494.         (set txt_which_unitnumber_help
  495.             ("%s%s"
  496.                 "Om du använder mer än en drive, skriv numret för den du tror att du använder oftast.\n"
  497.                 "Om du inte vet vilket nummer som gäller, skriv 0."
  498.             )
  499.         )
  500.         (set txt_cannot_find_lang_docs
  501.             ("%s%s"
  502.                 "Kan inte hitta manualen på \"%s\".\n\n"
  503.                 "Hoppar över installationen av manualen på detta språk."
  504.             )
  505.         )
  506.         (set txt_cannot_find_lang_catalogs
  507.             ("%s%s"
  508.                 "Kan inte hitta några kataloger på \"%s\".\n\n"
  509.                 "Hoppar över installationen av katalogerna på detta språk."
  510.             )
  511.         )
  512.         (set txt_warning_unknown_device_etc
  513.             ("%s%s%s%s"
  514.                 "Tyvärr kunde devicet du använder inte testas, och därför kan inte de "
  515.                 "optimala inställningarna göras automatiskt. "
  516.                 "När installationen är klar, läs kapitlet om installation i manualen, "
  517.                 "och följ dessa instruktioner."        
  518.             )
  519.         )
  520.         (set txt_start_rdbtools_debug
  521.             ("%s%s%s%s%s%s"
  522.                 "Har du tillgång till E-post och vill stödja den fortsatta utvecklingen av RDB-salv?\n"
  523.                 "Låt i så fall testprogrammet startas. Det skapar filen \T:RDB-Tools-Mail\". "
  524.                 "Skicka denna fil till \"Angela.Schmidt@stud.uni-karlsruhe.de\", "
  525.                 "så kommer den här installationsskripten att kunna stödja ditt system bättre "
  526.                 "i framtida versioner.\n\n"
  527.                 "Vill du starta testprogrammet?"
  528.             )
  529.         )
  530.         (set txt_start_rdbtools_debug_help
  531.             ("%s%s%s%s"
  532.                 "Detta program testar ditt device drivrutin efter buggar. Det ger möjlighet "
  533.                 "att på olika sätt ta sig runt dessa i framtiden. Kommandona TD_GETGEOMETRY, "
  534.                 "HD_SCSICMD (för att ta reda på mediats storlek) och CMD_READ kommer att ges, "
  535.                 "och resultaten kommer att protokollföras."
  536.             )
  537.         )
  538.         (set txt_start_rdbtools_debug_thanx
  539.             ("%s%s"
  540.                 "Tack för hjälpen! Skicka nu filen \"T:RDB-Tools-Mail\" "
  541.                 "till \"Angela.Schmidt@stud.uni-karlsruhe.de\"."
  542.             )
  543.         )
  544.     )
  545. )
  546. (if (patmatch langstring "Nederlands")
  547.     (
  548.         (set txt_choose_rdbsalv_directory
  549.             ("%s%s"
  550.                 "Kiest u alstublieft een plaats voor RDB-Salv. "
  551.                 "Een lade genaamd \"RDB-Salv\" wordt aangemaakt."
  552.             )
  553.         )
  554.         (set txt_which_languages_to_install
  555.             ("%s"
  556.                 "Welke talen wilt u installeren?"
  557.             )
  558.         )
  559.         (set txt_which_devicename 
  560.             ("%s%s"
  561.                 "Welk apparaat (.device) gebruikt u het meest? "
  562.                 "U MOET letten op hoofd/kleine letters!"
  563.             )
  564.         )
  565.         (set txt_which_devicename_help
  566.             ("%s%s%s"
  567.                 "De naam heeft de suffix .device. Het device moet nu in het geheugen zijn. "
  568.                 "Als u de naam niet weet, kijkt u dan in de handleiding van uw schijf "
  569.                 "of SCSI hostadapter, a.u.b."
  570.             )
  571.         )
  572.         (set txt_device_not_there
  573.             ("%s%s"
  574.                 "Het device MOET in het geheugen aanwezig zijn.\n"
  575.                 "Sorry, maar \"%s\" is (op dit moment) niet resident."
  576.             )
  577.         )
  578.         (set txt_must_end_with_device
  579.             ("%s%s"
  580.                 "Een device eindigt altijd op \".device\". Probeert u het nog een keer!\n"
  581.                 "U hebt \"%s\" ingevoerd."
  582.             )
  583.         )
  584.         (set txt_which_unitnumber
  585.             ("%s"
  586.                 "Geef nu aan onder welk unit-nummer uw harde schijf aangesloten is."
  587.             )
  588.         )
  589.         (set txt_which_unitnumber_help
  590.             ("%s%s"
  591.                 "Als u meerdere schijven hebt, gebruik dan het nummer van de schijf de u het meest gebruikt. "
  592.                 "Als u onzeker bent, kies dan 0."
  593.             )
  594.         )
  595.         (set txt_warning_unknown_device_etc
  596.             ("%s%s%s%s"
  597.                 "Sorry, we konden het apparaat niet testen en daardoor "
  598.                 "kon de optimale configuratie niet optimaal ingesteld worden. "
  599.                 "Leest u alstublieft het hoofdstuk over installatie in de handleiding "
  600.                 "en volg de instructies die daar staan."
  601.             )
  602.         )
  603.         (set txt_start_rdbtools_debug
  604.             ("%s%s%s%s%s%s"
  605.                 "Hebt u toegang tot e-mail en wilt u de ontwikkeling van RDB-Salv "
  606.                 "steunen? Laat dan alstublieft een test-programma starten. "
  607.                 "Het maakt het bestand \"T:RDB-Tools-Mail\" aan. Stuurt u dit "
  608.                 "bestand aan \"Angela.Schmidt@stud.uni-karlsruhe.de\", zodat dit "
  609.                 "installer script in de toekomst uw machine beter kan ondersteunen.\n\n"
  610.                 "Wilt u dit test-programma starten?"
  611.             )
  612.         )
  613.         (set txt_start_rdbtools_debug_help
  614.             ("%s%s%s%s"
  615.                 "Deze routine test ew device driver op bugs. Dit maakt het mogelijk "
  616.                 "in de toekomst een workaround te maken. De opdrachten TD_GETGEOMETRY, "
  617.                 "HD_SCSICMD (om de grootte van het medium te meten) en CMD_READ zullen gestuurd worden "
  618.                 "en een protocol zal worden geschreven."
  619.             )
  620.         )
  621.         (set txt_start_rdbtools_debug_thanx
  622.             ("%s%s"
  623.                 "Hartelijk dank voor uw steun. Stuurt u nu \"T:RDB-Tools-Mail\" naar "
  624.                 "\"Angela.Schmidt@stud.uni-karlsruhe.de\"."
  625.             )
  626.         )
  627.     )
  628. )
  629.  
  630. (set todir @default-dest)
  631. (set todir
  632.     (askdir
  633.         (prompt txt_choose_rdbsalv_directory)
  634.         (help @askdir-help)
  635.         (default todir)
  636.     )
  637. )
  638. (set newdir (tackon todir "RDB-Salv"))
  639. (makedir newdir (infos))
  640. (set @default-dest newdir)
  641.  
  642. (set i 0)
  643. (set langbits 0)
  644. (while (< i numlangs)
  645.     (
  646.         (set thislangdir (select i txt_langdir_0 txt_langdir_1 txt_langdir_2 txt_langdir_3 txt_langdir_4 txt_langdir_5 txt_langdir_6 txt_langdir_7 txt_langdir_8 txt_langdir_9))
  647.         (set langbits
  648.             (if
  649.                 (OR
  650.                     (OR
  651.                         (= 1 (exists ("doc_%s.lha" thislangdir)))
  652.                         (= 2 (exists (tackon "Catalogs" thislangdir)))
  653.                     )
  654.                     (= 2 (exists thislangdir))
  655.                 )
  656.                 ( ; then
  657.                     (+ langbits (shiftleft 1 i))
  658.                 )
  659.                 ( ; else
  660.                     (+ langbits 0)
  661.                 )
  662.             )
  663.         )
  664.         (set i (+ i 1))
  665.     )
  666. )
  667.  
  668.  
  669. (set langbits
  670.     (askoptions
  671.         (prompt txt_which_languages_to_install)
  672.         (help @askchoice-help)
  673.         (choices txt_lang_0 txt_lang_1 txt_lang_2 txt_lang_3 txt_lang_4 txt_lang_5)
  674.         (default langbits)
  675.     )
  676. )
  677.  
  678. (set devicename "none")
  679. (set vernum 0)
  680.  
  681. (until (AND (patmatch "#?.device" devicename) (<> vernum 0))
  682.     (set devicename
  683.         (askstring
  684.             (prompt txt_which_devicename)
  685.             (help txt_which_devicename_help)
  686.             (default "scsi.device")
  687.         )
  688.     )
  689.  
  690.     (set vernum (getversion devicename (resident)))
  691.     (set deviceversion (/ vernum 65536))
  692.     (set devicerevision (- vernum (* deviceversion 65536)))
  693.  
  694.     (if (patmatch "#?.device" devicename)
  695.         (
  696.             (if (= 0 vernum)
  697.                 (
  698.                     (message (txt_device_not_there devicename))
  699.                 )
  700.             )
  701.         )
  702.         ; else
  703.         (
  704.             (message (txt_must_end_with_device devicename))
  705.         )
  706.     )
  707. )
  708.  
  709. (set unitnumber
  710.     (asknumber
  711.         (prompt txt_which_unitnumber)
  712.         (help txt_which_unitnumber_help)
  713.         (default 0)
  714.     )
  715. )
  716.  
  717. (copyfiles
  718.     (source "")
  719.     (dest newdir)
  720.     (pattern "(RDB-Salv|RDB-Salv.info|rdbtools-debug|registerscript)")
  721.     (optional force)
  722. )
  723.  
  724. (set i 0)
  725. (while (< i numlangs)
  726.     (
  727.         (set thislang (select i txt_lang_0 txt_lang_1 txt_lang_2 txt_lang_3 txt_lang_4 txt_lang_5 txt_lang_6 txt_lang_7 txt_lang_8 txt_lang_9))
  728.         (set thislangdir (select i txt_langdir_0 txt_langdir_1 txt_langdir_2 txt_langdir_3 txt_langdir_4 txt_langdir_5 txt_langdir_6 txt_langdir_7 txt_langdir_8 txt_langdir_9))
  729.         (if (IN langbits i)
  730.             (
  731.                 (if (= 2 (exists thislangdir))
  732.                     (
  733.                         (copyfiles
  734.                             (source "")
  735.                             (dest newdir)
  736.                             (pattern ("%s#?" thislangdir))
  737.                             (optional force)
  738.                         )
  739.                     )
  740.                     (
  741.                         (if (= 1 (exists ("doc_%s.lha" thislangdir)))
  742.                             (
  743.                                 (if (= 1 (exists "lhex"))
  744.                                     (
  745.                                         (run ("lhex -afFqw=%s e doc_%s.lha" newdir thislangdir))
  746.                                     )
  747.                                     (
  748.                                         (message ("LhA -a -m -M x doc_%s.lha %s/" thislangdir newdir))
  749.                                         (run ("LhA -a -m -M x doc_%s.lha %s/" thislangdir newdir))
  750.                                     )
  751.                                 )
  752.                             )
  753.                             (
  754.                                 (message (txt_cannot_find_lang_docs thislang))
  755.                             )
  756.                         )
  757.                     )
  758.                 )
  759.                 (if (= 2 (exists (tackon "Catalogs" thislangdir)))
  760.                     (
  761.                         (copyfiles
  762.                             (source "Catalogs")
  763.                             (dest (tackon newdir "Catalogs"))
  764.                             (pattern thislangdir)
  765.                             (optional force)
  766.                         )
  767.                     )
  768.                     ( ; else
  769.                         (if (NOT (patmatch "english" thislangdir))    ; nicht English
  770.                             (
  771.                                 (message (txt_cannot_find_lang_catalogs thislang))
  772.                             )
  773.                         )
  774.                     )
  775.                 )
  776.             )
  777.         )
  778.         (set i (+ i 1))
  779.     )
  780. )
  781.  
  782.  
  783. (set knowndevice 0)
  784. (set noscsicmd 0)
  785. (set nogetgeometry 0)
  786. (set nonewstyle 0)
  787. (set baddevice1 0)
  788. ;(set bufmemtype 1)
  789. ;(set maxtransfer 32256)
  790. ;(set mask 16777214)
  791. ;(set scsireadwrite 0)
  792.  
  793. (if (patmatch "2060scsi.device" devicename)                        ; cybscsi.device, getestet mit V7.7
  794.     (
  795.         (set knowndevice 1)
  796.     )
  797. )
  798.  
  799. (if (patmatch "ALF.device" devicename)                                ; ALF.device, getestet mit V2.13
  800.     (
  801.         (set knowndevice 1)
  802.         (set nogetgeometry 1)
  803.         (set baddevice1 1)
  804.     )
  805. )
  806.  
  807. (if (patmatch "cybscsi.device" devicename)                        ; cybscsi.device, getestet mit V1.17
  808.     (
  809.         (set knowndevice 1)
  810.     )
  811. )
  812.  
  813. (if (patmatch "dracoscsi.device" devicename)                        ; dracoscsi.device, getestet mit V1.1
  814.     (
  815.         (set knowndevice 1)
  816.         (set nogetgeometry 1)
  817.     )
  818. )
  819.  
  820. (if (patmatch "evolution.device" devicename)                        ; evolution.device, getestet mit V3.0 und V3.2
  821.     (
  822.         (set knowndevice 1)
  823.         (set nogetgeometry 1)
  824.     )
  825. )
  826.  
  827. (if (patmatch "gvpscsi.device" devicename)                        ; gvpscsi.device, getestet mit V3.7, V3.15, V4.13, V4.15
  828.     (
  829.         (set knowndevice 1)
  830.         (set nogetgeometry 1)
  831.     )
  832. )
  833.  
  834. (if (patmatch "oktagon.device" devicename)                        ; oktagon.device, verschiedene Ergebnisse mit V6.8 und V6.10 auf verschiedenen Rechnern - NACHHAKEN!
  835.     (
  836.         (set knowndevice 1)
  837.         (set nogetgeometry 1)
  838.     )
  839. )
  840.  
  841. (if (patmatch "omniscsi.device" devicename)                        ; omniscsi.device, getestet mit V1.9 und V1.10
  842.     (
  843.         (set knowndevice 1)
  844.     )
  845. )
  846.  
  847. (if (patmatch "scsi.device" devicename)                            ; getestet mit 6.6, 37.64, 40.4, 40.5, 40.12, 40.20, 104.2
  848.                                                                                 ; scsi.device, getestet mit V40.4, V40.5, V40.12 und V40.20
  849.                                                                                 ; bis mind. V40.12 kein TD_GETGEOMETRY
  850.                                                                                 ; V40.20 gibt bei TD_GETGEOMETRY ein Block zuwenig zurück
  851.                                                                                 ; V104.2 ist aus IDEfix/ATAPI und funktioniert
  852.                                                                                 ; V6.6 ist A2091 und liefert bei TD_GETGEOMETRY nur Nullen zurück
  853.     (if (AND (= 104 deviceversion) (= 2 devicerevision))
  854.         (
  855.             (set knowndevice 1)
  856.         )
  857.         ; else                                                                ; V40.x etc. have problems with TD_GETGEOMETRY
  858.         (
  859.             (if (AND (>= deviceversion 36) (<= deviceversion 40))
  860.                 (
  861.                     (set knowndevice 1)
  862.                     (set nogetgeometry 1)
  863.                 )
  864.                 else ;
  865.                 (
  866.                     (if (>= deviceversion 6)                            ; V6.6 - A2091
  867.                         (
  868.                             (set nogetgeometry 1)
  869.                         )
  870.                         else ;
  871.                         (
  872.                             (nop)
  873.                         )
  874.                     )
  875.                 )
  876.             )
  877.         )
  878.     )
  879. )
  880.  
  881. (if (patmatch "vobscsi.device" devicename)                        ; vobscsi.device, getestet mit V37.3
  882.     (
  883.         (set knowndevice 1)
  884.         (set nogetgeometry 1)
  885.     )
  886. )
  887.  
  888. (if (patmatch "warpdrive.device" devicename)                        ; warpdrive.device, getestet mit V40.66
  889.     (
  890.         (set knowndevice 1)
  891.         (set nogetgeometry 1)
  892.     )
  893. )
  894.  
  895. (if (patmatch "z3scsi.device" devicename)                            ; z3scsi.device, getestet mit V5.997, 5.1034
  896.     (
  897.         (set knowndevice 1)
  898.     )
  899. )
  900.  
  901. (if (= 0 knowndevice)
  902.     (
  903.         (message txt_warning_unknown_device_etc)
  904.         (if (askbool
  905.                 (prompt txt_start_rdbtools_debug)
  906.                 (help txt_start_rdbtools_debug_help)
  907.                 (default 0)
  908.             )
  909.             (
  910.                 (run ("rdbtools-debug >T:RDB-Tools-Mail \"%s\" \"%lu\"" devicename unitnumber))
  911.                 (message txt_start_rdbtools_debug_thanx)
  912.             )
  913.         )
  914.     )
  915. )
  916.  
  917. (tooltype
  918.     (dest (tackon newdir "RDB-Salv") )
  919.     (settooltype "DEVICE" devicename )
  920.     (settooltype "UNIT" ("%lu" unitnumber) )
  921.     (if (= 1 nogetgeometry) (settooltype "NOGETGEOMETRY" ""))
  922.     (if (= 1 noscsicmd) (settooltype "NOSCSICMD" ""))
  923.     (if (= 1 nonewstyle) (settooltype "NONEWSTYLE" ""))
  924.     (if (= 1 baddevice1) (settooltype "BADDEVICE1" ""))
  925. )
  926.