home *** CD-ROM | disk | FTP | other *** search
/ The AGA Experience 2 / agavol2.iso / software / utilities / wb_tools / vmm / installvmm / dansk next >
Text File  |  1995-12-16  |  14KB  |  413 lines
  1. ; VMM Installer script by Martin Apel
  2. ; Installation script for VMM 3.3
  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 MMU\n\n"
  9.          "        Copyright 1993-95 af Martin Apel\n\n"
  10.          "Novice   installerer alt pånær udviklerfilerne.\n"
  11.          "Advanced installerer alt uden bekræftelse.\n"
  12.          "Expert   installerer alt med bekræftelse af alle\n"
  13.          "         handlinger.\n")
  14.  
  15. (if (= 0 @user-level) ; then
  16.     (set install_level %000111)
  17. ;else
  18.     (set install_level (askoptions (prompt "Hvad ønsker du at installere ?")
  19.                                    (help   @askoptions-help)
  20.                                    (choices "VMM" "Ikoner" "Dokumenter" "Udviklerfiler" "Værktøjer" "Rexx programmer")))
  21. )
  22.  
  23. (set def_help "\n\nDu kan finde mere hjælp i \"VMM.guide\"\n\n")
  24.  
  25. (set my_level @user-level)
  26. (user 2)
  27. (set vmmdest
  28.     ;get destination directory for "VMM"
  29.      (askdir (prompt "Vælg det katalog som du ønsker at installere VMM programfil og værktøjer i.")
  30.              (help   "Dette bør være et katalog som er nemt tilgængeligt enten"
  31.                      "fra Workbench eller CLI/Shell." def_help
  32.                      @askdir-help)
  33.              (default @default-dest)
  34.              (disk)
  35.      )
  36. )
  37. (user my_level)
  38.  
  39. (set copy_vmm   (BITAND %000001 install_level))
  40. (set copy_icons (BITAND %000010 install_level))
  41. (set copy_docs  (BITAND %000100 install_level))
  42. (set copy_dev   (BITAND %001000 install_level))
  43. (set copy_tools (BITAND %010000 install_level))
  44. (set copy_rexx  (BITAND %100000 install_level))
  45.  
  46. ; Copy VMM files
  47.  
  48. (if copy_vmm
  49.   (
  50.     (set @default-dest vmmdest)
  51.     (set vmmtacked (tackon vmmdest "VMM"))
  52.  
  53.     ; ask, if we want to overwrite the old VMM if it exists
  54.     (set overwrite 1)
  55.     (if (exists "L:VMM-Handler")
  56.       (
  57.         (set old_version (getversion "l:VMM-Handler"))
  58.         (set old_ver (/ old_version 65536))
  59.         (set old_rev (- old_version (* old_ver 65536)))
  60.  
  61.         (set new_version (getversion "/l/VMM-Handler_4K"))
  62.         (set new_ver (/ new_version 65536))
  63.         (set new_rev (- new_version (* new_ver 65536)))
  64.  
  65.         (set overwrite (askbool (prompt "\nDu har allerede VMM "
  66.                                          old_ver "." old_rev " installeret"
  67.                                         ".\nØnsker du at overskrive den med VMM "
  68.                                          new_ver "." new_rev " ?\n")
  69.                                 (help def_help @askbool-help)
  70.                                 (default 1)
  71.                                 (choices "Ja" "Nej"))
  72.  
  73.         )
  74.       )
  75.     )
  76.  
  77.     (if overwrite
  78.         (
  79.            ; detect the pagesize (4K or 8K)
  80.            (set pagesize (run "/tools/ShowPageSize"))
  81.  
  82.            (select pagesize
  83.              (abort "Intern fejl i Installer script")
  84.              ((set info_string "En sidestørrelse på 4K er brugbart på dit system")
  85.               (set default_choice 0))
  86.              ((set info_string "En sidestørrelse på 8K er brugbart på dit system")
  87.               (set default_choice 1))
  88.              ((set info_string "Sidestørrelser på enten 4K eller 8K er brugbare på dit system")
  89.               (set default_choice 0))
  90.            )
  91.  
  92.            (set my_choice (askchoice (prompt "\nVælg venligst sidestørrelsen:\n\n"
  93.                                            info_string ".\n")
  94.                                    (help   def_help @askchoice-help)
  95.                                    (choices "4K sidestørrelse" "8K sidestørrelse")
  96.                                    (default default_choice))
  97.            )
  98.  
  99.            (select my_choice
  100.             (set sizestr "4K")
  101.             (set sizestr "8K")
  102.            )
  103.  
  104.            ; copy the new VMM file to the destination directory
  105.            (if copy_icons
  106.               ; then
  107.                 (copyfiles (prompt ("\nKopierer VMM til %s." vmmdest))
  108.                            (help   def_help @copyfiles-help)
  109.                            (optional "oknodelete")
  110.                            (optional "askuser")
  111.                            (source "/")
  112.                            (choices  "VMM")
  113.                            (dest     vmmdest)
  114.                            (infos)
  115.                            (confirm)
  116.                 )
  117.               ; else
  118.                 (copyfiles (prompt ("\nKopierer VMM til %s." vmmdest))
  119.                            (help   def_help @copyfiles-help)
  120.                            (optional "oknodelete")
  121.                            (optional "askuser")
  122.                            (source "/")
  123.                            (choices  "VMM")
  124.                            (dest     vmmdest)
  125.                            (confirm)
  126.                 )
  127.            )
  128.  
  129.            ; copy the catalog for VMM
  130.            (copyfiles (prompt "\nKopierer VMM.catalog til LOCALE:catalogs/dansk.")
  131.                        (help   def_help @copyfiles-help)
  132.                        (optional "oknodelete")
  133.                        (optional "askuser")
  134.                        (source  "/catalogs/dansk/VMM.catalog")
  135.                        (dest    "LOCALE:catalogs/dansk")
  136.                        (confirm)
  137.            )
  138.  
  139.  
  140.  
  141.            ; copy the new VMM-Handler file to l: and rename it as "VMM-Handler"
  142.            (set handler_name (cat "/l/VMM-Handler_" sizestr))
  143.            (copyfiles (prompt "\nKopierer VMM-Handler til l:.")
  144.                       (help   def_help @copyfiles-help)
  145.                       (optional "oknodelete")
  146.                       (optional "askuser")
  147.                       (source  handler_name)
  148.                       (dest    "l:")
  149.                       (newname "VMM-Handler")
  150.                       (confirm)
  151.            )
  152.  
  153.            ; copy the catalog for the VMM-handler
  154.            (copyfiles (prompt "\nKopierer VMM-Handler.catalog til LOCALE:catalogs/dansk.")
  155.                        (help   def_help @copyfiles-help)
  156.                        (optional "oknodelete")
  157.                        (optional "askuser")
  158.                        (source  "/catalogs/dansk/VMM-Handler.catalog")
  159.                        (dest    "LOCALE:catalogs/dansk")
  160.                        (confirm)
  161.            )
  162.         )
  163.      )
  164.  
  165.  
  166.  
  167.     ; ask, if we want to overwrite the old preferences file
  168.     ; default: do overwrite preferences file
  169.     (set overwrite 1)
  170.     (if (exists "envarc:VMM.prefs")
  171.         (if (= 0 (askbool (prompt "\nDu har allerede en præferencefil installeret.\nØnsker du at overskrive den ?\n\n")
  172.                      (help "Hvis du ikke ønsker at overskrive præferencefilen vil den blive konverteret i det næste trin" @askbool-help)
  173.                      (default 0)
  174.                      (choices "Ja" "Nej")))
  175.               (set overwrite 0)
  176.         )
  177.     )
  178.  
  179.     (if overwrite
  180.       (
  181.         ; copy the new preferences file to env: and envarc:
  182.         (copyfiles (prompt ("\nKopierer VMM.prefs til ENV:\n"))
  183.                    (help   def_help @copyfiles-help)
  184.                    (optional "oknodelete")
  185.                    (optional "askuser")
  186.                    (source  "/env/VMM.prefs")
  187.                    (dest    "ENV:")
  188.                    (confirm)
  189.         )
  190.         (copyfiles (prompt ("\nKopierer VMM.prefs til ENVARC:\n"))
  191.                    (help   def_help @copyfiles-help)
  192.                    (optional "oknodelete")
  193.                    (optional "askuser")
  194.                    (source  "/env/VMM.prefs")
  195.                    (dest    "ENVARC:")
  196.                    (confirm)
  197.         )
  198.       )
  199.     ; else
  200.       (if (= 1 (askbool (prompt "Præferencefilformatet er blevet ændret siden V2.1\nØnsker du at få filen konverteret?"
  201.                      (help def_help @askbool-help)
  202.                      (default 1)
  203.                      (choices "Ja" "Nej"))))
  204.         (run "/tools/ConvVMMCfg")
  205.       )
  206.     )
  207.   )
  208. )
  209.  
  210. ; Copy docs
  211.  
  212. (if copy_docs
  213.     (
  214.       ;get destination directory for "VMM.guide"
  215.       (set doc_dir (tackon vmmdest "doc"))
  216.  
  217.       (if (AND (= 0 @user-level) (NOT (exists doc_dir)))
  218.           ; then
  219.           (makedir doc_dir (infos))
  220.       )
  221.  
  222.       (set vmmdocs
  223.            (askdir (prompt "Vælg det katalog hvori du ønsker at installere\ndokumenter og guides.")
  224.                    (help   "Dette bør være det katalog hvori du normalt installerer guides.\n\n"
  225.                            def_help @askdir-help)
  226.                    (default doc_dir)
  227.                    (newpath)
  228.                    (disk)
  229.            )
  230.       )
  231.  
  232.       (if copy_dev
  233.         (if copy_icons
  234.            ; then
  235.            (copyfiles (prompt ("\nKopierer dokumenter..."))
  236.                       (help   def_help @copyfiles-help)
  237.                       (optional "oknodelete")
  238.                       (optional "askuser")
  239.                       (source  "/doc")
  240.                       (choices "VMM.guide" "VMM_Rexx.guide" "VMMTools.guide" "VMM_lib.doc")
  241.                       (dest    vmmdocs)
  242.                       (infos)
  243.                       (confirm)
  244.            )
  245.            ; else
  246.            (copyfiles (prompt ("\nKopierer docs..."))
  247.                       (help   def_help @copyfiles-help)
  248.                       (optional "oknodelete")
  249.                       (optional "askuser")
  250.                       (source  "/doc")
  251.                       (choices "VMM.guide" "VMM_Rexx.guide" "VMMTools.guide" "VMM_lib.doc")
  252.                       (dest    vmmdocs)
  253.                       (confirm)
  254.            )
  255.         )
  256.       ; else
  257.         (if copy_icons
  258.             ; then
  259.               (copyfiles (prompt ("\nKopierer VMM.guide til " vmmdocs "."))
  260.                          (help   def_help @copyfiles-help)
  261.                          (optional "oknodelete")
  262.                          (optional "askuser")
  263.                          (source  "/doc")
  264.                          (choices "VMM.guide" "VMM_Rexx.guide" "VMMTools.guide")
  265.                          (dest    vmmdocs)
  266.                          (infos)
  267.                          (confirm)
  268.               )
  269.             ; else
  270.               (copyfiles (prompt ("\nKopierer VMM.guide til " vmmdocs "."))
  271.                          (help   def_help @copyfiles-help)
  272.                          (optional "oknodelete")
  273.                          (optional "askuser")
  274.                          (source  "/doc")
  275.                          (choices "VMM.guide" "VMM_Rexx.guide" "VMMTools.guide")
  276.                          (dest    vmmdocs)
  277.                          (confirm)
  278.               )
  279.         )
  280.       )
  281.     )
  282. )
  283.  
  284. ; Copy developer files
  285.  
  286. (if copy_dev
  287.     (
  288.       (copylib (prompt ("\nKopierer VMM.library til libs:."))
  289.                (help   def_help @copyfiles-help)
  290.                (optional "oknodelete")
  291.                (optional "askuser")
  292.                (source  "/Developer/libs/VMM.library")
  293.                (dest    "libs:")
  294.                (confirm)
  295.       )
  296.  
  297.       (if (exists ("fd:") (noreq))
  298.           ; then
  299.             (set fd_dir "fd:")
  300.           ; else
  301.             (set fd_dir
  302.                  (askdir (prompt "Vælg katalog til fd fil.")
  303.                          (help   def_help  @askdir-help)
  304.                          (default "SYS:")
  305.                          (disk)
  306.                  )
  307.             )
  308.       )
  309.  
  310.       (if (exists ("include:") (noreq))
  311.           ; then
  312.             (set inc_dir "include:")
  313.           ; else
  314.             (set inc_dir 
  315.                  (askdir (prompt "Vælg katalog til include filer.")
  316.                          (help   def_help  @askdir-help)
  317.                          (default "SYS:")
  318.                          (disk)
  319.                  )
  320.             )
  321.       )
  322.  
  323.       (if (exists ("lib:") (noreq))
  324.           ; then
  325.             (set lib_dir "lib:")
  326.           ; else
  327.             (set lib_dir
  328.                  (askdir (prompt "Vælg kataloger til lib fil.")
  329.                          (help   def_help  @askdir-help)
  330.                          (default "SYS:")
  331.                          (disk)
  332.                  )
  333.             )
  334.       )
  335.  
  336.  
  337.       (copyfiles (prompt ("\nKopierer VMM_lib.fd til " fd_dir "."))
  338.                  (help   def_help @copyfiles-help)
  339.                  (optional "oknodelete")
  340.                  (optional "askuser")
  341.                  (source  "/Developer/fd")
  342.                  (choices "VMM_lib.fd")
  343.                  (dest    fd_dir)
  344.                  (confirm)
  345.       )
  346.  
  347.       (copyfiles (prompt ("\nKopierer VMM_stat.h til " inc_dir "."))
  348.                  (help   def_help @copyfiles-help)
  349.                  (optional "oknodelete")
  350.                  (optional "askuser")
  351.                  (source  "/Developer/include")
  352.                  (choices "VMM_Stat.h")
  353.                  (dest    inc_dir)
  354.                  (confirm)
  355.       )
  356.  
  357.       (copyfiles (prompt ("\nKopierer VMM_lib.lib til " lib_dir "."))
  358.                  (help   def_help @copyfiles-help)
  359.                  (optional "oknodelete")
  360.                  (optional "askuser")
  361.                  (source  "/Developer/lib")
  362.                  (choices "VMM_lib.lib")
  363.                  (dest    lib_dir)
  364.                  (confirm)
  365.       )
  366.     )
  367. )
  368.  
  369. ; Copy tools
  370.  
  371. (if copy_tools
  372.   (
  373.   if copy_icons
  374.     ; then
  375.       (copyfiles (prompt ("\nKopierer værktøjer til " vmmdest "."))
  376.                  (help   def_help @copyfiles-help)
  377.                  (optional "oknodelete")
  378.                  (optional "askuser")
  379.                  (source  "/tools")
  380.                  (choices "VMMStat" "VMMUsage" "VMMUsageCLI")
  381.                  (dest    vmmdest)
  382.                  (infos)
  383.                  (confirm)
  384.       )
  385.     ; else
  386.       (copyfiles (prompt ("\nKopierer værktøjer til " vmmdest "."))
  387.                  (help   def_help @copyfiles-help)
  388.                  (optional "oknodelete")
  389.                  (optional "askuser")
  390.                  (source  "/tools")
  391.                  (choices "VMMStat" "VMMUsage" "VMMUsageCLI")
  392.                  (dest    vmmdest)
  393.                  (confirm)
  394.       )
  395.   )
  396. )
  397.  
  398. ;
  399.  
  400. ; Copy ARexx scripts
  401.  
  402. (if copy_rexx
  403.   (copyfiles (prompt ("\nKopierer ARexx scripts til REXX:"))
  404.              (help   def_help @copyfiles-help)
  405.              (optional "oknodelete")
  406.              (optional "askuser")
  407.              (source  "/rexx")
  408.              (choices "stat_on.vmm" "stat_off.vmm" "show.vmm" "hide.vmm")
  409.              (dest    "REXX:")
  410.              (confirm)
  411.   )
  412. )
  413.