home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / uudbz003.zip / MakeDiffs.cmd < prev    next >
OS/2 REXX Batch file  |  1997-08-19  |  1KB  |  52 lines
  1. /* Rexx */
  2. origSource = "e:\uupc1.12s\source"
  3. rc = SysFileTree("lib\lib.diff", file)
  4. if file.0 \= 0 then
  5. do
  6.     rc = SysFileDelete("lib\lib.diff")
  7.     if rc \= 0 then
  8.     do
  9.         say "Error removing lib\lib.diff"
  10.         exit 1
  11.     end
  12. end
  13. rc = SysFileTree("news\news.diff", file)
  14. if file.0 \= 0 then
  15. do
  16.     rc = SysFileDelete("news\news.diff")
  17.     if rc \= 0 then
  18.     do
  19.         say "Error removing news\news.diff"
  20.         exit 1
  21.     end
  22. end
  23.  
  24. 'cd lib'
  25. rc = SysFileTree("*.h", file, "FO")
  26. do i = 1 to file.0
  27.     lastSlash = LastPos("\", file.i)
  28.     curFile = Substr(file.i, lastSlash+1)
  29.     'diff -u' origSource||'\lib\'||curFile curFile '>>lib.diff'
  30. end /* do */
  31. rc = SysFileTree("*.c", file, "FO")
  32. do i = 1 to file.0
  33.     lastSlash = LastPos("\", file.i)
  34.     curFile = Substr(file.i, lastSlash+1)
  35.     'diff -u' origSource'\lib\'||curFile curFile '>>lib.diff'
  36. end /* do */
  37. 'cd ..\news'
  38. rc = SysFileTree("*.h", file, "FO")
  39. do i = 1 to file.0
  40.     lastSlash = LastPos("\", file.i)
  41.     curFile = Substr(file.i, lastSlash+1)
  42.     'diff -u' origSource||'\news\'||curFile curFile '>>news.diff'
  43. end /* do */
  44. rc = SysFileTree("*.c", file, "FO")
  45. do i = 1 to file.0
  46.     lastSlash = LastPos("\", file.i)
  47.     curFile = Substr(file.i, lastSlash+1)
  48.     'diff -u' origSource||'\news\'||curFile curFile '>>news.diff'
  49. end /* do */
  50. 'cd ..'
  51.  
  52.