beta 2013.09.11 01:32

1 files changed, 33 insertions, 1 deletions

diff --git a/tex/context/base/typo-dir.lua b/tex/context/base/typo-dir.lua
index aa6eb2eeb..312342348 100644
--- a/tex/context/base/typo-dir.lua
+++ b/tex/context/base/typo-dir.lua
@@ -26,7 +26,6 @@ if not modules then modules = { } end modules ['typo-dir'] = {
 -- = half tagging (the current implementation)
 -- = unicode version x interpretation (several depending on the evolution)
 
-
 local next, type = next, type
 local format, insert, sub, find, match = string.format, table.insert, string.sub, string.find, string.match
 local utfchar = utf.char
@@ -42,6 +41,8 @@ local report_textdirections = logs.reporter("typesetting","text directions")
 local report_mathdirections = logs.reporter("typesetting","math directions")
 
 
+
+
 local traverse_id        = node.traverse_id
 local insert_node_before = node.insert_before
 local insert_node_after  = node.insert_after
@@ -59,6 +60,9 @@ local whatcodes          = nodes.whatcodes
 local mathcodes          = nodes.mathcodes
 
 local tasks              = nodes.tasks
+local tracers            = nodes.tracers
+local setcolor           = tracers.colors.set
+local resetcolor         = tracers.colors.reset
 
 local glyph_code         = nodecodes.glyph
 local whatsit_code       = nodecodes.whatsit
@@ -163,6 +167,28 @@ directions.getfences      = getfences
 directions.getmethod      = getmethod
 directions.installhandler = installhandler
 
+-- beware: in dha we have character properties and in dua|b we have direction properties
+
+function directions.setcolor(current,direction,reversed,mirror)
+    if mirror then
+        setcolor(current,"bidi:mirrored")
+    elseif direction == "l" then
+        if reversed then
+            setcolor(current,"bidi:left:reversed")
+        else
+            setcolor(current,"bidi:left:original")
+        end
+    elseif direction == "r" then
+        if reversed then
+            setcolor(current,"bidi:right:reversed")
+        else
+            setcolor(current,"bidi:right:original")
+        end
+    else
+        resetcolor(current)
+    end
+end
+
 function commands.getbidimode(specification)
     context(tomode(specification)) -- hash at tex end
 end
@@ -191,6 +217,12 @@ function directions.process(namespace,attribute,head) -- for the moment nodes an
     return head, done
 end
 
+statistics.register("text directions", function()
+    if enabled then
+        return statistics.elapsedseconds(directions)
+    end
+end)
+
 -- function directions.enable()
 --     tasks.enableaction("processors","directions.handler")
 -- end