;;; semantic/tag-write.el --- Write tags to a text stream
-;; Copyright (C) 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2008-2016 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)
(signal 'wrong-type-argument (list tag 'semantic-tag-p)))
(when (not indent) (setq indent 0))
;(princ (make-string indent ? ))
- (princ "(\"")
+ (princ "(")
;; Base parts
(let ((name (semantic-tag-name tag))
(class (semantic-tag-class tag)))
- (princ name)
- (princ "\" ")
+ (prin1 name)
+ (princ " ")
(princ (symbol-name class))
)
(let ((attr (semantic-tag-attributes tag))
(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