utils.c File Reference

#include "config.h"
#include "wine/port.h"
#include <assert.h>
#include <stdio.h>
#include <stdlib.h>
#include <stdarg.h>
#include <string.h>
#include <ctype.h>
#include "widl.h"
#include "utils.h"
#include "parser.h"

Include dependency graph for utils.c:

Go to the source code of this file.

Classes
struct	resource

Macros
#define	CURRENT_LOCATION   { input_name ? input_name : "stdin", line_number, parser_text }

Functions
static void	make_print (char *str)
static void	generic_msg (const loc_info_t *loc_info, const char *s, const char *t, va_list ap)
void	error_loc (const char *s,...)
void	parser_error (const char *s)
void	error_loc_info (const loc_info_t *loc_info, const char *s,...)
int	parser_warning (const char *s,...)
void	error (const char *s,...)
void	warning (const char *s,...)
void	warning_loc_info (const loc_info_t *loc_info, const char *s,...)
void	chat (const char *s,...)
char *	dup_basename (const char *name, const char *ext)
size_t	widl_getline (char **linep, size_t *lenp, FILE *fp)
void *	xmalloc (size_t size)
void *	xrealloc (void *p, size_t size)
char *	xstrdup (const char *str)
int	strendswith (const char *str, const char *end)
static void	check_output_buffer_space (size_t size)
void	init_output_buffer (void)
void	flush_output_buffer (const char *name)
static void	put_resource_id (const char *str)
void	add_output_to_resources (const char *type, const char *name)
void	flush_output_resources (const char *name)
void	put_data (const void *data, size_t size)
void	put_byte (unsigned char val)
void	put_word (unsigned short val)
void	put_dword (unsigned int val)
void	put_qword (unsigned int val)
void	put_pword (unsigned int val)
void	put_str (int indent, const char *format,...)
void	align_output (unsigned int align)

Variables
static const int	want_near_indication = 0
int	byte_swapped = 0
unsigned char *	output_buffer
size_t	output_buffer_pos
size_t	output_buffer_size
static struct resource	resources [16]
static unsigned int	nb_resources

Macro Definition Documentation

CURRENT_LOCATION

#define CURRENT_LOCATION   { input_name ? input_name : "stdin", line_number, parser_text }

Definition at line 36 of file utils.c.

Function Documentation

add_output_to_resources()

void add_output_to_resources	(	const char *	type,
		const char *	name
	)

Definition at line 307 of file utils.c.

{
    size_t data_size = output_buffer_pos;
    size_t header_size = 5 * sizeof(unsigned int) + 2 * sizeof(unsigned short);
 
    assert( nb_resources < sizeof(resources)/sizeof(resources[0]) );
 
    if (type[0] != '#') header_size += (strlen( type ) + 1) * sizeof(unsigned short);
    else header_size += 2 * sizeof(unsigned short);
    if (name[0] != '#') header_size += (strlen( name ) + 1) * sizeof(unsigned short);
    else header_size += 2 * sizeof(unsigned short);
 
    header_size = (header_size + 3) & ~3;
    align_output( 4 );
    check_output_buffer_space( header_size );
    resources[nb_resources].size = header_size + output_buffer_pos;
    memmove( output_buffer + header_size, output_buffer, output_buffer_pos );
 
    output_buffer_pos = 0;
    put_dword( data_size );    /* ResSize */
    put_dword( header_size );  /* HeaderSize */
    put_resource_id( type );   /* ResType */
    put_resource_id( name );   /* ResName */
    align_output( 4 );
    put_dword( 0 );            /* DataVersion */
    put_word( 0 );             /* Memory options */
    put_word( 0 );             /* Language */
    put_dword( 0 );            /* Version */
    put_dword( 0 );            /* Characteristics */
 
    resources[nb_resources++].data = output_buffer;
    init_output_buffer();
}

Referenced by output_typelib_regscript(), save_all_changes(), and write_regscript().

align_output()

void align_output

(

unsigned int

align

)

Definition at line 449 of file utils.c.

{
    size_t size = align - (output_buffer_pos % align);
 
    if (size == align) return;
    check_output_buffer_space( size );
    memset( output_buffer + output_buffer_pos, 0, size );
    output_buffer_pos += size;
}

Referenced by add_output_to_resources().

chat()

void chat	(	const char *	s,
			...
	)

Definition at line 131 of file utils.c.

{
    if(debuglevel & DEBUGLEVEL_CHAT)
    {
        va_list ap;
        va_start(ap, s);
        fprintf(stderr, "chat: ");
        vfprintf(stderr, s, ap);
        va_end(ap);
    }
}

