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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
22 #include "wine/port.h"
38 #define MAX_TMP_FILES 8
39 static const char *tmp_files
[MAX_TMP_FILES
];
40 static unsigned int nb_tmp_files
;
53 { "x86_64", CPU_x86_64
},
54 { "sparc", CPU_SPARC
},
55 { "alpha", CPU_ALPHA
},
56 { "powerpc", CPU_POWERPC
}
59 /* atexit handler to clean tmp files */
60 static void cleanup_tmp_files(void)
63 for (i
= 0; i
< MAX_TMP_FILES
; i
++) if (tmp_files
[i
]) unlink( tmp_files
[i
] );
67 void *xmalloc (size_t size
)
71 res
= malloc (size
? size
: 1);
74 fprintf (stderr
, "Virtual memory exhausted.\n");
80 void *xrealloc (void *ptr
, size_t size
)
82 void *res
= realloc (ptr
, size
);
83 if (size
&& res
== NULL
)
85 fprintf (stderr
, "Virtual memory exhausted.\n");
91 char *xstrdup( const char *str
)
93 char *res
= strdup( str
);
96 fprintf (stderr
, "Virtual memory exhausted.\n");
102 char *strupper(char *s
)
105 for (p
= s
; *p
; p
++) *p
= toupper(*p
);
109 int strendswith(const char* str
, const char* end
)
113 return l
>= m
&& strcmp(str
+ l
- m
, end
) == 0;
116 void fatal_error( const char *msg
, ... )
119 va_start( valist
, msg
);
122 fprintf( stderr
, "%s:", input_file_name
);
124 fprintf( stderr
, "%d:", current_line
);
125 fputc( ' ', stderr
);
127 else fprintf( stderr
, "winebuild: " );
128 vfprintf( stderr
, msg
, valist
);
133 void fatal_perror( const char *msg
, ... )
136 va_start( valist
, msg
);
139 fprintf( stderr
, "%s:", input_file_name
);
141 fprintf( stderr
, "%d:", current_line
);
142 fputc( ' ', stderr
);
144 vfprintf( stderr
, msg
, valist
);
150 void error( const char *msg
, ... )
153 va_start( valist
, msg
);
156 fprintf( stderr
, "%s:", input_file_name
);
158 fprintf( stderr
, "%d:", current_line
);
159 fputc( ' ', stderr
);
161 vfprintf( stderr
, msg
, valist
);
166 void warning( const char *msg
, ... )
170 if (!display_warnings
) return;
171 va_start( valist
, msg
);
174 fprintf( stderr
, "%s:", input_file_name
);
176 fprintf( stderr
, "%d:", current_line
);
177 fputc( ' ', stderr
);
179 fprintf( stderr
, "warning: " );
180 vfprintf( stderr
, msg
, valist
);
184 int output( const char *format
, ... )
189 va_start( valist
, format
);
190 ret
= vfprintf( output_file
, format
, valist
);
192 if (ret
< 0) fatal_perror( "Output error" );
196 /* find a build tool in the path, trying the various names */
197 char *find_tool( const char * const *names
)
200 static unsigned int count
, maxlen
;
210 /* split the path in directories */
212 if (!getenv( "PATH" )) return NULL
;
213 path
= xstrdup( getenv( "PATH" ));
214 for (p
= path
, count
= 2; *p
; p
++) if (*p
== ':') count
++;
215 dirs
= xmalloc( count
* sizeof(*dirs
) );
217 dirs
[count
++] = p
= path
;
220 while (*p
&& *p
!= ':') p
++;
225 for (i
= 0; i
< count
; i
++) maxlen
= max( maxlen
, strlen(dirs
[i
])+2 );
230 len
= strlen(*names
) + 1;
231 file
= xmalloc( maxlen
+ len
);
233 for (i
= 0; i
< count
; i
++)
235 strcpy( file
, dirs
[i
] );
236 p
= file
+ strlen(file
);
237 if (p
== file
) *p
++ = '.';
238 if (p
[-1] != '/') *p
++ = '/';
241 if (!stat( file
, &st
) && S_ISREG(st
.st_mode
) && (st
.st_mode
& 0111)) return file
;
249 const char *get_as_command(void)
255 as_command
= xmalloc( strlen(target_alias
) + sizeof("-as") );
256 strcpy( as_command
, target_alias
);
257 strcat( as_command
, "-as" );
261 static const char * const commands
[] = { "gas", "as", NULL
};
262 if (!(as_command
= find_tool( commands
))) as_command
= xstrdup("as");
265 if (force_pointer_size
)
267 const char *args
= (force_pointer_size
== 8) ? " --64" : " --32";
268 as_command
= xrealloc( as_command
, strlen(as_command
) + strlen(args
) + 1 );
269 strcat( as_command
, args
);
275 const char *get_ld_command(void)
281 ld_command
= xmalloc( strlen(target_alias
) + sizeof("-ld") );
282 strcpy( ld_command
, target_alias
);
283 strcat( ld_command
, "-ld" );
287 static const char * const commands
[] = { "ld", "gld", NULL
};
288 if (!(ld_command
= find_tool( commands
))) ld_command
= xstrdup("ld");
291 if (force_pointer_size
)
293 const char *args
= (force_pointer_size
== 8) ? " -m elf_x86_64" : " -m elf_i386";
294 ld_command
= xrealloc( ld_command
, strlen(ld_command
) + strlen(args
) + 1 );
295 strcat( ld_command
, args
);
301 const char *get_nm_command(void)
307 nm_command
= xmalloc( strlen(target_alias
) + sizeof("-nm") );
308 strcpy( nm_command
, target_alias
);
309 strcat( nm_command
, "-nm" );
313 static const char * const commands
[] = { "nm", "gnm", NULL
};
314 if (!(nm_command
= find_tool( commands
))) nm_command
= xstrdup("nm");
320 /* get a name for a temp file, automatically cleaned up on exit */
321 char *get_temp_file_name( const char *prefix
, const char *suffix
)
327 assert( nb_tmp_files
< MAX_TMP_FILES
);
328 if (!nb_tmp_files
&& !save_temps
) atexit( cleanup_tmp_files
);
330 if (!prefix
|| !prefix
[0]) prefix
= "winebuild";
331 if (!suffix
) suffix
= "";
332 if (!(ext
= strchr( prefix
, '.' ))) ext
= prefix
+ strlen(prefix
);
333 name
= xmalloc( sizeof("/tmp/") + (ext
- prefix
) + sizeof(".XXXXXX") + strlen(suffix
) );
334 strcpy( name
, "/tmp/" );
335 memcpy( name
+ 5, prefix
, ext
- prefix
);
336 strcpy( name
+ 5 + (ext
- prefix
), ".XXXXXX" );
337 strcat( name
, suffix
);
339 /* first try without the /tmp/ prefix */
340 if ((fd
= mkstemps( name
+ 5, strlen(suffix
) )) != -1)
342 else if ((fd
= mkstemps( name
, strlen(suffix
) )) == -1)
343 fatal_error( "could not generate a temp file\n" );
346 tmp_files
[nb_tmp_files
++] = name
;
350 /* output a standard header for generated files */
351 void output_standard_file_header(void)
354 output( "/* File generated automatically from %s; do not edit! */\n", spec_file_name
);
356 output( "/* File generated automatically; do not edit! */\n" );
357 output( "/* This file can be copied, modified and distributed without restriction. */\n\n" );
360 /* dump a byte stream into the assembly code */
361 void dump_bytes( const void *buffer
, unsigned int size
)
364 const unsigned char *ptr
= buffer
;
367 output( "\t.byte " );
368 for (i
= 0; i
< size
- 1; i
++, ptr
++)
370 if ((i
% 16) == 15) output( "0x%02x\n\t.byte ", *ptr
);
371 else output( "0x%02x,", *ptr
);
373 output( "0x%02x\n", *ptr
);
377 /*******************************************************************
380 * Open a file in the given srcdir and set the input_file_name global variable.
382 FILE *open_input_file( const char *srcdir
, const char *name
)
385 FILE *file
= fopen( name
, "r" );
389 fullname
= xmalloc( strlen(srcdir
) + strlen(name
) + 2 );
390 strcpy( fullname
, srcdir
);
391 strcat( fullname
, "/" );
392 strcat( fullname
, name
);
393 file
= fopen( fullname
, "r" );
395 else fullname
= xstrdup( name
);
397 if (!file
) fatal_error( "Cannot open file '%s'\n", fullname
);
398 input_file_name
= fullname
;
404 /*******************************************************************
407 * Close the current input file (must have been opened with open_input_file).
409 void close_input_file( FILE *file
)
412 free( input_file_name
);
413 input_file_name
= NULL
;
418 /*******************************************************************
419 * remove_stdcall_decoration
421 * Remove a possible @xx suffix from a function name.
422 * Return the numerical value of the suffix, or -1 if none.
424 int remove_stdcall_decoration( char *name
)
426 char *p
, *end
= strrchr( name
, '@' );
427 if (!end
|| !end
[1] || end
== name
) return -1;
428 /* make sure all the rest is digits */
429 for (p
= end
+ 1; *p
; p
++) if (!isdigit(*p
)) return -1;
431 return atoi( end
+ 1 );
435 /*******************************************************************
438 * Run a file through the assembler.
440 void assemble_file( const char *src_file
, const char *obj_file
)
442 const char *prog
= get_as_command();
446 cmd
= xmalloc( strlen(prog
) + strlen(obj_file
) + strlen(src_file
) + 6 );
447 sprintf( cmd
, "%s -o %s %s", prog
, obj_file
, src_file
);
448 if (verbose
) fprintf( stderr
, "%s\n", cmd
);
450 if (err
) fatal_error( "%s failed with status %d\n", prog
, err
);
455 /*******************************************************************
458 * Create a new dll spec file descriptor
460 DLLSPEC
*alloc_dll_spec(void)
464 spec
= xmalloc( sizeof(*spec
) );
465 spec
->file_name
= NULL
;
466 spec
->dll_name
= NULL
;
467 spec
->init_func
= NULL
;
468 spec
->type
= SPEC_WIN32
;
469 spec
->base
= MAX_ORDINALS
;
471 spec
->stack_size
= 0;
473 spec
->nb_entry_points
= 0;
474 spec
->alloc_entry_points
= 0;
476 spec
->nb_resources
= 0;
477 spec
->characteristics
= IMAGE_FILE_EXECUTABLE_IMAGE
;
478 if (get_ptr_size() > 4)
479 spec
->characteristics
|= IMAGE_FILE_LARGE_ADDRESS_AWARE
;
481 spec
->characteristics
|= IMAGE_FILE_32BIT_MACHINE
;
482 spec
->dll_characteristics
= IMAGE_DLLCHARACTERISTICS_NX_COMPAT
;
484 spec
->subsystem_major
= 4;
485 spec
->subsystem_minor
= 0;
486 spec
->entry_points
= NULL
;
488 spec
->ordinals
= NULL
;
489 spec
->resources
= NULL
;
494 /*******************************************************************
497 * Free dll spec file descriptor
499 void free_dll_spec( DLLSPEC
*spec
)
503 for (i
= 0; i
< spec
->nb_entry_points
; i
++)
505 ORDDEF
*odp
= &spec
->entry_points
[i
];
507 free( odp
->export_name
);
508 free( odp
->link_name
);
510 free( spec
->file_name
);
511 free( spec
->dll_name
);
512 free( spec
->init_func
);
513 free( spec
->entry_points
);
515 free( spec
->ordinals
);
516 free( spec
->resources
);
521 /*******************************************************************
524 * Map a string to a valid C identifier.
526 const char *make_c_identifier( const char *str
)
528 static char buffer
[256];
531 for (p
= buffer
; *str
&& p
< buffer
+sizeof(buffer
)-1; p
++, str
++)
533 if (isalnum(*str
)) *p
= *str
;
541 /*******************************************************************
544 * Generate an internal name for a stub entry point.
546 const char *get_stub_name( const ORDDEF
*odp
, const DLLSPEC
*spec
)
548 static char buffer
[256];
549 if (odp
->name
|| odp
->export_name
)
552 sprintf( buffer
, "__wine_stub_%s", odp
->name
? odp
->name
: odp
->export_name
);
553 /* make sure name is a legal C identifier */
554 for (p
= buffer
; *p
; p
++) if (!isalnum(*p
) && *p
!= '_') break;
555 if (!*p
) return buffer
;
557 sprintf( buffer
, "__wine_stub_%s_%d", make_c_identifier(spec
->file_name
), odp
->ordinal
);
561 /* parse a cpu name and return the corresponding value */
562 enum target_cpu
get_cpu_from_name( const char *name
)
566 for (i
= 0; i
< sizeof(cpu_names
)/sizeof(cpu_names
[0]); i
++)
567 if (!strcmp( cpu_names
[i
].name
, name
)) return cpu_names
[i
].cpu
;
571 /*****************************************************************
572 * Function: get_alignment
575 * According to the info page for gas, the .align directive behaves
576 * differently on different systems. On some architectures, the
577 * argument of a .align directive is the number of bytes to pad to, so
578 * to align on an 8-byte boundary you'd say
580 * On other systems, the argument is "the number of low-order zero bits
581 * that the location counter must have after advancement." So to
582 * align on an 8-byte boundary you'd say
585 * The reason gas is written this way is that it's trying to mimick
586 * native assemblers for the various architectures it runs on. gas
587 * provides other directives that work consistently across
588 * architectures, but of course we want to work on all arches with or
589 * without gas. Hence this function.
593 * align -- the number of bytes to align to. Must be a power of 2.
595 unsigned int get_alignment(unsigned int align
)
599 assert( !(align
& (align
- 1)) );
606 if (target_platform
!= PLATFORM_APPLE
) return align
;
611 while ((1u << n
) != align
) n
++;
619 /* return the page size for the target CPU */
620 unsigned int get_page_size(void)
624 case CPU_x86
: return 4096;
625 case CPU_x86_64
: return 4096;
626 case CPU_POWERPC
: return 4096;
627 case CPU_SPARC
: return 8192;
628 case CPU_ALPHA
: return 8192;
635 /* return the size of a pointer on the target CPU */
636 unsigned int get_ptr_size(void)
653 /* return the assembly name for a C symbol */
654 const char *asm_name( const char *sym
)
656 static char buffer
[256];
658 switch (target_platform
)
661 case PLATFORM_WINDOWS
:
662 if (sym
[0] == '.' && sym
[1] == 'L') return sym
;
664 strcpy( buffer
+ 1, sym
);
671 /* return an assembly function declaration for a C function name */
672 const char *func_declaration( const char *func
)
674 static char buffer
[256];
676 switch (target_platform
)
680 case PLATFORM_WINDOWS
:
681 sprintf( buffer
, ".def _%s; .scl 2; .type 32; .endef", func
);
684 sprintf( buffer
, ".type %s,@function", func
);
690 /* output a size declaration for an assembly function */
691 void output_function_size( const char *name
)
693 switch (target_platform
)
696 case PLATFORM_WINDOWS
:
699 output( "\t.size %s, .-%s\n", name
, name
);
704 /* output the GNU note for non-exec stack */
705 void output_gnu_stack_note(void)
707 switch (target_platform
)
709 case PLATFORM_WINDOWS
:
713 output( "\t.section .note.GNU-stack,\"\",@progbits\n" );
718 /* return a global symbol declaration for an assembly symbol */
719 const char *asm_globl( const char *func
)
721 static char buffer
[256];
723 switch (target_platform
)
726 sprintf( buffer
, "\t.globl _%s\n\t.private_extern _%s\n_%s:", func
, func
, func
);
728 case PLATFORM_WINDOWS
:
729 sprintf( buffer
, "\t.globl _%s\n_%s:", func
, func
);
732 sprintf( buffer
, "\t.globl %s\n\t.hidden %s\n%s:", func
, func
, func
);
737 const char *get_asm_ptr_keyword(void)
739 switch(get_ptr_size())
741 case 4: return ".long";
742 case 8: return ".quad";
748 const char *get_asm_string_keyword(void)
750 switch (target_platform
)
759 const char *get_asm_short_keyword(void)
761 switch (target_platform
)
763 default: return ".short";
767 const char *get_asm_rodata_section(void)
769 switch (target_platform
)
771 case PLATFORM_APPLE
: return ".const";
772 default: return ".section .rodata";
776 const char *get_asm_string_section(void)
778 switch (target_platform
)
780 case PLATFORM_APPLE
: return ".cstring";
781 default: return ".section .rodata";