home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / MAKEREXX.ZIP / makeclen.cmd next >
OS/2 REXX Batch file  |  1992-10-13  |  663b  |  29 lines
  1. /* MAKECLEN */
  2.  
  3. trace off
  4. arg filex '((' options
  5. filex = strip(strip(filex),'B','"')
  6. i = lastpos('\',filex) + 1
  7. if i \= 0 then parse var filex path =(i) filex
  8. i = lastpos('.',filex)
  9. j = i + 1
  10. parse var filex fname =(i) . =(j) ftype
  11. out.file = fname'.CLN'
  12.  
  13. do i = 1 to 1000000
  14.   outline = LINEIN(filex)
  15.   if outline = '' then leave
  16.   if left(outline,4) = '/*.I' |,
  17.      left(outline,4) = '/*.F'
  18.     then iterate
  19.   if left(outline,4) = '/*.C'
  20.      then parse var outline . '.*/ ' outline
  21.   lo.rc = lineout(out.file,outline)
  22.   if lo.rc = 0
  23.      then iterate
  24.   say '16 0001 Problem writting', outfile'. RC='lo.rc'.'
  25.   exit 16
  26. end
  27.  
  28. exit 0
  29.