diff options
author | Miklos Vajna <vmiklos@collabora.co.uk> | 2013-12-07 10:25:22 +0100 |
---|---|---|
committer | Miklos Vajna <vmiklos@collabora.co.uk> | 2013-12-07 10:45:33 +0100 |
commit | 1e53784811458563b36fd4cbaa15c2f526a7161b (patch) | |
tree | 2ef01afd56e258b24acdbf0afddd99a41cf53339 /writerfilter | |
parent | e04bfc030f778439a5b0eadc495ab4e530451976 (diff) |
writerfilter: remove unused xmigen in doctok
Change-Id: I23110e5ab98068c2e046c6f6539759a1dc6d1191
Diffstat (limited to 'writerfilter')
-rw-r--r-- | writerfilter/source/doctok/xmigen.el | 126 |
1 files changed, 0 insertions, 126 deletions
diff --git a/writerfilter/source/doctok/xmigen.el b/writerfilter/source/doctok/xmigen.el deleted file mode 100644 index c85299604374..000000000000 --- a/writerfilter/source/doctok/xmigen.el +++ /dev/null @@ -1,126 +0,0 @@ -(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 |