OpenCores
URL https://opencores.org/ocsvn/open8_urisc/open8_urisc/trunk

Subversion Repositories open8_urisc

[/] [open8_urisc/] [trunk/] [gnu/] [binutils/] [gas/] [depend.c] - Blame information for rev 268

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 147 khays
/* depend.c - Handle dependency tracking.
2
   Copyright 1997, 1998, 2000, 2001, 2003, 2004, 2005, 2007
3
   Free Software Foundation, Inc.
4
 
5
   This file is part of GAS, the GNU Assembler.
6
 
7
   GAS is free software; you can redistribute it and/or modify
8
   it under the terms of the GNU General Public License as published by
9
   the Free Software Foundation; either version 3, or (at your option)
10
   any later version.
11
 
12
   GAS is distributed in the hope that it will be useful,
13
   but WITHOUT ANY WARRANTY; without even the implied warranty of
14
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15
   GNU General Public License for more details.
16
 
17
   You should have received a copy of the GNU General Public License
18
   along with GAS; see the file COPYING.  If not, write to the Free
19
   Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
20
   02110-1301, USA.  */
21
 
22
#include "as.h"
23
#include "filenames.h"
24
 
25
/* The file to write to, or NULL if no dependencies being kept.  */
26
static char * dep_file = NULL;
27
 
28
struct dependency
29
  {
30
    char * file;
31
    struct dependency * next;
32
  };
33
 
34
/* All the files we depend on.  */
35
static struct dependency * dep_chain = NULL;
36
 
37
/* Current column in output file.  */
38
static int column = 0;
39
 
40
static int quote_string_for_make (FILE *, char *);
41
static void wrap_output (FILE *, char *, int);
42
 
43
/* Number of columns allowable.  */
44
#define MAX_COLUMNS 72
45
 
46
/* Start saving dependencies, to be written to FILENAME.  If this is
47
   never called, then dependency tracking is simply skipped.  */
48
 
49
void
50
start_dependencies (char *filename)
51
{
52
  dep_file = filename;
53
}
54
 
55
/* Noticed a new filename, so try to register it.  */
56
 
57
void
58
register_dependency (char *filename)
59
{
60
  struct dependency *dep;
61
 
62
  if (dep_file == NULL)
63
    return;
64
 
65
  for (dep = dep_chain; dep != NULL; dep = dep->next)
66
    {
67
      if (!filename_cmp (filename, dep->file))
68
        return;
69
    }
70
 
71
  dep = (struct dependency *) xmalloc (sizeof (struct dependency));
72
  dep->file = xstrdup (filename);
73
  dep->next = dep_chain;
74
  dep_chain = dep;
75
}
76
 
77
/* Quote a file name the way `make' wants it, and print it to FILE.
78
   If FILE is NULL, do no printing, but return the length of the
79
   quoted string.
80
 
81
   This code is taken from gcc with only minor changes.  */
82
 
83
static int
84
quote_string_for_make (FILE *file, char *src)
85
{
86
  char *p = src;
87
  int i = 0;
88
 
89
  for (;;)
90
    {
91
      char c = *p++;
92
 
93
      switch (c)
94
        {
95
        case '\0':
96
        case ' ':
97
        case '\t':
98
          {
99
            /* GNU make uses a weird quoting scheme for white space.
100
               A space or tab preceded by 2N+1 backslashes represents
101
               N backslashes followed by space; a space or tab
102
               preceded by 2N backslashes represents N backslashes at
103
               the end of a file name; and backslashes in other
104
               contexts should not be doubled.  */
105
            char *q;
106
 
107
            for (q = p - 1; src < q && q[-1] == '\\'; q--)
108
              {
109
                if (file)
110
                  putc ('\\', file);
111
                i++;
112
              }
113
          }
114
          if (!c)
115
            return i;
116
          if (file)
117
            putc ('\\', file);
118
          i++;
119
          goto ordinary_char;
120
 
121
        case '$':
122
          if (file)
123
            putc (c, file);
124
          i++;
125
          /* Fall through.  This can mishandle things like "$(" but
126
             there's no easy fix.  */
127
        default:
128
        ordinary_char:
129
          /* This can mishandle characters in the string "\0\n%*?[\\~";
130
             exactly which chars are mishandled depends on the `make' version.
131
             We know of no portable solution for this;
132
             even GNU make 3.76.1 doesn't solve the problem entirely.
133
             (Also, '\0' is mishandled due to our calling conventions.)  */
134
          if (file)
135
            putc (c, file);
136
          i++;
137
          break;
138
        }
139
    }
140
}
141
 
142
/* Append some output to the file, keeping track of columns and doing
143
   wrapping as necessary.  */
144
 
145
static void
146
wrap_output (FILE *f, char *string, int spacer)
147
{
148
  int len = quote_string_for_make (NULL, string);
149
 
150
  if (len == 0)
151
    return;
152
 
153
  if (column
154
      && (MAX_COLUMNS
155
          - 1 /* spacer */
156
          - 2 /* ` \'   */
157
          < column + len))
158
    {
159
      fprintf (f, " \\\n ");
160
      column = 0;
161
      if (spacer == ' ')
162
        spacer = '\0';
163
    }
164
 
165
  if (spacer == ' ')
166
    {
167
      putc (spacer, f);
168
      ++column;
169
    }
170
 
171
  quote_string_for_make (f, string);
172
  column += len;
173
 
174
  if (spacer == ':')
175
    {
176
      putc (spacer, f);
177
      ++column;
178
    }
179
}
180
 
181
/* Print dependency file.  */
182
 
183
void
184
print_dependencies (void)
185
{
186
  FILE *f;
187
  struct dependency *dep;
188
 
189
  if (dep_file == NULL)
190
    return;
191
 
192
  f = fopen (dep_file, FOPEN_WT);
193
  if (f == NULL)
194
    {
195
      as_warn (_("can't open `%s' for writing"), dep_file);
196
      return;
197
    }
198
 
199
  column = 0;
200
  wrap_output (f, out_file_name, ':');
201
  for (dep = dep_chain; dep != NULL; dep = dep->next)
202
    wrap_output (f, dep->file, ' ');
203
 
204
  putc ('\n', f);
205
 
206
  if (fclose (f))
207
    as_warn (_("can't close `%s'"), dep_file);
208
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.