Referenced by add_block(), add_func_desc(), add_importlib(), add_index(), add_interface_typeinfo(), add_name(), add_structure_typeinfo(), add_type_typeinfo(), add_var_desc(), alloc_importinfo(), create_msft_typeinfo(), ctl2_alloc_guid(), dump_type(), dump_var_desc(), encode_type(), encode_var(), find_importinfo(), get_param_flags(), get_type_vt(), local_href(), main(), save_all_changes(), sltg_add_typeinfo(), sltg_write_header(), sltg_write_helpstrings(), sltg_write_nametable(), sltg_write_typeinfo(), write_default_value(), and write_var_desc().

check_output_buffer_space()

static void check_output_buffer_space ( size_t  size )

static

Definition at line 263 of file utils.c.

{
    if (output_buffer_pos + size >= output_buffer_size)
    {
        output_buffer_size = max( output_buffer_size * 2, output_buffer_pos + size );
        output_buffer = xrealloc( output_buffer, output_buffer_size );
    }
}

Referenced by add_output_to_resources(), align_output(), put_byte(), put_data(), and put_str().

dup_basename()

char * dup_basename	(	const char *	name,
		const char *	ext
	)

Definition at line 143 of file utils.c.

{
    int namelen;
    int extlen = strlen(ext);
    char *base;
    char *slash;
 
    if(!name)
        name = "widl.tab";
 
    slash = strrchr(name, '/');
    if (!slash)
        slash = strrchr(name, '\\');
 
    if (slash)
        name = slash + 1;
 
    namelen = strlen(name);
 
    /* +6 for later extension (strlen("_r.rgs")) and +1 for '\0' */
    base = xmalloc(namelen +6 +1);
    strcpy(base, name);
    if(!strcasecmp(name + namelen-extlen, ext))
    {
        base[namelen - extlen] = '\0';
    }
    return base;
}

Referenced by add_filename_node(), dup_basename_token(), main(), and write_import().

error()

void error	(	const char *	s,
			...
	)

Definition at line 104 of file utils.c.

{
    va_list ap;
    va_start(ap, s);
    fprintf(stderr, "error: ");
    vfprintf(stderr, s, ap);
    va_end(ap);
    exit(2);
}

error_loc()

void error_loc	(	const char *	s,
			...
	)

Definition at line 69 of file utils.c.

{
    loc_info_t cur_loc = CURRENT_LOCATION;
    va_list ap;
    va_start(ap, s);
    generic_msg(&cur_loc, s, "error", ap);
    va_end(ap);
    exit(1);
}

Referenced by get_struct_fc(), make_expr2(), make_exprs(), make_exprt(), parser_error(), type_dispinterface_define(), type_dispinterface_define_from_iface(), type_module_define(), type_new_bitfield(), type_new_coclass(), type_new_function(), type_new_module(), and write_locals().

error_loc_info()

void error_loc_info	(	const loc_info_t *	loc_info,
		const char *	s,
			...
	)

Definition at line 85 of file utils.c.

{
    va_list ap;
    va_start(ap, s);
    generic_msg(loc_info, s, "error", ap);
    va_end(ap);
    exit(1);
}

Referenced by check_arithmetic_type(), check_integer_type(), check_scalar_type(), and resolve_expression().

flush_output_buffer()

void flush_output_buffer

(

const char *

name

)

Definition at line 279 of file utils.c.

{
    int fd = open( name, O_WRONLY | O_CREAT | O_TRUNC | O_BINARY, 0666 );
    if (fd == -1) error( "Error creating %s\n", name );
    if (write( fd, output_buffer, output_buffer_pos ) != output_buffer_pos)
        error( "Error writing to %s\n", name );
    close( fd );
    free( output_buffer );
}

flush_output_resources()

void flush_output_resources

(

const char *

name

)

Definition at line 341 of file utils.c.

{
    int fd;
    unsigned int i;
 
    /* all output must have been saved with add_output_to_resources() first */
    assert( !output_buffer_pos );
 
    put_dword( 0 );      /* ResSize */
    put_dword( 32 );     /* HeaderSize */
    put_word( 0xffff );  /* ResType */
    put_word( 0x0000 );
    put_word( 0xffff );  /* ResName */
    put_word( 0x0000 );
    put_dword( 0 );      /* DataVersion */
    put_word( 0 );       /* Memory options */
    put_word( 0 );       /* Language */
    put_dword( 0 );      /* Version */
    put_dword( 0 );      /* Characteristics */
 
    fd = open( name, O_WRONLY | O_CREAT | O_TRUNC | O_BINARY, 0666 );
    if (fd == -1) error( "Error creating %s\n", name );
    if (write( fd, output_buffer, output_buffer_pos ) != output_buffer_pos)
        error( "Error writing to %s\n", name );
    for (i = 0; i < nb_resources; i++)
    {
        if (write( fd, resources[i].data, resources[i].size ) != resources[i].size)
            error( "Error writing to %s\n", name );
        free( resources[i].data );
    }
    close( fd );
    nb_resources = 0;
    free( output_buffer );
}

