home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 14 / AACD14.ISO / CDTools / MUIRexx / MUIRexx_Install < prev    next >
Text File  |  1997-07-29  |  2KB  |  68 lines
  1. ;$VER: MUIRexx Installer Script © 1997 Russell Leighton
  2.  
  3. (if (exists "muirexx:" (noreq)) 
  4.     (set @default-dest "muirexx:")
  5.     (set @default-dest "Work:")
  6. )
  7. (set #adir 
  8.     (askdir 
  9.         (prompt "Where do you wish to install the MUIRexx demos and documentation?\n(A drawer will NOT be created!!!)")
  10.         (help @askdir-help)
  11.         (default @default-dest)
  12.     )
  13. )
  14.  
  15. (set @default-dest #adir)
  16. (makeassign 'muirexx' @default-dest (safe))
  17.  
  18. (complete 10)
  19. (copyfiles 
  20.     (help "Installing MUIRexx...")
  21.     (prompt "Installing MUIRexx...")
  22.     (confirm)
  23.     (source "MUIRexx")
  24.     (dest "SYS:Utilities")
  25. )
  26. (complete 20)
  27. (copyfiles 
  28.     (help "Installing MUIRexx Documentation...")
  29.     (prompt "Installing MUIRexx Documentation...")
  30.     (source "docs")
  31.     (all)
  32.     (infos)
  33.     (dest "MUIREXX:docs")
  34.     (optional)
  35. )
  36. (copyfiles (source "docs.info") (dest "MUIREXX:"))
  37. (complete 50)
  38. (copyfiles 
  39.     (help "Installing MUIRexx Demos...")
  40.     (prompt "Installing MUIRexx Demos...")
  41.     (source "demos")
  42.     (all)
  43.     (infos)
  44.     (dest "MUIREXX:demos")
  45.     (optional)
  46. )
  47. (copyfiles (source "demos.info") (dest "MUIREXX:"))
  48. (complete 80)
  49.  
  50. (if (exists "sys:Names")
  51.     (textfile
  52.         (prompt "Creating assignment in sys:Names...")
  53.         (help "Since it appears you are using Dave Haynie's 'BindNames' the assignment will be made in 'sys:Names' in a file called 'MUIRexx'")
  54.         (dest "sys:Names/MUIRexx")
  55.         (append "muirexx: " @default-dest)
  56.         (confirm)
  57.     )
  58.     (startup "MUIRexx"
  59.         (prompt "Inserting assignment into s:user-startup...")
  60.         (help @startup-help)
  61.         (command "assign muirexx: " @default-dest)
  62.         (confirm)
  63.     )
  64. )
  65. (complete 100)
  66.  
  67. (exit)
  68.