home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 19 / AACD19.BIN / AACD / System / GenesisPrefs / GenesisPrefs-Install < prev    next >
Text File  |  2001-02-07  |  11KB  |  313 lines
  1. ;$VER: GenesisPrefs-Install 45.3 (7.2.2001)
  2.  
  3. (effect "center" "radial" $FF0000 $FFFF00)
  4.  
  5. (run "C/GetLocale")
  6. (set #language (getenv "language") )
  7.  
  8. (set #wbversion 0)
  9. (set #wbversion (getversion "libs:version.library"))
  10. (set #wbversion (/ #wbversion 65536) )
  11.  
  12. (complete 0)
  13.  
  14. ;=============================================================================
  15. ; English strings
  16.  
  17. (set #bad-os "\n\nGenesisPrefs with ReAction GUI is only for AmigaOS 3.9!")
  18.  
  19. (set #destdir-not-exists "\n\nThe destination directory you selected does not exist!")
  20.  
  21. (set #genesisinstyes "Yes")
  22. (set #genesisinstno "No")
  23.  
  24. (set #genesisdirchoice
  25. (cat "Select the directory where you want to "
  26.      "install Genesis-Prefs."
  27. ))
  28. (set #genesisdirchoice-help
  29. (cat "Usually this is your Genesis directory, "
  30.      "accessible via the \"AmiTCP:\"-assign."
  31. ))
  32.  
  33. (set #which-language
  34. (cat "\nWhich languages should be installed?"
  35. ))
  36.  
  37. (set #which-language-help
  38. (cat "\nThe Amiga can be operated in many different "
  39.      "languages. Several files must be copied to your "
  40.      "hard drive for each language supported.\n\n"
  41.      "To reduce the amount of space consumed by the "
  42.      "language files, you can select only the "
  43.      "files of specific languages to be copied.\n\n"
  44.      "Check the boxes of the languages you wish "
  45.      "to have available on your system.\n\n"
  46.      @askoptions-help
  47. ))
  48.  
  49. ;=============================================================================
  50. ; German strings
  51.  
  52. (if (= #language "deutsch")
  53.     (
  54.         ;******** Genesis strings ***************
  55.  
  56.         (set #bad-os "\n\nGenesisPrefs mit ReAction-Oberfläche ist nur für AmigaOS 3.9!")
  57.  
  58.         (set #destdir-not-exists "\n\nDas von Ihnen gewählte Zielverzeichnis existiert nicht!")
  59.  
  60.         (set #genesisinstyes "Ja")
  61.         (set #genesisinstno "Nein")
  62.  
  63.         (set #genesisdirchoice
  64.         (cat "Wählen Sie das Verzeichnis, in das Sie Genesis "
  65.              "installieren wollen."
  66.         ))
  67.         (set #genesisdirchoice-help
  68.         (cat "Dies ist üblicherweise das Genesis-Verzeichnis, "
  69.              "das über die \"AmiTCP\"-Zuweisung aufgerufen werden kann."
  70.         ))
  71.  
  72.         (set #which-language
  73.         (cat "\nWelche Sprachen sollen installiert werden?"
  74.         ))
  75.  
  76.         (set #which-language-help
  77.         (cat "\nDer Amiga kann in vielen verschiedenen Sprachen betrieben werden. "
  78.              "Für jede verwendete Sprache müssen mehrere Dateien auf Ihre "
  79.              "Festplatte kopiert werden.\n\n"
  80.              "Um den Platz in Grenzen zu halten, den die Sprachentreiberdateien "
  81.              "einnehmen, können Sie wählen, nur die Treiber für bestimmte "
  82.              "Sprachen zu installieren.\n\n"
  83.              "Klicken Sie einfach die Felder derjenigen Sprachen an, die Sie in "
  84.              "Ihrem System verfügbar haben wollen, so daß diese Sprachen mit "
  85.              "einem Häkchen markiert sind.\n\n"
  86.              @askoptions-help
  87.         ))
  88.     )
  89. )
  90.  
  91. ; #create-lang-dir = Create language directory in tackon (#destination #whichdir)?
  92.  
  93. (procedure P_CopyDirByLang #languages #NumLanguages #whichdir #source #destination #create-lang-dir
  94.   (
  95.     (if (not (exists (tackon #destination #whichdir)))
  96.       (makedir (tackon #destination #whichdir))
  97.     )
  98.  
  99.     (set #i 0)
  100.     (while (< #i #NumLanguages)
  101.       (
  102.         (if (<> 0 (IN #languages #i))
  103.           (
  104.             ;(set #cLanguage (select #i "bosanski" "català" "czech" "dansk" "deutsch" "español" "français" "hrvatski" "italiano" "nederlands" "norsk" "português" "português-brasil" "russian" "slovak" "slovensko" "srpski" "suomi" "svenska" "türkçe"))
  105.             (set #cLanguage (select #i "bosanski" "czech" "dansk" "deutsch" "español" "nederlands" "português-brasil" "russian" "slovensko" "srpski" "suomi" "türkçe"))
  106.  
  107.             (if (exists (tackon (tackon #source #whichdir) #cLanguage))
  108.               (
  109.                 if (= #create-lang-dir true)
  110.                 (
  111.                     (copyfiles
  112.                       (source (tackon (tackon #source #whichdir) #cLanguage))
  113.                       (dest (tackon (tackon #destination #whichdir) #cLanguage) )
  114.                       (all) (optional nofail force)
  115.                     )
  116.                 )
  117.                 (
  118.                     (copyfiles
  119.                       (source (tackon (tackon #source #whichdir) #cLanguage))
  120.                       (dest (tackon #destination #whichdir))
  121.                       (all) (optional nofail force)
  122.                     )
  123.                 )
  124.               )
  125.             )
  126.           )
  127.         )
  128.       )
  129.       (set #i (+ #i 1))
  130.     )
  131.   )
  132. )
  133.  
  134. (procedure ren #oldname #newname
  135.     (
  136.         (if (exists #oldname)
  137.             (
  138.                 (if (= (exists #newname) false)
  139.                     (
  140.                         (rename #oldname #newname)
  141.                     )
  142.                 )
  143.             )
  144.         )
  145.     )
  146. )
  147.  
  148. (if (<> #wbversion 45)
  149.     (
  150.         (message #bad-os)
  151.         (exit (quiet))
  152.     )
  153.     (
  154.         (set @default-dest (askdir (help #genesisdirchoice-help) (prompt #genesisdirchoice) (default "AmiTCP:")))
  155.  
  156.         (complete 20)
  157.  
  158.         ; "bosanski" "català" "czech" "dansk" "deutsch" "español" "français" "hrvatski" "italiano"
  159.         ; "nederlands" "norsk" "português" "português-brasil" "russian" "slovak" "slovensko"
  160.         ; "srpski" "suomi" "svenska" "türkçe"
  161.  
  162.         (set i 0)
  163.         (set #languages 0)
  164.         (while (<> #language "")
  165.           (
  166.             (set #NumLanguages 0) (set l 0)
  167.  
  168.             (if (= #language "türkçe") (set l (+ l 1)) )
  169.             (set l (shiftleft l 1))
  170.             (set #NumLanguages (+ #NumLanguages 1))
  171.  
  172.             ;(if (= #language "svenska") (set l (+ l 1)) )
  173.             ;(set l (shiftleft l 1))
  174.             ;(set #NumLanguages (+ #NumLanguages 1))
  175.  
  176.             (if (= #language "suomi") (set l (+ l 1)) )
  177.             (set l (shiftleft l 1))
  178.             (set #NumLanguages (+ #NumLanguages 1))
  179.  
  180.             (if (= #language "srpski") (set l (+ l 1)) )
  181.             (set l (shiftleft l 1))
  182.             (set #NumLanguages (+ #NumLanguages 1))
  183.  
  184.             (if (= #language "slovensko") (set l (+ l 1)) )
  185.             (set l (shiftleft l 1))
  186.             (set #NumLanguages (+ #NumLanguages 1))
  187.  
  188.             ;(if (= #language "slovak") (set l (+ l 1)) )
  189.             ;(set l (shiftleft l 1))
  190.             ;(set #NumLanguages (+ #NumLanguages 1))
  191.  
  192.             (if (= #language "russian") (set l (+ l 1)) )
  193.             (set l (shiftleft l 1))
  194.             (set #NumLanguages (+ #NumLanguages 1))
  195.  
  196.             (if (= #language "português-brasil") (set l (+ l 1)) )
  197.             (set l (shiftleft l 1))
  198.             (set #NumLanguages (+ #NumLanguages 1))
  199.  
  200.             ;(if (= #language "português") (set l (+ l 1)) )
  201.             ;(set l (shiftleft l 1))
  202.             ;(set #NumLanguages (+ #NumLanguages 1))
  203.  
  204.             ;(if (= #language "norsk") (set l (+ l 1)) )
  205.             ;(set l (shiftleft l 1))
  206.             ;(set #NumLanguages (+ #NumLanguages 1))
  207.  
  208.             (if (= #language "nederlands") (set l (+ l 1)) )
  209.             (set l (shiftleft l 1))
  210.             (set #NumLanguages (+ #NumLanguages 1))
  211.  
  212.             ;(if (= #language "italiano") (set l (+ l 1)) )
  213.             ;(set l (shiftleft l 1))
  214.             ;(set #NumLanguages (+ #NumLanguages 1))
  215.  
  216.             ;(if (= #language "hrvatski") (set l (+ l 1)) )
  217.             ;(set l (shiftleft l 1))
  218.             ;(set #NumLanguages (+ #NumLanguages 1))
  219.  
  220.             ;(if (= #language "français") (set l (+ l 1)) )
  221.             ;(set l (shiftleft l 1))
  222.             ;(set #NumLanguages (+ #NumLanguages 1))
  223.  
  224.             (if (= #language "español") (set l (+ l 1)) )
  225.             (set l (shiftleft l 1))
  226.             (set #NumLanguages (+ #NumLanguages 1))
  227.  
  228.             (if (= #language "deutsch") (set l (+ l 1)) )
  229.             (set l (shiftleft l 1))
  230.             (set #NumLanguages (+ #NumLanguages 1))
  231.  
  232.             (if (= #language "dansk") (set l (+ l 1)) )
  233.             (set l (shiftleft l 1))
  234.             (set #NumLanguages (+ #NumLanguages 1))
  235.  
  236.             (if (= #language "czech") (set l (+ l 1)) )
  237.             (set l (shiftleft l 1))
  238.             (set #NumLanguages (+ #NumLanguages 1))
  239.  
  240.             ;(if (= #language "català") (set l (+ l 1)) )
  241.             ;(set l (shiftleft l 1))
  242.             ;(set #NumLanguages (+ #NumLanguages 1))
  243.  
  244.             (if (= #language "bosanski") (set l (+ l 1)) )
  245.             (set #NumLanguages (+ #NumLanguages 1))
  246.  
  247.             (set #language (getenv ("language.%ld" i)) )
  248.             (set #languages (bitor #languages l) )
  249.  
  250.             (set i (+ i 1))
  251.           )
  252.         )
  253.  
  254.         ;-ask options------------------------------------------------------------------------
  255.  
  256.         (set #languages
  257.           (askoptions
  258.             (help #which-language-help) (prompt #which-language) (default #languages)
  259.             ;(choices "Bosanski" "Català" "Czech" "Dansk" "Deutsch" "Español" "Français" "Hrvatski" "Italiano" "Nederlands" "Norsk" "Português" "Português (Brasil)" "Ðóññêèé (Russian)" "Slovak" "Slovensko" "Srpksi" "Suomi" "Svenska" "Türkçe")
  260.             (choices "Bosanski" "Czech" "Dansk" "Deutsch" "Español" "Nederlands" "Português (Brasil)" "Ðóññêèé (Russian)" "Slovensko" "Srpksi" "Suomi" "Türkçe")
  261.           )
  262.         )
  263.  
  264.         (if (exists @default-dest)
  265.             (
  266.                 (if (exists (tackon @default-dest "GenesisRA"))
  267.                     (
  268.                         (if (exists (tackon @default-dest "Genesis"))
  269.                             (
  270.                                 (ren (tackon @default-dest "Genesis") (tackon @default-dest "GenesisMUI"))
  271.                                 (ren (tackon @default-dest "Genesis.info") (tackon @default-dest "GenesisMUI.info"))
  272.                             )
  273.                         )
  274.                     )
  275.                 )
  276.  
  277.                 (ren (tackon @default-dest "GenesisRA") (tackon @default-dest "Genesis"))
  278.                 (ren (tackon @default-dest "GenesisRA.info") (tackon @default-dest "Genesis.info"))
  279.  
  280.                 (if (exists (tackon @default-dest "GenesisWizardRA"))
  281.                     (
  282.                         (if (exists (tackon @default-dest "GenesisWizard"))
  283.                             (
  284.                                 (ren (tackon @default-dest "GenesisWizard") (tackon @default-dest "GenesisWizardMUI"))
  285.                                 (ren (tackon @default-dest "GenesisWizard.info") (tackon @default-dest "GenesisWizardMUI.info"))
  286.                             )
  287.                         )
  288.                     )
  289.                 )
  290.  
  291.                 (ren (tackon @default-dest "GenesisWizardRA") (tackon @default-dest "GenesisWizard"))
  292.                 (ren (tackon @default-dest "GenesisWizardRA.info") (tackon @default-dest "GenesisWizard.info"))
  293.  
  294.                 (ren (tackon @default-dest "GenesisPrefs") (tackon @default-dest "GenesisPrefsMUI"))
  295.                 (ren (tackon @default-dest "GenesisPrefs.info") (tackon @default-dest "GenesisPrefsMUI.info"))
  296.  
  297.                 (copylib
  298.                     (source "Internet/GenesisPrefs")
  299.                     (dest @default-dest)
  300.                     (infos)
  301.                     (noposition)
  302.                     (optional nofail force)
  303.                 )
  304.  
  305.                 (P_CopyDirByLang #languages #NumLanguages "Catalogs" "Locale" "LOCALE:" true)
  306.             )
  307.             (
  308.                 (message #destdir-not-exists)
  309.             )
  310.         )
  311.     )
  312. )
  313.