1 /* Dependency generator for Makefile fragments.
2 Copyright (C) 2000 Free Software Foundation, Inc.
3 Contributed by Zack Weinberg, Mar 2000
5 This program is free software; you can redistribute it and/or modify it
6 under the terms of the GNU General Public License as published by the
7 Free Software Foundation; either version 2, or (at your option) any
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software
17 Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
19 In other words, you are welcome to use, share and improve this program.
20 You are forbidden to forbid anyone else to use, share and improve
21 what you give them. Help stamp out software-hoarding! */
27 static const char *munge
PARAMS ((const char *));
28 static const char *base_name
PARAMS ((const char *));
31 # define OBJECT_SUFFIX ".o"
34 /* Given a filename, quote characters in that filename which are
35 significant to Make. Note that it's not possible to quote all such
36 characters - e.g. \n, %, *, ?, [, \ (in some contexts), and ~ are
37 not properly handled. It isn't possible to get this right in any
38 current version of Make. (??? Still true? Old comment referred to
49 for (p
= filename
, len
= 0; *p
; p
++, len
++)
55 /* GNU make uses a weird quoting scheme for white space.
56 A space or tab preceded by 2N+1 backslashes represents
57 N backslashes followed by space; a space or tab
58 preceded by 2N backslashes represents N backslashes at
59 the end of a file name; and backslashes in other
60 contexts should not be doubled. */
61 for (q
= p
- 1; q
< filename
&& q
[-1] == '\\'; q
--)
67 /* '$' is quoted by doubling it. This can mishandle things
68 like "$(" but there's no easy fix. */
74 /* Now we know how big to make the buffer. */
75 buffer
= malloc (len
+ 1);
77 for (p
= filename
, dst
= buffer
; *p
; p
++, dst
++)
83 for (q
= p
- 1; filename
< q
&& q
[-1] == '\\'; q
--)
102 /* Given a pathname, calculate the non-directory part. This always
103 knows how to handle Unix-style pathnames, and understands VMS and
104 DOS paths on those systems. */
106 /* Find the base name of a (partial) pathname FNAME.
107 Returns a pointer into the string passed in.
108 Accepts Unix (/-separated) paths on all systems,
109 DOS and VMS paths on those systems. */
115 const char *s
= fname
;
117 #if defined (HAVE_DOS_BASED_FILE_SYSTEM)
118 if (ISALPHA (s
[0]) && s
[1] == ':') s
+= 2;
119 if ((p
= strrchr (s
, '\\'))) s
= p
+ 1;
121 if ((p
= strrchr (s
, ':'))) s
= p
+ 1; /* Skip device. */
122 if ((p
= strrchr (s
, ']'))) s
= p
+ 1; /* Skip directory. */
123 if ((p
= strrchr (s
, '>'))) s
= p
+ 1; /* Skip alternate (int'n'l) dir. */
125 if ((p
= strrchr (s
, '/'))) s
= p
+ 1;
129 /* Public routines. */
134 struct deps
*d
= (struct deps
*) xmalloc (sizeof (struct deps
));
136 /* Allocate space for the vectors now. */
138 d
->targetv
= xmalloc (2 * sizeof (const char *));
139 d
->depv
= xmalloc (8 * sizeof (const char *));
155 for (i
= 0; i
< d
->ntargets
; i
++)
156 free ((PTR
) d
->targetv
[i
]);
158 for (i
= 0; i
< d
->ndeps
; i
++)
159 free ((PTR
) d
->depv
[i
]);
167 deps_add_target (d
, t
)
171 t
= munge (t
); /* Also makes permanent copy. */
173 if (d
->ntargets
== d
->targets_size
)
175 d
->targets_size
*= 2;
176 d
->targetv
= xrealloc (d
->targetv
,
177 d
->targets_size
* sizeof (const char *));
180 d
->targetv
[d
->ntargets
++] = t
;
184 deps_calc_target (d
, t
)
191 o
= alloca (strlen (t
) + 8);
194 suffix
= strrchr (o
, '.');
196 strcpy (suffix
, OBJECT_SUFFIX
);
198 strcat (o
, OBJECT_SUFFIX
);
200 deps_add_target (d
, o
);
208 t
= munge (t
); /* Also makes permanent copy. */
210 if (d
->ndeps
== d
->deps_size
)
213 d
->depv
= xrealloc (d
->depv
, d
->deps_size
* sizeof (const char *));
215 d
->depv
[d
->ndeps
++] = t
;
219 deps_write (d
, fp
, colmax
)
220 const struct deps
*d
;
224 unsigned int size
, i
, column
;
227 if (colmax
&& colmax
< 34)
230 for (i
= 0; i
< d
->ntargets
; i
++)
232 size
= strlen (d
->targetv
[i
]);
234 if (colmax
&& column
> colmax
)
236 fputs (" \\\n ", fp
);
244 fputs (d
->targetv
[i
], fp
);
251 for (i
= 0; i
< d
->ndeps
; i
++)
253 size
= strlen (d
->depv
[i
]);
255 if (colmax
&& column
> colmax
)
257 fputs (" \\\n ", fp
);
265 fputs (d
->depv
[i
], fp
);
271 deps_dummy_targets (d
, fp
)
272 const struct deps
*d
;
277 for (i
= 1; i
< d
->ndeps
; i
++)
279 fputs (d
->depv
[i
], fp
);