diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Makefile.in | 17 | ||||
| -rw-r--r-- | src/util/krb5-mark-cstyle.el | 28 |
2 files changed, 45 insertions, 0 deletions
diff --git a/src/Makefile.in b/src/Makefile.in index 758f55eca1..f528472d52 100644 --- a/src/Makefile.in +++ b/src/Makefile.in @@ -665,3 +665,20 @@ reindent:: -print0 | $(XARGS) -0 $(EMACS) -q -batch \ -l $(SRCTOP)/util/krb5-c-style.el \ -l $(SRCTOP)/util/krb5-batch-reindent.el + +mark-cstyle:: + $(FIND) $(SRCTOP) \( \ + -path $(SRCTOP)/appl/bsd -o \ + -path $(SRCTOP)/appl/gssftp -o \ + -path $(SRCTOP)/appl/telnet -o \ + -path $(SRCTOP)/include/gssrpc -o \ + -path $(SRCTOP)/lib/crypto/krb/yarrow -o \ + -path $(SRCTOP)/lib/rpc -o \ + -path $(SRCTOP)/plugins/kdb/db2/libdb2 -o \ + -path $(SRCTOP)/lib/krb5/unicode -o \ + -path $(SRCTOP)/windows/wintel \ + \) -prune -o \ + -name '*.[ch]' \ + -print0 | $(XARGS) -0 $(EMACS) -q -batch \ + -l $(SRCTOP)/util/krb5-c-style.el \ + -l $(SRCTOP)/util/krb5-mark-cstyle.el -cstyle-krb5 diff --git a/src/util/krb5-mark-cstyle.el b/src/util/krb5-mark-cstyle.el new file mode 100644 index 0000000000..444b18981a --- /dev/null +++ b/src/util/krb5-mark-cstyle.el @@ -0,0 +1,28 @@ +;;; -*- mode: emacs-lisp; indent-tabs-mode: nil -*- +(if (not noninteractive) + (error "to be used only with -batch")) + +(defvar bsd-style nil) +(defvar krb5-style nil) + +(push '("-cstyle-bsd" . (lambda (ignored) (setq bsd-style t))) command-switch-alist) +(push '("-cstyle-krb5" . (lambda (ignored) (setq krb5-style t))) command-switch-alist) + +;; Avoid vc-mode interference. +(setq vc-handled-backends nil) +(while command-line-args-left + (let ((filename (car command-line-args-left)) + (error nil) + ;; No backup files? + (make-backup-files nil)) + (find-file filename) + + (goto-char (point-min)) + (if (looking-at "\\s-*/\\*\\s-*-\\*-.*-\\*-\\s-*\\*/\\s-*\n") + (delete-region (match-beginning 0) (match-end 0))) + (if bsd-style + (insert "/* -*- mode: c; c-file-style: \"bsd\"; indent-tabs-mode: t -*- */\n") + (insert "/* -*- mode: c; c-basic-offset: 4; indent-tabs-mode: nil -*- */\n")) + (save-buffer) + (kill-buffer) + (setq command-line-args-left (cdr command-line-args-left)))) |