Function init_lua_io

src/lib/geogram/lua/lua_io.cpp:278–331

}

void init_lua_io(lua_State* L) {

    geo_cite_with_info(
        "WEB:lua",
        "GEOGRAM has an embedded LUA interpreter "
        "(LUA is worth one thousand times the few kilobytes it uses !)."
    );

    lua_newtable(L);

    lua_bindwrapper(L, FileSystem::is_file);
    lua_bindwrapper(L, FileSystem::is_directory);
    lua_bindwrapper(L, FileSystem::create_directory);
    lua_bindwrapper(L, FileSystem::delete_directory);
    lua_bindwrapper(L, FileSystem::delete_file);
    lua_bindwrapper(L, FileSystem::get_current_working_directory);
    lua_bindwrapper(L, FileSystem::set_current_working_directory);
    lua_bindwrapper(L, FileSystem::rename_file);
    lua_bindwrapper(L, FileSystem::get_time_stamp);
    lua_bindwrapper(L, FileSystem::extension);
    lua_bindwrapper(L, FileSystem::base_name);
    lua_bindwrapper(L, FileSystem::dir_name);
    lua_bindwrapper(L, FileSystem::copy_file);
    lua_bindwrapper(L, FileSystem::set_executable_flag);
    lua_bindwrapper(L, FileSystem::touch);
    lua_bindwrapper(L, FileSystem::normalized_path);
    lua_bindwrapper(L, FileSystem::home_directory);
    lua_bindwrapper(L, FileSystem::documents_directory);

    lua_bindwrapper(L, LUAFileSystemImpl::get_directory_entries);
    lua_bindwrapper(L, LUAFileSystemImpl::get_files);
    lua_bindwrapper(L, LUAFileSystemImpl::get_subdirectories);

    lua_bindwrapper(L, LUAFileSystemImpl::os_name);

    lua_setglobal(L, "FileSystem");

    //  Save a copy of LUA's built-in "require"
    // and "print" functions in the "GEO" table declared to
    // the registry.
    lua_newtable(L);
    lua_getglobal(L, "require");
    lua_setfield(L, -2, "lua_require_func");
    lua_getglobal(L, "print");
    lua_setfield(L, -2, "lua_print_func");
    lua_getglobal(L, "tostring");
    lua_setfield(L, -2, "lua_tostring_func");
    lua_setfield(L, LUA_REGISTRYINDEX, "GEO");

    //  Replace require(),print() and tostring() with our own versions.
    lua_bindwrapperglobal(L, require);
    lua_bindwrapperglobal(L, print);
    lua_bindwrapperglobal(L, tostring);
}

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