Added semantic backend.

diff --git a/company-semantic.el b/company-semantic.el
new file mode 100644 (file)
index 0000000..0b4906c
--- /dev/null
+++ b/company-semantic.el
@@ -0,0 +1,24 @@
+(require 'company)
+(require 'semantic-ia)
+(eval-when-compile (require 'cl))
+
+(defvar company-semantic-context-regexp
+  "\\(->\\|\\.\\|\\_<\\)\\(\\(\\s_\\|\\sw\\)+\\_>\\=\\)")
+
+(defsubst company-semantic-completions (prefix)
+  (ignore-errors
+    (let ((completion-ignore-case nil)
+          (context (semantic-analyze-current-context)))
+      (all-completions prefix (semantic-ia-get-completions context (point))))))
+
+(defun company-semantic (command &optional arg &rest ignored)
+  (case command
+    ('prefix (and (memq major-mode '(c-mode c++-mode jde-mode java-mode))
+                  (not (company-in-string-or-comment))
+                  (or (company-grab company-semantic-context-regexp 2) "")))
+    ('candidates (or (company-semantic-completions arg)
+                     (mapcar 'semantic-tag-name
+                             (semantic-analyze-find-tags-by-prefix arg))))))
+
+(provide 'company-semantic)
+;;; company-semantic.el ends here

diff --git a/company.el b/company.el
index 4a67cb53f313483a7add0897dd9bdbcd76caee52..b2a4582adbfd8bb30ae63ee34eba079ca1a8bac2 100644 (file)
--- a/company.el
+++ b/company.el
@@ -94,7 +94,7 @@
                          (function :tag "custom function" nil))))
 
 (defcustom company-backends '(company-elisp company-nxml company-css
-                              company-ispell)
+                              company-semantic company-ispell)
   "*"
   :group 'company
   :type '(repeat (function :tag "function" nil)))