diff options
Diffstat (limited to 'core/src')
| -rw-r--r-- | core/src/xmake/binutils/ar/readsyms.c | 205 |
1 files changed, 3 insertions, 202 deletions
diff --git a/core/src/xmake/binutils/ar/readsyms.c b/core/src/xmake/binutils/ar/readsyms.c index 7f5f0b077..6d738565e 100644 --- a/core/src/xmake/binutils/ar/readsyms.c +++ b/core/src/xmake/binutils/ar/readsyms.c @@ -20,12 +20,6 @@ */ /* ////////////////////////////////////////////////////////////////////////////////////// - * trace - */ -#define TB_TRACE_MODULE_NAME "ar_readsyms" -#define TB_TRACE_MODULE_DEBUG (0) - -/* ////////////////////////////////////////////////////////////////////////////////////// * includes */ #include "prefix.h" @@ -43,200 +37,7 @@ tb_bool_t xm_binutils_ar_read_symbols(tb_stream_ref_t istream, lua_State *lua) { tb_assert_and_check_return_val(istream && lua, tb_false); - // create result table - lua_newtable(lua); - - // skip AR magic (!<arch>\n or !<arch>\r\n) - if (!tb_stream_seek(istream, 0)) { - return tb_false; - } - tb_uint8_t magic[8]; - if (!tb_stream_bread(istream, magic, 8)) { - return tb_false; - } - // check AR magic: !<arch> - if (magic[0] != '!' || magic[1] != '<' || magic[2] != 'a' || - magic[3] != 'r' || magic[4] != 'c' || magic[5] != 'h' || - magic[6] != '>') { - return tb_false; - } - // handle both \n and \r\n - if (magic[7] == '\n') { - // Standard format: !<arch>\n - // already at position 8, ready to read first member - } else if (magic[7] == '\r') { - // Windows format: !<arch>\r\n, read one more byte - tb_uint8_t next_byte; - if (!tb_stream_bread(istream, &next_byte, 1) || next_byte != '\n') { - return tb_false; - } - } else { - return tb_false; - } - - tb_uint32_t result_count = 0; - tb_hize_t file_size = tb_stream_size(istream); - - // read archive members - while (tb_stream_offset(istream) < file_size) { - // read member header - xm_ar_header_t header; - if (!tb_stream_bread(istream, (tb_byte_t*)&header, sizeof(header))) { - break; - } - - // check magic - if (header.fmag[0] != '`' || header.fmag[1] != '\n') { - break; - } - - // parse file size - tb_int64_t member_size = xm_binutils_ar_parse_decimal(header.size, 10); - if (member_size < 0 || member_size == 0) { - break; - } - - // get member name (handle extended names) - tb_char_t member_name[256] = {0}; - tb_size_t name_len = 0; - if (header.name[0] == '/' && header.name[1] >= '0' && header.name[1] <= '9') { - // extended name reference: /123 (offset in string table) - // For simplicity, skip extended names for now - // TODO: implement extended name support - } else { - // regular name - for (tb_size_t i = 0; i < 16 && header.name[i] != ' ' && header.name[i] != '/' && header.name[i] != '\0'; i++) { - member_name[name_len++] = header.name[i]; - } - // remove trailing '/' - if (name_len > 0 && member_name[name_len - 1] == '/') { - name_len--; - } - member_name[name_len] = '\0'; - } - - // skip special members (symbol table, string table, etc.) - if (member_name[0] == '/' || name_len == 0) { - // skip to next member (align to 2 bytes) - tb_hize_t current_pos = tb_stream_offset(istream); - tb_hize_t next_pos = current_pos + member_size; - if (next_pos & 1) { - next_pos++; // align to 2 bytes - } - if (!tb_stream_seek(istream, next_pos)) { - break; - } - continue; - } - - // read member data - tb_byte_t *member_data = (tb_byte_t*)tb_malloc((tb_size_t)member_size); - if (!member_data) { - break; - } - - if (!tb_stream_bread(istream, member_data, (tb_size_t)member_size)) { - tb_free(member_data); - break; - } - - // create stream from member data - tb_stream_ref_t member_stream = tb_stream_init_from_data(member_data, (tb_size_t)member_size); - if (!member_stream) { - tb_free(member_data); - break; - } - - if (!tb_stream_open(member_stream)) { - tb_free(member_data); - tb_stream_exit(member_stream); - break; - } - - // detect member format and read symbols - tb_int_t member_format = xm_binutils_detect_format(member_stream); - if (member_format == XM_BINUTILS_FORMAT_COFF) { - // create temporary table for member symbols - lua_newtable(lua); - if (xm_binutils_coff_read_symbols(member_stream, lua)) { - // merge symbols into result table - // Stack: result_table(-2), member_table(-1) - tb_int_t member_sym_count = (tb_int_t)luaL_len(lua, -1); - for (tb_int_t i = 1; i <= member_sym_count; i++) { - lua_pushinteger(lua, i); - lua_gettable(lua, -2); // get member_table[i] - // Stack: result_table(-3), member_table(-2), symbol(-1) - if (lua_istable(lua, -1)) { - lua_pushinteger(lua, result_count + 1); - lua_pushvalue(lua, -2); // copy symbol - // Stack: result_table(-5), member_table(-4), symbol(-3), index(-2), symbol(-1) - lua_settable(lua, -5); // result_table[index] = symbol - // Stack: result_table(-3), member_table(-2) - result_count++; - } - lua_pop(lua, 1); // remove symbol - // Stack: result_table(-2), member_table(-1) - } - } - lua_pop(lua, 1); // remove temporary table - // Stack: result_table(-1) - } else if (member_format == XM_BINUTILS_FORMAT_ELF) { - // create temporary table for member symbols - lua_newtable(lua); - if (xm_binutils_elf_read_symbols(member_stream, lua)) { - // merge symbols into result table - tb_int_t member_sym_count = (tb_int_t)luaL_len(lua, -1); - for (tb_int_t i = 1; i <= member_sym_count; i++) { - lua_pushinteger(lua, i); - lua_gettable(lua, -2); - if (lua_istable(lua, -1)) { - lua_pushinteger(lua, result_count + 1); - lua_pushvalue(lua, -2); - lua_settable(lua, -5); - result_count++; - } - lua_pop(lua, 1); - } - } - lua_pop(lua, 1); // remove temporary table - } else if (member_format == XM_BINUTILS_FORMAT_MACHO) { - // create temporary table for member symbols - lua_newtable(lua); - if (xm_binutils_macho_read_symbols(member_stream, lua)) { - // merge symbols into result table - tb_int_t member_sym_count = (tb_int_t)luaL_len(lua, -1); - for (tb_int_t i = 1; i <= member_sym_count; i++) { - lua_pushinteger(lua, i); - lua_gettable(lua, -2); - if (lua_istable(lua, -1)) { - lua_pushinteger(lua, result_count + 1); - lua_pushvalue(lua, -2); - lua_settable(lua, -5); - result_count++; - } - lua_pop(lua, 1); - } - } - lua_pop(lua, 1); // remove temporary table - } - - // cleanup - tb_stream_clos(member_stream); - tb_stream_exit(member_stream); - // Note: tb_stream_init_from_data sets bref=true, so it only references the data. - // We need to free the data after the stream is closed. - tb_free(member_data); - - // align to 2 bytes for next member - tb_hize_t current_pos = tb_stream_offset(istream); - if (current_pos & 1) { - tb_byte_t padding; - if (!tb_stream_bread(istream, &padding, 1)) { - break; - } - } - } - - return tb_true; + // TODO: implement AR archive symbol reading + // This feature is not yet implemented + return tb_false; } - |