writerfilter: remove unused xmigen in doctok

Change-Id: I23110e5ab98068c2e046c6f6539759a1dc6d1191

writerfilter/source/doctok/xmigen.el

-(defun insert-uml-class-begin (name)
-  (insert "<UML:Class xmi.id=\"" name "\" name=\"" name "\">\n"))
-
-(defun insert-uml-class-end ()
-  (insert "</UML:Class>\n"))
-
-(defun insert-uml-stereotype (stereotype)
-  (insert "<UML:ModelElement.stereotype>\n")
-  (insert "  <UML:Stereotype xmi.idref=\"" stereotype "\"/>\n")
-  (insert "</UML:ModelElement.stereotype>\n"))
-
-
-(defun insert-uml-taggedvalue (value type)
-  (insert "    <UML:ModelElement.taggedValue>\n")
-  (insert "      <UML:TaggedValue>\n")
-  (insert "        <UML:TaggedValue.dataValue>" value "</UML:TaggedValue.dataValue>\n")
-  (insert "        <UML:TaggedValue.type>\n")
-  (insert "          <UML:TagDefinition xmi.idref=\"" type "\"/>\n")
-  (insert "        </UML:TaggedValue.type>\n")
-  (insert "      </UML:TaggedValue>\n")
-  (insert "    </UML:ModelElement.taggedValue>\n"))
-  
-(defun insert-uml-attribute (type name offset bits mask shift comment attrid)
-  (insert "<UML:Classifier.feature>\n")
-  (insert "  <UML:Attribute name=\"" name "\">\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:StructuralFeature.type>\n")
-  (insert "      <UML:DataType xmi.idref=\"" type "\"/>\n")
-  (insert "    </UML:StructuralFeature.type>\n")
-  (insert "    <UML:ModelElement.stereotype>\n")
-  (insert "      <UML:Stereotype xmi.idref=\"attribute\"/>\n")
-  (insert "    </UML:ModelElement.stereotype>\n")
-  (insert "  </UML:Attribute>\n")
-  (insert "</UML:Classifier.feature>\n"))
-
-(defun insert-uml-attribute-array (type arraycount name offset bits mask shift comment attrid)
-  (insert "<UML:Classifier.feature>\n")
-  (insert "  <UML:Attribute name=\"" name "\">\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 "    <UML:StructuralFeature.type>\n")
-  (insert "      <UML:DataType xmi.idref=\"" type "\"/>\n")
-  (insert "    </UML:StructuralFeature.type>\n")
-  (insert "    <UML:ModelElement.stereotype>\n")
-  (insert "      <UML:Stereotype xmi.idref=\"array\"/>\n")
-  (insert "    </UML:ModelElement.stereotype>\n")
-  (insert "  </UML:Attribute>\n")
-  (insert "</UML:Classifier.feature>\n"))
-
-(defun insert-uml-operation (type name comment opid)
-  (insert "<UML:Classifier.feature>\n")
-  (insert "  <UML:Operation name=\"" name "\" >\n")
-  (insert-uml-taggedvalue opid "opid")
-  (insert "    <UML:BehavioralFeature.parameter>\n")
-  (insert "      <UML:Parameter kind=\"return\" name=\"return\">\n")
-  (insert "        <UML:Parameter.type>\n")
-  (insert "          <UML:Class xmi.idref=\"" type "\" />\n")
-  (insert "        </UML:Parameter.type>\n")
-  (insert "      </UML:Parameter>\n")
-  (insert "    </UML:BehavioralFeature.parameter>\n")
-  (insert "    <UML:ModelElement.stereotype>\n")
-  (insert "      <UML:Stereotype xmi.idref=\"attribute\" />\n")
-  (insert "    </UML:ModelElement.stereotype>\n")
-  (insert "  </UML:Operation>\n")
-  (insert "</UML:Classifier.feature>\n"))
-
-(defun insert-uml-binary (name comment opid)
-  (insert "<UML:Classifier.feature>\n")
-  (insert "  <UML:Operation name=\"" name "\" >\n")
-  (insert-uml-taggedvalue opid "opid")
-  (insert "    <UML:BehavioralFeature.parameter>\n")
-  (insert "      <UML:Parameter kind=\"return\" name=\"return\">\n")
-  (insert "        <UML:Parameter.type>\n")
-  (insert "          <UML:Class xmi.idref=\"Binary\" />\n")
-  (insert "        </UML:Parameter.type>\n")
-  (insert "      </UML:Parameter>\n")
-  (insert "    </UML:BehavioralFeature.parameter>\n")
-  (insert "    <UML:ModelElement.stereotype>\n")
-  (insert "      <UML:Stereotype xmi.idref=\"binary\" />\n")
-  (insert "    </UML:ModelElement.stereotype>\n")
-  (insert "  </UML:Operation>\n")
-  (insert "</UML:Classifier.feature>\n"))
-
-(defun insert-uml-operation-array (type name comment opid)
-  (insert "<UML:Classifier.feature>\n")
-  (insert "  <UML:Operation name=\"" name "\" >\n")
-  (insert-uml-taggedvalue opid "opid")
-  (insert "    <UML:BehavioralFeature.parameter>\n")
-  (insert "      <UML:Parameter kind=\"return\" name=\"return\">\n")
-  (insert "        <UML:Parameter.type>\n")
-  (insert "          <UML:Class xmi.idref=\"" type "\" />\n")
-  (insert "        </UML:Parameter.type>\n")
-  (insert "      </UML:Parameter>\n")
-  (insert "    </UML:BehavioralFeature.parameter>\n")
-  (insert "    <UML:ModelElement.stereotype>\n")
-  (insert "      <UML:Stereotype xmi.idref=\"array\" />\n")
-  (insert "    </UML:ModelElement.stereotype>\n")
-  (insert "  </UML:Operation>\n")
-  (insert "</UML:Classifier.feature>\n"))
-
-(defun insert-uml-generalization (parent child)
-  (insert "<UML:Generalization isSpecification=\"false\" xmi.id=\"" child "-" parent "\" >\n")
-  (insert "  <UML:Generalization.child>\n")
-  (insert "    <UML:Class xmi.idref=\"" child "\" />\n")
-  (insert "  </UML:Generalization.child>\n")
-  (insert "  <UML:Generalization.parent>\n")
-  (insert "    <UML:Class xmi.idref=\"" parent "\" />\n")
-  (insert "  </UML:Generalization.parent>\n")
-  (insert "</UML:Generalization>\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"))
\ No newline at end of file