diff options
Diffstat (limited to 'lisp/progmodes/cc-langs.el')
| -rw-r--r-- | lisp/progmodes/cc-langs.el | 911 |
1 files changed, 550 insertions, 361 deletions
diff --git a/lisp/progmodes/cc-langs.el b/lisp/progmodes/cc-langs.el index d1b3703a7a5..c61dcdabf9a 100644 --- a/lisp/progmodes/cc-langs.el +++ b/lisp/progmodes/cc-langs.el @@ -25,7 +25,7 @@ ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License -;; along with this program; see the file COPYING. If not, write to +;; along with GNU Emacs; see the file COPYING. If not, write to ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. @@ -44,384 +44,585 @@ (cc-require 'cc-defs) (cc-require 'cc-vars) +(require 'cl) + -(defvar c-buffer-is-cc-mode nil - "Non-nil for all buffers with a `major-mode' derived from CC Mode. -Otherwise, this variable is nil. I.e. this variable is non-nil for -`c-mode', `c++-mode', `objc-mode', `java-mode', `idl-mode', -`pike-mode', and any other non-CC Mode mode that calls -`c-initialize-cc-mode' (e.g. `awk-mode').") -(make-variable-buffer-local 'c-buffer-is-cc-mode) -(put 'c-buffer-is-cc-mode 'permanent-local t) +;; Some support functions that are used when the language specific +;; constants are built. Since the constants are built during compile +;; time, these need to be defined then too. + +(eval-and-compile + ;; `require' in XEmacs doesn't have the third NOERROR argument. + (condition-case nil (require 'regexp-opt) (file-error nil)) + + (if (fboundp 'regexp-opt) + (fset 'c-regexp-opt (symbol-function 'regexp-opt)) + ;; Emacs 19.34 doesn't have the regexp-opt package. + (defun c-regexp-opt (strings &optional paren) + (if paren + (concat "\\(" (mapconcat 'regexp-quote strings "\\|") "\\)") + (mapconcat 'regexp-quote strings "\\|")))) + + (if (fboundp 'regexp-opt-depth) + (fset 'c-regexp-opt-depth (symbol-function 'regexp-opt-depth)) + ;; Emacs 19.34 doesn't have the regexp-opt package. + (defun c-regexp-opt-depth (regexp) + ;; This is the definition of `regexp-opt-depth' in Emacs 20. + (save-match-data + ;; Hack to signal an error if REGEXP does not have balanced + ;; parentheses. + (string-match regexp "") + ;; Count the number of open parentheses in REGEXP. + (let ((count 0) start) + (while (string-match "\\\\(" regexp start) + (setq count (1+ count) start (match-end 0))) + count)))) + + (defun c-make-keywords-re (adorn &rest lists) + "Make a regexp that matches all the strings in all the lists. +Duplicates in the lists are removed. The regexp may contain zero or +more submatch expressions. If ADORN is non-nil there will be at least +one submatch which matches the whole keyword, and the regexp will also +not match a prefix of any identifier. Adorned regexps cannot be +appended." + (setq lists (delete-duplicates (apply 'append (nconc lists '(nil))) + :test 'string-equal)) + (if lists + (let ((re (c-regexp-opt lists))) + ;; Add our own grouping parenthesis around re instead of + ;; passing adorn to regexp-opt, since it in XEmacs makes the + ;; top level grouping "shy". + (if adorn + (concat "\\(" re "\\)\\>\\([^_]\\|$\\)") + re)) + "\\<\\>" ; Matches nothing. + )) + (put 'c-make-keywords-re 'lisp-indent-function 1) + ) -;; Regular expressions and other values which must be parameterized on -;; a per-language basis. - -;; Regex describing a `symbol' in all languages. We cannot use just -;; `word' syntax class since `_' cannot be in word class. Putting -;; underscore in word class breaks forward word movement behavior that -;; users are familiar with. Besides, this runs counter to Emacs -;; convention. +;; Building of constants that are parameterized on a per-language +;; basis. + +(eval-and-compile + (defvar c-macroexpand-mode nil + ;; Dynamically bound to the mode symbol during `c-lang-defconst' + ;; so that `c-lang-var' can do the right expansion. + ) + + (defmacro c-lang-defconst (var &rest args) + ;; Sets the mode specific values of the constant VAR. The rest of + ;; the arguments are one or more repetitions of MODE VAL. MODE is + ;; the mode name without the "-mode" suffix, or a list of such + ;; mode names, or `all' as a shortcut for a list of all modes. + ;; VAL is evaluated (during compilation) for each mode with + ;; `c-macroexpand-mode' temporarily bound, so `c-lang-var' without + ;; an explicit mode may be used within it. The assignments in + ;; ARGS are processed in sequence, similar to `setq'. + (let* ((res (list 'progn)) + (res-tail res)) + (while args + (let ((mode (car args))) + (cond ((eq mode 'all) + (setq mode '(c c++ objc java idl pike))) + ((symbolp mode) + (setq mode (list mode)))) + (while mode + (let* ((c-macroexpand-mode + (intern (concat (symbol-name (car mode)) "-mode"))) + (val (eval (car (cdr args))))) + ;; Need to install the value also during compilation, + ;; since val might refer to earlier mode specific + ;; values. + (put var c-macroexpand-mode val) + (setcdr res-tail (list `(put ',var ',c-macroexpand-mode ',val))) + (setq res-tail (cdr res-tail))) + (setq mode (cdr mode)))) + (setq args (cdr (cdr args)))) + res)) + (put 'c-lang-defconst 'lisp-indent-function 1) + + (defmacro c-lang-var (var &optional mode) + ;; Get the mode specific value of the variable VAR in mode MODE. + ;; MODE is the mode name without the "-mode" suffix. It may also + ;; be nil to use the current value of `c-macroexpand-mode' (which + ;; is useful inside `c-lang-defconst') or `c-buffer-is-cc-mode' + ;; (which is useful inside `c-lang-defvar'). + `(get ',var ,(if (eq mode 'nil) + (if c-macroexpand-mode + ;; In the macro expansion of c-lang-defconst. + `(quote ,c-macroexpand-mode) + `c-buffer-is-cc-mode) + `(quote ,(intern (concat (symbol-name mode) "-mode")))))) + + ;; These are used to collect the init forms from the subsequent + ;; `c-lang-defvar'. They become a big setq in the + ;; `c-init-lang-defvars' lambda below. + (defconst c-lang-defvar-init-form (list 'setq)) + (defconst c-lang-defvar-init-form-tail c-lang-defvar-init-form) + + (defmacro c-lang-defvar (var val) + ;; Declares the buffer local variable VAR to get the value VAL at + ;; mode initialization, at which point VAL is evaluated. + ;; `c-lang-var' is typically used in VAL to get the right value + ;; according to `c-buffer-is-cc-mode'. + (setcdr c-lang-defvar-init-form-tail (list var val)) + (setq c-lang-defvar-init-form-tail + (cdr (cdr c-lang-defvar-init-form-tail))) + `(progn + (defvar ,var nil) + (make-variable-buffer-local ',var))) + (put 'c-lang-defvar 'lisp-indent-function 1) + ) + +;; Regexp describing a `symbol' in all languages, not excluding +;; keywords. We cannot use just `word' syntax class since `_' cannot +;; be in word class. Putting underscore in word class breaks forward +;; word movement behavior that users are familiar with. Besides, it +;; runs counter to Emacs convention. ;; -;; I suspect this definition isn't correct in light of Java's -;; definition of a symbol as being Unicode. I know so little about -;; I18N (except how to sound cool and say I18N :-) that I'm willing to -;; punt on this for now. -(defconst c-symbol-key "[_a-zA-Z]\\(\\w\\|\\s_\\)*") +;; This definition isn't correct for the first character in the +;; languages that accept the full range of Unicode word constituents +;; in identifiers (e.g. Java and Pike). For that we'd need to make a +;; regexp that matches all characters in the word constituent class +;; except 0-9, and the regexp engine currently can't do that. +(c-lang-defconst c-symbol-key + (c c++ objc java idl) "[_a-zA-Z]\\(\\w\\|\\s_\\)*" + pike (concat "\\(" (c-lang-var c-symbol-key c) "\\|" + (c-make-keywords-re nil + '("`+" "`-" "`&" "`|" "`^" "`<<" "`>>" "`*" "`/" "`%" "`~" + "`==" "`<" "`>" "`!" "`[]" "`[]=" "`->" "`->=" "`()" "``+" + "``-" "``&" "``|" "``^" "``<<" "``>>" "``*" "``/" "``%" + "`+=")) + "\\)")) +(c-lang-defvar c-symbol-key (c-lang-var c-symbol-key)) + +;; Number of regexp grouping parens in c-symbol-key. +(c-lang-defvar c-symbol-key-depth (c-regexp-opt-depth c-symbol-key)) + +(defvar c-stmt-delim-chars "^;{}?:") +;; The characters that should be considered to bound statements. To +;; optimize c-crosses-statement-barrier-p somewhat, it's assumed to +;; begin with "^" to negate the set. If ? : operators should be +;; detected then the string must end with "?:". + +(defvar c-stmt-delim-chars-with-comma "^;,{}?:") +;; Variant of c-stmt-delim-chars that additionally contains ','. ;; HELPME: Many of the following keyword lists are more or less bogus ;; for some languages (notably ObjC and IDL). The effects of the -;; erroneous values in the language handling is miniscule since these -;; constants are not used very much (yet, anyway) in the actual syntax -;; detection code, but I'd still appreciate help to get them correct. +;; erroneous values in the language handling are mostly negligible +;; since the constants that actually matter in the syntax detection +;; code are mostly correct in the situations they are used, but I'd +;; still appreciate help to get them correct for other uses. ;; Primitive type keywords. -(defconst c-C-primitive-type-kwds - "char\\|double\\|float\\|int\\|long\\|short\\|signed\\|unsigned\\|void") -(defconst c-C++-primitive-type-kwds c-C-primitive-type-kwds) -(defconst c-ObjC-primitive-type-kwds c-C-primitive-type-kwds) -(defconst c-Java-primitive-type-kwds - "boolean\\|byte\\|char\\|double\\|float\\|int\\|long\\|short\\|void") -(defconst c-IDL-primitive-type-kwds c-C-primitive-type-kwds) -(defconst c-Pike-primitive-type-kwds - (concat "constant\\|float\\|int\\|mapping\\|multiset\\|object\\|" - "program\\|string\\|void")) +(c-lang-defconst c-primitive-type-kwds + (c c++ objc idl) '("char" "double" "float" "int" "long" "short" + "signed" "unsigned" "void") + java '("boolean" "byte" "char" "double" "float" "int" "long" "short" "void") + pike '("constant" "float" "int" "mapping" "multiset" "object" "program" + "string" "void")) ;; Declaration specifier keywords. -(defconst c-C-specifier-kwds - "auto\\|const\\|extern\\|register\\|static\\|volatile") -(defconst c-C++-specifier-kwds - (concat c-C-specifier-kwds "\\|friend\\|inline\\|virtual")) -(defconst c-ObjC-specifier-kwds c-C++-specifier-kwds) -(defconst c-Java-specifier-kwds - ;; Note: `const' is not used, but it's still a reserved keyword. - (concat "abstract\\|const\\|final\\|native\\|private\\|protected\\|" - "public\\|static\\|synchronized\\|transient\\|volatile")) -(defconst c-IDL-specifier-kwds c-C++-specifier-kwds) -(defconst c-Pike-specifier-kwds - (concat "final\\|inline\\|local\\|nomask\\|optional\\|private\\|" - "protected\\|static\\|variant")) +(c-lang-defconst c-specifier-kwds + c '("auto" "const" "extern" "register" "static" "volatile") + (c++ objc idl) (append '("friend" "inline" "virtual") + (c-lang-var c-specifier-kwds c)) + ;; Note: `const' is not used in Java, but it's still a reserved keyword. + java '("abstract" "const" "final" "native" "private" "protected" + "public" "static" "synchronized" "transient" "volatile") + pike '("final" "inline" "local" "nomask" "optional" "private" + "protected" "static" "variant")) ;; Class/struct declaration keywords. -(defconst c-C-class-kwds "struct\\|union") -(defconst c-C++-class-kwds (concat c-C-class-kwds "\\|class")) -(defconst c-ObjC-class-kwds "interface\\|implementation") -(defconst c-Java-class-kwds "class\\|interface") -(defconst c-IDL-class-kwds - (concat c-C++-class-kwds "\\|interface\\|valuetype")) -(defconst c-Pike-class-kwds "class") - -;; Keywords introducing other declaration-level blocks. -(defconst c-C-extra-toplevel-kwds "extern") -(defconst c-C++-extra-toplevel-kwds - (concat c-C-extra-toplevel-kwds "\\|namespace")) -;;(defconst c-ObjC-extra-toplevel-kwds nil) -;;(defconst c-Java-extra-toplevel-kwds nil) -(defconst c-IDL-extra-toplevel-kwds "module") -;;(defconst c-Pike-extra-toplevel-kwds nil) - -;; Keywords introducing other declaration-level constructs. -(defconst c-C-other-decl-kwds "enum\\|typedef") -(defconst c-C++-other-decl-kwds (concat c-C-other-decl-kwds "\\|template")) -;;(defconst c-ObjC-other-decl-kwds nil) -(defconst c-Java-other-decl-kwds "import\\|package") -;;(defconst c-IDL-other-decl-kwds nil) -(defconst c-Pike-other-decl-kwds "import\\|inherit") - -;; Keywords that occur in declaration-level constructs. -;;(defconst c-C-decl-level-kwds nil) -;;(defconst c-C++-decl-level-kwds nil) -;;(defconst c-ObjC-decl-level-kwds nil) -(defconst c-Java-decl-level-kwds "extends\\|implements\\|throws") -;;(defconst c-IDL-decl-level-kwds nil) -;;(defconst c-Pike-decl-level-kwds nil) +(c-lang-defconst c-class-kwds + c '("struct" "union") + c++ '("class" "struct" "union") + objc '("interface" "implementation") + java '("class" "interface") + idl '("interface" "valuetype" "class" "struct" "union") + pike '("class")) + +;; Regexp matching the start of a class. +(c-lang-defconst c-class-key + all (c-make-keywords-re t (c-lang-var c-class-kwds))) +(c-lang-defconst c-class-key ; ObjC needs some tuning of the regexp. + objc (concat "@" (c-lang-var c-class-key))) +(c-lang-defvar c-class-key (c-lang-var c-class-key)) + +;; Keywords introducing blocks besides classes that contain another +;; declaration level. +(c-lang-defconst c-other-decl-block-kwds + c '("extern") + c++ '("namespace" "extern") + idl '("module")) + +;; Regexp matching the start of blocks besides classes that contain +;; another declaration level. +(c-lang-defconst c-other-decl-block-key + all (c-make-keywords-re t (c-lang-var c-other-decl-block-kwds))) +(c-lang-defvar c-other-decl-block-key (c-lang-var c-other-decl-block-key)) + +;; Keywords introducing declarations that can contain a block which +;; might be followed by variable declarations, e.g. like "foo" in +;; "class Foo { ... } foo;". So if there is a block in a declaration +;; like that, it ends with the following ';' and not right away. +(c-lang-defconst c-block-decls-with-vars + c '("struct" "union" "enum" "typedef") + c++ '("class" "struct" "union" "enum" "typedef")) + +;; Regexp matching the `c-block-decls-with-vars' keywords, or nil in +;; languages without such constructs. +(c-lang-defconst c-opt-block-decls-with-vars-key + all (and (c-lang-var c-block-decls-with-vars) + (c-make-keywords-re t (c-lang-var c-block-decls-with-vars)))) +(c-lang-defvar c-opt-block-decls-with-vars-key + (c-lang-var c-opt-block-decls-with-vars-key)) + +;; Keywords introducing declarations that has not been accounted for +;; by any of the above. +(c-lang-defconst c-other-decl-kwds + ;; FIXME: Shouldn't "template" be moved to c-specifier-kwds for C++? + c++ '("template") + java '("import" "package") + pike '("import" "inherit")) + +;; Keywords introducing extra declaration specifiers in the region +;; between the header and the body (i.e. the "K&R-region") in +;; declarations. +(c-lang-defconst c-decl-spec-kwds java '("extends" "implements" "throws")) ;; Protection label keywords in classes. -;;(defconst c-C-protection-kwds nil) -(defconst c-C++-protection-kwds "private\\|protected\\|public") -(defconst c-ObjC-protection-kwds c-C++-protection-kwds) -;;(defconst c-Java-protection-kwds nil) -;;(defconst c-IDL-protection-kwds nil) -;;(defconst c-Pike-protection-kwds nil) - -;; Statement keywords followed directly by a block. -(defconst c-C-block-stmt-1-kwds "do\\|else") -(defconst c-C++-block-stmt-1-kwds - (concat c-C-block-stmt-1-kwds "\\|asm\\|try")) -(defconst c-ObjC-block-stmt-1-kwds c-C++-block-stmt-1-kwds) -(defconst c-Java-block-stmt-1-kwds - (concat c-C-block-stmt-1-kwds "\\|finally\\|try")) -;;(defconst c-IDL-block-stmt-1-kwds nil) -(defconst c-Pike-block-stmt-1-kwds c-C-block-stmt-1-kwds) - -;; Statement keywords followed by a paren sexp and then by a block. -(defconst c-C-block-stmt-2-kwds "for\\|if\\|switch\\|while") -(defconst c-C++-block-stmt-2-kwds (concat c-C-block-stmt-2-kwds "\\|catch")) -(defconst c-ObjC-block-stmt-2-kwds c-C++-block-stmt-2-kwds) -(defconst c-Java-block-stmt-2-kwds - (concat c-C++-block-stmt-2-kwds "\\|synchronized")) -;;(defconst c-IDL-block-stmt-2-kwds nil) -(defconst c-Pike-block-stmt-2-kwds c-C-block-stmt-2-kwds) +(c-lang-defconst c-protection-kwds + (c++ objc) '("private" "protected" "public")) + +;; Statement keywords followed directly by a substatement. +(c-lang-defconst c-block-stmt-1-kwds + (c pike) '("do" "else") + (c++ objc) '("do" "else" "asm" "try") + java '("do" "else" "finally" "try")) + +;; Regexp matching the start of any statement followed directly by a +;; substatement (doesn't match a bare block, however). +(c-lang-defconst c-block-stmt-1-key + all (c-make-keywords-re t (c-lang-var c-block-stmt-1-kwds))) +(c-lang-defvar c-block-stmt-1-key (c-lang-var c-block-stmt-1-key)) + +;; Statement keywords followed by a paren sexp and then by a substatement. +(c-lang-defconst c-block-stmt-2-kwds + c '("for" "if" "switch" "while") + (c++ objc) '("for" "if" "switch" "while" "catch") + java '("for" "if" "switch" "while" "catch" "synchronized") + pike '("for" "if" "switch" "while" "foreach")) + +;; Regexp matching the start of any statement followed by a paren sexp +;; and then by a substatement. +(c-lang-defconst c-block-stmt-2-key + all (c-make-keywords-re t (c-lang-var c-block-stmt-2-kwds))) +(c-lang-defvar c-block-stmt-2-key (c-lang-var c-block-stmt-2-key)) + +;; Regexp matching the start of any statement that has a substatement +;; (except a bare block). Nil in languages that doesn't have such +;; constructs. +(c-lang-defconst c-opt-block-stmt-key + all (if (or (c-lang-var c-block-stmt-1-kwds) + (c-lang-var c-block-stmt-2-kwds)) + (c-make-keywords-re t + (c-lang-var c-block-stmt-1-kwds) + (c-lang-var c-block-stmt-2-kwds)))) +(c-lang-defvar c-opt-block-stmt-key (c-lang-var c-opt-block-stmt-key)) ;; Statement keywords followed by an expression or nothing. -(defconst c-C-simple-stmt-kwds "break\\|continue\\|goto\\|return") -(defconst c-C++-simple-stmt-kwds c-C-simple-stmt-kwds) -(defconst c-ObjC-simple-stmt-kwds c-C-simple-stmt-kwds) -(defconst c-Java-simple-stmt-kwds - ;; Note: `goto' is not a valid statement, but the keyword is still reserved. - (concat c-C-simple-stmt-kwds "\\|throw")) -;;(defconst c-IDL-simple-stmt-kwds nil) -(defconst c-Pike-simple-stmt-kwds "break\\|continue\\|return") +(c-lang-defconst c-simple-stmt-kwds + (c c++ objc) '("break" "continue" "goto" "return") + ;; Note: `goto' is not valid in Java, but the keyword is still reserved. + java '("break" "continue" "goto" "return" "throw") + pike '("break" "continue" "return")) + +;; Statement keywords followed by an assembler expression. +(c-lang-defconst c-asm-stmt-kwds + (c c++) '("asm" "__asm__")) + +;; Regexp matching the start of an assembler statement. Nil in +;; languages that doesn't support that. +(c-lang-defconst c-opt-asm-stmt-key + all (if (c-lang-var c-asm-stmt-kwds) + (c-make-keywords-re t (c-lang-var c-asm-stmt-kwds)))) +(c-lang-defvar c-opt-asm-stmt-key (c-lang-var c-opt-asm-stmt-key)) ;; Keywords introducing labels in blocks. -(defconst c-C-label-kwds "case\\|default") -(defconst c-C++-label-kwds c-C-label-kwds) -(defconst c-ObjC-label-kwds c-C-label-kwds) -(defconst c-Java-label-kwds c-C-label-kwds) -;;(defconst c-IDL-label-kwds nil) -(defconst c-Pike-label-kwds c-C-label-kwds) +(c-lang-defconst c-label-kwds (c c++ objc java pike) '("case" "default")) + +;; Regexp matching any keyword that introduces a label. +(c-lang-defconst c-label-kwds-regexp + all (c-make-keywords-re t (c-lang-var c-label-kwds))) +(c-lang-defvar c-label-kwds-regexp (c-lang-var c-label-kwds-regexp)) ;; Keywords that can occur anywhere in expressions. -(defconst c-C-expr-kwds "sizeof") -(defconst c-C++-expr-kwds - (concat c-C-expr-kwds "\\|delete\\|new\\|operator\\|this\\|throw")) -(defconst c-ObjC-expr-kwds c-C-expr-kwds) -(defconst c-Java-expr-kwds "instanceof\\|new\\|super\\|this") -;;(defconst c-IDL-expr-kwds nil) -(defconst c-Pike-expr-kwds - (concat c-C-expr-kwds "\\|catch\\|class\\|gauge\\|lambda\\|predef")) - -;; All keywords. -(defconst c-C-keywords - (concat c-C-primitive-type-kwds "\\|" c-C-specifier-kwds - "\\|" c-C-class-kwds "\\|" c-C-extra-toplevel-kwds - "\\|" c-C-other-decl-kwds - ;; "\\|" c-C-decl-level-kwds "\\|" c-C-protection-kwds - "\\|" c-C-block-stmt-1-kwds "\\|" c-C-block-stmt-2-kwds - "\\|" c-C-simple-stmt-kwds "\\|" c-C-label-kwds - "\\|" c-C-expr-kwds)) -(defconst c-C++-keywords - (concat c-C++-primitive-type-kwds "\\|" c-C++-specifier-kwds - "\\|" c-C++-class-kwds "\\|" c-C++-extra-toplevel-kwds - "\\|" c-C++-other-decl-kwds - ;; "\\|" c-C++-decl-level-kwds - "\\|" c-C++-protection-kwds - "\\|" c-C++-block-stmt-1-kwds "\\|" c-C++-block-stmt-2-kwds - "\\|" c-C++-simple-stmt-kwds "\\|" c-C++-label-kwds - "\\|" c-C++-expr-kwds)) -(defconst c-ObjC-keywords - (concat c-ObjC-primitive-type-kwds "\\|" c-ObjC-specifier-kwds - "\\|" c-ObjC-class-kwds - ;; "\\|" c-ObjC-extra-toplevel-kwds - ;; "\\|" c-ObjC-other-decl-kwds "\\|" c-ObjC-decl-level-kwds - "\\|" c-ObjC-protection-kwds - "\\|" c-ObjC-block-stmt-1-kwds "\\|" c-ObjC-block-stmt-2-kwds - "\\|" c-ObjC-simple-stmt-kwds "\\|" c-ObjC-label-kwds - "\\|" c-ObjC-expr-kwds)) -(defconst c-Java-keywords - (concat c-Java-primitive-type-kwds "\\|" c-Java-specifier-kwds - "\\|" c-Java-class-kwds - ;; "\\|" c-Java-extra-toplevel-kwds - "\\|" c-Java-other-decl-kwds "\\|" c-Java-decl-level-kwds - ;; "\\|" c-Java-protection-kwds - "\\|" c-Java-block-stmt-1-kwds "\\|" c-Java-block-stmt-2-kwds - "\\|" c-Java-simple-stmt-kwds "\\|" c-Java-label-kwds - "\\|" c-Java-expr-kwds)) -(defconst c-IDL-keywords - (concat c-IDL-primitive-type-kwds "\\|" c-IDL-specifier-kwds - "\\|" c-IDL-class-kwds "\\|" c-IDL-extra-toplevel-kwds - ;; "\\|" c-IDL-other-decl-kwds "\\|" c-IDL-decl-level-kwds - ;; "\\|" c-IDL-protection-kwds - ;; "\\|" c-IDL-block-stmt-1-kwds "\\|" c-IDL-block-stmt-2-kwds - ;; "\\|" c-IDL-simple-stmt-kwds "\\|" c-IDL-label-kwds - ;; "\\|" c-IDL-expr-kwds) - )) -(defconst c-Pike-keywords - (concat c-Pike-primitive-type-kwds "\\|" c-Pike-specifier-kwds - "\\|" c-Pike-class-kwds - ;; "\\|" c-Pike-extra-toplevel-kwds - "\\|" c-Pike-other-decl-kwds - ;; "\\|" c-Pike-decl-level-kwds "\\|" c-Pike-protection-kwds - "\\|" c-Pike-block-stmt-1-kwds "\\|" c-Pike-block-stmt-2-kwds - "\\|" c-Pike-simple-stmt-kwds "\\|" c-Pike-label-kwds - "\\|" c-Pike-expr-kwds)) - -(defvar c-keywords nil) -(make-variable-buffer-local 'c-keywords) - -;; Keywords defining protection levels -(defconst c-protection-key "\\<\\(public\\|protected\\|private\\)\\>") - -;; Regexps introducing class definitions. -(defconst c-C-class-key (c-paren-re c-C-class-kwds)) -(defconst c-C++-class-key (c-paren-re c-C++-class-kwds)) -(defconst c-IDL-class-key (c-paren-re c-IDL-class-kwds)) -(defconst c-ObjC-class-key - (concat - "@\\(" c-ObjC-class-kwds "\\)\\s +" - c-symbol-key ;name of the class - "\\(\\s *:\\s *" c-symbol-key "\\)?" ;maybe followed by the superclass - "\\(\\s *<[^>]+>\\)?" ;and maybe the adopted protocols list - )) -(defconst c-Java-class-key - (concat - "\\(" c-protection-key "\\s +\\)?" - "\\(" c-Java-class-kwds "\\)\\s +" - c-symbol-key ;name of the class - "\\(\\s *extends\\s *" c-symbol-key "\\)?" ;maybe followed by superclass - ;;"\\(\\s *implements *[^{]+{\\)?" ;maybe the adopted protocols list - )) -(defconst c-Pike-class-key (c-paren-re c-Pike-class-kwds)) - -(defvar c-class-key c-C-class-key) -(make-variable-buffer-local 'c-class-key) - -(defconst c-C-extra-toplevel-key (c-paren-re c-C-extra-toplevel-kwds)) -(defconst c-C++-extra-toplevel-key (c-paren-re c-C++-extra-toplevel-kwds)) -(defconst c-IDL-extra-toplevel-key (c-paren-re c-IDL-extra-toplevel-kwds)) - -(defvar c-extra-toplevel-key c-C-extra-toplevel-key) -(make-variable-buffer-local 'c-extra-toplevel-key) - -;; Keywords that can introduce bitfields in the languages that supports that. -(defconst c-C-bitfield-key "\\(char\\|int\\|long\\|signed\\|unsigned\\)") - -(defvar c-bitfield-key nil) -(make-variable-buffer-local 'c-bitfield-key) - -;; regexp describing access protection clauses. language specific -(defvar c-access-key nil) -(make-variable-buffer-local 'c-access-key) -(defconst c-C++-access-key - (concat "\\<\\(" c-C++-protection-kwds "\\)\\>[ \t]*:")) -;;(defconst c-IDL-access-key nil) -(defconst c-ObjC-access-key (concat "@" c-protection-key)) -;;(defconst c-Java-access-key nil) -;;(defconst c-Pike-access-key nil) - -;; keywords introducing conditional blocks -(defconst c-C-conditional-key nil) -(defconst c-C++-conditional-key nil) -(defconst c-IDL-conditional-key nil) -(defconst c-ObjC-conditional-key nil) -(defconst c-Java-conditional-key nil) -(defconst c-Pike-conditional-key nil) - -(let ((all-kws "for\\|if\\|do\\|else\\|while\\|switch") - (exc-kws "\\|try\\|catch") - (thr-kws "\\|finally\\|synchronized") - (front "\\<\\(") - (back "\\)\\>[^_]")) - (setq c-C-conditional-key (concat front all-kws back) - c-C++-conditional-key (concat front all-kws exc-kws back) - ;; c-IDL-conditional-key is nil. - c-ObjC-conditional-key c-C-conditional-key - c-Java-conditional-key (concat front all-kws exc-kws thr-kws back) - c-Pike-conditional-key (concat front all-kws "\\|foreach" back))) - -(defvar c-conditional-key c-C-conditional-key) -(make-variable-buffer-local 'c-conditional-key) - -;; keywords describing method definition introductions -(defvar c-method-key nil) -(make-variable-buffer-local 'c-method-key) - -(defconst c-ObjC-method-key - (concat - "^\\s *[+-]\\s *" - "\\(([^)]*)\\)?" ; return type - ;; \\s- in objc syntax table does not include \n - ;; since it is considered the end of //-comments. - "[ \t\n]*" c-symbol-key)) - -;; comment starter definitions for various languages. language specific -(defconst c-C++-comment-start-regexp "/[/*]") -(defconst c-C-comment-start-regexp c-C++-comment-start-regexp) -(defconst c-IDL-comment-start-regexp c-C++-comment-start-regexp) -(defconst c-ObjC-comment-start-regexp c-C++-comment-start-regexp) -(defconst c-Pike-comment-start-regexp c-C++-comment-start-regexp) -;; We need to match all 3 Java style comments -;; 1) Traditional C block; 2) javadoc /** ...; 3) C++ style -(defconst c-Java-comment-start-regexp "/\\(/\\|[*][*]?\\)") -(defvar c-comment-start-regexp c-C++-comment-start-regexp) -(make-variable-buffer-local 'c-comment-start-regexp) - -;; Regexp describing a switch's case or default label for all languages -(defconst c-switch-label-key "\\(\\(case[( \t]+\\S .*\\)\\|default[ \t]*\\):") -;; Regexp describing any label. -(defconst c-label-key (concat c-symbol-key ":\\([^:]\\|$\\)")) - -;; Regexp describing class inheritance declarations. TBD: this should -;; be language specific, and only makes sense for C++ -(defconst c-inher-key - (concat "\\(\\<static\\>\\s +\\)?" - c-C++-class-key "[ \t]+" c-symbol-key - "\\([ \t]*:[ \t]*\\)\\s *[^;]")) - -;; Regexp describing C++ base classes in a derived class definition. -;; TBD: this should be language specific, and only makes sense for C++ -(defvar c-baseclass-key - (concat - ":?[ \t]*\\(virtual[ \t]+\\)?\\(" - c-protection-key "[ \t]+\\)" c-symbol-key)) -(make-variable-buffer-local 'c-baseclass-key) - -;; Regexp describing friend declarations in C++ classes. -(defconst c-C++-friend-key - "friend[ \t]+\\|template[ \t]*<.+>[ \t]*friend[ \t]+") - -;; Regexp describing Java inheritance and throws clauses. -(defconst c-Java-special-key "\\(implements\\|extends\\|throws\\)[^_]") - -;; Regexp describing the beginning of a Java top-level definition. -(defconst c-Java-defun-prompt-regexp - "^[ \t]*\\(\\(\\(public\\|protected\\|private\\|const\\|abstract\\|synchronized\\|final\\|static\\|threadsafe\\|transient\\|native\\|volatile\\)\\s-+\\)*\\(\\(\\([[a-zA-Z][][_$.a-zA-Z0-9]*[][_$.a-zA-Z0-9]+\\|[[a-zA-Z]\\)\\s-*\\)\\s-+\\)\\)?\\(\\([[a-zA-Z][][_$.a-zA-Z0-9]*\\s-+\\)\\s-*\\)?\\([_a-zA-Z][^][ \t:;.,{}()=]*\\|\\([_$a-zA-Z][_$.a-zA-Z0-9]*\\)\\)\\s-*\\(([^);{}]*)\\)?\\([] \t]*\\)\\(\\s-*\\<throws\\>\\s-*\\(\\([_$a-zA-Z][_$.a-zA-Z0-9]*\\)[, \t\n\r\f]*\\)+\\)?\\s-*") +(c-lang-defconst c-expr-kwds + (c objc) '("sizeof") + c++ '("sizeof" "delete" "new" "operator" "this" "throw") + java '("instanceof" "new" "super" "this") + pike '("sizeof" "catch" "class" "gauge" "lambda" "predef")) + +;; Keywords that start lambda constructs, i.e. function definitions in +;; expressions. +(c-lang-defconst c-lambda-kwds pike '("lambda")) + +;; Regexp matching the start of lambda constructs, or nil in languages +;; that doesn't have such things. +(c-lang-defconst c-opt-lambda-key + pike (c-make-keywords-re t (c-lang-var c-lambda-kwds))) +(c-lang-defvar c-opt-lambda-key (c-lang-var c-opt-lambda-key)) + +;; Keywords that start constructs followed by statement blocks which +;; can be used in expressions (the gcc extension for this in C and C++ +;; is handled separately). +(c-lang-defconst c-inexpr-block-kwds pike '("catch" "gauge")) + +;; Regexp matching the start of in-expression statements, or nil in +;; languages that doesn't have such things. +(c-lang-defconst c-opt-inexpr-block-key + pike (c-make-keywords-re t (c-lang-var c-inexpr-block-kwds))) +(c-lang-defvar c-opt-inexpr-block-key (c-lang-var c-opt-inexpr-block-key)) + +;; Keywords that start classes in expressions. +(c-lang-defconst c-inexpr-class-kwds + java '("new") + pike '("class")) + +;; Regexp matching the start of a class in an expression, or nil in +;; languages that doesn't have such things. +(c-lang-defconst c-opt-inexpr-class-key + (java pike) (c-make-keywords-re t (c-lang-var c-inexpr-class-kwds))) +(c-lang-defvar c-opt-inexpr-class-key (c-lang-var c-opt-inexpr-class-key)) + +;; Regexp matching the start of any class, both at top level and in +;; expressions. +(c-lang-defconst c-any-class-key + all (c-make-keywords-re t + (c-lang-var c-class-kwds) + (c-lang-var c-inexpr-class-kwds))) +(c-lang-defconst c-any-class-key ; ObjC needs some tuning of the regexp. + objc (concat "@" (c-lang-var c-any-class-key))) +(c-lang-defvar c-any-class-key (c-lang-var c-any-class-key)) + +;; Regexp matching the start of any declaration-level block that +;; contain another declaration level, i.e. that isn't a function +;; block. +(c-lang-defconst c-decl-block-key + all (c-make-keywords-re t + (c-lang-var c-class-kwds) + (c-lang-var c-other-decl-block-kwds) + (c-lang-var c-inexpr-class-kwds))) +(c-lang-defconst c-decl-block-key ; ObjC needs some tuning of the regexp. + objc (concat "@" (c-lang-var c-decl-block-key))) +(c-lang-defvar c-decl-block-key (c-lang-var c-decl-block-key)) + +;; Keywords that can introduce bitfields. +(c-lang-defconst c-bitfield-kwds + (c c++) '("char" "int" "long" "signed" "unsigned")) + +;; Regexp matching the start of a bitfield (not uniquely), or nil in +;; languages without bitfield support. +(c-lang-defconst c-opt-bitfield-key + (c c++) (c-make-keywords-re t (c-lang-var c-bitfield-kwds))) +(c-lang-defvar c-opt-bitfield-key (c-lang-var c-opt-bitfield-key)) + +;; All keywords as a list. +(c-lang-defconst c-keywords + all (delete-duplicates (append (c-lang-var c-primitive-type-kwds) + (c-lang-var c-specifier-kwds) + (c-lang-var c-class-kwds) + (c-lang-var c-other-decl-block-kwds) + (c-lang-var c-block-decls-with-vars) + (c-lang-var c-other-decl-kwds) + (c-lang-var c-decl-spec-kwds) + (c-lang-var c-protection-kwds) + (c-lang-var c-block-stmt-1-kwds) + (c-lang-var c-block-stmt-2-kwds) + (c-lang-var c-simple-stmt-kwds) + (c-lang-var c-asm-stmt-kwds) + (c-lang-var c-label-kwds) + (c-lang-var c-expr-kwds) + (c-lang-var c-lambda-kwds) + (c-lang-var c-inexpr-block-kwds) + (c-lang-var c-inexpr-class-kwds) + (c-lang-var c-bitfield-kwds) + nil) + :test 'string-equal)) +(c-lang-defvar c-keywords (c-lang-var c-keywords)) + +;; All keywords as an adorned regexp. +(c-lang-defconst c-keywords-regexp + all (c-make-keywords-re t (c-lang-var c-keywords))) +(c-lang-defvar c-keywords-regexp (c-lang-var c-keywords-regexp)) + +;; Regexp matching an access protection label in a class, or nil in +;; languages that doesn't have such things. +(c-lang-defconst c-opt-access-key + c++ (concat "\\(" + (c-make-keywords-re nil (c-lang-var c-protection-kwds)) + "\\)[ \t\n\r]*:")) +(c-lang-defconst c-opt-access-key + objc (concat "@" (c-make-keywords-re t (c-lang-var c-protection-kwds)))) +(c-lang-defvar c-opt-access-key (c-lang-var c-opt-access-key)) + +;; Regexp matching a normal label, i.e. not a label that's recognized +;; with a keyword, like switch labels. It's only used at the +;; beginning of a statement. +(c-lang-defconst c-label-key + all (concat (c-lang-var c-symbol-key) "[ \t\n\r]*:\\([^:]\\|$\\)")) +(c-lang-defvar c-label-key (c-lang-var c-label-key)) + +;; Regexp matching the beginning of a declaration specifier in the +;; region between the header and the body of a declaration. +;; +;; FIXME: This is currently not used in a uniformly; c++-mode and +;; java-mode each have their own ways of using it. +(c-lang-defconst c-opt-decl-spec-key + c++ (concat ":?[ \t\n\r]*\\(virtual[ \t\n\r]+\\)?\\(" + (c-make-keywords-re nil (c-lang-var c-protection-kwds)) + "\\)[ \t\n\r]+" + (c-lang-var c-symbol-key)) + java (c-make-keywords-re t (c-lang-var c-decl-spec-kwds))) +(c-lang-defvar c-opt-decl-spec-key (c-lang-var c-opt-decl-spec-key)) + +;; Regexp describing friend declarations classes, or nil in languages +;; that doesn't have such things. +(c-lang-defconst c-opt-friend-key + ;; FIXME: Ought to use c-specifier-kwds or similar, and the template + ;; skipping isn't done properly. + c++ "friend[ \t]+\\|template[ \t]*<.+>[ \t]*friend[ \t]+") +(c-lang-defvar c-opt-friend-key (c-lang-var c-opt-friend-key)) + +;; Special regexp to match the start of methods. +(c-lang-defconst c-opt-method-key + objc (concat + "^\\s *[+-]\\s *" + "\\(([^)]*)\\)?" ; return type + ;; \\s- in objc syntax table does not include \n + ;; since it is considered the end of //-comments. + "[ \t\n]*" (c-lang-var c-symbol-key))) +(c-lang-defvar c-opt-method-key (c-lang-var c-opt-method-key)) + +;; Name of functions in cpp expressions that take an identifier as the +;; argument. +(c-lang-defconst c-cpp-defined-fns + (c c++) '("defined") + pike '("defined" "efun" "constant")) + +;; List of open- and close-chars that makes up a pike-style brace +;; list, i.e. for a `([ ])' list there should be a cons (?\[ . ?\]) in +;; this list. +(c-lang-defconst c-special-brace-lists pike '((?{ . ?}) + (?\[ . ?\]) + (?< . ?>))) +(c-lang-defvar c-special-brace-lists (c-lang-var c-special-brace-lists)) + +;; Non-nil means K&R style argument declarations are valid. +(c-lang-defconst c-recognize-knr-p c t) +(c-lang-defvar c-recognize-knr-p (c-lang-var c-recognize-knr-p)) + +;; Regexp to match the start of any type of comment. +;; +;; FIXME: Ought to use c-comment-prefix-regexp with some modifications +;; instead of this. +(c-lang-defconst c-comment-start-regexp + (c c++ objc idl pike) "/[/*]" + ;; We need to match all 3 Java style comments + ;; 1) Traditional C block; 2) javadoc /** ...; 3) C++ style + java "/\\(/\\|[*][*]?\\)") +(c-lang-defvar c-comment-start-regexp (c-lang-var c-comment-start-regexp)) + +;; Strings that starts and ends comments inserted with M-; etc. +;; comment-start and comment-end are initialized from these. +(c-lang-defconst comment-start + c "/* " + (c++ objc java idl pike) "// ") +(c-lang-defvar comment-start (c-lang-var comment-start)) +(c-lang-defconst comment-end + c "*/" + (c++ objc java idl pike) "") +(c-lang-defvar comment-end (c-lang-var comment-end)) + +;; Regexp that matches when there is no syntactically significant text +;; before eol. Macros are regarded as syntactically significant text +;; here. +(c-lang-defvar c-syntactic-eol + (concat (concat + ;; Match horizontal whitespace and block comments that + ;; doesn't contain newlines. + "\\(\\s \\|" + (concat "/\\*" + "\\([^*\n\r]\\|\\*[^/\n\r]\\)*" + "\\*/") + "\\)*") + (concat + ;; Match eol (possibly inside a block comment), or the + ;; beginning of a line comment. Note: This has to be + ;; modified for awk where line comments start with '#'. + "\\(" + (concat "\\(" + "/\\*\\([^*\n\r]\\|\\*[^/\n\r]\\)*" + "\\)?" + "$") + "\\|//\\)"))) ;; Regexp to append to paragraph-start. -(defvar c-append-paragraph-start "$") -(make-variable-buffer-local 'c-append-paragraph-start) -(defconst c-Java-javadoc-paragraph-start - "\\(@[a-zA-Z]+\\>\\|$\\)") -(defconst c-Pike-pikedoc-paragraph-start - "\\(@[a-zA-Z]+\\>\\([^{]\\|$\\)\\|$\\)") +(c-lang-defconst paragraph-start + (c c++ objc idl) "$" + java "\\(@[a-zA-Z]+\\>\\|$\\)" ; For Javadoc. + pike "\\(@[a-zA-Z]+\\>\\([^{]\\|$\\)\\|$\\)") ; For Pike refdoc. ;; Regexp to append to paragraph-separate. -(defvar c-append-paragraph-separate "$") -(make-variable-buffer-local 'c-append-paragraph-separate) -(defconst c-Pike-pikedoc-paragraph-separate c-Pike-pikedoc-paragraph-start) - -;; Regexp that starts lambda constructs. -(defvar c-lambda-key nil) -(make-variable-buffer-local 'c-lambda-key) -(defconst c-Pike-lambda-key "\\<lambda\\>") - -;; Regexp that are followed by a statement block in expressions. -(defvar c-inexpr-block-key nil) -(make-variable-buffer-local 'c-inexpr-block-key) -(defconst c-Pike-inexpr-block-key "\\<\\(catch\\|gauge\\)\\>") - -;; Regexp that may be followed by an anonymous class in expressions. -(defvar c-inexpr-class-key nil) -(make-variable-buffer-local 'c-inexpr-class-key) -(defconst c-Java-inexpr-class-key "\\<new\\>") -(defconst c-Pike-inexpr-class-key "\\<class\\>") - -;; List of open- and close-chars that makes up a pike-style brace -;; list, ie for a `([ ])' list there should be a cons (?\[ . ?\]) in -;; this list. -(defvar c-special-brace-lists nil) -(make-variable-buffer-local 'c-special-brace-lists) -(defconst c-Pike-special-brace-lists '((?{ . ?}) - (?\[ . ?\]) - (?< . ?>))) +(c-lang-defconst paragraph-separate + (c c++ objc java idl) "$" + pike (c-lang-var paragraph-start)) + +;; Prefix added to `c-current-comment-prefix' to set +;; `c-opt-in-comment-lc', or nil if it should be nil. +(c-lang-defconst c-in-comment-lc-prefix pike "@[\n\r]\\s *") + +;; Regexp to match in-comment line continuations, or nil in languages +;; where that isn't applicable. It's assumed that it only might match +;; from and including the last character on a line. Built from +;; *-in-comment-lc-prefix and the current value of +;; c-current-comment-prefix. +(c-lang-defvar c-opt-in-comment-lc + (if (c-lang-var c-in-comment-lc-prefix) + (concat (c-lang-var c-in-comment-lc-prefix) + c-current-comment-prefix))) + +(defconst c-init-lang-defvars + ;; Make a lambda of the collected `c-lang-defvar' initializations. + (cc-eval-when-compile + (if (cc-bytecomp-is-compiling) + (byte-compile-lambda `(lambda () ,c-lang-defvar-init-form)) + `(lambda () ,c-lang-defvar-init-form)))) + +(defun c-init-language-vars () + ;; Initialize all `c-lang-defvar' variables according to + ;; `c-buffer-is-cc-mode'. + (if (not (memq c-buffer-is-cc-mode + '(c-mode c++-mode objc-mode java-mode idl-mode pike-mode))) + (error "Cannot initialize language variables for unknown mode %s" + c-buffer-is-cc-mode)) + (funcall c-init-lang-defvars)) + +;; Regexp trying to describe the beginning of a Java top-level +;; definition. This is not used by CC Mode, nor is it maintained +;; since it's practically impossible to write a regexp that reliably +;; matches such a construct. Other tools are necessary. +(defconst c-Java-defun-prompt-regexp + "^[ \t]*\\(\\(\\(public\\|protected\\|private\\|const\\|abstract\\|synchronized\\|final\\|static\\|threadsafe\\|transient\\|native\\|volatile\\)\\s-+\\)*\\(\\(\\([[a-zA-Z][][_$.a-zA-Z0-9]*[][_$.a-zA-Z0-9]+\\|[[a-zA-Z]\\)\\s-*\\)\\s-+\\)\\)?\\(\\([[a-zA-Z][][_$.a-zA-Z0-9]*\\s-+\\)\\s-*\\)?\\([_a-zA-Z][^][ \t:;.,{}()=]*\\|\\([_$a-zA-Z][_$.a-zA-Z0-9]*\\)\\)\\s-*\\(([^);{}]*)\\)?\\([] \t]*\\)\\(\\s-*\\<throws\\>\\s-*\\(\\([_$a-zA-Z][_$.a-zA-Z0-9]*\\)[, \t\n\r\f]*\\)+\\)?\\s-*") ;; Syntax tables. (defun c-populate-syntax-table (table) ;; Populate the syntax TABLE - ;; DO NOT TRY TO SET _ (UNDERSCORE) TO WORD CLASS! (modify-syntax-entry ?_ "_" table) (modify-syntax-entry ?\\ "\\" table) (modify-syntax-entry ?+ "." table) @@ -466,15 +667,7 @@ Otherwise, this variable is nil. I.e. this variable is non-nil for (if c++-mode-syntax-table () (setq c++-mode-syntax-table (make-syntax-table)) - (c-populate-syntax-table c++-mode-syntax-table) - ;; TBD: does it make sense for colon to be symbol class in C++? - ;; I'm not so sure, since c-label-key is busted on lines like: - ;; Foo::bar( i ); - ;; maybe c-label-key should be fixed instead of commenting this out, - ;; but it also bothers me that this only seems appropriate for C++ - ;; and not C. - ;;(modify-syntax-entry ?: "_" c++-mode-syntax-table) - ) + (c-populate-syntax-table c++-mode-syntax-table)) (defvar c++-template-syntax-table nil "A variant of `c++-mode-syntax-table' that defines `<' and `>' as @@ -537,10 +730,6 @@ are parsed.") (defvar c-auto-hungry-string nil) (make-variable-buffer-local 'c-auto-hungry-string) -;; Non-nil means K&R style argument declarations are valid. -(defvar c-recognize-knr-p t) -(make-variable-buffer-local 'c-recognize-knr-p) - (cc-provide 'cc-langs) |