home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Misc / MONTAGEPOSTSCEIPTMODULE.DMS / in.adf / Install-PSModule < prev    next >
Encoding:
Text File  |  1994-02-08  |  4.6 KB  |  164 lines
  1. ; Montage Postscript Module Installer Utility
  2. ;
  3. ; For Montage Postscript Module from InnoVision Technology
  4. ;
  5. ; (Last updated: Vincent Law 1/31/94)
  6.  
  7. (set @user-level 2)
  8.  
  9. (
  10.    ; Which OS are we under?
  11.    (set osver (/ (getversion) 65536))
  12.  
  13.    ; Ask where to install it...
  14.    (run "check_where_montage_is")
  15.    (if (exists "ram:ENV/MONTAGE_DIR")
  16.       (
  17.          (set MT_exist 1)
  18.          (set Montage_dir (getassign "MONTAGE"))
  19.       )
  20.       (set MT_exist 0)
  21.    )
  22.    (if (exists "ram:ENV/MONTAGE24_DIR")
  23.       (
  24.          (set MT24_exist 1)
  25.          (set Montage24_dir (getassign "MONTAGE24"))
  26.       )
  27.       (set MT24_exist 0)
  28.    )
  29.  
  30.    (if (= MT_exist 1)
  31.       (
  32.          (if (= MT24_exist 1)
  33.             (message
  34.                "Montage installation has been found on\n" Montage_dir "\n"
  35.                "Montage24 installation has been found on\n" Montage24_dir "\n"
  36.                "\nSelect PROCEED to begin Installation of\n"
  37.                "Montage Postscript Module.\n"
  38.                (help "\n\n   Click PROCEED to install Postscript Module onto\n"
  39.                      "   " Montage_dir " and " Montage24_dir "\n\n"
  40.                      "   Click CANCEL to exit without installing.\n"
  41.                )
  42.             )
  43.             (message
  44.                "Montage installation has been found on\n" Montage_dir "\n"
  45.                "\nSelect PROCEED to begin Installation of\n"
  46.                "Montage Postscript Module.\n"
  47.                (help "\n\n   Click PROCEED to install Postscript Module onto\n"
  48.                      "   " Montage_dir "\n\n"
  49.                      "   Click CANCEL to exit without installing.\n"
  50.                )
  51.             )
  52.          )
  53.       )
  54.       (message
  55.          "Montage24 installation has been found on\n" Montage24_dir "\n"
  56.          "\nSelect PROCEED to begin Installation of\n"
  57.          "Montage Postscript Module.\n"
  58.          (help "\n\n   Click PROCEED to install Postscript Module onto\n"
  59.                "   " Montage24_dir "\n\n"
  60.                "   Click CANCEL to exit without installing.\n"
  61.          )
  62.       )
  63.    )
  64.  
  65.    ;----------------------------------------------------------
  66.    ; Prompt for Disk 1.
  67.  
  68.    (if (= (exists "PSModule:") 2)
  69.       (askdisk
  70.          (prompt "Please insert Montage Postscript Module Disk:")
  71.          (help "")
  72.          (dest "PSModule")
  73.       )
  74.    )
  75.  
  76.    (working "Copying files from Montage Postscript Disk...")
  77.  
  78.    (if (= MT_exist 1)
  79.       (
  80.          (copyfiles
  81.             (prompt "")
  82.             (help @copyfiles-help)
  83.             (source "PSModule:PS_ARP")
  84.             (dest "MONTAGE:/")
  85.          )
  86.          (copyfiles
  87.             (prompt "")
  88.             (help @copyfiles-help)
  89.             (source "PSModule:PSModule")
  90.             (dest "MONTAGE:/")
  91.          )
  92.          (copyfiles
  93.             (prompt "")
  94.             (help @copyfiles-help)
  95.             (source "PSModule:PSModule.info")
  96.             (dest "MONTAGE:/")
  97.          )
  98.          (copyfiles
  99.             (prompt "")
  100.             (help @copyfiles-help)
  101.             (source "PSModule:init.ps")
  102.             (dest "MONTAGE:/")
  103.          )
  104.          (if (= (exists "MONTAGE:/ToasterFonts/MTPOSTSCRIPT") 0)
  105.             (makedir "MONTAGE:/ToasterFonts/MTPOSTSCRIPT")
  106.          )
  107.          (copyfiles
  108.             (prompt "")
  109.             (help @copyfiles-help)
  110.             (source "PSModule:MTPOSTSCRIPT")
  111.             (dest "MONTAGE:/ToasterFonts/MTPOSTSCRIPT")
  112.             (all)
  113.          )
  114.       )
  115.    )
  116.    (if (= MT24_exist 1)
  117.       (
  118.          (copyfiles
  119.             (prompt "")
  120.             (help @copyfiles-help)
  121.             (source "PSModule:PS_ARP")
  122.             (dest "MONTAGE24:")
  123.          )
  124.          (copyfiles
  125.             (prompt "")
  126.             (help @copyfiles-help)
  127.             (source "PSModule:PSModule")
  128.             (dest "MONTAGE24:")
  129.          )
  130.          (copyfiles
  131.             (prompt "")
  132.             (help @copyfiles-help)
  133.             (source "PSModule:PSModule.info")
  134.             (dest "MONTAGE24:")
  135.          )
  136.          (copyfiles
  137.             (prompt "")
  138.             (help @copyfiles-help)
  139.             (source "PSModule:init.ps")
  140.             (dest "MONTAGE24:")
  141.          )
  142.          (if (= (exists "MONTAGE24:MTPOSTSCRIPT") 0)
  143.             (makedir "MONTAGE24:MTPOSTSCRIPT")
  144.          )
  145.          (copyfiles
  146.             (prompt "")
  147.             (help @copyfiles-help)
  148.             (source "PSModule:MTPOSTSCRIPT")
  149.             (dest "MONTAGE24:MTPOSTSCRIPT")
  150.             (all)
  151.          )
  152.       )
  153.    )
  154.  
  155.    (run "COPY_PS_LIBRARY")
  156.  
  157.    (message
  158.       "Remember to remove the Montage Postscript  \n"
  159.       "Module disk from the floppy drive after the\n"
  160.       "installation and store it in a safe place. \n"
  161.       (help "\n\n   Click PROCEED to continue.\n   Click CANCEL to abort.\n")
  162.    )
  163. )
  164.