/* Copyright (c) 2019-2019, David Anderson
All rights reserved.
Redistribution and use in source and binary forms, with
or without modification, are permitted provided that the
following conditions are met:
Redistributions of source code must retain the above
copyright notice, this list of conditions and the following
disclaimer.
Redistributions in binary form must reproduce the above
copyright notice, this list of conditions and the following
disclaimer in the documentation and/or other materials
provided with the distribution.
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR
CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
#include <config.h>
#include <stdio.h> /* printf() for tests */
#include <string.h> /* strcmp() */
#include "dwarf.h"
#include "libdwarf.h"
#include "dwarf_base_types.h"
#include "dwarf_string.h"
#include "libdwarfp.h"
#include "dwarf_pro_incl.h"
#include "dwarf_pro_opaque.h"
/* in the producer_init extras string.
Handles hex and decimal. Not octal.
Used a very small number of times, so performance
not an issue. */
/* err will be used...shortly */
static int
translatetosigned(char *s,Dwarf_Signed *v, int *err)
{
unsigned char *cp = (unsigned char *)s;
unsigned char *digits = (unsigned char *)s;
int signmult = 1;
Dwarf_Signed l = 0;
(void)err;
if (*cp == '0' &&
(*(cp+1) == 'x'|| (*(cp+1) == 'X'))) {
digits += 2;
cp = digits;
for ( ; *cp; cp++) {
l = l << 4;
switch (*cp) {
case '0':
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9':
l += (*cp - '0');
break;
case 'a':
case 'A':
l += 10;
break;
case 'b':
case 'B':
l += 11;
break;
case 'c':
case 'C':
l += 12;
break;
case 'd':
case 'D':
l += 13;
break;
case 'e':
case 'E':
l += 14;
break;
case 'f':
case 'F':
l += 15;
break;
default:
#ifdef TESTING
printf("ERROR in hex string \"%s\" "
"bad character 0x%x, line %d %s\n",
s,*cp,__LINE__,__FILE__);
#endif
*err = DW_DLE_HEX_STRING_ERROR;
return DW_DLV_ERROR;
}
}
*v = l;
return DW_DLV_OK;
} else if (*cp == '-') {
signmult = -1;
digits ++;
}
cp = digits;
for ( ; *cp; cp++) {
l = l * 10;
switch (*cp) {
case '9':
case '8':
case '7':
case '6':
case '5':
case '4':
case '3':
case '2':
case '1':
case '0':
l += (*cp - '0');
break;
default:
#ifdef TESTING
printf("ERROR in decimal string \"%s\", "
"bad character 0x%x, line %d %s\n",
s,*cp,__LINE__,__FILE__);
#endif
*err = DW_DLE_DECIMAL_STRING_ERROR;
return DW_DLV_ERROR;
}
}
*v = signmult * l;
return DW_DLV_OK;
}
static int
update_named_field(Dwarf_P_Debug dbg,
dwarfstring *cmsname,
dwarfstring *cmsvalue,
int *err)
{
char *name = dwarfstring_string(cmsname);
char *value = dwarfstring_string(cmsvalue);
Dwarf_Signed v = 0;
int res;
res = translatetosigned(value,&v,err);
if (res != DW_DLV_OK) {
return res;
}
if ( dwarfstring_strlen(cmsvalue) == 0) {
return DW_DLV_NO_ENTRY;
}
/* The value in the string is a number,
but always quite a small number. */
if (!strcmp(name,"default_is_stmt")) {
dbg->de_line_inits.pi_default_is_stmt = (unsigned)v;
} else if (!strcmp(name,"minimum_instruction_length")) {
dbg->de_line_inits.pi_minimum_instruction_length =
(unsigned)v;
} else if (!strcmp(name,"maximum_operations_per_instruction")) {
dbg->de_line_inits.pi_maximum_operations_per_instruction =
(unsigned)v;
} else if (!strcmp(name,"opcode_base")) {
dbg->de_line_inits.pi_opcode_base = (unsigned)v;
} else if (!strcmp(name,"line_base")) {
dbg->de_line_inits.pi_line_base = (int)v;
} else if (!strcmp(name,"line_range")) {
dbg->de_line_inits.pi_line_range = (int)v;
} else if (!strcmp(name,"linetable_version")) {
dbg->de_line_inits.pi_linetable_version = (unsigned)v;
dbg->de_output_version = (unsigned char)v;
} else if (!strcmp(name,"segment_selector_size")) {
dbg->de_line_inits.pi_segment_selector_size = (unsigned)v;
} else if (!strcmp(name,"segment_size")) {
dbg->de_line_inits.pi_segment_size = (unsigned)v;
} else if (!strcmp(name,"address_size")) {
dbg->de_line_inits.pi_address_size = (unsigned)v;
dbg->de_pointer_size = (unsigned char)v;
} else {
#ifdef TESTING
printf("ERROR due to unknown string \"%s\", line %d %s\n",
name,__LINE__,__FILE__);
#endif
*err = DW_DLE_PRO_INIT_EXTRAS_UNKNOWN;
return DW_DLV_ERROR;
}
return DW_DLV_OK;
}
static int
update_named_value(Dwarf_P_Debug dbg, dwarfstring*cms,
int *err)
{
char * str = dwarfstring_string(cms);
char *cp = str;
char * value_start = 0;
dwarfstring cmsname;
dwarfstring cmsvalue;
unsigned slen = 0;
int res = 0;
dwarfstring_constructor(&cmsname);
dwarfstring_constructor(&cmsvalue);
for ( ; *cp && *cp != '=' && *cp != ' '; cp++) { }
if (! *cp) {
/* Ignore this, it's empty or has no =value clause */
dwarfstring_destructor(&cmsname);
dwarfstring_destructor(&cmsvalue);
/* FIXME *err */
return DW_DLV_NO_ENTRY;
}
if (*cp == ' ') {
/* Trailing spaces, no = is an input bug. */
dwarfstring_destructor(&cmsname);
dwarfstring_destructor(&cmsvalue);
#ifdef TESTING
printf("ERROR due to trailing spaces before = "
"in \"%s\", line %d %s\n",
cp,__LINE__,__FILE__);
#endif
*err = DW_DLE_PRO_INIT_EXTRAS_ERR;
return DW_DLV_ERROR;
}
slen = cp - str;
dwarfstring_append_length(&cmsname,str,(size_t)slen);
cp++;
value_start = cp;
for ( ; *cp && *cp != ' '; cp++) { }
slen = (unsigned int)(cp - value_start);
if (slen) {
dwarfstring_append_length(&cmsvalue,value_start,(size_t)slen);
} else {
dwarfstring_destructor(&cmsname);
dwarfstring_destructor(&cmsvalue);
return DW_DLV_NO_ENTRY;
}
res = update_named_field(dbg,&cmsname,&cmsvalue,err);
dwarfstring_destructor(&cmsname);
dwarfstring_destructor(&cmsvalue);
return res;
}
static int
find_next_comma(const char *base,const char **nextcomma)
{
const char *cp = base;
for ( ; *cp ; ++cp) {
if (*cp == ',') {
*nextcomma = cp;
return DW_DLV_OK;
}
}
/* Encountered end of string, should not happen as
we ensured a last string. */
*nextcomma = cp;
return DW_DLV_OK;
}
/* Publicly visible in in libdwarf to enable easy testing
of the code here. */
int
_dwarf_log_extra_flagstrings(Dwarf_P_Debug dbg,
const char *extra,
int *err)
{
int res = 0;
const char *nextcharloc = 0;
const char *nextcomma = 0;
dwarfstring cms;
dwarfstring input;
if (!extra || !*extra) {
/* Nothing to do. */
return DW_DLV_NO_ENTRY;
}
dwarfstring_constructor(&cms);
dwarfstring_constructor(&input);
dwarfstring_append(&input,(char *)extra);
/* Adding a final , simplifies logic here. */
dwarfstring_append(&input,(char *)",");
nextcharloc = dwarfstring_string(&input);
while (1) {
dwarfstring_reset(&cms);
find_next_comma(nextcharloc,&nextcomma);
{
unsigned len = (unsigned)(nextcomma - nextcharloc);
if (len > 0) {
dwarfstring_append_length(&cms,(char *)nextcharloc,
len);
res = update_named_value(dbg,&cms,err);
if (res == DW_DLV_ERROR) {
dwarfstring_destructor(&cms);
dwarfstring_destructor(&input);
return res;
}
} else {/* else empty, */
}
if (!(nextcomma[1])) {
/* done */
break;
}
nextcharloc = nextcomma+1;
}
}
dwarfstring_destructor(&cms);
dwarfstring_destructor(&input);
return DW_DLV_OK;
}
/* ===== end Initialization using string=value,string2=valu2 (etc) */