372 copy_expand_unix_filename_escape(char *outspec, const char *inspec, int *output_cnt, const int * ut…  in copy_expand_unix_filename_escape()  argument
383     if (*inspec >= 0x80) {  in copy_expand_unix_filename_escape()
389             if ((*inspec & 0xE0) == 0xC0) {  in copy_expand_unix_filename_escape()
391                 ucs_char = ((inspec[0] & 0x1F) << 6) + (inspec[1] & 0x3f);  in copy_expand_unix_filename_escape()
396             } else if ((*inspec & 0xF0) == 0xE0) {  in copy_expand_unix_filename_escape()
398                 ucs_char = ((inspec[0] & 0xF) << 12) +   in copy_expand_unix_filename_escape()
399                    ((inspec[1] & 0x3f) << 6) +  in copy_expand_unix_filename_escape()
400                    (inspec[2] & 0x3f);  in copy_expand_unix_filename_escape()
408             } else if ((*inspec & 0xF8) == 0xF0) {  in copy_expand_unix_filename_escape()
411             } else if ((*inspec & 0xFC) == 0xF8) {  in copy_expand_unix_filename_escape()
414             } else if ((*inspec & 0xFE) == 0xFC) {  in copy_expand_unix_filename_escape()
424         if ((unsigned char)*inspec <= 0x9F) {  in copy_expand_unix_filename_escape()
428             hex = (*inspec >> 4) & 0xF;  in copy_expand_unix_filename_escape()
434             hex = *inspec & 0xF;  in copy_expand_unix_filename_escape()
442         } else if ((unsigned char)*inspec == 0xA0) {  in copy_expand_unix_filename_escape()
448         } else if ((unsigned char)*inspec == 0xFF) {  in copy_expand_unix_filename_escape()
455         *outspec = *inspec;  in copy_expand_unix_filename_escape()
465     if ((inspec[0] == '$') && (inspec[1] == '(')) {  in copy_expand_unix_filename_escape()
468         if (isALPHA_L1(inspec[2]) || (inspec[2] == '.') || (inspec[2] == '_')) {  in copy_expand_unix_filename_escape()
470             outspec[0] = inspec[0];  in copy_expand_unix_filename_escape()
471             outspec[1] = inspec[1];  in copy_expand_unix_filename_escape()
472             outspec[2] = inspec[2];  in copy_expand_unix_filename_escape()
474             while(isALPHA_L1(inspec[tcnt]) ||  in copy_expand_unix_filename_escape()
475                   (inspec[2] == '.') || (inspec[2] == '_')) {  in copy_expand_unix_filename_escape()
476                 outspec[tcnt] = inspec[tcnt];  in copy_expand_unix_filename_escape()
479             if (inspec[tcnt] == ')') {  in copy_expand_unix_filename_escape()
480                 outspec[tcnt] = inspec[tcnt];  in copy_expand_unix_filename_escape()
488     switch (*inspec) {  in copy_expand_unix_filename_escape()
526         if (memCHRs(".!#&\'`()+@{},;[]%^=_\\", *(inspec+1))) {  in copy_expand_unix_filename_escape()
527             *outspec = *inspec;  in copy_expand_unix_filename_escape()
536         outspec[1] = *inspec;  in copy_expand_unix_filename_escape()
548         *outspec = *inspec;  in copy_expand_unix_filename_escape()
567 copy_expand_vms_filename_escape(char *outspec, const char *inspec, int *output_cnt)  in copy_expand_vms_filename_escape()  argument
574     if (*inspec == '^') {  in copy_expand_vms_filename_escape()
575         inspec++;  in copy_expand_vms_filename_escape()
576         switch (*inspec) {  in copy_expand_vms_filename_escape()
581             *outspec = *inspec;  in copy_expand_vms_filename_escape()
598             inspec++;  in copy_expand_vms_filename_escape()
600             scnt = strspn(inspec, "0123456789ABCDEFabcdef");  in copy_expand_vms_filename_escape()
603                 scnt = sscanf(inspec, "%2x%2x", &c1, &c2);  in copy_expand_vms_filename_escape()
616                 *outspec = *inspec;  in copy_expand_vms_filename_escape()
622             scnt = strspn(inspec, "0123456789ABCDEFabcdef");  in copy_expand_vms_filename_escape()
626                 scnt = sscanf(inspec, "%2x", &c1);  in copy_expand_vms_filename_escape()
634                 *outspec = *inspec;  in copy_expand_vms_filename_escape()
641         *outspec = *inspec;  in copy_expand_vms_filename_escape()
12821   char *inspec, *outspec, *inp, *outp;  local
12831   Newx(inspec, VMS_MAXRSS, char);
12833     if (!(io = GvIOp(mysv)) || !PerlIO_getname(IoIFP(io),inspec)) {
12836       Safefree(inspec);
12839     inp = inspec;
12845       Safefree(inspec);
12855       Safefree(inspec);
12865       Safefree(inspec);
12873   Safefree(inspec);