* misc/ruby-style.el: new file. C/C++ style for ruby source code.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@12221 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 36 insertions, 0 deletions

diff --git a/misc/ruby-style.el b/misc/ruby-style.el
new file mode 100644
index 0000000000..1768789470
--- /dev/null
+++ b/misc/ruby-style.el
@@ -0,0 +1,36 @@
+;;; -*- emacs-lisp -*-
+;;; C/C++ mode style for Ruby.
+
+(defun ruby-style-case-indent (x)
+  (save-excursion
+    (goto-char (cdr x))
+    (if (looking-at "\\<case\\|default\\>")
+	(- c-basic-offset
+	   (% (current-column) c-basic-offset)))))
+
+(require 'cc-styles)
+(c-add-style
+ "ruby"
+ '("bsd"
+   (c-basic-offset . 4)
+   (c-offsets-alist
+    (case-label . *)
+    (label . *)
+    (statement-case-intro . *)
+    (statement-case-open . *)
+    (statement-block-intro . (ruby-style-case-indent +))
+    (access-label /)
+    )))
+
+(defun ruby-style-c-mode ()
+  (interactive)
+  (if (or (string-match "/ruby\\>" (buffer-file-name))
+          (save-excursion
+            (goto-char (point-min))
+            (let ((head (progn (forward-line 100) (point)))
+                  (case-fold-search nil))
+              (goto-char (point-min))
+              (re-search-forward "Copyright (C) .* Yukihiro Matsumoto" head t))))
+      (setq c-file-style "ruby")))
+
+(provide 'ruby-style)