1999-05-03 09:29:11 +02:00
|
|
|
|
/* depend.c - Handle dependency tracking.
|
2017-01-02 04:36:43 +01:00
|
|
|
|
Copyright (C) 1997-2017 Free Software Foundation, Inc.
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
This file is part of GAS, the GNU Assembler.
|
|
|
|
|
|
|
|
|
|
GAS is free software; you can redistribute it and/or modify
|
|
|
|
|
it under the terms of the GNU General Public License as published by
|
2007-07-03 13:01:12 +02:00
|
|
|
|
the Free Software Foundation; either version 3, or (at your option)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
any later version.
|
|
|
|
|
|
|
|
|
|
GAS 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 GAS; see the file COPYING. If not, write to the Free
|
2005-05-05 11:13:19 +02:00
|
|
|
|
Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
|
|
|
|
|
02110-1301, USA. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
#include "as.h"
|
2011-02-28 19:32:52 +01:00
|
|
|
|
#include "filenames.h"
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* The file to write to, or NULL if no dependencies being kept. */
|
2001-07-10 11:45:50 +02:00
|
|
|
|
static char * dep_file = NULL;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2001-07-10 11:45:50 +02:00
|
|
|
|
struct dependency
|
2016-02-22 15:11:27 +01:00
|
|
|
|
{
|
|
|
|
|
char * file;
|
|
|
|
|
struct dependency * next;
|
|
|
|
|
};
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* All the files we depend on. */
|
2001-07-10 11:45:50 +02:00
|
|
|
|
static struct dependency * dep_chain = NULL;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* Current column in output file. */
|
|
|
|
|
static int column = 0;
|
|
|
|
|
|
2016-02-22 15:11:27 +01:00
|
|
|
|
static int quote_string_for_make (FILE *, const char *);
|
|
|
|
|
static void wrap_output (FILE *, const char *, int);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* Number of columns allowable. */
|
|
|
|
|
#define MAX_COLUMNS 72
|
|
|
|
|
|
|
|
|
|
/* Start saving dependencies, to be written to FILENAME. If this is
|
|
|
|
|
never called, then dependency tracking is simply skipped. */
|
|
|
|
|
|
|
|
|
|
void
|
2003-11-21 14:28:35 +01:00
|
|
|
|
start_dependencies (char *filename)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
dep_file = filename;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Noticed a new filename, so try to register it. */
|
|
|
|
|
|
|
|
|
|
void
|
2016-02-22 15:11:27 +01:00
|
|
|
|
register_dependency (const char *filename)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
struct dependency *dep;
|
|
|
|
|
|
|
|
|
|
if (dep_file == NULL)
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
for (dep = dep_chain; dep != NULL; dep = dep->next)
|
|
|
|
|
{
|
2011-02-28 19:32:52 +01:00
|
|
|
|
if (!filename_cmp (filename, dep->file))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
2016-04-01 15:26:30 +02:00
|
|
|
|
dep = XNEW (struct dependency);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
dep->file = xstrdup (filename);
|
|
|
|
|
dep->next = dep_chain;
|
|
|
|
|
dep_chain = dep;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Quote a file name the way `make' wants it, and print it to FILE.
|
|
|
|
|
If FILE is NULL, do no printing, but return the length of the
|
|
|
|
|
quoted string.
|
|
|
|
|
|
|
|
|
|
This code is taken from gcc with only minor changes. */
|
|
|
|
|
|
|
|
|
|
static int
|
2016-02-22 15:11:27 +01:00
|
|
|
|
quote_string_for_make (FILE *file, const char *src)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2016-02-22 15:11:27 +01:00
|
|
|
|
const char *p = src;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
int i = 0;
|
2001-07-10 11:45:50 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
for (;;)
|
|
|
|
|
{
|
|
|
|
|
char c = *p++;
|
2001-07-10 11:45:50 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
switch (c)
|
|
|
|
|
{
|
|
|
|
|
case '\0':
|
|
|
|
|
case ' ':
|
|
|
|
|
case '\t':
|
|
|
|
|
{
|
|
|
|
|
/* GNU make uses a weird quoting scheme for white space.
|
|
|
|
|
A space or tab preceded by 2N+1 backslashes represents
|
|
|
|
|
N backslashes followed by space; a space or tab
|
|
|
|
|
preceded by 2N backslashes represents N backslashes at
|
|
|
|
|
the end of a file name; and backslashes in other
|
|
|
|
|
contexts should not be doubled. */
|
2016-02-22 15:11:27 +01:00
|
|
|
|
const char *q;
|
2001-07-10 11:45:50 +02:00
|
|
|
|
|
2000-07-08 22:34:43 +02:00
|
|
|
|
for (q = p - 1; src < q && q[-1] == '\\'; q--)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
if (file)
|
|
|
|
|
putc ('\\', file);
|
|
|
|
|
i++;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
if (!c)
|
|
|
|
|
return i;
|
|
|
|
|
if (file)
|
|
|
|
|
putc ('\\', file);
|
|
|
|
|
i++;
|
|
|
|
|
goto ordinary_char;
|
2000-07-08 22:34:43 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case '$':
|
|
|
|
|
if (file)
|
|
|
|
|
putc (c, file);
|
|
|
|
|
i++;
|
2016-10-05 09:47:02 +02:00
|
|
|
|
/* Fall through. */
|
|
|
|
|
/* This can mishandle things like "$(" but there's no easy fix. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
default:
|
|
|
|
|
ordinary_char:
|
|
|
|
|
/* This can mishandle characters in the string "\0\n%*?[\\~";
|
|
|
|
|
exactly which chars are mishandled depends on the `make' version.
|
|
|
|
|
We know of no portable solution for this;
|
|
|
|
|
even GNU make 3.76.1 doesn't solve the problem entirely.
|
|
|
|
|
(Also, '\0' is mishandled due to our calling conventions.) */
|
|
|
|
|
if (file)
|
|
|
|
|
putc (c, file);
|
|
|
|
|
i++;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Append some output to the file, keeping track of columns and doing
|
|
|
|
|
wrapping as necessary. */
|
|
|
|
|
|
|
|
|
|
static void
|
2016-02-22 15:11:27 +01:00
|
|
|
|
wrap_output (FILE *f, const char *string, int spacer)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
int len = quote_string_for_make (NULL, string);
|
|
|
|
|
|
|
|
|
|
if (len == 0)
|
|
|
|
|
return;
|
|
|
|
|
|
2000-07-08 22:34:43 +02:00
|
|
|
|
if (column
|
|
|
|
|
&& (MAX_COLUMNS
|
|
|
|
|
- 1 /* spacer */
|
|
|
|
|
- 2 /* ` \' */
|
|
|
|
|
< column + len))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
fprintf (f, " \\\n ");
|
|
|
|
|
column = 0;
|
|
|
|
|
if (spacer == ' ')
|
|
|
|
|
spacer = '\0';
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (spacer == ' ')
|
|
|
|
|
{
|
|
|
|
|
putc (spacer, f);
|
|
|
|
|
++column;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
quote_string_for_make (f, string);
|
|
|
|
|
column += len;
|
|
|
|
|
|
|
|
|
|
if (spacer == ':')
|
|
|
|
|
{
|
|
|
|
|
putc (spacer, f);
|
|
|
|
|
++column;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Print dependency file. */
|
|
|
|
|
|
|
|
|
|
void
|
2003-11-21 14:28:35 +01:00
|
|
|
|
print_dependencies (void)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
FILE *f;
|
|
|
|
|
struct dependency *dep;
|
|
|
|
|
|
|
|
|
|
if (dep_file == NULL)
|
|
|
|
|
return;
|
|
|
|
|
|
2001-07-10 11:45:50 +02:00
|
|
|
|
f = fopen (dep_file, FOPEN_WT);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (f == NULL)
|
|
|
|
|
{
|
* read.c: Standardize error/warning messages - don't capitalise, no
final period or newline, don't say "ignored" or "zero assumed" for
as_bad messages. In some cases, change the wording to that used
elsewhere for similar messages.
* app.c, as.c, atof-generic.c, cgen.c, cond.c, depend.c, dwarf2dbg.c,
ecoff.c, expr.c, frags.c, input-file.c, input-scrub.c, listing.c,
output-file.c, stabs.c, subsegs.c, symbols.c, write.c: Likewise.
* ecoff.c (ecoff_directive_end): Test for missing name by
comparing input line pointers rather than reading string.
(ecoff_directive_ent): Likewise.
* read.c (s_set): Likewise.
(s_align): Report a warning rather than an error for
alignment too large.
(s_comm): Check for missing symbol name.
(s_lcomm_internal): Likewise.
(s_lsym): Likewise.
(s_globl): Use is_end_of_line instead of looking for '\n'.
(s_lcomm_internal): Likewise.
(ignore_rest_of_line): Report a warning rather than an error.
2001-08-01 03:44:25 +02:00
|
|
|
|
as_warn (_("can't open `%s' for writing"), dep_file);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
column = 0;
|
|
|
|
|
wrap_output (f, out_file_name, ':');
|
|
|
|
|
for (dep = dep_chain; dep != NULL; dep = dep->next)
|
|
|
|
|
wrap_output (f, dep->file, ' ');
|
|
|
|
|
|
|
|
|
|
putc ('\n', f);
|
|
|
|
|
|
|
|
|
|
if (fclose (f))
|
* read.c: Standardize error/warning messages - don't capitalise, no
final period or newline, don't say "ignored" or "zero assumed" for
as_bad messages. In some cases, change the wording to that used
elsewhere for similar messages.
* app.c, as.c, atof-generic.c, cgen.c, cond.c, depend.c, dwarf2dbg.c,
ecoff.c, expr.c, frags.c, input-file.c, input-scrub.c, listing.c,
output-file.c, stabs.c, subsegs.c, symbols.c, write.c: Likewise.
* ecoff.c (ecoff_directive_end): Test for missing name by
comparing input line pointers rather than reading string.
(ecoff_directive_ent): Likewise.
* read.c (s_set): Likewise.
(s_align): Report a warning rather than an error for
alignment too large.
(s_comm): Check for missing symbol name.
(s_lcomm_internal): Likewise.
(s_lsym): Likewise.
(s_globl): Use is_end_of_line instead of looking for '\n'.
(s_lcomm_internal): Likewise.
(ignore_rest_of_line): Report a warning rather than an error.
2001-08-01 03:44:25 +02:00
|
|
|
|
as_warn (_("can't close `%s'"), dep_file);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|