home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / h / hypertextdatav40.12cr.lha / HTDS / Install < prev    next >
Encoding:
Text File  |  1997-05-24  |  38.2 KB  |  1,221 lines
  1. ;
  2. ; $PROJECT: HyperText-Datatype-System
  3. ;
  4. ; $VER: Install 40.8 (31.03.97)
  5. ;
  6. ; by
  7. ;
  8. ; Stefan Ruppert , Windthorststrasse 5 , 65439 Floersheim , GERMANY
  9. ;
  10. ; (C) Copyright 1996,1997
  11. ; All Rights Reserved !
  12. ;
  13. ; $HISTORY:
  14. ;
  15. ; 31.03.97 : 040.008 : added picdtpatch update section
  16. ; 01.03.97 : 040.007 : added finish translation
  17. ; 05.01.97 : 040.006 : added export stuff
  18. ; 22.09.96 : 040.005 : added prop3d warning
  19. ; 15.08.96 : 040.004 : added helpfile
  20. ; 08.06.96 : 040.003 : works now with pre V43 installer
  21. ; 25.02.96 : 040.002 : added catalog support
  22. ; 07.02.96 : 040.001 : initial
  23. ;
  24.  
  25. (set #project       "HyperText-Datatype-System")
  26.  
  27. (set #loc-english  (cat "english"))
  28. (set #loc-german   (cat "deutsch"))
  29. (set #loc-danish   (cat "dansk"))
  30. (set #loc-frensh   (cat "français"))
  31. (set #loc-greek    (cat "greek"))
  32. (set #loc-italiano (cat "italiano"))
  33. (set #loc-norsk    (cat "norsk"))
  34. (set #loc-suomi    (cat "suomi"))
  35. (set #loc-swedish  (cat "svenska"))
  36. (set #loc-spanish  (cat "español"))
  37. (set #loc-polski   (cat "polski"))
  38. (set #loc-czech    (cat "czech"))
  39.  
  40. (set #datatypes-list (cat
  41.      "hypertext.datatype, "
  42.      "hyperguide.datatype, "
  43.      "html.datatype, "
  44.      "directory.datatype, "
  45.      "man.datatype, "
  46.      "htdsascii.datatype, "
  47.      "productinfo.datatype "
  48. ))
  49.  
  50. ;
  51. ; V43 installer only
  52. ;
  53. (procedure p_version name
  54.     (/ (getversion name) 65536)
  55. )
  56.  
  57. (procedure p_revision name
  58.     (set #p_ver (getversion name))
  59.     (- #p_ver (* (/ #p_ver 65536) 65536))
  60. )
  61.  
  62. (set #cpu (database "cpu"))
  63. (if (OR (= #cpu "68000") (= #cpu "68010")) (set #procsuffix "000"))
  64. (if (= #cpu "68020")                       (set #procsuffix "020"))
  65. (if (= #cpu "68030")                       (set #procsuffix "030"))
  66. (if (OR (= #cpu "68040") (= #cpu "68060")) (set #procsuffix "040"))
  67.  
  68. ;
  69. ; german texts
  70. ;
  71.  
  72. (set #lang-default 0)
  73.  
  74. (if (= @language "deutsch")
  75.     (
  76.     (set #lang-default 2)
  77.     (set #chs-txt-install "Installieren")
  78.     (set #chs-txt-remove  "Entfernen")
  79.  
  80.     (set #txt-english "Englisch")
  81.     (set #txt-german  "Deutsch")
  82.  
  83.     (set #welcome-message (cat
  84.          "Willkommen zum HyperText-Datatype-System (HTDS)!\n"
  85.          "Wichtig :\n"
  86.          "Zur Zeit sind folgende Programme nicht mit HTDS kompatible."
  87.          "Das heißt, daß entweder HTDS oder das aufgeführte Programm "
  88.          "bei gleichzeitigem Betrieb abstürzen. Wenn Sie HTDS benutzen "
  89.          "wollen, müssen Sie alle folgenden Programme deaktivieren!\n"
  90.          "Prop3d GadTools Patch"))
  91.  
  92.     (set #txt-classdir-prompt "Wo liegen die System Klassen ?")
  93.  
  94.     (set #txt-installing "Installiere")
  95.  
  96.     (set #txt-install-processor-dt-prompt (cat
  97.          "Es existieren Datentyp Versionen für untenstehenden Prozessor. "
  98.          "Sollen diese verwendet werde ?\n\n"))
  99.     (set #txt-cpu-versions (cat
  100.          "Das " @app-name " umfaßt, zur Zeit folgende Datatypes :\n\n"
  101.          #datatypes-list
  102.          "\nBemerkung:\n"
  103.          "Diese Datatypen sind für den Prozessor MC68000 kompiliert. "
  104.          "Falls Sie einen höheren Prozessor besitzen, können Sie sich das "
  105.          "Archive HTDS_xxx.lha besorgen. Wobei xxx für die Abkürzung "
  106.          "des Prozessors steht (030 für MC68030).\n\nSie können jetzt die "
  107.          "Installation hier abbrechen und das entsprechende Archive an "
  108.          "gleicher Stelle entpacken. Dieses Installtionsskript benutzt dann "
  109.          "die Datentypen entsprechend Ihres Prozessors."
  110.     ))
  111.  
  112.     (set #txt-dest-dir-prompt (cat
  113.          "Wohin soll " @app-name " installiert werden ?\n"
  114.          "(Es wird ein Verzeichnis HTDS angelegt)"
  115.          )
  116.     )
  117.     (set #txt-dest-dir-help (cat
  118.          "Wählen Sie hier ein Verzeichnis, indem alle Dateien abgelegt "
  119.          "werden, die nicht an ein entsprechenden Platz im System "
  120.          "gehören. Also hier werden keine #?.datatype oder #?.catalog "
  121.          "Dateien abgelegt, sondern nur Dokumentationsdateien und/oder "
  122.          "Includes&AutoDocs\n"
  123.          )
  124.     )
  125.  
  126.     (set #txt-copy-descriptors-prompt "Kopiere Datatype Descriptoren")
  127.  
  128.     (set #txt-procedure-prompt
  129.         (cat
  130.         "Bitte wählen Sie die entsprechende Aktion:"
  131.         )
  132.     )
  133.     (set #txt-procedure-help
  134.         (cat
  135.         "Hier können Sie wählen, ob Sie " @app-name " installieren "
  136.         "oder eine alte Version entfernen möchten.\n\n"
  137.         )
  138.     )
  139.  
  140.     (set #txt-install          "Welche Dateien sollen zusätzlich installiert werden ?")
  141.  
  142.     (set #txt-copy-picdtpatch-prompt "Kopiere picdtpatch nach C: ?")
  143.     (set #txt-picdtpatch-prompt "Installieren von PicDTPatch ?\nFür nähere Information siehe Hilfe !")
  144.     (set #txt-picdtpatch-help
  145.          (cat "PicDTPatch wird benötigt, wenn Sie das HyperText-DataType-System "
  146.           "mit Bilder verwenden wollen und nicht den V43 picture.datatype "
  147.           "installiert haben (V43 arbeitet mit dem hypertext.datatype zusammen, "
  148.           "Danke Ralph). Dieses Programm fügt dem alten picture.datatype die "
  149.           "Methode DTM_DRAW hinzu, die benutzt wird, um ein Objekt aus dem "
  150.           "hypertext.datatype zu zeichnen.\n"
  151.           "ACHTUNG:\nWenn Sie Bilder als Hintergrund für die Workbench benutzen, "
  152.           "dann sollte PicDTPatch for IPrefs gestartet werden !\n\n"
  153.          )
  154.     )
  155.  
  156.     (set #chs-txt-docs             "Dokumentation (HyperGuide)")
  157.     (set #chs-txt-locale-sources   "Lokalisations Dateien (#?.ct,#?.cd)")
  158.     (set #chs-txt-examples         "Beispiel Doks")
  159.     (set #chs-txt-arexx            "ARexx Skripts")
  160.     (set #chs-txt-developer-stuff  "Entwickler Dateien (Includes,AutoDocs)")
  161.     (set #chs-txt-export-classes   "Export Klassen")
  162.     (set #chs-txt-htdsascii-dt     "HTDS ASCII Datentyp")
  163.  
  164.     (set #txt-copy-descriptors-prompt   "Kopiere Datentyp Deskripitoren")
  165.     (set #txt-copy-catalog-prompt       "Kopiere Katalog")
  166.     (set #txt-copy-helpfile-prompt      "Kopiere HyperGuide Hilfe Datei")
  167.     (set #txt-copy-docs-prompt          "Kopiere Dokumentation")
  168.     (set #txt-copy-examples-prompt      "Kopiere Beispiel Dateien")
  169.     (set #txt-copy-pics-prompt          "Kopiere Bilder")
  170.     (set #txt-copy-loc-sources-prompt   "Kopiere Lokalisations Quelldateien")
  171.     (set #txt-copy-prog-files-prompt    "Kopiere Programmier Dateien")
  172.     (set #txt-copy-arexx-prompt         "Kopiere ARexx Skripts")
  173.     (set #txt-copy-shell-man-prompt     "Kopiere man Skript")
  174.  
  175.     (set #txt-install-ag-desc-prompt    (cat
  176.          "Soll das HTDS auch für bestehende AmigaGuide Dateien verwendet werden ?\n\n"
  177.          "Dabei muß beachtet werden, das Programme, die die amigaguide.library benutzen, "
  178.          "nicht mehr korrekt die Dokumente/Hilfe anzeigen können. Das bedeutet auch, "
  179.          "das alle Programme die Menu oder Gadget Hilfe unterstützen, dann nicht mehr "
  180.          "richtig die Hilfe anzeigen können.\n\n"
  181.          "Daher empfiehlt sich diesen Teil nur dann zu installieren, wenn die oben "
  182.          "genannten Probleme bei ihnen nicht zutreffen.\n\n"
  183.          "Es wird später eine amigaguide.library geben, die diese Mängel beseitigt.\n"
  184.          ))
  185.  
  186.     (set #txt-install-ag-desc-help      (cat
  187.          "Wenn sie für alle bestehenden AmigaGuide Dateien auch das HTDS verwenden wollen, "
  188.          "muß der entsprechende Datentyp Deskriptor verändert werden (Devs:DataTypes/AmigaGuide). "
  189.          "Dieser wird dann nach Sys:Storage/DataTypes kopiert."))
  190.  
  191.     (set #txt-install-ag-link-prompt    (cat
  192.          "Sie haben ausgewählt, den neuen hyperguide.datatype für alle ihre vorhandenen "
  193.          "AmigaGuide Dateien zu benutzen. In dieser Konfiguration arbeiten einige Programme "
  194.          "nicht korrekt. Unter anderem auch das AmigaGuide Programm in Sys:Utilities."
  195.          "Soll nun das AmigaGuide Programm durch ein Hard Link auf MultiView ersetzt werden ?"
  196.     ))
  197.     (set #txt-install-ag-link-help "")
  198.  
  199.  
  200.     (set #txt-install-shell-man-prompt  "Soll ein shell man Front-End in S: installiert werden ?")
  201.  
  202.     (set #txt-language-prompt "Welche Sprachkataloge sollen installiert werden ?")
  203.     (set #txt-language-help   (cat ""))
  204.  
  205.     (set #txt-copy-include-files-prompt "Kopiere include Dateien")
  206.  
  207.     (set #txt-end (cat
  208.          "Nun sollten sie ihr System neu starten. Sie können das HTDS auch ohne Neustart "
  209.          "benutzen. Aber es könnte nicht ganz korrekt arbeiten, da AddDataTypes teilweise "
  210.          "fehlerhaft ist."))
  211.     )
  212. )
  213.  
  214. ;
  215. ; french texts by Francis Labrie <fb691875@er.uqam.ca>
  216. ;
  217.  
  218. (if (= @language "français")
  219.     (
  220.     (set #lang-default 3)
  221.  
  222.     (set #chs-txt-install "Installer")
  223.     (set #chs-txt-remove  "Enlever")
  224.  
  225.     (set #txt-english "Anglais")
  226.     (set #txt-german  "Allemand")
  227.     (set #txt-french  "Français")
  228.  
  229.     (set #welcome-message (cat
  230.          "Bienvenue au système HyperText-Datatype (HTDS) !\n"
  231.          "Note :\n"
  232.          "Présentement, les logiciels suivants ne fonctionnent "
  233.          "probablement pas avec HTDS.  Cela signifie qu'HTDS ou "
  234.          "ces programmes plantent l'ordinateur.  Aussi, si vous "
  235.          "souhaitez utiliser HTDS, il est préférable de désactiver "
  236.          "ces programmes :\n"
  237.          "Prop3d GadTools Patch"))
  238.  
  239.     (set #txt-installing "Installation")
  240.  
  241.     (set #txt-install-processor-dt-prompt (cat
  242.          "Il existe des versions de datatype spécifiques aux processeurs suivants. "
  243.          "Souhaitez-vous utiliser ces versions ?\n\n"))
  244.     (set #txt-cpu-versions (cat
  245.          "Présentement, " @app-name " est constitué des datatypes suivants :\n\n"
  246.          #datatypes-list
  247.          "\nNote :\n"
  248.          "Ces bibliothèques de datatypes ont été compilées pour "
  249.          "le processeur MC68000.  Si vous avez un processeur MC68xxx "
  250.          "plus puissant, veuillez récupérer l'archive appelée "
  251.          "« HTDS_xxx.lha », où le xxx correspond au suffixe de votre "
  252.          "processeur."
  253.     ))
  254.  
  255.     (set #txt-dest-dir-prompt (cat
  256.          "Où souhaitez-vous installer " @app-name " ?\n"
  257.          "(Un tiroir étiqueté « HTDS » y sera alors créé.)"
  258.          )
  259.     )
  260.     (set #txt-dest-dir-help (cat
  261.          "   Sélectionnez un répertoire dans lequel tous les fichiers seront "
  262.          "copiés.  Ce répertoire n'a pas de à être installé à un endroit "
  263.          "spécifique dans le système.  Les fichiers installés sont en fait "
  264.          "des macros, de la documentation et des exemples et non pas les "
  265.          "fichiers datatypes ou catalogues."
  266.          )
  267.     )
  268.  
  269.     (set #txt-copy-descriptors-prompt "Copie des descripteurs")
  270.  
  271.  
  272.     (set #txt-procedure-prompt
  273.         (cat
  274.         "Sélectionnez la procédure appropriée :"
  275.         )
  276.     )
  277.  
  278.     (set #txt-procedure-help
  279.         (cat
  280.         "   Vous pouvez sélectionner la procédure « Installer » "
  281.         "pour installer tous les fichiers nécessaires à " @app-name ".\n"
  282.         "   Ou encore vous pouvez sélectionner « Enlever » afin "
  283.         "d'enlever tous les fichiers " @app-name " déjà installés sur "
  284.         "votre système.\n\n"
  285.         )
  286.     )
  287.  
  288.     (set #txt-install "Sélectionnez les fichiers à installer :")
  289.  
  290.     (set #txt-copy-picdtpatch-prompt "copier « PicDTPatch » dans « C: » ?")
  291.     (set #txt-picdtpatch-prompt "Installation de PicDTPatch ?\nPour plus de détails consulter l'aide !")
  292.     (set #txt-picdtpatch-help (cat
  293.          "   « PicDTPatch » est nécessaire si vous désirez utiliser des images dans "
  294.          "les objets HyperTexts et si vous n'utilisez pas la version 43 de "
  295.          "« picture.datatype » (merci Ralph).  Ce programme ajoute une méthode à "
  296.          "la bibliothèque « picture.datatype » permettant de générer une image à "
  297.          "ume position spécifique (DTM_DRAW).\n"
  298.          "   Attention : si vous utilisez des images en arrière-plan de votre "
  299.          "Workbench, vous devrez alors démarrez « PicDTPatch » avant « IPrefs » !\n\n"
  300.          )
  301.     )
  302.  
  303.     (set #chs-txt-docs             "Documentation (HyperGuide)")
  304.     (set #chs-txt-locale-sources   "Fichiers locaux (#?.ct, #?.cd)")
  305.     (set #chs-txt-examples         "Exemples de documents")
  306.     (set #chs-txt-arexx            "Scripts ARexx")
  307.     (set #chs-txt-developer-stuff  "Fichier pour programmeurs (includes, AutoDocs)")
  308.     (set #chs-txt-export-classes   "Classes d'exportation")
  309.     (set #chs-txt-htdsascii-dt     "Datatype ASCII HTDS")
  310.  
  311.     (set #txt-copy-descriptors-prompt   "Copie des descripteurs de datatype")
  312.     (set #txt-copy-catalog-prompt       "Copie des catalogues")
  313.     (set #txt-copy-helpfile-prompt      "Copie du fichier d'aide hyperguide")
  314.     (set #txt-copy-docs-prompt          "Copie des fichiers de documentation")
  315.     (set #txt-copy-examples-prompt      "Copie des fichiers d'exemples")
  316.     (set #txt-copy-pics-prompt          "Copie des images")
  317.     (set #txt-copy-prog-files-prompt    "Copie des fichiers pour programmeur")
  318.     (set #txt-copy-loc-sources-prompt   "Copie des fichiers sources de localisation")
  319.     (set #txt-copy-arexx-prompt         "Copie des scripts ARexx")
  320.     (set #txt-copy-shell-man-prompt     "Copie du script « man »")
  321.  
  322.     (set #txt-install-ag-desc-prompt    (
  323.          "Est-ce qu'HTDS doit être utilisé pour les documents AmigaGuide existants ?\n\n"
  324.          "Note :\n"
  325.          "Ceci peut occasionner des problèmes avec certains programmes utilisant la "
  326.          "bibliothèque « amigaguide.library ».  La raison est que cette bibliothèque ne "
  327.          "peut afficher les « documents/helptexts » correctement.  Ceci inclus aussi les "
  328.          "programmes qui supporte l'aide pour les menus et les cellules.\n\n"
  329.          "Par conséquent, il est seulement recommendé d'installer cette section si les "
  330.          "problèmes mentionnés ci-haut ne se posent pas pour votre système.\n\n"
  331.          "Plus tard, il y aura une bibliothèque « amigaguide.library » en remplacement, "
  332.          "qui évitera ce genre de problèmes.\n"
  333.     ))
  334.     (set #txt-install-ag-desc-help      (cat
  335.          "   Si vous souhaitez utiliser HTDS pour afficher vos fichiers AmigaGuides, "
  336.          "il est nécessaire de changer le descripteur de ce datatype (DEVS:DataTypes/AmigaGuide).  "
  337.          "L'ancien sera alors copié dans le tiroir « Sys:Storage/DataTypes »."))
  338.  
  339.     (set #txt-install-ag-link-prompt    (cat
  340.          "Vous avez choisi d'utiliser le nouveau hyperguide.datatype pour afficher "
  341.          "tous vos documents AmigaGuides.  Donc il y aura inévitablement quelques programmes "
  342.          "qui ne fonctionneront pas avec cette configuration.  Le logiciel AmigaGuide "
  343.          "également de manière incorrect.\n"
  344.          "Dois-je remplacer le programme AmigaGuide du tiroir « Sys:Utilities » "
  345.          "par un lien physique au logiciel Multiview ?"
  346.     ))
  347.     (set #txt-install-ag-link-help "")
  348.  
  349.     (set #txt-language-prompt "Lequel catalogue doit-il être installer ?")
  350.     (set #txt-language-help   (cat ""))
  351.  
  352.     (set #txt-install-shell-man-prompt  "Installer la commande Man pour le Shell dans le tiroir « S: » ?")
  353.  
  354.     (set #txt-copy-include-files-prompt "Copie des fichiers « includes »")
  355.  
  356.     (set #txt-end (cat
  357.          "Vous devez maintenant redémarrer votre système.  Vous pouvez également essayer HTDS sans "
  358.          "redémarrage, mais en raison d'un déficience dans la commande AddDataTypes, il est possible "
  359.          "que cela ne fonctionne pas correctement avant le prochain redémarrage."))
  360.     )
  361. )
  362.  
  363. ;
  364. ; Finnish texts translated by Mika Lundell <c71829@uwasa.fi> / ATO
  365. ;
  366.  
  367. (if (= @language "suomi")
  368.     (
  369.     (set #lang-default 8)
  370.  
  371.     (set #chs-txt-install "Asenna")
  372.     (set #chs-txt-remove  "Poista")
  373.  
  374.     (set #txt-english "Englanti")
  375.     (set #txt-german  "Saksa")
  376.     (set #txt-french  "Ranska")
  377.  
  378.     (set #welcome-message (cat
  379.          "Tervetuloa asentamaan HyperText-Datatype-järjestelmää (HTDS)!\n"
  380.          "Huomio:\n"
  381.          "Tällä hetkellä seuraavat ohjelmat eivät todennäköisesti toimi HTDS:n "
  382.          "kanssa. Tämä tarkoittaa, että joko HTDS tai listattu ohjelma "
  383.          "kaataa koneen. Jos haluat käyttää HTDS:ää, poista seuraavat "
  384.          "ohjelmat käytöstä:\n"
  385.          "Prop3D GadTools-paikka"))
  386.  
  387.     (set #txt-classdir-prompt "Missä järjestelmän luokkatiedostot sijaitsevat?")
  388.  
  389.     (set #txt-installing "Asennan")
  390.  
  391.     (set #txt-install-processor-dt-prompt (cat
  392.          "Seuraaville prosessoreille on omat versionsa tietotyypeistä. "
  393.          "Haluatko käyttää näitä versioita?\n\n"))
  394.     (set #txt-cpu-versions (cat
  395.          "Tällä hetkellä " @app-name " koostuu seuraavista "
  396.          "tietotyypeistä:\n\n"
  397.          #datatypes-list
  398.          "\n\nHuomio:\n"
  399.          "Nämä tietotyypit on käännetty "
  400.          "MC68000-prosessorille. Jos sinulla on tehokkaampi MC68xxx, voit hankkia "
  401.          "erillisen arkiston nimeltä HTDS_xxx.lha, jossa xxx on prosessorin "
  402.          "lyhenne (030 on MC68030).\n\nVoit keskeyttää asennuksen nyt ja purkaa "
  403.          "erillisen arkiston samaan paikkaan kuin perusarkiston. Asennusohjelma "
  404.          "käyttää sen jälkeen oman prosessorityyppisi tietotyyppejä."
  405.     ))
  406.  
  407.     (set #txt-dest-dir-prompt (cat
  408.          "Mihin haluat asentaa ohjelmiston " @app-name "?\n"
  409.          "(Hakemisto nimeltä HTDS luodaan valitsemaasi paikkaan)"
  410.          )
  411.     )
  412.     (set #txt-dest-dir-help (cat
  413.          "Valitse tässä hakemisto, johon sijoitetaan kaikki tiedostot, "
  414.          "joille ei ole muuta asianmukaista paikkaa järjestelmässä. Näitä "
  415.          "tiedostoja ovat käyttöohjeet, esimerkit, makrotiedostot ja muut "
  416.          "#?.datatype- ja #?.catalog-tiedostoista poikkeavat tiedostot.\n\n"
  417.          )
  418.     )
  419.  
  420.     (set #txt-copy-descriptors-prompt "Kopioidaan kuvaustiedostot")
  421.  
  422.  
  423.     (set #txt-procedure-prompt
  424.         (cat
  425.         "Valitse haluamasi toimenpide:"
  426.         )
  427.     )
  428.  
  429.     (set #txt-procedure-help
  430.         (cat
  431.         "Voit valita Asenna-toimenpiteen asentaaksesi kaikki tarpeelliset "
  432.         "tiedostot ohjelmistoa " @app-name " varten.\n"
  433.         "Valitsemalla Poista-toimenpiteen, voit poistaa järjestelmästäsi kaikki "
  434.         "aikaisemmin asennetut, ohjelmistoon " @app-name " kuuluvat tiedostot.\n\n"
  435.         )
  436.     )
  437.  
  438.     (set #txt-install          "Valitse asennettavat tiedostot:")
  439.  
  440.     (set #txt-copy-picdtpatch-prompt "Kopioidaanko picdtpatch hakemistoon C: ?")
  441.     (set #txt-picdtpatch-prompt "Asennetaanko PicDTPatch?\nKatso ohjeesta tarkempia tietoja!")
  442.     (set #txt-picdtpatch-help (cat
  443.          "PicDTPatch tarvitaan, jos haluat käyttää kuvia HyperText-objekteissa, "
  444.          "mutta sinulla ei ole versiota V43 tiedostosta picture.datatype "
  445.          "(V43 toimii hypertext.datatypen kanssa, kiitos Ralph). "
  446.          "Tämä ohjelma lisää vanhaan picture.datatype-tietotyyppiin uuden metodin, "
  447.          "jolla voi piirtää kuvan määriteltyyn paikkaan (DTM_DRAW).\n"
  448.          "Huomio: Jos käytät kuvia WB:n taustana, PicDTPatch tulisi käynnistää "
  449.          "ennen IPrefs-ohjelmaa!!\n\n"
  450.          )
  451.     )
  452.  
  453.     (set #chs-txt-docs             "Käyttöohjeet (HyperGuide)")
  454.     (set #chs-txt-locale-sources   "Paikallisteet (#?.ct,#?.cd)")
  455.     (set #chs-txt-examples         "Esimerkkidokumentit")
  456.     (set #chs-txt-arexx            "ARexx-komentotiedostot")
  457.     (set #chs-txt-developer-stuff  "Ohjelmankehittäjän tiedostot (includet,AutoDocit)")
  458.     (set #chs-txt-export-classes   "Export-luokat")
  459.     (set #chs-txt-htdsascii-dt     "HTDS ASCII-tietotyyppi")
  460.  
  461.     (set #txt-copy-descriptors-prompt   "Kopioidaan tietotyyppien kuvaukset")
  462.     (set #txt-copy-catalog-prompt       "Kopioidaan sanastot")
  463.     (set #txt-copy-helpfile-prompt      "Kopioidaan HyperGuiden aputiedostot")
  464.     (set #txt-copy-docs-prompt          "Kopioidaan käyttöohjeet")
  465.     (set #txt-copy-examples-prompt      "Kopioidaan esimerkkitiedostot")
  466.     (set #txt-copy-pics-prompt          "Kopioidaan kuvat")
  467.     (set #txt-copy-prog-files-prompt    "Kopioidaan ohjelmankehittäjän tiedostot")
  468.     (set #txt-copy-loc-sources-prompt   "Kopioidaan sanastojen lähdetiedostot")
  469.     (set #txt-copy-arexx-prompt         "Kopioidaan ARexx-komentotiedostot")
  470.     (set #txt-copy-shell-man-prompt     "Kopioidaan man-komentotiedosto")
  471.  
  472.     (set #txt-install-ag-desc-prompt    (
  473.          "Tulisiko HTDS:ää käyttää olemassa oleville AmigaGuide-tiedostoille?\n\n"
  474.          "Huomio: Tämä saattaa aiheuttaa ongelmia niiden ohjelmien kanssa, jotka "
  475.          "käyttävät kirjastoa amigaguide.library, koska kirjasto ei osaa näyttää "
  476.          "dokumentteja/aputekstejä oikein. Tämä koskee myös ohjelmia, jotka "
  477.          "tukevat valikkojen ja painikkeiden aputoimintoa.\n\n"
  478.          "Tämän vuoksi tämän osan asennusta suositellaan vain siinä tapauksessa, "
  479.          "että tällaiset ongelmat eivät häiritse järjestelmääsi.\n\n"
  480.          "Myöhemmin amigaguide.library voidaan korvata toisella, joka ei aiheuta ongelmia.\n"
  481.     ))
  482.     (set #txt-install-ag-desc-help      (cat
  483.          "Jos haluat käyttää HTDS:ää olemassa oleville AmigaGuide-tiedostoillesi, "
  484.          "tietotyypin kuvausta (Devs:DataTypes/AmigaGuide) joudutaan muuttamaan. "
  485.          "Vanha tiedosto kopioidaan hakemistoon Sys:Storage/DataTypes."))
  486.  
  487.     (set #txt-install-ag-link-prompt    (cat
  488.          "Olet päättänyt käyttää uutta hyperguide.datatype-tietotyyppiä kaikille "
  489.          "AmigaGuide-tiedostoillesi. Jotkut ohjelmat eivät toimi tällä asetuksella. "
  490.          "Myöskään AmigaGuide-ohjelma ei toimi oikein.\n"
  491.          "Korvataanko hakemiston Sys:Utilities AmigaGuide-ohjelma "
  492.          "kestoviittauksella ohjelmaan MultiView?"
  493.     ))
  494.     (set #txt-install-ag-link-help "")
  495.  
  496.     (set #txt-language-prompt "Mitkä sanastot haluat asentaa?")
  497.     (set #txt-language-help   (cat ""))
  498.  
  499.     (set #txt-install-shell-man-prompt  "Asennetaanko Shell-komentotiedosto man-komennoksi hakemistoon S: ?")
  500.  
  501.     (set #txt-copy-include-files-prompt "Kopioidaan include-tiedostot")
  502.  
  503.     (set #txt-end (cat
  504.          "Nyt sinun tulisi käynnistää järjestelmäsi uudelleen. Voit kokeilla HTDS:ää "
  505.          "myös ilman uudelleenkäynnistystä, mutta AddDataTypes-komennossa olevan "
  506.          "ohjelmavirheen vuoksi HTDS ei välttämättä toimi oikein ennen "
  507.          "kuin olet käynnistänyt järjestelmäsi uudelleen."))
  508.     )
  509. )
  510.  
  511. ;
  512. ; english texts (default)
  513. ;
  514.  
  515. (if (OR (= @language "english") (= #lang-default 0))
  516.     (
  517.     (set #lang-default 1)
  518.  
  519.     (set #chs-txt-install "Install")
  520.     (set #chs-txt-remove  "Remove")
  521.  
  522.     (set #txt-english "English")
  523.     (set #txt-german  "German")
  524.  
  525.     (set #welcome-message (cat
  526.          "Welcome to the HyperText-Datatype-System (HTDS)!\n"
  527.          "Note :\n"
  528.          "Currently the following programs don't work probably with "
  529.          "HTDS. That means, that HTDS or the listed program crashes "
  530.          "the machine. If you want to use HTDS, please deactivate the "
  531.          "following programs :\n"
  532.          "Prop3d GadTools Patch"))
  533.  
  534.     (set #txt-installing "Installing")
  535.  
  536.     (set #txt-install-processor-dt-prompt (cat
  537.          "There exists datatype versions for the following processor type. "
  538.          "Do you want to use these versions ?\n\n"))
  539.     (set #txt-cpu-versions (cat
  540.          "Currently the " @app-name " consists out of the following "
  541.          "datatypes:\n\n"
  542.          #datatypes-list
  543.          "\nNote:\n"
  544.          "These datatypes libraries are compiled for "
  545.          "MC68000 processor. If you have a higher MC68xxx, look out "
  546.          "for archive called HTDS_xxx.lha, where xxx stands for the "
  547.          "processor abbrevation.\n\nNow you can cancel this installation "
  548.          "and extract the appropriate archive at the same place of the base "
  549.          "archive. This installation script uses then the datatypes for your "
  550.          "processor."
  551.     ))
  552.  
  553.     (set #txt-dest-dir-prompt (cat
  554.          "Where do you want to install the " @app-name " ?\n"
  555.          "(A drawer called HTDS will be created there)"
  556.          )
  557.     )
  558.     (set #txt-dest-dir-help (cat
  559.          "Please select here a drawer, in which all files are copied, "
  560.          "which have no appropriate place in the system. This are "
  561.          "documentations, examples and macro files and not #?.datatype "
  562.          "or #?.catalog files."
  563.          )
  564.     )
  565.  
  566.     (set #txt-copy-descriptors-prompt "Copying the Descriptors")
  567.  
  568.  
  569.     (set #txt-procedure-prompt
  570.         (cat
  571.         "Please select the appropriate procedure:"
  572.         )
  573.     )
  574.  
  575.     (set #txt-procedure-help
  576.         (cat
  577.         "You can here select the Install procedure to install "
  578.         "all nessecary files for the " @app-name ".\n"
  579.         "Or select Remove to remove all previously installed "
  580.         "files of the " @app-name " from your system.\n\n"
  581.         )
  582.     )
  583.  
  584.     (set #txt-install          "Select the files to install :")
  585.  
  586.     (set #txt-copy-picdtpatch-prompt "copy picdtpatch to C: ?")
  587.     (set #txt-picdtpatch-prompt "Installation of PicDTPatch ?\nFor detailed information see help !")
  588.     (set #txt-picdtpatch-help (cat
  589.          "PicDTPatch is needed, if you want to use pictures within HyperText "
  590.          "objects and if you don't use V43 of the picture.datatype (Thanks Ralph)."
  591.          "This program adds a method to the picture.datatype to render a picture "
  592.          "at a specified position (DTM_DRAW).\n"
  593.          "Attention: If you use some pictures as WB backgounds, it should be "
  594.          "nesseccary to run PicDTPatch before IPrefs !!\n\n"
  595.          )
  596.     )
  597.  
  598.     (set #chs-txt-docs             "Documentation (HyperGuide)")
  599.     (set #chs-txt-locale-sources   "Locale files (#?.ct,#?.cd)")
  600.     (set #chs-txt-examples         "Example Docs")
  601.     (set #chs-txt-arexx            "ARexx scripts")
  602.     (set #chs-txt-developer-stuff  "Programmer Files (includes,AutoDocs)")
  603.     (set #chs-txt-export-classes   "Export classes")
  604.     (set #chs-txt-htdsascii-dt     "HTDS ASCII datatype")
  605.  
  606.     (set #txt-copy-descriptors-prompt   "Copy DataType descripitors")
  607.     (set #txt-copy-catalog-prompt       "Copy catalog")
  608.     (set #txt-copy-helpfile-prompt      "Copy HyperGuide help file")
  609.     (set #txt-copy-docs-prompt          "Copy documentation files")
  610.     (set #txt-copy-examples-prompt      "Copy example files")
  611.     (set #txt-copy-pics-prompt          "Copy pictures")
  612.     (set #txt-copy-prog-files-prompt    "Copy programmer files")
  613.     (set #txt-copy-loc-sources-prompt   "Copy locale sourcefiles")
  614.     (set #txt-copy-arexx-prompt         "Copy ARexx scripts")
  615.     (set #txt-copy-shell-man-prompt     "Copy man script")
  616.  
  617.     (set #txt-install-ag-desc-prompt    (
  618.          "Should the HTDS be used for existing AmigaGuide files ?\n\n"
  619.          "Note: This may cause problems with programs, which uses the amigaguide.library. "
  620.          "Because the library can't display the documents/helptexts correctly. This also "
  621.          "includes programs, which supports menu and gadget help.\n\n"
  622.          "Therefore it is only recommended to install this part, if the above mentioned "
  623.          "problems do not fit in your system.\n\n"
  624.          "Later there will be a amigaguide.library replacement, which avoid these problems.\n"
  625.     ))
  626.     (set #txt-install-ag-desc-help      (cat
  627.          "If you want to use the HTDS for your existing AmigaGuide files, "
  628.          "it is necessary to change the datatype descriptor (Devs:DataTypes/AmigaGuide). "
  629.          "The old one will be copied to Sys:Storage/DataTypes."))
  630.  
  631.     (set #txt-install-ag-link-prompt    (cat
  632.          "You have choosen to use the new hyperguide.datatype for all of your "
  633.          "AmigaGuide files. So some programs don't work with this configuration. "
  634.          "Also AmigaGuide program doesn't work correctly.\n"
  635.          "Should I replace the AmigaGuide program in Sys:Utilities "
  636.          "to a hard link to MultiView ?"
  637.     ))
  638.     (set #txt-install-ag-link-help "")
  639.  
  640.     (set #txt-language-prompt "Which locale catalog should be installed ?")
  641.     (set #txt-language-help   (cat ""))
  642.  
  643.     (set #txt-install-shell-man-prompt  "Install a shell man front-end to S: ?")
  644.  
  645.     (set #txt-copy-include-files-prompt "Copy include files")
  646.  
  647.     (set #txt-end (cat
  648.          "Now you should reboot your system. You can also try the HTDS without a boot, "
  649.          "but due to a bug in AddDataTypes it may not work correctly until you have "
  650.          "rebooted."))
  651.     )
  652. )
  653.  
  654.  
  655. (set #mode 0)
  656.  
  657. ; Currently no UnInstall
  658. ;(set #mode
  659. ;     (askchoice
  660. ;         (prompt #txt-procedure-prompt)
  661. ;         (help (cat #txt-procedure-help @askchoice-help))
  662. ;         (choices #chs-txt-install #chs-txt-remove)
  663. ;     )
  664. ;)
  665.  
  666.  
  667. (if #mode
  668.     (set #pmode #txt-remove)
  669.     (set #pmode #txt-install)
  670. )
  671.  
  672. (welcome #welcome-message)
  673.  
  674. ; get classes dir
  675. (set #classdir
  676.     (askdir
  677.         (prompt #txt-classdir-prompt)
  678.         (help @askdir-help)
  679.         (default "SYS:Classes")
  680.     )
  681. )
  682.  
  683. ; now do install or remove
  684. (if #mode
  685.     ; Remove
  686.     (
  687.     ; Show what we are doing
  688.     (working "Removing " @app-name)
  689.  
  690.     ; Remove the non-standard pieces
  691.  
  692.     ; Don't want to use the confusing "Installation Complete" message
  693.     ; when what we really did was remove things...
  694.     (message "The \"" @app-name "\" components "
  695.          "that you specified have been successfully removed")
  696.     (exit (quiet))
  697.     )
  698.  
  699.     ; Install
  700.     (
  701.     (set #dtsuffix "")
  702.     (if (= (exists (cat "classes/datatypes/hypertext.datatype." #procsuffix)) 1)
  703.         (
  704.         (if (askbool (prompt (cat #txt-install-processor-dt-prompt ": " #cpu)) (help @askbool-help))
  705.             (set #dtsuffix (cat "." #procsuffix))
  706.         )
  707.         )
  708.         ; else
  709.         (
  710.         (message #txt-cpu-versions)
  711.         )
  712.     )
  713.  
  714.     (complete 0)
  715.  
  716.     (set #dest-dir
  717.          (askdir
  718.             (prompt #txt-dest-dir-prompt)
  719.             (help #txt-dest-dir-help @askdir-help)
  720.             (default "Work:")
  721.          )
  722.     )
  723.  
  724.     (set #languages
  725.          (askoptions
  726.          (prompt #txt-language-prompt)
  727.          (choices #loc-english #loc-german #loc-frensh #loc-danish #loc-greek #loc-italiano #loc-norsk #loc-suomi #loc-swedish #loc-spanish #loc-polski #loc-czech "")
  728.          (help #txt-language-help @askoptions-help)
  729.          (default #lang-default)
  730.          )
  731.     )
  732.  
  733.     (if (= @user-level 0)
  734.         (set #instflags 3)
  735.         (set #instflags 63)
  736.     )
  737.  
  738.     (if (= (exists "developer" (noreq)) 2)
  739.         (set #chs-developer-stuff #chs-txt-developer-stuff)
  740.         (set #chs-developer-stuff "")
  741.     )
  742.  
  743.     (set #instflags
  744.          (askoptions
  745.             (prompt #txt-install)
  746.             (choices #chs-txt-docs #chs-txt-examples #chs-txt-locale-sources #chs-txt-arexx #chs-txt-export-classes #chs-txt-htdsascii-dt #chs-developer-stuff)
  747.             (default #instflags)
  748.             (help #txt-install-help @askoptions-help)
  749.          )
  750.     )
  751.  
  752.     (set #inst-docs           (in #instflags 0))
  753.     (set #inst-examples       (in #instflags 1))
  754.     (set #inst-locale-sources (in #instflags 2))
  755.     (set #inst-arexx          (in #instflags 3))
  756.     (set #inst-export         (in #instflags 4))
  757.     (set #inst-htdsascii      (in #instflags 5))
  758.     (set #inst-developer      (in #instflags 6))
  759.  
  760.  
  761.     (set #install-ag-desc
  762.          (askbool
  763.           (prompt #txt-install-ag-desc-prompt)
  764.           (help (cat #txt-install-ag-desc-help @askbool-help))
  765.          )
  766.     )
  767.  
  768.     (if #install-ag-desc
  769.         (set #install-ag-link
  770.          (askbool
  771.              (prompt #txt-install-ag-link-prompt)
  772.              (help (cat #txt-install-ag-link-help @askbool-help))
  773.          )
  774.         )
  775.     )
  776.  
  777.     (set #install-man
  778.          (askbool
  779.           (prompt #txt-install-shell-man-prompt)
  780.           (help (cat #txt-install-shell-man-help @askbool-help))
  781.          )
  782.     )
  783.  
  784.     (working #installing @app-name)
  785.  
  786.     (complete 20)
  787.  
  788.     (set #dest-parent-dir #dest-dir)
  789.     (set #dest-dir (tackon #dest-dir "HTDS"))
  790.     (if (= (exists #dest-dir) 0)
  791.         (
  792.         (makedir #dest-dir (infos))
  793.         (copyfiles
  794.             (help @copyfiles-help)
  795.             (source "/HTDS.info")
  796.             (dest #dest-parent-dir)
  797.         )
  798.         )
  799.     )
  800.     (set @default-dest #dest-dir)
  801.  
  802.     (set #macro-dir (tackon #dest-dir "macros"))
  803.     (set #arexx-dir (tackon #dest-dir "ARexx"))
  804.  
  805.     ;
  806.     ; only need to install the picdtpatch if orig. picture.datatype is found
  807.     ;
  808.     (if (< @installer-version 43)
  809.         (set #inst-picdtpatch 1)
  810.         (set #inst-picdtpatch (< (p_version (tackon #classdir "DataTypes/picture.datatype")) 43))
  811.     )
  812.     (set #inst-picdtpatch 1)
  813.  
  814.     (if #inst-picdtpatch
  815.         (
  816.         (set #install-picdt 0)
  817.         (if (= (exists "C:PicDTPatch") 0)
  818.             (
  819.             (set #install-picdt 1)
  820.             )
  821.             ; else
  822.             (
  823.             (set #ver (getversion "C:PicDTPatch"))
  824.             (set #rev (- #ver (* (/ #ver 65536) 65536)))
  825.             (if (< #rev 2)
  826.                 (
  827.                 (copyfiles
  828.                     (prompt #txt-copy-picdtpatch-prompt)
  829.                     (help @copyfiles-help)
  830.                     (source "c/picdtpatch")
  831.                     (dest "C:")
  832.                 )
  833.                 )
  834.             )
  835.             )
  836.         )
  837.         (if (= #install-picdt 1)
  838.         (
  839.             (startup @app-name
  840.                  (command "run <>NIL: c:picdtpatch")
  841.                  (prompt #txt-picdtpatch-prompt)
  842.                  (help #txt-picdtpatch-help @startup-help)
  843.             )
  844.             (copyfiles
  845.             (prompt #txt-copy-picdtpatch-prompt)
  846.             (help #txt-@copyfiles-help)
  847.             (source "c/picdtpatch")
  848.             (dest "C:")
  849.             (confirm)
  850.             )
  851.         ))
  852.         )
  853.     )
  854.  
  855.     ; Install the descriptors
  856.     (if (= (exists "devs/datatypes" (noreq)) 2)
  857.         (copyfiles
  858.         (prompt #txt-copy-descriptors-prompt)
  859.         (help @copyfiles-help)
  860.         (source "devs/datatypes")
  861.         (dest "DEVS:DataTypes")
  862.         (pattern "#?")
  863.         (infos)
  864.         )
  865.     )
  866.  
  867.     (if #install-ag-desc
  868.         (
  869.         (if (= (exists "Devs:DataTypes/AmigaGuide" (noreq)) 1)
  870.             (if (= (exists "Sys:Storage/DataTypes/AmigaGuide" (noreq)) 0)
  871.             (copyfiles
  872.                 (prompt #txt-copy-descriptors-prompt)
  873.                 (help (cat #txt-copy-descriptors-help @copyfiles-help))
  874.                 (source "Devs:DataTypes")
  875.                 (dest "Sys:Storage/DataTypes")
  876.                 (pattern "AmigaGuide#?")
  877.                 (infos)
  878.             )
  879.             )
  880.         )
  881.         (if #install-ag-link
  882.             (if (= (exists "Sys:Utilities/AmigaGuide.Old" (noreq)) 0)
  883.             (if (= (exists "Sys:Utilities/AmigaGuide") 1)
  884.                 (
  885.                 (rename "Sys:Utilities/AmigaGuide" "Sys:Utilities/AmigaGuide.Old")
  886.                 (run    "C:MakeLink From Sys:Utilities/AmigaGuide To Sys:Utilities/MultiView Hard Force")
  887.                 )
  888.             )
  889.             )
  890.         )
  891.         (copyfiles
  892.             (prompt #txt-copy-descriptors-prompt)
  893.             (help (cat #txt-copy-descriptors-help @copyfiles-help))
  894.             (source "devs")
  895.             (dest "DEVS:DataTypes")
  896.             (pattern "AmigaGuide#?")
  897.             (infos)
  898.         )
  899.         )
  900.     )
  901.  
  902.     (complete 30)
  903.  
  904.     (set #htdsasciidt "")
  905.     (if #inst-htdsascii
  906.         (
  907.         (set #htdsasciidt "htdsascii")
  908.         (copyfiles
  909.             (prompt #txt-copy-descriptors-prompt)
  910.             (help (cat #txt-copy-descriptors-help @copyfiles-help))
  911.             (source "devs")
  912.             (dest "DEVS:DataTypes")
  913.             (pattern "ASCII#?")
  914.             (infos)
  915.         )
  916.         )
  917.     )
  918.  
  919.     ; Install the datatypes
  920.     (set i 0)
  921.     (while (set #datatype (select i "hypertext" "hyperguide" "html" "directory" "man" "productinfo" #htdsasciidt ""))
  922.          (copyfiles
  923.          (prompt (cat "Copying " #datatype ".datatype"))
  924.          (help @copyfileslib-help)
  925.          (source (tackon "classes/datatypes" (cat #datatype ".datatype" #dtsuffix)))
  926.          (dest (tackon #classdir "DataTypes"))
  927.          (newname (cat #datatype ".datatype"))
  928.          )
  929.          (set i (+ i 1))
  930.     )
  931.  
  932.     (if #inst-export
  933.         (
  934.         (if (= (exists (tackon #classdir "HyperText/Export")) 0)
  935.             (makedir (tackon #classdir "HyperText/Export")))
  936.         (set i 0)
  937.         (while (set #export (select i "html" ""))
  938.              (copyfiles
  939.              (prompt (cat "Copying " #export ".export"))
  940.              (help @copyfiles-help)
  941.              (source (cat "classes/hypertext/export/" #export ".export"))
  942.              (dest (tackon #classdir "HyperText/Export"))
  943.              (newname (cat #export ".export"))
  944.              )
  945.              (set i (+ i 1))
  946.         )
  947.         )
  948.     )
  949.  
  950.     (complete 40)
  951.  
  952.     (if (= (exists "macros" (noreq)) 2)
  953.         (
  954.         ; backup old default file
  955.         (if (= (exists (tackon #dest-dir "Default.hgm")) 0)
  956.             (rename (tackon #dest-dir "Default.hgm") (tackon #dest-dir "Default.hgm.old"))
  957.         )
  958.         (copyfiles
  959.             (prompt #txt-copy-macros-prompt)
  960.             (source "")
  961.             (dest #dest-dir)
  962.             (pattern "macros#?")
  963.             (infos)
  964.         )
  965.         (if (= (exists "ENVARC:DataTypes/hyperguide.prefs" (noreq)) 0)
  966.             (
  967.             (textfile
  968.                 (dest "ENVARC:DataTypes/hyperguide.prefs")
  969.                 (append (cat "MACRODIR " #macro-dir "\n"))
  970.             )
  971.             (textfile
  972.                 (dest "ENV:DataTypes/hyperguide.prefs")
  973.                 (append (cat "MACRODIR " #macro-dir "\n"))
  974.             )
  975.             )
  976.         )
  977.         )
  978.     )
  979.  
  980.     (if (= (exists (tackon #classdir "DataTypes/html.datatype")) 1)
  981.         (if (= (exists ("EnvArc:DataTypes/html.prefs")) 0)
  982.         (
  983.             (copyfiles (prompt #txt-copy-html-prefs)
  984.                    (source "env/datatypes/html.prefs")
  985.                    (dest "ENVARC:DataTypes")
  986.             )
  987.             (copyfiles (prompt #txt-copy-html-prefs)
  988.                    (source "env/datatypes/html.prefs")
  989.                    (dest "ENV:DataTypes")
  990.             )
  991.         )
  992.         )
  993.     )
  994.  
  995.     (if (= (exists (tackon #classdir "DataTypes/hypertext.datatype")) 1)
  996.         (if (= (exists ("EnvArc:DataTypes/hypertext.prefs")) 0)
  997.         (
  998.             (copyfiles (prompt #txt-copy-hypertext-prefs)
  999.                    (source "env/datatypes/hypertext.prefs")
  1000.                    (dest "ENVARC:DataTypes")
  1001.             )
  1002.             (copyfiles (prompt #txt-copy-hypertext-prefs)
  1003.                    (source "env/datatypes/hypertext.prefs")
  1004.                    (dest "ENV:DataTypes")
  1005.             )
  1006.         )
  1007.         )
  1008.     )
  1009.  
  1010.     (if (= (exists ("L:hypertext.key")) 0)
  1011.     (
  1012.         (copyfiles (prompt #txt-copy-hypertext-key)
  1013.                (source "l/hypertext.key")
  1014.                (dest "L:")
  1015.         )
  1016.     )
  1017.     )
  1018.  
  1019.  
  1020.     (complete 50)
  1021.  
  1022.     (if (= (exists "locale" (noreq)) 2)
  1023.         (
  1024.         (set l 0)
  1025.  
  1026.         (while (set #lang (select l #loc-english #loc-german #loc-frensh #loc-danish #loc-greek #loc-italiano #loc-norsk #loc-suomi #loc-swedish #loc-spanish ""))
  1027.              (if (in #languages l)
  1028.              (
  1029.                  (set c 0)
  1030.                  (while (set #catalog (select c "hypertextdt" "directorydt" ""))
  1031.                  (if (= (exists (cat "locale/catalogs/" #lang "/" #catalog ".catalog")) 1)
  1032.                      (copyfiles
  1033.                      (prompt (cat #txt-copy-catalog-prompt ": " #lang))
  1034.                      (source (cat "locale/catalogs/" #lang "/" #catalog ".catalog"))
  1035.                      (dest   (cat "Locale:catalogs/" #lang))
  1036.                      )
  1037.                  )
  1038.                  (set c (+ c 1))
  1039.                  )
  1040.                  (if (= (exists (cat "locale/help/" #lang "/HTDS_Help.hguide")) 1)
  1041.                  (copyfiles
  1042.                      (prompt (cat #txt-copy-helpfile-prompt ": " #lang))
  1043.                      (source (cat "locale/help/" #lang "/HTDS_Help.hguide"))
  1044.                      (dest   (cat "Help:" #lang))
  1045.                  )
  1046.                  )
  1047.  
  1048.                  ; only install global TOC, if it doesn't exists
  1049.                  (if (= (exists (cat "Help:" #lang "/HTDS_TOC.hguide") (noreq)) 0)
  1050.                  (if (= (exists (cat "locale/help/" #lang "/HTDS_TOC.hguide")) 1)
  1051.                      (
  1052.                      (copyfiles
  1053.                          (prompt (cat #txt-copy-tocfile-prompt ": " #lang))
  1054.                          (source (cat "locale/help/" #lang "/HTDS_TOC.hguide"))
  1055.                          (dest   (cat "Help:" #lang))
  1056.                      )
  1057.                      (rexx (cat "ARexx/AddTOCEntry.rexx HyperText-DataType-System " (tackon (tackon #dest-dir "docs") "HTDS.hguide")))
  1058.                      )
  1059.                  )
  1060.                  )
  1061.              )
  1062.              )
  1063.              (set l (+ l 1))
  1064.         )
  1065.         )
  1066.     )
  1067.  
  1068.     (complete 60)
  1069.  
  1070.     ; install forms
  1071.     (copyfiles
  1072.         (prompt #txt-copy-forms-prompt)
  1073.         (help @copyfiles-help)
  1074.         (source "")
  1075.         (dest #dest-dir)
  1076.         (pattern "forms#?")
  1077.         (infos)
  1078.     )
  1079.     (copyfiles
  1080.         (prompt #txt-copy-getconf-prompt)
  1081.         (help @copyfiles-help)
  1082.         (source "c/getconf")
  1083.         (dest (tackon #dest-dir "forms"))
  1084.         (infos)
  1085.     )
  1086.  
  1087.     (if #inst-docs
  1088.         (
  1089.         (copyfiles
  1090.             (prompt #txt-copy-docs-prompt)
  1091.             (help @copyfiles-help)
  1092.             (source "")
  1093.             (dest #dest-dir)
  1094.             (pattern "docs#?")
  1095.             (infos)
  1096.         )
  1097.         )
  1098.     )
  1099.  
  1100.     (if #inst-examples
  1101.         (
  1102.         (copyfiles
  1103.             (prompt #txt-copy-examples-prompt)
  1104.             (help @copyfiles-help)
  1105.             (source "")
  1106.             (dest #dest-dir)
  1107.             (pattern "examples#?")
  1108.             (infos)
  1109.         )
  1110.         )
  1111.     )
  1112.  
  1113.     (if (or #inst-docs #inst-examples)
  1114.         (
  1115.         (copyfiles
  1116.             (prompt #txt-copy-pics-prompt)
  1117.             (help @copyfiles-help)
  1118.             (source "")
  1119.             (dest #dest-dir)
  1120.             (pattern "pics#?")
  1121.             (infos)
  1122.         )
  1123.         )
  1124.     )
  1125.  
  1126.     (complete 70)
  1127.  
  1128.     (if #inst-arexx
  1129.         (
  1130.         (copyfiles
  1131.             (prompt #txt-copy-arexx-prompt)
  1132.             (help @copyfiles-help)
  1133.             (source "")
  1134.             (dest #dest-dir)
  1135.             (pattern "ARexx#?")
  1136.             (infos)
  1137.         )
  1138.         )
  1139.     )
  1140.  
  1141.     ; install developer files
  1142.     (if #inst-developer
  1143.         (
  1144.         (copyfiles
  1145.             (prompt #txt-copy-prog-files-prompt)
  1146.             (help @copyfiles-help)
  1147.             (source "developer")
  1148.             (dest (tackon #dest-dir "developer"))
  1149.             (pattern "#?")
  1150.             (infos)
  1151.         )
  1152.         (copyfiles
  1153.             (source "developer.info")
  1154.             (dest #dest-dir)
  1155.         )
  1156.         (tooltype (dest (tackon #dest-dir "developer.info")) (noposition))
  1157.         )
  1158.     )
  1159.  
  1160.     (complete 80)
  1161.  
  1162.     (if #inst-locale-sources
  1163.         (
  1164.         (copyfiles
  1165.             (prompt #txt-copy-loc-sources-prompt)
  1166.             (help @copyfiles-help)
  1167.             (source "locale")
  1168.             (dest (tackon #dest-dir "locale"))
  1169.             (pattern "(#?.c?|translations)")
  1170.             (infos)
  1171.         )
  1172.         (copyfiles
  1173.             (source "locale.info")
  1174.             (dest #dest-dir)
  1175.         )
  1176.         )
  1177.     )
  1178.  
  1179.     (if #install-man
  1180.         (
  1181.         (copyfiles
  1182.             (prompt #txt-copy-man-shell-prompt)
  1183.             (help @copyfiles-help)
  1184.             (source "s")
  1185.             (dest "s:")
  1186.             (pattern "man#?")
  1187.             (infos)
  1188.         )
  1189.         )
  1190.     )
  1191.  
  1192.     (complete 90)
  1193.  
  1194.     (if (exists (cat "locale/ReadMe/" @language))
  1195.         (copyfiles
  1196.         (source (cat "locale/ReadMe/" @language))
  1197.         (newname "ReadMe")
  1198.         (dest #dest-dir)
  1199.         )
  1200.         (copyfiles
  1201.         (source "ReadMe.txt")
  1202.         (newname "ReadMe")
  1203.         (dest #dest-dir)
  1204.         )
  1205.     )
  1206.     (copyfiles
  1207.         (source "ReadMe.info")
  1208.         (dest #dest-dir)
  1209.     )
  1210.     (tooltype (dest (tackon #dest-dir "ReadMe")) (setdefaulttool "MultiView") (noposition))
  1211.  
  1212.     ; Tell the system about the new descriptors
  1213.     (run "C:AddDataTypes Refresh")
  1214.     (execute "ReadMe")
  1215.  
  1216.     (complete 100)
  1217.     (exit #txt-end)
  1218.     )
  1219. )
  1220.  
  1221.