From 479745e00677d933056cf25f1fc2e904a4b9c567 Mon Sep 17 00:00:00 2001
From: Khaled Hosny <khaledhosny@eglug.org>
Date: Tue, 4 Oct 2011 01:15:57 +0200
Subject: Sync with ContTeXt beta 2011.10.03 12:59

Does not run yet.
---
 otfl-font-oti.lua | 92 +++++++++++++++++++++++++++++++++++++------------------
 1 file changed, 63 insertions(+), 29 deletions(-)

(limited to 'otfl-font-oti.lua')

diff --git a/otfl-font-oti.lua b/otfl-font-oti.lua
index e531ba8..d6853db 100644
--- a/otfl-font-oti.lua
+++ b/otfl-font-oti.lua
@@ -8,51 +8,85 @@ if not modules then modules = { } end modules ['font-oti'] = {
 
 local lower = string.lower
 
-local fonts = fonts
+local allocate = utilities.storage.allocate
 
-local otf          = fonts.otf
-local initializers = fonts.initializers
+local fonts              = fonts
+local otf                = { }
+fonts.handlers.otf       = otf
 
-local languages    = otf.tables.languages
-local scripts      = otf.tables.scripts
+local otffeatures        = fonts.constructors.newfeatures("otf")
+local registerotffeature = otffeatures.register
 
-local function set_language(tfmdata,value)
+registerotffeature {
+    name        = "features",
+    description = "initialization of feature handler",
+    default     = true,
+}
+
+-- these are later hooked into node and base initializaters
+
+local otftables = otf.tables -- not always defined
+
+local function setmode(tfmdata,value)
     if value then
-        value = lower(value)
-        if languages[value] then
-            tfmdata.language = value
-        end
+        tfmdata.properties.mode = lower(value)
     end
 end
 
-local function set_script(tfmdata,value)
+local function setlanguage(tfmdata,value)
     if value then
-        value = lower(value)
-        if scripts[value] then
-            tfmdata.script = value
+        local cleanvalue = lower(value)
+        local languages  = otftables and otftables.languages
+        local properties = tfmdata.properties
+        if not languages then
+            properties.language = cleanvalue
+        elseif languages[value] then
+            properties.language = cleanvalue
+        else
+            properties.language = "dflt"
         end
     end
 end
 
-local function set_mode(tfmdata,value)
+local function setscript(tfmdata,value)
     if value then
-        tfmdata.mode = lower(value)
+        local cleanvalue = lower(value)
+        local scripts    = otftables and otftables.scripts
+        local properties = tfmdata.properties
+        if not scripts then
+            properties.script = cleanvalue
+        elseif scripts[value] then
+            properties.script = cleanvalue
+        else
+            properties.script = "dflt"
+        end
     end
 end
 
-local base_initializers = initializers.base.otf
-local node_initializers = initializers.node.otf
-
-base_initializers.language = set_language
-base_initializers.script   = set_script
-base_initializers.mode     = set_mode
-base_initializers.method   = set_mode
+registerotffeature {
+    name        = "mode",
+    description = "mode",
+    initializers = {
+        base = setmode,
+        node = setmode,
+    }
+}
 
-node_initializers.language = set_language
-node_initializers.script   = set_script
-node_initializers.mode     = set_mode
-node_initializers.method   = set_mode
+registerotffeature {
+    name         = "language",
+    description  = "language",
+    initializers = {
+        base = setlanguage,
+        node = setlanguage,
+    }
+}
 
-otf.features.register("features",true)     -- we always do features
-table.insert(fonts.processors,"features")  -- we need a proper function for doing this
+registerotffeature {
+    name        = "script",
+    description = "script",
+    initializers = {
+        base = setscript,
+        node = setscript,
+    }
+}
 
-- 
cgit v1.2.3