]>
Commit | Line | Data |
---|---|---|
c2a73de2 | 1 | /* Utility functions for finding files relative to GCC binaries. |
8d9254fc | 2 | Copyright (C) 1992-2020 Free Software Foundation, Inc. |
c2a73de2 MI |
3 | |
4 | This file is part of GCC. | |
5 | ||
6 | GCC is free software; you can redistribute it and/or modify it under | |
7 | the terms of the GNU General Public License as published by the Free | |
8 | Software Foundation; either version 3, or (at your option) any later | |
9 | version. | |
10 | ||
11 | GCC is distributed in the hope that it will be useful, but WITHOUT ANY | |
12 | WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
13 | FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
14 | for more details. | |
15 | ||
16 | You should have received a copy of the GNU General Public License | |
17 | along with GCC; see the file COPYING3. If not see | |
18 | <http://www.gnu.org/licenses/>. */ | |
19 | ||
20 | #include "config.h" | |
21 | #include "system.h" | |
22 | #include "filenames.h" | |
23 | #include "file-find.h" | |
24 | ||
25 | static bool debug = false; | |
26 | ||
27 | void | |
c3284718 | 28 | find_file_set_debug (bool debug_state) |
c2a73de2 MI |
29 | { |
30 | debug = debug_state; | |
31 | } | |
32 | ||
33 | char * | |
a09f1a76 | 34 | find_a_file (struct path_prefix *pprefix, const char *name, int mode) |
c2a73de2 MI |
35 | { |
36 | char *temp; | |
37 | struct prefix_list *pl; | |
38 | int len = pprefix->max_len + strlen (name) + 1; | |
39 | ||
40 | if (debug) | |
41 | fprintf (stderr, "Looking for '%s'\n", name); | |
42 | ||
43 | #ifdef HOST_EXECUTABLE_SUFFIX | |
44 | len += strlen (HOST_EXECUTABLE_SUFFIX); | |
45 | #endif | |
46 | ||
47 | temp = XNEWVEC (char, len); | |
48 | ||
49 | /* Determine the filename to execute (special case for absolute paths). */ | |
50 | ||
51 | if (IS_ABSOLUTE_PATH (name)) | |
52 | { | |
a09f1a76 | 53 | if (access (name, mode) == 0) |
c2a73de2 MI |
54 | { |
55 | strcpy (temp, name); | |
56 | ||
57 | if (debug) | |
58 | fprintf (stderr, " - found: absolute path\n"); | |
59 | ||
60 | return temp; | |
61 | } | |
62 | ||
63 | #ifdef HOST_EXECUTABLE_SUFFIX | |
64 | /* Some systems have a suffix for executable files. | |
65 | So try appending that. */ | |
66 | strcpy (temp, name); | |
67 | strcat (temp, HOST_EXECUTABLE_SUFFIX); | |
68 | ||
a09f1a76 | 69 | if (access (temp, mode) == 0) |
c2a73de2 MI |
70 | return temp; |
71 | #endif | |
72 | ||
73 | if (debug) | |
74 | fprintf (stderr, " - failed to locate using absolute path\n"); | |
75 | } | |
76 | else | |
77 | for (pl = pprefix->plist; pl; pl = pl->next) | |
78 | { | |
79 | struct stat st; | |
80 | ||
81 | strcpy (temp, pl->prefix); | |
82 | strcat (temp, name); | |
83 | ||
84 | if (stat (temp, &st) >= 0 | |
85 | && ! S_ISDIR (st.st_mode) | |
a09f1a76 | 86 | && access (temp, mode) == 0) |
c2a73de2 MI |
87 | return temp; |
88 | ||
89 | #ifdef HOST_EXECUTABLE_SUFFIX | |
90 | /* Some systems have a suffix for executable files. | |
91 | So try appending that. */ | |
92 | strcat (temp, HOST_EXECUTABLE_SUFFIX); | |
93 | ||
94 | if (stat (temp, &st) >= 0 | |
95 | && ! S_ISDIR (st.st_mode) | |
a09f1a76 | 96 | && access (temp, mode) == 0) |
c2a73de2 MI |
97 | return temp; |
98 | #endif | |
99 | } | |
100 | ||
101 | if (debug && pprefix->plist == NULL) | |
102 | fprintf (stderr, " - failed: no entries in prefix list\n"); | |
103 | ||
104 | free (temp); | |
105 | return 0; | |
106 | } | |
107 | ||
b5617e5f AK |
108 | /* Add an entry for PREFIX to prefix list PREFIX. |
109 | Add at beginning if FIRST is true. */ | |
c2a73de2 MI |
110 | |
111 | void | |
b5617e5f | 112 | do_add_prefix (struct path_prefix *pprefix, const char *prefix, bool first) |
c2a73de2 MI |
113 | { |
114 | struct prefix_list *pl, **prev; | |
115 | int len; | |
116 | ||
b5617e5f | 117 | if (pprefix->plist && !first) |
c2a73de2 MI |
118 | { |
119 | for (pl = pprefix->plist; pl->next; pl = pl->next) | |
120 | ; | |
121 | prev = &pl->next; | |
122 | } | |
123 | else | |
124 | prev = &pprefix->plist; | |
125 | ||
126 | /* Keep track of the longest prefix. */ | |
127 | ||
128 | len = strlen (prefix); | |
129 | if (len > pprefix->max_len) | |
130 | pprefix->max_len = len; | |
131 | ||
132 | pl = XNEW (struct prefix_list); | |
133 | pl->prefix = xstrdup (prefix); | |
134 | ||
135 | if (*prev) | |
136 | pl->next = *prev; | |
137 | else | |
138 | pl->next = (struct prefix_list *) 0; | |
139 | *prev = pl; | |
140 | } | |
141 | ||
b5617e5f AK |
142 | /* Add an entry for PREFIX at the end of prefix list PREFIX. */ |
143 | ||
144 | void | |
145 | add_prefix (struct path_prefix *pprefix, const char *prefix) | |
146 | { | |
147 | do_add_prefix (pprefix, prefix, false); | |
148 | } | |
149 | ||
150 | /* Add an entry for PREFIX at the begin of prefix list PREFIX. */ | |
151 | ||
152 | void | |
153 | add_prefix_begin (struct path_prefix *pprefix, const char *prefix) | |
154 | { | |
155 | do_add_prefix (pprefix, prefix, true); | |
156 | } | |
157 | ||
c2a73de2 MI |
158 | /* Take the value of the environment variable ENV, break it into a path, and |
159 | add of the entries to PPREFIX. */ | |
160 | ||
161 | void | |
162 | prefix_from_env (const char *env, struct path_prefix *pprefix) | |
163 | { | |
164 | const char *p; | |
165 | p = getenv (env); | |
166 | ||
167 | if (p) | |
168 | prefix_from_string (p, pprefix); | |
169 | } | |
170 | ||
171 | void | |
172 | prefix_from_string (const char *p, struct path_prefix *pprefix) | |
173 | { | |
174 | const char *startp, *endp; | |
175 | char *nstore = XNEWVEC (char, strlen (p) + 3); | |
176 | ||
177 | if (debug) | |
178 | fprintf (stderr, "Convert string '%s' into prefixes, separator = '%c'\n", p, PATH_SEPARATOR); | |
179 | ||
180 | startp = endp = p; | |
181 | while (1) | |
182 | { | |
183 | if (*endp == PATH_SEPARATOR || *endp == 0) | |
184 | { | |
185 | strncpy (nstore, startp, endp-startp); | |
186 | if (endp == startp) | |
187 | { | |
188 | strcpy (nstore, "./"); | |
189 | } | |
190 | else if (! IS_DIR_SEPARATOR (endp[-1])) | |
191 | { | |
192 | nstore[endp-startp] = DIR_SEPARATOR; | |
193 | nstore[endp-startp+1] = 0; | |
194 | } | |
195 | else | |
196 | nstore[endp-startp] = 0; | |
197 | ||
198 | if (debug) | |
199 | fprintf (stderr, " - add prefix: %s\n", nstore); | |
200 | ||
201 | add_prefix (pprefix, nstore); | |
202 | if (*endp == 0) | |
203 | break; | |
204 | endp = startp = endp + 1; | |
205 | } | |
206 | else | |
207 | endp++; | |
208 | } | |
209 | free (nstore); | |
210 | } |