Lines Matching refs:rslt
1782 char *rslt;
1810 rslt = int_rmsexpand_tovms(name, vmsname, PERL_RMSEXPAND_M_SYMLINK);
1811 if (rslt == NULL) {
5028 char *rslt;
5061 rslt = int_rmsexpand_tovms(vms_src_dsc->dsc$a_pointer,
5064 if (rslt == NULL) {
7021 int_tounixspec(const char *spec, char *rslt, int * utf8_fl)
7073 my_strlcpy(rslt, uspec, VMS_MAXRSS);
7075 strcat(rslt,"\n");
7079 my_strlcpy(rslt, spec, VMS_MAXRSS);
7081 return rslt;
7119 cp1 = rslt;
7132 fprintf(stderr, "int_tounixspec: rslt = %s\n", rslt);
7134 return rslt;
7147 fprintf(stderr, "int_tounixspec: rslt = %s\n", rslt);
7149 return rslt;
7164 strcpy(rslt, "/dev/null");
7183 strcpy(rslt, "/tmp");
7207 fprintf(stderr, "int_tounixspec: rslt = NULL\n");
7220 cp1 = rslt;
7225 if (cp1 - rslt > (VMS_MAXRSS - 1)) {
7230 fprintf(stderr, "int_tounixspec: rslt = NULL\n");
7286 fprintf(stderr, "int_tounixspec: rslt = NULL\n");
7367 ulen = strlen(rslt);
7371 zeros = strstr(rslt, "/000000/");
7374 mlen = ulen - (zeros - rslt) - 7;
7377 rslt[ulen] = '\0';
7383 fprintf(stderr, "int_tounixspec: rslt = %s\n", rslt);
7385 return rslt;
8407 int_tovmsspec(const char *path, char *rslt, int dir_flag, int * utf8_flag)
8437 strcpy(rslt,"[]");
8440 return rslt;
8444 strcpy(rslt,"[-]");
8447 return rslt;
8457 posix_to_vmsspec_hardway(rslt, rslt_len, path, dir_flag, utf8_flag);
8458 return rslt;
8493 my_strlcpy(rslt, path, VMS_MAXRSS);
8495 fprintf(stderr, "int_tovmsspec: rslt = %s\n", rslt);
8497 return rslt;
8514 my_strlcpy(rslt, path, VMS_MAXRSS);
8516 fprintf(stderr, "int_tovmsspec: rslt = %s\n", rslt);
8518 return rslt;
8531 my_strlcpy(rslt, path, VMS_MAXRSS);
8533 fprintf(stderr, "int_tovmsspec: rslt = %s\n", rslt);
8535 return rslt;
8545 cp1 = rslt;
8556 strcpy(rslt,"sys$disk:[000000]");
8559 strcpy(rslt,"sys$posix_root:[000000]");
8564 fprintf(stderr, "int_tovmsspec: rslt = %s\n", rslt);
8566 return rslt;
8572 islnm = simple_trnlnm(rslt,trndev,VMS_MAXRSS-1);
8576 if (strEQ(rslt,"bin")) {
8577 strcpy(rslt,"sys$system");
8578 cp1 = rslt + 10;
8580 islnm = simple_trnlnm(rslt,trndev,VMS_MAXRSS-1);
8582 else if (strEQ(rslt,"tmp")) {
8583 strcpy(rslt,"sys$scratch");
8584 cp1 = rslt + 11;
8586 islnm = simple_trnlnm(rslt,trndev,VMS_MAXRSS-1);
8589 strcpy(rslt, "sys$posix_root");
8590 cp1 = rslt + 14;
8594 islnm = simple_trnlnm(rslt,trndev,VMS_MAXRSS-1);
8596 else if (strEQ(rslt,"dev")) {
8599 strcpy(rslt,"NLA0");
8600 cp1 = rslt + 4;
8603 islnm = simple_trnlnm(rslt,trndev,VMS_MAXRSS-1);
8622 my_strlcpy(rslt, trndev, VMS_MAXRSS);
8623 cp1 = rslt + trnend;
8666 if (cp1 > rslt && *(cp1-1) != '.') *(cp1++) = '.';
8673 if (cp1 > rslt && (*(cp1-1) == '-' || *(cp1-1) == '[')) *(cp1++) = '-'; /* handle "../" */
8674 else if (cp1 > rslt + 1 && *(cp1-2) == '[') *(cp1-1) = '-';
8683 if (cp1 > rslt && *(cp1-1) != '.') *(cp1++) = '.'; /* May already have 1 from '/' */
8693 if (cp1 > rslt && *(cp1-1) == '^')
8698 VMSEFS_DOT_WITH_ESCAPE(cp1, rslt, VMS_MAXRSS);
8703 if (!infront && cp1 > rslt && *(cp1-1) == '-') *(cp1++) = '.';
8706 if (cp1 > rslt && *(cp1-1) == '^')
8711 VMSEFS_DOT_WITH_ESCAPE(cp1, rslt, VMS_MAXRSS);
8723 if (cp1 > rslt && *(cp1-1) == '.') cp1--; /* Unix spec ending in '/' ==> trailing '.' */
8747 VMSEFS_DOT_WITH_ESCAPE(cp1, rslt, VMS_MAXRSS);
8861 fprintf(stderr, "int_tovmsspec: rslt = %s\n", rslt);
8863 return rslt;
12628 char *fspec, *defspec = NULL, *rslt;
12643 rslt = do_rmsexpand(fspec,NULL,1,defspec,0,&fs_utf8,&dfs_utf8);
12645 if (rslt != NULL) {
12646 sv_usepvn(ST(0),rslt,strlen(rslt));
12972 struct vs_str_st *rslt;
12998 * to the rslt pointer, so we will assign it to the begin char pointer
12999 * and then copy the value into the rslt pointer.
13002 rslt = (struct vs_str_st *)begin;
13003 rslt->length = 0;
13004 rstr = &rslt->str[0];
13005 rsdsc.dsc$a_pointer = (char *) rslt; /* cast required */
13126 rstr[rslt->length] = '\0';
13245 Safefree(rslt);
13258 char *fspec, *rslt_spec, *rslt;
13268 rslt = do_vms_realpath(fspec, rslt_spec, NULL);
13271 if (rslt != NULL)
13272 sv_usepvn(ST(0),rslt,strlen(rslt));
13286 char *fspec, *rslt_spec, *rslt;
13296 rslt = do_vms_realname(fspec, rslt_spec, NULL);
13299 if (rslt != NULL)
13300 sv_usepvn(ST(0),rslt,strlen(rslt));
13568 char * rslt = NULL;
13576 rslt = realpath(filespec, outbuf);
13580 if (rslt == NULL) {
13634 rslt = int_tounixspec(vms_spec, outbuf, utf8_fl);
13643 if (haslower) __mystrtolower(rslt);
13653 rslt = int_rmsexpand(filespec, outbuf,
13743 return rslt;