pages>objects ( pages -- objects )


Vocabulary
text-to-pdf.private

Inputs
pagesan object


Outputs
objectsan 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 ;