home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 10 / Fresh_Fish_10_2352.bin / new / util / misc / vmm / installvmm / dansk next >
Text File  |  1995-05-23  |  14KB  |  414 lines
  1. ; VMM Installer script by Martin Apel
  2. ; Installation script for VMM 3.1
  3. ; Danish translation by Michael Berg (mberg@scala.ping.dk, 2:238/24.28)
  4.  
  5. (set @app-name "VMM")
  6.  
  7. (welcome "        Velkommen til VMM installationen\n\n"
  8.          "       Virtuel Hukommelse for Amigaer med\n"
  9.          "          68030, 68040 eller 68020+68851\n\n"
  10.          "        Copyright 1993-95 af Martin Apel\n\n"
  11.          "Novice   installerer alt pånær udviklerfilerne.\n"
  12.          "Advanced installerer alt uden bekræftelse.\n"
  13.          "Expert   installerer alt med bekræftelse af alle\n"
  14.          "         handlinger.\n")
  15.  
  16. (if (= 0 @user-level) ; then
  17.     (set install_level %000111)
  18. ;else
  19.     (set install_level (askoptions (prompt "Hvad ønsker du at installere ?")
  20.                                    (help   @askoptions-help)
  21.                                    (choices "VMM" "Ikoner" "Dokumenter" "Udviklerfiler" "Værktøjer" "Rexx programmer")))
  22. )
  23.  
  24. (set def_help "\n\nDu kan finde mere hjælp i \"VMM.guide\"\n\n")
  25.  
  26. (set my_level @user-level)
  27. (user 2)
  28. (set vmmdest
  29.     ;get destination directory for "VMM"
  30.      (askdir (prompt "Vælg det katalog som du ønsker at installere VMM programfil og værktøjer i.")
  31.              (help   "Dette bør være et katalog som er nemt tilgængeligt enten"
  32.                      "fra Workbench eller CLI/Shell." def_help
  33.                      @askdir-help)
  34.              (default @default-dest)
  35.              (disk)
  36.      )
  37. )
  38. (user my_level)
  39.  
  40. (set copy_vmm   (BITAND %000001 install_level))
  41. (set copy_icons (BITAND %000010 install_level))
  42. (set copy_docs  (BITAND %000100 install_level))
  43. (set copy_dev   (BITAND %001000 install_level))
  44. (set copy_tools (BITAND %010000 install_level))
  45. (set copy_rexx  (BITAND %100000 install_level))
  46.  
  47. ; Copy VMM files
  48.  
  49. (if copy_vmm
  50.   (
  51.     (set @default-dest vmmdest)
  52.     (set vmmtacked (tackon vmmdest "VMM"))
  53.  
  54.     ; ask, if we want to overwrite the old VMM if it exists
  55.     (set overwrite 1)
  56.     (if (exists "L:VMM-Handler")
  57.       (
  58.         (set old_version (getversion "l:VMM-Handler"))
  59.         (set old_ver (/ old_version 65536))
  60.         (set old_rev (- old_version (* old_ver 65536)))
  61.  
  62.         (set new_version (getversion "/l/VMM-Handler_4K"))
  63.         (set new_ver (/ new_version 65536))
  64.         (set new_rev (- new_version (* new_ver 65536)))
  65.  
  66.         (set overwrite (askbool (prompt "\nDu har allerede VMM "
  67.                                          old_ver "." old_rev " installeret"
  68.                                         ".\nØnsker du at overskrive den med VMM "
  69.                                          new_ver "." new_rev " ?\n")
  70.                                 (help def_help @askbool-help)
  71.                                 (default 1)
  72.                                 (choices "Ja" "Nej"))
  73.  
  74.         )
  75.       )
  76.     )
  77.  
  78.     (if overwrite
  79.         (
  80.            ; detect the pagesize (4K or 8K)
  81.            (set pagesize (run "/tools/ShowPageSize"))
  82.  
  83.            (select pagesize
  84.              (abort "Intern fejl i Installer script")
  85.              ((set info_string "En sidestørrelse på 4K er brugbart på dit system")
  86.               (set default_choice 0))
  87.              ((set info_string "En sidestørrelse på 8K er brugbart på dit system")
  88.               (set default_choice 1))
  89.              ((set info_string "Sidestørrelser på enten 4K eller 8K er brugbare på dit system")
  90.               (set default_choice 0))
  91.            )
  92.  
  93.            (set my_choice (askchoice (prompt "\nVælg venligst sidestørrelsen:\n\n"
  94.                                            info_string ".\n")
  95.                                    (help   def_help @askchoice-help)
  96.                                    (choices "4K sidestørrelse" "8K sidestørrelse")
  97.                                    (default default_choice))
  98.            )
  99.  
  100.            (select my_choice
  101.             (set sizestr "4K")
  102.             (set sizestr "8K")
  103.            )
  104.  
  105.            ; copy the new VMM file to the destination directory
  106.            (if copy_icons
  107.               ; then
  108.                 (copyfiles (prompt ("\nKopierer VMM til %s." vmmdest))
  109.                            (help   def_help @copyfiles-help)
  110.                            (optional "oknodelete")
  111.                            (optional "askuser")
  112.                            (source "/")
  113.                            (choices  "VMM")
  114.                            (dest     vmmdest)
  115.                            (infos)
  116.                            (confirm)
  117.                 )
  118.               ; else
  119.                 (copyfiles (prompt ("\nKopierer VMM til %s." vmmdest))
  120.                            (help   def_help @copyfiles-help)
  121.                            (optional "oknodelete")
  122.                            (optional "askuser")
  123.                            (source "/")
  124.                            (choices  "VMM")
  125.                            (dest     vmmdest)
  126.                            (confirm)
  127.                 )
  128.            )
  129.  
  130.            ; copy the catalog for VMM
  131.            (copyfiles (prompt "\nKopierer VMM.catalog til LOCALE:catalogs/dansk.")
  132.                        (help   def_help @copyfiles-help)
  133.                        (optional "oknodelete")
  134.                        (optional "askuser")
  135.                        (source  "/catalogs/dansk/VMM.catalog")
  136.                        (dest    "LOCALE:catalogs/dansk")
  137.                        (confirm)
  138.            )
  139.  
  140.  
  141.  
  142.            ; copy the new VMM-Handler file to l: and rename it as "VMM-Handler"
  143.            (set handler_name (cat "/l/VMM-Handler_" sizestr))
  144.            (copyfiles (prompt "\nKopierer VMM-Handler til l:.")
  145.                       (help   def_help @copyfiles-help)
  146.                       (optional "oknodelete")
  147.                       (optional "askuser")
  148.                       (source  handler_name)
  149.                       (dest    "l:")
  150.                       (newname "VMM-Handler")
  151.                       (confirm)
  152.            )
  153.  
  154.            ; copy the catalog for the VMM-handler
  155.            (copyfiles (prompt "\nKopierer VMM-Handler.catalog til LOCALE:catalogs/dansk.")
  156.                        (help   def_help @copyfiles-help)
  157.                        (optional "oknodelete")
  158.                        (optional "askuser")
  159.                        (source  "/catalogs/dansk/VMM-Handler.catalog")
  160.                        (dest    "LOCALE:catalogs/dansk")
  161.                        (confirm)
  162.            )
  163.         )
  164.      )
  165.  
  166.  
  167.  
  168.     ; ask, if we want to overwrite the old preferences file
  169.     ; default: do overwrite preferences file
  170.     (set overwrite 1)
  171.     (if (exists "envarc:VMM.prefs")
  172.         (if (= 0 (askbool (prompt "\nDu har allerede en præferencefil installeret.\nØnsker du at overskrive den ?\n\n")
  173.                      (help "Hvis du ikke ønsker at overskrive præferencefilen vil den blive konverteret i det næste trin" @askbool-help)
  174.                      (default 0)
  175.                      (choices "Ja" "Nej")))
  176.               (set overwrite 0)
  177.         )
  178.     )
  179.  
  180.     (if overwrite
  181.       (
  182.         ; copy the new preferences file to env: and envarc:
  183.         (copyfiles (prompt ("\nKopierer VMM.prefs til ENV:\n"))
  184.                    (help   def_help @copyfiles-help)
  185.                    (optional "oknodelete")
  186.                    (optional "askuser")
  187.                    (source  "/env/VMM.prefs")
  188.                    (dest    "ENV:")
  189.                    (confirm)
  190.         )
  191.         (copyfiles (prompt ("\nKopierer VMM.prefs til ENVARC:\n"))
  192.                    (help   def_help @copyfiles-help)
  193.                    (optional "oknodelete")
  194.                    (optional "askuser")
  195.                    (source  "/env/VMM.prefs")
  196.                    (dest    "ENVARC:")
  197.                    (confirm)
  198.         )
  199.       )
  200.     ; else
  201.       (if (= 1 (askbool (prompt "Præferencefilformatet er blevet ændret siden V2.1\nØnsker du at få filen konverteret?"
  202.                      (help def_help @askbool-help)
  203.                      (default 1)
  204.                      (choices "Ja" "Nej"))))
  205.         (run "/tools/ConvVMMCfg")
  206.       )
  207.     )
  208.   )
  209. )
  210.  
  211. ; Copy docs
  212.  
  213. (if copy_docs
  214.     (
  215.       ;get destination directory for "VMM.guide"
  216.       (set doc_dir (tackon vmmdest "doc"))
  217.  
  218.       (if (AND (= 0 @user-level) (NOT (exists doc_dir)))
  219.           ; then
  220.           (makedir doc_dir (infos))
  221.       )
  222.  
  223.       (set vmmdocs
  224.            (askdir (p