summaryrefslogtreecommitdiff
path: root/lisp/cedet/semantic/analyze.el
diff options
context:
space:
mode:
authorChong Yidong <cyd@stupidchicken.com>2009-09-13 15:58:30 +0000
committerChong Yidong <cyd@stupidchicken.com>2009-09-13 15:58:30 +0000
commita964f5e552c64a53fb4b5c417f1825807cdcca6f (patch)
tree8709f2b8c145118620e7c3f0efb840de37a4ccbe /lisp/cedet/semantic/analyze.el
parent0a3b3f9e131bc5f0cf8034326d14d7737a6162b3 (diff)
downloademacs-a964f5e552c64a53fb4b5c417f1825807cdcca6f.tar.gz
emacs-a964f5e552c64a53fb4b5c417f1825807cdcca6f.tar.bz2
emacs-a964f5e552c64a53fb4b5c417f1825807cdcca6f.zip
Synch to Eric M. Ludlam's upstream CEDET repository.
* cedet/semantic/wisent/java-tags.el: * cedet/semantic/wisent/javat-wy.el: New files. * cedet/semantic/wisent/java.el: * cedet/semantic/wisent/java-wy.el: Files removed. * cedet/semantic/java.el (semantic-java-prototype-function) (semantic-java-prototype-variable, semantic-java-prototype-type): Doc fix (java-mode::semantic-format-tag-prototype): Renamed from semantic-format-prototype-tag, which didn't match the overloadable function. * cedet/semantic/bovine/c.el (semantic-c-dereference-namespace-alias): Deal correctly with nested namespaces. Make sure type actually exists in original namespace. * cedet/semantic/lex-spp.el (semantic-lex-spp-hack-depth): New. (semantic-lex-spp-lex-text-string): Use above to enable recursion. * cedet/semantic/format.el: Whitespace cleanup. (semantic-test-all-format-tag-functions): Move to end. (semantic-format-tag-prototype, semantic-format-tag-name) (semantic-format-tag-name-default): Revert to original upstream positions. * cedet/semantic/elp.el: File removed. * cedet/semantic/analyze.el (semantic-adebug-analyze): New function, moved here from semantic/adebug. * cedet/semantic/adebug.el: Declare external semanticdb functions. (semantic-adebug-analyze, semantic-adebug-edebug-expr): Deleted. * emacs-lisp/eieio.el (eieio-unbound): Default value is now robust to recompile. * emacs-lisp/eieio-datadebug.el: Add eieio objects to the list of data debug things to recognize. * emacs-lisp/eieio-comp.el: Synch to upstream. * cedet/data-debug.el: Don't require eieio and semantic/tag. If eieio is loaded, require eieio-datadebug. (data-debug-insert-ring-button): Do not be specific about the ring contents. (data-debug-thing-alist): Remove eieio and semantic specific entries. (data-debug-add-specialized-thing): New function. * cedet/cedet.el: Update commentary. * cedet/cedet-edebug.el: Require edebug and debug.
Diffstat (limited to 'lisp/cedet/semantic/analyze.el')
-rw-r--r--lisp/cedet/semantic/analyze.el20
1 files changed, 20 insertions, 0 deletions
diff --git a/lisp/cedet/semantic/analyze.el b/lisp/cedet/semantic/analyze.el
index 2beb41319ea..7d8143e3a69 100644
--- a/lisp/cedet/semantic/analyze.el
+++ b/lisp/cedet/semantic/analyze.el
@@ -675,6 +675,26 @@ Returns an object based on symbol `semantic-analyze-context'."
context-return))
+(defun semantic-adebug-analyze (&optional ctxt)
+ "Perform `semantic-analyze-current-context'.
+Display the results as a debug list.
+Optional argument CTXT is the context to show."
+ (interactive)
+ (let ((start (current-time))
+ (ctxt (or ctxt (semantic-analyze-current-context)))
+ (end (current-time)))
+ (if (not ctxt)
+ (message "No Analyzer Results")
+ (message "Analysis took %.2f seconds."
+ (semantic-elapsed-time start end))
+ (semantic-analyze-pulse ctxt)
+ (if ctxt
+ (progn
+ (data-debug-new-buffer "*Analyzer ADEBUG*")
+ (data-debug-insert-object-slots ctxt "]"))
+ (message "No Context to analyze here.")))))
+
+
;;; DEBUG OUTPUT
;;
;; Friendly output of a context analysis.