Referenced by save_all_changes(), write_regscript(), and write_typelib_regscript().

generic_msg()

static void generic_msg ( const loc_info_t *  loc_info, const char *  s, const char *  t, va_list  ap  )

static

Definition at line 50 of file utils.c.

{
    fprintf(stderr, "%s:%d: %s: ", loc_info->input_name, loc_info->line_number, t);
    vfprintf(stderr, s, ap);
 
    if (want_near_indication)
    {
        char *cpy;
        if(loc_info->near_text)
        {
            cpy = xstrdup(loc_info->near_text);
            make_print(cpy);
            fprintf(stderr, " near '%s'", cpy);
            free(cpy);
        }
    }
}

Referenced by error_loc(), error_loc_info(), parser_warning(), and warning_loc_info().

init_output_buffer()

void init_output_buffer

(

void

)

Definition at line 272 of file utils.c.

{
    output_buffer_size = 1024;
    output_buffer_pos = 0;
    output_buffer = xmalloc( output_buffer_size );
}

Referenced by add_output_to_resources(), create_writer_output(), MXWriter_create(), save_all_changes(), and write_regscript().

make_print()

static void make_print ( char *  str )

static

Definition at line 40 of file utils.c.

{
    while(*str)
    {
        if(!isprint(*str))
            *str = ' ';
        str++;
    }
}

Referenced by generic_msg().

parser_error()

void parser_error

(

const char *

s

)

Definition at line 80 of file utils.c.

{
    error_loc("%s\n", s);
}

parser_warning()

int parser_warning	(	const char *	s,
			...
	)

Definition at line 94 of file utils.c.

{
    loc_info_t cur_loc = CURRENT_LOCATION;
    va_list ap;
    va_start(ap, s);
    generic_msg(&cur_loc, s, "warning", ap);
    va_end(ap);
    return 0;
}

put_byte()

void put_byte

(

unsigned char

val

)

Definition at line 383 of file utils.c.

{
    check_output_buffer_space( 1 );
    output_buffer[output_buffer_pos++] = val;
}

put_data()

void put_data	(	const void *	data,
		size_t	size
	)

Definition at line 376 of file utils.c.

{
    check_output_buffer_space( size );
    memcpy( output_buffer + output_buffer_pos, data, size );
    output_buffer_pos += size;
}

Referenced by ctl2_write_segment(), ctl2_write_typeinfos(), put_dword(), put_word(), save_all_changes(), sltg_write_header(), sltg_write_helpstrings(), sltg_write_nametable(), sltg_write_remainder(), and sltg_write_typeinfo().

put_dword()

void put_dword

(

unsigned int

val

)

Definition at line 395 of file utils.c.

{
    if (byte_swapped)
        val = ((val << 24) | ((val << 8) & 0x00ff0000) | ((val >> 8) & 0x0000ff00) | (val >> 24));
    put_data( &val, sizeof(val) );
}

Referenced by add_output_to_resources(), flush_output_resources(), put_pword(), and put_qword().

put_pword()

void put_pword

(

unsigned int

val

)

Definition at line 417 of file utils.c.

{
    if (pointer_size == 8) put_qword( val );
    else put_dword( val );
}

put_qword()

void put_qword

(

unsigned int

val

)

Definition at line 402 of file utils.c.

{
    if (byte_swapped)
    {
        put_dword( 0 );
        put_dword( val );
    }
    else
    {
        put_dword( val );
        put_dword( 0 );
    }
}

Referenced by put_pword().

put_resource_id()

static void put_resource_id ( const char *  str )

inlinestatic

Definition at line 289 of file utils.c.

{
    if (str[0] != '#')
    {
        while (*str)
        {
            unsigned char ch = *str++;
            put_word( toupper(ch) );
        }
        put_word( 0 );
    }
    else
    {
        put_word( 0xffff );
        put_word( atoi( str + 1 ));
    }
}

Referenced by add_output_to_resources().

put_str()

void put_str	(	int	indent,
		const char *	format,
			...
	)

Definition at line 423 of file utils.c.

{
    int n;
    va_list args;
 
    check_output_buffer_space( 4 * indent );
    memset( output_buffer + output_buffer_pos, ' ', 4 * indent );
    output_buffer_pos += 4 * indent;
 
    for (;;)
    {
        size_t size = output_buffer_size - output_buffer_pos;
        va_start( args, format );
    n = vsnprintf( (char *)output_buffer + output_buffer_pos, size, format, args );
    va_end( args );
        if (n == -1) size *= 2;
        else if ((size_t)n >= size) size = n + 1;
        else
        {
            output_buffer_pos += n;
            return;
        }
        check_output_buffer_space( size );
    }
}

Referenced by output_typelib_regscript(), write_coclass(), write_interface(), write_progid(), write_regscript(), and write_typelib_interface().

