home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / euro1.dms / in.adf / InstallHD < prev    next >
Encoding:
Text File  |  1992-09-23  |  16.7 KB  |  547 lines
  1.  
  2. (complete 0)
  3.  
  4. (set @default-dest
  5.    (askdir
  6.        (prompt "Bitte wählen Sie das Verzeichnis, in dem der "
  7.               "EuroÜbersetzer installiert werden soll\n"
  8.       )
  9.         (help
  10.            "Sie müssen für die Installation das Verzeichnis "
  11.             "festlegen, in dem das Programm und die Daten des "
  12.             "EuroÜbersetzers installiert werden\n\n"
  13.          "Auf dem ausgewählten Laufwerk muß ausreichend "
  14.          "Speicherplatz zur Verfügung stehen. Wenn sowohl "
  15.          "das Programm, alle Wörterbücher und Beispieltexte "
  16.          "installiert werden, wird ca. 2.3 MByte benötigt.\n\n"
  17.       )
  18.       (default "SYS:EuroÜbersetzer")
  19.    )
  20. )
  21.  
  22. (if
  23.    (= (exists @default-dest) 0)
  24.        (makedir @default-dest)
  25. )
  26.  
  27. (set osversion (/ (getversion) 65536))
  28.  
  29. (onerror
  30.    (abort
  31.        "Die Installation kann nicht durchgeführt werden, "
  32.       "da das Verzeichnis LEXDATA, in dem die Wörterbuchdaten "
  33.       "installiert werden, nicht angelegt werden kann!\n"
  34.     )
  35. )
  36.  
  37. (set lexdatadir (tackon @default-dest "lexdata"))
  38. (if
  39.    (= (exists lexdatadir) 0)
  40.     (makedir lexdatadir)
  41. )
  42.  
  43. (onerror
  44.    (abort
  45.        "Die Installation kann nicht durchgeführt werden, "
  46.       "da die Verzeichnisse für die Textdaten, in denen die "
  47.       "Beispieltexte installiert werden, nicht angelegt "
  48.       "werden können!\n"
  49.     )
  50. )
  51.  
  52. (set germantextdir (tackon @default-dest "Texte Deutsch"))
  53. (if
  54.    (= (exists germantextdir) 0)
  55.     (makedir germantextdir)
  56. )
  57.  
  58. (set foreigntextdir (tackon @default-dest "Texte Englisch"))
  59. (if
  60.    (= (exists foreigntextdir) 0)
  61.     (makedir foreigntextdir)
  62. )
  63.  
  64. (onerror
  65. )
  66.  
  67. (if (= @user-level 2)
  68.    (
  69.        (set lexflag
  70.            (askoptions
  71.                (prompt
  72.                    "Bitte wählen Sie die Wörterbücher aus, die in dem gewählten "
  73.                "Verzeichnis installiert werden sollen:"
  74.                 )
  75.                 (help
  76.                "STANDARD enthält einen Großteil des Grundwortschatzes der "
  77.                "jeweiligen Fremdsprache und wird für eine Übersetzung "
  78.                "unbedingt benötigt.\n\n"
  79.                " Umfang des Wörterbuchs:\n"
  80.                "  ca. 10000 fremdsprachige Stichwörter\n"
  81.                "  ca. 33000 deutschsprache Stichwörter\n\n"
  82.                " benötigter Speicherplatz:\n"
  83.                "  ca. 850 KByte Speicher im RAM-Modus\n"
  84.                "  ca. 200 KByte Speicher im DISK-Modus\n\n"
  85.                "COMPUTER ist ein Fachbegriffswörterbuch aus dem Bereich "
  86.                "rund um Computer mit Schwerpunkt Amiga. Dieses Lexikon "
  87.                "ist sehr nützlich bei PD Anleitungen.\n\n"
  88.                " Umfang des Wörterbuchs:\n"
  89.                "  ca. 1000 fremdsprachige Stichwörter\n"
  90.                "  ca. 2700 deutschsprache Stichwörter\n\n"
  91.                " benötigter Speicherplatz:\n"
  92.                "  ca. 80 KByte Speicher im RAM-Modus\n"
  93.                "  ca. 30 KByte Speicher im DISK-Modus\n\n"
  94.                "WIRTSCHAFT enthält sehr viele Fachbegriffe aus dem Bereich "
  95.                "Wirtschaft / Business. Dieses Wörterbuch ist "
  96.                "eine Ergänzung zum Standard-Wörterbuch.\n\n"
  97.                " Umfang des Wörterbuchs:\n"
  98.                "  ca.  4800 fremdsprachige Stichwörter\n"
  99.                "  ca. 14500 deutschsprache Stichwörter\n\n"
  100.                " benötigter Speicherplatz:\n"
  101.                "  ca. 400 KByte Speicher im RAM-Modus\n"
  102.                "  ca. 100 KByte Speicher im DISK-Modus\n\n"
  103.                "IMPORT ist ein kleines Beispielwörterbuch, "
  104.                "dessen Daten aus Konkurrenzprodukten importiert "
  105.                "wurden. Nur für Demonstrationszwecke geeignet!\n\n"
  106.                " Umfang des Wörterbuchs:\n"
  107.                "   64 fremdsprachige Stichwörter\n"
  108.                "  131 deutschsprache Stichwörter\n\n"
  109.                " benötigter Speicherplatz:\n"
  110.                "      7325 Bytes Speicher im RAM-Modus\n"
  111.                "  ca. 3000 Bytes Speicher im DISK-Modus\n\n"
  112.                "MEGASTANDARD ist das umfangreichste der mitgelieferten "
  113.                "Wörterbücher und enthält neben dem Grundwortschatz "
  114.                "der Fremdsprache auch sehr viele Wörte, die aus "
  115.                "anderen Sprachen abgeleitet wurden.\n\n"
  116.                " Umfang des Wörterbuchs:\n"
  117.                "  ca. 26000 fremdsprachige Stichwörter\n"
  118.                "  ca. 83400 deutschsprache Stichwörter\n\n"
  119.                " benötigter Speicherplatz:\n"
  120.                "  ca. 2,2 MByte Speicher im RAM-Modus\n"
  121.                "  ca. 500 KByte Speicher im DISK-Modus"
  122.             )
  123.                 (choices
  124.                     "Standard"
  125.                "Computer"
  126.                "Wirtschaft"
  127.                "MegaStandard"
  128.                "Import"
  129.                 )
  130.                 (default 7)
  131.             )
  132.         )
  133.  
  134.         (if
  135.             (askbool
  136.                 (prompt "\n\nSollen die Icons für das Programm und seine Daten "
  137.                     "im Stil der Kickstart 2.0 installiert werden?")
  138.                 (help 
  139.                     "Bei der Einführung von Workbench 2.0 wurden die Grundfarben "
  140.                     "Schwarz und Weiß der Workbench aus systemtechnischen Gründen "
  141.                     "getauscht. Dadurch sehen Icons, die speziell für die Workbench 1.3 "
  142.                     "entwickelt wurden, unter Workbench 2.0 verunstaltet aus.\n\n"
  143.                "Um diesen Effekt zu vermeiden, besitzt der EuroÜbersetzer für "
  144.                "die beiden Versionen des Betriebssytems jeweils unterschiedliche Icons.\n\n"
  145.                "Bitte installieren Sie den Icontyp, der grafisch zu ihrer Workbench "
  146.                "paßt"
  147.                 )
  148.             )
  149.             (
  150.             (set kickflag 1)
  151.             )
  152.             (
  153.             (set kickflag 0)
  154.             )
  155.         )
  156.    )
  157.    (
  158.        (set lexflag 65535)
  159.         (if (>= osversion 36)
  160.             (
  161.             (set kickflag 1)
  162.             )
  163.       )
  164.         (if (<= osversion 35)
  165.             (
  166.             (set kickflag 0)
  167.             )
  168.       )
  169.    )
  170. )
  171.  
  172. (set totalfiles 9)
  173. (set counter 0)
  174.  
  175. (if (IN lexflag 0)
  176.    (
  177.       (set totalfiles (+ totalfiles 27))
  178.    )
  179. )
  180.  
  181. (if (IN lexflag 1)
  182.    (
  183.       (set totalfiles (+ totalfiles 27))
  184.    )
  185. )
  186.  
  187. (if (IN lexflag 2)
  188.    (
  189.       (set totalfiles (+ totalfiles 27))
  190.    )
  191. )
  192.  
  193. (if (IN lexflag 3)
  194.    (
  195.       (set totalfiles (+ totalfiles 27))
  196.    )
  197. )
  198.  
  199. (if (IN lexflag 4)
  200.    (
  201.       (set totalfiles (+ totalfiles 5))
  202.    )
  203. )
  204.  
  205. (set percentage (/ (* counter 100) totalfiles))
  206. (set counter (+ counter 1))
  207. (complete percentage)
  208.  
  209. (set n 0)
  210. (while (set thisfile (select n "EuroDisk1:EuroÜbersetzer" "EuroDisk1:EuroBkGrData" "EuroDisk1:Bitte lesen!" ""))
  211.    (
  212.       (if
  213.           (= 0 (exists thisfile))
  214.            (abort ("Es trat ein Fehler beim Kopieren der Datei %s auf. Die Installation wird abgebrochen" thisfile))
  215.       )
  216.  
  217.       (copyfiles
  218.          (prompt "" )
  219.          (help "")
  220.          (source thisfile)
  221.          (dest @default-dest)
  222.       )
  223.  
  224.         (set n (+ n 1))
  225.       (set percentage (/ (* counter 100) totalfiles))
  226.       (set counter (+ counter 1))
  227.       (complete percentage)
  228.    )
  229. )
  230.  
  231. (set n 0)
  232. (while (set thisfile (select n "EuroDisk1:Texte Englisch/ErrorCodes.txt" "EuroDisk1:Texte Englisch/FirstStep.txt" ""))
  233.    (
  234.       (if
  235.           (= 0 (exists thisfile))
  236.            (abort ("Es trat ein Fehler beim Kopieren der Datei %s auf. Die Installation wird abgebrochen" thisfile))
  237.       )
  238.  
  239.       (copyfiles
  240.          (prompt "" )
  241.          (help "")
  242.          (source thisfile)
  243.          (dest foreigntextdir)
  244.       )
  245.  
  246.         (set n (+ n 1))
  247.       (set percentage (/ (* counter 100) totalfiles))
  248.       (set counter (+ counter 1))
  249.       (complete percentage)
  250.    )
  251. )
  252.  
  253. (if (= kickflag 0)
  254.    (set sourcedir "EuroDisk1:IconData/Icons1.3")
  255. )
  256.  
  257. (if (= kickflag 1)
  258.    (set sourcedir "EuroDisk1:IconData/Icons2.0")
  259. )
  260.  
  261. (set n 0)
  262. (while (set thisfile (select n "EuroÜbersetzer.info" "Bitte lesen!.info" "Texte Englisch.info" "Texte Deutsch.info" ""))
  263.    (
  264.       (if
  265.           (= 0 (exists (tackon sourcedir thisfile)))
  266.            (abort ("Es trat ein Fehler beim Kopieren der Datei %s auf. Die Installation wird abgebrochen" (tackon sourcedir thisfile)))
  267.       )
  268.  
  269.       (copyfiles
  270.          (prompt "" )
  271.          (help "")
  272.          (source (tackon sourcedir thisfile))
  273.          (dest @default-dest)
  274.       )
  275.  
  276.         (set n (+ n 1))
  277.       (set percentage (/ (* counter 100) totalfiles))
  278.       (set counter (+ counter 1))
  279.       (complete percentage)
  280.     )
  281. )
  282.  
  283. (if (IN lexflag 0)
  284.    (
  285.       (onerror
  286.          (abort
  287.              "Die Installation kann nicht durchgeführt werden, "
  288.             "da die Daten des Standard Wörterbuchs nicht angelegt "
  289.             "werden können!\n\n"
  290.             "Bitte vergewissern Sie sich beim nächsten Installationsversuch, "
  291.             "ob auf der Festplatte noch ausreichend Speicher vorhanden ist.\n"
  292.           )
  293.       )
  294.  
  295.         (set n 0)
  296.       (set sourcedir "EuroDisk2:lexdata")
  297.         (while (set thisfile (select n "standard.data" "standard.datb" "standard.datc" "standard.datd" "standard.date" "standard.datf" "standard.datg" "standard.dath" "standard.dati" "standard.datj" "standard.datk" "standard.datl" "standard.datm" "standard.datn" "standard.dato" "standard.datp" "standard.datq" "standard.datr" "standard.dats" "standard.datt" "standard.datu" "standard.datv" "standard.datw" "standard.datx" "standard.daty" "standard.datz" ""))
  298.             (
  299.             (if
  300.                    (= 0 (exists (tackon sourcedir thisfile)))
  301.                    (abort ("Es trat ein Fehler beim Kopieren der Datei %s auf. Die Installation wird abgebrochen" (tackon sourcedir thisfile)))
  302.             )
  303.  
  304.             (copyfiles
  305.                 (prompt "" )
  306.                 (help "")
  307.                (source (tackon sourcedir thisfile))
  308.                (dest lexdatadir)
  309.             )
  310.  
  311.                 (set n (+ n 1))
  312.             (set percentage (/ (* counter 100) totalfiles))
  313.             (set counter (+ counter 1))
  314.             (complete percentage)
  315.             )
  316.         )
  317.  
  318.       (copyfiles
  319.           (prompt "" )
  320.           (help "")
  321.          (source "EuroDisk1:InstallData/standard.lex")
  322.          (dest @default-dest)
  323.       )
  324.  
  325.       (set percentage (/ (* counter 100) totalfiles))
  326.       (set counter (+ counter 1))
  327.       (complete percentage)
  328.    )
  329. )
  330.  
  331. (if (IN lexflag 1)
  332.    (
  333.       (onerror
  334.          (abort
  335.              "Die Installation kann nicht durchgeführt werden, "
  336.             "da die Daten des Computer Wörterbuchs nicht angelegt "
  337.             "werden können!\n\n"
  338.             "Bitte vergewissern Sie sich beim nächsten Installationsversuch, "
  339.             "ob auf der Festplatte noch ausreichend Speicher vorhanden ist.\n"
  340.           )
  341.       )
  342.  
  343.         (set n 0)
  344.       (set sourcedir "EuroDisk2:lexdata")
  345.         (while (set thisfile (select n "computer.data" "computer.datb" "computer.datc" "computer.datd" "computer.date" "computer.datf" "computer.datg" "computer.dath" "computer.dati" "computer.datj" "computer.datk" "computer.datl" "computer.datm" "computer.datn" "computer.dato" "computer.datp" "computer.datq" "computer.datr" "computer.dats" "computer.datt" "computer.datu" "computer.datv" "computer.datw" "computer.datx" "computer.daty" "computer.datz" ""))
  346.             (
  347.             (if
  348.                    (= 0 (exists (tackon sourcedir thisfile)))
  349.                    (abort ("Es trat ein Fehler beim Kopieren der Datei %s auf. Die Installation wird abgebrochen" (tackon sourcedir thisfile)))
  350.             )
  351.  
  352.             (copyfiles
  353.                 (prompt "" )
  354.                 (help "")
  355.                (source (tackon sourcedir thisfile))
  356.                (dest lexdatadir)
  357.             )
  358.  
  359.                 (set n (+ n 1))
  360.             (set percentage (/ (* counter 100) totalfiles))
  361.             (set counter (+ counter 1))
  362.             (complete percentage)
  363.             )
  364.         )
  365.  
  366.       (copyfiles
  367.           (prompt "" )
  368.           (help "")
  369.          (source "EuroDisk1:InstallData/computer.lex")
  370.          (dest @default-dest)
  371.       )
  372.  
  373.       (set percentage (/ (* counter 100) totalfiles))
  374.       (set counter (+ counter 1))
  375.       (complete percentage)
  376.    )
  377. )
  378.  
  379. (if (IN lexflag 2)
  380.    (
  381.       (onerror
  382.          (abort
  383.              "Die Installation kann nicht durchgeführt werden, "
  384.             "da die Daten des Wirtschaft Wörterbuchs nicht angelegt "
  385.             "werden können!\n\n"
  386.             "Bitte vergewissern Sie sich beim nächsten Installationsversuch, "
  387.             "ob auf der Festplatte noch ausreichend Speicher vorhanden ist.\n"
  388.           )
  389.       )
  390.  
  391.         (set n 0)
  392.       (set sourcedir "EuroDisk1:lexdata")
  393.         (while (set thisfile (select n "wirtschaft.data" "wirtschaft.datb" "wirtschaft.datc" "wirtschaft.datd" "wirtschaft.date" "wirtschaft.datf" "wirtschaft.datg" "wirtschaft.dath" "wirtschaft.dati" "wirtschaft.datj" "wirtschaft.datk" "wirtschaft.datl" "wirtschaft.datm" "wirtschaft.datn" "wirtschaft.dato" "wirtschaft.datp" "wirtschaft.datq" "wirtschaft.datr" "wirtschaft.dats" "wirtschaft.datt" "wirtschaft.datu" "wirtschaft.datv" "wirtschaft.datw" "wirtschaft.datx" "wirtschaft.daty" "wirtschaft.datz" ""))
  394.             (
  395.             (if
  396.                    (= 0 (exists (tackon sourcedir thisfile)))
  397.                    (abort ("Es trat ein Fehler beim Kopieren der Datei %s auf. Die Installation wird abgebrochen" (tackon sourcedir thisfile)))
  398.             )
  399.  
  400.             (copyfiles
  401.                 (prompt "" )
  402.                 (help "")
  403.                (source (tackon sourcedir thisfile))
  404.                (dest lexdatadir)
  405.             )
  406.  
  407.                 (set n (+ n 1))
  408.             (set percentage (/ (* counter 100) totalfiles))
  409.             (set counter (+ counter 1))
  410.             (complete percentage)
  411.             )
  412.         )
  413.  
  414.       (copyfiles
  415.           (prompt "" )
  416.           (help "")
  417.          (source "EuroDisk1:InstallData/wirtschaft.lex")
  418.          (dest @default-dest)
  419.       )
  420.  
  421.       (set percentage (/ (* counter 100) totalfiles))
  422.       (set counter (+ counter 1))
  423.       (complete percentage)
  424.    )
  425. )
  426.  
  427. (if (IN lexflag 3)
  428.    (
  429.       (onerror
  430.          (abort
  431.              "Die Installation kann nicht durchgeführt werden, "
  432.             "da die Daten des MegaStandard Wörterbuchs nicht angelegt "
  433.             "werden können!\n\n"
  434.             "Bitte vergewissern Sie sich beim nächsten Installationsversuch, "
  435.             "ob auf der Festplatte noch ausreichend Speicher vorhanden ist.\n"
  436.           )
  437.       )
  438.  
  439.         (set n 0)
  440.       (set sourcedir "EuroDisk2:lexdata")
  441.         (while (set thisfile (select n "megastandard.data" "megastandard.datc" "megastandard.datl" ""))
  442.             (
  443.             (if
  444.                    (= 0 (exists (tackon sourcedir thisfile)))
  445.                    (abort ("Es trat ein Fehler beim Kopieren der Datei %s auf. Die Installation wird abgebrochen" (tackon sourcedir thisfile)))
  446.             )
  447.  
  448.             (copyfiles
  449.                 (prompt "" )
  450.                 (help "")
  451.                (source (tackon sourcedir thisfile))
  452.                (dest lexdatadir)
  453.             )
  454.  
  455.                 (set n (+ n 1))
  456.             (set percentage (/ (* counter 100) totalfiles))
  457.             (set counter (+ counter 1))
  458.             (complete percentage)
  459.             )
  460.         )
  461.  
  462.         (set n 0)
  463.       (set sourcedir "EuroDisk3:lexdata")
  464.         (while (set thisfile (select n "megastandard.datb" "megastandard.datd" "megastandard.date" "megastandard.datf" "megastandard.datg" "megastandard.dath" "megastandard.dati" "megastandard.datj" "megastandard.datk" "megastandard.datm" "megastandard.datn" "megastandard.dato" "megastandard.datp" "megastandard.datq" "megastandard.datr" "megastandard.dats" "megastandard.datt" "megastandard.datu" "megastandard.datv" "megastandard.datw" "megastandard.datx" "megastandard.daty" "megastandard.datz" ""))
  465.             (
  466.             (if
  467.                    (= 0 (exists (tackon sourcedir thisfile)))
  468.                    (abort ("Es trat ein Fehler beim Kopieren der Datei %s auf. Die Installation wird abgebrochen" (tackon sourcedir thisfile)))
  469.             )
  470.  
  471.             (copyfiles
  472.                 (prompt "" )
  473.                 (help "")
  474.                (source (tackon sourcedir thisfile))
  475.                (dest lexdatadir)
  476.             )
  477.  
  478.                 (set n (+ n 1))
  479.             (set percentage (/ (* counter 100) totalfiles))
  480.             (set counter (+ counter 1))
  481.             (complete percentage)
  482.             )
  483.         )
  484.  
  485.       (copyfiles
  486.           (prompt "" )
  487.           (help "")
  488.          (source "EuroDisk1:InstallData/megastandard.lex")
  489.          (dest @default-dest)
  490.       )
  491.  
  492.       (set percentage (/ (* counter 100) totalfiles))
  493.       (set counter (+ counter 1))
  494.       (complete percentage)
  495.    )
  496. )
  497.  
  498. (if (IN lexflag 4)
  499.    (
  500.       (onerror
  501.          (abort
  502.              "Die Installation kann nicht durchgeführt werden, "
  503.             "da die Daten des Import Wörterbuchs nicht angelegt "
  504.             "werden können!\n\n"
  505.             "Bitte vergewissern Sie sich beim nächsten Installationsversuch, "
  506.             "ob auf der Festplatte noch ausreichend Speicher vorhanden ist.\n"
  507.           )
  508.       )
  509.  
  510.         (set n 0)
  511.       (set sourcedir "EuroDisk3:lexdata")
  512.         (while (set thisfile (select n "import.data" "import.datp" "import.datr" "import.dats" ""))
  513.             (
  514.             (if
  515.                    (= 0 (exists (tackon sourcedir thisfile)))
  516.                    (abort ("Es trat ein Fehler beim Kopieren der Datei %s auf. Die Installation wird abgebrochen" (tackon sourcedir thisfile)))
  517.             )
  518.  
  519.             (copyfiles
  520.                 (prompt "" )
  521.                 (help "")
  522.                (source (tackon sourcedir thisfile))
  523.                (dest lexdatadir)
  524.             )
  525.  
  526.                 (set n (+ n 1))
  527.             (set percentage (/ (* counter 100) totalfiles))
  528.             (set counter (+ counter 1))
  529.             (complete percentage)
  530.             )
  531.         )
  532.  
  533.       (copyfiles
  534.           (prompt "" )
  535.           (help "")
  536.          (source "EuroDisk1:InstallData/import.lex")
  537.          (dest @default-dest)
  538.       )
  539.  
  540.       (set percentage (/ (* counter 100) totalfiles))
  541.       (set counter (+ counter 1))
  542.       (complete percentage)
  543.    )
  544. )
  545.  
  546. (complete 100)
  547.