Function: ntlm-ascii2unicode

ntlm-ascii2unicode is a byte-compiled function defined in ntlm.el.gz.

Signature

(ntlm-ascii2unicode STR LEN)

Documentation

Convert an ASCII string STR of length LEN into a NT Unicode string.

NT Unicode strings are little-endian utf16.

Source Code

;; Defined in /usr/src/emacs/lisp/net/ntlm.el.gz
(defun ntlm-ascii2unicode (str len)
  "Convert an ASCII string STR of length LEN into a NT Unicode string.
NT Unicode strings are little-endian utf16."
  ;; FIXME: Can't we use encode-coding-string with a `utf-16le' coding system?
  (let ((utf (make-string (* 2 len) 0))
        (i 0)
        val)
    (while (and (< i len)
		(not (zerop (setq val (aref str i)))))
      (aset utf (* 2 i) val)
      (aset utf (1+ (* 2 i)) 0)
      (setq i (1+ i)))
    utf))