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 else fprintf( stderr
, "winebuild: " );
86 vfprintf( stderr
, msg
, valist
);
91 void fatal_perror( const char *msg
, ... )
94 va_start( valist
, msg
);
97 fprintf( stderr
, "%s:", input_file_name
);
99 fprintf( stderr
, "%d:", current_line
);
100 fputc( ' ', stderr
);
102 vfprintf( stderr
, msg
, valist
);
108 void error( const char *msg
, ... )
111 va_start( valist
, msg
);
114 fprintf( stderr
, "%s:", input_file_name
);
116 fprintf( stderr
, "%d:", current_line
);
117 fputc( ' ', stderr
);
119 vfprintf( stderr
, msg
, valist
);
124 void warning( const char *msg
, ... )
128 if (!display_warnings
) return;
129 va_start( valist
, msg
);
132 fprintf( stderr
, "%s:", input_file_name
);
134 fprintf( stderr
, "%d:", current_line
);
135 fputc( ' ', stderr
);
137 fprintf( stderr
, "warning: " );
138 vfprintf( stderr
, msg
, valist
);
142 /* output a standard header for generated files */
143 void output_standard_file_header( FILE *outfile
)
146 fprintf( outfile
, "/* File generated automatically from %s; do not edit! */\n",
149 fprintf( outfile
, "/* File generated automatically; do not edit! */\n" );
151 "/* This file can be copied, modified and distributed without restriction. */\n\n" );
154 /* dump a byte stream into the assembly code */
155 void dump_bytes( FILE *outfile
, const unsigned char *data
, int len
,
156 const char *label
, int constant
)
160 fprintf( outfile
, "\nstatic %sunsigned char %s[%d] = {",
161 constant
? "const " : "", label
, len
);
162 for (i
= 0; i
< len
; i
++)
164 if (!(i
& 7)) fprintf( outfile
, "\n " );
165 fprintf( outfile
, "0x%02x", *data
++ );
166 if (i
< len
- 1) fprintf( outfile
, "," );
168 fprintf( outfile
, "\n};\n" );
172 /*******************************************************************
175 * Open a file in the given srcdir and set the input_file_name global variable.
177 FILE *open_input_file( const char *srcdir
, const char *name
)
180 FILE *file
= fopen( name
, "r" );
184 fullname
= xmalloc( strlen(srcdir
) + strlen(name
) + 2 );
185 strcpy( fullname
, srcdir
);
186 strcat( fullname
, "/" );
187 strcat( fullname
, name
);
188 file
= fopen( fullname
, "r" );
190 else fullname
= xstrdup( name
);
192 if (!file
) fatal_error( "Cannot open file '%s'\n", fullname
);
193 input_file_name
= fullname
;
199 /*******************************************************************
202 * Close the current input file (must have been opened with open_input_file).
204 void close_input_file( FILE *file
)
207 free( input_file_name
);
208 input_file_name
= NULL
;
213 /*******************************************************************
214 * remove_stdcall_decoration
216 * Remove a possible @xx suffix from a function name.
217 * Return the numerical value of the suffix, or -1 if none.
219 int remove_stdcall_decoration( char *name
)
221 char *p
, *end
= strrchr( name
, '@' );
222 if (!end
|| !end
[1] || end
== name
) return -1;
223 /* make sure all the rest is digits */
224 for (p
= end
+ 1; *p
; p
++) if (!isdigit(*p
)) return -1;
226 return atoi( end
+ 1 );
230 /*******************************************************************
233 * Create a new dll spec file descriptor
235 DLLSPEC
*alloc_dll_spec(void)
239 spec
= xmalloc( sizeof(*spec
) );
240 spec
->file_name
= NULL
;
241 spec
->dll_name
= NULL
;
242 spec
->owner_name
= NULL
;
243 spec
->init_func
= NULL
;
244 spec
->type
= SPEC_WIN32
;
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
->characteristics
= 0;
255 spec
->subsystem_major
= 4;
256 spec
->subsystem_minor
= 0;
257 spec
->entry_points
= NULL
;
259 spec
->ordinals
= NULL
;
260 spec
->resources
= NULL
;
265 /*******************************************************************
268 * Free dll spec file descriptor
270 void free_dll_spec( DLLSPEC
*spec
)
274 for (i
= 0; i
< spec
->nb_entry_points
; i
++)
276 ORDDEF
*odp
= &spec
->entry_points
[i
];
278 free( odp
->export_name
);
279 free( odp
->link_name
);
281 free( spec
->file_name
);
282 free( spec
->dll_name
);
283 free( spec
->owner_name
);
284 free( spec
->init_func
);
285 free( spec
->entry_points
);
287 free( spec
->ordinals
);
288 free( spec
->resources
);
293 /*******************************************************************
296 * Map a string to a valid C identifier.
298 const char *make_c_identifier( const char *str
)
300 static char buffer
[256];
303 for (p
= buffer
; *str
&& p
< buffer
+sizeof(buffer
)-1; p
++, str
++)
305 if (isalnum(*str
)) *p
= *str
;
313 /*****************************************************************
314 * Function: get_alignment
317 * According to the info page for gas, the .align directive behaves
318 * differently on different systems. On some architectures, the
319 * argument of a .align directive is the number of bytes to pad to, so
320 * to align on an 8-byte boundary you'd say
322 * On other systems, the argument is "the number of low-order zero bits
323 * that the location counter must have after advancement." So to
324 * align on an 8-byte boundary you'd say
327 * The reason gas is written this way is that it's trying to mimick
328 * native assemblers for the various architectures it runs on. gas
329 * provides other directives that work consistantly across
330 * architectures, but of course we want to work on all arches with or
331 * without gas. Hence this function.
335 * alignBoundary -- the number of bytes to align to.
336 * If we're on an architecture where
337 * the assembler requires a 'number
338 * of low-order zero bits' as a
339 * .align argument, then this number
340 * must be a power of 2.
343 int get_alignment(int alignBoundary
)
345 #if defined(__powerpc__) || defined(__ALPHA__)
349 switch(alignBoundary
)
400 fatal_error("Alignment to %d-byte boundary not supported on this architecture.\n",
405 #elif defined(__i386__) || defined(__sparc__)
407 return alignBoundary
;
410 #error "How does the '.align' assembler directive work on your architecture?"