src/services/lua/test/testapp.cpp

   1 #include <iostream>
   2
   3 #define lua_c
   4
   5 #include "lua/interface.h"
   6 #include "lua/state.h"
   7 #include "module_awful-luatest.h"
   8 #include "testapp.h"
   9 #include "lua/lua.h"
  10 #include "lua/lauxlib.h"
  11 #include "lua/lualib.h"
  12 #include "lua/luaconf.h"
  13
  14 using namespace std;
  15 using namespace luatestapp;
  16
  17 LuaTestApp::LuaTestApp() throw( std::runtime_error )
  18 {
  19         awful::LuaSetup< awful::luatest::awful_tag >();
  20
  21         luaL_openlibs( awful::LuaState::GetInstance()->get() );
  22 }
  23
  24 LuaTestApp::~LuaTestApp()
  25 {
  26 }
  27
  28 void LuaTestApp::run()
  29 {
  30         //cout << "I see." << endl;
  31
  32         bool bQuit = false;
  33         awful::LuaState* pState = awful::LuaState::GetInstance();
  34         lua_State* pLS = pState->get();
  35
  36         while( !bQuit )
  37         {
  38                 char buffer[512];
  39                 char* pCmdLine = buffer;
  40
  41                 if( lua_readline( pLS, pCmdLine, "> " ) )
  42                 {
  43                         lua_pushstring( pLS, pCmdLine );
  44                         lua_saveline( pLS, -1 );
  45                         lua_remove( pLS, -1 );
  46
  47                         if( !strcmp( pCmdLine, "q" ) )
  48                                 bQuit = true;
  49                         else
  50                         {
  51                                 if( !luaL_loadstring( pLS, pCmdLine ) )
  52                                 {
  53                                         switch( lua_pcall( pLS, 0, 0, 0 ) )
  54                                         {
  55                                                 case LUA_ERRRUN:
  56                                                 {
  57                                                         const char* pErrMsg = lua_tostring( pLS, -1 );
  58                                                         std::cerr << pErrMsg << std::endl;
  59                                                         break;
  60                                                 }
  61
  62                                                 case LUA_ERRMEM:
  63                                                         std::cerr << "LUA_ERRMEM" << std::endl;
  64                                                         break;
  65
  66                                                 case LUA_ERRERR:
  67                                                         std::cerr << "LUA_ERRERR" << std::endl;
  68                                                         break;
  69                                         }
  70                                 }
  71                                 else
  72                                         cerr << "Syntax error" << endl;
  73                         }
  74
  75                         lua_freeline( pState->get(), pCmdLine );
  76                 }
  77
  78                 lua_settop( pState->get(), 0 );
  79         }
  80 }