forked from mia/Aegisub
aa506bfe40
1. svn mv OverLua SSATool athenasub avisynth_prs kanamemo \
motiontracker prs traydict unit_test vsfilter devel/
* See r2749 for full description.
Originally committed to SVN as r2755.
118 lines
2.9 KiB
C++
118 lines
2.9 KiB
C++
/*
|
|
* C++ interface for OverLua
|
|
*
|
|
|
|
Copyright 2007 Niels Martin Hansen
|
|
|
|
This program 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.
|
|
|
|
This program 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 General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License along
|
|
with this program; if not, write to the Free Software Foundation, Inc.,
|
|
51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
|
|
Contact:
|
|
E-mail: <jiifurusu@gmail.com>
|
|
IRC: jfs in #aegisub on irc.rizon.net
|
|
|
|
*/
|
|
|
|
#include "overlua.h"
|
|
#include <stdio.h>
|
|
|
|
#ifdef WIN32
|
|
#define WIN32_LEAN_AND_MEAN
|
|
#define WIN32_EXTRA_LEAN
|
|
#include <windows.h>
|
|
#endif
|
|
|
|
|
|
struct FileScriptReader {
|
|
static const size_t datasize = 0x10000;
|
|
char *data;
|
|
FILE *file;
|
|
FileScriptReader() { data = new char[datasize]; }
|
|
~FileScriptReader() { delete[] data; }
|
|
static const char *reader(lua_State *L, void *data, size_t *size)
|
|
{
|
|
FileScriptReader *self = (FileScriptReader*)data;
|
|
*size = fread(self->data, 1, self->datasize, self->file);
|
|
if (*size) return self->data;
|
|
else return 0;
|
|
}
|
|
};
|
|
|
|
OverLuaScript::OverLuaScript(const char *filename, const char *datastring)
|
|
{
|
|
FileScriptReader reader;
|
|
#ifdef WIN32
|
|
wchar_t *filenamew = new wchar_t[MAX_PATH];
|
|
MultiByteToWideChar(CP_UTF8, 0, filename, -1, filenamew, MAX_PATH);
|
|
reader.file = _wfopen(filenamew, L"r");
|
|
delete[] filenamew;
|
|
#else
|
|
reader.file = fopen(filename, "r");
|
|
#endif
|
|
|
|
Create(reader, filename, datastring);
|
|
|
|
fclose(reader.file);
|
|
}
|
|
|
|
|
|
struct MemScriptReader {
|
|
const void *memdata;
|
|
size_t memdatasize;
|
|
static const char *reader(lua_State *L, void *data, size_t *size)
|
|
{
|
|
MemScriptReader *self = (MemScriptReader*)data;
|
|
*size = self->memdatasize;
|
|
self->memdatasize = 0;
|
|
if (*size) return (const char*)self->memdata;
|
|
else return 0;
|
|
}
|
|
};
|
|
|
|
int OverLuaScript::lua_debug_print(lua_State *L)
|
|
{
|
|
const char *str = luaL_checkstring(L, 1);
|
|
#ifdef WIN32
|
|
OutputDebugStringA(str); // ought to be W version but conversion is such a hassle
|
|
#else
|
|
printf(str);
|
|
#endif
|
|
return 0;
|
|
}
|
|
|
|
OverLuaScript::OverLuaScript(const void *data, size_t length, const char *datastring)
|
|
{
|
|
MemScriptReader reader;
|
|
reader.memdata = data;
|
|
reader.memdatasize = length;
|
|
|
|
Create(reader, "Memory script", datastring);
|
|
}
|
|
|
|
OverLuaScript::~OverLuaScript()
|
|
{
|
|
lua_close(L);
|
|
}
|
|
|
|
void OverLuaScript::RenderFrameRGB(BaseImageAggregate &frame, double time)
|
|
{
|
|
lua_getglobal(L, "render_frame");
|
|
frame.CreateLuaObject(L);
|
|
lua_pushnumber(L, time);
|
|
if (lua_pcall(L, 2, 0, 0)) {
|
|
const char *err = lua_tostring(L, -1);
|
|
throw err;
|
|
}
|
|
lua_gc(L, LUA_GCCOLLECT, 0);
|
|
}
|