Function: md4-pack-int32

md4-pack-int32 is a byte-compiled function defined in md4.el.gz.

Signature

(md4-pack-int32 INT32)

Documentation

Pack 32 bits integer in a 4 bytes string as little endian.

A 32 bits integer is represented as a pair of two 16 bits integers (cons high low).

Source Code

;; Defined in /usr/src/emacs/lisp/md4.el.gz
(defun md4-pack-int32 (int32)
  "Pack 32 bits integer in a 4 bytes string as little endian.
A 32 bits integer is represented as a pair of two 16 bits
integers (cons high low)."
  (let ((str (make-string 4 0))
	(h (car int32)) (l (cdr int32)))
    (aset str 0 (logand l 255))
    (aset str 1 (ash l -8))
    (aset str 2 (logand h 255))
    (aset str 3 (ash h -8))
    str))