1 files changed, 81 insertions, 0 deletions
diff --git a/tex/context/base/mkiv/scrp-tib.lua b/tex/context/base/mkiv/scrp-tib.lua
new file mode 100644
index 000000000..b67f69648
--- /dev/null
+++ b/tex/context/base/mkiv/scrp-tib.lua
@@ -0,0 +1,81 @@
+if not modules then modules = { } end modules ['scrp-tib'] = {
+    version   = 1.001,
+    comment   = "companion to scrp-ini.mkiv",
+    author    = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
+    copyright = "PRAGMA ADE / ConTeXt Development Team",
+    license   = "see context related readme files"
+}
+
+local nuts               = nodes.nuts
+
+local getnext            = nuts.getnext
+local getattr            = nuts.getattr
+local ischar             = nuts.ischar
+
+local a_scriptstatus     = attributes.private('scriptstatus')
+
+local numbertocategory   = scripts.numbertocategory
+local inserters          = scripts.inserters
+
+local injectors = {
+    breaking_tsheg = inserters.space_after,
+}
+
+-- more efficient is to check directly
+--
+-- local b_tsheg = 0x0F0B -- breaking
+-- local n_tsheg = 0x0F0C -- nonbreaking
+--
+-- if char == b_tsheg then
+--     head, current = insert_space_after(head,current)
+-- end
+--
+-- but this is more general
+
+local function process(head,first,last)
+    if first ~= last then
+        local current = first
+        while current do
+            local char, id = ischar(current)
+            if char then
+                local scriptstatus = getattr(current,a_scriptstatus)
+                if scriptstatus and scriptstatus > 0 then
+                    local category = numbertocategory[scriptstatus]
+                    if category then
+                        local injector = injectors[category]
+                        if injector then
+                            head, current = injector(head,current)
+                        end
+                    end
+                end
+            end
+            if current == last then
+                break
+            else
+                current = getnext(current)
+            end
+        end
+    end
+end
+
+scripts.installmethod {
+    name     = "tibetan",
+    injector = process,
+    datasets = {
+        default = {
+            inter_character_space_factor   = 1,
+            inter_character_stretch_factor = 1,
+            inter_character_shrink_factor  = 1,
+        },
+        half = {
+            inter_character_space_factor   = 0.5,
+            inter_character_stretch_factor = 0.5,
+            inter_character_shrink_factor  = 0.5,
+        },
+        quarter = {
+            inter_character_space_factor   = 0.25,
+            inter_character_stretch_factor = 0.25,
+            inter_character_shrink_factor  = 0.25,
+        },
+    },
+}