From b5e475547fbd9cc6f9f9fe883f6ccd05d277b081 Mon Sep 17 00:00:00 2001 From: Philipp Gesang Date: Wed, 1 May 2013 20:18:38 +0200 Subject: add basic access functions for math dimensions --- luaotfload-auxiliary.lua | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) (limited to 'luaotfload-auxiliary.lua') diff --git a/luaotfload-auxiliary.lua b/luaotfload-auxiliary.lua index 01e1bc0..a5f22dd 100644 --- a/luaotfload-auxiliary.lua +++ b/luaotfload-auxiliary.lua @@ -22,6 +22,8 @@ local aux = luaotfload.aux local log = luaotfload.log local identifiers = fonts.hashes.identifiers +local fontid = font.id +local texsprint = tex.sprint local utf8 = unicode.utf8 local stringlower = string.lower @@ -324,4 +326,27 @@ end aux.provides_feature = provides_feature +----------------------------------------------------------------------- +--- font dimensions +----------------------------------------------------------------------- + +--- string -> string -> int +local get_math_dimension = function (csname, dimenname) + local fontdata = identifiers[fontid(csname)] + local mathdata = fontdata.mathparameters + if mathdata then return mathdata[dimenname] or 0 end + return 0 +end + +aux.get_math_dimension = get_math_dimension + +--- string -> string -> unit +local sprint_math_dimension = function (csname, dimenname) + local dim = get_math_dimension(csname, dimenname) + texsprint(luatexbase.catcodetables["latex-package"], dim) + texsprint(luatexbase.catcodetables["latex-package"], "sp") +end + +aux.sprint_math_dimension = sprint_math_dimension + -- vim:tw=71:sw=2:ts=2:expandtab -- cgit v1.2.3