home *** CD-ROM | disk | FTP | other *** search
/ Mikrobitti Virtuaalilehti 1997 / mbvirt1997d.iso / ohjelmat / htmlt148.lha / MCC_HTMLtext / MCC-Install < prev   
Encoding:
Text File  |  1997-09-14  |  124.1 KB  |  3,176 lines

  1. ;
  2. ; Installer script for MUI custom classes
  3. ;
  4. ; Copyright ⌐ 1996-1997 Kai Hofmann
  5. ; All rights reserved!
  6. ; Released as Freeware without any explicit or implicit warranty!
  7. ;
  8. ; EMail: i07m@zfn.uni-bremen.de
  9. ; WWW  : http://www.informatik.uni-bremen.de/~i07m/
  10. ;
  11. ; $VER: MCC-Install 43.8 (08.03.97)
  12. ;
  13. ; -----------------------------------------------------------------------------
  14. ; WrapGuide is copyright ⌐ 1994-1995 Udo Schuermann
  15. ; -----------------------------------------------------------------------------
  16. ;
  17. ; Archive structure:
  18. ;
  19. ; MCC_<name>/.Product-Info
  20. ; MCC_<name>/MCC_<name>.readme
  21. ; MCC_<name>/MCC_<name>.readme.info
  22. ; MCC_<name>/MCC-Install
  23. ; MCC_<name>/MCC-Install.info
  24. ; MCC_<name>/Install/English.info            (optional)
  25. ; MCC_<name>/Install/...               (optional)
  26. ; MCC_<name>/Libs/MUI/<name>.mcc          (optional)
  27. ; MCC_<name>/Libs/MUI/<name>.mcp          (optional)
  28. ; MCC_<name>/Libs/MUI/<name>000.mcc          (optional)
  29. ; MCC_<name>/Libs/MUI/<name>000.mcp          (optional)
  30. ; MCC_<name>/Libs/MUI/<name>010.mcc          (optional)
  31. ; MCC_<name>/Libs/MUI/<name>010.mcp          (optional)
  32. ; MCC_<name>/Libs/MUI/<name>020.mcc          (optional)
  33. ; MCC_<name>/Libs/MUI/<name>020.mcp          (optional)
  34. ; MCC_<name>/Libs/MUI/<name>020f.mcc            (optional)
  35. ; MCC_<name>/Libs/MUI/<name>020f.mcp            (optional)
  36. ; MCC_<name>/Libs/MUI/<name>030.mcc          (optional)
  37. ; MCC_<name>/Libs/MUI/<name>030.mcp          (optional)
  38. ; MCC_<name>/Libs/MUI/<name>030f.mcc            (optional)
  39. ; MCC_<name>/Libs/MUI/<name>030f.mcp            (optional)
  40. ; MCC_<name>/Libs/MUI/<name>040.mcc          (optional)
  41. ; MCC_<name>/Libs/MUI/<name>040.mcp          (optional)
  42. ; MCC_<name>/Libs/MUI/<name>040f.mcc            (optional)
  43. ; MCC_<name>/Libs/MUI/<name>040f.mcp            (optional)
  44. ; MCC_<name>/Libs/MUI/<name>060.mcc          (optional)
  45. ; MCC_<name>/Libs/MUI/<name>060.mcp          (optional)
  46. ; MCC_<name>/Docs/english/<name>_mcc.guide
  47. ; MCC_<name>/Docs/english/<name>_mcc.guide.info
  48. ; MCC_<name>/Docs/english/<name>_mcc.doc        (optional)
  49. ; MCC_<name>/Docs/english/<name>_mcc.doc.info         (optional)
  50. ; MCC_<name>/Docs/......./<name>_mcc.guide         (optional)
  51. ; MCC_<name>/Docs/......./<name>_mcc.guide.info       (optional)
  52. ; MCC_<name>/Docs/......./<name>_mcc.doc        (optional)
  53. ; MCC_<name>/Docs/......./<name>_mcc.doc.info         (optional)
  54. ; MCC_<name>/Demos/<name>-Demo               (optional)
  55. ; MCC_<name>/Demos/<name>-Demo.info          (optional)
  56. ; MCC_<name>/Locale/Catalogs/.../<name>_mcc.catalog      (optional)
  57. ; MCC_<name>/Locale/Catalogs/.../<name>_mcp.catalog      (optional)
  58. ; MCC_<name>/Developer/Autodocs/MCC_<name>.doc
  59. ; MCC_<name>/Developer/C/Include/MUI/<name>_mcc.h
  60. ; MCC_<name>/Developer/C/Examples/<name>-Demo.c       (optional)
  61. ; MCC_<name>/Developer/Amiga-E/Modules/MUI/<name>_mcc.e  (optional)
  62. ; MCC_<name>/Developer/Amiga-E/Examples/<name>-Demo.e    (optional)
  63. ; MCC_<name>/Developer/Modula/txt/MCC<name>.def       (optional)
  64. ; MCC_<name>/Developer/Modula/txt/MCC<name>.mod       (optional)
  65. ; MCC_<name>/Developer/Modula/Demo/<name>Demo.mod     (optional)
  66. ; MCC_<name>/Developer/Oberon/txt/MCC<name>.mod       (optional)
  67. ; MCC_<name>/Developer/Oberon/examples/<name>Demo.mod    (optional)
  68. ; MCC_<name>/Developer/Assembler/Include/MUI/<name>_mcc.i   (optional)
  69. ; MCC_<name>/Developer/Assembler/Examples/<name>-Demo.s  (optional)
  70. ; MCC_<name>/Developer/Source/MCC_<name>/...       (optional)
  71. ; MCC_<name>/C/WarpGuide               (optional)
  72. ;
  73. ; -----------------------------------------------------------------------------
  74. ; TODO:
  75. ;
  76. ; MCC_<name>/Images/...                (optional)
  77. ; MCC_<name>/Developer/Rexx/Include/<name>_mcc.rexx      (optional)
  78. ; MCC_<name>/Developer/Rexx/Examples/<name>-Demo.rexx       (optional)
  79. ; MCC_<name>/Developer/Cluster/txt/MCC<name>.def      (optional)
  80. ; MCC_<name>/Developer/Cluster/txt/MCC<name>.mod      (optional)
  81. ; MCC_<name>/Developer/Cluster/txt/<name>Demo.mod     (optional)
  82. ; MCC_<name>/Developer/BB2/Include/MUI/<name>_mcc.asc    (optional)
  83. ; MCC_<name>/Developer/BB2/Examples/<name>-Demo.asc      (optional)
  84. ; MCC_<name>/Developer/MUIBuilder3/<name>.mb       (optional)
  85. ; MCC_<name>/Developer/MUIBuilder3/behaviour/<name>.mbcc (optional)
  86. ;
  87. ; C++
  88. ;
  89. ; Uninstall welcome "Wahl des Installationsmodus", "Weiter mit Installation",
  90. ; "Installtion abbrechen"
  91. ; Uninstall options "Installationsoptionen, ...", "Installation abbrechen"
  92. ; Other dialogs: "Installation abbechen"
  93. ;
  94. ; --- Custom initialisation ---------------------------------------------------
  95.  
  96.  ; Copyright
  97.  (set #copyright "Copyright ⌐ 1997 Dirk Holtwick")
  98.  
  99.  ; Minimum MUI version required for installation
  100.  (set #min_mui_version 16)
  101.  (set #min_mui_revision 0)
  102.  
  103.  ; Bultin language
  104.  ; Bit   0 = English
  105.  ; Bit   1 = German
  106.  ; Bit   2 = French
  107.  ; Bit   3 = Spanish
  108.  ; Bit   4 = Portuguese
  109.  ; Bit   5 = Danish
  110.  ; Bit   6 = Italian
  111.  ; Bit   7 = Dutch
  112.  ; Bit   8 = Norwegian
  113.  ; Bit   9 = Swedish
  114.  ; Bit 10 = Polish
  115.  ; Bit 11 = Finnish
  116.  ; Bit 12 = Hungarian
  117.  ; Bit 13 = Greek
  118.  ; Bit 14 = Esperanto
  119.  ; Bit 15 = Turkish
  120.  ; Bit 16 = Latin
  121.  ; Bit 17 = Russian
  122.  ; BIT 18 = Czech
  123.  ; BIT 19 = Catalonian
  124.  (set #language_mcc %11111111111111111111) ; LANGUAGE
  125.  (set #language_mcp %00000000000000000001) ; LANGUAGE
  126.  
  127. ; --- Custom installation procedures ------------------------------------------
  128.  
  129.  (procedure P_CustomExists
  130.   ; Params:
  131.   ;
  132.   ; Results:
  133.   ;
  134.   ; Used Vars:
  135.   ;
  136.  
  137.  )
  138.  
  139.  (procedure P_CustomInstall
  140.   ; Params:
  141.   ;
  142.   ; Results:
  143.   ;
  144.   ; Used Vars:
  145.   ;
  146.  
  147.  )
  148.  
  149.  (procedure P_CustomUninstall
  150.   ; Params:
  151.   ;
  152.   ; Results:
  153.   ;
  154.   ; Used Vars:
  155.   ;
  156.  
  157.  )
  158.  
  159. ; -----------------------------------------------------------------------------
  160. ; --- Do not change anything below this line ----------------------------------
  161. ; -----------------------------------------------------------------------------
  162.  
  163.  (set @default-dest "MUI:")
  164.  
  165.  (if (= @installer-version 0)
  166.    (
  167.     ; old Installer
  168.     (set #prop "")
  169.    )
  170.    (
  171.     ; new Installer
  172.     (set #prop "\x1b[2p")
  173.    )
  174.  )
  175.  
  176. ; --- Installer script strings ------------------------------------------------
  177.  
  178.  (set #i 0)
  179.  (while (<> @language (select #i "suomi" "├e╙tina" "polski" "svenska" "nederlands" "greek" "franτais" "italiano" "dansk" "deutsch" @language)) ; LANGUAGE
  180.    (set #i (+ #i 1))
  181.  )
  182.  (if (= #i 10) ; LANGUAGE
  183.    (set #language "english")
  184.    (set #language @language)
  185.  )
  186.  
  187.  (set #i 0)
  188.  (set #language_default %10000000000000000000) ; LANGUAGE
  189.  (while (<> #language (select #i "catalonian" "├e╙tina" "russian" "latina" "tⁿrkτe" "esperanto" "greek" "magyar" "suomi" "polski" "svenska" "norsk" "nederlands" "italiano" "dansk" "portuguΩs" "espa±ol" "franτais" "deutsch" #language)) ; LANGUAGE
  190.    (
  191.     (set #language_default (shiftright #language_default 1))
  192.     (set #i (+ #i 1))
  193.    )
  194.  )
  195.  (select #i ; LANGUAGE
  196.    ( ; Catalonian
  197.     (complete 0)
  198.    )
  199.    ( ; Czech translation by Vit Sindlar <xsindl00@stud.fee.vutbr.cz>
  200.     (if (= @installer-version 0)
  201.       (
  202.        (set #help_askoptions "Pokud m┴te Instal┴tor do verze 42.6, m╩┌e se st┴t, ┌e uvid╔te tla├╔tka se zatr┌en╔m bez popisu. Volba pomoc╔ t┼chto tla├╔tek bude ignorov┴na.\n\n")
  203.        (set #help_askchoice "Pokud m┴te Instal┴tor do verze 42.6, m╩┌e se st┴t, ┌e uvid╔te radio-tla├╔tka bez popisu. Volba pomoc╔ t┼chto tla├╔tek zp╩sob╔ p╥eskok na nejbli┌╙╔ ni┌╙╔ volbu.\n\n")
  204.       )
  205.     )
  206.     (set #unknown     "nezn┴m┘")
  207.     (set #choice_english    "Angli├tina")
  208.     (set #choice_german     "N┼m├ina")
  209.     (set #choice_french     "Francouz╙tina")
  210.     (set #choice_spanish    "≤pan┼l╙tina")
  211.     (set #choice_portuguese "Portugal╙tina")
  212.     (set #choice_danish     "D┴n╙tina")
  213.     (set #choice_italian    "Ital╙tina")
  214.     (set #choice_dutch      "Holand╙tina")
  215.     (set #choice_norwegian  "Nor╙tina")
  216.     (set #choice_swedish    "≤v╫d╙tina")
  217.     (set #choice_polish     "Pol╙tina")
  218.     (set #choice_finnish    "Fin╙tina")
  219.     (set #choice_hungarian  "Ma─ar╙tina")
  220.     (set #choice_turkish    "Ture├tina")
  221.     (set #choice_greek      "≥e├tina")
  222.     (set #choice_latin      "Latina")
  223.     (set #choice_esperanto  "Esperanto")
  224.     (set #choice_russian    "Ru╙tina")
  225.     (set #choice_czech      "πe╙tina")
  226.     (set #choice_catalonian "Katal┴n╙tina"); LANGUAGE
  227.  
  228.     (set #choice_catalogs   "Lokaliza├n╔ katalogy")
  229.     (set #choice_docs       "Dokumentace")
  230.     (set #choice_developer  "Materi┴l pro program┴tory")
  231.     (set #choice_source     "Zdrojov┘ k╧d")
  232.     (set #choice_install    "Instalovat")
  233.     (set #choice_update     "Obnovit instalaci")
  234.     (set #choice_uninstall  "Odinstalovat")
  235.     (set #prompt_askcpufpu    (cat "Zvolte konfiguraci Va╙eho po├╔ta├e (CPU/FPU), pro kterou chcete nainstalovat " @app-name ".mcc"))
  236.     (set #prompt_info         (cat "\nInstalace " @app-name " MUI custom class\n" #copyright "\n\n"))
  237.     (set #prompt_install_uninstall (cat #prompt_info "P╥ejete si instalovat nebo odinstalovat?"))
  238.     (set #abort_nocpu       (cat "Je mi l╔to, ale " @app-name ".mcc nelze nainstalovat, proto┌e typ Va╙eho CPU nen╔ podporov┴n.\n"))
  239.     (set #abort_nomui       (cat @app-name " MUI custom class je mo┌no pou┌╔vat pouze s Magic User Interface (MUI), bez n┼j je custom class nepou┌iteln┘!\n\n"
  240.              "Instal┴tor nena╙el " @default-dest ". Nejd╥╔ve mus╔te nainstalovat MUI a pak m╩┌ete zkusit instalaci " @app-name ".mcc!\n"
  241.              )
  242.     )
  243.     (set #abort_oldmui (cat "K instalaci " @app-name ".mcc je nutn╫ MUI alespo╬ verze %s.\n\n"
  244.              "Bylo nalezeno MUI verze %s.\n"
  245.              )
  246.     )
  247.     (set #welcome_install (cat "V╔tejte p╥i instalaci.\n"
  248.                 "Pros╔m zvolte si typ instalace (podle Va╙ich znalost╔ Amigy)."
  249.            )
  250.     )
  251.     (set #welcome_uninstall (cat "V╔tejte p╥i odinstalov┴n╔.\n"
  252.              "Pros╔m zvolte si typ odinstalov┴n╔ (podle Va╙ich znalost╔ Amigy)."
  253.              )
  254.     )
  255.     (set #prompt_uninstall_parts (cat "Kter╫ ├┴sti si p╥ejete odinstalovat?\n"
  256.                   @app-name ".mcp odinstaluje tak╫ p╥╔slu╙n╫ lokaliza├n╔ katalogy.\n"
  257.              )
  258.     )
  259.     (set #prompt_uninstall_all (cat "P╥ejete si odinstalovat v╙echny soubory pat╥╔c╔ k " @app-name ".mcc?"))
  260.     (set #help_uninstall_all "Jestli┌e nechcete odinstalovat v╙e, budete dot┴z┴ni, kter╫ ├┴sti si p╥ejete odinstalovat.")
  261.     (set #prompt_uninstall_plangs "Podporu pro kter╫ programovac╔ jazyky si p╥ejete odinstalovat?")
  262.     (set #prompt_uninstall_mcp_catalogs (cat "Kter╫ lokaliza├n╔ katalogy pro " @app-name ".mcp si p╥ejete odinstalovat?"))
  263.     (set #prompt_uninstall_mcc_catalogs (cat "Kter╫ lokaliza├n╔ katalogy pro " @app-name ".mcc si p╥ejete odinstalovat?"))
  264.     (set #prompt_uninstall_agdocs "Pro kter╫ jazyky si p╥ejete odinstalovat dokumentaci v AmigaGuide« ?")
  265.     (set #prompt_uninstall_docs "Kter╫ z dokument╩ si p╥ejete odinstalovat?")
  266.     (set #abort_oldversion (cat "" @app-name ".mcc verze %ld.%ld je ji┌ nainstalov┴n.\n\n"
  267.             "Jestli┌e si p╥ejete znovu nainstalovat star╙╔ verzi %ld.%ld, pak je nutno nejd╥╔ve odinstalovat nov┼j╙╔ verzi."
  268.             )
  269.     )
  270.     (set #prompt_update (cat "Kter╫ ├┴sti " @app-name ".mcc si p╥ejete p╥idat?"))
  271.     (set #prompt_install_mcc_catalogs (cat "Kter╫ katalogy pro " @app-name ".mcc si p╥ejete instalovat?"))
  272.     (set #prompt_install_mcp_catalogs (cat "Kter╫ katalogy pro " @app-name ".mcp si p╥ejete instalovat?"))
  273.     (set #prompt_install_docs "Kter╫ z dokument╩ si p╥ejete instalovat?")
  274.     (set #prompt_install_agdocs "Pro kter╫ jazyky si p╥ejete nainstalovat dokumentaci v AmigaGuide« ?")
  275.     (set #prompt_install_demo "P╥ejete si nainstalovat dod┴van╫ demo?")
  276.     (set #help_install_demo (cat "Demo je mal┘ program, kter┘ demonstruje pou┌it╔ " @app-name "custom class."))
  277.     (set #prompt_install_plangs "Podporu pro kter╫ programovac╔ jazyky si p╥ejete nainstalovat?")
  278.     (set #prompt_install_source "P╥ejete si nainstalovat zdrojov┘ k╧d?")
  279.     (set #help_install_source (cat "Zdrojov┘ k╧d " @app-name " custom class je mo┌no pou┌╔t jako p╥╔klad p╥i vytv┴╥en╔ sv┘ch vlastn╔ch program╩.\nUpozorn┼n╔ - zdrojov┘ k╧d m╩┌e b┘t v jak╫mkoliv jazyce!"))
  280.     (set #prompt_copy "P╥ejete si nakop╔rovat n┴sleduj╔c╔ soubor(y)?")
  281.     (set #prompt_makedir "N┴sleduj╔c╔ adres┴╥ nebyl nalezen, je nutno jej vytvo╥it:")
  282.  
  283.     (set #prompt_uninstall_asciidocs "Pro kter╫ jazyky si p╥ejete odinstalovat dokumentaci v ASCII?")
  284.     (set #prompt_install_asciidocs "Pro kter╫ jazyky si p╥ejete nainstalovat dokumentaci v ASCII?")
  285.     (set #exit_uninstall_finished (cat "Odinstalov┴n╔ prob┼hlo ╒sp┼╙n┼!\n"
  286.                    '"'
  287.                    @app-name
  288.                    '"'
  289.                    " je odstran┼n z "
  290.                    '"'
  291.                    @default-dest
  292.                    '".'
  293.               )
  294.     )
  295.    )
  296.    ( ; Russian translation by Oleg Sergeev <bigblack@neworder.spb.ru>
  297.     (if (= @installer-version 0)
  298.       (
  299.        (set #help_askoptions "─≡Ωτ ≥ ┴a°a ßΣ∩≡τ■ ε∩φΓ∩aδδ· Installer δΣ∞ΣΣ 42.6, ±φ δφσΣ± ±aΘ ≡Ω≥÷τ±√≡■, ÷±φ ß ε∩φ⌡Σ≡≡Σ τ∞≡±aΩΩ■⌡ττ ┴· ≥ßτπτ±Σ Θ∞φεΘτ-ΓaΩφ÷Θτ αΣµ εφπετ≡ΣΦ. ╠aσa±τΣ ∞a ±aΘτΣ Θ∞φεΘτ α≥πΣ± ε∩φτΓ∞φ∩τ∩φßa∞φ.\n\n")
  300.        (set #help_askchoice "─≡Ωτ ┴a°a ßΣ∩≡τ■ ε∩φΓ∩aδδ· Installer δΣ∞ΣΣ 42.6, ±φ δφσΣ± ±aΘ ≡Ω≥÷τ±√≡■, ÷±φ ß ε∩φ⌡Σ≡≡Σ τ∞≡±aΩΩ■⌡ττ ┴· ≥ßτπτ±Σ ∩aπτφΘ∞φεΘτ αΣµ εφπετ≡ΣΦ. ╠aσa±τΣ ∞a ±aΘτΣ Θ∞φεΘτ ∩aß∞φµ∞a÷∞φ ∞aσa±τ² ∞a ≡aδ≥² ∞τσ∞²² πφ≡±≥ε∞≥² τµ ∞τ⌠.\n\n")
  301.       )
  302.     )
  303.     (set #unknown     "∞ΣτµßΣ≡±∞φ")
  304.     (set #choice_english    "A∞ΓΩτΦ≡ΘτΦ")
  305.     (set #choice_german     "╠ΣδΣ⌡ΘτΦ")
  306.     (set #choice_french     "╙∩a∞⌡≥µ≡ΘτΦ")
  307.     (set #choice_spanish    "╟≡εa∞≡ΘτΦ")
  308.     (set #choice_portuguese "╬φ∩±≥ΓaΩ√≡ΘτΦ")
  309.     (set #choice_danish     "├a±≡ΘτΦ")
  310.     (set #choice_italian    "╟±aΩ√■∞≡ΘτΦ")
  311.     (set #choice_dutch      "┬φΩΩa∞π≡ΘτΦ")
  312.     (set #choice_norwegian  "╠φ∩ßΣσ≡ΘτΦ")
  313.     (set #choice_swedish    "╪ßΣπ≡ΘτΦ")
  314.     (set #choice_polish     "╬φΩ√≡ΘτΦ")
  315.     (set #choice_finnish    "╙τ∞≡ΘτΦ")
  316.     (set #choice_hungarian  "┴Σ∞ΓΣ∩≡ΘτΦ")
  317.     (set #choice_turkish    "╤≥∩Σ⌡ΘτΦ")
  318.     (set #choice_greek      "┬∩Σ÷Σ≡ΘτΦ")
  319.     (set #choice_latin      "╩a±τ∞≡ΘτΦ")
  320.     (set #choice_esperanto  "▄≡εΣ∩a∞±φ")
  321.     (set #choice_russian    "╧≥≡≡ΘτΦ")
  322.     (set #choice_czech      "╓Σ°≡ΘτΦ")
  323.     (set #choice_catalonian "╔a±aΩφ∞≡ΘτΦ"); LANGUAGE
  324.  
  325.     (set #choice_catalogs   "╔a±aΩφΓτ")
  326.     (set #choice_docs       "├φΘ≥δΣ∞±·")
  327.     (set #choice_developer  "╦a±Σ∩τaΩ· πΩ■ ε∩φΓ∩aδδτ≡±φß")
  328.     (set #choice_source     "╟≡⌠φπ∞·Σ Θφπ·")
  329.     (set #choice_install    "╟∞≡±aΩΩ■±φ∩")
  330.     (set #choice_update     "═α∞φßΩΣ∞τΣ")
  331.     (set #choice_uninstall  "├Στ∞≡±aΩΩ■⌡τ■")
  332.     (set #prompt_askcpufpu     (cat "╥Θaστ±Σ Θφ∞≤τΓ≥∩a⌡τ² CPU/FPU, πΩ■ Θφ±φ∩φΦ ┴· ⌠φ±τ±Σ ε∩φτ∞≡±aΩΩτ∩φßa±√ " @app-name ".mcc"))
  333.     (set #prompt_info      (cat "\n├φα∩φ εφσaΩφßa±√ ß Ωτ÷∞·Φ MUI-ΘΩa≡≡ " @app-name "\n" #copyright "\n\n"))
  334.     (set #prompt_install_uninstall (cat #prompt_info "┴· ⌠φ±τ±Σ τ∞≡±aΩΩτ∩φßa±√ τΩτ πΣτ∞≡±aΩΩτ∩φßa±√ πa∞∞·Φ Ωτ÷∞·Φ ΘΩa≡≡?"))
  335.     (set #abort_nocpu ( cat "╟µßτ∞τ±Σ, ∞φ πa∞∞·Φ τ∞≡±aΩΩ■±φ∩ ∞Σ δφσΣ± ≥≡±a∞φßτ±√ " @app-name ".mcc, ±.Θ. ≥Θaµa∞∞a■ ┴aδτ Θφ∞≤τΓ≥∩a⌡τ■ ∞Σ εφππΣ∩στßaΣ±≡■.\n"))
  336.     (set #abort_nomui (cat "╩τ÷∞·Φ MUI-ΘΩa≡≡ " @app-name " τ≡εφΩ√µ≥Σ±≡■ ±φΩ√Θφ ≡φßδΣ≡±∞φ ≡ ┴φΩ°Σα∞·δ ╟∞±Σ∩≤ΣΦ≡φδ ╬φΩ√µφßa±ΣΩ■ (MUI), τ∞a÷Σ πa∞∞·Φ Ωτ÷∞·Φ ΘΩa≡≡ ∞Σ πφ≡±≥εΣ∞!\n\n"
  337.          "╬∩Σπφε∩ΣπΣΩΣ∞τΣ δa∩°∩≥±a " @default-dest " ∞Σ ∞aΦπΣ∞φ. ╬Σ∩Σπ τ∞≡±aΩΩ■⌡τΣΦ " @app-name ".mcc ≡∞a÷aΩa ε∩φτ∞≡±aΩΩτ∩≥Φ±Σ MUI !\n"
  338.           )
  339.     )
  340.     (set #abort_oldmui (cat "├Ω■ τ∞≡±aΩΩ■⌡ττ " @app-name ".mcc ∞Σφα⌠φπτδa ΘaΘ δτ∞τδ≥δ %s ßΣ∩≡τ■ MUI.\n\n"
  341.           "═α∞a∩≥σΣ∞a ±φΩ√Θφ ßΣ∩≡τ■ %s MUI.\n"
  342.            )
  343.     )
  344.     (set #welcome_install (cat "├φα∩φ εφσaΩφßa±√ ß τ∞≡±aΩΩ■±φ∩ Ωτ÷∞φΓφ MUI-ΘΩa≡≡a.\n"
  345.              "╥Θaστ±Σ ΘaΘ ε∩φτµßφπτ±√ τ∞≡±aΩΩ■⌡τ² (ß µaßτ≡τδφ≡±τ φ± ┴a°τ⌠ µ∞a∞τΦ)."
  346.         )
  347.     )
  348.     (set #welcome_uninstall (cat "├φα∩φ εφσaΩφßa±√ ß πΣτ∞≡±aΩΩ■±φ∩ Ωτ÷∞φΓφ MUI-ΘΩa≡≡a.\n"
  349.          "╥Θaστ±Σ ΘaΘ ε∩φτµßφπτ±√ πΣτ∞≡±aΩΩ■⌡τ² (ß µaßτ≡τδφ≡±τ φ± ┴a°τ⌠ µ∞a∞τΦ)."
  350.           )
  351.     )
  352.     (set #prompt_uninstall_parts (cat "╔aΘτΣ ÷a≡±τ ∞Σφα⌠φπτδφ πΣτ∞≡±aΩΩτ∩φßa±√?\n"
  353.               @app-name ".mcp πΣτ∞≡±aΩΩτ∩≥Σ± τ Θa±aΩφΓτ ±φσΣ.\n"
  354.          )
  355.     )
  356.     (set #prompt_uninstall_all (cat "┴· ⌠φ±τ±Σ πΣτ∞≡±aΩΩτ∩φßa±√ ß≡╜, ≡ß■µa∞∞φΣ ≡ " @app-name ".mcc?"))
  357.     (set #help_uninstall_all "─≡Ωτ ┴· ⌠φ±τ±Σ ≥πaΩτ±√ ß≡╜, ±φ ┴· α≥πΣ±Σ εΣ∩Σ≡ε∩φ°Σ∞· εφ ΘaσπφΦ ÷a≡±τ.")
  358.     (set #prompt_uninstall_plangs "╬φππΣ∩σΘ≥ ΘaΘτ⌠ ■µ·Θφß ε∩φΓ∩aδδτ∩φßa∞τ■ ┴· ⌠φ±τ±Σ πΣτ∞≡±aΩΩτ∩φßa±√?")
  359.     (set #prompt_uninstall_mcp_catalogs (cat "╔aΘτΣ Θa±aΩφΓτ Θ " @app-name ".mcp ┴· ⌠φ±τ±Σ πΣτ∞≡±aΩΩτ∩φßa±√?"))
  360.     (set #prompt_uninstall_mcc_catalogs (cat "╔aΘτΣ Θa±aΩφΓτ Θ " @app-name ".mcc ┴· ⌠φ±τ±Σ πΣτ∞≡±aΩΩτ∩φßa±√?"))
  361.     (set #prompt_uninstall_agdocs "├φΘ≥δΣ∞±a⌡τ² ΘaΘτ⌠ ■µ·Θφß ß ≤φ∩δa±Σ AmigaGuide« ┴· ⌠φ±τ±Σ πΣτ∞≡±aΩΩτ∩φßa±√?")
  362.     (set #prompt_uninstall_docs "╔aΘτΣ ±τε· πφΘ≥δΣ∞±φß ┴· ⌠φ±τ±Σ πΣτ∞≡±aΩΩτ∩φßa±√?")
  363.     (set #abort_oldversion (cat "═α∞a∩≥σΣ∞φ, ÷±φ ßΣ∩≡τ■ %ld.%ld " @app-name ".mcc ≥σΣ ε∩φτ∞≡±aΩΩτ∩φßa∞a.\n\n"
  364.         "─≡Ωτ ┴· ⌠φ±τ±Σ εΣ∩Στ∞≡±aΩΩτ∩φßa±√ ßΣ∩≡τ² %ld.%ld, ±φ ≡∞a÷aΩa πΣτ∞≡±aΩΩτ∩≥Φ±Σ ß≡Σ π∩≥ΓτΣ ßΣ∩≡ττ."
  365.          )
  366.     )
  367.     (set #prompt_update (cat "╔aΘτΣ ÷a≡±τ " @app-name ".mcc ∞Σφα⌠φπτδφ πφαaßτ±√ ß τ∞≡±aΩΩ■⌡τφ∞∞≥² ε∩φ⌡Σπ≥∩≥?"))
  368.     (set #prompt_install_mcc_catalogs (cat "╔aΘτΣ Θa±aΩφΓτ Θ " @app-name ".mcc ┴· ⌠φ±τ±Σ ε∩φτ∞≡±aΩΩτ∩φßa±√?"))
  369.     (set #prompt_install_mcp_catalogs (cat "╔aΘτΣ Θa±aΩφΓτ Θ " @app-name ".mcp ┴· ⌠φ±τ±Σ ε∩φτ∞≡±aΩΩτ∩φßa±√?"))
  370.     (set #prompt_install_docs "╔aΘτΣ ±τε· πφΘ≥δΣ∞±φß ┴· ⌠φ±τ±Σ ε∩φτ∞≡±aΩΩτ∩φßa±√?")
  371.     (set #prompt_install_agdocs "├φΘ≥δΣ∞±a⌡τ² ΘaΘτ⌠ ■µ·Θφß ß ≤φ∩δa±Σ AmigaGuide« ┴· ⌠φ±τ±Σ ε∩φτ∞≡±aΩΩτ∩φßa±√?")
  372.     (set #prompt_install_demo "┴· ⌠φ±τ±Σ ε∩φτ∞≡±aΩΩτ∩φßa±√ ≡φε≥±≡±ß≥²∙ΣΣ πΣδφ-ε∩τΩφσΣ∞τΣ?")
  373.     (set #help_install_demo (cat "├Σδφ-ε∩τΩφσΣ∞τΣ - δaΩΣ∞√Θa■ ε∩φΓ∩aδδa, εφΘaµ·ßa²∙a■ τ≡εφΩ√µφßa∞τΣ Ωτ÷∞φΓφ ΘΩa≡≡a " @app-name "."))
  374.     (set #prompt_install_plangs "╬φππΣ∩σΘ≥ ΘaΘτ⌠ ■µ·Θφß ε∩φΓ∩aδδτ∩φßa∞τ■ ┴· ⌠φ±τ±Σ ε∩φτ∞≡±aΩΩτ∩φßa±√?")
  375.     (set #prompt_install_source "┴· ⌠φ±τ±Σ ε∩φτ∞≡±aΩΩτ∩φßa±√ τ≡⌠φπ∞·Σ Θφπ·?")
  376.     (set #help_install_source (cat "╟≡⌠φπ∞·Σ Θφπ· φ± Ωτ÷∞φΓφ ΘΩa≡≡a " @app-name " δφΓ≥± α·±√ τ≡εφΩ√µφßa∞· ß Θa÷Σ≡±ßΣ ε∩τδΣ∩φß, a ±aΘσΣ πΩ■ ≡aδφ∩≥÷∞φΓφ ≡φµπa∞τ■ ΘΩa≡≡a.\n╥÷±τ±Σ, ÷±φ τ≡⌠φπ∞τΘτ δφΓ≥± α·±√ ∞a Ω²αφδ ■µ·ΘΣ!"))
  377.     (set #prompt_copy "╠Σφα⌠φπτδφ-Ωτ ≡Θφετ∩φßa±√ ≡ΩΣπ≥²∙τΣ ≤aΦΩ(·)?")
  378.     (set #prompt_makedir "╠τσΣ≥Θaµa∞∞·Φ Θa±aΩφΓ ∞Σ ∞aΦπΣ∞, εφⁿ±φδ≥ φ∞ πφΩσΣ∞ α·±√ ≡φµπa∞:")
  379.  
  380.     (set #prompt_uninstall_asciidocs "├φΘ≥δΣ∞±a⌡τ² ΘaΘτ⌠ ■µ·Θφß ß ≤φ∩δa±Σ ASCII ┴· ⌠φ±τ±Σ πΣτ∞≡±aΩΩτ∩φßa±√?")
  381.     (set #prompt_install_asciidocs "├φΘ≥δΣ∞±a⌡τ² ΘaΘτ⌠ ■µ·Θφß ß ≤φ∩δa±Σ ASCII ┴· ⌠φ±τ±Σ ε∩φτ∞≡±aΩΩτ∩φßa±√?")
  382.     (set #exit_uninstall_finished (cat "├Στ∞≡±aΩΩ■⌡τ■ µaßΣ∩°Σ∞a!\n"
  383.                '"'
  384.                @app-name
  385.                '"'
  386.                " ≥πaΩ╜∞ ≡ ┴a°ΣΓφ "
  387.                '"'
  388.                @default-dest
  389.                '"'
  390.                " ≥≡±∩φΦ≡±ßa (τΩτ εa∩±τ⌡ττ)."
  391.           )
  392.     )
  393.    )
  394.    ( ; Latina
  395.     (complete 0)
  396.    )
  397.    ( ; Tⁿrkτe
  398.     (complete 0)
  399.    )
  400.    ( ; Esperanto
  401.     (complete 0)
  402.    )
  403.    ( ; Greek translation by Pantelis Kopelias <leestar@acropolis.net>
  404.     (if (= @installer-version 0)
  405.       (
  406.        (set #help_askoptions "Mσ ▌φß Installer ≡±▀φ ⌠τφ ▌ΩΣ∩≤τ 42.6 ∞≡∩±σ▀ φß ≤⌡∞Γσ▀ φß Σσ▀⌠σ checkbox-Ω∩⌡∞≡Θ▄ ≈∙±▀≥ σ⌠ΘΩ▌⌠σ≥. ╟ σ≡Θδ∩π▐ ⌠■φ Ω∩⌡∞≡Θ■φ ß⌡⌠■φ Φß ßπφ∩τΦσ▀.\n\n")
  407.        (set #help_askchoice "Mσ ▌φß Installer ≡±▀φ ⌠τφ ▌ΩΣ∩≤τ 42.6 ∞≡∩±σ▀ φß ≤⌡∞Γσ▀ φß Σσ▀⌠σ radio-Ω∩⌡∞≡Θ▄ ≈∙±▀≥ σ⌠ΘΩ▌⌠σ≥. ╟ σ≡Θδ∩π▐ ⌠■φ Ω∩⌡∞≡Θ■φ ß⌡⌠■φ Φß ▌≈σΘ ß≡∩⌠▌δσ≤∞ß ⌠τφ σ≡ⁿ∞σφτ ≈ß∞τδ■⌠σ±τ ΣΘßΦ▌≤Θ∞τ σ≡Θδ∩π▐.\n\n")
  408.       )
  409.     )
  410.     (set #unknown     "▄πφ∙≤⌠ß")
  411.     (set #choice_english    "┴ππδΘΩ▄")
  412.     (set #choice_german     "├σ±∞ßφΘΩ▄")
  413.     (set #choice_french     "├ßδδΘΩ▄")
  414.     (set #choice_spanish    "╔≤≡ßφΘΩ▄")
  415.     (set #choice_portuguese "╨∩±⌠∩πßδΘΩ▄")
  416.     (set #choice_danish     "─ßφ▌µΘΩß")
  417.     (set #choice_italian    "I⌠ßδΘΩ▄")
  418.     (set #choice_dutch      "╧δδßφΣΘΩ▄")
  419.     (set #choice_norwegian  "═∩±ΓτπΘΩ▄")
  420.     (set #choice_swedish    "╙∩⌡τΣΘΩ▄")
  421.     (set #choice_polish     "╨∩δ∙φΘΩ▄")
  422.     (set #choice_finnish    "╓ΘδδßφΣ▌µΘΩß")
  423.     (set #choice_hungarian  "╧⌡ππ±ΘΩ▄")
  424.     (set #choice_turkish    "╘∩⌡±ΩΘΩ▄")
  425.     (set #choice_greek      "┼δδτφΘΩ▄")
  426.     (set #choice_latin      "╦ß⌠ΘφΘΩ▄")
  427.     (set #choice_esperanto  "┼≤≡σ±▄φ⌠∩")
  428.     (set #choice_russian    "╤∙≤≤ΘΩ▄")
  429.     (set #choice_czech      "╘≤▌≈ΘΩß")
  430.     (set #choice_catalonian "╩ß⌠ßδ∩φ▌µΘΩß"); LANGUAGE
  431.  
  432.     (set #choice_catalogs   "╩ß⌠▄δ∩π∩Θ")
  433.     (set #choice_docs       "╧Στπ▀σ≥/┼π≈σΘ±▀ΣΘß")
  434.     (set #choice_developer  "╒δΘΩⁿ πΘß Developers")
  435.     (set #choice_source     "╨τπß▀∩≥ ╩■ΣΘΩß≥")
  436.     (set #choice_install    "┼πΩß⌠▌≤⌠τ≤σ")
  437.     (set #choice_update     "┼φτ∞▌±∙≤τ")
  438.     (set #choice_uninstall  "┴≡σπΩß⌠▌≤⌠τ≤σ")
  439.     (set #prompt_askcpufpu    (cat "╨ß±ßΩßδ■ σ≡Θδ▌ε⌠σ ⌠τφ CPU/FPU configuration πΘß ⌠τφ ∩≡∩▀ß Φ▌δσ⌠σ φß σπΩß⌠ß≤⌠▐≤σ⌠σ ⌠τφ " @app-name ".mcc"))
  440.     (set #prompt_info         (cat "\n╩ßδ∙≤▐δΦß⌠σ ≤⌠∩ " @app-name " MUI custom class\n" #copyright "\n\n"))
  441.     (set #prompt_install_uninstall (cat #prompt_info "╚▌δσ⌠σ φß σπΩß⌠ß≤⌠▐≤σ⌠σ ▐ φß ß≡σπΩß⌠ß≤⌠▐≤σ⌠σ ⌠▐φ custom class?"))
  442.     (set #abort_nocpu (cat "╙⌡πφ■∞τ, ⌠∩ script ßΣ⌡φß⌠σ▀ φß σπΩß⌠ß≤⌠▐≤σΘ ⌠∩ " @app-name ".mcc, πΘß⌠▀ τ CPU configuration ≤ß≥ Σ▌φ ⌡≡∩≤⌠τ±▀µσ⌠ßΘ.\n"))
  443.     (set #abort_nomui (cat "T∩ " @app-name " MUI custom class ∞≡∩±σ▀ φß ≈±τ≤Θ∞∩≡∩ΘτΦσ▀ ∞ⁿφ∩ ∞σ ⌠∩ Magic User Interface (MUI), ≈∙±▀≥ ß⌡⌠ⁿ τ custom class σ▀φßΘ ▄≈±τ≤⌠τ!\n\n"
  444.             "╧ σπΩß⌠ß≤⌠▄⌠τ≥ Σ▌φ Γ±▐Ωσ ⌠∩ " @default-dest " πΘß φß π▀φσΘ assigned, πΘß⌡⌠ⁿ ≡ß±ßΩßδ■ σπΩß⌠ß≤⌠▐≤⌠σ ⌠∩ MUI ≡±▀φ ≡±∩≤≡ßΦ▐≤σ⌠σ φß σπΩß⌠ß≤⌠▐≤σ⌠σ ⌠∩ " @app-name ".mcc!\n"
  445.             )
  446.     )
  447.     (set #abort_oldmui (cat "├Θß φß σπΩß⌠ß≤⌠▐≤σ⌠σ ⌠∩ " @app-name ".mcc ≈±σΘ▄µσ≤⌠σ ⌠∩ MUI %s ⌠∩⌡δ▄≈Θ≤⌠∩φ.\n\n"
  448.              "╧ σπΩß⌠ß≤⌠▄⌠τ≥ Γ±▐Ωσ ⁿ⌠Θ ⌠∩ MUI %s σ▀φßΘ σπΩß⌠σ≤⌠τ∞▌φ∩.\n"
  449.              )
  450.     )
  451.     (set #welcome_install (cat "╩ßδ∙≤▐δΦß⌠σ ≤⌠∩ MUI custom class ≡±ⁿπ±ß∞∞ß σπΩß⌠▄≤⌠ß≤τ≥.\n"
  452.                 "╨ß±ßΩßδ■ σ≡Θδ▌ε⌠σ ≡■≥ φß ≡±∩≈∙±▐≤σΘ τ σπΩß⌠▄≤⌠ß≤τ (Γß≤Θµⁿ∞σφ∩Θ ≤⌠Θ≥ πφ■≤σΘ≥ ≤ß≥ σ≡▄φ∙ ≤⌠τφ Amiga)."
  453.            )
  454.     )
  455.     (set #welcome_uninstall (cat "╩ßδ∙≤▐δΦß⌠σ ≤⌠∩ MUI custom class ≡±ⁿπ±ß∞∞ß ß≡σπΩß⌠▄≤⌠ß≤τ≥.\n"
  456.              "╨ß±ßΩßδ■ σ≡Θδ▌ε⌠σ ≡■≥ φß ≡±∩≈∙±▐≤σΘ τ σπΩß⌠▄≤⌠ß≤τ (Γß≤Θµⁿ∞σφ∩Θ ≤⌠Θ≥ πφ■≤σΘ≥ ≤ß≥ σ≡▄φ∙ ≤⌠τφ Amiga)."
  457.              )
  458.     )
  459.     (set #prompt_uninstall_parts (cat "╨∩Θ▄ ∞▌±τ Φ▌δσ⌠σ φß ß÷ßΘ±▌≤σ⌠σ ;\n"
  460.                   @app-name ".mcp Φß ß÷Θ±▌≤σΘ ΩßΘ ⌠∩⌡≥ ≤≈σ⌠ΘΩ∩²≥ catalogs σ≡▀≤τ≥.\n"
  461.              )
  462.     )
  463.     (set #prompt_uninstall_all (cat "╚▌δσ⌠σ φß ß÷ßΘ±▌≤σ⌠σ ⁿδß ⁿ≤ß ≤≈σ⌠▀µ∩φ⌠ßΘ ∞σ ⌠∩ " @app-name ".mcc;"))
  464.     (set #help_uninstall_all "╢φ Σ▌φ Φ▌δσ⌠σ φß ⌠ß ß÷ßΘ±▌≤σ⌠σ ⁿδß, Φ▄ σ±∙⌠τΦσ▀⌠σ ≡∩Θ▄ ∞▌±τ Φ▌δσ⌠σ φß ß÷ßΘ±σΦ∩²φ.")
  465.     (set #prompt_uninstall_plangs "╨∩Θ▄ ⌡≡∩≤⌠▐±Θετ πΘ▄ πδ■≤≤ß ≡±∩π±ß∞∞ß⌠Θ≤∞∩² Φ▌δσ⌠σ φß ß÷ßΘ±σΦσ▀ ;")
  466.     (set #prompt_uninstall_mcp_catalogs (cat "╨∩Θ∩²≥ Ωß⌠ßδⁿπ∩⌡≥ πΘ▄ ⌠∩ " @app-name ".mcp Φß Φ▌δß⌠σ φß ß÷ßΘ±σΦ∩²φ ;"))
  467.     (set #prompt_uninstall_mcc_catalogs (cat "╨∩Θ∩²≥ Ωß⌠ßδⁿπ∩⌡≥ πΘß ⌠∩ " @app-name ".mcc Φß Φ▌δß⌠σ φß ß÷ßΘ±σΦ∩²φ ;"))
  468.     (set #prompt_uninstall_agdocs "├Θß ≡∩Θ▌≥ πδ■≤≤σ≥ Φß Φ▌δß⌠σ φß ß÷ßΘ±σΦ∩²φ ∩▀ AmigaGuide« ∩Στπ▀σ≥ ;")
  469.     (set #prompt_uninstall_docs "╨∩Θ∩² ⌠²≡∩⌡ ∩Στπ▀σ≥ Φß Φ▌δß⌠σ φß ß÷ßΘ±σΦ∩²φ ;")
  470.     (set #abort_oldversion (cat "╧ σπΩß⌠ß≤⌠▄⌠τ≥ Γ±▐Ωσ ⁿ⌠Θ τ ▌ΩΣ∩≤τ %ld.%ld ⌠∩² " @app-name ".mcc σ▀φßΘ ▐Στ σπΩß⌠σ≤⌠τ∞▌φτ.\n\n"
  471.             "Aφ Φ▌δσ⌠σ φß σ≡ßφσπΩß⌠ß≤⌠▐≤σ⌠σ ⌠τφ ≡ßδΘ■⌠σ±τ ▌ΩΣ∩≤τ %ld.%ld ⌠ⁿ⌠σ ≡ß±ßΩßδ■ ß÷ßΘ±▌≤⌠σ ⌠τφ φσ■⌠σ±τ ▌ΩΣ∩≤τ ≡±■⌠ß."
  472.             )
  473.     )
  474.     (set #prompt_update (cat "╨∩Θ▄ ∞▌±τ ⌠∩⌡ " @app-name ".mcc Φ▌δσ⌠σ φß ≡±∩≤⌠σΦ∩²φ ≤⌠τφ σπΩß⌠▄≤⌠ß≤τ ;"))
  475.     (set #prompt_install_mcc_catalogs (cat "╨∩Θ∩²≥ Ωß⌠ßδⁿπ∩⌡≥ πΘß ⌠∩ " @app-name ".mcc ╚▌δσ⌠σ φß σπΩß⌠ß≤⌠ßΦ∩²φ ;"))
  476.     (set #prompt_install_mcp_catalogs (cat "╨∩Θ∩²≥ Ωß⌠ßδⁿπ∩⌡≥ πΘß ⌠∩ " @app-name ".mcp ╚▌δσ⌠σ φß σπΩß⌠ß≤⌠ßΦ∩²φ ;"))
  477.     (set #prompt_install_docs "╨∩Θ∩² ⌠²≡∩⌡ ∩Στπ▀σ≥ Φ▌δσ⌠σ φß σπΩß⌠ß≤⌠▐≤σ⌠σ ;")
  478.     (set #prompt_install_agdocs "├Θß ≡∩Θ▌≥ πδ■≤≤σ≥ Φ▌δσ⌠σ φß σπΩß⌠ß≤⌠▐≤σ⌠σ ⌠Θ≥ AmigaGuide« ∩Στπ▀σ≥ ;")
  479.     (set #prompt_install_demo "╚▌δσ⌠σ φß σπΩß⌠ß≤⌠▐≤σ⌠σ ⌠∩ ⌡≡▄±≈∩φ demo ;")
  480.     (set #help_install_demo (cat "╘∩ demo σ▀φßΘ ▌φß ∞ΘΩ±ⁿ ≡±ⁿπ±ß∞∞ß ≡∩⌡ σ≡ΘΣσΘΩφσ▀σΘ ⌠τφ ≈±▐≤τ ⌠▐≥ " @app-name "custom class."))
  481.     (set #prompt_install_plangs "╨∩Θ▄ ⌡≡∩≤⌠▐±Θετ πΘß πδ■≤≤σ≥ ≡±∩π±ß∞∞ß⌠Θ≤∞∩² Φ▌δσ⌠σ φß σπΩß⌠ß≤⌠▐≤σ⌠σ ;")
  482.     (set #prompt_install_source "╚ß Φ▌δß⌠σ φß σπΩß⌠ß≤⌠▐≤σ⌠σ ⌠∩φ ╨τπß▀∩ ╩■ΣΘΩß;")
  483.     (set #help_install_source (cat "╧ ╨τπßΘⁿ≥ ╩■ΣΘΩß≥ ⌠∩⌡ " @app-name " custom class ∞≡∩±σ▀ ßφ ≈±τ≤Θ∞∩≡∩ΘτΦσ▀ ≤ßφ ≡ß±▄ΣσΘπ∞ß ▐ πΘß ⌠τφ Στ∞Θ∩⌡±π▀ß ⌠τφ ΣΘΩ▐ ≤ß≥ (bug fixed) σ÷ß±∞∩π▐≥.\n╨±∩≤▌ε⌠σ - ∩ ≡τπß▀∩≥ Ω■ΣΘΩß≥ ∞≡∩±σ▀ φß σ▀φßΘ ≤σ ∩≡∩ΘßΣ▐≡∩⌠σ πδ■≤≤ß!"))
  484.     (set #prompt_copy "╚▌δσ⌠σ φß ßφ⌠Θπ±ß÷σ▀(∩²φ) ⌠∩(ß) ßΩⁿδ∩⌡Φ∩(ß) ß±≈σ▀∩(ß);")
  485.     (set #prompt_makedir "╟ ßΩⁿδ∩⌡Φτ directory Σ▌φ Γ±▌ΦτΩσ, ▌⌠≤Θ Φß ≡±▌≡σΘ φß Στ∞Θ∩⌡±πτΦσ▀:")
  486.  
  487.     (set #prompt_uninstall_asciidocs "├Θß ≡∩Θ▌≥ πδ■≤≤σ≥ Φß Φ▌δß⌠σ φß ß÷ßΘ±▌≤σ⌠σ ⌠Θ≥ ASCII ∩Στπ▀σ≥ ;")
  488.     (set #prompt_install_asciidocs "├Θß ≡∩Θ▌≥ πδ■≤≤σ≥ Φß Φ▌δß⌠σ φß σπΩß⌠ß≤⌠▐≤σ⌠σ ⌠Θ≥ ASCII ∩Στπ▀σ≥ ;")
  489.     (set #exit_uninstall_finished (cat "╟ ┴≡σπΩß⌠▄≤⌠ß≤τ ⌠σδσ▀∙≤σ ! ╘∩\n"
  490.                    '"'
  491.                    @app-name
  492.                    '"'
  493.                    " ß÷ßΘ±▌ΦτΩσ ß≡ⁿ ⌠∩ "
  494.                    '"'
  495.                    @default-dest
  496.                    '"'
  497.                    " ≤⌡±⌠▄±Θ (▐ ⌠∞▐∞ß Σ▀≤Ω∩⌡)."
  498.               )
  499.     )
  500.    )
  501.    ( ; Magyar
  502.     (complete 0)
  503.    )
  504.    ( ; Finnish translation by Petteri Kallio <k140734@cs.tut.fi>
  505.     (if (= @installer-version 0)
  506.       (
  507.        (set #help_askoptions "Installer-ohjelman versiota 42.6 aikaisemmilla versioilla valintaruudut saattavat nΣkyΣ ilman nimi÷itΣ. NΣmΣ valinnat jΣtetΣΣn huomioimatta.\n\n")
  508.        (set #help_askchoice "Installer-ohjelman versiota 42.6 aikaisemmilla versioilla valintanapit saattavat olla nimi÷tt÷miΣ. Jos tΣllainen nappi valitaan, valituksi tuleekin seuraava alempi nappi.\n\n")
  509.       )
  510.     )
  511.     (set #unknown     "tuntematon")
  512.     (set #choice_english    "Englanti")
  513.     (set #choice_german     "Saksa")
  514.     (set #choice_french     "Ranska")
  515.     (set #choice_spanish    "Espanja")
  516.     (set #choice_portuguese "Portugali")
  517.     (set #choice_danish     "Tanska")
  518.     (set #choice_italian    "Italia")
  519.     (set #choice_dutch      "Hollanti")
  520.     (set #choice_norwegian  "Norja")
  521.     (set #choice_swedish    "Ruotsi")
  522.     (set #choice_polish     "Puola")
  523.     (set #choice_finnish    "Suomi")
  524.     (set #choice_hungarian  "Unkari")
  525.     (set #choice_turkish    "Turkki")
  526.     (set #choice_greek      "Kreikka")
  527.     (set #choice_latin      "Latina")
  528.     (set #choice_esperanto  "Esperanto")
  529.     (set #choice_russian    "VenΣjΣ")
  530.     (set #choice_czech      "Tsekki")
  531.     (set #choice_catalonian "Katalonia"); LANGUAGE
  532.  
  533.     (set #choice_catalogs   "Sanasto")
  534.     (set #choice_docs       "Dokumentointi")
  535.     (set #choice_developer  "Kehitysty÷kalut")
  536.     (set #choice_source     "LΣhdekoodi")
  537.     (set #choice_install    "Asennus")
  538.     (set #choice_update     "PΣivitys")
  539.     (set #choice_uninstall  "Poisto")
  540.     (set #prompt_askcpufpu    (cat "Valitse prosessorikokoonpano, jolle haluat asentaa luokan " @app-name ".mcc"))
  541.     (set #prompt_info         (cat "\nTervetuloa: " @app-name " MUI custom class\n" #copyright "\n\n"))
  542.     (set #prompt_install_uninstall (cat #prompt_info "Haluatko asentaa vai poistaa MUI-luokan?"))
  543.     (set #abort_nocpu ( cat "Tiedostoa " @app-name ".mcc ei voi asentaa, koska prosessorikokoonpanoasi vastaavaa versiota ei ole.\n"))
  544.     (set #abort_nomui (cat @app-name " MUI-luokka toimii vain MUI:n kanssa!\n\n"
  545.             "Hakemistoa " @default-dest " ei l÷ytynyt. Asenna MUI ennen " @app-name ".mcc:n asennusta!\n"
  546.             )
  547.     )
  548.     (set #abort_oldmui (cat @app-name ".mcc tarvitsee toimiakseen vΣhintΣΣn MUI:n version %s.\n\n"
  549.              "MUI:si versio on %s.\n"
  550.              )
  551.     )
  552.     (set #welcome_install (cat "Tervetuloa MUI custom class asennusohjelmaan.\n"
  553.                 "Valitse asennustapa (perustuen tietΣmykseesi koneestasi)."
  554.            )
  555.     )
  556.     (set #welcome_uninstall (cat "Tervetuloa MUI custom class poisto-ohjelmaan.\n"
  557.              "Valitse poistotapa (perustuen tietΣmykseesi koneestasi)."
  558.              )
  559.     )
  560.     (set #prompt_uninstall_parts (cat "MitkΣ osat haluat poistaa?\n"
  561.                   @app-name ".mcp:n mukana poistetaan my÷s sanastot.\n"
  562.              )
  563.     )
  564.     (set #prompt_uninstall_all (cat "Poistetaanko kaikki " @app-name ".mcc:hen liittyvΣt tiedostot?"))
  565.     (set #help_uninstall_all "Jos et halua poistaa kaikkia osia, sinulta kysytΣΣn mitkΣ osat poistetaan.")
  566.     (set #prompt_uninstall_plangs "MinkΣ ohjelmointikielten tuet poistetaan?")
  567.     (set #prompt_uninstall_mcp_catalogs (cat "MitkΣ " @app-name ".mcp:n sanastot haluat poistaa?"))
  568.     (set #prompt_uninstall_mcc_catalogs (cat "MitkΣ " @app-name ".mcc:n sanastot haluat poistaa?"))
  569.     (set #prompt_uninstall_agdocs "MinkΣ kieliset AmigaGuide« -dokumentit haluat poistaa?")
  570.     (set #prompt_uninstall_docs "MinkΣlaiset ohjeet haluat poistaa?")
  571.     (set #abort_oldversion (cat @app-name ".mcc:n versio %ld.%ld on jo asennettu aiemmin.\n\n"
  572.             "Jos haluat asentaa vanhemman version %ld.%ld uudelleen, ole hyvΣ ja poista ensin uudempi asennus."
  573.             )
  574.     )
  575.     (set #prompt_update (cat "MitkΣ osat " @app-name ".mcc:stΣ haluat lisΣtΣ perusasennukseen?"))
  576.     (set #prompt_install_mcc_catalogs (cat "MitkΣ " @app-name ".mcc:n sanastot haluat asentaa?"))
  577.     (set #prompt_install_mcp_catalogs (cat "MitkΣ " @app-name ".mcp:n sanastot haluat asentaa?"))
  578.     (set #prompt_install_docs "MinkΣtyyppiset ohjeet haluat asentaa?")
  579.     (set #prompt_install_agdocs "MinkΣkieliset AmigaGuide« -dokumentit haluat asentaa?")
  580.     (set #prompt_install_demo "Haluatko asentaa esittelyohjelman?")
  581.     (set #help_install_demo (cat "Esittelyohjelma on pieni ohjelma, joka esittelee " @app-name "-luokan kΣytt÷Σ."))
  582.     (set #prompt_install_plangs "Mille ohjelmointikielille haluat asentaa tuen?")
  583.     (set #prompt_install_source "Haluatko asentaa lΣhdekoodin?")
  584.     (set #help_install_source (cat @app-name "-luokan lΣhdekoodia voidaan kΣyttΣΣ esimerkkinΣ tai omien (korjattujen) binaaritiedostojen luomiseen.\nHuomaa, ettΣ lΣhdekoodi voi olla mitΣ tahansa kieltΣ!"))
  585.     (set #prompt_copy "Haluatko asentaa nΣmΣ tiedostot?")
  586.     (set #prompt_makedir "TΣtΣ hakemistoa ei ollut, joten se tΣytyy luoda:")
  587.  
  588.     (set #prompt_uninstall_asciidocs "MinkΣ kieliset ASCII-dokumentit haluat poistaa?")
  589.     (set #prompt_install_asciidocs "MinkΣ kieliset ASCII-dokumentit haluat asentaa?")
  590.     (set #exit_uninstall_finished (cat "Poistettu!\n"
  591.                    '"'
  592.                    @app-name
  593.                    '"'
  594.                    " on poistettu "
  595.                    '"'
  596.                    @default-dest
  597.                    '"'
  598.                    " hakemistosta (tai levyltΣ)."
  599.               )
  600.     )
  601.    )
  602.    ( ; Polish translation by Marcin Orεowski <carlos@inet.com.pl>
  603.     (if (= @installer-version 0)
  604.       (
  605.        (set #help_askoptions "W Instalerze w wersji do 42.6 mo√e siδ zdarzyΩ, √e zobaczysz gad√ety zaznaczania pozbawione etykiet. Zaznaczanie tych gad√et≤w bδdzie ignorowane.\n\n")
  606.        (set #help_askchoice "W Instalerze w wersji do 42.6 mo√e siδ zdarzyΩ, √e zobaczysz gad√ety radiowe pozbawione etykiet. Zaznaczenie takiego przycisku spowoduje wybranie nastδpnego, ni√ej dostδpnego elementu.\n\n")
  607.       )
  608.     )
  609.     (set #unknown     "nieznany")
  610.     (set #choice_english    "Angielski")
  611.     (set #choice_german     "Niemiecki")
  612.     (set #choice_french     "Francuski")
  613.     (set #choice_spanish    "Hiszpa∩ski")
  614.     (set #choice_portuguese "Portugalski")
  615.     (set #choice_danish     "Du∩ski")
  616.     (set #choice_italian    "Wεoski")
  617.     (set #choice_dutch      "Holenderski")
  618.     (set #choice_norwegian  "Norweski")
  619.     (set #choice_swedish    "Szwedzki")
  620.     (set #choice_polish     "Polski")
  621.     (set #choice_finnish    "Fi∩ski")
  622.     (set #choice_hungarian  "Wδgierski")
  623.     (set #choice_turkish    "Turecki")
  624.     (set #choice_greek      "Grecki")
  625.     (set #choice_latin      "╬acina")
  626.     (set #choice_esperanto  "Esperanto")
  627.     (set #choice_russian    "Rosyjski")
  628.     (set #choice_czech      "Czeski")
  629.     (set #choice_catalonian "Catalo∩ski"); LANGUAGE
  630.  
  631.     (set #choice_catalogs   "Katalogi")
  632.     (set #choice_docs       "Dokumentacja u√ytkownika")
  633.     (set #choice_developer  "Dokumentacja dla programist≤w")
  634.     (set #choice_source     "Tekst ·r≤dεowy")
  635.     (set #choice_install    "Zainstaluj")
  636.     (set #choice_update     "Zaktualizuj")
  637.     (set #choice_uninstall  "Usu∩")
  638.     (set #prompt_askcpufpu    (cat "Wybierz konfiguracjδ CPU/FPU dla kt≤rej chcesz zainstalowaΩ " @app-name ".mcc"))
  639.     (set #prompt_info         (cat "\nWitaj w programie instalacyjnym klasy " @app-name "\n" #copyright "\n\n"))
  640.  
  641.     (set #prompt_install_uninstall (cat #prompt_info "Chcesz zainstalowaΩ czy usunΓΩ zainstalowanΓ ju√ klasδ?"))
  642.     (set #abort_nocpu (cat "Przykro mi, ale nie mo√na zainstalowaΩ " @app-name ".mcc, poniewa√ wybrana przez Ciebie konfiguracja CPU nie jest aktualnie uwzglδdniona.\n"))
  643.     (set #abort_nomui (cat "Klasa " @app-name " jest u√yteczna tylko wraz z systemem Magic User Interface (MUI)!\n\n"
  644.             "Instaler nie znalazε przypisania " @default-dest ", zatem proszδ zainstaluj MUI nim przystΓpisz od instalacji " @app-name ".mcc!\n"
  645.             )
  646.     )
  647.     (set #abort_oldmui (cat "Aby zainstalowaΩ " @app-name ".mcc musisz u√ywaΩ MUI w wersji co najmniej %s.\n\n"
  648.              "Instaler wykryε zainstalowanΓ wersjδ %s systemu MUI.\n"
  649.              )
  650.     )
  651.     (set #welcome_install (cat "Witaj w programie instalujΓcym zewnδtrznΓ klasδ MUI.\n"
  652.                                "Wybierz spos≤b w jaki instalacja ma przebiegaΩ (bazujΓc na poziomie swojej wiedzy o Amidze)."
  653.            )
  654.     )
  655.     (set #welcome_uninstall (cat "Witaj w programie deinstalacyjnym dla zewnδtrznej klasy MUI.\n"
  656.                                  "Wybierz spos≤b w jaki usuwanie ma przebiegaΩ (bazujΓc na poziomie swojej wiedzy o Amidze)."
  657.              )
  658.     )
  659.     (set #prompt_uninstall_parts (cat "Kt≤re elmenty klasy " @app-name " chcesz usunΓΩ?\n"
  660.                   "Usuniδcie " @app-name ".mcp skasuje tak√e odpowiednie katalogi.\n"
  661.              )
  662.     )
  663.     (set #prompt_uninstall_all (cat "Na pewno chesz usunΓΩ wszystkie elementy zwiΓzane z " @app-name ".mcc?"))
  664.     (set #help_uninstall_all "Je⌠li nie chcesz usunΓΩ wszystkiego, bδdziesz musiaε rδcznie wybraΩ elementy do skasowania.")
  665.     (set #prompt_uninstall_plangs "Wybierz wersje jδzykowe, kt≤re chcesz usunΓΩ")
  666.     (set #prompt_uninstall_mcp_catalogs (cat "Kt≤re tεumaczenia preferencji " @app-name ".mcp chcesz usunΓΩ?"))
  667.     (set #prompt_uninstall_mcc_catalogs (cat "Kt≤re tεumaczenia klasy " @app-name ".mcc chcesz usunΓΩ?"))
  668.     (set #prompt_uninstall_agdocs "Kt≤re tεumaczenia dokumentacji w formacie AmigaGuide« chcesz usunΓΩ?")
  669.     (set #prompt_uninstall_docs "Jaki typ dokumentacji chcesz usunΓΩ?")
  670.     (set #abort_oldversion (cat "Instaler znalazε wersjδ %ld.%ld " @app-name ".mcc ju√ zainstalowanΓ.\n\n"
  671.             "Je⌠li chcesz zainstalowaΩ starszΓ (%ld.%ld) wersjδ, usu∩ najpierw nowszΓ."
  672.             )
  673.     )
  674.     (set #prompt_update (cat "Kt≤re elementy klasy " @app-name ".mcc chcesz zainstalowaΩ dodatkowo?"))
  675.     (set #prompt_install_mcc_catalogs (cat "Kt≤re tεumaczenia klasy " @app-name ".mcc chcesz zainstalowaΩ?"))
  676.     (set #prompt_install_mcp_catalogs (cat "Kt≤re tεumaczenia preferencji " @app-name ".mcp chcesz zainstalowaΩ?"))
  677.     (set #prompt_install_docs "Jaki typ dokumentacji chcesz  zainstalowaΩ?")
  678.     (set #prompt_install_agdocs "Kt≤re tεumaczenia dokumentacji w formacie AmigaGuide« chcesz zainstalowaΩ?")
  679.     (set #prompt_install_demo "Czy chcesz zainstalowaΩ zaεΓczony program demonstracyjny?")
  680.     (set #help_install_demo (cat "Program ten demonstruje mo√liwe u√ycie klasy " @app-name "."))
  681.     (set #prompt_install_plangs "Wybierz jδzyk programowania, dla kt≤rego chcesz zainstalowaΩ materiaεy programisty")
  682.     (set #prompt_install_source "Czy chcesz zainstalowaΩ tekst √r≤dεowy?")
  683.     (set #help_install_source (cat "Przykεadowy tekst ·r≤dεowy wykorzystujΓcy klasδ " @app-name " mo√e byΩ u√yty jako podstawa do stworzenia Twojego wεasnego programu.\nBΓd· ostro√ny - tekst ·r≤dεowy mo√e byΩ napisany w dowolnym jδzyku programowania!"))
  684.     (set #prompt_copy "Czy chcesz skopiowaΩ wymienione pliki?")
  685.     (set #prompt_makedir "Poni√szy katalog nie zostaε znaleziony i musi zostaΩ utworzony:")
  686.  
  687.     (set #prompt_uninstall_asciidocs "Kt≤re tεumaczenie dokumentacji w formacie ASCII chcesz usunΓΩ?")
  688.     (set #prompt_install_asciidocs "Kt≤re tεumaczenie dokumentacji w formacie ASCII chcesz zainstalowaΩ?")
  689.     (set #exit_uninstall_finished (cat "Usuwanie zako∩czone!\n"
  690.                    '"'
  691.                    @app-name
  692.                    '"'
  693.                    " zostaε usuniδty z katalogu (lub partycji) "
  694.                    '"'
  695.                    @default-dest
  696.                    '"'
  697.                    "."
  698.               )
  699.     )
  700.    )
  701.    ( ; Swedish translation by Jesper Jonsson <jojo@minsk.docs.uu.se>
  702.     (if (= @installer-version 0)
  703.       (
  704.        (set #help_askoptions "Om du har en tidigare version av Installeraren Σn 42.6 kan det hΣnda att du ser checkbox-knappar utan tillh÷rande text. Att vΣlja dessa har ingen verkan.\n\n")
  705.        (set #help_askchoice "Om du har en tidigare version av Installeraren Σn 42.6 kan det hΣnda att du ser radioknappar utan tillh÷rande text. VΣljer du nσgon av dessa sσ kommer det nΣrmast undre alternativet att bli valt.\n\n")
  706.       )
  707.     )
  708.     (set #unknown     "okΣnt")
  709.     (set #choice_english    "Engelska")
  710.     (set #choice_german     "Tyska")
  711.     (set #choice_french     "Franska")
  712.     (set #choice_spanish    "Spanska")
  713.     (set #choice_portuguese "Portugisiska")
  714.     (set #choice_danish     "Danska")
  715.     (set #choice_italian    "Italienska")
  716.     (set #choice_dutch      "HollΣndska")
  717.     (set #choice_norwegian  "Norska")
  718.     (set #choice_swedish    "Svenska")
  719.     (set #choice_polish     "Polska")
  720.     (set #choice_finnish    "Finska")
  721.     (set #choice_hungarian  "Ungerska")
  722.     (set #choice_turkish    "Turkiska")
  723.     (set #choice_greek      "Grekiska")
  724.     (set #choice_latin      "Latin")
  725.     (set #choice_esperanto  "Esperanto")
  726.     (set #choice_russian    "Ryska")
  727.     (set #choice_czech      "Tjeckiska")
  728.     (set #choice_catalonian "Katalanska"); LANGUAGE
  729.  
  730.     (set #choice_catalogs   "Kataloger")
  731.     (set #choice_docs       "Dokumentation")
  732.     (set #choice_developer  "Material f÷r utvecklare")
  733.     (set #choice_source     "KΣllkod")
  734.     (set #choice_install    "Installera")
  735.     (set #choice_update     "Uppdatera")
  736.     (set #choice_uninstall  "Avinstallera")
  737.     (set #prompt_askcpufpu    (cat "VΣlj den processorkonfiguration f÷r vilken du vill installera " @app-name ".mcc"))
  738.     (set #prompt_info         (cat "\nVΣlkommen till " @app-name " MUI-klass \n" #copyright "\n\n"))
  739.     (set #prompt_install_uninstall (cat #prompt_info "Vill du installera eller avinstallera klassen?"))
  740.     (set #abort_nocpu (cat @app-name ".mcc kunde inte installeras, eftersom din CPU-konfiguration inte st÷ds.\n"))
  741.     (set #abort_nomui (cat "Installeraren kunde inte hitta din MUI-installation. Var vΣnlig installera MUI innan du installerar " @app_name ".\n"))
  742.     (set #abort_oldmui (cat "F÷r att installera " @app-name ".mcc mσste du lΣgst ha version %s av MUI installerad. Du har endast version %s installerad.\n"))
  743.     (set #welcome_install (cat "VΣlkommen till installationsprogrammet f÷r MUI-klasser.\n"
  744.                 "Var vΣnlig vΣlj hur installationen skall fortsΣtta (beroende pσ dina kunskaper om Amigan)."))
  745.     (set #welcome_uninstall (cat "VΣlkommen till avinstallationsprogrammet f÷r MUI-klasser.\n"
  746.              "Var vΣnlig vΣlj hur installationen skall fortsΣtta (beroende pσ dina kunskaper om Amigan)."))
  747.     (set #prompt_uninstall_parts (cat "Vilka delar vill du avinstallera?\n"
  748.                   "Detta kommer ocksσ att avinstallera tillh÷rande kataloger."))
  749.     (set #prompt_uninstall_all (cat "Vill du avinstallera hela " @app-name".mcc?"))
  750.     (set #help_uninstall_all (cat "Om du inte vill avinstallera allt, sσ kommer du att fσ vΣlja vilka delar du vill avinstallera."))
  751.     (set #prompt_uninstall_plangs (cat "Vilka programmeringssprσk vill du avinstallera st÷det f÷r?"))
  752.     (set #prompt_uninstall_mcp_catalogs (cat "Vilka kataloger f÷r " @app-name ".mcp vill du avinstallera?"))
  753.     (set #prompt_uninstall_mcc_catalogs (cat "Vilka kataloger f÷r " @app-name ".mcc vill du avinstallera?"))
  754.     (set #prompt_uninstall_agdocs (cat "F÷r vilka sprσk vill du avinstallera AmigaGuide«-dokumentationen?"))
  755.     (set #prompt_uninstall_docs (cat "Vilka typer av dokument vill du avinstallera?"))
  756.     (set #abort_oldversion (cat "Installeraren har upptΣckt att version %ld.%ld av " @app-name ".mcc redan Σr installerat.\n\n"
  757.             "Om du vill installera den Σldre versionen %ld.%ld sσ mσste du avinstallera den nyare versionen f÷rst."))
  758.     (set #prompt_update (cat "Vilka delar av " @app-name ".mcc vill du addera till installationen?"))
  759.     (set #prompt_install_mcc_catalogs (cat "Vilka kataloger f÷r " @app-name ".mcc vill du installera?"))
  760.     (set #prompt_install_mcp_catalogs (cat "Vilka kataloger f÷r " @app-name ".mcp vill du installera?"))
  761.     (set #prompt_install_docs "Vilka typer av dokument vill du installera?")
  762.     (set #prompt_install_agdocs "F÷r vilka sprσk vill du installera AmigaGuide«-dokumentationen?")
  763.     (set #prompt_install_demo "Vill du installera det tillh÷rande demoprogrammet?")
  764.     (set #help_install_demo (cat "Demoprogrammet Σr ett litet program som demonstrerar funktionerna i " @app-name "-klassen."))
  765.     (set #prompt_install_plangs "Vilka programmeringssprσk vill du installera st÷d f÷r?")
  766.     (set #prompt_install_source "Vill du installera kΣllkoden?")
  767.     (set #help_install_source (cat "KΣllkoden till " @app-name "-klassen kan anvΣndas som ett exempel eller f÷r att g÷ra dina egna (bugfixade) binΣrer.\nVar f÷rsiktig - binΣrerna kan vara i vilket sprσk som helst!"))
  768.     (set #prompt_copy "Vill du kopiera f÷ljande filer?")
  769.     (set #prompt_makedir "F÷ljande katalog kunde inte hittas, sσ den mσste skapas:")
  770.     (set #prompt_uninstall_asciidocs "F÷r vilka programmeringssprσk vill du avinstallera ASCII-dokumentationen?")
  771.     (set #prompt_install_asciidocs "F÷r vilka programmeringssprσk vill du installera ASCII-dokumentationen?")
  772.     (set #exit_uninstall_finished (cat "Avinstallation fΣrdig!\n"
  773.                    '"'
  774.                    @app-name
  775.                    '"'
  776.                    " har tagits bort frσn katalogen "
  777.                    '"'
  778.                    @default-dest
  779.                    '"'
  780.                    "."
  781.               )
  782.     )
  783.    )
  784.    ( ; norsk
  785.     (complete 0)
  786.    )
  787.    ( ; nederlands translation by Eric Krieger <ekrieger@quasar.xs4all.nl>
  788.      ; updated by Jeroen Smits <vektor@pi.net>
  789.     (if (= @installer-version 0)
  790.       (
  791.        (set #help_askoptions "Met het programma Installer tot versie 42.6 kan het gebeuren dat u checkbox-buttons ziet zonder labels. Het selecteren van deze buttons zal worden genegeerd.\n\n")
  792.        (set #help_askchoice "Met het programma Installer tot versie 42.6 kan het gebeuren dat u een radio-buttons ziet zonder labels. Het selecteren van deze buttons zal resulteren in de volgende lager beschikbare selectie.\n\n")
  793.       )
  794.     )
  795.     (set #unknown     "onbekend")
  796.     (set #choice_english    "Engels")
  797.     (set #choice_german     "Duits")
  798.     (set #choice_french     "Frans")
  799.     (set #choice_spanish    "Spaans")
  800.     (set #choice_portuguese "Portugees")
  801.     (set #choice_danish     "Deens")
  802.     (set #choice_italian    "Italiaans")
  803.     (set #choice_dutch      "Nederlands")
  804.     (set #choice_norwegian  "Noors")
  805.     (set #choice_swedish    "Zweeds")
  806.     (set #choice_polish     "Pools")
  807.     (set #choice_finnish    "Fins")
  808.     (set #choice_hungarian  "Hongaars")
  809.     (set #choice_turkish    "Turks")
  810.     (set #choice_greek      "Grieks")
  811.     (set #choice_latin      "Latijns")
  812.     (set #choice_esperanto  "Esperanto")
  813.     (set #choice_russian    "Russisch")
  814.     (set #choice_czech      "Tsjechisch")
  815.     (set #choice_catalonian "Catalaans"); LANGUAGE
  816.  
  817.     (set #choice_catalogs   "Catalogs")
  818.     (set #choice_docs       "Documentatie")
  819.     (set #choice_developer  "Developer materiaal")
  820.     (set #choice_source     "Programma code")
  821.     (set #choice_install    "Installeren")
  822.     (set #choice_update     "Update")
  823.     (set #choice_uninstall  "De-installeren")
  824.     (set #prompt_askcpufpu    (cat "Selecteer A.U.B. de CPU/FPU configuratie voor welke u " @app-name ".mcc wenst te installeren."))
  825.     (set #prompt_info         (cat "\nWelkom tot " @app-name " MUI custom class\n" #copyright "\n\n"))
  826.     (set #prompt_install_uninstall (cat #prompt_info "Wilt u de custom class installeren of de-installeren?"))
  827.     (set #abort_nocpu ( cat "Sorry, dit script is niet in staat om " @app-name ".mcc te installeren, omdat uw CPU configuratie niet ondersteund wordt.\n"))
  828.     (set #abort_nomui (cat "Het " @app-name " MUI custom class kan alleen gebruikt worden met Magic User Interface (MUI), zonder dit is het custom class onbruikbaar!\n\n"
  829.             "De Installer heeft " @default-dest " niet als assign gevonden, installeerd u A.U.B. MUI voor opnieuw een poging tot installeren van " @app-name ".mcc te doen!\n"
  830.             )
  831.     )
  832.     (set #abort_oldmui (cat "Om " @app-name ".mcc te kunnen installeren heeft u MUI %s als een minimum nodig.\n\n"
  833.              "De Installer heeft gevonden dat alleen MUI %s is geinstalleerd.\n"
  834.              )
  835.     )
  836.     (set #welcome_install (cat "Welkom tot de MUI custom class installatie utilitie.\n"
  837.                 "Geeft u A.U.B. aan hoe de installatie verder moet vervolgen (gebaseerd op uw kennis van de Amiga computer)."
  838.            )
  839.     )
  840.     (set #welcome_uninstall (cat "Welkom tot de MUI custom class de-installatie (verwijder) utilitie.\n"
  841.              "Geeft u A.U.B. aan hoe de de-installatie verder moet vervolgen (gebaseerd op uw kennis van de Amiga computer)."
  842.              )
  843.     )
  844.     (set #prompt_uninstall_parts (cat "Welke delen wilt u de-installeren?\n"
  845.                   @app-name ".mcp zal ook gerelateerde Catalogs files de-installeren.\n"
  846.              )
  847.     )
  848.     (set #prompt_uninstall_all (cat "Wilt u alle tot " @app-name ".mcc gerelateerde zaken de-installeren?"))
  849.     (set #help_uninstall_all "Wanneer u niet alles tegelijk wilt de-installeren, wordt u gevraagd welke delem u wel wilt de-installeren.")
  850.     (set #prompt_uninstall_plangs "Voor welke programeertalen wilt u ondersteuning de-installeren?")
  851.     (set #prompt_uninstall_mcp_catalogs (cat "Welke catalogs voor " @app-name ".mcp wilt u de-installeren?"))
  852.     (set #prompt_uninstall_mcc_catalogs (cat "Welke catalogs voor " @app-name ".mcc wilt u de-installeren?"))
  853.     (set #prompt_uninstall_agdocs "Voor welke talen wilt u de AmigaGuide« documentatie de-installeren?")
  854.     (set #prompt_uninstall_docs "Welke type document(en) wilt u de-installeren?")
  855.     (set #abort_oldversion (cat "De Installer heeft versie %ld.%ld van " @app-name ".mcc gevonden, welke al reeds geinstalleerd is.\n\n"
  856.             "Wanneer u de oudere versie %ld.%ld wilt herinstalleren, wilt u dan A.U.B. eerst de nieuwere versie de-installeren."
  857.             )
  858.     )
  859.     (set #prompt_update (cat "Welke delen van " @app-name ".mcc wilt u toevoegen tot de installatie?"))
  860.     (set #prompt_install_mcc_catalogs (cat "Welke catalogs voor " @app-name ".mcc wilt u installeren?"))
  861.     (set #prompt_install_mcp_catalogs (cat "Welke catalogs voor " @app-name ".mcp wilt u installeren?"))
  862.     (set #prompt_install_docs "Welke type document(en) wilt u installeren?")
  863.     (set #prompt_install_agdocs "Voor welke talen wilt u de AmigaGuide« documentatie installeren?")
  864.     (set #prompt_install_demo "Wilt u de meegeleverde demo installeren?")
  865.     (set #help_install_demo (cat "De demo is een klein programma welke het gebruik demonstreerd van de " @app-name "custom class."))
  866.     (set #prompt_install_plangs "Voor welke programeertalen wilt u ondersteuning installeren?")
  867.     (set #prompt_install_source "Wilt u de programma code installeren?")
  868.     (set #help_install_source (cat "De programma code van de custom class genaamd " @app-name " kan gebruikt worden als een voorbeeld of u kunt er uw eigen (bug fixed) programma's mee maken.\nLet op - De programma code kan in elke taal zijn geschreven!"))
  869.     (set #prompt_copy "Wilt u de volgende file(s) kopieren?")
  870.     (set #prompt_makedir "De volgende directory is niet gevonden, daarom zal deze worden aangemaakt:")
  871.  
  872.     (set #prompt_uninstall_asciidocs "Voor welke talen wilt u de ASCII documentatie de-installeren?")
  873.     (set #prompt_install_asciidocs "Voor welke talen wilt u de ASCII documentatie installeren?")
  874.     (set #exit_uninstall_finished (cat "De-installatie voltooid!\n"
  875.                    '"'
  876.                    @app-name
  877.                    '"'
  878.                    " is verwijderd van uw "
  879.                    '"'
  880.                    @default-dest
  881.                    '"'
  882.                    " directory (of partitie)."
  883.               )
  884.     )
  885.    )
  886.    ( ; italiano translation by Paolo Menichetti <Paolo.Menichetti@infoservice.it>
  887.      ; updated by Vincenzo Gervasi <gervasi@di.unipi.it>
  888.     (if (= @installer-version 0)
  889.       (
  890.        (set #help_askoptions "Con una versione dell'Installer minore della 42.6 potresti vedere dei bottoni senza descrizione. Eventuali selezioni di questi bottoni saranno ignorate.\n\n")
  891.        (set #help_askchoice "Con una versione dell'Installer minore della 42.6 potresti vedere dei bottoni mutualmente esclusivi senza descrizione. Un click su tali bottoni corrisponde all'attivazione della successiva voce nella lista che sia selezionabile.\n\n")
  892.       )
  893.     )
  894.     (set #unknown     "sconosciuto")
  895.     (set #choice_english    "Inglese")
  896.     (set #choice_german     "Tedesco")
  897.     (set #choice_french     "Francese")
  898.     (set #choice_spanish    "Spagnolo")
  899.     (set #choice_portuguese "Portoghese")
  900.     (set #choice_danish     "Danese")
  901.     (set #choice_italian    "Italiano")
  902.     (set #choice_dutch      "Tedesco")
  903.     (set #choice_norwegian  "Norvegese")
  904.     (set #choice_swedish    "Svedese")
  905.     (set #choice_polish     "Polacco")
  906.     (set #choice_finnish    "Finlandese")
  907.     (set #choice_hungarian  "Ungherese")
  908.     (set #choice_turkish    "Turco")
  909.     (set #choice_greek      "Greco")
  910.     (set #choice_latin      "Latino")
  911.     (set #choice_esperanto  "Esperanto")
  912.     (set #choice_russian    "Russo")
  913.     (set #choice_czech      "Ceco")
  914.     (set #choice_catalonian "Catalano"); LANGUAGE
  915.  
  916.     (set #choice_catalogs   "Cataloghi")
  917.     (set #choice_docs       "Documentazione")
  918.     (set #choice_developer  "Materiale per sviluppatori")
  919.     (set #choice_source     "Codice sorgente")
  920.     (set #choice_install    "Installo")
  921.     (set #choice_update     "Aggiornamento")
  922.     (set #choice_uninstall  "Disinstallazione")
  923.     (set #prompt_askcpufpu    (cat "Per favore, seleziona la CPU/FPU del tuo computer; verrα cos∞ installata la classe " @app-name ".mcc ottimizzata."))
  924.     (set #prompt_info         (cat "\nBenvenuto nell'installazione di " @app-name " MUI custom class\n" #copyright "\n\n"))
  925.     (set #prompt_install_uninstall (cat #prompt_info "Vuoi installare o disinstallare la custom class?"))
  926.     (set #abort_nocpu ( cat "Spiacente, l'installatore non pu≥ installare la classe " @app-name ".mcc, perchΘ la tua CPU non Φ supportata.\n"))
  927.     (set #abort_nomui (cat "La custom class MUI " @app-name " pu≥ essere usata solo con Magic User Interface (MUI), senza la quale la custom class Φ inutile!\n\n"
  928.             "L'installatore non ha trovato l'assegnamento " @default-dest ", dunque installa MUI prima di installare " @app-name ".mcc!\n"
  929.             )
  930.     )
  931.     (set #abort_oldmui (cat "Per installare " @app-name ".mcc hai bisogno quantomeno della versione %s di MUI.\n\n"
  932.              "L'installatore ha trovato installata solo la versione %s di MUI.\n"
  933.              )
  934.     )
  935.     (set #welcome_install (cat "Benvenuto nella procedura di installazione delle custom classes di MUI.\n"
  936.                 "Indicare, per favore, come questa procedura di installazione dovrα operare (in base alla tua conoscenza del computer Amiga)."
  937.            )
  938.     )
  939.     (set #welcome_uninstall (cat "Benvenuto nella procedura di disinstallazione delle custom classes di MUI.\n"
  940.                 "Indicare, per favore, come questa procedura di disinstallazione dovrα operare (in base alla tua conoscenza del computer Amiga)."
  941.              )
  942.     )
  943.     (set #prompt_uninstall_parts (cat "Quali parti vuoi che siano disinstallate?\n"
  944.                   @app-name ".mcp sarα disinstallato con i relativi cataloghi.\n"
  945.              )
  946.     )
  947.     (set #prompt_uninstall_all (cat "Vuoi disinstallare tutto quello che Φ correlato a " @app-name ".mcc?"))
  948.     (set #help_uninstall_all "Se non vuoi disinstallare tutto, allora ti verrα richiesto cosa disinstallare.")
  949.     (set #prompt_uninstall_plangs "Quali file di supporto per i linguaggi di programmazione vuoi rimuovere?")
  950.     (set #prompt_uninstall_mcp_catalogs (cat "Quali cataloghi di " @app-name ".mcp vuoi rimuovere?"))
  951.     (set #prompt_uninstall_mcc_catalogs (cat "Quali cataloghi di " @app-name ".mcc vuoi rimuovere?"))
  952.     (set #prompt_uninstall_agdocs "Per quali linguaggi voi rimuovere la documentazione in formato AmigaGuide«?")
  953.     (set #prompt_uninstall_docs "Quali tipi di documentazione vuoi rimuovere?")
  954.     (set #abort_oldversion (cat "L'installatore ha trovato la versione %ld.%ld di " @app-name ".mcc giα installata.\n\n"
  955.             "Se vuoi reinstallare la vecchia versione %ld.%ld allora prima rimuovi la nuova versione."
  956.             )
  957.     )
  958.     (set #prompt_update (cat "Quali parti di " @app-name ".mcc vuoi aggiungere alla installazione?"))
  959.     (set #prompt_install_mcc_catalogs (cat "Quali cataloghi di " @app-name ".mcc vuoi installare?"))
  960.     (set #prompt_install_mcp_catalogs (cat "Quali cataloghi di " @app-name ".mcp vuoi installare?"))
  961.     (set #prompt_install_docs "Quali tipi di documentazione vuoi installare?")
  962.     (set #prompt_install_agdocs "Per quali linguaggi vuoi installare la documentazione in AmigaGuide«?")
  963.     (set #prompt_install_demo "Vuoi installare i programmi dimostrativi forniti?")
  964.     (set #help_install_demo (cat "Un dimostrativo Φ un piccolo programma che illustra l'uso della custom class " @app-name ))
  965.     (set #prompt_install_plangs "Per quale linguaggio di programmazione vuoi installare i file di supporto?")
  966.     (set #prompt_install_source "Codice sorgente")
  967.     (set #help_install_source (cat "Puoi usare il codice sorgente della classe custom " @app-name " come esempio, o per creare eseguibili corretti o aggiornati.\nAttenzione - il codice sorgente potrebbe essere in qualunque linguaggio!"))
  968.     (set #prompt_copy "Vuoi copiare i seguenti file?")
  969.     (set #prompt_makedir "La seguente directory non Φ stata trovata, dunque verrα creata:")
  970.     (set #prompt_uninstall_asciidocs "Per quali linguaggi di programmazione vuoi rimuovere la documentazione in ASCII?")
  971.     (set #prompt_install_asciidocs "Per quali linguaggi di programmazione vuoi installare la documentazione in ASCII?")
  972.     (set #exit_uninstall_finished (cat "Disinstallazione completata!\n"
  973.                    '"'
  974.                    @app-name
  975.                    '"'
  976.                    " Φ stato rimosso dalla directory "
  977.                    '"'
  978.                    @default-dest
  979.                    '"'
  980.               )
  981.     )
  982.    )
  983.    ( ; dansk translation by Ole Friis <ole_f@post3.tele.dk>
  984.     (if (= @installer-version 0)
  985.       (
  986.        (set #help_askoptions "Med en Installer µldre end 42.6 kan det ske at du ser hak-bokse uden navn. Der vil intet ske ved at trykke pσ dem.\n\n")
  987.        (set #help_askchoice "Med en Installer µldre end 42.6 kan det ske at du ser radioknapper uden navn. Trykker du pσ en, vil du i stedet vµlge den nedenunder.\n\n")
  988.       )
  989.     )
  990.     (set #unknown     "ukendt")
  991.     (set #choice_english    "Engelsk")
  992.     (set #choice_german     "Tysk")
  993.     (set #choice_french     "Fransk")
  994.     (set #choice_spanish    "Spansk")
  995.     (set #choice_portuguese "Portugisisk")
  996.     (set #choice_danish     "Dansk")
  997.     (set #choice_italian    "Italiensk")
  998.     (set #choice_dutch      "Hollandsk")
  999.     (set #choice_norwegian  "Norsk")
  1000.     (set #choice_swedish    "Svensk")
  1001.     (set #choice_polish     "Polsk")
  1002.     (set #choice_finnish    "Finsk")
  1003.     (set #choice_hungarian  "Ungarsk")
  1004.     (set #choice_turkish    "Tyrkisk")
  1005.     (set #choice_greek      "Grµsk")
  1006.     (set #choice_latin      "Latin")
  1007.     (set #choice_esperanto  "Esperanto")
  1008.     (set #choice_russian    "Russisk")
  1009.     (set #choice_czech      "Tjekkisk")
  1010.     (set #choice_catalonian "Katalansk"); LANGUAGE
  1011.  
  1012.     (set #choice_catalogs   "Oversµttelser")
  1013.     (set #choice_docs       "Dokumentation")
  1014.     (set #choice_developer  "Udvikler-materiale")
  1015.     (set #choice_source     "Kildekode")
  1016.     (set #choice_install    "Installere")
  1017.     (set #choice_update     "Opdatere")
  1018.     (set #choice_uninstall  "Fjerne")
  1019.     (set #prompt_askcpufpu    (cat "Vµlg venligst CPU/FPU-konfigurationen for hvilken du °nsker at installere " @app-name ".mcc"))
  1020.     (set #prompt_info         (cat "\nVelkommen til " @app-name " MUI custom class\n" #copyright "\n\n"))
  1021.     (set #prompt_install_uninstall (cat #prompt_info "╪nsker du at installere eller at fjerne den pσgµldende custom class?"))
  1022.     (set #abort_nocpu ( cat "Desvµrre, programmet kan ikke installere " @app-name ".mcc, idet din CPU-konfiguration ikke er underst°ttet.\n"))
  1023.     (set #abort_nomui (cat @app-name " MUI custom class'en kan kun bruges med Magic User Interface (MUI), og uden denne er custom class'en ubrugelig!\n\n"
  1024.             "`Install' har ikke fundet " @default-dest " til at vµre assignet, sσ installΘr venligst MUI f°r du installerer " @app-name ".mcc!\n"
  1025.             )
  1026.     )
  1027.     (set #abort_oldmui (cat "For at installere " @app-name ".mcc beh°ver du MUI %s som minimum.\n\n"
  1028.              "`Install' har kun fundet MUI %s installeret.\n"
  1029.              )
  1030.     )
  1031.     (set #welcome_install (cat "Velkommen til MUI custom class-installationsprogrammet.\n"
  1032.                 "Vµlg venligst hvordan installationen skal forl°be (baseret pσ dit kendskab til Amiga-computeren)."
  1033.            )
  1034.     )
  1035.     (set #welcome_uninstall (cat "Velkommen til MUI custom class-fjerneprogrammet.\n"
  1036.              "Vµlg venligst hvordan fjernelsen skal forl°be (baseret pσ dit kendskab til Amiga-computeren)."
  1037.              )
  1038.     )
  1039.     (set #prompt_uninstall_parts (cat "Hvilke dele °nsker du at fjerne?\n"
  1040.                   @app-name ".mcp vil ogsσ fjerne de tilh°rende oversµttelser.\n"
  1041.              )
  1042.     )
  1043.     (set #prompt_uninstall_all (cat "╪nsker du at fjerne alt relateret til " @app-name ".mcc?"))
  1044.     (set #help_uninstall_all "Hvis du ikke °nsker at fjerne alt, vil du blive spurgt hvilke dele der skal fjernes.")
  1045.     (set #prompt_uninstall_plangs "Hvilke programmeringssprog °nsker du at fjerne underst°ttelse fra?")
  1046.     (set #prompt_uninstall_mcp_catalogs (cat "Hvilke oversµttelser af " @app-name ".mcp °nsker du at fjerne?"))
  1047.     (set #prompt_uninstall_mcc_catalogs (cat "Hvilke oversµttelser af " @app-name ".mcc °nsker du at fjerne?"))
  1048.     (set #prompt_uninstall_agdocs "For hvilke sprog °nsker du at fjerne AmigaGuide«-dokumentation?")
  1049.     (set #prompt_uninstall_docs "Hvilken type dokumenter °nsker du at fjerne?")
  1050.     (set #abort_oldversion (cat "`Installer' har opdaget at version %ld.%ld af " @app-name ".mcc allerede er installeret.\n\n"
  1051.             "Hvis du °nsker at gen-installere den gamle version %ld.%ld, sσ fjern venligst den nye version f°rst."
  1052.             )
  1053.     )
  1054.     (set #prompt_update (cat "Hvilke dele af " @app-name ".mcc °nsker du at tilf°je?"))
  1055.     (set #prompt_install_mcc_catalogs (cat "Hvilke oversµttelser af " @app-name ".mcc °nsker du at installere?"))
  1056.     (set #prompt_install_mcp_catalogs (cat "Hvilke oversµttelser af " @app-name ".mcp °nsker du at installere?"))
  1057.     (set #prompt_install_docs "Hvilken type dokumenter °nsker du at installere?")
  1058.     (set #prompt_install_agdocs "Pσ hvilke sprog °nsker du at installere AmigaGuide«-dokumentation?")
  1059.     (set #prompt_install_demo "╪nsker du at installere det inkluderede demonstrationsprogram?")
  1060.     (set #help_install_demo (cat "Dette demonstrationsprogram er et lille program som demonstrerer brugen af " @app-name "custom class."))
  1061.     (set #prompt_install_plangs "Hvilke programmeringssprog °nsker du at installere underst°ttelse af?")
  1062.     (set #prompt_install_source "╪nsker du at installere kildekoden?")
  1063.     (set #help_install_source (cat "Kildekoden til " @app-name "-customklassen kan bruges som et eksempel eller til at lave dine egne (fejlrettede) udgaver.\nVµr forsigtig - kildekoden kan vµre i et hvilket som helst programmeringssprog!"))
  1064.     (set #prompt_copy "╪nsker du at kopiere de(n) f°lgende fil(er)?")
  1065.     (set #prompt_makedir "F°lgende skuffe var ikke fundet, sσ den skal skabes:")
  1066.     (set #prompt_uninstall_asciidocs "For hvilke sprog °nsker du at fjerne ASCII-dokumentation?")
  1067.     (set #prompt_install_asciidocs "Pσ hvilke sprog °nsker du at installere ASCII-dokumentation?")
  1068.     (set #exit_uninstall_finished (cat "Fjernelse fµrdig!\n"
  1069.                    '"'
  1070.                    @app-name
  1071.                    '"'
  1072.                    " er fjernet fra din "
  1073.                    '"'
  1074.                    @default-dest
  1075.                    '"'
  1076.                    "-skuffe (eller partition)."
  1077.               )
  1078.     )
  1079.    )
  1080.    ( ; portuguΩs
  1081.     (complete 0)
  1082.    )
  1083.    ( ; espa±ol
  1084.     (complete 0)
  1085.    )
  1086.    ( ; franτais translation by Francis Labrie <fb691875@er.uqam.ca>
  1087.     (if (= @installer-version 0)
  1088.       (
  1089.  
  1090.        (set #help_askoptions "Avec l'Installer α la version antΘrieur α 42.6 il est possible que des cases α crochets s'affichent sans Θtiquettes.  La sΘlection de ces cases vierges sera tout simplement ignorΘe.\n\n")
  1091.        (set #help_askchoice "Avec l'Installer α la version antΘrieur α 42.6 il est possible que des boutons radios s'affichent sans Θtiquettes.  La sΘlection de ces boutons correspondra alors α une sΘlection du prochain bouton valide.\n\n")
  1092.       )
  1093.     )
  1094.     (set #unknown     "Inconnu")
  1095.     (set #choice_english    "Anglais")
  1096.     (set #choice_german     "Allemand")
  1097.     (set #choice_french     "Franτais")
  1098.     (set #choice_spanish    "Espagnol")
  1099.     (set #choice_portuguese "Portuguais")
  1100.     (set #choice_danish     "Danois")
  1101.     (set #choice_italian    "Italien")
  1102.     (set #choice_dutch      "Hollandais")
  1103.     (set #choice_norwegian  "NorvΘgien")
  1104.     (set #choice_swedish    "SuΘdois")
  1105.     (set #choice_polish     "Polonais")
  1106.     (set #choice_finnish    "Finlandais")
  1107.     (set #choice_hungarian  "Hongrois")
  1108.     (set #choice_turkish    "Turc")
  1109.     (set #choice_greek      "Grec")
  1110.     (set #choice_latin      "Latin")
  1111.     (set #choice_esperanto  "EspΘranto")
  1112.     (set #choice_russian    "Russe")
  1113.     (set #choice_czech      "TchΦque")
  1114.     (set #choice_catalonian "Catalan"); LANGUAGE
  1115.  
  1116.     (set #choice_catalogs   "Catalogues")
  1117.     (set #choice_docs       "Documentation")
  1118.     (set #choice_developer  "Outils de dΘveloppement")
  1119.     (set #choice_source     "Code source")
  1120.     (set #choice_install    "Installer")
  1121.     (set #choice_update     "Mise α niveau")
  1122.     (set #choice_uninstall  "DΘsinstaller")
  1123.     (set #prompt_askcpufpu    (cat "SΘlectionnez la configuration de processeur pour lequel vous souhaitez installer " @app-name ".mcc"))
  1124.     (set #prompt_info         (cat "\nBienvenue α la classe MUI " @app-name "\n" #copyright "\n\n"))
  1125.     (set #prompt_install_uninstall (cat #prompt_info "Souhaite-vous installer ou dΘsinstaller cette classe?"))
  1126.     (set #abort_nocpu ( cat "DΘsolΘ, ce script est incapable d'installer " @app-name ".mcc, parce que votre choix de configuration de processeur n'y est pas supportΘ.\n"))
  1127.     (set #abort_nomui (cat "La classe MUI " @app-name " ne peut Ωtre utilisΘe qu'avec Magic User Interface (MUI).  En dehors ce systΦme, cette classe demeure inutilisable!\n\n"
  1128.             "Le rΘpertoire " @default-dest " est introuvable, veuillez installer MUI avant de tenter d'installer " @app-name ".mcc!\n"
  1129.             )
  1130.     )
  1131.     (set #abort_oldmui (cat "MUI %s est le minimum requis afin d'installer " @app-name ".mcc.\n\n"
  1132.              "Pour l'instant, seul MUI %s semble installΘ sur votre systΦme.\n"
  1133.              )
  1134.     )
  1135.     (set #welcome_install (cat "Bienvenue α l'utilitaire d'installation de classe MUI.\n"
  1136.                 "Veuillez indiquer le type d'installation souhaitΘ\n(basΘ sur votre connaissance de l'ordinateur Amiga)."
  1137.            )
  1138.     )
  1139.     (set #welcome_uninstall (cat "Bienvenue α l'utilitaire de dΘsinstallation de classe MUI.\n"
  1140.              "Veuillez indiquer le type de dΘsinstallation souhaitΘ\n(basΘ sur votre connaissance de l'ordinateur Amiga)."
  1141.              )
  1142.     )
  1143.     (set #prompt_uninstall_parts (cat "Quelles sections souhaitez-vous dΘsinstaller?\n"
  1144.                   "Notez que les catalogues relatifs α " @app-name ".mcp seront Θgalement dΘsinstallΘs.\n"
  1145.              )
  1146.     )
  1147.     (set #prompt_uninstall_all (cat "DΘsirez-vous dΘsinstaller tous les fichiers relatifs α " @app-name ".mcc?"))
  1148.     (set #help_uninstall_all "Si vous ne dΘsirez pas tout dΘsinstaller, il vous sera alors demander de prΘciser quelles sections vous souhaitez enlever.")
  1149.     (set #prompt_uninstall_plangs "Pour quels langages de programmation souhaitez-vous dΘsinstaller les documents d'assistance technique?")
  1150.     (set #prompt_uninstall_mcp_catalogs (cat "Lesquels de ces catalogues souhaitez-vous dΘsinstaller pour " @app-name ".mcp?"))
  1151.     (set #prompt_uninstall_mcc_catalogs (cat "Lesquels de ces catalogues souhaitez-vous dΘsinstaller pour " @app-name ".mcc?"))
  1152.     (set #prompt_uninstall_agdocs "Pour quelles langues souhaitez-vous dΘsinstaller la documentation de format AmigaGuide«?")
  1153.     (set #prompt_uninstall_docs "Quelles types de document souhaitez-vous dΘsinstaller?")
  1154.     (set #abort_oldversion (cat "La version %ld.%ld de " @app-name ".mcc semble Ωtre dΘjα installΘe.\n\n"
  1155.             "Si vous souhaitez rΘinstaller l'ancienne version %ld.%ld, veuillez dΘsinstaller d'abord la nouvelle version."
  1156.             )
  1157.     )
  1158.     (set #prompt_update (cat "Quelles sections de " @app-name ".mcc souhaitez-vous ajouter α l'installation?"))
  1159.     (set #prompt_install_mcc_catalogs (cat "Lesquels de ces catalogues destinΘs α " @app-name ".mcc souhaitez-vous installer?"))
  1160.     (set #prompt_install_mcp_catalogs (cat "Lesquels de ces catalogues destinΘs α " @app-name ".mcp souhaitez-vous installer?"))
  1161.     (set #prompt_install_docs "Quels types de document souhaitez-vous installer?")
  1162.     (set #prompt_install_agdocs "Pour quelles langues souhaitez-vous installer la documentation de format AmigaGuide«?")
  1163.     (set #prompt_install_demo "Voulez-vous installer le programme de dΘmonstration?")
  1164.     (set #help_install_demo (cat "Ce programme de dΘmonstration est un petit logiciel dΘmontrant l'utilisation de la nouvelle classe MUI " @app-name "."))
  1165.     (set #prompt_install_plangs "Pour quels langages de programmation souhaitez-vous installer les documents d'assistance technique?")
  1166.     (set #prompt_install_source "DΘsirez-vous installer le code sourceá?")
  1167.     (set #help_install_source (cat "Le code source de la classe " @app-name " peut Ωtre utilisΘ en exemple afin de crΘer vos propres classes.\nAttentioná- le code source peut Ωtre Θcrit en n'importe quel langageá!"))
  1168.     (set #prompt_copy "Souhaitez-vous copier le(s) fichier(s) suivant(s)?")
  1169.     (set #prompt_makedir "Puisque le tiroir suivant n'a pas ΘtΘ trouvΘ, il doit donc Ωtre crΘΘ:")
  1170.  
  1171.     (set #prompt_uninstall_asciidocs "Pour quelles langues souhaitez-vous dΘsinstaller la documentation de format ASCII?")
  1172.     (set #prompt_install_asciidocs "Pour quelles langues souhaitez-vous installer la documentation de format ASCII?")
  1173.     (set #exit_uninstall_finished (cat "DΘsinstallation complΘtΘeá!\n½á"
  1174.                    @app-name
  1175.                    "á╗ est retirΘe du rΘpertoire (ou partition) ½á"
  1176.                    @default-dest
  1177.                    " ╗."
  1178.               )
  1179.     )
  1180.    )
  1181.    ( ; deutsch
  1182.     (if (= @installer-version 0)
  1183.       (
  1184.        (set #help_askoptions "Mit einem Installer der Σlter als Version 42.6 ist, kann es passieren, da▀ Checkbox-Kn÷pfe ohne Labels zu sehen sind. Das Setzen dieser Kn÷pfe wird ignoriert.\n\n")
  1185.        (set #help_askchoice "Mit einem Installer der Σlter als Version 42.6 ist, kann es passieren, da▀ Radio-Kn÷pfe ohne Labels zu sehen sind. Das Setzen dieser Kn÷pfe entspricht der nΣchst kleineren Auswahl.\n\n")
  1186.       )
  1187.     )
  1188.     (set #unknown     "unbekannt")
  1189.     (set #choice_english    "Englisch")
  1190.     (set #choice_german     "Deutsch")
  1191.     (set #choice_french     "Franz÷sisch")
  1192.     (set #choice_spanish    "Spanisch")
  1193.     (set #choice_portuguese "Portugiesisch")
  1194.     (set #choice_danish     "DΣnisch")
  1195.     (set #choice_italian    "Italienisch")
  1196.     (set #choice_dutch      "NiederlΣndisch")
  1197.     (set #choice_norwegian  "Norwegisch")
  1198.     (set #choice_swedish    "Schwedisch")
  1199.     (set #choice_polish     "Polnisch")
  1200.     (set #choice_finnish    "Finnisch")
  1201.     (set #choice_hungarian  "Ungarisch")
  1202.     (set #choice_turkish    "Tⁿrkisch")
  1203.     (set #choice_greek      "Griechisch")
  1204.     (set #choice_latin      "Latein")
  1205.     (set #choice_esperanto  "Esperanto")
  1206.     (set #choice_russian    "Russisch")
  1207.     (set #choice_czech      "Tschechisch")
  1208.     (set #choice_catalonian "Katalanisch"); LANGUAGE
  1209.  
  1210.     (set #choice_catalogs   "Kataloge")
  1211.     (set #choice_docs       "Dokumentation")
  1212.     (set #choice_developer  "Entwickler-Material")
  1213.     (set #choice_source     "Quellcode")
  1214.     (set #choice_install    "Installieren")
  1215.     (set #choice_update     "Updaten")
  1216.     (set #choice_uninstall  "Deinstallieren")
  1217.     (set #prompt_askcpufpu (cat "Bitte wΣhlen Sie die CPU/FPU Konfiguration, fⁿr die " @app-name ".mcc installiert werden soll."))
  1218.     (set #prompt_info (cat "\nWillkommen zur " @app-name " MUI-Klasse\n" #copyright "\n\n"))
  1219.     (set #prompt_install_uninstall (cat #prompt_info "Wollen Sie die Klasse installieren oder deinstallieren?"))
  1220.     (set #abort_nocpu (cat @app-name ".mcc kann leider nicht installiert werden, da Ihre CPU-Konfiguration nicht unterstⁿtzt wird.\n"))
  1221.     (set #abort_nomui (cat "Die " @app-name " MUI-Klasse kann nur zusammen mit dem Magic User Interface (MUI) benutzt werden, ohne MUI ist die Klasse nutzlos!\n\n"
  1222.             "Der Installer konnte " @default-dest " nicht finden, installieren Sie bitte erst MUI, bevor Sie versuchen " @app-name ".mcc zu installieren!\n"
  1223.             )
  1224.     )
  1225.     (set #abort_oldmui (cat "Um " @app-name ".mcc zu installieren wird mindestens MUI %s ben÷tigt.\n\n"
  1226.              "Der Installer konnte aber nur MUI %s finden.\n"
  1227.              )
  1228.     )
  1229.     (set #welcome_install (cat "Willkommen zum MUI-Klassen Installations-Werkzeug.\n"
  1230.                 "Bitte geben Sie an, wie die Installation geschehen soll (basierend auf Ihrem Wissen ⁿber den Amiga Computer)."
  1231.            )
  1232.     )
  1233.     (set #welcome_uninstall (cat "Willkommen zum MUI-Klassen deinstallations Werkzeug.\n"
  1234.              "Bitte geben Sie an, wie die Deinstallation geschehen soll (basierend auf Ihrem Wissen ⁿber den Amiga Computer)."
  1235.              )
  1236.     )
  1237.     (set #prompt_uninstall_parts (cat "Welche Teile wollen Sie deinstallieren?\n"
  1238.                   @app-name ".mcp deinstalliert auch die entsprechenden Kataloge.\n"
  1239.              )
  1240.     )
  1241.     (set #prompt_uninstall_all (cat "Wollen Sie alles was mit " @app-name ".mcc zu tun hat deinstallieren?"))
  1242.     (set #help_uninstall_all "Wenn Sie nicht alles deinstallieren wollen, werden Sie gefragt welche Teile deinstalliert werden sollen.")
  1243.     (set #prompt_uninstall_plangs "Unterstⁿtzung fⁿr welche Programmiersprache wollen Sie deinstallieren?")
  1244.     (set #prompt_uninstall_mcp_catalogs (cat "Welche Katalog von " @app-name ".mcp wollen Sie deinstallieren?"))
  1245.     (set #prompt_uninstall_mcc_catalogs (cat "Welche Katalog von " @app-name ".mcc wollen Sie deinstallieren?"))
  1246.     (set #prompt_uninstall_agdocs "Fⁿr welche Sprachen wollen Sie die AmigaGuide« Dokumentation deinstallieren?")
  1247.     (set #prompt_uninstall_docs "Welche Art von Dokumenten wollen Sie deinstallieren?")
  1248.     (set #abort_oldversion (cat "Der Installer hat die bereits installierte Version %ld.%ld von " @app-name ".mcc gefunden.\n\n"
  1249.             "Wenn Sie die Σltere Version %ld.%ld wieder installieren wollen, deinstallieren Sie die neuere Version bitte zuerst."
  1250.             )
  1251.     )
  1252.     (set #prompt_update (cat "Welche Teile wollen Sie zur " @app-name ".mcc Installation hinzufⁿgen?"))
  1253.     (set #prompt_install_mcc_catalogs (cat "Welche Kataloge fⁿr " @app-name ".mcc wollen Sie installieren?"))
  1254.     (set #prompt_install_mcp_catalogs (cat "Welche Kataloge fⁿr " @app-name ".mcp wollen Sie installieren?"))
  1255.     (set #prompt_install_docs "Welche Art von Dokumenten wollen Sie installieren?")
  1256.     (set #prompt_install_agdocs "Fⁿr welche Sprachen wollen Sie die AmigaGuide« Dokumentation installieren?")
  1257.     (set #prompt_install_demo "Wollen Sie die mitgelieferte Demo installieren?")
  1258.     (set #help_install_demo (cat "Die Demo ist ein kleines Programm, welches die Benutzung der " @app-name " Klasse zeigt."))
  1259.     (set #prompt_install_plangs "Unterstⁿtzung fⁿr welche Programmiersprache wollen Sie installieren?")
  1260.     (set #prompt_install_source "Wollen Sie den Quellcode installieren?")
  1261.     (set #help_install_source (cat "Der Quellcode der " @app-name " Klasse kann als Beispiel benutzt werden, oder aber um eigene (korrigierte) BinΣrfiles zu erzeugen.\nSeien Sie vorsichtig - der Quellcode kann in einer beliebigen Sprache vorliegen!"))
  1262.     (set #prompt_copy "Wollen Sie das/die folgenden Datei(en) kopieren?")
  1263.     (set #prompt_makedir "Das folgende Verzeichnis wurde nicht gefunden, deshalb mu▀ es erzeugt werden:")
  1264.     (set #prompt_uninstall_asciidocs "Fⁿr welche Sprachen wollen Sie die ASCII Dokumentation deinstallieren?")
  1265.     (set #prompt_install_asciidocs "Fⁿr welche Sprachen wollen Sie die ASCII Dokumentation installieren?")
  1266.     (set #exit_uninstall_finished (cat "Deinstallation abgeschlossen!\n"
  1267.                    '"'
  1268.                    @app-name
  1269.                    '"'
  1270.                    " wurde aus Ihrer Schublade (oder Partition) "
  1271.                    '"'
  1272.                    @default-dest
  1273.                    '"'
  1274.                    " entfernt."
  1275.               )
  1276.     )
  1277.    )
  1278.    ( ; english
  1279.     (if (= @installer-version 0)
  1280.       (
  1281.        (set #help_askoptions "With an Installer prior to version 42.6 it can happen that you see checkbox-buttons without labels. Selecting these buttons will be ignored.\n\n")
  1282.        (set #help_askchoice "With an Installer prior to version 42.6 it can happen that you see radio-buttons without labels. Selecting these buttons will result in the next lower available selection.\n\n")
  1283.       )
  1284.     )
  1285.     (set #unknown     "unknown")
  1286.     (set #choice_english    "English")
  1287.     (set #choice_german     "German")
  1288.     (set #choice_french     "French")
  1289.     (set #choice_spanish    "Spanish")
  1290.     (set #choice_portuguese "Portuguese")
  1291.     (set #choice_danish     "Danish")
  1292.     (set #choice_italian    "Italian")
  1293.     (set #choice_dutch      "Dutch")
  1294.     (set #choice_norwegian  "Norwegian")
  1295.     (set #choice_swedish    "Swedish")
  1296.     (set #choice_polish     "Polish")
  1297.     (set #choice_finnish    "Finnish")
  1298.     (set #choice_hungarian  "Hungarian")
  1299.     (set #choice_turkish    "Turkish")
  1300.     (set #choice_greek      "Greek")
  1301.     (set #choice_latin      "Latin")
  1302.     (set #choice_esperanto  "Esperanto")
  1303.     (set #choice_russian    "Russian")
  1304.     (set #choice_czech      "Czech")
  1305.     (set #choice_catalonian "Catalonian"); LANGUAGE
  1306.  
  1307.     (set #choice_catalogs   "Catalogs")
  1308.     (set #choice_docs       "Documentation")
  1309.     (set #choice_developer  "Developer material")
  1310.     (set #choice_source     "Source code")
  1311.     (set #choice_install    "Install")
  1312.     (set #choice_update     "Update")
  1313.     (set #choice_uninstall  "Uninstall")
  1314.     (set #prompt_askcpufpu    (cat "Please select the CPU/FPU configuration for which you want to install " @app-name ".mcc"))
  1315.     (set #prompt_info         (cat "\nWelcome to the " @app-name " MUI custom class\n" #copyright "\n\n"))
  1316.     (set #prompt_install_uninstall (cat #prompt_info "Do you want to install or uninstall the custom class?"))
  1317.     (set #abort_nocpu ( cat "Sorry, the script is unable to install " @app-name ".mcc, because your CPU configuration is not supported.\n"))
  1318.     (set #abort_nomui (cat "The " @app-name " MUI custom class can only be used with the Magic User Interface (MUI), without it the custom class is useless!\n\n"
  1319.             "The installer has not found " @default-dest " to be assigned, so please install MUI before trying to install " @app-name ".mcc!\n"
  1320.             )
  1321.     )
  1322.     (set #abort_oldmui (cat "To install " @app-name ".mcc you need MUI %s as a minimum.\n\n"
  1323.              "The installer has found that only MUI %s is installed.\n"
  1324.              )
  1325.     )
  1326.     (set #welcome_install (cat "Welcome to the MUI custom class installation utility.\n"
  1327.                 "Please indicate how the installation should proceed (based upon your knowledge of the Amiga computer)."
  1328.            )
  1329.     )
  1330.     (set #welcome_uninstall (cat "Welcome to the MUI custom class uninstallation utility.\n"
  1331.              "Please indicate how the uninstallation should proceed (based upon your knowledge of the Amiga computer)."
  1332.              )
  1333.     )
  1334.     (set #prompt_uninstall_parts (cat "Which parts do you want to uninstall?\n"
  1335.                   @app-name ".mcp will uninstall relating catalogs too.\n"
  1336.              )
  1337.     )
  1338.     (set #prompt_uninstall_all (cat "Do you want to uninstall all things related with " @app-name ".mcc?"))
  1339.     (set #help_uninstall_all "If you do not want to uninstall all, you will be asked which parts you want to uninstall.")
  1340.     (set #prompt_uninstall_plangs "Support for which programming languages do you want to uninstall?")
  1341.     (set #prompt_uninstall_mcp_catalogs (cat "Which catalogs for " @app-name ".mcp do you want to uninstall?"))
  1342.     (set #prompt_uninstall_mcc_catalogs (cat "Which catalogs for " @app-name ".mcc do you want to uninstall?"))
  1343.     (set #prompt_uninstall_agdocs "For which languages do you want to uninstall the AmigaGuide« documentation?")
  1344.     (set #prompt_uninstall_docs "Which type of documents do you want to uninstall?")
  1345.     (set #abort_oldversion (cat "The Installer found that version %ld.%ld of " @app-name ".mcc is already installed.\n\n"
  1346.             "If you want to reinstall the older version %ld.%ld then please uninstall the newer version first."
  1347.             )
  1348.     )
  1349.     (set #prompt_update (cat "Which parts of " @app-name ".mcc do you want to add to the installation?"))
  1350.     (set #prompt_install_mcc_catalogs (cat "Which catalogs for " @app-name ".mcc do you want to install?"))
  1351.     (set #prompt_install_mcp_catalogs (cat "Which catalogs for " @app-name ".mcp do you want to install?"))
  1352.     (set #prompt_install_docs "Which type of documents do you want to install?")
  1353.     (set #prompt_install_agdocs "For which languages do you want to install the AmigaGuide« documentation?")
  1354.     (set #prompt_install_demo "Do you want to install the supplied demo?")
  1355.     (set #help_install_demo (cat "The demo is a small program that demonstrates the usage of the " @app-name "custom class."))
  1356.     (set #prompt_install_plangs "Support for which programming languages do you want to install?")
  1357.     (set #prompt_install_source "Do you want to install the source code?")
  1358.     (set #help_install_source (cat "The source code of " @app-name " custom class can be used as an example or you can create your own (bug fixed) binaries.\nBe careful - the source code can be in any language!"))
  1359.     (set #prompt_copy "Do you want to copy the following file(s)?")
  1360.     (set #prompt_makedir "The following directory was not found, so it must be created:")
  1361.  
  1362.     (set #prompt_uninstall_asciidocs "For which languages do you want to uninstall the ASCII documentation?")
  1363.     (set #prompt_install_asciidocs "For which languages do you want to install the ASCII documentation?")
  1364.     (set #exit_uninstall_finished (cat "Uninstallation complete!\n"
  1365.                    '"'
  1366.                    @app-name
  1367.                    '"'
  1368.                    " is removed from your "
  1369.                    '"'
  1370.                    @default-dest
  1371.                    '"'
  1372.                    " drawer (or partition)."
  1373.               )
  1374.     )
  1375.    )
  1376.  )
  1377.  (if (> @installer-version 0)
  1378.    (
  1379.     (set #help_askoptions "")
  1380.     (set #help_askchoice "")
  1381.    )
  1382.  )
  1383.  
  1384. ; --- BitToLanguage -----------------------------------------------------------
  1385.  
  1386.  (procedure P_BitToLanguage
  1387.   ; Params:
  1388.   ; #langmask
  1389.   ;
  1390.   ; Results:
  1391.   ; #langmask #lang
  1392.   ;
  1393.   ; Used Vars:
  1394.   ; #i #bitmask
  1395.  
  1396.   (set #i 0)
  1397.   (set #bitmask %111111111111111111110) ; LANGUAGE
  1398.   (while (AND (< #i 20) (NOT (IN #langmask #i))) ; LANGUAGE
  1399.     (
  1400.      (set #bitmask (BITOR (shiftleft #bitmask 1) %000000000000000000001)) ; LANGUAGE
  1401.      (set #i (+ #i 1))
  1402.     )
  1403.   )
  1404.   (set #langmask (BITAND #langmask #bitmask))
  1405.   (set #lang (select #i "english" "deutsch" "franτais" "espa±ol" "portuguΩs" "dansk" "italiano" "nederlands" "norsk" "svenska" "polski" "suomi" "magyar" "greek" "esperanto" "tⁿrkτe" "latina" "russian" "├e╙tina" "catalonian" "")) ; LANGUAGE
  1406.  )
  1407.  
  1408. ; --- Check procedure ---------------------------------------------------------
  1409.  
  1410.  (procedure P_CheckExists
  1411.    ; Param:
  1412.    ; #dir
  1413.    ;
  1414.    ; Results:
  1415.    ; #chk_mcc #chk_mcp #chk_demo #chk_catalogs #chk_agdocs #chk_proglang
  1416.    ; #chk_autodoc #chk_c_h #chk_c_example #chk_asm_i #chk_asm_example #chk_e_e
  1417.    ; #chk_e_example #chk_modula_def #chk_modula_mod #chk_modula_demo
  1418.    ; #chk_oberon_mod #chk_oberon_example #chk_existsmask #chk_mcc_catalogs
  1419.    ; #chk_mcp_catalogs #chk_docs #chk_progdirs #chk_asciidocs #chk_source
  1420.    ;
  1421.    ; Vars used:
  1422.    ; #i #lang
  1423.  
  1424.    ; Custom Class
  1425.    (set #chk_mcc (exists (tackon (tackon #dir "Libs/MUI") (cat @app-name ".mcc")) (noreq)))
  1426.    (set #chk_mcp (exists (tackon (tackon #dir "Libs/MUI") (cat @app-name ".mcp")) (noreq)))
  1427.  
  1428.    ; Demo
  1429.    (set #chk_demo (exists (tackon (tackon #dir "Demos") (cat @app-name "-Demo")) (noreq)))
  1430.  
  1431.    ; Catalogs + Documentation
  1432.    (set #chk_mcc_catalogs %00000000000000000000) ; LANGUAGE
  1433.    (set #chk_mcp_catalogs %00000000000000000000) ; LANGUAGE
  1434.    (set #chk_asciidocs    %00000000000000000000) ; LANGUAGE
  1435.    (set #chk_agdocs    %00000000000000000000) ; LANGUAGE
  1436.    (set #langmask   %11111111111111111111) ; LANGUAGE
  1437.    (while (P_BitToLanguage)
  1438.      (
  1439.       ; Catalogs
  1440.       (if (exists (tackon (tackon (tackon #dir "locale/catalogs") #lang) (cat @app-name "_mcc.catalog")) (noreq))
  1441.    (
  1442.     (set #chk_mcc_catalogs (BITOR #chk_mcc_catalogs %100000000000000000000)) ; LANGUAGE
  1443.     (set #chk_mcc_catalogs (shiftright #chk_mcc_catalogs 1))
  1444.    )
  1445.    (set #chk_mcc_catalogs (shiftright #chk_mcc_catalogs 1))
  1446.       )
  1447.       (if (exists (tackon (tackon (tackon #dir "locale/catalogs") #lang) (cat @app-name "_mcp.catalog")) (noreq))
  1448.    (
  1449.     (set #chk_mcp_catalogs (BITOR #chk_mcp_catalogs %100000000000000000000)) ; LANGUAGE
  1450.     (set #chk_mcp_catalogs (shiftright #chk_mcp_catalogs 1))
  1451.    )
  1452.    (set #chk_mcp_catalogs (shiftright #chk_mcp_catalogs 1))
  1453.       )
  1454.  
  1455.       ; Docs/ASCII
  1456.       (if (exists (tackon (tackon (tackon #dir "Docs") #lang) (cat @app-name "_mcc.doc")) (noreq))
  1457.    (
  1458.     (set #chk_asciidocs (BITOR #chk_asciidocs %100000000000000000000)) ; LANGUAGE
  1459.     (set #chk_asciidocs (shiftright #chk_asciidocs 1))
  1460.    )
  1461.    (set #chk_asciidocs (shiftright #chk_asciidocs 1))
  1462.       )
  1463.  
  1464.       ; Docs/AmigaGuide
  1465.       (if (exists (tackon (tackon (tackon #dir "Docs") #lang) (cat @app-name "_mcc.guide")) (noreq))
  1466.    (
  1467.     (set #chk_agdocs (BITOR #chk_agdocs %100000000000000000000)) ; LANGUAGE
  1468.     (set #chk_agdocs (shiftright #chk_agdocs 1))
  1469.    )
  1470.    (set #chk_agdocs (shiftright #chk_agdocs 1))
  1471.       )
  1472.  
  1473.      )
  1474.    )
  1475.    (set #chk_catalogs (BITOR #chk_mcc_catalogs #chk_mcp_catalogs))
  1476.    (set #chk_docs (BITOR (if #chk_asciidocs %01 %00)
  1477.           (if #chk_agdocs    %10 %00)
  1478.         )
  1479.    )
  1480.  
  1481.    ; Developer
  1482.    (set #chk_proglang %000000)
  1483.    (set #chk_progdirs %000000)
  1484.    (set #chk_autodoc (exists (tackon (tackon #dir "Developer/Autodocs") (cat "MCC_" @app-name ".doc")) (noreq)))
  1485.    ; C
  1486.    (set #chk_progdirs (BITOR #chk_progdirs (if (exists (tackon #dir "Developer/C") (noreq)) %000001 %000000)))
  1487.    (set #chk_c_h       (exists (tackon (tackon #dir "Developer/C/Include/MUI") (cat @app-name "_mcc.h")) (noreq)))
  1488.    (set #chk_c_example (exists (tackon (tackon #dir "Developer/C/Examples") (cat @app-name "-Demo.c")) (noreq)))
  1489.    (if #chk_c_h
  1490.      (set #chk_proglang (BITOR #chk_proglang %000001))
  1491.    )
  1492.    ; C++
  1493.  
  1494.    ; Assembler
  1495.    (set #chk_progdirs (BITOR #chk_progdirs (if (exists (tackon #dir "Developer/Assembler") (noreq)) %000100 %000000)))
  1496.    (set #chk_asm_i    (exists (tackon (tackon #dir "Developer/Assembler/Include/MUI") (cat @app-name "_mcc.i")) (noreq)))
  1497.    (set #chk_asm_example (exists (tackon (tackon #dir "Developer/Assembler/Examples") (cat @app-name "-Demo.s")) (noreq)))
  1498.    (if #chk_asm_i
  1499.      (set #chk_proglang (BITOR #chk_proglang %000100))
  1500.    )
  1501.    ; Amiga-E
  1502.    (set #chk_progdirs (BITOR #chk_progdirs (if (exists (tackon #dir "Developer/Amiga-E") (noreq)) %001000 %000000)))
  1503.    (set #chk_e_e       (exists (tackon (tackon #dir "Developer/Amiga-E/Modules/MUI") (cat @app-name "_mcc.e")) (noreq)))
  1504.    (set #chk_e_example (exists (tackon (tackon #dir "Developer/Amiga-E/Examples") (cat @app-name "-Demo.e")) (noreq)))
  1505.    (if #chk_e_e
  1506.      (set #chk_proglang (BITOR #chk_proglang %001000))
  1507.    )
  1508.    ; Modula-II
  1509.    (set #chk_progdirs (BITOR #chk_progdirs (if (exists (tackon #dir "Developer/Modula") (noreq)) %010000 %000000)))
  1510.    (set #chk_modula_def  (exists (tackon (tackon #dir "Developer/Modula/txt") (cat "MCC" @app-name ".def")) (noreq)))
  1511.    (set #chk_modula_mod  (exists (tackon (tackon #dir "Developer/Modula/txt") (cat "MCC" @app-name ".mod")) (noreq)))
  1512.    (set #chk_modula_demo (exists (tackon (tackon #dir "Developer/Modula/Demo") (cat @app-name "Demo.mod")) (noreq)))
  1513.    (if (AND #chk_modula_def #chk_modula_mod)
  1514.      (set #chk_proglang (BITOR #chk_proglang %010000))
  1515.    )
  1516.    ; Oberon
  1517.    (set #chk_progdirs (BITOR #chk_progdirs (if (exists (tackon #dir "Developer/Oberon") (noreq)) %100000 %000000)))
  1518.    (set #chk_oberon_mod     (exists (tackon (tackon #dir "Developer/Oberon/txt") (cat "MCC" @app-name ".mod")) (noreq)))
  1519.    (set #chk_oberon_example (exists (tackon (tackon #dir "Developer/Oberon/Examples") (cat @app-name "Demo.mod")) (noreq)))
  1520.    (if #chk_oberon_mod
  1521.      (set #chk_proglang (BITOR #chk_proglang %100000))
  1522.    )
  1523.    ; Source
  1524.    (if (= (exists (tackon (tackon #dir "Developer/Source") (cat "MCC_" @app-name)) (noreq)) 2)
  1525.      (set #chk_source 1)
  1526.      (set #chk_source 0)
  1527.    )
  1528.  
  1529.    (set #chk_existsmask (BITOR
  1530.            (if #chk_mcp %000001 %000000)
  1531.            (BITOR
  1532.              (if #chk_catalogs %000010 %000000)
  1533.              (BITOR
  1534.                (if #chk_docs %000100 %000000)
  1535.                (BITOR
  1536.             (if #chk_demo %001000 %000000)
  1537.             (BITOR
  1538.               (if #chk_proglang %010000 %000000)
  1539.               (if #chk_source   %100000 %000000)
  1540.             )
  1541.                )
  1542.              )
  1543.            )
  1544.          )
  1545.    )
  1546.  )
  1547.  
  1548. ; --- GetVersion procedure ----------------------------------------------------
  1549.  
  1550.  (procedure P_GetVersion
  1551.   ; Param:
  1552.   ; #file
  1553.   ;
  1554.   ; Results:
  1555.   ; #ver #rev
  1556.   ;
  1557.   ; Vars used:
  1558.   ; #vernum
  1559.  
  1560.   (set #vernum (getversion (cat #file)))
  1561.   (set #ver (/ #vernum 65536))
  1562.   (set #rev (- #vernum (* #ver 65536)))
  1563.  )
  1564.  
  1565. ; --- CompareVersions procedure -----------------------------------------------
  1566.  
  1567.  (procedure P_CompareVersions
  1568.   ; Param:
  1569.   ; #ver #rev #ver2 #rev2
  1570.   ;
  1571.   ; Results:
  1572.   ; #result
  1573.   ; -1 : #ver.#rev < #ver2.#rev2
  1574.   ;  0 : #ver.#rev = #ver2.#rev2
  1575.   ;  1 : #ver.#rev > #ver2.#rev2
  1576.   ;
  1577.   ; Used Vars:
  1578.  
  1579.   (if (< #ver #ver2)
  1580.     (set #result -1)
  1581.     (if (> #ver #ver2)
  1582.       (set #result 1)
  1583.       (if (< #rev #rev2)
  1584.    (set #result -1)
  1585.    (if (> #rev #rev2)
  1586.      (set #result 1)
  1587.      (set #result 0)
  1588.    )
  1589.       )
  1590.     )
  1591.   )
  1592.  )
  1593.  
  1594. ; --- GetOSVersion ------------------------------------------------------------
  1595.  
  1596.  (procedure P_GetOSVersion
  1597.   ; Param:
  1598.   ;
  1599.   ; Results:
  1600.   ; #os_ver #os_rev #os_str
  1601.   ;
  1602.   ; Used Vars:
  1603.   ; #file #ver #rev #vernum #i
  1604.  
  1605.   (set #file "libs:version.library")
  1606.   (P_GetVersion)
  1607.   (set #os_ver #ver)
  1608.   (set #os_rev #rev)
  1609.  
  1610.   (set #i 0)
  1611.   (while (<> #os_ver (select #i 33 34 36 37 38 39 40 #os_ver)) ; OS
  1612.     (set #i (+ #i 1))
  1613.   )
  1614.   (set #os_str (select #i "1.2" "1.3" "2.0pre" "2.0" "2.1" "3.0" "3.1" #unknown)) ; OS
  1615.  )
  1616.  
  1617. ; --- GetCPU ------------------------------------------------------------------
  1618.  
  1619.  (procedure P_GetCPUFPU
  1620.   ; Param:
  1621.   ;
  1622.   ; Results:
  1623.   ; #cpu #cpu_str
  1624.   ; -1 = unknown; 0 = 68000; 1 = 68010; 2 = 68020; 3 = 68030; 4 = 68040;
  1625.   ;        5 = 68060
  1626.   ; #fpu #fpu_str
  1627.   ; -1 = unknown; 0 = NOFPU; 1 = 68881; 2 = 68882; 3 = FPU40
  1628.   ;
  1629.   ; Used Vars:
  1630.  
  1631.   (set #cpu_str (database "cpu"))
  1632.   (set #cpu 0)
  1633.   (while (<> #cpu_str (select #cpu "68000" "68010" "68020" "68030" "68040""68060" #cpu))
  1634.     (set #cpu (+ #cpu 1))
  1635.   )
  1636.   (if (= #cpu 6)
  1637.     (
  1638.      (set #cpu -1)
  1639.      (set #cpu_str #unknown)
  1640.     )
  1641.   )
  1642.  
  1643.   (if @installer-version
  1644.     (
  1645.      (set #fpu_str (database "fpu"))
  1646.      (set #fpu 0)
  1647.      (while (<> #fpu_str (select #fpu "NOFPU" "68881" "68882" "FPU40" #fpu_str))
  1648.        (set #fpu (+ #fpu 1))
  1649.      )
  1650.      (if (= #fpu 4)
  1651.        (
  1652.    (set #fpu -1)
  1653.    (set #fpu_str #unknown)
  1654.        )
  1655.      )
  1656.     )
  1657.     (
  1658.      (set #fpu -1)
  1659.      (set #fpu_str #unknown)
  1660.     )
  1661.   )
  1662.  )
  1663.  
  1664. ; --- GetMUIVersionStr --------------------------------------------------------
  1665.  
  1666.  (procedure P_GetMuiVersionStr
  1667.   ; Params:
  1668.   ; #ver #rev
  1669.   ;
  1670.   ; Results:
  1671.   ; #str
  1672.   ;
  1673.   ; Used Vars:
  1674.   ; #i
  1675.  
  1676.   (set #i 0)
  1677.   (while (<> #ver (select #i 7 8 9 10 11 12 13 14 15 16 17 18 19 #ver)) ; MUI
  1678.     (set #i (+ #i 1))
  1679.   )
  1680.   (set #str (select #i "2.0" "2.1" "2.2" "2.3" "3.0" "3.1" "3.2" "3.3" "3.4" "3.5" "3.6" "3.7" "3.8" #unknown)) ; MUI
  1681.  )
  1682.  
  1683. ; --- GetMUIVersion -----------------------------------------------------------
  1684.  
  1685.  (procedure P_GetMUIVersion
  1686.   ; Params:
  1687.   ;
  1688.   ; Results:
  1689.   ; #mui_ver #mui_rev #mui_str
  1690.   ;
  1691.   ; Used Vars:
  1692.   ; #file #ver #rev #vernum #i
  1693.  
  1694.   (if (exists "MUI:" (noreq))
  1695.     (
  1696.      (if @installer-version
  1697.        (set #file "MUI:libs/muimaster.library")
  1698.        (set #file "MUI:MUI")
  1699.      )
  1700.      (P_GetVersion)
  1701.      (set #mui_ver #ver)
  1702.      (set #mui_rev #rev)
  1703.      (P_GetMuiVersionStr)
  1704.      (set #mui_str #str)
  1705.     )
  1706.     (
  1707.      (set #mui_ver 0)
  1708.      (set #mui_rev 0)
  1709.      (set #mui_str "")
  1710.     )
  1711.   )
  1712.  )
  1713.  
  1714. ; --- CheckAvailableCPUs ------------------------------------------------------
  1715.  
  1716.  (procedure P_CheckAvailableCPUs
  1717.   ; Params:
  1718.   ; #dir @app-name
  1719.   ;
  1720.   ; Results:
  1721.   ; #mcc_cpus #mcp_cpus #mcc_fpus #mcp_fpus #mcc_cpu_counter #mcp_cpu_counter
  1722.   ;
  1723.   ; Used Vars:
  1724.   ; #i #file #bitmask #filetype #f
  1725.  
  1726.   (set #mcc_cpus %000000)
  1727.   (set #mcp_cpus %000000)
  1728.   (set #mcc_fpus %000000)
  1729.   (set #mcp_fpus %000000)
  1730.   (set #mcc_cpu_counter 0)
  1731.   (set #mcp_cpu_counter 0)
  1732.   (if (OR (exists (tackon #dir (cat @app-name ".mcc")) (noreq)) (exists (tackon #dir (cat @app-name "000.mcc")) (noreq)))
  1733.     (foreach #dir (cat @app-name "(%|0(0|1|2|3|4|6)0)(%|f).mc(c|p)")
  1734.       (
  1735.        (set #i 0)
  1736.        (set #file (substr @each-name (strlen @app-name)))
  1737.        (set #filetype (substr #file (- (strlen #file) 1) 1))
  1738.        (set #file (substr #file 0 (- (strlen #file) 1)))
  1739.        (set #f (patmatch "#?f.mc" #file))
  1740.        (if #f
  1741.     (set #file (cat (substr #file 0 (- (strlen #file) 4)) ".mc"))
  1742.        )
  1743.        (set #bitmask %000001)
  1744.        (while (NOT (patmatch (select #i "(%|000).mc" "010.mc" "020.mc" "030.mc" "040.mc" "060.mc") #file))
  1745.     (
  1746.      (set #bitmask (shiftleft #bitmask 1))
  1747.      (set #i (+ #i 1))
  1748.     )
  1749.        )
  1750.        (if #f
  1751.     (if (= #filetype "c")
  1752.       (
  1753.        (set #mcc_fpus (BITOR #mcc_fpus #bitmask))
  1754.        (set #mcc_cpu_counter (+ #mcc_cpu_counter 1))
  1755.       )
  1756.       (
  1757.        (set #mcp_fpus (BITOR #mcp_fpus #bitmask))
  1758.        (set #mcp_cpu_counter (+ #mcp_cpu_counter 1))
  1759.       )
  1760.     )
  1761.     (if (= #filetype "c")
  1762.       (
  1763.        (set #mcc_cpus (BITOR #mcc_cpus #bitmask))
  1764.        (set #mcc_cpu_counter (+ #mcc_cpu_counter 1))
  1765.       )
  1766.       (
  1767.        (set #mcp_cpus (BITOR #mcp_cpus #bitmask))
  1768.        (set #mcp_cpu_counter (+ #mcp_cpu_counter 1))
  1769.       )
  1770.     )
  1771.        )
  1772.       )
  1773.     )
  1774.   )
  1775.  )
  1776.  
  1777. ; --- AskLanguages ------------------------------------------------------------
  1778.  
  1779.  (procedure P_AskLanguages
  1780.   ; Params:
  1781.   ; #prompt #langmask #defaultmask
  1782.   ;
  1783.   ; Results:
  1784.   ; #langmask
  1785.   ;
  1786.   ; Used Vars:
  1787.   ; #bitmask
  1788.  
  1789.   (set #langmask (BITAND #langmask %11111111111111111111)) ; LANGUAGE
  1790.   (if #langmask
  1791.     (
  1792.      (set #bitmask (askoptions (prompt #prompt)
  1793.                 (help #help_askoptions @askoptions-help)
  1794.                 (default (BITAND #defaultmask #langmask))
  1795.                 (choices
  1796.              (if (IN #langmask 0)
  1797.                (cat #prop #choice_english)
  1798.                ("")
  1799.              )
  1800.              (if (IN #langmask 1)
  1801.                (cat #prop #choice_german)
  1802.                ("")
  1803.              )
  1804.              (if (IN #langmask 2)
  1805.                (cat #prop #choice_french)
  1806.                ("")
  1807.              )
  1808.              (if (IN #langmask 3)
  1809.                (cat #prop #choice_spanish)
  1810.                ("")
  1811.              )
  1812.              (if (IN #langmask 4)
  1813.                (cat #prop #choice_portuguese)
  1814.                ("")
  1815.              )
  1816.              (if (IN #langmask 5)
  1817.                (cat #prop #choice_danish)
  1818.                ("")
  1819.              )
  1820.              (if (IN #langmask 6)
  1821.                (cat #prop #choice_italian)
  1822.                ("")
  1823.              )
  1824.              (if (IN #langmask 7)
  1825.                (cat #prop #choice_dutch)
  1826.                ("")
  1827.              )
  1828.              (if (IN #langmask 8)
  1829.                (cat #prop #choice_norwegian)
  1830.                ("")
  1831.              )
  1832.              (if (IN #langmask 9)
  1833.                (cat #prop #choice_swedish)
  1834.                ("")
  1835.              )
  1836.              (if (IN #langmask 10)
  1837.                (cat #prop #choice_polish)
  1838.                ("")
  1839.              )
  1840.              (if (IN #langmask 11)
  1841.                (cat #prop #choice_finnish)
  1842.                ("")
  1843.              )
  1844.              (if (IN #langmask 12)
  1845.                (cat #prop #choice_hungarian)
  1846.                ("")
  1847.              )
  1848.              (if (IN #langmask 13)
  1849.                (cat #prop #choice_greek)
  1850.                ("")
  1851.              )
  1852.              (if (IN #langmask 14)
  1853.                (cat #prop #choice_esperanto)
  1854.                ("")
  1855.              )
  1856.              (if (IN #langmask 15)
  1857.                (cat #prop #choice_turkish)
  1858.                ("")
  1859.              )
  1860.              (if (IN #langmask 16)
  1861.                (cat #prop #choice_latin)
  1862.                ("")
  1863.              )
  1864.              (if (IN #langmask 17)
  1865.                (cat #prop #choice_russian)
  1866.                ("")
  1867.              )
  1868.              (if (IN #langmask 18)
  1869.                (cat #prop #choice_czech)
  1870.                ("")
  1871.              )
  1872.              (if (IN #langmask 19)
  1873.                (cat #prop #choice_catalonian)
  1874.                ("")
  1875.              )
  1876.              ; LANGUAGE
  1877.                 )
  1878.          )
  1879.      )
  1880.      (set #langmask (BITAND #langmask #bitmask))
  1881.     )
  1882.   )
  1883.  )
  1884.  
  1885. ; --- AskDocFormat ------------------------------------------------------------
  1886.  
  1887.  (procedure P_AskDocFormats
  1888.   ; Params:
  1889.   ; #prompt #docmask #defaultmask
  1890.   ;
  1891.   ; Results:
  1892.   ; #docmask
  1893.   ;
  1894.   ; Used Vars:
  1895.   ; #bitmask
  1896.  
  1897.   (set #docmask (BITAND #docmask %11))
  1898.   (if #docmask
  1899.     (
  1900.      (set #bitmask (askoptions (prompt #prompt)
  1901.                 (help #help_askoptions @askoptions-help)
  1902.                 (default (BITAND #defaultmask #docmask))
  1903.                 (choices
  1904.              (if (IN #docmask 0)
  1905.                (cat #prop "ASCII")
  1906.                ("")
  1907.              )
  1908.              (if (IN #docmask 1)
  1909.                (cat #prop "AmigaGuide«")
  1910.                ("")
  1911.              )
  1912.                 )
  1913.          )
  1914.      )
  1915.      (set #docmask (BITAND #docmask #bitmask))
  1916.     )
  1917.   )
  1918.  )
  1919.  
  1920. ; --- AskProgLang -------------------------------------------------------------
  1921.  
  1922.  (procedure P_AskProgLangs
  1923.   ; Params:
  1924.   ; #prompt #plangmask #defaultmask
  1925.   ;
  1926.   ; Results:
  1927.   ; #plangmask
  1928.   ;
  1929.   ; Used Vars:
  1930.   ; #bitmask
  1931.  
  1932.   (set #plangmask (BITAND #plangmask %111101))
  1933.   (if #plangmask
  1934.     (
  1935.      (set #bitmask (askoptions (prompt #prompt)
  1936.                 (help #help_askoptions @askoptions-help)
  1937.                 (default (BITAND #defaultmask #plangmask))
  1938.                 (choices
  1939.              (if (IN #plangmask 0)
  1940.                (cat #prop "C")
  1941.                ("")
  1942.              )
  1943.              (if (IN #plangmask 1)
  1944.                (cat #prop "C++")
  1945.                ("")
  1946.              )
  1947.              (if (IN #plangmask 2)
  1948.                (cat #prop "Assembler")
  1949.                ("")
  1950.              )
  1951.              (if (IN #plangmask 3)
  1952.                (cat #prop "Amiga-E")
  1953.                ("")
  1954.              )
  1955.              (if (IN #plangmask 4)
  1956.                (cat #prop "Modula-II")
  1957.                ("")
  1958.              )
  1959.              (if (IN #plangmask 5)
  1960.                (cat #prop "Oberon")
  1961.                ("")
  1962.              )
  1963.                 )
  1964.          )
  1965.      )
  1966.      (set #plangmask (BITAND #plangmask #bitmask))
  1967.     )
  1968.   )
  1969.  )
  1970.  
  1971. ; --- AskCPUFPU ---------------------------------------------------------------
  1972.  
  1973.  (procedure P_AskCPUFPU
  1974.   ; Params:
  1975.   ;
  1976.   ; Results:
  1977.   ; #cpu #cpu_str #mcc_cpu_file_extension #mcp_cpu_file_extension #src-dir
  1978.   ;
  1979.   ; Used Vars:
  1980.   ; #i #file #bitmask #filetype #f #mcc_cpus #mcp_cpus #mcc_fpus #mcp_fpus #dir
  1981.   ; #defaultcpu #mcc_cpu_counter #mcp_cpu_counter #fpu #fpu_str #cpu2
  1982.  
  1983.   (set #dir (tackon #src-dir "libs/mui"))
  1984.   (P_CheckAvailableCPUs)
  1985.   (P_GetCPUFPU)
  1986.   (set #defaultcpu -1)
  1987.   (while (AND (>= #cpu 0) (= #defaultcpu -1))
  1988.     (
  1989.      (if (AND #fpu (IN #mcc_fpus #cpu))
  1990.        (set #defaultcpu (select #cpu -1 -1 3 5 7 -1))
  1991.        (if (IN #mcc_cpus #cpu)
  1992.     (set #defaultcpu (select #cpu 0 1 2 4 6 8))
  1993.        )
  1994.      )
  1995.      (set #cpu (- #cpu 1))
  1996.     )
  1997.   )
  1998.   ;(if (= #defaultcpu -1)
  1999.   ;  (abort #abort_nocpu)
  2000.   ;)
  2001.  
  2002.   (if (AND (> #mcc_cpu_counter 1) (= @user-level 2))
  2003.     (
  2004.      (set #cpu (askchoice (prompt #prompt_askcpufpu)
  2005.            (help #help_askchoice @askchoice-help)
  2006.            (default #defaultcpu)
  2007.            (choices
  2008.              (if (IN #mcc_cpus 0)
  2009.                (cat #prop "68000")
  2010.                ("")
  2011.              )
  2012.              (if (IN #mcc_cpus 1)
  2013.                (cat #prop "68010")
  2014.                ("")
  2015.              )
  2016.              (if (IN #mcc_cpus 2)
  2017.                (cat #prop "68020")
  2018.                ("")
  2019.              )
  2020.              (if (IN #mcc_fpus 2)
  2021.                (cat #prop "68020+fpu")
  2022.                ("")
  2023.              )
  2024.              (if (IN #mcc_cpus 3)
  2025.                (cat #prop "68030")
  2026.                ("")
  2027.              )
  2028.              (if (IN #mcc_fpus 3)
  2029.                (cat #prop "68030+fpu")
  2030.                ("")
  2031.              )
  2032.              (if (IN #mcc_cpus 4)
  2033.                (cat #prop "68040")
  2034.                ("")
  2035.              )
  2036.              (if (IN #mcc_fpus 4)
  2037.                (cat #prop "68040+fpu")
  2038.                ("")
  2039.              )
  2040.              (if (IN #mcc_cpus 5)
  2041.                (cat #prop "68060")
  2042.                ("")
  2043.              )
  2044.            )
  2045.           )
  2046.      )
  2047.     )
  2048.     (set #cpu #defaultcpu)
  2049.   )
  2050.   (if (<> #cpu -1)
  2051.     (
  2052.      ; select lower cpu if not available
  2053.      (set #cpu2 (select #cpu 0 1 2 2 3 3 4 4 5))
  2054.      (set #fpu2 (select #cpu 0 0 0 1 0 1 0 1 0))
  2055.      (while (NOT (OR (AND #fpu2 (AND #fpu (IN #mcc_fpus #cpu2))) (AND (NOT #fpu2) (IN #mcc_cpus #cpu2))))
  2056.        (
  2057.    (set #cpu (- #cpu 1))
  2058.    (set #cpu2 (select #cpu 0 1 2 2 3 3 4 4 5))
  2059.    (set #fpu2 (select #cpu 0 0 0 1 0 1 0 1 0))
  2060.        )
  2061.      )
  2062.  
  2063.      (set #cpu_str (select #cpu "68000" "68010" "68020" "68020+fpu" "68030" "68030+fpu" "68040" "68040+fpu" "68060"))
  2064.      (set #mcc_cpu_file_extension (select #cpu (if (exists (cat #dir "/" @app-name "000.mcc") (noreq)) ("000") ("")) "010" "020" "020f" "030" "030f" "040" "040f" "060"))
  2065.      (set #cpu #cpu2)
  2066.     )
  2067.     (
  2068.      (set #cpu2 -1)
  2069.      (set #fpu2 0)
  2070.      (set #cpu_str "")
  2071.      (set #mcc_cpu_file_extension "")
  2072.     )
  2073.   )
  2074.   ; set same or next lower cpu for .mcp
  2075.   (set #defaultcpu -1)
  2076.   (while (AND (>= #cpu2 0) (= #defaultcpu -1))
  2077.     (
  2078.      (if (AND #fpu (IN #mcp_fpus #cpu2))
  2079.        (set #defaultcpu (select #cpu2 -1 -1 3 5 7 -1))
  2080.        (if (IN #mcp_cpus #cpu2)
  2081.     (set #defaultcpu (select #cpu2 0 1 2 4 6 8))
  2082.        )
  2083.      )
  2084.      (set #cpu2 (- #cpu2 1))
  2085.     )
  2086.   )
  2087.   (if (= #defaultcpu -1)
  2088.     (set #mcp_cpu_file_extension "")
  2089.     (set #mcp_cpu_file_extension (select #defaultcpu (if (exists (cat #dir "/" @app-name "000.mcp") (noreq)) ("000") ("")) "010" "020" "020f" "030" "030f" "040" "040f" "060"))
  2090.   )
  2091.  )
  2092.  
  2093. ; --- AskParts ----------------------------------------------------------------
  2094.  
  2095.  (procedure P_AskParts
  2096.   ; Params:
  2097.   ; #prompt #defaultmask #existsmask
  2098.   ;
  2099.   ; Results:
  2100.   ; #parts
  2101.   ;
  2102.   ; Used Vars:
  2103.  
  2104.   (set #existsmask (if (= @user-level 2)
  2105.            #existsmask
  2106.            (BITAND #existsmask %001111)
  2107.          )
  2108.   )
  2109.   (if #existsmask
  2110.     (
  2111.      (set #parts (askoptions (prompt #prompt)
  2112.               (help #help_askoptions @askoptions-help)
  2113.               (default (BITAND #defaultmask #existsmask))
  2114.               (choices
  2115.             (if (IN #existsmask 0)
  2116.               (cat @app-name ".mcp")
  2117.               ("")
  2118.             )
  2119.             (if (IN #existsmask 1)
  2120.               (cat #prop #choice_catalogs)
  2121.               ("")
  2122.             )
  2123.             (if (IN #existsmask 2)
  2124.               (cat #prop #choice_docs)
  2125.               ("")
  2126.             )
  2127.             (if (IN #existsmask 3)
  2128.               (cat #prop @app-name "-Demo")
  2129.               ("")
  2130.             )
  2131.             (if (IN #existsmask 4)
  2132.               (cat #prop #choice_developer)
  2133.               ("")
  2134.             )
  2135.             (if (IN #existsmask 5)
  2136.               (cat #prop #choice_source)
  2137.               ("")
  2138.             )
  2139.               )
  2140.        )
  2141.      )
  2142.      (set #parts (BITAND #parts #existsmask))
  2143.     )
  2144.     (set #parts 0)
  2145.   )
  2146.  )
  2147.  
  2148. ; --- DelEmptyDir -------------------------------------------------------------
  2149.  
  2150.  
  2151.  (procedure P_DelEmptyDir
  2152.   ; Params:
  2153.   ; #dir
  2154.   ;
  2155.   ; Results:
  2156.   ;
  2157.   ; Used Vars:
  2158.   ; #i
  2159.  
  2160.   (set #i 0)
  2161.   (if (exists #dir (noreq))
  2162.     (
  2163.      (foreach #dir "#?"
  2164.        (set #i (+ #i 1))
  2165.      )
  2166.      (if (NOT #i)
  2167.        (
  2168.    (delete #dir (optional "force"))
  2169.    (delete (cat #dir ".info") (optional "force"))
  2170.        )
  2171.      )
  2172.     )
  2173.   )
  2174.  )
  2175.  
  2176. ; --- DelDirRecursiv ----------------------------------------------------------
  2177.  
  2178.  (procedure P_DelDirRecursive
  2179.   ; Params:
  2180.   ; #dir
  2181.   ;
  2182.   ; Results:
  2183.   ;
  2184.   ; Used Vars:
  2185.   ;
  2186.  
  2187.   (foreach #dir "#?"
  2188.     (if (< @each-type 0)
  2189.       (delete (tackon #dir @each-name) (optional "force"))
  2190.       (
  2191.        (set #dir (tackon #dir @each-name))
  2192.        (P_DelDirRecursive)
  2193.        (set #dir (pathonly #dir))
  2194.       )
  2195.     )
  2196.   )
  2197.   (delete #dir (optional "force"))
  2198.   (delete (cat #dir ".info") (optional "force"))
  2199.  )
  2200.  
  2201. ; --- DeleteLanguages ---------------------------------------------------------
  2202.  
  2203.  (procedure P_DeleteLanguages
  2204.   ; Params:
  2205.   ; #dir #file #langmask
  2206.   ;
  2207.   ; Results:
  2208.   ;
  2209.   ; Used Vars:
  2210.   ; #i
  2211.  
  2212.   (while (P_BitToLanguage)
  2213.     (
  2214.      (delete (tackon (tackon #dir #lang) #file) (optional "force"))
  2215.      (delete (tackon (tackon #dir #lang) (cat #file ".info")) (optional "force"))
  2216.      (set #i 0)
  2217.      (foreach (tackon #dir #lang) "#?"
  2218.        (set #i (+ #i 1))
  2219.      )
  2220.      (if (NOT #i)
  2221.        (
  2222.    (delete (tackon #dir #lang) (optional "force"))
  2223.    (delete (tackon #dir (cat #lang ".info")) (optional "force"))
  2224.        )
  2225.      )
  2226.     )
  2227.   )
  2228.  )
  2229.  
  2230. ; --- MkDirInfo ---------------------------------------------------------------
  2231.  
  2232.  (procedure P_MkDirInfo
  2233.   ; Params:
  2234.   ; #dir #infos #dest-dir
  2235.   ;
  2236.   ; Results:
  2237.   ;
  2238.   ; Used Vars:
  2239.  
  2240.   (if (NOT (exists (tackon #dest-dir #dir) (noreq)))
  2241.     (if #infos
  2242.       (makedir (tackon #dest-dir #dir) (prompt #prompt_makedir "\n\n" (tackon #dest-dir #dir)) (help @makedir-help) (infos) (confirm "expert"))
  2243.       (makedir (tackon #dest-dir #dir) (prompt #prompt_makedir "\n\n" (tackon #dest-dir #dir)) (help @makedir-help) (confirm "expert"))
  2244.     )
  2245.   )
  2246.  )
  2247.  
  2248. ; --- CpFile ------------------------------------------------------------------
  2249.  
  2250.  (procedure P_CpFile
  2251.   ; Params:
  2252.   ; #dir #file #infos #dest-dir #src-dir
  2253.   ;
  2254.   ; Results:
  2255.   ;
  2256.   ; Used Vars:
  2257.  
  2258.   (if #infos
  2259.     (copyfiles (prompt #prompt_copy)
  2260.           (help @copyfiles-help)
  2261.           (source (tackon (tackon #src-dir #dir) #file))
  2262.           (dest (tackon #dest-dir #dir))
  2263.           (files)
  2264.           (infos)
  2265.           (optional "nofail" "force")
  2266.           (confirm "expert")
  2267.     )
  2268.     (copyfiles (prompt #prompt_copy)
  2269.           (help @copyfiles-help)
  2270.           (source (tackon (tackon #src-dir #dir) #file))
  2271.           (dest (tackon #dest-dir #dir))
  2272.           (files)
  2273.           (optional "nofail" "force")
  2274.           (confirm "expert")
  2275.     )
  2276.   )
  2277.  )
  2278.  
  2279. ; --- Install -----------------------------------------------------------------
  2280.  
  2281.  (procedure P_Install
  2282.   ; Params:
  2283.   ; #chk_mcp #chk_demo #chk_mcc_catalogs #chk_mcp_catalogs #chk_docs
  2284.   ; #chk_asciidocs #chk_agdocs #chk_proglang #chk_progdirs #chk_autodoc
  2285.   ; #old_mcp #old_demo #old_mcc_catalogs #old_mcp_catalogs #old_docs
  2286.   ; #old_asciidocs #old_agdocs #old_proglang #old_progdirs #old_autodoc
  2287.   ; #update #mcp_cpu_counter #chk_source #chk_existsmask #src-dir #dest-dir
  2288.   ;
  2289.   ; Results:
  2290.   ;
  2291.   ; Used Vars:
  2292.   ; #dir #file #result #update #defaultmask
  2293.   ; #parts #prompt #langmask #install_mcc_catalogs #install_mcp_catalogs
  2294.   ; #docmask #install_docs #install_asciidocs #install_agdocs #install_demo
  2295.   ; #plangmask #install_proglang #infos #existsmask
  2296.  
  2297.   ; Update existing version or install newer one
  2298.  
  2299.   (if (= #update 1)
  2300.     (
  2301.      (set #prompt #prompt_update)
  2302.      (set #existsmask (BITAND #chk_existsmask (BITOR (BITOR (if (AND (NOT #old_demo) #chk_demo) %011110 %010110)
  2303.                          (if (AND (NOT #old_mcp) #chk_mcp) %010111 %010110)
  2304.                        )
  2305.                        (if (AND (NOT #old_source) #chk_source) %110110 %010110)
  2306.                      )
  2307.            )
  2308.      )
  2309.      (set #defaultmask %000000)
  2310.      (P_AskParts)
  2311.     )
  2312.   )
  2313.  
  2314.   ; (P_AskCPUFPU)
  2315.   (if (OR (NOT #update) (AND #update (IN #parts 0)))
  2316.     (P_AskCPUFPU)
  2317.   )
  2318.  
  2319.   ; mcc (P_AskLanguages)
  2320.   (if (OR (NOT #update) (AND #update (IN #parts 1)))
  2321.     (
  2322.      (set #prompt #prompt_install_mcc_catalogs)
  2323.      (set #langmask (if #update (BITAND #chk_mcc_catalogs (BITNOT #old_mcc_catalogs)) #chk_mcc_catalogs))
  2324.      (set #defaultmask (if #update (BITAND #language_default (BITNOT #old_mcc_catalogs)) (BITOR #language_default #old_mcc_catalogs)))
  2325.      (P_AskLanguages)
  2326.      (set #install_mcc_catalogs #langmask)
  2327.     )
  2328.     (set #install_mcc_catalogs 0)
  2329.   )
  2330.  
  2331.   ; mcp (P_AskLanguages)
  2332.   (if (OR (NOT #update) (AND #update (OR (IN #parts 1) (IN #parts 0))))
  2333.     (
  2334.      (set #prompt #prompt_install_mcp_catalogs)
  2335.      (set #langmask (if #update (BITAND #chk_mcp_catalogs (BITNOT #old_mcp_catalogs)) #chk_mcp_catalogs))
  2336.      (set #defaultmask (if #update (BITAND #language_default (BITNOT #old_mcp_catalogs)) (BITOR #language_default #old_mcp_catalogs)))
  2337.      (P_AskLanguages)
  2338.      (set #install_mcp_catalogs #langmask)
  2339.     )
  2340.     (set #install_mcp_catalogs 0)
  2341.   )
  2342.  
  2343.   ; (P_AskDocFormats)
  2344.   (if (OR (NOT #update) (AND #update (IN #parts 2)))
  2345.     (
  2346.      (set #prompt #prompt_install_docs)
  2347.      (set #docmask (if #update
  2348.            (BITOR
  2349.              (if (<> (BITAND #chk_asciidocs (BITNOT #old_asciidocs)) 0)
  2350.           %01
  2351.           %00
  2352.              )
  2353.              (if (<> (BITAND #chk_agdocs (BITNOT #old_agdocs)) 0)
  2354.           %10
  2355.           %00
  2356.              )
  2357.            )
  2358.            #chk_docs
  2359.          )
  2360.      )
  2361.      (set #defaultmask (if #update (BITAND %11 (BITNOT #old_docs)) (if (IN #docmask 1) %10 %01)))
  2362.      (P_AskDocFormats)
  2363.      (set #install_docs #docmask)
  2364.     )
  2365.     (set #install_docs 0)
  2366.   )
  2367.  
  2368.   ; asciidocs (P_AskLanguages)
  2369.   (if (IN #install_docs 0)
  2370.     (
  2371.      (set #prompt #prompt_install_asciidocs)
  2372.      (set #langmask (if #update (BITAND #chk_asciidocs (BITNOT #old_asciidocs)) #chk_asciidocs))
  2373.      (set #defaultmask (BITAND (if (= (BITAND #language_default #langmask) 0) %00000000000000000001 #language_default) (if #update (BITNOT #old_asciidocs) %11111111111111111111))) ; LANGUAGE
  2374.      (P_AskLanguages)
  2375.      (set #install_asciidocs #langmask)
  2376.     )
  2377.     (set #install_asciidocs 0)
  2378.   )
  2379.  
  2380.   ; agdocs (P_AskLanguages)
  2381.   (if (IN #install_docs 1)
  2382.     (
  2383.      (set #prompt #prompt_install_agdocs)
  2384.      (set #langmask (if #update (BITAND #chk_agdocs (BITNOT #old_agdocs)) #chk_agdocs))
  2385.      (set #defaultmask (BITAND (if (= (BITAND #language_default #langmask) 0) %00000000000000000001 #language_default) (if #update (BITNOT #old_agdocs) %11111111111111111111))) ; LANGUAGE
  2386.      (P_AskLanguages)
  2387.      (set #install_agdocs #langmask)
  2388.     )
  2389.     (set #install_agdocs 0)
  2390.   )
  2391.  
  2392.   ; demo
  2393.   (if (AND #chk_demo (NOT #update))
  2394.     (set #install_demo (askbool (prompt #prompt_install_demo)
  2395.             (help #help_install_demo)
  2396.             (default 0)
  2397.              )
  2398.     )
  2399.     (if (AND #update (IN #parts 3))
  2400.       (set #install_demo 1)
  2401.       (set #install_demo 0)
  2402.     )
  2403.   )
  2404.  
  2405.   ; (P_AskProgLangs)
  2406.   (if (OR (AND (NOT #update) (= @user-level 2)) (AND #update (IN #parts 4)))
  2407.     (
  2408.      (set #prompt #prompt_install_plangs)
  2409.      (set #plangmask (if #update (BITAND #chk_proglang (BITNOT #old_proglang)) #chk_proglang))
  2410.      (set #defaultmask #old_progdirs)
  2411.      (P_AskProgLangs)
  2412.      (set #install_proglang #plangmask)
  2413.     )
  2414.     (set #install_proglang 0)
  2415.   )
  2416.  
  2417.   ; Source
  2418.   (if (AND #chk_source (NOT #update) (= @user-level 2) #install_proglang)
  2419.     (set #install_source (askbool (prompt #prompt_install_source)
  2420.               (help #help_install_source)
  2421.               (default 0)
  2422.           )
  2423.     )
  2424.     (if (AND #update (IN #parts 5))
  2425.       (set #install_source 1)
  2426.       (set #install_source 0)
  2427.     )
  2428.   )
  2429.  
  2430.   (complete 0)
  2431.  
  2432.   ; mcc
  2433.   (if (AND (> #mcc_cpu_counter 0) (NOT #update))
  2434.     (copyfiles (prompt #prompt_copy "\n\n" @app-name #mcc_cpu_file_extension ".mcc")
  2435.           (help @copylib-help)
  2436.           (confirm "expert")
  2437.           (source (tackon (tackon #src-dir "libs/mui") (cat @app-name #mcc_cpu_file_extension ".mcc")))
  2438.           (dest (tackon #dest-dir "libs/mui"))
  2439.           (newname (cat @app-name ".mcc"))
  2440.           (optional "oknodelete" "force")
  2441.     )
  2442.   )
  2443.   (complete 7)
  2444.  
  2445.   ; mcp
  2446.   (if (AND (> #mcp_cpu_counter 0) (OR (NOT #update) (AND #update (IN #parts 0))))
  2447.     (copyfiles (prompt #prompt_copy "\n\n" @app-name #mcp_cpu_file_extension ".mcp")
  2448.           (help @copylib-help)
  2449.           (confirm "expert")
  2450.           (source (tackon (tackon #src-dir "libs/mui") (cat @app-name #mcp_cpu_file_extension ".mcp")))
  2451.           (dest (tackon #dest-dir "libs/mui"))
  2452.           (newname (cat @app-name ".mcp"))
  2453.           (optional "oknodelete" "force")
  2454.     )
  2455.   )
  2456.   (complete 13)
  2457.  
  2458.   ; mcc catalogs
  2459.   (if #install_mcc_catalogs
  2460.     (
  2461.      (set #infos 1)
  2462.      (set #dir "Locale")
  2463.      (P_MkDirInfo)
  2464.      (set #dir "Locale/Catalogs")
  2465.      (P_MkDirInfo)
  2466.      (set #infos 0)
  2467.      (set #langmask #install_mcc_catalogs)
  2468.      (while #langmask
  2469.        (
  2470.    (P_BitToLanguage)
  2471.    (set #dir (tackon "Locale/Catalogs" #lang))
  2472.    (P_MkDirInfo)
  2473.    (set #file (cat @app-name "_mcc.catalog"))
  2474.    (P_CpFile)
  2475.        )
  2476.      )
  2477.     )
  2478.   )
  2479.   (complete 20)
  2480.  
  2481.   ; mcp catalogs
  2482.   (if #install_mcp_catalogs
  2483.     (
  2484.      (set #infos 1)
  2485.      (set #dir "Locale")
  2486.      (P_MkDirInfo)
  2487.      (set #dir "Locale/Catalogs")
  2488.      (P_MkDirInfo)
  2489.      (set #infos 0)
  2490.      (set #langmask #install_mcp_catalogs)
  2491.      (while #langmask
  2492.        (
  2493.    (P_BitToLanguage)
  2494.    (set #dir (cat "Locale/Catalogs/" #lang))
  2495.    (P_MkDirInfo)
  2496.    (set #file (cat @app-name "_mcp.catalog"))
  2497.    (P_CpFile)
  2498.        )
  2499.      )
  2500.     )
  2501.   )
  2502.   (complete 27)
  2503.  
  2504.   ; asciidocs
  2505.   (if #install_asciidocs
  2506.     (
  2507.      (set #infos 1)
  2508.      (set #dir "Docs")
  2509.      (P_MkDirInfo)
  2510.      (set #langmask #install_asciidocs)
  2511.      (while #langmask
  2512.        (
  2513.    (P_BitToLanguage)
  2514.    (set #dir (tackon "Docs" #lang))
  2515.    (P_MkDirInfo)
  2516.    (set #file (cat @app-name "_mcc.doc"))
  2517.    (P_CpFile)
  2518.        )
  2519.      )
  2520.     )
  2521.   )
  2522.  
  2523.   ; agdocs
  2524.   (if #install_agdocs
  2525.     (
  2526.      (P_GetOSVersion)
  2527.      (set #wrapguide (exists "C/WarpGuide"))
  2528.      (set #infos 1)
  2529.      (set #dir "Docs")
  2530.      (P_MkDirInfo)
  2531.      (set #langmask #install_agdocs)
  2532.      (while #langmask
  2533.        (
  2534.    (P_BitToLanguage)
  2535.    (set #dir (tackon "Docs" #lang))
  2536.    (P_MkDirInfo)
  2537.    (set #file (cat @app-name "_mcc.guide"))
  2538.    (if (AND #wrapguide (< #os_ver 39))
  2539.      (run ("stack 50000\nC/WrapGuide %s 65" (cat #dir "/" #file)))
  2540.    )
  2541.    (P_CpFile)
  2542.        )
  2543.      )
  2544.     )
  2545.   )
  2546.   (complete 33)
  2547.  
  2548.   ; demo
  2549.   (if #install_demo
  2550.     (
  2551.      (set #infos 1)
  2552.      (set #dir "Demos")
  2553.      (P_MkDirInfo)
  2554.      (set #file (cat @app-name "-Demo"))
  2555.      (P_CpFile)
  2556.     )
  2557.   )
  2558.   (complete 40)
  2559.  
  2560.   (if #install_proglang
  2561.     (
  2562.      (set #infos 1)
  2563.      (set #dir "Developer")
  2564.      (P_MkDirInfo)
  2565.  
  2566.      ; Autodoc
  2567.      (if (AND #chk_autodoc (OR (NOT #update) (AND #update (NOT #old_autodoc))))
  2568.        (
  2569.    (set #dir "Developer/Autodocs")
  2570.    (P_MkDirInfo)
  2571.    (set #infos 0)
  2572.    (set #file (cat "MCC_" @app-name ".doc"))
  2573.    (P_CpFile)
  2574.        )
  2575.      )
  2576.      (complete 57)
  2577.  
  2578.      ; C
  2579.      (if (IN #install_proglang 0)
  2580.        (
  2581.    (set #infos 1)
  2582.    (set #dir "Developer/C")
  2583.    (P_MkDirInfo)
  2584.    (set #infos 0)
  2585.    (set #dir "Developer/C/Include")
  2586.    (P_MkDirInfo)
  2587.    (set #dir "Developer/C/Include/MUI")
  2588.    (P_MkDirInfo)
  2589.    (set #file (cat @app-name "_mcc.h"))
  2590.    (P_CpFile)
  2591.    (if #chk_c_example
  2592.      (
  2593.       (set #dir "Developer/C/Examples")
  2594.       (P_MkDirInfo)
  2595.       (set #file (cat @app-name "-Demo.c"))
  2596.       (P_CpFile)
  2597.      )
  2598.    )
  2599.        )
  2600.      )
  2601.      (complete 53)
  2602.  
  2603.      ; C++
  2604.      (complete 60)
  2605.  
  2606.      ; Asm
  2607.      (if (IN #install_proglang 2)
  2608.        (
  2609.    (set #infos 1)
  2610.    (set #dir "Developer/Assembler")
  2611.    (P_MkDirInfo)
  2612.    (set #infos 0)
  2613.    (set #dir "Developer/Assembler/Include")
  2614.    (P_MkDirInfo)
  2615.    (set #dir "Developer/Assembler/Include/MUI")
  2616.    (P_MkDirInfo)
  2617.    (set #file (cat @app-name "_mcc.i"))
  2618.    (P_CpFile)
  2619.    (if #chk_asm_example
  2620.      (
  2621.       (set #dir "Developer/Assembler/Examples")
  2622.       (P_MkDirInfo)
  2623.       (set #file (cat @app-name "-Demo.s"))
  2624.       (P_CpFile)
  2625.      )
  2626.    )
  2627.        )
  2628.      )
  2629.      (complete 67)
  2630.  
  2631.      ; Amiga-E
  2632.      (if (IN #install_proglang 3)
  2633.        (
  2634.    (set #infos 1)
  2635.    (set #dir "Developer/Amiga-E")
  2636.    (P_MkDirInfo)
  2637.    (set #infos 0)
  2638.    (set #dir "Developer/Amiga-E/Modules")
  2639.    (P_MkDirInfo)
  2640.    (set #dir "Developer/Amiga-E/Modules/MUI")
  2641.    (P_MkDirInfo)
  2642.    (set #file (cat @app-name "_mcc.e"))
  2643.    (P_CpFile)
  2644.    (if #chk_e_example
  2645.      (
  2646.       (set #dir "Developer/Amiga-E/Examples")
  2647.       (P_MkDirInfo)
  2648.       (set #file (cat @app-name "-Demo.e"))
  2649.       (P_CpFile)
  2650.      )
  2651.    )
  2652.        )
  2653.      )
  2654.      (complete 73)
  2655.  
  2656.      ; Modula-II
  2657.      (if (IN #install_proglang 4)
  2658.        (
  2659.    (set #infos 1)
  2660.    (set #dir "Developer/Modula")
  2661.    (P_MkDirInfo)
  2662.    (set #infos 0)
  2663.    (set #dir "Developer/Modula/txt")
  2664.    (P_MkDirInfo)
  2665.    (set #file (cat "MCC" @app-name ".def"))
  2666.    (P_CpFile)
  2667.    (set #file (cat "MCC" @app-name ".mod"))
  2668.    (P_CpFile)
  2669.    (if #chk_modula_demo
  2670.      (
  2671.       (set #dir "Developer/Modula/Demo")
  2672.       (P_MkDirInfo)
  2673.       (set #file (cat @app-name "Demo.mod"))
  2674.       (P_CpFile)
  2675.      )
  2676.    )
  2677.        )
  2678.      )
  2679.      (complete 80)
  2680.  
  2681.      ; Oberon
  2682.      (if (IN #install_proglang 5)
  2683.        (
  2684.    (set #infos 1)
  2685.    (set #dir "Developer/Oberon")
  2686.    (P_MkDirInfo)
  2687.    (set #infos 0)
  2688.    (set #dir "Developer/Oberon/txt")
  2689.    (P_MkDirInfo)
  2690.    (set #file (cat "MCC" @app-name ".mod"))
  2691.    (P_CpFile)
  2692.    (if #chk_oberon_example
  2693.      (
  2694.       (set #dir "Developer/Oberon/Examples")
  2695.       (P_MkDirInfo)
  2696.       (set #file (cat @app-name "Demo.mod"))
  2697.       (P_CpFile)
  2698.      )
  2699.    )
  2700.        )
  2701.      )
  2702.      (complete 87)
  2703.  
  2704.     )
  2705.   )
  2706.  
  2707.   (if #install_source
  2708.     (
  2709.      (set #infos 1)
  2710.      (set #dir "Developer/Source")
  2711.      (P_MkDirInfo)
  2712.      (set #infos 1)
  2713.      (set #dir (tackon #dir (cat "MCC_" @app-name)))
  2714.      (P_MkDirInfo)
  2715.      (copyfiles (prompt #prompt_copy)
  2716.       (help @copyfiles-help)
  2717.       (source (tackon #src-dir #dir))
  2718.       (dest (tackon #dest-dir #dir))
  2719.       (all)
  2720.       (optional "nofail" "force")
  2721.       (confirm "expert")
  2722.      )
  2723.     )
  2724.   )
  2725.   (complete 93)
  2726.  
  2727.   (P_CustomInstall)
  2728.   (complete 100)
  2729.  )
  2730.  
  2731. ; --- Uninstall ---------------------------------------------------------------
  2732.  
  2733.  (procedure P_Uninstall
  2734.   ; Params:
  2735.   ; #old_mcc_catalogs #old_docs #old_proglang #old_mcc #old_mcp
  2736.   ; #old_catalogs #old_mcp_catalogs #old_asciidocs #old_agdocs #old_demo
  2737.   ; #old_c_h #old_c_example #old_asm_i #old_asm_example #old_e_e #old_e_example
  2738.   ; #old_modula_def #old_modula_mod #old_modula_demo #old_oberon_mod
  2739.   ; #old_oberon_example #old_autodoc #old_source #old_existsmask #dest-dir
  2740.   ;
  2741.   ; Results:
  2742.   ;
  2743.   ; Used Vars:
  2744.   ; #all #prompt #parts #defaultmask #langmask #uninstall_mcc_catalogs
  2745.   ; #uninstall_mcp_catalogs #docmask #uninstall_asciidocs #uninstall_agdocs
  2746.   ; #plangmask #uninstall_proglang #dir #file #existsmask
  2747.  
  2748.   (set #existsmask #old_existsmask)
  2749.   (set #all (askbool (prompt #prompt_uninstall_all)
  2750.            (help #help_uninstall_all)
  2751.            (default 1)
  2752.        )
  2753.   )
  2754.   (if (NOT #all)
  2755.     (
  2756.      (set #prompt #prompt_uninstall_parts)
  2757.      (set #defaultmask %000000)
  2758.      (P_AskParts)
  2759.      (if (IN #parts 1)
  2760.        (
  2761.    (set #prompt #prompt_uninstall_mcc_catalogs)
  2762.    (set #langmask #old_mcc_catalogs)
  2763.    (set #defaultmask %00000000000000000000) ; LANGUAGE
  2764.    (P_AskLanguages)
  2765.    (set #uninstall_mcc_catalogs #langmask)
  2766.    (if (NOT (IN #parts 0))
  2767.      (
  2768.       (set #prompt #prompt_uninstall_mcp_catalogs)
  2769.       (set #langmask #old_mcp_catalogs)
  2770.       (set #defaultmask %00000000000000000000) ; LANGUAGE
  2771.       (P_AskLanguages)
  2772.       (set #uninstall_mcp_catalogs #langmask)
  2773.      )
  2774.    )
  2775.        )
  2776.      )
  2777.      (if (IN #parts 2)
  2778.        (
  2779.    (set #prompt #prompt_uninstall_docs)
  2780.    (set #docmask #old_docs)
  2781.    (set #defaultmask %00)
  2782.    (P_AskDocFormats)
  2783.    (set #uninstall_asciidocs 0)
  2784.    (set #uninstall_agdocs 0)
  2785.  
  2786.    (if (IN #docmask 0) ; ASCII
  2787.      (
  2788.       (set #promp #prompt_uninstall_asciidocs)
  2789.       (set #langmask #old_asciidocs)
  2790.       (set #defaultmask %00000000000000000000) ; LANGUAGE
  2791.       (P_AskLanguages)
  2792.       (set #uninstall_asciidocs #langmask)
  2793.      )
  2794.    )
  2795.    (if (IN #docmask 1) ; AmigGuide
  2796.      (
  2797.       (set #promp #prompt_uninstall_agdocs)
  2798.       (set #langmask #old_agdocs)
  2799.       (set #defaultmask %00000000000000000000) ; LANGUAGE
  2800.       (P_AskLanguages)
  2801.       (set #uninstall_agdocs #langmask)
  2802.      )
  2803.    )
  2804.  
  2805.        )
  2806.      )
  2807.      (if (IN #parts 4)
  2808.        (
  2809.    (set #prompt #prompt_uninstall_plangs)
  2810.    (set #plangmask #old_proglang)
  2811.    (set #defaultmask %000000)
  2812.    (P_AskProgLangs)
  2813.    (set #uninstall_proglang #plangmask)
  2814.        )
  2815.      )
  2816.     )
  2817.   )
  2818.   (complete 0)
  2819.  
  2820.   ; mcc
  2821.   (if (AND #old_mcc #all)
  2822.     (delete (tackon (tackon #dest-dir "libs/mui") (cat @app-name ".mcc")) (optional "force"))
  2823.   )
  2824.   (complete 7)
  2825.  
  2826.   ; mcp -> related catalogs
  2827.   (if (OR #all (IN #parts 0))
  2828.     (
  2829.      (if #old_mcp
  2830.        (delete (tackon (tackon #dest-dir "libs/mui/") (cat @app-name ".mcp")) (optional "force"))
  2831.      )
  2832.      (set #parts (BITOR #parts %00010))
  2833.      (set #uninstall_mcp_catalogs #old_mcp_catalogs)
  2834.     )
  2835.   )
  2836.   (complete 14)
  2837.  
  2838.   ; Catalogs
  2839.   (if (AND #old_catalogs (OR #all (IN #parts 1)))
  2840.     (
  2841.      (if #old_mcc_catalogs
  2842.        (
  2843.    (set #dir (tackon #dest-dir "Locale/Catalogs"))
  2844.    (set #file (cat @app-name "_mcc.catalog"))
  2845.    (set #langmask (if #all #old_mcc_catalogs #uninstall_mcc_catalogs))
  2846.    (P_DeleteLanguages)
  2847.        )
  2848.      )
  2849.      (if #old_mcp_catalogs
  2850.        (
  2851.    (set #dir (tackon #dest-dir "Locale/Catalogs"))
  2852.    (set #file (cat @app-name "_mcp.catalog"))
  2853.    (set #langmask #uninstall_mcp_catalogs)
  2854.    (P_DeleteLanguages)
  2855.        )
  2856.      )
  2857.     )
  2858.   )
  2859.   (complete 21)
  2860.  
  2861.   ; Docs
  2862.   (if (OR #all (IN #parts 2))
  2863.     (
  2864.      ; ASCII
  2865.      (if #old_asciidocs
  2866.        (
  2867.    (set #dir (tackon #dest-dir "Docs"))
  2868.    (set #file (cat @app-name "_mcc.doc"))
  2869.    (set #langmask (if #all #old_asciidocs #uninstall_asciidocs))
  2870.    (P_DeleteLanguages)
  2871.        )
  2872.      )
  2873.  
  2874.      ; AmigaGuide
  2875.      (if #old_agdocs
  2876.        (
  2877.    (set #dir (tackon #dest-dir "Docs"))
  2878.    (set #file (cat @app-name "_mcc.guide"))
  2879.    (set #langmask (if #all #old_agdocs #uninstall_agdocs))
  2880.    (P_DeleteLanguages)
  2881.        )
  2882.      )
  2883.  
  2884.     )
  2885.   )
  2886.   (complete 29)
  2887.  
  2888.   ; Demo
  2889.   (if (AND #old_demo (OR #all (IN #parts 3)))
  2890.     (
  2891.      (set #dir (tackon #dest-dir "Demos"))
  2892.      (delete (tackon #dir (cat @app-name "-Demo")) (optional "force"))
  2893.      (delete (tackon #dir (cat @app-name "-Demo.info")) (optional "force"))
  2894.      (P_DelEmptyDir)
  2895.     )
  2896.   )
  2897.   (complete 36)
  2898.  
  2899.   ; Developer
  2900.   (if (AND #old_proglang (OR #all (IN #parts 4)))
  2901.     (
  2902.  
  2903.      ; C
  2904.      (if (OR #all (IN #uninstall_proglang 0))
  2905.        (
  2906.    (if #old_c_h
  2907.      (
  2908.       (set #dir (tackon #dest-dir "Developer/C/Include/MUI"))
  2909.       (delete (tackon #dir (cat @app-name "_mcc.h")) (optional "force"))
  2910.       (P_DelEmptyDir)
  2911.       (set #dir (pathonly #dir))
  2912.       (P_DelEmptyDir)
  2913.      )
  2914.    )
  2915.    (if #old_c_example
  2916.      (
  2917.       (set #dir (tackon #dest-dir "Developer/C/Examples"))
  2918.       (delete (tackon #dir (cat @app-name "-Demo.c")) (optional "force"))
  2919.       (P_DelEmptyDir)
  2920.      )
  2921.    )
  2922.    (set #dir (tackon #dest-dir "Developer/C"))
  2923.    (P_DelEmptyDir)
  2924.        )
  2925.      )
  2926.      (complete 43)
  2927.  
  2928.      ; C++
  2929. ;     (if (OR #all (IN #uninstall_proglang 1))
  2930. ;     )
  2931.      (complete 50)
  2932.  
  2933.      ; Asm
  2934.      (if (OR #all (IN #uninstall_proglang 2))
  2935.        (
  2936.    (if #old_asm_i
  2937.      (
  2938.       (set #dir (tackon #dest-dir "Developer/Assembler/Include/MUI"))
  2939.       (delete (tackon #dir (cat @app-name "_mcc.i")) (optional "force"))
  2940.       (P_DelEmptyDir)
  2941.       (set #dir (pathonly #dir))
  2942.       (P_DelEmptyDir)
  2943.      )
  2944.    )
  2945.    (if #old_asm_example
  2946.      (
  2947.       (set #dir (tackon #dest-dir "Developer/Assembler/Examples"))
  2948.       (delete (tackon #dir (cat @app-name "-Demo.s")) (optional "force"))
  2949.       (P_DelEmptyDir)
  2950.      )
  2951.    )
  2952.    (set #dir (tackon #dest-dir "Developer/Assembler"))
  2953.    (P_DelEmptyDir)
  2954.        )
  2955.      )
  2956.      (complete 57)
  2957.  
  2958.      ; Amiga-E
  2959.      (if (OR #all (IN #uninstall_proglang 3))
  2960.        (
  2961.    (if #old_e_e
  2962.      (
  2963.       (set #dir (tackon #dest-dir "Developer/Amiga-E/Modules/MUI"))
  2964.       (delete (tackon #dir (cat @app-name "_mcc.e")) (optional "force"))
  2965.       (P_DelEmptyDir)
  2966.       (set #dir (pathonly #dir))
  2967.       (P_DelEmptyDir)
  2968.      )
  2969.    )
  2970.    (if #old_e_example
  2971.      (
  2972.       (set #dir (tackon #dest-dir "Developer/Amiga-E/Examples"))
  2973.       (delete (tackon #dir (cat @app-name "-Demo.e")) (optional "force"))
  2974.       (P_DelEmptyDir)
  2975.      )
  2976.    )
  2977.    (set #dir (tackon #dest-dir "Developer/Amiga-E"))
  2978.    (P_DelEmptyDir)
  2979.        )
  2980.      )
  2981.      (complete 64)
  2982.  
  2983.      ; Modula-II
  2984.      (if (OR #all (IN #uninstall_proglang 4))
  2985.        (
  2986.    (set #dir (tackon #dest-dir "Developer/Modula/txt"))
  2987.    (if #old_modula_def
  2988.      (delete (tackon #dir (cat "MCC" @app-name ".def")) (optional "force"))
  2989.    )
  2990.    (if #old_modula_mod
  2991.      (delete (tackon #dir (cat "MCC" @app-name ".mod")) (optional "force"))
  2992.    )
  2993.    (if (OR #old_modula_def #old_modula_mod)
  2994.      (
  2995.       (P_DelEmptyDir)
  2996.      )
  2997.    )
  2998.    (if #old_modula_demo
  2999.      (
  3000.       (set #dir (tackon #dest-dir "Developer/Modula/Demo"))
  3001.       (delete (tackon #dir (cat @app-name "Demo.mod")) (optional "force"))
  3002.       (P_DelEmptyDir)
  3003.      )
  3004.    )
  3005.    (set #dir (tackon #dest-dir "Developer/Modula"))
  3006.    (P_DelEmptyDir)
  3007.        )
  3008.      )
  3009.      (complete 71)
  3010.  
  3011.      ; Oberon
  3012.      (if (OR #all (IN #uninstall_proglang 5))
  3013.        (
  3014.    (if #old_oberon_mod
  3015.      (
  3016.       (set #dir (tackon #dest-dir "Developer/Oberon/txt"))
  3017.       (delete (tackon #dir (cat "MCC" @app-name ".mod")) (optional "force"))
  3018.       (P_DelEmptyDir)
  3019.      )
  3020.    )
  3021.    (if #old_oberon_example
  3022.      (
  3023.       (set #dir (tackon #dest-dir "Developer/Oberon/Examples"))
  3024.       (delete (tackon #dir (cat @app-name "Demo.mod")) (optional "force"))
  3025.       (P_DelEmptyDir)
  3026.      )
  3027.    )
  3028.    (set #dir (tackon #dest-dir "Developer/Oberon"))
  3029.    (P_DelEmptyDir)
  3030.        )
  3031.      )
  3032.      (complete 79)
  3033.  
  3034.      ; Autodocs
  3035.      (if (AND #old_autodoc (OR #all (NOT (BITXOR #uninstall_proglang #old_proglang))))
  3036.        (
  3037.    (set #dir (tackon #dest-dir "Developer/Autodocs"))
  3038.    (delete (tackon #dir (cat "MCC_" @app-name ".doc")) (optional "force"))
  3039.    (P_DelEmptyDir)
  3040.        )
  3041.      )
  3042.  
  3043.      (set #dir (tackon #dest-dir "Developer"))
  3044.      (P_DelEmptyDir)
  3045.     )
  3046.   )
  3047.   (complete 86)
  3048.  
  3049.   (if (AND #old_source (OR #all (IN #parts 5)))
  3050.     (
  3051.      (set #dir (tackon (tackon #dest-dir "Developer/Source") (cat "MCC_" @app-name)))
  3052.      (P_DelDirRecursive)
  3053.      (set #dir (pathonly #dir))
  3054.      (P_DelEmptyDir)
  3055.     )
  3056.   )
  3057.   (complete 93)
  3058.  
  3059.   (P_CustomUninstall)
  3060.   (complete 100)
  3061.  )
  3062.  
  3063. ; -----------------------------------------------------------------------------
  3064.  
  3065.  ; Check MUI
  3066.  (P_GetMUIVersion)
  3067.  (if (= #mui_ver 0)
  3068.    (abort #abort_nomui)
  3069.  )
  3070.  (set #ver2 #min_mui_version)
  3071.  (set #rev2 0)
  3072.  (P_CompareVersions)
  3073.  (if (= #result -1)
  3074.    (
  3075.     (set #ver #min_mui_version)
  3076.     (set #rev #min_mui_revision)
  3077.     (P_GetMUIVersionStr)
  3078.     (abort (#abort_oldmui #str #mui_str))
  3079.    )
  3080.  )
  3081.  
  3082.  ; Check if there is an already installed version?
  3083.  (if (= (fileonly (pathonly @icon)) "Install")
  3084.    (set #src-dir "/")
  3085.    (set #src-dir "")
  3086.  )
  3087.  (set #dest-dir @default-dest)
  3088.  (set #dir #dest-dir)
  3089.  (P_CheckExists)
  3090.  (P_CustomExists)
  3091.  (set #old_mcc #chk_mcc)
  3092.  (set #old_mcp #chk_mcp)
  3093.  (set #old_demo #chk_demo)
  3094.  (set #old_catalogs #chk_catalogs)
  3095.  (set #old_mcc_catalogs #chk_mcc_catalogs)
  3096.  (set #old_mcp_catalogs #chk_mcp_catalogs)
  3097.  (set #old_docs #chk_docs)
  3098.  (set #old_asciidocs #chk_asciidocs)
  3099.  (set #old_agdocs #chk_agdocs)
  3100.  (set #old_proglang #chk_proglang)
  3101.  (set #old_progdirs #chk_progdirs)
  3102.  (set #old_autodoc #chk_autodoc)
  3103.  (set #old_c_h #chk_c_h)
  3104.  (set #old_c_example #chk_c_example)
  3105.  (set #old_asm_i #chk_asm_i)
  3106.  (set #old_asm_example #chk_asm_example)
  3107.  (set #old_e_e #chk_e_e)
  3108.  (set #old_e_example #chk_e_example)
  3109.  (set #old_modula_def #chk_modula_def)
  3110.  (set #old_modula_mod #chk_modula_mod)
  3111.  (set #old_modula_demo #chk_modula_demo)
  3112.  (set #old_oberon_mod #chk_oberon_mod)
  3113.  (set #old_oberon_example #chk_oberon_example)
  3114.  (set #old_source #chk_source)
  3115.  (set #old_existsmask #chk_existsmask)
  3116.  
  3117.  (set #dir #src-dir)
  3118.  (P_CheckExists)
  3119.  
  3120.  ; Check old version
  3121.  (set #file (tackon (tackon #dest-dir "libs/mui") (cat @app-name ".mcc")))
  3122.  (P_GetVersion)
  3123.  (set #ver2 #ver)
  3124.  (set #rev2 #rev)
  3125.  
  3126.  ; Check archiv
  3127.  (set #file (tackon (tackon #src-dir "libs/mui") (cat @app-name ".mcc")))
  3128.  (P_GetVersion)
  3129.  
  3130.  (P_CompareVersions)
  3131.  (if (= #result -1)
  3132.    (abort (#abort_oldversion #ver2 #rev2 #ver #rev))
  3133.    (if (= #result 0)
  3134.      (if (= #ver 0)
  3135.        (set #update 0)
  3136.        (set #update 1)
  3137.      )
  3138.      (set #update 0)
  3139.    )
  3140.  )
  3141.  
  3142. ; Install over old/Update existing
  3143.  (select (if (OR #old_mcc #old_autodoc)
  3144.       (askchoice (prompt #prompt_install_uninstall)
  3145.             (help #help_askchoice @askchoice-help)
  3146.             (default 0)
  3147.             (choices
  3148.          (cat #prop
  3149.               (if (= #update 0)
  3150.                 (
  3151.             #choice_install
  3152.                 )
  3153.                 (
  3154.             #choice_update
  3155.                 )
  3156.               )
  3157.          )
  3158.          #choice_uninstall
  3159.             )
  3160.       )
  3161.       (
  3162.        (message #prompt_info)
  3163.        0
  3164.       )
  3165.     )
  3166.    ( ; Install
  3167.     (welcome #welcome_install)
  3168.     (P_Install)
  3169.    )
  3170.    ( ; Uninstall
  3171.     (welcome #welcome_uninstall)
  3172.     (P_Uninstall)
  3173.     (exit #exit_uninstall_finished (quiet))
  3174.    )
  3175.  )
  3176.