1 /* VMS archive wrapper.
2 Copyright (C) 2011-2023 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 }