home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / vmm31.lha / VMM / InstallVMM / Dansk < prev    next >
Encoding:
Text File  |  1995-05-23  |  13.9 KB  |  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 (prompt "Vælg det katalog hvori du ønsker at installere\ndokumenter og guides.")
  225.                    (help   "Dette bør være det katalog hvori du normalt installerer guides.\n\n"
  226.                            def_help @askdir-help)
  227.                    (default doc_dir)
  228.                    (newpath)
  229.                    (disk)
  230.            )
  231.       )
  232.  
  233.       (if copy_dev
  234.         (if copy_icons
  235.            ; then
  236.            (copyfiles (prompt ("\nKopierer dokumenter..."))
  237.                       (help   def_help @copyfiles-help)
  238.                       (optional "oknodelete")
  239.                       (optional "askuser")
  240.                       (source  "/doc")
  241.                       (choices "VMM.guide" "VMM_Rexx.guide" "VMMTools.guide" "VMM_lib.doc")
  242.                       (dest    vmmdocs)
  243.                       (infos)
  244.                       (confirm)
  245.            )
  246.            ; else
  247.            (copyfiles (prompt ("\nKopierer docs..."))
  248.                       (help   def_help @copyfiles-help)
  249.                       (optional "oknodelete")
  250.                       (optional "askuser")
  251.                       (source  "/doc")
  252.                       (choices "VMM.guide" "VMM_Rexx.guide" "VMMTools.guide" "VMM_lib.doc")
  253.                       (dest    vmmdocs)
  254.                       (confirm)
  255.            )
  256.         )
  257.       ; else
  258.         (if copy_icons
  259.             ; then
  260.               (copyfiles (prompt ("\nKopierer VMM.guide til " vmmdocs "."))
  261.                          (help   def_help @copyfiles-help)
  262.                          (optional "oknodelete")
  263.                          (optional "askuser")
  264.                          (source  "/doc")
  265.                          (choices "VMM.guide" "VMM_Rexx.guide" "VMMTools.guide")
  266.                          (dest    vmmdocs)
  267.                          (infos)
  268.                          (confirm)
  269.               )
  270.             ; else
  271.               (copyfiles (prompt ("\nKopierer VMM.guide til " vmmdocs "."))
  272.                          (help   def_help @copyfiles-help)
  273.                          (optional "oknodelete")
  274.                          (optional "askuser")
  275.                          (source  "/doc")
  276.                          (choices "VMM.guide" "VMM_Rexx.guide" "VMMTools.guide")
  277.                          (dest    vmmdocs)
  278.                          (confirm)
  279.               )
  280.         )
  281.       )
  282.     )
  283. )
  284.  
  285. ; Copy developer files
  286.  
  287. (if copy_dev
  288.     (
  289.       (copylib (prompt ("\nKopierer VMM.library til libs:."))
  290.                (help   def_help @copyfiles-help)
  291.                (optional "oknodelete")
  292.                (optional "askuser")
  293.                (source  "/Developer/libs/VMM.library")
  294.                (dest    "libs:")
  295.                (confirm)
  296.       )
  297.  
  298.       (if (exists ("fd:") (noreq))
  299.           ; then
  300.             (set fd_dir "fd:")
  301.           ; else
  302.             (set fd_dir
  303.                  (askdir (prompt "Vælg katalog til fd fil.")
  304.                          (help   def_help  @askdir-help)
  305.                          (default "SYS:")
  306.                          (disk)
  307.                  )
  308.             )
  309.       )
  310.  
  311.       (if (exists ("include:") (noreq))
  312.           ; then
  313.             (set inc_dir "include:")
  314.           ; else
  315.             (set inc_dir 
  316.                  (askdir (prompt "Vælg katalog til include filer.")
  317.                          (help   def_help  @askdir-help)
  318.                          (default "SYS:")
  319.                          (disk)
  320.                  )
  321.             )
  322.       )
  323.  
  324.       (if (exists ("lib:") (noreq))
  325.           ; then
  326.             (set lib_dir "lib:")
  327.           ; else
  328.             (set lib_dir
  329.                  (askdir (prompt "Vælg kataloger til lib fil.")
  330.                          (help   def_help  @askdir-help)
  331.                          (default "SYS:")
  332.                          (disk)
  333.                  )
  334.             )
  335.       )
  336.  
  337.  
  338.       (copyfiles (prompt ("\nKopierer VMM_lib.fd til " fd_dir "."))
  339.                  (help   def_help @copyfiles-help)
  340.                  (optional "oknodelete")
  341.                  (optional "askuser")
  342.                  (source  "/Developer/fd")
  343.                  (choices "VMM_lib.fd")
  344.                  (dest    fd_dir)
  345.                  (confirm)
  346.       )
  347.  
  348.       (copyfiles (prompt ("\nKopierer VMM_stat.h til " inc_dir "."))
  349.                  (help   def_help @copyfiles-help)
  350.                  (optional "oknodelete")
  351.                  (optional "askuser")
  352.                  (source  "/Developer/include")
  353.                  (choices "VMM_Stat.h")
  354.                  (dest    inc_dir)
  355.                  (confirm)
  356.       )
  357.  
  358.       (copyfiles (prompt ("\nKopierer VMM_lib.lib til " lib_dir "."))
  359.                  (help   def_help @copyfiles-help)
  360.                  (optional "oknodelete")
  361.                  (optional "askuser")
  362.                  (source  "/Developer/lib")
  363.                  (choices "VMM_lib.lib")
  364.                  (dest    lib_dir)
  365.                  (confirm)
  366.       )
  367.     )
  368. )
  369.  
  370. ; Copy tools
  371.  
  372. (if copy_tools
  373.   (
  374.   if copy_icons
  375.     ; then
  376.       (copyfiles (prompt ("\nKopierer værktøjer til " vmmdest "."))
  377.                  (help   def_help @copyfiles-help)
  378.                  (optional "oknodelete")
  379.                  (optional "askuser")
  380.                  (source  "/tools")
  381.                  (choices "VMMStat" "VMMUsage" "VMMUsageCLI")
  382.                  (dest    vmmdest)
  383.                  (infos)
  384.                  (confirm)
  385.       )
  386.     ; else
  387.       (copyfiles (prompt ("\nKopierer værktøjer til " vmmdest "."))
  388.                  (help   def_help @copyfiles-help)
  389.                  (optional "oknodelete")
  390.                  (optional "askuser")
  391.                  (source  "/tools")
  392.                  (choices "VMMStat" "VMMUsage" "VMMUsageCLI")
  393.                  (dest    vmmdest)
  394.                  (confirm)
  395.       )
  396.   )
  397. )
  398.  
  399. ;
  400.  
  401. ; Copy ARexx scripts
  402.  
  403. (if copy_rexx
  404.   (copyfiles (prompt ("\nKopierer ARexx scripts til REXX:"))
  405.              (help   def_help @copyfiles-help)
  406.              (optional "oknodelete")
  407.              (optional "askuser")
  408.              (source  "/rexx")
  409.              (choices "stat_on.vmm" "stat_off.vmm" "show.vmm" "hide.vmm")
  410.              (dest    "REXX:")
  411.              (confirm)
  412.   )
  413. )
  414.