From 3fd77175460aca39ee48ad5c4f2309c47f8a7827 Mon Sep 17 00:00:00 2001 From: xscript Date: Wed, 1 Jun 2011 02:28:30 +0200 Subject: [PATCH] Synchronize cedet/srecode with Emacs. --- test/manual/cedet/cedet/srecode/document.el | 47 +++++++++++++++++++++ 1 file changed, 47 insertions(+) create mode 100644 test/manual/cedet/cedet/srecode/document.el diff --git a/test/manual/cedet/cedet/srecode/document.el b/test/manual/cedet/cedet/srecode/document.el new file mode 100644 index 00000000000..aaa3b39f985 --- /dev/null +++ b/test/manual/cedet/cedet/srecode/document.el @@ -0,0 +1,47 @@ +;;;###autoload +(defun srecode-document-function-comment-extract-test () + "Test old comment extraction. +Dump out the extracted dictionary." + (interactive) + + (srecode-load-tables-for-mode major-mode) + (srecode-load-tables-for-mode major-mode 'document) + + (if (not (srecode-table)) + (error "No template table found for mode %s" major-mode)) + + (let* ((temp (srecode-template-get-table (srecode-table) + "function-comment" + "declaration" + 'document)) + (fcn-in (semantic-current-tag))) + + (if (not temp) + (error "No templates for function comments")) + + ;; Try to figure out the tag we want to use. + (when (or (not fcn-in) + (not (semantic-tag-of-class-p fcn-in 'function))) + (error "No tag of class 'function to insert comment for")) + + (let ((lextok (semantic-documentation-comment-preceeding-tag fcn-in 'lex)) + ) + + (when (not lextok) + (error "No comment to attempt an extraction")) + + (let ((s (semantic-lex-token-start lextok)) + (e (semantic-lex-token-end lextok)) + (extract nil)) + + (pulse-momentary-highlight-region s e) + + ;; Extract text from the existing comment. + (setq extract (srecode-extract temp s e)) + + (with-output-to-temp-buffer "*SRECODE DUMP*" + (princ "EXTRACTED DICTIONARY FOR ") + (princ (semantic-tag-name fcn-in)) + (princ "\n--------------------------------------------\n") + (srecode-dump extract)) + )))) -- 2.39.2