home *** CD-ROM | disk | FTP | other *** search
/ Amiga Elysian Archive / AmigaElysianArchive.iso / prog / arexx / scripti.lha / 3-DEE / Scripti / InstallScripts < prev    next >
Encoding:
Text File  |  1993-05-21  |  2.2 KB  |  83 lines
  1. /*
  2. ------------------------------------------------------------------------------
  3. This AREXX script will attempt to install all AREXX-Scripti scripts
  4.  
  5. Host address: COMMAND
  6. Written by Jan Van Overbeke, 3-DEE, ©1993.
  7. Read the AREXX-Scripti doc for more info about rights!
  8. ------------------------------------------------------------------------------
  9. */
  10.  
  11. say "This script will <attempt to> copy all AREXX-Scripti's"
  12. say 'to you rexx: directory.'
  13. say ''
  14. say 'Do you wish to continue? [y/n]'
  15. parse pull answ
  16.  
  17. if answ='n' then exit
  18. say ''
  19.  
  20. if ~exists('s:SPAT') then do
  21.     say 'Error!'
  22.     say 'Unable to find SPAT in your s: directory!'
  23.     say 'SPAT can be found on your WorkBenck disks.'
  24.     say 'In the same directory.'
  25.     say 'See Ya.....'
  26.     exit
  27.     end
  28.  
  29. if ~exists('c:COPY') then do
  30.     say 'Error!'
  31.     say 'Unable to find command COPY in your c: directory.'
  32.     say 'COPY can be found on your WorkBench disks.'
  33.     say 'In the same directory.'
  34.     say 'See Ya.....'
  35.     exit
  36.     end
  37.  
  38. /* ---- It should not happen, but if the directorynames in which ---- */
  39. /* ----    the appropriate scripts reside do not fit the list    ---- */
  40. /* ---- you should :                                             ---- */
  41. /* ----               or: change the directorynames              ---- */
  42. /* ----               or: change the names in the list below,    ---- */
  43. /* ----                         fitting the real directorynames. ---- */
  44. /* ---- Thank you for your cooperation!                          ---- */
  45. /* ------------------------------------------------------------------ */
  46.  
  47. call copier('Operation')
  48. call copier('General')
  49. call copier('ScreenModes')
  50. call copier('Renamers')
  51. call copier('ColorCorrection')
  52. call copier('Composition')
  53.  
  54. say 'All done!'
  55. exit
  56.  
  57.  
  58. /* ------------------------------------------------------------------------ */
  59. copier:
  60.  
  61. arg directory
  62. say 'Do you wish to install the "'directory'"-Scripts? [y/n]'
  63. parse pull answer
  64.  
  65. if answer='y' then do
  66.     found='yes'
  67.     if ~exists(directory) then do
  68.         say 'This directory can not be found!'
  69.         found='no'
  70.         say 'Perhaps it has another name!'
  71.         say 'copy failed!!!!!'
  72.         end
  73.     if found='yes' then do
  74.         say 'Copying all 'directory' Scripts to your rexx:'
  75.         address command 'spat copy 'directory'/#?.rexx to rexx:'
  76.         end
  77.     end
  78.  
  79.     else say 'This copy cancelled.'
  80.  
  81. say ''
  82. say ''
  83.