Mercurial > hg > CbC > CbC_gcc

comparison gcc/config/alpha/vms-ld.c @ 0:a06113de4d67

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
first commit
author kent <kent@cr.ie.u-ryukyu.ac.jp>
date Fri, 17 Jul 2009 14:47:48 +0900
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:a06113de4d67
1 /* VMS linker wrapper.
2 Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2007
3 Free Software Foundation, Inc.
4 Contributed by Douglas B. Rupp (rupp@gnat.com).
5
6 This file is part of GCC.
7
8 GCC is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 3, or (at your option)
11 any later version.
12
13 GCC is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
17
18 You should have received a copy of the GNU General Public License
19 along with GCC; see the file COPYING3. If not see
20 <http://www.gnu.org/licenses/>. */
21
22 /* This program is a wrapper around the VMS linker.
23 It translates Unix style command line options into corresponding
24 VMS style qualifiers and then spawns the VMS linker. */
25
26 #include "config.h"
27 #include "system.h"
28 #include "coretypes.h"
29 #include "tm.h"
30
31 typedef struct dsc {unsigned short len, mbz; char *adr; } Descr;
32
33 #undef PATH_SEPARATOR
34 #undef PATH_SEPARATOR_STR
35 #define PATH_SEPARATOR ','
36 #define PATH_SEPARATOR_STR ","
37
38 /* Local variable declarations. */
39
40 /* File specification for vms-dwarf2.o. */
41 static char *vmsdwarf2spec = 0;
42
43 /* File specification for vms-dwarf2eh.o. */
44 static char *vmsdwarf2ehspec = 0;
45
46 /* verbose = 1 if -v passed. */
47 static int verbose = 0;
48
49 /* save_temps = 1 if -save-temps passed. */
50 static int save_temps = 0;
51
52 /* By default don't generate executable file if there are errors
53 in the link. Override with --noinhibit-exec. */
54 static int inhibit_exec = 1;
55
56 /* debug = 1 if -g passed. */
57 static int debug = 0;
58
59 /* By default prefer to link with shareable image libraries.
60 Override with -static. */
61 static int staticp = 0;
62
63 /* By default generate an executable, not a shareable image library.
64 Override with -shared. */
65 static int share = 0;
66
67 /* Remember if IDENTIFICATION given on command line. */
68 static int ident = 0;
69
70 /* Keep track of arg translations. */
71 static int link_arg_max = -1;
72 static const char **link_args = 0;
73 static int link_arg_index = -1;
74
75 /* Keep track of filenames */
76 static char optfilefullname [267];
77 static char *sharefilename = 0;
78 static char *exefilename = 0;
79
80 /* System search dir list. Leave blank since link handles this
81 internally. */
82 static char *system_search_dirs = "";
83
84 /* Search dir list passed on command line (with -L). */
85 static char *search_dirs;
86
87 /* Local function declarations. */
88
89 /* Add STR to the list of arguments to pass to the linker. Expand the list as
90 necessary to accommodate. */
91 static void addarg (const char *);
92
93 /* Check to see if NAME is a regular file, i.e. not a directory */
94 static int is_regular_file (char *);
95
96 /* Translate a Unix syntax file specification FILESPEC into VMS syntax.
97 If indicators of VMS syntax found, return input string. */
98 static char *to_host_file_spec (char *);
99
100 /* Locate the library named LIB_NAME in the set of paths PATH_VAL. */
101 static char *locate_lib (char *, char *);
102
103 /* Given a library name NAME, i.e. foo, Look for libfoo.lib and then
104 libfoo.a in the set of directories we are allowed to search in. */
105 static const char *expand_lib (char *);
106
107 /* Preprocess the number of args P_ARGC in ARGV.
108 Look for special flags, etc. that must be handled first. */
109 static void preprocess_args (int *, char **);
110
111 /* Preprocess the number of args P_ARGC in ARGV. Look for
112 special flags, etc. that must be handled for the VMS linker. */
113 static void process_args (int *, char **);
114
115 /* Action routine called by decc$to_vms. NAME is a file name or
116 directory name. TYPE is unused. */
117 static int translate_unix (char *, int);
118
119 int main (int, char **);
120
121 static void
122 addarg (const char *str)
123 {
124 int i;
125
126 if (++link_arg_index >= link_arg_max)
127 {
128 const char **new_link_args
129 = (const char **) xcalloc (link_arg_max + 1000, sizeof (char *));
130
131 for (i = 0; i <= link_arg_max; i++)
132 new_link_args [i] = link_args [i];
133
134 if (link_args)
135 free (link_args);
136
137 link_arg_max += 1000;
138 link_args = new_link_args;
139 }
140
141 link_args [link_arg_index] = str;
142 }
143
144 static char *
145 locate_lib (char *lib_name, char *path_val)
146 {
147 int lib_len = strlen (lib_name);
148 char *eptr, *sptr;
149
150 for (sptr = path_val; *sptr; sptr = eptr)
151 {
152 char *buf, *ptr;
153
154 while (*sptr == PATH_SEPARATOR)
155 sptr ++;
156
157 eptr = strchr (sptr, PATH_SEPARATOR);
158 if (eptr == 0)
159 eptr = strchr (sptr, 0);
160
161 buf = alloca ((eptr-sptr) + lib_len + 4 + 2);
162 strncpy (buf, sptr, eptr-sptr);
163 buf [eptr-sptr] = 0;
164 strcat (buf, "/");
165 strcat (buf, lib_name);
166 ptr = strchr (buf, 0);
167
168 if (debug || staticp)
169 {
170 /* For debug or static links, look for shareable image libraries
171 last. */
172 strcpy (ptr, ".a");
173 if (is_regular_file (buf))
174 return xstrdup (to_host_file_spec (buf));
175
176 strcpy (ptr, ".olb");
177 if (is_regular_file (buf))
178 return xstrdup (to_host_file_spec (buf));
179
180 strcpy (ptr, ".exe");
181 if (is_regular_file (buf))
182 return xstrdup (to_host_file_spec (buf));
183 }
184 else
185 {
186 /* Otherwise look for shareable image libraries first. */
187 strcpy (ptr, ".exe");
188 if (is_regular_file (buf))
189 return xstrdup (to_host_file_spec (buf));
190
191 strcpy (ptr, ".a");
192 if (is_regular_file (buf))
193 return xstrdup (to_host_file_spec (buf));
194
195 strcpy (ptr, ".olb");
196 if (is_regular_file (buf))
197 return xstrdup (to_host_file_spec (buf));
198 }
199 }
200
201 return 0;
202 }
203
204 static const char *
205 expand_lib (char *name)
206 {
207 char *lib, *lib_path;
208
209 if (strcmp (name, "c") == 0)
210 /* IEEE VAX C compatible library for non-prefixed (e.g. no DECC$)
211 C RTL functions. */
212 return "sys$library:vaxcrtltx.olb";
213
214 else if (strcmp (name, "m") == 0)
215 /* No separate library for math functions */
216 return "";
217
218 else
219 {
220 lib = xmalloc (strlen (name) + 14);
221
222 strcpy (lib, "lib");
223 strcat (lib, name);
224 lib_path = locate_lib (lib, search_dirs);
225
226 if (lib_path)
227 return lib_path;
228 }
229
230 fprintf (stderr,
231 "Couldn't locate library: lib%s.exe, lib%s.a or lib%s.olb\n",
232 name, name, name);
233
234 exit (1);
235 }
236
237 static int
238 is_regular_file (char *name)
239 {
240 int ret;
241 struct stat statbuf;
242
243 ret = stat (name, &statbuf);
244 return !ret && S_ISREG (statbuf.st_mode);
245 }
246
247 static void
248 preprocess_args (int *p_argc, char **argv)
249 {
250 int i;
251
252 for (i = 1; i < *p_argc; i++)
253 if (strlen (argv[i]) >= 6 && strncmp (argv[i], "-shared", 7) == 0)
254 share = 1;
255
256 for (i = 1; i < *p_argc; i++)
257 if (strcmp (argv[i], "-o") == 0)
258 {
259 char *buff, *ptr;
260 int out_len;
261 int len;
262
263 i++;
264 ptr = to_host_file_spec (argv[i]);
265 exefilename = xstrdup (ptr);
266 out_len = strlen (ptr);
267 buff = xmalloc (out_len + 18);
268
269 if (share)
270 strcpy (buff, "/share=");
271 else
272 strcpy (buff, "/exe=");
273
274 strcat (buff, ptr);
275 addarg (buff);
276
277 if (share)
278 {
279 sharefilename = xmalloc (out_len+5);
280 if (ptr == strchr (argv[i], ']'))
281 strcpy (sharefilename, ++ptr);
282 else if (ptr == strchr (argv[i], ':'))
283 strcpy (sharefilename, ++ptr);
284 else if (ptr == strrchr (argv[i], '/'))
285 strcpy (sharefilename, ++ptr);
286 else
287 strcpy (sharefilename, argv[i]);
288
289 len = strlen (sharefilename);
290 if (strncasecmp (&sharefilename[len-4], ".exe", 4) == 0)
291 sharefilename[len-4] = 0;
292
293 for (ptr = sharefilename; *ptr; ptr++)
294 *ptr = TOUPPER (*ptr);
295 }
296 }
297 }
298
299 static void
300 process_args (int *p_argc, char **argv)
301 {
302 int i;
303
304 for (i = 1; i < *p_argc; i++)
305 {
306 if (strlen (argv[i]) < 2)
307 continue;
308
309 if (strncmp (argv[i], "-L", 2) == 0)
310 {
311 char *nbuff, *ptr;
312 int new_len, search_dirs_len;
313
314 ptr = &argv[i][2];
315 new_len = strlen (ptr);
316 search_dirs_len = strlen (search_dirs);
317
318 nbuff = xmalloc (new_len + 1);
319 strcpy (nbuff, ptr);
320
321 /* Remove trailing slashes. */
322 while (new_len > 1 && nbuff [new_len - 1] == '/')
323 {
324 nbuff [new_len - 1] = 0;
325 new_len--;
326 }
327
328 search_dirs = xrealloc (search_dirs, search_dirs_len + new_len + 2);
329 if (search_dirs_len > 0)
330 strcat (search_dirs, PATH_SEPARATOR_STR);
331
332 strcat (search_dirs, nbuff);
333 free (nbuff);
334 }
335
336 /* -v turns on verbose option here and is passed on to gcc. */
337 else if (strcmp (argv[i], "-v") == 0)
338 verbose = 1;
339 else if (strcmp (argv[i], "-g0") == 0)
340 addarg ("/notraceback");
341 else if (strncmp (argv[i], "-g", 2) == 0)
342 {
343 addarg ("/debug");
344 debug = 1;
345 }
346 else if (strcmp (argv[i], "-static") == 0)
347 staticp = 1;
348 else if (strcmp (argv[i], "-map") == 0)
349 {
350 char *buff, *ptr;
351
352 buff = xmalloc (strlen (exefilename) + 5);
353 strcpy (buff, exefilename);
354 ptr = strchr (buff, '.');
355 if (ptr)
356 *ptr = 0;
357
358 strcat (buff, ".map");
359 addarg ("/map=");
360 addarg (buff);
361 addarg ("/full");
362 }
363 else if (strcmp (argv[i], "-save-temps") == 0)
364 save_temps = 1;
365 else if (strcmp (argv[i], "--noinhibit-exec") == 0)
366 inhibit_exec = 0;
367 }
368 }
369
370 /* The main program. Spawn the VMS linker after fixing up the Unix-like flags
371 and args to be what the VMS linker wants. */
372
373 int
374 main (int argc, char **argv)
375 {
376 int i;
377 char cwdev [128], *devptr;
378 int devlen;
379 int optfd;
380 FILE *optfile;
381 char *cwd = getcwd (0, 1024);
382 char *optfilename;
383
384 devptr = strchr (cwd, ':');
385 devlen = (devptr - cwd) + 1;
386 strncpy (cwdev, cwd, devlen);
387 cwdev [devlen] = '\0';
388
389 search_dirs = xstrdup (system_search_dirs);
390
391 addarg ("link");
392
393 /* Pass to find args that have to be append first. */
394 preprocess_args (&argc , argv);
395
396 /* Pass to find the rest of the args. */
397 process_args (&argc , argv);
398
399 /* Create a temp file to hold args, otherwise we can easily exceed the VMS
400 command line length limits. */
401 optfilename = alloca (strlen ("LDXXXXXX") + 1);
402 strcpy (optfilename, "LDXXXXXX");
403 optfd = mkstemp (optfilename);
404 getcwd (optfilefullname, 256, 1); /* VMS style cwd. */
405 strcat (optfilefullname, optfilename);
406 strcat (optfilefullname, ".");
407 optfile = fdopen (optfd, "w");
408
409 /* Write out the IDENTIFICATION argument first so that it can be overridden
410 by an options file. */
411 for (i = 1; i < argc; i++)
412 {
413 int arg_len = strlen (argv[i]);
414
415 if (arg_len > 6 && strncasecmp (argv[i], "IDENT=", 6) == 0)
416 {
417 /* Comes from command line. If present will always appear before
418 IDENTIFICATION=... and will override. */
419
420 if (!ident)
421 ident = 1;
422 }
423 else if (arg_len > 15
424 && strncasecmp (argv[i], "IDENTIFICATION=", 15) == 0)
425 {
426 /* Comes from pragma Ident (). */
427
428 if (!ident)
429 {
430 fprintf (optfile, "case_sensitive=yes\n");
431 fprintf (optfile, "IDENTIFICATION=\"%15.15s\"\n", &argv[i][15]);
432 fprintf (optfile, "case_sensitive=NO\n");
433 ident = 1;
434 }
435 }
436 }
437
438 for (i = 1; i < argc; i++)
439 {
440 int arg_len = strlen (argv[i]);
441
442 if (strcmp (argv[i], "-o") == 0)
443 i++;
444 else if (arg_len > 2 && strncmp (argv[i], "-l", 2) == 0)
445 {
446 const char *libname = expand_lib (&argv[i][2]);
447 const char *ext;
448 int len;
449
450 if ((len = strlen (libname)) > 0)
451 {
452 char buff [256];
453
454 if (len > 4 && strcasecmp (&libname [len-4], ".exe") == 0)
455 ext = "/shareable";
456 else
457 ext = "/library";
458
459 if (libname[0] == '[')
460 sprintf (buff, "%s%s", cwdev, libname);
461 else
462 sprintf (buff, "%s", libname);
463
464 fprintf (optfile, "%s%s\n", buff, ext);
465 }
466 }
467
468 else if (strcmp (argv[i], "-v" ) == 0
469 || strncmp (argv[i], "-g", 2 ) == 0
470 || strcmp (argv[i], "-static" ) == 0
471 || strcmp (argv[i], "-map" ) == 0
472 || strcmp (argv[i], "-save-temps") == 0
473 || strcmp (argv[i], "--noinhibit-exec") == 0
474 || (arg_len > 2 && strncmp (argv[i], "-L", 2) == 0)
475 || (arg_len >= 6 && strncmp (argv[i], "-share", 6) == 0))
476 ;
477 else if (arg_len > 1 && argv[i][0] == '@')
478 {
479 FILE *atfile;
480 char *ptr, *ptr1;
481 struct stat statbuf;
482 char *buff;
483 int len;
484
485 if (stat (&argv[i][1], &statbuf))
486 {
487 fprintf (stderr, "Couldn't open linker response file: %s\n",
488 &argv[i][1]);
489 exit (1);
490 }
491
492 buff = xmalloc (statbuf.st_size + 1);
493 atfile = fopen (&argv[i][1], "r");
494 fgets (buff, statbuf.st_size + 1, atfile);
495 fclose (atfile);
496
497 len = strlen (buff);
498 if (buff [len - 1] == '\n')
499 {
500 buff [len - 1] = 0;
501 len--;
502 }
503
504 ptr = buff;
505
506 do
507 {
508 ptr1 = strchr (ptr, ' ');
509 if (ptr1)
510 *ptr1 = 0;
511 ptr = to_host_file_spec (ptr);
512 if (ptr[0] == '[')
513 fprintf (optfile, "%s%s\n", cwdev, ptr);
514 else
515 fprintf (optfile, "%s\n", ptr);
516 ptr = ptr1 + 1;
517 } while (ptr1);
518 }
519
520 /* Unix style file specs and VMS style switches look alike, so assume an
521 arg consisting of one and only one slash, and that being first, is
522 really a switch. */
523 else if ((argv[i][0] == '/') && (strchr (&argv[i][1], '/') == 0))
524 addarg (argv[i]);
525 else if (arg_len > 4
526 && strncasecmp (&argv[i][arg_len-4], ".OPT", 4) == 0)
527 {
528 FILE *optfile1;
529 char buff [256];
530
531 optfile1 = fopen (argv[i], "r");
532 while (fgets (buff, 256, optfile1))
533 fputs (buff, optfile);
534
535 fclose (optfile1);
536 }
537 else if (arg_len > 7 && strncasecmp (argv[i], "GSMATCH", 7) == 0)
538 fprintf (optfile, "%s\n", argv[i]);
539 else if (arg_len > 6 && strncasecmp (argv[i], "IDENT=", 6) == 0)
540 {
541 /* Comes from command line and will override pragma. */
542 fprintf (optfile, "case_sensitive=yes\n");
543 fprintf (optfile, "IDENT=\"%15.15s\"\n", &argv[i][6]);
544 fprintf (optfile, "case_sensitive=NO\n");
545 ident = 1;
546 }
547 else if (arg_len > 15
548 && strncasecmp (argv[i], "IDENTIFICATION=", 15) == 0)
549 ;
550 else
551 {
552 /* Assume filename arg. */
553 const char *addswitch = "";
554 char buff [256];
555 int buff_len;
556 int is_cld = 0;
557
558 argv[i] = to_host_file_spec (argv[i]);
559 arg_len = strlen (argv[i]);
560
561 if (arg_len > 4 && strcasecmp (&argv[i][arg_len-4], ".exe") == 0)
562 addswitch = "/shareable";
563
564 if (arg_len > 4 && strcasecmp (&argv[i][arg_len-4], ".cld") == 0)
565 {
566 addswitch = "/shareable";
567 is_cld = 1;
568 }
569
570 if (arg_len > 2 && strcasecmp (&argv[i][arg_len-2], ".a") == 0)
571 addswitch = "/lib";
572
573 if (arg_len > 4 && strcasecmp (&argv[i][arg_len-4], ".olb") == 0)
574 addswitch = "/lib";
575
576 if (argv[i][0] == '[')
577 sprintf (buff, "%s%s%s\n", cwdev, argv[i], addswitch);
578 else if (strchr (argv[i], ':'))
579 sprintf (buff, "%s%s\n", argv[i], addswitch);
580 else
581 sprintf (buff, "%s%s%s\n", cwd, argv[i], addswitch);
582
583 buff_len = strlen (buff);
584
585 if (buff_len >= 15
586 && strcasecmp (&buff[buff_len - 15], "vms-dwarf2eh.o\n") == 0)
587 vmsdwarf2ehspec = xstrdup (buff);
588 else if (buff_len >= 13
589 && strcasecmp (&buff[buff_len - 13],"vms-dwarf2.o\n") == 0)
590 vmsdwarf2spec = xstrdup (buff);
591 else if (is_cld)
592 {
593 addarg (buff);
594 addarg (",");
595 }
596 else
597 fprintf (optfile, buff);
598 }
599 }
600
601 #if 0
602 if (share)
603 fprintf (optfile, "symbol_vector=(main=procedure)\n");
604 #endif
605
606 if (vmsdwarf2ehspec)
607 {
608 fprintf (optfile, "case_sensitive=yes\n");
609 fprintf (optfile, "cluster=DWARF2eh,,,%s", vmsdwarf2ehspec);
610 fprintf (optfile, "collect=DWARF2eh,eh_frame\n");
611 fprintf (optfile, "case_sensitive=NO\n");
612 }
613
614 if (debug && vmsdwarf2spec)
615 {
616 fprintf (optfile, "case_sensitive=yes\n");
617 fprintf (optfile, "cluster=DWARF2debug,,,%s", vmsdwarf2spec);
618 fprintf (optfile, "collect=DWARF2debug,debug_abbrev,debug_aranges,-\n");
619 fprintf (optfile, " debug_frame,debug_info,debug_line,debug_loc,-\n");
620 fprintf (optfile, " debug_macinfo,debug_pubnames,debug_str,-\n");
621 fprintf (optfile, " debug_zzzzzz\n");
622 fprintf (optfile, "case_sensitive=NO\n");
623 }
624
625 if (debug && share)
626 {
627 fprintf (optfile, "case_sensitive=yes\n");
628 fprintf (optfile, "symbol_vector=(-\n");
629 fprintf (optfile,
630 "%s$DWARF2.DEBUG_ABBREV/$dwarf2.debug_abbrev=DATA,-\n",
631 sharefilename);
632 fprintf (optfile,
633 "%s$DWARF2.DEBUG_ARANGES/$dwarf2.debug_aranges=DATA,-\n",
634 sharefilename);
635 fprintf (optfile, "%s$DWARF2.DEBUG_FRAME/$dwarf2.debug_frame=DATA,-\n",
636 sharefilename);
637 fprintf (optfile, "%s$DWARF2.DEBUG_INFO/$dwarf2.debug_info=DATA,-\n",
638 sharefilename);
639 fprintf (optfile, "%s$DWARF2.DEBUG_LINE/$dwarf2.debug_line=DATA,-\n",
640 sharefilename);
641 fprintf (optfile, "%s$DWARF2.DEBUG_LOC/$dwarf2.debug_loc=DATA,-\n",
642 sharefilename);
643 fprintf (optfile,
644 "%s$DWARF2.DEBUG_MACINFO/$dwarf2.debug_macinfo=DATA,-\n",
645 sharefilename);
646 fprintf (optfile,
647 "%s$DWARF2.DEBUG_PUBNAMES/$dwarf2.debug_pubnames=DATA,-\n",
648 sharefilename);
649 fprintf (optfile, "%s$DWARF2.DEBUG_STR/$dwarf2.debug_str=DATA,-\n",
650 sharefilename);
651 fprintf (optfile, "%s$DWARF2.DEBUG_ZZZZZZ/$dwarf2.debug_zzzzzz=DATA)\n",
652 sharefilename);
653 fprintf (optfile, "case_sensitive=NO\n");
654 }
655
656 fclose (optfile);
657 addarg (optfilefullname);
658 addarg ("/opt");
659
660 addarg (NULL);
661
662 if (verbose)
663 {
664 int i;
665
666 for (i = 0; i < link_arg_index; i++)
667 printf ("%s ", link_args [i]);
668 putchar ('\n');
669 }
670
671 {
672 int i;
673 int len = 0;
674
675 for (i = 0; link_args[i]; i++)
676 len = len + strlen (link_args[i]) + 1;
677
678 {
679 char *allargs = (char *) alloca (len + 1);
680 Descr cmd;
681 int status;
682 int status1 = 1;
683
684 for (i = 0; i < len + 1; i++)
685 allargs [i] = 0;
686
687 for (i = 0; link_args [i]; i++)
688 {
689 strcat (allargs, link_args [i]);
690 strcat (allargs, " ");
691 }
692
693 cmd.adr = allargs;
694 cmd.len = len;
695 cmd.mbz = 0;
696
697 i = LIB$SPAWN (&cmd, 0, 0, 0, 0, 0, &status);
698 if ((i & 1) != 1)
699 {
700 LIB$SIGNAL (i);
701 exit (1);
702 }
703
704 if (debug && !share)
705 {
706 strcpy (allargs, "@gnu:[bin]set_exe ");
707 strcat (allargs, exefilename);
708 strcat (allargs, " /nodebug /silent");
709 len = strlen (allargs);
710 cmd.adr = allargs;
711 cmd.len = len;
712 cmd.mbz = 0;
713
714 if (verbose)
715 printf (allargs);
716
717 i = LIB$SPAWN (&cmd, 0, 0, 0, 0, 0, &status1);
718
719 if ((i & 1) != 1)
720 {
721 LIB$SIGNAL (i);
722 exit (1);
723 }
724 }
725
726 if (!save_temps)
727 remove (optfilefullname);
728
729 if ((status & 1) == 1 && (status1 & 1) == 1)
730 exit (0);
731
732 if (exefilename && inhibit_exec == 1)
733 remove (exefilename);
734
735 exit (1);
736 }
737 }
738 }
739
740 static char new_host_filespec [255];
741 static char filename_buff [256];
742
743 static int
744 translate_unix (char *name, int type ATTRIBUTE_UNUSED)
745 {
746 strcpy (filename_buff, name);
747 return 0;
748 }
749
750 static char *
751 to_host_file_spec (char *filespec)
752 {
753 strcpy (new_host_filespec, "");
754 if (strchr (filespec, ']') || strchr (filespec, ':'))
755 strcpy (new_host_filespec, filespec);
756 else
757 {
758 decc$to_vms (filespec, translate_unix, 1, 1);
759 strcpy (new_host_filespec, filename_buff);
760 }
761
762 return new_host_filespec;
763 }