Bug#129461: psptools: lines still dropped and duplicated

[Don <theme@linuxfreemail.com>]

Package: psptools
Version: 1.2.2-6
Severity: normal

Here is the current problem after my patch #129437.

The psplpr is dropping lines and duplicating lines.
I have tried several solutions and have solved the
problem is some cases yet there could be consequences
because of the large variety of possible postscript.
This program should have an experienced perl programmer
who can follow the code to really fix this.

This could be my last report on this subject unless
eventually I learn enough perl before anybody fixes this.

Don
theme@linuxfreemail.com


######################################

this shows a DSC (first line = %!PS) psplpr error
notice the %%BoundingBox is dropped and the %%%Creator is duplicated 

######################################

267c267,288
< %%%BoundingBox: 54 72 558 720
---
> %%BeginSetup
> %%BeginFeature: *OKColorRenderStyle Saturation
>   globaldict /OK@_Control known not
>     {globaldict begin /OK@_Control 1 def end}if
>   globaldict /OK@_Control get 5 ne{
>     /DefaultColorRendering
>     [null /Saturation null null null]
>     globaldict /OK@_Control get get
>     dup null ne{
>       findcolorrendering pop /ColorRendering findresource /ColorRendering
>       defineresource setcolorrendering
>     }{pop pop}ifelse
>   }if
>   globaldict /OK@_Control get 1 eq{
>     globaldict begin
>       /OK@_CRD {currentcolorrendering /CRDName get}stopped
>         {pop pop null}if def
>     end
>   }if
> %%EndFeature
> %%EndSetup
> %%%Creator: Mozilla (NetScape) HTML->PS



##################################

this shows a non DSC (first line = %!) psplpr error
notice the %%BoundingBox is dropped and the showsheet 
from mpage 2up is duplicated.

##################################

1a2,21
> %%BeginFeature: *OKColorRenderStyle Saturation
>   globaldict /OK@_Control known not
>     {globaldict begin /OK@_Control 1 def end}if
>   globaldict /OK@_Control get 5 ne{
>     /DefaultColorRendering
>     [null /Saturation null null null]
>     globaldict /OK@_Control get get
>     dup null ne{
>       findcolorrendering pop /ColorRendering findresource /ColorRendering
>       defineresource setcolorrendering
>     }{pop pop}ifelse
>   }if
>   globaldict /OK@_Control get 1 eq{
>     globaldict begin
>       /OK@_CRD {currentcolorrendering /CRDName get}stopped
>         {pop pop null}if def
>     end
>   }if
> %%EndFeature
> %!
267c287,306
< %%%BoundingBox: 54 72 558 720
---
> %%BeginSetup
> %%BeginFeature: *OKColorRenderStyle Saturation
>   globaldict /OK@_Control known not
>     {globaldict begin /OK@_Control 1 def end}if
>   globaldict /OK@_Control get 5 ne{
>     /DefaultColorRendering
>     [null /Saturation null null null]
>     globaldict /OK@_Control get get
>     dup null ne{
>       findcolorrendering pop /ColorRendering findresource /ColorRendering
>       defineresource setcolorrendering
>     }{pop pop}ifelse
>   }if
>   globaldict /OK@_Control get 1 eq{
>     globaldict begin
>       /OK@_CRD {currentcolorrendering /CRDName get}stopped
>         {pop pop null}if def
>     end
>   }if
> %%EndFeature
274a314,315
> %%EndSetup
> /showsheet { showpage } bind def