You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
|
|
#lang racket/base
|
|
|
|
|
(require
|
|
|
|
|
racket/class
|
|
|
|
|
"jpeg.rkt"
|
|
|
|
|
"png.rkt")
|
|
|
|
|
(provide PDFImage-open)
|
|
|
|
|
|
|
|
|
|
(define (PDFImage-open src label)
|
|
|
|
|
(define data (cond
|
|
|
|
|
[(bytes? src) (open-input-bytes src)]
|
|
|
|
|
[(regexp-match #rx"^data:.+;base64,(.*)$" src) (void)] ;; base64 ; todo
|
|
|
|
|
[else (open-input-file src)]))
|
|
|
|
|
(define image-class
|
|
|
|
|
(cond
|
|
|
|
|
[(equal? (peek-bytes 2 0 data) (bytes #xff #xd8)) JPEG]
|
|
|
|
|
[(equal? (peek-bytes 4 0 data) (apply bytes (map char->integer '(#\u0089 #\P #\N #\G)))) PNG]
|
|
|
|
|
[else (raise-argument-error 'PDFImage-open "valid image format" src)]))
|
|
|
|
|
(make-object image-class data label))
|
|
|
|
|
|
