[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] scratch/merge-cedet-tests 3fd7717 192/316: Synchronize ced
From: |
Edward John Steere |
Subject: |
[Emacs-diffs] scratch/merge-cedet-tests 3fd7717 192/316: Synchronize cedet/srecode with Emacs. |
Date: |
Fri, 27 Jan 2017 20:03:39 +0000 (UTC) |
branch: scratch/merge-cedet-tests
commit 3fd77175460aca39ee48ad5c4f2309c47f8a7827
Author: xscript <address@hidden>
Commit: Edward John Steere <address@hidden>
Synchronize cedet/srecode with Emacs.
---
test/manual/cedet/cedet/srecode/document.el | 47 +++++++++++++++++++++++++++
1 file changed, 47 insertions(+)
diff --git a/test/manual/cedet/cedet/srecode/document.el
b/test/manual/cedet/cedet/srecode/document.el
new file mode 100644
index 0000000..aaa3b39
--- /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))
+ ))))
- [Emacs-diffs] scratch/merge-cedet-tests 901dc28 119/316: New test file., (continued)
- [Emacs-diffs] scratch/merge-cedet-tests 901dc28 119/316: New test file., Edward John Steere, 2017/01/27
- [Emacs-diffs] scratch/merge-cedet-tests a375d40 093/316: ("cit"): Give it a new name. (Misc): New target., Edward John Steere, 2017/01/27
- [Emacs-diffs] scratch/merge-cedet-tests d2dcc15 112/316: Move tests in cedet/semantic, Edward John Steere, 2017/01/27
- [Emacs-diffs] scratch/merge-cedet-tests 19ff260 128/316: Synchronize cedet/semantic with Emacs., Edward John Steere, 2017/01/27
- [Emacs-diffs] scratch/merge-cedet-tests 64c305b 137/316: Test files contributed by Barry OReilly, Edward John Steere, 2017/01/27
- [Emacs-diffs] scratch/merge-cedet-tests f916b8f 125/316: C/C++: Fix function pointer parsing, Edward John Steere, 2017/01/27
- [Emacs-diffs] scratch/merge-cedet-tests f3a937b 143/316: Test project file., Edward John Steere, 2017/01/27
- [Emacs-diffs] scratch/merge-cedet-tests 377e041 142/316: Move tests in cedet/semantic, Edward John Steere, 2017/01/27
- [Emacs-diffs] scratch/merge-cedet-tests ae78cf0 140/316: Tests: Add ERT test for the C Bovinator, Edward John Steere, 2017/01/27
- [Emacs-diffs] scratch/merge-cedet-tests 0897a28 127/316: Test file for Project.ede proj., Edward John Steere, 2017/01/27
- [Emacs-diffs] scratch/merge-cedet-tests 3fd7717 192/316: Synchronize cedet/srecode with Emacs.,
Edward John Steere <=
- [Emacs-diffs] scratch/merge-cedet-tests 558874e 169/316: Update comments, Edward John Steere, 2017/01/27
- [Emacs-diffs] scratch/merge-cedet-tests db5f56b 172/316: (cedet-integ-test): Post a PASSED message., Edward John Steere, 2017/01/27
- [Emacs-diffs] scratch/merge-cedet-tests 40b4bd4 204/316: Adedd `ede-detect-utest', Edward John Steere, 2017/01/27
- [Emacs-diffs] scratch/merge-cedet-tests 24be9ac 184/316: Insert tag's code if it's there, Edward John Steere, 2017/01/27
- [Emacs-diffs] scratch/merge-cedet-tests 6bd181e 224/316: Move tests in cedet/semantic, Edward John Steere, 2017/01/27
- [Emacs-diffs] scratch/merge-cedet-tests df0e0e6 193/316: Synchronize cedet/srecode with Emacs., Edward John Steere, 2017/01/27
- [Emacs-diffs] scratch/merge-cedet-tests 909e1b9 158/316: (ede-detect-utest-init-dirmatch): Force the dirmatch configdatastash to be unbound to force arduino to flush any cached values., Edward John Steere, 2017/01/27
- [Emacs-diffs] scratch/merge-cedet-tests 50cce19 183/316: Added lib dir and make-type argument, Edward John Steere, 2017/01/27
- [Emacs-diffs] scratch/merge-cedet-tests 82586cd 209/316: eieio: Move to obsolete and use the one that ships with Emacs, Edward John Steere, 2017/01/27
- [Emacs-diffs] scratch/merge-cedet-tests 7eeab10 240/316: (cit-remove-and-do-shared-lib): Enable for use with Make projects too. Create the srcs in a new lib directory., Edward John Steere, 2017/01/27