perl/vms/vms.c

796 is_dir_ext(char * e_spec, int e_len, char * vs_spec, int vs_len)
799     /* e_len must be 4, and version must be <= 2 characters */
800     if (e_len != 4 || vs_len > 2)
5358                 int sts, v_len, r_len, d_len, n_len, e_len, vs_len;
5370                              &e_len, &vs_spec, &vs_len);
5372                      if (e_len == 0) {
5516       int sts, v_len, r_len, d_len, n_len, e_len, vs_len;
5521                            &e_len, &vs_spec, &vs_len);
6196             int e_len, vs_len = 0;
6200             e_len = strlen(cp2);
6203                 e_len = e_len - vs_len;
6205             is_dir = is_dir_ext(cp2, e_len, cp3, vs_len);
6577     char * e_spec, int e_len, char * vs_spec, int vs_len)
6585         if ((n_len + e_len + vs_len) == 0) {
6595         is_dir = is_dir_ext(e_spec, e_len, vs_spec, vs_len);
6596         if (is_dir || (e_len == 0) && (d_len > 0)) {
6623             if (e_len > 0) {
6625                     if (e_len == 4
6639                         memcpy(&buf[len], e_spec, e_len);
6640                         len += e_len;
6672     int sts, v_len, r_len, d_len, n_len, e_len, vs_len;
6749                              &e_len, &vs_spec, &vs_len);
6768                     is_dir = is_dir_ext(e_spec, e_len, vs_spec, vs_len);
6793             e_spec, e_len, vs_spec, vs_len);
6816                                  &e_len, &vs_spec, &vs_len);
6821                     e_spec, e_len, vs_spec, vs_len);
6882             STRLEN e_len;
6884             e_len = strlen(lastdot);
6886             is_dir = is_dir_ext(lastdot, e_len, NULL, 0);
7717   int sts, v_len, r_len, d_len, n_len, e_len, vs_len;
7831                    &e_len,
7844                     if (((n_len + e_len) != 0) && (dir_flag !=0)) {
7852                         if (((n_len + e_len) == 0)&&(seg_len <= vmspath_len)) {
7865                 if ((n_len + e_len) != 0)
8417   int sts, v_len, r_len, d_len, n_len, e_len, vs_len;
8475         &e_len,
10237     int sts, v_len, r_len, d_len, n_len, e_len, vs_len;
10295         &e_len,
10304             if (is_dir_ext(e_spec, e_len, vs_spec, vs_len)) {
10310                     e_len = 0;
10317         if ((e_len == 1) && DECC_READDIR_DROPDOTNOTYPE) {
10318             e_len = 0;
10323     memcpy(dd->entry.d_name, n_spec, n_len + e_len);
10324     dd->entry.d_name[n_len + e_len] = '\0';
10325     dd->entry.d_namlen = n_len + e_len;
13116          int v_sts, v_len, r_len, d_len, n_len, e_len, vs_len;
13140                         &e_len,
13155                     if (is_dir_ext(e_spec, e_len, vs_spec, vs_len)) {
13162                             e_len = 0;
13169                 if ((e_len == 1) && DECC_READDIR_DROPDOTNOTYPE) {
13170                     e_len = 0;
13189                 if ((e_len == we_len) && (n_len == wn_len)) {
13191                     t1 = e_len;
13193                         t1 = strncmp(e_spec, we_spec, e_len);
13583         int sts, v_len, r_len, d_len, n_len, e_len, vs_len;
13606                    &e_len,
13616                     int file_len = v_len + r_len + d_len + n_len + e_len;
13620                     if (is_dir_ext(e_spec, e_len, vs_spec, vs_len)) {
13622                             e_len = 0;
13628                     if ((e_len == 1) && DECC_READDIR_DROPDOTNOTYPE) {
13629                         e_len = 0;
13687                            &e_len,
13751     int sts, v_len, r_len, d_len, n_len, e_len, vs_len;
13774                    &e_len,
13784             int file_len = v_len + r_len + d_len + n_len + e_len;