1 files changed, 68 insertions, 0 deletions
diff --git a/roms/edk2/CryptoPkg/Library/OpensslLib/openssl/krb5/src/util/krb5-batch-reindent.el b/roms/edk2/CryptoPkg/Library/OpensslLib/openssl/krb5/src/util/krb5-batch-reindent.el
new file mode 100644
index 000000000..668c64c85
--- /dev/null
+++ b/roms/edk2/CryptoPkg/Library/OpensslLib/openssl/krb5/src/util/krb5-batch-reindent.el
@@ -0,0 +1,68 @@
+;;; -*- mode: emacs-lisp; indent-tabs-mode: nil -*-
+(if (not noninteractive)
+    (error "to be used only with -batch"))
+;; Avoid vc-mode interference.
+(setq vc-handled-backends nil)
+
+;; for debugging
+(defun report-tabs ()
+  (let ((tab-found (search-forward "\t" nil t)))
+    (if tab-found
+        (message "Tab found @%s." tab-found)
+      (message "No tabs found."))))
+
+(defun whitespace-new ()
+    ;; Sometimes whitespace-cleanup gets its internals confused
+    ;; when whitespace-mode hasn't been activated on the buffer.
+    (let ((whitespace-indent-tabs-mode indent-tabs-mode)
+          (whitespace-style '(empty trailing)))
+      ;; Only clean up tab issues if indent-tabs-mode is explicitly
+      ;; set in the file local variables.
+      (if (local-variable-p 'indent-tabs-mode)
+          (progn
+            (message "Enabling tab cleanups.")
+            (add-to-list 'whitespace-style 'indentation)
+            (add-to-list 'whitespace-style 'space-before-tab)
+            (add-to-list 'whitespace-style 'space-after-tab)))
+;;      (message "indent-tabs-mode=%s" indent-tabs-mode)
+      (message "Cleaning whitespace...")
+      (whitespace-cleanup)))
+
+;; Old style whitespace.el uses different variables.
+(defun whitespace-old ()
+  (let (whitespace-check-buffer-indent
+        whitespace-check-buffer-spacetab)
+    (if (local-variable-p 'indent-tabs-mode)
+        (progn
+          (message "Enabling tab cleanups.")
+          (setq whitespace-check-buffer-indent indent-tabs-mode)
+          (setq whitespace-check-buffer-spacetab t)))
+    (message "Cleaning whitespace...")
+    (whitespace-cleanup)))
+
+(while command-line-args-left
+  (let ((filename (car command-line-args-left))
+        ;; No backup files; we have version control.
+        (make-backup-files nil))
+    (find-file filename)
+    (message "Read %s." filename)
+
+    (if (not indent-tabs-mode)
+        (progn
+          (message "Untabifying...")
+          (untabify (point-min) (point-max))))
+
+    ;; Only reindent if the file C style is guessed to be "krb5".
+    ;; Note that krb5-c-style.el already has a heuristic for setting
+    ;; the C style if the file has "c-basic-offset: 4;
+    ;; indent-tabs-mode: nil".
+    (if (equal c-indentation-style "krb5")
+        (c-indent-region (point-min) (point-max)))
+
+    (if (fboundp 'whitespace-newline-mode)
+        (whitespace-new)
+      (whitespace-old))
+
+    (save-buffer)
+    (kill-buffer nil)
+    (setq command-line-args-left (cdr command-line-args-left))))