Function: parseclj-lex-character

parseclj-lex-character is a byte-compiled function defined in parseclj-lex.el.

Signature

(parseclj-lex-character)

Documentation

Return a lex token representing a character.

Source Code

;; Defined in ~/.emacs.d/elpa/parseclj-20261002.1230/parseclj-lex.el
(defun parseclj-lex-character ()
  "Return a lex token representing a character."
  (let ((pos (point)))
    (forward-char)
    (cond
     ((equal (parseclj-lex-lookahead 3) "tab")
      (forward-char 3)
      (parseclj-lex-token :character (buffer-substring-no-properties pos (point)) pos))

     ((equal (parseclj-lex-lookahead 5) "space")
      (forward-char 5)
      (parseclj-lex-token :character (buffer-substring-no-properties pos (point)) pos))

     ((equal (parseclj-lex-lookahead 6) "return")
      (forward-char 6)
      (parseclj-lex-token :character (buffer-substring-no-properties pos (point)) pos))

     ((equal (parseclj-lex-lookahead 7) "newline")
      (forward-char 7)
      (parseclj-lex-token :character (buffer-substring-no-properties pos (point)) pos))

     ((string-match-p "^u[0-9a-fA-F]\\{4\\}" (parseclj-lex-lookahead 5))
      (forward-char 5)
      (parseclj-lex-token :character (buffer-substring-no-properties pos (point)) pos))

     ((string-match-p "^o[0-8]\\{3\\}" (parseclj-lex-lookahead 4))
      (forward-char 4)
      (parseclj-lex-token :character (buffer-substring-no-properties pos (point)) pos))

     (t
      (forward-char)
      (parseclj-lex-token :character (buffer-substring-no-properties pos (point)) pos)))))