comparison etc/ps-prin1.ps @ 89529:1f7ce29b19bd

(HeaderOrFooterTextLines): Handle multiple strings in a line.

89528:c75e3c6b608a

% lines is-right HeaderOrFooterTextLines
/HeaderOrFooterTextLines{
  /is_right exch def
  HFStart moveto
  { % ---- process the lines
   aload pop
   exch F
   gsave
    dup xcheck{exec}if
    is_right{
     dup stringwidth pop
     PrintHeaderWidth exch sub HFPad HFPad add sub 0 rmoveto
    }if
    HFColor SetColor
    show
   grestore
   0 HFLineHeight neg rmoveto
  }forall
}def

89529:1f7ce29b19bd

% lines is-right HeaderOrFooterTextLines
/HeaderOrFooterTextLines{
  /is_right exch def
  HFStart moveto
  { % ---- process the lines
   dup 0 get F
   gsave
    is_right{
     PrintHeaderWidth HFPad HFPad add sub 0 rmoveto
     dup{
      dup type /nametype eq{
	pop
      }{
        dup xcheck{exec}if
	stringwidth pop neg 0 rmoveto
      }ifelse
     } forall
    }if
    HFColor SetColor
    {
     dup type /nametype eq {
       pop
     }{
       dup xcheck{exec}if
       show
     } ifelse
    } forall
   grestore
   0 HFLineHeight neg rmoveto
  }forall
}def