2016-07-08 17:24:00

1 files changed, 121 insertions, 0 deletions

diff --git a/tex/context/interface/mkiv/i-unit.xml b/tex/context/interface/mkiv/i-unit.xml
new file mode 100644
index 000000000..3502b544a
--- /dev/null
+++ b/tex/context/interface/mkiv/i-unit.xml
@@ -0,0 +1,121 @@
+<?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="digits" variant="1" file="phys-dim.mkiv">
+        <cd:arguments>
+            <cd:resolve name="argument-number"/>
+        </cd:arguments>
+    </cd:command>
+
+    <cd:command name="digits" variant="2" file="phys-dim.mkiv">
+        <cd:arguments>
+            <cd:resolve name="string-number"/>
+        </cd:arguments>
+    </cd:command>
+
+    <cd:command name="defineunit" file="phys-dim.mkiv">
+        <cd:arguments>
+            <cd:resolve name="keyword-name"/>
+            <cd:resolve name="keyword-name-optional"/>
+            <cd:assignments list="yes" optional="yes">
+                <cd:inherit name="setupunit"/>
+            </cd:assignments>
+        </cd:arguments>
+    </cd:command>
+
+    <cd:command name="setupunit" file="phys-dim.mkiv">
+        <cd:arguments>
+            <cd:resolve name="keyword-name-list-optional"/>
+            <cd:assignments list="yes">
+                <cd:parameter name="method">
+                    <cd:constant type="1"/>
+                    <cd:constant type="2"/>
+                    <cd:constant type="3"/>
+                    <cd:constant type="4"/>
+                    <cd:constant type="5"/>
+                    <cd:constant type="6"/>
+                </cd:parameter>
+                <cd:parameter name="language">
+                    <cd:constant type="cd:language"/>
+                </cd:parameter>
+                <cd:parameter name="alternative">
+                    <cd:constant type="text"/>
+                    <cd:constant type="mathematics"/>
+                </cd:parameter>
+                <cd:parameter name="order">
+                    <cd:constant type="reverse"/>
+                    <cd:constant type="normal" default="yes"/>
+                </cd:parameter>
+                <cd:parameter name="separator">
+                    <cd:constant type="small"/>
+                    <cd:constant type="medium"/>
+                    <cd:constant type="big"/>
+                    <cd:constant type="normal" default="yes"/>
+                    <cd:constant type="none"/>
+                    <cd:constant type="cd:name"/>
+                </cd:parameter>
+                <cd:parameter name="space">
+                    <cd:constant type="small"/>
+                    <cd:constant type="medium"/>
+                    <cd:constant type="big"/>
+                    <cd:constant type="normal" default="yes"/>
+                    <cd:constant type="none"/>
+                    <cd:constant type="cd:name"/>
+                </cd:parameter>
+                <cd:parameter name="style">
+                    <cd:resolve name="value-style"/>
+                </cd:parameter>
+                <cd:parameter name="color">
+                    <cd:constant type="cd:color"/>
+                </cd:parameter>
+            </cd:assignments>
+        </cd:arguments>
+    </cd:command>
+
+    <cd:command name="unit" generated="yes" variant="generated" file="phys-dim.mkiv">
+        <cd:sequence>
+            <cd:variable value="unit"/>
+        </cd:sequence>
+        <cd:arguments>
+            <cd:content/>
+        </cd:arguments>
+    </cd:command>
+
+    <cd:command name="unit" file="phys-dim.mkiv">
+        <cd:arguments>
+            <cd:content/>
+        </cd:arguments>
+    </cd:command>
+
+    <cd:command name="installunitsseparator" file="phys-dim.mkiv">
+        <cd:arguments>
+            <cd:resolve name="argument-name"/>
+            <cd:resolve name="argument-command"/>
+        </cd:arguments>
+    </cd:command>
+
+    <cd:command name="installunitsspace" file="phys-dim.mkiv">
+        <cd:arguments>
+            <cd:resolve name="argument-name"/>
+            <cd:resolve name="argument-command"/>
+        </cd:arguments>
+    </cd:command>
+
+    <cd:command name="registerunit" file="phys-dim.mkiv">
+        <cd:arguments>
+            <cd:keywords optional="yes">
+                <cd:constant type="prefix"/>
+                <cd:constant type="unit" default="yes"/>
+                <cd:constant type="operator"/>
+                <cd:constant type="suffixe"/>
+                <cd:constant type="symbol"/>
+                <cd:constant type="packaged"/>
+            </cd:keywords>
+            <cd:resolve name="assignment-userdata-list"/>
+        </cd:arguments>
+    </cd:command>
+
+</cd:interface>
\ No newline at end of file