/* cleanppd.cmd - clean out lines from Gutenprint PPD files that cause problems when importing into OS/2's pscript.drv */
/* Paul Smedley (paul@smedley.id.au) 19th June, 2008 */
/* Improved by Pete Brown sometime later */ 
PARSE ARG in_ppd
out_ppd = 'temp.ppd'
say in_ppd
DO WHILE Lines(in_ppd) >< 0
  line = LineIn(in_ppd)
  SELECT
    When Left(line,11) = '*StpDefault' THEN NOP
    When Left(line,7) = '*StpStp' THEN NOP
    When Left(line,18) = '*StpResolutionMap:' THEN NOP
  OTHERWISE
        CALL Lineout out_ppd, line
  END
END