1 ;;; cc-compat.el --- cc-mode compatibility with c-mode.el confusion
3 ;; Copyright (C) 1985,1987,1992-2003, 2004, 2005, 2006 Free Software
6 ;; Authors: 1998- Martin Stjernholm
7 ;; 1994-1999 Barry A. Warsaw
8 ;; Maintainer: bug-cc-mode@gnu.org
9 ;; Created: August 1994, split from cc-mode.el
10 ;; Version: See cc-mode.el
11 ;; Keywords: c languages oop
13 ;; This file is part of GNU Emacs.
15 ;; GNU Emacs is free software; you can redistribute it and/or modify
16 ;; it under the terms of the GNU General Public License as published by
17 ;; the Free Software Foundation; either version 2, or (at your option)
20 ;; GNU Emacs is distributed in the hope that it will be useful,
21 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
22 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
23 ;; GNU General Public License for more details.
25 ;; You should have received a copy of the GNU General Public License
26 ;; along with this program; see the file COPYING. If not, write to
27 ;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
28 ;; Boston, MA 02110-1301, USA.
32 ;; Boring old c-mode.el (BOCM) is confusion and brain melt. cc-mode.el
33 ;; is clarity of thought and purity of chi. If you are still unwilling
34 ;; to accept enlightenment, this might help, or it may prolong your
37 ;; To use, add the following to your c-mode-hook:
39 ;; (require 'cc-compat)
40 ;; (c-set-style "BOCM")
42 ;; This file is completely unsupported! Although it has been patched
43 ;; superficially to keep pace with the rest of CC Mode, it hasn't been
44 ;; tested for a long time.
50 (if (and (boundp 'byte-compile-dest-file
)
51 (stringp byte-compile-dest-file
))
52 (cons (file-name-directory byte-compile-dest-file
) load-path
)
54 (load "cc-bytecomp" nil t
)))
58 (cc-require 'cc-styles
)
59 (cc-require 'cc-engine
)
62 ;; In case c-mode.el isn't loaded
63 (defvar c-indent-level
2
64 "*Indentation of C statements with respect to containing block.")
65 ;;;###autoload(put 'c-indent-level 'safe-local-variable 'integerp)
67 (defvar c-brace-imaginary-offset
0
68 "*Imagined indentation of a C open brace that actually follows a statement.")
69 (defvar c-brace-offset
0
70 "*Extra indentation for braces, compared with other text in same context.")
71 (defvar c-argdecl-indent
5
72 "*Indentation level of declarations of C function arguments.")
73 (defvar c-label-offset -
2
74 "*Offset of C label lines and case statements relative to usual indentation.")
75 (defvar c-continued-statement-offset
2
76 "*Extra indent for lines not starting new statements.")
77 (defvar c-continued-brace-offset
0
78 "*Extra indent for substatements that start with open-braces.
79 This is in addition to c-continued-statement-offset.")
83 ;; these offsets are taken by brute force testing c-mode.el, since
84 ;; there's no logic to what it does.
85 (let* ((offsets '(c-offsets-alist .
86 ((defun-block-intro . cc-block-intro-offset
)
87 (statement-block-intro . cc-block-intro-offset
)
90 (inline-open . c-brace-offset
)
91 (block-open . c-brace-offset
)
92 (block-close . cc-block-close-offset
)
93 (brace-list-open . c-brace-offset
)
94 (substatement-open . cc-substatement-open-offset
)
95 (substatement . c-continued-statement-offset
)
96 (knr-argdecl-intro . c-argdecl-indent
)
97 (case-label . c-label-offset
)
98 (access-label . c-label-offset
)
99 (label . c-label-offset
)
101 (c-add-style "BOCM" offsets
))
104 (defun cc-block-intro-offset (langelem)
105 ;; taken directly from calculate-c-indent confusion
107 (c-backward-syntactic-ws)
108 (if (eq (char-before) ?
{)
110 (goto-char (cdr langelem
)))
111 (let* ((curcol (save-excursion
112 (goto-char (cdr langelem
))
115 ;; If no previous statement, indent it relative to line
116 ;; brace is on. For open brace in column zero, don't let
117 ;; statement start there too. If c-indent-level is zero,
118 ;; use c-brace-offset + c-continued-statement-offset
119 ;; instead. For open-braces not the first thing in a line,
120 ;; add in c-brace-imaginary-offset.
121 (+ (if (and (bolp) (zerop c-indent-level
))
122 (+ c-brace-offset c-continued-statement-offset
)
124 ;; Move back over whitespace before the openbrace. If
125 ;; openbrace is not first nonwhite thing on the line,
126 ;; add the c-brace-imaginary-offset.
127 (progn (skip-chars-backward " \t")
128 (if (bolp) 0 c-brace-imaginary-offset
))
129 ;; If the openbrace is preceded by a parenthesized exp,
130 ;; move to the beginning of that; possibly a different
133 (if (eq (char-before) ?\
))
135 ;; Get initial indentation of the line we are on.
136 (current-indentation)))))
137 (- bocm-lossage curcol
))))
140 (defun cc-block-close-offset (langelem)
142 (let* ((here (point))
145 (goto-char (cdr langelem
))
148 (goto-char (cdr langelem
))
149 (if (eq (char-after) ?
{)
155 (c-forward-syntactic-ws))
157 (- bocm-lossage curcol
158 (if bracep
0 c-indent-level
)))))
161 (defun cc-substatement-open-offset (langelem)
162 (+ c-continued-statement-offset c-continued-brace-offset
))
165 (cc-provide 'cc-compat
)
167 ;;; arch-tag: 564dab2f-e6ad-499c-a4a3-fedec3ecc192
168 ;;; cc-compat.el ends here