Function: antlr-upcase-p

antlr-upcase-p is a byte-compiled function defined in antlr-mode.el.gz.

Signature

(antlr-upcase-p CHAR)

Documentation

Non-nil, if CHAR is an uppercase character (if CHAR was a char).

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/antlr-mode.el.gz
;;  (cl-incf (aref antlr-statistics 2))
;;  (unless (and (eq (current-buffer)
;;		   (caar antlr-slow-context-cache))
;;	       (eq (buffer-modified-tick)
;;		   (cdar antlr-slow-context-cache)))
;;    (cl-incf (aref antlr-statistics 1))
;;    (setq antlr-slow-context-cache nil))
;;  (let* ((orig (point))
;;	 (base (cadr antlr-slow-context-cache))
;;	 (curr (cddr antlr-slow-context-cache))
;;	 (state (cond ((eq orig (car curr)) (cdr curr))
;;		      ((eq orig (car base)) (cdr base))))
;;	 diff diff2)
;;    (unless state
;;      (cl-incf (aref antlr-statistics 3))
;;      (when curr
;;	(if (< (setq diff  (abs (- orig (car curr))))
;;	       (setq diff2 (abs (- orig (car base)))))
;;	    (setq state curr)
;;	  (setq state base
;;		diff  diff2))
;;	(if (or (>= (1+ diff) (point)) (>= diff 3000))
;;	    (setq state nil)))		; start from bod/bob
;;      (if state
;;	  (setq state
;;		(parse-partial-sexp (car state) orig nil nil (cdr state)))
;;	(if (>= orig 3000) (beginning-of-defun) (goto-char (point-min)))
;;	(cl-incf (aref antlr-statistics 4))
;;	(setq cw (list orig (point) base curr))
;;	(setq state (parse-partial-sexp (point) orig)))
;;      (goto-char orig)
;;      (if antlr-slow-context-cache
;;	  (setcdr (cdr antlr-slow-context-cache) (cons orig state))
;;	(setq antlr-slow-context-cache
;;	      (cons (cons (current-buffer) (buffer-modified-tick))
;;		    (cons (cons orig state) (cons orig state))))))
;;    (cond ((nth 3 state) 'string)
;;	  ((nth 4 state) 'comment)	; block-comment? -- we don't care
;;	  (t (car state)))))

;;    (beginning-of-defun)
;;    (let ((state (parse-partial-sexp (point) orig)))
;;      (goto-char orig)
;;      (cond ((nth 3 state) 'string)
;;	    ((nth 4 state) 'comment)	; block-comment? -- we don't care
;;	    (t (car state))))))


;;;===========================================================================
;;;  Miscellaneous functions
;;;===========================================================================

(defun antlr-upcase-p (char)
  "Non-nil, if CHAR is an uppercase character (if CHAR was a char)."
  ;; in XEmacs, upcase only works for ASCII
  (or (and (<= ?A char) (<= char ?Z))
      (and (<= ?\300 char) (<= char ?\337)))) ; ?\327 is no letter