perl/vms/vms.c

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;