pdf-stream ( str -- str' )

Vocabulary

text-to-pdf.private

Inputs

str

an object

Outputs

str'

an object

Definition

USING: formatting kernel math sequences ;

IN: text-to-pdf.private

: pdf-stream ( str -- str' )
    [ length 1 + "<<\n/Length %d\n>>" sprintf ]
    [ "\nstream\n" "\nendstream" surround ] bi append ;