Searched refs:uplnm (Results 1 – 1 of 1) sorted by relevance
| /mirbsd/src/gnu/usr.bin/perl/vms/ |
| D | vms.c | 175 char uplnm[LNM$C_NAMLENGTH+1], *cp1, *cp2; in Perl_vmstrnenv() local
211 for (cp1 = (char *)lnm, cp2 = uplnm; *cp1; cp1++, cp2++) { in Perl_vmstrnenv()
219 lnmdsc.dsc$a_pointer = uplnm; in Perl_vmstrnenv()
220 uplnm[lnmdsc.dsc$w_length] = '\0'; in Perl_vmstrnenv()
239 !strncmp(environ[i],uplnm,eq - environ[i])) { in Perl_vmstrnenv()
299 *((int *)uplnm) == *((int *)"SYS$") && in Perl_vmstrnenv()
302 ( (uplnm[4] == 'O' && !strcmp(uplnm,"SYS$OUTPUT")) || in Perl_vmstrnenv()
303 (uplnm[4] == 'I' && !strcmp(uplnm,"SYS$INPUT")) || in Perl_vmstrnenv()
304 (uplnm[4] == 'E' && !strcmp(uplnm,"SYS$ERROR")) || in Perl_vmstrnenv()
305 (uplnm[4] == 'C' && !strcmp(uplnm,"SYS$COMMAND")) ) ) { in Perl_vmstrnenv()
[all …]
|