| /* |
| * Generate include file dependencies |
| * |
| * Copyright 1996 Alexandre Julliard |
| * |
| * This library is free software; you can redistribute it and/or |
| * modify it under the terms of the GNU Lesser General Public |
| * License as published by the Free Software Foundation; either |
| * version 2.1 of the License, or (at your option) any later version. |
| * |
| * This library is distributed in the hope that it will be useful, |
| * but WITHOUT ANY WARRANTY; without even the implied warranty of |
| * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
| * Lesser General Public License for more details. |
| * |
| * You should have received a copy of the GNU Lesser General Public |
| * License along with this library; if not, write to the Free Software |
| * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA |
| */ |
| |
| #include "config.h" |
| #define NO_LIBWINE_PORT |
| #include "wine/port.h" |
| |
| #include <assert.h> |
| #include <ctype.h> |
| #include <errno.h> |
| #include <stdio.h> |
| #include <stdlib.h> |
| #include <stdarg.h> |
| #include <string.h> |
| #ifdef HAVE_UNISTD_H |
| # include <unistd.h> |
| #endif |
| #include "wine/list.h" |
| |
| /* Max first-level includes per file */ |
| #define MAX_INCLUDES 200 |
| |
| typedef struct _INCL_FILE |
| { |
| struct list entry; |
| char *name; |
| char *filename; |
| char *sourcename; /* source file name for generated headers */ |
| struct _INCL_FILE *included_by; /* file that included this one */ |
| int included_line; /* line where this file was included */ |
| int system; /* is it a system include (#include <name>) */ |
| struct _INCL_FILE *owner; |
| struct _INCL_FILE *files[MAX_INCLUDES]; |
| } INCL_FILE; |
| |
| static struct list sources = LIST_INIT(sources); |
| static struct list includes = LIST_INIT(includes); |
| |
| typedef struct _OBJECT_EXTENSION |
| { |
| struct list entry; |
| const char *extension; |
| } OBJECT_EXTENSION; |
| |
| static struct list object_extensions = LIST_INIT(object_extensions); |
| |
| typedef struct _INCL_PATH |
| { |
| struct list entry; |
| const char *name; |
| } INCL_PATH; |
| |
| static struct list paths = LIST_INIT(paths); |
| |
| static const char *src_dir; |
| static const char *top_src_dir; |
| static const char *top_obj_dir; |
| static const char *OutputFileName = "Makefile"; |
| static const char *Separator = "### Dependencies"; |
| static const char *ProgramName; |
| static int input_line; |
| |
| static const char Usage[] = |
| "Usage: %s [options] [files]\n" |
| "Options:\n" |
| " -Idir Search for include files in directory 'dir'\n" |
| " -Cdir Search for source files in directory 'dir'\n" |
| " -Sdir Set the top source directory\n" |
| " -Tdir Set the top object directory\n" |
| " -fxxx Store output in file 'xxx' (default: Makefile)\n" |
| " -sxxx Use 'xxx' as separator (default: \"### Dependencies\")\n"; |
| |
| |
| /******************************************************************* |
| * fatal_error |
| */ |
| static void fatal_error( const char *msg, ... ) |
| { |
| va_list valist; |
| va_start( valist, msg ); |
| vfprintf( stderr, msg, valist ); |
| va_end( valist ); |
| exit(1); |
| } |
| |
| |
| /******************************************************************* |
| * xmalloc |
| */ |
| static void *xmalloc( size_t size ) |
| { |
| void *res; |
| if (!(res = malloc (size ? size : 1))) |
| fatal_error( "%s: error: Virtual memory exhausted.\n", ProgramName ); |
| return res; |
| } |
| |
| |
| /******************************************************************* |
| * xrealloc |
| */ |
| static void *xrealloc (void *ptr, size_t size) |
| { |
| void *res; |
| assert( size ); |
| if (!(res = realloc( ptr, size ))) |
| fatal_error( "%s: error: Virtual memory exhausted.\n", ProgramName ); |
| return res; |
| } |
| |
| /******************************************************************* |
| * xstrdup |
| */ |
| static char *xstrdup( const char *str ) |
| { |
| char *res = strdup( str ); |
| if (!res) fatal_error( "%s: error: Virtual memory exhausted.\n", ProgramName ); |
| return res; |
| } |
| |
| |
| /******************************************************************* |
| * strmake |
| */ |
| static char *strmake( const char* fmt, ... ) |
| { |
| int n; |
| size_t size = 100; |
| va_list ap; |
| |
| for (;;) |
| { |
| char *p = xmalloc (size); |
| va_start(ap, fmt); |
| n = vsnprintf (p, size, fmt, ap); |
| va_end(ap); |
| if (n == -1) size *= 2; |
| else if ((size_t)n >= size) size = n + 1; |
| else return p; |
| free(p); |
| } |
| } |
| |
| |
| /******************************************************************* |
| * strendswith |
| */ |
| static int strendswith( const char* str, const char* end ) |
| { |
| int l = strlen(str); |
| int m = strlen(end); |
| |
| return l >= m && strcmp(str + l - m, end) == 0; |
| } |
| |
| /******************************************************************* |
| * get_extension |
| */ |
| static char *get_extension( char *filename ) |
| { |
| char *ext = strrchr( filename, '.' ); |
| if (ext && strchr( ext, '/' )) ext = NULL; |
| return ext; |
| } |
| |
| |
| /******************************************************************* |
| * get_line |
| */ |
| static char *get_line( FILE *file ) |
| { |
| static char *buffer; |
| static unsigned int size; |
| |
| if (!size) |
| { |
| size = 1024; |
| buffer = xmalloc( size ); |
| } |
| if (!fgets( buffer, size, file )) return NULL; |
| input_line++; |
| |
| for (;;) |
| { |
| char *p = buffer + strlen(buffer); |
| /* if line is larger than buffer, resize buffer */ |
| while (p == buffer + size - 1 && p[-1] != '\n') |
| { |
| buffer = xrealloc( buffer, size * 2 ); |
| if (!fgets( buffer + size - 1, size + 1, file )) break; |
| p = buffer + strlen(buffer); |
| size *= 2; |
| } |
| if (p > buffer && p[-1] == '\n') |
| { |
| *(--p) = 0; |
| if (p > buffer && p[-1] == '\r') *(--p) = 0; |
| if (p > buffer && p[-1] == '\\') |
| { |
| *(--p) = 0; |
| /* line ends in backslash, read continuation line */ |
| if (!fgets( p, size - (p - buffer), file )) return buffer; |
| input_line++; |
| continue; |
| } |
| } |
| return buffer; |
| } |
| } |
| |
| /******************************************************************* |
| * add_object_extension |
| * |
| * Add an extension for object files. |
| */ |
| static void add_object_extension( const char *ext ) |
| { |
| OBJECT_EXTENSION *object_extension = xmalloc( sizeof(*object_extension) ); |
| list_add_tail( &object_extensions, &object_extension->entry ); |
| object_extension->extension = ext; |
| } |
| |
| /******************************************************************* |
| * add_include_path |
| * |
| * Add a directory to the include path. |
| */ |
| static void add_include_path( const char *name ) |
| { |
| INCL_PATH *path = xmalloc( sizeof(*path) ); |
| list_add_tail( &paths, &path->entry ); |
| path->name = name; |
| } |
| |
| /******************************************************************* |
| * find_src_file |
| */ |
| static INCL_FILE *find_src_file( const char *name ) |
| { |
| INCL_FILE *file; |
| |
| LIST_FOR_EACH_ENTRY( file, &sources, INCL_FILE, entry ) |
| if (!strcmp( name, file->name )) return file; |
| return NULL; |
| } |
| |
| /******************************************************************* |
| * find_include_file |
| */ |
| static INCL_FILE *find_include_file( const char *name ) |
| { |
| INCL_FILE *file; |
| |
| LIST_FOR_EACH_ENTRY( file, &includes, INCL_FILE, entry ) |
| if (!strcmp( name, file->name )) return file; |
| return NULL; |
| } |
| |
| /******************************************************************* |
| * add_include |
| * |
| * Add an include file if it doesn't already exists. |
| */ |
| static INCL_FILE *add_include( INCL_FILE *pFile, const char *name, int line, int system ) |
| { |
| INCL_FILE *include; |
| char *ext; |
| int pos; |
| |
| for (pos = 0; pos < MAX_INCLUDES; pos++) if (!pFile->files[pos]) break; |
| if (pos >= MAX_INCLUDES) |
| fatal_error( "%s: %s: error: too many included files, please fix MAX_INCLUDES\n", |
| ProgramName, pFile->name ); |
| |
| /* enforce some rules for the Wine tree */ |
| |
| if (!memcmp( name, "../", 3 )) |
| fatal_error( "%s:%d: error: #include directive with relative path not allowed\n", |
| pFile->filename, line ); |
| |
| if (!strcmp( name, "config.h" )) |
| { |
| if ((ext = strrchr( pFile->filename, '.' )) && !strcmp( ext, ".h" )) |
| fatal_error( "%s:%d: error: config.h must not be included by a header file\n", |
| pFile->filename, line ); |
| if (pos) |
| fatal_error( "%s:%d: error: config.h must be included before anything else\n", |
| pFile->filename, line ); |
| } |
| else if (!strcmp( name, "wine/port.h" )) |
| { |
| if ((ext = strrchr( pFile->filename, '.' )) && !strcmp( ext, ".h" )) |
| fatal_error( "%s:%d: error: wine/port.h must not be included by a header file\n", |
| pFile->filename, line ); |
| if (!pos) fatal_error( "%s:%d: error: config.h must be included before wine/port.h\n", |
| pFile->filename, line ); |
| if (pos > 1) |
| fatal_error( "%s:%d: error: wine/port.h must be included before everything except config.h\n", |
| pFile->filename, line ); |
| if (strcmp( pFile->files[0]->name, "config.h" )) |
| fatal_error( "%s:%d: error: config.h must be included before wine/port.h\n", |
| pFile->filename, line ); |
| } |
| |
| LIST_FOR_EACH_ENTRY( include, &includes, INCL_FILE, entry ) |
| if (!strcmp( name, include->name )) goto found; |
| |
| include = xmalloc( sizeof(INCL_FILE) ); |
| memset( include, 0, sizeof(INCL_FILE) ); |
| include->name = xstrdup(name); |
| include->included_by = pFile; |
| include->included_line = line; |
| include->system = system; |
| list_add_tail( &includes, &include->entry ); |
| found: |
| pFile->files[pos] = include; |
| return include; |
| } |
| |
| |
| /******************************************************************* |
| * open_src_file |
| */ |
| static FILE *open_src_file( INCL_FILE *pFile ) |
| { |
| FILE *file; |
| |
| /* first try name as is */ |
| if ((file = fopen( pFile->name, "r" ))) |
| { |
| pFile->filename = xstrdup( pFile->name ); |
| return file; |
| } |
| /* now try in source dir */ |
| if (src_dir) |
| { |
| pFile->filename = strmake( "%s/%s", src_dir, pFile->name ); |
| file = fopen( pFile->filename, "r" ); |
| } |
| if (!file) |
| { |
| fprintf( stderr, "%s: error: ", ProgramName ); |
| perror( pFile->name ); |
| exit(1); |
| } |
| return file; |
| } |
| |
| |
| /******************************************************************* |
| * open_include_file |
| */ |
| static FILE *open_include_file( INCL_FILE *pFile ) |
| { |
| FILE *file = NULL; |
| char *filename, *p; |
| INCL_PATH *path; |
| |
| errno = ENOENT; |
| |
| /* check for generated bison header */ |
| |
| if (strendswith( pFile->name, ".tab.h" )) |
| { |
| if (src_dir) |
| filename = strmake( "%s/%.*s.y", src_dir, strlen(pFile->name) - 6, pFile->name ); |
| else |
| filename = strmake( "%.*s.y", strlen(pFile->name) - 6, pFile->name ); |
| |
| if ((file = fopen( filename, "r" ))) |
| { |
| pFile->sourcename = filename; |
| pFile->filename = xstrdup( pFile->name ); |
| /* don't bother to parse it */ |
| fclose( file ); |
| return NULL; |
| } |
| free( filename ); |
| } |
| |
| /* check for generated message resource */ |
| |
| if (strendswith( pFile->name, ".mc.rc" )) |
| { |
| if (src_dir) |
| filename = strmake( "%s/%s", src_dir, pFile->name ); |
| else |
| filename = xstrdup( pFile->name ); |
| |
| filename[strlen(filename) - 3] = 0; |
| |
| if ((file = fopen( filename, "r" ))) |
| { |
| pFile->sourcename = filename; |
| pFile->filename = xstrdup( pFile->name ); |
| /* don't bother to parse it */ |
| fclose( file ); |
| return NULL; |
| } |
| free( filename ); |
| } |
| |
| /* check for corresponding idl file in source dir */ |
| |
| if (strendswith( pFile->name, ".h" )) |
| { |
| if (src_dir) |
| filename = strmake( "%s/%.*s.idl", src_dir, strlen(pFile->name) - 2, pFile->name ); |
| else |
| filename = strmake( "%.*s.idl", strlen(pFile->name) - 2, pFile->name ); |
| |
| if ((file = fopen( filename, "r" ))) |
| { |
| pFile->sourcename = filename; |
| pFile->filename = xstrdup( pFile->name ); |
| return file; |
| } |
| free( filename ); |
| } |
| |
| /* first try name as is */ |
| if ((file = fopen( pFile->name, "r" ))) |
| { |
| pFile->filename = xstrdup( pFile->name ); |
| return file; |
| } |
| |
| /* now try in source dir */ |
| if (src_dir) |
| { |
| filename = strmake( "%s/%s", src_dir, pFile->name ); |
| if ((file = fopen( filename, "r" ))) goto found; |
| free( filename ); |
| } |
| |
| /* check for corresponding idl file in global includes */ |
| |
| if (strendswith( pFile->name, ".h" )) |
| { |
| if (top_src_dir) |
| filename = strmake( "%s/include/%.*s.idl", |
| top_src_dir, strlen(pFile->name) - 2, pFile->name ); |
| else if (top_obj_dir) |
| filename = strmake( "%s/include/%.*s.idl", |
| top_obj_dir, strlen(pFile->name) - 2, pFile->name ); |
| else |
| filename = NULL; |
| |
| if (filename && (file = fopen( filename, "r" ))) |
| { |
| pFile->sourcename = filename; |
| pFile->filename = strmake( "%s/include/%s", top_obj_dir, pFile->name ); |
| return file; |
| } |
| free( filename ); |
| } |
| |
| /* check for corresponding .x file in global includes */ |
| |
| if (strendswith( pFile->name, "tmpl.h" )) |
| { |
| if (top_src_dir) |
| filename = strmake( "%s/include/%.*s.x", |
| top_src_dir, strlen(pFile->name) - 2, pFile->name ); |
| else if (top_obj_dir) |
| filename = strmake( "%s/include/%.*s.x", |
| top_obj_dir, strlen(pFile->name) - 2, pFile->name ); |
| else |
| filename = NULL; |
| |
| if (filename && (file = fopen( filename, "r" ))) |
| { |
| pFile->sourcename = filename; |
| pFile->filename = strmake( "%s/include/%s", top_obj_dir, pFile->name ); |
| return file; |
| } |
| free( filename ); |
| } |
| |
| /* now try in global includes */ |
| if (top_obj_dir) |
| { |
| filename = strmake( "%s/include/%s", top_obj_dir, pFile->name ); |
| if ((file = fopen( filename, "r" ))) goto found; |
| free( filename ); |
| } |
| if (top_src_dir) |
| { |
| filename = strmake( "%s/include/%s", top_src_dir, pFile->name ); |
| if ((file = fopen( filename, "r" ))) goto found; |
| free( filename ); |
| } |
| |
| /* now search in include paths */ |
| LIST_FOR_EACH_ENTRY( path, &paths, INCL_PATH, entry ) |
| { |
| filename = strmake( "%s/%s", path->name, pFile->name ); |
| if ((file = fopen( filename, "r" ))) goto found; |
| free( filename ); |
| } |
| if (pFile->system) return NULL; /* ignore system files we cannot find */ |
| |
| /* try in src file directory */ |
| if ((p = strrchr(pFile->included_by->filename, '/'))) |
| { |
| int l = p - pFile->included_by->filename + 1; |
| filename = xmalloc(l + strlen(pFile->name) + 1); |
| memcpy( filename, pFile->included_by->filename, l ); |
| strcpy( filename + l, pFile->name ); |
| if ((file = fopen( filename, "r" ))) goto found; |
| free( filename ); |
| } |
| |
| fprintf( stderr, "%s:%d: error: ", pFile->included_by->filename, pFile->included_line ); |
| perror( pFile->name ); |
| pFile = pFile->included_by; |
| while (pFile && pFile->included_by) |
| { |
| const char *parent = pFile->included_by->sourcename; |
| if (!parent) parent = pFile->included_by->name; |
| fprintf( stderr, "%s:%d: note: %s was first included here\n", |
| parent, pFile->included_line, pFile->name ); |
| pFile = pFile->included_by; |
| } |
| exit(1); |
| |
| found: |
| pFile->filename = filename; |
| return file; |
| } |
| |
| |
| /******************************************************************* |
| * parse_idl_file |
| * |
| * If for_h_file is non-zero, it means we are not interested in the idl file |
| * itself, but only in the contents of the .h file that will be generated from it. |
| */ |
| static void parse_idl_file( INCL_FILE *pFile, FILE *file, int for_h_file ) |
| { |
| char *buffer, *include; |
| |
| if (for_h_file) |
| { |
| /* generated .h file always includes these */ |
| add_include( pFile, "rpc.h", 0, 1 ); |
| add_include( pFile, "rpcndr.h", 0, 1 ); |
| } |
| |
| input_line = 0; |
| while ((buffer = get_line( file ))) |
| { |
| char quote; |
| char *p = buffer; |
| while (*p && isspace(*p)) p++; |
| |
| if (!strncmp( p, "import", 6 )) |
| { |
| p += 6; |
| while (*p && isspace(*p)) p++; |
| if (*p != '"') continue; |
| include = ++p; |
| while (*p && (*p != '"')) p++; |
| if (!*p) fatal_error( "%s:%d: error: Malformed import directive\n", |
| pFile->filename, input_line ); |
| *p = 0; |
| if (for_h_file && strendswith( include, ".idl" )) strcpy( p - 4, ".h" ); |
| add_include( pFile, include, input_line, 0 ); |
| continue; |
| } |
| |
| if (for_h_file) /* only check for #include inside cpp_quote */ |
| { |
| if (strncmp( p, "cpp_quote", 9 )) continue; |
| p += 9; |
| while (*p && isspace(*p)) p++; |
| if (*p++ != '(') continue; |
| while (*p && isspace(*p)) p++; |
| if (*p++ != '"') continue; |
| if (*p++ != '#') continue; |
| while (*p && isspace(*p)) p++; |
| if (strncmp( p, "include", 7 )) continue; |
| p += 7; |
| while (*p && isspace(*p)) p++; |
| if (*p == '\\' && p[1] == '"') |
| { |
| p += 2; |
| quote = '"'; |
| } |
| else |
| { |
| if (*p++ != '<' ) continue; |
| quote = '>'; |
| } |
| include = p; |
| while (*p && (*p != quote)) p++; |
| if (!*p || (quote == '"' && p[-1] != '\\')) |
| fatal_error( "%s:%d: error: Malformed #include directive inside cpp_quote\n", |
| pFile->filename, input_line ); |
| if (quote == '"') p--; /* remove backslash */ |
| *p = 0; |
| add_include( pFile, include, input_line, (quote == '>') ); |
| continue; |
| } |
| |
| /* check for normal #include */ |
| if (*p++ != '#') continue; |
| while (*p && isspace(*p)) p++; |
| if (strncmp( p, "include", 7 )) continue; |
| p += 7; |
| while (*p && isspace(*p)) p++; |
| if (*p != '\"' && *p != '<' ) continue; |
| quote = *p++; |
| if (quote == '<') quote = '>'; |
| include = p; |
| while (*p && (*p != quote)) p++; |
| if (!*p) fatal_error( "%s:%d: error: Malformed #include directive\n", |
| pFile->filename, input_line ); |
| *p = 0; |
| add_include( pFile, include, input_line, (quote == '>') ); |
| } |
| } |
| |
| /******************************************************************* |
| * parse_c_file |
| */ |
| static void parse_c_file( INCL_FILE *pFile, FILE *file ) |
| { |
| char *buffer, *include; |
| |
| input_line = 0; |
| while ((buffer = get_line( file ))) |
| { |
| char quote; |
| char *p = buffer; |
| while (*p && isspace(*p)) p++; |
| if (*p++ != '#') continue; |
| while (*p && isspace(*p)) p++; |
| if (!strncmp( p, "include", 7 )) p += 7; |
| else if (!strncmp( p, "import", 6 )) p += 6; |
| else continue; |
| while (*p && isspace(*p)) p++; |
| if (*p != '\"' && *p != '<' ) continue; |
| quote = *p++; |
| if (quote == '<') quote = '>'; |
| include = p; |
| while (*p && (*p != quote)) p++; |
| if (!*p) fatal_error( "%s:%d: error: Malformed #include directive\n", |
| pFile->filename, input_line ); |
| *p = 0; |
| add_include( pFile, include, input_line, (quote == '>') ); |
| } |
| } |
| |
| |
| /******************************************************************* |
| * parse_rc_file |
| */ |
| static void parse_rc_file( INCL_FILE *pFile, FILE *file ) |
| { |
| char *buffer, *include; |
| |
| input_line = 0; |
| while ((buffer = get_line( file ))) |
| { |
| char quote; |
| char *p = buffer; |
| while (*p && isspace(*p)) p++; |
| |
| if (p[0] == '/' && p[1] == '*') /* check for magic makedep comment */ |
| { |
| p += 2; |
| while (*p && isspace(*p)) p++; |
| if (strncmp( p, "@makedep:", 9 )) continue; |
| p += 9; |
| while (*p && isspace(*p)) p++; |
| quote = '"'; |
| if (*p == quote) |
| { |
| include = ++p; |
| while (*p && *p != quote) p++; |
| } |
| else |
| { |
| include = p; |
| while (*p && !isspace(*p) && *p != '*') p++; |
| } |
| if (!*p) |
| fatal_error( "%s:%d: error: Malformed makedep comment\n", pFile->filename, input_line ); |
| *p = 0; |
| } |
| else /* check for #include */ |
| { |
| if (*p++ != '#') continue; |
| while (*p && isspace(*p)) p++; |
| if (strncmp( p, "include", 7 )) continue; |
| p += 7; |
| while (*p && isspace(*p)) p++; |
| if (*p != '\"' && *p != '<' ) continue; |
| quote = *p++; |
| if (quote == '<') quote = '>'; |
| include = p; |
| while (*p && (*p != quote)) p++; |
| if (!*p) fatal_error( "%s:%d: error: Malformed #include directive\n", |
| pFile->filename, input_line ); |
| *p = 0; |
| } |
| add_include( pFile, include, input_line, (quote == '>') ); |
| } |
| } |
| |
| |
| /******************************************************************* |
| * parse_generated_idl |
| */ |
| static void parse_generated_idl( INCL_FILE *source ) |
| { |
| char *header, *basename; |
| |
| basename = xstrdup( source->name ); |
| basename[strlen(basename) - 4] = 0; |
| header = strmake( "%s.h", basename ); |
| source->filename = xstrdup( source->name ); |
| |
| if (strendswith( source->name, "_c.c" )) |
| { |
| add_include( source, header, 0, 0 ); |
| } |
| else if (strendswith( source->name, "_i.c" )) |
| { |
| add_include( source, "rpc.h", 0, 1 ); |
| add_include( source, "rpcndr.h", 0, 1 ); |
| add_include( source, "guiddef.h", 0, 1 ); |
| } |
| else if (strendswith( source->name, "_p.c" )) |
| { |
| add_include( source, "objbase.h", 0, 1 ); |
| add_include( source, "rpcproxy.h", 0, 1 ); |
| add_include( source, "wine/exception.h", 0, 1 ); |
| add_include( source, header, 0, 0 ); |
| } |
| else if (strendswith( source->name, "_s.c" )) |
| { |
| add_include( source, "wine/exception.h", 0, 1 ); |
| add_include( source, header, 0, 0 ); |
| } |
| else if (!strcmp( source->name, "dlldata.c" )) |
| { |
| add_include( source, "objbase.h", 0, 1 ); |
| add_include( source, "rpcproxy.h", 0, 1 ); |
| } |
| |
| free( header ); |
| free( basename ); |
| } |
| |
| /******************************************************************* |
| * parse_file |
| */ |
| static void parse_file( INCL_FILE *pFile, int src ) |
| { |
| FILE *file; |
| |
| /* special case for source files generated from idl */ |
| if (strendswith( pFile->name, "_c.c" ) || |
| strendswith( pFile->name, "_i.c" ) || |
| strendswith( pFile->name, "_p.c" ) || |
| strendswith( pFile->name, "_s.c" ) || |
| !strcmp( pFile->name, "dlldata.c" )) |
| { |
| parse_generated_idl( pFile ); |
| return; |
| } |
| |
| /* don't try to open certain types of files */ |
| if (strendswith( pFile->name, ".tlb" ) || |
| strendswith( pFile->name, ".res" ) || |
| strendswith( pFile->name, ".x" )) |
| { |
| pFile->filename = xstrdup( pFile->name ); |
| return; |
| } |
| |
| file = src ? open_src_file( pFile ) : open_include_file( pFile ); |
| if (!file) return; |
| |
| if (pFile->sourcename && strendswith( pFile->sourcename, ".idl" )) |
| parse_idl_file( pFile, file, 1 ); |
| else if (strendswith( pFile->filename, ".idl" )) |
| parse_idl_file( pFile, file, 0 ); |
| else if (strendswith( pFile->filename, ".c" ) || |
| strendswith( pFile->filename, ".m" ) || |
| strendswith( pFile->filename, ".h" ) || |
| strendswith( pFile->filename, ".l" ) || |
| strendswith( pFile->filename, ".y" )) |
| parse_c_file( pFile, file ); |
| else if (strendswith( pFile->filename, ".rc" )) |
| parse_rc_file( pFile, file ); |
| fclose(file); |
| } |
| |
| |
| /******************************************************************* |
| * add_src_file |
| * |
| * Add a source file to the list. |
| */ |
| static INCL_FILE *add_src_file( const char *name ) |
| { |
| INCL_FILE *file; |
| |
| if (find_src_file( name )) return NULL; /* we already have it */ |
| file = xmalloc( sizeof(*file) ); |
| memset( file, 0, sizeof(*file) ); |
| file->name = xstrdup(name); |
| list_add_tail( &sources, &file->entry ); |
| parse_file( file, 1 ); |
| return file; |
| } |
| |
| |
| /******************************************************************* |
| * output_include |
| */ |
| static void output_include( FILE *file, INCL_FILE *pFile, |
| INCL_FILE *owner, int *column ) |
| { |
| int i; |
| |
| if (pFile->owner == owner) return; |
| if (!pFile->filename) return; |
| pFile->owner = owner; |
| if (*column + strlen(pFile->filename) + 1 > 70) |
| { |
| fprintf( file, " \\\n" ); |
| *column = 0; |
| } |
| fprintf( file, " %s", pFile->filename ); |
| *column += strlen(pFile->filename) + 1; |
| for (i = 0; i < MAX_INCLUDES; i++) |
| if (pFile->files[i]) output_include( file, pFile->files[i], |
| owner, column ); |
| } |
| |
| |
| /******************************************************************* |
| * output_src |
| */ |
| static int output_src( FILE *file, INCL_FILE *pFile, int *column ) |
| { |
| char *obj = xstrdup( pFile->name ); |
| char *ext = get_extension( obj ); |
| if (ext) |
| { |
| *ext++ = 0; |
| if (!strcmp( ext, "y" )) /* yacc file */ |
| { |
| /* add source file dependency for parallel makes */ |
| char *header = strmake( "%s.tab.h", obj ); |
| if (find_include_file( header )) fprintf( file, "%s.tab.c: %s\n", obj, header ); |
| free( header ); |
| *column += fprintf( file, "%s.tab.o: %s.tab.c", obj, obj ); |
| } |
| else if (!strcmp( ext, "l" )) /* lex file */ |
| { |
| *column += fprintf( file, "%s.yy.o: %s.yy.c", obj, obj ); |
| } |
| else if (!strcmp( ext, "rc" )) /* resource file */ |
| { |
| *column += fprintf( file, "rsrc.pot %s.res: %s", obj, pFile->filename ); |
| } |
| else if (!strcmp( ext, "mc" )) /* message file */ |
| { |
| *column += fprintf( file, "msg.pot %s.res: %s", obj, pFile->filename ); |
| } |
| else if (!strcmp( ext, "idl" )) /* IDL file */ |
| { |
| char *name; |
| int got_header = 0; |
| const char *suffix = "cips"; |
| |
| name = strmake( "%s.tlb", obj ); |
| if (find_src_file( name )) *column += fprintf( file, "%s %s_t.res", name, obj ); |
| else |
| { |
| got_header = 1; |
| *column += fprintf( file, "%s.h", obj ); |
| } |
| free( name ); |
| |
| while (*suffix) |
| { |
| name = strmake( "%s_%c.c", obj, *suffix ); |
| if (find_src_file( name )) |
| { |
| if (!got_header++) *column += fprintf( file, " %s.h", obj ); |
| *column += fprintf( file, " %s", name ); |
| } |
| free( name ); |
| suffix++; |
| } |
| |
| name = strmake( "%s_r.res", obj ); |
| if (find_src_file( name )) *column += fprintf( file, " %s", name ); |
| free( name ); |
| |
| *column += fprintf( file, ": %s", pFile->filename ); |
| } |
| else if (!strcmp( ext, "tlb" ) || !strcmp( ext, "res" )) |
| { |
| return 0; /* nothing to do for typelib files */ |
| } |
| else |
| { |
| OBJECT_EXTENSION *ext; |
| LIST_FOR_EACH_ENTRY( ext, &object_extensions, OBJECT_EXTENSION, entry ) |
| *column += fprintf( file, "%s.%s ", obj, ext->extension ); |
| *column += fprintf( file, ": %s", pFile->filename ); |
| } |
| } |
| free( obj ); |
| return 1; |
| } |
| |
| |
| /******************************************************************* |
| * create_temp_file |
| */ |
| static FILE *create_temp_file( char **tmp_name ) |
| { |
| char *name = xmalloc( strlen(OutputFileName) + 13 ); |
| unsigned int i, id = getpid(); |
| int fd; |
| FILE *ret = NULL; |
| |
| for (i = 0; i < 100; i++) |
| { |
| sprintf( name, "%s.tmp%08x", OutputFileName, id ); |
| if ((fd = open( name, O_RDWR | O_CREAT | O_EXCL, 0666 )) != -1) |
| { |
| ret = fdopen( fd, "w" ); |
| break; |
| } |
| if (errno != EEXIST) break; |
| id += 7777; |
| } |
| if (!ret) fatal_error( "%s: error: failed to create output file for '%s'\n", |
| ProgramName, OutputFileName ); |
| *tmp_name = name; |
| return ret; |
| } |
| |
| |
| /******************************************************************* |
| * output_dependencies |
| */ |
| static void output_dependencies(void) |
| { |
| INCL_FILE *pFile; |
| int i, column; |
| FILE *file = NULL; |
| char *tmp_name = NULL; |
| |
| if (Separator && ((file = fopen( OutputFileName, "r" )))) |
| { |
| char buffer[1024]; |
| FILE *tmp_file = create_temp_file( &tmp_name ); |
| int found = 0; |
| |
| while (fgets( buffer, sizeof(buffer), file ) && !found) |
| { |
| if (fwrite( buffer, 1, strlen(buffer), tmp_file ) != strlen(buffer)) |
| fatal_error( "%s: error: failed to write to %s\n", ProgramName, tmp_name ); |
| found = !strncmp( buffer, Separator, strlen(Separator) ); |
| } |
| fclose( file ); |
| file = tmp_file; |
| if (!found && list_head(&sources)) fprintf( file, "\n%s\n", Separator ); |
| } |
| else |
| { |
| if (!(file = fopen( OutputFileName, Separator ? "a" : "w" ))) |
| { |
| perror( OutputFileName ); |
| exit(1); |
| } |
| } |
| LIST_FOR_EACH_ENTRY( pFile, &sources, INCL_FILE, entry ) |
| { |
| column = 0; |
| if (!output_src( file, pFile, &column )) continue; |
| for (i = 0; i < MAX_INCLUDES; i++) |
| if (pFile->files[i]) output_include( file, pFile->files[i], |
| pFile, &column ); |
| fprintf( file, "\n" ); |
| } |
| fclose( file ); |
| |
| if (tmp_name) |
| { |
| int ret = rename( tmp_name, OutputFileName ); |
| if (ret == -1 && errno == EEXIST) |
| { |
| /* rename doesn't overwrite on windows */ |
| unlink( OutputFileName ); |
| ret = rename( tmp_name, OutputFileName ); |
| } |
| if (ret == -1) |
| { |
| unlink( tmp_name ); |
| fatal_error( "%s: error: failed to rename output file to '%s'\n", |
| ProgramName, OutputFileName ); |
| } |
| free( tmp_name ); |
| } |
| } |
| |
| |
| /******************************************************************* |
| * parse_option |
| */ |
| static void parse_option( const char *opt ) |
| { |
| switch(opt[1]) |
| { |
| case 'I': |
| if (opt[2]) add_include_path( opt + 2 ); |
| break; |
| case 'C': |
| src_dir = opt + 2; |
| break; |
| case 'S': |
| top_src_dir = opt + 2; |
| break; |
| case 'T': |
| top_obj_dir = opt + 2; |
| break; |
| case 'f': |
| if (opt[2]) OutputFileName = opt + 2; |
| break; |
| case 's': |
| if (opt[2]) Separator = opt + 2; |
| else Separator = NULL; |
| break; |
| case 'x': |
| if (opt[2]) add_object_extension( opt + 2 ); |
| break; |
| default: |
| fprintf( stderr, "Unknown option '%s'\n", opt ); |
| fprintf( stderr, Usage, ProgramName ); |
| exit(1); |
| } |
| } |
| |
| |
| /******************************************************************* |
| * main |
| */ |
| int main( int argc, char *argv[] ) |
| { |
| INCL_FILE *pFile; |
| INCL_PATH *path, *next; |
| int i, j; |
| |
| if ((ProgramName = strrchr( argv[0], '/' ))) ProgramName++; |
| else ProgramName = argv[0]; |
| |
| i = 1; |
| while (i < argc) |
| { |
| if (argv[i][0] == '-') |
| { |
| parse_option( argv[i] ); |
| for (j = i; j < argc; j++) argv[j] = argv[j+1]; |
| argc--; |
| } |
| else i++; |
| } |
| |
| /* ignore redundant source paths */ |
| if (src_dir && !strcmp( src_dir, "." )) src_dir = NULL; |
| if (top_src_dir && top_obj_dir && !strcmp( top_src_dir, top_obj_dir )) top_src_dir = NULL; |
| |
| /* set the default extension list for object files */ |
| if (list_empty( &object_extensions )) |
| add_object_extension( "o" ); |
| |
| /* get rid of absolute paths that don't point into the source dir */ |
| LIST_FOR_EACH_ENTRY_SAFE( path, next, &paths, INCL_PATH, entry ) |
| { |
| if (path->name[0] != '/') continue; |
| if (top_src_dir) |
| { |
| if (!strncmp( path->name, top_src_dir, strlen(top_src_dir) ) && |
| path->name[strlen(top_src_dir)] == '/') continue; |
| } |
| list_remove( &path->entry ); |
| free( path ); |
| } |
| |
| for (i = 1; i < argc; i++) |
| { |
| add_src_file( argv[i] ); |
| if (strendswith( argv[i], "_p.c" )) add_src_file( "dlldata.c" ); |
| } |
| LIST_FOR_EACH_ENTRY( pFile, &includes, INCL_FILE, entry ) parse_file( pFile, 0 ); |
| output_dependencies(); |
| return 0; |
| } |
