1 files changed, 48 insertions, 0 deletions
diff --git a/tex/context/base/m-chart.mkii b/tex/context/base/m-chart.mkii
new file mode 100644
index 000000000..2554fa2d4
--- /dev/null
+++ b/tex/context/base/m-chart.mkii
@@ -0,0 +1,48 @@
+%D \module
+%D   [       file=m-chart,
+%D        version=1998.10.10,
+%D          title=\CONTEXT\ Modules,
+%D       subtitle=Flow Charts,
+%D         author={Hans Hagen \& Ton Otten},
+%D           date=\currentdate,
+%D      copyright={PRAGMA / Hans Hagen \& Ton Otten}]
+%C
+%C This module is part of the \CONTEXT\ macro||package and is
+%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
+%C details.
+
+%D The \XML\ interface:
+
+\unprotect
+
+\startXMLdefinitions flowchart
+
+\defineXMLargument [flowchartdefinition]
+  {\defineFLOWchart[\XMLpar{flowchartdefinition}{identifier}{unknown}]}
+
+\defineXMLpickup [flowcell]
+  {\startFLOWcell
+   \defineXMLargument[name]{\unspaceafter\name}%
+   \defineXMLargument[shape]{\unspaceafter\shape}%
+   \defineXMLnestedargument[text]{\text}}
+  {\stopFLOWcell}
+
+\defineXMLenvironment [location] % global unspace/store
+  {\bgroup\defineXMLpush[x]\defineXMLpush[y]}
+  {\XMLunspace{x}\XMLunspace{y}%
+   \expanded{\egroup\noexpand\location{\XMLpop{x},\XMLpop{y}}}}
+
+\defineXMLenvironment [connection]
+  {\bgroup\defineXMLpush[type]\defineXMLpush[name]}%
+  {\XMLunspace{type}\XMLunspace{name}%
+   \expanded{\egroup\noexpand\connection[\XMLpop{type}]{\XMLpop{name}}}}
+
+\defineXMLsingular [flowchart]
+  {\expanded{\FLOWchart[\XMLpar{flowchart}{identifier}{unknown}]}}
+
+\defineXMLdirective [flowchart] [shapes] \setupFLOWshapes
+\defineXMLdirective [flowchart] [lines]  \setupFLOWlines
+
+\stopXMLdefinitions
+
+\protect \endinput