bin_luac.c File Reference

#include <rz_bin.h>
#include <rz_lib.h>
#include "librz/bin/format/luac/luac_common.h"

Go to the source code of this file.

Macros
#define	GET_INTERNAL_BIN_INFO_OBJ(bf)   ((LuacBinInfo *)(bf)->o->bin_obj)

Functions
static bool	check_buffer (RzBuffer *buff)
static bool	load_buffer (RzBinFile *bf, RzBinObject *obj, RzBuffer *buf, Sdb *sdb)
static RzBinInfo *	info (RzBinFile *bf)
static RzList *	sections (RzBinFile *bf)
static RzList *	symbols (RzBinFile *bf)
static RzList *	entries (RzBinFile *bf)
static RzList *	strings (RzBinFile *bf)

Variables
RzBinPlugin	rz_bin_plugin_luac
RZ_API RzLibStruct	rizin_plugin

Macro Definition Documentation

GET_INTERNAL_BIN_INFO_OBJ

#define GET_INTERNAL_BIN_INFO_OBJ

(

bf

)

((LuacBinInfo *)(bf)->o->bin_obj)

Definition at line 8 of file bin_luac.c.

Function Documentation

check_buffer()

static bool check_buffer ( RzBuffer *  buff )

static

Definition at line 10 of file bin_luac.c.

                                         {
    if (rz_buf_size(buff) > 4) {
        ut8 buf[LUAC_MAGIC_SIZE];
        rz_buf_read_at(buff, LUAC_MAGIC_OFFSET, buf, LUAC_MAGIC_SIZE);
        return !memcmp(buf, LUAC_MAGIC, LUAC_MAGIC_SIZE);
    }
    return false;
}

References LUAC_MAGIC, LUAC_MAGIC_OFFSET, LUAC_MAGIC_SIZE, rz_buf_read_at(), and rz_buf_size().

entries()

static RzList* entries ( RzBinFile *  bf )

static

Definition at line 106 of file bin_luac.c.

                                      {
    if (!bf) {
        return NULL;
    }
    LuacBinInfo *bin_info_obj = GET_INTERNAL_BIN_INFO_OBJ(bf);
    if (!bin_info_obj) {
        return NULL;
    }
 
    return bin_info_obj->entry_list;
}

References luac_bin_info::entry_list, GET_INTERNAL_BIN_INFO_OBJ, and NULL.

info()

static RzBinInfo* info ( RzBinFile *  bf )

static

Definition at line 70 of file bin_luac.c.

                                      {
    if (!bf) {
        return NULL;
    }
    LuacBinInfo *bin_info_obj = GET_INTERNAL_BIN_INFO_OBJ(bf);
    if (!bin_info_obj) {
        return NULL;
    }
 
    return bin_info_obj->general_info;
}

References luac_bin_info::general_info, GET_INTERNAL_BIN_INFO_OBJ, and NULL.

load_buffer()

static bool load_buffer ( RzBinFile *  bf, RzBinObject *  obj, RzBuffer *  buf, Sdb *  sdb  )

static

