1 $! SUBCONFIGURE.COM - build a config.sh for VMS Perl.
3 $! Note for folks from other platforms changing things in here:
4 $! Fancy changes (based on compiler capabilities or VMS version or
5 $! whatever) are tricky, so go ahead and punt on those.
7 $! Simple changes, though (say, always setting something to 1, or undef,
8 $! or something like that) are straightforward. Adding a new item for the
9 $! ultimately created config.sh requires adding two lines to this file.
11 $! First, a line in the format:
13 $! after the line tagged ##ADD NEW CONSTANTS HERE##. Replace foo with the
14 $! variable name as it appears in config.sh.
16 $! Second, add a line in the format:
17 $! $ WC "foo='" + perl_foo + "'"
18 $! after the line tagged ##WRITE NEW CONSTANTS HERE##. Careful of the
19 $! quoting, as it can be tricky.
21 $! This .COM file expects to be called by configure.com, and thus expects
22 $! a few symbols in the environment. Notably:
24 $! One of: Using_Dec_C, Using_Vax_C, Using_Gnu_C set to "YES"
25 $! Dec_C_Version set to the Dec C version (defaults to 0 if not specified)
26 $! Has_Socketshr set to "T" if using socketshr
27 $! Has_Dec_C_Sockets set to "T" if using Dec C sockets
28 $! Use_Threads set to "T" if they're using threads
29 $! C_Compiler_Invoke is the command needed to invoke the C compiler
31 $! Set Dec_C_Version to something
32 $ WRITE_RESULT := "WRITE SYS$OUTPUT ""%CONFIG-I-RESULT "" + "
33 $ echo = "Write Sys$Output "
34 $ Dec_C_Version := "''Dec_C_Version'"
35 $ Dec_C_Version = Dec_C_Version + 0
36 $ Vms_Ver := "''f$extract(1,3, f$getsyi(""version""))'"
37 $ perl_extensions := "''extensions'"
38 $ if f$length(Mcc) .eq. 0 then Mcc := "cc"
39 $ MCC = f$edit(mcc, "UPCASE")
42 $ C_Compiler_Replace := "CC="
44 $ C_Compiler_Replace := "CC=CC=''Mcc'"
46 $ if "''Using_Dec_C'" .eqs. "Yes"
48 $ Checkcc := "''Mcc'/prefix=all"
53 $ if use_multiplicity .eqs. "Y"
55 $ perl_usemultiplicity = "define"
57 $ perl_usemultiplicity = "undef"
59 $! Some constant defaults.
61 $ hwname = f$getsyi("HW_NAME")
63 $ if "''myname'" .eqs. "" THEN myname = f$trnlnm("SYS$NODE")
65 $! ##ADD NEW CONSTANTS HERE##
66 $ perl_d_madvise="undef"
67 $ perl_selectminbits=32
68 $ perl_d_msync="undef"
69 $ perl_d_mprotect="undef"
70 $ perl_d_munmap="undef"
71 $ perl_crosscompile="undef"
72 $ perl_multiarch="undef"
74 $ perl_i_sysmman="undef"
75 $ perl_d_telldirproto="define"
76 $ perl_i_sysmount="undef"
77 $ perl_d_bincompat="undef"
78 $ perl_d_endspent="undef
79 $ perl_d_getspent="undef
80 $ perl_d_getspnam="undef
81 $ perl_d_setspent="undef
82 $ perl_d_fstatfs="undef"
83 $ perl_i_machcthreads="undef"
84 $ perl_i_pthread="define"
85 $ perl_d_fstatvfs="undef"
86 $ perl_usesocks="undef"
87 $ perl_d_vendorlib="undef"
88 $ perl_vendorlibexp=""
89 $ perl_d_statfsflags="undef"
90 $ perl_i_sysstatvfs="undef"
91 $ perl_i_mntent="undef"
92 $ perl_d_getmntent="undef"
93 $ perl_d_hasmntopt="undef"
94 $ perl_package="''package'"
95 $ perl_baserev = "''baserev'"
97 $ perl_installusrbinperl="undef"
99 $ perl_d_fseeko="undef"
100 $ perl_d_ftello="undef"
101 $ perl_d_readv="undef"
102 $ perl_d_writev="undef"
103 $ perl_i_machcthr="undef"
104 $ perl_i_netdb="undef"
105 $ perl_d_gnulibc="undef"
106 $ perl_cf_by="unknown"
110 $ perl_drand01 = "drand48()"
111 $ perl_randseedtype = "long int"
112 $ perl_seedfunc = "srand48"
113 $ perl_d_msg_ctrunc = "undef"
114 $ perl_d_msg_dontroute = "undef"
115 $ perl_d_msg_oob = "undef"
116 $ perl_d_msg_peek = "undef"
117 $ perl_d_msg_proxy = "undef"
118 $ perl_d_scm_rights = "undef"
119 $ perl_d_sendmsg = "undef"
120 $ perl_d_recvmsg = "undef"
121 $ perl_d_msghdr_s = "undef"
122 $ perl_d_cmsghdr_s = "undef"
123 $ perl_d_dbminit64 = "undef"
124 $ perl_d_dbmclose64 = "undef"
125 $ perl_d_fetch64 = "undef"
126 $ perl_d_store64 = "undef"
127 $ perl_d_delete64 = "undef"
128 $ perl_d_firstkey64 = "undef"
129 $ perl_d_nextkey64 = "undef"
130 $ perl_d_fstat64 = "undef"
131 $ perl_d_ftruncate64 = "undef"
132 $ perl_d_lseek64 = "undef"
133 $ perl_d_lstat64 = "undef"
134 $ perl_d_open64 = "undef"
135 $ perl_d_opendir64 = "undef"
136 $ perl_d_readdir64 = "undef"
137 $ perl_d_seekdir64 = "undef"
138 $ perl_d_stat64 = "undef"
139 $ perl_d_telldir64 = "undef"
140 $ perl_d_truncate64 = "undef"
141 $ perl_d_dirent64_s = "undef"
142 $ perl_d_fgetpos64 = "undef"
143 $ perl_d_fopen64 = "undef"
144 $ perl_d_freopen64 = "undef"
145 $ perl_d_fseek64 = "undef"
146 $ perl_d_fseeko64 = "undef"
147 $ perl_d_fsetpos64 = "undef"
148 $ perl_d_ftell64 = "undef"
149 $ perl_d_ftello64 = "undef"
150 $ perl_d_tmpfile64 = "undef"
151 $ IF use_64bit .eqs. "Y"
153 $ perl_use64bits = "define"
155 $ perl_use64bits = "undef"
157 $ perl_d_drand48proto = "define"
158 $ perl_libpth="/sys$share /sys$library"
160 $ perl_lddlflags="/Share"
165 $ perl_i_arpainet="undef"
166 $ perl_d_grpasswd="undef"
167 $ perl_d_setgrent="undef"
168 $ perl_d_getgrent="define"
169 $ perl_d_endgrent="define"
170 $ perl_d_pwpasswd="define"
171 $ perl_d_setpwent="define"
172 $ perl_d_getpwent="define"
173 $ perl_d_endpwent="define"
174 $ perl_d_phostname="undef"
175 $ perl_d_accessx="undef"
176 $ perl_d_eaccess="undef"
177 $ perl_ebcdic="undef"
179 $ perl_shrplib="define"
180 $ perl_usemymalloc=mymalloc
181 $ perl_usevfork="true"
182 $ perl_useposix="false"
183 $ perl_spitshell="write sys$output "
184 $ perl_dlsrc="dl_vms.c"
187 $ perl_prefix="perl_root"
188 $ perl_binexp="''perl_prefix':[000000]"
189 $ perl_builddir="''perl_prefix':[000000]"
190 $ perl_installbin="''perl_prefix':[000000]"
191 $ perl_installscript="''perl_prefix':[utils]"
192 $ perl_installman1dir="''perl_prefix':[man.man1]"
193 $ perl_installman3dir="''perl_prefix':[man.man3]"
194 $ perl_installprivlib="''perl_prefix':[lib]"
195 $ perl_installsitelib="''perl_prefix':[lib.site_perl]"
198 $ perl_d_sockpair="undef"
199 $ perl_i_neterrno="define"
200 $ perl_ldflags="/NoTrace/NoMap"
201 $ perl_d_lchown="undef"
202 $ perl_d_mknod="undef"
203 $ perl_d_union_semun="undef"
204 $ perl_d_semctl_semun="undef"
205 $ perl_d_semctl_semid_ds="undef"
206 $ IF (sharedperl.EQS."Y")
208 $ perl_obj_ext=".abj"
211 $ perl_exe_ext=".axe"
212 $ perl_lib_ext=".alb"
214 $ perl_obj_ext=".obj"
217 $ perl_exe_ext=".exe"
218 $ perl_lib_ext=".olb"
220 $ perl_dlobj="dl_vms''perl_obj_ext'"
222 $ perl_d_archlib="define"
223 $ perl_d_bincompat3="undef"
224 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
226 $ perl_d_castneg="define"
228 $ perl_d_chsize="undef"
229 $ perl_d_const="define"
230 $ perl_d_crypt="define"
231 $ perl_byteorder="1234"
234 $ perl_d_dup2="define"
235 $ perl_d_fchmod="undef"
236 $ perl_d_fchown="undef"
237 $ perl_d_fcntl="undef"
238 $ perl_d_fgetpos="define"
239 $ perl_d_flexfnam="define"
240 $ perl_d_flock="undef"
241 $ perl_d_fsetpos="define"
242 $ perl_d_getgrps="undef"
243 $ perl_d_setgrps="undef"
244 $ perl_d_getprior="undef"
245 $ perl_d_killpg="undef"
246 $ perl_d_link="undef"
247 $ perl_d_lstat="undef"
248 $ perl_d_lockf="undef"
249 $ perl_d_memcmp="define"
250 $ perl_d_memcpy="define"
251 $ perl_d_memmove="define"
252 $ perl_d_memset="define"
253 $ perl_d_mkdir="define"
255 $ perl_d_open3="define"
256 $ perl_d_poll="undef"
257 $ perl_d_readdir="define"
258 $ perl_d_seekdir="define"
259 $ perl_d_telldir="define"
260 $ perl_d_rewinddir="define"
261 $ perl_d_rename="define"
262 $ perl_d_rmdir="define"
264 $ perl_d_setegid="undef"
265 $ perl_d_seteuid="undef"
266 $ perl_d_setprior="undef"
267 $ perl_d_setregid="undef"
268 $ perl_d_setresgid="undef"
269 $ perl_d_setreuid="undef"
270 $ perl_d_setresuid="undef"
271 $ perl_d_setrgid="undef"
272 $ perl_d_setruid="undef"
273 $ perl_d_setsid="undef"
275 $ perl_d_shmatprototype="undef"
276 $ perl_d_statblks="undef"
277 $ perl_stdio_ptr="((*fp)->_ptr)"
278 $ perl_stdio_cnt="((*fp)->_cnt)"
279 $ perl_stdio_base="((*fp)->_base)"
280 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
281 $ perl_d_strctcpy="define"
282 $ perl_d_strerror="define"
283 $ perl_d_syserrlst="undef"
284 $ perl_d_strerrm="strerror((e),vaxc$errno)"
285 $ perl_d_symlink="undef"
286 $ perl_d_syscall="undef"
287 $ perl_d_system="define"
288 $ perl_timetype="time_t"
289 $ perl_d_vfork="define"
290 $ perl_signal_t="void"
291 $ perl_d_volatile="define"
292 $ perl_d_vprintf="define"
293 $ perl_d_charvspr="undef"
294 $ perl_d_waitpid="define"
295 $ perl_i_dirent="undef"
296 $ perl_d_dirnamlen="define"
297 $ perl_direntrytype="struct dirent"
298 $ perl_i_fcntl="undef"
300 $ perl_i_limits="define"
301 $ perl_i_memory="undef"
302 $ perl_i_ndbm="undef"
303 $ perl_i_stdarg="define"
305 $ perl_d_pwquota="undef"
306 $ perl_d_pwage="undef"
307 $ perl_d_pwchange="undef"
308 $ perl_d_pwclass="undef"
309 $ perl_d_pwexpire="undef"
310 $ perl_d_pwcomment="define"
311 $ perl_i_stddef="define"
312 $ perl_i_stdlib="define"
313 $ perl_i_string="define"
314 $ perl_i_sysdir="undef"
315 $ perl_i_sysfile="undef"
316 $ perl_i_sysioctl="undef"
317 $ perl_i_sysndir="undef"
318 $ perl_i_sysresrc="undef"
319 $ perl_i_sysselct="undef"
321 $ perl_i_rpcsvcdbm="undef"
322 $ perl_i_sfio="undef"
323 $ perl_i_sysstat="define"
324 $ perl_i_systimes="undef"
325 $ perl_i_systypes="define"
326 $ perl_i_sysun="undef"
327 $ perl_i_syswait="undef"
328 $ perl_i_termio="undef"
329 $ perl_i_sgtty="undef"
330 $ perl_i_termios="undef"
331 $ perl_i_time="define"
332 $ perl_i_systime="undef"
333 $ perl_i_systimek="undef"
334 $! perl_i_unistd="undef"
335 $ perl_i_utime="undef"
336 $ perl_i_varargs="undef"
337 $ perl_i_vfork="undef"
338 $ perl_prototype="define"
340 $ perl_stdchar="char"
341 $ perl_d_unlink_all_versions="undef"
342 $ perl_full_sed="_NLA0:"
343 $ perl_bin="/''perl_prefix'/000000"
344 $ perl_binexp="''perl_prefix':[000000]"
345 $ perl_d_alarm="define"
346 $ perl_d_casti32="define"
347 $ perl_d_chown="define"
348 $ perl_d_chroot="undef"
349 $ perl_d_cuserid="define"
350 $ perl_d_dbl_dig="define"
351 $ perl_d_difftime="define"
352 $ perl_d_fork="undef"
353 $ perl_d_getlogin="define"
354 $ perl_d_getppid="undef"
355 $ perl_d_nice="define"
356 $ perl_d_pause="define"
357 $ perl_d_pipe="define"
358 $ perl_d_readlink="undef"
359 $ perl_d_setlinebuf="undef"
360 $ perl_d_strchr="define"
361 $ perl_d_strtod="define"
362 $ perl_d_strtol="define"
363 $ perl_d_strtoul="define"
364 $ perl_d_tcgetpgrp="undef"
365 $ perl_d_tcsetpgrp="undef"
366 $ perl_d_times="define"
367 $ perl_d_tzname="undef"
368 $ perl_d_umask="define"
369 $ perl_fpostype="fpos_t"
370 $ perl_i_dlfcn="undef"
371 $ perl_i_float="define"
372 $ perl_i_math="define"
373 $ perl_lseektype="int"
374 $ perl_i_values="undef"
375 $ perl_malloctype="void *"
376 $ perl_freetype="void"
377 $ if "''mymalloc'".eqs."Y"
379 $ perl_d_mymalloc="define"
381 $ perl_d_mymalloc="undef"
384 $ perl_modetype="unsigned int"
385 $ perl_ssizetype="int"
386 $ perl_o_nonblock=" "
389 $ perl_d_eofnblk="undef"
390 $ perl_d_oldarchlib="define"
391 $ perl_privlibexp="''perl_prefix':[lib]"
392 $ perl_privlib="''perl_prefix':[lib]"
393 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
394 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
395 $ perl_sizetype="size_t"
396 $ perl_i_sysparam="undef"
397 $ perl_d_void_closedir="define"
398 $ perl_d_dlerror="undef"
399 $ perl_d_dlsymun="undef"
400 $ perl_d_suidsafe="undef"
401 $ perl_d_dosuid="undef"
402 $ perl_d_inetaton="undef"
403 $ perl_d_isascii="define"
404 $ perl_d_mkfifo="undef"
405 $ perl_d_safebcpy="undef"
406 $ perl_d_safemcpy="define"
407 $ perl_d_sanemcmp="define"
408 $ perl_d_setpgrp="undef"
409 $ perl_d_bsdsetpgrp="undef"
410 $ perl_d_bsdpgrp="undef"
411 $ perl_d_setpgid="undef"
412 $ perl_d_setpgrp2="undef"
413 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
414 $ perl_d_getpgid="undef"
415 $ perl_d_getpgrp="undef"
416 $ perl_d_bsdgetpgrp="undef"
417 $ perl_d_getpgrp2="undef"
418 $ perl_d_sfio="undef"
419 $ perl_usedl="define"
420 $ perl_startperl="""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ + ++$status != 0 and $exit = $status = undef;"""
421 $ perl_db_hashtype=" "
422 $ perl_db_prefixtype=" "
423 $ perl_useperlio="undef"
424 $ perl_defvoidused="15"
425 $ perl_voidflags="15"
426 $ perl_d_eunice="undef"
427 $ perl_d_pwgecos="define"
428 $ IF ("''Use_Threads'".eqs."T").and.("''VMS_VER'".LES."6.2")
430 $ 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"
434 $ IF ("''Using_Dec_C'".eqs."Yes")
436 $ perl_libc="(DECCRTL)"
440 $ perl_PATCHLEVEL="''patchlevel'"
441 $ perl_SUBVERSION="''subversion'"
446 $ if (use_64bit .eqs. "Y")
448 $ perl_d_PRIfldbl = "define"
449 $ perl_d_PRIgldbl = "define"
450 $ perl_d_PRId64 = "define"
451 $ perl_d_PRIu64 = "define"
452 $ perl_d_PRIo64 = "define"
453 $ perl_d_PRIx64 = "define"
454 $ perl_sPRIfldbl = """Lf"""
455 $ perl_sPRIgldbl = """Lg"""
456 $ perl_sPRId64 = """Ld"""
457 $ perl_sPRIu64 = """Lu"""
458 $ perl_sPRIo64 = """Lo"""
459 $ perl_sPRIx64 = """Lx"""
461 $ perl_d_PRIfldbl = "undef"
462 $ perl_d_PRIgldbl = "undef"
463 $ perl_d_PRId64 = "undef"
464 $ perl_d_PRIu64 = "undef"
465 $ perl_d_PRIo64 = "undef"
466 $ perl_d_PRIx64 = "undef"
467 $ perl_sPRIfldbl = ""
468 $ perl_sPRIgldbl = ""
476 $! Now some that we build up
478 $ LocalTime = f$time()
479 $ perl_cf_time= f$extract(0, 3, f$cvtime(LocalTime,, "WEEKDAY")) + " " + -
480 f$edit(f$cvtime(LocalTime, "ABSOLUTE", "MONTH"), "LOWERCASE") + -
481 " " + f$cvtime(LocalTime,, "DAY") + " " + f$cvtime(LocalTime,, "TIME") + -
482 " " + f$cvtime(LocalTime,, "YEAR")
483 $ if f$getsyi("HW_MODEL").ge.1024
485 $ perl_arch="VMS_AXP"
486 $ perl_archname="VMS_AXP"
487 $ perl_alignbytes="8"
489 $ perl_arch="VMS_VAX"
490 $ perl_archname="VMS_VAX"
491 $ perl_alignbytes="8"
493 $ if ("''Use_Threads'".eqs."T")
495 $ perl_arch = "''perl_arch'-thread"
496 $ perl_archname = "''perl_archname'-thread"
497 $ perl_d_old_pthread_create_joinable = "undef"
498 $ perl_old_pthread_create_joinable = " "
500 $ perl_d_old_pthread_create_joinable = "undef"
501 $ perl_old_pthread_create_joinable = " "
503 $ perl_osvers=f$edit(osvers, "TRIM")
504 $ if (perl_subversion + 0).eq.0
506 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL
508 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion
511 $! Some that we need to invoke the compiler for
512 $ OS := "open/write SOURCECHAN []temp.c"
513 $ WS := "write SOURCECHAN"
514 $ CS := "close SOURCECHAN"
515 $ DS := "delete/nolog []temp.*;*"
517 $ if ("''using_vax_c'".eqs."Yes").or.("''using_gnu_c'".eqs."Yes")
519 $ open/write OPTCHAN []temp.opt
520 $ IF ("''using_gnu_c'".eqs."Yes")
522 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
524 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
529 $! Check for __STDC__
533 $ WS "#include <stdlib.h>
535 $ WS "#include <stdio.h>
538 $ WS "#ifdef __STDC__
539 $ WS "printf(""42\n"");
541 $ WS "printf(""1\n"");
546 $ DEFINE SYS$ERROR _NLA0:
547 $ DEFINE SYS$OUTPUT _NLA0:
548 $ ON ERROR THEN CONTINUE
549 $ ON WARNING THEN CONTINUE
551 $ If (Needs_Opt.eqs."Yes")
553 $ link temp.obj,temp.opt/opt
557 $ DEASSIGN SYS$OUTPUT
559 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
560 $ DEFINE SYS$ERROR TEMPOUT
561 $ DEFINE SYS$OUTPUT TEMPOUT
564 $ DEASSIGN SYS$OUTPUT
566 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
570 $ perl_cpp_stuff=line
571 $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
573 $! Check for double size
577 $ WS "#include <stdlib.h>
579 $ WS "#include <stdio.h>
583 $ WS "foo = sizeof(double);
584 $ WS "printf(""%d\n"", foo);
588 $ DEFINE SYS$ERROR _NLA0:
589 $ DEFINE SYS$OUTPUT _NLA0:
590 $ ON ERROR THEN CONTINUE
591 $ ON WARNING THEN CONTINUE
593 $ If (Needs_Opt.eqs."Yes")
595 $ link temp.obj,temp.opt/opt
600 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
601 $ DEASSIGN SYS$OUTPUT
603 $ DEFINE SYS$ERROR TEMPOUT
604 $ DEFINE SYS$OUTPUT TEMPOUT
607 $ DEASSIGN SYS$OUTPUT
609 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
613 $ perl_doublesize=line
614 $ WRITE_RESULT "doublesize is ''perl_doublesize'"
616 $! Check for long double size
620 $ WS "#include <stdlib.h>
622 $ WS "#include <stdio.h>
625 $ WS "printf(""%d\n"", sizeof(long double));
629 $ DEFINE SYS$ERROR _NLA0:
630 $ DEFINE SYS$OUTPUT _NLA0:
631 $ ON ERROR THEN CONTINUE
632 $ ON WARNING THEN CONTINUE
634 $ teststatus = f$extract(9,1,$status)
635 $ if (teststatus.nes."1")
637 $ perl_longdblsize="0"
638 $ perl_d_longdbl="undef"
640 $ ON ERROR THEN CONTINUE
641 $ ON WARNING THEN CONTINUE
642 $ If (Needs_Opt.eqs."Yes")
644 $ link temp.obj,temp.opt/opt
648 $ teststatus = f$extract(9,1,$status)
649 $ DEASSIGN SYS$OUTPUT
651 $ if (teststatus.nes."1")
653 $ perl_longdblsize="0"
654 $ perl_d_longdbl="undef"
656 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
657 $ DEFINE SYS$ERROR TEMPOUT
658 $ DEFINE SYS$OUTPUT TEMPOUT
661 $ DEASSIGN SYS$OUTPUT
663 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
667 $ perl_longdblsize=line
668 $ perl_d_longdbl="define"
671 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
672 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
674 $! Check for long long existance and size
678 $ WS "#include <stdlib.h>
680 $ WS "#include <stdio.h>
683 $ WS "printf(""%d\n"", sizeof(long long));
687 $ DEFINE SYS$ERROR _NLA0:
688 $ DEFINE SYS$OUTPUT _NLA0:
689 $ on error then continue
690 $ on warning then continue
692 $ If (Needs_Opt.eqs."Yes")
694 $ link temp.obj,temp.opt/opt
698 $ teststatus = f$extract(9,1,$status)
699 $ DEASSIGN SYS$OUTPUT
701 $ if (teststatus.nes."1")
703 $ perl_longlongsize="0"
704 $ perl_d_longlong="undef"
706 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
707 $ DEFINE SYS$ERROR TEMPOUT
708 $ DEFINE SYS$OUTPUT TEMPOUT
711 $ DEASSIGN SYS$OUTPUT
713 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
717 $ perl_longlongsize=line
718 $ perl_d_longlong="define"
720 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
721 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
723 $! Check for int size
727 $ WS "#include <stdlib.h>
729 $ WS "#include <stdio.h>
732 $ WS "printf(""%d\n"", sizeof(int));
736 $ DEFINE SYS$ERROR _NLA0:
737 $ DEFINE SYS$OUTPUT _NLA0:
738 $ on error then continue
739 $ on warning then continue
741 $ If (Needs_Opt.eqs."Yes")
743 $ link temp.obj,temp.opt/opt
747 $ If (Needs_Opt.eqs."Yes")
749 $ link temp.obj,temp.opt/opt
753 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
754 $ DEASSIGN SYS$OUTPUT
756 $ DEFINE SYS$ERROR TEMPOUT
757 $ DEFINE SYS$OUTPUT TEMPOUT
760 $ DEASSIGN SYS$OUTPUT
762 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
767 $ WRITE_RESULT "intsize is ''perl_intsize'"
769 $! Check for short size
773 $ WS "#include <stdlib.h>
775 $ WS "#include <stdio.h>
778 $ WS "printf(""%d\n"", sizeof(short));
782 $ DEFINE SYS$ERROR _NLA0:
783 $ DEFINE SYS$OUTPUT _NLA0:
784 $ on error then continue
785 $ on warning then continue
787 $ If (Needs_Opt.eqs."Yes")
789 $ link temp.obj,temp.opt/opt
793 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
794 $ DEASSIGN SYS$OUTPUT
796 $ DEFINE SYS$ERROR TEMPOUT
797 $ DEFINE SYS$OUTPUT TEMPOUT
800 $ DEASSIGN SYS$OUTPUT
802 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
806 $ perl_shortsize=line
807 $ WRITE_RESULT "shortsize is ''perl_shortsize'"
809 $! Check for long size
813 $ WS "#include <stdlib.h>
815 $ WS "#include <stdio.h>
819 $ WS "foo = sizeof(long);
820 $ WS "printf(""%d\n"", foo);
824 $ DEFINE SYS$ERROR _NLA0:
825 $ DEFINE SYS$OUTPUT _NLA0:
826 $ on error then continue
827 $ on warning then continue
829 $ If (Needs_Opt.eqs."Yes")
831 $ link temp.obj,temp.opt/opt
835 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
836 $ DEASSIGN SYS$OUTPUT
838 $ DEFINE SYS$ERROR TEMPOUT
839 $ DEFINE SYS$OUTPUT TEMPOUT
842 $ DEASSIGN SYS$OUTPUT
844 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
849 $ WRITE_RESULT "longsize is ''perl_longsize'"
851 $! Check the prototype for getgid
855 $ WS "#include <stdlib.h>
857 $ WS "#include <stdio.h>
858 $ WS "#include <types.h>
859 $ WS "#include <unistd.h>
866 $ DEFINE SYS$ERROR _NLA0:
867 $ DEFINE SYS$OUTPUT _NLA0:
868 $ on error then continue
869 $ on warning then continue
871 $ teststatus = f$extract(9,1,$status)
872 $ DEASSIGN SYS$OUTPUT
874 $ if (teststatus.nes."1")
876 $! Okay, gid_t failed. Must be unsigned int
877 $ perl_gidtype = "unsigned int"
879 $ perl_gidtype = "gid_t"
881 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
883 $! Check to see if we've got dev_t
887 $ WS "#include <stdlib.h>
889 $ WS "#include <stdio.h>
890 $ WS "#include <types.h>
891 $ WS "#include <unistd.h>
898 $ DEFINE SYS$ERROR _NLA0:
899 $ DEFINE SYS$OUTPUT _NLA0:
900 $ on error then continue
901 $ on warning then continue
903 $ teststatus = f$extract(9,1,$status)
904 $ DEASSIGN SYS$OUTPUT
906 $ if (teststatus.nes."1")
908 $! Okay, dev_t failed. Must be unsigned int
909 $ perl_devtype = "unsigned int"
911 $ perl_devtype = "dev_t"
913 $ WRITE_RESULT "Dev_t is ''perl_devtype'"
915 $! Check to see if we've got unistd.h (which we ought to, but you never know)
919 $ WS "#include <stdlib.h>
921 $ WS "#include <unistd.h>
927 $ DEFINE SYS$ERROR _NLA0:
928 $ DEFINE SYS$OUTPUT _NLA0:
929 $ on error then continue
930 $ on warning then continue
932 $ teststatus = f$extract(9,1,$status)
933 $ DEASSIGN SYS$OUTPUT
935 $ if (teststatus.nes."1")
937 $! Okay, failed. Must not have it
938 $ perl_i_unistd = "undef"
940 $ perl_i_unistd = "define"
943 $ WRITE_RESULT "i_unistd is ''perl_i_unistd'"
945 $! Check to see if we've got shadow.h (probably not, but...)
949 $ WS "#include <stdlib.h>
951 $ WS "#include <shadow.h>
957 $ DEFINE SYS$ERROR _NLA0:
958 $ DEFINE SYS$OUTPUT _NLA0:
959 $ on error then continue
960 $ on warning then continue
962 $ teststatus = f$extract(9,1,$status)
963 $ DEASSIGN SYS$OUTPUT
965 $ if (teststatus.nes."1")
967 $! Okay, failed. Must not have it
968 $ perl_i_shadow = "undef"
970 $ perl_i_shadow = "define"
973 $ WRITE_RESULT "i_shadow is ''perl_i_shadow'"
975 $! Check to see if we've got socks.h (probably not, but...)
979 $ WS "#include <stdlib.h>
981 $ WS "#include <socks.h>
987 $ DEFINE SYS$ERROR _NLA0:
988 $ DEFINE SYS$OUTPUT _NLA0:
989 $ on error then continue
990 $ on warning then continue
992 $ teststatus = f$extract(9,1,$status)
993 $ DEASSIGN SYS$OUTPUT
995 $ if (teststatus.nes."1")
997 $! Okay, failed. Must not have it
998 $ perl_i_socks = "undef"
1000 $ perl_i_socks = "define"
1003 $ WRITE_RESULT "i_socks is ''perl_i_socks'"
1005 $! Check the prototype for select
1007 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1011 $ WS "#include <stdlib.h>
1013 $ WS "#include <stdio.h>
1014 $ WS "#include <types.h>
1015 $ WS "#include <unistd.h>
1016 $ if ("''Has_Socketshr'".eqs."T")
1018 $ WS "#include <socketshr.h>"
1020 $ WS "#include <time.h>
1021 $ WS "#include <socket.h>
1028 $ WS "bar = select(2, foo, foo, foo, NULL);
1032 $ DEFINE SYS$ERROR _NLA0:
1033 $ DEFINE SYS$OUTPUT _NLA0:
1034 $ on error then continue
1035 $ on warning then continue
1037 $ teststatus = f$extract(9,1,$status)
1038 $ DEASSIGN SYS$OUTPUT
1039 $ DEASSIGN SYS$ERROR
1040 $ if (teststatus.nes."1")
1042 $! Okay, fd_set failed. Must be an int
1043 $ perl_selecttype = "int *"
1045 $ perl_selecttype="fd_set *"
1048 $ ! No sockets, so stick in an int *
1049 $ perl_selecttype = "int *"
1051 $ WRITE_RESULT "selectype is ''perl_selecttype'"
1053 $! Check to see if fd_set exists
1057 $ WS "#include <stdlib.h>
1059 $ WS "#include <stdio.h>
1060 $ WS "#include <types.h>
1061 $ WS "#include <unistd.h>
1062 $ if ("''Has_Socketshr'".eqs."T")
1064 $ WS "#include <socketshr.h>"
1066 $ IF ("''Has_Dec_C_Sockets'".eqs."T")
1068 $ WS "#include <time.h>
1069 $ WS "#include <socket.h>
1078 $ DEFINE SYS$ERROR _NLA0:
1079 $ DEFINE SYS$OUTPUT _NLA0:
1080 $ on error then continue
1081 $ on warning then continue
1083 $ teststatus = f$extract(9,1,$status)
1084 $ DEASSIGN SYS$OUTPUT
1085 $ DEASSIGN SYS$ERROR
1086 $ if (teststatus.nes."1")
1088 $! Okay, fd_set failed. Must not exist
1089 $ perl_d_fd_set = "undef"
1091 $ perl_d_fd_set="define"
1093 $ WRITE_RESULT "d_fd_set is ''perl_d_fd_set'"
1095 $! Check for inttypes.h
1099 $ WS "#include <stdlib.h>
1101 $ WS "#include <stdio.h>
1102 $ WS "#include <unistd.h>
1103 $ WS "#include <inttypes.h>
1109 $ DEFINE SYS$ERROR _NLA0:
1110 $ DEFINE SYS$OUTPUT _NLA0:
1111 $ on error then continue
1112 $ on warning then continue
1114 $ savedstatus = $status
1115 $ teststatus = f$extract(9,1,savedstatus)
1116 $ if (teststatus.nes."1")
1118 $ perl_i_inttypes="undef"
1119 $ DEASSIGN SYS$OUTPUT
1120 $ DEASSIGN SYS$ERROR
1122 $ If (Needs_Opt.eqs."Yes")
1124 $ link temp.obj,temp.opt/opt
1128 $ savedstatus = $status
1129 $ teststatus = f$extract(9,1,savedstatus)
1130 $ DEASSIGN SYS$OUTPUT
1131 $ DEASSIGN SYS$ERROR
1132 $ if (teststatus.nes."1")
1134 $ perl_i_inttypes="undef"
1136 $ perl_i_inttypes="define"
1139 $ WRITE_RESULT "i_inttypes is ''perl_i_inttypes'"
1141 $! Check to see if int64_t exists
1145 $ WS "#include <stdlib.h>
1147 $ WS "#include <stdio.h>
1148 $ WS "#include <types.h>
1149 $ WS "#''perl_i_inttypes IIH
1151 $ WS "#include <inttypes.h>
1153 $ WS "#include <unistd.h>
1160 $ DEFINE SYS$ERROR _NLA0:
1161 $ DEFINE SYS$OUTPUT _NLA0:
1162 $ on error then continue
1163 $ on warning then continue
1165 $ teststatus = f$extract(9,1,$status)
1166 $ DEASSIGN SYS$OUTPUT
1167 $ DEASSIGN SYS$ERROR
1168 $ if (teststatus.nes."1")
1170 $! Okay, int64_t failed. Must not exist
1171 $ perl_d_int64t = "undef"
1173 $ perl_d_int64t="define"
1175 $ WRITE_RESULT "d_int64t is ''perl_d_int64t'"
1177 $! Check to see if off64_t exists
1181 $ WS "#include <stdlib.h>
1183 $ WS "#include <stdio.h>
1184 $ WS "#include <types.h>
1185 $ WS "#''perl_i_inttypes IIH
1187 $ WS "#include <inttypes.h>
1189 $ WS "#include <unistd.h>
1196 $ DEFINE SYS$ERROR _NLA0:
1197 $ DEFINE SYS$OUTPUT _NLA0:
1198 $ on error then continue
1199 $ on warning then continue
1201 $ teststatus = f$extract(9,1,$status)
1202 $ DEASSIGN SYS$OUTPUT
1203 $ DEASSIGN SYS$ERROR
1204 $ if (teststatus.nes."1")
1206 $! Okay, off64_t failed. Must not exist
1207 $ perl_d_off64_t = "undef"
1209 $ perl_d_off64_t="define"
1211 $ WRITE_RESULT "d_off64_t is ''perl_d_off64_t'"
1213 $! Check to see if gethostname exists
1215 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1219 $ WS "#include <stdlib.h>
1221 $ WS "#include <stdio.h>
1222 $ WS "#include <types.h>
1223 $ WS "#include <unistd.h>
1224 $ if ("''Has_Socketshr'".eqs."T")
1226 $ WS "#include <socketshr.h>"
1228 $ WS "#include <time.h>
1229 $ WS "#include <socket.h>
1233 $ WS "char name[100];
1236 $ WS "baz = gethostname(name, bar);
1240 $ DEFINE SYS$ERROR _NLA0:
1241 $ DEFINE SYS$OUTPUT _NLA0:
1242 $ on error then continue
1243 $ on warning then continue
1245 $ teststatus = f$extract(9,1,$status)
1246 $ DEASSIGN SYS$OUTPUT
1247 $ DEASSIGN SYS$ERROR
1248 $ if (teststatus.nes."1")
1250 $! Okay, compile failed. Must not have it
1251 $ perl_dgethname = "undef"
1253 $ If (Needs_Opt.eqs."Yes")
1255 $ link temp.obj,temp.opt/opt
1259 $ savedstatus = $status
1260 $ teststatus = f$extract(9,1,savedstatus)
1261 $ if (teststatus.nes."1")
1263 $ perl_d_gethname="undef"
1265 $ perl_d_gethname="define"
1269 $ ! No sockets, so no gethname
1270 $ perl_d_gethname = "undef"
1272 $ WRITE_RESULT "d_gethname is ''perl_d_gethname'"
1274 $! Check for sys/file.h
1278 $ WS "#include <stdlib.h>
1280 $ WS "#include <stdio.h>
1281 $ WS "#include <unistd.h>
1282 $ WS "#include <sys/file.h>
1288 $ DEFINE SYS$ERROR _NLA0:
1289 $ DEFINE SYS$OUTPUT _NLA0:
1290 $ on error then continue
1291 $ on warning then continue
1293 $ savedstatus = $status
1294 $ teststatus = f$extract(9,1,savedstatus)
1295 $ if (teststatus.nes."1")
1297 $ perl_i_sysfile="undef"
1298 $ DEASSIGN SYS$OUTPUT
1299 $ DEASSIGN SYS$ERROR
1301 $ If (Needs_Opt.eqs."Yes")
1303 $ link temp.obj,temp.opt/opt
1307 $ savedstatus = $status
1308 $ teststatus = f$extract(9,1,savedstatus)
1309 $ DEASSIGN SYS$OUTPUT
1310 $ DEASSIGN SYS$ERROR
1311 $ if (teststatus.nes."1")
1313 $ perl_i_sysfile="undef"
1315 $ perl_i_sysfile="define"
1318 $ WRITE_RESULT "i_sysfile is ''perl_i_sysfile'"
1324 $ WS "#include <stdlib.h>
1326 $ WS "#include <stdio.h>
1327 $ WS "#include <unistd.h>
1328 $ WS "#include <poll.h>
1334 $ DEFINE SYS$ERROR _NLA0:
1335 $ DEFINE SYS$OUTPUT _NLA0:
1336 $ on error then continue
1337 $ on warning then continue
1339 $ savedstatus = $status
1340 $ teststatus = f$extract(9,1,savedstatus)
1341 $ if (teststatus.nes."1")
1343 $ perl_i_poll="undef"
1344 $ DEASSIGN SYS$OUTPUT
1345 $ DEASSIGN SYS$ERROR
1347 $ If (Needs_Opt.eqs."Yes")
1349 $ link temp.obj,temp.opt/opt
1353 $ savedstatus = $status
1354 $ teststatus = f$extract(9,1,savedstatus)
1355 $ DEASSIGN SYS$OUTPUT
1356 $ DEASSIGN SYS$ERROR
1357 $ if (teststatus.nes."1")
1359 $ perl_i_poll="undef"
1361 $ perl_i_poll="define"
1364 $ WRITE_RESULT "i_poll is ''perl_i_poll'"
1366 $! Check for sys/uio.h
1370 $ WS "#include <stdlib.h>
1372 $ WS "#include <stdio.h>
1373 $ WS "#include <unistd.h>
1374 $ WS "#include <sys/uio.h>
1380 $ DEFINE SYS$ERROR _NLA0:
1381 $ DEFINE SYS$OUTPUT _NLA0:
1382 $ on error then continue
1383 $ on warning then continue
1385 $ savedstatus = $status
1386 $ teststatus = f$extract(9,1,savedstatus)
1387 $ if (teststatus.nes."1")
1389 $ perl_i_sysuio="undef"
1390 $ DEASSIGN SYS$OUTPUT
1391 $ DEASSIGN SYS$ERROR
1393 $ If (Needs_Opt.eqs."Yes")
1395 $ link temp.obj,temp.opt/opt
1399 $ savedstatus = $status
1400 $ teststatus = f$extract(9,1,savedstatus)
1401 $ DEASSIGN SYS$OUTPUT
1402 $ DEASSIGN SYS$ERROR
1403 $ if (teststatus.nes."1")
1405 $ perl_i_sysuio="undef"
1407 $ perl_i_sysuio="define"
1410 $ WRITE_RESULT "i_sysuio is ''perl_i_sysuio'"
1412 $! Check for sys/access.h
1416 $ WS "#include <stdlib.h>
1418 $ WS "#include <stdio.h>
1419 $ WS "#include <unistd.h>
1420 $ WS "#include <sys/access.h>
1426 $ DEFINE SYS$ERROR _NLA0:
1427 $ DEFINE SYS$OUTPUT _NLA0:
1428 $ on error then continue
1429 $ on warning then continue
1431 $ savedstatus = $status
1432 $ teststatus = f$extract(9,1,savedstatus)
1433 $ if (teststatus.nes."1")
1435 $ perl_i_sysaccess="undef"
1436 $ DEASSIGN SYS$OUTPUT
1437 $ DEASSIGN SYS$ERROR
1439 $ If (Needs_Opt.eqs."Yes")
1441 $ link temp.obj,temp.opt/opt
1445 $ savedstatus = $status
1446 $ teststatus = f$extract(9,1,savedstatus)
1447 $ DEASSIGN SYS$OUTPUT
1448 $ DEASSIGN SYS$ERROR
1449 $ if (teststatus.nes."1")
1451 $ perl_i_sysaccess="undef"
1453 $ perl_i_sysaccess="define"
1456 $ WRITE_RESULT "i_sysaccess is ''perl_i_sysaccess'"
1458 $! Check for sys/security.h
1462 $ WS "#include <stdlib.h>
1464 $ WS "#include <stdio.h>
1465 $ WS "#include <unistd.h>
1466 $ WS "#include <sys/security.h>
1472 $ DEFINE SYS$ERROR _NLA0:
1473 $ DEFINE SYS$OUTPUT _NLA0:
1474 $ on error then continue
1475 $ on warning then continue
1477 $ savedstatus = $status
1478 $ teststatus = f$extract(9,1,savedstatus)
1479 $ if (teststatus.nes."1")
1481 $ perl_i_syssecrt="undef"
1482 $ DEASSIGN SYS$OUTPUT
1483 $ DEASSIGN SYS$ERROR
1485 $ If (Needs_Opt.eqs."Yes")
1487 $ link temp.obj,temp.opt/opt
1491 $ savedstatus = $status
1492 $ teststatus = f$extract(9,1,savedstatus)
1493 $ DEASSIGN SYS$OUTPUT
1494 $ DEASSIGN SYS$ERROR
1495 $ if (teststatus.nes."1")
1497 $ perl_i_syssecrt="undef"
1499 $ perl_i_syssecrt="define"
1502 $ WRITE_RESULT "i_syssecrt is ''perl_i_syssecrt'"
1504 $! Check for fcntl.h
1508 $ WS "#include <stdlib.h>
1510 $ WS "#include <stdio.h>
1511 $ WS "#include <unistd.h>
1512 $ WS "#include <fcntl.h>
1518 $ DEFINE SYS$ERROR _NLA0:
1519 $ DEFINE SYS$OUTPUT _NLA0:
1520 $ on error then continue
1521 $ on warning then continue
1523 $ savedstatus = $status
1524 $ teststatus = f$extract(9,1,savedstatus)
1525 $ if (teststatus.nes."1")
1527 $ perl_i_fcntl="undef"
1528 $ DEASSIGN SYS$OUTPUT
1529 $ DEASSIGN SYS$ERROR
1531 $ If (Needs_Opt.eqs."Yes")
1533 $ link temp.obj,temp.opt/opt
1537 $ savedstatus = $status
1538 $ teststatus = f$extract(9,1,savedstatus)
1539 $ DEASSIGN SYS$OUTPUT
1540 $ DEASSIGN SYS$ERROR
1541 $ if (teststatus.nes."1")
1543 $ perl_i_fcntl="undef"
1545 $ perl_i_fcntl="define"
1548 $ WRITE_RESULT "i_fcntl is ''perl_i_fcntl'"
1554 $ WS "#include <stdlib.h>
1556 $ WS "#include <stdio.h>
1557 $ WS "#include <unistd.h>
1558 $ WS "#include <fcntl.h>
1565 $ DEFINE SYS$ERROR _NLA0:
1566 $ DEFINE SYS$OUTPUT _NLA0:
1567 $ on error then continue
1568 $ on warning then continue
1570 $ savedstatus = $status
1571 $ teststatus = f$extract(9,1,savedstatus)
1572 $ if (teststatus.nes."1")
1574 $ perl_d_fcntl="undef"
1575 $ DEASSIGN SYS$OUTPUT
1576 $ DEASSIGN SYS$ERROR
1578 $ If (Needs_Opt.eqs."Yes")
1580 $ link temp.obj,temp.opt/opt
1584 $ savedstatus = $status
1585 $ teststatus = f$extract(9,1,savedstatus)
1586 $ DEASSIGN SYS$OUTPUT
1587 $ DEASSIGN SYS$ERROR
1588 $ if (teststatus.nes."1")
1590 $ perl_d_fcntl="undef"
1592 $ perl_d_fcntl="define"
1595 $ WRITE_RESULT "d_fcntl is ''perl_d_fcntl'"
1601 $ WS "#include <stdlib.h>
1603 $ WS "#include <string.h>
1607 $ WS "place = memchr(""foo"", 47, 3)
1611 $ DEFINE SYS$ERROR _NLA0:
1612 $ DEFINE SYS$OUTPUT _NLA0:
1613 $ on error then continue
1614 $ on warning then continue
1616 $ savedstatus = $status
1617 $ teststatus = f$extract(9,1,savedstatus)
1618 $ if (teststatus.nes."1")
1620 $ perl_d_memchr="undef"
1621 $ DEASSIGN SYS$OUTPUT
1622 $ DEASSIGN SYS$ERROR
1624 $ If (Needs_Opt.eqs."Yes")
1626 $ link temp.obj,temp.opt/opt
1630 $ savedstatus = $status
1631 $ teststatus = f$extract(9,1,savedstatus)
1632 $ DEASSIGN SYS$OUTPUT
1633 $ DEASSIGN SYS$ERROR
1634 $ if (teststatus.nes."1")
1636 $ perl_d_memchr="undef"
1638 $ perl_d_memchr="define"
1641 $ WRITE_RESULT "d_memchr is ''perl_d_memchr'"
1643 $! Check for strtoull
1647 $ WS "#include <stdlib.h>
1649 $ WS "#include <string.h>
1652 $ WS "unsigned __int64 result;
1653 $ WS "result = strtoull(""123123"", NULL, 10);
1657 $ DEFINE SYS$ERROR _NLA0:
1658 $ DEFINE SYS$OUTPUT _NLA0:
1659 $ on error then continue
1660 $ on warning then continue
1662 $ savedstatus = $status
1663 $ teststatus = f$extract(9,1,savedstatus)
1664 $ if (teststatus.nes."1")
1666 $ perl_d_strtoull="undef"
1667 $ DEASSIGN SYS$OUTPUT
1668 $ DEASSIGN SYS$ERROR
1670 $ If (Needs_Opt.eqs."Yes")
1672 $ link temp.obj,temp.opt/opt
1676 $ savedstatus = $status
1677 $ teststatus = f$extract(9,1,savedstatus)
1678 $ DEASSIGN SYS$OUTPUT
1679 $ DEASSIGN SYS$ERROR
1680 $ if (teststatus.nes."1")
1682 $ perl_d_strtoull="undef"
1684 $ perl_d_strtoull="define"
1687 $ WRITE_RESULT "d_strtoull is ''perl_d_strtoull'"
1693 $ WS "#include <stdlib.h>
1695 $ WS "#include <string.h>
1698 $ WS " __int64 result;
1699 $ WS "result = atoll(""123123"");
1703 $ DEFINE SYS$ERROR _NLA0:
1704 $ DEFINE SYS$OUTPUT _NLA0:
1705 $ on error then continue
1706 $ on warning then continue
1708 $ savedstatus = $status
1709 $ teststatus = f$extract(9,1,savedstatus)
1710 $ if (teststatus.nes."1")
1712 $ perl_d_atoll="undef"
1713 $ DEASSIGN SYS$OUTPUT
1714 $ DEASSIGN SYS$ERROR
1716 $ If (Needs_Opt.eqs."Yes")
1718 $ link temp.obj,temp.opt/opt
1722 $ savedstatus = $status
1723 $ teststatus = f$extract(9,1,savedstatus)
1724 $ DEASSIGN SYS$OUTPUT
1725 $ DEASSIGN SYS$ERROR
1726 $ if (teststatus.nes."1")
1728 $ perl_d_atoll="undef"
1730 $ perl_d_atoll="define"
1733 $ WRITE_RESULT "d_atoll is ''perl_d_atoll'"
1739 $ WS "#include <stdlib.h>
1741 $ WS "#include <string.h>
1745 $ WS "result = atolf(""123123"");
1749 $ DEFINE SYS$ERROR _NLA0:
1750 $ DEFINE SYS$OUTPUT _NLA0:
1751 $ on error then continue
1752 $ on warning then continue
1754 $ savedstatus = $status
1755 $ teststatus = f$extract(9,1,savedstatus)
1756 $ if (teststatus.nes."1")
1758 $ perl_d_atolf="undef"
1759 $ DEASSIGN SYS$OUTPUT
1760 $ DEASSIGN SYS$ERROR
1762 $ If (Needs_Opt.eqs."Yes")
1764 $ link temp.obj,temp.opt/opt
1768 $ savedstatus = $status
1769 $ teststatus = f$extract(9,1,savedstatus)
1770 $ DEASSIGN SYS$OUTPUT
1771 $ DEASSIGN SYS$ERROR
1772 $ if (teststatus.nes."1")
1774 $ perl_d_atolf="undef"
1776 $ perl_d_atolf="define"
1779 $ WRITE_RESULT "d_atolf is ''perl_d_atolf'"
1785 $ WS "#include <stdlib.h>
1787 $ WS "#include <stdio.h>
1788 $ WS "#include <unistd.h>
1791 $ WS "access("foo", F_OK);
1795 $ DEFINE SYS$ERROR _NLA0:
1796 $ DEFINE SYS$OUTPUT _NLA0:
1797 $ on error then continue
1798 $ on warning then continue
1800 $ savedstatus = $status
1801 $ teststatus = f$extract(9,1,savedstatus)
1802 $ if (teststatus.nes."1")
1804 $ perl_d_access="undef"
1805 $ DEASSIGN SYS$OUTPUT
1806 $ DEASSIGN SYS$ERROR
1808 $ If (Needs_Opt.eqs."Yes")
1810 $ link temp.obj,temp.opt/opt
1814 $ savedstatus = $status
1815 $ teststatus = f$extract(9,1,savedstatus)
1816 $ DEASSIGN SYS$OUTPUT
1817 $ DEASSIGN SYS$ERROR
1818 $ if (teststatus.nes."1")
1820 $ perl_d_access="undef"
1822 $ perl_d_access="define"
1825 $ WRITE_RESULT "d_access is ''perl_d_access'"
1831 $ WS "#include <stdlib.h>
1833 $ WS "#include <stdio.h>
1834 $ WS "#include <strings.h>
1838 $ WS "bzero(foo, 10);
1842 $ DEFINE SYS$ERROR _NLA0:
1843 $ DEFINE SYS$OUTPUT _NLA0:
1844 $ on error then continue
1845 $ on warning then continue
1847 $ savedstatus = $status
1848 $ teststatus = f$extract(9,1,savedstatus)
1849 $ if (teststatus.nes."1")
1851 $ perl_d_bzero="undef"
1852 $ DEASSIGN SYS$OUTPUT
1853 $ DEASSIGN SYS$ERROR
1855 $ If (Needs_Opt.eqs."Yes")
1857 $ link temp.obj,temp.opt/opt
1861 $ savedstatus = $status
1862 $ teststatus = f$extract(9,1,savedstatus)
1863 $ DEASSIGN SYS$OUTPUT
1864 $ DEASSIGN SYS$ERROR
1865 $ if (teststatus.nes."1")
1867 $ perl_d_bzero="undef"
1869 $ perl_d_bzero="define"
1872 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
1878 $ WS "#include <stdlib.h>
1880 $ WS "#include <stdio.h>
1881 $ WS "#include <strings.h>
1884 $ WS "char foo[10], bar[10];
1885 $ WS "bcopy(""foo"", bar, 3);
1889 $ DEFINE SYS$ERROR _NLA0:
1890 $ DEFINE SYS$OUTPUT _NLA0:
1891 $ on error then continue
1892 $ on warning then continue
1894 $ savedstatus = $status
1895 $ teststatus = f$extract(9,1,savedstatus)
1896 $ if (teststatus.nes."1")
1898 $ perl_d_bcopy="undef"
1899 $ DEASSIGN SYS$OUTPUT
1900 $ DEASSIGN SYS$ERROR
1902 $ If (Needs_Opt.eqs."Yes")
1904 $ link temp.obj,temp.opt/opt
1908 $ savedstatus = $status
1909 $ teststatus = f$extract(9,1,savedstatus)
1910 $ DEASSIGN SYS$OUTPUT
1911 $ DEASSIGN SYS$ERROR
1912 $ if (teststatus.nes."1")
1914 $ perl_d_bcopy="undef"
1916 $ perl_d_bcopy="define"
1919 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
1921 $! Check for mkstemp
1925 $ WS "#include <stdlib.h>
1927 $ WS "#include <stdio.h>
1930 $ WS "mkstemp(""foo"");
1934 $ DEFINE SYS$ERROR _NLA0:
1935 $ DEFINE SYS$OUTPUT _NLA0:
1936 $ on error then continue
1937 $ on warning then continue
1939 $ If (Needs_Opt.eqs."Yes")
1941 $ link temp.obj,temp.opt/opt
1945 $ savedstatus = $status
1946 $ teststatus = f$extract(9,1,savedstatus)
1947 $ DEASSIGN SYS$OUTPUT
1948 $ DEASSIGN SYS$ERROR
1949 $ if (teststatus.nes."1")
1951 $ perl_d_mkstemp="undef"
1953 $ perl_d_mkstemp="define"
1955 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
1957 $! Check for setvbuf
1961 $ WS "#include <stdlib.h>
1963 $ WS "#include <stdio.h>
1967 $ WS "char Buffer[99];
1968 $ WS "foo = fopen(""foo"", ""r"");
1969 $ WS "setvbuf(foo, Buffer, 0, 0);
1973 $ DEFINE SYS$ERROR _NLA0:
1974 $ DEFINE SYS$OUTPUT _NLA0:
1975 $ on error then continue
1976 $ on warning then continue
1978 $ If (Needs_Opt.eqs."Yes")
1980 $ link temp.obj,temp.opt/opt
1984 $ teststatus = f$extract(9,1,$status)
1985 $ DEASSIGN SYS$OUTPUT
1986 $ DEASSIGN SYS$ERROR
1987 $ if (teststatus.nes."1")
1989 $ perl_d_setvbuf="undef"
1991 $ perl_d_setvbuf="define"
1993 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
1999 $ WS "#include <stdlib.h>
2001 $ WS "#include <stdio.h>
2004 $ WS "setenv(""FOO"", ""BAR"", 0);
2008 $ DEFINE SYS$ERROR _NLA0:
2009 $ DEFINE SYS$OUTPUT _NLA0:
2010 $ on error then continue
2011 $ on warning then continue
2013 $ If (Needs_Opt.eqs."Yes")
2015 $ link temp,temp/opt
2019 $ teststatus = f$extract(9,1,$status)
2020 $ DEASSIGN SYS$OUTPUT
2021 $ DEASSIGN SYS$ERROR
2022 $ if (teststatus.nes."1")
2024 $ perl_d_setenv="undef"
2026 $ perl_d_setenv="define"
2028 $ WRITE_RESULT "d_setenv is ''perl_d_setenv'"
2030 $! Check for <netinet/in.h>
2032 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2036 $ WS "#include <stdlib.h>
2038 $ WS "#include <stdio.h>
2039 $ if ("''Has_Socketshr'".eqs."T")
2041 $ WS "#include <socketshr.h>"
2043 $ WS "#include <netdb.h>
2045 $ WS "#include <netinet/in.h>"
2051 $ DEFINE SYS$ERROR _NLA0:
2052 $ DEFINE SYS$OUTPUT _NLA0:
2053 $ on error then continue
2054 $ on warning then continue
2056 $ If (Needs_Opt.eqs."Yes")
2058 $ link temp.obj,temp.opt/opt
2062 $ teststatus = f$extract(9,1,$status)
2063 $ DEASSIGN SYS$OUTPUT
2064 $ DEASSIGN SYS$ERROR
2065 $ if (teststatus.nes."1")
2067 $ perl_i_niin="undef"
2069 $ perl_i_niin="define"
2072 $ perl_i_niin="undef"
2074 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
2076 $! Check for <netinet/tcp.h>
2078 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2082 $ WS "#include <stdlib.h>
2084 $ WS "#include <stdio.h>
2085 $ if ("''Has_Socketshr'".eqs."T")
2087 $ WS "#include <socketshr.h>"
2089 $ WS "#include <netdb.h>
2091 $ WS "#include <netinet/tcp.h>"
2097 $ DEFINE SYS$ERROR _NLA0:
2098 $ DEFINE SYS$OUTPUT _NLA0:
2099 $ on error then continue
2100 $ on warning then continue
2102 $ If (Needs_Opt.eqs."Yes")
2104 $ link temp.obj,temp.opt/opt
2108 $ teststatus = f$extract(9,1,$status)
2109 $ DEASSIGN SYS$OUTPUT
2110 $ DEASSIGN SYS$ERROR
2111 $ if (teststatus.nes."1")
2113 $ perl_i_netinettcp="undef"
2115 $ perl_i_netinettcp="define"
2118 $ perl_i_netinettcp="undef"
2120 $ WRITE_RESULT "i_netinettcp is ''perl_i_netinettcp'"
2122 $! Check for endhostent
2124 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2128 $ WS "#include <stdlib.h>
2130 $ WS "#include <stdio.h>
2131 $ if ("''Has_Socketshr'".eqs."T")
2133 $ WS "#include <socketshr.h>"
2135 $ WS "#include <netdb.h>
2143 $ DEFINE SYS$ERROR _NLA0:
2144 $ DEFINE SYS$OUTPUT _NLA0:
2145 $ on error then continue
2146 $ on warning then continue
2148 $ If (Needs_Opt.eqs."Yes")
2150 $ link temp.obj,temp.opt/opt
2154 $ teststatus = f$extract(9,1,$status)
2155 $ DEASSIGN SYS$OUTPUT
2156 $ DEASSIGN SYS$ERROR
2157 $ if (teststatus.nes."1")
2159 $ perl_d_endhent="undef"
2161 $ perl_d_endhent="define"
2164 $ perl_d_endhent="undef"
2166 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
2168 $! Check for endnetent
2170 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2174 $ WS "#include <stdlib.h>
2176 $ WS "#include <stdio.h>
2177 $ if ("''Has_Socketshr'".eqs."T")
2179 $ WS "#include <socketshr.h>"
2181 $ WS "#include <netdb.h>
2189 $ DEFINE SYS$ERROR _NLA0:
2190 $ DEFINE SYS$OUTPUT _NLA0:
2191 $ on error then continue
2192 $ on warning then continue
2194 $ If (Needs_Opt.eqs."Yes")
2196 $ link temp.obj,temp.opt/opt
2200 $ teststatus = f$extract(9,1,$status)
2201 $ DEASSIGN SYS$OUTPUT
2202 $ DEASSIGN SYS$ERROR
2203 $ if (teststatus.nes."1")
2205 $ perl_d_endnent="undef"
2207 $ perl_d_endnent="define"
2210 $ perl_d_endnent="undef"
2212 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
2214 $! Check for endprotoent
2216 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2220 $ WS "#include <stdlib.h>
2222 $ WS "#include <stdio.h>
2223 $ if ("''Has_Socketshr'".eqs."T")
2225 $ WS "#include <socketshr.h>"
2227 $ WS "#include <netdb.h>
2231 $ WS "endprotoent();
2235 $ DEFINE SYS$ERROR _NLA0:
2236 $ DEFINE SYS$OUTPUT _NLA0:
2237 $ on error then continue
2238 $ on warning then continue
2240 $ If (Needs_Opt.eqs."Yes")
2242 $ link temp.obj,temp.opt/opt
2246 $ teststatus = f$extract(9,1,$status)
2247 $ DEASSIGN SYS$OUTPUT
2248 $ DEASSIGN SYS$ERROR
2249 $ if (teststatus.nes."1")
2251 $ perl_d_endpent="undef"
2253 $ perl_d_endpent="define"
2256 $ perl_d_endpent="undef"
2258 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
2260 $! Check for endservent
2262 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2266 $ WS "#include <stdlib.h>
2268 $ WS "#include <stdio.h>
2269 $ if ("''Has_Socketshr'".eqs."T")
2271 $ WS "#include <socketshr.h>"
2273 $ WS "#include <netdb.h>
2281 $ DEFINE SYS$ERROR _NLA0:
2282 $ DEFINE SYS$OUTPUT _NLA0:
2283 $ on error then continue
2284 $ on warning then continue
2286 $ If (Needs_Opt.eqs."Yes")
2288 $ link temp.obj,temp.opt/opt
2292 $ teststatus = f$extract(9,1,$status)
2293 $ DEASSIGN SYS$OUTPUT
2294 $ DEASSIGN SYS$ERROR
2295 $ if (teststatus.nes."1")
2297 $ perl_d_endsent="undef"
2299 $ perl_d_endsent="define"
2302 $ perl_d_endsent="undef"
2304 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
2306 $! Check for sethostent
2308 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2312 $ WS "#include <stdlib.h>
2314 $ WS "#include <stdio.h>
2315 $ if ("''Has_Socketshr'".eqs."T")
2317 $ WS "#include <socketshr.h>"
2319 $ WS "#include <netdb.h>
2323 $ WS "sethostent(1);
2327 $ DEFINE SYS$ERROR _NLA0:
2328 $ DEFINE SYS$OUTPUT _NLA0:
2329 $ on error then continue
2330 $ on warning then continue
2332 $ If (Needs_Opt.eqs."Yes")
2334 $ link temp.obj,temp.opt/opt
2338 $ teststatus = f$extract(9,1,$status)
2339 $ DEASSIGN SYS$OUTPUT
2340 $ DEASSIGN SYS$ERROR
2341 $ if (teststatus.nes."1")
2343 $ perl_d_sethent="undef"
2345 $ perl_d_sethent="define"
2348 $ perl_d_sethent="undef"
2350 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
2352 $! Check for setnetent
2354 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2358 $ WS "#include <stdlib.h>
2360 $ WS "#include <stdio.h>
2361 $ if ("''Has_Socketshr'".eqs."T")
2363 $ WS "#include <socketshr.h>"
2365 $ WS "#include <netdb.h>
2373 $ DEFINE SYS$ERROR _NLA0:
2374 $ DEFINE SYS$OUTPUT _NLA0:
2375 $ on error then continue
2376 $ on warning then continue
2378 $ If (Needs_Opt.eqs."Yes")
2380 $ link temp.obj,temp.opt/opt
2384 $ teststatus = f$extract(9,1,$status)
2385 $ DEASSIGN SYS$OUTPUT
2386 $ DEASSIGN SYS$ERROR
2387 $ if (teststatus.nes."1")
2389 $ perl_d_setnent="undef"
2391 $ perl_d_setnent="define"
2394 $ perl_d_setnent="undef"
2396 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
2398 $! Check for setprotoent
2400 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2404 $ WS "#include <stdlib.h>
2406 $ WS "#include <stdio.h>
2407 $ if ("''Has_Socketshr'".eqs."T")
2409 $ WS "#include <socketshr.h>"
2411 $ WS "#include <netdb.h>
2415 $ WS "setprotoent(1);
2419 $ DEFINE SYS$ERROR _NLA0:
2420 $ DEFINE SYS$OUTPUT _NLA0:
2421 $ on error then continue
2422 $ on warning then continue
2424 $ If (Needs_Opt.eqs."Yes")
2426 $ link temp.obj,temp.opt/opt
2430 $ teststatus = f$extract(9,1,$status)
2431 $ DEASSIGN SYS$OUTPUT
2432 $ DEASSIGN SYS$ERROR
2433 $ if (teststatus.nes."1")
2435 $ perl_d_setpent="undef"
2437 $ perl_d_setpent="define"
2440 $ perl_d_setpent="undef"
2442 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
2444 $! Check for setservent
2446 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2450 $ WS "#include <stdlib.h>
2452 $ WS "#include <stdio.h>
2453 $ if ("''Has_Socketshr'".eqs."T")
2455 $ WS "#include <socketshr.h>"
2457 $ WS "#include <netdb.h>
2461 $ WS "setservent(1);
2465 $ DEFINE SYS$ERROR _NLA0:
2466 $ DEFINE SYS$OUTPUT _NLA0:
2467 $ on error then continue
2468 $ on warning then continue
2470 $ If (Needs_Opt.eqs."Yes")
2472 $ link temp.obj,temp.opt/opt
2476 $ teststatus = f$extract(9,1,$status)
2477 $ DEASSIGN SYS$OUTPUT
2478 $ DEASSIGN SYS$ERROR
2479 $ if (teststatus.nes."1")
2481 $ perl_d_setsent="undef"
2483 $ perl_d_setsent="define"
2486 $ perl_d_setsent="undef"
2488 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
2490 $! Check for gethostent
2492 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2496 $ WS "#include <stdlib.h>
2498 $ WS "#include <stdio.h>
2499 $ if ("''Has_Socketshr'".eqs."T")
2501 $ WS "#include <socketshr.h>"
2503 $ WS "#include <netdb.h>
2511 $ DEFINE SYS$ERROR _NLA0:
2512 $ DEFINE SYS$OUTPUT _NLA0:
2513 $ on error then continue
2514 $ on warning then continue
2516 $ If (Needs_Opt.eqs."Yes")
2518 $ link temp.obj,temp.opt/opt
2522 $ teststatus = f$extract(9,1,$status)
2523 $ DEASSIGN SYS$OUTPUT
2524 $ DEASSIGN SYS$ERROR
2525 $ if (teststatus.nes."1")
2527 $ perl_d_gethent="undef"
2529 $ perl_d_gethent="define"
2532 $ perl_d_gethent="undef"
2534 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
2536 $! Check for getnetent
2538 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2542 $ WS "#include <stdlib.h>
2544 $ WS "#include <stdio.h>
2545 $ if ("''Has_Socketshr'".eqs."T")
2547 $ WS "#include <socketshr.h>"
2549 $ WS "#include <netdb.h>
2557 $ DEFINE SYS$ERROR _NLA0:
2558 $ DEFINE SYS$OUTPUT _NLA0:
2559 $ on error then continue
2560 $ on warning then continue
2562 $ If (Needs_Opt.eqs."Yes")
2564 $ link temp.obj,temp.opt/opt
2568 $ teststatus = f$extract(9,1,$status)
2569 $ DEASSIGN SYS$OUTPUT
2570 $ DEASSIGN SYS$ERROR
2571 $ if (teststatus.nes."1")
2573 $ perl_d_getnent="undef"
2575 $ perl_d_getnent="define"
2578 $ perl_d_getnent="undef"
2580 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
2582 $! Check for getprotoent
2584 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2588 $ WS "#include <stdlib.h>
2590 $ WS "#include <stdio.h>
2591 $ if ("''Has_Socketshr'".eqs."T")
2593 $ WS "#include <socketshr.h>"
2595 $ WS "#include <netdb.h>
2599 $ WS "getprotoent();
2603 $ DEFINE SYS$ERROR _NLA0:
2604 $ DEFINE SYS$OUTPUT _NLA0:
2605 $ on error then continue
2606 $ on warning then continue
2608 $ If (Needs_Opt.eqs."Yes")
2610 $ link temp.obj,temp.opt/opt
2614 $ teststatus = f$extract(9,1,$status)
2615 $ DEASSIGN SYS$OUTPUT
2616 $ DEASSIGN SYS$ERROR
2617 $ if (teststatus.nes."1")
2619 $ perl_d_getpent="undef"
2621 $ perl_d_getpent="define"
2624 $ perl_d_getpent="undef"
2626 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
2628 $! Check for getservent
2630 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2634 $ WS "#include <stdlib.h>
2636 $ WS "#include <stdio.h>
2637 $ if ("''Has_Socketshr'".eqs."T")
2639 $ WS "#include <socketshr.h>"
2641 $ WS "#include <netdb.h>
2649 $ DEFINE SYS$ERROR _NLA0:
2650 $ DEFINE SYS$OUTPUT _NLA0:
2651 $ on error then continue
2652 $ on warning then continue
2654 $ If (Needs_Opt.eqs."Yes")
2656 $ link temp.obj,temp.opt/opt
2660 $ teststatus = f$extract(9,1,$status)
2661 $ DEASSIGN SYS$OUTPUT
2662 $ DEASSIGN SYS$ERROR
2663 $ if (teststatus.nes."1")
2665 $ perl_d_getsent="undef"
2667 $ perl_d_getsent="define"
2670 $ perl_d_getsent="undef"
2672 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
2674 $! Check for pthread_yield
2676 $ if ("''use_threads'".eqs."T")
2680 $ WS "#include <stdlib.h>
2682 $ WS "#include <pthread.h>
2683 $ WS "#include <stdio.h>
2686 $ WS "pthread_yield();
2690 $ DEFINE SYS$ERROR _NLA0:
2691 $ DEFINE SYS$OUTPUT _NLA0:
2692 $ on error then continue
2693 $ on warning then continue
2695 $ teststatus = f$extract(9,1,$status)
2696 $ DEASSIGN SYS$OUTPUT
2697 $ DEASSIGN SYS$ERROR
2698 $ if (teststatus.nes."1")
2700 $ perl_d_pthread_yield="undef"
2702 $ perl_d_pthread_yield="define"
2705 $ perl_d_pthread_yield="undef"
2707 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
2709 $! Check for sched_yield
2711 $ if ("''use_threads'".eqs."T")
2715 $ WS "#include <stdlib.h>
2717 $ WS "#include <pthread.h>
2718 $ WS "#include <stdio.h>
2721 $ WS "sched_yield();
2725 $ DEFINE SYS$ERROR _NLA0:
2726 $ DEFINE SYS$OUTPUT _NLA0:
2727 $ on error then continue
2728 $ on warning then continue
2730 $ teststatus = f$extract(9,1,$status)
2731 $ DEASSIGN SYS$OUTPUT
2732 $ DEASSIGN SYS$ERROR
2733 $ if (teststatus.nes."1")
2735 $ perl_d_sched_yield="undef"
2736 $ perl_sched_yield = " "
2738 $ perl_d_sched_yield="define"
2739 $ perl_sched_yield = "sched_yield"
2742 $ perl_d_sched_yield="undef"
2743 $ perl_sched_yield = " "
2745 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
2746 $ WRITE_RESULT "sched_yield is ''perl_sched_yield'"
2748 $! Check for generic pointer size
2752 $ WS "#include <stdlib.h>
2754 $ WS "#include <stdio.h>
2758 $ WS "foo = sizeof(char *);
2759 $ WS "printf(""%d\n"", foo);
2763 $! copy temp.c sys$output
2765 $ DEFINE SYS$ERROR _NLA0:
2766 $ DEFINE SYS$OUTPUT _NLA0:
2767 $ ON ERROR THEN CONTINUE
2768 $ ON WARNING THEN CONTINUE
2770 $ If (Needs_Opt.eqs."Yes")
2772 $ link temp.obj,temp.opt/opt
2776 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
2777 $ DEASSIGN SYS$OUTPUT
2778 $ DEASSIGN SYS$ERROR
2779 $ DEFINE SYS$ERROR TEMPOUT
2780 $ DEFINE SYS$OUTPUT TEMPOUT
2783 $ DEASSIGN SYS$OUTPUT
2784 $ DEASSIGN SYS$ERROR
2785 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
2790 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
2793 $! Check rand48 and its ilk
2797 $ WS "#include <stdlib.h>
2799 $ WS "#include <stdio.h>
2802 $ WS "srand48(12L);"
2806 $! copy temp.c sys$output
2808 $ DEFINE SYS$ERROR _NLA0:
2809 $ DEFINE SYS$OUTPUT _NLA0:
2810 $ ON ERROR THEN CONTINUE
2811 $ ON WARNING THEN CONTINUE
2813 $ If (Needs_Opt.eqs."Yes")
2815 $ link temp,temp.opt/opt
2819 $ teststatus = f$extract(9,1,$status)
2820 $ DEASSIGN SYS$OUTPUT
2821 $ DEASSIGN SYS$ERROR
2822 $ if (teststatus.nes."1")
2824 $ perl_drand01="random()"
2825 $ perl_randseedtype = "unsigned"
2826 $ perl_seedfunc = "srandom"
2830 $ WS "#include <stdlib.h>
2832 $ WS "#include <stdio.h>
2839 $! copy temp.c sys$output
2841 $ DEFINE SYS$ERROR _NLA0:
2842 $ DEFINE SYS$OUTPUT _NLA0:
2843 $ ON ERROR THEN CONTINUE
2844 $ ON WARNING THEN CONTINUE
2846 $ If (Needs_Opt.eqs."Yes")
2848 $ link temp,temp.opt/opt
2852 $ teststatus = f$extract(9,1,$status)
2853 $ DEASSIGN SYS$OUTPUT
2854 $ DEASSIGN SYS$ERROR
2855 $ if (teststatus.nes."1")
2857 $ perl_drand01="(((float)rand())/((float)RAND_MAX))"
2858 $ perl_randseedtype = "unsigned"
2859 $ perl_seedfunc = "srand"
2861 $ WRITE_RESULT "drand01 is ''perl_drand01'"
2864 $! Done with compiler checks. Clean up.
2865 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
2866 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
2867 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
2868 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
2871 $! Some that are compiler or VMS version sensitive
2874 $ IF "''Using_Gnu_C'".EQS."Yes"
2876 $ perl_d_attribut="define"
2877 $ perl_vms_cc_type="gcc"
2879 $ perl_d_attribut="undef"
2882 $! Dec C >= 5.2 and VMS ver >= 7.0
2883 $ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
2885 $ perl_d_bcmp="define"
2886 $ perl_d_gettimeod="define"
2887 $ perl_d_uname="define"
2888 $ perl_d_sigaction="define"
2889 $ perl_d_truncate="define"
2890 $ perl_d_wait4="define"
2891 $ perl_d_index="define"
2892 $ perl_pidtype="pid_t"
2893 $ 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"
2894 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
2895 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
2896 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
2897 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
2898 $ 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"
2899 $ 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"
2900 $ perl_sig_num_with_commas=perl_sig_num_init
2901 $ perl_uidtype="uid_t"
2902 $ perl_d_pathconf="define"
2903 $ perl_d_fpathconf="define"
2904 $ perl_d_sysconf="define"
2905 $ perl_d_sigsetjmp="define"
2907 $ perl_pidtype="unsigned int"
2908 $ perl_d_gettimeod="undef"
2909 $ perl_d_bcmp="undef"
2910 $ perl_d_uname="undef"
2911 $ perl_d_sigaction="undef"
2912 $ perl_d_truncate="undef"
2913 $ perl_d_wait4="undef"
2914 $ perl_d_index="undef"
2915 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
2916 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
2917 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
2918 $ perl_sig_name_with_commas = psnwc1 + psnwc2
2919 $ perl_sig_num="0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 6 16 17"",0"
2920 $ perl_sig_num_init="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
2921 $ perl_sig_num_with_commas=perl_sig_num_init
2922 $ perl_uidtype="unsigned int"
2923 $ perl_d_pathconf="undef"
2924 $ perl_d_fpathconf="undef"
2925 $ perl_d_sysconf="undef"
2926 $ perl_d_sigsetjmp="undef"
2930 $ IF ("''Using_Dec_C'".EQS."Yes")
2932 $ perl_d_mbstowcs="define"
2933 $ perl_d_mbtowc="define"
2934 $ perl_d_stdiobase="define"
2935 $ perl_d_stdio_ptr_lval="define"
2936 $ perl_d_stdio_cnt_lval="define"
2937 $ perl_d_stdstdio="define"
2938 $ perl_d_wcstombs="define"
2939 $ perl_d_mblen="define"
2940 $ perl_d_mktime="define"
2941 $ perl_d_strcoll="define"
2942 $ perl_d_strxfrm="define"
2943 $ perl_d_wctomb="define"
2944 $ perl_i_locale="define"
2945 $ perl_d_locconv="define"
2946 $ perl_d_setlocale="define"
2947 $ perl_vms_cc_type="decc"
2949 $ perl_d_mbstowcs="undef"
2950 $ perl_d_mbtowc="undef"
2951 $ perl_d_stdiobase="undef"
2952 $ perl_d_stdio_ptr_lval="undef"
2953 $ perl_d_stdio_cnt_lval="undef"
2954 $ perl_d_stdstdio="undef"
2955 $ perl_d_wcstombs="undef"
2956 $ perl_d_mblen="undef"
2957 $ perl_d_mktime="undef"
2958 $ perl_d_strcoll="undef"
2959 $ perl_d_strxfrm="undef"
2960 $ perl_d_wctomb="undef"
2961 $ perl_i_locale="undef"
2962 $ perl_d_locconv="undef"
2963 $ perl_d_setlocale="undef"
2967 $ if ("''Using_Vax_C'".EQS."Yes")
2969 $ perl_vms_cc_type="vaxc"
2974 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
2976 $ perl_d_vms_do_sockets="define"
2977 $ perl_d_htonl="define"
2978 $ perl_d_socket="define"
2979 $ perl_d_select="define"
2980 $ perl_netdb_host_type="char *"
2981 $ perl_netdb_hlen_type="int"
2982 $ perl_netdb_name_type="char *"
2983 $ perl_netdb_net_type="long"
2984 $ perl_d_gethbyaddr="define"
2985 $ perl_d_gethbyname="define"
2986 $ perl_d_getnbyaddr="define"
2987 $ perl_d_getnbyname="define"
2988 $ perl_d_getpbynumber="define"
2989 $ perl_d_getpbyname="define"
2990 $ perl_d_getsbyport="define"
2991 $ perl_d_getsbyname="define"
2992 $ perl_d_gethostprotos="define"
2993 $ perl_d_getnetprotos="define"
2994 $ perl_d_getprotoprotos="define"
2995 $ perl_d_getservprotos="define"
2997 $ perl_d_vms_do_sockets="undef"
2998 $ perl_d_htonl="undef"
2999 $ perl_d_socket="undef"
3000 $ perl_d_select="undef"
3001 $ perl_netdb_host_type="char *"
3002 $ perl_netdb_hlen_type="int"
3003 $ perl_netdb_name_type="char *"
3004 $ perl_netdb_net_type="long"
3005 $ perl_d_gethbyaddr="undef"
3006 $ perl_d_gethbyname="undef"
3007 $ perl_d_getnbyaddr="undef"
3008 $ perl_d_getnbyname="undef"
3009 $ perl_d_getpbynumber="undef"
3010 $ perl_d_getpbyname="undef"
3011 $ perl_d_getsbyport="undef"
3012 $ perl_d_getsbyname="undef"
3013 $ perl_d_gethostprotos="undef"
3014 $ perl_d_getnetprotos="undef"
3015 $ perl_d_getprotoprotos="undef"
3016 $ perl_d_getservprotos="undef"
3019 $ if ("''use_threads'".eqs."T")
3021 $ perl_usethreads="define"
3022 $ perl_d_pthreads_created_joinable="define"
3023 $ if ("''VMS_VER'".ges."7.0")
3025 $ perl_d_oldpthreads="undef"
3027 $ perl_d_oldpthreads="define"
3030 $ perl_d_oldpthreads="undef"
3031 $ perl_usethreads="undef"
3033 $ perl_d_pthreads_created_joinable="undef"
3037 $! Finally the composite ones. All config
3038 $ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3039 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3040 $ perl_myhostname="''myhostname'"
3041 $ perl_mydomain="''mydomain'"
3042 $ perl_perladmin="''perladmin'"
3043 $ perl_cf_email="''cf_email'"
3044 $ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
3045 $ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3046 $ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
3047 $ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
3048 $ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
3049 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
3050 $ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3051 $ if "''Using_Dec_C'" .eqs. "Yes"
3053 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
3055 $ IF "''Using_Vax_C'" .eqs. "Yes"
3057 $ perl_ccflags="/Include=[]/Obj=''perl_obj_ext'/NoList''cc_flags'"
3060 $ if use_vmsdebug_perl .eqs. "Y"
3062 $ perl_optimize="/Debug/NoOpt"
3063 $ perl_dbgprefix = "DBG"
3066 $ perl_dbgprefix = ""
3069 $! Finally clean off any leading zeros from the patchlevel or subversion
3070 $ perl_patchlevel = perl_patchlevel + 0
3071 $ perl_subversion = perl_subversion + 0
3073 $! Okay, we've got everything configured. Now go write out a config.sh.
3074 $ open/write CONFIGSH [-]config.sh
3075 $ WC := "write CONFIGSH"
3077 $ WC "# This file generated by Configure.COM on a VMS system."
3078 $ WC "# Time: " + perl_cf_time
3080 $ WC "CONFIGDOTSH=true"
3081 $ WC "package='" + perl_package + "'"
3082 $ WC "CONFIG='" + perl_config + "'"
3083 $ WC "cf_time='" + perl_cf_time + "'"
3084 $ WC "cf_by='" + perl_cf_by+ "'"
3085 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
3086 $ WC "ccdlflags='" + perl_ccdlflags + "'"
3087 $ WC "cccdlflags='" + perl_cccdlflags + "'"
3088 $ WC "mab='" + perl_mab + "'"
3089 $ WC "libpth='" + perl_libpth + "'"
3090 $ WC "ld='" + perl_ld + "'"
3091 $ WC "lddlflags='" + perl_lddlflags + "'"
3092 $ WC "ranlib='" + perl_ranlib + "'"
3093 $ WC "ar='" + perl_ar + "'"
3094 $ WC "eunicefix='" + perl_eunicefix + "'"
3095 $ WC "hint='" + perl_hint +"'"
3096 $ WC "hintfile='" + perl_hintfile + "'"
3097 $ WC "shrplib='" + perl_shrplib + "'"
3098 $ WC "usemymalloc='" + perl_usemymalloc + "'"
3099 $ WC "usevfork='" + perl_usevfork + "'"
3100 $ WC "useposix='false'"
3101 $ WC "spitshell='write sys$output '"
3102 $ WC "dlsrc='dl_vms.c'"
3103 $ WC "binexp='" + perl_binexp + "'"
3104 $ WC "man1ext='" + perl_man1ext + "'"
3105 $ WC "man3ext='" + perl_man3ext + "'"
3106 $ WC "arch='" + perl_arch + "'"
3107 $ WC "archname='" + perl_archname + "'"
3108 $ WC "osvers='" + perl_osvers + "'"
3109 $ WC "prefix='" + perl_prefix + "'"
3110 $ WC "builddir='" + perl_builddir + "'"
3111 $ WC "installbin='" + perl_installbin + "'"
3112 $ WC "installscript='" + perl_installscript + "'"
3113 $ WC "installman1dir='" + perl_installman1dir + "'"
3114 $ WC "installman3dir='" + perl_installman3dir + "'"
3115 $ WC "installprivlib='" + perl_installprivlib + "'"
3116 $ WC "installarchlib='" + perl_installarchlib + "'"
3117 $ WC "installsitelib='" + perl_installsitelib + "'"
3118 $ WC "installsitearch='" + perl_installsitearch + "'"
3119 $ WC "path_sep='" + perl_path_sep + "'"
3120 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
3121 $ WC "d_attribut='" + perl_d_attribut + "'"
3122 $ WC "cc='" + perl_cc + "'"
3123 $ WC "ccflags='" + perl_ccflags + "'"
3124 $ WC "optimize='" + perl_optimize + "'"
3125 $ WC "dbgprefix='" + perl_dbgprefix + "'"
3126 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
3127 $ WC "d_socket='" + perl_d_socket + "'"
3128 $ WC "d_sockpair='" + perl_d_sockpair + "'"
3129 $ WC "d_gethent='" + perl_d_gethent + "'"
3130 $ WC "d_getsent='" + perl_d_getsent + "'"
3131 $ WC "d_select='" + perl_d_select + "'"
3132 $ WC "i_niin='" + perl_i_niin + "'"
3133 $ WC "i_netinettcp='" + perl_i_netinettcp + "'"
3134 $ WC "i_neterrno='" + perl_i_neterrno + "'"
3135 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
3136 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
3137 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
3138 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
3139 $ WC "d_locconv='" + perl_d_locconv + "'"
3140 $ WC "d_setlocale='" + perl_d_setlocale + "'"
3141 $ WC "i_locale='" + perl_i_locale + "'"
3142 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
3143 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
3144 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
3145 $ WC "d_wctomb='" + perl_d_wctomb + "'"
3146 $ WC "d_mblen='" + perl_d_mblen + "'"
3147 $ WC "d_mktime='" + perl_d_mktime + "'"
3148 $ WC "d_strcoll='" + perl_d_strcoll + "'"
3149 $ WC "d_strxfrm='" + perl_d_strxfrm + "'"
3150 $ WC "ldflags='" + perl_ldflags + "'"
3151 $ WC "dlobj='" + perl_dlobj + "'"
3152 $ WC "obj_ext='" + perl_obj_ext + "'"
3153 $ WC "so='" + perl_so + "'"
3154 $ WC "dlext='" + perl_dlext + "'"
3155 $ WC "exe_ext='" + perl_exe_ext + "'"
3156 $ WC "lib_ext='" + perl_lib_ext + "'"
3157 $ WC "myhostname='" + perl_myhostname + "'"
3158 $ WC "mydomain='" + perl_mydomain + "'"
3159 $ WC "perladmin='" + perl_perladmin + "'"
3160 $ WC "cf_email='" + perl_cf_email + "'"
3161 $ WC "myuname='" + perl_myuname + "'"
3162 $ WC "alignbytes='" + perl_alignbytes + "'"
3163 $ WC "osname='" + perl_osname + "'"
3164 $ WC "d_archlib='" + perl_d_archlib + "'"
3165 $ WC "archlibexp='" + perl_archlibexp + "'"
3166 $ WC "archlib='" + perl_archlib + "'"
3167 $ WC "archname='" + perl_archname + "'"
3168 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
3169 $ WC "cppstdin='" + perl_cppstdin + "'"
3170 $ WC "cppminus='" + perl_cppminus + "'"
3171 $ WC "d_bcmp='" + perl_d_bcmp + "'"
3172 $ WC "d_bcopy='" + perl_d_bcopy + "'"
3173 $ WC "d_bzero='" + perl_d_bzero + "'"
3174 $ WC "d_castneg='" + perl_d_castneg + "'"
3175 $ WC "castflags='" + perl_castflags + "'"
3176 $ WC "d_chsize='" + perl_d_chsize + "'"
3177 $ WC "d_const='" + perl_d_const + "'"
3178 $ WC "d_crypt='" + perl_d_crypt + "'"
3179 $ WC "byteorder='" + perl_byteorder + "'"
3180 $ WC "full_csh='" + perl_full_csh + "'"
3181 $ WC "d_csh='" + perl_d_csh + "'"
3182 $ WC "d_dup2='" + perl_d_dup2 + "'"
3183 $ WC "d_fchmod='" + perl_d_fchmod + "'"
3184 $ WC "d_fchown='" + perl_d_fchown + "'"
3185 $ WC "d_fcntl='" + perl_d_fcntl + "'"
3186 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
3187 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
3188 $ WC "d_flock='" + perl_d_flock + "'"
3189 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
3190 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
3191 $ WC "d_getgrps='" + perl_d_getgrps + "'"
3192 $ WC "d_setgrps='" + perl_d_setgrps + "'"
3193 $ WC "d_uname='" + perl_d_uname + "'"
3194 $ WC "d_getprior='" + perl_d_getprior + "'"
3195 $ WC "d_killpg='" + perl_d_killpg + "'"
3196 $ WC "d_link='" + perl_d_link + "'"
3197 $ WC "d_lstat='" + perl_d_lstat + "'"
3198 $ WC "d_lockf='" + perl_d_lockf + "'"
3199 $ WC "d_memcmp='" + perl_d_memcmp + "'"
3200 $ WC "d_memcpy='" + perl_d_memcpy + "'"
3201 $ WC "d_memmove='" + perl_d_memmove + "'"
3202 $ WC "d_memset='" + perl_d_memset + "'"
3203 $ WC "d_mkdir='" + perl_d_mkdir + "'"
3204 $ WC "d_msg='" + perl_d_msg + "'"
3205 $ WC "d_open3='" + perl_d_open3 + "'"
3206 $ WC "d_poll='" + perl_d_poll + "'"
3207 $ WC "d_readdir='" + perl_d_readdir + "'"
3208 $ WC "d_seekdir='" + perl_d_seekdir + "'"
3209 $ WC "d_telldir='" + perl_d_telldir + "'"
3210 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
3211 $ WC "d_rename='" + perl_d_rename + "'"
3212 $ WC "d_rmdir='" + perl_d_rmdir + "'"
3213 $ WC "d_sem='" + perl_d_sem + "'"
3214 $ WC "d_setegid='" + perl_d_setegid + "'"
3215 $ WC "d_seteuid='" + perl_d_seteuid + "'"
3216 $ WC "d_setprior='" + perl_d_setprior + "'"
3217 $ WC "d_setregid='" + perl_d_setregid + "'"
3218 $ WC "d_setresgid='" + perl_d_setresgid + "'"
3219 $ WC "d_setreuid='" + perl_d_setreuid + "'"
3220 $ WC "d_setresuid='" + perl_d_setresuid + "'"
3221 $ WC "d_setrgid='" + perl_d_setrgid + "'"
3222 $ WC "d_setruid='" + perl_d_setruid + "'"
3223 $ WC "d_setsid='" + perl_d_setsid + "'"
3224 $ WC "d_shm='" + perl_d_shm + "'"
3225 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
3226 $ WC "d_sigaction='" + perl_d_sigaction + "'"
3227 $ WC "d_statblks='" + perl_d_statblks + "'"
3228 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
3229 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
3230 $ WC "stdio_base='" + perl_stdio_base + "'"
3231 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
3232 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
3233 $ WC "d_strerror='" + perl_d_strerror + "'"
3234 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
3235 $ WC "d_strerrm='" + perl_d_strerrm + "'"
3236 $ WC "d_symlink='" + perl_d_symlink + "'"
3237 $ WC "d_syscall='" + perl_d_syscall + "'"
3238 $ WC "d_system='" + perl_d_system + "'"
3239 $ WC "timetype='" + perl_timetype + "'"
3240 $ WC "d_truncate='" + perl_d_truncate + "'"
3241 $ WC "d_vfork='" + perl_d_vfork + "'"
3242 $ WC "signal_t='" + perl_signal_t + "'"
3243 $ WC "d_volatile='" + perl_d_volatile + "'"
3244 $ WC "d_vprintf='" + perl_d_vprintf + "'"
3245 $ WC "d_charvspr='" + perl_d_charvspr + "'"
3246 $ WC "d_wait4='" + perl_d_wait4 + "'"
3247 $ WC "d_waitpid='" + perl_d_waitpid + "'"
3248 $ WC "i_dirent='" + perl_i_dirent + "'"
3249 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
3250 $ WC "direntrytype='" + perl_direntrytype + "'"
3251 $ WC "i_fcntl='" + perl_i_fcntl + "'"
3252 $ WC "i_grp='" + perl_i_grp + "'"
3253 $ WC "i_limits='" + perl_i_limits + "'"
3254 $ WC "i_memory='" + perl_i_memory + "'"
3255 $ WC "i_ndbm='" + perl_i_ndbm + "'"
3256 $ WC "i_stdarg='" + perl_i_stdarg + "'"
3257 $ WC "i_pwd='" + perl_i_pwd + "'"
3258 $ WC "d_pwquota='" + perl_d_pwquota + "'"
3259 $ WC "d_pwage='" + perl_d_pwage + "'"
3260 $ WC "d_pwchange='" + perl_d_pwchange + "'"
3261 $ WC "d_pwclass='" + perl_d_pwclass + "'"
3262 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
3263 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
3264 $ WC "i_stddef='" + perl_i_stddef + "'"
3265 $ WC "i_stdlib='" + perl_i_stdlib + "'"
3266 $ WC "i_string='" + perl_i_string + "'"
3267 $ WC "i_sysdir='" + perl_i_sysdir + "'"
3268 $ WC "i_sysfile='" + perl_i_sysfile + "'"
3269 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
3270 $ WC "i_sysndir='" + perl_i_sysndir + "'"
3271 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
3272 $ WC "i_sysselct='" + perl_i_sysselct + "'"
3273 $ WC "i_dbm='" + perl_i_dbm + "'"
3274 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
3275 $ WC "i_sfio='" + perl_i_sfio + "'"
3276 $ WC "i_sysstat='" + perl_i_sysstat + "'"
3277 $ WC "i_systimes='" + perl_i_systimes + "'"
3278 $ WC "i_systypes='" + perl_i_systypes + "'"
3279 $ WC "i_sysun='" + perl_i_sysun + "'"
3280 $ WC "i_syswait='" + perl_i_syswait + "'"
3281 $ WC "i_termio='" + perl_i_termio + "'"
3282 $ WC "i_sgtty='" + perl_i_sgtty + "'"
3283 $ WC "i_termios='" + perl_i_termios + "'"
3284 $ WC "i_time='" + perl_i_time + "'"
3285 $ WC "i_systime='" + perl_i_systime + "'"
3286 $ WC "i_systimek='" + perl_i_systimek + "'"
3287 $ WC "i_unistd='" + perl_i_unistd + "'"
3288 $ WC "i_utime='" + perl_i_utime + "'"
3289 $ WC "i_varargs='" + perl_i_varargs + "'"
3290 $ WC "i_vfork='" + perl_i_vfork + "'"
3291 $ WC "prototype='" + perl_prototype + "'"
3292 $ WC "randbits='" + perl_randbits +"'"
3293 $ WC "selecttype='" + perl_selecttype + "'"
3294 $ WC "stdchar='" + perl_stdchar + "'"
3295 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
3296 $ WC "full_sed='" + perl_full_sed + "'"
3297 $ WC "bin='" + perl_bin + "'"
3298 $ WC "binexp='" + perl_binexp + "'"
3299 $ WC "d_alarm='" + perl_d_alarm + "'"
3300 $ WC "d_casti32='" + perl_d_casti32 + "'"
3301 $ WC "d_chown='" + perl_d_chown + "'"
3302 $ WC "d_chroot='" + perl_d_chroot + "'"
3303 $ WC "d_cuserid='" + perl_d_cuserid + "'"
3304 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
3305 $ WC "d_difftime='" + perl_d_difftime + "'"
3306 $ WC "d_fork='" + perl_d_fork + "'"
3307 $ WC "d_getlogin='" + perl_d_getlogin + "'"
3308 $ WC "d_getppid='" + perl_d_getppid + "'"
3309 $ WC "d_htonl='" + perl_d_htonl + "'"
3310 $ WC "d_nice='" + perl_d_nice + "'"
3311 $ WC "d_pause='" + perl_d_pause + "'"
3312 $ WC "d_pipe='" + perl_d_pipe + "'"
3313 $ WC "d_readlink='" + perl_d_readlink + "'"
3314 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
3315 $ WC "d_strchr='" + perl_d_strchr + "'"
3316 $ WC "d_index='" + perl_d_index + "'"
3317 $ WC "d_strtod='" + perl_d_strtod + "'"
3318 $ WC "d_strtol='" + perl_d_strtol + "'"
3319 $ WC "d_strtoul='" + perl_d_strtoul + "'"
3320 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
3321 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
3322 $ WC "d_times='" + perl_d_times + "'"
3323 $ WC "d_tzname='" + perl_d_tzname + "'"
3324 $ WC "d_umask='" + perl_d_umask + "'"
3325 $ WC "fpostype='" + perl_fpostype + "'"
3326 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
3327 $ WC "i_float='" + perl_i_float + "'"
3328 $ WC "i_math='" + perl_i_math + "'"
3329 $ WC "intsize='" + perl_intsize + "'"
3330 $ WC "longsize='" + perl_longsize + "'"
3331 $ WC "shortsize='" + perl_shortsize + "'"
3332 $ WC "lseektype='" + perl_lseektype + "'"
3333 $ WC "lseeksize='4'"
3334 $ WC "i_values='" + perl_i_values + "'"
3335 $ WC "malloctype='" + perl_malloctype + "'"
3336 $ WC "freetype='" + perl_freetype + "'"
3337 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
3338 $ WC "sh='" + perl_sh + "'"
3339 $ WC "sig_name='" + perl_sig_name + "'"
3340 $ WC "sig_num='" + perl_sig_num + "'"
3341 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
3343 $ WC "modetype='" + perl_modetype + "'"
3344 $ WC "ssizetype='" + perl_ssizetype + "'"
3345 $ WC "o_nonblock='" + perl_o_nonblock + "'"
3346 $ WC "eagain='" + perl_eagain + "'"
3347 $ WC "rd_nodata='" + perl_rd_nodata + "'"
3348 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
3349 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
3350 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
3351 $ WC "oldarchlib='" + perl_oldarchlib + "'"
3352 $ WC "privlibexp='" + perl_privlibexp + "'"
3353 $ WC "privlib='" + perl_privlib + "'"
3354 $ WC "sitelibexp='" + perl_sitelibexp + "'"
3355 $ WC "sitelib='" + perl_sitelib + "'"
3356 $ WC "sitearchexp='" + perl_sitearchexp + "'"
3357 $ WC "sitearch='" + perl_sitearch + "'"
3358 $ WC "sizetype='" + perl_sizetype + "'"
3359 $ WC "i_sysparam='" + perl_i_sysparam + "'"
3360 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
3361 $ WC "d_dlerror='" + perl_d_dlerror + "'"
3362 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
3363 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
3364 $ WC "d_dosuid='" + perl_d_dosuid + "'"
3365 $ WC "d_inetaton='" + perl_d_inetaton + "'"
3366 $ WC "d_isascii='" + perl_d_isascii + "'"
3367 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
3368 $ WC "d_pathconf='" + perl_d_pathconf + "'"
3369 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
3370 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
3371 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
3372 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
3373 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
3374 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
3375 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
3376 $ WC "d_setpgid='" + perl_d_setpgid + "'"
3377 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
3378 $ WC "d_sysconf='" + perl_d_sysconf + "'"
3379 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
3380 $ WC "d_getpgid='" + perl_d_getpgid + "'"
3381 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
3382 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
3383 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
3384 $ WC "d_sfio='" + perl_d_sfio + "'"
3385 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
3386 $ WC "usedl='" + perl_usedl + "'"
3387 $ WC "startperl=" + perl_startperl ! This one's special--no enclosing single quotes
3388 $ WC "db_hashtype='" + perl_db_hashtype + "'"
3389 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
3390 $ WC "useperlio='" + perl_useperlio + "'"
3391 $ WC "defvoidused='" + perl_defvoidused + "'"
3392 $ WC "voidflags='" + perl_voidflags + "'"
3393 $ WC "d_eunice='" + perl_d_eunice + "'"
3394 $ WC "libs='" + perl_libs + "'"
3395 $ WC "libc='" + perl_libc + "'"
3396 $ tempstring = "PERL_VERSION='" + "''perl_patchlevel'" + "'"
3398 $ tempstring = "PERL_SUBVERSION='" + "''perl_patchlevel'" + "'"
3400 $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
3402 $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
3404 $ WC "pager='" + perl_pager + "'"
3405 $ WC "uidtype='" + perl_uidtype + "'"
3406 $ WC "gidtype='" + perl_gidtype + "'"
3407 $ WC "usethreads='" + perl_usethreads + "'"
3408 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
3409 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
3410 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
3411 $ WC "i_netdb='" + perl_i_netdb + "'"
3412 $ WC "pidtype='" + perl_pidtype + "'"
3413 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
3414 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
3415 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
3416 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
3417 $ WC "baserev='" + perl_baserev + "'"
3418 $ WC "doublesize='" + perl_doublesize + "'"
3419 $ WC "ptrsize='" + perl_ptrsize + "'"
3420 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
3421 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
3422 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
3423 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
3424 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
3425 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
3426 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
3427 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
3428 $ WC "d_sethent='" + perl_d_sethent + "'"
3429 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
3430 $ WC "d_longdbl='" + perl_d_longdbl + "'"
3431 $ WC "longdblsize='" + perl_longdblsize + "'"
3432 $ WC "d_longlong='" + perl_d_longlong + "'"
3433 $ WC "longlongsize='" + perl_longlongsize + "'"
3434 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
3435 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
3436 $ WC "d_setenv='" + perl_d_setenv + "'"
3437 $ WC "d_endhent='" + perl_d_endhent + "'"
3438 $ WC "d_endnent='" + perl_d_endsent + "'"
3439 $ WC "d_endpent='" + perl_d_endpent + "'"
3440 $ WC "d_endsent='" + perl_d_endsent + "'"
3441 $ WC "d_gethent='" + perl_d_gethent + "'"
3442 $ WC "d_getnent='" + perl_d_getsent + "'"
3443 $ WC "d_getpent='" + perl_d_getpent + "'"
3444 $ WC "d_getsent='" + perl_d_getsent + "'"
3445 $ WC "d_sethent='" + perl_d_sethent + "'"
3446 $ WC "d_setnent='" + perl_d_setsent + "'"
3447 $ WC "d_setpent='" + perl_d_setpent + "'"
3448 $ WC "ebcdic='" + perl_ebcdic + "'"
3449 $ WC "d_setsent='" + perl_d_setsent + "'"
3450 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
3451 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
3452 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
3453 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
3454 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
3455 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
3456 $ WC "d_lchown='" + perl_d_lchown + "'"
3457 $ WC "d_union_semun='" + perl_d_union_semun + "'"
3458 $ WC "i_arpainet='" + perl_i_arpainet + "'"
3459 $ WC "d_grpasswd='" + perl_d_grpasswd + "'"
3460 $ WC "d_setgrent='" + perl_d_setgrent + "'"
3461 $ WC "d_getgrent='" + perl_d_getgrent + "'"
3462 $ WC "d_endgrent='" + perl_d_endgrent + "'"
3463 $ WC "d_pwpasswd='" + perl_d_pwpasswd + "'"
3464 $ WC "d_setpwent='" + perl_d_setpwent + "'"
3465 $ WC "d_getpwent='" + perl_d_getpwent + "'"
3466 $ WC "d_endpwent='" + perl_d_endpwent + "'"
3467 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
3468 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
3469 $ WC "extensions='" + perl_extensions + "'"
3470 $ WC "d_mknod='" + perl_d_mknod + "'"
3471 $ WC "devtype='" + perl_devtype + "'"
3472 $ WC "d_gethname='" + perl_d_gethname + "'"
3473 $ WC "d_phostname='" + perl_d_phostname + "'"
3474 $ WC "d_accessx='" + perl_d_accessx + "'"
3475 $ WC "d_eaccess='" + perl_d_eaccess + "'"
3476 $ WC "i_sysaccess='" + perl_i_sysaccess + "'"
3477 $ WC "i_syssecrt='" + perl_i_syssecrt + "'"
3478 $ WC "d_fd_set='" + perl_d_fd_set + "'"
3479 $ WC "d_access='" + perl_d_access + "'"
3480 $ WC "d_msg_ctrunc='" + perl_d_msg_ctrunc + "'"
3481 $ WC "d_msg_dontroute='" + perl_d_msg_dontroute + "'"
3482 $ WC "d_msg_oob='" + perl_d_msg_oob + "'"
3483 $ WC "d_msg_peek='" + perl_d_msg_peek + "'"
3484 $ WC "d_msg_proxy='" + perl_d_msg_proxy + "'"
3485 $ WC "d_scm_rights='" + perl_d_scm_rights + "'"
3486 $ WC "d_sendmsg='" + perl_d_sendmsg + "'"
3487 $ WC "d_recvmsg='" + perl_d_recvmsg + "'"
3488 $ WC "d_msghdr_s='" + perl_d_msghdr_s + "'"
3489 $ WC "d_cmsghdr_s='" + perl_d_cmsghdr_s + "'"
3490 $ WC "i_sysuio='" + perl_i_sysuio + "'"
3491 $ WC "d_fseeko='" + perl_d_fseeko + "'"
3492 $ WC "d_ftello='" + perl_d_ftello + "'"
3493 $ WC "d_readv='" + perl_d_readv + "'"
3494 $ WC "d_writev='" + perl_d_writev + "'"
3495 $ WC "i_machcthr='" + perl_i_machcthr + "'"
3496 $ WC "usemultiplicity='" + perl_usemultiplicity + "'"
3497 $ WC "d_dbminit64='" + perl_d_dbminit64 + "'"
3498 $ WC "d_dbmclose64='" + perl_d_dbmclose64 + "'"
3499 $ WC "d_fetch64='" + perl_d_fetch64 + "'"
3500 $ WC "d_store64='" + perl_d_store64 + "'"
3501 $ WC "d_delete64='" + perl_d_delete64 + "'"
3502 $ WC "d_firstkey64='" + perl_d_firstkey64 + "'"
3503 $ WC "d_nextkey64='" + perl_d_nextkey64 + "'"
3504 $ WC "i_poll='" + perl_i_poll + "'"
3505 $ WC "i_inttypes='" + perl_i_inttypes + "'"
3506 $ WC "d_int64t='" + perl_d_int64t + "'"
3507 $ WC "d_off64_t='" + perl_d_off64_t + "'"
3508 $ WC "d_fstat64='" + perl_d_fstat64 + "'"
3509 $ WC "d_ftruncate64='" + perl_d_ftruncate64 + "'"
3510 $ WC "d_lseek64='" + perl_d_lseek64 + "'"
3511 $ WC "d_lstat64='" + perl_d_lstat64 + "'"
3512 $ WC "d_open64='" + perl_d_open64 + "'"
3513 $ WC "d_opendir64='" + perl_d_opendir64 + "'"
3514 $ WC "d_readdir64='" + perl_d_readdir64 + "'"
3515 $ WC "d_seekdir64='" + perl_d_seekdir64 + "'"
3516 $ WC "d_stat64='" + perl_d_stat64 + "'"
3517 $ WC "d_telldir64='" + perl_d_telldir64 + "'"
3518 $ WC "d_truncate64='" + perl_d_truncate64 + "'"
3519 $ WC "d_dirent64_s='" + perl_d_dirent64_s + "'"
3520 $ WC "use64bits='" + perl_use64bits + "'"
3521 $ WC "d_fgetpos64='" + perl_d_fgetpos64 + "'"
3522 $ WC "d_fopen64='" + perl_d_fopen64 + "'"
3523 $ WC "d_freopen64='" + perl_d_freopen64 + "'"
3524 $ WC "d_fseek64='" + perl_d_fseek64 + "'"
3525 $ WC "d_fseeko64='" + perl_d_fseeko64 + "'"
3526 $ WC "d_fsetpos64='" + perl_d_fsetpos64 + "'"
3527 $ WC "d_ftell64='" + perl_d_ftell64 + "'"
3528 $ WC "d_ftello64='" + perl_d_ftello64 + "'"
3529 $ WC "d_tmpfile64='" + perl_d_tmpfile64 + "'"
3530 $ WC "d_drand48proto='" + perl_d_drand48proto + "'"
3531 $ WC "d_old_pthread_create_joinable='" + perl_d_old_pthread_create_joinable + "'"
3532 $ WC "old_pthread_create_joinable='" + perl_old_pthread_create_joinable + "'"
3533 $ WC "drand01='" + perl_drand01 + "'"
3534 $ WC "randseedtype='" + perl_randseedtype + "'"
3535 $ WC "seedfunc='" + perl_seedfunc + "'"
3536 $ WC "sig_num_init='" + perl_sig_num_with_commas + "'"
3537 $ WC "i_sysmount='" + perl_i_sysmount + "'"
3538 $ WC "d_fstatfs='" + perl_d_fstatfs + "'"
3539 $ WC "d_memchr='" + perl_d_memchr + "'"
3540 $ WC "d_statfsflags='" + perl_d_statfsflags + "'"
3541 $ WC "fflushNULL='define'"
3542 $ WC "fflushall='undef'"
3543 $ WC "d_stdio_stream_array='undef'"
3544 $ WC "i_sysstatvfs='" + perl_i_sysstatvfs + "'"
3545 $ WC "i_machcthreads='" + perl_i_machcthreads + "'"
3546 $ WC "i_pthread='" + perl_i_pthread + "'"
3547 $ WC "d_fstatvfs='" + perl_d_fstatvfs + "'"
3548 $ WC "i_mntent='" + perl_i_mntent + "'"
3549 $ WC "d_getmntent='" + perl_d_getmntent + "'"
3550 $ WC "d_hasmntopt='" + perl_d_hasmntopt + "'"
3551 $ WC "d_telldirproto='" + perl_d_telldirproto + "'"
3552 $ WC "d_madvise='" + perl_d_madvise + "'"
3553 $ WC "d_msync='" + perl_d_msync + "'"
3554 $ WC "d_mprotect='" + perl_d_mprotect + "'"
3555 $ WC "d_munmap='" + perl_d_munmap + "'"
3556 $ WC "d_mmap='" + perl_d_mmap + "'"
3557 $ WC "i_sysmman='" + perl_i_sysmman + "'"
3558 $ WC "installusrbinperl='" + perl_installusrbinperl + "'"
3559 $! WC "selectminbits='" + perl_selectminbits + "'"
3560 $ WC "crosscompile='" + perl_crosscompile + "'"
3561 $ WC "multiarch='" + perl_multiarch + "'"
3562 $ WC "sched_yield='" + perl_sched_yield + "'"
3563 $ WC "d_strtoull='" + perl_d_strtoull + "'"
3564 $ WC "usesocks='" + perl_usesocks + "'"
3565 $ WC "d_vendorlib='" + perl_d_vendorlib + "'"
3566 $ WC "vendorlibexp='" + perl_vendorlibexp + "'"
3567 $ WC "d_atolf='" + perl_d_atolf + "'"
3568 $ WC "d_atoll='" + perl_d_atoll + "'"
3569 $ WC "d_bincompat5005='" + perl_d_bincompat + "'"
3570 $ WC "d_endspent='" + perl_d_endspent + "'"
3571 $ WC "d_getspent='" + perl_d_getspent + "'"
3572 $ WC "d_getspnam='" + perl_d_getspnam + "'"
3573 $ WC "d_setspent='" + perl_d_setspent + "'"
3574 $ WC "i_shadow='" + perl_i_shadow + "'"
3575 $ WC "i_socks='" + perl_i_socks + "'"
3576 $ WC "d_PRIfldbl='" + perl_d_PRIfldbl + "'"
3577 $ WC "d_PRIgldbl='" + perl_d_PRIgldbl + "'"
3578 $ WC "d_PRId64='" + perl_d_PRId64 + "'"
3579 $ WC "d_PRIu64='" + perl_d_PRIu64 + "'"
3580 $ WC "d_PRIo64='" + perl_d_PRIo64 + "'"
3581 $ WC "d_PRIx64='" + perl_d_PRIx64 + "'"
3582 $ WC "sPRIfldbl='" + perl_sPRIfldbl + "'"
3583 $ WC "sPRIgldbl='" + perl_sPRIgldbl + "'"
3584 $ WC "sPRId64='" + perl_sPRId64 + "'"
3585 $ WC "sPRIu64='" + perl_sPRIu64 + "'"
3586 $ WC "sPRIo64='" + perl_sPRIo64 + "'"
3587 $ WC "sPRIx64='" + perl_sPRIx64 + "'"
3589 $! ##WRITE NEW CONSTANTS HERE##
3593 $! Okay, we've gotten here. Build munchconfig and run it
3594 $ 'Perl_CC'/debug munchconfig.c
3595 $ If (Needs_Opt.eqs."Yes")
3597 $ open/write OPTCHAN []munchconfig.opt
3598 $ IF ("''using_gnu_c'".eqs."Yes")
3600 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
3602 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
3604 $ link munchconfig.obj,munchconfig.opt/opt
3605 $ delete munchconfig.opt;*
3607 $ link munchconfig.obj
3610 $ echo "Writing config.h"
3612 $ ! we need an fdl file
3613 $ CREATE [-]CONFIG.FDL
3616 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
3617 $ ! First spit out the header info with the local defines (to get
3618 $ ! around the 255 character command line limit)
3619 $ OPEN/APPEND CONFIG [-]config.local
3620 $ if use_debugging_perl.eqs."Y"
3622 $ WRITE CONFIG "#define DEBUGGING"
3624 $ if use_two_pot_malloc.eqs."Y"
3626 $ WRITE CONFIG "#define TWO_POT_OPTIMIZE"
3628 $ if mymalloc.eqs."Y"
3630 $ WRITE CONFIG "#define EMBEDMYMALLOC"
3632 $ if use_pack_malloc.eqs."Y"
3634 $ WRITE CONFIG "#define PACK_MALLOC"
3636 $ if use_debugmalloc.eqs."Y"
3638 $ write config "#define DEBUGGING_MSTATS"
3640 $ if "''Using_Gnu_C'" .eqs."Yes"
3642 $ WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
3644 $ if "''Has_Dec_C_Sockets'".eqs."T"
3646 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
3647 $ WRITE CONFIG "#define DECCRTL_SOCKETS"
3649 $ if "''Has_Socketshr'".eqs."T"
3651 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
3653 $! This is VMS-specific for now
3654 $ WRITE CONFIG "#''perl_d_setenv' HAS_SETENV"
3655 $ if d_alwdeftype.eqs."Y"
3657 $ WRITE CONFIG "#define SECURE_INTERNAL_GETENV"
3659 $ WRITE CONFIG "#undef SECURE_INTERNAL_GETENV"
3661 $ if d_secintgenv.eqs."Y"
3663 $ WRITE CONFIG "#define ALWAYS_DEFTYPES"
3665 $ WRITE CONFIG "#undef ALWAYS_DEFTYPES"
3667 $ if use_64bit.eqs."Y"
3669 $ WRITE CONFIG "#define USE_LONG_LONG"
3670 $ WRITE CONFIG "#define USE_LONG_DOUBLE"
3672 $ WRITE CONFIG "#define HAS_ENVGETENV"
3675 $! Now build the normal config.h
3676 $ define/user sys$output [-]config.main
3677 $ mcr []munchconfig [-]config.sh [-]config_h.sh
3678 $ ! Concatenate them together
3679 $ copy [-]config.local,[-]config.main [-]config.h
3681 $ DELETE/NOLOG [-]CONFIG.MAIN;*
3682 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
3683 $ DELETE/NOLOG [-]CONFIG.FDL;*
3685 $ if "''Using_Dec_C'" .eqs."Yes"
3687 $ DECC_REPLACE = "DECC=decc=1"
3689 $ DECC_REPLACE = "DECC="
3691 $ if "''Using_Gnu_C'" .eqs."Yes"
3693 $ GNUC_REPLACE = "GNUC=gnuc=1"
3695 $ GNUC_REPLACE = "GNUC="
3697 $ if "''Has_Dec_C_Sockets'" .eqs."T"
3699 $ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
3701 $ if "''Has_Socketshr'" .eqs."T"
3703 $ SOCKET_REPLACE = "SOCKET=SOCKETSHR_SOCKETS=1"
3705 $ SOCKET_REPLACE = "SOCKET="
3708 $ IF ("''Use_Threads'".eqs."T")
3710 $ if ("''VMS_VER'".LES."6.2")
3712 $ THREAD_REPLACE = "THREAD=OLDTHREADED=1"
3714 $ THREAD_REPLACE = "THREAD=THREADED=1"
3717 $ THREAD_REPLACE = "THREAD="
3719 $ if mymalloc.eqs."Y"
3721 $ MALLOC_REPLACE = "MALLOC=MALLOC=1"
3723 $ MALLOC_REPLACE = "MALLOC="
3725 $ if f$getsyi("HW_MODEL").ge.1024
3727 $ ARCH_TYPE = "ARCH-TYPE=__AXP__"
3729 $ ARCH_TYPE = "ARCH-TYPE=__VAX__"
3731 $ echo "Writing DESCRIP.MMS"
3733 $ define/user sys$output [-]descrip.mms
3734 $ mcr []munchconfig [-]config.sh descrip_mms.template "''DECC_REPLACE'" "''ARCH_TYPE'" "''GNUC_REPLACE'" "''SOCKET_REPLACE'" "''THREAD_REPLACE'" "''C_Compiler_Replace'" "''MALLOC_REPLACE'" "''Thread_Live_Dangerously'" "PV=''LocalPerlVer'"
3735 $ echo "Extracting Build_Ext.Com"
3736 $ Create Sys$Disk:[-]Build_Ext.Com
3737 $ Deck/Dollar="$EndOfTpl$"
3739 $! NOTE: This files is extracted as part of the VMS configuration process.
3740 $! Any changes made to it directly will be lost. If you need to make any
3741 $! changes, please edit the template in [.vms]SubConfigure.Com instead.
3742 $ def = F$Environment("Default")
3743 $ exts1 = F$Edit(p1,"Compress")
3744 $ p2 = F$Edit(p2,"Upcase,Compress,Trim")
3745 $ If F$Locate("MCR ",p2).eq.0 Then p2 = F$Extract(3,255,p2)
3746 $ miniperl = "$" + F$Search(F$Parse(p2,".Exe"))
3748 $ if f$type('p3') .nes. "" then makeutil = 'p3'
3749 $ targ = F$Edit(p4,"Lowercase")
3752 $ ext = F$Element(i," ",p1)
3753 $ If ext .eqs. " " Then Goto done
3754 $ Define/User Perl_Env_Tables CLISYM_LOCAL
3756 ($extdir = $ENV{'ext'}) =~ s/::/./g;
3757 if ($extdir =~ /^vms/i) { $extdir =~ s/vms/.vms.ext/i; }
3758 else { $extdir = ".ext.$extdir"; }
3759 ($ENV{'extdir'} = "[$extdir]");
3760 ($ENV{'up'} = ('-') x ($extdir =~ tr/././));
3761 $ Set Default &extdir
3763 $ If F$Locate("clean",targ) .eqs. F$Length(targ)
3765 $ Write Sys$Output "Building ''ext' . . ."
3766 $ On Error Then Goto done
3767 $ If F$Search("Descrip.MMS") .eqs. ""
3771 $ If F$CvTime(F$File("Descrip.MMS","rdt")) .lts. -
3772 F$CvTime(F$File("Makefile.PL","rdt")) Then redesc = 1
3775 $ Write Sys$Output "''targ'ing ''ext' . . ."
3776 $ On Error Then Continue
3779 miniperl "-I[''up'.lib]" Makefile.PL "INST_LIB=[''up'.lib]" "INST_ARCHLIB=[''up'.lib]"
3793 $! Clean up after ourselves
3794 $ delete/nolog munchconfig.exe;*
3795 $ delete/nolog munchconfig.obj;*