static void display_symbols(t_elf *data, t_disp *root)
{
t_disp *tmp;
tmp = root;
while (tmp)
{
if (tmp->symbol->st_shndx != SHN_UNDEF)
printf("%016x %c %3s\n", (unsigned int)tmp->symbol->st_value,
get_symbol_type(tmp->symbol, data), tmp->symbol_name);
else
printf("%18c %4s\n", get_symbol_type(tmp->symbol, data),
tmp->symbol_name);
tmp = tmp->next;
}
}
int search_node_var_decl_function(Node *node, Table *function_table){
if(DEBUG_SYMBOL_TABLE){
printf("#ST: search_node_var_decl_function\n");
}
int errorcount = 0;
Node *aux, *previous;
Symbol *symbol;
for(aux=node->first_child; aux; previous=aux, aux=aux->brother);
Symbol_type type = get_symbol_type(previous->value);
/*
if(error_semantic == 0 && type == _bad_symbol_type_){
error_semantic = 1;
printf("Line %d, col %d: Type identifier expected\n", previous->line, previous->column);
errorcount++;
}
*/
for(aux=node->first_child; aux->brother; aux=aux->brother){
/* TO DO - verificar se variavel ja existe !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! */
symbol = create_symbol(aux->value, type, _none_, NULL, aux->line, aux->column);
insert_symbol_in_table(function_table, symbol);
}
return errorcount;
}
static void display_symbol(t_dumper *dumper, Elf64_Sym *sym)
{
const char *name;
char type;
Elf64_Shdr *shdr;
name = dumper_get_sym_name(dumper, sym);
shdr = dumper_get_shdr_by_index(dumper, sym->st_shndx);
type = get_symbol_type(dumper, sym);
if (name[0] == '\0' || ELF64_ST_TYPE(sym->st_info) == STT_FILE)
return ;
if (type == 'U' || type == 'w')
printf("%s", " ");
else
printf("%016lx", sym->st_value);
printf(" %c %s\n", type, name);
}
int search_node_func_def(Node *node){
if(DEBUG_SYMBOL_TABLE){
printf("#ST: search_node_func_def\n");
}
int errorcount=0;
Table *new_table;
Symbol *symbol;
Node *aux, *previous;
/* creates the symbol element for the Program Table and adds it */
/* TO DO - verificar se variavel ja existe !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! */
symbol = create_symbol(node->first_child->value, _function_, _none_, NULL, -1, -1);
insert_symbol_in_table(program_table, symbol);
/* gets the function return type */
for(aux=node->first_child; aux->brother->node_type != NODE_VAR_PART; aux=aux->brother);
Symbol_type function_return_type = get_symbol_type(aux->value);
/*
if(error_semantic == 0 && function_return_type == _bad_symbol_type_){
error_semantic = 1;
printf("Line %d, col %d: Type identifier expected\n", previous->line, previous->column);
errorcount++;
}
*/
/* creates the new Function table */
new_table = insert_table(_function_table_);
/* creates the symbol element function and adds it to the table */
/* TO DO - verificar se variavel ja existe !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! */
symbol = create_symbol(node->first_child->value, function_return_type, _return_, NULL, -1, -1);
insert_symbol_in_table(new_table, symbol);
/* travels to the NODE_FUNC_PARAMS node and runs through their childrens and grandchildrens */
errorcount += search_node_func_params(new_table, node->first_child->brother);
for(aux=node->first_child; aux->node_type != NODE_VAR_PART; aux = aux->brother);
errorcount += search_node_var_part_function(aux, new_table);
return errorcount;
}
int search_node_func_params(Table *function_table, Node *node){
if(DEBUG_SYMBOL_TABLE){
printf("#ST: search_node_func_params\n");
}
int errorcount = 0;
Node *aux_node_params, *aux_node_id, *previous;
Symbol_type var_type;
Symbol *symbol;
Flag flag_type;
/* runs over each NODE_VAR_PARAMS or NODE_PARAMS */
for(aux_node_params=node->first_child; aux_node_params; aux_node_params=aux_node_params->brother){
/* gets the symbol_type of the vars */
for(aux_node_id=aux_node_params->first_child; aux_node_id; previous=aux_node_id, aux_node_id=aux_node_id->brother);
var_type = get_symbol_type(previous->value);
/*
if(error_semantic == 0 && var_type == _bad_symbol_type_){
error_semantic = 1;
printf("Line %d, col %d: Type identifier expected\n", previous->line, previous->column);
errorcount++;
}
*/
if(aux_node_params->node_type == NODE_VAR_PARAMS)
flag_type = _varparam_;
else if(aux_node_params->node_type == NODE_PARAMS)
flag_type = _param_;
/* creates a new symbol element and adds it to the function table */
for(aux_node_id=aux_node_params->first_child; aux_node_id->brother; aux_node_id=aux_node_id->brother){
/* TO DO - verificar se variavel ja existe !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! */
symbol = create_symbol(aux_node_id->value, var_type, flag_type, NULL, aux_node_id->line, aux_node_id->column);
insert_symbol_in_table(function_table, symbol);
}
}
return errorcount;
}
static void command_get_context(char * token, Channel * c) {
int err = 0;
char id[256];
Symbol sym;
json_read_string(&c->inp, id, sizeof(id));
if (read_stream(&c->inp) != 0) exception(ERR_JSON_SYNTAX);
if (read_stream(&c->inp) != MARKER_EOM) exception(ERR_JSON_SYNTAX);
if (id2symbol(id, &sym) < 0) err = errno;
write_stringz(&c->out, "R");
write_stringz(&c->out, token);
write_errno(&c->out, err);
if (err == 0) {
char * name = NULL;
int type_class = TYPE_CLASS_UNKNOWN;
Symbol type;
size_t size = 0;
void * value = NULL;
unsigned long length = 0;
unsigned long offset = 0;
ContextAddress address = 0;
int frame = STACK_NO_FRAME; /* TODO: symbol frame */
write_stream(&c->out, '{');
json_write_string(&c->out, "ID");
write_stream(&c->out, ':');
json_write_string(&c->out, id);
write_stream(&c->out, ',');
json_write_string(&c->out, "ExeID");
write_stream(&c->out, ':');
json_write_string(&c->out, container_id(sym.ctx));
write_stream(&c->out, ',');
if (get_symbol_name(&sym, &name) == 0 && name != NULL) {
json_write_string(&c->out, "Name");
write_stream(&c->out, ':');
json_write_string(&c->out, name);
write_stream(&c->out, ',');
loc_free(name);
}
if (get_symbol_type_class(&sym, &type_class) == 0 && type_class != TYPE_CLASS_UNKNOWN) {
json_write_string(&c->out, "TypeClass");
write_stream(&c->out, ':');
json_write_long(&c->out, type_class);
write_stream(&c->out, ',');
}
if (get_symbol_type(&sym, &type) == 0) {
json_write_string(&c->out, "TypeID");
write_stream(&c->out, ':');
json_write_string(&c->out, symbol2id(&type));
write_stream(&c->out, ',');
}
if (get_symbol_base_type(&sym, &type) == 0) {
json_write_string(&c->out, "BaseTypeID");
write_stream(&c->out, ':');
json_write_string(&c->out, symbol2id(&type));
write_stream(&c->out, ',');
}
if (get_symbol_index_type(&sym, &type) == 0) {
json_write_string(&c->out, "IndexTypeID");
write_stream(&c->out, ':');
json_write_string(&c->out, symbol2id(&type));
write_stream(&c->out, ',');
}
if (get_symbol_size(&sym, frame, &size) == 0) {
json_write_string(&c->out, "Size");
write_stream(&c->out, ':');
json_write_long(&c->out, size);
write_stream(&c->out, ',');
}
if (get_symbol_length(&sym, frame, &length) == 0) {
json_write_string(&c->out, "Length");
write_stream(&c->out, ':');
json_write_long(&c->out, length);
write_stream(&c->out, ',');
}
if (sym.sym_class == SYM_CLASS_REFERENCE) {
if (get_symbol_offset(&sym, &offset) == 0) {
json_write_string(&c->out, "Offset");
write_stream(&c->out, ':');
json_write_long(&c->out, offset);
write_stream(&c->out, ',');
}
if (get_symbol_address(&sym, frame, &address) == 0) {
json_write_string(&c->out, "Address");
write_stream(&c->out, ':');
json_write_long(&c->out, address);
write_stream(&c->out, ',');
}
}
if (sym.sym_class == SYM_CLASS_VALUE && get_symbol_value(&sym, &value, &size) == 0) {
json_write_string(&c->out, "Value");
write_stream(&c->out, ':');
json_write_binary(&c->out, value, size);
write_stream(&c->out, ',');
}
json_write_string(&c->out, "Class");
write_stream(&c->out, ':');
json_write_long(&c->out, sym.sym_class);
write_stream(&c->out, '}');
write_stream(&c->out, 0);
}
else {
write_stringz(&c->out, "null");
}
write_stream(&c->out, MARKER_EOM);
}
static void command_get_context_cache_client(void * x) {
CommandGetContextArgs * args = (CommandGetContextArgs *)x;
Channel * c = cache_channel();
int err = 0;
Symbol * sym = NULL;
char * owner = NULL;
char * name = NULL;
int update_policy = 0;
int sym_class = SYM_CLASS_UNKNOWN;
int type_class = TYPE_CLASS_UNKNOWN;
Symbol * type = NULL;
Symbol * base = NULL;
Symbol * index = NULL;
Symbol * container = NULL;
int has_size = 0;
int has_length = 0;
int has_lower_bound = 0;
int has_offset = 0;
int has_address = 0;
int has_frame = 0;
int big_endian = 0;
ContextAddress size = 0;
ContextAddress length = 0;
int64_t lower_bound = 0;
ContextAddress offset = 0;
ContextAddress address = 0;
RegisterDefinition * reg = NULL;
SYM_FLAGS flags = 0;
void * value = NULL;
size_t value_size = 0;
Context * ctx = NULL;
int frame = STACK_NO_FRAME;
SymbolProperties props;
memset(&props, 0, sizeof(props));
if (id2symbol(args->id, &sym) < 0) err = errno;
if (err == 0) {
get_symbol_class(sym, &sym_class);
get_symbol_update_policy(sym, &owner, &update_policy);
get_symbol_name(sym, &name);
get_symbol_type_class(sym, &type_class);
get_symbol_type(sym, &type);
get_symbol_base_type(sym, &base);
get_symbol_index_type(sym, &index);
get_symbol_container(sym, &container);
has_frame = get_symbol_frame(sym, &ctx, &frame) == 0;
has_size = get_symbol_size(sym, &size) == 0;
if (type_class == TYPE_CLASS_ARRAY) {
has_length = get_symbol_length(sym, &length) == 0;
if (has_length) has_lower_bound = get_symbol_lower_bound(sym, &lower_bound) == 0;
}
if (sym_class == SYM_CLASS_REFERENCE || sym_class == SYM_CLASS_FUNCTION ||
sym_class == SYM_CLASS_VALUE || sym_class == SYM_CLASS_TYPE ||
sym_class == SYM_CLASS_VARIANT_PART) {
LocationInfo * loc_info = NULL;
if (has_frame && get_location_info(sym, &loc_info) == 0) {
LocationExpressionState * state = NULL;
if (loc_info->args_cnt == 0) {
/* Absolute location */
state = evaluate_location(ctx, frame, loc_info);
if (state != NULL) {
if (state->stk_pos == 1) {
address = (ContextAddress)state->stk[0];
has_address = 1;
}
if (state->pieces_cnt == 1 && state->pieces->reg != NULL &&
state->pieces->reg->size == state->pieces->size) {
reg = state->pieces->reg;
}
if (state->pieces_cnt > 0) {
Trap trap;
if (set_trap(&trap)) {
read_location_pieces(state->ctx, state->stack_frame,
state->pieces, state->pieces_cnt, loc_info->big_endian, &value, &value_size);
big_endian = loc_info->big_endian;
clear_trap(&trap);
}
}
}
}
else if (loc_info->args_cnt == 1) {
/* Relative location */
state = evaluate_location(ctx, frame, loc_info);
if (state != NULL && state->stk_pos == 1) {
offset = (ContextAddress)state->stk[0];
has_offset = 1;
}
}
}
}
get_symbol_flags(sym, &flags);
get_symbol_props(sym, &props);
}
cache_exit();
write_stringz(&c->out, "R");
write_stringz(&c->out, args->token);
write_errno(&c->out, err);
if (err == 0) {
write_stream(&c->out, '{');
json_write_string(&c->out, "ID");
write_stream(&c->out, ':');
json_write_string(&c->out, args->id);
write_stream(&c->out, ',');
if (owner != NULL) {
json_write_string(&c->out, "OwnerID");
write_stream(&c->out, ':');
json_write_string(&c->out, owner);
write_stream(&c->out, ',');
json_write_string(&c->out, "UpdatePolicy");
write_stream(&c->out, ':');
json_write_long(&c->out, update_policy);
write_stream(&c->out, ',');
}
if (name != NULL) {
json_write_string(&c->out, "Name");
write_stream(&c->out, ':');
json_write_string(&c->out, name);
write_stream(&c->out, ',');
}
if (type_class != TYPE_CLASS_UNKNOWN) {
json_write_string(&c->out, "TypeClass");
write_stream(&c->out, ':');
json_write_long(&c->out, type_class);
write_stream(&c->out, ',');
}
if (type != NULL) {
json_write_string(&c->out, "TypeID");
write_stream(&c->out, ':');
json_write_string(&c->out, symbol2id(type));
write_stream(&c->out, ',');
}
if (base != NULL) {
json_write_string(&c->out, "BaseTypeID");
write_stream(&c->out, ':');
json_write_string(&c->out, symbol2id(base));
write_stream(&c->out, ',');
}
if (index != NULL) {
json_write_string(&c->out, "IndexTypeID");
write_stream(&c->out, ':');
json_write_string(&c->out, symbol2id(index));
write_stream(&c->out, ',');
}
if (container != NULL) {
json_write_string(&c->out, "ContainerID");
write_stream(&c->out, ':');
json_write_string(&c->out, symbol2id(container));
write_stream(&c->out, ',');
}
if (has_size) {
json_write_string(&c->out, "Size");
write_stream(&c->out, ':');
json_write_uint64(&c->out, size);
write_stream(&c->out, ',');
}
if (has_length) {
json_write_string(&c->out, "Length");
write_stream(&c->out, ':');
json_write_uint64(&c->out, length);
write_stream(&c->out, ',');
if (has_lower_bound) {
json_write_string(&c->out, "LowerBound");
write_stream(&c->out, ':');
json_write_int64(&c->out, lower_bound);
write_stream(&c->out, ',');
json_write_string(&c->out, "UpperBound");
write_stream(&c->out, ':');
json_write_int64(&c->out, lower_bound + (int64_t)length - 1);
write_stream(&c->out, ',');
}
}
if (has_offset) {
json_write_string(&c->out, "Offset");
write_stream(&c->out, ':');
json_write_uint64(&c->out, offset);
write_stream(&c->out, ',');
}
if (has_address) {
json_write_string(&c->out, "Address");
write_stream(&c->out, ':');
json_write_uint64(&c->out, address);
write_stream(&c->out, ',');
}
if (reg != NULL && has_frame) {
json_write_string(&c->out, "Register");
write_stream(&c->out, ':');
json_write_string(&c->out, register2id(ctx, frame, reg));
write_stream(&c->out, ',');
}
if (flags) {
json_write_string(&c->out, "Flags");
write_stream(&c->out, ':');
json_write_long(&c->out, flags);
write_stream(&c->out, ',');
}
if (props.binary_scale != 0) {
json_write_string(&c->out, "BinaryScale");
write_stream(&c->out, ':');
json_write_long(&c->out, props.binary_scale);
write_stream(&c->out, ',');
}
if (props.decimal_scale != 0) {
json_write_string(&c->out, "DecimalScale");
write_stream(&c->out, ':');
json_write_long(&c->out, props.decimal_scale);
write_stream(&c->out, ',');
}
if (props.bit_stride != 0) {
json_write_string(&c->out, "BitStride");
write_stream(&c->out, ':');
json_write_ulong(&c->out, props.bit_stride);
write_stream(&c->out, ',');
}
if (props.local_entry_offset != 0) {
json_write_string(&c->out, "LocalEntryOffset");
write_stream(&c->out, ':');
json_write_ulong(&c->out, props.local_entry_offset);
write_stream(&c->out, ',');
}
if (value != NULL) {
json_write_string(&c->out, "Value");
write_stream(&c->out, ':');
json_write_binary(&c->out, value, value_size);
write_stream(&c->out, ',');
if (big_endian) {
json_write_string(&c->out, "BigEndian");
write_stream(&c->out, ':');
json_write_boolean(&c->out, 1);
write_stream(&c->out, ',');
}
}
if (has_frame && frame != STACK_NO_FRAME) {
json_write_string(&c->out, "Frame");
write_stream(&c->out, ':');
json_write_long(&c->out, frame);
write_stream(&c->out, ',');
}
json_write_string(&c->out, "Class");
write_stream(&c->out, ':');
json_write_long(&c->out, sym_class);
write_stream(&c->out, '}');
write_stream(&c->out, 0);
}
else {
write_stringz(&c->out, "null");
}
write_stream(&c->out, MARKER_EOM);
}
