home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaDemoCD2.iso / ASCII / TEXTE / SCENE / AMIGA / AmigaReport / 2.20 / Install-AReport < prev   
Encoding:
Text File  |  1994-06-22  |  4.0 KB  |  102 lines
  1. ; $VER: 2.15 Amiga Report Installer Script written by David Tiberio
  2. ; email dtiberio@libserv1.ic.sunysb.edu for more information
  3.  
  4.     (set AR_dest (getassign "AR"))
  5.  
  6.     (set FALSE 0)
  7.     (set TRUE 1)
  8.     (set @default-dest "SYS:")
  9.  
  10.  
  11. ; Viewer routines excerpted from the Amiga/Toaster Reference Manual with permission
  12. (procedure Viewer
  13.  
  14.     (if (AND (exists "SYS:Utilities/MultiView") (NOT (exists "T:viewer.s")))
  15.         (
  16.             (tooltype
  17.                 (prompt "MultiView has been detected in your SYS:Utilities/ drawer. "
  18.                         "Amiga Report can be configured to automatically access MultiView. "
  19.                         "The AmigaGuide DataType will have to be available to the system. "
  20.                         "Do you wish to use MultiView to access Amiga Report?")
  21.                 (help "No help available.")
  22.                 (dest "AR220.guide")
  23.                 (setdefaulttool "SYS:Utilities/MultiView")
  24.                 (noposition)
  25.                 (confirm)
  26.                 )
  27.             (if (AND (NOT(exists "DEVS:DataTypes/AmigaGuide")) (NOT(exists "SYS:WBStartup/AmigaGuide")))
  28.                 (message "\nThe AmigaGuide DataType was not found. You will have to place it in "
  29.                          "your WBStartup drawer or your DEVS:DataTypes drawer before MultiView can "
  30.                          "use the Amiga/Toaster Reference Manual.")
  31.                 )
  32.             )
  33.         (
  34.             (if (exists "AmigaGuide")
  35.                 (copylib
  36.                     (source "AmigaGuide")
  37.                     (dest "SYS:Utilities/")
  38.                     (infos)
  39.                     )
  40.                 )
  41.             (if (exists "SYS:Utilities/AmigaGuide")
  42.                 (                                   ;otherwise, use AmigaGuide if detected
  43.                     (tooltype
  44.                         (prompt "AmigaGuide has been detected in your SYS:Utilities/ drawer. "
  45.                                 "Amiga Report can be configured to automatically access AmigaGuide. "
  46.                                 "Do you wish to use AmigaGuide to access Amiga Report?")
  47.                         (help "No help available.")
  48.                         (dest "AR220.guide")
  49.                         (setdefaulttool "SYS:Utilities/AmigaGuide")
  50.                         (noposition)
  51.                         (confirm)
  52.                         )
  53.                     )
  54.                 (if (exists "SYS:Utilities/More")
  55.                     (tooltype
  56.                         (prompt "More has been detected in your SYS:Utilities/ drawer. "
  57.                                 "Amiga Report can be configured to automatically access More. "
  58.                                 "Do you wish to use More to access Amiga Report?")
  59.                         (help "No help available.")
  60.                         (dest "AR220.guide")
  61.                         (setdefaulttool "SYS:Utilities/More")
  62.                         (noposition)
  63.                         (confirm)
  64.                         )
  65.                     )
  66.                 )
  67.             )
  68.         )
  69.     )
  70.  
  71. (procedure Destination
  72.     (message "\nWARNING: Using with XPK may cause problems.\n\n"
  73.             "AmigaGuide may not function properly when accessed via the xloadseg handler. "
  74.             "Similar programs that compress executable files may pose similar problems.\n\n"
  75.             "XPK and XFH are shareware products and are not included with your "
  76.             "normal Workbench. Please disregard if you do not use XPK.\n")
  77.  
  78.     (set AR_dest
  79.         (tackon
  80.         (askdir
  81.         (prompt "In which disk or drawer should Amiga Report be installed? (A drawer named AmigaReport will be created there.)")
  82.         (help @askdir-help)
  83.         (default @default-dest)
  84.         )"AmigaReport")
  85.         )
  86.  
  87.     (set @default-dest AR_dest)
  88.  
  89.     (makedir AR_dest (infos))
  90.     (makeassign "AR" AR_dest)
  91.     )
  92.  
  93.  
  94. (Destination)
  95. (Viewer)
  96. (Library)
  97.  
  98. (copyfiles (source "AR220.guide") (dest AR_dest) (infos))
  99. (copyfiles (source "display.s") (dest AR_dest) (infos))
  100.  
  101. (exit "Amiga Report Install Script\nwritten by\n\nDavid Tiberio")
  102.