|
0
|
1 ;; c-style.el --- sets c-style control variables.
|
|
|
2 ;; Copyright (C) 1992-1993 Free Software Foundation, Inc.
|
|
|
3
|
|
|
4 ;; This file is part of XEmacs.
|
|
|
5
|
|
|
6 ;; XEmacs is free software; you can redistribute it and/or modify it
|
|
|
7 ;; under the terms of the GNU General Public License as published by
|
|
|
8 ;; the Free Software Foundation; either version 2, or (at your option)
|
|
|
9 ;; any later version.
|
|
|
10
|
|
|
11 ;; XEmacs is distributed in the hope that it will be useful, but
|
|
|
12 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
13 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
|
14 ;; General Public License for more details.
|
|
|
15
|
|
|
16 ;; You should have received a copy of the GNU General Public License
|
|
4
|
17 ;; along with XEmacs; see the file COPYING. If not, write to the
|
|
|
18 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
19 ;; Boston, MA 02111-1307, USA.
|
|
0
|
20 ;;
|
|
|
21 ;; LCD Archive Entry:
|
|
|
22 ;; c-style|Daniel LaLiberte|liberte@cs.uiuc.edu
|
|
|
23 ;; |sets c-style control variables
|
|
|
24 ;; |Thu Feb 27 13:42:57 CST 1992|Version: 2.1|~/as-is/c-src-doc.el.Z
|
|
|
25 ;;
|
|
|
26 ;;; Synched up with: Not in FSF.
|
|
|
27
|
|
|
28 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
29 ;;;
|
|
|
30 ;;; There are several ways to call set-c-style described below.
|
|
|
31 ;;; None of these methods reindent your program - they only affect
|
|
|
32 ;;; new indentation.
|
|
|
33 ;;;
|
|
|
34 ;;; - Just call set-c-style in your c-mode-hook.
|
|
|
35 ;;; Without style argument, default-c-style will be used.
|
|
|
36 ;;; With style argument, this will set the style for every
|
|
|
37 ;;; c-mode buffer the same.
|
|
|
38 ;;;
|
|
|
39 ;;; - Call set-c-style from the Local Variables list.
|
|
|
40 ;;; e.g. "eval:(set-c-style 'C++)"
|
|
|
41 ;;;
|
|
|
42 ;;; - Call set-c-style interactively. It prompts for the style name
|
|
|
43 ;;; with completion using default-c-style.
|
|
|
44 ;;;
|
|
|
45 ;;; For convenience, put one of the following in your .emacs:
|
|
|
46 ;;; (autoload 'set-c-style "c-style" nil t)
|
|
|
47 ;;; or (load "c-style")
|
|
|
48 ;;; =====================================================
|
|
|
49
|
|
|
50 (defvar default-c-style 'GNU
|
|
|
51 "*The default value of c-style. Set this in your .emacs.")
|
|
|
52
|
|
|
53 ;; The following predefined styles are all I know about.
|
|
|
54 ;; If you learn of another style that has a "big" following, please
|
|
|
55 ;; send me the parameters.
|
|
|
56
|
|
|
57 (defvar c-style-alist
|
|
|
58 '((GNU
|
|
|
59 (c-indent-level 2)
|
|
|
60 (c-continued-statement-offset 2)
|
|
|
61 (c-brace-offset 0)
|
|
|
62 (c-argdecl-indent 5)
|
|
|
63 (c-label-offset -2))
|
|
|
64
|
|
|
65 (BSD
|
|
|
66 (c-indent-level 8)
|
|
|
67 (c-continued-statement-offset 8)
|
|
|
68 (c-brace-offset -8)
|
|
|
69 (c-argdecl-indent 8)
|
|
|
70 (c-label-offset -8))
|
|
|
71
|
|
|
72 (K&R
|
|
|
73 (c-indent-level 5)
|
|
|
74 (c-continued-statement-offset 5)
|
|
|
75 (c-brace-offset -5)
|
|
|
76 (c-argdecl-indent 0)
|
|
|
77 (c-label-offset -5))
|
|
|
78
|
|
|
79 (BS ; was C++
|
|
|
80 (c-indent-level 4)
|
|
|
81 (c-continued-statement-offset 4)
|
|
|
82 (c-brace-offset -4)
|
|
|
83 (c-argdecl-indent 4)
|
|
|
84 (c-label-offset -4))
|
|
|
85
|
|
|
86 ;; From Lynn Slater
|
|
|
87 (LRS
|
|
|
88 (c-indent-level 4)
|
|
|
89 (c-continued-statement-offset 4)
|
|
|
90 (c-brace-offset 0)
|
|
|
91 (c-argdecl-indent 4)
|
|
|
92 (c-label-offset -2)
|
|
|
93 (c-auto-newline nil))
|
|
|
94
|
|
|
95 (Plauger
|
|
|
96 (c-indent-level 0)
|
|
|
97 (c-continued-statement-offset 8)
|
|
|
98 (c-continued-brace-offset -8)
|
|
|
99 (c-brace-offset 8)
|
|
|
100 (c-brace-imaginary-offset 0)
|
|
|
101 (c-argdecl-indent 0)
|
|
|
102 (c-label-offset -8)
|
|
|
103 (c-auto-newline t)
|
|
|
104 (c-tab-always-indent t))
|
|
|
105
|
|
|
106 ;; From Jozsef A Toth <jtoth+@pitt.edu>
|
|
|
107 ;; Is this really the Whitesmith style?
|
|
|
108 (Alman
|
|
|
109 (c-argdecl-indent 0)
|
|
|
110 (c-brace-imaginary-offset 2) ;;; ????
|
|
|
111 (c-brace-offset 0)
|
|
|
112 (c-continued-statement-offset 2)
|
|
|
113 (c-indent-level 0)
|
|
|
114 (c-label-offset -2)
|
|
|
115 (c-auto-newline t)
|
|
|
116 (comment-column 40)
|
|
|
117 (tab-width 2)
|
|
|
118 (fill-column '79))
|
|
|
119
|
|
|
120 (Gould
|
|
|
121 (c-indent-level 4)
|
|
|
122 (c-continued-statement-offset 4)
|
|
|
123 (c-brace-offset -4)
|
|
|
124 (c-argdecl-indent 8)
|
|
|
125 (c-label-offset -2)
|
|
|
126 (c-brace-imaginary-offset 0))
|
|
|
127
|
|
|
128 ;; From Joan Eslinger <wombat@kilimanjaro.key.amdahl.com>
|
|
|
129 (WRS
|
|
|
130 (c-indent-level 0)
|
|
|
131 (c-continued-statement-offset 4)
|
|
|
132 (c-brace-offset 0)
|
|
|
133 (c-argdecl-indent 4)
|
|
|
134 (c-label-offset -2)
|
|
|
135 (c-brace-imaginary-offset 4)
|
|
|
136 (c-continued-brace-offset -4))
|
|
|
137 ))
|
|
|
138
|
|
|
139 (defvar c-style nil
|
|
|
140 "The buffer local c-mode indentation style.")
|
|
|
141
|
|
|
142 ;; Add style name to mode line. Assumes minor-mode-alist is not buffer local.
|
|
|
143 ;; Thanks to Joan Eslinger.
|
|
|
144
|
|
|
145 (defvar c-style-name nil
|
|
|
146 "The style name for a c-mode indentation style.
|
|
|
147 This is to be set by set-c-style, and used by the mode line.")
|
|
|
148
|
|
|
149 (or (assq 'c-style-name minor-mode-alist)
|
|
|
150 (setq minor-mode-alist
|
|
|
151 (purecopy
|
|
|
152 (append minor-mode-alist
|
|
|
153 ;; use undocumented feature
|
|
|
154 '((c-style-name c-style-name))))))
|
|
|
155
|
|
|
156 (defun set-c-style (&optional style)
|
|
|
157 "Set up the c-mode style variables from STYLE if it is given, or
|
|
|
158 default-c-style otherwise. It makes the c indentation style variables
|
|
|
159 buffer local."
|
|
|
160
|
|
|
161 (interactive)
|
|
|
162
|
|
|
163 (let ((c-styles (mapcar 'car c-style-alist))) ; for completion
|
|
|
164 (if (interactive-p)
|
|
|
165 (setq style
|
|
|
166 (let ((style-string ; Get style name with completion.
|
|
|
167 (completing-read
|
|
|
168 (format "Set c-mode indentation style to (default %s): "
|
|
|
169 default-c-style)
|
|
|
170 (vconcat c-styles)
|
|
|
171 (function (lambda (arg) (memq arg c-styles)))
|
|
|
172 )))
|
|
|
173 (if (string-equal "" style-string)
|
|
|
174 default-c-style
|
|
|
175 (intern style-string))
|
|
|
176 )))
|
|
|
177
|
|
|
178 ;; If style is nil, use default-c-style.
|
|
|
179 (setq style (or style default-c-style))
|
|
|
180
|
|
|
181 (make-local-variable 'c-style)
|
|
|
182 (if (memq style c-styles)
|
|
|
183 (setq c-style style)
|
|
|
184 (error "Undefined c style: %s" style)
|
|
|
185 )
|
|
|
186 (message "c-style: %s" c-style)
|
|
|
187
|
|
|
188 ;; Set the c-style-name
|
|
|
189 (make-local-variable 'c-style-name)
|
|
|
190 (setq c-style-name (format " %s" c-style))
|
|
|
191
|
|
|
192 ;; Finally, set the indentation style variables making each one local.
|
|
|
193 (mapcar (function (lambda (c-style-pair)
|
|
|
194 (make-local-variable (car c-style-pair))
|
|
|
195 (set (car c-style-pair)
|
|
|
196 (car (cdr c-style-pair)))))
|
|
|
197 (cdr (assq c-style c-style-alist)))
|
|
|
198 c-style
|
|
|
199 ))
|
