progmodes cc: addition of builtin def-const

["Vincent Belaïche" <vincent.b.1@hotmail.fr>]

[-- Attachment #1: Type: text/plain, Size: 612 bytes --]

Hello,

DXL has a number of language specific functions which I think would be
better to fontify like builtins, similar to what is done in AWK.

On the other hand DXL is more typed than AWK, so the 3 level
fontification of cc-fonts.el is better to use than do a specific
fontification like in AWK mode.

In order to achieve this goal of reusing cc-fonts, I propose the
addition of a new lang constant c-builtin-kwds. This allows the
dxl-mode.el which I am elaborating to plug more readily on EMACS CC
progmode.

If nobody objects I would commit the change the patch thereof is herein
attached.

VBR,
  Vincent.


[-- Attachment #2: cc-builtin.diff --]
[-- Type: text/x-patch, Size: 2114 bytes --]

=== modified file 'lisp/ChangeLog'
--- lisp/ChangeLog	2012-12-03 17:23:42 +0000
+++ lisp/ChangeLog	2012-12-03 19:55:20 +0000
@@ -1,3 +1,12 @@
+2012-12-03  Vincent Belaïche  <vincentb1@users.sourceforge.net>
+
+	* progmodes/cc-fonts.el (c-basic-matchers-before): Use new lang
+	constant `c-builtin-kwds' for handling language specific keyword
+	fontification.
+
+	* progmodes/cc-langs.el (c-builtin-kwds): New lang constant for
+	handling language specific keyword fontification.
+
 2012-12-03  Agustín Martín Domingo  <agustin.martin@hispalinux.es>
 
 	* textmodes/ispell.el (ispell-init-process)

=== modified file 'lisp/progmodes/cc-langs.el'
--- lisp/progmodes/cc-langs.el	2012-09-13 18:41:21 +0000
+++ lisp/progmodes/cc-langs.el	2012-12-03 17:24:59 +0000
@@ -649,6 +649,15 @@
 	 (prefix "::")
 	 (left-assoc ".")))
 
+(c-lang-defconst c-builtin-kwds
+  "Keywords for builtin keywords constants."
+  ;; This is for functions that are not part of a library but builtin in the
+  ;; language. AWK mode does not use this constant but could have done
+  ;; so. Currently this is used only as a hook for languages not yes part of
+  ;; cc-xxx progmode, like DXL.
+  t       nil
+  )
+
 (c-lang-defconst c-opt-identifier-concat-key
   ;; Appendable adorned regexp matching the operators that join
   ;; symbols to fully qualified identifiers, or nil in languages that

=== modified file 'lisp/progmodes/cc-fonts.el'
--- lisp/progmodes/cc-fonts.el	2012-01-19 07:21:25 +0000
+++ lisp/progmodes/cc-fonts.el	2012-12-03 17:26:28 +0000
@@ -763,6 +763,12 @@
 	      `((eval . (list ,(concat "\\<\\(" re "\\)\\>")
 			      1 c-constant-face-name))))))
 
+      ;; Fontify builtins keyword constants.
+      ,@(when (c-lang-const c-builtin-kwds)
+	  (let ((re (c-make-keywords-re nil (c-lang-const c-builtin-kwds))))
+	      `((eval . (list ,(concat "\\<\\(" re "\\)\\>")
+			      1 c-preprocessor-face-name)))))
+
       ;; Fontify all keywords except the primitive types.
       ,(if (c-major-mode-is 'pike-mode)
 	   ;; No symbol is a keyword after "->" in Pike.