diff options
| author | Tom Yu <tlyu@mit.edu> | 2009-10-28 19:56:19 +0000 |
|---|---|---|
| committer | Tom Yu <tlyu@mit.edu> | 2009-10-28 19:56:19 +0000 |
| commit | 6cb857e034830a2c17bcb9af881217dd8d7d93bc (patch) | |
| tree | 85bb216a51eec4716132f8085937f26ece6c3c6b /src/util | |
| parent | 83c40776396c2c79a1f3a582cb1be6872b871be5 (diff) | |
New elisp file to mark C styles in files. New top-level Makefile
target "make mark-cstyle". The exception list is not final; it's just
a starting point for discussion.
git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@23082 dc483132-0cff-0310-8789-dd5450dbe970
Diffstat (limited to 'src/util')
| -rw-r--r-- | src/util/krb5-mark-cstyle.el | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/src/util/krb5-mark-cstyle.el b/src/util/krb5-mark-cstyle.el new file mode 100644 index 000000000..444b18981 --- /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)))) |