1*223a736eSDavid du Colombier#!/bin/rc 2*223a736eSDavid du Colombier 3*223a736eSDavid du Colombierif(! ~ $#* 1){ 4*223a736eSDavid du Colombier echo usage: cleanps infile >[1=2] 5*223a736eSDavid du Colombier exit usage 6*223a736eSDavid du Colombier} 7*223a736eSDavid du Colombier 8*223a736eSDavid du Colombier{ 9*223a736eSDavid du Colombierecho %!PS-Adobe-2.0 10*223a736eSDavid du Colombiercat /sys/doc/preamble 11*223a736eSDavid du Colombiergrep -v '^%%DocumentFonts' $1 12*223a736eSDavid du Colombier} > cleanps.tmp 13*223a736eSDavid du Colombiermv cleanps.tmp $1 14