1 | /* Utility functions for finding files relative to GCC binaries. |
2 | Copyright (C) 1992-2023 Free Software Foundation, Inc. |
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 |
28 | find_file_set_debug (bool debug_state) |
29 | { |
30 | debug = debug_state; |
31 | } |
32 | |
33 | char * |
34 | find_a_file (struct path_prefix *pprefix, const char *name, int mode) |
35 | { |
36 | char *temp; |
37 | struct prefix_list *pl; |
38 | int len = pprefix->max_len + strlen (s: name) + 1; |
39 | |
40 | if (debug) |
41 | fprintf (stderr, format: "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 | { |
53 | if (access (name: name, type: mode) == 0) |
54 | { |
55 | strcpy (dest: temp, src: name); |
56 | |
57 | if (debug) |
58 | fprintf (stderr, format: " - 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 | |
69 | if (access (temp, mode) == 0) |
70 | return temp; |
71 | #endif |
72 | |
73 | if (debug) |
74 | fprintf (stderr, format: " - 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 (dest: temp, src: pl->prefix); |
82 | strcat (dest: temp, src: name); |
83 | |
84 | if (stat (file: temp, buf: &st) >= 0 |
85 | && ! S_ISDIR (st.st_mode) |
86 | && access (name: temp, type: mode) == 0) |
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) |
96 | && access (temp, mode) == 0) |
97 | return temp; |
98 | #endif |
99 | } |
100 | |
101 | if (debug && pprefix->plist == NULL) |
102 | fprintf (stderr, format: " - failed: no entries in prefix list\n" ); |
103 | |
104 | free (ptr: temp); |
105 | return 0; |
106 | } |
107 | |
108 | /* Add an entry for PREFIX to prefix list PREFIX. |
109 | Add at beginning if FIRST is true. */ |
110 | |
111 | void |
112 | do_add_prefix (struct path_prefix *pprefix, const char *prefix, bool first) |
113 | { |
114 | struct prefix_list *pl, **prev; |
115 | int len; |
116 | |
117 | if (pprefix->plist && !first) |
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 (s: 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 | |
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, first: 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, first: true); |
156 | } |
157 | |
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 (name: 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, format: "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 (dest: nstore, src: startp, n: endp-startp); |
186 | if (endp == startp) |
187 | { |
188 | strcpy (dest: nstore, src: "./" ); |
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, format: " - add prefix: %s\n" , nstore); |
200 | |
201 | add_prefix (pprefix, prefix: nstore); |
202 | if (*endp == 0) |
203 | break; |
204 | endp = startp = endp + 1; |
205 | } |
206 | else |
207 | endp++; |
208 | } |
209 | free (ptr: nstore); |
210 | } |
211 | |