;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(require 'cl-lib)
#@38 Alist of tag values and their names.
(defvar exif-tag-alist '((11 processing-software) (271 make) (272 model) (274 orientation) (282 x-resolution) (283 y-resolution) (296 resolution-unit) (305 software) (306 date-time) (315 artist)) (#$ . 102))
#@114 Alist of Exif orientation codes.
These are mapped onto rotation values and whether the image is
mirrored or not.
(defconst exif--orientation '((1 0 nil) (2 0 t) (3 180 nil) (4 180 t) (5 90 nil) (6 90 t) (7 270 nil) (8 270 t)) (#$ . 354))
(define-error 'exif-error "Invalid Exif data")
#@167 Parse FILE (a JPEG file) and return the Exif data, if any.
The return value is a list of Exif items.

If the data is invalid, an `exif-error' is signaled.

(fn FILE)
(defalias 'exif-parse-file #[257 "\300\301\302\"r\211q\210\303\304\"\216\305\306!\210\307!\210\310 *\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-multibyte nil insert-file-contents-literally exif-parse-buffer] 5 (#$ . 646)])
#@197 Parse BUFFER (which should be a JPEG file) and return the Exif data, if any.
The return value is a list of Exif items.

If the data is invalid, an `exif-error' is signaled.

(fn &optional BUFFER)
(defalias 'exif-parse-buffer #[256 "\211\206p\262
r\211q\210\203C\302\303\304\"r\211q\210\305\306\"\216\307\310!\210prq\210\311ed	$\210)\312\313 \236A\211\2059\314
!\262
\262
*\262
\202S\212\312\313 \236A\211\205P\314
!\262
))\207" [enable-multibyte-characters buffer-file-coding-system generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-multibyte nil encode-coding-region 65505 exif--parse-jpeg exif--parse-exif-chunk] 8 (#$ . 1130)])
#@115 Return the orientation (in degrees) in EXIF.
If the orientation isn't present in the data, return nil.

(fn EXIF)
(defalias 'exif-orientation #[257 "\301\302\303\304\305$\306\"\211\236A@\207" [exif--orientation plist-get cl-find orientation :key #[257 "\300
\301\"\207" [plist-get :tag-name] 4 "\n\n(fn E)"] :value] 7 (#$ . 1851)])
(defalias 'exif--parse-jpeg #[0 "\300\301!\302U\204
\303\304\305\"\210\306\211\211\211\300\301!\262\300\301!\262\307U\2042\310\301Z!BB\262\306\262
\202
\237\207" [exif--read-number-be 2 65496 signal exif-error "Not a valid JPEG file" nil 65498 exif--read-chunk] 8])
#@13 

(fn DATA)
(defalias 'exif--parse-exif-chunk #[257 "\300\301\302\"r\211q\210\303\304\"\216\305\306!\210
c\210eb\210\307\310!\311\312\313\314\315\316\211&\232\204,\317\320\321\"\210e`|\210\307\322!\211\323\267\202A\306\202H\302\202H\317\320\324\325\"\"\326\322\"\327U\204V\317\320\330\"\210\326\331\"\211TdV\203f\317\320\332\"\210\211Tb\210\333!\262
\266\202*\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-multibyte nil exif--read-chunk 6 string 69 120 105 102 0 signal exif-error "Not a valid Exif chunk" 2 #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("MM" 57 "II" 61)) format "Invalid endian-ness %s" exif--read-number 42 "Invalid TIFF header length" 4 "Invalid IFD (directory) offset" exif--parse-directory] 10 (#$ . 2468)])
#@15 

(fn NUMBER)
(defalias 'exif--field-format #[257 "\211\300\267\202\301\302B\207\303\302B\207\304\305B\207\306\307B\207\310\311B\207\312\302B\207" [#s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (1 6 2 10 3 14 4 18 5 22)) byte 1 ascii short 2 long 4 rational 8 unknown] 3 (#$ . 3341)])
#@11 

(fn LE)
(defalias 'exif--parse-directory #[257 "\301\302\"\303\211\211\211\211\211\211S\211\262	\304Y\203\232\301\302\n\"\262\301\302\n\"\262\305!\262\301\306\n\"A_\262\301\306\n\"\262\307\310	\236A@\311\n\312@\313\314
\306V\203r\fT\\dV\203e\315\316\317\"\210\fT
T\\{\202\210@\320=\203\206\321
S#\202\210\f@#\257\nB\262\303\262
\202
\237\266\210\301\306\"\211\304V\203\276\211TdV\203\264\315\316\322\"\210\211Tb\210
\323!\244\207
\207" [exif-tag-alist exif--read-number 2 nil 0 exif--field-format 4 :tag :tag-name :format :format-type :value exif--process-value signal exif-error "Premature end of file" ascii exif--direct-ascii-value "Invalid IFD (directory) next-offset" exif--parse-directory] 23 (#$ . 3673)])
#@115 Make VALUE into a zero-terminated string.
VALUE is an integer representing BYTES characters.

(fn VALUE BYTES LE)
(defalias 'exif--direct-ascii-value #[771 "\300\301\302\"r\211q\210\303\304\"\216\305\306!\210
\2033\307\211W\203/\310\311\312_\"\313\"c\210\211T\262
\202\210\202R\307\211W\203Q\310\311SZ\312_\"\313\"c\210\211T\262
\2024\210\307c\210\314 *\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-multibyte nil 0 logand lsh -8 255 buffer-string] 10 (#$ . 4451)])
#@65 Do type-based post-processing of the value.

(fn VALUE TYPE LE)
(defalias 'exif--process-value #[771 "
\300\267\202/\301GSO\207\302\303\304\"r\211q\210\305\306\"\216\307\310!\210c\210eb\210\311\312\"\311\312\"*B\207\207" [#s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (quote 6 ascii 6 rational 13)) 0 generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-multibyte nil exif--read-number 4] 8 (#$ . 5024)])
#@78 Return BYTES octets from the buffer and advance point that much.

(fn BYTES)
(defalias 'exif--read-chunk #[257 "`
\\dV\203
\300\301\302\"\210``\\{
u\210\207" [signal exif-error "Premature end of file"] 4 (#$ . 5552)])
#@118 Read BYTES octets from the buffer as a chunk of big-endian bytes.
Advance point to after the read bytes.

(fn BYTES)
(defalias 'exif--read-number-be #[257 "`
\\dV\203
\300\301\302\"\210\303\211\211W\203(\304\305_g\\\262\306u\266\211T\262
\202\210\207" [signal exif-error "Premature end of file" 0 nil 256 1] 6 (#$ . 5779)])
#@118 Read BYTES octets from the buffer as a chunk of low-endian bytes.
Advance point to after the read bytes.

(fn BYTES)
(defalias 'exif--read-number-le #[257 "`
\\dV\203
\300\301\302\"\210\303\211\211W\203)g\304\305\"_\\\262\306u\210\211T\262
\202\210\207" [signal exif-error "Premature end of file" 0 expt 256 1] 7 (#$ . 6118)])
#@143 Read BYTES octets from the buffer with endianness determined by LOWER-ENDIAN.
Advance point to after the read bytes.

(fn BYTES LOWER-ENDIAN)
(defalias 'exif--read-number #[514 "\211\203\300!\207\301!\207" [exif--read-number-le exif--read-number-be] 4 (#$ . 6460)])
(provide 'exif)