home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / bug-lucid-emacs / text0082.txt < prev    next >
Encoding:
Text File  |  1993-07-04  |  6.3 KB  |  180 lines
  1. In article <9304191814.AA21726@Advent.com>, jduhamel@Advent.com (Joseph Duhamel) writes:
  2. > 
  3. > Using Lemasc-19.6 I am having trouble getting the c++ / c keywords to
  4. > highlight. Is this just me or is anyone else haveing similar problems?
  5. > 
  6.  
  7. Here is my setup that seems to work very nicely. I'd requested c++ font lock
  8. ideas a while back and here is the sum of them.  Note also the bug in
  9. c++-mode.el whereby # is treated as a comment.  Barry says it should be fixed,
  10. but my version still has it.
  11.  
  12. Also note that font-lock-any-extents-p has a bug to do with back-to-back 
  13. extents.  It must be in the font-lock.el file to be any good since it is a 
  14. defsubst (i think).
  15.  
  16. (defsubst font-lock-any-extents-p (start end)
  17.   (catch 'done
  18.     (map-extents (function (lambda (extent ignore)
  19.                  (if (and (eq 'font-lock (extent-data extent))
  20.                       (/= (extent-end-position extent) start))
  21.                  (throw 'done t))))
  22.          (current-buffer) start end nil)
  23.     nil))
  24.  
  25. (defconst c-font-lock-keywords-1 nil
  26.  "For consideration as a value of `c-font-lock-keywords'.
  27. This does fairly subdued highlighting.")
  28.  
  29. (defconst c-font-lock-keywords-2 nil
  30.  "For consideration as a value of `c-font-lock-keywords'.
  31. This does a lot more highlighting.")
  32.  
  33. (defconst c-font-lock-keywords-3 nil
  34.  "For consideration as a value of `c-font-lock-keywords'.
  35. This does a lot more highlighting.")
  36.  
  37. (defconst c++-font-lock-keywords-1 nil
  38.  "For consideration as a value of `c++-font-lock-keywords'.
  39. This does a lot more highlighting.")
  40.  
  41. (let ((storage "auto\\|extern\\|register\\|static\\|volatile\\|const")
  42.       (prefixes "unsigned\\|short\\|long")
  43.       (types (concat "int\\|char\\|float\\|double\\|void\\|struct\\|"
  44.              "union\\|enum\\|typedef"))
  45.       (c++-types "public\\|private\\|protected\\|virtual\\|friend\\|inline")
  46.       (ctoken "\\(\\sw\\|\\s_\\|[~*]\\)+")
  47.       )
  48.   (setq c-font-lock-keywords-1
  49.    (list
  50.      ;; fontify preprocessor directives as comments.
  51.      '("^#[a-z]+" . font-lock-doc-string-face)
  52.  
  53.     ;;
  54.     ;; fontify names being defined.
  55.     '("^#[ \t]*\\(define\\|undef\\)[ \t]+\\(\\(\\sw\\|\\s_\\)+\\)" 2
  56.       font-lock-function-name-face)
  57.     ;;
  58.     ;; fontify other preprocessor lines.
  59.     '("^#[ \t]*\\(if\\|ifn?def\\)[ \t]+\\([^\n]+\\)"
  60.       2 font-lock-function-name-face t)
  61.     ;;
  62.     ;; fontify the filename in #include <...>
  63.     ;; don't need to do this for #include "..." because those were
  64.     ;; already fontified as strings by the syntactic pass.
  65.     '("^#[ \t]*include[ \t]+<\\([^>\"\n]+\\)>" 1 font-lock-string-face)
  66.     ;;
  67.     ;; fontify the names of functions being defined.
  68.     ;; I think this should be fast because it's anchored at bol, but it's not.
  69.     (list (concat
  70.        "^\\(" ctoken "[ \t]+\\)?"    ; type specs; there can be no
  71.        "\\(" ctoken "[ \t]+\\)?"    ; more than 3 tokens, right?
  72.        "\\(" ctoken "[ \t]+\\)?"
  73.        "\\(\\*+[ \t]*\\)?"        ; pointer
  74.        ctoken "[ \t]*(")        ; name
  75.       8 'font-lock-function-name-face)
  76.     ;;
  77.     ;; This is faster but not by much.  I don't see why not.
  78. ;    (list (concat "^" ctoken "[ \t]*(") 1 'font-lock-function-name-face)
  79.     ;;
  80.     ;; Fontify structure names (in structure definition form).
  81.     (list (concat "^\\(typedef[ \t]+struct\\|struct\\|static[ \t]+struct\\)"
  82.           "[ \t]+" ctoken "[ \t]*\\(\{\\|$\\)")
  83.       2 'font-lock-function-name-face)
  84.     ;;
  85.     ;; Fontify case clauses.  This is fast because its anchored on the left.
  86.     '("case[ \t]+\\(\\sw\\|\\s_\\)+:". 1)
  87.     '("\\<\\(default\\):". 1)
  88.     ))
  89.  
  90.   (setq c-font-lock-keywords-2
  91.      (list
  92.      ;;
  93.      ;; fontify all storage classes and type specifiers
  94.      (cons (concat "\\<\\(" storage "\\)\\>") 'font-lock-type-face)
  95.      (cons (concat "\\<\\(" types "\\)\\>") 'font-lock-type-face)
  96.      (cons (concat "\\<\\(" prefixes "[ \t]+" types "\\)\\>")
  97.        'font-lock-type-face)
  98.      ;;
  99.      ;; fontify all builtin tokens
  100.      (cons (concat
  101.         "[ \t]\\("
  102.         (mapconcat 'identity
  103.          '("for" "while" "do" "return" "goto" "case" "break" "switch"
  104.            "if" "then" "else if" "else" "return" "default" "continue"
  105.            "default"
  106.            )
  107.          "\\|")
  108.         "\\)[ \t\n(){};,]")
  109.        1)))
  110.  
  111.   (setq c-font-lock-keywords-3
  112.     (list
  113.      ;;
  114.      ;; fontify case targets and goto-tags.  This is slow because the
  115.      ;; expression is anchored on the right.
  116.      "\\(\\sw\\|\\s_\\)+:"
  117.  
  118.      ;;
  119.      ;; Fontify variables declared with structures, or typedef names.
  120.      '("}[ \t*]*\\(\\sw\\|\\s_\\)+[ \t]*[,;]" 1 font-lock-function-name-face)
  121.      ;;
  122.      ;; Fontify global variables without a type.
  123.      '("^\\([_a-zA-Z0-9:~*]+\\)[ \t]*[[;={]" 1 font-lock-function-name-face)
  124.  
  125.      ))
  126. (setq c++-font-lock-keywords-1
  127.       (list
  128.        ;;
  129.        ;; fontify extra c++ storage classes and type specifiers
  130.        (cons (concat "\\<\\(" c++-types "\\)\\>") 'font-lock-type-face)
  131.  
  132.        ;;special check for class
  133.        '("^\\(\\<\\|template[ \t]+<[ \t]*\\)\\(class\\)[ \t\n]+" 2 font-lock-type-face)
  134.  
  135.        ;; fonify the class names only in the definition
  136.        (list (concat "^class[ \t]+" ctoken "[ \t\n{: ;]") 1 'font-lock-function-name-face)
  137.  
  138.        (list (concat
  139.           "^\\(" ctoken "[ \t]+\\)?" ; type specs; there can be no
  140.           "\\(" ctoken "[ \t]+\\)?" ; more than 3 tokens, right?
  141.           "\\(" ctoken "[ \t]+\\)?"
  142.           "\\(\\*+[ \t]*\\)?"    ; pointer
  143.           "\\(" ctoken "\\(::\\)?~?\\(\\(operator[ \t]*[^ \ta-zA-Z]+\\)\\|" ctoken "\\)\\)[ \t]*(") ; name
  144.          8 'font-lock-function-name-face t)
  145.  
  146.        ;; special handling of template
  147.        "^\\(template\\)\\>"
  148.        ;; fontify extra c++ builtin tokens
  149.        (cons (concat
  150.           "[ \t]\\("
  151.           (mapconcat 'identity
  152.              '("asm" "catch" "throw" "try" "delete" "new" "operator"
  153.                "sizeof" "this"
  154.                )
  155.              "\\|")
  156.           "\\)[ \t\n(){};,]")
  157.          1)
  158.        ))
  159.   
  160. )
  161.  
  162. (defvar c-font-lock-keywords (append c-font-lock-keywords-1
  163.                      c-font-lock-keywords-2)
  164.   "Additional expressions to highlight in C mode.")
  165.  
  166. (defvar c++-font-lock-keywords (append c-font-lock-keywords-1
  167.                      c-font-lock-keywords-2
  168.                      c++-font-lock-keywords-1)
  169.   "Additional expressions to highlight in C++ mode.")
  170.  
  171. -- 
  172. -------------------------------------------------------------------------------
  173. | Tibor L. Polgar    |  (408) 746-8649     | tlp00@climb.ras.amdahl.com
  174. | Amdahl Corporation
  175. | 1250 East Arques Avenue (M/S 148)
  176. | P.O. Box 3470
  177. | Sunnyvale, CA 94088-3470
  178. -------------------------------------------------------------------------------
  179.  
  180.