-;;; tag-write.el --- Write tags to a text stream
+;;; semantic/tag-write.el --- Write tags to a text stream
-;; Copyright (C) 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2008-2012 Free Software Foundation, Inc.
;; Author: Eric M. Ludlam <eric@siege-engine.com>
;; to share tags between processes as well.
;;
;; As a bonus, these routines will also validate the tag structure, and make sure
-;; that they conform to good semantic tag hygene.
+;; that they conform to good semantic tag hygiene.
;;
-(require 'semantic/tag)
+(require 'semantic)
;;; Code:
(defun semantic-tag-write-one-tag (tag &optional indent)
(princ str)))))
)
;;; EIEIO USAGE
+;;;###autoload
(defun semantic-tag-write-list-slot-value (value)
"Write out the VALUE of a slot for EIEIO.
The VALUE is a list of tags."
(semantic-tag-write-tag-list value 10 t)
))
-;;; TESTING.
-
-(defun semantic-tag-write-test ()
- "Test the semantic tag writer against the tag under point."
- (interactive)
- (with-output-to-temp-buffer "*Tag Write Test*"
- (semantic-tag-write-one-tag (semantic-current-tag))))
-
-(defun semantic-tag-write-list-test ()
- "Test the semantic tag writer against the tag under point."
- (interactive)
- (with-output-to-temp-buffer "*Tag Write Test*"
- (semantic-tag-write-tag-list (semantic-fetch-tags))))
+(provide 'semantic/tag-write)
+;; Local variables:
+;; generated-autoload-file: "loaddefs.el"
+;; generated-autoload-load-name: "semantic/tag-write"
+;; End:
-(provide 'semantic/tag-write)
-;;; semantic-tag-write.el ends here
+;;; semantic/tag-write.el ends here