home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR24 / WUZ10A.ZIP / POST-WUZ.CMD < prev    next >
OS/2 REXX Batch file  |  1993-12-08  |  1KB  |  44 lines
  1. /* post processing for WUZ.CMD */
  2. /* (c) Copyright 1993 Scott Maxwell. */
  3.  
  4. FinalCommand=''
  5.  
  6. arg Name haveFresh haveUpdate
  7. call 'Open-Dir' '-c' Name
  8. is4OS2 = Check4OS2()
  9.  
  10. say "Type 'CLR' to remove the files and subdirectory."
  11. if is4OS2 = 1 then do
  12.   say "Hit <Alt-X> or type 'CLR -x' to remove files and close command line."
  13.   '@alias @Alt-x=zclr -x^r'
  14. end
  15. else
  16.   say "Type 'CLR -x' to also close the command line"
  17.  
  18. if haveUpdate \= '' then do
  19.   if is4OS2 = 1 then do
  20.     say "Type ZUPDATE or <Alt-u> to remove deleted files and add new files to archive."
  21.     '@alias @Alt-u=zupdate^r'
  22.   end
  23.   else
  24.     say "Type ZUPDATE to remove deleted files and add new files to the archive."
  25. end
  26.  
  27.  
  28. if haveFresh \= '' then do
  29.   if is4OS2 = 1 then do
  30.     say "Type ZFRESH or <Alt-f> to update existing files in the archive."
  31.     '@alias @Alt-f=zfresh^r'
  32.   end
  33.   else
  34.     say "Type ZFRESH to update existing files in the archive."
  35. end
  36.  
  37. FinalCommand
  38.  
  39. exit
  40.  
  41. Check4OS2: procedure
  42.   '@set is4os2=%_4ver'
  43.   return DATATYPE(VALUE(is4os2,,OS2ENVIRONMENT),'N')
  44.