|
111
|
1 /* VMS archive wrapper.
|
|
|
2 Copyright (C) 2011-2017 Free Software Foundation, Inc.
|
|
|
3 Contributed by AdaCore.
|
|
|
4
|
|
|
5 This file is part of GCC.
|
|
|
6
|
|
|
7 GCC 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 GCC 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 GCC; see the file COPYING3. If not see
|
|
|
19 <http://www.gnu.org/licenses/>. */
|
|
|
20
|
|
|
21 #include <errno.h>
|
|
|
22 #include <stdio.h>
|
|
|
23 #include <sys/types.h>
|
|
|
24 #include <sys/stat.h>
|
|
|
25 #include <stdlib.h>
|
|
|
26 #include <string.h>
|
|
|
27 #include <unistd.h>
|
|
|
28
|
|
|
29 #include "libiberty.h"
|
|
|
30
|
|
|
31 #define FATAL_EXIT_CODE (44 | 0x10000000)
|
|
|
32
|
|
|
33 /* Librarian arguments. */
|
|
|
34 static int lib_arg_max = 0;
|
|
|
35 static const char **lib_args;
|
|
|
36 static int lib_arg_index = -1;
|
|
|
37
|
|
|
38 /* Set for r/c/x/v command. */
|
|
|
39 static int replace_mode = 0;
|
|
|
40 static int create_mode = 0;
|
|
|
41 static int extract_mode = 0;
|
|
|
42 static int verbose_mode = 0;
|
|
|
43
|
|
|
44 static char modecmd[32];
|
|
|
45 static char libname[256];
|
|
|
46
|
|
|
47 #define TEMP_FILE "arXXXXXX"
|
|
|
48 #define TEMP_FILE_LEN (sizeof(TEMP_FILE) - 1)
|
|
|
49 #define SUFFIX ".com"
|
|
|
50 #define SUFFIX_LEN (sizeof(SUFFIX) - 1)
|
|
|
51
|
|
|
52 static char *to_host_file_spec (char *filespec);
|
|
|
53 static int is_regular_file (char *name);
|
|
|
54
|
|
|
55 #ifdef VMS
|
|
|
56 static char new_host_filespec [255];
|
|
|
57 static char filename_buff [256];
|
|
|
58
|
|
|
59 static int
|
|
|
60 translate_unix (char *name, int type)
|
|
|
61 {
|
|
|
62 strcpy (filename_buff, name);
|
|
|
63 return 0;
|
|
|
64 }
|
|
|
65 #endif
|
|
|
66
|
|
|
67 static char *
|
|
|
68 to_host_file_spec (char *filespec)
|
|
|
69 {
|
|
|
70 #ifdef VMS
|
|
|
71 if (strchr (filespec, ']') || strchr (filespec, ':'))
|
|
|
72 return filespec;
|
|
|
73 else
|
|
|
74 {
|
|
|
75 strcpy (filename_buff, filespec);
|
|
|
76 decc$to_vms (filespec, translate_unix, 1, 1);
|
|
|
77 strcpy (new_host_filespec, filename_buff);
|
|
|
78 return new_host_filespec;
|
|
|
79 }
|
|
|
80 #else
|
|
|
81 return filespec;
|
|
|
82 #endif
|
|
|
83 }
|
|
|
84
|
|
|
85 /* Check to see if the file named in NAME is a regular file, i.e. not a
|
|
|
86 directory. */
|
|
|
87
|
|
|
88 static int
|
|
|
89 is_regular_file (char *name)
|
|
|
90 {
|
|
|
91 int ret;
|
|
|
92 struct stat statbuf;
|
|
|
93
|
|
|
94 ret = stat (name, &statbuf);
|
|
|
95 return !ret && S_ISREG (statbuf.st_mode);
|
|
|
96 }
|
|
|
97
|
|
|
98 /* Add the argument contained in STR to the list of arguments to pass to the
|
|
|
99 archiver. */
|
|
|
100
|
|
|
101 static void
|
|
|
102 addarg (const char *str)
|
|
|
103 {
|
|
|
104 if (++lib_arg_index >= lib_arg_max)
|
|
|
105 {
|
|
|
106 lib_arg_max += 1000;
|
|
|
107 lib_args = XRESIZEVEC (const char *, lib_args, lib_arg_max);
|
|
|
108 }
|
|
|
109
|
|
|
110 lib_args[lib_arg_index] = str;
|
|
|
111 }
|
|
|
112
|
|
|
113 static void
|
|
|
114 usage (void)
|
|
|
115 {
|
|
|
116 printf ("usage: ar -r [-cv] archive file...\n");
|
|
|
117 printf (" ar -c [-rv] archive file...\n");
|
|
|
118 printf (" ar -x [-v] archive [module...]\n");
|
|
|
119 }
|
|
|
120
|
|
|
121 int
|
|
|
122 main (int argc, char *argv[])
|
|
|
123 {
|
|
|
124 int i, nexti, iarg;
|
|
|
125 FILE *comfile;
|
|
|
126 int comfd;
|
|
|
127 int outlen, maxoutlen = 4000;
|
|
|
128 char temp_filename[] = TEMP_FILE SUFFIX;
|
|
|
129 char command[256];
|
|
|
130 int status;
|
|
|
131
|
|
|
132 if (argc < 2)
|
|
|
133 {
|
|
|
134 fprintf (stderr, "ar: no command or archive\n");
|
|
|
135 exit (FATAL_EXIT_CODE);
|
|
|
136 }
|
|
|
137
|
|
|
138 if (argv[1][0] != '-')
|
|
|
139 {
|
|
|
140 int arglen = strlen (argv[1]);
|
|
|
141
|
|
|
142 /* Compatibility mode. */
|
|
|
143 for (i = 0; i < arglen; i++)
|
|
|
144 {
|
|
|
145 if (argv[1][i] == 'r')
|
|
|
146 {
|
|
|
147 replace_mode = 1;
|
|
|
148 }
|
|
|
149 else if (argv[1][i] == 'c')
|
|
|
150 {
|
|
|
151 create_mode = 1;
|
|
|
152 }
|
|
|
153 else if (argv[1][i] == 'x')
|
|
|
154 {
|
|
|
155 extract_mode = 1;
|
|
|
156 }
|
|
|
157 else if (argv[1][i] == 'v')
|
|
|
158 {
|
|
|
159 verbose_mode = 1;
|
|
|
160 }
|
|
|
161 else
|
|
|
162 {
|
|
|
163 fprintf (stderr, "ar: unknown command '%c'\n", argv[1][i]);
|
|
|
164 exit (FATAL_EXIT_CODE);
|
|
|
165 }
|
|
|
166 }
|
|
|
167 nexti = 2;
|
|
|
168 }
|
|
|
169 else
|
|
|
170 {
|
|
|
171 /* Option mode. */
|
|
|
172 nexti = 1;
|
|
|
173 for (i = 1; i < argc; i++)
|
|
|
174 {
|
|
|
175 if (argv[i][0] != '-')
|
|
|
176 {
|
|
|
177 nexti = i;
|
|
|
178 break;
|
|
|
179 }
|
|
|
180 else if (strcmp (argv[i], "-r") == 0)
|
|
|
181 {
|
|
|
182 replace_mode = 1;
|
|
|
183 }
|
|
|
184 else if (strcmp (argv[i], "-c") == 0)
|
|
|
185 {
|
|
|
186 create_mode = 1;
|
|
|
187 }
|
|
|
188 else if (strcmp (argv[i], "-x") == 0)
|
|
|
189 {
|
|
|
190 extract_mode = 1;
|
|
|
191 }
|
|
|
192 else if (strcmp (argv[i], "-v") == 0)
|
|
|
193 {
|
|
|
194 verbose_mode = 1;
|
|
|
195 }
|
|
|
196 else if (strcmp (argv[i], "--help") == 0)
|
|
|
197 {
|
|
|
198 usage ();
|
|
|
199 exit (EXIT_SUCCESS);
|
|
|
200 }
|
|
|
201 else
|
|
|
202 {
|
|
|
203 fprintf (stderr, "ar: unknown option %s\n", argv[i]);
|
|
|
204 exit (FATAL_EXIT_CODE);
|
|
|
205 }
|
|
|
206 }
|
|
|
207 }
|
|
|
208
|
|
|
209 if (extract_mode)
|
|
|
210 {
|
|
|
211 do
|
|
|
212 {
|
|
|
213 char *lname = argv[nexti];
|
|
|
214 int lnamelen;
|
|
|
215
|
|
|
216 /* Next argument is the archive name. */
|
|
|
217 if (is_regular_file (lname))
|
|
|
218 {
|
|
|
219 addarg (xstrdup (to_host_file_spec (lname)));
|
|
|
220 break;
|
|
|
221 }
|
|
|
222
|
|
|
223 /* If not found, try with .olb instead of .a. */
|
|
|
224 lnamelen = strlen (lname);
|
|
|
225
|
|
|
226 if (lnamelen > 2
|
|
|
227 && strcmp (&lname [lnamelen - 2], ".a") == 0)
|
|
|
228 {
|
|
|
229 char *nlibname;
|
|
|
230
|
|
|
231 nlibname = (char *)alloca (lnamelen + 3);
|
|
|
232 strcpy (nlibname, lname);
|
|
|
233 strcpy (&nlibname [lnamelen - 2], ".olb");
|
|
|
234 if (is_regular_file (nlibname))
|
|
|
235 {
|
|
|
236 addarg (xstrdup (to_host_file_spec (nlibname)));
|
|
|
237 break;
|
|
|
238 }
|
|
|
239 }
|
|
|
240
|
|
|
241 fprintf (stderr, "ar: file '%s' doesn't exist\n", lname);
|
|
|
242 exit (FATAL_EXIT_CODE);
|
|
|
243 } while (0);
|
|
|
244 }
|
|
|
245 else
|
|
|
246 strcpy (libname, to_host_file_spec (argv[nexti]));
|
|
|
247
|
|
|
248 nexti++;
|
|
|
249
|
|
|
250 /* Build command mode. */
|
|
|
251 if (replace_mode)
|
|
|
252 {
|
|
|
253 strcat (modecmd, "/replace");
|
|
|
254
|
|
|
255 if (!is_regular_file (libname) || !replace_mode)
|
|
|
256 {
|
|
|
257 /* Really create if the archive doesn't exist. */
|
|
|
258 strcat (modecmd, "/create");
|
|
|
259 }
|
|
|
260 }
|
|
|
261 else if (extract_mode)
|
|
|
262 {
|
|
|
263 if (nexti == argc)
|
|
|
264 {
|
|
|
265 /* Extract all. */
|
|
|
266 strcat (modecmd, "/extract=(*");
|
|
|
267 }
|
|
|
268 else
|
|
|
269 strcat (modecmd, "/extract=(");
|
|
|
270 }
|
|
|
271
|
|
|
272 /* Add files. */
|
|
|
273 for (i = nexti; i < argc; i++)
|
|
|
274 {
|
|
|
275 if (extract_mode)
|
|
|
276 {
|
|
|
277 /* Convert to module name (remove extension) and quote it. */
|
|
|
278 char *module = argv[i];
|
|
|
279 int module_len = strlen (module);
|
|
|
280 char *newarg = (char *)xmalloc (module_len + 3);
|
|
|
281 int l;
|
|
|
282
|
|
|
283 newarg[0] = '"';
|
|
|
284 memcpy (newarg + 1, module, module_len);
|
|
|
285
|
|
|
286 l = 1 + module_len;
|
|
|
287 if (module_len > 4
|
|
|
288 && strcmp (&module[module_len - 4], ".obj") == 0)
|
|
|
289 l -= 4;
|
|
|
290
|
|
|
291 newarg[l] = '"';
|
|
|
292 newarg[l + 1] = 0;
|
|
|
293
|
|
|
294 addarg (newarg);
|
|
|
295 }
|
|
|
296 else
|
|
|
297 {
|
|
|
298 /* Add the filename. */
|
|
|
299 addarg (xstrdup (to_host_file_spec (argv[i])));
|
|
|
300 }
|
|
|
301 }
|
|
|
302
|
|
|
303 if (extract_mode)
|
|
|
304 addarg (")");
|
|
|
305
|
|
|
306 /* Create the command file name. */
|
|
|
307 strcpy (temp_filename, TEMP_FILE SUFFIX);
|
|
|
308 comfd = mkstemps (temp_filename, SUFFIX_LEN);
|
|
|
309 comfile = fdopen (comfd, "w");
|
|
|
310
|
|
|
311 /* Write the command file.
|
|
|
312 We need to split to command into severals ones if it is too long. */
|
|
|
313 outlen = 0;
|
|
|
314 for (iarg = 0; iarg <= lib_arg_index; iarg++)
|
|
|
315 {
|
|
|
316 if (outlen == 0)
|
|
|
317 {
|
|
|
318 fprintf (comfile, "$ library %s %s -\n", modecmd, libname);
|
|
|
319 if (create_mode && iarg == 0)
|
|
|
320 strcpy (modecmd, "/replace");
|
|
|
321 }
|
|
|
322
|
|
|
323 fprintf (comfile, "%s", lib_args [iarg]);
|
|
|
324 outlen += strlen (lib_args [iarg]) + 2;
|
|
|
325
|
|
|
326 if (outlen > maxoutlen || iarg == lib_arg_index)
|
|
|
327 {
|
|
|
328 /* Will write a new command. */
|
|
|
329 fprintf (comfile, "\n");
|
|
|
330 outlen = 0;
|
|
|
331 }
|
|
|
332 else
|
|
|
333 {
|
|
|
334 /* Continuation line. */
|
|
|
335 fprintf (comfile, ",-\n");
|
|
|
336 }
|
|
|
337 }
|
|
|
338
|
|
|
339 fclose (comfile);
|
|
|
340
|
|
|
341 sprintf (command, "@%s", temp_filename);
|
|
|
342
|
|
|
343 status = system (command);
|
|
|
344
|
|
|
345 remove (temp_filename);
|
|
|
346
|
|
|
347 exit (status);
|
|
|
348 }
|
