function   main ()

Quik_Lua_connector =   require ( "Quil_Lua_connector_work_TEST" )    

 Quik_Lua_connector.TestFunc_run_WinConsole_for_dll ()

 Quik_Lua_connector.run_Cpp () 

 ------------------------- 
 while   not  stopped  do  
 sleep ( 1 )
 end  
 ------------------------- 
 end   

  static int run_Cpp(lua_State *  Lua_stek)
{

    lua_State *  L  =  luaL_newstate();

     if  (L  =  =  NULL)
    {
        std::cout  <  <   "L == NULL"   <  <  std::endl;    //Ошибки нет.
    }

lua_getglobal(L,  "CreateDataSource" );           

lua_pushstring(L,  "TQBR" );    
lua_pushstring(L,  "GAZP" );         
lua_pushnumber(L,  "INTERVAL_MN1" );                

std::cout  <  <   "Size_stack:"   <  <  lua_gettop(L)  <  <  std::endl;   //Размер  4   -  как и должно быть

int status_lua_pcall  =  lua_pcall(L,  3 ,  2 ,  0 );   
    
 if (status_lua_pcall   !  =   0 )
{
std::cout <  < "Error" <  < std::endl;   //attempt to call a  nil  value
}

}  

function main()

Quik_Lua_connector= require("Quil_Lua_connector_work_TEST")    

Quik_Lua_connector.TestFunc_run_WinConsole_for_dll()

Quik_Lua_connector.run_Cpp() 

-------------------------
while not stopped do 
sleep(1)
end 
-------------------------
end

static int run_Cpp(lua_State* Lua_stek)
{

    lua_State* L = luaL_newstate();

    if (L == NULL)
    {
        std::cout << "L == NULL" << std::endl;    //Ошибки нет.
    }

lua_getglobal(L, "CreateDataSource");           

lua_pushstring(L, "TQBR");    
lua_pushstring(L, "GAZP");         
lua_pushnumber(L, "INTERVAL_MN1");                

std::cout << "Size_stack:" << lua_gettop(L) << std::endl;   //Размер 4 - как и должно быть

int status_lua_pcall = lua_pcall(L, 3, 2, 0);   
    
if(status_lua_pcall  != 0)
{
std::cout<<"Error"<<std::endl;   //attempt to call a nil value
}

}