summaryrefslogtreecommitdiff
path: root/writerfilter
diff options
context:
space:
mode:
authorMiklos Vajna <vmiklos@collabora.co.uk>2013-12-07 10:25:22 +0100
committerMiklos Vajna <vmiklos@collabora.co.uk>2013-12-07 10:45:33 +0100
commit1e53784811458563b36fd4cbaa15c2f526a7161b (patch)
tree2ef01afd56e258b24acdbf0afddd99a41cf53339 /writerfilter
parente04bfc030f778439a5b0eadc495ab4e530451976 (diff)
writerfilter: remove unused xmigen in doctok
Change-Id: I23110e5ab98068c2e046c6f6539759a1dc6d1191
Diffstat (limited to 'writerfilter')
-rw-r--r--writerfilter/source/doctok/xmigen.el126
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