From 07a20d04a3ec9bfa3fb50bc0e6372ba31388389c Mon Sep 17 00:00:00 2001 From: whiteshark0 Date: Mon, 20 Apr 2009 14:57:12 +0000 Subject: lua gl lib functions by hawkear copied to interface part => gl can be loaded by plugins with require git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1690 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Lua/src/base/UMain.pas | 1 + Lua/src/lua/ULuaGl.pas | 133 ++++++++++++++++++++++++++++++++----------------- 2 files changed, 89 insertions(+), 45 deletions(-) (limited to 'Lua') diff --git a/Lua/src/base/UMain.pas b/Lua/src/base/UMain.pas index b37d698b..1bd96d41 100644 --- a/Lua/src/base/UMain.pas +++ b/Lua/src/base/UMain.pas @@ -422,6 +422,7 @@ begin LuaCore := TLuaCore.Create; LuaCore.RegisterModule('Log', ULuaLog_Lib_f); + LuaCore.RegisterModule('Gl', ULuaGl_Lib_f); LuaCore.BrowseDir(PluginPath); LuaCore.DumpPlugins; diff --git a/Lua/src/lua/ULuaGl.pas b/Lua/src/lua/ULuaGl.pas index 8339232b..178853b6 100644 --- a/Lua/src/lua/ULuaGl.pas +++ b/Lua/src/lua/ULuaGl.pas @@ -41,6 +41,94 @@ uses function luaopen_gl (L: Plua_State): Integer; cdecl; function ULuaGl_StringToEnum(Str: String): GLenum; +{ lua lib functions } +function ULuaGl_Begin(L: Plua_State): Integer; cdecl; +function ULuaGl_BindTexture(L: Plua_State): Integer; cdecl; +function ULuaGl_BlendFunc(L: Plua_State): Integer; cdecl; +function ULuaGl_Clear(L: Plua_State): Integer; cdecl; +function ULuaGl_ClearAccum(L: Plua_State): Integer; cdecl; +function ULuaGl_ClearColor(L: Plua_State): Integer; cdecl; +function ULuaGl_Color(L: Plua_State): Integer; cdecl; +function ULuaGl_CullFace(L: Plua_State): Integer; cdecl; +function ULuaGl_DepthFunc(L: Plua_State): Integer; cdecl; +function ULuaGl_DepthRange(L: Plua_State): Integer; cdecl; +function ULuaGl_Disable(L: Plua_State): Integer; cdecl; +function ULuaGl_DisableClientState(L: Plua_State): Integer; cdecl; +function ULuaGl_DrawBuffer(L: Plua_State): Integer; cdecl; +function ULuaGl_Enable(L: Plua_State): Integer; cdecl; +function ULuaGl_EnableClientState(L: Plua_State): Integer; cdecl; +function ULuaGl_End(L: Plua_State): Integer; cdecl; +function ULuaGl_EndList(L: Plua_State): Integer; cdecl; +function ULuaGl_Finish(L: Plua_State): Integer; cdecl; +function ULuaGl_Flush(L: Plua_State): Integer; cdecl; +function ULuaGl_FrontFace(L: Plua_State): Integer; cdecl; +function ULuaGl_InitNames(L: Plua_State): Integer; cdecl; +function ULuaGl_LoadIdentity(L: Plua_State): Integer; cdecl; +function ULuaGl_LogicOp(L: Plua_State): Integer; cdecl; +function ULuaGl_MatrixMode(L: Plua_State): Integer; cdecl; +function ULuaGl_Ortho(L: Plua_State): Integer; cdecl; +function ULuaGl_PopAttrib(L: Plua_State): Integer; cdecl; +function ULuaGl_PopClientAttrib(L: Plua_State): Integer; cdecl; +function ULuaGl_PopMatrix(L: Plua_State): Integer; cdecl; +function ULuaGl_PopName(L: Plua_State): Integer; cdecl; +function ULuaGl_PushMatrix(L: Plua_State): Integer; cdecl; +function ULuaGl_RasterPos(L: Plua_State): Integer; cdecl; +function ULuaGl_ReadBuffer(L: Plua_State): Integer; cdecl; +function ULuaGl_Rect(L: Plua_State): Integer; cdecl; +function ULuaGl_Rotate(L: Plua_State): Integer; cdecl; +function ULuaGl_Scale(L: Plua_State): Integer; cdecl; +function ULuaGl_ShadeModel(L: Plua_State): Integer; cdecl; +function ULuaGl_TexCoord(L: Plua_State): Integer; cdecl; +function ULuaGl_Translate(L: Plua_State): Integer; cdecl; +function ULuaGl_Vertex(L: Plua_State): Integer; cdecl; +function ULuaGl_Viewport(L: Plua_State): Integer; cdecl; +function ULuaGl_Dummy(L: Plua_State): Integer; cdecl; + +const + ULuaGl_Lib_f: array [0..40] of lual_reg = ( + (name:'Begin';func:ULuaGl_Begin), + (name:'BindTexture';func:ULuaGl_BindTexture), + (name:'BlendFunc';func:ULuaGl_BlendFunc), + (name:'Clear';func:ULuaGl_Clear), + (name:'ClearAccum';func:ULuaGl_ClearAccum), + (name:'ClearColor';func:ULuaGl_ClearColor), + (name:'Color';func:ULuaGl_Color), + (name:'CullFace';func:ULuaGl_CullFace), + (name:'DepthFunc';func:ULuaGl_DepthFunc), + (name:'DepthRange';func:ULuaGl_DepthRange), + (name:'Disable';func:ULuaGl_Disable), + (name:'DisableClientState';func:ULuaGl_DisableClientState), + (name:'DrawBuffer';func:ULuaGl_DrawBuffer), + (name:'Enable';func:ULuaGl_Enable), + (name:'EnableClientState';func:ULuaGl_EnableClientState), + (name:'End';func:ULuaGl_End), + (name:'EndList';func:ULuaGl_EndList), + (name:'Finish';func:ULuaGl_Finish), + (name:'Flush';func:ULuaGl_Flush), + (name:'FrontFace';func:ULuaGl_FrontFace), + (name:'InitNames';func:ULuaGl_InitNames), + (name:'LoadIdentity';func:ULuaGl_LoadIdentity), + (name:'LogicOp';func:ULuaGl_LogicOp), + (name:'MatrixMode';func:ULuaGl_MatrixMode), + (name:'Ortho';func:ULuaGl_Ortho), + (name:'PopAttrib';func:ULuaGl_PopAttrib), + (name:'PopClientAttrib';func:ULuaGl_PopClientAttrib), + (name:'PopMatrix';func:ULuaGl_PopMatrix), + (name:'PopName';func:ULuaGl_PopName), + (name:'PushMatrix';func:ULuaGl_PushMatrix), + (name:'RasterPos';func:ULuaGl_RasterPos), + (name:'ReadBuffer';func:ULuaGl_ReadBuffer), + (name:'Rotate';func:ULuaGl_Rotate), + (name:'Rect';func:ULuaGl_Rect), + (name:'Scale';func:ULuaGl_Scale), + (name:'ShadeModel';func:ULuaGl_ShadeModel), + (name:'TexCoord';func:ULuaGl_TexCoord), + (name:'Translate';func:ULuaGl_Translate), + (name:'Vertex';func:ULuaGl_Vertex), + (name:'Viewport';func:ULuaGl_Viewport), + (name:nil;func:nil) + ); + implementation uses @@ -598,51 +686,6 @@ begin result:=0; // number of results end; -const - ULuaGl_Lib_f: array [0..40] of lual_reg = ( - (name:'Begin';func:ULuaGl_Begin), - (name:'BindTexture';func:ULuaGl_BindTexture), - (name:'BlendFunc';func:ULuaGl_BlendFunc), - (name:'Clear';func:ULuaGl_Clear), - (name:'ClearAccum';func:ULuaGl_ClearAccum), - (name:'ClearColor';func:ULuaGl_ClearColor), - (name:'Color';func:ULuaGl_Color), - (name:'CullFace';func:ULuaGl_CullFace), - (name:'DepthFunc';func:ULuaGl_DepthFunc), - (name:'DepthRange';func:ULuaGl_DepthRange), - (name:'Disable';func:ULuaGl_Disable), - (name:'DisableClientState';func:ULuaGl_DisableClientState), - (name:'DrawBuffer';func:ULuaGl_DrawBuffer), - (name:'Enable';func:ULuaGl_Enable), - (name:'EnableClientState';func:ULuaGl_EnableClientState), - (name:'End';func:ULuaGl_End), - (name:'EndList';func:ULuaGl_EndList), - (name:'Finish';func:ULuaGl_Finish), - (name:'Flush';func:ULuaGl_Flush), - (name:'FrontFace';func:ULuaGl_FrontFace), - (name:'InitNames';func:ULuaGl_InitNames), - (name:'LoadIdentity';func:ULuaGl_LoadIdentity), - (name:'LogicOp';func:ULuaGl_LogicOp), - (name:'MatrixMode';func:ULuaGl_MatrixMode), - (name:'Ortho';func:ULuaGl_Ortho), - (name:'PopAttrib';func:ULuaGl_PopAttrib), - (name:'PopClientAttrib';func:ULuaGl_PopClientAttrib), - (name:'PopMatrix';func:ULuaGl_PopMatrix), - (name:'PopName';func:ULuaGl_PopName), - (name:'PushMatrix';func:ULuaGl_PushMatrix), - (name:'RasterPos';func:ULuaGl_RasterPos), - (name:'ReadBuffer';func:ULuaGl_ReadBuffer), - (name:'Rotate';func:ULuaGl_Rotate), - (name:'Rect';func:ULuaGl_Rect), - (name:'Scale';func:ULuaGl_Scale), - (name:'ShadeModel';func:ULuaGl_ShadeModel), - (name:'TexCoord';func:ULuaGl_TexCoord), - (name:'Translate';func:ULuaGl_Translate), - (name:'Vertex';func:ULuaGl_Vertex), - (name:'Viewport';func:ULuaGl_Viewport), - (name:nil;func:nil) - ); - function luaopen_gl (L: Plua_State): Integer; cdecl; begin luaL_register(L,'gl',@ULuaGl_Lib_f[0]); -- cgit v1.2.3