pages>objects ( pages -- objects )

Vocabulary

text-to-pdf.private

Inputs

pages

an object

Outputs

objects

an object

Definition

USING: assocs kernel make ranges sequences ;

IN: text-to-pdf.private

: pages>objects ( pages -- objects )
    [
        pdf-info , pdf-catalog , pdf-font ,
        dup length pdf-pages , dup length 5 swap 2 range boa zip
        [ pdf-page , pdf-text , ] assoc-each
    ] { } make dup length [1..b] zip [ first2 pdf-object ] map ;