home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 April / PCWorld_2001-04_cd.bin / Software / Vyzkuste / gs / gs650w32.exe / gs6.50 / lib / ps2epsi.cmd < prev    next >
OS/2 REXX Batch file  |  2000-12-05  |  819b  |  32 lines
  1. /* $Id: ps2epsi.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. @echo off
  8. if "%1"=="" goto usage
  9. if "%2"=="" goto usage
  10.  
  11. set infile=%1
  12. set outfile=%2
  13.  
  14. rem Ghostscript uses %outfile% to define the output file
  15. gsos2 -q -dNOPAUSE -sDEVICE=bit -sOutputFile=NUL ps2epsi.ps < %infile%
  16.  
  17. rem We bracket the actual file with a few commands to help encapsulation
  18. echo /InitDictCount countdictstack def gsave save mark newpath > %outfile%
  19.  
  20. rem Append the original onto the preview header
  21. copy %outfile% + %infile%
  22.  
  23. echo countdictstack InitDictCount sub { end } repeat >> %outfile%
  24. echo cleartomark restore grestore >> %outfile%
  25.  
  26. goto end
  27.  
  28. :usage
  29. echo "Usage: ps2epsi <infile.ps> <outfile.epi>"
  30.  
  31. :end
  32.