perl/vms/vms.c

273     name_dsc.dsc$w_length = strlen(logname);
691     path_desc.dsc$w_length = strlen(path);
747     if (path_desc.dsc$w_length != item_list[filespec].length)
845     lnmdsc.dsc$w_length = strlen(lnm);
914     lnmdsc.dsc$w_length = cp1 - lnm;
916     uplnm[lnmdsc.dsc$w_length] = '\0';
940                 lnmdsc.dsc$w_length == (eq - environ[i]) &&
1333     _ckvmssts(lib$getdvi(&dviitm, &chan, NULL, NULL, &mbxdsc, &mbxdsc.dsc$w_length));
1359       cmddsc.dsc$w_length = 20;
1360       if (env_tables[i]->dsc$w_length == 12 &&
1369         cmddsc.dsc$w_length = my_strlcat(cmd, env_tables[i]->dsc$a_pointer, sizeof(cmd));
1371       else cmddsc.dsc$w_length = 14;  /* N.B. We test this below */
1459     if (cmddsc.dsc$w_length == 14) { /* We just read LNM$FILE_DEV */
1517     lnmdsc.dsc$w_length = cp1 - lnm;
1526                 lnmdsc.dsc$w_length == (cp1 - environ[i]) &&
1537           if (tabvec[curtab]->dsc$w_length == 12 &&
1562         eqvdsc.dsc$w_length  = strlen(eqv);
1566           if (tabvec[0]->dsc$w_length == 12 &&
1574           if (!*eqv) eqvdsc.dsc$w_length = 1;
1575           if (eqvdsc.dsc$w_length > LNM$C_NAMLENGTH) {
1577             nseg = (eqvdsc.dsc$w_length + LNM$C_NAMLENGTH - 1) / LNM$C_NAMLENGTH;
1581               eqvdsc.dsc$w_length = LNM$C_NAMLENGTH * (PERL_LNM_MAX_ALLOWED_INDEX+1);
1684     d_name.dsc$w_length = strlen(name);
1717         unsigned short int dsc$w_length;
1729     usrdsc.dsc$w_length = strlen(usrname);
1746     txtdsc.dsc$w_length = strlen(textpasswd);
1837     fildsc.dsc$w_length = strlen(vmsname);
2895   sts = lib$getdvi(&dviitm, chan, NULL, NULL, namdsc, &namdsc->dsc$w_length);
2897   namdsc->dsc$a_pointer[namdsc->dsc$w_length] = '\0';
3556         d_dev.dsc$w_length = strlen(out);
4085     customization_dsc.dsc$w_length = strlen(customization);
4090     device_name_dsc.dsc$w_length = sizeof device_name -1;
4140     device_name_dsc.dsc$w_length = device_name_len;
4259         vmspipedsc.dsc$w_length = my_strlcpy(tfilebuf+1, vmspipe, sizeof(tfilebuf)-1) + 1;
4269         vmspipedsc.dsc$w_length  = strlen(tfilebuf);
4465     d_symbol.dsc$w_length = my_strlcpy(symbol, in, sizeof(symbol));
4468     d_symbol.dsc$w_length = my_strlcpy(symbol, err, sizeof(symbol));
4471     d_symbol.dsc$w_length = my_strlcpy(symbol, out, sizeof(symbol));
4486         d_sym_cmd.dsc$w_length = strlen(cmd_sym_name);
4488     d_symbol.dsc$w_length = my_strlcpy(symbol, p, sizeof(symbol));
4518         d_sym_cmd.dsc$w_length = strlen(cmd_sym_name);
5075     fildsc.dsc$w_length = strlen(vmsname);
5386         old_file_dsc.dsc$w_length = strlen(src_st.st_devnam);
5391         new_file_dsc.dsc$w_length = strlen(vms_dst);
7590    specdsc.dsc$w_length = vmspath_len;
7593    dvidsc.dsc$w_length = mynam.naml$t_dvi[0];
7595       (&dvidsc, mynam.naml$w_fid, &specdsc, &specdsc.dsc$w_length);
7606     vmspath[specdsc.dsc$w_length] = 0;
7615       i = specdsc.dsc$w_length - 1;
9326         mbxnam.dsc$w_length = strlen(mbxnam.dsc$a_pointer);
9329         mbxdevnam.dsc$w_length = sizeof(mbxname);
9331         lib$getdvi(&dvi_item, 0, &mbxnam, 0, &mbxdevnam, &mbxdevnam.dsc$w_length);
9332         mbxdevnam.dsc$a_pointer[mbxdevnam.dsc$w_length] = '\0';
9458     filespec.dsc$w_length = strlen(filespec.dsc$a_pointer);
9476         string = (char *)PerlMem_malloc(resultspec.dsc$w_length+1);
9478         my_strlcpy(string, resultspec.dsc$a_pointer, resultspec.dsc$w_length+1);
9485             my_strlcpy(string, devdir + 1, resultspec.dsc$w_length+1);
9600     value.dsc$w_length = strlen(value.dsc$a_pointer);
9615     pidstr.dsc$w_length = strlen(pidstr.dsc$a_pointer);
9779     tabvec[tabidx]->dsc$w_length  = len;
9957       wilddsc.dsc$w_length = resdsc.dsc$w_length = ellipsis - 1 - cp1;
10116     dd->pat.dsc$w_length = strlen(dd->pattern);
10187     pat.dsc$w_length = i + e->d_namlen - 1;
10194     res.dsc$w_length = VMS_MAXRSS - 1;
10242     res.dsc$w_length = VMS_MAXRSS - 1;
10275     buff[res.dsc$w_length] = '\0';
10276     p = buff + res.dsc$w_length;
10561   resdsc.dsc$w_length = VMS_MAXRSS - 1;
10566   vmscmd->dsc$w_length = 0;
10700     imgdsc.dsc$w_length = wordbreak - s;
10707         imgdsc.dsc$a_pointer++; imgdsc.dsc$w_length--;
10881         vmscmd->dsc$w_length = strlen(vmscmd->dsc$a_pointer);
10885         return (vmscmd->dsc$w_length > MAX_DCL_LINE_LENGTH ? CLI$_BUFOVF : retsts);
10892   vmscmd->dsc$w_length = strlen(cmd);
10894   vmscmd->dsc$a_pointer = (char *)PerlMem_malloc(vmscmd->dsc$w_length + 1);
10895   my_strlcpy(vmscmd->dsc$a_pointer, cmd, vmscmd->dsc$w_length + 1);
10919   return (vmscmd->dsc$w_length > MAX_DCL_LINE_LENGTH ? CLI$_BUFOVF : retsts);
10997              vmscmd->dsc$w_length, vmscmd->dsc$a_pointer, Strerror(errno));
11369     name_desc.dsc$w_length=  strlen(name);
11427       name_desc.dsc$w_length=  strlen(name);
11781     dev_desc.dsc$w_length =  strlen (dev);
11868          {sizeof usrname, JPI$_USERNAME, &usrname, &usrdsc.dsc$w_length},
11909   retlen = namdsc.dsc$w_length = strlen(vmsname);
11927   retlen = namdsc.dsc$w_length = strlen(fname);
11968                                     &usrprodsc.dsc$w_length,&profile_context));
11971   usrprodsc.dsc$a_pointer = (char *)PerlMem_malloc(usrprodsc.dsc$w_length);
11974                                     &usrprodsc.dsc$w_length,&profile_context));
13085             wilddsc.dsc$w_length = strlen(wilddsc.dsc$a_pointer);
13541         dvidsc.dsc$w_length=strlen(statbuf.st_dev);
13544         specdsc.dsc$w_length = outlen-1;
13547             (&dvidsc, statbuf.st_ino, &specdsc, &specdsc.dsc$w_length);
13549             outname[specdsc.dsc$w_length] = 0;