+++ /dev/null
-;;
-;; OpenBSD KNF style - batch style converter
-;;
-;; Copyright (c) 2014,2015 Doug Hogan <doug@openbsd.org>
-;; Copyright (c) 2005 Nicholas Marriott <nicm@openbsd.org>
-;; Copyright (c) 2022 Vincent Bernat
-;;
-;; Permission to use, copy, modify, and distribute this software for any
-;; purpose with or without fee is hereby granted, provided that the above
-;; copyright notice and this permission notice appear in all copies.
-;;
-;; THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
-;; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
-;; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
-;; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
-;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
-;; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
-;; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
-
-;; The OpenBSD KNF style is from https://github.com/hogand/openbsd-knf-emacs
-
-;; This function is from nicm@
-(defun openbsd-knf-space-indent (langelem)
- "Indents either 4 spaces or none.
-
-This function is from nicm@ and also in gsoares@'s config.
-Most useful with c-offset-alist entries that are lists such as
-arglist-cont-nonempty"
- (save-excursion
- (goto-char (cdr langelem))
- (setq syntax (car (car (c-guess-basic-syntax))))
- (while (or (eq syntax 'arglist-intro)
- (or (eq syntax 'arglist-cont)
- (eq syntax 'arglist-cont-nonempty)))
- (forward-line -1)
- (setq syntax (car (car (c-guess-basic-syntax)))))
- (beginning-of-line)
- (re-search-forward "[^ \t]" (c-point 'eol))
- (goto-char (+ (match-beginning 0) 4))
- (vector (current-column))))
-
-;; OpenBSD KNF that doug@ uses.
-(defconst openbsd-knf-style
- '(
- ;; Debugging
- ;; (c-echo-syntactic-information-p . t) ;; display C-c C-s when hit 'tab'
- ;;
- ;; General settings that should be enabled in c-mode
- (indent-tabs-mode . t) ;; use tabs whenever feasible
- (fill-column . 80) ;; Assume KNF tries to maintain 80 char lines
- (show-trailing-whitespace . t) ;; KNF says to not have trailing WS
- (tab-width . 8) ;; When displaying literal tab, show 8 spaces
- ;; c-mode
- (c-progress-interval . 1) ;; display progress meter during long indents
- (c-basic-offset . 8) ;; KNF uses 8 space tabs
- (c-comment-only-line-offset . 0) ;; don't indent comments extra
- (c-backspace-function . delete-backward-char)
- (c-delete-function . delete-char)
- (c-syntactic-indentation-in-macros . t) ;; indent inside macro defs
- (c-tab-always-indent . t) ;; indent line: Use C-q 'tab' to insert literal
- (c-continued-statement-offset 0)
- ;; (c-electric-flag . nil) ;; if you don't like auto-indent
- (c-electric-continued-statement . t)
- ;;
- (c-indent-comments-syntactically-p . nil)
- ;;
- ;; Offsets for the various c-mode symbols. Offsets are sometimes based
- ;; upon other offsets. For instance, arglist-intro is the 1st argument
- ;; line. If you define arglist-cont, it uses arglist-intro plus that.
- ;; c-echo-syntactic-information-p is your friend when debugging indents.
- ;;
- ;; [N] means absolute column. All the others are relative.
- ;; 0 = no extra indentation. For literal column 0, use [0]
- ;; N = extra N spaces. For literal column N, use [N]
- ;; ++ = c-basic-offset * 2
- ;; -- = c-basic-offset * -2
- ;; + = c-basic-offset * 1
- ;; - = c-basic-offset * -1
- ;; * = c-basic-offset * 0.5
- ;; / = c-basic-offset * -0.5
- (c-offsets-alist . (
- ;; Literal symbols
- (func-decl-cont . 0) ; C++ style func mod
- (block-open . 0) ; '{' for block
- (label . [1]) ; goto label in column 1
- (comment-intro . 0) ; C comment
- (cpp-macro . [0]) ; #define in column 0
- ;; Multiline macro symbols
- (cpp-define-intro . [0]) ; first list = column 0
- (cpp-macro-cont . +) ; add'l lines in macro
- ;; Function symbols
- (defun-open . 0) ; '{' alone for func
- (defun-close . 0) ; '}' alone for func
- (defun-block-intro . +) ; first line of func
- (topmost-intro . 0) ; outermost part
- (topmost-intro-cont . 0) ; outermost part cont
- (statement . 0) ; func stmt (already off)
- ;; XXX statement-cont should be 4 unless
- ;; it is part of a macro, then 8.
- (statement-cont . *) ; continue stmt
- ;; Class symbols. XXX Should add support since there
- ;; is a little C++ in the tree (GNU)
- ;; Java
- ;; K&R
- (knr-argdecl-intro . +) ; rare K&R (from KNF)
- (knr-argdecl . 0) ; add'l indent for rest
- ;; Conditional construct symbols
- (block-close . 0) ; '}' for block
- (statement-block-intro . +) ; stmt in loop/cond
- (substatement . +) ; non-braced stmt if()
- (substatement-open . 0) ; '{' in loop/cond
- (substatement-label . [1]) ; goto label in loop/cond
- (do-while-closure . 0) ; 'while' alone in 'do'
- (else-clause . 0) ; 'else' when not nested
- ;; Brace list symbols
- (brace-list-close . 0) ; enum/agg list close
- (brace-list-intro . +) ; 1st line of enum/agg
- (brace-list-entry . 0) ; add'l indent for entries
- (brace-list-open . 0) ; enum/agg init open
- ;; Switch statement symbols
- (statement-case-open . +) ; '{' in case
- (statement-case-intro . +) ; 1st line in case stmt
- (case-label . 0) ; case label in switch
- ;; Paren list symbols
- ;; XXX This is typically a list so need to handle it
- ;; differently from the rest. Emacs adds the indents.
- (arglist-intro . openbsd-knf-space-indent) ; 1st line
- (arglist-cont . openbsd-knf-space-indent)
- (arglist-cont-nonempty . openbsd-knf-space-indent)
- (arglist-close . 0) ; ')' alone
- ;; External scope symbols
- (extern-lang-open . [0]) ; '{' alone in 'extern C'
- (extern-lang-close . [0]) ; '}' alone in 'extern C'
- (inextern-lang . +) ; lines inside 'extern C'
- ;; Statement block
- (inexpr-statement . +))) ; gcc extension stmt expr
- ;; If not specified, the default is "before after". All variables are
- ;; defined here.
- (c-hanging-braces-alist . (
- ;; All variables
- (defun-open before after) ; function, enum
- (defun-close before after) ; function
- (class-open after) ; struct too
- (class-close before after)
- (inline-open after)
- (inline-close before after)
- (block-open after)
- (block-close . c-snug-do-while)
- (statement-cont after)
- (substatement-open after)
- (statement-case-open before after)
- (brace-list-open after)
- (brace-list-close before close)
- (brace-list-intro after)
- (brace-entry-open after)
- (extern-lang-open after)
- (extern-lang-close before after)
- (namespace-open after) ;; C++
- (namespace-close before afetr) ;; C++
- (module-open after) ;; CORBA
- (module-close before after) ;; CORBA
- (composition-open after) ;; CORBA
- (composition-close before after) ;; CORBA
- (inexpr-class-open after)
- (inexpr-class-close before after)
- (arglist-cont-nonempty before after)))
- ;; Whether to auto-insert newline before/after colon
- (c-hanging-colons-alist . ((case-label after)
- (label after)
- (access-label after) ;; C++
- (member-init-intro before)
- (inher-intro)))
- ;; Whether to insert newlines after ';' or ','
- (c-hanging-semi&comma-criteria . (
- ;; supress newline when next line non-blank
- c-semi&comma-no-newlines-before-nonblanks
- ;; suppress newline in paren (for loop etc)
- c-semi&comma-inside-parenlist
- ;; supress newline for one liner
- c-semi&comma-no-newlines-for-oneline-inliners))
- ;; When autonewline mode is enabled, clean up some extra newlines
- (c-cleanup-list . (brace-else-brace ; } else {
- brace-elseif-brace ; } else if {
- brace-catch-brace ; } catch (...) {
- ;; empty-defun-braces ; {} instead of multiple lines
- defun-close-semi ; struct: no \n between '}' and ';'
- list-close-comma ; remove final comma
- scope-operator
- ;; space-before-funcall ; GNU standard
- ;; compact-empty-funcall ; another GNU standard
- ;; comment-close-slash ; term comment with slash
- ))
- ))
-
-(c-add-style "openbsd" openbsd-knf-style)
-(dolist (file command-line-args-left)
- (when (not (eq file "--"))
- (save-excursion
- (find-file file)
- (c-mode)
- (c-set-style "openbsd")
- (indent-region (point-min) (point-max) nil)
- (save-buffer))))
projects / thirdparty / lldpd.git / commitdiff
