1 files changed, 69 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/context/interface/mkiv/i-orientation.xml b/Master/texmf-dist/tex/context/interface/mkiv/i-orientation.xml
new file mode 100644
index 00000000000..8749bf278a6
--- /dev/null
+++ b/Master/texmf-dist/tex/context/interface/mkiv/i-orientation.xml
@@ -0,0 +1,69 @@
+<?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="defineorientation" level="style" category="alignment" file="pack-ori.mkxl">
+        <cd:arguments>
+            <cd:resolve name="keyword-name"/>
+            <cd:resolve name="keyword-name-optional"/>
+            <cd:assignments list="yes" optional="yes">
+                <cd:inherit name="setuporientation"/>
+            </cd:assignments>
+        </cd:arguments>
+    </cd:command>
+
+    <cd:command name="setuporientation" level="style" category="alignment" file="pack-ori.mkxl">
+        <cd:arguments>
+            <cd:resolve name="keyword-name-list-optional"/>
+            <cd:assignments list="yes">
+                <cd:parameter name="orientation">
+                    <cd:constant type="up"/>
+                    <cd:constant type="down"/>
+                    <cd:constant type="left"/>
+                    <cd:constant type="right"/>
+                    <cd:constant type="top"/>
+                    <cd:constant type="bottom"/>
+                    <cd:constant type="normal" default="yes"/>
+                </cd:parameter>
+                <cd:parameter name="horizontal">
+                    <cd:constant type="left"/>
+                    <cd:constant type="middle"/>
+                    <cd:constant type="right"/>
+                    <cd:constant type="flushleft"/>
+                    <cd:constant type="flushright"/>
+                    <cd:constant type="normal" default="yes"/>
+                </cd:parameter>
+                <cd:parameter name="vertical">
+                    <cd:constant type="line"/>
+                    <cd:constant type="top"/>
+                    <cd:constant type="middle"/>
+                    <cd:constant type="bottom"/>
+                    <cd:constant type="normal" default="yes"/>
+                </cd:parameter>
+            </cd:assignments>
+        </cd:arguments>
+    </cd:command>
+
+    <cd:command name="theorientation" level="system" category="alignment" file="pack-ori.mkxl">
+        <cd:arguments>
+            <cd:resolve name="argument-orientation"/>
+        </cd:arguments>
+    </cd:command>
+
+    <cd:command name="autoorientation" level="system" category="alignment" file="pack-ori.mkxl">
+        <cd:arguments>
+            <cd:resolve name="argument-orientation"/>
+        </cd:arguments>
+    </cd:command>
+
+    <cd:command name="doifelseorientation" level="system" category="alignment" keywords="conditional" file="pack-ori.mkxl">
+        <cd:arguments>
+            <cd:resolve name="argument-orientation"/>
+            <cd:resolve name="argument-true"/>
+            <cd:resolve name="argument-false"/>
+        </cd:arguments>
+    </cd:command>
+
+</cd:interface>