C++ (Cpp) luaL_execresult Examples

Example #1

File: lib_io.c Project: happyelement/luajit-2.0.3-wp8

static int io_file_close(lua_State *L, IOFileUD *iof)
{
  int ok;
  if ((iof->type & IOFILE_TYPE_MASK) == IOFILE_TYPE_FILE) {
    ok = (fclose(iof->fp) == 0);
  } else if ((iof->type & IOFILE_TYPE_MASK) == IOFILE_TYPE_PIPE) {
    int stat = -1;
#if LJ_TARGET_POSIX
    stat = pclose(iof->fp);
#elif LJ_TARGET_WINDOWS && !defined(WP8)
    stat = _pclose(iof->fp);
#else
    lua_assert(0);
    return 0;
#endif
#if LJ_52
    iof->fp = NULL;
    return luaL_execresult(L, stat);
#else
    ok = (stat != -1);
#endif
  } else {
    lua_assert((iof->type & IOFILE_TYPE_MASK) == IOFILE_TYPE_STDF);
    setnilV(L->top++);
    lua_pushliteral(L, "cannot close standard file");
    return 2;
  }
  iof->fp = NULL;
  return luaL_fileresult(L, ok, NULL);
}

Example #2

File: loslib.c Project: nosc/technologicalPlatform

static int os_execute (lua_State *L) {
  const char *cmd = luaL_optstring(L, 1, NULL);
  int stat = system(cmd);
  if (cmd != NULL)
    return luaL_execresult(L, stat);
  else {
    lua_pushboolean(L, stat);  /* true if there is a shell */
    return 1;
  }
}

Example #3

File: loslib.cpp Project: aappleby/Lumina

static int os_execute (LuaThread *L) {
  THREAD_CHECK(L);
  const char *cmd = luaL_optstring(L, 1, NULL);
  int stat = system(cmd);
  if (cmd != NULL)
    return luaL_execresult(L, stat);
  else {
    lua_pushboolean(L, stat);  /* true if there is a shell */
    return 1;
  }
}

Example #4

File: loslib.c Project: JimmyLord/MyEngine

static int os_execute (lua_State *L) {
#if MYFW_IOS
    // shouldn't be needed on iOS and "system" is unavailable.
#else
  const char *cmd = luaL_optstring(L, 1, NULL);
  int stat = system(cmd);
  if (cmd != NULL)
    return luaL_execresult(L, stat);
  else {
    lua_pushboolean(L, stat);  /* true if there is a shell */
    return 1;
  }
#endif // MYFW_IOS
}

Example #5

File: loslib.c Project: WhallaLabs/WHALua

static int os_execute (lua_State *L) {
  const char *cmd = luaL_optstring(L, 1, NULL);
    
  pid_t pid;
  char *argv[] = {
    (char *)cmd,
    NULL
  };
    
  int stat = posix_spawn(&pid, argv[0], NULL, NULL, argv, environ);
  waitpid(pid, NULL, 0);
  if (cmd != NULL)
    return luaL_execresult(L, stat);
  else {
    lua_pushboolean(L, stat);  /* true if there is a shell */
    return 1;
  }
}

Example #6

File: liolib.c Project: Allowed/Protheus

/*
** function to close 'popen' files
*/
static int io_pclose(lua_State *L) {
	LStream *p = tolstream(L);
	return luaL_execresult(L, lua_pclose(L, p->f));
}