Function close_lua_state

src/Chain/libraries/glua/thinkyoung_lua_lib.cpp:1090–1179

            }

            void close_lua_state(lua_State *L) {
                luaL_commit_storage_changes(L);
                thinkyoung::lua::api::global_glua_chain_api->release_objects_in_pool(L);
                LStatesMap *states_map = get_lua_states_value_hashmap();

                if (nullptr != states_map) {
                    auto lua_table_map_list_p = get_lua_state_value(L, LUA_TABLE_MAP_LIST_STATE_MAP_KEY).pointer_value;

                    if (nullptr != lua_table_map_list_p) {
                        auto list_p = (std::list<GluaTableMapP>*) lua_table_map_list_p;

                        for (auto it = list_p->begin(); it != list_p->end(); ++it) {
                            GluaTableMapP lua_table_map = *it;
                            // lua_table_map->~GluaTableMap();
                            // lua_free(L, lua_table_map);
                            delete lua_table_map;
                        }

                        delete list_p;
                    }

                    L_V1 map = create_value_map_for_lua_state(L);

                    for (auto it = map->begin(); it != map->end(); ++it) {
                        if (it->second.type == LUA_STATE_VALUE_INT_POINTER) {
                            lua_free(L, it->second.value.int_pointer_value);
                            it->second.value.int_pointer_value = nullptr;
                        }
                    }

                    // close values in state values(some pointers need free), eg. storage infos, contract infos
                    GluaStateValueNode storage_changelist_node = get_lua_state_value_node(L, LUA_STORAGE_CHANGELIST_KEY);

                    if (storage_changelist_node.type == LUA_STATE_VALUE_POINTER && nullptr != storage_changelist_node.value.pointer_value) {
                        GluaStorageChangeList *list = (GluaStorageChangeList*)storage_changelist_node.value.pointer_value;

                        for (auto it = list->begin(); it != list->end(); ++it) {
                            GluaStorageValue before = it->before;
                            GluaStorageValue after = it->after;

                            if (lua_storage_is_table(before.type)) {
                                // free_lua_table_map(L, before.value.table_value);
                            }

                            if (lua_storage_is_table(after.type)) {
                                // free_lua_table_map(L, after.value.table_value);
                            }
                        }

                        list->~GluaStorageChangeList();
                        lua_free(L, list);
                    }

                    GluaStateValueNode storage_table_read_list_node = get_lua_state_value_node(L, LUA_STORAGE_READ_TABLES_KEY);

                    if (storage_table_read_list_node.type == LUA_STATE_VALUE_POINTER && nullptr != storage_table_read_list_node.value.pointer_value) {
                        GluaStorageTableReadList *list = (GluaStorageTableReadList*)storage_table_read_list_node.value.pointer_value;
                        list->~GluaStorageTableReadList();