123 |
{ |
{ |
124 |
name_dsc.len = len = strlen(nambuf); |
name_dsc.len = len = strlen(nambuf); |
125 |
/* Check which components of file specification seem to be present. */ |
/* Check which components of file specification seem to be present. */ |
126 |
flags = ~0; /* (init so that we can ignore return status) |
flags = ~0; /* (init so that we can ignore return status) |
127 |
*/ |
*/ |
128 |
(void) sys$filescan(&name_dsc, (void *) 0, &flags); |
(void) sys$filescan(&name_dsc, (void *) 0, &flags); |
129 |
if ((flags & ~FSCN_DIR) != 0 || strchr(nambuf, '/') != 0) |
if ((flags & ~FSCN_DIR) != 0 || strchr(nambuf, '/') != 0) |