OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

adaint.c (__gnat_to_canonical_file_spec [VMS]): Check for logical name and translate.

Browse Source 
2005-03-29  Doug Rupp  <rupp@adacore.com>

	* adaint.c (__gnat_to_canonical_file_spec [VMS]): Check for logical
	name and translate.

From-SVN: r97167
This commit is contained in:
Doug Rupp 2005-03-29 18:13:31 +02:00 committed by Arnaud Charlet
parent a50c33459f
commit 78dabc95d5
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
gcc/ada/adaint.c
View File

@ -2204,18 +2204,29 @@ __gnat_to_canonical_dir_spec (char *dirspec, int prefixflag)
}
/* Translate a VMS syntax file specification into Unix syntax.
If no indicators of VMS syntax found, return input string. */
If no indicators of VMS syntax found, check if its an uppercase
alphanumeric_ name and if so try it out as an environment
variable (logical name). If all else fails return the
input string. */
char *
__gnat_to_canonical_file_spec (char *filespec)
{
char *filespec1;
strncpy (new_canonical_filespec, "", MAXPATH);
if (strchr (filespec, ']') || strchr (filespec, ':'))
{
strncpy (new_canonical_filespec,
(char *) decc$translate_vms (filespec),
MAXPATH);
(char *) decc$translate_vms (filespec), MAXPATH);
}
else if ((strlen (filespec) == strspn (filespec,
"ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_"))
&& (filespec1 = getenv (filespec)))
{
strncpy (new_canonical_filespec,
(char *) decc$translate_vms (filespec1), MAXPATH);
}
else
{