(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))