(defun insert-uml-class-begin (name)
(insert "\n"))
(defun insert-uml-class-end ()
(insert "\n"))
(defun insert-uml-stereotype (stereotype)
(insert "\n")
(insert " \n")
(insert "\n"))
(defun insert-uml-taggedvalue (value type)
(insert " \n")
(insert " \n")
(insert " " value "\n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n"))
(defun insert-uml-attribute (type name offset bits mask shift comment attrid)
(insert "\n")
(insert " \n")
(insert-uml-taggedvalue comment "comment")
(insert-uml-taggedvalue offset "offset")
(insert-uml-taggedvalue bits "bits")
(insert-uml-taggedvalue mask "mask")
(insert-uml-taggedvalue shift "shift")
(insert-uml-taggedvalue attrid "attrid")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert "\n"))
(defun insert-uml-attribute-array (type arraycount name offset bits mask shift comment attrid)
(insert "\n")
(insert " \n")
(insert-uml-taggedvalue comment "comment")
(insert-uml-taggedvalue offset "offset")
(insert-uml-taggedvalue bits "bits")
(insert-uml-taggedvalue mask "mask")
(insert-uml-taggedvalue shift "shift")
(insert-uml-taggedvalue attrid "attrid")
(insert-uml-taggedvalue arraycount "arraycount")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert "\n"))
(defun insert-uml-operation (type name comment opid)
(insert "\n")
(insert " \n")
(insert-uml-taggedvalue opid "opid")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert "\n"))
(defun insert-uml-binary (name comment opid)
(insert "\n")
(insert " \n")
(insert-uml-taggedvalue opid "opid")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert "\n"))
(defun insert-uml-operation-array (type name comment opid)
(insert "\n")
(insert " \n")
(insert-uml-taggedvalue opid "opid")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert "\n"))
(defun insert-uml-generalization (parent child)
(insert "\n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert " \n")
(insert "\n"))
(defun insert-uml-sprm (name sprmcode kind)
(insert-uml-class-begin name)
(insert-uml-stereotype "ww8sprm")
(insert-uml-taggedvalue sprmcode "sprmcode")
(insert-uml-taggedvalue (concat "rtf:" name) "sprmid")
(insert-uml-taggedvalue kind "kind")
(insert-uml-class-end))