main
Matthew Butterick 6 years ago
parent dc0189e58f
commit 475c89aab4

@ -90,9 +90,7 @@
(define (end-doc doc)
(for-each page-end ($doc-pages doc))
(define doc-info (make-ref))
(for ([(key val) (in-hash ($doc-info doc))])
(dict-set! doc-info key val))
(define doc-info (make-ref ($doc-info doc)))
(ref-end doc-info)
(for ([font (in-hash-values ($doc-font-families doc))])
@ -107,114 +105,19 @@
(define xref-offset (file-position (current-output-port)))
(write-bytes-out "xref")
(write-bytes-out (format "0 ~a" (add1 (length ($doc-refs doc)))))
(define xref-count (add1 (length ($doc-refs doc))))
(write-bytes-out (format "0 ~a" xref-count))
(write-bytes-out "0000000000 65535 f ")
(for ([ref (in-list (reverse ($doc-refs doc)))])
(write-bytes-out
(string-append (~r ($ref-offset ref) #:min-width 10 #:pad-string "0") " 00000 n ")))
(write-bytes-out "trailer")
(write-bytes-out (convert (mhasheq 'Size (add1 (length ($doc-refs doc)))
(write-bytes-out (convert (mhasheq 'Size xref-count
'Root ($doc-root doc)
'Info doc-info)))
(write-bytes-out "startxref")
(write-bytes-out (numberizer xref-offset))
(write-bytes-out "%%EOF"))
#;(define PDFDocument
(class (annotation-mixin
(image-mixin
(text-mixin
(fonts-mixin
(vector-mixin
(color-mixin (class object%
(super-new)
(field [@pages null])
(define/public (page) (first @pages))
(define/public (add-content data)
(page-write (first @pages) data)))))))))
(set-current-ref-id! 1)
(register-ref-listener (λ (ref) (store-ref ref)))
(super-new)
(init-field [(@options options) (mhasheq)])
(field [@refs null]
[@root (make-ref (mhasheq 'Type 'Catalog
'Pages (make-ref (mhasheq 'Type 'Pages))))]
;; initialize the metadata
[@info (mhasheq 'Producer "PITFALL"
'Creator "PITFALL"
'CreationDate (current-seconds))])
;; initialize mixins
(inherit-field @ctm) ; from vector mixin
(inherit-field @font-families) (inherit font) ; from font mixin
(inherit-field [@x x] [@y y]) ; from text
(inherit transform) ; from vector
(inherit-field @pages) (inherit page) ; from base
;; initialize params
(current-compress-streams? (hash-ref @options 'compress #t))
(current-auto-first-page (hash-ref @options 'autoFirstPage #t))
(when (current-auto-first-page) (add-page))
(when (current-auto-helvetica) (font "Helvetica"))
;; copy options
(for ([(key val) (in-hash (hash-ref @options 'info (hasheq)))])
(hash-set! @info key val))
(define/public (store-ref ref)
(set! @refs (cons ref @refs)))
(define/public (add-page [options-arg @options])
;; create a page object
(define page-parent (dict-ref @root 'Pages))
(set! @pages (cons (make-page page-parent options-arg) @pages))
;; reset x and y coordinates
(set! @x (margin-left ($page-margins (page))))
(set! @y (margin-right ($page-margins (page))))
;; flip PDF coordinate system so that the origin is in
;; the top left rather than the bottom left
(set! @ctm default-ctm-value)
(transform 1 0 0 -1 0 ($page-height (page)))
this)
(define/public (start-doc)
(write-bytes-out (format "%PDF-~a" (current-pdf-version)))
(write-bytes-out "%ÿÿÿÿ"))
(define/public (end-doc)
(for-each page-end @pages)
(define doc-info (make-ref))
(for ([(key val) (in-hash @info)])
(dict-set! doc-info key val))
(ref-end doc-info)
(for ([font (in-hash-values @font-families)])
(send font end))
(define pages-ref (dict-ref @root 'Pages))
(dict-set! pages-ref 'Count (length @pages))
(dict-set! pages-ref 'Kids (map $page-dictionary (reverse @pages)))
(ref-end pages-ref)
(ref-end @root)
(define xref-offset (file-position (current-output-port)))
(write-bytes-out "xref")
(write-bytes-out (format "0 ~a" (add1 (length @refs))))
(write-bytes-out "0000000000 65535 f ")
(for ([ref (in-list @refs)])
(write-bytes-out
(string-append (~r ($ref-offset ref) #:min-width 10 #:pad-string "0") " 00000 n ")))
(write-bytes-out "trailer")
(write-bytes-out (convert (mhasheq 'Size (add1 (length @refs))
'Root @root
'Info doc-info)))
(write-bytes-out "startxref")
(write-bytes-out (numberizer xref-offset))
(write-bytes-out "%%EOF"))))
(module+ test
(define d (make-$doc)))
Loading…
Cancel
Save