home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 10 / Fresh_Fish_10_2352.bin / new / util / misc / vmm / installvmm / svenska < prev    next >
Text File  |  1995-05-23  |  14KB  |  411 lines
  1. ; VMM Installer script by Martin Apel
  2. ; Installation script for VMM 3.1
  3.  
  4. (set @app-name "VMM")
  5.  
  6. (welcome "        Välkommen till VMM-installeraren\n\n"
  7.          "Virtuellt minne för Amigor med 68030, 68040 eller 68020+68851\n\n"
  8.          "        Upphovsrätt 1993-95 av Martin Apel\n\n"
  9.          "Nybörjare  installerar allt utom utvecklarfilerna.\n"
  10.          "Avancerad  installerar allt utan konfirmering.\n"
  11.          "Expert     installerar allt med konfirmering av allt.\n")
  12.  
  13. (if (= 0 @user-level) ; then
  14.     (set install_level %000111)
  15. ;else
  16.     (set install_level (askoptions (prompt "Vad vill du installera?")
  17.                                    (help   @askoptions-help)
  18.                                    (choices "VMM" "Symboler" "Dokument" "Utvecklarfiler" "Verktyg" "Rexx-program")))
  19. )
  20.  
  21. (set def_help "\n\nOm du behöver mer hjälp, var god se \"VMM.guide\"\n\n")
  22.  
  23. (set my_level @user-level)
  24. (user 2)
  25. (set vmmdest
  26.     ;get destination directory for "VMM"
  27.      (askdir (prompt "Välj den låda där du vill placera VMM-programmet (och verktygen).")
  28.              (help   "Det här bör vara en låda där du lätt kan komma åt VMM "
  29.                      "via Workbench eller ett skal." def_help
  30.                      @askdir-help)
  31.              (default @default-dest)
  32.              (disk)
  33.      )
  34. )
  35. (user my_level)
  36.  
  37. (set copy_vmm   (BITAND %000001 install_level))
  38. (set copy_icons (BITAND %000010 install_level))
  39. (set copy_docs  (BITAND %000100 install_level))
  40. (set copy_dev   (BITAND %001000 install_level))
  41. (set copy_tools (BITAND %010000 install_level))
  42. (set copy_rexx  (BITAND %100000 install_level))
  43.  
  44. ; Copy VMM files
  45.  
  46. (if copy_vmm
  47.   (
  48.     (set @default-dest vmmdest)
  49.     (set vmmtacked (tackon vmmdest "VMM"))
  50.  
  51.     ; ask, if we want to overwrite the old VMM if it exists
  52.     (set overwrite 1)
  53.     (if (exists "L:VMM-Handler")
  54.       (
  55.         (set old_version (getversion "l:VMM-Handler"))
  56.         (set old_ver (/ old_version 65536))
  57.         (set old_rev (- old_version (* old_ver 65536)))
  58.  
  59.         (set new_version (getversion "/l/VMM-Handler_4K"))
  60.         (set new_ver (/ new_version 65536))
  61.         (set new_rev (- new_version (* new_ver 65536)))
  62.  
  63.         (set overwrite (askbool (prompt "\nDu har redan VMM "
  64.                                          old_ver "." old_rev " installerad"
  65.                                         ".\nVill du skriva över den med VMM "
  66.                                          new_ver "." new_rev " ?\n")
  67.                                 (help def_help @askbool-help)
  68.                                 (default 1)
  69.                                 (choices "Ja" "Nej"))
  70.  
  71.         )
  72.       )
  73.     )
  74.  
  75.     (if overwrite
  76.         (
  77.            ; detect the pagesize (4K or 8K)
  78.            (set pagesize (run "/tools/ShowPageSize"))
  79.  
  80.            (select pagesize
  81.              (abort "Internt fel i installerar-programmet")
  82.              ((set info_string "En sidstorlek på 4K går att använda på ditt system")
  83.               (set default_choice 0))
  84.              ((set info_string "En sidstorlek på 4K går att använda på ditt system")
  85.               (set default_choice 1))
  86.              ((set info_string "Du kan ha antingen 4K eller 8K som sidstorlek på ditt system")
  87.               (set default_choice 0))
  88.            )
  89.  
  90.            (set my_choice (askchoice (prompt "\nVar god välj sidstorlek:\n\n"
  91.                                            info_string ".\n")
  92.                                    (help   def_help @askchoice-help)
  93.                                    (choices "4K" "8K")
  94.                                    (default default_choice))
  95.            )
  96.  
  97.            (select my_choice
  98.             (set sizestr "4K")
  99.             (set sizestr "8K")
  100.            )
  101.  
  102.            ; copy the new VMM file to the destination directory
  103.            (if copy_icons
  104.               ; then
  105.                 (copyfiles (prompt ("\nKopierar VMM till %s." vmmdest))
  106.                            (help   def_help @copyfiles-help)
  107.                            (optional "oknodelete")
  108.                            (optional "askuser")
  109.                            (source "/")
  110.                            (choices  "VMM")
  111.                            (dest     vmmdest)
  112.                            (infos)
  113.                            (confirm)
  114.                 )
  115.               ; else
  116.                 (copyfiles (prompt ("\nKopierar VMM till %s." vmmdest))
  117.                            (help   def_help @copyfiles-help)
  118.                            (optional "oknodelete")
  119.                            (optional "askuser")
  120.                            (source "/")
  121.                            (choices  "VMM")
  122.                            (dest     vmmdest)
  123.                            (confirm)
  124.                 )
  125.            )
  126.  
  127.            ; copy the catalog for VMM
  128.            (copyfiles (prompt "\nKopierar VMM.catalog till Locale:catalogs/svenska.")
  129.                       (help   def_help @copyfiles-help)
  130.                       (optional "oknodelete")
  131.                       (optional "askuser")
  132.                       (source  "/catalogs/svenska/VMM.catalog")
  133.                       (dest    "LOCALE:catalogs/svenska")
  134.                       (confirm)
  135.            )
  136.  
  137.  
  138.  
  139.            ; copy the new VMM-Handler file to l: and rename it as "VMM-Handler"
  140.            (set handler_name (cat "/l/VMM-Handler_" sizestr))
  141.            (copyfiles (prompt "\nKopierar VMM-Handler till L:.")
  142.                       (help   def_help @copyfiles-help)
  143.                       (optional "oknodelete")
  144.                       (optional "askuser")
  145.                       (source  handler_name)
  146.                       (dest    "l:")
  147.                       (newname "VMM-Handler")
  148.                       (confirm)
  149.            )
  150.  
  151.            ; copy the catalog for the VMM-handler
  152.            (copyfiles (prompt "\nKopierar VMM-Handler.catalog till Locale:catalogs/svenska.")
  153.                       (help   def_help @copyfiles-help)
  154.                       (optional "oknodelete")
  155.                       (optional "askuser")
  156.                       (source  "/catalogs/svenska/VMM-Handler.catalog")
  157.                       (dest    "LOCALE:catalogs/svenska")
  158.                       (confirm)
  159.            )
  160.         )
  161.      )
  162.  
  163.  
  164.  
  165.     ; ask, if we want to overwrite the old preferences file
  166.     ; default: do overwrite preferences file
  167.     (set overwrite 1)
  168.     (if (exists "envarc:VMM.prefs")
  169.         (if (= 0 (askbool (prompt "\nDu har redan en inställningsfil installerad.\nVill du skriva över den?\n\n")
  170.                      (help "Om du inte skriver över inställningsfilen så kommer den att konverteras i nästa steg" @askbool-help)
  171.                      (default 0)
  172.                      (choices "Ja" "Nej")))
  173.               (set overwrite 0)
  174.         )
  175.     )
  176.  
  177.     (if overwrite
  178.       (
  179.         ; copy the new preferences file to env: and envarc:
  180.         (copyfiles (prompt ("\nKopierar VMM.prefs till Env:\n"))
  181.                    (help   def_help @copyfiles-help)
  182.                    (optional "oknodelete")
  183.                    (optional "askuser")
  184.                    (source  "/env/VMM.prefs")
  185.                    (dest    "env:")
  186.                    (confirm)
  187.         )
  188.         (copyfiles (prompt ("\nKopierar VMM.prefs till EnvArc:\n"))
  189.                    (help   def_help @copyfiles-help)
  190.                    (optional "oknodelete")
  191.                    (optional "askuser")
  192.                    (source  "/env/VMM.prefs")
  193.                    (dest    "envarc:")
  194.                    (confirm)
  195.         )
  196.       )
  197.     ; else
  198.       (if (= 1 (askbool (prompt "Formatet på inställningsfilen har ändrats sedan V2.1\nVill du konvertera den?"
  199.                      (help def_help @askbool-help)
  200.                      (default 1)
  201.                      (choices "Ja" "Nej"))))
  202.         (run "/tools/ConvVMMCfg")
  203.       )
  204.     )
  205.   )
  206. )
  207.  
  208. ; Copy docs
  209.  
  210. (if copy_docs
  211.     (
  212.       ;get destination directory for "VMM.guide"
  213.       (set doc_dir (tackon vmmdest "doc"))
  214.  
  215.       (if (AND (= 0 @user-level) (NOT (exists doc_dir)))
  216.           ; then
  217.           (makedir doc_dir (infos))
  218.       )
  219.  
  220.       (set vmmdocs
  221.            (askdir (prompt "Välj den låda där du vill placera dokumenten och AmigaGuide-filerna.")
  222.                    (help   "Det här bör vara den låda där du normalt sett placerar dina AmigaGuide-filer.\n\