Variable: semantic-lex-cpp-define

semantic-lex-cpp-define is a variable defined in c.el.gz.

Value

((looking-at "^\\s-*#\\s-*define\\s-+\\(\\(\\sw\\|\\s_\\)+\\)")
 (let
     ((start (match-beginning 1)) (end (match-end 1))
      (startpnt semantic-lex-end-point)
      (val
       (save-match-data
	 (goto-char (match-end 0)) (skip-chars-forward "        ")
	 (if (eolp) nil
	   (let*
	       ((beginning-of-define (match-end 1))
		(with-args
		 (save-excursion
		   (goto-char (match-end 0)) (looking-at "(")))
		(semantic-lex-spp-replacements-enabled nil)
		(semantic-lex-analyzer #'semantic-cpp-lexer)
		(raw-stream
		 (semantic-lex-spp-stream-for-macro
		  (save-excursion
		    (c-end-of-macro)
		    (if (looking-back "/\\*.*" beginning-of-define)
			(progn
			  (goto-char (match-beginning 0)) (point))
		      (point))))))
	     (if with-args
		 (semantic-lex-spp-first-token-arg-list
		  (car raw-stream)))
	     (setq semantic-lex-end-point (point))
	     (semantic-lex-spp-merge-streams raw-stream)))))
      (endpnt semantic-lex-end-point))
   (semantic-lex-spp-symbol-set
    (buffer-substring-no-properties start end) val)
   (semantic-lex-push-token
    (semantic-lex-token 'spp-macro-def start end))
   (when (and (/= startpnt endpnt) (/= endpnt semantic-lex-end-point))
     (setq semantic-lex-end-point endpnt))))

Documentation

A #define of a symbol with some value.

Record the symbol in the semantic preprocessor. Return the defined symbol as a special spp lex token.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/bovine/c.el.gz
(define-lex-spp-macro-declaration-analyzer semantic-lex-cpp-define
  "A #define of a symbol with some value.
Record the symbol in the semantic preprocessor.
Return the defined symbol as a special spp lex token."
  "^\\s-*#\\s-*define\\s-+\\(\\(\\sw\\|\\s_\\)+\\)" 1
  (goto-char (match-end 0))
  (skip-chars-forward " \t")
  (if (eolp)
      nil
    (let* (;; (name (buffer-substring-no-properties
	   ;;        (match-beginning 1) (match-end 1)))
	   (beginning-of-define (match-end 1))
	   (with-args (save-excursion
			(goto-char (match-end 0))
			(looking-at "(")))
	   (semantic-lex-spp-replacements-enabled nil)
	   ;; Temporarily override the lexer to include
	   ;; special items needed inside a macro
	   (semantic-lex-analyzer #'semantic-cpp-lexer)
	   (raw-stream
	    (semantic-lex-spp-stream-for-macro (save-excursion
						 (c-end-of-macro)
						 ;; HACK - If there's a C comment after
						 ;; the macro, do not parse it.
						 (if (looking-back "/\\*.*" beginning-of-define)
						     (progn
						       (goto-char (match-beginning 0))
						       (point))
						   (point)))))
	   )

      ;; Only do argument checking if the paren was immediately after
      ;; the macro name.
      (if with-args
	  (semantic-lex-spp-first-token-arg-list (car raw-stream)))

      ;; Magical spp variable for end point.
      (setq semantic-lex-end-point (point))

      ;; Handled nested macro streams.
      (semantic-lex-spp-merge-streams raw-stream)
      )))