Function LuaInclude

source/cpu.cpp:432–468

// ***********************************************************************

int LuaInclude(lua_State* L) {
    const char* name = luaL_checkstring(L, 1);
	String includeName(name);

	// unlike require we assume the name is an actual file name
	String realPath;
	VFSPathToRealPath(includeName, realPath, pState->pArena); 

	if (!FileExists(realPath)) {
		// check if the include is in system/shared/ (assuming it's a relative path)
		if (includeName[0] != '/') {
			realPath = TempPrint("system/shared/%S", includeName);
		}
	}
	if (!FileExists(realPath)) {
		Log::Warn("Unable to locate include %S", includeName);
		return 0;
	}

	pState->luaFilesToWatch.PushBack(realPath);

    luaL_findtable(L, LUA_REGISTRYINDEX, "_MODULES", 1);
	lua_getfield(L, -1, realPath.pData);
	if (!lua_isnil(L, -1)) {
		// table has already been loaded, and is cached, so we're done
		return 1;
	}
	lua_pop(L, 1);
	
	// @todo: put modules in another thread and sandbox them
	CompileAndLoadModule(realPath, 1);
	// stack is [module, _MODULES]
	lua_pushvalue(L, -1);
	// stack is [module,module,_MODULES]
	lua_setfield(L, -3, realPath.pData);
	return 1;
}

// ***********************************************************************