home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / fed0217s.zip / out.cmd < prev   
OS/2 REXX Batch file  |  1999-12-16  |  816b  |  41 lines
  1. /*
  2. ** Module   :OUT.CMD
  3. ** Abstract :
  4. **
  5. ** Copyright (C) Sergey I. Yevtushenko
  6. **
  7. ** Log: Sat  25/07/1998 Created
  8. **
  9. */
  10. '@echo off'
  11. 'lxlite .\obj\*.exe'
  12.  
  13. fin='.\include\version.h'
  14. arcname=''
  15.  
  16. d0='0'
  17. d1='0'
  18. d2='0'
  19.  
  20. do while lines(fin) > 0
  21.     parse value linein(fin) with def varname varvalue rest
  22.     if strip(def) = '#define' & strip(varvalue)<>''
  23.     then do
  24.         varvalue=strip(varvalue)
  25.         parse value varname with prefix'_'suffix rest
  26.         if suffix='MAJ'
  27.             then d0=varvalue;
  28.         if suffix='MID'
  29.             then d1=varvalue;
  30.         if suffix='MIN'
  31.             then d2=varvalue;
  32.     end
  33. end
  34. call stream fin, 'c', 'close'
  35.  
  36. arcname='fed'||d0||d1||d2's.zip'
  37.  
  38. 'noea * /R'
  39. 'zip -r 'arcname' * -x *.obj -x *.rar -x *.zip -x *.lib -x *.bak -x *.@@@'
  40.  
  41.