Function: exif--read-number-be

exif--read-number-be is a byte-compiled function defined in exif.el.gz.

Signature

(exif--read-number-be BYTES)

Documentation

Read BYTES octets from the current buffer as a chunk of big-endian bytes.

Advance point to after the read bytes. This function assumes that the current buffer is unibyte.

Source Code

;; Defined in /usr/src/emacs/lisp/image/exif.el.gz
(defun exif--read-number-be (bytes)
  "Read BYTES octets from the current buffer as a chunk of big-endian bytes.
Advance point to after the read bytes.
This function assumes that the current buffer is unibyte."
  (when (> (+ (point) bytes) (point-max))
    (signal 'exif-error '("Premature end of file")))
  (let ((sum 0))
    (dotimes (_ bytes)
      (setq sum (+ (* sum 256) (following-char)))
      (forward-char 1))
    sum))