home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 April / PCWorld_2001-04_cd.bin / Software / Vyzkuste / gs / gs650w32.exe / gs6.50 / lib / ps2ps.cmd < prev    next >
OS/2 REXX Batch file  |  2000-12-05  |  694b  |  37 lines

  1. /* $Id: ps2ps.cmd,v 1.1 2000/07/05 16:21:13 lpd Exp $ */
  2. /*
  3.  * This file is maintained by a user: if you have any questions about it,
  4.  * please contact Mark Hale (mark.hale@physics.org).
  5.  */
  6.  
  7. /* "Distill" PostScript. */
  8.  
  9. parse arg params
  10.  
  11. gs='@gsos2'
  12.  
  13. if params='' then call usage
  14.  
  15. options='-dNOPAUSE -dBATCH'
  16.  
  17. /* extract options from command line */
  18. i=1
  19. param=word(params,i)
  20. do while substr(param,1,1)='-'
  21.     options=options param
  22.     i=i+1
  23.     param=word(params,i)
  24. end
  25.  
  26. infile=param
  27. if infile='' then call usage
  28. outfile=word(params,i+1)
  29. if outfile='' then call usage
  30.  
  31. gs '-q -sDEVICE=pswrite -sOutputFile='outfile options infile
  32. exit
  33.  
  34. usage:
  35. say 'Usage: ps2ps ...switches... input.ps output.ps'
  36. exit
  37.