summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRoland McGrath <roland@redhat.com>1992-02-14 10:52:22 +0000
committerRoland McGrath <roland@redhat.com>1992-02-14 10:52:22 +0000
commit24e5b78f36632f94f7f79d2445f697f6677e4f78 (patch)
treefaa94e6996345c17ef33a41e71324d8ce67bc891
parentba251262db8f6eb0f1edb57b6bae223d5beda714 (diff)
downloadgunmake-24e5b78f36632f94f7f79d2445f697f6677e4f78.tar.gz
Initial revision
-rw-r--r--read.c1566
1 files changed, 1566 insertions, 0 deletions
diff --git a/read.c b/read.c
new file mode 100644
index 0000000..ab761bf
--- /dev/null
+++ b/read.c
@@ -0,0 +1,1566 @@
+/* Copyright (C) 1988, 1989, 1990, 1991 Free Software Foundation, Inc.
+This file is part of GNU Make.
+
+GNU Make is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+GNU Make 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 General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with GNU Make; see the file COPYING. If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
+
+#include "make.h"
+#include "commands.h"
+#include "dep.h"
+#include "file.h"
+#include "variable.h"
+
+/* This is POSIX.2, but most systems using -DPOSIX probably don't have it. */
+#ifdef __GNU_LIBRARY__
+#include <glob.h>
+#else
+#include "glob/glob.h"
+#endif
+
+#include <pwd.h>
+struct passwd *getpwnam ();
+
+
+static void read_makefile ();
+static unsigned int readline (), do_define ();
+static int conditional_line ();
+static void record_files ();
+static char *find_semicolon ();
+
+
+/* A `struct linebuffer' is a structure which holds a line of text.
+ `readline' reads a line from a stream into a linebuffer
+ and works regardless of the length of the line. */
+
+struct linebuffer
+ {
+ /* Note: This is the number of bytes malloc'ed for `buffer'
+ It does not indicate `buffer's real length.
+ Instead, a null char indicates end-of-string. */
+ unsigned int size;
+ char *buffer;
+ };
+
+#define initbuffer(lb) (lb)->buffer = (char *) xmalloc ((lb)->size = 200)
+#define freebuffer(lb) free ((lb)->buffer)
+
+
+/* A `struct conditionals' contains the information describing
+ all the active conditionals in a makefile.
+
+ The global variable `conditionals' contains the conditionals
+ information for the current makefile. It is initialized from
+ the static structure `toplevel_conditionals' and is later changed
+ to new structures for included makefiles. */
+
+struct conditionals
+ {
+ unsigned int if_cmds;
+ unsigned int max_ignoring;
+ char *ignoring;
+ };
+
+static struct conditionals toplevel_conditionals;
+static struct conditionals *conditionals = &toplevel_conditionals;
+
+
+/* Default directories to search for include files in */
+
+static char *default_include_directories[] =
+ {
+ "/usr/gnu/include",
+ "/usr/local/include",
+ "/usr/include",
+ 0
+ };
+
+/* List of directories to search for include files in */
+
+static char **include_directories;
+
+/* Maximum length of an element of the above. */
+
+static unsigned int max_incl_len;
+
+/* The filename and pointer to line number of the
+ makefile currently being read in. */
+
+char *reading_filename;
+unsigned int *reading_lineno_ptr;
+
+/* The chain of makefiles read by read_makefile. */
+
+static struct dep *read_makefiles = 0;
+
+/* Read in all the makefiles and return the chain of their names. */
+
+struct dep *
+read_all_makefiles (makefiles)
+ char **makefiles;
+{
+ unsigned int num_makefiles = 0;
+
+ if (debug_flag)
+ puts ("Reading makefiles...");
+
+ /* If there's a non-null variable MAKEFILES, its value is a list of
+ files to read first thing. But don't let it prevent reading the
+ default makefiles and don't let the default goal come from there. */
+
+ {
+ char *value = allocated_variable_expand ("$(MAKEFILES)");
+ char *name, *p;
+ unsigned int length;
+
+ /* Set NAME to the start of next token and LENGTH to its length.
+ MAKEFILES is updated for finding remaining tokens. */
+ p = value;
+ while ((name = find_next_token (&p, &length)) != 0)
+ read_makefile (name, 1);
+
+ free (value);
+ }
+
+ /* Read makefiles specified with -f switches. */
+
+ if (makefiles != 0)
+ while (*makefiles != 0)
+ {
+ struct dep *tail = read_makefiles;
+ register struct dep *d;
+
+ read_makefile (*makefiles, 0);
+
+ /* Find the right element of read_makefiles. */
+ d = read_makefiles;
+ while (d->next != tail)
+ d = d->next;
+
+ /* Use the storage read_filename allocates. */
+ free (*makefiles);
+ *makefiles = dep_name (d);
+ ++num_makefiles;
+ ++makefiles;
+ }
+
+ /* If there were no -f switches, try the default names. */
+
+ if (num_makefiles == 0)
+ {
+ static char *default_makefiles[] =
+ { "GNUmakefile", "makefile", "Makefile", 0 };
+ register char **p = default_makefiles;
+ while (*p != 0 && !file_exists_p (*p))
+ ++p;
+
+ if (*p != 0)
+ read_makefile (*p, 0);
+ else
+ {
+ /* No default makefile was found. Add the default makefiles to the
+ `read_makefiles' chain so they will be updated if possible. */
+ struct dep *tail = read_makefiles;
+ for (p = default_makefiles; *p != 0; ++p)
+ {
+ struct dep *d = (struct dep *) xmalloc (sizeof (struct dep));
+ d->name = 0;
+ d->file = enter_file (*p);
+ d->file->dontcare = 1;
+ /* Setting the `changed' member to 1 will make failure to
+ update or find this makefile as if it had come from the
+ MAKEFILES variable: we don't care, so we won't die. */
+ d->changed = 1;
+ if (tail == 0)
+ read_makefiles = d;
+ else
+ tail->next = d;
+ tail = d;
+ }
+ if (tail != 0)
+ tail->next = 0;
+ }
+ }
+
+ return read_makefiles;
+}
+
+/* Read file FILENAME as a makefile and add its contents to the data base.
+
+ TYPE indicates what flavor of makefile this is: 0 => a default or -f
+ makefile (the basis for comparison); 1 => from the MAKEFILES variable:
+ cannot determine the default goal, is searched for in the search path,
+ and it's not an error if it doesn't exist; 2 => an included makefile:
+ is searched for in the search path.
+
+ FILENAME is added to the `read_makefiles' chain. */
+
+static void
+read_makefile (filename, type)
+ char *filename;
+ int type;
+{
+ static char *collapsed = 0;
+ static unsigned int collapsed_length = 0;
+ register FILE *infile;
+ struct linebuffer lb;
+ unsigned int commands_len = 200;
+ char *commands = (char *) xmalloc (200);
+ unsigned int commands_idx = 0;
+ unsigned int commands_started;
+ register char *p;
+ char *p2;
+ int ignoring = 0;
+
+ struct nameseq *filenames = 0;
+ struct dep *deps;
+ unsigned int lineno = 1;
+ unsigned int nlines = 0;
+ int two_colon;
+ char *pattern = 0, *pattern_percent;
+
+#define record_waiting_files() \
+ do \
+ { \
+ record_files (filenames, pattern, pattern_percent, deps, \
+ commands_started, commands, commands_idx, \
+ two_colon, filename, lineno, type != 1); \
+ filenames = 0; \
+ commands_idx = 0; \
+ pattern = 0; \
+ } while (0)
+
+#ifdef lint /* Suppress `used before set' messages. */
+ two_colon = 0;
+#endif
+
+ /* First, get a stream to read. */
+
+ infile = fopen (filename, "r");
+
+ /* If the makefile wasn't found and it's either a makefile from
+ the `MAKEFILES' variable (type 1) or an included makefile (type 2),
+ search the included makefile search path for this makefile. */
+
+ if (infile == 0 && (type == 1 || type == 2) && *filename != '/')
+ {
+ register unsigned int i;
+ for (i = 0; include_directories[i] != 0; ++i)
+ {
+ char *name = concat (include_directories[i], "/", filename);
+ infile = fopen (name, "r");
+ if (infile != 0)
+ {
+ filename = name;
+ break;
+ }
+ else
+ free (name);
+ }
+ }
+
+ /* Add FILENAME to the chain of read makefiles. */
+ deps = (struct dep *) xmalloc (sizeof (struct dep));
+ deps->next = read_makefiles;
+ read_makefiles = deps;
+ deps->name = 0;
+ deps->file = lookup_file (filename);
+ if (deps->file == 0)
+ {
+ deps->file = enter_file (savestring (filename, strlen (filename)));
+ if (type == 1)
+ deps->file->dontcare = 1;
+ }
+ filename = deps->file->name;
+ deps->file->precious = 1;
+ deps->changed = type;
+ deps = 0;
+
+ /* If the makefile can't be found at all,
+ either ignore it or give up entirely. */
+
+ if (infile == 0)
+ {
+ if (type != 1)
+ perror_with_name ("fopen: ", filename);
+ return;
+ }
+
+ reading_filename = filename;
+ reading_lineno_ptr = &lineno;
+
+ /* Loop over lines in the file.
+ The strategy is to accumulate target names in FILENAMES, dependencies
+ in DEPS and commands in COMMANDS. These are used to define a rule
+ when the start of the next rule (or eof) is encountered. */
+
+ initbuffer (&lb);
+
+ while (!feof (infile))
+ {
+ lineno += nlines;
+ nlines = readline (&lb, infile, filename);
+
+ if (collapsed_length < lb.size)
+ {
+ collapsed_length = lb.size;
+ if (collapsed != 0)
+ free (collapsed);
+ collapsed = (char *) xmalloc (collapsed_length);
+ }
+ strcpy (collapsed, lb.buffer);
+ /* Collapse continuation lines. */
+ collapse_continuations (collapsed);
+ remove_comments (collapsed);
+
+ p = collapsed;
+ while (isspace (*p))
+ ++p;
+ if (*p == '\0' && lb.buffer[0] != '\t')
+ continue;
+
+#define word1eq(s, l) ((p[l] == '\0' || isblank (p[l])) && \
+ !strncmp (s, p, l))
+ if (word1eq ("ifdef", 5) || word1eq ("ifndef", 6)
+ || word1eq ("ifeq", 4) || word1eq ("ifneq", 5)
+ || word1eq ("else", 4) || word1eq ("endif", 5))
+ {
+ int i = conditional_line (p, filename, lineno);
+ if (i >= 0)
+ {
+ ignoring = i;
+ continue;
+ }
+ else
+ makefile_fatal (filename, lineno,
+ "invalid syntax in conditional");
+ }
+ else if (word1eq ("endef", 5))
+ makefile_fatal (filename, lineno, "extraneous `endef'");
+ if (ignoring)
+ continue;
+ else if (lb.buffer[0] == '\t')
+ {
+ /* This line is a shell command. */
+ unsigned int len;
+
+ if (filenames == 0)
+ makefile_fatal (filename, lineno,
+ "commands commence before first target");
+
+ /* Add this command line to end of the line being accumulated. */
+ p = lb.buffer;
+ if (commands_idx == 0)
+ commands_started = lineno;
+ len = strlen (p);
+ if (len + 1 + commands_idx > commands_len)
+ {
+ commands_len = (len + 1 + commands_idx) * 2;
+ commands = (char *) xrealloc (commands, commands_len);
+ }
+ bcopy (p, &commands[commands_idx], len);
+ commands_idx += len;
+ commands[commands_idx++] = '\n';
+ }
+ else if (word1eq ("define", 6))
+ {
+ p2 = next_token (p + 6);
+ p = end_of_token (p2);
+ lineno = do_define (p2, p - p2, o_file, lineno, infile, filename);
+ continue;
+ }
+ else if (word1eq ("override", 8))
+ {
+ p2 = next_token (p + 8);
+ if (p2 == 0)
+ makefile_error (filename, lineno, "empty `override' directive");
+ if (!strncmp (p2, "define", 6))
+ {
+ unsigned int len;
+ p2 = end_of_token (p2);
+ p = find_next_token (&p2, &len);
+ lineno = do_define (p, len, o_override,
+ lineno, infile, filename);
+ }
+ else if (!try_variable_definition (p2, o_override))
+ makefile_error (filename, lineno,
+ "Empty `override' directive");
+ continue;
+ }
+ else if (word1eq ("include", 7))
+ {
+ /* We have found an `include' line specifying a nested
+ makefile to be read at this point. */
+ struct conditionals *save = conditionals;
+ struct conditionals new_conditionals;
+ p = allocated_variable_expand (next_token (p + 8));
+ if (*p == '\0')
+ {
+ makefile_error (filename, lineno, "no filename for `include'");
+ continue;
+ }
+ p2 = end_of_token (p);
+ if (*p2 != '\0')
+ {
+ *p2++ = '\0';
+ if (*next_token (p2) != '\0')
+ makefile_error (filename, lineno,
+ "extraneous text after `include'");
+ }
+ bzero ((char *) &new_conditionals, sizeof new_conditionals);
+ conditionals = &new_conditionals;
+ /* Record the rules that are waiting so they will determine
+ the default goal before those in the included makefile. */
+ record_waiting_files ();
+ read_makefile (p, 2);
+ free (p);
+ conditionals = save;
+ reading_filename = filename;
+ reading_lineno_ptr = &lineno;
+ continue;
+ }
+ else if (word1eq ("vpath", 5))
+ {
+ char *pattern;
+ unsigned int len;
+ p2 = variable_expand (p + 5);
+ p = find_next_token (&p2, &len);
+ if (p != 0)
+ {
+ pattern = savestring (p, len);
+ p = find_next_token (&p2, &len);
+ if (p != 0)
+ {
+ p = savestring (p, len);
+ if (find_next_token (&p2, (unsigned int *) 0) != 0)
+ makefile_error (filename, lineno,
+ "extraneous text after `vpath' directive");
+ }
+ /* No searchpath means remove all previous
+ selective VPATH's with the same pattern. */
+ }
+ else
+ /* No pattern means remove all previous selective VPATH's. */
+ pattern = 0;
+ construct_vpath_list (pattern, p);
+ if (pattern != 0)
+ free (pattern);
+ if (p != 0)
+ free (p);
+ continue;
+ }
+#undef word1eq
+ else if (try_variable_definition (p, o_file))
+ continue;
+ else
+ {
+ /* This line describes some target files. */
+
+ char *cmdleft;
+
+ /* Record the previous rule. */
+
+ record_waiting_files ();
+
+ /* Look for a semicolon in the unexpanded line. */
+ cmdleft = find_semicolon (lb.buffer);
+ if (cmdleft != 0)
+ /* Found one. Cut the line short there before expanding it. */
+ *cmdleft = '\0';
+
+ collapse_continuations (lb.buffer);
+
+ /* Expand variable and function references before doing anything
+ else so that special characters can be inside variables. */
+ p = variable_expand (lb.buffer);
+
+ if (cmdleft == 0)
+ /* Look for a semicolon in the expanded line. */
+ cmdleft = find_semicolon (p);
+
+ if (cmdleft != 0)
+ /* Cut the line short at the semicolon. */
+ *cmdleft = '\0';
+
+ /* Remove comments from the line. */
+ remove_comments (p);
+
+ p2 = next_token (p);
+ if (*p2 == '\0')
+ {
+ if (cmdleft != 0)
+ makefile_fatal (filename, lineno,
+ "missing rule before commands");
+ else
+ /* This line contained a variable reference that
+ expanded to nothing but whitespace. */
+ continue;
+ }
+ else if (*p2 == ':')
+ makefile_fatal (filename, lineno, "missing target name");
+
+ filenames = multi_glob (parse_file_seq (&p2, ':',
+ sizeof (struct nameseq), 1),
+ sizeof (struct nameseq));
+ if (*p2++ == '\0')
+ makefile_fatal (filename, lineno, "missing separator");
+ /* Is this a one-colon or two-colon entry? */
+ two_colon = *p2 == ':';
+ if (two_colon)
+ p2++;
+
+ /* Is this a static pattern rule: `target: %targ: %dep; ...'? */
+ p = index (p2, ':');
+ while (p != 0 && p[-1] == '\\')
+ {
+ register char *q = &p[-1];
+ register int backslash = 0;
+ while (*q-- == '\\')
+ backslash = !backslash;
+ if (backslash)
+ p = index (p + 1, ':');
+ else
+ break;
+ }
+ if (p != 0)
+ {
+ struct nameseq *target;
+ target = parse_file_seq (&p2, ':', sizeof (struct nameseq), 1);
+ ++p2;
+ if (target == 0)
+ makefile_fatal (filename, lineno, "missing target pattern");
+ else if (target->next != 0)
+ makefile_fatal (filename, lineno, "multiple target patterns");
+ pattern = target->name;
+ pattern_percent = find_percent (pattern);
+ if (pattern_percent == 0)
+ makefile_fatal (filename, lineno,
+ "target pattern contains no `%%'");
+ }
+ else
+ pattern = 0;
+
+ /* Parse the dependencies. */
+ deps = (struct dep *)
+ multi_glob (parse_file_seq (&p2, '\0', sizeof (struct dep), 1),
+ sizeof (struct dep));
+
+ commands_idx = 0;
+ if (cmdleft != 0)
+ {
+ /* Semicolon means rest of line is a command. */
+ unsigned int len = strlen (cmdleft + 1);
+
+ commands_started = lineno;
+
+ /* Add this command line to the buffer. */
+ if (len + 2 > commands_len)
+ {
+ commands_len = (len + 2) * 2;
+ commands = (char *) xrealloc (commands, commands_len);
+ }
+ bcopy (cmdleft + 1, commands, len);
+ commands_idx += len;
+ commands[commands_idx++] = '\n';
+ }
+ }
+ }
+
+ if (ignoring)
+ makefile_fatal (filename, lineno, "missing `endif'");
+
+ /* At eof, record the last rule. */
+ record_waiting_files ();
+
+ freebuffer (&lb);
+ free ((char *) commands);
+ fclose (infile);
+
+ reading_filename = 0;
+ reading_lineno_ptr = 0;
+}
+
+/* Execute a `define' directive.
+ The first line has already been read, and NAME is the name of
+ the variable to be defined. The following lines remain to be read.
+ LINENO, INFILE and FILENAME refer to the makefile being read.
+ The value returned is LINENO, updated for lines read here. */
+
+static unsigned int
+do_define (name, namelen, origin, lineno, infile, filename)
+ char *name;
+ unsigned int namelen;
+ enum variable_origin origin;
+ unsigned int lineno;
+ FILE *infile;
+ char *filename;
+{
+ struct linebuffer lb;
+ unsigned int nlines = 0;
+ unsigned int length = 100;
+ char *definition = (char *) xmalloc (100);
+ register unsigned int idx = 0;
+ register char *p;
+
+ initbuffer (&lb);
+ while (!feof (infile))
+ {
+ lineno += nlines;
+ nlines = readline (&lb, infile, filename);
+ p = next_token (lb.buffer);
+
+ if ((p[5] == '\0' || isblank (p[5])) && !strncmp (p, "endef", 5))
+ {
+ p += 5;
+ collapse_continuations (p);
+ remove_comments (p);
+ if (*next_token (p) != '\0')
+ makefile_error (filename, lineno,
+ "Extraneous text after `endef' directive");
+ /* Define the variable. */
+ if (idx == 0)
+ definition[0] = '\0';
+ else
+ definition[idx - 1] = '\0';
+ (void) define_variable (name, namelen, definition, origin, 1);
+ free (definition);
+ return lineno;
+ }
+ else
+ {
+ unsigned int len = strlen (p);
+
+ /* Increase the buffer size if necessary. */
+ if (idx + len + 1 > length)
+ {
+ length = (idx + len) * 2;
+ definition = (char *) xrealloc (definition, length + 1);
+ }
+
+ bcopy (p, &definition[idx], len);
+ idx += len;
+ /* Separate lines with a newline. */
+ definition[idx++] = '\n';
+ }
+ }
+
+ /* No `endef'!! */
+ makefile_fatal (filename, lineno, "missing `endef', unterminated `define'");
+ return 0;
+}
+
+/* Interpret conditional commands "ifdef", "ifndef", "ifeq",
+ "ifneq", "else" and "endif".
+ LINE is the input line, with the command as its first word.
+
+ FILENAME and LINENO are the filename and line number in the
+ current makefile. They are used for error messages.
+
+ Value is -1 if the line is invalid,
+ 0 if following text should be interpreted,
+ 1 if following text should be ignored. */
+
+static int
+conditional_line (line, filename, lineno)
+ char *line;
+ char *filename;
+ unsigned int lineno;
+{
+ int notdef;
+ char *cmdname;
+ register unsigned int i;
+
+ if (*line == 'i')
+ {
+ /* It's an "if..." command. */
+ notdef = line[2] == 'n';
+ if (notdef)
+ {
+ cmdname = line[3] == 'd' ? "ifndef" : "ifneq";
+ line += cmdname[3] == 'd' ? 7 : 6;
+ }
+ else
+ {
+ cmdname = line[2] == 'd' ? "ifdef" : "ifeq";
+ line += cmdname[2] == 'd' ? 6 : 5;
+ }
+ }
+ else
+ {
+ /* It's an "else" or "endif" command. */
+ notdef = line[1] == 'n';
+ cmdname = notdef ? "endif" : "else";
+ line += notdef ? 5 : 4;
+ }
+
+ line = next_token (line);
+
+ if (*cmdname == 'e')
+ {
+ if (*line != '\0')
+ makefile_error (filename, lineno,
+ "Extraneous text after `%s' directive",
+ cmdname);
+ /* "Else" or "endif". */
+ if (conditionals->if_cmds == 0)
+ makefile_fatal (filename, lineno, "extraneous `%s'", cmdname);
+ /* NOTDEF indicates an `endif' command. */
+ if (notdef)
+ --conditionals->if_cmds;
+ else
+ conditionals->ignoring[conditionals->if_cmds - 1]
+ = !conditionals->ignoring[conditionals->if_cmds - 1];
+ for (i = 0; i < conditionals->if_cmds; ++i)
+ if (conditionals->ignoring[i])
+ return 1;
+ return 0;
+ }
+
+ if (conditionals->max_ignoring == 0)
+ {
+ conditionals->max_ignoring = 5;
+ conditionals->ignoring = (char *) xmalloc (conditionals->max_ignoring);
+ }
+
+ ++conditionals->if_cmds;
+ if (conditionals->if_cmds > conditionals->max_ignoring)
+ {
+ conditionals->max_ignoring += 5;
+ conditionals->ignoring = (char *)
+ xrealloc (conditionals->ignoring, conditionals->max_ignoring);
+ }
+
+ if (conditionals->if_cmds > 1 &&
+ conditionals->ignoring[conditionals->if_cmds - 2])
+ /* We are already ignoring, so just push a level
+ to match the next "else" or "endif", and keep ignoring. */
+ conditionals->ignoring[conditionals->if_cmds - 1] = 1;
+ else if (cmdname[notdef ? 3 : 2] == 'd')
+ {
+ /* "Ifdef" or "ifndef". */
+ struct variable *v;
+ register char *p = end_of_token (line);
+ i = p - line;
+ p = next_token (p);
+ if (*p != '\0')
+ return -1;
+ v = lookup_variable (line, i);
+ conditionals->ignoring[conditionals->if_cmds - 1]
+ = (v != 0 && *v->value != '\0') == notdef;
+ }
+ else
+ {
+ /* "Ifeq" or "ifneq". */
+ char *s1, *s2;
+ unsigned int len;
+ char termin = *line == '(' ? ',' : *line;
+
+ if (termin != ',' && termin != '"' && termin != '\'')
+ return -1;
+
+ s1 = ++line;
+ /* Find the end of the first string. */
+ if (termin == ',')
+ {
+ register int count = 0;
+ for (; *line != '\0'; ++line)
+ if (*line == '(')
+ ++count;
+ else if (*line == ')')
+ --count;
+ else if (*line == ',' && count <= 0)
+ break;
+ }
+ else
+ while (*line != '\0' && *line != termin)
+ ++line;
+
+ if (*line == '\0')
+ return -1;
+
+ *line++ = '\0';
+
+ s2 = variable_expand (s1);
+ /* We must allocate a new copy of the expanded string because
+ variable_expand re-uses the same buffer. */
+ len = strlen (s2);
+ s1 = (char *) alloca (len + 1);
+ bcopy (s2, s1, len + 1);
+
+ if (termin != ',')
+ /* Find the start of the second string. */
+ line = next_token (line);
+
+ termin = termin == ',' ? ')' : *line;
+ if (termin != ')' && termin != '"' && termin != '\'')
+ return -1;
+
+ /* Find the end of the second string. */
+ if (termin == ')')
+ {
+ register int count = 0;
+ s2 = next_token (line);
+ for (line = s2; *line != '\0'; ++line)
+ {
+ if (*line == '(')
+ ++count;
+ else if (*line == ')')
+ if (count <= 0)
+ break;
+ else
+ --count;
+ }
+ }
+ else
+ {
+ ++line;
+ s2 = line;
+ while (*line != '\0' && *line != termin)
+ ++line;
+ }
+
+ if (*line == '\0')
+ return -1;
+
+ *line = '\0';
+ line = next_token (++line);
+ if (*line != '\0')
+ makefile_error (filename, lineno,
+ "Extraneous text after `%s' directive",
+ cmdname);
+
+ s2 = variable_expand (s2);
+ conditionals->ignoring[conditionals->if_cmds - 1]
+ = streq (s1, s2) == notdef;
+ }
+
+ /* Search through the stack to see if we're ignoring. */
+ for (i = 0; i < conditionals->if_cmds; ++i)
+ if (conditionals->ignoring[i])
+ return 1;
+ return 0;
+}
+
+/* Remove duplicate dependencies in CHAIN. */
+
+void
+uniquize_deps (chain)
+ struct dep *chain;
+{
+ register struct dep *d;
+
+ /* Make sure that no dependencies are repeated. This does not
+ really matter for the purpose of updating targets, but it
+ might make some names be listed twice for $^ and $?. */
+
+ for (d = chain; d != 0; d = d->next)
+ {
+ struct dep *last, *next;
+
+ last = d;
+ next = d->next;
+ while (next != 0)
+ if (streq (dep_name (d), dep_name (next)))
+ {
+ struct dep *n = next->next;
+ last->next = n;
+ if (next->name != 0 && next->name != d->name)
+ free (next->name);
+ if (next != d)
+ free ((char *) next);
+ next = n;
+ }
+ else
+ {
+ last = next;
+ next = next->next;
+ }
+ }
+}
+
+/* Record a description line for files FILENAMES,
+ with dependencies DEPS, commands to execute described
+ by COMMANDS and COMMANDS_IDX, coming from FILENAME:COMMANDS_STARTED.
+ TWO_COLON is nonzero if a double colon was used.
+ If not nil, PATTERN is the `%' pattern to make this
+ a static pattern rule, and PATTERN_PERCENT is a pointer
+ to the `%' within it.
+
+ The links of FILENAMES are freed, and so are any names in it
+ that are not incorporated into other data structures. */
+
+static void
+record_files (filenames, pattern, pattern_percent, deps, commands_started,
+ commands, commands_idx, two_colon, filename, lineno, set_default)
+ struct nameseq *filenames;
+ char *pattern, *pattern_percent;
+ struct dep *deps;
+ unsigned int commands_started;
+ char *commands;
+ unsigned int commands_idx;
+ int two_colon;
+ char *filename;
+ unsigned int lineno;
+ int set_default;
+{
+ struct nameseq *nextf;
+ int implicit = 0;
+ unsigned int max_targets, target_idx;
+ char **targets = 0, **target_percents = 0;
+ struct commands *cmds;
+
+ if (commands_idx > 0)
+ {
+ cmds = (struct commands *) xmalloc (sizeof (struct commands));
+ cmds->filename = filename;
+ cmds->lineno = commands_started;
+ cmds->commands = savestring (commands, commands_idx);
+ cmds->command_lines = 0;
+ }
+ else
+ cmds = 0;
+
+ for (; filenames != 0; filenames = nextf)
+ {
+ register char *name = filenames->name;
+ register struct file *f;
+ register struct dep *d;
+ struct dep *this;
+ char *implicit_percent;
+
+ nextf = filenames->next;
+ free ((char *) filenames);
+
+ implicit_percent = find_percent (name);
+ implicit |= implicit_percent != 0;
+
+ if (implicit && pattern != 0)
+ makefile_fatal (filename, lineno,
+ "mixed implicit and static pattern rules");
+
+ if (implicit && implicit_percent == 0)
+ makefile_fatal (filename, lineno, "mixed implicit and normal rules");
+
+ if (implicit)
+ {
+ if (targets == 0)
+ {
+ max_targets = 5;
+ targets = (char **) xmalloc (5 * sizeof (char *));
+ target_percents = (char **) xmalloc (5 * sizeof (char *));
+ target_idx = 0;
+ }
+ else if (target_idx == max_targets - 1)
+ {
+ max_targets += 5;
+ targets = (char **) xrealloc ((char *) targets,
+ max_targets * sizeof (char *));
+ target_percents
+ = (char **) xrealloc ((char *) target_percents,
+ max_targets * sizeof (char *));
+ }
+ targets[target_idx] = name;
+ target_percents[target_idx] = implicit_percent;
+ ++target_idx;
+ continue;
+ }
+
+ /* If there are multiple filenames, copy the chain DEPS
+ for all but the last one. It is not safe for the same deps
+ to go in more than one place in the data base. */
+ this = nextf != 0 ? copy_dep_chain (deps) : deps;
+
+ if (pattern != 0)
+ /* If this is an extended static rule:
+ `targets: target%pattern: dep%pattern; cmds',
+ translate each dependency pattern into a plain filename
+ using the target pattern and this target's name. */
+ if (!pattern_matches (pattern, pattern_percent, name))
+ {
+ /* Give a warning if the rule is meaningless. */
+ makefile_error (filename, lineno,
+ "target `%s' doesn't match the target pattern",
+ name);
+ this = 0;
+ }
+ else
+ {
+ /* We use patsubst_expand to do the work of translating
+ the target pattern, the target's name and the dependencies'
+ patterns into plain dependency names. */
+ char *buffer = variable_expand ("");
+
+ for (d = this; d != 0; d = d->next)
+ {
+ char *o;
+ char *percent = find_percent (d->name);
+ if (percent == 0)
+ continue;
+ o = patsubst_expand (buffer, name, pattern, d->name,
+ pattern_percent, percent);
+ free (d->name);
+ d->name = savestring (buffer, o - buffer);
+ }
+ }
+
+ if (!two_colon)
+ {
+ /* Single-colon. Combine these dependencies
+ with others in file's existing record, if any. */
+ f = enter_file (name);
+
+ if (f->double_colon)
+ makefile_fatal (filename, lineno,
+ "target file `%s' has both : and :: entries",
+ f->name);
+
+ /* If CMDS == F->CMDS, this target was listed in this rule
+ more than once. Just give a warning since this is harmless. */
+ if (cmds != 0 && cmds == f->cmds)
+ makefile_error
+ (filename, lineno,
+ "target `%s' given more than once in the same rule.",
+ f->name);
+
+ /* Check for two single-colon entries both with commands.
+ Check is_target so that we don't lose on files such as .c.o
+ whose commands were preinitialized. */
+ else if (cmds != 0 && f->cmds != 0 && f->is_target)
+ {
+ makefile_error (cmds->filename, cmds->lineno,
+ "warning: overriding commands for target `%s'",
+ f->name);
+ makefile_error (f->cmds->filename, f->cmds->lineno,
+ "warning: ignoring old commands for target `%s'",
+ f->name);
+ }
+
+ f->is_target = 1;
+
+ /* Defining .DEFAULT with no deps or cmds clears it. */
+ if (f == default_file && this == 0 && cmds == 0)
+ f->cmds = 0;
+ if (cmds != 0)
+ f->cmds = cmds;
+ /* Defining .SUFFIXES with no dependencies
+ clears out the list of suffixes. */
+ if (f == suffix_file && this == 0)
+ f->deps = 0;
+ else if (f->deps != 0)
+ {
+ d = f->deps;
+ while (d->next != 0)
+ d = d->next;
+ d->next = this;
+ }
+ else
+ f->deps = this;
+
+ uniquize_deps (f->deps);
+
+ /* If this is a static pattern rule, set the file's stem to
+ the part of its name that matched the `%' in the pattern,
+ so you can use $* in the commands. */
+ if (pattern != 0)
+ {
+ static char *percent = "%";
+ char *buffer = variable_expand ("");
+ char *o = patsubst_expand (buffer, name, pattern, percent,
+ pattern_percent, percent);
+ f->stem = savestring (buffer, o - buffer);
+ }
+ }
+ else
+ {
+ /* Double-colon. Make a new record
+ even if the file already has one. */
+ f = lookup_file (name);
+ /* Check for both : and :: rules. Check is_target so
+ we don't lose on default suffix rules or makefiles. */
+ if (f != 0 && f->is_target && !f->double_colon)
+ makefile_fatal (filename, lineno,
+ "target file `%s' has both : and :: entries",
+ f->name);
+ f = enter_file (name);
+ /* If there was an existing entry and it was a
+ double-colon entry, enter_file will have returned a
+ new one, making it the prev pointer of the old one. */
+ f->is_target = 1;
+ f->double_colon = 1;
+ f->deps = this;
+ f->cmds = cmds;
+ }
+
+ /* Free name if not needed further. */
+ if (f != 0 && name != f->name
+ && !(f->name == name + 2 && name[0] == '.' && name[1] == '/'))
+ {
+ free (name);
+ name = f->name;
+ }
+
+ /* See if this is first target seen whose name does
+ not start with a `.', unless it contains a slash. */
+ if (default_goal_file == 0 && set_default
+ && (*name != '.' || index (name, '/') != 0))
+ {
+ int reject = 0;
+
+ /* If this file is a suffix, don't
+ let it be the default goal file. */
+
+ for (d = suffix_file->deps; d != 0; d = d->next)
+ {
+ register struct dep *d2;
+ if (*dep_name (d) != '.' && streq (name, dep_name (d)))
+ {
+ reject = 1;
+ break;
+ }
+ for (d2 = suffix_file->deps; d2 != 0; d2 = d2->next)
+ {
+ register unsigned int len = strlen (dep_name (d2));
+ if (strncmp (name, dep_name (d2), len))
+ continue;
+ if (streq (name + len, dep_name (d)))
+ {
+ reject = 1;
+ break;
+ }
+ }
+ if (reject)
+ break;
+ }
+
+ if (!reject)
+ default_goal_file = f;
+ }
+ }
+
+ if (implicit)
+ {
+ targets[target_idx] = 0;
+ target_percents[target_idx] = 0;
+ create_pattern_rule (targets, target_percents, two_colon, deps, cmds, 1);
+ free ((char *) target_percents);
+ }
+}
+
+/* Search STRING for an unquoted ; that is not after an unquoted #. */
+
+static char *
+find_semicolon (string)
+ char *string;
+{
+ char *found, *p;
+
+ found = index (string, ';');
+ while (found != 0 && found[-1] == '\\')
+ {
+ register char *q = &found[-1];
+ register int backslash = 0;
+ while (*q-- == '\\')
+ backslash = !backslash;
+ if (backslash)
+ found = index (found + 1, ';');
+ else
+ break;
+ }
+ if (found == 0)
+ return 0;
+
+ /* Look for a comment character (#) before the ; we found. */
+ p = lindex (string, found, '#');
+ while (p != 0 && p[-1] == '\\')
+ {
+ register char *q = &p[-1];
+ register int backslash = 0;
+ while (*q-- == '\\')
+ backslash = !backslash;
+ if (backslash)
+ p = lindex (p + 1, found, '#');
+ else
+ break;
+ }
+ if (p == 0)
+ return found;
+ return 0;
+}
+
+/* Search PATTERN for an unquoted %. Backslashes quote % and backslash.
+ Quoting backslashes are removed from PATTERN by compacting it into
+ itself. Returns a pointer to the first unquoted % if there is one,
+ or nil if there are none. */
+
+char *
+find_percent (pattern)
+ char *pattern;
+{
+ unsigned int pattern_len = strlen (pattern);
+ register char *p = pattern;
+
+ while ((p = index (p, '%')) != 0)
+ if (p > pattern && p[-1] == '\\')
+ {
+ /* Search for more backslashes. */
+ register int i = -2;
+ while (&p[i] >= pattern && p[i] == '\\')
+ --i;
+ ++i;
+ /* The number of backslashes is now -I.
+ Copy P over itself to swallow half of them. */
+ bcopy (&p[i / 2], &p[i], (pattern_len - (p - pattern)) - (i / 2) + 1);
+ p += i / 2;
+ if (i % 2 == 0)
+ /* All the backslashes quoted each other; the % was unquoted. */
+ return p;
+ else
+ /* The % was quoted by a backslash. Look for another. */
+ ++p;
+ }
+ else
+ /* No backslash in sight. */
+ return p;
+
+ /* Never hit a %. */
+ return 0;
+}
+
+/* Parse a string into a sequence of filenames represented as a
+ chain of struct nameseq's in reverse order and return that chain.
+
+ The string is passed as STRINGP, the address of a string pointer.
+ The string pointer is updated to point at the first character
+ not parsed, which either is a null char or equals STOPCHAR.
+
+ SIZE is how big to construct chain elements.
+ This is useful if we want them actually to be other structures
+ that have room for additional info. */
+
+struct nameseq *
+parse_file_seq (stringp, stopchar, size, strip)
+ char **stringp;
+ char stopchar;
+ unsigned int size;
+ int strip;
+{
+ register struct nameseq *new = 0;
+ register struct nameseq *new1;
+ register char *p = *stringp;
+ char *q;
+ char *name;
+ register int c;
+
+ while (1)
+ {
+ /* Skip whitespace; see if any more names are left. */
+ p = next_token (p);
+ if (*p == '\0')
+ break;
+ if (*p == stopchar)
+ break;
+ /* Yes, find end of next name. */
+ q = p;
+ while (1)
+ {
+ c = *p++;
+ if (c == '\0')
+ break;
+ else if (c == '\\' &&
+ (*p == '\\' || isblank (*p) || *p == stopchar))
+ ++p;
+ else if (isblank (c) || c == stopchar)
+ break;
+ }
+ p--;
+
+ if (strip)
+ while (q[0] == '.' && q[1] == '/' && q[2] != '\0')
+ q += 2;
+
+ /* Extract the filename just found, and skip it. */
+ name = savestring (q, p - q);
+
+ /* Add it to the front of the chain. */
+ new1 = (struct nameseq *) xmalloc (size);
+ new1->name = name;
+ new1->next = new;
+ new = new1;
+ }
+
+ *stringp = p;
+ return new;
+}
+
+/* Read a line of text from STREAM into LINEBUFFER.
+ Combine continuation lines into one line.
+ Return the number of actual lines read (> 1 if hacked continuation lines).
+ */
+
+static unsigned int
+readline (linebuffer, stream, filename)
+ struct linebuffer *linebuffer;
+ FILE *stream;
+ char *filename;
+{
+ char *buffer = linebuffer->buffer;
+ register char *p = linebuffer->buffer;
+ register char *end = p + linebuffer->size;
+ register int len, lastlen = 0;
+ register char *p2;
+ register unsigned int nlines = 0;
+ register int backslash;
+
+ *p = '\0';
+
+ while (1)
+ {
+ if (fgets (p, end - p, stream) == 0)
+ if (feof (stream))
+ return nlines;
+ else
+ pfatal_with_name (filename);
+
+ len = strlen (p);
+ if (len == 0 || (p += len)[-1] != '\n')
+ {
+ /* Probably ran out of buffer space. */
+ register unsigned int p_off = p - buffer;
+ linebuffer->size *= 2;
+ buffer = (char *) xrealloc (buffer, linebuffer->size);
+ p = buffer + p_off;
+ end = buffer + linebuffer->size;
+ linebuffer->buffer = buffer;
+ *p = '\0';
+ lastlen = len;
+ continue;
+ }
+
+ ++nlines;
+
+ if (len == 1 && p > buffer)
+ /* P is pointing at a newline and it's the beginning of
+ the buffer returned by the last fgets call. However,
+ it is not necessarily the beginning of a line if P is
+ pointing past the beginning of the holding buffer.
+ If the buffer was just enlarged (right before the newline),
+ we must account for that, so we pretend that the two lines
+ were one line. */
+ len += lastlen;
+ lastlen = len;
+ backslash = 0;
+ for (p2 = p - 2; --len > 0; --p2)
+ {
+ if (*p2 == '\\')
+ backslash = !backslash;
+ else
+ break;
+ }
+
+ if (!backslash)
+ {
+ p[-1] = '\0';
+ return nlines;
+ }
+
+ if (end - p <= 1)
+ {
+ /* Enlarge the buffer. */
+ register unsigned int p_off = p - buffer;
+ linebuffer->size *= 2;
+ buffer = (char *) xrealloc (buffer, linebuffer->size);
+ p = buffer + p_off;
+ end = buffer + linebuffer->size;
+ linebuffer->buffer = buffer;
+ }
+ }
+}
+
+/* Construct the list of include directories
+ from the arguments and the default list. */
+
+void
+construct_include_path (arg_dirs)
+ char **arg_dirs;
+{
+ register unsigned int i;
+ struct stat stbuf;
+
+ /* Table to hold the dirs. */
+
+ register unsigned int defsize = (sizeof (default_include_directories)
+ / sizeof (default_include_directories[0]));
+ register unsigned int max = 5;
+ register char **dirs = (char **) xmalloc ((5 + defsize) * sizeof (char *));
+ register unsigned int idx = 0;
+
+ /* First consider any dirs specified with -I switches.
+ Ignore dirs that don't exist. */
+
+ if (arg_dirs != 0)
+ while (*arg_dirs != 0)
+ {
+ char *dir = *arg_dirs++;
+ if (stat (dir, &stbuf) == 0 && S_ISDIR (stbuf.st_mode))
+ {
+ if (idx == max - 1)
+ {
+ max += 5;
+ dirs = (char **)
+ xrealloc ((char *) dirs, (max + defsize) * sizeof (char *));
+ }
+ dirs[idx++] = dir;
+ }
+ }
+
+ /* Now add at the end the standard default dirs. */
+
+ for (i = 0; default_include_directories[i] != 0; ++i)
+ if (stat (default_include_directories[i], &stbuf) == 0
+ && S_ISDIR (stbuf.st_mode))
+ dirs[idx++] = default_include_directories[i];
+
+ dirs[idx] = 0;
+
+ /* Now compute the maximum length of any name in it. */
+
+ max_incl_len = 0;
+ for (i = 0; i < idx; ++i)
+ {
+ unsigned int len = strlen (dirs[i]);
+ /* If dir name is written with a trailing slash, discard it. */
+ if (dirs[i][len - 1] == '/')
+ /* We can't just clobber a null in because it may have come from
+ a literal string and literal strings may not be writable. */
+ dirs[i] = savestring (dirs[i], len - 1);
+ if (len > max_incl_len)
+ max_incl_len = len;
+ }
+
+ include_directories = dirs;
+}
+
+/* Given a chain of struct nameseq's describing a sequence of filenames,
+ in reverse of the intended order, return a new chain describing the
+ result of globbing the filenames. The new chain is in forward order.
+ The links of the old chain are freed or used in the new chain.
+ Likewise for the names in the old chain.
+
+ SIZE is how big to construct chain elements.
+ This is useful if we want them actually to be other structures
+ that have room for additional info. */
+
+struct nameseq *
+multi_glob (chain, size)
+ struct nameseq *chain;
+ unsigned int size;
+{
+ register struct nameseq *new = 0;
+ register struct nameseq *old;
+ struct nameseq *nexto;
+
+ for (old = chain; old != 0; old = nexto)
+ {
+ glob_t gl;
+
+ nexto = old->next;
+
+ if (old->name[0] == '~')
+ {
+ if (old->name[1] == '/' || old->name[1] == '\0')
+ {
+ extern char *getenv ();
+ char *home_dir = allocated_variable_expand ("$(HOME)");
+ int is_variable = home_dir[0] != '\0';
+ if (!is_variable)
+ {
+ free (home_dir);
+ home_dir = getenv ("HOME");
+ }
+ if (home_dir == 0 || home_dir[0] == '\0')
+ {
+ extern char *getlogin ();
+ char *name = getlogin ();
+ home_dir = 0;
+ if (name != 0)
+ {
+ struct passwd *p = getpwnam (name);
+ if (p != 0)
+ home_dir = p->pw_dir;
+ }
+ }
+ if (home_dir != 0)
+ {
+ char *new = concat (home_dir, "", old->name + 1);
+ if (is_variable)
+ free (home_dir);
+ free (old->name);
+ old->name = new;
+ }
+ }
+ else
+ {
+ struct passwd *pwent;
+ char *userend = index (old->name + 1, '/');
+ if (userend != 0)
+ *userend = '\0';
+ pwent = getpwnam (old->name + 1);
+ if (pwent != 0)
+ {
+ if (userend == 0)
+ {
+ free (old->name);
+ old->name = savestring (pwent->pw_dir,
+ strlen (pwent->pw_dir));
+ }
+ else
+ {
+ char *new = concat (pwent->pw_dir, "/", userend + 1);
+ free (old->name);
+ old->name = new;
+ }
+ }
+ else if (userend != 0)
+ *userend = '/';
+ }
+ }
+
+ switch (glob (old->name, GLOB_NOCHECK, NULL, &gl))
+ {
+ case 0: /* Success. */
+ {
+ register int i = gl.gl_pathc;
+ while (i-- > 0)
+ {
+ struct nameseq *elt = (struct nameseq *) xmalloc (size);
+ elt->name = savestring (gl.gl_pathv[i],
+ strlen (gl.gl_pathv[i]));
+ elt->next = new;
+ new = elt;
+ }
+ globfree (&gl);
+ break;
+ }
+
+ case GLOB_NOSPACE:
+ fatal ("virtual memory exhausted");
+ break;
+
+ default:
+ old->next = new;
+ new = old;
+ }
+ }
+
+ return new;
+}