← Back to branch summary

~ubuntu-branches/ubuntu/precise/perl/precise

« back to all changes in this revision

Viewing changes to vms/vms.c

  • Committer: Bazaar Package Importer
  • Author(s): Niko Tyni
  • Date: 2011-02-06 11:31:38 UTC
  • mto: (8.2.12 experimental) (1.1.12)
  • mto: This revision was merged to the branch mainline in revision 46.
  • Revision ID: james.westby@ubuntu.com-20110206113138-lzpm3g6rur7i3eyp
Tags: upstream-5.12.3
Import upstream version 5.12.3

Show diffs side-by-side

added added

removed removed

Lines of Context:
vms/vms.c
89
89
};
90
90
#pragma member_alignment restore
91
91
 
92
 
/* More specific prototype than in starlet_c.h makes programming errors
93
 
   more visible.
94
 
 */
95
 
#ifdef sys$getdviw
96
 
#undef sys$getdviw
97
 
int sys$getdviw
98
 
       (unsigned long efn,
99
 
        unsigned short chan,
100
 
        const struct dsc$descriptor_s * devnam,
101
 
        const struct item_list_3 * itmlst,
102
 
        void * iosb,
103
 
        void * (astadr)(unsigned long),
104
 
        void * astprm,
105
 
        void * nullarg);
106
 
#endif
107
 
 
108
 
#ifdef sys$get_security
109
 
#undef sys$get_security
110
 
int sys$get_security
111
 
       (const struct dsc$descriptor_s * clsnam,
112
 
        const struct dsc$descriptor_s * objnam,
113
 
        const unsigned int *objhan,
114
 
        unsigned int flags,
115
 
        const struct item_list_3 * itmlst,
116
 
        unsigned int * contxt,
117
 
        const unsigned int * acmode);
118
 
#endif
119
 
 
120
 
#ifdef sys$set_security
121
 
#undef sys$set_security
122
 
int sys$set_security
123
 
       (const struct dsc$descriptor_s * clsnam,
124
 
        const struct dsc$descriptor_s * objnam,
125
 
        const unsigned int *objhan,
126
 
        unsigned int flags,
127
 
        const struct item_list_3 * itmlst,
128
 
        unsigned int * contxt,
129
 
        const unsigned int * acmode);
130
 
#endif
131
 
 
132
 
#ifdef lib$find_image_symbol
133
 
#undef lib$find_image_symbol
134
 
int lib$find_image_symbol
135
 
       (const struct dsc$descriptor_s * imgname,
136
 
        const struct dsc$descriptor_s * symname,
137
 
        void * symval,
138
 
        const struct dsc$descriptor_s * defspec,
139
 
        unsigned long flag);
140
 
#endif
141
 
 
142
 
#ifdef lib$rename_file
143
 
#undef lib$rename_file
144
 
int lib$rename_file
145
 
       (const struct dsc$descriptor_s * old_file_dsc,
146
 
        const struct dsc$descriptor_s * new_file_dsc,
147
 
        const struct dsc$descriptor_s * default_file_dsc,
148
 
        const struct dsc$descriptor_s * related_file_dsc,
149
 
        const unsigned long * flags,
150
 
        void * (success)(const struct dsc$descriptor_s * old_dsc,
151
 
                         const struct dsc$descriptor_s * new_dsc,
152
 
                         const void *),
153
 
        void * (error)(const struct dsc$descriptor_s * old_dsc,
154
 
                       const struct dsc$descriptor_s * new_dsc,
155
 
                       const int * rms_sts,
156
 
                       const int * rms_stv,
157
 
                       const int * error_src,
158
 
                       const void * usr_arg),
159
 
        int (confirm)(const struct dsc$descriptor_s * old_dsc,
160
 
                      const struct dsc$descriptor_s * new_dsc,
161
 
                      const void * old_fab,
162
 
                      const void * usr_arg),
163
 
        void * user_arg,
164
 
        struct dsc$descriptor_s * old_result_name_dsc,
165
 
        struct dsc$descriptor_s * new_result_name_dsc,
166
 
        unsigned long * file_scan_context);
167
 
#endif
168
 
 
169
92
#if __CRTL_VER >= 70300000 && !defined(__VAX)
170
93
 
171
94
static int set_feature_default(const char *name, int value)
732
655
            if (scnt == 4) {
733
656
                unsigned int c1, c2;
734
657
                scnt = sscanf(inspec, "%2x%2x", &c1, &c2);
735
 
                outspec[0] == c1 & 0xff;
736
 
                outspec[1] == c2 & 0xff;
 
658
                outspec[0] = c1 & 0xff;
 
659
                outspec[1] = c2 & 0xff;
737
660
                if (scnt > 1) {
738
661
                    (*output_cnt) += 2;
739
662
                    count += 4;
776
699
    return count;
777
700
}
778
701
 
779
 
#ifdef sys$filescan
780
 
#undef sys$filescan
781
 
int sys$filescan
782
 
   (const struct dsc$descriptor_s * srcstr,
783
 
    struct filescan_itmlst_2 * valuelist,
784
 
    unsigned long * fldflags,
785
 
    struct dsc$descriptor_s *auxout,
786
 
    unsigned short * retlen);
787
 
#endif
788
 
 
789
702
/* vms_split_path - Verify that the input file specification is a
790
703
 * VMS format file specification, and provide pointers to the components of
791
704
 * it.  With EFS format filenames, this is virtually the only way to
831
744
    *root = NULL;
832
745
    *root_len = 0;
833
746
    *dir = NULL;
834
 
    *dir_len;
835
747
    *name = NULL;
836
748
    *name_len = 0;
837
749
    *ext = NULL;
2484
2396
    dTHX;
2485
2397
    int iss;
2486
2398
    unsigned int code;
 
2399
#define sys$sigprc SYS$SIGPRC
2487
2400
    int sys$sigprc(unsigned int *pidadr,
2488
2401
                     struct dsc$descriptor_s *prcname,
2489
2402
                     unsigned int code);
4163
4076
            title[n] = *cptr;
4164
4077
            n++;
4165
4078
            if (n == 39) {
4166
 
                title[39] == 0;
 
4079
                title[39] = 0;
4167
4080
                break;
4168
4081
            }
4169
4082
            cptr++;
7255
7168
    cp1 = cp1 + 9;
7256
7169
    cp2 = cp2 + 5;
7257
7170
    if (spec[6] != '\0') {
7258
 
      cp1[9] == '/';
 
7171
      cp1[9] = '/';
7259
7172
      cp1++;
7260
7173
      cp2++;
7261
7174
    }
7280
7193
      cp1 = cp1 + 4;
7281
7194
      cp2 = cp2 + 12;
7282
7195
      if (spec[12] != '\0') {
7283
 
        cp1[4] == '/';
 
7196
        cp1[4] = '/';
7284
7197
        cp1++;
7285
7198
        cp2++;
7286
7199
      }
8127
8040
        cmp = strncmp(vmspath, "dev", 4);
8128
8041
        if (cmp == 0) {
8129
8042
            sts = slash_dev_special_to_vms(unixptr, vmspath, vmspath_len);
8130
 
            if (sts = SS$_NORMAL)
 
8043
            if (sts == SS$_NORMAL)
8131
8044
                return SS$_NORMAL;
8132
8045
        }
8133
8046
      }
14963
14876
** Force a reference to LIB$INITIALIZE to ensure it
14964
14877
** exists in the image.
14965
14878
*/
 
14879
#define lib$initialize LIB$INITIALIZE
14966
14880
int lib$initialize(void);
14967
14881
#ifdef __DECC
14968
14882
#pragma extern_model strict_refdef