libxslt and lua

This message was edited 1 time. Last update was at 14/02/2008 15:10:20

Написал функцию для транформации (libxslt) и биндинг к ней.

luaxslt.c:

#include <errno.h>
#include <lualib.h>
#include <lauxlib.h>
#include <libxslt/xslt.h>
#include <libxslt/xsltInternals.h>
#include <libxslt/transform.h>
#include <libxslt/xsltutils.h>

int luaopen_luaxsltlib (lua_State *L);
    
#define LUA_EXTRALIBS { "luaxsltlib", luaopen_luaxsltlib },

static int l_transform(lua_State *L) {
	int n = lua_gettop(L);
	const char *s = luaL_checkstring(L, 1);
	const char *ss = luaL_checkstring(L, 2);
	
	const char *params[16 + 1];
	char *out;
	int nbparams = 0;
	int len = 9999;
	xsltStylesheetPtr cur = NULL;
	xmlDocPtr doc, res;
	int i = 0;
	
	
	if (n > 2 && (n/2)*2 == n ) {
		for (i = 3; i <= n; i++) {
			params[nbparams++] = luaL_checkstring(L, i);
		}
	}

params[nbparams] = NULL;
	xmlSubstituteEntitiesDefault(0);
	xmlLoadExtDtdDefaultValue = 1;
	cur = xsltParseStylesheetFile((const xmlChar *)ss);
	
	doc = xmlParseDoc((const xmlChar *)s);
	res = xsltApplyStylesheet(cur, doc, params);
	xsltSaveResultToString(&out,&len, res, cur);

out[len] = NULL;

xsltFreeStylesheet(cur);
	xmlFreeDoc(res);
	xmlFreeDoc(doc);
	
	lua_pushstring(L,out);
	lua_pushnumber(L,len);
	
	xmlFree(out);
	
	xsltCleanupGlobals();
        xmlCleanupParser();
	
	
	return 2;
}

static const struct luaL_reg luaxsltlib [] = {
      {"transform", l_transform},
      {NULL, NULL}
};

int luaopen_luaxsltlib (lua_State *L) {
      luaL_openlib(L, "luaxsltlib", luaxsltlib, 0);
      return 1;
}

lxslt.lua:

test.xslt:

Собираем:

Проверяем:

http://luaforge.net/projects/lua-template/

Посмотри библиотеку работы с шаблонами. подстановка переменных, повторяющиеся блоки, итд.

example:
$ cat > t.txt
Hello, my name is {name}!
I have a pets:
{N}. {name}

^D
$ cat > t.lua
package.cpath = "../liblua-?.so;./?.dll"

require'template'

r = template.new()

r:from_file't.txt'

r.name = 'Jon Smith'
r:begin_block("pets")
r.N=1
r.name = 'Dasy'
r:end_block()

r:begin_block("pets")
r.N=2
r.name = 'Gosha'
r:end_block()

--r:show'out.txt' -- to file out.txt
r:show() -- to stdout
r:delete()
^D
$ lua t.lua
Hello, my name is Jon Smith!
I have a pets:
1. Dasy
2. Gosha