2 * Small utility functions for winebuild
4 * Copyright 2000 Alexandre Julliard
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
22 #include "wine/port.h"
32 void *xmalloc (size_t size
)
36 res
= malloc (size
? size
: 1);
39 fprintf (stderr
, "Virtual memory exhausted.\n");
45 void *xrealloc (void *ptr
, size_t size
)
47 void *res
= realloc (ptr
, size
);
50 fprintf (stderr
, "Virtual memory exhausted.\n");
56 char *xstrdup( const char *str
)
58 char *res
= strdup( str
);
61 fprintf (stderr
, "Virtual memory exhausted.\n");
67 char *strupper(char *s
)
70 for (p
= s
; *p
; p
++) *p
= toupper(*p
);
74 void fatal_error( const char *msg
, ... )
77 va_start( valist
, msg
);
80 fprintf( stderr
, "%s:", input_file_name
);
82 fprintf( stderr
, "%d:", current_line
);
85 vfprintf( stderr
, msg
, valist
);
90 void fatal_perror( const char *msg
, ... )
93 va_start( valist
, msg
);
96 fprintf( stderr
, "%s:", input_file_name
);
98 fprintf( stderr
, "%d:", current_line
);
101 vfprintf( stderr
, msg
, valist
);
107 void error( const char *msg
, ... )
110 va_start( valist
, msg
);
113 fprintf( stderr
, "%s:", input_file_name
);
115 fprintf( stderr
, "%d:", current_line
);
116 fputc( ' ', stderr
);
118 vfprintf( stderr
, msg
, valist
);
123 void warning( const char *msg
, ... )
127 if (!display_warnings
) return;
128 va_start( valist
, msg
);
131 fprintf( stderr
, "%s:", input_file_name
);
133 fprintf( stderr
, "%d:", current_line
);
134 fputc( ' ', stderr
);
136 fprintf( stderr
, "warning: " );
137 vfprintf( stderr
, msg
, valist
);
141 /* output a standard header for generated files */
142 void output_standard_file_header( FILE *outfile
)
145 fprintf( outfile
, "/* File generated automatically from %s; do not edit! */\n",
148 fprintf( outfile
, "/* File generated automatically; do not edit! */\n" );
150 "/* This file can be copied, modified and distributed without restriction. */\n\n" );
153 /* dump a byte stream into the assembly code */
154 void dump_bytes( FILE *outfile
, const unsigned char *data
, int len
,
155 const char *label
, int constant
)
159 fprintf( outfile
, "\nstatic %sunsigned char %s[%d] = {",
160 constant
? "const " : "", label
, len
);
161 for (i
= 0; i
< len
; i
++)
163 if (!(i
& 7)) fprintf( outfile
, "\n " );
164 fprintf( outfile
, "0x%02x", *data
++ );
165 if (i
< len
- 1) fprintf( outfile
, "," );
167 fprintf( outfile
, "\n};\n" );
171 /*******************************************************************
174 * Open a file in the given srcdir and set the input_file_name global variable.
176 FILE *open_input_file( const char *srcdir
, const char *name
)
179 FILE *file
= fopen( name
, "r" );
183 fullname
= xmalloc( strlen(srcdir
) + strlen(name
) + 2 );
184 strcpy( fullname
, srcdir
);
185 strcat( fullname
, "/" );
186 strcat( fullname
, name
);
187 file
= fopen( fullname
, "r" );
189 else fullname
= xstrdup( name
);
191 if (!file
) fatal_error( "Cannot open file '%s'\n", fullname
);
192 input_file_name
= fullname
;
198 /*******************************************************************
201 * Close the current input file (must have been opened with open_input_file).
203 void close_input_file( FILE *file
)
206 free( input_file_name
);
207 input_file_name
= NULL
;
212 /*******************************************************************
213 * remove_stdcall_decoration
215 * Remove a possible @xx suffix from a function name.
216 * Return the numerical value of the suffix, or -1 if none.
218 int remove_stdcall_decoration( char *name
)
220 char *p
, *end
= strrchr( name
, '@' );
221 if (!end
|| !end
[1] || end
== name
) return -1;
222 /* make sure all the rest is digits */
223 for (p
= end
+ 1; *p
; p
++) if (!isdigit(*p
)) return -1;
225 return atoi( end
+ 1 );
229 /*******************************************************************
232 * Create a new dll spec file descriptor
234 DLLSPEC
*alloc_dll_spec(void)
238 spec
= xmalloc( sizeof(*spec
) );
239 spec
->file_name
= NULL
;
240 spec
->dll_name
= NULL
;
241 spec
->owner_name
= NULL
;
242 spec
->init_func
= NULL
;
243 spec
->type
= SPEC_WIN32
;
244 spec
->mode
= SPEC_MODE_DLL
;
245 spec
->base
= MAX_ORDINALS
;
247 spec
->stack_size
= 0;
249 spec
->nb_entry_points
= 0;
250 spec
->alloc_entry_points
= 0;
252 spec
->nb_resources
= 0;
253 spec
->entry_points
= NULL
;
255 spec
->ordinals
= NULL
;
256 spec
->resources
= NULL
;
261 /*******************************************************************
264 * Free dll spec file descriptor
266 void free_dll_spec( DLLSPEC
*spec
)
270 for (i
= 0; i
< spec
->nb_entry_points
; i
++)
272 ORDDEF
*odp
= &spec
->entry_points
[i
];
274 free( odp
->export_name
);
275 free( odp
->link_name
);
277 free( spec
->file_name
);
278 free( spec
->dll_name
);
279 free( spec
->owner_name
);
280 free( spec
->init_func
);
281 free( spec
->entry_points
);
283 free( spec
->ordinals
);
284 free( spec
->resources
);
289 /*******************************************************************
292 * Map a string to a valid C identifier.
294 const char *make_c_identifier( const char *str
)
296 static char buffer
[256];
299 for (p
= buffer
; *str
&& p
< buffer
+sizeof(buffer
)-1; p
++, str
++)
301 if (isalnum(*str
)) *p
= *str
;
309 /*****************************************************************
310 * Function: get_alignment
313 * According to the info page for gas, the .align directive behaves
314 * differently on different systems. On some architectures, the
315 * argument of a .align directive is the number of bytes to pad to, so
316 * to align on an 8-byte boundary you'd say
318 * On other systems, the argument is "the number of low-order zero bits
319 * that the location counter must have after advancement." So to
320 * align on an 8-byte boundary you'd say
323 * The reason gas is written this way is that it's trying to mimick
324 * native assemblers for the various architectures it runs on. gas
325 * provides other directives that work consistantly across
326 * architectures, but of course we want to work on all arches with or
327 * without gas. Hence this function.
331 * alignBoundary -- the number of bytes to align to.
332 * If we're on an architecture where
333 * the assembler requires a 'number
334 * of low-order zero bits' as a
335 * .align argument, then this number
336 * must be a power of 2.
339 int get_alignment(int alignBoundary
)
341 #if defined(__powerpc__) || defined(__ALPHA__)
345 switch(alignBoundary
)
396 fatal_error("Alignment to %d-byte boundary not supported on this architecture.\n",
401 #elif defined(__i386__) || defined(__sparc__)
403 return alignBoundary
;
406 #error "How does the '.align' assembler directive work on your architecture?"