Commit | Line | Data |
---|---|---|
464ff92e CB |
1 | $! SUBCONFIGURE.COM |
2 | $! - build a config.sh for VMS Perl. | |
3 | $! - use built config.sh to take config_h.SH -> config.h | |
4 | $! - also take vms/descrip_mms.template -> descrip.mms (VMS Makefile) | |
9ef4b0a6 BH |
5 | $! |
6 | $! Note for folks from other platforms changing things in here: | |
7 | $! Fancy changes (based on compiler capabilities or VMS version or | |
8 | $! whatever) are tricky, so go ahead and punt on those. | |
9 | $! | |
10 | $! Simple changes, though (say, always setting something to 1, or undef, | |
11 | $! or something like that) are straightforward. Adding a new item for the | |
12 | $! ultimately created config.sh requires adding two lines to this file. | |
13 | $! | |
14 | $! First, a line in the format: | |
464ff92e | 15 | $! $ foo = "bar" |
9ef4b0a6 BH |
16 | $! after the line tagged ##ADD NEW CONSTANTS HERE##. Replace foo with the |
17 | $! variable name as it appears in config.sh. | |
18 | $! | |
19 | $! Second, add a line in the format: | |
464ff92e | 20 | $! $ WC "foo='" + foo + "'" |
9ef4b0a6 BH |
21 | $! after the line tagged ##WRITE NEW CONSTANTS HERE##. Careful of the |
22 | $! quoting, as it can be tricky. | |
97abc6ad HM |
23 | $! |
24 | $! This .COM file expects to be called by configure.com, and thus expects | |
25 | $! a few symbols in the environment. Notably: | |
26 | $! | |
9c5233f2 | 27 | $! One of: Using_Dec_C, Using_Gnu_C set to "YES" |
97abc6ad HM |
28 | $! Dec_C_Version set to the Dec C version (defaults to 0 if not specified) |
29 | $! Has_Socketshr set to "T" if using socketshr | |
30 | $! Has_Dec_C_Sockets set to "T" if using Dec C sockets | |
31 | $! Use_Threads set to "T" if they're using threads | |
32 | $! C_Compiler_Invoke is the command needed to invoke the C compiler | |
33 | $! | |
9c5233f2 CB |
34 | $! We'll be playing with Sys$Output; don't clutter it |
35 | $ Set NoVerify | |
36 | $! | |
97abc6ad HM |
37 | $! Set Dec_C_Version to something |
38 | $ WRITE_RESULT := "WRITE SYS$OUTPUT ""%CONFIG-I-RESULT "" + " | |
cc391245 | 39 | $ echo = "Write Sys$Output " |
97abc6ad HM |
40 | $ Dec_C_Version := "''Dec_C_Version'" |
41 | $ Dec_C_Version = Dec_C_Version + 0 | |
42 | $ Vms_Ver := "''f$extract(1,3, f$getsyi(""version""))'" | |
43 | $ perl_extensions := "''extensions'" | |
464ff92e | 44 | $ IF F$LENGTH(Mcc) .EQ. 0 THEN Mcc := "cc" |
429a5e67 | 45 | $ MCC = f$edit(mcc, "UPCASE") |
5af06f0d | 46 | $ C_Compiler_Replace := "CC=CC=''Mcc'''CC_flags'" |
464ff92e | 47 | $ IF Using_Dec_C |
97abc6ad HM |
48 | $ THEN |
49 | $ Checkcc := "''Mcc'/prefix=all" | |
50 | $ ELSE | |
51 | $ Checkcc := "''Mcc'" | |
52 | $ ENDIF | |
498336ed | 53 | $ cc_flags = cc_flags + extra_flags |
464ff92e CB |
54 | $ IF be_case_sensitive |
55 | $ THEN | |
56 | $ d_vms_be_case_sensitive = "define" | |
57 | $ ELSE | |
58 | $ d_vms_be_case_sensitive = "undef" | |
59 | $ ENDIF | |
60 | $ IF use_multiplicity | |
3937c24e HM |
61 | $ THEN |
62 | $ perl_usemultiplicity = "define" | |
63 | $ ELSE | |
64 | $ perl_usemultiplicity = "undef" | |
65 | $ ENDIF | |
97abc6ad | 66 | $! Some constant defaults. |
97abc6ad HM |
67 | $ hwname = f$getsyi("HW_NAME") |
68 | $ myname = myhostname | |
464ff92e | 69 | $ IF myname .EQS. "" THEN myname = F$TRNLNM("SYS$NODE") |
9ef4b0a6 BH |
70 | $! |
71 | $! ##ADD NEW CONSTANTS HERE## | |
4b19af01 CB |
72 | $ perl_i_prot="undef" |
73 | $ perl_d_getespwnam="undef" | |
74 | $ perl_d_getprpwnam="undef" | |
75 | $ perl_d_isnan= "define" | |
ee8c7f54 | 76 | $ perl_sizesize = "4" |
ccc2aad8 GS |
77 | $ perl_shmattype = "" |
78 | $ perl_mmaptype = "" | |
79 | $ perl_gidformat = "lu" | |
80 | $ perl_gidsize = "4" | |
ee8c7f54 | 81 | $ perl_gidsign = "1" |
ccc2aad8 GS |
82 | $ perl_groupstype = "Gid_t" |
83 | $ perl_stdio_stream_array = "" | |
84 | $ perl_uidformat = "lu" | |
85 | $ perl_uidsize = "4" | |
ee8c7f54 | 86 | $ perl_uidsign = "1" |
fe749a9f | 87 | $ perl_d_getcwd = "undef" |
29637182 | 88 | $ perl_d_nv_preserves_uv = "define" |
1b8cd678 JH |
89 | $ perl_d_fs_data_s = "undef" |
90 | $ perl_d_getmnt = "undef" | |
91 | $ perl_d_sqrtl = "define" | |
92 | $ perl_d_statfs_f_flags = "undef" | |
93 | $ perl_d_statfs_s = "undef" | |
94 | $ perl_d_ustat = "undef" | |
792d8dab | 95 | $ perl_i_ieeefp = "undef" |
923fc586 | 96 | $ perl_i_sunmath = "undef" |
1b8cd678 JH |
97 | $ perl_i_sysstatfs = "undef" |
98 | $ perl_i_sysvfs = "undef" | |
99 | $ perl_i_ustat = "undef" | |
c1bd7dac | 100 | $ perl_d_llseek="undef" |
5af06f0d | 101 | $ perl_d_iconv="undef" |
9ecfa05e | 102 | $ perl_d_madvise="undef" |
ccc2aad8 GS |
103 | $ perl_selectminbits="32" |
104 | $ perl_d_vendorarch="undef" | |
c645ec3f | 105 | $ perl_vendorarchexp="" |
9ecfa05e JH |
106 | $ perl_d_msync="undef" |
107 | $ perl_d_mprotect="undef" | |
108 | $ perl_d_munmap="undef" | |
a12fb911 HM |
109 | $ perl_crosscompile="undef" |
110 | $ perl_multiarch="undef" | |
9ecfa05e JH |
111 | $ perl_d_mmap="undef" |
112 | $ perl_i_sysmman="undef" | |
cb86ce0e | 113 | $ perl_d_telldirproto="define" |
953103e7 | 114 | $ perl_i_sysmount="undef" |
fafa4fee | 115 | $ perl_d_bincompat="undef" |
fafa4fee | 116 | $ perl_d_getspnam="undef |
953103e7 | 117 | $ perl_d_fstatfs="undef" |
c890dc6c | 118 | $ perl_d_getfsstat="undef" |
c2da85ba GS |
119 | $ perl_i_machcthreads="undef" |
120 | $ perl_i_pthread="define" | |
13789a15 | 121 | $ perl_d_fstatvfs="undef" |
fafa4fee CB |
122 | $ perl_usesocks="undef" |
123 | $ perl_d_vendorlib="undef" | |
124 | $ perl_vendorlibexp="" | |
ccc2aad8 | 125 | $ perl_vendorlib_stem="" |
953103e7 HM |
126 | $ perl_d_statfsflags="undef" |
127 | $ perl_i_sysstatvfs="undef" | |
953103e7 HM |
128 | $ perl_i_mntent="undef" |
129 | $ perl_d_getmntent="undef" | |
130 | $ perl_d_hasmntopt="undef" | |
97abc6ad HM |
131 | $ perl_package="''package'" |
132 | $ perl_baserev = "''baserev'" | |
429a5e67 | 133 | $ cc_defines="" |
a12fb911 | 134 | $ perl_installusrbinperl="undef" |
97abc6ad | 135 | $ perl_CONFIG="true" |
3937c24e HM |
136 | $ perl_d_fseeko="undef" |
137 | $ perl_d_ftello="undef" | |
bbe6c963 | 138 | $ perl_d_qgcvt="undef" |
3937c24e HM |
139 | $ perl_d_readv="undef" |
140 | $ perl_d_writev="undef" | |
141 | $ perl_i_machcthr="undef" | |
97abc6ad HM |
142 | $ perl_i_netdb="undef" |
143 | $ perl_d_gnulibc="undef" | |
97abc6ad HM |
144 | $ perl_ccdlflags="" |
145 | $ perl_cccdlflags="" | |
146 | $ perl_mab="" | |
cc391245 CB |
147 | $ perl_drand01 = "drand48()" |
148 | $ perl_randseedtype = "long int" | |
149 | $ perl_seedfunc = "srand48" | |
3937c24e HM |
150 | $ perl_d_msg_ctrunc = "undef" |
151 | $ perl_d_msg_dontroute = "undef" | |
152 | $ perl_d_msg_oob = "undef" | |
153 | $ perl_d_msg_peek = "undef" | |
154 | $ perl_d_msg_proxy = "undef" | |
155 | $ perl_d_scm_rights = "undef" | |
156 | $ perl_d_sendmsg = "undef" | |
157 | $ perl_d_recvmsg = "undef" | |
158 | $ perl_d_msghdr_s = "undef" | |
159 | $ perl_d_cmsghdr_s = "undef" | |
f53b4005 | 160 | $ IF (use64bitint) |
fafa4fee | 161 | $ THEN |
10cc9d2a | 162 | $ perl_use64bitint = "define" |
8f9bf0bf CB |
163 | $ perl_uselargefiles = "define" |
164 | $ perl_uselongdouble = "define" | |
1b8cd678 | 165 | $ perl_usemorebits = "define" |
fafa4fee | 166 | $ ELSE |
10cc9d2a | 167 | $ perl_use64bitint = "undef" |
8f9bf0bf CB |
168 | $ perl_uselargefiles = "undef" |
169 | $ perl_uselongdouble = "undef" | |
1b8cd678 | 170 | $ perl_usemorebits = "undef" |
fafa4fee | 171 | $ ENDIF |
f53b4005 | 172 | $ IF (use64bitall) |
c890dc6c | 173 | $ THEN |
10cc9d2a | 174 | $ perl_use64bitall = "define" |
c890dc6c | 175 | $ ELSE |
10cc9d2a | 176 | $ perl_use64bitall = "undef" |
c890dc6c | 177 | $ ENDIF |
3937c24e | 178 | $ perl_d_drand48proto = "define" |
c890dc6c | 179 | $ perl_d_lseekproto = "define" |
97abc6ad HM |
180 | $ perl_libpth="/sys$share /sys$library" |
181 | $ perl_ld="Link" | |
182 | $ perl_lddlflags="/Share" | |
183 | $ perl_ranlib="" | |
184 | $ perl_ar="" | |
86d026b8 | 185 | $ perl_full_ar="" |
97abc6ad HM |
186 | $ perl_eunicefix=":" |
187 | $ perl_hint="none" | |
93341792 | 188 | $ perl_i_arpainet="undef" |
b6e4eeb2 HM |
189 | $ perl_d_grpasswd="undef" |
190 | $ perl_d_setgrent="undef" | |
191 | $ perl_d_getgrent="define" | |
192 | $ perl_d_endgrent="define" | |
193 | $ perl_d_pwpasswd="define" | |
194 | $ perl_d_setpwent="define" | |
195 | $ perl_d_getpwent="define" | |
196 | $ perl_d_endpwent="define" | |
3937c24e HM |
197 | $ perl_d_phostname="undef" |
198 | $ perl_d_accessx="undef" | |
199 | $ perl_d_eaccess="undef" | |
9ef4b0a6 | 200 | $ perl_ebcdic="undef" |
97abc6ad HM |
201 | $ perl_hintfile="" |
202 | $ perl_shrplib="define" | |
203 | $ perl_usemymalloc=mymalloc | |
204 | $ perl_usevfork="true" | |
205 | $ perl_useposix="false" | |
206 | $ perl_spitshell="write sys$output " | |
207 | $ perl_dlsrc="dl_vms.c" | |
208 | $ perl_man1ext="rno" | |
209 | $ perl_man3ext="rno" | |
210 | $ perl_prefix="perl_root" | |
211 | $ perl_binexp="''perl_prefix':[000000]" | |
212 | $ perl_builddir="''perl_prefix':[000000]" | |
213 | $ perl_installbin="''perl_prefix':[000000]" | |
be46aa5a | 214 | $ perl_installscript="''perl_prefix':[utils]" |
97abc6ad HM |
215 | $ perl_installman1dir="''perl_prefix':[man.man1]" |
216 | $ perl_installman3dir="''perl_prefix':[man.man3]" | |
217 | $ perl_installprivlib="''perl_prefix':[lib]" | |
218 | $ perl_installsitelib="''perl_prefix':[lib.site_perl]" | |
219 | $ perl_path_sep="|" | |
220 | $ perl_cc=Mcc | |
221 | $ perl_d_sockpair="undef" | |
222 | $ perl_i_neterrno="define" | |
223 | $ perl_ldflags="/NoTrace/NoMap" | |
224 | $ perl_d_lchown="undef" | |
c05f8f3d | 225 | $ perl_d_mknod="undef" |
97abc6ad HM |
226 | $ perl_d_union_semun="undef" |
227 | $ perl_d_semctl_semun="undef" | |
228 | $ perl_d_semctl_semid_ds="undef" | |
464ff92e | 229 | $ IF (sharedperl .AND. F$GETSYI("HW_MODEL") .GE. 1024) |
97abc6ad HM |
230 | $ THEN |
231 | $ perl_obj_ext=".abj" | |
232 | $ perl_so="axe" | |
233 | $ perl_dlext="axe" | |
234 | $ perl_exe_ext=".axe" | |
235 | $ perl_lib_ext=".alb" | |
236 | $ ELSE | |
237 | $ perl_obj_ext=".obj" | |
238 | $ perl_so="exe" | |
239 | $ perl_dlext="exe" | |
240 | $ perl_exe_ext=".exe" | |
241 | $ perl_lib_ext=".olb" | |
242 | $ENDIF | |
243 | $ perl_dlobj="dl_vms''perl_obj_ext'" | |
244 | $ perl_osname="VMS" | |
245 | $ perl_d_archlib="define" | |
246 | $ perl_d_bincompat3="undef" | |
247 | $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input" | |
a12fb911 | 248 | $ perl_cppminus=" " |
ccc2aad8 GS |
249 | $ perl_cpprun="''Perl_CC'/noobj/preprocess=sys$output sys$input" |
250 | $ perl_cpplast=" " | |
251 | $ perl_aphostname="" | |
97abc6ad HM |
252 | $ perl_d_castneg="define" |
253 | $ perl_castflags="0" | |
254 | $ perl_d_chsize="undef" | |
255 | $ perl_d_const="define" | |
256 | $ perl_d_crypt="define" | |
257 | $ perl_byteorder="1234" | |
a12fb911 | 258 | $ perl_full_csh=" " |
97abc6ad HM |
259 | $ perl_d_csh="undef" |
260 | $ perl_d_dup2="define" | |
261 | $ perl_d_fchmod="undef" | |
262 | $ perl_d_fchown="undef" | |
263 | $ perl_d_fcntl="undef" | |
264 | $ perl_d_fgetpos="define" | |
265 | $ perl_d_flexfnam="define" | |
266 | $ perl_d_flock="undef" | |
267 | $ perl_d_fsetpos="define" | |
268 | $ perl_d_getgrps="undef" | |
269 | $ perl_d_setgrps="undef" | |
270 | $ perl_d_getprior="undef" | |
271 | $ perl_d_killpg="undef" | |
272 | $ perl_d_link="undef" | |
273 | $ perl_d_lstat="undef" | |
274 | $ perl_d_lockf="undef" | |
275 | $ perl_d_memcmp="define" | |
276 | $ perl_d_memcpy="define" | |
277 | $ perl_d_memmove="define" | |
278 | $ perl_d_memset="define" | |
279 | $ perl_d_mkdir="define" | |
280 | $ perl_d_msg="undef" | |
281 | $ perl_d_open3="define" | |
282 | $ perl_d_poll="undef" | |
283 | $ perl_d_readdir="define" | |
284 | $ perl_d_seekdir="define" | |
285 | $ perl_d_telldir="define" | |
286 | $ perl_d_rewinddir="define" | |
287 | $ perl_d_rename="define" | |
288 | $ perl_d_rmdir="define" | |
289 | $ perl_d_sem="undef" | |
290 | $ perl_d_setegid="undef" | |
291 | $ perl_d_seteuid="undef" | |
292 | $ perl_d_setprior="undef" | |
293 | $ perl_d_setregid="undef" | |
294 | $ perl_d_setresgid="undef" | |
295 | $ perl_d_setreuid="undef" | |
296 | $ perl_d_setresuid="undef" | |
297 | $ perl_d_setrgid="undef" | |
298 | $ perl_d_setruid="undef" | |
299 | $ perl_d_setsid="undef" | |
300 | $ perl_d_shm="undef" | |
301 | $ perl_d_shmatprototype="undef" | |
302 | $ perl_d_statblks="undef" | |
303 | $ perl_stdio_ptr="((*fp)->_ptr)" | |
304 | $ perl_stdio_cnt="((*fp)->_cnt)" | |
305 | $ perl_stdio_base="((*fp)->_base)" | |
306 | $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)" | |
307 | $ perl_d_strctcpy="define" | |
308 | $ perl_d_strerror="define" | |
309 | $ perl_d_syserrlst="undef" | |
310 | $ perl_d_strerrm="strerror((e),vaxc$errno)" | |
311 | $ perl_d_symlink="undef" | |
312 | $ perl_d_syscall="undef" | |
313 | $ perl_d_system="define" | |
314 | $ perl_timetype="time_t" | |
315 | $ perl_d_vfork="define" | |
316 | $ perl_signal_t="void" | |
317 | $ perl_d_volatile="define" | |
318 | $ perl_d_vprintf="define" | |
319 | $ perl_d_charvspr="undef" | |
320 | $ perl_d_waitpid="define" | |
321 | $ perl_i_dirent="undef" | |
322 | $ perl_d_dirnamlen="define" | |
323 | $ perl_direntrytype="struct dirent" | |
324 | $ perl_i_fcntl="undef" | |
325 | $ perl_i_grp="undef" | |
326 | $ perl_i_limits="define" | |
327 | $ perl_i_memory="undef" | |
328 | $ perl_i_ndbm="undef" | |
329 | $ perl_i_stdarg="define" | |
330 | $ perl_i_pwd="undef" | |
331 | $ perl_d_pwquota="undef" | |
332 | $ perl_d_pwage="undef" | |
333 | $ perl_d_pwchange="undef" | |
334 | $ perl_d_pwclass="undef" | |
335 | $ perl_d_pwexpire="undef" | |
336 | $ perl_d_pwcomment="define" | |
337 | $ perl_i_stddef="define" | |
338 | $ perl_i_stdlib="define" | |
339 | $ perl_i_string="define" | |
340 | $ perl_i_sysdir="undef" | |
341 | $ perl_i_sysfile="undef" | |
342 | $ perl_i_sysioctl="undef" | |
343 | $ perl_i_sysndir="undef" | |
344 | $ perl_i_sysresrc="undef" | |
345 | $ perl_i_sysselct="undef" | |
346 | $ perl_i_dbm="undef" | |
347 | $ perl_i_rpcsvcdbm="undef" | |
348 | $ perl_i_sfio="undef" | |
349 | $ perl_i_sysstat="define" | |
350 | $ perl_i_systimes="undef" | |
351 | $ perl_i_systypes="define" | |
352 | $ perl_i_sysun="undef" | |
353 | $ perl_i_syswait="undef" | |
354 | $ perl_i_termio="undef" | |
355 | $ perl_i_sgtty="undef" | |
356 | $ perl_i_termios="undef" | |
357 | $ perl_i_time="define" | |
358 | $ perl_i_systime="undef" | |
359 | $ perl_i_systimek="undef" | |
cb38e85f | 360 | $! perl_i_unistd="undef" |
97abc6ad HM |
361 | $ perl_i_utime="undef" |
362 | $ perl_i_varargs="undef" | |
363 | $ perl_i_vfork="undef" | |
364 | $ perl_prototype="define" | |
365 | $ perl_randbits="31" | |
366 | $ perl_stdchar="char" | |
367 | $ perl_d_unlink_all_versions="undef" | |
368 | $ perl_full_sed="_NLA0:" | |
369 | $ perl_bin="/''perl_prefix'/000000" | |
370 | $ perl_binexp="''perl_prefix':[000000]" | |
371 | $ perl_d_alarm="define" | |
372 | $ perl_d_casti32="define" | |
373 | $ perl_d_chown="define" | |
374 | $ perl_d_chroot="undef" | |
375 | $ perl_d_cuserid="define" | |
376 | $ perl_d_dbl_dig="define" | |
c1bd7dac | 377 | $ perl_d_ldbl_dig="define" |
97abc6ad HM |
378 | $ perl_d_difftime="define" |
379 | $ perl_d_fork="undef" | |
380 | $ perl_d_getlogin="define" | |
381 | $ perl_d_getppid="undef" | |
382 | $ perl_d_nice="define" | |
383 | $ perl_d_pause="define" | |
384 | $ perl_d_pipe="define" | |
385 | $ perl_d_readlink="undef" | |
386 | $ perl_d_setlinebuf="undef" | |
387 | $ perl_d_strchr="define" | |
388 | $ perl_d_strtod="define" | |
389 | $ perl_d_strtol="define" | |
390 | $ perl_d_strtoul="define" | |
391 | $ perl_d_tcgetpgrp="undef" | |
392 | $ perl_d_tcsetpgrp="undef" | |
393 | $ perl_d_times="define" | |
394 | $ perl_d_tzname="undef" | |
395 | $ perl_d_umask="define" | |
396 | $ perl_fpostype="fpos_t" | |
397 | $ perl_i_dlfcn="undef" | |
398 | $ perl_i_float="define" | |
399 | $ perl_i_math="define" | |
400 | $ perl_lseektype="int" | |
401 | $ perl_i_values="undef" | |
402 | $ perl_malloctype="void *" | |
403 | $ perl_freetype="void" | |
ee8c7f54 CB |
404 | $ perl_d_perl_otherlibdirs="undef" |
405 | $ perl_otherlibdirs="" | |
464ff92e | 406 | $ IF mymalloc |
97abc6ad HM |
407 | $ THEN |
408 | $ perl_d_mymalloc="define" | |
409 | $ ELSE | |
410 | $ perl_d_mymalloc="undef" | |
464ff92e | 411 | $ ENDIF |
97abc6ad HM |
412 | $ perl_sh="MCR" |
413 | $ perl_modetype="unsigned int" | |
414 | $ perl_ssizetype="int" | |
a12fb911 HM |
415 | $ perl_o_nonblock=" " |
416 | $ perl_eagain=" " | |
417 | $ perl_rd_nodata=" " | |
97abc6ad HM |
418 | $ perl_d_eofnblk="undef" |
419 | $ perl_d_oldarchlib="define" | |
420 | $ perl_privlibexp="''perl_prefix':[lib]" | |
421 | $ perl_privlib="''perl_prefix':[lib]" | |
422 | $ perl_sitelibexp="''perl_prefix':[lib.site_perl]" | |
423 | $ perl_sitelib="''perl_prefix':[lib.site_perl]" | |
ccc2aad8 | 424 | $ perl_sitelib_stem="''perl_prefix':[lib.site_perl]" |
97abc6ad HM |
425 | $ perl_sizetype="size_t" |
426 | $ perl_i_sysparam="undef" | |
427 | $ perl_d_void_closedir="define" | |
428 | $ perl_d_dlerror="undef" | |
429 | $ perl_d_dlsymun="undef" | |
430 | $ perl_d_suidsafe="undef" | |
431 | $ perl_d_dosuid="undef" | |
432 | $ perl_d_inetaton="undef" | |
433 | $ perl_d_isascii="define" | |
434 | $ perl_d_mkfifo="undef" | |
435 | $ perl_d_safebcpy="undef" | |
436 | $ perl_d_safemcpy="define" | |
437 | $ perl_d_sanemcmp="define" | |
438 | $ perl_d_setpgrp="undef" | |
439 | $ perl_d_bsdsetpgrp="undef" | |
440 | $ perl_d_bsdpgrp="undef" | |
441 | $ perl_d_setpgid="undef" | |
442 | $ perl_d_setpgrp2="undef" | |
443 | $ perl_d_Gconvert="my_gconvert(x,n,t,b)" | |
444 | $ perl_d_getpgid="undef" | |
445 | $ perl_d_getpgrp="undef" | |
446 | $ perl_d_bsdgetpgrp="undef" | |
447 | $ perl_d_getpgrp2="undef" | |
448 | $ perl_d_sfio="undef" | |
449 | $ perl_usedl="define" | |
b6e4eeb2 | 450 | $ perl_startperl="""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ + ++$status != 0 and $exit = $status = undef;""" |
a12fb911 HM |
451 | $ perl_db_hashtype=" " |
452 | $ perl_db_prefixtype=" " | |
97abc6ad HM |
453 | $ perl_useperlio="undef" |
454 | $ perl_defvoidused="15" | |
455 | $ perl_voidflags="15" | |
456 | $ perl_d_eunice="undef" | |
457 | $ perl_d_pwgecos="define" | |
464ff92e | 458 | $ IF ((Use_Threads) .AND. (VMS_VER .LES. "6.2")) |
97abc6ad HM |
459 | $ THEN |
460 | $ perl_libs="SYS$SHARE:CMA$LIB_SHR.EXE/SHARE SYS$SHARE:CMA$RTL.EXE/SHARE SYS$SHARE:CMA$OPEN_LIB_SHR.exe/SHARE SYS$SHARE:CMA$OPEN_RTL.exe/SHARE" | |
461 | $ ELSE | |
a12fb911 | 462 | $ perl_libs=" " |
97abc6ad | 463 | $ ENDIF |
464ff92e | 464 | $ IF Using_Dec_C |
97abc6ad | 465 | $ THEN |
464ff92e | 466 | $ perl_libc="(DECCRTL)" |
97abc6ad | 467 | $ ELSE |
464ff92e | 468 | $ perl_libc=" " |
97abc6ad | 469 | $ ENDIF |
97abc6ad HM |
470 | $ perl_pager="most" |
471 | $! | |
fafa4fee CB |
472 | $! Are we 64 bit? |
473 | $! | |
464ff92e | 474 | $ IF (use64bitint) |
fafa4fee CB |
475 | $ THEN |
476 | $ perl_d_PRIfldbl = "define" | |
477 | $ perl_d_PRIgldbl = "define" | |
478 | $ perl_d_PRId64 = "define" | |
479 | $ perl_d_PRIu64 = "define" | |
480 | $ perl_d_PRIo64 = "define" | |
481 | $ perl_d_PRIx64 = "define" | |
482 | $ perl_sPRIfldbl = """Lf""" | |
483 | $ perl_sPRIgldbl = """Lg""" | |
484 | $ perl_sPRId64 = """Ld""" | |
485 | $ perl_sPRIu64 = """Lu""" | |
486 | $ perl_sPRIo64 = """Lo""" | |
487 | $ perl_sPRIx64 = """Lx""" | |
1b8cd678 JH |
488 | $ perl_d_quad = "define" |
489 | $ perl_quadtype = "long long" | |
490 | $ perl_uquadtype = "unsigned long long" | |
ccc2aad8 | 491 | $ perl_quadkind = "QUAD_IS_LONG_LONG" |
ee8c7f54 CB |
492 | $ perl_d_frexpl = "define" |
493 | $ perl_d_isnanl = "define" | |
494 | $ perl_d_modfl = "define" | |
fafa4fee CB |
495 | $ ELSE |
496 | $ perl_d_PRIfldbl = "undef" | |
497 | $ perl_d_PRIgldbl = "undef" | |
498 | $ perl_d_PRId64 = "undef" | |
499 | $ perl_d_PRIu64 = "undef" | |
500 | $ perl_d_PRIo64 = "undef" | |
501 | $ perl_d_PRIx64 = "undef" | |
502 | $ perl_sPRIfldbl = "" | |
503 | $ perl_sPRIgldbl = "" | |
504 | $ perl_sPRId64 = "" | |
505 | $ perl_sPRIu64 = "" | |
506 | $ perl_sPRIo64 = "" | |
507 | $ perl_sPRIx64 = "" | |
1b8cd678 | 508 | $ perl_d_quad = "undef" |
ccc2aad8 GS |
509 | $ perl_quadtype = "long" |
510 | $ perl_uquadtype = "unsigned long" | |
511 | $ perl_quadkind = "QUAD_IS_LONG" | |
ee8c7f54 CB |
512 | $ perl_d_frexpl = "undef" |
513 | $ perl_d_isnanl = "undef" | |
514 | $ perl_d_modfl = "undef" | |
fafa4fee CB |
515 | $ ENDIF |
516 | $! | |
97abc6ad HM |
517 | $! Now some that we build up |
518 | $! | |
464ff92e | 519 | $ IF Use_Threads |
9ef4b0a6 | 520 | $ THEN |
498336ed CB |
521 | $ if use_5005_threads |
522 | $ THEN | |
464ff92e CB |
523 | $ arch = "''arch'-thread" |
524 | $ archname = "''archname'-thread" | |
498336ed CB |
525 | $ perl_d_old_pthread_create_joinable = "undef" |
526 | $ perl_old_pthread_create_joinable = " " | |
527 | $ perl_use5005threads = "define" | |
528 | $ perl_useithreads = "undef" | |
529 | $ ELSE | |
464ff92e CB |
530 | $ arch = "''arch'-ithread" |
531 | $ archname = "''archname'-ithread" | |
498336ed CB |
532 | $ perl_d_old_pthread_create_joinable = "undef" |
533 | $ perl_old_pthread_create_joinable = " " | |
534 | $ perl_use5005threads = "undef" | |
535 | $ perl_useithreads = "define" | |
536 | $ ENDIF | |
3937c24e | 537 | $ ELSE |
498336ed CB |
538 | $ perl_d_old_pthread_create_joinable = "undef" |
539 | $ perl_old_pthread_create_joinable = " " | |
540 | $ perl_use5005threads = "undef" | |
541 | $ perl_useithreads = "undef" | |
9ef4b0a6 | 542 | $ ENDIF |
97abc6ad HM |
543 | $! |
544 | $! Some that we need to invoke the compiler for | |
545 | $ OS := "open/write SOURCECHAN []temp.c" | |
546 | $ WS := "write SOURCECHAN" | |
547 | $ CS := "close SOURCECHAN" | |
548 | $ DS := "delete/nolog []temp.*;*" | |
464ff92e CB |
549 | $ Needs_Opt := N |
550 | $ IF using_gnu_c | |
97abc6ad HM |
551 | $ THEN |
552 | $ open/write OPTCHAN []temp.opt | |
9c5233f2 | 553 | $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library" |
97abc6ad HM |
554 | $ write OPTCHAN "Sys$Share:VAXCRTL/Share" |
555 | $ Close OPTCHAN | |
464ff92e | 556 | $ Needs_Opt := Y |
97abc6ad HM |
557 | $ ENDIF |
558 | $! | |
559 | $! Check for __STDC__ | |
560 | $! | |
561 | $ OS | |
562 | $ WS "#ifdef __DECC | |
563 | $ WS "#include <stdlib.h> | |
564 | $ WS "#endif | |
565 | $ WS "#include <stdio.h> | |
566 | $ WS "int main() | |
567 | $ WS "{" | |
568 | $ WS "#ifdef __STDC__ | |
569 | $ WS "printf(""42\n""); | |
570 | $ WS "#else | |
571 | $ WS "printf(""1\n""); | |
572 | $ WS "#endif | |
573 | $ WS "exit(0); | |
574 | $ WS "}" | |
575 | $ CS | |
576 | $ DEFINE SYS$ERROR _NLA0: | |
577 | $ DEFINE SYS$OUTPUT _NLA0: | |
578 | $ ON ERROR THEN CONTINUE | |
579 | $ ON WARNING THEN CONTINUE | |
9ef4b0a6 | 580 | $ 'Checkcc' temp.c |
464ff92e | 581 | $ If Needs_Opt |
97abc6ad | 582 | $ THEN |
9ef4b0a6 | 583 | $ link temp.obj,temp.opt/opt |
97abc6ad | 584 | $ else |
9ef4b0a6 | 585 | $ link temp.obj |
97abc6ad HM |
586 | $ endif |
587 | $ DEASSIGN SYS$OUTPUT | |
588 | $ DEASSIGN SYS$ERROR | |
589 | $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis | |
590 | $ DEFINE SYS$ERROR TEMPOUT | |
591 | $ DEFINE SYS$OUTPUT TEMPOUT | |
592 | $ mcr []temp | |
593 | $ CLOSE TEMPOUT | |
594 | $ DEASSIGN SYS$OUTPUT | |
595 | $ DEASSIGN SYS$ERROR | |
596 | $ OPEN/READ TEMPOUT [-.uu]tempout.lis | |
597 | $ READ TEMPOUT line | |
598 | $ CLOSE TEMPOUT | |
a52cb5f7 | 599 | $ DELETE/NOLOG [-.uu]tempout.lis; |
97abc6ad HM |
600 | $ perl_cpp_stuff=line |
601 | $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'" | |
602 | $! | |
603 | $! Check for double size | |
604 | $! | |
605 | $ OS | |
606 | $ WS "#ifdef __DECC | |
607 | $ WS "#include <stdlib.h> | |
608 | $ WS "#endif | |
609 | $ WS "#include <stdio.h> | |
610 | $ WS "int main() | |
611 | $ WS "{" | |
429a5e67 DS |
612 | $ WS "int foo; |
613 | $ WS "foo = sizeof(double); | |
614 | $ WS "printf(""%d\n"", foo); | |
97abc6ad HM |
615 | $ WS "exit(0); |
616 | $ WS "}" | |
617 | $ CS | |
618 | $ DEFINE SYS$ERROR _NLA0: | |
619 | $ DEFINE SYS$OUTPUT _NLA0: | |
620 | $ ON ERROR THEN CONTINUE | |
621 | $ ON WARNING THEN CONTINUE | |
9ef4b0a6 | 622 | $ 'Checkcc' temp.c |
464ff92e | 623 | $ If Needs_Opt |
97abc6ad | 624 | $ THEN |
9ef4b0a6 | 625 | $ link temp.obj,temp.opt/opt |
97abc6ad | 626 | $ else |
9ef4b0a6 | 627 | $ link temp.obj |
97abc6ad | 628 | $ endif |
97abc6ad HM |
629 | $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis |
630 | $ DEASSIGN SYS$OUTPUT | |
631 | $ DEASSIGN SYS$ERROR | |
632 | $ DEFINE SYS$ERROR TEMPOUT | |
633 | $ DEFINE SYS$OUTPUT TEMPOUT | |
634 | $ mcr []temp | |
635 | $ CLOSE TEMPOUT | |
636 | $ DEASSIGN SYS$OUTPUT | |
637 | $ DEASSIGN SYS$ERROR | |
638 | $ OPEN/READ TEMPOUT [-.uu]tempout.lis | |
639 | $ READ TEMPOUT line | |
640 | $ CLOSE TEMPOUT | |
a52cb5f7 | 641 | $ DELETE/NOLOG [-.uu]tempout.lis; |
97abc6ad HM |
642 | $ |
643 | $ perl_doublesize=line | |
644 | $ WRITE_RESULT "doublesize is ''perl_doublesize'" | |
645 | $! | |
646 | $! Check for long double size | |
647 | $! | |
648 | $ OS | |
649 | $ WS "#ifdef __DECC | |
650 | $ WS "#include <stdlib.h> | |
651 | $ WS "#endif | |
652 | $ WS "#include <stdio.h> | |
653 | $ WS "int main() | |
654 | $ WS "{" | |
429a5e67 | 655 | $ WS "printf(""%d\n"", sizeof(long double)); |
97abc6ad HM |
656 | $ WS "exit(0); |
657 | $ WS "}" | |
658 | $ CS | |
659 | $ DEFINE SYS$ERROR _NLA0: | |
660 | $ DEFINE SYS$OUTPUT _NLA0: | |
661 | $ ON ERROR THEN CONTINUE | |
662 | $ ON WARNING THEN CONTINUE | |
9ef4b0a6 | 663 | $ 'Checkcc' temp.c |
97abc6ad HM |
664 | $ teststatus = f$extract(9,1,$status) |
665 | $ if (teststatus.nes."1") | |
666 | $ THEN | |
667 | $ perl_longdblsize="0" | |
668 | $ perl_d_longdbl="undef" | |
669 | $ ELSE | |
670 | $ ON ERROR THEN CONTINUE | |
671 | $ ON WARNING THEN CONTINUE | |
464ff92e | 672 | $ IF Needs_Opt |
97abc6ad | 673 | $ THEN |
464ff92e CB |
674 | $ link temp.obj,temp.opt/opt |
675 | $ ELSE | |
9ef4b0a6 | 676 | $ link temp.obj |
464ff92e | 677 | $ ENDIF |
97abc6ad HM |
678 | $ teststatus = f$extract(9,1,$status) |
679 | $ DEASSIGN SYS$OUTPUT | |
680 | $ DEASSIGN SYS$ERROR | |
464ff92e | 681 | $ IF (teststatus.nes."1") |
97abc6ad HM |
682 | $ THEN |
683 | $ perl_longdblsize="0" | |
684 | $ perl_d_longdbl="undef" | |
685 | $ ELSE | |
686 | $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis | |
687 | $ DEFINE SYS$ERROR TEMPOUT | |
688 | $ DEFINE SYS$OUTPUT TEMPOUT | |
689 | $ mcr []temp | |
690 | $ CLOSE TEMPOUT | |
691 | $ DEASSIGN SYS$OUTPUT | |
692 | $ DEASSIGN SYS$ERROR | |
693 | $ OPEN/READ TEMPOUT [-.uu]tempout.lis | |
694 | $ READ TEMPOUT line | |
695 | $ CLOSE TEMPOUT | |
a52cb5f7 | 696 | $ DELETE/NOLOG [-.uu]tempout.lis; |
97abc6ad HM |
697 | $ perl_longdblsize=line |
698 | $ perl_d_longdbl="define" | |
699 | $ ENDIF | |
700 | $ ENDIF | |
701 | $ WRITE_RESULT "longdblsize is ''perl_longdblsize'" | |
702 | $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'" | |
703 | $! | |
704 | $! Check for long long existance and size | |
705 | $! | |
706 | $ OS | |
707 | $ WS "#ifdef __DECC | |
708 | $ WS "#include <stdlib.h> | |
709 | $ WS "#endif | |
710 | $ WS "#include <stdio.h> | |
711 | $ WS "int main() | |
712 | $ WS "{" | |
429a5e67 | 713 | $ WS "printf(""%d\n"", sizeof(long long)); |
97abc6ad HM |
714 | $ WS "exit(0); |
715 | $ WS "}" | |
716 | $ CS | |
717 | $ DEFINE SYS$ERROR _NLA0: | |
718 | $ DEFINE SYS$OUTPUT _NLA0: | |
719 | $ on error then continue | |
720 | $ on warning then continue | |
9ef4b0a6 | 721 | $ 'Checkcc' temp.c |
464ff92e | 722 | $ IF Needs_Opt |
97abc6ad | 723 | $ THEN |
9ef4b0a6 | 724 | $ link temp.obj,temp.opt/opt |
464ff92e | 725 | $ ELSE |
9ef4b0a6 | 726 | $ link temp.obj |
464ff92e | 727 | $ ENDIF |
97abc6ad HM |
728 | $ teststatus = f$extract(9,1,$status) |
729 | $ DEASSIGN SYS$OUTPUT | |
730 | $ DEASSIGN SYS$ERROR | |
731 | $ if (teststatus.nes."1") | |
732 | $ THEN | |
733 | $ perl_longlongsize="0" | |
734 | $ perl_d_longlong="undef" | |
735 | $ ELSE | |
736 | $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis | |
737 | $ DEFINE SYS$ERROR TEMPOUT | |
738 | $ DEFINE SYS$OUTPUT TEMPOUT | |
739 | $ mcr []temp | |
740 | $ CLOSE TEMPOUT | |
741 | $ DEASSIGN SYS$OUTPUT | |
742 | $ DEASSIGN SYS$ERROR | |
743 | $ OPEN/READ TEMPOUT [-.uu]tempout.lis | |
744 | $ READ TEMPOUT line | |
745 | $ CLOSE TEMPOUT | |
a52cb5f7 | 746 | $ DELETE/NOLOG [-.uu]tempout.lis; |
97abc6ad HM |
747 | $ perl_longlongsize=line |
748 | $ perl_d_longlong="define" | |
749 | $ ENDIF | |
750 | $ WRITE_RESULT "longlongsize is ''perl_longlongsize'" | |
751 | $ WRITE_RESULT "d_longlong is ''perl_d_longlong'" | |
752 | $! | |
97abc6ad HM |
753 | $! Check the prototype for getgid |
754 | $! | |
755 | $ OS | |
756 | $ WS "#ifdef __DECC | |
757 | $ WS "#include <stdlib.h> | |
758 | $ WS "#endif | |
759 | $ WS "#include <stdio.h> | |
760 | $ WS "#include <types.h> | |
761 | $ WS "#include <unistd.h> | |
762 | $ WS "int main() | |
763 | $ WS "{" | |
764 | $ WS "gid_t foo; | |
765 | $ WS "exit(0); | |
766 | $ WS "}" | |
767 | $ CS | |
768 | $ DEFINE SYS$ERROR _NLA0: | |
769 | $ DEFINE SYS$OUTPUT _NLA0: | |
770 | $ on error then continue | |
771 | $ on warning then continue | |
9ef4b0a6 | 772 | $ 'Checkcc' temp.c |
97abc6ad HM |
773 | $ teststatus = f$extract(9,1,$status) |
774 | $ DEASSIGN SYS$OUTPUT | |
775 | $ DEASSIGN SYS$ERROR | |
776 | $ if (teststatus.nes."1") | |
777 | $ THEN | |
778 | $! Okay, gid_t failed. Must be unsigned int | |
779 | $ perl_gidtype = "unsigned int" | |
780 | $ ELSE | |
781 | $ perl_gidtype = "gid_t" | |
782 | $ ENDIF | |
783 | $ WRITE_RESULT "Gid_t is ''perl_gidtype'" | |
784 | $! | |
cb38e85f | 785 | $! Check to see if we've got dev_t |
c05f8f3d HM |
786 | $! |
787 | $ OS | |
788 | $ WS "#ifdef __DECC | |
789 | $ WS "#include <stdlib.h> | |
790 | $ WS "#endif | |
791 | $ WS "#include <stdio.h> | |
792 | $ WS "#include <types.h> | |
793 | $ WS "#include <unistd.h> | |
794 | $ WS "int main() | |
795 | $ WS "{" | |
796 | $ WS "dev_t foo; | |
797 | $ WS "exit(0); | |
798 | $ WS "}" | |
799 | $ CS | |
800 | $ DEFINE SYS$ERROR _NLA0: | |
801 | $ DEFINE SYS$OUTPUT _NLA0: | |
802 | $ on error then continue | |
803 | $ on warning then continue | |
9ef4b0a6 | 804 | $ 'Checkcc' temp.c |
c05f8f3d HM |
805 | $ teststatus = f$extract(9,1,$status) |
806 | $ DEASSIGN SYS$OUTPUT | |
807 | $ DEASSIGN SYS$ERROR | |
808 | $ if (teststatus.nes."1") | |
809 | $ THEN | |
810 | $! Okay, dev_t failed. Must be unsigned int | |
811 | $ perl_devtype = "unsigned int" | |
812 | $ ELSE | |
813 | $ perl_devtype = "dev_t" | |
814 | $ ENDIF | |
815 | $ WRITE_RESULT "Dev_t is ''perl_devtype'" | |
816 | $! | |
cb38e85f HM |
817 | $! Check to see if we've got unistd.h (which we ought to, but you never know) |
818 | $! | |
819 | $ OS | |
820 | $ WS "#ifdef __DECC | |
821 | $ WS "#include <stdlib.h> | |
822 | $ WS "#endif | |
823 | $ WS "#include <unistd.h> | |
824 | $ WS "int main() | |
825 | $ WS "{" | |
826 | $ WS "exit(0); | |
827 | $ WS "}" | |
828 | $ CS | |
829 | $ DEFINE SYS$ERROR _NLA0: | |
830 | $ DEFINE SYS$OUTPUT _NLA0: | |
831 | $ on error then continue | |
832 | $ on warning then continue | |
9ef4b0a6 | 833 | $ 'Checkcc' temp.c |
cb38e85f HM |
834 | $ teststatus = f$extract(9,1,$status) |
835 | $ DEASSIGN SYS$OUTPUT | |
836 | $ DEASSIGN SYS$ERROR | |
837 | $ if (teststatus.nes."1") | |
838 | $ THEN | |
839 | $! Okay, failed. Must not have it | |
840 | $ perl_i_unistd = "undef" | |
841 | $ ELSE | |
842 | $ perl_i_unistd = "define" | |
cb38e85f HM |
843 | $ ENDIF |
844 | $ WRITE_RESULT "i_unistd is ''perl_i_unistd'" | |
845 | $! | |
fafa4fee CB |
846 | $! Check to see if we've got shadow.h (probably not, but...) |
847 | $! | |
848 | $ OS | |
849 | $ WS "#ifdef __DECC | |
850 | $ WS "#include <stdlib.h> | |
851 | $ WS "#endif | |
852 | $ WS "#include <shadow.h> | |
853 | $ WS "int main() | |
854 | $ WS "{" | |
855 | $ WS "exit(0); | |
856 | $ WS "}" | |
857 | $ CS | |
858 | $ DEFINE SYS$ERROR _NLA0: | |
859 | $ DEFINE SYS$OUTPUT _NLA0: | |
860 | $ on error then continue | |
861 | $ on warning then continue | |
862 | $ 'Checkcc' temp.c | |
863 | $ teststatus = f$extract(9,1,$status) | |
864 | $ DEASSIGN SYS$OUTPUT | |
865 | $ DEASSIGN SYS$ERROR | |
866 | $ if (teststatus.nes."1") | |
867 | $ THEN | |
868 | $! Okay, failed. Must not have it | |
869 | $ perl_i_shadow = "undef" | |
870 | $ ELSE | |
871 | $ perl_i_shadow = "define" | |
fafa4fee CB |
872 | $ ENDIF |
873 | $ WRITE_RESULT "i_shadow is ''perl_i_shadow'" | |
874 | $! | |
875 | $! Check to see if we've got socks.h (probably not, but...) | |
876 | $! | |
877 | $ OS | |
878 | $ WS "#ifdef __DECC | |
879 | $ WS "#include <stdlib.h> | |
880 | $ WS "#endif | |
881 | $ WS "#include <socks.h> | |
882 | $ WS "int main() | |
883 | $ WS "{" | |
884 | $ WS "exit(0); | |
885 | $ WS "}" | |
886 | $ CS | |
887 | $ DEFINE SYS$ERROR _NLA0: | |
888 | $ DEFINE SYS$OUTPUT _NLA0: | |
889 | $ on error then continue | |
890 | $ on warning then continue | |
891 | $ 'Checkcc' temp.c | |
892 | $ teststatus = f$extract(9,1,$status) | |
893 | $ DEASSIGN SYS$OUTPUT | |
894 | $ DEASSIGN SYS$ERROR | |
895 | $ if (teststatus.nes."1") | |
896 | $ THEN | |
897 | $! Okay, failed. Must not have it | |
898 | $ perl_i_socks = "undef" | |
899 | $ ELSE | |
900 | $ perl_i_socks = "define" | |
fafa4fee CB |
901 | $ ENDIF |
902 | $ WRITE_RESULT "i_socks is ''perl_i_socks'" | |
903 | $! | |
97abc6ad HM |
904 | $! Check the prototype for select |
905 | $! | |
464ff92e | 906 | $ IF Has_Dec_C_Sockets .OR. Has_Socketshr |
97abc6ad HM |
907 | $ THEN |
908 | $ OS | |
909 | $ WS "#ifdef __DECC | |
910 | $ WS "#include <stdlib.h> | |
911 | $ WS "#endif | |
912 | $ WS "#include <stdio.h> | |
913 | $ WS "#include <types.h> | |
914 | $ WS "#include <unistd.h> | |
464ff92e | 915 | $ IF Has_Socketshr |
97abc6ad | 916 | $ THEN |
464ff92e CB |
917 | $ WS "#include <socketshr.h>" |
918 | $ ELSE | |
919 | $ WS "#include <time.h> | |
920 | $ WS "#include <socket.h> | |
921 | $ ENDIF | |
97abc6ad HM |
922 | $ WS "int main() |
923 | $ WS "{" | |
924 | $ WS "fd_set *foo; | |
925 | $ WS "int bar; | |
926 | $ WS "foo = NULL; | |
927 | $ WS "bar = select(2, foo, foo, foo, NULL); | |
928 | $ WS "exit(0); | |
929 | $ WS "}" | |
930 | $ CS | |
931 | $ DEFINE SYS$ERROR _NLA0: | |
932 | $ DEFINE SYS$OUTPUT _NLA0: | |
933 | $ on error then continue | |
934 | $ on warning then continue | |
9ef4b0a6 | 935 | $ 'Checkcc' temp.c |
97abc6ad HM |
936 | $ teststatus = f$extract(9,1,$status) |
937 | $ DEASSIGN SYS$OUTPUT | |
938 | $ DEASSIGN SYS$ERROR | |
939 | $ if (teststatus.nes."1") | |
940 | $ THEN | |
941 | $! Okay, fd_set failed. Must be an int | |
942 | $ perl_selecttype = "int *" | |
943 | $ ELSE | |
944 | $ perl_selecttype="fd_set *" | |
945 | $ ENDIF | |
946 | $ ELSE | |
947 | $ ! No sockets, so stick in an int * | |
948 | $ perl_selecttype = "int *" | |
949 | $ ENDIF | |
950 | $ WRITE_RESULT "selectype is ''perl_selecttype'" | |
951 | $! | |
3937c24e HM |
952 | $! Check to see if fd_set exists |
953 | $! | |
954 | $ OS | |
955 | $ WS "#ifdef __DECC | |
956 | $ WS "#include <stdlib.h> | |
957 | $ WS "#endif | |
958 | $ WS "#include <stdio.h> | |
959 | $ WS "#include <types.h> | |
960 | $ WS "#include <unistd.h> | |
464ff92e | 961 | $ IF Has_Socketshr |
3937c24e | 962 | $ THEN |
464ff92e | 963 | $ WS "#include <socketshr.h>" |
3937c24e | 964 | $ ENDIF |
464ff92e | 965 | $ IF Has_Dec_C_Sockets |
3937c24e | 966 | $ THEN |
464ff92e CB |
967 | $ WS "#include <time.h> |
968 | $ WS "#include <socket.h> | |
969 | $ ENDIF | |
3937c24e HM |
970 | $ WS "int main() |
971 | $ WS "{" | |
972 | $ WS "fd_set *foo; | |
973 | $ WS "int bar; | |
974 | $ WS "exit(0); | |
975 | $ WS "}" | |
976 | $ CS | |
977 | $ DEFINE SYS$ERROR _NLA0: | |
978 | $ DEFINE SYS$OUTPUT _NLA0: | |
979 | $ on error then continue | |
980 | $ on warning then continue | |
981 | $ 'Checkcc' temp.c | |
982 | $ teststatus = f$extract(9,1,$status) | |
983 | $ DEASSIGN SYS$OUTPUT | |
984 | $ DEASSIGN SYS$ERROR | |
985 | $ if (teststatus.nes."1") | |
986 | $ THEN | |
987 | $! Okay, fd_set failed. Must not exist | |
988 | $ perl_d_fd_set = "undef" | |
989 | $ ELSE | |
990 | $ perl_d_fd_set="define" | |
991 | $ ENDIF | |
992 | $ WRITE_RESULT "d_fd_set is ''perl_d_fd_set'" | |
993 | $! | |
994 | $! Check for inttypes.h | |
995 | $! | |
996 | $ OS | |
997 | $ WS "#ifdef __DECC | |
998 | $ WS "#include <stdlib.h> | |
999 | $ WS "#endif | |
1000 | $ WS "#include <stdio.h> | |
1001 | $ WS "#include <unistd.h> | |
1002 | $ WS "#include <inttypes.h> | |
1003 | $ WS "int main() | |
1004 | $ WS "{" | |
1005 | $ WS "exit(0); | |
1006 | $ WS "}" | |
1007 | $ CS | |
1008 | $ DEFINE SYS$ERROR _NLA0: | |
1009 | $ DEFINE SYS$OUTPUT _NLA0: | |
1010 | $ on error then continue | |
1011 | $ on warning then continue | |
1012 | $ 'Checkcc' temp.c | |
1013 | $ savedstatus = $status | |
1014 | $ teststatus = f$extract(9,1,savedstatus) | |
1015 | $ if (teststatus.nes."1") | |
1016 | $ THEN | |
1017 | $ perl_i_inttypes="undef" | |
1018 | $ DEASSIGN SYS$OUTPUT | |
1019 | $ DEASSIGN SYS$ERROR | |
1020 | $ ELSE | |
464ff92e | 1021 | $ IF Needs_Opt |
3937c24e HM |
1022 | $ THEN |
1023 | $ link temp.obj,temp.opt/opt | |
464ff92e | 1024 | $ ELSE |
3937c24e | 1025 | $ link temp.obj |
464ff92e | 1026 | $ ENDIF |
3937c24e HM |
1027 | $ savedstatus = $status |
1028 | $ teststatus = f$extract(9,1,savedstatus) | |
1029 | $ DEASSIGN SYS$OUTPUT | |
1030 | $ DEASSIGN SYS$ERROR | |
1031 | $ if (teststatus.nes."1") | |
1032 | $ THEN | |
1033 | $ perl_i_inttypes="undef" | |
1034 | $ ELSE | |
1035 | $ perl_i_inttypes="define" | |
1036 | $ ENDIF | |
1037 | $ ENDIF | |
1038 | $ WRITE_RESULT "i_inttypes is ''perl_i_inttypes'" | |
1039 | $! | |
c645ec3f GS |
1040 | $! Check for h_errno |
1041 | $! | |
1042 | $ OS | |
1043 | $ WS "#ifdef __DECC | |
1044 | $ WS "#include <stdlib.h> | |
1045 | $ WS "#endif | |
1046 | $ WS "#include <stdio.h> | |
1047 | $ WS "#include <unistd.h> | |
1048 | $ WS "#include <netdb.h> | |
1049 | $ WS "int main() | |
1050 | $ WS "{" | |
1051 | $ WS "h_errno = 3; | |
1052 | $ WS "exit(0); | |
1053 | $ WS "}" | |
1054 | $ CS | |
1055 | $ DEFINE SYS$ERROR _NLA0: | |
1056 | $ DEFINE SYS$OUTPUT _NLA0: | |
1057 | $ on error then continue | |
1058 | $ on warning then continue | |
1059 | $ 'Checkcc' temp.c | |
1060 | $ savedstatus = $status | |
1061 | $ teststatus = f$extract(9,1,savedstatus) | |
1062 | $ if (teststatus.nes."1") | |
1063 | $ THEN | |
1064 | $ perl_d_herrno="undef" | |
1065 | $ DEASSIGN SYS$OUTPUT | |
1066 | $ DEASSIGN SYS$ERROR | |
1067 | $ ELSE | |
464ff92e | 1068 | $ IF Needs_Opt |
c645ec3f GS |
1069 | $ THEN |
1070 | $ link temp.obj,temp.opt/opt | |
464ff92e | 1071 | $ ELSE |
c645ec3f | 1072 | $ link temp.obj |
464ff92e | 1073 | $ ENDIF |
c645ec3f GS |
1074 | $ savedstatus = $status |
1075 | $ teststatus = f$extract(9,1,savedstatus) | |
1076 | $ DEASSIGN SYS$OUTPUT | |
1077 | $ DEASSIGN SYS$ERROR | |
1078 | $ if (teststatus.nes."1") | |
1079 | $ THEN | |
1080 | $ perl_d_herrno="undef" | |
1081 | $ ELSE | |
1082 | $ perl_d_herrno="define" | |
1083 | $ ENDIF | |
1084 | $ ENDIF | |
1085 | $ WRITE_RESULT "d_herrno is ''perl_d_herrno'" | |
1086 | $! | |
3937c24e HM |
1087 | $! Check to see if int64_t exists |
1088 | $! | |
1089 | $ OS | |
1090 | $ WS "#ifdef __DECC | |
1091 | $ WS "#include <stdlib.h> | |
1092 | $ WS "#endif | |
1093 | $ WS "#include <stdio.h> | |
1094 | $ WS "#include <types.h> | |
1095 | $ WS "#''perl_i_inttypes IIH | |
1096 | $ WS "#ifdef IIH | |
1097 | $ WS "#include <inttypes.h> | |
1098 | $ WS "#endif | |
1099 | $ WS "#include <unistd.h> | |
1100 | $ WS "int main() | |
1101 | $ WS "{" | |
1102 | $ WS "int64_t bar; | |
1103 | $ WS "exit(0); | |
1104 | $ WS "}" | |
1105 | $ CS | |
1106 | $ DEFINE SYS$ERROR _NLA0: | |
1107 | $ DEFINE SYS$OUTPUT _NLA0: | |
1108 | $ on error then continue | |
1109 | $ on warning then continue | |
1110 | $ 'Checkcc' temp.c | |
1111 | $ teststatus = f$extract(9,1,$status) | |
1112 | $ DEASSIGN SYS$OUTPUT | |
1113 | $ DEASSIGN SYS$ERROR | |
1114 | $ if (teststatus.nes."1") | |
1115 | $ THEN | |
1116 | $! Okay, int64_t failed. Must not exist | |
27d4bd77 | 1117 | $ perl_d_int64_t = "undef" |
3937c24e | 1118 | $ ELSE |
27d4bd77 | 1119 | $ perl_d_int64_t="define" |
3937c24e | 1120 | $ ENDIF |
27d4bd77 | 1121 | $ WRITE_RESULT "d_int64_t is ''perl_d_int64_t'" |
3937c24e HM |
1122 | $! |
1123 | $! Check to see if off64_t exists | |
1124 | $! | |
1125 | $ OS | |
1126 | $ WS "#ifdef __DECC | |
1127 | $ WS "#include <stdlib.h> | |
1128 | $ WS "#endif | |
1129 | $ WS "#include <stdio.h> | |
1130 | $ WS "#include <types.h> | |
1131 | $ WS "#''perl_i_inttypes IIH | |
1132 | $ WS "#ifdef IIH | |
1133 | $ WS "#include <inttypes.h> | |
1134 | $ WS "#endif | |
1135 | $ WS "#include <unistd.h> | |
1136 | $ WS "int main() | |
1137 | $ WS "{" | |
1138 | $ WS "off64_t bar; | |
1139 | $ WS "exit(0); | |
1140 | $ WS "}" | |
1141 | $ CS | |
1142 | $ DEFINE SYS$ERROR _NLA0: | |
1143 | $ DEFINE SYS$OUTPUT _NLA0: | |
1144 | $ on error then continue | |
1145 | $ on warning then continue | |
1146 | $ 'Checkcc' temp.c | |
1147 | $ teststatus = f$extract(9,1,$status) | |
1148 | $ DEASSIGN SYS$OUTPUT | |
1149 | $ DEASSIGN SYS$ERROR | |
1150 | $ if (teststatus.nes."1") | |
1151 | $ THEN | |
1152 | $! Okay, off64_t failed. Must not exist | |
cc077a9f | 1153 | $ perl_d_off64_t = "undef" |
3937c24e | 1154 | $ ELSE |
cc077a9f | 1155 | $ perl_d_off64_t="define" |
3937c24e | 1156 | $ ENDIF |
cc077a9f | 1157 | $ WRITE_RESULT "d_off64_t is ''perl_d_off64_t'" |
3937c24e | 1158 | $! |
c1bd7dac JH |
1159 | $! Check to see if fpos64_t exists |
1160 | $! | |
1161 | $ OS | |
1162 | $ WS "#ifdef __DECC | |
1163 | $ WS "#include <stdlib.h> | |
1164 | $ WS "#endif | |
1165 | $ WS "#include <stdio.h> | |
1166 | $ WS "#include <types.h> | |
1167 | $ WS "#''perl_i_inttypes IIH | |
1168 | $ WS "#ifdef IIH | |
1169 | $ WS "#include <inttypes.h> | |
1170 | $ WS "#endif | |
1171 | $ WS "#include <unistd.h> | |
1172 | $ WS "int main() | |
1173 | $ WS "{" | |
1174 | $ WS "fpos64_t bar; | |
1175 | $ WS "exit(0); | |
1176 | $ WS "}" | |
1177 | $ CS | |
1178 | $ DEFINE SYS$ERROR _NLA0: | |
1179 | $ DEFINE SYS$OUTPUT _NLA0: | |
1180 | $ on error then continue | |
1181 | $ on warning then continue | |
1182 | $ 'Checkcc' temp.c | |
1183 | $ teststatus = f$extract(9,1,$status) | |
1184 | $ DEASSIGN SYS$OUTPUT | |
1185 | $ DEASSIGN SYS$ERROR | |
1186 | $ if (teststatus.nes."1") | |
1187 | $ THEN | |
1188 | $! Okay, fpos64_t failed. Must not exist | |
1189 | $ perl_d_fpos64_t = "undef" | |
1190 | $ ELSE | |
1191 | $ perl_d_fpos64_t="define" | |
1192 | $ ENDIF | |
1193 | $ WRITE_RESULT "d_fpos64_t is ''perl_d_fpos64_t'" | |
1194 | $! | |
3937c24e HM |
1195 | $! Check to see if gethostname exists |
1196 | $! | |
464ff92e | 1197 | $ IF (Has_Dec_C_Sockets .OR. Has_Socketshr) |
3937c24e HM |
1198 | $ THEN |
1199 | $ OS | |
1200 | $ WS "#ifdef __DECC | |
1201 | $ WS "#include <stdlib.h> | |
1202 | $ WS "#endif | |
1203 | $ WS "#include <stdio.h> | |
1204 | $ WS "#include <types.h> | |
1205 | $ WS "#include <unistd.h> | |
464ff92e | 1206 | $ IF Has_Socketshr |
3937c24e | 1207 | $ THEN |
464ff92e CB |
1208 | $ WS "#include <socketshr.h>" |
1209 | $ ELSE | |
1210 | $ WS "#include <time.h> | |
1211 | $ WS "#include <socket.h> | |
1212 | $ ENDIF | |
3937c24e HM |
1213 | $ WS "int main() |
1214 | $ WS "{" | |
1215 | $ WS "char name[100]; | |
1216 | $ WS "int bar, baz; | |
1217 | $ WS "bar = 100; | |
1218 | $ WS "baz = gethostname(name, bar); | |
1219 | $ WS "exit(0); | |
1220 | $ WS "}" | |
1221 | $ CS | |
1222 | $ DEFINE SYS$ERROR _NLA0: | |
1223 | $ DEFINE SYS$OUTPUT _NLA0: | |
1224 | $ on error then continue | |
1225 | $ on warning then continue | |
1226 | $ 'Checkcc' temp.c | |
1227 | $ teststatus = f$extract(9,1,$status) | |
1228 | $ DEASSIGN SYS$OUTPUT | |
1229 | $ DEASSIGN SYS$ERROR | |
1230 | $ if (teststatus.nes."1") | |
1231 | $ THEN | |
1232 | $! Okay, compile failed. Must not have it | |
9c5233f2 | 1233 | $ perl_d_gethname = "undef" |
3937c24e | 1234 | $ ELSE |
464ff92e | 1235 | $ IF Needs_Opt |
3937c24e HM |
1236 | $ THEN |
1237 | $ link temp.obj,temp.opt/opt | |
464ff92e | 1238 | $ ELSE |
3937c24e | 1239 | $ link temp.obj |
464ff92e | 1240 | $ ENDIF |
3937c24e HM |
1241 | $ savedstatus = $status |
1242 | $ teststatus = f$extract(9,1,savedstatus) | |
1243 | $ if (teststatus.nes."1") | |
1244 | $ THEN | |
1245 | $ perl_d_gethname="undef" | |
1246 | $ ELSE | |
1247 | $ perl_d_gethname="define" | |
1248 | $ ENDIF | |
1249 | $ ENDIF | |
1250 | $ ELSE | |
1251 | $ ! No sockets, so no gethname | |
1252 | $ perl_d_gethname = "undef" | |
1253 | $ ENDIF | |
1254 | $ WRITE_RESULT "d_gethname is ''perl_d_gethname'" | |
1255 | $! | |
e6df7ed1 GS |
1256 | $! Check for sys/file.h |
1257 | $! | |
1258 | $ OS | |
1259 | $ WS "#ifdef __DECC | |
1260 | $ WS "#include <stdlib.h> | |
1261 | $ WS "#endif | |
1262 | $ WS "#include <stdio.h> | |
1263 | $ WS "#include <unistd.h> | |
1264 | $ WS "#include <sys/file.h> | |
1265 | $ WS "int main() | |
1266 | $ WS "{" | |
1267 | $ WS "exit(0); | |
1268 | $ WS "}" | |
1269 | $ CS | |
1270 | $ DEFINE SYS$ERROR _NLA0: | |
1271 | $ DEFINE SYS$OUTPUT _NLA0: | |
1272 | $ on error then continue | |
1273 | $ on warning then continue | |
1274 | $ 'Checkcc' temp.c | |
1275 | $ savedstatus = $status | |
1276 | $ teststatus = f$extract(9,1,savedstatus) | |
1277 | $ if (teststatus.nes."1") | |
1278 | $ THEN | |
1279 | $ perl_i_sysfile="undef" | |
1280 | $ DEASSIGN SYS$OUTPUT | |
1281 | $ DEASSIGN SYS$ERROR | |
1282 | $ ELSE | |
464ff92e | 1283 | $ IF Needs_Opt |
e6df7ed1 GS |
1284 | $ THEN |
1285 | $ link temp.obj,temp.opt/opt | |
464ff92e | 1286 | $ ELSE |
e6df7ed1 | 1287 | $ link temp.obj |
464ff92e | 1288 | $ ENDIF |
e6df7ed1 GS |
1289 | $ savedstatus = $status |
1290 | $ teststatus = f$extract(9,1,savedstatus) | |
1291 | $ DEASSIGN SYS$OUTPUT | |
1292 | $ DEASSIGN SYS$ERROR | |
1293 | $ if (teststatus.nes."1") | |
1294 | $ THEN | |
1295 | $ perl_i_sysfile="undef" | |
1296 | $ ELSE | |
1297 | $ perl_i_sysfile="define" | |
1298 | $ ENDIF | |
1299 | $ ENDIF | |
1300 | $ WRITE_RESULT "i_sysfile is ''perl_i_sysfile'" | |
1301 | $! | |
5af06f0d DS |
1302 | $! Check for sys/utsname.h |
1303 | $! | |
1304 | $ OS | |
1305 | $ WS "#ifdef __DECC | |
1306 | $ WS "#include <stdlib.h> | |
1307 | $ WS "#endif | |
1308 | $ WS "#include <stdio.h> | |
1309 | $ WS "#include <unistd.h> | |
1310 | $ WS "#include <sys/utsname.h> | |
1311 | $ WS "int main() | |
1312 | $ WS "{" | |
1313 | $ WS "exit(0); | |
1314 | $ WS "}" | |
1315 | $ CS | |
1316 | $ DEFINE SYS$ERROR _NLA0: | |
1317 | $ DEFINE SYS$OUTPUT _NLA0: | |
1318 | $ on error then continue | |
1319 | $ on warning then continue | |
1320 | $ 'Checkcc' temp.c | |
1321 | $ savedstatus = $status | |
1322 | $ teststatus = f$extract(9,1,savedstatus) | |
1323 | $ if (teststatus.nes."1") | |
1324 | $ THEN | |
1325 | $ perl_i_sysutsname="undef" | |
1326 | $ DEASSIGN SYS$OUTPUT | |
1327 | $ DEASSIGN SYS$ERROR | |
1328 | $ ELSE | |
464ff92e | 1329 | $ IF Needs_Opt |
5af06f0d DS |
1330 | $ THEN |
1331 | $ link temp.obj,temp.opt/opt | |
464ff92e | 1332 | $ ELSE |
5af06f0d | 1333 | $ link temp.obj |
464ff92e | 1334 | $ ENDIF |
5af06f0d DS |
1335 | $ savedstatus = $status |
1336 | $ teststatus = f$extract(9,1,savedstatus) | |
1337 | $ DEASSIGN SYS$OUTPUT | |
1338 | $ DEASSIGN SYS$ERROR | |
1339 | $ if (teststatus.nes."1") | |
1340 | $ THEN | |
1341 | $ perl_i_sysutsname="undef" | |
1342 | $ ELSE | |
1343 | $ perl_i_sysutsname="define" | |
1344 | $ ENDIF | |
1345 | $ ENDIF | |
1346 | $ WRITE_RESULT "i_sysutsname is ''perl_i_sysutsname'" | |
1347 | $! | |
1348 | $! Check for syslog.h | |
1349 | $! | |
1350 | $ OS | |
1351 | $ WS "#ifdef __DECC | |
1352 | $ WS "#include <stdlib.h> | |
1353 | $ WS "#endif | |
1354 | $ WS "#include <stdio.h> | |
1355 | $ WS "#include <unistd.h> | |
1356 | $ WS "#include <syslog.h> | |
1357 | $ WS "int main() | |
1358 | $ WS "{" | |
1359 | $ WS "exit(0); | |
1360 | $ WS "}" | |
1361 | $ CS | |
1362 | $ DEFINE SYS$ERROR _NLA0: | |
1363 | $ DEFINE SYS$OUTPUT _NLA0: | |
1364 | $ on error then continue | |
1365 | $ on warning then continue | |
1366 | $ 'Checkcc' temp.c | |
1367 | $ savedstatus = $status | |
1368 | $ teststatus = f$extract(9,1,savedstatus) | |
1369 | $ if (teststatus.nes."1") | |
1370 | $ THEN | |
1371 | $ perl_i_syslog="undef" | |
1372 | $ DEASSIGN SYS$OUTPUT | |
1373 | $ DEASSIGN SYS$ERROR | |
1374 | $ ELSE | |
464ff92e | 1375 | $ IF Needs_Opt |
5af06f0d DS |
1376 | $ THEN |
1377 | $ link temp.obj,temp.opt/opt | |
464ff92e | 1378 | $ ELSE |
5af06f0d | 1379 | $ link temp.obj |
464ff92e | 1380 | $ ENDIF |
5af06f0d DS |
1381 | $ savedstatus = $status |
1382 | $ teststatus = f$extract(9,1,savedstatus) | |
1383 | $ DEASSIGN SYS$OUTPUT | |
1384 | $ DEASSIGN SYS$ERROR | |
1385 | $ if (teststatus.nes."1") | |
1386 | $ THEN | |
1387 | $ perl_i_syslog="undef" | |
1388 | $ ELSE | |
1389 | $ perl_i_syslog="define" | |
1390 | $ ENDIF | |
1391 | $ ENDIF | |
1392 | $ WRITE_RESULT "i_syslog is ''perl_i_syslog'" | |
1393 | $! | |
3937c24e HM |
1394 | $! Check for poll.h |
1395 | $! | |
1396 | $ OS | |
1397 | $ WS "#ifdef __DECC | |
1398 | $ WS "#include <stdlib.h> | |
1399 | $ WS "#endif | |
1400 | $ WS "#include <stdio.h> | |
1401 | $ WS "#include <unistd.h> | |
1402 | $ WS "#include <poll.h> | |
1403 | $ WS "int main() | |
1404 | $ WS "{" | |
1405 | $ WS "exit(0); | |
1406 | $ WS "}" | |
1407 | $ CS | |
1408 | $ DEFINE SYS$ERROR _NLA0: | |
1409 | $ DEFINE SYS$OUTPUT _NLA0: | |
1410 | $ on error then continue | |
1411 | $ on warning then continue | |
1412 | $ 'Checkcc' temp.c | |
1413 | $ savedstatus = $status | |
1414 | $ teststatus = f$extract(9,1,savedstatus) | |
1415 | $ if (teststatus.nes."1") | |
1416 | $ THEN | |
1417 | $ perl_i_poll="undef" | |
1418 | $ DEASSIGN SYS$OUTPUT | |
1419 | $ DEASSIGN SYS$ERROR | |
1420 | $ ELSE | |
464ff92e | 1421 | $ IF Needs_Opt |
3937c24e HM |
1422 | $ THEN |
1423 | $ link temp.obj,temp.opt/opt | |
464ff92e | 1424 | $ ELSE |
3937c24e | 1425 | $ link temp.obj |
464ff92e | 1426 | $ ENDIF |
3937c24e HM |
1427 | $ savedstatus = $status |
1428 | $ teststatus = f$extract(9,1,savedstatus) | |
1429 | $ DEASSIGN SYS$OUTPUT | |
1430 | $ DEASSIGN SYS$ERROR | |
1431 | $ if (teststatus.nes."1") | |
1432 | $ THEN | |
1433 | $ perl_i_poll="undef" | |
1434 | $ ELSE | |
1435 | $ perl_i_poll="define" | |
1436 | $ ENDIF | |
1437 | $ ENDIF | |
1438 | $ WRITE_RESULT "i_poll is ''perl_i_poll'" | |
1439 | $! | |
1440 | $! Check for sys/uio.h | |
1441 | $! | |
1442 | $ OS | |
1443 | $ WS "#ifdef __DECC | |
1444 | $ WS "#include <stdlib.h> | |
1445 | $ WS "#endif | |
1446 | $ WS "#include <stdio.h> | |
1447 | $ WS "#include <unistd.h> | |
1448 | $ WS "#include <sys/uio.h> | |
1449 | $ WS "int main() | |
1450 | $ WS "{" | |
1451 | $ WS "exit(0); | |
1452 | $ WS "}" | |
1453 | $ CS | |
1454 | $ DEFINE SYS$ERROR _NLA0: | |
1455 | $ DEFINE SYS$OUTPUT _NLA0: | |
1456 | $ on error then continue | |
1457 | $ on warning then continue | |
1458 | $ 'Checkcc' temp.c | |
1459 | $ savedstatus = $status | |
1460 | $ teststatus = f$extract(9,1,savedstatus) | |
1461 | $ if (teststatus.nes."1") | |
1462 | $ THEN | |
1463 | $ perl_i_sysuio="undef" | |
1464 | $ DEASSIGN SYS$OUTPUT | |
1465 | $ DEASSIGN SYS$ERROR | |
1466 | $ ELSE | |
464ff92e | 1467 | $ IF Needs_Opt |
3937c24e HM |
1468 | $ THEN |
1469 | $ link temp.obj,temp.opt/opt | |
1470 | $ else | |
1471 | $ link temp.obj | |
1472 | $ endif | |
1473 | $ savedstatus = $status | |
1474 | $ teststatus = f$extract(9,1,savedstatus) | |
1475 | $ DEASSIGN SYS$OUTPUT | |
1476 | $ DEASSIGN SYS$ERROR | |
1477 | $ if (teststatus.nes."1") | |
1478 | $ THEN | |
1479 | $ perl_i_sysuio="undef" | |
1480 | $ ELSE | |
1481 | $ perl_i_sysuio="define" | |
1482 | $ ENDIF | |
1483 | $ ENDIF | |
1484 | $ WRITE_RESULT "i_sysuio is ''perl_i_sysuio'" | |
1485 | $! | |
5af06f0d DS |
1486 | $! Check for sys/mode.h |
1487 | $! | |
1488 | $ OS | |
1489 | $ WS "#ifdef __DECC | |
1490 | $ WS "#include <stdlib.h> | |
1491 | $ WS "#endif | |
1492 | $ WS "#include <stdio.h> | |
1493 | $ WS "#include <unistd.h> | |
1494 | $ WS "#include <sys/mode.h> | |
1495 | $ WS "int main() | |
1496 | $ WS "{" | |
1497 | $ WS "exit(0); | |
1498 | $ WS "}" | |
1499 | $ CS | |
1500 | $ DEFINE SYS$ERROR _NLA0: | |
1501 | $ DEFINE SYS$OUTPUT _NLA0: | |
1502 | $ on error then continue | |
1503 | $ on warning then continue | |
1504 | $ 'Checkcc' temp.c | |
1505 | $ savedstatus = $status | |
1506 | $ teststatus = f$extract(9,1,savedstatus) | |
1507 | $ if (teststatus.nes."1") | |
1508 | $ THEN | |
1509 | $ perl_i_sysmode="undef" | |
1510 | $ DEASSIGN SYS$OUTPUT | |
1511 | $ DEASSIGN SYS$ERROR | |
1512 | $ ELSE | |
1513 | $ If (Needs_Opt.eqs."Yes") | |
1514 | $ THEN | |
1515 | $ link temp.obj,temp.opt/opt | |
1516 | $ else | |
1517 | $ link temp.obj | |
1518 | $ endif | |
1519 | $ savedstatus = $status | |
1520 | $ teststatus = f$extract(9,1,savedstatus) | |
1521 | $ DEASSIGN SYS$OUTPUT | |
1522 | $ DEASSIGN SYS$ERROR | |
1523 | $ if (teststatus.nes."1") | |
1524 | $ THEN | |
1525 | $ perl_i_sysmode="undef" | |
1526 | $ ELSE | |
1527 | $ perl_i_sysmode="define" | |
1528 | $ ENDIF | |
1529 | $ ENDIF | |
1530 | $ WRITE_RESULT "i_sysmode is ''perl_i_sysmode'" | |
1531 | $! | |
3937c24e HM |
1532 | $! Check for sys/access.h |
1533 | $! | |
1534 | $ OS | |
1535 | $ WS "#ifdef __DECC | |
1536 | $ WS "#include <stdlib.h> | |
1537 | $ WS "#endif | |
1538 | $ WS "#include <stdio.h> | |
1539 | $ WS "#include <unistd.h> | |
1540 | $ WS "#include <sys/access.h> | |
1541 | $ WS "int main() | |
1542 | $ WS "{" | |
1543 | $ WS "exit(0); | |
1544 | $ WS "}" | |
1545 | $ CS | |
1546 | $ DEFINE SYS$ERROR _NLA0: | |
1547 | $ DEFINE SYS$OUTPUT _NLA0: | |
1548 | $ on error then continue | |
1549 | $ on warning then continue | |
1550 | $ 'Checkcc' temp.c | |
1551 | $ savedstatus = $status | |
1552 | $ teststatus = f$extract(9,1,savedstatus) | |
1553 | $ if (teststatus.nes."1") | |
1554 | $ THEN | |
1555 | $ perl_i_sysaccess="undef" | |
1556 | $ DEASSIGN SYS$OUTPUT | |
1557 | $ DEASSIGN SYS$ERROR | |
1558 | $ ELSE | |
1559 | $ If (Needs_Opt.eqs."Yes") | |
1560 | $ THEN | |
1561 | $ link temp.obj,temp.opt/opt | |
1562 | $ else | |
1563 | $ link temp.obj | |
1564 | $ endif | |
1565 | $ savedstatus = $status | |
1566 | $ teststatus = f$extract(9,1,savedstatus) | |
1567 | $ DEASSIGN SYS$OUTPUT | |
1568 | $ DEASSIGN SYS$ERROR | |
1569 | $ if (teststatus.nes."1") | |
1570 | $ THEN | |
1571 | $ perl_i_sysaccess="undef" | |
1572 | $ ELSE | |
1573 | $ perl_i_sysaccess="define" | |
1574 | $ ENDIF | |
1575 | $ ENDIF | |
1576 | $ WRITE_RESULT "i_sysaccess is ''perl_i_sysaccess'" | |
1577 | $! | |
1578 | $! Check for sys/security.h | |
1579 | $! | |
1580 | $ OS | |
1581 | $ WS "#ifdef __DECC | |
1582 | $ WS "#include <stdlib.h> | |
1583 | $ WS "#endif | |
1584 | $ WS "#include <stdio.h> | |
1585 | $ WS "#include <unistd.h> | |
1586 | $ WS "#include <sys/security.h> | |
1587 | $ WS "int main() | |
1588 | $ WS "{" | |
1589 | $ WS "exit(0); | |
1590 | $ WS "}" | |
1591 | $ CS | |
1592 | $ DEFINE SYS$ERROR _NLA0: | |
1593 | $ DEFINE SYS$OUTPUT _NLA0: | |
1594 | $ on error then continue | |
1595 | $ on warning then continue | |
1596 | $ 'Checkcc' temp.c | |
1597 | $ savedstatus = $status | |
1598 | $ teststatus = f$extract(9,1,savedstatus) | |
1599 | $ if (teststatus.nes."1") | |
1600 | $ THEN | |
1601 | $ perl_i_syssecrt="undef" | |
1602 | $ DEASSIGN SYS$OUTPUT | |
1603 | $ DEASSIGN SYS$ERROR | |
1604 | $ ELSE | |
1605 | $ If (Needs_Opt.eqs."Yes") | |
1606 | $ THEN | |
1607 | $ link temp.obj,temp.opt/opt | |
1608 | $ else | |
1609 | $ link temp.obj | |
1610 | $ endif | |
1611 | $ savedstatus = $status | |
1612 | $ teststatus = f$extract(9,1,savedstatus) | |
1613 | $ DEASSIGN SYS$OUTPUT | |
1614 | $ DEASSIGN SYS$ERROR | |
1615 | $ if (teststatus.nes."1") | |
1616 | $ THEN | |
1617 | $ perl_i_syssecrt="undef" | |
1618 | $ ELSE | |
1619 | $ perl_i_syssecrt="define" | |
1620 | $ ENDIF | |
1621 | $ ENDIF | |
1622 | $ WRITE_RESULT "i_syssecrt is ''perl_i_syssecrt'" | |
1623 | $! | |
e6df7ed1 GS |
1624 | $! Check for fcntl.h |
1625 | $! | |
1626 | $ OS | |
1627 | $ WS "#ifdef __DECC | |
1628 | $ WS "#include <stdlib.h> | |
1629 | $ WS "#endif | |
1630 | $ WS "#include <stdio.h> | |
1631 | $ WS "#include <unistd.h> | |
1632 | $ WS "#include <fcntl.h> | |
1633 | $ WS "int main() | |
1634 | $ WS "{" | |
1635 | $ WS "exit(0); | |
1636 | $ WS "}" | |
1637 | $ CS | |
1638 | $ DEFINE SYS$ERROR _NLA0: | |
1639 | $ DEFINE SYS$OUTPUT _NLA0: | |
1640 | $ on error then continue | |
1641 | $ on warning then continue | |
1642 | $ 'Checkcc' temp.c | |
1643 | $ savedstatus = $status | |
1644 | $ teststatus = f$extract(9,1,savedstatus) | |
1645 | $ if (teststatus.nes."1") | |
1646 | $ THEN | |
1647 | $ perl_i_fcntl="undef" | |
1648 | $ DEASSIGN SYS$OUTPUT | |
1649 | $ DEASSIGN SYS$ERROR | |
1650 | $ ELSE | |
1651 | $ If (Needs_Opt.eqs."Yes") | |
1652 | $ THEN | |
1653 | $ link temp.obj,temp.opt/opt | |
1654 | $ else | |
1655 | $ link temp.obj | |
1656 | $ endif | |
1657 | $ savedstatus = $status | |
1658 | $ teststatus = f$extract(9,1,savedstatus) | |
1659 | $ DEASSIGN SYS$OUTPUT | |
1660 | $ DEASSIGN SYS$ERROR | |
1661 | $ if (teststatus.nes."1") | |
1662 | $ THEN | |
1663 | $ perl_i_fcntl="undef" | |
1664 | $ ELSE | |
1665 | $ perl_i_fcntl="define" | |
1666 | $ ENDIF | |
1667 | $ ENDIF | |
1668 | $ WRITE_RESULT "i_fcntl is ''perl_i_fcntl'" | |
1669 | $! | |
1670 | $! Check for fcntl | |
1671 | $! | |
1672 | $ OS | |
1673 | $ WS "#ifdef __DECC | |
1674 | $ WS "#include <stdlib.h> | |
1675 | $ WS "#endif | |
1676 | $ WS "#include <stdio.h> | |
1677 | $ WS "#include <unistd.h> | |
1678 | $ WS "#include <fcntl.h> | |
1679 | $ WS "int main() | |
1680 | $ WS "{" | |
1681 | $ WS "fcntl(1,2,3); | |
1682 | $ WS "exit(0); | |
1683 | $ WS "}" | |
1684 | $ CS | |
1685 | $ DEFINE SYS$ERROR _NLA0: | |
1686 | $ DEFINE SYS$OUTPUT _NLA0: | |
1687 | $ on error then continue | |
1688 | $ on warning then continue | |
1689 | $ 'Checkcc' temp.c | |
1690 | $ savedstatus = $status | |
1691 | $ teststatus = f$extract(9,1,savedstatus) | |
1692 | $ if (teststatus.nes."1") | |
1693 | $ THEN | |
1694 | $ perl_d_fcntl="undef" | |
1695 | $ DEASSIGN SYS$OUTPUT | |
1696 | $ DEASSIGN SYS$ERROR | |
1697 | $ ELSE | |
1698 | $ If (Needs_Opt.eqs."Yes") | |
1699 | $ THEN | |
1700 | $ link temp.obj,temp.opt/opt | |
1701 | $ else | |
1702 | $ link temp.obj | |
1703 | $ endif | |
1704 | $ savedstatus = $status | |
1705 | $ teststatus = f$extract(9,1,savedstatus) | |
1706 | $ DEASSIGN SYS$OUTPUT | |
1707 | $ DEASSIGN SYS$ERROR | |
1708 | $ if (teststatus.nes."1") | |
1709 | $ THEN | |
1710 | $ perl_d_fcntl="undef" | |
1711 | $ ELSE | |
1712 | $ perl_d_fcntl="define" | |
1713 | $ ENDIF | |
1714 | $ ENDIF | |
1715 | $ WRITE_RESULT "d_fcntl is ''perl_d_fcntl'" | |
1716 | $! | |
cc077a9f HM |
1717 | $! Check for memchr |
1718 | $! | |
1719 | $ OS | |
1720 | $ WS "#ifdef __DECC | |
1721 | $ WS "#include <stdlib.h> | |
1722 | $ WS "#endif | |
1723 | $ WS "#include <string.h> | |
1724 | $ WS "int main() | |
1725 | $ WS "{" | |
1726 | $ WS "char * place; | |
1727 | $ WS "place = memchr(""foo"", 47, 3) | |
1728 | $ WS "exit(0); | |
1729 | $ WS "}" | |
1730 | $ CS | |
1731 | $ DEFINE SYS$ERROR _NLA0: | |
1732 | $ DEFINE SYS$OUTPUT _NLA0: | |
1733 | $ on error then continue | |
1734 | $ on warning then continue | |
1735 | $ 'Checkcc' temp.c | |
1736 | $ savedstatus = $status | |
1737 | $ teststatus = f$extract(9,1,savedstatus) | |
1738 | $ if (teststatus.nes."1") | |
1739 | $ THEN | |
1740 | $ perl_d_memchr="undef" | |
1741 | $ DEASSIGN SYS$OUTPUT | |
1742 | $ DEASSIGN SYS$ERROR | |
1743 | $ ELSE | |
1744 | $ If (Needs_Opt.eqs."Yes") | |
1745 | $ THEN | |
1746 | $ link temp.obj,temp.opt/opt | |
1747 | $ else | |
1748 | $ link temp.obj | |
1749 | $ endif | |
1750 | $ savedstatus = $status | |
1751 | $ teststatus = f$extract(9,1,savedstatus) | |
1752 | $ DEASSIGN SYS$OUTPUT | |
1753 | $ DEASSIGN SYS$ERROR | |
1754 | $ if (teststatus.nes."1") | |
1755 | $ THEN | |
1756 | $ perl_d_memchr="undef" | |
1757 | $ ELSE | |
1758 | $ perl_d_memchr="define" | |
1759 | $ ENDIF | |
1760 | $ ENDIF | |
1761 | $ WRITE_RESULT "d_memchr is ''perl_d_memchr'" | |
1762 | $! | |
fafa4fee CB |
1763 | $! Check for strtoull |
1764 | $! | |
1765 | $ OS | |
1766 | $ WS "#ifdef __DECC | |
1767 | $ WS "#include <stdlib.h> | |
1768 | $ WS "#endif | |
1769 | $ WS "#include <string.h> | |
1770 | $ WS "int main() | |
1771 | $ WS "{" | |
1772 | $ WS "unsigned __int64 result; | |
1773 | $ WS "result = strtoull(""123123"", NULL, 10); | |
1774 | $ WS "exit(0); | |
1775 | $ WS "}" | |
1776 | $ CS | |
1777 | $ DEFINE SYS$ERROR _NLA0: | |
1778 | $ DEFINE SYS$OUTPUT _NLA0: | |
1779 | $ on error then continue | |
1780 | $ on warning then continue | |
1781 | $ 'Checkcc' temp.c | |
1782 | $ savedstatus = $status | |
1783 | $ teststatus = f$extract(9,1,savedstatus) | |
1784 | $ if (teststatus.nes."1") | |
1785 | $ THEN | |
1786 | $ perl_d_strtoull="undef" | |
1787 | $ DEASSIGN SYS$OUTPUT | |
1788 | $ DEASSIGN SYS$ERROR | |
1789 | $ ELSE | |
1790 | $ If (Needs_Opt.eqs."Yes") | |
1791 | $ THEN | |
1792 | $ link temp.obj,temp.opt/opt | |
1793 | $ else | |
1794 | $ link temp.obj | |
1795 | $ endif | |
1796 | $ savedstatus = $status | |
1797 | $ teststatus = f$extract(9,1,savedstatus) | |
1798 | $ DEASSIGN SYS$OUTPUT | |
1799 | $ DEASSIGN SYS$ERROR | |
1800 | $ if (teststatus.nes."1") | |
1801 | $ THEN | |
1802 | $ perl_d_strtoull="undef" | |
1803 | $ ELSE | |
1804 | $ perl_d_strtoull="define" | |
1805 | $ ENDIF | |
1806 | $ ENDIF | |
1807 | $ WRITE_RESULT "d_strtoull is ''perl_d_strtoull'" | |
1808 | $! | |
29637182 GS |
1809 | $! Check for strtouq |
1810 | $! | |
1811 | $ OS | |
1812 | $ WS "#ifdef __DECC | |
1813 | $ WS "#include <stdlib.h> | |
1814 | $ WS "#endif | |
1815 | $ WS "#include <string.h> | |
1816 | $ WS "int main() | |
1817 | $ WS "{" | |
1818 | $ WS "unsigned __int64 result; | |
1819 | $ WS "result = strtouq(""123123"", NULL, 10); | |
1820 | $ WS "exit(0); | |
1821 | $ WS "}" | |
1822 | $ CS | |
1823 | $ DEFINE SYS$ERROR _NLA0: | |
1824 | $ DEFINE SYS$OUTPUT _NLA0: | |
1825 | $ on error then continue | |
1826 | $ on warning then continue | |
1827 | $ 'Checkcc' temp.c | |
1828 | $ savedstatus = $status | |
1829 | $ teststatus = f$extract(9,1,savedstatus) | |
1830 | $ if (teststatus.nes."1") | |
1831 | $ THEN | |
1832 | $ perl_d_strtouq="undef" | |
1833 | $ DEASSIGN SYS$OUTPUT | |
1834 | $ DEASSIGN SYS$ERROR | |
1835 | $ ELSE | |
1836 | $ If (Needs_Opt.eqs."Yes") | |
1837 | $ THEN | |
1838 | $ link temp.obj,temp.opt/opt | |
1839 | $ else | |
1840 | $ link temp.obj | |
1841 | $ endif | |
1842 | $ savedstatus = $status | |
1843 | $ teststatus = f$extract(9,1,savedstatus) | |
1844 | $ DEASSIGN SYS$OUTPUT | |
1845 | $ DEASSIGN SYS$ERROR | |
1846 | $ if (teststatus.nes."1") | |
1847 | $ THEN | |
1848 | $ perl_d_strtouq="undef" | |
1849 | $ ELSE | |
1850 | $ perl_d_strtouq="define" | |
1851 | $ ENDIF | |
1852 | $ ENDIF | |
1853 | $ WRITE_RESULT "d_strtouq is ''perl_d_strtouq'" | |
1854 | $! | |
1855 | $! Check for strtoll | |
1856 | $! | |
1857 | $ OS | |
1858 | $ WS "#ifdef __DECC | |
1859 | $ WS "#include <stdlib.h> | |
1860 | $ WS "#endif | |
1861 | $ WS "#include <string.h> | |
1862 | $ WS "int main() | |
1863 | $ WS "{" | |
1864 | $ WS "__int64 result; | |
1865 | $ WS "result = strtoll(""123123"", NULL, 10); | |
1866 | $ WS "exit(0); | |
1867 | $ WS "}" | |
1868 | $ CS | |
1869 | $ DEFINE SYS$ERROR _NLA0: | |
1870 | $ DEFINE SYS$OUTPUT _NLA0: | |
1871 | $ on error then continue | |
1872 | $ on warning then continue | |
1873 | $ 'Checkcc' temp.c | |
1874 | $ savedstatus = $status | |
1875 | $ teststatus = f$extract(9,1,savedstatus) | |
1876 | $ if (teststatus.nes."1") | |
1877 | $ THEN | |
1878 | $ perl_d_strtoll="undef" | |
1879 | $ DEASSIGN SYS$OUTPUT | |
1880 | $ DEASSIGN SYS$ERROR | |
1881 | $ ELSE | |
1882 | $ If (Needs_Opt.eqs."Yes") | |
1883 | $ THEN | |
1884 | $ link temp.obj,temp.opt/opt | |
1885 | $ else | |
1886 | $ link temp.obj | |
1887 | $ endif | |
1888 | $ savedstatus = $status | |
1889 | $ teststatus = f$extract(9,1,savedstatus) | |
1890 | $ DEASSIGN SYS$OUTPUT | |
1891 | $ DEASSIGN SYS$ERROR | |
1892 | $ if (teststatus.nes."1") | |
1893 | $ THEN | |
1894 | $ perl_d_strtoll="undef" | |
1895 | $ ELSE | |
1896 | $ perl_d_strtoll="define" | |
1897 | $ ENDIF | |
1898 | $ ENDIF | |
1899 | $ WRITE_RESULT "d_strtoll is ''perl_d_strtoll'" | |
1900 | $! | |
1901 | $! Check for strtold | |
1902 | $! | |
1903 | $ OS | |
1904 | $ WS "#ifdef __DECC | |
1905 | $ WS "#include <stdlib.h> | |
1906 | $ WS "#endif | |
1907 | $ WS "#include <string.h> | |
1908 | $ WS "int main() | |
1909 | $ WS "{" | |
1910 | $ WS "long double result; | |
1911 | $ WS "result = strtold(""123123"", NULL, 10); | |
1912 | $ WS "exit(0); | |
1913 | $ WS "}" | |
1914 | $ CS | |
1915 | $ DEFINE SYS$ERROR _NLA0: | |
1916 | $ DEFINE SYS$OUTPUT _NLA0: | |
1917 | $ on error then continue | |
1918 | $ on warning then continue | |
1919 | $ 'Checkcc' temp.c | |
1920 | $ savedstatus = $status | |
1921 | $ teststatus = f$extract(9,1,savedstatus) | |
1922 | $ if (teststatus.nes."1") | |
1923 | $ THEN | |
1924 | $ perl_d_strtold="undef" | |
1925 | $ DEASSIGN SYS$OUTPUT | |
1926 | $ DEASSIGN SYS$ERROR | |
1927 | $ ELSE | |
1928 | $ If (Needs_Opt.eqs."Yes") | |
1929 | $ THEN | |
1930 | $ link temp.obj,temp.opt/opt | |
1931 | $ else | |
1932 | $ link temp.obj | |
1933 | $ endif | |
1934 | $ savedstatus = $status | |
1935 | $ teststatus = f$extract(9,1,savedstatus) | |
1936 | $ DEASSIGN SYS$OUTPUT | |
1937 | $ DEASSIGN SYS$ERROR | |
1938 | $ if (teststatus.nes."1") | |
1939 | $ THEN | |
1940 | $ perl_d_strtold="undef" | |
1941 | $ ELSE | |
1942 | $ perl_d_strtold="define" | |
1943 | $ ENDIF | |
1944 | $ ENDIF | |
1945 | $ WRITE_RESULT "d_strtold is ''perl_d_strtold'" | |
1946 | $! | |
fafa4fee CB |
1947 | $! Check for atoll |
1948 | $! | |
1949 | $ OS | |
1950 | $ WS "#ifdef __DECC | |
1951 | $ WS "#include <stdlib.h> | |
1952 | $ WS "#endif | |
1953 | $ WS "#include <string.h> | |
1954 | $ WS "int main() | |
1955 | $ WS "{" | |
1956 | $ WS " __int64 result; | |
1957 | $ WS "result = atoll(""123123""); | |
1958 | $ WS "exit(0); | |
1959 | $ WS "}" | |
1960 | $ CS | |
1961 | $ DEFINE SYS$ERROR _NLA0: | |
1962 | $ DEFINE SYS$OUTPUT _NLA0: | |
1963 | $ on error then continue | |
1964 | $ on warning then continue | |
1965 | $ 'Checkcc' temp.c | |
1966 | $ savedstatus = $status | |
1967 | $ teststatus = f$extract(9,1,savedstatus) | |
1968 | $ if (teststatus.nes."1") | |
1969 | $ THEN | |
1970 | $ perl_d_atoll="undef" | |
1971 | $ DEASSIGN SYS$OUTPUT | |
1972 | $ DEASSIGN SYS$ERROR | |
1973 | $ ELSE | |
1974 | $ If (Needs_Opt.eqs."Yes") | |
1975 | $ THEN | |
1976 | $ link temp.obj,temp.opt/opt | |
1977 | $ else | |
1978 | $ link temp.obj | |
1979 | $ endif | |
1980 | $ savedstatus = $status | |
1981 | $ teststatus = f$extract(9,1,savedstatus) | |
1982 | $ DEASSIGN SYS$OUTPUT | |
1983 | $ DEASSIGN SYS$ERROR | |
1984 | $ if (teststatus.nes."1") | |
1985 | $ THEN | |
1986 | $ perl_d_atoll="undef" | |
1987 | $ ELSE | |
1988 | $ perl_d_atoll="define" | |
1989 | $ ENDIF | |
1990 | $ ENDIF | |
1991 | $ WRITE_RESULT "d_atoll is ''perl_d_atoll'" | |
1992 | $! | |
1993 | $! Check for atoll | |
1994 | $! | |
1995 | $ OS | |
1996 | $ WS "#ifdef __DECC | |
1997 | $ WS "#include <stdlib.h> | |
1998 | $ WS "#endif | |
1999 | $ WS "#include <string.h> | |
2000 | $ WS "int main() | |
2001 | $ WS "{" | |
2002 | $ WS "long double | |
2003 | $ WS "result = atolf(""123123""); | |
2004 | $ WS "exit(0); | |
2005 | $ WS "}" | |
2006 | $ CS | |
2007 | $ DEFINE SYS$ERROR _NLA0: | |
2008 | $ DEFINE SYS$OUTPUT _NLA0: | |
2009 | $ on error then continue | |
2010 | $ on warning then continue | |
2011 | $ 'Checkcc' temp.c | |
2012 | $ savedstatus = $status | |
2013 | $ teststatus = f$extract(9,1,savedstatus) | |
2014 | $ if (teststatus.nes."1") | |
2015 | $ THEN | |
2016 | $ perl_d_atolf="undef" | |
2017 | $ DEASSIGN SYS$OUTPUT | |
2018 | $ DEASSIGN SYS$ERROR | |
2019 | $ ELSE | |
2020 | $ If (Needs_Opt.eqs."Yes") | |
2021 | $ THEN | |
2022 | $ link temp.obj,temp.opt/opt | |
2023 | $ else | |
2024 | $ link temp.obj | |
2025 | $ endif | |
2026 | $ savedstatus = $status | |
2027 | $ teststatus = f$extract(9,1,savedstatus) | |
2028 | $ DEASSIGN SYS$OUTPUT | |
2029 | $ DEASSIGN SYS$ERROR | |
2030 | $ if (teststatus.nes."1") | |
2031 | $ THEN | |
2032 | $ perl_d_atolf="undef" | |
2033 | $ ELSE | |
2034 | $ perl_d_atolf="define" | |
2035 | $ ENDIF | |
2036 | $ ENDIF | |
2037 | $ WRITE_RESULT "d_atolf is ''perl_d_atolf'" | |
2038 | $! | |
3937c24e HM |
2039 | $! Check for access |
2040 | $! | |
2041 | $ OS | |
2042 | $ WS "#ifdef __DECC | |
2043 | $ WS "#include <stdlib.h> | |
2044 | $ WS "#endif | |
2045 | $ WS "#include <stdio.h> | |
2046 | $ WS "#include <unistd.h> | |
2047 | $ WS "int main() | |
2048 | $ WS "{" | |
2049 | $ WS "access("foo", F_OK); | |
2050 | $ WS "exit(0); | |
2051 | $ WS "}" | |
2052 | $ CS | |
2053 | $ DEFINE SYS$ERROR _NLA0: | |
2054 | $ DEFINE SYS$OUTPUT _NLA0: | |
2055 | $ on error then continue | |
2056 | $ on warning then continue | |
2057 | $ 'Checkcc' temp.c | |
2058 | $ savedstatus = $status | |
2059 | $ teststatus = f$extract(9,1,savedstatus) | |
2060 | $ if (teststatus.nes."1") | |
2061 | $ THEN | |
2062 | $ perl_d_access="undef" | |
2063 | $ DEASSIGN SYS$OUTPUT | |
2064 | $ DEASSIGN SYS$ERROR | |
2065 | $ ELSE | |
2066 | $ If (Needs_Opt.eqs."Yes") | |
2067 | $ THEN | |
2068 | $ link temp.obj,temp.opt/opt | |
2069 | $ else | |
2070 | $ link temp.obj | |
2071 | $ endif | |
2072 | $ savedstatus = $status | |
2073 | $ teststatus = f$extract(9,1,savedstatus) | |
2074 | $ DEASSIGN SYS$OUTPUT | |
2075 | $ DEASSIGN SYS$ERROR | |
2076 | $ if (teststatus.nes."1") | |
2077 | $ THEN | |
2078 | $ perl_d_access="undef" | |
2079 | $ ELSE | |
2080 | $ perl_d_access="define" | |
2081 | $ ENDIF | |
2082 | $ ENDIF | |
2083 | $ WRITE_RESULT "d_access is ''perl_d_access'" | |
2084 | $! | |
97abc6ad HM |
2085 | $! Check for bzero |
2086 | $! | |
2087 | $ OS | |
2088 | $ WS "#ifdef __DECC | |
2089 | $ WS "#include <stdlib.h> | |
2090 | $ WS "#endif | |
2091 | $ WS "#include <stdio.h> | |
2092 | $ WS "#include <strings.h> | |
2093 | $ WS "int main() | |
2094 | $ WS "{" | |
2095 | $ WS "char foo[10]; | |
2096 | $ WS "bzero(foo, 10); | |
2097 | $ WS "exit(0); | |
2098 | $ WS "}" | |
2099 | $ CS | |
2100 | $ DEFINE SYS$ERROR _NLA0: | |
2101 | $ DEFINE SYS$OUTPUT _NLA0: | |
2102 | $ on error then continue | |
2103 | $ on warning then continue | |
9ef4b0a6 | 2104 | $ 'Checkcc' temp.c |
97abc6ad HM |
2105 | $ savedstatus = $status |
2106 | $ teststatus = f$extract(9,1,savedstatus) | |
2107 | $ if (teststatus.nes."1") | |
2108 | $ THEN | |
2109 | $ perl_d_bzero="undef" | |
2110 | $ DEASSIGN SYS$OUTPUT | |
2111 | $ DEASSIGN SYS$ERROR | |
2112 | $ ELSE | |
2113 | $ If (Needs_Opt.eqs."Yes") | |
2114 | $ THEN | |
9ef4b0a6 | 2115 | $ link temp.obj,temp.opt/opt |
97abc6ad | 2116 | $ else |
9ef4b0a6 | 2117 | $ link temp.obj |
97abc6ad HM |
2118 | $ endif |
2119 | $ savedstatus = $status | |
2120 | $ teststatus = f$extract(9,1,savedstatus) | |
2121 | $ DEASSIGN SYS$OUTPUT | |
2122 | $ DEASSIGN SYS$ERROR | |
2123 | $ if (teststatus.nes."1") | |
2124 | $ THEN | |
2125 | $ perl_d_bzero="undef" | |
2126 | $ ELSE | |
2127 | $ perl_d_bzero="define" | |
2128 | $ ENDIF | |
2129 | $ ENDIF | |
2130 | $ WRITE_RESULT "d_bzero is ''perl_d_bzero'" | |
2131 | $! | |
2132 | $! Check for bcopy | |
2133 | $! | |
2134 | $ OS | |
2135 | $ WS "#ifdef __DECC | |
2136 | $ WS "#include <stdlib.h> | |
2137 | $ WS "#endif | |
2138 | $ WS "#include <stdio.h> | |
2139 | $ WS "#include <strings.h> | |
2140 | $ WS "int main() | |
2141 | $ WS "{" | |
2142 | $ WS "char foo[10], bar[10]; | |
2143 | $ WS "bcopy(""foo"", bar, 3); | |
2144 | $ WS "exit(0); | |
2145 | $ WS "}" | |
2146 | $ CS | |
2147 | $ DEFINE SYS$ERROR _NLA0: | |
2148 | $ DEFINE SYS$OUTPUT _NLA0: | |
2149 | $ on error then continue | |
2150 | $ on warning then continue | |
9ef4b0a6 | 2151 | $ 'Checkcc' temp.c |
97abc6ad HM |
2152 | $ savedstatus = $status |
2153 | $ teststatus = f$extract(9,1,savedstatus) | |
2154 | $ if (teststatus.nes."1") | |
2155 | $ THEN | |
2156 | $ perl_d_bcopy="undef" | |
2157 | $ DEASSIGN SYS$OUTPUT | |
2158 | $ DEASSIGN SYS$ERROR | |
2159 | $ ELSE | |
2160 | $ If (Needs_Opt.eqs."Yes") | |
2161 | $ THEN | |
9ef4b0a6 | 2162 | $ link temp.obj,temp.opt/opt |
97abc6ad | 2163 | $ else |
9ef4b0a6 | 2164 | $ link temp.obj |
97abc6ad HM |
2165 | $ endif |
2166 | $ savedstatus = $status | |
2167 | $ teststatus = f$extract(9,1,savedstatus) | |
2168 | $ DEASSIGN SYS$OUTPUT | |
2169 | $ DEASSIGN SYS$ERROR | |
2170 | $ if (teststatus.nes."1") | |
2171 | $ THEN | |
2172 | $ perl_d_bcopy="undef" | |
2173 | $ ELSE | |
2174 | $ perl_d_bcopy="define" | |
2175 | $ ENDIF | |
2176 | $ ENDIF | |
2177 | $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'" | |
2178 | $! | |
2179 | $! Check for mkstemp | |
2180 | $! | |
2181 | $ OS | |
2182 | $ WS "#ifdef __DECC | |
2183 | $ WS "#include <stdlib.h> | |
2184 | $ WS "#endif | |
2185 | $ WS "#include <stdio.h> | |
2186 | $ WS "int main() | |
2187 | $ WS "{" | |
2188 | $ WS "mkstemp(""foo""); | |
2189 | $ WS "exit(0); | |
2190 | $ WS "}" | |
2191 | $ CS | |
2192 | $ DEFINE SYS$ERROR _NLA0: | |
2193 | $ DEFINE SYS$OUTPUT _NLA0: | |
2194 | $ on error then continue | |
2195 | $ on warning then continue | |
9ef4b0a6 | 2196 | $ 'Checkcc' temp.c |
97abc6ad HM |
2197 | $ If (Needs_Opt.eqs."Yes") |
2198 | $ THEN | |
9ef4b0a6 | 2199 | $ link temp.obj,temp.opt/opt |
97abc6ad | 2200 | $ else |
9ef4b0a6 | 2201 | $ link temp.obj |
97abc6ad HM |
2202 | $ endif |
2203 | $ savedstatus = $status | |
2204 | $ teststatus = f$extract(9,1,savedstatus) | |
2205 | $ DEASSIGN SYS$OUTPUT | |
2206 | $ DEASSIGN SYS$ERROR | |
2207 | $ if (teststatus.nes."1") | |
2208 | $ THEN | |
2209 | $ perl_d_mkstemp="undef" | |
2210 | $ ELSE | |
2211 | $ perl_d_mkstemp="define" | |
2212 | $ ENDIF | |
2213 | $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'" | |
2214 | $! | |
fe749a9f JH |
2215 | $! Check for mkstemps |
2216 | $! | |
2217 | $ OS | |
2218 | $ WS "#ifdef __DECC | |
2219 | $ WS "#include <stdlib.h> | |
2220 | $ WS "#endif | |
2221 | $ WS "#include <stdio.h> | |
2222 | $ WS "int main() | |
2223 | $ WS "{" | |
2224 | $ WS "mkstemps(""foo"", 1); | |
2225 | $ WS "exit(0); | |
2226 | $ WS "}" | |
2227 | $ CS | |
2228 | $ DEFINE SYS$ERROR _NLA0: | |
2229 | $ DEFINE SYS$OUTPUT _NLA0: | |
2230 | $ on error then continue | |
2231 | $ on warning then continue | |
2232 | $ 'Checkcc' temp.c | |
2233 | $ If (Needs_Opt.eqs."Yes") | |
2234 | $ THEN | |
2235 | $ link temp.obj,temp.opt/opt | |
2236 | $ else | |
2237 | $ link temp.obj | |
2238 | $ endif | |
2239 | $ savedstatus = $status | |
2240 | $ teststatus = f$extract(9,1,savedstatus) | |
2241 | $ DEASSIGN SYS$OUTPUT | |
2242 | $ DEASSIGN SYS$ERROR | |
2243 | $ if (teststatus.nes."1") | |
2244 | $ THEN | |
2245 | $ perl_d_mkstemps="undef" | |
2246 | $ ELSE | |
2247 | $ perl_d_mkstemps="define" | |
2248 | $ ENDIF | |
2249 | $ WRITE_RESULT "d_mkstemps is ''perl_d_mkstemps'" | |
2250 | $! | |
5af06f0d DS |
2251 | $! Check for iconv |
2252 | $! | |
2253 | $ OS | |
2254 | $ WS "#ifdef __DECC | |
2255 | $ WS "#include <stdlib.h> | |
2256 | $ WS "#endif | |
2257 | $ WS "#include <stdio.h> | |
2258 | $ WS "#include <iconv.h> | |
2259 | $ WS "int main() | |
2260 | $ WS "{" | |
498336ed | 2261 | $ WS " iconv_t cd = (iconv_t)0;" |
5af06f0d DS |
2262 | $ WS " char *inbuf, *outbuf;" |
2263 | $ WS " size_t inleft, outleft;" | |
2264 | $ WS " iconv(cd, &inbuf, &inleft, &outbuf, &outleft);" | |
2265 | $ WS "exit(0); | |
2266 | $ WS "}" | |
2267 | $ CS | |
2268 | $ DEFINE SYS$ERROR _NLA0: | |
2269 | $ DEFINE SYS$OUTPUT _NLA0: | |
2270 | $ on error then continue | |
2271 | $ on warning then continue | |
2272 | $ 'Checkcc' temp.c | |
2273 | $ savedstatus = $status | |
2274 | $ teststatus = f$extract(9,1,savedstatus) | |
2275 | $ if (teststatus.nes."1") | |
2276 | $ THEN | |
2277 | $ perl_d_iconv="undef" | |
2278 | $ perl_i_iconv="undef" | |
2279 | $ DEASSIGN SYS$OUTPUT | |
2280 | $ DEASSIGN SYS$ERROR | |
2281 | $ ELSE | |
2282 | $ If (Needs_Opt.eqs."Yes") | |
2283 | $ THEN | |
2284 | $ link temp.obj,temp.opt/opt | |
2285 | $ else | |
2286 | $ link temp.obj | |
2287 | $ endif | |
2288 | $ savedstatus = $status | |
2289 | $ teststatus = f$extract(9,1,savedstatus) | |
2290 | $ DEASSIGN SYS$OUTPUT | |
2291 | $ DEASSIGN SYS$ERROR | |
2292 | $ if (teststatus.nes."1") | |
2293 | $ THEN | |
2294 | $ perl_d_iconv="undef" | |
2295 | $ perl_i_iconv="undef" | |
2296 | $ ELSE | |
2297 | $ perl_d_iconv="define" | |
2298 | $ perl_i_iconv="define" | |
2299 | $ ENDIF | |
2300 | $ ENDIF | |
2301 | $ WRITE_RESULT "d_iconv is ''perl_d_iconv'" | |
2302 | $ WRITE_RESULT "i_iconv is ''perl_i_iconv'" | |
2303 | $! | |
2304 | $! Check for mkdtemp | |
fe749a9f JH |
2305 | $! |
2306 | $ OS | |
2307 | $ WS "#ifdef __DECC | |
2308 | $ WS "#include <stdlib.h> | |
2309 | $ WS "#endif | |
2310 | $ WS "#include <stdio.h> | |
2311 | $ WS "int main() | |
2312 | $ WS "{" | |
2313 | $ WS "mkdtemp(""foo""); | |
2314 | $ WS "exit(0); | |
2315 | $ WS "}" | |
2316 | $ CS | |
2317 | $ DEFINE SYS$ERROR _NLA0: | |
2318 | $ DEFINE SYS$OUTPUT _NLA0: | |
2319 | $ on error then continue | |
2320 | $ on warning then continue | |
2321 | $ 'Checkcc' temp.c | |
2322 | $ If (Needs_Opt.eqs."Yes") | |
2323 | $ THEN | |
2324 | $ link temp.obj,temp.opt/opt | |
2325 | $ else | |
2326 | $ link temp.obj | |
2327 | $ endif | |
2328 | $ savedstatus = $status | |
2329 | $ teststatus = f$extract(9,1,savedstatus) | |
2330 | $ DEASSIGN SYS$OUTPUT | |
2331 | $ DEASSIGN SYS$ERROR | |
2332 | $ if (teststatus.nes."1") | |
2333 | $ THEN | |
2334 | $ perl_d_mkdtemp="undef" | |
2335 | $ ELSE | |
2336 | $ perl_d_mkdtemp="define" | |
2337 | $ ENDIF | |
2338 | $ WRITE_RESULT "d_mkdtemp is ''perl_d_mkdtemp'" | |
2339 | $! | |
97abc6ad HM |
2340 | $! Check for setvbuf |
2341 | $! | |
2342 | $ OS | |
2343 | $ WS "#ifdef __DECC | |
2344 | $ WS "#include <stdlib.h> | |
2345 | $ WS "#endif | |
2346 | $ WS "#include <stdio.h> | |
2347 | $ WS "int main() | |
2348 | $ WS "{" | |
2349 | $ WS "FILE *foo; | |
2350 | $ WS "char Buffer[99]; | |
2351 | $ WS "foo = fopen(""foo"", ""r""); | |
2352 | $ WS "setvbuf(foo, Buffer, 0, 0); | |
2353 | $ WS "exit(0); | |
2354 | $ WS "}" | |
2355 | $ CS | |
2356 | $ DEFINE SYS$ERROR _NLA0: | |
2357 | $ DEFINE SYS$OUTPUT _NLA0: | |
2358 | $ on error then continue | |
2359 | $ on warning then continue | |
9ef4b0a6 | 2360 | $ 'Checkcc' temp.c |
97abc6ad HM |
2361 | $ If (Needs_Opt.eqs."Yes") |
2362 | $ THEN | |
9ef4b0a6 | 2363 | $ link temp.obj,temp.opt/opt |
97abc6ad | 2364 | $ else |
9ef4b0a6 | 2365 | $ link temp.obj |
97abc6ad HM |
2366 | $ endif |
2367 | $ teststatus = f$extract(9,1,$status) | |
2368 | $ DEASSIGN SYS$OUTPUT | |
2369 | $ DEASSIGN SYS$ERROR | |
2370 | $ if (teststatus.nes."1") | |
2371 | $ THEN | |
2372 | $ perl_d_setvbuf="undef" | |
2373 | $ ELSE | |
2374 | $ perl_d_setvbuf="define" | |
2375 | $ ENDIF | |
2376 | $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'" | |
2377 | $! | |
cc391245 CB |
2378 | $! Check for setenv |
2379 | $! | |
2380 | $ OS | |
2381 | $ WS "#ifdef __DECC | |
2382 | $ WS "#include <stdlib.h> | |
2383 | $ WS "#endif | |
2384 | $ WS "#include <stdio.h> | |
2385 | $ WS "int main() | |
2386 | $ WS "{" | |
2387 | $ WS "setenv(""FOO"", ""BAR"", 0); | |
2388 | $ WS "exit(0); | |
2389 | $ WS "}" | |
2390 | $ CS | |
2391 | $ DEFINE SYS$ERROR _NLA0: | |
2392 | $ DEFINE SYS$OUTPUT _NLA0: | |
2393 | $ on error then continue | |
2394 | $ on warning then continue | |
2395 | $ 'Checkcc' temp | |
2396 | $ If (Needs_Opt.eqs."Yes") | |
2397 | $ THEN | |
2398 | $ link temp,temp/opt | |
2399 | $ else | |
2400 | $ link temp | |
2401 | $ endif | |
2402 | $ teststatus = f$extract(9,1,$status) | |
2403 | $ DEASSIGN SYS$OUTPUT | |
2404 | $ DEASSIGN SYS$ERROR | |
2405 | $ if (teststatus.nes."1") | |
2406 | $ THEN | |
2407 | $ perl_d_setenv="undef" | |
2408 | $ ELSE | |
2409 | $ perl_d_setenv="define" | |
2410 | $ ENDIF | |
2411 | $ WRITE_RESULT "d_setenv is ''perl_d_setenv'" | |
2412 | $! | |
97abc6ad HM |
2413 | $! Check for <netinet/in.h> |
2414 | $! | |
2415 | $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T") | |
2416 | $ THEN | |
2417 | $ OS | |
2418 | $ WS "#ifdef __DECC | |
2419 | $ WS "#include <stdlib.h> | |
2420 | $ WS "#endif | |
2421 | $ WS "#include <stdio.h> | |
2422 | $ if ("''Has_Socketshr'".eqs."T") | |
2423 | $ THEN | |
2424 | $ WS "#include <socketshr.h>" | |
2425 | $ else | |
2426 | $ WS "#include <netdb.h> | |
2427 | $ endif | |
2428 | $ WS "#include <netinet/in.h>" | |
2429 | $ WS "int main() | |
2430 | $ WS "{" | |
2431 | $ WS "exit(0); | |
2432 | $ WS "}" | |
2433 | $ CS | |
2434 | $ DEFINE SYS$ERROR _NLA0: | |
2435 | $ DEFINE SYS$OUTPUT _NLA0: | |
2436 | $ on error then continue | |
2437 | $ on warning then continue | |
9ef4b0a6 | 2438 | $ 'Checkcc' temp.c |
97abc6ad HM |
2439 | $ If (Needs_Opt.eqs."Yes") |
2440 | $ THEN | |
9ef4b0a6 | 2441 | $ link temp.obj,temp.opt/opt |
97abc6ad | 2442 | $ else |
9ef4b0a6 | 2443 | $ link temp.obj |
97abc6ad HM |
2444 | $ endif |
2445 | $ teststatus = f$extract(9,1,$status) | |
2446 | $ DEASSIGN SYS$OUTPUT | |
2447 | $ DEASSIGN SYS$ERROR | |
2448 | $ if (teststatus.nes."1") | |
2449 | $ THEN | |
2450 | $ perl_i_niin="undef" | |
2451 | $ ELSE | |
2452 | $ perl_i_niin="define" | |
2453 | $ ENDIF | |
2454 | $ ELSE | |
2455 | $ perl_i_niin="undef" | |
2456 | $ ENDIF | |
2457 | $ WRITE_RESULT "i_niin is ''perl_i_niin'" | |
2458 | $! | |
cc077a9f HM |
2459 | $! Check for <netinet/tcp.h> |
2460 | $! | |
2461 | $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T") | |
2462 | $ THEN | |
2463 | $ OS | |
2464 | $ WS "#ifdef __DECC | |
2465 | $ WS "#include <stdlib.h> | |
2466 | $ WS "#endif | |
2467 | $ WS "#include <stdio.h> | |
2468 | $ if ("''Has_Socketshr'".eqs."T") | |
2469 | $ THEN | |
2470 | $ WS "#include <socketshr.h>" | |
2471 | $ else | |
2472 | $ WS "#include <netdb.h> | |
2473 | $ endif | |
2474 | $ WS "#include <netinet/tcp.h>" | |
2475 | $ WS "int main() | |
2476 | $ WS "{" | |
2477 | $ WS "exit(0); | |
2478 | $ WS "}" | |
2479 | $ CS | |
2480 | $ DEFINE SYS$ERROR _NLA0: | |
2481 | $ DEFINE SYS$OUTPUT _NLA0: | |
2482 | $ on error then continue | |
2483 | $ on warning then continue | |
2484 | $ 'Checkcc' temp.c | |
2485 | $ If (Needs_Opt.eqs."Yes") | |
2486 | $ THEN | |
2487 | $ link temp.obj,temp.opt/opt | |
2488 | $ else | |
2489 | $ link temp.obj | |
2490 | $ endif | |
2491 | $ teststatus = f$extract(9,1,$status) | |
2492 | $ DEASSIGN SYS$OUTPUT | |
2493 | $ DEASSIGN SYS$ERROR | |
2494 | $ if (teststatus.nes."1") | |
2495 | $ THEN | |
2496 | $ perl_i_netinettcp="undef" | |
2497 | $ ELSE | |
2498 | $ perl_i_netinettcp="define" | |
2499 | $ ENDIF | |
2500 | $ ELSE | |
2501 | $ perl_i_netinettcp="undef" | |
2502 | $ ENDIF | |
2503 | $ WRITE_RESULT "i_netinettcp is ''perl_i_netinettcp'" | |
2504 | $! | |
97abc6ad HM |
2505 | $! Check for endhostent |
2506 | $! | |
2507 | $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T") | |
2508 | $ THEN | |
2509 | $ OS | |
2510 | $ WS "#ifdef __DECC | |
2511 | $ WS "#include <stdlib.h> | |
2512 | $ WS "#endif | |
2513 | $ WS "#include <stdio.h> | |
2514 | $ if ("''Has_Socketshr'".eqs."T") | |
2515 | $ THEN | |
2516 | $ WS "#include <socketshr.h>" | |
2517 | $ else | |
2518 | $ WS "#include <netdb.h> | |
2519 | $ endif | |
2520 | $ WS "int main() | |
2521 | $ WS "{" | |
2522 | $ WS "endhostent(); | |
2523 | $ WS "exit(0); | |
2524 | ||
2525 | $ CS | |
2526 | $ DEFINE SYS$ERROR _NLA0: | |
2527 | $ DEFINE SYS$OUTPUT _NLA0: | |
2528 | $ on error then continue | |
2529 | $ on warning then continue | |
9ef4b0a6 | 2530 | $ 'Checkcc' temp.c |
97abc6ad HM |
2531 | $ If (Needs_Opt.eqs."Yes") |
2532 | $ THEN | |
9ef4b0a6 | 2533 | $ link temp.obj,temp.opt/opt |
97abc6ad | 2534 | $ else |
9ef4b0a6 | 2535 | $ link temp.obj |
97abc6ad HM |
2536 | $ endif |
2537 | $ teststatus = f$extract(9,1,$status) | |
2538 | $ DEASSIGN SYS$OUTPUT | |
2539 | $ DEASSIGN SYS$ERROR | |
2540 | $ if (teststatus.nes."1") | |
2541 | $ THEN | |
2542 | $ perl_d_endhent="undef" | |
2543 | $ ELSE | |
2544 | $ perl_d_endhent="define" | |
2545 | $ ENDIF | |
2546 | $ ELSE | |
2547 | $ perl_d_endhent="undef" | |
2548 | $ ENDIF | |
2549 | $ WRITE_RESULT "d_endhent is ''perl_d_endhent'" | |
2550 | $! | |
2551 | $! Check for endnetent | |
2552 | $! | |
2553 | $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T") | |
2554 | $ THEN | |
2555 | $ OS | |
2556 | $ WS "#ifdef __DECC | |
2557 | $ WS "#include <stdlib.h> | |
2558 | $ WS "#endif | |
2559 | $ WS "#include <stdio.h> | |
2560 | $ if ("''Has_Socketshr'".eqs."T") | |
2561 | $ THEN | |
2562 | $ WS "#include <socketshr.h>" | |
2563 | $ else | |
2564 | $ WS "#include <netdb.h> | |
2565 | $ endif | |
2566 | $ WS "int main() | |
2567 | $ WS "{" | |
2568 | $ WS "endnetent(); | |
2569 | $ WS "exit(0); | |
2570 | $ WS "}" | |
2571 | $ CS | |
2572 | $ DEFINE SYS$ERROR _NLA0: | |
2573 | $ DEFINE SYS$OUTPUT _NLA0: | |
2574 | $ on error then continue | |
2575 | $ on warning then continue | |
9ef4b0a6 | 2576 | $ 'Checkcc' temp.c |
97abc6ad HM |
2577 | $ If (Needs_Opt.eqs."Yes") |
2578 | $ THEN | |
9ef4b0a6 | 2579 | $ link temp.obj,temp.opt/opt |
97abc6ad | 2580 | $ else |
9ef4b0a6 | 2581 | $ link temp.obj |
97abc6ad HM |
2582 | $ endif |
2583 | $ teststatus = f$extract(9,1,$status) | |
2584 | $ DEASSIGN SYS$OUTPUT | |
2585 | $ DEASSIGN SYS$ERROR | |
2586 | $ if (teststatus.nes."1") | |
2587 | $ THEN | |
2588 | $ perl_d_endnent="undef" | |
2589 | $ ELSE | |
2590 | $ perl_d_endnent="define" | |
2591 | $ ENDIF | |
2592 | $ ELSE | |
2593 | $ perl_d_endnent="undef" | |
2594 | $ ENDIF | |
2595 | $ WRITE_RESULT "d_endnent is ''perl_d_endnent'" | |
2596 | $! | |
2597 | $! Check for endprotoent | |
2598 | $! | |
2599 | $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T") | |
2600 | $ THEN | |
2601 | $ OS | |
2602 | $ WS "#ifdef __DECC | |
2603 | $ WS "#include <stdlib.h> | |
2604 | $ WS "#endif | |
2605 | $ WS "#include <stdio.h> | |
2606 | $ if ("''Has_Socketshr'".eqs."T") | |
2607 | $ THEN | |
2608 | $ WS "#include <socketshr.h>" | |
2609 | $ else | |
2610 | $ WS "#include <netdb.h> | |
2611 | $ endif | |
2612 | $ WS "int main() | |
2613 | $ WS "{" | |
2614 | $ WS "endprotoent(); | |
2615 | $ WS "exit(0); | |
2616 | $ WS "}" | |
2617 | $ CS | |
2618 | $ DEFINE SYS$ERROR _NLA0: | |
2619 | $ DEFINE SYS$OUTPUT _NLA0: | |
2620 | $ on error then continue | |
2621 | $ on warning then continue | |
9ef4b0a6 | 2622 | $ 'Checkcc' temp.c |
97abc6ad HM |
2623 | $ If (Needs_Opt.eqs."Yes") |
2624 | $ THEN | |
9ef4b0a6 | 2625 | $ link temp.obj,temp.opt/opt |
97abc6ad | 2626 | $ else |
9ef4b0a6 | 2627 | $ link temp.obj |
97abc6ad HM |
2628 | $ endif |
2629 | $ teststatus = f$extract(9,1,$status) | |
2630 | $ DEASSIGN SYS$OUTPUT | |
2631 | $ DEASSIGN SYS$ERROR | |
2632 | $ if (teststatus.nes."1") | |
2633 | $ THEN | |
2634 | $ perl_d_endpent="undef" | |
2635 | $ ELSE | |
2636 | $ perl_d_endpent="define" | |
2637 | $ ENDIF | |
2638 | $ ELSE | |
2639 | $ perl_d_endpent="undef" | |
2640 | $ ENDIF | |
2641 | $ WRITE_RESULT "d_endpent is ''perl_d_endpent'" | |
2642 | $! | |
2643 | $! Check for endservent | |
2644 | $! | |
2645 | $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T") | |
2646 | $ THEN | |
2647 | $ OS | |
2648 | $ WS "#ifdef __DECC | |
2649 | $ WS "#include <stdlib.h> | |
2650 | $ WS "#endif | |
2651 | $ WS "#include <stdio.h> | |
2652 | $ if ("''Has_Socketshr'".eqs."T") | |
2653 | $ THEN | |
2654 | $ WS "#include <socketshr.h>" | |
2655 | $ else | |
2656 | $ WS "#include <netdb.h> | |
2657 | $ endif | |
2658 | $ WS "int main() | |
2659 | $ WS "{" | |
2660 | $ WS "endservent(); | |
2661 | $ WS "exit(0); | |
2662 | $ WS "}" | |
2663 | $ CS | |
2664 | $ DEFINE SYS$ERROR _NLA0: | |
2665 | $ DEFINE SYS$OUTPUT _NLA0: | |
2666 | $ on error then continue | |
2667 | $ on warning then continue | |
9ef4b0a6 | 2668 | $ 'Checkcc' temp.c |
97abc6ad HM |
2669 | $ If (Needs_Opt.eqs."Yes") |
2670 | $ THEN | |
9ef4b0a6 | 2671 | $ link temp.obj,temp.opt/opt |
97abc6ad | 2672 | $ else |
9ef4b0a6 | 2673 | $ link temp.obj |
97abc6ad HM |
2674 | $ endif |
2675 | $ teststatus = f$extract(9,1,$status) | |
2676 | $ DEASSIGN SYS$OUTPUT | |
2677 | $ DEASSIGN SYS$ERROR | |
2678 | $ if (teststatus.nes."1") | |
2679 | $ THEN | |
2680 | $ perl_d_endsent="undef" | |
2681 | $ ELSE | |
2682 | $ perl_d_endsent="define" | |
2683 | $ ENDIF | |
2684 | $ ELSE | |
2685 | $ perl_d_endsent="undef" | |
2686 | $ ENDIF | |
2687 | $ WRITE_RESULT "d_endsent is ''perl_d_endsent'" | |
2688 | $! | |
2689 | $! Check for sethostent | |
2690 | $! | |
2691 | $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T") | |
2692 | $ THEN | |
2693 | $ OS | |
2694 | $ WS "#ifdef __DECC | |
2695 | $ WS "#include <stdlib.h> | |
2696 | $ WS "#endif | |
2697 | $ WS "#include <stdio.h> | |
2698 | $ if ("''Has_Socketshr'".eqs."T") | |
2699 | $ THEN | |
2700 | $ WS "#include <socketshr.h>" | |
2701 | $ else | |
2702 | $ WS "#include <netdb.h> | |
2703 | $ endif | |
2704 | $ WS "int main() | |
2705 | $ WS "{" | |
2706 | $ WS "sethostent(1); | |
2707 | $ WS "exit(0); | |
2708 | $ WS "}" | |
2709 | $ CS | |
2710 | $ DEFINE SYS$ERROR _NLA0: | |
2711 | $ DEFINE SYS$OUTPUT _NLA0: | |
2712 | $ on error then continue | |
2713 | $ on warning then continue | |
9ef4b0a6 | 2714 | $ 'Checkcc' temp.c |
97abc6ad HM |
2715 | $ If (Needs_Opt.eqs."Yes") |
2716 | $ THEN | |
9ef4b0a6 | 2717 | $ link temp.obj,temp.opt/opt |
97abc6ad | 2718 | $ else |
9ef4b0a6 | 2719 | $ link temp.obj |
97abc6ad HM |
2720 | $ endif |
2721 | $ teststatus = f$extract(9,1,$status) | |
2722 | $ DEASSIGN SYS$OUTPUT | |
2723 | $ DEASSIGN SYS$ERROR | |
2724 | $ if (teststatus.nes."1") | |
2725 | $ THEN | |
2726 | $ perl_d_sethent="undef" | |
2727 | $ ELSE | |
2728 | $ perl_d_sethent="define" | |
2729 | $ ENDIF | |
2730 | $ ELSE | |
2731 | $ perl_d_sethent="undef" | |
2732 | $ ENDIF | |
2733 | $ WRITE_RESULT "d_sethent is ''perl_d_sethent'" | |
2734 | $! | |
2735 | $! Check for setnetent | |
2736 | $! | |
2737 | $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T") | |
2738 | $ THEN | |
2739 | $ OS | |
2740 | $ WS "#ifdef __DECC | |
2741 | $ WS "#include <stdlib.h> | |
2742 | $ WS "#endif | |
2743 | $ WS "#include <stdio.h> | |
2744 | $ if ("''Has_Socketshr'".eqs."T") | |
2745 | $ THEN | |
2746 | $ WS "#include <socketshr.h>" | |
2747 | $ else | |
2748 | $ WS "#include <netdb.h> | |
2749 | $ endif | |
2750 | $ WS "int main() | |
2751 | $ WS "{" | |
2752 | $ WS "setnetent(1); | |
2753 | $ WS "exit(0); | |
2754 | $ WS "}" | |
2755 | $ CS | |
2756 | $ DEFINE SYS$ERROR _NLA0: | |
2757 | $ DEFINE SYS$OUTPUT _NLA0: | |
2758 | $ on error then continue | |
2759 | $ on warning then continue | |
9ef4b0a6 | 2760 | $ 'Checkcc' temp.c |
97abc6ad HM |
2761 | $ If (Needs_Opt.eqs."Yes") |
2762 | $ THEN | |
9ef4b0a6 | 2763 | $ link temp.obj,temp.opt/opt |
97abc6ad | 2764 | $ else |
9ef4b0a6 | 2765 | $ link temp.obj |
97abc6ad HM |
2766 | $ endif |
2767 | $ teststatus = f$extract(9,1,$status) | |
2768 | $ DEASSIGN SYS$OUTPUT | |
2769 | $ DEASSIGN SYS$ERROR | |
2770 | $ if (teststatus.nes."1") | |
2771 | $ THEN | |
2772 | $ perl_d_setnent="undef" | |
2773 | $ ELSE | |
2774 | $ perl_d_setnent="define" | |
2775 | $ ENDIF | |
2776 | $ ELSE | |
2777 | $ perl_d_setnent="undef" | |
2778 | $ ENDIF | |
2779 | $ WRITE_RESULT "d_setnent is ''perl_d_setnent'" | |
2780 | $! | |
2781 | $! Check for setprotoent | |
2782 | $! | |
2783 | $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T") | |
2784 | $ THEN | |
2785 | $ OS | |
2786 | $ WS "#ifdef __DECC | |
2787 | $ WS "#include <stdlib.h> | |
2788 | $ WS "#endif | |
2789 | $ WS "#include <stdio.h> | |
2790 | $ if ("''Has_Socketshr'".eqs."T") | |
2791 | $ THEN | |
2792 | $ WS "#include <socketshr.h>" | |
2793 | $ else | |
2794 | $ WS "#include <netdb.h> | |
2795 | $ endif | |
2796 | $ WS "int main() | |
2797 | $ WS "{" | |
2798 | $ WS "setprotoent(1); | |
2799 | $ WS "exit(0); | |
2800 | $ WS "}" | |
2801 | $ CS | |
2802 | $ DEFINE SYS$ERROR _NLA0: | |
2803 | $ DEFINE SYS$OUTPUT _NLA0: | |
2804 | $ on error then continue | |
2805 | $ on warning then continue | |
9ef4b0a6 | 2806 | $ 'Checkcc' temp.c |
97abc6ad HM |
2807 | $ If (Needs_Opt.eqs."Yes") |
2808 | $ THEN | |
9ef4b0a6 | 2809 | $ link temp.obj,temp.opt/opt |
97abc6ad | 2810 | $ else |
9ef4b0a6 | 2811 | $ link temp.obj |
97abc6ad HM |
2812 | $ endif |
2813 | $ teststatus = f$extract(9,1,$status) | |
2814 | $ DEASSIGN SYS$OUTPUT | |
2815 | $ DEASSIGN SYS$ERROR | |
2816 | $ if (teststatus.nes."1") | |
2817 | $ THEN | |
2818 | $ perl_d_setpent="undef" | |
2819 | $ ELSE | |
2820 | $ perl_d_setpent="define" | |
2821 | $ ENDIF | |
2822 | $ ELSE | |
2823 | $ perl_d_setpent="undef" | |
2824 | $ ENDIF | |
2825 | $ WRITE_RESULT "d_setpent is ''perl_d_setpent'" | |
2826 | $! | |
2827 | $! Check for setservent | |
2828 | $! | |
2829 | $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T") | |
2830 | $ THEN | |
2831 | $ OS | |
2832 | $ WS "#ifdef __DECC | |
2833 | $ WS "#include <stdlib.h> | |
2834 | $ WS "#endif | |
2835 | $ WS "#include <stdio.h> | |
2836 | $ if ("''Has_Socketshr'".eqs."T") | |
2837 | $ THEN | |
2838 | $ WS "#include <socketshr.h>" | |
2839 | $ else | |
2840 | $ WS "#include <netdb.h> | |
2841 | $ endif | |
2842 | $ WS "int main() | |
2843 | $ WS "{" | |
2844 | $ WS "setservent(1); | |
2845 | $ WS "exit(0); | |
2846 | $ WS "}" | |
2847 | $ CS | |
2848 | $ DEFINE SYS$ERROR _NLA0: | |
2849 | $ DEFINE SYS$OUTPUT _NLA0: | |
2850 | $ on error then continue | |
2851 | $ on warning then continue | |
9ef4b0a6 | 2852 | $ 'Checkcc' temp.c |
97abc6ad HM |
2853 | $ If (Needs_Opt.eqs."Yes") |
2854 | $ THEN | |
9ef4b0a6 | 2855 | $ link temp.obj,temp.opt/opt |
97abc6ad | 2856 | $ else |
9ef4b0a6 | 2857 | $ link temp.obj |
97abc6ad HM |
2858 | $ endif |
2859 | $ teststatus = f$extract(9,1,$status) | |
2860 | $ DEASSIGN SYS$OUTPUT | |
2861 | $ DEASSIGN SYS$ERROR | |
2862 | $ if (teststatus.nes."1") | |
2863 | $ THEN | |
2864 | $ perl_d_setsent="undef" | |
2865 | $ ELSE | |
2866 | $ perl_d_setsent="define" | |
2867 | $ ENDIF | |
2868 | $ ELSE | |
2869 | $ perl_d_setsent="undef" | |
2870 | $ ENDIF | |
2871 | $ WRITE_RESULT "d_setsent is ''perl_d_setsent'" | |
2872 | $! | |
2873 | $! Check for gethostent | |
2874 | $! | |
2875 | $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T") | |
2876 | $ THEN | |
2877 | $ OS | |
2878 | $ WS "#ifdef __DECC | |
2879 | $ WS "#include <stdlib.h> | |
2880 | $ WS "#endif | |
2881 | $ WS "#include <stdio.h> | |
2882 | $ if ("''Has_Socketshr'".eqs."T") | |
2883 | $ THEN | |
2884 | $ WS "#include <socketshr.h>" | |
2885 | $ else | |
2886 | $ WS "#include <netdb.h> | |
2887 | $ endif | |
2888 | $ WS "int main() | |
2889 | $ WS "{" | |
2890 | $ WS "gethostent(); | |
2891 | $ WS "exit(0); | |
2892 | $ WS "}" | |
2893 | $ CS | |
2894 | $ DEFINE SYS$ERROR _NLA0: | |
2895 | $ DEFINE SYS$OUTPUT _NLA0: | |
2896 | $ on error then continue | |
2897 | $ on warning then continue | |
9ef4b0a6 | 2898 | $ 'Checkcc' temp.c |
97abc6ad HM |
2899 | $ If (Needs_Opt.eqs."Yes") |
2900 | $ THEN | |
9ef4b0a6 | 2901 | $ link temp.obj,temp.opt/opt |
97abc6ad | 2902 | $ else |
9ef4b0a6 | 2903 | $ link temp.obj |
97abc6ad HM |
2904 | $ endif |
2905 | $ teststatus = f$extract(9,1,$status) | |
2906 | $ DEASSIGN SYS$OUTPUT | |
2907 | $ DEASSIGN SYS$ERROR | |
2908 | $ if (teststatus.nes."1") | |
2909 | $ THEN | |
2910 | $ perl_d_gethent="undef" | |
2911 | $ ELSE | |
2912 | $ perl_d_gethent="define" | |
2913 | $ ENDIF | |
2914 | $ ELSE | |
2915 | $ perl_d_gethent="undef" | |
2916 | $ ENDIF | |
2917 | $ WRITE_RESULT "d_gethent is ''perl_d_gethent'" | |
2918 | $! | |
2919 | $! Check for getnetent | |
2920 | $! | |
2921 | $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T") | |
2922 | $ THEN | |
2923 | $ OS | |
2924 | $ WS "#ifdef __DECC | |
2925 | $ WS "#include <stdlib.h> | |
2926 | $ WS "#endif | |
2927 | $ WS "#include <stdio.h> | |
2928 | $ if ("''Has_Socketshr'".eqs."T") | |
2929 | $ THEN | |
2930 | $ WS "#include <socketshr.h>" | |
2931 | $ else | |
2932 | $ WS "#include <netdb.h> | |
2933 | $ endif | |
2934 | $ WS "int main() | |
2935 | $ WS "{" | |
2936 | $ WS "getnetent(); | |
2937 | $ WS "exit(0); | |
2938 | $ WS "}" | |
2939 | $ CS | |
2940 | $ DEFINE SYS$ERROR _NLA0: | |
2941 | $ DEFINE SYS$OUTPUT _NLA0: | |
2942 | $ on error then continue | |
2943 | $ on warning then continue | |
9ef4b0a6 | 2944 | $ 'Checkcc' temp.c |
97abc6ad HM |
2945 | $ If (Needs_Opt.eqs."Yes") |
2946 | $ THEN | |
9ef4b0a6 | 2947 | $ link temp.obj,temp.opt/opt |
97abc6ad | 2948 | $ else |
9ef4b0a6 | 2949 | $ link temp.obj |
97abc6ad HM |
2950 | $ endif |
2951 | $ teststatus = f$extract(9,1,$status) | |
2952 | $ DEASSIGN SYS$OUTPUT | |
2953 | $ DEASSIGN SYS$ERROR | |
2954 | $ if (teststatus.nes."1") | |
2955 | $ THEN | |
2956 | $ perl_d_getnent="undef" | |
2957 | $ ELSE | |
2958 | $ perl_d_getnent="define" | |
2959 | $ ENDIF | |
2960 | $ ELSE | |
2961 | $ perl_d_getnent="undef" | |
2962 | $ ENDIF | |
2963 | $ WRITE_RESULT "d_getnent is ''perl_d_getnent'" | |
2964 | $! | |
2965 | $! Check for getprotoent | |
2966 | $! | |
2967 | $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T") | |
2968 | $ THEN | |
2969 | $ OS | |
2970 | $ WS "#ifdef __DECC | |
2971 | $ WS "#include <stdlib.h> | |
2972 | $ WS "#endif | |
2973 | $ WS "#include <stdio.h> | |
2974 | $ if ("''Has_Socketshr'".eqs."T") | |
2975 | $ THEN | |
2976 | $ WS "#include <socketshr.h>" | |
2977 | $ else | |
2978 | $ WS "#include <netdb.h> | |
2979 | $ endif | |
2980 | $ WS "int main() | |
2981 | $ WS "{" | |
2982 | $ WS "getprotoent(); | |
2983 | $ WS "exit(0); | |
2984 | $ WS "}" | |
2985 | $ CS | |
2986 | $ DEFINE SYS$ERROR _NLA0: | |
2987 | $ DEFINE SYS$OUTPUT _NLA0: | |
2988 | $ on error then continue | |
2989 | $ on warning then continue | |
9ef4b0a6 | 2990 | $ 'Checkcc' temp.c |
97abc6ad HM |
2991 | $ If (Needs_Opt.eqs."Yes") |
2992 | $ THEN | |
9ef4b0a6 | 2993 | $ link temp.obj,temp.opt/opt |
97abc6ad | 2994 | $ else |
9ef4b0a6 | 2995 | $ link temp.obj |
97abc6ad HM |
2996 | $ endif |
2997 | $ teststatus = f$extract(9,1,$status) | |
2998 | $ DEASSIGN SYS$OUTPUT | |
2999 | $ DEASSIGN SYS$ERROR | |
3000 | $ if (teststatus.nes."1") | |
3001 | $ THEN | |
3002 | $ perl_d_getpent="undef" | |
3003 | $ ELSE | |
3004 | $ perl_d_getpent="define" | |
3005 | $ ENDIF | |
3006 | $ ELSE | |
3007 | $ perl_d_getpent="undef" | |
3008 | $ ENDIF | |
3009 | $ WRITE_RESULT "d_getpent is ''perl_d_getpent'" | |
3010 | $! | |
3011 | $! Check for getservent | |
3012 | $! | |
3013 | $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T") | |
3014 | $ THEN | |
3015 | $ OS | |
3016 | $ WS "#ifdef __DECC | |
3017 | $ WS "#include <stdlib.h> | |
3018 | $ WS "#endif | |
3019 | $ WS "#include <stdio.h> | |
3020 | $ if ("''Has_Socketshr'".eqs."T") | |
3021 | $ THEN | |
3022 | $ WS "#include <socketshr.h>" | |
3023 | $ else | |
3024 | $ WS "#include <netdb.h> | |
3025 | $ endif | |
3026 | $ WS "int main() | |
3027 | $ WS "{" | |
3028 | $ WS "getservent(); | |
3029 | $ WS "exit(0); | |
3030 | $ WS "}" | |
3031 | $ CS | |
3032 | $ DEFINE SYS$ERROR _NLA0: | |
3033 | $ DEFINE SYS$OUTPUT _NLA0: | |
3034 | $ on error then continue | |
3035 | $ on warning then continue | |
9ef4b0a6 | 3036 | $ 'Checkcc' temp.c |
97abc6ad HM |
3037 | $ If (Needs_Opt.eqs."Yes") |
3038 | $ THEN | |
9ef4b0a6 | 3039 | $ link temp.obj,temp.opt/opt |
97abc6ad | 3040 | $ else |
9ef4b0a6 | 3041 | $ link temp.obj |
97abc6ad HM |
3042 | $ endif |
3043 | $ teststatus = f$extract(9,1,$status) | |
3044 | $ DEASSIGN SYS$OUTPUT | |
3045 | $ DEASSIGN SYS$ERROR | |
3046 | $ if (teststatus.nes."1") | |
3047 | $ THEN | |
3048 | $ perl_d_getsent="undef" | |
3049 | $ ELSE | |
3050 | $ perl_d_getsent="define" | |
3051 | $ ENDIF | |
3052 | $ ELSE | |
3053 | $ perl_d_getsent="undef" | |
3054 | $ ENDIF | |
3055 | $ WRITE_RESULT "d_getsent is ''perl_d_getsent'" | |
3056 | $! | |
27d4bd77 JH |
3057 | $! Check for socklen_t |
3058 | $! | |
3059 | $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T") | |
3060 | $ THEN | |
3061 | $ OS | |
3062 | $ WS "#ifdef __DECC | |
3063 | $ WS "#include <stdlib.h> | |
3064 | $ WS "#endif | |
3065 | $ WS "#include <stdio.h> | |
3066 | $ IF ("''Has_Socketshr'".eqs."T") | |
3067 | $ THEN | |
3068 | $ WS "#include <socketshr.h>" | |
3069 | $ ELSE | |
3070 | $ WS "#include <netdb.h> | |
3071 | $ ENDIF | |
3072 | $ WS "int main() | |
3073 | $ WS "{" | |
3074 | $ WS "socklen_t x = 16; | |
3075 | $ WS "exit(0); | |
3076 | $ WS "}" | |
3077 | $ CS | |
3078 | $ DEFINE SYS$ERROR _NLA0: | |
3079 | $ DEFINE SYS$OUTPUT _NLA0: | |
3080 | $ on error then continue | |
3081 | $ on warning then continue | |
3082 | $ 'Checkcc' temp.c | |
3083 | $ If (Needs_Opt.eqs."Yes") | |
3084 | $ THEN | |
3085 | $ link temp.obj,temp.opt/opt | |
3086 | $ else | |
3087 | $ link temp.obj | |
3088 | $ endif | |
3089 | $ teststatus = f$extract(9,1,$status) | |
3090 | $ DEASSIGN SYS$OUTPUT | |
3091 | $ DEASSIGN SYS$ERROR | |
3092 | $ if (teststatus.nes."1") | |
3093 | $ THEN | |
3094 | $ perl_d_socklen_t="undef" | |
3095 | $ ELSE | |
3096 | $ perl_d_socklen_t="define" | |
3097 | $ ENDIF | |
3098 | $ ELSE | |
3099 | $ perl_d_socklen_t="undef" | |
3100 | $ ENDIF | |
3101 | $ WRITE_RESULT "d_socklen_t is ''perl_d_socklen_t'" | |
3102 | $! | |
97abc6ad HM |
3103 | $! Check for pthread_yield |
3104 | $! | |
3105 | $ if ("''use_threads'".eqs."T") | |
3106 | $ THEN | |
3107 | $ OS | |
3108 | $ WS "#ifdef __DECC | |
3109 | $ WS "#include <stdlib.h> | |
3110 | $ WS "#endif | |
3111 | $ WS "#include <pthread.h> | |
3112 | $ WS "#include <stdio.h> | |
3113 | $ WS "int main() | |
3114 | $ WS "{" | |
3115 | $ WS "pthread_yield(); | |
3116 | $ WS "exit(0); | |
3117 | $ WS "}" | |
3118 | $ CS | |
3119 | $ DEFINE SYS$ERROR _NLA0: | |
3120 | $ DEFINE SYS$OUTPUT _NLA0: | |
3121 | $ on error then continue | |
3122 | $ on warning then continue | |
9ef4b0a6 | 3123 | $ 'Checkcc' temp.c |
97abc6ad HM |
3124 | $ teststatus = f$extract(9,1,$status) |
3125 | $ DEASSIGN SYS$OUTPUT | |
3126 | $ DEASSIGN SYS$ERROR | |
3127 | $ if (teststatus.nes."1") | |
3128 | $ THEN | |
3129 | $ perl_d_pthread_yield="undef" | |
3130 | $ ELSE | |
3131 | $ perl_d_pthread_yield="define" | |
3132 | $ ENDIF | |
3133 | $ ELSE | |
3134 | $ perl_d_pthread_yield="undef" | |
3135 | $ ENDIF | |
3136 | $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'" | |
3137 | $! | |
3138 | $! Check for sched_yield | |
3139 | $! | |
3140 | $ if ("''use_threads'".eqs."T") | |
3141 | $ THEN | |
3142 | $ OS | |
3143 | $ WS "#ifdef __DECC | |
3144 | $ WS "#include <stdlib.h> | |
3145 | $ WS "#endif | |
3146 | $ WS "#include <pthread.h> | |
3147 | $ WS "#include <stdio.h> | |
3148 | $ WS "int main() | |
3149 | $ WS "{" | |
3150 | $ WS "sched_yield(); | |
3151 | $ WS "exit(0); | |
3152 | $ WS "}" | |
3153 | $ CS | |
3154 | $ DEFINE SYS$ERROR _NLA0: | |
3155 | $ DEFINE SYS$OUTPUT _NLA0: | |
3156 | $ on error then continue | |
3157 | $ on warning then continue | |
9ef4b0a6 | 3158 | $ 'Checkcc' temp.c |
97abc6ad HM |
3159 | $ teststatus = f$extract(9,1,$status) |
3160 | $ DEASSIGN SYS$OUTPUT | |
3161 | $ DEASSIGN SYS$ERROR | |
3162 | $ if (teststatus.nes."1") | |
3163 | $ THEN | |
3164 | $ perl_d_sched_yield="undef" | |
cc077a9f | 3165 | $ perl_sched_yield = " " |
97abc6ad HM |
3166 | $ ELSE |
3167 | $ perl_d_sched_yield="define" | |
cc077a9f | 3168 | $ perl_sched_yield = "sched_yield" |
97abc6ad HM |
3169 | $ ENDIF |
3170 | $ ELSE | |
3171 | $ perl_d_sched_yield="undef" | |
cc077a9f | 3172 | $ perl_sched_yield = " " |
97abc6ad HM |
3173 | $ ENDIF |
3174 | $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'" | |
cc077a9f | 3175 | $ WRITE_RESULT "sched_yield is ''perl_sched_yield'" |
97abc6ad HM |
3176 | $! |
3177 | $! Check for generic pointer size | |
3178 | $! | |
3179 | $ OS | |
3180 | $ WS "#ifdef __DECC | |
3181 | $ WS "#include <stdlib.h> | |
3182 | $ WS "#endif | |
3183 | $ WS "#include <stdio.h> | |
3184 | $ WS "int main() | |
3185 | $ WS "{" | |
429a5e67 DS |
3186 | $ WS "int foo; |
3187 | $ WS "foo = sizeof(char *); | |
3188 | $ WS "printf(""%d\n"", foo); | |
97abc6ad HM |
3189 | $ WS "exit(0); |
3190 | $ WS "}" | |
3191 | $ CS | |
a52cb5f7 JH |
3192 | $ DEFINE SYS$ERROR _NLA0: |
3193 | $ DEFINE SYS$OUTPUT _NLA0: | |
3194 | $ ON ERROR THEN CONTINUE | |
3195 | $ ON WARNING THEN CONTINUE | |
3196 | $ 'Checkcc' temp.c | |
3197 | $ If (Needs_Opt.eqs."Yes") | |
3198 | $ THEN | |
3199 | $ link temp.obj,temp.opt/opt | |
3200 | $ ELSE | |
3201 | $ link temp.obj | |
3202 | $ ENDIF | |
3203 | $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis | |
3204 | $ DEASSIGN SYS$OUTPUT | |
3205 | $ DEASSIGN SYS$ERROR | |
3206 | $ DEFINE SYS$ERROR TEMPOUT | |
3207 | $ DEFINE SYS$OUTPUT TEMPOUT | |
3208 | $ mcr []temp.exe | |
3209 | $ CLOSE TEMPOUT | |
3210 | $ DEASSIGN SYS$OUTPUT | |
3211 | $ DEASSIGN SYS$ERROR | |
3212 | $ OPEN/READ TEMPOUT [-.uu]tempout.lis | |
3213 | $ READ TEMPOUT line | |
3214 | $ CLOSE TEMPOUT | |
3215 | $ DELETE/NOLOG [-.uu]tempout.lis; | |
97abc6ad HM |
3216 | $ |
3217 | $ perl_ptrsize=line | |
3218 | $ WRITE_RESULT "ptrsize is ''perl_ptrsize'" | |
3219 | $! | |
ee8c7f54 CB |
3220 | $! Check for size_t size |
3221 | $! | |
3222 | $ OS | |
3223 | $ WS "#ifdef __DECC | |
3224 | $ WS "#include <stdlib.h> | |
3225 | $ WS "#endif | |
3226 | $ WS "#include <stdio.h> | |
3227 | $ WS "int main() | |
3228 | $ WS "{" | |
3229 | $ WS "int foo; | |
3230 | $ WS "foo = sizeof(size_t); | |
3231 | $ WS "printf(""%d\n"", foo); | |
3232 | $ WS "exit(0); | |
3233 | $ WS "}" | |
3234 | $ CS | |
3235 | $ DEFINE SYS$ERROR _NLA0: | |
3236 | $ DEFINE SYS$OUTPUT _NLA0: | |
3237 | $ ON ERROR THEN CONTINUE | |
3238 | $ ON WARNING THEN CONTINUE | |
3239 | $ 'Checkcc' temp.c | |
3240 | $ If Needs_Opt | |
3241 | $ THEN | |
3242 | $ link temp.obj,temp.opt/opt | |
3243 | $ else | |
3244 | $ link temp.obj | |
3245 | $ endif | |
3246 | $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis | |
3247 | $ DEASSIGN SYS$OUTPUT | |
3248 | $ DEASSIGN SYS$ERROR | |
3249 | $ DEFINE SYS$ERROR TEMPOUT | |
3250 | $ DEFINE SYS$OUTPUT TEMPOUT | |
3251 | $ mcr []temp | |
3252 | $ CLOSE TEMPOUT | |
3253 | $ DEASSIGN SYS$OUTPUT | |
3254 | $ DEASSIGN SYS$ERROR | |
3255 | $ OPEN/READ TEMPOUT [-.uu]tempout.lis | |
3256 | $ READ TEMPOUT line | |
3257 | $ CLOSE TEMPOUT | |
3258 | $ DELETE/NOLOG [-.uu]tempout.lis; | |
3259 | $ | |
3260 | $ perl_sizesize=line | |
3261 | $ WRITE_RESULT "sizesize is ''perl_sizesize'" | |
3262 | $! | |
3eeba6fb CB |
3263 | $! Check rand48 and its ilk |
3264 | $! | |
3265 | $ OS | |
3266 | $ WS "#ifdef __DECC | |
3267 | $ WS "#include <stdlib.h> | |
3268 | $ WS "#endif | |
3269 | $ WS "#include <stdio.h> | |
3270 | $ WS "int main() | |
3271 | $ WS "{" | |
3272 | $ WS "srand48(12L);" | |
3273 | $ WS "exit(0); | |
3274 | $ WS "}" | |
3275 | $ CS | |
3eeba6fb CB |
3276 | $! |
3277 | $ DEFINE SYS$ERROR _NLA0: | |
3278 | $ DEFINE SYS$OUTPUT _NLA0: | |
3279 | $ ON ERROR THEN CONTINUE | |
3280 | $ ON WARNING THEN CONTINUE | |
3281 | $ 'Checkcc' temp | |
3282 | $ If (Needs_Opt.eqs."Yes") | |
3283 | $ THEN | |
3284 | $ link temp,temp.opt/opt | |
3285 | $ else | |
3286 | $ link temp | |
3287 | $ endif | |
3288 | $ teststatus = f$extract(9,1,$status) | |
3289 | $ DEASSIGN SYS$OUTPUT | |
3290 | $ DEASSIGN SYS$ERROR | |
3291 | $ if (teststatus.nes."1") | |
3292 | $ THEN | |
3293 | $ perl_drand01="random()" | |
3294 | $ perl_randseedtype = "unsigned" | |
3295 | $ perl_seedfunc = "srandom" | |
3296 | $ ENDIF | |
3297 | $ OS | |
3298 | $ WS "#ifdef __DECC | |
3299 | $ WS "#include <stdlib.h> | |
3300 | $ WS "#endif | |
3301 | $ WS "#include <stdio.h> | |
3302 | $ WS "int main() | |
3303 | $ WS "{" | |
3304 | $ WS "srandom(12);" | |
3305 | $ WS "exit(0); | |
3306 | $ WS "}" | |
3307 | $ CS | |
3308 | $! copy temp.c sys$output | |
3309 | $! | |
3310 | $ DEFINE SYS$ERROR _NLA0: | |
3311 | $ DEFINE SYS$OUTPUT _NLA0: | |
3312 | $ ON ERROR THEN CONTINUE | |
3313 | $ ON WARNING THEN CONTINUE | |
3314 | $ 'Checkcc' temp | |
3315 | $ If (Needs_Opt.eqs."Yes") | |
3316 | $ THEN | |
3317 | $ link temp,temp.opt/opt | |
3318 | $ else | |
3319 | $ link temp | |
3320 | $ endif | |
3321 | $ teststatus = f$extract(9,1,$status) | |
3322 | $ DEASSIGN SYS$OUTPUT | |
3323 | $ DEASSIGN SYS$ERROR | |
3324 | $ if (teststatus.nes."1") | |
3325 | $ THEN | |
3326 | $ perl_drand01="(((float)rand())/((float)RAND_MAX))" | |
3327 | $ perl_randseedtype = "unsigned" | |
3328 | $ perl_seedfunc = "srand" | |
3329 | $ ENDIF | |
3330 | $ WRITE_RESULT "drand01 is ''perl_drand01'" | |
3331 | $! | |
97abc6ad HM |
3332 | $ set nover |
3333 | $! Done with compiler checks. Clean up. | |
3334 | $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;* | |
3335 | $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;* | |
3336 | $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;* | |
3337 | $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;* | |
3338 | $! | |
3339 | $! | |
3340 | $! Some that are compiler or VMS version sensitive | |
3341 | $! | |
3342 | $! Gnu C stuff | |
3343 | $ IF "''Using_Gnu_C'".EQS."Yes" | |
3344 | $ THEN | |
3345 | $ perl_d_attribut="define" | |
3346 | $ perl_vms_cc_type="gcc" | |
3347 | $ ELSE | |
5af06f0d | 3348 | $ perl_vms_cc_type="cc" |
97abc6ad HM |
3349 | $ perl_d_attribut="undef" |
3350 | $ ENDIF | |
3351 | $ | |
3352 | $! Dec C >= 5.2 and VMS ver >= 7.0 | |
464ff92e | 3353 | $ IF (Using_Dec_C).AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.(VMS_VER .GES. "7.0") |
97abc6ad HM |
3354 | $ THEN |
3355 | $ perl_d_bcmp="define" | |
3356 | $ perl_d_gettimeod="define" | |
3357 | $ perl_d_uname="define" | |
3358 | $ perl_d_sigaction="define" | |
3359 | $ perl_d_truncate="define" | |
3360 | $ perl_d_wait4="define" | |
3361 | $ perl_d_index="define" | |
3362 | $ perl_pidtype="pid_t" | |
3363 | $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2 SPARE18 SPARE19 CHLD CONT STOP TSTP TTIN TTOU DEBUG SPARE27 SPARE28 SPARE29 SPARE30 SPARE31 SPARE32 RTMIN RTMAX"",0" | |
3364 | $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS""," | |
3365 | $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP""," | |
3366 | $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0" | |
3367 | $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3 | |
a3ba788f JH |
3368 | $ perl_sig_num="0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 6 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 64"","0" |
3369 | $ perl_sig_num_init="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,64,0" | |
3370 | $ perl_sig_num_with_commas=perl_sig_num_init | |
97abc6ad HM |
3371 | $ perl_uidtype="uid_t" |
3372 | $ perl_d_pathconf="define" | |
3373 | $ perl_d_fpathconf="define" | |
3374 | $ perl_d_sysconf="define" | |
3375 | $ perl_d_sigsetjmp="define" | |
3376 | $ ELSE | |
3377 | $ perl_pidtype="unsigned int" | |
3378 | $ perl_d_gettimeod="undef" | |
3379 | $ perl_d_bcmp="undef" | |
3380 | $ perl_d_uname="undef" | |
3381 | $ perl_d_sigaction="undef" | |
3382 | $ perl_d_truncate="undef" | |
3383 | $ perl_d_wait4="undef" | |
3384 | $ perl_d_index="undef" | |
3385 | $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0" | |
3386 | $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS""," | |
3387 | $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0" | |
3388 | $ perl_sig_name_with_commas = psnwc1 + psnwc2 | |
a3ba788f JH |
3389 | $ perl_sig_num="0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 6 16 17"",0" |
3390 | $ perl_sig_num_init="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0" | |
3391 | $ perl_sig_num_with_commas=perl_sig_num_init | |
97abc6ad HM |
3392 | $ perl_uidtype="unsigned int" |
3393 | $ perl_d_pathconf="undef" | |
3394 | $ perl_d_fpathconf="undef" | |
3395 | $ perl_d_sysconf="undef" | |
3396 | $ perl_d_sigsetjmp="undef" | |
3397 | $ ENDIF | |
3398 | $! | |
3399 | $! Dec C alone | |
3400 | $ IF ("''Using_Dec_C'".EQS."Yes") | |
3401 | $ THEN | |
3402 | $ perl_d_mbstowcs="define" | |
3403 | $ perl_d_mbtowc="define" | |
3404 | $ perl_d_stdiobase="define" | |
3405 | $ perl_d_stdio_ptr_lval="define" | |
3406 | $ perl_d_stdio_cnt_lval="define" | |
3407 | $ perl_d_stdstdio="define" | |
3408 | $ perl_d_wcstombs="define" | |
3409 | $ perl_d_mblen="define" | |
3410 | $ perl_d_mktime="define" | |
3411 | $ perl_d_strcoll="define" | |
3412 | $ perl_d_strxfrm="define" | |
3413 | $ perl_d_wctomb="define" | |
3414 | $ perl_i_locale="define" | |
3415 | $ perl_d_locconv="define" | |
3416 | $ perl_d_setlocale="define" | |
3417 | $ perl_vms_cc_type="decc" | |
3418 | $ ELSE | |
3419 | $ perl_d_mbstowcs="undef" | |
3420 | $ perl_d_mbtowc="undef" | |
3421 | $ perl_d_stdiobase="undef" | |
3422 | $ perl_d_stdio_ptr_lval="undef" | |
3423 | $ perl_d_stdio_cnt_lval="undef" | |
3424 | $ perl_d_stdstdio="undef" | |
3425 | $ perl_d_wcstombs="undef" | |
3426 | $ perl_d_mblen="undef" | |
3427 | $ perl_d_mktime="undef" | |
3428 | $ perl_d_strcoll="undef" | |
3429 | $ perl_d_strxfrm="undef" | |
3430 | $ perl_d_wctomb="undef" | |
3431 | $ perl_i_locale="undef" | |
3432 | $ perl_d_locconv="undef" | |
3433 | $ perl_d_setlocale="undef" | |
3434 | $ ENDIF | |
3435 | $! | |
97abc6ad HM |
3436 | $! Sockets? |
3437 | $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T") | |
3438 | $ THEN | |
3439 | $ perl_d_vms_do_sockets="define" | |
3440 | $ perl_d_htonl="define" | |
3441 | $ perl_d_socket="define" | |
3442 | $ perl_d_select="define" | |
3443 | $ perl_netdb_host_type="char *" | |
3444 | $ perl_netdb_hlen_type="int" | |
3445 | $ perl_netdb_name_type="char *" | |
3446 | $ perl_netdb_net_type="long" | |
3447 | $ perl_d_gethbyaddr="define" | |
3448 | $ perl_d_gethbyname="define" | |
3449 | $ perl_d_getnbyaddr="define" | |
3450 | $ perl_d_getnbyname="define" | |
3451 | $ perl_d_getpbynumber="define" | |
3452 | $ perl_d_getpbyname="define" | |
3453 | $ perl_d_getsbyport="define" | |
3454 | $ perl_d_getsbyname="define" | |
3455 | $ perl_d_gethostprotos="define" | |
3456 | $ perl_d_getnetprotos="define" | |
3457 | $ perl_d_getprotoprotos="define" | |
3458 | $ perl_d_getservprotos="define" | |
a3ef2c6f GS |
3459 | $ IF ("''Using_Dec_C'".EQS."Yes") |
3460 | $ THEN | |
3461 | $ perl_socksizetype="unsigned int" | |
3462 | $ ELSE | |
3463 | $ perl_socksizetype="int *" | |
3464 | $ ENDIF | |
97abc6ad HM |
3465 | $ ELSE |
3466 | $ perl_d_vms_do_sockets="undef" | |
3467 | $ perl_d_htonl="undef" | |
3468 | $ perl_d_socket="undef" | |
3469 | $ perl_d_select="undef" | |
3470 | $ perl_netdb_host_type="char *" | |
3471 | $ perl_netdb_hlen_type="int" | |
3472 | $ perl_netdb_name_type="char *" | |
3473 | $ perl_netdb_net_type="long" | |
3474 | $ perl_d_gethbyaddr="undef" | |
3475 | $ perl_d_gethbyname="undef" | |
3476 | $ perl_d_getnbyaddr="undef" | |
3477 | $ perl_d_getnbyname="undef" | |
3478 | $ perl_d_getpbynumber="undef" | |
3479 | $ perl_d_getpbyname="undef" | |
3480 | $ perl_d_getsbyport="undef" | |
3481 | $ perl_d_getsbyname="undef" | |
3482 | $ perl_d_gethostprotos="undef" | |
3483 | $ perl_d_getnetprotos="undef" | |
3484 | $ perl_d_getprotoprotos="undef" | |
3485 | $ perl_d_getservprotos="undef" | |
a3ef2c6f | 3486 | $ perl_socksizetype="undef" |
97abc6ad HM |
3487 | $ ENDIF |
3488 | $! Threads | |
464ff92e | 3489 | $ IF use_threads |
97abc6ad HM |
3490 | $ THEN |
3491 | $ perl_usethreads="define" | |
3492 | $ perl_d_pthreads_created_joinable="define" | |
464ff92e | 3493 | $ if (VMS_VER .GES. "7.0") |
97abc6ad HM |
3494 | $ THEN |
3495 | $ perl_d_oldpthreads="undef" | |
3496 | $ ELSE | |
3497 | $ perl_d_oldpthreads="define" | |
3498 | $ ENDIF | |
3499 | $ ELSE | |
3500 | $ perl_d_oldpthreads="undef" | |
3501 | $ perl_usethreads="undef" | |
3502 | $ | |
3503 | $ perl_d_pthreads_created_joinable="undef" | |
3504 | $ ENDIF | |
3505 | $! | |
a52cb5f7 JH |
3506 | $! new (5.005_62++) typedefs for primitives |
3507 | $! | |
3508 | $ perl_ivtype="long" | |
3509 | $ perl_uvtype="unsigned long" | |
3510 | $ perl_i8type="char" | |
3511 | $ perl_u8type="unsigned char" | |
3512 | $ perl_i16type="short" | |
3513 | $ perl_u16type="unsigned short" | |
3514 | $ perl_i32type="int" | |
3515 | $ perl_u32type="unsigned int" | |
29637182 GS |
3516 | $ perl_i64type="long long" |
3517 | $ perl_u64type="unsigned long long" | |
a52cb5f7 JH |
3518 | $ perl_nvtype="double" |
3519 | $! | |
3520 | $ GOTO beyond_type_size_check | |
3521 | $! | |
3522 | $type_size_check: | |
3523 | $! | |
3524 | $! Check for type sizes | |
3525 | $! | |
3526 | $ OS | |
3527 | $ WS "#ifdef __DECC | |
3528 | $ WS "#include <stdlib.h> | |
3529 | $ WS "#endif | |
3530 | $ WS "#include <stdio.h> | |
3531 | $ WS "int main() | |
3532 | $ WS "{" | |
3533 | $ WS "printf(""%d\n"", sizeof(''type'));" | |
3534 | $ WS "exit(0); | |
3535 | $ WS "}" | |
3536 | $ CS | |
3537 | $ DEFINE SYS$ERROR _NLA0: | |
3538 | $ DEFINE SYS$OUTPUT _NLA0: | |
3539 | $ ON ERROR THEN CONTINUE | |
3540 | $ ON WARNING THEN CONTINUE | |
3541 | $ 'Checkcc' temp.c | |
3542 | $ If (Needs_Opt.eqs."Yes") | |
3543 | $ THEN | |
3544 | $ link temp.obj,temp.opt/opt | |
3545 | $ ELSE | |
3546 | $ link temp.obj | |
3547 | $ ENDIF | |
3548 | $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis | |
3549 | $ DEASSIGN SYS$OUTPUT | |
3550 | $ DEASSIGN SYS$ERROR | |
3551 | $ DEFINE SYS$ERROR TEMPOUT | |
3552 | $ DEFINE SYS$OUTPUT TEMPOUT | |
3553 | $ mcr []temp.exe | |
3554 | $ CLOSE TEMPOUT | |
3555 | $ DEASSIGN SYS$OUTPUT | |
3556 | $ DEASSIGN SYS$ERROR | |
3557 | $ OPEN/READ TEMPOUT [-.uu]tempout.lis | |
3558 | $ READ TEMPOUT line | |
3559 | $ CLOSE TEMPOUT | |
3560 | $ DELETE/NOLOG [-.uu]tempout.lis; | |
3561 | $ WRITE_RESULT "''size_name' is ''line'" | |
3562 | $ DS | |
3563 | $ RETURN | |
3564 | $! | |
3565 | $beyond_type_size_check: | |
3566 | $! | |
3567 | $ line = "" | |
3568 | $ type = "''perl_ivtype'" | |
3569 | $ size_name = "ivsize" | |
3570 | $ gosub type_size_check | |
3571 | $ perl_ivsize="''line'" | |
3572 | $ IF type .eqs. "long" | |
3573 | $ THEN perl_longsize = "''line'" | |
3574 | $ ELSE | |
3575 | $ type = "long" | |
3576 | $ size_name = "longsize" | |
3577 | $ gosub type_size_check | |
3578 | $ perl_longsize="''line'" | |
3579 | $ ENDIF | |
3580 | $ | |
3581 | $ type = "''perl_uvtype'" | |
3582 | $ size_name = "uvsize" | |
3583 | $ gosub type_size_check | |
3584 | $ perl_uvsize="''line'" | |
3585 | $ | |
3586 | $ type = "''perl_i8type'" | |
3587 | $ size_name = "i8size" | |
3588 | $ gosub type_size_check | |
3589 | $ perl_i8size="''line'" | |
3590 | $ | |
3591 | $ type = "''perl_u8type'" | |
3592 | $ size_name = "u8size" | |
3593 | $ gosub type_size_check | |
3594 | $ perl_u8size="''line'" | |
3595 | $ | |
3596 | $ type = "''perl_i16type'" | |
3597 | $ size_name = "i16size" | |
3598 | $ gosub type_size_check | |
3599 | $ perl_i16size="''line'" | |
3600 | $ IF type .eqs. "short" | |
3601 | $ THEN perl_shortsize="''line'" | |
3602 | $ ELSE | |
3603 | $ type = "''perl_i16type'" | |
3604 | $ size_name = "shortsize" | |
3605 | $ gosub type_size_check | |
3606 | $ perl_shortsize="''line'" | |
3607 | $ ENDIF | |
3608 | $ | |
3609 | $ type = "''perl_u16type'" | |
3610 | $ size_name = "u16size" | |
3611 | $ gosub type_size_check | |
3612 | $ perl_u16size="''line'" | |
3613 | $ | |
3614 | $ type = "''perl_i32type'" | |
3615 | $ size_name = "i32size" | |
3616 | $ gosub type_size_check | |
3617 | $ perl_i32size="''line'" | |
3618 | $ IF type .eqs. "int" | |
3619 | $ THEN perl_intsize="''perl_i32size'" | |
3620 | $ ELSE | |
3621 | $ type = "int" | |
3622 | $ size_name = "intsize" | |
3623 | $ gosub type_size_check | |
3624 | $ perl_intsize="''line'" | |
3625 | $ ENDIF | |
3626 | $ | |
3627 | $ type = "''perl_u32type'" | |
3628 | $ size_name = "u32size" | |
3629 | $ gosub type_size_check | |
3630 | $ perl_u32size="''line'" | |
3631 | $ | |
2974eb71 | 3632 | $ If use64bitint |
9c5233f2 CB |
3633 | $ Then |
3634 | $ type = "''perl_i64type'" | |
3635 | $ size_name = "i64size" | |
3636 | $ gosub type_size_check | |
3637 | $ perl_i64size="''line'" | |
bcbf61bc | 3638 | $ perl_ivtype="''perl_i64type'" |
a52cb5f7 | 3639 | $ |
9c5233f2 CB |
3640 | $ type = "''perl_u64type'" |
3641 | $ size_name = "u64size" | |
3642 | $ gosub type_size_check | |
3643 | $ perl_u64size="''line'" | |
bcbf61bc GS |
3644 | $ perl_uvtype="''perl_u64type'" |
3645 | $ perl_nvtype="long double" | |
9c5233f2 CB |
3646 | $ Else |
3647 | $ perl_i64size="undef" | |
3648 | $ perl_u64size="undef" | |
3649 | $ EndIf | |
a52cb5f7 JH |
3650 | $! |
3651 | $ perl_ivdformat="""ld""" | |
3652 | $ perl_uvuformat="""lu""" | |
3653 | $ perl_uvoformat="""lo""" | |
3654 | $ perl_uvxformat="""lx""" | |
97abc6ad HM |
3655 | $! |
3656 | $! Finally the composite ones. All config | |
464ff92e CB |
3657 | $ perl_installarchlib="''perl_prefix':[lib.''archname'.''version']" |
3658 | $ perl_installsitearch="''perl_prefix':[lib.site_perl.''archname']" | |
97abc6ad HM |
3659 | $ perl_myhostname="''myhostname'" |
3660 | $ perl_mydomain="''mydomain'" | |
3661 | $ perl_perladmin="''perladmin'" | |
464ff92e CB |
3662 | $ perl_myuname:="''osname' ''myname' ''osvers' ''f$edit(hwname, "TRIM")'" |
3663 | $ perl_archlibexp="''perl_prefix':[lib.''archname'.''version']" | |
3664 | $ perl_archlib="''perl_prefix':[lib.''archname'.''version']" | |
3665 | $ perl_oldarchlibexp="''perl_prefix':[lib.''archname']" | |
3666 | $ perl_oldarchlib="''perl_prefix':[lib.''archname']" | |
3667 | $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''archname']" | |
3668 | $ perl_sitearch="''perl_prefix':[lib.site_perl.''archname']" | |
3669 | $ IF Using_Dec_C | |
97abc6ad | 3670 | $ THEN |
429a5e67 | 3671 | $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'" |
97abc6ad | 3672 | $ ENDIF |
3eeba6fb CB |
3673 | $ if use_vmsdebug_perl .eqs. "Y" |
3674 | $ then | |
3675 | $ perl_optimize="/Debug/NoOpt" | |
3676 | $ perl_dbgprefix = "DBG" | |
3677 | $ else | |
3678 | $ perl_optimize= "" | |
3679 | $ perl_dbgprefix = "" | |
3680 | $ endif | |
97abc6ad | 3681 | $! |
97abc6ad | 3682 | $! Okay, we've got everything configured. Now go write out a config.sh. |
464ff92e CB |
3683 | $ echo4 "Creating config.sh..." |
3684 | $ open/write CONFIG [-]config.sh | |
3685 | $ WC := "write CONFIG" | |
97abc6ad HM |
3686 | $! |
3687 | $ WC "# This file generated by Configure.COM on a VMS system." | |
464ff92e | 3688 | $ WC "# Time: " + cf_time |
97abc6ad | 3689 | $ WC "" |
cc077a9f | 3690 | $ WC "CONFIGDOTSH=true" |
97abc6ad | 3691 | $ WC "package='" + perl_package + "'" |
464ff92e | 3692 | $ WC "config_args='" + config_args + "'" |
29637182 GS |
3693 | $ WC "d_nv_preserves_uv='" + perl_d_nv_preserves_uv + "'" |
3694 | $ WC "use5005threads='" + perl_use5005threads + "'" | |
3695 | $ WC "useithreads='" + perl_useithreads + "'" | |
97abc6ad | 3696 | $ WC "CONFIG='" + perl_config + "'" |
464ff92e CB |
3697 | $ WC "cf_time='" + cf_time + "'" |
3698 | $ WC "cf_by='" + cf_by + "'" | |
97abc6ad HM |
3699 | $ WC "cpp_stuff='" + perl_cpp_stuff + "'" |
3700 | $ WC "ccdlflags='" + perl_ccdlflags + "'" | |
3701 | $ WC "cccdlflags='" + perl_cccdlflags + "'" | |
3702 | $ WC "mab='" + perl_mab + "'" | |
3703 | $ WC "libpth='" + perl_libpth + "'" | |
3704 | $ WC "ld='" + perl_ld + "'" | |
3705 | $ WC "lddlflags='" + perl_lddlflags + "'" | |
3706 | $ WC "ranlib='" + perl_ranlib + "'" | |
3707 | $ WC "ar='" + perl_ar + "'" | |
86d026b8 | 3708 | $ WC "full_ar='" + perl_full_ar + "'" |
97abc6ad HM |
3709 | $ WC "eunicefix='" + perl_eunicefix + "'" |
3710 | $ WC "hint='" + perl_hint +"'" | |
3711 | $ WC "hintfile='" + perl_hintfile + "'" | |
3712 | $ WC "shrplib='" + perl_shrplib + "'" | |
3713 | $ WC "usemymalloc='" + perl_usemymalloc + "'" | |
3714 | $ WC "usevfork='" + perl_usevfork + "'" | |
3715 | $ WC "useposix='false'" | |
3716 | $ WC "spitshell='write sys$output '" | |
3717 | $ WC "dlsrc='dl_vms.c'" | |
3718 | $ WC "binexp='" + perl_binexp + "'" | |
3719 | $ WC "man1ext='" + perl_man1ext + "'" | |
3720 | $ WC "man3ext='" + perl_man3ext + "'" | |
464ff92e CB |
3721 | $ WC "archname='" + archname + "'" |
3722 | $ WC "osvers='" + osvers + "'" | |
97abc6ad HM |
3723 | $ WC "prefix='" + perl_prefix + "'" |
3724 | $ WC "builddir='" + perl_builddir + "'" | |
3725 | $ WC "installbin='" + perl_installbin + "'" | |
3726 | $ WC "installscript='" + perl_installscript + "'" | |
3727 | $ WC "installman1dir='" + perl_installman1dir + "'" | |
3728 | $ WC "installman3dir='" + perl_installman3dir + "'" | |
3729 | $ WC "installprivlib='" + perl_installprivlib + "'" | |
3730 | $ WC "installarchlib='" + perl_installarchlib + "'" | |
3731 | $ WC "installsitelib='" + perl_installsitelib + "'" | |
3732 | $ WC "installsitearch='" + perl_installsitearch + "'" | |
3733 | $ WC "path_sep='" + perl_path_sep + "'" | |
97abc6ad HM |
3734 | $ WC "vms_cc_type='" + perl_vms_cc_type + "'" |
3735 | $ WC "d_attribut='" + perl_d_attribut + "'" | |
3736 | $ WC "cc='" + perl_cc + "'" | |
3737 | $ WC "ccflags='" + perl_ccflags + "'" | |
3eeba6fb CB |
3738 | $ WC "optimize='" + perl_optimize + "'" |
3739 | $ WC "dbgprefix='" + perl_dbgprefix + "'" | |
97abc6ad HM |
3740 | $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'" |
3741 | $ WC "d_socket='" + perl_d_socket + "'" | |
3742 | $ WC "d_sockpair='" + perl_d_sockpair + "'" | |
3743 | $ WC "d_gethent='" + perl_d_gethent + "'" | |
3744 | $ WC "d_getsent='" + perl_d_getsent + "'" | |
27d4bd77 | 3745 | $ WC "d_socklen_t='" + perl_d_socklen_t + "'" |
97abc6ad HM |
3746 | $ WC "d_select='" + perl_d_select + "'" |
3747 | $ WC "i_niin='" + perl_i_niin + "'" | |
cc077a9f | 3748 | $ WC "i_netinettcp='" + perl_i_netinettcp + "'" |
97abc6ad HM |
3749 | $ WC "i_neterrno='" + perl_i_neterrno + "'" |
3750 | $ WC "d_stdstdio='" + perl_d_stdstdio + "'" | |
3751 | $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'" | |
3752 | $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'" | |
3753 | $ WC "d_stdiobase='" + perl_d_stdiobase + "'" | |
3754 | $ WC "d_locconv='" + perl_d_locconv + "'" | |
3755 | $ WC "d_setlocale='" + perl_d_setlocale + "'" | |
3756 | $ WC "i_locale='" + perl_i_locale + "'" | |
3757 | $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'" | |
3758 | $ WC "d_mbtowc='" + perl_d_mbtowc + "'" | |
3759 | $ WC "d_wcstombs='" + perl_d_wcstombs + "'" | |
3760 | $ WC "d_wctomb='" + perl_d_wctomb + "'" | |
3761 | $ WC "d_mblen='" + perl_d_mblen + "'" | |
3762 | $ WC "d_mktime='" + perl_d_mktime + "'" | |
3763 | $ WC "d_strcoll='" + perl_d_strcoll + "'" | |
3764 | $ WC "d_strxfrm='" + perl_d_strxfrm + "'" | |
3765 | $ WC "ldflags='" + perl_ldflags + "'" | |
3766 | $ WC "dlobj='" + perl_dlobj + "'" | |
3767 | $ WC "obj_ext='" + perl_obj_ext + "'" | |
3768 | $ WC "so='" + perl_so + "'" | |
3769 | $ WC "dlext='" + perl_dlext + "'" | |
3770 | $ WC "exe_ext='" + perl_exe_ext + "'" | |
3771 | $ WC "lib_ext='" + perl_lib_ext + "'" | |
3772 | $ WC "myhostname='" + perl_myhostname + "'" | |
3773 | $ WC "mydomain='" + perl_mydomain + "'" | |
3774 | $ WC "perladmin='" + perl_perladmin + "'" | |
464ff92e | 3775 | $ WC "cf_email='" + cf_email + "'" |
97abc6ad | 3776 | $ WC "myuname='" + perl_myuname + "'" |
464ff92e | 3777 | $ WC "alignbytes='" + alignbytes + "'" |
97abc6ad HM |
3778 | $ WC "osname='" + perl_osname + "'" |
3779 | $ WC "d_archlib='" + perl_d_archlib + "'" | |
3780 | $ WC "archlibexp='" + perl_archlibexp + "'" | |
3781 | $ WC "archlib='" + perl_archlib + "'" | |
464ff92e | 3782 | $ WC "archname='" + archname + "'" |
97abc6ad HM |
3783 | $ WC "d_bincompat3='" + perl_d_bincompat3 + "'" |
3784 | $ WC "cppstdin='" + perl_cppstdin + "'" | |
3785 | $ WC "cppminus='" + perl_cppminus + "'" | |
ccc2aad8 GS |
3786 | $ WC "cpprun='" + perl_cpprun + "'" |
3787 | $ WC "cpplast='" + perl_cpplast + "'" | |
97abc6ad HM |
3788 | $ WC "d_bcmp='" + perl_d_bcmp + "'" |
3789 | $ WC "d_bcopy='" + perl_d_bcopy + "'" | |
3790 | $ WC "d_bzero='" + perl_d_bzero + "'" | |
3791 | $ WC "d_castneg='" + perl_d_castneg + "'" | |
3792 | $ WC "castflags='" + perl_castflags + "'" | |
3793 | $ WC "d_chsize='" + perl_d_chsize + "'" | |
3794 | $ WC "d_const='" + perl_d_const + "'" | |
3795 | $ WC "d_crypt='" + perl_d_crypt + "'" | |
3796 | $ WC "byteorder='" + perl_byteorder + "'" | |
3797 | $ WC "full_csh='" + perl_full_csh + "'" | |
3798 | $ WC "d_csh='" + perl_d_csh + "'" | |
3799 | $ WC "d_dup2='" + perl_d_dup2 + "'" | |
3800 | $ WC "d_fchmod='" + perl_d_fchmod + "'" | |
3801 | $ WC "d_fchown='" + perl_d_fchown + "'" | |
3802 | $ WC "d_fcntl='" + perl_d_fcntl + "'" | |
3803 | $ WC "d_fgetpos='" + perl_d_fgetpos + "'" | |
3804 | $ WC "d_flexfnam='" + perl_d_flexfnam + "'" | |
3805 | $ WC "d_flock='" + perl_d_flock + "'" | |
3806 | $ WC "d_fsetpos='" + perl_d_fsetpos + "'" | |
3807 | $ WC "d_gettimeod='" + perl_d_gettimeod + "'" | |
3808 | $ WC "d_getgrps='" + perl_d_getgrps + "'" | |
3809 | $ WC "d_setgrps='" + perl_d_setgrps + "'" | |
ccc2aad8 | 3810 | $ WC "groupstype='" + perl_groupstype + "'" |
97abc6ad HM |
3811 | $ WC "d_uname='" + perl_d_uname + "'" |
3812 | $ WC "d_getprior='" + perl_d_getprior + "'" | |
3813 | $ WC "d_killpg='" + perl_d_killpg + "'" | |
3814 | $ WC "d_link='" + perl_d_link + "'" | |
3815 | $ WC "d_lstat='" + perl_d_lstat + "'" | |
3816 | $ WC "d_lockf='" + perl_d_lockf + "'" | |
3817 | $ WC "d_memcmp='" + perl_d_memcmp + "'" | |
3818 | $ WC "d_memcpy='" + perl_d_memcpy + "'" | |
3819 | $ WC "d_memmove='" + perl_d_memmove + "'" | |
3820 | $ WC "d_memset='" + perl_d_memset + "'" | |
3821 | $ WC "d_mkdir='" + perl_d_mkdir + "'" | |
3822 | $ WC "d_msg='" + perl_d_msg + "'" | |
3823 | $ WC "d_open3='" + perl_d_open3 + "'" | |
3824 | $ WC "d_poll='" + perl_d_poll + "'" | |
ee8c7f54 CB |
3825 | $ WC "d_perl_otherlibdirs='" + perl_d_perl_otherlibdirs + "'" |
3826 | $ WC "otherlibdirs='" + perl_otherlibdirs + "'" | |
97abc6ad HM |
3827 | $ WC "d_readdir='" + perl_d_readdir + "'" |
3828 | $ WC "d_seekdir='" + perl_d_seekdir + "'" | |
3829 | $ WC "d_telldir='" + perl_d_telldir + "'" | |
3830 | $ WC "d_rewinddir='" + perl_d_rewinddir + "'" | |
3831 | $ WC "d_rename='" + perl_d_rename + "'" | |
3832 | $ WC "d_rmdir='" + perl_d_rmdir + "'" | |
3833 | $ WC "d_sem='" + perl_d_sem + "'" | |
3834 | $ WC "d_setegid='" + perl_d_setegid + "'" | |
3835 | $ WC "d_seteuid='" + perl_d_seteuid + "'" | |
3836 | $ WC "d_setprior='" + perl_d_setprior + "'" | |
3837 | $ WC "d_setregid='" + perl_d_setregid + "'" | |
3838 | $ WC "d_setresgid='" + perl_d_setresgid + "'" | |
3839 | $ WC "d_setreuid='" + perl_d_setreuid + "'" | |
3840 | $ WC "d_setresuid='" + perl_d_setresuid + "'" | |
3841 | $ WC "d_setrgid='" + perl_d_setrgid + "'" | |
3842 | $ WC "d_setruid='" + perl_d_setruid + "'" | |
3843 | $ WC "d_setsid='" + perl_d_setsid + "'" | |
3844 | $ WC "d_shm='" + perl_d_shm + "'" | |
3845 | $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'" | |
ccc2aad8 | 3846 | $ WC "shmattype='" + perl_shmattype + "'" |
97abc6ad HM |
3847 | $ WC "d_sigaction='" + perl_d_sigaction + "'" |
3848 | $ WC "d_statblks='" + perl_d_statblks + "'" | |
3849 | $ WC "stdio_ptr='" + perl_stdio_ptr + "'" | |
3850 | $ WC "stdio_cnt='" + perl_stdio_cnt + "'" | |
3851 | $ WC "stdio_base='" + perl_stdio_base + "'" | |
3852 | $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'" | |
3853 | $ WC "d_strctcpy='" + perl_d_strctcpy + "'" | |
3854 | $ WC "d_strerror='" + perl_d_strerror + "'" | |
3855 | $ WC "d_syserrlst='" + perl_d_syserrlst + "'" | |
3856 | $ WC "d_strerrm='" + perl_d_strerrm + "'" | |
3857 | $ WC "d_symlink='" + perl_d_symlink + "'" | |
3858 | $ WC "d_syscall='" + perl_d_syscall + "'" | |
3859 | $ WC "d_system='" + perl_d_system + "'" | |
3860 | $ WC "timetype='" + perl_timetype + "'" | |
3861 | $ WC "d_truncate='" + perl_d_truncate + "'" | |
3862 | $ WC "d_vfork='" + perl_d_vfork + "'" | |
3863 | $ WC "signal_t='" + perl_signal_t + "'" | |
3864 | $ WC "d_volatile='" + perl_d_volatile + "'" | |
3865 | $ WC "d_vprintf='" + perl_d_vprintf + "'" | |
3866 | $ WC "d_charvspr='" + perl_d_charvspr + "'" | |
3867 | $ WC "d_wait4='" + perl_d_wait4 + "'" | |
3868 | $ WC "d_waitpid='" + perl_d_waitpid + "'" | |
3869 | $ WC "i_dirent='" + perl_i_dirent + "'" | |
3870 | $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'" | |
3871 | $ WC "direntrytype='" + perl_direntrytype + "'" | |
3872 | $ WC "i_fcntl='" + perl_i_fcntl + "'" | |
3873 | $ WC "i_grp='" + perl_i_grp + "'" | |
3874 | $ WC "i_limits='" + perl_i_limits + "'" | |
3875 | $ WC "i_memory='" + perl_i_memory + "'" | |
3876 | $ WC "i_ndbm='" + perl_i_ndbm + "'" | |
3877 | $ WC "i_stdarg='" + perl_i_stdarg + "'" | |
3878 | $ WC "i_pwd='" + perl_i_pwd + "'" | |
3879 | $ WC "d_pwquota='" + perl_d_pwquota + "'" | |
3880 | $ WC "d_pwage='" + perl_d_pwage + "'" | |
3881 | $ WC "d_pwchange='" + perl_d_pwchange + "'" | |
3882 | $ WC "d_pwclass='" + perl_d_pwclass + "'" | |
3883 | $ WC "d_pwexpire='" + perl_d_pwexpire + "'" | |
3884 | $ WC "d_pwcomment='" + perl_d_pwcomment + "'" | |
3885 | $ WC "i_stddef='" + perl_i_stddef + "'" | |
3886 | $ WC "i_stdlib='" + perl_i_stdlib + "'" | |
3887 | $ WC "i_string='" + perl_i_string + "'" | |
3888 | $ WC "i_sysdir='" + perl_i_sysdir + "'" | |
3889 | $ WC "i_sysfile='" + perl_i_sysfile + "'" | |
3890 | $ WC "i_sysioctl='" + perl_i_sysioctl + "'" | |
3891 | $ WC "i_sysndir='" + perl_i_sysndir + "'" | |
3892 | $ WC "i_sysresrc='" + perl_i_sysresrc + "'" | |
3893 | $ WC "i_sysselct='" + perl_i_sysselct + "'" | |
3894 | $ WC "i_dbm='" + perl_i_dbm + "'" | |
3895 | $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'" | |
3896 | $ WC "i_sfio='" + perl_i_sfio + "'" | |
3897 | $ WC "i_sysstat='" + perl_i_sysstat + "'" | |
3898 | $ WC "i_systimes='" + perl_i_systimes + "'" | |
3899 | $ WC "i_systypes='" + perl_i_systypes + "'" | |
3900 | $ WC "i_sysun='" + perl_i_sysun + "'" | |
3901 | $ WC "i_syswait='" + perl_i_syswait + "'" | |
3902 | $ WC "i_termio='" + perl_i_termio + "'" | |
3903 | $ WC "i_sgtty='" + perl_i_sgtty + "'" | |
3904 | $ WC "i_termios='" + perl_i_termios + "'" | |
3905 | $ WC "i_time='" + perl_i_time + "'" | |
3906 | $ WC "i_systime='" + perl_i_systime + "'" | |
3907 | $ WC "i_systimek='" + perl_i_systimek + "'" | |
3908 | $ WC "i_unistd='" + perl_i_unistd + "'" | |
3909 | $ WC "i_utime='" + perl_i_utime + "'" | |
3910 | $ WC "i_varargs='" + perl_i_varargs + "'" | |
3911 | $ WC "i_vfork='" + perl_i_vfork + "'" | |
3912 | $ WC "prototype='" + perl_prototype + "'" | |
3913 | $ WC "randbits='" + perl_randbits +"'" | |
3914 | $ WC "selecttype='" + perl_selecttype + "'" | |
ccc2aad8 | 3915 | $ WC "selectminbits='" + perl_selectminbits + "'" |
97abc6ad HM |
3916 | $ WC "stdchar='" + perl_stdchar + "'" |
3917 | $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'" | |
3918 | $ WC "full_sed='" + perl_full_sed + "'" | |
3919 | $ WC "bin='" + perl_bin + "'" | |
3920 | $ WC "binexp='" + perl_binexp + "'" | |
3921 | $ WC "d_alarm='" + perl_d_alarm + "'" | |
3922 | $ WC "d_casti32='" + perl_d_casti32 + "'" | |
3923 | $ WC "d_chown='" + perl_d_chown + "'" | |
3924 | $ WC "d_chroot='" + perl_d_chroot + "'" | |
3925 | $ WC "d_cuserid='" + perl_d_cuserid + "'" | |
3926 | $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'" | |
c1bd7dac | 3927 | $ WC "d_ldbl_dig='" + perl_d_ldbl_dig + "'" |
97abc6ad HM |
3928 | $ WC "d_difftime='" + perl_d_difftime + "'" |
3929 | $ WC "d_fork='" + perl_d_fork + "'" | |
3930 | $ WC "d_getlogin='" + perl_d_getlogin + "'" | |
3931 | $ WC "d_getppid='" + perl_d_getppid + "'" | |
3932 | $ WC "d_htonl='" + perl_d_htonl + "'" | |
3933 | $ WC "d_nice='" + perl_d_nice + "'" | |
3934 | $ WC "d_pause='" + perl_d_pause + "'" | |
3935 | $ WC "d_pipe='" + perl_d_pipe + "'" | |
3936 | $ WC "d_readlink='" + perl_d_readlink + "'" | |
3937 | $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'" | |
3938 | $ WC "d_strchr='" + perl_d_strchr + "'" | |
3939 | $ WC "d_index='" + perl_d_index + "'" | |
3940 | $ WC "d_strtod='" + perl_d_strtod + "'" | |
3941 | $ WC "d_strtol='" + perl_d_strtol + "'" | |
3942 | $ WC "d_strtoul='" + perl_d_strtoul + "'" | |
3943 | $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'" | |
3944 | $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'" | |
3945 | $ WC "d_times='" + perl_d_times + "'" | |
3946 | $ WC "d_tzname='" + perl_d_tzname + "'" | |
3947 | $ WC "d_umask='" + perl_d_umask + "'" | |
3948 | $ WC "fpostype='" + perl_fpostype + "'" | |
3949 | $ WC "i_dlfcn='" + perl_i_dlfcn + "'" | |
3950 | $ WC "i_float='" + perl_i_float + "'" | |
3951 | $ WC "i_math='" + perl_i_math + "'" | |
3952 | $ WC "intsize='" + perl_intsize + "'" | |
3953 | $ WC "longsize='" + perl_longsize + "'" | |
3954 | $ WC "shortsize='" + perl_shortsize + "'" | |
3955 | $ WC "lseektype='" + perl_lseektype + "'" | |
fafa4fee | 3956 | $ WC "lseeksize='4'" |
97abc6ad HM |
3957 | $ WC "i_values='" + perl_i_values + "'" |
3958 | $ WC "malloctype='" + perl_malloctype + "'" | |
3959 | $ WC "freetype='" + perl_freetype + "'" | |
3960 | $ WC "d_mymalloc='" + perl_d_mymalloc + "'" | |
3961 | $ WC "sh='" + perl_sh + "'" | |
3962 | $ WC "sig_name='" + perl_sig_name + "'" | |
3963 | $ WC "sig_num='" + perl_sig_num + "'" | |
3964 | $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'" | |
3965 | $ WC/symbol tempsym | |
3966 | $ WC "modetype='" + perl_modetype + "'" | |
3967 | $ WC "ssizetype='" + perl_ssizetype + "'" | |
3968 | $ WC "o_nonblock='" + perl_o_nonblock + "'" | |
3969 | $ WC "eagain='" + perl_eagain + "'" | |
3970 | $ WC "rd_nodata='" + perl_rd_nodata + "'" | |
3971 | $ WC "d_eofnblk='" + perl_d_eofnblk + "'" | |
3972 | $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'" | |
3973 | $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'" | |
3974 | $ WC "oldarchlib='" + perl_oldarchlib + "'" | |
3975 | $ WC "privlibexp='" + perl_privlibexp + "'" | |
3976 | $ WC "privlib='" + perl_privlib + "'" | |
3977 | $ WC "sitelibexp='" + perl_sitelibexp + "'" | |
3978 | $ WC "sitelib='" + perl_sitelib + "'" | |
ccc2aad8 | 3979 | $ WC "sitelib_stem='" + perl_sitelib_stem + "'" |
97abc6ad HM |
3980 | $ WC "sitearchexp='" + perl_sitearchexp + "'" |
3981 | $ WC "sitearch='" + perl_sitearch + "'" | |
3982 | $ WC "sizetype='" + perl_sizetype + "'" | |
3983 | $ WC "i_sysparam='" + perl_i_sysparam + "'" | |
3984 | $ WC "d_void_closedir='" + perl_d_void_closedir + "'" | |
3985 | $ WC "d_dlerror='" + perl_d_dlerror + "'" | |
3986 | $ WC "d_dlsymun='" + perl_d_dlsymun + "'" | |
3987 | $ WC "d_suidsafe='" + perl_d_suidsafe + "'" | |
3988 | $ WC "d_dosuid='" + perl_d_dosuid + "'" | |
3989 | $ WC "d_inetaton='" + perl_d_inetaton + "'" | |
27d4bd77 | 3990 | $ WC "d_int64_t='" + perl_d_int64_t + "'" |
97abc6ad HM |
3991 | $ WC "d_isascii='" + perl_d_isascii + "'" |
3992 | $ WC "d_mkfifo='" + perl_d_mkfifo + "'" | |
3993 | $ WC "d_pathconf='" + perl_d_pathconf + "'" | |
3994 | $ WC "d_fpathconf='" + perl_d_fpathconf + "'" | |
3995 | $ WC "d_safebcpy='" + perl_d_safebcpy + "'" | |
3996 | $ WC "d_safemcpy='" + perl_d_safemcpy + "'" | |
3997 | $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'" | |
3998 | $ WC "d_setpgrp='" + perl_d_setpgrp + "'" | |
3999 | $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'" | |
4000 | $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'" | |
4001 | $ WC "d_setpgid='" + perl_d_setpgid + "'" | |
4002 | $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'" | |
4003 | $ WC "d_sysconf='" + perl_d_sysconf + "'" | |
4004 | $ WC "d_Gconvert='" + perl_d_Gconvert + "'" | |
4005 | $ WC "d_getpgid='" + perl_d_getpgid + "'" | |
4006 | $ WC "d_getpgrp='" + perl_d_getpgrp + "'" | |
4007 | $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'" | |
4008 | $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'" | |
4009 | $ WC "d_sfio='" + perl_d_sfio + "'" | |
4010 | $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'" | |
4011 | $ WC "usedl='" + perl_usedl + "'" | |
b6e4eeb2 | 4012 | $ WC "startperl=" + perl_startperl ! This one's special--no enclosing single quotes |
97abc6ad HM |
4013 | $ WC "db_hashtype='" + perl_db_hashtype + "'" |
4014 | $ WC "db_prefixtype='" + perl_db_prefixtype + "'" | |
4015 | $ WC "useperlio='" + perl_useperlio + "'" | |
4016 | $ WC "defvoidused='" + perl_defvoidused + "'" | |
4017 | $ WC "voidflags='" + perl_voidflags + "'" | |
4018 | $ WC "d_eunice='" + perl_d_eunice + "'" | |
4019 | $ WC "libs='" + perl_libs + "'" | |
4020 | $ WC "libc='" + perl_libc + "'" | |
0d296c3e CB |
4021 | $ WC "xs_apiversion='" + version + "'" |
4022 | $ WC "pm_apiversion='" + version + "'" | |
ee8c7f54 CB |
4023 | $ WC "version='" + version + "'" |
4024 | $ WC "revision='" + revision + "'" | |
4025 | $ WC "patchlevel='" + patchlevel + "'" | |
4026 | $ WC "subversion='" + subversion + "'" | |
4027 | $ WC "PERL_VERSION='" + patchlevel + "'" | |
4028 | $ WC "PERL_SUBVERSION='" + subversion + "'" | |
97abc6ad | 4029 | $ WC "pager='" + perl_pager + "'" |
4b19af01 | 4030 | $ WC "make='" + make + "'" |
97abc6ad | 4031 | $ WC "uidtype='" + perl_uidtype + "'" |
ccc2aad8 GS |
4032 | $ WC "uidformat='" + perl_uidformat + "'" |
4033 | $ WC "uidsize='" + perl_uidsize + "'" | |
ee8c7f54 | 4034 | $ WC "uidsign='" + perl_uidsign + "'" |
97abc6ad | 4035 | $ WC "gidtype='" + perl_gidtype + "'" |
ccc2aad8 GS |
4036 | $ WC "gidformat='" + perl_gidformat + "'" |
4037 | $ WC "gidsize='" + perl_gidsize + "'" | |
ee8c7f54 | 4038 | $ WC "gidsign='" + perl_gidsign + "'" |
97abc6ad HM |
4039 | $ WC "usethreads='" + perl_usethreads + "'" |
4040 | $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'" | |
4041 | $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'" | |
4042 | $ WC "d_gnulibc='" + perl_d_gnulibc + "'" | |
4043 | $ WC "i_netdb='" + perl_i_netdb + "'" | |
4044 | $ WC "pidtype='" + perl_pidtype + "'" | |
4045 | $ WC "netdb_host_type='" + perl_netdb_host_type + "'" | |
4046 | $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'" | |
4047 | $ WC "netdb_name_type='" + perl_netdb_name_type + "'" | |
4048 | $ WC "netdb_net_type='" + perl_netdb_net_type + "'" | |
a3ef2c6f | 4049 | $ WC "socksizetype='" + perl_socksizetype + "'" |
97abc6ad HM |
4050 | $ WC "baserev='" + perl_baserev + "'" |
4051 | $ WC "doublesize='" + perl_doublesize + "'" | |
4052 | $ WC "ptrsize='" + perl_ptrsize + "'" | |
4053 | $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'" | |
4054 | $ WC "d_gethbyname='" + perl_d_gethbyname + "'" | |
4055 | $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'" | |
4056 | $ WC "d_getnbyname='" + perl_d_getnbyname + "'" | |
4057 | $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'" | |
4058 | $ WC "d_getpbyname='" + perl_d_getpbyname + "'" | |
4059 | $ WC "d_getsbyport='" + perl_d_getsbyport + "'" | |
4060 | $ WC "d_getsbyname='" + perl_d_getsbyname + "'" | |
4061 | $ WC "d_sethent='" + perl_d_sethent + "'" | |
4062 | $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'" | |
4063 | $ WC "d_longdbl='" + perl_d_longdbl + "'" | |
4064 | $ WC "longdblsize='" + perl_longdblsize + "'" | |
4065 | $ WC "d_longlong='" + perl_d_longlong + "'" | |
4066 | $ WC "longlongsize='" + perl_longlongsize + "'" | |
4067 | $ WC "d_mkstemp='" + perl_d_mkstemp + "'" | |
fe749a9f JH |
4068 | $ WC "d_mkstemps='" + perl_d_mkstemps + "'" |
4069 | $ WC "d_mkdtemp='" + perl_d_mkdtemp + "'" | |
97abc6ad | 4070 | $ WC "d_setvbuf='" + perl_d_setvbuf + "'" |
cc391245 | 4071 | $ WC "d_setenv='" + perl_d_setenv + "'" |
97abc6ad HM |
4072 | $ WC "d_endhent='" + perl_d_endhent + "'" |
4073 | $ WC "d_endnent='" + perl_d_endsent + "'" | |
4074 | $ WC "d_endpent='" + perl_d_endpent + "'" | |
4075 | $ WC "d_endsent='" + perl_d_endsent + "'" | |
4076 | $ WC "d_gethent='" + perl_d_gethent + "'" | |
4077 | $ WC "d_getnent='" + perl_d_getsent + "'" | |
4078 | $ WC "d_getpent='" + perl_d_getpent + "'" | |
4079 | $ WC "d_getsent='" + perl_d_getsent + "'" | |
4080 | $ WC "d_sethent='" + perl_d_sethent + "'" | |
4081 | $ WC "d_setnent='" + perl_d_setsent + "'" | |
4082 | $ WC "d_setpent='" + perl_d_setpent + "'" | |
9ef4b0a6 | 4083 | $ WC "ebcdic='" + perl_ebcdic + "'" |
97abc6ad HM |
4084 | $ WC "d_setsent='" + perl_d_setsent + "'" |
4085 | $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'" | |
4086 | $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'" | |
4087 | $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'" | |
4088 | $ WC "d_getservprotos='" + perl_d_getservprotos + "'" | |
4089 | $ WC "d_pwgecos='" + perl_d_pwgecos + "'" | |
b6e4eeb2 HM |
4090 | $ WC "d_sched_yield='" + perl_d_sched_yield + "'" |
4091 | $ WC "d_lchown='" + perl_d_lchown + "'" | |
4092 | $ WC "d_union_semun='" + perl_d_union_semun + "'" | |
93341792 | 4093 | $ WC "i_arpainet='" + perl_i_arpainet + "'" |
28e8609d JH |
4094 | $ WC "d_grpasswd='" + perl_d_grpasswd + "'" |
4095 | $ WC "d_setgrent='" + perl_d_setgrent + "'" | |
4096 | $ WC "d_getgrent='" + perl_d_getgrent + "'" | |
4097 | $ WC "d_endgrent='" + perl_d_endgrent + "'" | |
b6e4eeb2 HM |
4098 | $ WC "d_pwpasswd='" + perl_d_pwpasswd + "'" |
4099 | $ WC "d_setpwent='" + perl_d_setpwent + "'" | |
4100 | $ WC "d_getpwent='" + perl_d_getpwent + "'" | |
4101 | $ WC "d_endpwent='" + perl_d_endpwent + "'" | |
97abc6ad HM |
4102 | $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'" |
4103 | $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'" | |
4104 | $ WC "extensions='" + perl_extensions + "'" | |
237671e5 JH |
4105 | $ WC "known_extensions='" + perl_known_extensions + "'" |
4106 | $ WC "static_ext='" + "'" | |
4107 | $ WC "dynamic_ext='" + perl_extensions + "'" | |
c05f8f3d HM |
4108 | $ WC "d_mknod='" + perl_d_mknod + "'" |
4109 | $ WC "devtype='" + perl_devtype + "'" | |
3937c24e HM |
4110 | $ WC "d_gethname='" + perl_d_gethname + "'" |
4111 | $ WC "d_phostname='" + perl_d_phostname + "'" | |
ccc2aad8 | 4112 | $ WC "aphostname='" + perl_aphostname + "'" |
3937c24e HM |
4113 | $ WC "d_accessx='" + perl_d_accessx + "'" |
4114 | $ WC "d_eaccess='" + perl_d_eaccess + "'" | |
792d8dab | 4115 | $ WC "i_ieeefp='" + perl_i_ieeefp + "'" |
923fc586 | 4116 | $ WC "i_sunmath='" + perl_i_sunmath + "'" |
3937c24e HM |
4117 | $ WC "i_sysaccess='" + perl_i_sysaccess + "'" |
4118 | $ WC "i_syssecrt='" + perl_i_syssecrt + "'" | |
4119 | $ WC "d_fd_set='" + perl_d_fd_set + "'" | |
4120 | $ WC "d_access='" + perl_d_access + "'" | |
4121 | $ WC "d_msg_ctrunc='" + perl_d_msg_ctrunc + "'" | |
4122 | $ WC "d_msg_dontroute='" + perl_d_msg_dontroute + "'" | |
4123 | $ WC "d_msg_oob='" + perl_d_msg_oob + "'" | |
4124 | $ WC "d_msg_peek='" + perl_d_msg_peek + "'" | |
4125 | $ WC "d_msg_proxy='" + perl_d_msg_proxy + "'" | |
4126 | $ WC "d_scm_rights='" + perl_d_scm_rights + "'" | |
4127 | $ WC "d_sendmsg='" + perl_d_sendmsg + "'" | |
4128 | $ WC "d_recvmsg='" + perl_d_recvmsg + "'" | |
4129 | $ WC "d_msghdr_s='" + perl_d_msghdr_s + "'" | |
4130 | $ WC "d_cmsghdr_s='" + perl_d_cmsghdr_s + "'" | |
4131 | $ WC "i_sysuio='" + perl_i_sysuio + "'" | |
4132 | $ WC "d_fseeko='" + perl_d_fseeko + "'" | |
4133 | $ WC "d_ftello='" + perl_d_ftello + "'" | |
bbe6c963 | 4134 | $ WC "d_qgcvt='" + perl_d_qgcvt + "'" |
3937c24e HM |
4135 | $ WC "d_readv='" + perl_d_readv + "'" |
4136 | $ WC "d_writev='" + perl_d_writev + "'" | |
4137 | $ WC "i_machcthr='" + perl_i_machcthr + "'" | |
4138 | $ WC "usemultiplicity='" + perl_usemultiplicity + "'" | |
3937c24e HM |
4139 | $ WC "i_poll='" + perl_i_poll + "'" |
4140 | $ WC "i_inttypes='" + perl_i_inttypes + "'" | |
cc077a9f | 4141 | $ WC "d_off64_t='" + perl_d_off64_t + "'" |
c1bd7dac | 4142 | $ WC "d_fpos64_t='" + perl_d_fpos64_t + "'" |
10cc9d2a JH |
4143 | $ WC "use64bitall='" + perl_use64bitall + "'" |
4144 | $ WC "use64bitint='" + perl_use64bitint + "'" | |
3937c24e | 4145 | $ WC "d_drand48proto='" + perl_d_drand48proto + "'" |
c890dc6c | 4146 | $ WC "d_lseekproto='" + perl_d_drand48proto + "'" |
a12fb911 HM |
4147 | $ WC "d_old_pthread_create_joinable='" + perl_d_old_pthread_create_joinable + "'" |
4148 | $ WC "old_pthread_create_joinable='" + perl_old_pthread_create_joinable + "'" | |
3937c24e HM |
4149 | $ WC "drand01='" + perl_drand01 + "'" |
4150 | $ WC "randseedtype='" + perl_randseedtype + "'" | |
4151 | $ WC "seedfunc='" + perl_seedfunc + "'" | |
4152 | $ WC "sig_num_init='" + perl_sig_num_with_commas + "'" | |
953103e7 HM |
4153 | $ WC "i_sysmount='" + perl_i_sysmount + "'" |
4154 | $ WC "d_fstatfs='" + perl_d_fstatfs + "'" | |
c890dc6c | 4155 | $ WC "d_getfsstat='" + perl_d_getfsstat + "'" |
cc077a9f | 4156 | $ WC "d_memchr='" + perl_d_memchr + "'" |
953103e7 | 4157 | $ WC "d_statfsflags='" + perl_d_statfsflags + "'" |
cc077a9f HM |
4158 | $ WC "fflushNULL='define'" |
4159 | $ WC "fflushall='undef'" | |
4160 | $ WC "d_stdio_stream_array='undef'" | |
ccc2aad8 | 4161 | $ WC "stdio_stream_array='" + perl_stdio_stream_array + "'" |
953103e7 | 4162 | $ WC "i_sysstatvfs='" + perl_i_sysstatvfs + "'" |
5af06f0d DS |
4163 | $ WC "i_syslog='" + perl_i_syslog + "'" |
4164 | $ WC "i_sysmode='" + perl_i_sysmode + "'" | |
4165 | $ WC "i_sysutsname='" + perl_i_sysutsname + "'" | |
c2da85ba GS |
4166 | $ WC "i_machcthreads='" + perl_i_machcthreads + "'" |
4167 | $ WC "i_pthread='" + perl_i_pthread + "'" | |
13789a15 | 4168 | $ WC "d_fstatvfs='" + perl_d_fstatvfs + "'" |
953103e7 HM |
4169 | $ WC "i_mntent='" + perl_i_mntent + "'" |
4170 | $ WC "d_getmntent='" + perl_d_getmntent + "'" | |
4171 | $ WC "d_hasmntopt='" + perl_d_hasmntopt + "'" | |
cb86ce0e | 4172 | $ WC "d_telldirproto='" + perl_d_telldirproto + "'" |
9ecfa05e JH |
4173 | $ WC "d_madvise='" + perl_d_madvise + "'" |
4174 | $ WC "d_msync='" + perl_d_msync + "'" | |
4175 | $ WC "d_mprotect='" + perl_d_mprotect + "'" | |
4176 | $ WC "d_munmap='" + perl_d_munmap + "'" | |
4177 | $ WC "d_mmap='" + perl_d_mmap + "'" | |
ccc2aad8 | 4178 | $ WC "mmaptype='" + perl_mmaptype + "'" |
9ecfa05e | 4179 | $ WC "i_sysmman='" + perl_i_sysmman + "'" |
a12fb911 | 4180 | $ WC "installusrbinperl='" + perl_installusrbinperl + "'" |
fafa4fee | 4181 | $! WC "selectminbits='" + perl_selectminbits + "'" |
d31f3823 | 4182 | $ WC "crosscompile='" + perl_crosscompile + "'" |
a12fb911 | 4183 | $ WC "multiarch='" + perl_multiarch + "'" |
cc077a9f | 4184 | $ WC "sched_yield='" + perl_sched_yield + "'" |
fafa4fee | 4185 | $ WC "d_strtoull='" + perl_d_strtoull + "'" |
29637182 GS |
4186 | $ WC "d_strtouq='" + perl_d_strtouq + "'" |
4187 | $ WC "d_strtoll='" + perl_d_strtoll + "'" | |
4188 | $ WC "d_strtold='" + perl_d_strtold + "'" | |
fafa4fee CB |
4189 | $ WC "usesocks='" + perl_usesocks + "'" |
4190 | $ WC "d_vendorlib='" + perl_d_vendorlib + "'" | |
4191 | $ WC "vendorlibexp='" + perl_vendorlibexp + "'" | |
ccc2aad8 | 4192 | $ WC "vendorlib_stem='" + perl_vendorlib_stem + "'" |
fafa4fee CB |
4193 | $ WC "d_atolf='" + perl_d_atolf + "'" |
4194 | $ WC "d_atoll='" + perl_d_atoll + "'" | |
4195 | $ WC "d_bincompat5005='" + perl_d_bincompat + "'" | |
fafa4fee | 4196 | $ WC "d_getspnam='" + perl_d_getspnam + "'" |
fafa4fee CB |
4197 | $ WC "i_shadow='" + perl_i_shadow + "'" |
4198 | $ WC "i_socks='" + perl_i_socks + "'" | |
4199 | $ WC "d_PRIfldbl='" + perl_d_PRIfldbl + "'" | |
4200 | $ WC "d_PRIgldbl='" + perl_d_PRIgldbl + "'" | |
4201 | $ WC "d_PRId64='" + perl_d_PRId64 + "'" | |
4202 | $ WC "d_PRIu64='" + perl_d_PRIu64 + "'" | |
4203 | $ WC "d_PRIo64='" + perl_d_PRIo64 + "'" | |
4204 | $ WC "d_PRIx64='" + perl_d_PRIx64 + "'" | |
4205 | $ WC "sPRIfldbl='" + perl_sPRIfldbl + "'" | |
4206 | $ WC "sPRIgldbl='" + perl_sPRIgldbl + "'" | |
4207 | $ WC "sPRId64='" + perl_sPRId64 + "'" | |
4208 | $ WC "sPRIu64='" + perl_sPRIu64 + "'" | |
4209 | $ WC "sPRIo64='" + perl_sPRIo64 + "'" | |
4210 | $ WC "sPRIx64='" + perl_sPRIx64 + "'" | |
c1bd7dac | 4211 | $ WC "d_llseek='" + perl_d_llseek + "'" |
5af06f0d DS |
4212 | $ WC "d_iconv='" + perl_d_iconv +"'" |
4213 | $ WC "i_iconv='" + perl_i_iconv +"'" | |
c645ec3f | 4214 | $ WC "inc_version_list='0'" |
c93fa817 | 4215 | $ WC "inc_version_list_init='0'" |
a52cb5f7 JH |
4216 | $ WC "uselargefiles='" + perl_uselargefiles + "'" |
4217 | $ WC "uselongdouble='" + perl_uselongdouble + "'" | |
4218 | $ WC "usemorebits='" + perl_usemorebits + "'" | |
1b8cd678 | 4219 | $ WC "d_quad='" + perl_d_quad + "'" |
ccc2aad8 GS |
4220 | $ WC "quadtype='" + perl_quadtype + "'" |
4221 | $ WC "uquadtype='" + perl_uquadtype + "'" | |
4222 | $ WC "quadkind='" + perl_quadkind + "'" | |
1b8cd678 | 4223 | $ WC "d_fs_data_s='" + perl_d_fs_data_s + "'" |
fe749a9f | 4224 | $ WC "d_getcwd='" + perl_d_getcwd + "'" |
1b8cd678 JH |
4225 | $ WC "d_getmnt='" + perl_d_getmnt + "'" |
4226 | $ WC "d_sqrtl='" + perl_d_sqrtl + "'" | |
4227 | $ WC "d_statfs_f_flags='" + perl_d_statfs_f_flags + "'" | |
4228 | $ WC "d_statfs_s='" + perl_d_statfs_s + "'" | |
4229 | $ WC "d_ustat='" + perl_d_ustat + "'" | |
2974eb71 CB |
4230 | $ WC "d_vendorarch='" + perl_d_vendorarch + "'" |
4231 | $ WC "vendorarchexp='" + perl_vendorarchexp + "'" | |
1b8cd678 JH |
4232 | $ WC "i_sysstatfs='" + perl_i_sysstatfs + "'" |
4233 | $ WC "i_sysvfs='" + perl_i_sysvfs + "'" | |
4234 | $ WC "i_ustat='" + perl_i_ustat + "'" | |
a52cb5f7 JH |
4235 | $ WC "ivtype='" + perl_ivtype + "'" |
4236 | $ WC "uvtype='" + perl_uvtype + "'" | |
4237 | $ WC "i8type='" + perl_i8type + "'" | |
4238 | $ WC "i16type='" + perl_i16type + "'" | |
4239 | $ WC "u8type='" + perl_u8type + "'" | |
4240 | $ WC "u16type='" + perl_u16type + "'" | |
4241 | $ WC "i32type='" + perl_i32type + "'" | |
4242 | $ WC "u32type='" + perl_u32type + "'" | |
4243 | $ WC "i64type='" + perl_i64type + "'" | |
4244 | $ WC "u64type='" + perl_u64type + "'" | |
4245 | $ WC "nvtype='" + perl_nvtype + "'" | |
4246 | $ WC "ivsize='" + perl_ivsize + "'" | |
4247 | $ WC "uvsize='" + perl_uvsize + "'" | |
4248 | $ WC "i8size='" + perl_i8size + "'" | |
4249 | $ WC "u8size='" + perl_u8size + "'" | |
4250 | $ WC "i16size='" + perl_i16size + "'" | |
4251 | $ WC "u16size='" + perl_u16size + "'" | |
4252 | $ WC "i32size='" + perl_i32size + "'" | |
4253 | $ WC "u32size='" + perl_u32size + "'" | |
4254 | $ WC "i64size='" + perl_i64size + "'" | |
4255 | $ WC "u64size='" + perl_u64size + "'" | |
4256 | $ WC "ivdformat='" + perl_ivdformat + "'" | |
4257 | $ WC "uvuformat='" + perl_uvuformat + "'" | |
4258 | $ WC "uvoformat='" + perl_uvoformat + "'" | |
4259 | $ WC "uvxformat='" + perl_uvxformat + "'" | |
498336ed | 4260 | $ WC "d_vms_case_sensitive_symbols='" + d_vms_be_case_sensitive + "'" |
ee8c7f54 CB |
4261 | $ WC "sizesize='" + perl_sizesize + "'" |
4262 | $ WC "d_frexpl='" + perl_d_frexpl + "'" | |
4263 | $ WC "d_isnan='" + perl_d_isnan + "'" | |
4264 | $ WC "d_isnanl='" + perl_d_isnanl + "'" | |
4265 | $ WC "d_modfl='" + perl_d_modfl + "'" | |
4b19af01 CB |
4266 | $ WC "d_getprpwnam='" + perl_d_getprpwnam + "'" |
4267 | $ WC "d_getespwnam='" + perl_d_getespwnam + "'" | |
4268 | $ WC "i_prot='" + perl_i_prot + "'" | |
97abc6ad | 4269 | $! |
9ef4b0a6 BH |
4270 | $! ##WRITE NEW CONSTANTS HERE## |
4271 | $! | |
464ff92e | 4272 | $ Close CONFIG |
97abc6ad HM |
4273 | $ |
4274 | $! Okay, we've gotten here. Build munchconfig and run it | |
9ef4b0a6 | 4275 | $ 'Perl_CC' munchconfig.c |
97abc6ad HM |
4276 | $ If (Needs_Opt.eqs."Yes") |
4277 | $ THEN | |
4278 | $ open/write OPTCHAN []munchconfig.opt | |
4279 | $ IF ("''using_gnu_c'".eqs."Yes") | |
4280 | $ THEN | |
4281 | $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library" | |
4282 | $ endif | |
4283 | $ write OPTCHAN "Sys$Share:VAXCRTL/Share" | |
4284 | $ Close OPTCHAN | |
9ef4b0a6 | 4285 | $ link munchconfig.obj,munchconfig.opt/opt |
97abc6ad HM |
4286 | $ delete munchconfig.opt;* |
4287 | $ else | |
9ef4b0a6 | 4288 | $ link munchconfig.obj |
97abc6ad | 4289 | $ endif |
cc391245 | 4290 | $ echo "" |
464ff92e CB |
4291 | $ echo "Doing variable substitutions on .SH files..." |
4292 | $ echo "Extracting config.h (with variable substitutions)" | |
429a5e67 DS |
4293 | $ ! |
4294 | $ ! we need an fdl file | |
4295 | $ CREATE [-]CONFIG.FDL | |
4296 | RECORD | |
4297 | FORMAT STREAM_LF | |
4298 | $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL | |
4299 | $ ! First spit out the header info with the local defines (to get | |
4300 | $ ! around the 255 character command line limit) | |
4301 | $ OPEN/APPEND CONFIG [-]config.local | |
464ff92e CB |
4302 | $ IF use_debugging_perl THEN WC "#define DEBUGGING" |
4303 | $ IF use_two_pot_malloc THEN WC "#define TWO_POT_OPTIMIZE" | |
4304 | $ IF mymalloc THEN WC "#define EMBEDMYMALLOC" | |
4305 | $ IF use_pack_malloc THEN WC "#define PACK_MALLOC" | |
4306 | $ IF use_debugmalloc THEN WC "#define DEBUGGING_MSTATS" | |
4307 | $ IF Using_Gnu_C THEN WC "#define GNUC_ATTRIBUTE_CHECK" | |
4308 | $ IF (Has_Dec_C_Sockets) | |
429a5e67 | 4309 | $ THEN |
464ff92e CB |
4310 | $ WC "#define VMS_DO_SOCKETS" |
4311 | $ WC "#define DECCRTL_SOCKETS" | |
cc391245 | 4312 | $ ELSE |
464ff92e | 4313 | $ IF Has_Socketshr THEN WC "#define VMS_DO_SOCKETS" |
cc391245 | 4314 | $ ENDIF |
464ff92e CB |
4315 | $! This is VMS-specific for now |
4316 | $ WC "#''perl_d_setenv' HAS_SETENV" | |
4317 | $ IF d_secintgenv THEN WC "#define SECURE_INTERNAL_GETENV" | |
4318 | $ if d_alwdeftype THEN WC "#define ALWAYS_DEFTYPES" | |
f53b4005 | 4319 | $ IF (use64bitint) |
fafa4fee | 4320 | $ THEN |
464ff92e CB |
4321 | $ WC "#define USE_64_BIT_INT" |
4322 | $ WC "#define USE_LONG_DOUBLE" | |
fafa4fee | 4323 | $ ENDIF |
464ff92e CB |
4324 | $ IF use64bitall THEN WC "#define USE_64_BIT_ALL" |
4325 | $ IF be_case_sensitive THEN WC "#define VMS_WE_ARE_CASE_SENSITIVE" | |
c645ec3f GS |
4326 | $ if perl_d_herrno .eqs. "undef" |
4327 | $ THEN | |
464ff92e | 4328 | $ WC "#define NEED_AN_H_ERRNO" |
c645ec3f | 4329 | $ ENDIF |
464ff92e CB |
4330 | $ WC "#define HAS_ENVGETENV" |
4331 | $ WC "#define PERL_EXTERNAL_GLOB" | |
429a5e67 DS |
4332 | $ CLOSE CONFIG |
4333 | $! | |
4334 | $! Now build the normal config.h | |
4335 | $ define/user sys$output [-]config.main | |
97abc6ad | 4336 | $ mcr []munchconfig [-]config.sh [-]config_h.sh |
429a5e67 DS |
4337 | $ ! Concatenate them together |
4338 | $ copy [-]config.local,[-]config.main [-]config.h | |
4339 | $! Clean up | |
4340 | $ DELETE/NOLOG [-]CONFIG.MAIN;* | |
4341 | $ DELETE/NOLOG [-]CONFIG.LOCAL;* | |
4342 | $ DELETE/NOLOG [-]CONFIG.FDL;* | |
4343 | $! | |
464ff92e | 4344 | $ IF Using_Dec_C |
97abc6ad | 4345 | $ THEN |
464ff92e | 4346 | $ DECC_REPLACE = "DECC=decc=1" |
97abc6ad | 4347 | $ ELSE |
464ff92e | 4348 | $ DECC_REPLACE = "DECC=" |
97abc6ad | 4349 | $ ENDIF |
464ff92e | 4350 | $ IF Using_Gnu_C |
97abc6ad | 4351 | $ THEN |
464ff92e | 4352 | $ GNUC_REPLACE = "GNUC=gnuc=1" |
97abc6ad | 4353 | $ ELSE |
464ff92e | 4354 | $ GNUC_REPLACE = "GNUC=" |
97abc6ad | 4355 | $ ENDIF |
464ff92e | 4356 | $ IF Has_Dec_C_Sockets |
97abc6ad HM |
4357 | $ THEN |
4358 | $ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1" | |
4359 | $ ELSE | |
464ff92e | 4360 | $ IF Has_Socketshr |
97abc6ad | 4361 | $ THEN |
e6df7ed1 | 4362 | $ SOCKET_REPLACE = "SOCKET=SOCKETSHR_SOCKETS=1" |
97abc6ad HM |
4363 | $ ELSE |
4364 | $ SOCKET_REPLACE = "SOCKET=" | |
4365 | $ ENDIF | |
4366 | $ ENDIF | |
464ff92e | 4367 | $ IF (Use_Threads) |
97abc6ad | 4368 | $ THEN |
464ff92e | 4369 | $ IF (VMS_VER .LES. "6.2") |
97abc6ad HM |
4370 | $ THEN |
4371 | $ THREAD_REPLACE = "THREAD=OLDTHREADED=1" | |
4372 | $ ELSE | |
4373 | $ THREAD_REPLACE = "THREAD=THREADED=1" | |
4374 | $ ENDIF | |
429a5e67 DS |
4375 | $ ELSE |
4376 | $ THREAD_REPLACE = "THREAD=" | |
4377 | $ ENDIF | |
464ff92e | 4378 | $ IF mymalloc |
429a5e67 DS |
4379 | $ THEN |
4380 | $ MALLOC_REPLACE = "MALLOC=MALLOC=1" | |
4381 | $ ELSE | |
4382 | $ MALLOC_REPLACE = "MALLOC=" | |
97abc6ad | 4383 | $ ENDIF |
464ff92e | 4384 | $ echo "Extracting ''defmakefile' (with variable substitutions)" |
97abc6ad | 4385 | $!set ver |
464ff92e | 4386 | $ define/user sys$output 'UUmakefile |
498336ed | 4387 | $ mcr []munchconfig [-]config.sh descrip_mms.template "''DECC_REPLACE'" "''ARCH_TYPE'" "''GNUC_REPLACE'" "''SOCKET_REPLACE'" "''THREAD_REPLACE'" - |
464ff92e CB |
4388 | "''C_Compiler_Replace'" "''MALLOC_REPLACE'" "''Thread_Live_Dangerously'" "PV=''version'" "FLAGS=FLAGS=''extra_flags'" |
4389 | $ echo "Extracting Build_Ext.Com (without variable substitutions)" | |
cc391245 CB |
4390 | $ Create Sys$Disk:[-]Build_Ext.Com |
4391 | $ Deck/Dollar="$EndOfTpl$" | |
4392 | $!++ Build_Ext.Com | |
7bb57f25 | 4393 | $! NOTE: This file is extracted as part of the VMS configuration process. |
cc391245 CB |
4394 | $! Any changes made to it directly will be lost. If you need to make any |
4395 | $! changes, please edit the template in [.vms]SubConfigure.Com instead. | |
4396 | $ def = F$Environment("Default") | |
4397 | $ exts1 = F$Edit(p1,"Compress") | |
4398 | $ p2 = F$Edit(p2,"Upcase,Compress,Trim") | |
4399 | $ If F$Locate("MCR ",p2).eq.0 Then p2 = F$Extract(3,255,p2) | |
4400 | $ miniperl = "$" + F$Search(F$Parse(p2,".Exe")) | |
3eeba6fb CB |
4401 | $ makeutil = p3 |
4402 | $ if f$type('p3') .nes. "" then makeutil = 'p3' | |
cc391245 CB |
4403 | $ targ = F$Edit(p4,"Lowercase") |
4404 | $ i = 0 | |
4405 | $ next_ext: | |
4406 | $ ext = F$Element(i," ",p1) | |
4407 | $ If ext .eqs. " " Then Goto done | |
4408 | $ Define/User Perl_Env_Tables CLISYM_LOCAL | |
4409 | $ miniperl | |
4410 | ($extdir = $ENV{'ext'}) =~ s/::/./g; | |
8f6c6e69 | 4411 | $extdir =~ s#/#.#g; |
cc391245 CB |
4412 | if ($extdir =~ /^vms/i) { $extdir =~ s/vms/.vms.ext/i; } |
4413 | else { $extdir = ".ext.$extdir"; } | |
4414 | ($ENV{'extdir'} = "[$extdir]"); | |
4415 | ($ENV{'up'} = ('-') x ($extdir =~ tr/././)); | |
4416 | $ Set Default &extdir | |
4417 | $ redesc = 0 | |
4418 | $ If F$Locate("clean",targ) .eqs. F$Length(targ) | |
4419 | $ Then | |
4420 | $ Write Sys$Output "Building ''ext' . . ." | |
4421 | $ On Error Then Goto done | |
4422 | $ If F$Search("Descrip.MMS") .eqs. "" | |
4423 | $ Then | |
4424 | $ redesc = 1 | |
4425 | $ Else | |
4426 | $ If F$CvTime(F$File("Descrip.MMS","rdt")) .lts. - | |
4427 | F$CvTime(F$File("Makefile.PL","rdt")) Then redesc = 1 | |
4428 | $ EndIf | |
4429 | $ Else | |
4430 | $ Write Sys$Output "''targ'ing ''ext' . . ." | |
4431 | $ On Error Then Continue | |
4432 | $ EndIf | |
4433 | $ If redesc Then - | |
4434 | miniperl "-I[''up'.lib]" Makefile.PL "INST_LIB=[''up'.lib]" "INST_ARCHLIB=[''up'.lib]" | |
3eeba6fb | 4435 | $ makeutil 'targ' |
cc391245 CB |
4436 | $ i = i + 1 |
4437 | $ Set Def &def | |
4438 | $ Goto next_ext | |
4439 | $ done: | |
4440 | $ sts = $Status | |
4441 | $ Set Def &def | |
4442 | $ Exit sts | |
4443 | $!-- Build_Ext.Com | |
4444 | $EndOfTpl$ | |
4445 | $ | |
97abc6ad HM |
4446 | $! set nover |
4447 | $! | |
4448 | $! Clean up after ourselves | |
464ff92e CB |
4449 | $ DELETE/NOLOG/NOCONFIRM munchconfig.exe; |
4450 | $ DELETE/NOLOG/NOCONFIRM munchconfig.obj; |