/* lfontlib.c

  Copyright 2006-2010 Taco Hoekwater <[email protected]>

  This file is part of LuaTeX.

  LuaTeX is free software; you can redistribute it and/or modify it under
  the terms of the GNU General Public License as published by the Free
  Software Foundation; either version 2 of the License, or (at your
  option) any later version.

  LuaTeX is distributed in the hope that it will be useful, but WITHOUT
  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
  License for more details.

  You should have received a copy of the GNU General Public License along
  with LuaTeX; if not, see <http://www.gnu.org/licenses/>. */

#include "lua/luatex-api.h"
#include "ptexlib.h"


static const char _svn_version[] =
   "$Id: lfontlib.c 3551 2010-03-26 14:43:50Z taco $ $URL: http://foundry.supelec.fr/svn/luatex/tags/beta-0.70.1/source/texk/web2c/luatexdir/lua/lfontlib.c $";

#define TIMERS 0

#if TIMERS
#  include <sys/time.h>
#endif


static int get_fontid(void)
{
   if (font_tables == NULL || font_tables[0] == NULL) {
       create_null_font();
   }
   return new_font();
}

static int font_read_tfm(lua_State * L)
{
   internal_font_number f;
   scaled s;
   int k;
   const char *cnom;
   if (lua_isstring(L, 1)) {
       cnom = lua_tostring(L, 1);
       if (lua_isnumber(L, 2)) {
           lua_number2int(s, lua_tonumber(L, 2));
           if (strlen(cnom)) {
               f = get_fontid();
               if (read_tfm_info(f, cnom, s)) {
                   k = font_to_lua(L, f);
                   delete_font(f);
                   return k;
               } else {
                   delete_font(f);
                   luaL_error(L, "font loading failed");
               }
           } else {
               luaL_error(L, "expected tfm name as first argument");
           }
       } else {
           luaL_error(L, "expected an integer size as second argument");
       }
   } else {
       luaL_error(L, "expected tfm name as first argument");
   }
   return 2;                   /* not reached */
}


static int font_read_vf(lua_State * L)
{
   int i;
   const char *cnom;
   if (lua_isstring(L, 1)) {
       cnom = lua_tostring(L, 1);
       if (strlen(cnom)) {
           if (lua_isnumber(L, 2)) {
               lua_number2int(i, lua_tonumber(L, 2));
               return make_vf_table(L, cnom, (scaled) i);
           } else {
               luaL_error(L,
                              "expected an integer size as second argument");
               return 2;
           }
       }
   }
   luaL_error(L, "expected vf name as first argument");
   return 2;                   /* not reached */
}

static int tex_current_font(lua_State * L)
{
   int i;
   i = (int) luaL_optinteger(L, 1, 0);
   if (i > 0) {
       if (is_valid_font(i)) {
           zset_cur_font(i);
           return 0;
       } else {
           luaL_error(L, "expected a valid font id");
           return 2;           /* not reached */
       }
   } else {
       lua_pushnumber(L, get_cur_font());
       return 1;
   }
}

static int tex_max_font(lua_State * L)
{
   lua_pushnumber(L, max_font_id());
   return 1;
}


static int tex_each_font_next(lua_State * L)
{
   int i, m;                   /* id */
   lua_number2int(m, lua_tonumber(L, 1));
   lua_number2int(i, lua_tonumber(L, 2));
   i++;
   while (i <= m && !is_valid_font(i))
       i++;
   if (i > m) {
       lua_pushnil(L);
       return 1;
   } else {
       lua_pushnumber(L, i);
       if (!font_to_lua(L, i))
           lua_pushnil(L);
       return 2;
   }
}

static int tex_each_font(lua_State * L)
{
   lua_pushcclosure(L, tex_each_font_next, 0);
   lua_pushnumber(L, max_font_id());
   lua_pushnumber(L, 0);
   return 3;
}

static int frozenfont(lua_State * L)
{
   int i;
   i = (int) luaL_checkinteger(L, 1);
   if (i) {
       if (is_valid_font(i)) {
           if (font_touched(i) || font_used(i)) {
               lua_pushboolean(L, 1);
           } else {
               lua_pushboolean(L, 0);
           }
       } else {
           lua_pushnil(L);
       }
       return 1;
   } else {
       luaL_error(L, "expected an integer argument");
   }
   return 0;                   /* not reached */
}


static int setfont(lua_State * L)
{
   int i;
   i = (int) luaL_checkinteger(L, -2);
   if (i) {
       luaL_checktype(L, -1, LUA_TTABLE);
       if (is_valid_font(i)) {
           if (!(font_touched(i) || font_used(i))) {
               font_from_lua(L, i);
           } else {
               luaL_error(L,
                              "that font has been accessed already, changing it is forbidden");
           }
       } else {
           luaL_error(L, "that integer id is not a valid font");
       }
   }
   return 0;
}


static int deffont(lua_State * L)
{
   int i;
#if TIMERS
   struct timeval tva;
   struct timeval tvb;
   double tvdiff;
#endif
   luaL_checktype(L, -1, LUA_TTABLE);
   i = get_fontid();
#if TIMERS
   gettimeofday(&tva, NULL);
#endif
   if (font_from_lua(L, i)) {
#if TIMERS
       gettimeofday(&tvb, NULL);
       tvdiff = tvb.tv_sec * 1000000.0;
       tvdiff += (double) tvb.tv_usec;
       tvdiff -= (tva.tv_sec * 1000000.0);
       tvdiff -= (double) tva.tv_usec;
       tvdiff /= 1000000;
       fprintf(stdout, "font.define(%s,%i): %f seconds\n",
               font_fullname(i), i, tvdiff);
#endif
       lua_pushnumber(L, i);
       return 1;
   } else {
       lua_pop(L, 1);          /* pop the broken table */
       delete_font(i);
       luaL_error(L, "font creation failed");
   }
   return 0;                   /* not reached */
}

/* this returns the expected (!) next fontid. */
static int nextfontid(lua_State * L)
{
   int i = get_fontid();
   lua_pushnumber(L, i);
   delete_font(i);
   return 1;
}


static int getfont(lua_State * L)
{
   int i;
   i = (int) luaL_checkinteger(L, -1);
   if (i && is_valid_font(i) && font_to_lua(L, i))
       return 1;
   lua_pushnil(L);
   return 1;
}


static int getfontid(lua_State * L)
{
   const char *s;
   size_t ff;
   int cur_cs;
   int f;
   if (lua_type(L, 1) == LUA_TSTRING) {
       s = lua_tolstring(L, 1, &ff);
       cur_cs = string_lookup(s, ff);
       if (cur_cs == undefined_control_sequence || cur_cs == undefined_cs_cmd
           || eq_type(cur_cs) != set_font_cmd) {
           lua_pushstring(L, "not a valid font csname");
           f = -1;
       } else {
           f = equiv(cur_cs);
       }
       lua_pushnumber(L, f);
   } else {
       luaL_error(L, "expected font csname string as argument");
   }
   return 1;
}


static const struct luaL_reg fontlib[] = {
   {"read_tfm", font_read_tfm},
   {"read_vf", font_read_vf},
   {"current", tex_current_font},
   {"max", tex_max_font},
   {"each", tex_each_font},
   {"getfont", getfont},
   {"setfont", setfont},
   {"define", deffont},
   {"nextid", nextfontid},
   {"id", getfontid},
   {"frozen", frozenfont},
   {NULL, NULL}                /* sentinel */
};

int luaopen_font(lua_State * L)
{
   luaL_register(L, "font", fontlib);
   make_table(L, "fonts", "getfont", "setfont");
   return 1;
}

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.