put_word()

void put_word

(

unsigned short

val

)

Definition at line 389 of file utils.c.

{
    if (byte_swapped) val = (val << 8) | (val >> 8);
    put_data( &val, sizeof(val) );
}

Referenced by add_output_to_resources(), flush_output_resources(), and put_resource_id().

strendswith()

int strendswith	(	const char *	str,
		const char *	end
	)

Definition at line 238 of file utils.c.

{
    int l = strlen(str);
    int m = strlen(end);
    return l >= m && strcmp(str + l - m, end) == 0;
}

Referenced by main(), save_all_changes(), write_regscript(), and write_typelib_regscript().

warning()

void warning	(	const char *	s,
			...
	)

Definition at line 114 of file utils.c.

{
    va_list ap;
    va_start(ap, s);
    fprintf(stderr, "warning: ");
    vfprintf(stderr, s, ap);
    va_end(ap);
}

warning_loc_info()

void warning_loc_info	(	const loc_info_t *	loc_info,
		const char *	s,
			...
	)

Definition at line 123 of file utils.c.

{
    va_list ap;
    va_start(ap, s);
    generic_msg(loc_info, s, "warning", ap);
    va_end(ap);
}

widl_getline()

size_t widl_getline	(	char **	linep,
		size_t *	lenp,
		FILE *	fp
	)

Definition at line 172 of file utils.c.

{
    char *line = *linep;
    size_t len = *lenp;
    size_t n = 0;
 
    if (!line)
    {
        len = 64;
        line = xmalloc(len);
    }
 
    while (fgets(&line[n], len - n, fp))
    {
        n += strlen(&line[n]);
        if (line[n - 1] == '\n')
            break;
        else if (n == len - 1)
        {
            len *= 2;
            line = xrealloc(line, len);
        }
    }
 
    *linep = line;
    *lenp = len;
    return n;
}

Referenced by write_dlldata().

xmalloc()

void * xmalloc

(

size_t

size

)

Definition at line 201 of file utils.c.

{
    void *res;
 
    assert(size > 0);
    res = malloc(size);
    if(res == NULL)
    {
    error("Virtual memory exhausted.\n");
    }
    memset(res, 0x55, size);
    return res;
}

Referenced by dup_basename(), init_output_buffer(), widl_getline(), and xstrdup().

xrealloc()

void * xrealloc	(	void *	p,
		size_t	size
	)

Definition at line 216 of file utils.c.

{
    void *res;
 
    assert(size > 0);
    res = realloc(p, size);
    if(res == NULL)
    {
    error("Virtual memory exhausted.\n");
    }
    return res;
}

Referenced by _rdpdr_check_fds(), add_func_desc(), add_index(), add_name(), add_var_desc(), append_data(), build_iface_list(), channel_process(), check_output_buffer_space(), ctl2_alloc_segment(), extract_rev_infos(), extract_test(), get_subtests(), local_href(), process_data_pdu(), rdp5_process(), rdpdr_process_irp(), tcp_init(), tcp_recv(), widl_getline(), and xclip_handle_PropertyNotify().

xstrdup()

char * xstrdup

(

const char *

str

)

Definition at line 229 of file utils.c.

{
    char *s;
 
    assert(str != NULL);
    s = xmalloc(strlen(str)+1);
    return strcpy(s, str);
}

Referenced by add_importlib(), check_for_additional_prototype_types(), duptype(), extract_test(), generic_msg(), main(), make_token(), seamless_process_line(), set_target(), type_new_alias(), type_new_array(), type_new_encapsulated_union(), type_new_function(), wave_out_open(), write_conf_or_var_desc(), and xkeymap_from_locale().

Variable Documentation

byte_swapped

int byte_swapped = 0

Definition at line 251 of file utils.c.

Referenced by put_dword(), put_qword(), put_word(), save_all_changes(), and tiff_decoder_get_metadata_blocks().

nb_resources

unsigned int nb_resources

static

Definition at line 261 of file utils.c.

Referenced by add_output_to_resources(), and flush_output_resources().

output_buffer

unsigned char* output_buffer

Definition at line 252 of file utils.c.

Referenced by add_output_to_resources().

output_buffer_pos

size_t output_buffer_pos

Definition at line 253 of file utils.c.

Referenced by add_output_to_resources(), align_output(), check_output_buffer_space(), flush_output_buffer(), flush_output_resources(), init_output_buffer(), put_byte(), put_data(), put_str(), save_all_changes(), sltg_write_header(), and write_regscript().

output_buffer_size

size_t output_buffer_size

Definition at line 254 of file utils.c.

Referenced by check_output_buffer_space(), init_output_buffer(), and put_str().

resources

struct resource resources[16]

static

want_near_indication

const int want_near_indication = 0

static

Definition at line 38 of file utils.c.

Referenced by generic_msg().