home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / arexx / rxcmanager / install < prev    next >
Encoding:
Text File  |  1999-05-25  |  1.6 KB  |  80 lines
  1. ; rx_cmanager_Install
  2.  
  3. (procedure choose
  4.  (set what
  5.   (askoptions
  6.    (prompt "What do you want to install?"
  7.     (help "Choose what you want to install")
  8.     (choices "rxcmanager.library" "rxcmanager.library guide" "examples")
  9.    )
  10.   )
  11.  )
  12. )
  13.  
  14. (procedure selGuideDest
  15.  (set #installGuideDir
  16.   (askdir
  17.    (prompt "Select the directory where you want to "
  18.     "install rxcmanager.library guide")
  19.     (help "This will install rxcmanager.library guide")
  20.    (default "Ram Disk:")
  21.   )
  22.  )
  23. )
  24. (procedure copy-guide
  25.  (selGuideDest)
  26.  (copyfiles
  27.   (source (tackon #source-dir "DOCS/english/"))
  28.   (dest #installGuideDir)
  29.   (optional force)
  30.   (all)
  31.  )
  32. )
  33.  
  34. (procedure selExDest
  35.  (set #installExDir
  36.   (askdir
  37.    (prompt "Select the directory where you want to "
  38.     "install the examples")
  39.     (help "This will install rxcmanager.library examples")
  40.    (default "Ram Disk:")
  41.   )
  42.  )
  43. )
  44. (procedure copy-ex
  45.  (selExDest)
  46.  (copyfiles
  47.   (source (tackon #source-dir "EXAMPLES/"))
  48.   (dest #installExDir)
  49.   (optional force)
  50.   (all)
  51.  )
  52. )
  53.  
  54. (procedure copy-lib
  55.  (copylib
  56.   (prompt "Installing rxcmanager.library to LIBS:" )
  57.   (help "This will copy rxcmanager.library to LIBS:")
  58.   (source (tackon #source-dir "LIBS/rxcmanager.library"))
  59.   (dest @default-dest)
  60.   (confirm)
  61.   (optional "askuser" "force")
  62.  )
  63. )
  64.  
  65. (welcome "Welcome to the rxcmanager.library installation.\n")
  66.  
  67. (set @app-name "rxcmanager.library")
  68. (set @default-dest "LIBS:")
  69. (set #source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon))
  70.  (expandpath @icon))
  71. )
  72.  
  73. (complete 0)
  74. (choose)
  75. (if (= 0 what) (exit))
  76. (if (BITAND what 1) ((copy-lib)(complete 33)))
  77. (if (BITAND what 2) (((copy-guide))(complete 66)))
  78. (if (BITAND what 4) (copy-ex))
  79. (complete 100)
  80.