Definition at line 19 of file bin_luac.c.

                                                                                  {
    ut8 MAJOR_MINOR_VERSION;
    LuacBinInfo *bin_info_obj = NULL;
    LuaProto *proto = NULL;
    RzBinInfo *general_info = NULL;
    st32 major;
    st32 minor;
 
    rz_buf_read_at(buf, LUAC_VERSION_OFFSET, &MAJOR_MINOR_VERSION, sizeof(MAJOR_MINOR_VERSION)); /* 1-byte in fact */
    if ((bin_info_obj = RZ_NEW(LuacBinInfo)) == NULL) {
        return false;
    }
    major = (MAJOR_MINOR_VERSION & 0xF0) >> 4;
    minor = (MAJOR_MINOR_VERSION & 0x0F);
 
    if (major != 5) {
        RZ_LOG_ERROR("currently support lua 5.x only\n");
        return false;
    }
 
    switch (minor) {
    case 4:
        proto = lua_parse_body_54(buf, 0x20, bf->size);
        general_info = lua_parse_header_54(bf, major, minor);
        break;
    case 3:
        proto = lua_parse_body_53(buf, 0x22, bf->size);
        general_info = lua_parse_header_53(bf, major, minor);
        break;
    default:
        RZ_LOG_ERROR("lua 5.%c not support now\n", minor + '0');
        return false;
    }
 
    bin_info_obj = luac_build_info(proto);
    if (bin_info_obj == NULL) {
        lua_free_proto_entry(proto);
        rz_bin_info_free(general_info);
        return false;
    }
    bin_info_obj->general_info = general_info;
    bin_info_obj->major = major;
    bin_info_obj->minor = minor;
 
    lua_free_proto_entry(proto);
    proto = NULL;
 
    obj->bin_obj = bin_info_obj;
    return true;
}

References rz_bin_object_t::bin_obj, luac_bin_info::general_info, lua_free_proto_entry(), lua_parse_body_53(), lua_parse_body_54(), lua_parse_header_53(), lua_parse_header_54(), luac_build_info(), LUAC_VERSION_OFFSET, luac_bin_info::major, major, luac_bin_info::minor, minor, NULL, rz_bin_info_free(), rz_buf_read_at(), RZ_LOG_ERROR, RZ_NEW, rz_bin_file_t::size, and st32.

sections()

static RzList* sections ( RzBinFile *  bf )

static

Definition at line 82 of file bin_luac.c.

                                       {
    if (!bf) {
        return NULL;
    }
    LuacBinInfo *bin_info_obj = GET_INTERNAL_BIN_INFO_OBJ(bf);
    if (!bin_info_obj) {
        return NULL;
    }
 
    return rz_list_clone(bin_info_obj->section_list);
}

References GET_INTERNAL_BIN_INFO_OBJ, NULL, rz_list_clone(), and luac_bin_info::section_list.

strings()

static RzList* strings ( RzBinFile *  bf )

static

Definition at line 118 of file bin_luac.c.

                                      {
    if (!bf) {
        return NULL;
    }
    LuacBinInfo *bin_info_obj = GET_INTERNAL_BIN_INFO_OBJ(bf);
    if (!bin_info_obj) {
        return NULL;
    }
 
    return bin_info_obj->string_list;
}

References GET_INTERNAL_BIN_INFO_OBJ, NULL, and luac_bin_info::string_list.

symbols()

static RzList* symbols ( RzBinFile *  bf )

static

Definition at line 94 of file bin_luac.c.

                                      {
    if (!bf) {
        return NULL;
    }
    LuacBinInfo *bin_info_obj = GET_INTERNAL_BIN_INFO_OBJ(bf);
    if (!bin_info_obj) {
        return NULL;
    }
 
    return bin_info_obj->symbol_list;
}

References GET_INTERNAL_BIN_INFO_OBJ, NULL, and luac_bin_info::symbol_list.

Variable Documentation

rizin_plugin

RZ_API RzLibStruct rizin_plugin

Initial value:

= {
    .type = RZ_LIB_TYPE_BIN,
    .data = &rz_bin_plugin_luac,
    .version = RZ_VERSION
}

Definition at line 147 of file bin_luac.c.

rz_bin_plugin_luac

RzBinPlugin rz_bin_plugin_luac

Initial value:

= {
    .name = "luac",
    .desc = "LUA Compiled File",
    .license = "LGPL3",
    .get_sdb = NULL,
    .load_buffer = &load_buffer,
    .check_buffer = &check_buffer,
    .baddr = NULL,
    .entries = &entries,
    .maps = &rz_bin_maps_of_file_sections,
    .sections = &sections,
    .symbols = &symbols,
    .info = &info,
    .strings = &strings,
}

Definition at line 130 of file bin_luac.c.