2016-04-10 23:57:00

1 files changed, 174 insertions, 0 deletions

diff --git a/tex/context/interface/mkiv/i-marking.xml b/tex/context/interface/mkiv/i-marking.xml
new file mode 100644
index 000000000..a556f1007
--- /dev/null
+++ b/tex/context/interface/mkiv/i-marking.xml
@@ -0,0 +1,174 @@
+<?xml version="1.0" encoding="UTF-8"?>
+
+<?context-directive job ctxfile x-setups.ctx ?>
+
+<cd:interface xmlns:cd="http://www.pragma-ade.com/commands">
+
+    <cd:command name="definemarking" file="strc-mar.mkiv">
+        <cd:arguments>
+            <cd:resolve name="keyword-name"/>
+            <cd:resolve name="keyword-mark-optional"/>
+            <cd:assignments list="yes" optional="yes">
+                <cd:inherit name="setupmarking"/>
+            </cd:assignments>
+        </cd:arguments>
+    </cd:command>
+
+    <cd:command name="setupmarking" file="strc-mar.mkiv">
+        <cd:arguments>
+            <cd:resolve name="keyword-mark-list-optional"/>
+            <cd:assignments list="yes">
+                <cd:parameter name="state">
+                    <cd:constant type="start" default="yes"/>
+                    <cd:constant type="stop"/>
+                </cd:parameter>
+                <cd:parameter name="expansion">
+                    <cd:constant type="yes"/>
+                    <cd:constant type="no" default="yes"/>
+                </cd:parameter>
+                <cd:parameter name="separator">
+                    <cd:constant type="cd:command"/>
+                </cd:parameter>
+                <cd:parameter name="filtercommand">
+                    <cd:constant type="cd:oneargument"/>
+                </cd:parameter>
+            </cd:assignments>
+        </cd:arguments>
+    </cd:command>
+
+    <cd:command name="relatemarking" file="strc-mar.mkiv">
+        <cd:arguments>
+            <cd:resolve name="keyword-mark"/>
+            <cd:resolve name="keyword-mark"/>
+        </cd:arguments>
+    </cd:command>
+
+    <cd:command name="setmarking" file="strc-mar.mkiv">
+        <cd:arguments>
+            <cd:resolve name="keyword-mark"/>
+            <cd:resolve name="argument-text"/>
+        </cd:arguments>
+    </cd:command>
+
+    <cd:command name="resetmarking" file="strc-mar.mkiv">
+        <cd:arguments>
+            <cd:resolve name="keyword-mark"/>
+        </cd:arguments>
+    </cd:command>
+
+    <cd:command name="synchronizemarking" file="strc-mar.mkiv">
+        <cd:arguments>
+            <cd:resolve name="keyword-mark"/>
+            <cd:resolve name="keyword-number"/>
+            <cd:keywords optional="yes">
+                <cd:constant type="keep"/>
+            </cd:keywords>
+        </cd:arguments>
+    </cd:command>
+
+    <cd:command name="doifelsemarking" file="strc-mar.mkiv">
+        <cd:arguments>
+            <cd:resolve name="argument-mark"/>
+            <cd:resolve name="argument-true"/>
+            <cd:resolve name="argument-false"/>
+        </cd:arguments>
+    </cd:command>
+
+    <cd:command name="doifmarkingelse" file="strc-mar.mkiv">
+        <cd:arguments>
+            <cd:resolve name="argument-mark"/>
+            <cd:resolve name="argument-true"/>
+            <cd:resolve name="argument-false"/>
+        </cd:arguments>
+    </cd:command>
+
+    <cd:command name="getmarking" file="strc-mar.mkiv">
+        <cd:arguments>
+            <cd:resolve name="keyword-mark"/>
+            <cd:keywords optional="yes">
+                <cd:constant type="page" default="yes"/>
+                <cd:constant type="cd:name"/>
+            </cd:keywords>
+            <cd:keywords optional="yes">
+                <cd:resolve name="value-markposition"/>
+            </cd:keywords>
+        </cd:arguments>
+    </cd:command>
+
+    <cd:command name="fetchonemark" file="strc-mar.mkiv">
+        <cd:arguments>
+            <cd:resolve name="keyword-mark"/>
+            <cd:keywords optional="yes">
+                <cd:resolve name="value-markposition"/>
+            </cd:keywords>
+        </cd:arguments>
+    </cd:command>
+
+    <cd:command name="fetchtwomarks" file="strc-mar.mkiv">
+        <cd:arguments>
+            <cd:resolve name="keyword-mark"/>
+        </cd:arguments>
+    </cd:command>
+
+    <cd:command name="fetchallmarks" file="strc-mar.mkiv">
+        <cd:arguments>
+            <cd:resolve name="keyword-mark"/>
+        </cd:arguments>
+    </cd:command>
+
+    <cd:command name="fetchmark" file="strc-mar.mkiv">
+        <cd:arguments>
+            <cd:resolve name="keyword-mark"/>
+            <cd:keywords optional="yes">
+                <cd:resolve name="value-markposition"/>
+            </cd:keywords>
+        </cd:arguments>
+    </cd:command>
+
+    <cd:command name="fetchmarking" file="strc-mar.mkiv">
+        <cd:arguments>
+            <cd:resolve name="keyword-mark"/>
+            <cd:keywords>
+                <cd:constant type="page"/>
+                <cd:constant type="cd:name"/>
+            </cd:keywords>
+            <cd:keywords>
+                <cd:resolve name="value-markposition"/>
+            </cd:keywords>
+        </cd:arguments>
+    </cd:command>
+
+    <cd:command name="fetchonemarking" file="strc-mar.mkiv">
+        <cd:arguments>
+            <cd:resolve name="keyword-mark"/>
+            <cd:keywords>
+                <cd:constant type="page"/>
+                <cd:constant type="cd:name"/>
+            </cd:keywords>
+            <cd:keywords>
+                <cd:resolve name="value-markposition"/>
+            </cd:keywords>
+        </cd:arguments>
+    </cd:command>
+
+    <cd:command name="fetchtwomarkings" file="strc-mar.mkiv">
+        <cd:arguments>
+            <cd:resolve name="keyword-mark"/>
+            <cd:keywords>
+                <cd:constant type="page"/>
+                <cd:constant type="cd:name"/>
+            </cd:keywords>
+        </cd:arguments>
+    </cd:command>
+
+    <cd:command name="fetchallmarkings" file="strc-mar.mkiv">
+        <cd:arguments>
+            <cd:resolve name="keyword-mark"/>
+            <cd:keywords>
+                <cd:constant type="page"/>
+                <cd:constant type="cd:name"/>
+            </cd:keywords>
+        </cd:arguments>
+    </cd:command>
+
+</cd:interface>
\ No newline at end of file