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_llseek="undef"
67 $ perl_d_madvise="undef"
68 $ perl_selectminbits=32
69 $ perl_d_msync="undef"
70 $ perl_d_mprotect="undef"
71 $ perl_d_munmap="undef"
72 $ perl_crosscompile="undef"
73 $ perl_multiarch="undef"
75 $ perl_i_sysmman="undef"
76 $ perl_d_telldirproto="define"
77 $ perl_i_sysmount="undef"
78 $ perl_d_bincompat="undef"
79 $ perl_d_endspent="undef
80 $ perl_d_getspent="undef
81 $ perl_d_getspnam="undef
82 $ perl_d_setspent="undef
83 $ perl_d_fstatfs="undef"
84 $ perl_i_machcthreads="undef"
85 $ perl_i_pthread="define"
86 $ perl_d_fstatvfs="undef"
87 $ perl_usesocks="undef"
88 $ perl_d_vendorlib="undef"
89 $ perl_vendorlibexp=""
90 $ perl_d_statfsflags="undef"
91 $ perl_i_sysstatvfs="undef"
92 $ perl_i_mntent="undef"
93 $ perl_d_getmntent="undef"
94 $ perl_d_hasmntopt="undef"
95 $ perl_package="''package'"
96 $ perl_baserev = "''baserev'"
98 $ perl_installusrbinperl="undef"
100 $ perl_d_fseeko="undef"
101 $ perl_d_ftello="undef"
102 $ perl_d_readv="undef"
103 $ perl_d_writev="undef"
104 $ perl_i_machcthr="undef"
105 $ perl_i_netdb="undef"
106 $ perl_d_gnulibc="undef"
107 $ perl_cf_by="unknown"
111 $ perl_drand01 = "drand48()"
112 $ perl_randseedtype = "long int"
113 $ perl_seedfunc = "srand48"
114 $ perl_d_msg_ctrunc = "undef"
115 $ perl_d_msg_dontroute = "undef"
116 $ perl_d_msg_oob = "undef"
117 $ perl_d_msg_peek = "undef"
118 $ perl_d_msg_proxy = "undef"
119 $ perl_d_scm_rights = "undef"
120 $ perl_d_sendmsg = "undef"
121 $ perl_d_recvmsg = "undef"
122 $ perl_d_msghdr_s = "undef"
123 $ perl_d_cmsghdr_s = "undef"
124 $ IF use_64bit .eqs. "Y"
126 $ perl_use64bits = "define"
128 $ perl_use64bits = "undef"
130 $ perl_d_drand48proto = "define"
131 $ perl_libpth="/sys$share /sys$library"
133 $ perl_lddlflags="/Share"
138 $ perl_i_arpainet="undef"
139 $ perl_d_grpasswd="undef"
140 $ perl_d_setgrent="undef"
141 $ perl_d_getgrent="define"
142 $ perl_d_endgrent="define"
143 $ perl_d_pwpasswd="define"
144 $ perl_d_setpwent="define"
145 $ perl_d_getpwent="define"
146 $ perl_d_endpwent="define"
147 $ perl_d_phostname="undef"
148 $ perl_d_accessx="undef"
149 $ perl_d_eaccess="undef"
150 $ perl_ebcdic="undef"
152 $ perl_shrplib="define"
153 $ perl_usemymalloc=mymalloc
154 $ perl_usevfork="true"
155 $ perl_useposix="false"
156 $ perl_spitshell="write sys$output "
157 $ perl_dlsrc="dl_vms.c"
160 $ perl_prefix="perl_root"
161 $ perl_binexp="''perl_prefix':[000000]"
162 $ perl_builddir="''perl_prefix':[000000]"
163 $ perl_installbin="''perl_prefix':[000000]"
164 $ perl_installscript="''perl_prefix':[utils]"
165 $ perl_installman1dir="''perl_prefix':[man.man1]"
166 $ perl_installman3dir="''perl_prefix':[man.man3]"
167 $ perl_installprivlib="''perl_prefix':[lib]"
168 $ perl_installsitelib="''perl_prefix':[lib.site_perl]"
171 $ perl_d_sockpair="undef"
172 $ perl_i_neterrno="define"
173 $ perl_ldflags="/NoTrace/NoMap"
174 $ perl_d_lchown="undef"
175 $ perl_d_mknod="undef"
176 $ perl_d_union_semun="undef"
177 $ perl_d_semctl_semun="undef"
178 $ perl_d_semctl_semid_ds="undef"
179 $ IF (sharedperl.EQS."Y")
181 $ perl_obj_ext=".abj"
184 $ perl_exe_ext=".axe"
185 $ perl_lib_ext=".alb"
187 $ perl_obj_ext=".obj"
190 $ perl_exe_ext=".exe"
191 $ perl_lib_ext=".olb"
193 $ perl_dlobj="dl_vms''perl_obj_ext'"
195 $ perl_d_archlib="define"
196 $ perl_d_bincompat3="undef"
197 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
199 $ perl_d_castneg="define"
201 $ perl_d_chsize="undef"
202 $ perl_d_const="define"
203 $ perl_d_crypt="define"
204 $ perl_byteorder="1234"
207 $ perl_d_dup2="define"
208 $ perl_d_fchmod="undef"
209 $ perl_d_fchown="undef"
210 $ perl_d_fcntl="undef"
211 $ perl_d_fgetpos="define"
212 $ perl_d_flexfnam="define"
213 $ perl_d_flock="undef"
214 $ perl_d_fsetpos="define"
215 $ perl_d_getgrps="undef"
216 $ perl_d_setgrps="undef"
217 $ perl_d_getprior="undef"
218 $ perl_d_killpg="undef"
219 $ perl_d_link="undef"
220 $ perl_d_lstat="undef"
221 $ perl_d_lockf="undef"
222 $ perl_d_memcmp="define"
223 $ perl_d_memcpy="define"
224 $ perl_d_memmove="define"
225 $ perl_d_memset="define"
226 $ perl_d_mkdir="define"
228 $ perl_d_open3="define"
229 $ perl_d_poll="undef"
230 $ perl_d_readdir="define"
231 $ perl_d_seekdir="define"
232 $ perl_d_telldir="define"
233 $ perl_d_rewinddir="define"
234 $ perl_d_rename="define"
235 $ perl_d_rmdir="define"
237 $ perl_d_setegid="undef"
238 $ perl_d_seteuid="undef"
239 $ perl_d_setprior="undef"
240 $ perl_d_setregid="undef"
241 $ perl_d_setresgid="undef"
242 $ perl_d_setreuid="undef"
243 $ perl_d_setresuid="undef"
244 $ perl_d_setrgid="undef"
245 $ perl_d_setruid="undef"
246 $ perl_d_setsid="undef"
248 $ perl_d_shmatprototype="undef"
249 $ perl_d_statblks="undef"
250 $ perl_stdio_ptr="((*fp)->_ptr)"
251 $ perl_stdio_cnt="((*fp)->_cnt)"
252 $ perl_stdio_base="((*fp)->_base)"
253 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
254 $ perl_d_strctcpy="define"
255 $ perl_d_strerror="define"
256 $ perl_d_syserrlst="undef"
257 $ perl_d_strerrm="strerror((e),vaxc$errno)"
258 $ perl_d_symlink="undef"
259 $ perl_d_syscall="undef"
260 $ perl_d_system="define"
261 $ perl_timetype="time_t"
262 $ perl_d_vfork="define"
263 $ perl_signal_t="void"
264 $ perl_d_volatile="define"
265 $ perl_d_vprintf="define"
266 $ perl_d_charvspr="undef"
267 $ perl_d_waitpid="define"
268 $ perl_i_dirent="undef"
269 $ perl_d_dirnamlen="define"
270 $ perl_direntrytype="struct dirent"
271 $ perl_i_fcntl="undef"
273 $ perl_i_limits="define"
274 $ perl_i_memory="undef"
275 $ perl_i_ndbm="undef"
276 $ perl_i_stdarg="define"
278 $ perl_d_pwquota="undef"
279 $ perl_d_pwage="undef"
280 $ perl_d_pwchange="undef"
281 $ perl_d_pwclass="undef"
282 $ perl_d_pwexpire="undef"
283 $ perl_d_pwcomment="define"
284 $ perl_i_stddef="define"
285 $ perl_i_stdlib="define"
286 $ perl_i_string="define"
287 $ perl_i_sysdir="undef"
288 $ perl_i_sysfile="undef"
289 $ perl_i_sysioctl="undef"
290 $ perl_i_sysndir="undef"
291 $ perl_i_sysresrc="undef"
292 $ perl_i_sysselct="undef"
294 $ perl_i_rpcsvcdbm="undef"
295 $ perl_i_sfio="undef"
296 $ perl_i_sysstat="define"
297 $ perl_i_systimes="undef"
298 $ perl_i_systypes="define"
299 $ perl_i_sysun="undef"
300 $ perl_i_syswait="undef"
301 $ perl_i_termio="undef"
302 $ perl_i_sgtty="undef"
303 $ perl_i_termios="undef"
304 $ perl_i_time="define"
305 $ perl_i_systime="undef"
306 $ perl_i_systimek="undef"
307 $! perl_i_unistd="undef"
308 $ perl_i_utime="undef"
309 $ perl_i_varargs="undef"
310 $ perl_i_vfork="undef"
311 $ perl_prototype="define"
313 $ perl_stdchar="char"
314 $ perl_d_unlink_all_versions="undef"
315 $ perl_full_sed="_NLA0:"
316 $ perl_bin="/''perl_prefix'/000000"
317 $ perl_binexp="''perl_prefix':[000000]"
318 $ perl_d_alarm="define"
319 $ perl_d_casti32="define"
320 $ perl_d_chown="define"
321 $ perl_d_chroot="undef"
322 $ perl_d_cuserid="define"
323 $ perl_d_dbl_dig="define"
324 $ perl_d_ldbl_dig="define"
325 $ perl_d_difftime="define"
326 $ perl_d_fork="undef"
327 $ perl_d_getlogin="define"
328 $ perl_d_getppid="undef"
329 $ perl_d_nice="define"
330 $ perl_d_pause="define"
331 $ perl_d_pipe="define"
332 $ perl_d_readlink="undef"
333 $ perl_d_setlinebuf="undef"
334 $ perl_d_strchr="define"
335 $ perl_d_strtod="define"
336 $ perl_d_strtol="define"
337 $ perl_d_strtoul="define"
338 $ perl_d_tcgetpgrp="undef"
339 $ perl_d_tcsetpgrp="undef"
340 $ perl_d_times="define"
341 $ perl_d_tzname="undef"
342 $ perl_d_umask="define"
343 $ perl_fpostype="fpos_t"
344 $ perl_i_dlfcn="undef"
345 $ perl_i_float="define"
346 $ perl_i_math="define"
347 $ perl_lseektype="int"
348 $ perl_i_values="undef"
349 $ perl_malloctype="void *"
350 $ perl_freetype="void"
351 $ if "''mymalloc'".eqs."Y"
353 $ perl_d_mymalloc="define"
355 $ perl_d_mymalloc="undef"
358 $ perl_modetype="unsigned int"
359 $ perl_ssizetype="int"
360 $ perl_o_nonblock=" "
363 $ perl_d_eofnblk="undef"
364 $ perl_d_oldarchlib="define"
365 $ perl_privlibexp="''perl_prefix':[lib]"
366 $ perl_privlib="''perl_prefix':[lib]"
367 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
368 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
369 $ perl_sizetype="size_t"
370 $ perl_i_sysparam="undef"
371 $ perl_d_void_closedir="define"
372 $ perl_d_dlerror="undef"
373 $ perl_d_dlsymun="undef"
374 $ perl_d_suidsafe="undef"
375 $ perl_d_dosuid="undef"
376 $ perl_d_inetaton="undef"
377 $ perl_d_isascii="define"
378 $ perl_d_mkfifo="undef"
379 $ perl_d_safebcpy="undef"
380 $ perl_d_safemcpy="define"
381 $ perl_d_sanemcmp="define"
382 $ perl_d_setpgrp="undef"
383 $ perl_d_bsdsetpgrp="undef"
384 $ perl_d_bsdpgrp="undef"
385 $ perl_d_setpgid="undef"
386 $ perl_d_setpgrp2="undef"
387 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
388 $ perl_d_getpgid="undef"
389 $ perl_d_getpgrp="undef"
390 $ perl_d_bsdgetpgrp="undef"
391 $ perl_d_getpgrp2="undef"
392 $ perl_d_sfio="undef"
393 $ perl_usedl="define"
394 $ perl_startperl="""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ + ++$status != 0 and $exit = $status = undef;"""
395 $ perl_db_hashtype=" "
396 $ perl_db_prefixtype=" "
397 $ perl_useperlio="undef"
398 $ perl_defvoidused="15"
399 $ perl_voidflags="15"
400 $ perl_d_eunice="undef"
401 $ perl_d_pwgecos="define"
402 $ IF ("''Use_Threads'".eqs."T").and.("''VMS_VER'".LES."6.2")
404 $ 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"
408 $ IF ("''Using_Dec_C'".eqs."Yes")
410 $ perl_libc="(DECCRTL)"
414 $ perl_PATCHLEVEL="''patchlevel'"
415 $ perl_SUBVERSION="''subversion'"
420 $ if (use_64bit .eqs. "Y")
422 $ perl_d_PRIfldbl = "define"
423 $ perl_d_PRIgldbl = "define"
424 $ perl_d_PRId64 = "define"
425 $ perl_d_PRIu64 = "define"
426 $ perl_d_PRIo64 = "define"
427 $ perl_d_PRIx64 = "define"
428 $ perl_sPRIfldbl = """Lf"""
429 $ perl_sPRIgldbl = """Lg"""
430 $ perl_sPRId64 = """Ld"""
431 $ perl_sPRIu64 = """Lu"""
432 $ perl_sPRIo64 = """Lo"""
433 $ perl_sPRIx64 = """Lx"""
435 $ perl_d_PRIfldbl = "undef"
436 $ perl_d_PRIgldbl = "undef"
437 $ perl_d_PRId64 = "undef"
438 $ perl_d_PRIu64 = "undef"
439 $ perl_d_PRIo64 = "undef"
440 $ perl_d_PRIx64 = "undef"
441 $ perl_sPRIfldbl = ""
442 $ perl_sPRIgldbl = ""
450 $! Now some that we build up
452 $ LocalTime = f$time()
453 $ perl_cf_time= f$extract(0, 3, f$cvtime(LocalTime,, "WEEKDAY")) + " " + -
454 f$edit(f$cvtime(LocalTime, "ABSOLUTE", "MONTH"), "LOWERCASE") + -
455 " " + f$cvtime(LocalTime,, "DAY") + " " + f$cvtime(LocalTime,, "TIME") + -
456 " " + f$cvtime(LocalTime,, "YEAR")
457 $ if f$getsyi("HW_MODEL").ge.1024
459 $ perl_arch="VMS_AXP"
460 $ perl_archname="VMS_AXP"
461 $ perl_alignbytes="8"
463 $ perl_arch="VMS_VAX"
464 $ perl_archname="VMS_VAX"
465 $ perl_alignbytes="8"
467 $ if ("''Use_Threads'".eqs."T")
469 $ perl_arch = "''perl_arch'-thread"
470 $ perl_archname = "''perl_archname'-thread"
471 $ perl_d_old_pthread_create_joinable = "undef"
472 $ perl_old_pthread_create_joinable = " "
474 $ perl_d_old_pthread_create_joinable = "undef"
475 $ perl_old_pthread_create_joinable = " "
477 $ perl_osvers=f$edit(osvers, "TRIM")
478 $ if (perl_subversion + 0).eq.0
480 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL
482 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion
485 $! Some that we need to invoke the compiler for
486 $ OS := "open/write SOURCECHAN []temp.c"
487 $ WS := "write SOURCECHAN"
488 $ CS := "close SOURCECHAN"
489 $ DS := "delete/nolog []temp.*;*"
491 $ if ("''using_vax_c'".eqs."Yes").or.("''using_gnu_c'".eqs."Yes")
493 $ open/write OPTCHAN []temp.opt
494 $ IF ("''using_gnu_c'".eqs."Yes")
496 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
498 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
503 $! Check for __STDC__
507 $ WS "#include <stdlib.h>
509 $ WS "#include <stdio.h>
512 $ WS "#ifdef __STDC__
513 $ WS "printf(""42\n"");
515 $ WS "printf(""1\n"");
520 $ DEFINE SYS$ERROR _NLA0:
521 $ DEFINE SYS$OUTPUT _NLA0:
522 $ ON ERROR THEN CONTINUE
523 $ ON WARNING THEN CONTINUE
525 $ If (Needs_Opt.eqs."Yes")
527 $ link temp.obj,temp.opt/opt
531 $ DEASSIGN SYS$OUTPUT
533 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
534 $ DEFINE SYS$ERROR TEMPOUT
535 $ DEFINE SYS$OUTPUT TEMPOUT
538 $ DEASSIGN SYS$OUTPUT
540 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
544 $ perl_cpp_stuff=line
545 $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
547 $! Check for double size
551 $ WS "#include <stdlib.h>
553 $ WS "#include <stdio.h>
557 $ WS "foo = sizeof(double);
558 $ WS "printf(""%d\n"", foo);
562 $ DEFINE SYS$ERROR _NLA0:
563 $ DEFINE SYS$OUTPUT _NLA0:
564 $ ON ERROR THEN CONTINUE
565 $ ON WARNING THEN CONTINUE
567 $ If (Needs_Opt.eqs."Yes")
569 $ link temp.obj,temp.opt/opt
574 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
575 $ DEASSIGN SYS$OUTPUT
577 $ DEFINE SYS$ERROR TEMPOUT
578 $ DEFINE SYS$OUTPUT TEMPOUT
581 $ DEASSIGN SYS$OUTPUT
583 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
587 $ perl_doublesize=line
588 $ WRITE_RESULT "doublesize is ''perl_doublesize'"
590 $! Check for long double size
594 $ WS "#include <stdlib.h>
596 $ WS "#include <stdio.h>
599 $ WS "printf(""%d\n"", sizeof(long double));
603 $ DEFINE SYS$ERROR _NLA0:
604 $ DEFINE SYS$OUTPUT _NLA0:
605 $ ON ERROR THEN CONTINUE
606 $ ON WARNING THEN CONTINUE
608 $ teststatus = f$extract(9,1,$status)
609 $ if (teststatus.nes."1")
611 $ perl_longdblsize="0"
612 $ perl_d_longdbl="undef"
614 $ ON ERROR THEN CONTINUE
615 $ ON WARNING THEN CONTINUE
616 $ If (Needs_Opt.eqs."Yes")
618 $ link temp.obj,temp.opt/opt
622 $ teststatus = f$extract(9,1,$status)
623 $ DEASSIGN SYS$OUTPUT
625 $ if (teststatus.nes."1")
627 $ perl_longdblsize="0"
628 $ perl_d_longdbl="undef"
630 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
631 $ DEFINE SYS$ERROR TEMPOUT
632 $ DEFINE SYS$OUTPUT TEMPOUT
635 $ DEASSIGN SYS$OUTPUT
637 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
641 $ perl_longdblsize=line
642 $ perl_d_longdbl="define"
645 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
646 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
648 $! Check for long long existance and size
652 $ WS "#include <stdlib.h>
654 $ WS "#include <stdio.h>
657 $ WS "printf(""%d\n"", sizeof(long long));
661 $ DEFINE SYS$ERROR _NLA0:
662 $ DEFINE SYS$OUTPUT _NLA0:
663 $ on error then continue
664 $ on warning then continue
666 $ If (Needs_Opt.eqs."Yes")
668 $ link temp.obj,temp.opt/opt
672 $ teststatus = f$extract(9,1,$status)
673 $ DEASSIGN SYS$OUTPUT
675 $ if (teststatus.nes."1")
677 $ perl_longlongsize="0"
678 $ perl_d_longlong="undef"
680 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
681 $ DEFINE SYS$ERROR TEMPOUT
682 $ DEFINE SYS$OUTPUT TEMPOUT
685 $ DEASSIGN SYS$OUTPUT
687 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
691 $ perl_longlongsize=line
692 $ perl_d_longlong="define"
694 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
695 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
697 $! Check for int size
701 $ WS "#include <stdlib.h>
703 $ WS "#include <stdio.h>
706 $ WS "printf(""%d\n"", sizeof(int));
710 $ DEFINE SYS$ERROR _NLA0:
711 $ DEFINE SYS$OUTPUT _NLA0:
712 $ on error then continue
713 $ on warning then continue
715 $ If (Needs_Opt.eqs."Yes")
717 $ link temp.obj,temp.opt/opt
721 $ If (Needs_Opt.eqs."Yes")
723 $ link temp.obj,temp.opt/opt
727 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
728 $ DEASSIGN SYS$OUTPUT
730 $ DEFINE SYS$ERROR TEMPOUT
731 $ DEFINE SYS$OUTPUT TEMPOUT
734 $ DEASSIGN SYS$OUTPUT
736 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
741 $ WRITE_RESULT "intsize is ''perl_intsize'"
743 $! Check for short size
747 $ WS "#include <stdlib.h>
749 $ WS "#include <stdio.h>
752 $ WS "printf(""%d\n"", sizeof(short));
756 $ DEFINE SYS$ERROR _NLA0:
757 $ DEFINE SYS$OUTPUT _NLA0:
758 $ on error then continue
759 $ on warning then continue
761 $ If (Needs_Opt.eqs."Yes")
763 $ link temp.obj,temp.opt/opt
767 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
768 $ DEASSIGN SYS$OUTPUT
770 $ DEFINE SYS$ERROR TEMPOUT
771 $ DEFINE SYS$OUTPUT TEMPOUT
774 $ DEASSIGN SYS$OUTPUT
776 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
780 $ perl_shortsize=line
781 $ WRITE_RESULT "shortsize is ''perl_shortsize'"
783 $! Check for long size
787 $ WS "#include <stdlib.h>
789 $ WS "#include <stdio.h>
793 $ WS "foo = sizeof(long);
794 $ WS "printf(""%d\n"", foo);
798 $ DEFINE SYS$ERROR _NLA0:
799 $ DEFINE SYS$OUTPUT _NLA0:
800 $ on error then continue
801 $ on warning then continue
803 $ If (Needs_Opt.eqs."Yes")
805 $ link temp.obj,temp.opt/opt
809 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
810 $ DEASSIGN SYS$OUTPUT
812 $ DEFINE SYS$ERROR TEMPOUT
813 $ DEFINE SYS$OUTPUT TEMPOUT
816 $ DEASSIGN SYS$OUTPUT
818 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
823 $ WRITE_RESULT "longsize is ''perl_longsize'"
825 $! Check the prototype for getgid
829 $ WS "#include <stdlib.h>
831 $ WS "#include <stdio.h>
832 $ WS "#include <types.h>
833 $ WS "#include <unistd.h>
840 $ DEFINE SYS$ERROR _NLA0:
841 $ DEFINE SYS$OUTPUT _NLA0:
842 $ on error then continue
843 $ on warning then continue
845 $ teststatus = f$extract(9,1,$status)
846 $ DEASSIGN SYS$OUTPUT
848 $ if (teststatus.nes."1")
850 $! Okay, gid_t failed. Must be unsigned int
851 $ perl_gidtype = "unsigned int"
853 $ perl_gidtype = "gid_t"
855 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
857 $! Check to see if we've got dev_t
861 $ WS "#include <stdlib.h>
863 $ WS "#include <stdio.h>
864 $ WS "#include <types.h>
865 $ WS "#include <unistd.h>
872 $ DEFINE SYS$ERROR _NLA0:
873 $ DEFINE SYS$OUTPUT _NLA0:
874 $ on error then continue
875 $ on warning then continue
877 $ teststatus = f$extract(9,1,$status)
878 $ DEASSIGN SYS$OUTPUT
880 $ if (teststatus.nes."1")
882 $! Okay, dev_t failed. Must be unsigned int
883 $ perl_devtype = "unsigned int"
885 $ perl_devtype = "dev_t"
887 $ WRITE_RESULT "Dev_t is ''perl_devtype'"
889 $! Check to see if we've got unistd.h (which we ought to, but you never know)
893 $ WS "#include <stdlib.h>
895 $ WS "#include <unistd.h>
901 $ DEFINE SYS$ERROR _NLA0:
902 $ DEFINE SYS$OUTPUT _NLA0:
903 $ on error then continue
904 $ on warning then continue
906 $ teststatus = f$extract(9,1,$status)
907 $ DEASSIGN SYS$OUTPUT
909 $ if (teststatus.nes."1")
911 $! Okay, failed. Must not have it
912 $ perl_i_unistd = "undef"
914 $ perl_i_unistd = "define"
917 $ WRITE_RESULT "i_unistd is ''perl_i_unistd'"
919 $! Check to see if we've got shadow.h (probably not, but...)
923 $ WS "#include <stdlib.h>
925 $ WS "#include <shadow.h>
931 $ DEFINE SYS$ERROR _NLA0:
932 $ DEFINE SYS$OUTPUT _NLA0:
933 $ on error then continue
934 $ on warning then continue
936 $ teststatus = f$extract(9,1,$status)
937 $ DEASSIGN SYS$OUTPUT
939 $ if (teststatus.nes."1")
941 $! Okay, failed. Must not have it
942 $ perl_i_shadow = "undef"
944 $ perl_i_shadow = "define"
947 $ WRITE_RESULT "i_shadow is ''perl_i_shadow'"
949 $! Check to see if we've got socks.h (probably not, but...)
953 $ WS "#include <stdlib.h>
955 $ WS "#include <socks.h>
961 $ DEFINE SYS$ERROR _NLA0:
962 $ DEFINE SYS$OUTPUT _NLA0:
963 $ on error then continue
964 $ on warning then continue
966 $ teststatus = f$extract(9,1,$status)
967 $ DEASSIGN SYS$OUTPUT
969 $ if (teststatus.nes."1")
971 $! Okay, failed. Must not have it
972 $ perl_i_socks = "undef"
974 $ perl_i_socks = "define"
977 $ WRITE_RESULT "i_socks is ''perl_i_socks'"
979 $! Check the prototype for select
981 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
985 $ WS "#include <stdlib.h>
987 $ WS "#include <stdio.h>
988 $ WS "#include <types.h>
989 $ WS "#include <unistd.h>
990 $ if ("''Has_Socketshr'".eqs."T")
992 $ WS "#include <socketshr.h>"
994 $ WS "#include <time.h>
995 $ WS "#include <socket.h>
1002 $ WS "bar = select(2, foo, foo, foo, NULL);
1006 $ DEFINE SYS$ERROR _NLA0:
1007 $ DEFINE SYS$OUTPUT _NLA0:
1008 $ on error then continue
1009 $ on warning then continue
1011 $ teststatus = f$extract(9,1,$status)
1012 $ DEASSIGN SYS$OUTPUT
1013 $ DEASSIGN SYS$ERROR
1014 $ if (teststatus.nes."1")
1016 $! Okay, fd_set failed. Must be an int
1017 $ perl_selecttype = "int *"
1019 $ perl_selecttype="fd_set *"
1022 $ ! No sockets, so stick in an int *
1023 $ perl_selecttype = "int *"
1025 $ WRITE_RESULT "selectype is ''perl_selecttype'"
1027 $! Check to see if fd_set exists
1031 $ WS "#include <stdlib.h>
1033 $ WS "#include <stdio.h>
1034 $ WS "#include <types.h>
1035 $ WS "#include <unistd.h>
1036 $ if ("''Has_Socketshr'".eqs."T")
1038 $ WS "#include <socketshr.h>"
1040 $ IF ("''Has_Dec_C_Sockets'".eqs."T")
1042 $ WS "#include <time.h>
1043 $ WS "#include <socket.h>
1052 $ DEFINE SYS$ERROR _NLA0:
1053 $ DEFINE SYS$OUTPUT _NLA0:
1054 $ on error then continue
1055 $ on warning then continue
1057 $ teststatus = f$extract(9,1,$status)
1058 $ DEASSIGN SYS$OUTPUT
1059 $ DEASSIGN SYS$ERROR
1060 $ if (teststatus.nes."1")
1062 $! Okay, fd_set failed. Must not exist
1063 $ perl_d_fd_set = "undef"
1065 $ perl_d_fd_set="define"
1067 $ WRITE_RESULT "d_fd_set is ''perl_d_fd_set'"
1069 $! Check for inttypes.h
1073 $ WS "#include <stdlib.h>
1075 $ WS "#include <stdio.h>
1076 $ WS "#include <unistd.h>
1077 $ WS "#include <inttypes.h>
1083 $ DEFINE SYS$ERROR _NLA0:
1084 $ DEFINE SYS$OUTPUT _NLA0:
1085 $ on error then continue
1086 $ on warning then continue
1088 $ savedstatus = $status
1089 $ teststatus = f$extract(9,1,savedstatus)
1090 $ if (teststatus.nes."1")
1092 $ perl_i_inttypes="undef"
1093 $ DEASSIGN SYS$OUTPUT
1094 $ DEASSIGN SYS$ERROR
1096 $ If (Needs_Opt.eqs."Yes")
1098 $ link temp.obj,temp.opt/opt
1102 $ savedstatus = $status
1103 $ teststatus = f$extract(9,1,savedstatus)
1104 $ DEASSIGN SYS$OUTPUT
1105 $ DEASSIGN SYS$ERROR
1106 $ if (teststatus.nes."1")
1108 $ perl_i_inttypes="undef"
1110 $ perl_i_inttypes="define"
1113 $ WRITE_RESULT "i_inttypes is ''perl_i_inttypes'"
1115 $! Check to see if int64_t exists
1119 $ WS "#include <stdlib.h>
1121 $ WS "#include <stdio.h>
1122 $ WS "#include <types.h>
1123 $ WS "#''perl_i_inttypes IIH
1125 $ WS "#include <inttypes.h>
1127 $ WS "#include <unistd.h>
1134 $ DEFINE SYS$ERROR _NLA0:
1135 $ DEFINE SYS$OUTPUT _NLA0:
1136 $ on error then continue
1137 $ on warning then continue
1139 $ teststatus = f$extract(9,1,$status)
1140 $ DEASSIGN SYS$OUTPUT
1141 $ DEASSIGN SYS$ERROR
1142 $ if (teststatus.nes."1")
1144 $! Okay, int64_t failed. Must not exist
1145 $ perl_d_int64t = "undef"
1147 $ perl_d_int64t="define"
1149 $ WRITE_RESULT "d_int64t is ''perl_d_int64t'"
1151 $! Check to see if off64_t exists
1155 $ WS "#include <stdlib.h>
1157 $ WS "#include <stdio.h>
1158 $ WS "#include <types.h>
1159 $ WS "#''perl_i_inttypes IIH
1161 $ WS "#include <inttypes.h>
1163 $ WS "#include <unistd.h>
1170 $ DEFINE SYS$ERROR _NLA0:
1171 $ DEFINE SYS$OUTPUT _NLA0:
1172 $ on error then continue
1173 $ on warning then continue
1175 $ teststatus = f$extract(9,1,$status)
1176 $ DEASSIGN SYS$OUTPUT
1177 $ DEASSIGN SYS$ERROR
1178 $ if (teststatus.nes."1")
1180 $! Okay, off64_t failed. Must not exist
1181 $ perl_d_off64_t = "undef"
1183 $ perl_d_off64_t="define"
1185 $ WRITE_RESULT "d_off64_t is ''perl_d_off64_t'"
1187 $! Check to see if fpos64_t exists
1191 $ WS "#include <stdlib.h>
1193 $ WS "#include <stdio.h>
1194 $ WS "#include <types.h>
1195 $ WS "#''perl_i_inttypes IIH
1197 $ WS "#include <inttypes.h>
1199 $ WS "#include <unistd.h>
1206 $ DEFINE SYS$ERROR _NLA0:
1207 $ DEFINE SYS$OUTPUT _NLA0:
1208 $ on error then continue
1209 $ on warning then continue
1211 $ teststatus = f$extract(9,1,$status)
1212 $ DEASSIGN SYS$OUTPUT
1213 $ DEASSIGN SYS$ERROR
1214 $ if (teststatus.nes."1")
1216 $! Okay, fpos64_t failed. Must not exist
1217 $ perl_d_fpos64_t = "undef"
1219 $ perl_d_fpos64_t="define"
1221 $ WRITE_RESULT "d_fpos64_t is ''perl_d_fpos64_t'"
1223 $! Check to see if gethostname exists
1225 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1229 $ WS "#include <stdlib.h>
1231 $ WS "#include <stdio.h>
1232 $ WS "#include <types.h>
1233 $ WS "#include <unistd.h>
1234 $ if ("''Has_Socketshr'".eqs."T")
1236 $ WS "#include <socketshr.h>"
1238 $ WS "#include <time.h>
1239 $ WS "#include <socket.h>
1243 $ WS "char name[100];
1246 $ WS "baz = gethostname(name, bar);
1250 $ DEFINE SYS$ERROR _NLA0:
1251 $ DEFINE SYS$OUTPUT _NLA0:
1252 $ on error then continue
1253 $ on warning then continue
1255 $ teststatus = f$extract(9,1,$status)
1256 $ DEASSIGN SYS$OUTPUT
1257 $ DEASSIGN SYS$ERROR
1258 $ if (teststatus.nes."1")
1260 $! Okay, compile failed. Must not have it
1261 $ perl_dgethname = "undef"
1263 $ If (Needs_Opt.eqs."Yes")
1265 $ link temp.obj,temp.opt/opt
1269 $ savedstatus = $status
1270 $ teststatus = f$extract(9,1,savedstatus)
1271 $ if (teststatus.nes."1")
1273 $ perl_d_gethname="undef"
1275 $ perl_d_gethname="define"
1279 $ ! No sockets, so no gethname
1280 $ perl_d_gethname = "undef"
1282 $ WRITE_RESULT "d_gethname is ''perl_d_gethname'"
1284 $! Check for sys/file.h
1288 $ WS "#include <stdlib.h>
1290 $ WS "#include <stdio.h>
1291 $ WS "#include <unistd.h>
1292 $ WS "#include <sys/file.h>
1298 $ DEFINE SYS$ERROR _NLA0:
1299 $ DEFINE SYS$OUTPUT _NLA0:
1300 $ on error then continue
1301 $ on warning then continue
1303 $ savedstatus = $status
1304 $ teststatus = f$extract(9,1,savedstatus)
1305 $ if (teststatus.nes."1")
1307 $ perl_i_sysfile="undef"
1308 $ DEASSIGN SYS$OUTPUT
1309 $ DEASSIGN SYS$ERROR
1311 $ If (Needs_Opt.eqs."Yes")
1313 $ link temp.obj,temp.opt/opt
1317 $ savedstatus = $status
1318 $ teststatus = f$extract(9,1,savedstatus)
1319 $ DEASSIGN SYS$OUTPUT
1320 $ DEASSIGN SYS$ERROR
1321 $ if (teststatus.nes."1")
1323 $ perl_i_sysfile="undef"
1325 $ perl_i_sysfile="define"
1328 $ WRITE_RESULT "i_sysfile is ''perl_i_sysfile'"
1334 $ WS "#include <stdlib.h>
1336 $ WS "#include <stdio.h>
1337 $ WS "#include <unistd.h>
1338 $ WS "#include <poll.h>
1344 $ DEFINE SYS$ERROR _NLA0:
1345 $ DEFINE SYS$OUTPUT _NLA0:
1346 $ on error then continue
1347 $ on warning then continue
1349 $ savedstatus = $status
1350 $ teststatus = f$extract(9,1,savedstatus)
1351 $ if (teststatus.nes."1")
1353 $ perl_i_poll="undef"
1354 $ DEASSIGN SYS$OUTPUT
1355 $ DEASSIGN SYS$ERROR
1357 $ If (Needs_Opt.eqs."Yes")
1359 $ link temp.obj,temp.opt/opt
1363 $ savedstatus = $status
1364 $ teststatus = f$extract(9,1,savedstatus)
1365 $ DEASSIGN SYS$OUTPUT
1366 $ DEASSIGN SYS$ERROR
1367 $ if (teststatus.nes."1")
1369 $ perl_i_poll="undef"
1371 $ perl_i_poll="define"
1374 $ WRITE_RESULT "i_poll is ''perl_i_poll'"
1376 $! Check for sys/uio.h
1380 $ WS "#include <stdlib.h>
1382 $ WS "#include <stdio.h>
1383 $ WS "#include <unistd.h>
1384 $ WS "#include <sys/uio.h>
1390 $ DEFINE SYS$ERROR _NLA0:
1391 $ DEFINE SYS$OUTPUT _NLA0:
1392 $ on error then continue
1393 $ on warning then continue
1395 $ savedstatus = $status
1396 $ teststatus = f$extract(9,1,savedstatus)
1397 $ if (teststatus.nes."1")
1399 $ perl_i_sysuio="undef"
1400 $ DEASSIGN SYS$OUTPUT
1401 $ DEASSIGN SYS$ERROR
1403 $ If (Needs_Opt.eqs."Yes")
1405 $ link temp.obj,temp.opt/opt
1409 $ savedstatus = $status
1410 $ teststatus = f$extract(9,1,savedstatus)
1411 $ DEASSIGN SYS$OUTPUT
1412 $ DEASSIGN SYS$ERROR
1413 $ if (teststatus.nes."1")
1415 $ perl_i_sysuio="undef"
1417 $ perl_i_sysuio="define"
1420 $ WRITE_RESULT "i_sysuio is ''perl_i_sysuio'"
1422 $! Check for sys/access.h
1426 $ WS "#include <stdlib.h>
1428 $ WS "#include <stdio.h>
1429 $ WS "#include <unistd.h>
1430 $ WS "#include <sys/access.h>
1436 $ DEFINE SYS$ERROR _NLA0:
1437 $ DEFINE SYS$OUTPUT _NLA0:
1438 $ on error then continue
1439 $ on warning then continue
1441 $ savedstatus = $status
1442 $ teststatus = f$extract(9,1,savedstatus)
1443 $ if (teststatus.nes."1")
1445 $ perl_i_sysaccess="undef"
1446 $ DEASSIGN SYS$OUTPUT
1447 $ DEASSIGN SYS$ERROR
1449 $ If (Needs_Opt.eqs."Yes")
1451 $ link temp.obj,temp.opt/opt
1455 $ savedstatus = $status
1456 $ teststatus = f$extract(9,1,savedstatus)
1457 $ DEASSIGN SYS$OUTPUT
1458 $ DEASSIGN SYS$ERROR
1459 $ if (teststatus.nes."1")
1461 $ perl_i_sysaccess="undef"
1463 $ perl_i_sysaccess="define"
1466 $ WRITE_RESULT "i_sysaccess is ''perl_i_sysaccess'"
1468 $! Check for sys/security.h
1472 $ WS "#include <stdlib.h>
1474 $ WS "#include <stdio.h>
1475 $ WS "#include <unistd.h>
1476 $ WS "#include <sys/security.h>
1482 $ DEFINE SYS$ERROR _NLA0:
1483 $ DEFINE SYS$OUTPUT _NLA0:
1484 $ on error then continue
1485 $ on warning then continue
1487 $ savedstatus = $status
1488 $ teststatus = f$extract(9,1,savedstatus)
1489 $ if (teststatus.nes."1")
1491 $ perl_i_syssecrt="undef"
1492 $ DEASSIGN SYS$OUTPUT
1493 $ DEASSIGN SYS$ERROR
1495 $ If (Needs_Opt.eqs."Yes")
1497 $ link temp.obj,temp.opt/opt
1501 $ savedstatus = $status
1502 $ teststatus = f$extract(9,1,savedstatus)
1503 $ DEASSIGN SYS$OUTPUT
1504 $ DEASSIGN SYS$ERROR
1505 $ if (teststatus.nes."1")
1507 $ perl_i_syssecrt="undef"
1509 $ perl_i_syssecrt="define"
1512 $ WRITE_RESULT "i_syssecrt is ''perl_i_syssecrt'"
1514 $! Check for fcntl.h
1518 $ WS "#include <stdlib.h>
1520 $ WS "#include <stdio.h>
1521 $ WS "#include <unistd.h>
1522 $ WS "#include <fcntl.h>
1528 $ DEFINE SYS$ERROR _NLA0:
1529 $ DEFINE SYS$OUTPUT _NLA0:
1530 $ on error then continue
1531 $ on warning then continue
1533 $ savedstatus = $status
1534 $ teststatus = f$extract(9,1,savedstatus)
1535 $ if (teststatus.nes."1")
1537 $ perl_i_fcntl="undef"
1538 $ DEASSIGN SYS$OUTPUT
1539 $ DEASSIGN SYS$ERROR
1541 $ If (Needs_Opt.eqs."Yes")
1543 $ link temp.obj,temp.opt/opt
1547 $ savedstatus = $status
1548 $ teststatus = f$extract(9,1,savedstatus)
1549 $ DEASSIGN SYS$OUTPUT
1550 $ DEASSIGN SYS$ERROR
1551 $ if (teststatus.nes."1")
1553 $ perl_i_fcntl="undef"
1555 $ perl_i_fcntl="define"
1558 $ WRITE_RESULT "i_fcntl is ''perl_i_fcntl'"
1564 $ WS "#include <stdlib.h>
1566 $ WS "#include <stdio.h>
1567 $ WS "#include <unistd.h>
1568 $ WS "#include <fcntl.h>
1575 $ DEFINE SYS$ERROR _NLA0:
1576 $ DEFINE SYS$OUTPUT _NLA0:
1577 $ on error then continue
1578 $ on warning then continue
1580 $ savedstatus = $status
1581 $ teststatus = f$extract(9,1,savedstatus)
1582 $ if (teststatus.nes."1")
1584 $ perl_d_fcntl="undef"
1585 $ DEASSIGN SYS$OUTPUT
1586 $ DEASSIGN SYS$ERROR
1588 $ If (Needs_Opt.eqs."Yes")
1590 $ link temp.obj,temp.opt/opt
1594 $ savedstatus = $status
1595 $ teststatus = f$extract(9,1,savedstatus)
1596 $ DEASSIGN SYS$OUTPUT
1597 $ DEASSIGN SYS$ERROR
1598 $ if (teststatus.nes."1")
1600 $ perl_d_fcntl="undef"
1602 $ perl_d_fcntl="define"
1605 $ WRITE_RESULT "d_fcntl is ''perl_d_fcntl'"
1611 $ WS "#include <stdlib.h>
1613 $ WS "#include <string.h>
1617 $ WS "place = memchr(""foo"", 47, 3)
1621 $ DEFINE SYS$ERROR _NLA0:
1622 $ DEFINE SYS$OUTPUT _NLA0:
1623 $ on error then continue
1624 $ on warning then continue
1626 $ savedstatus = $status
1627 $ teststatus = f$extract(9,1,savedstatus)
1628 $ if (teststatus.nes."1")
1630 $ perl_d_memchr="undef"
1631 $ DEASSIGN SYS$OUTPUT
1632 $ DEASSIGN SYS$ERROR
1634 $ If (Needs_Opt.eqs."Yes")
1636 $ link temp.obj,temp.opt/opt
1640 $ savedstatus = $status
1641 $ teststatus = f$extract(9,1,savedstatus)
1642 $ DEASSIGN SYS$OUTPUT
1643 $ DEASSIGN SYS$ERROR
1644 $ if (teststatus.nes."1")
1646 $ perl_d_memchr="undef"
1648 $ perl_d_memchr="define"
1651 $ WRITE_RESULT "d_memchr is ''perl_d_memchr'"
1653 $! Check for strtoull
1657 $ WS "#include <stdlib.h>
1659 $ WS "#include <string.h>
1662 $ WS "unsigned __int64 result;
1663 $ WS "result = strtoull(""123123"", NULL, 10);
1667 $ DEFINE SYS$ERROR _NLA0:
1668 $ DEFINE SYS$OUTPUT _NLA0:
1669 $ on error then continue
1670 $ on warning then continue
1672 $ savedstatus = $status
1673 $ teststatus = f$extract(9,1,savedstatus)
1674 $ if (teststatus.nes."1")
1676 $ perl_d_strtoull="undef"
1677 $ DEASSIGN SYS$OUTPUT
1678 $ DEASSIGN SYS$ERROR
1680 $ If (Needs_Opt.eqs."Yes")
1682 $ link temp.obj,temp.opt/opt
1686 $ savedstatus = $status
1687 $ teststatus = f$extract(9,1,savedstatus)
1688 $ DEASSIGN SYS$OUTPUT
1689 $ DEASSIGN SYS$ERROR
1690 $ if (teststatus.nes."1")
1692 $ perl_d_strtoull="undef"
1694 $ perl_d_strtoull="define"
1697 $ WRITE_RESULT "d_strtoull is ''perl_d_strtoull'"
1703 $ WS "#include <stdlib.h>
1705 $ WS "#include <string.h>
1708 $ WS " __int64 result;
1709 $ WS "result = atoll(""123123"");
1713 $ DEFINE SYS$ERROR _NLA0:
1714 $ DEFINE SYS$OUTPUT _NLA0:
1715 $ on error then continue
1716 $ on warning then continue
1718 $ savedstatus = $status
1719 $ teststatus = f$extract(9,1,savedstatus)
1720 $ if (teststatus.nes."1")
1722 $ perl_d_atoll="undef"
1723 $ DEASSIGN SYS$OUTPUT
1724 $ DEASSIGN SYS$ERROR
1726 $ If (Needs_Opt.eqs."Yes")
1728 $ link temp.obj,temp.opt/opt
1732 $ savedstatus = $status
1733 $ teststatus = f$extract(9,1,savedstatus)
1734 $ DEASSIGN SYS$OUTPUT
1735 $ DEASSIGN SYS$ERROR
1736 $ if (teststatus.nes."1")
1738 $ perl_d_atoll="undef"
1740 $ perl_d_atoll="define"
1743 $ WRITE_RESULT "d_atoll is ''perl_d_atoll'"
1749 $ WS "#include <stdlib.h>
1751 $ WS "#include <string.h>
1755 $ WS "result = atolf(""123123"");
1759 $ DEFINE SYS$ERROR _NLA0:
1760 $ DEFINE SYS$OUTPUT _NLA0:
1761 $ on error then continue
1762 $ on warning then continue
1764 $ savedstatus = $status
1765 $ teststatus = f$extract(9,1,savedstatus)
1766 $ if (teststatus.nes."1")
1768 $ perl_d_atolf="undef"
1769 $ DEASSIGN SYS$OUTPUT
1770 $ DEASSIGN SYS$ERROR
1772 $ If (Needs_Opt.eqs."Yes")
1774 $ link temp.obj,temp.opt/opt
1778 $ savedstatus = $status
1779 $ teststatus = f$extract(9,1,savedstatus)
1780 $ DEASSIGN SYS$OUTPUT
1781 $ DEASSIGN SYS$ERROR
1782 $ if (teststatus.nes."1")
1784 $ perl_d_atolf="undef"
1786 $ perl_d_atolf="define"
1789 $ WRITE_RESULT "d_atolf is ''perl_d_atolf'"
1795 $ WS "#include <stdlib.h>
1797 $ WS "#include <stdio.h>
1798 $ WS "#include <unistd.h>
1801 $ WS "access("foo", F_OK);
1805 $ DEFINE SYS$ERROR _NLA0:
1806 $ DEFINE SYS$OUTPUT _NLA0:
1807 $ on error then continue
1808 $ on warning then continue
1810 $ savedstatus = $status
1811 $ teststatus = f$extract(9,1,savedstatus)
1812 $ if (teststatus.nes."1")
1814 $ perl_d_access="undef"
1815 $ DEASSIGN SYS$OUTPUT
1816 $ DEASSIGN SYS$ERROR
1818 $ If (Needs_Opt.eqs."Yes")
1820 $ link temp.obj,temp.opt/opt
1824 $ savedstatus = $status
1825 $ teststatus = f$extract(9,1,savedstatus)
1826 $ DEASSIGN SYS$OUTPUT
1827 $ DEASSIGN SYS$ERROR
1828 $ if (teststatus.nes."1")
1830 $ perl_d_access="undef"
1832 $ perl_d_access="define"
1835 $ WRITE_RESULT "d_access is ''perl_d_access'"
1841 $ WS "#include <stdlib.h>
1843 $ WS "#include <stdio.h>
1844 $ WS "#include <strings.h>
1848 $ WS "bzero(foo, 10);
1852 $ DEFINE SYS$ERROR _NLA0:
1853 $ DEFINE SYS$OUTPUT _NLA0:
1854 $ on error then continue
1855 $ on warning then continue
1857 $ savedstatus = $status
1858 $ teststatus = f$extract(9,1,savedstatus)
1859 $ if (teststatus.nes."1")
1861 $ perl_d_bzero="undef"
1862 $ DEASSIGN SYS$OUTPUT
1863 $ DEASSIGN SYS$ERROR
1865 $ If (Needs_Opt.eqs."Yes")
1867 $ link temp.obj,temp.opt/opt
1871 $ savedstatus = $status
1872 $ teststatus = f$extract(9,1,savedstatus)
1873 $ DEASSIGN SYS$OUTPUT
1874 $ DEASSIGN SYS$ERROR
1875 $ if (teststatus.nes."1")
1877 $ perl_d_bzero="undef"
1879 $ perl_d_bzero="define"
1882 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
1888 $ WS "#include <stdlib.h>
1890 $ WS "#include <stdio.h>
1891 $ WS "#include <strings.h>
1894 $ WS "char foo[10], bar[10];
1895 $ WS "bcopy(""foo"", bar, 3);
1899 $ DEFINE SYS$ERROR _NLA0:
1900 $ DEFINE SYS$OUTPUT _NLA0:
1901 $ on error then continue
1902 $ on warning then continue
1904 $ savedstatus = $status
1905 $ teststatus = f$extract(9,1,savedstatus)
1906 $ if (teststatus.nes."1")
1908 $ perl_d_bcopy="undef"
1909 $ DEASSIGN SYS$OUTPUT
1910 $ DEASSIGN SYS$ERROR
1912 $ If (Needs_Opt.eqs."Yes")
1914 $ link temp.obj,temp.opt/opt
1918 $ savedstatus = $status
1919 $ teststatus = f$extract(9,1,savedstatus)
1920 $ DEASSIGN SYS$OUTPUT
1921 $ DEASSIGN SYS$ERROR
1922 $ if (teststatus.nes."1")
1924 $ perl_d_bcopy="undef"
1926 $ perl_d_bcopy="define"
1929 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
1931 $! Check for mkstemp
1935 $ WS "#include <stdlib.h>
1937 $ WS "#include <stdio.h>
1940 $ WS "mkstemp(""foo"");
1944 $ DEFINE SYS$ERROR _NLA0:
1945 $ DEFINE SYS$OUTPUT _NLA0:
1946 $ on error then continue
1947 $ on warning then continue
1949 $ If (Needs_Opt.eqs."Yes")
1951 $ link temp.obj,temp.opt/opt
1955 $ savedstatus = $status
1956 $ teststatus = f$extract(9,1,savedstatus)
1957 $ DEASSIGN SYS$OUTPUT
1958 $ DEASSIGN SYS$ERROR
1959 $ if (teststatus.nes."1")
1961 $ perl_d_mkstemp="undef"
1963 $ perl_d_mkstemp="define"
1965 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
1967 $! Check for setvbuf
1971 $ WS "#include <stdlib.h>
1973 $ WS "#include <stdio.h>
1977 $ WS "char Buffer[99];
1978 $ WS "foo = fopen(""foo"", ""r"");
1979 $ WS "setvbuf(foo, Buffer, 0, 0);
1983 $ DEFINE SYS$ERROR _NLA0:
1984 $ DEFINE SYS$OUTPUT _NLA0:
1985 $ on error then continue
1986 $ on warning then continue
1988 $ If (Needs_Opt.eqs."Yes")
1990 $ link temp.obj,temp.opt/opt
1994 $ teststatus = f$extract(9,1,$status)
1995 $ DEASSIGN SYS$OUTPUT
1996 $ DEASSIGN SYS$ERROR
1997 $ if (teststatus.nes."1")
1999 $ perl_d_setvbuf="undef"
2001 $ perl_d_setvbuf="define"
2003 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
2009 $ WS "#include <stdlib.h>
2011 $ WS "#include <stdio.h>
2014 $ WS "setenv(""FOO"", ""BAR"", 0);
2018 $ DEFINE SYS$ERROR _NLA0:
2019 $ DEFINE SYS$OUTPUT _NLA0:
2020 $ on error then continue
2021 $ on warning then continue
2023 $ If (Needs_Opt.eqs."Yes")
2025 $ link temp,temp/opt
2029 $ teststatus = f$extract(9,1,$status)
2030 $ DEASSIGN SYS$OUTPUT
2031 $ DEASSIGN SYS$ERROR
2032 $ if (teststatus.nes."1")
2034 $ perl_d_setenv="undef"
2036 $ perl_d_setenv="define"
2038 $ WRITE_RESULT "d_setenv is ''perl_d_setenv'"
2040 $! Check for <netinet/in.h>
2042 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2046 $ WS "#include <stdlib.h>
2048 $ WS "#include <stdio.h>
2049 $ if ("''Has_Socketshr'".eqs."T")
2051 $ WS "#include <socketshr.h>"
2053 $ WS "#include <netdb.h>
2055 $ WS "#include <netinet/in.h>"
2061 $ DEFINE SYS$ERROR _NLA0:
2062 $ DEFINE SYS$OUTPUT _NLA0:
2063 $ on error then continue
2064 $ on warning then continue
2066 $ If (Needs_Opt.eqs."Yes")
2068 $ link temp.obj,temp.opt/opt
2072 $ teststatus = f$extract(9,1,$status)
2073 $ DEASSIGN SYS$OUTPUT
2074 $ DEASSIGN SYS$ERROR
2075 $ if (teststatus.nes."1")
2077 $ perl_i_niin="undef"
2079 $ perl_i_niin="define"
2082 $ perl_i_niin="undef"
2084 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
2086 $! Check for <netinet/tcp.h>
2088 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2092 $ WS "#include <stdlib.h>
2094 $ WS "#include <stdio.h>
2095 $ if ("''Has_Socketshr'".eqs."T")
2097 $ WS "#include <socketshr.h>"
2099 $ WS "#include <netdb.h>
2101 $ WS "#include <netinet/tcp.h>"
2107 $ DEFINE SYS$ERROR _NLA0:
2108 $ DEFINE SYS$OUTPUT _NLA0:
2109 $ on error then continue
2110 $ on warning then continue
2112 $ If (Needs_Opt.eqs."Yes")
2114 $ link temp.obj,temp.opt/opt
2118 $ teststatus = f$extract(9,1,$status)
2119 $ DEASSIGN SYS$OUTPUT
2120 $ DEASSIGN SYS$ERROR
2121 $ if (teststatus.nes."1")
2123 $ perl_i_netinettcp="undef"
2125 $ perl_i_netinettcp="define"
2128 $ perl_i_netinettcp="undef"
2130 $ WRITE_RESULT "i_netinettcp is ''perl_i_netinettcp'"
2132 $! Check for endhostent
2134 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2138 $ WS "#include <stdlib.h>
2140 $ WS "#include <stdio.h>
2141 $ if ("''Has_Socketshr'".eqs."T")
2143 $ WS "#include <socketshr.h>"
2145 $ WS "#include <netdb.h>
2153 $ DEFINE SYS$ERROR _NLA0:
2154 $ DEFINE SYS$OUTPUT _NLA0:
2155 $ on error then continue
2156 $ on warning then continue
2158 $ If (Needs_Opt.eqs."Yes")
2160 $ link temp.obj,temp.opt/opt
2164 $ teststatus = f$extract(9,1,$status)
2165 $ DEASSIGN SYS$OUTPUT
2166 $ DEASSIGN SYS$ERROR
2167 $ if (teststatus.nes."1")
2169 $ perl_d_endhent="undef"
2171 $ perl_d_endhent="define"
2174 $ perl_d_endhent="undef"
2176 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
2178 $! Check for endnetent
2180 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2184 $ WS "#include <stdlib.h>
2186 $ WS "#include <stdio.h>
2187 $ if ("''Has_Socketshr'".eqs."T")
2189 $ WS "#include <socketshr.h>"
2191 $ WS "#include <netdb.h>
2199 $ DEFINE SYS$ERROR _NLA0:
2200 $ DEFINE SYS$OUTPUT _NLA0:
2201 $ on error then continue
2202 $ on warning then continue
2204 $ If (Needs_Opt.eqs."Yes")
2206 $ link temp.obj,temp.opt/opt
2210 $ teststatus = f$extract(9,1,$status)
2211 $ DEASSIGN SYS$OUTPUT
2212 $ DEASSIGN SYS$ERROR
2213 $ if (teststatus.nes."1")
2215 $ perl_d_endnent="undef"
2217 $ perl_d_endnent="define"
2220 $ perl_d_endnent="undef"
2222 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
2224 $! Check for endprotoent
2226 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2230 $ WS "#include <stdlib.h>
2232 $ WS "#include <stdio.h>
2233 $ if ("''Has_Socketshr'".eqs."T")
2235 $ WS "#include <socketshr.h>"
2237 $ WS "#include <netdb.h>
2241 $ WS "endprotoent();
2245 $ DEFINE SYS$ERROR _NLA0:
2246 $ DEFINE SYS$OUTPUT _NLA0:
2247 $ on error then continue
2248 $ on warning then continue
2250 $ If (Needs_Opt.eqs."Yes")
2252 $ link temp.obj,temp.opt/opt
2256 $ teststatus = f$extract(9,1,$status)
2257 $ DEASSIGN SYS$OUTPUT
2258 $ DEASSIGN SYS$ERROR
2259 $ if (teststatus.nes."1")
2261 $ perl_d_endpent="undef"
2263 $ perl_d_endpent="define"
2266 $ perl_d_endpent="undef"
2268 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
2270 $! Check for endservent
2272 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2276 $ WS "#include <stdlib.h>
2278 $ WS "#include <stdio.h>
2279 $ if ("''Has_Socketshr'".eqs."T")
2281 $ WS "#include <socketshr.h>"
2283 $ WS "#include <netdb.h>
2291 $ DEFINE SYS$ERROR _NLA0:
2292 $ DEFINE SYS$OUTPUT _NLA0:
2293 $ on error then continue
2294 $ on warning then continue
2296 $ If (Needs_Opt.eqs."Yes")
2298 $ link temp.obj,temp.opt/opt
2302 $ teststatus = f$extract(9,1,$status)
2303 $ DEASSIGN SYS$OUTPUT
2304 $ DEASSIGN SYS$ERROR
2305 $ if (teststatus.nes."1")
2307 $ perl_d_endsent="undef"
2309 $ perl_d_endsent="define"
2312 $ perl_d_endsent="undef"
2314 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
2316 $! Check for sethostent
2318 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2322 $ WS "#include <stdlib.h>
2324 $ WS "#include <stdio.h>
2325 $ if ("''Has_Socketshr'".eqs."T")
2327 $ WS "#include <socketshr.h>"
2329 $ WS "#include <netdb.h>
2333 $ WS "sethostent(1);
2337 $ DEFINE SYS$ERROR _NLA0:
2338 $ DEFINE SYS$OUTPUT _NLA0:
2339 $ on error then continue
2340 $ on warning then continue
2342 $ If (Needs_Opt.eqs."Yes")
2344 $ link temp.obj,temp.opt/opt
2348 $ teststatus = f$extract(9,1,$status)
2349 $ DEASSIGN SYS$OUTPUT
2350 $ DEASSIGN SYS$ERROR
2351 $ if (teststatus.nes."1")
2353 $ perl_d_sethent="undef"
2355 $ perl_d_sethent="define"
2358 $ perl_d_sethent="undef"
2360 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
2362 $! Check for setnetent
2364 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2368 $ WS "#include <stdlib.h>
2370 $ WS "#include <stdio.h>
2371 $ if ("''Has_Socketshr'".eqs."T")
2373 $ WS "#include <socketshr.h>"
2375 $ WS "#include <netdb.h>
2383 $ DEFINE SYS$ERROR _NLA0:
2384 $ DEFINE SYS$OUTPUT _NLA0:
2385 $ on error then continue
2386 $ on warning then continue
2388 $ If (Needs_Opt.eqs."Yes")
2390 $ link temp.obj,temp.opt/opt
2394 $ teststatus = f$extract(9,1,$status)
2395 $ DEASSIGN SYS$OUTPUT
2396 $ DEASSIGN SYS$ERROR
2397 $ if (teststatus.nes."1")
2399 $ perl_d_setnent="undef"
2401 $ perl_d_setnent="define"
2404 $ perl_d_setnent="undef"
2406 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
2408 $! Check for setprotoent
2410 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2414 $ WS "#include <stdlib.h>
2416 $ WS "#include <stdio.h>
2417 $ if ("''Has_Socketshr'".eqs."T")
2419 $ WS "#include <socketshr.h>"
2421 $ WS "#include <netdb.h>
2425 $ WS "setprotoent(1);
2429 $ DEFINE SYS$ERROR _NLA0:
2430 $ DEFINE SYS$OUTPUT _NLA0:
2431 $ on error then continue
2432 $ on warning then continue
2434 $ If (Needs_Opt.eqs."Yes")
2436 $ link temp.obj,temp.opt/opt
2440 $ teststatus = f$extract(9,1,$status)
2441 $ DEASSIGN SYS$OUTPUT
2442 $ DEASSIGN SYS$ERROR
2443 $ if (teststatus.nes."1")
2445 $ perl_d_setpent="undef"
2447 $ perl_d_setpent="define"
2450 $ perl_d_setpent="undef"
2452 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
2454 $! Check for setservent
2456 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2460 $ WS "#include <stdlib.h>
2462 $ WS "#include <stdio.h>
2463 $ if ("''Has_Socketshr'".eqs."T")
2465 $ WS "#include <socketshr.h>"
2467 $ WS "#include <netdb.h>
2471 $ WS "setservent(1);
2475 $ DEFINE SYS$ERROR _NLA0:
2476 $ DEFINE SYS$OUTPUT _NLA0:
2477 $ on error then continue
2478 $ on warning then continue
2480 $ If (Needs_Opt.eqs."Yes")
2482 $ link temp.obj,temp.opt/opt
2486 $ teststatus = f$extract(9,1,$status)
2487 $ DEASSIGN SYS$OUTPUT
2488 $ DEASSIGN SYS$ERROR
2489 $ if (teststatus.nes."1")
2491 $ perl_d_setsent="undef"
2493 $ perl_d_setsent="define"
2496 $ perl_d_setsent="undef"
2498 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
2500 $! Check for gethostent
2502 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2506 $ WS "#include <stdlib.h>
2508 $ WS "#include <stdio.h>
2509 $ if ("''Has_Socketshr'".eqs."T")
2511 $ WS "#include <socketshr.h>"
2513 $ WS "#include <netdb.h>
2521 $ DEFINE SYS$ERROR _NLA0:
2522 $ DEFINE SYS$OUTPUT _NLA0:
2523 $ on error then continue
2524 $ on warning then continue
2526 $ If (Needs_Opt.eqs."Yes")
2528 $ link temp.obj,temp.opt/opt
2532 $ teststatus = f$extract(9,1,$status)
2533 $ DEASSIGN SYS$OUTPUT
2534 $ DEASSIGN SYS$ERROR
2535 $ if (teststatus.nes."1")
2537 $ perl_d_gethent="undef"
2539 $ perl_d_gethent="define"
2542 $ perl_d_gethent="undef"
2544 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
2546 $! Check for getnetent
2548 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2552 $ WS "#include <stdlib.h>
2554 $ WS "#include <stdio.h>
2555 $ if ("''Has_Socketshr'".eqs."T")
2557 $ WS "#include <socketshr.h>"
2559 $ WS "#include <netdb.h>
2567 $ DEFINE SYS$ERROR _NLA0:
2568 $ DEFINE SYS$OUTPUT _NLA0:
2569 $ on error then continue
2570 $ on warning then continue
2572 $ If (Needs_Opt.eqs."Yes")
2574 $ link temp.obj,temp.opt/opt
2578 $ teststatus = f$extract(9,1,$status)
2579 $ DEASSIGN SYS$OUTPUT
2580 $ DEASSIGN SYS$ERROR
2581 $ if (teststatus.nes."1")
2583 $ perl_d_getnent="undef"
2585 $ perl_d_getnent="define"
2588 $ perl_d_getnent="undef"
2590 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
2592 $! Check for getprotoent
2594 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2598 $ WS "#include <stdlib.h>
2600 $ WS "#include <stdio.h>
2601 $ if ("''Has_Socketshr'".eqs."T")
2603 $ WS "#include <socketshr.h>"
2605 $ WS "#include <netdb.h>
2609 $ WS "getprotoent();
2613 $ DEFINE SYS$ERROR _NLA0:
2614 $ DEFINE SYS$OUTPUT _NLA0:
2615 $ on error then continue
2616 $ on warning then continue
2618 $ If (Needs_Opt.eqs."Yes")
2620 $ link temp.obj,temp.opt/opt
2624 $ teststatus = f$extract(9,1,$status)
2625 $ DEASSIGN SYS$OUTPUT
2626 $ DEASSIGN SYS$ERROR
2627 $ if (teststatus.nes."1")
2629 $ perl_d_getpent="undef"
2631 $ perl_d_getpent="define"
2634 $ perl_d_getpent="undef"
2636 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
2638 $! Check for getservent
2640 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2644 $ WS "#include <stdlib.h>
2646 $ WS "#include <stdio.h>
2647 $ if ("''Has_Socketshr'".eqs."T")
2649 $ WS "#include <socketshr.h>"
2651 $ WS "#include <netdb.h>
2659 $ DEFINE SYS$ERROR _NLA0:
2660 $ DEFINE SYS$OUTPUT _NLA0:
2661 $ on error then continue
2662 $ on warning then continue
2664 $ If (Needs_Opt.eqs."Yes")
2666 $ link temp.obj,temp.opt/opt
2670 $ teststatus = f$extract(9,1,$status)
2671 $ DEASSIGN SYS$OUTPUT
2672 $ DEASSIGN SYS$ERROR
2673 $ if (teststatus.nes."1")
2675 $ perl_d_getsent="undef"
2677 $ perl_d_getsent="define"
2680 $ perl_d_getsent="undef"
2682 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
2684 $! Check for pthread_yield
2686 $ if ("''use_threads'".eqs."T")
2690 $ WS "#include <stdlib.h>
2692 $ WS "#include <pthread.h>
2693 $ WS "#include <stdio.h>
2696 $ WS "pthread_yield();
2700 $ DEFINE SYS$ERROR _NLA0:
2701 $ DEFINE SYS$OUTPUT _NLA0:
2702 $ on error then continue
2703 $ on warning then continue
2705 $ teststatus = f$extract(9,1,$status)
2706 $ DEASSIGN SYS$OUTPUT
2707 $ DEASSIGN SYS$ERROR
2708 $ if (teststatus.nes."1")
2710 $ perl_d_pthread_yield="undef"
2712 $ perl_d_pthread_yield="define"
2715 $ perl_d_pthread_yield="undef"
2717 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
2719 $! Check for sched_yield
2721 $ if ("''use_threads'".eqs."T")
2725 $ WS "#include <stdlib.h>
2727 $ WS "#include <pthread.h>
2728 $ WS "#include <stdio.h>
2731 $ WS "sched_yield();
2735 $ DEFINE SYS$ERROR _NLA0:
2736 $ DEFINE SYS$OUTPUT _NLA0:
2737 $ on error then continue
2738 $ on warning then continue
2740 $ teststatus = f$extract(9,1,$status)
2741 $ DEASSIGN SYS$OUTPUT
2742 $ DEASSIGN SYS$ERROR
2743 $ if (teststatus.nes."1")
2745 $ perl_d_sched_yield="undef"
2746 $ perl_sched_yield = " "
2748 $ perl_d_sched_yield="define"
2749 $ perl_sched_yield = "sched_yield"
2752 $ perl_d_sched_yield="undef"
2753 $ perl_sched_yield = " "
2755 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
2756 $ WRITE_RESULT "sched_yield is ''perl_sched_yield'"
2758 $! Check for generic pointer size
2762 $ WS "#include <stdlib.h>
2764 $ WS "#include <stdio.h>
2768 $ WS "foo = sizeof(char *);
2769 $ WS "printf(""%d\n"", foo);
2773 $! copy temp.c sys$output
2775 $ DEFINE SYS$ERROR _NLA0:
2776 $ DEFINE SYS$OUTPUT _NLA0:
2777 $ ON ERROR THEN CONTINUE
2778 $ ON WARNING THEN CONTINUE
2780 $ If (Needs_Opt.eqs."Yes")
2782 $ link temp.obj,temp.opt/opt
2786 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
2787 $ DEASSIGN SYS$OUTPUT
2788 $ DEASSIGN SYS$ERROR
2789 $ DEFINE SYS$ERROR TEMPOUT
2790 $ DEFINE SYS$OUTPUT TEMPOUT
2793 $ DEASSIGN SYS$OUTPUT
2794 $ DEASSIGN SYS$ERROR
2795 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
2800 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
2803 $! Check rand48 and its ilk
2807 $ WS "#include <stdlib.h>
2809 $ WS "#include <stdio.h>
2812 $ WS "srand48(12L);"
2816 $! copy temp.c sys$output
2818 $ DEFINE SYS$ERROR _NLA0:
2819 $ DEFINE SYS$OUTPUT _NLA0:
2820 $ ON ERROR THEN CONTINUE
2821 $ ON WARNING THEN CONTINUE
2823 $ If (Needs_Opt.eqs."Yes")
2825 $ link temp,temp.opt/opt
2829 $ teststatus = f$extract(9,1,$status)
2830 $ DEASSIGN SYS$OUTPUT
2831 $ DEASSIGN SYS$ERROR
2832 $ if (teststatus.nes."1")
2834 $ perl_drand01="random()"
2835 $ perl_randseedtype = "unsigned"
2836 $ perl_seedfunc = "srandom"
2840 $ WS "#include <stdlib.h>
2842 $ WS "#include <stdio.h>
2849 $! copy temp.c sys$output
2851 $ DEFINE SYS$ERROR _NLA0:
2852 $ DEFINE SYS$OUTPUT _NLA0:
2853 $ ON ERROR THEN CONTINUE
2854 $ ON WARNING THEN CONTINUE
2856 $ If (Needs_Opt.eqs."Yes")
2858 $ link temp,temp.opt/opt
2862 $ teststatus = f$extract(9,1,$status)
2863 $ DEASSIGN SYS$OUTPUT
2864 $ DEASSIGN SYS$ERROR
2865 $ if (teststatus.nes."1")
2867 $ perl_drand01="(((float)rand())/((float)RAND_MAX))"
2868 $ perl_randseedtype = "unsigned"
2869 $ perl_seedfunc = "srand"
2871 $ WRITE_RESULT "drand01 is ''perl_drand01'"
2874 $! Done with compiler checks. Clean up.
2875 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
2876 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
2877 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
2878 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
2881 $! Some that are compiler or VMS version sensitive
2884 $ IF "''Using_Gnu_C'".EQS."Yes"
2886 $ perl_d_attribut="define"
2887 $ perl_vms_cc_type="gcc"
2889 $ perl_d_attribut="undef"
2892 $! Dec C >= 5.2 and VMS ver >= 7.0
2893 $ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
2895 $ perl_d_bcmp="define"
2896 $ perl_d_gettimeod="define"
2897 $ perl_d_uname="define"
2898 $ perl_d_sigaction="define"
2899 $ perl_d_truncate="define"
2900 $ perl_d_wait4="define"
2901 $ perl_d_index="define"
2902 $ perl_pidtype="pid_t"
2903 $ 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"
2904 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
2905 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
2906 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
2907 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
2908 $ 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"
2909 $ 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"
2910 $ perl_sig_num_with_commas=perl_sig_num_init
2911 $ perl_uidtype="uid_t"
2912 $ perl_d_pathconf="define"
2913 $ perl_d_fpathconf="define"
2914 $ perl_d_sysconf="define"
2915 $ perl_d_sigsetjmp="define"
2917 $ perl_pidtype="unsigned int"
2918 $ perl_d_gettimeod="undef"
2919 $ perl_d_bcmp="undef"
2920 $ perl_d_uname="undef"
2921 $ perl_d_sigaction="undef"
2922 $ perl_d_truncate="undef"
2923 $ perl_d_wait4="undef"
2924 $ perl_d_index="undef"
2925 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
2926 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
2927 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
2928 $ perl_sig_name_with_commas = psnwc1 + psnwc2
2929 $ perl_sig_num="0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 6 16 17"",0"
2930 $ perl_sig_num_init="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
2931 $ perl_sig_num_with_commas=perl_sig_num_init
2932 $ perl_uidtype="unsigned int"
2933 $ perl_d_pathconf="undef"
2934 $ perl_d_fpathconf="undef"
2935 $ perl_d_sysconf="undef"
2936 $ perl_d_sigsetjmp="undef"
2940 $ IF ("''Using_Dec_C'".EQS."Yes")
2942 $ perl_d_mbstowcs="define"
2943 $ perl_d_mbtowc="define"
2944 $ perl_d_stdiobase="define"
2945 $ perl_d_stdio_ptr_lval="define"
2946 $ perl_d_stdio_cnt_lval="define"
2947 $ perl_d_stdstdio="define"
2948 $ perl_d_wcstombs="define"
2949 $ perl_d_mblen="define"
2950 $ perl_d_mktime="define"
2951 $ perl_d_strcoll="define"
2952 $ perl_d_strxfrm="define"
2953 $ perl_d_wctomb="define"
2954 $ perl_i_locale="define"
2955 $ perl_d_locconv="define"
2956 $ perl_d_setlocale="define"
2957 $ perl_vms_cc_type="decc"
2959 $ perl_d_mbstowcs="undef"
2960 $ perl_d_mbtowc="undef"
2961 $ perl_d_stdiobase="undef"
2962 $ perl_d_stdio_ptr_lval="undef"
2963 $ perl_d_stdio_cnt_lval="undef"
2964 $ perl_d_stdstdio="undef"
2965 $ perl_d_wcstombs="undef"
2966 $ perl_d_mblen="undef"
2967 $ perl_d_mktime="undef"
2968 $ perl_d_strcoll="undef"
2969 $ perl_d_strxfrm="undef"
2970 $ perl_d_wctomb="undef"
2971 $ perl_i_locale="undef"
2972 $ perl_d_locconv="undef"
2973 $ perl_d_setlocale="undef"
2977 $ if ("''Using_Vax_C'".EQS."Yes")
2979 $ perl_vms_cc_type="vaxc"
2984 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
2986 $ perl_d_vms_do_sockets="define"
2987 $ perl_d_htonl="define"
2988 $ perl_d_socket="define"
2989 $ perl_d_select="define"
2990 $ perl_netdb_host_type="char *"
2991 $ perl_netdb_hlen_type="int"
2992 $ perl_netdb_name_type="char *"
2993 $ perl_netdb_net_type="long"
2994 $ perl_d_gethbyaddr="define"
2995 $ perl_d_gethbyname="define"
2996 $ perl_d_getnbyaddr="define"
2997 $ perl_d_getnbyname="define"
2998 $ perl_d_getpbynumber="define"
2999 $ perl_d_getpbyname="define"
3000 $ perl_d_getsbyport="define"
3001 $ perl_d_getsbyname="define"
3002 $ perl_d_gethostprotos="define"
3003 $ perl_d_getnetprotos="define"
3004 $ perl_d_getprotoprotos="define"
3005 $ perl_d_getservprotos="define"
3007 $ perl_d_vms_do_sockets="undef"
3008 $ perl_d_htonl="undef"
3009 $ perl_d_socket="undef"
3010 $ perl_d_select="undef"
3011 $ perl_netdb_host_type="char *"
3012 $ perl_netdb_hlen_type="int"
3013 $ perl_netdb_name_type="char *"
3014 $ perl_netdb_net_type="long"
3015 $ perl_d_gethbyaddr="undef"
3016 $ perl_d_gethbyname="undef"
3017 $ perl_d_getnbyaddr="undef"
3018 $ perl_d_getnbyname="undef"
3019 $ perl_d_getpbynumber="undef"
3020 $ perl_d_getpbyname="undef"
3021 $ perl_d_getsbyport="undef"
3022 $ perl_d_getsbyname="undef"
3023 $ perl_d_gethostprotos="undef"
3024 $ perl_d_getnetprotos="undef"
3025 $ perl_d_getprotoprotos="undef"
3026 $ perl_d_getservprotos="undef"
3029 $ if ("''use_threads'".eqs."T")
3031 $ perl_usethreads="define"
3032 $ perl_d_pthreads_created_joinable="define"
3033 $ if ("''VMS_VER'".ges."7.0")
3035 $ perl_d_oldpthreads="undef"
3037 $ perl_d_oldpthreads="define"
3040 $ perl_d_oldpthreads="undef"
3041 $ perl_usethreads="undef"
3043 $ perl_d_pthreads_created_joinable="undef"
3047 $! Finally the composite ones. All config
3048 $ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3049 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3050 $ perl_myhostname="''myhostname'"
3051 $ perl_mydomain="''mydomain'"
3052 $ perl_perladmin="''perladmin'"
3053 $ perl_cf_email="''cf_email'"
3054 $ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
3055 $ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3056 $ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
3057 $ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
3058 $ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
3059 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
3060 $ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3061 $ if "''Using_Dec_C'" .eqs. "Yes"
3063 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
3065 $ IF "''Using_Vax_C'" .eqs. "Yes"
3067 $ perl_ccflags="/Include=[]/Obj=''perl_obj_ext'/NoList''cc_flags'"
3070 $ if use_vmsdebug_perl .eqs. "Y"
3072 $ perl_optimize="/Debug/NoOpt"
3073 $ perl_dbgprefix = "DBG"
3076 $ perl_dbgprefix = ""
3079 $! Finally clean off any leading zeros from the patchlevel or subversion
3080 $ perl_patchlevel = perl_patchlevel + 0
3081 $ perl_subversion = perl_subversion + 0
3083 $! Okay, we've got everything configured. Now go write out a config.sh.
3084 $ open/write CONFIGSH [-]config.sh
3085 $ WC := "write CONFIGSH"
3087 $ WC "# This file generated by Configure.COM on a VMS system."
3088 $ WC "# Time: " + perl_cf_time
3090 $ WC "CONFIGDOTSH=true"
3091 $ WC "package='" + perl_package + "'"
3092 $ WC "CONFIG='" + perl_config + "'"
3093 $ WC "cf_time='" + perl_cf_time + "'"
3094 $ WC "cf_by='" + perl_cf_by+ "'"
3095 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
3096 $ WC "ccdlflags='" + perl_ccdlflags + "'"
3097 $ WC "cccdlflags='" + perl_cccdlflags + "'"
3098 $ WC "mab='" + perl_mab + "'"
3099 $ WC "libpth='" + perl_libpth + "'"
3100 $ WC "ld='" + perl_ld + "'"
3101 $ WC "lddlflags='" + perl_lddlflags + "'"
3102 $ WC "ranlib='" + perl_ranlib + "'"
3103 $ WC "ar='" + perl_ar + "'"
3104 $ WC "eunicefix='" + perl_eunicefix + "'"
3105 $ WC "hint='" + perl_hint +"'"
3106 $ WC "hintfile='" + perl_hintfile + "'"
3107 $ WC "shrplib='" + perl_shrplib + "'"
3108 $ WC "usemymalloc='" + perl_usemymalloc + "'"
3109 $ WC "usevfork='" + perl_usevfork + "'"
3110 $ WC "useposix='false'"
3111 $ WC "spitshell='write sys$output '"
3112 $ WC "dlsrc='dl_vms.c'"
3113 $ WC "binexp='" + perl_binexp + "'"
3114 $ WC "man1ext='" + perl_man1ext + "'"
3115 $ WC "man3ext='" + perl_man3ext + "'"
3116 $ WC "arch='" + perl_arch + "'"
3117 $ WC "archname='" + perl_archname + "'"
3118 $ WC "osvers='" + perl_osvers + "'"
3119 $ WC "prefix='" + perl_prefix + "'"
3120 $ WC "builddir='" + perl_builddir + "'"
3121 $ WC "installbin='" + perl_installbin + "'"
3122 $ WC "installscript='" + perl_installscript + "'"
3123 $ WC "installman1dir='" + perl_installman1dir + "'"
3124 $ WC "installman3dir='" + perl_installman3dir + "'"
3125 $ WC "installprivlib='" + perl_installprivlib + "'"
3126 $ WC "installarchlib='" + perl_installarchlib + "'"
3127 $ WC "installsitelib='" + perl_installsitelib + "'"
3128 $ WC "installsitearch='" + perl_installsitearch + "'"
3129 $ WC "path_sep='" + perl_path_sep + "'"
3130 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
3131 $ WC "d_attribut='" + perl_d_attribut + "'"
3132 $ WC "cc='" + perl_cc + "'"
3133 $ WC "ccflags='" + perl_ccflags + "'"
3134 $ WC "optimize='" + perl_optimize + "'"
3135 $ WC "dbgprefix='" + perl_dbgprefix + "'"
3136 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
3137 $ WC "d_socket='" + perl_d_socket + "'"
3138 $ WC "d_sockpair='" + perl_d_sockpair + "'"
3139 $ WC "d_gethent='" + perl_d_gethent + "'"
3140 $ WC "d_getsent='" + perl_d_getsent + "'"
3141 $ WC "d_select='" + perl_d_select + "'"
3142 $ WC "i_niin='" + perl_i_niin + "'"
3143 $ WC "i_netinettcp='" + perl_i_netinettcp + "'"
3144 $ WC "i_neterrno='" + perl_i_neterrno + "'"
3145 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
3146 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
3147 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
3148 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
3149 $ WC "d_locconv='" + perl_d_locconv + "'"
3150 $ WC "d_setlocale='" + perl_d_setlocale + "'"
3151 $ WC "i_locale='" + perl_i_locale + "'"
3152 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
3153 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
3154 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
3155 $ WC "d_wctomb='" + perl_d_wctomb + "'"
3156 $ WC "d_mblen='" + perl_d_mblen + "'"
3157 $ WC "d_mktime='" + perl_d_mktime + "'"
3158 $ WC "d_strcoll='" + perl_d_strcoll + "'"
3159 $ WC "d_strxfrm='" + perl_d_strxfrm + "'"
3160 $ WC "ldflags='" + perl_ldflags + "'"
3161 $ WC "dlobj='" + perl_dlobj + "'"
3162 $ WC "obj_ext='" + perl_obj_ext + "'"
3163 $ WC "so='" + perl_so + "'"
3164 $ WC "dlext='" + perl_dlext + "'"
3165 $ WC "exe_ext='" + perl_exe_ext + "'"
3166 $ WC "lib_ext='" + perl_lib_ext + "'"
3167 $ WC "myhostname='" + perl_myhostname + "'"
3168 $ WC "mydomain='" + perl_mydomain + "'"
3169 $ WC "perladmin='" + perl_perladmin + "'"
3170 $ WC "cf_email='" + perl_cf_email + "'"
3171 $ WC "myuname='" + perl_myuname + "'"
3172 $ WC "alignbytes='" + perl_alignbytes + "'"
3173 $ WC "osname='" + perl_osname + "'"
3174 $ WC "d_archlib='" + perl_d_archlib + "'"
3175 $ WC "archlibexp='" + perl_archlibexp + "'"
3176 $ WC "archlib='" + perl_archlib + "'"
3177 $ WC "archname='" + perl_archname + "'"
3178 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
3179 $ WC "cppstdin='" + perl_cppstdin + "'"
3180 $ WC "cppminus='" + perl_cppminus + "'"
3181 $ WC "d_bcmp='" + perl_d_bcmp + "'"
3182 $ WC "d_bcopy='" + perl_d_bcopy + "'"
3183 $ WC "d_bzero='" + perl_d_bzero + "'"
3184 $ WC "d_castneg='" + perl_d_castneg + "'"
3185 $ WC "castflags='" + perl_castflags + "'"
3186 $ WC "d_chsize='" + perl_d_chsize + "'"
3187 $ WC "d_const='" + perl_d_const + "'"
3188 $ WC "d_crypt='" + perl_d_crypt + "'"
3189 $ WC "byteorder='" + perl_byteorder + "'"
3190 $ WC "full_csh='" + perl_full_csh + "'"
3191 $ WC "d_csh='" + perl_d_csh + "'"
3192 $ WC "d_dup2='" + perl_d_dup2 + "'"
3193 $ WC "d_fchmod='" + perl_d_fchmod + "'"
3194 $ WC "d_fchown='" + perl_d_fchown + "'"
3195 $ WC "d_fcntl='" + perl_d_fcntl + "'"
3196 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
3197 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
3198 $ WC "d_flock='" + perl_d_flock + "'"
3199 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
3200 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
3201 $ WC "d_getgrps='" + perl_d_getgrps + "'"
3202 $ WC "d_setgrps='" + perl_d_setgrps + "'"
3203 $ WC "d_uname='" + perl_d_uname + "'"
3204 $ WC "d_getprior='" + perl_d_getprior + "'"
3205 $ WC "d_killpg='" + perl_d_killpg + "'"
3206 $ WC "d_link='" + perl_d_link + "'"
3207 $ WC "d_lstat='" + perl_d_lstat + "'"
3208 $ WC "d_lockf='" + perl_d_lockf + "'"
3209 $ WC "d_memcmp='" + perl_d_memcmp + "'"
3210 $ WC "d_memcpy='" + perl_d_memcpy + "'"
3211 $ WC "d_memmove='" + perl_d_memmove + "'"
3212 $ WC "d_memset='" + perl_d_memset + "'"
3213 $ WC "d_mkdir='" + perl_d_mkdir + "'"
3214 $ WC "d_msg='" + perl_d_msg + "'"
3215 $ WC "d_open3='" + perl_d_open3 + "'"
3216 $ WC "d_poll='" + perl_d_poll + "'"
3217 $ WC "d_readdir='" + perl_d_readdir + "'"
3218 $ WC "d_seekdir='" + perl_d_seekdir + "'"
3219 $ WC "d_telldir='" + perl_d_telldir + "'"
3220 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
3221 $ WC "d_rename='" + perl_d_rename + "'"
3222 $ WC "d_rmdir='" + perl_d_rmdir + "'"
3223 $ WC "d_sem='" + perl_d_sem + "'"
3224 $ WC "d_setegid='" + perl_d_setegid + "'"
3225 $ WC "d_seteuid='" + perl_d_seteuid + "'"
3226 $ WC "d_setprior='" + perl_d_setprior + "'"
3227 $ WC "d_setregid='" + perl_d_setregid + "'"
3228 $ WC "d_setresgid='" + perl_d_setresgid + "'"
3229 $ WC "d_setreuid='" + perl_d_setreuid + "'"
3230 $ WC "d_setresuid='" + perl_d_setresuid + "'"
3231 $ WC "d_setrgid='" + perl_d_setrgid + "'"
3232 $ WC "d_setruid='" + perl_d_setruid + "'"
3233 $ WC "d_setsid='" + perl_d_setsid + "'"
3234 $ WC "d_shm='" + perl_d_shm + "'"
3235 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
3236 $ WC "d_sigaction='" + perl_d_sigaction + "'"
3237 $ WC "d_statblks='" + perl_d_statblks + "'"
3238 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
3239 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
3240 $ WC "stdio_base='" + perl_stdio_base + "'"
3241 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
3242 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
3243 $ WC "d_strerror='" + perl_d_strerror + "'"
3244 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
3245 $ WC "d_strerrm='" + perl_d_strerrm + "'"
3246 $ WC "d_symlink='" + perl_d_symlink + "'"
3247 $ WC "d_syscall='" + perl_d_syscall + "'"
3248 $ WC "d_system='" + perl_d_system + "'"
3249 $ WC "timetype='" + perl_timetype + "'"
3250 $ WC "d_truncate='" + perl_d_truncate + "'"
3251 $ WC "d_vfork='" + perl_d_vfork + "'"
3252 $ WC "signal_t='" + perl_signal_t + "'"
3253 $ WC "d_volatile='" + perl_d_volatile + "'"
3254 $ WC "d_vprintf='" + perl_d_vprintf + "'"
3255 $ WC "d_charvspr='" + perl_d_charvspr + "'"
3256 $ WC "d_wait4='" + perl_d_wait4 + "'"
3257 $ WC "d_waitpid='" + perl_d_waitpid + "'"
3258 $ WC "i_dirent='" + perl_i_dirent + "'"
3259 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
3260 $ WC "direntrytype='" + perl_direntrytype + "'"
3261 $ WC "i_fcntl='" + perl_i_fcntl + "'"
3262 $ WC "i_grp='" + perl_i_grp + "'"
3263 $ WC "i_limits='" + perl_i_limits + "'"
3264 $ WC "i_memory='" + perl_i_memory + "'"
3265 $ WC "i_ndbm='" + perl_i_ndbm + "'"
3266 $ WC "i_stdarg='" + perl_i_stdarg + "'"
3267 $ WC "i_pwd='" + perl_i_pwd + "'"
3268 $ WC "d_pwquota='" + perl_d_pwquota + "'"
3269 $ WC "d_pwage='" + perl_d_pwage + "'"
3270 $ WC "d_pwchange='" + perl_d_pwchange + "'"
3271 $ WC "d_pwclass='" + perl_d_pwclass + "'"
3272 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
3273 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
3274 $ WC "i_stddef='" + perl_i_stddef + "'"
3275 $ WC "i_stdlib='" + perl_i_stdlib + "'"
3276 $ WC "i_string='" + perl_i_string + "'"
3277 $ WC "i_sysdir='" + perl_i_sysdir + "'"
3278 $ WC "i_sysfile='" + perl_i_sysfile + "'"
3279 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
3280 $ WC "i_sysndir='" + perl_i_sysndir + "'"
3281 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
3282 $ WC "i_sysselct='" + perl_i_sysselct + "'"
3283 $ WC "i_dbm='" + perl_i_dbm + "'"
3284 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
3285 $ WC "i_sfio='" + perl_i_sfio + "'"
3286 $ WC "i_sysstat='" + perl_i_sysstat + "'"
3287 $ WC "i_systimes='" + perl_i_systimes + "'"
3288 $ WC "i_systypes='" + perl_i_systypes + "'"
3289 $ WC "i_sysun='" + perl_i_sysun + "'"
3290 $ WC "i_syswait='" + perl_i_syswait + "'"
3291 $ WC "i_termio='" + perl_i_termio + "'"
3292 $ WC "i_sgtty='" + perl_i_sgtty + "'"
3293 $ WC "i_termios='" + perl_i_termios + "'"
3294 $ WC "i_time='" + perl_i_time + "'"
3295 $ WC "i_systime='" + perl_i_systime + "'"
3296 $ WC "i_systimek='" + perl_i_systimek + "'"
3297 $ WC "i_unistd='" + perl_i_unistd + "'"
3298 $ WC "i_utime='" + perl_i_utime + "'"
3299 $ WC "i_varargs='" + perl_i_varargs + "'"
3300 $ WC "i_vfork='" + perl_i_vfork + "'"
3301 $ WC "prototype='" + perl_prototype + "'"
3302 $ WC "randbits='" + perl_randbits +"'"
3303 $ WC "selecttype='" + perl_selecttype + "'"
3304 $ WC "stdchar='" + perl_stdchar + "'"
3305 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
3306 $ WC "full_sed='" + perl_full_sed + "'"
3307 $ WC "bin='" + perl_bin + "'"
3308 $ WC "binexp='" + perl_binexp + "'"
3309 $ WC "d_alarm='" + perl_d_alarm + "'"
3310 $ WC "d_casti32='" + perl_d_casti32 + "'"
3311 $ WC "d_chown='" + perl_d_chown + "'"
3312 $ WC "d_chroot='" + perl_d_chroot + "'"
3313 $ WC "d_cuserid='" + perl_d_cuserid + "'"
3314 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
3315 $ WC "d_ldbl_dig='" + perl_d_ldbl_dig + "'"
3316 $ WC "d_difftime='" + perl_d_difftime + "'"
3317 $ WC "d_fork='" + perl_d_fork + "'"
3318 $ WC "d_getlogin='" + perl_d_getlogin + "'"
3319 $ WC "d_getppid='" + perl_d_getppid + "'"
3320 $ WC "d_htonl='" + perl_d_htonl + "'"
3321 $ WC "d_nice='" + perl_d_nice + "'"
3322 $ WC "d_pause='" + perl_d_pause + "'"
3323 $ WC "d_pipe='" + perl_d_pipe + "'"
3324 $ WC "d_readlink='" + perl_d_readlink + "'"
3325 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
3326 $ WC "d_strchr='" + perl_d_strchr + "'"
3327 $ WC "d_index='" + perl_d_index + "'"
3328 $ WC "d_strtod='" + perl_d_strtod + "'"
3329 $ WC "d_strtol='" + perl_d_strtol + "'"
3330 $ WC "d_strtoul='" + perl_d_strtoul + "'"
3331 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
3332 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
3333 $ WC "d_times='" + perl_d_times + "'"
3334 $ WC "d_tzname='" + perl_d_tzname + "'"
3335 $ WC "d_umask='" + perl_d_umask + "'"
3336 $ WC "fpostype='" + perl_fpostype + "'"
3337 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
3338 $ WC "i_float='" + perl_i_float + "'"
3339 $ WC "i_math='" + perl_i_math + "'"
3340 $ WC "intsize='" + perl_intsize + "'"
3341 $ WC "longsize='" + perl_longsize + "'"
3342 $ WC "shortsize='" + perl_shortsize + "'"
3343 $ WC "lseektype='" + perl_lseektype + "'"
3344 $ WC "lseeksize='4'"
3345 $ WC "i_values='" + perl_i_values + "'"
3346 $ WC "malloctype='" + perl_malloctype + "'"
3347 $ WC "freetype='" + perl_freetype + "'"
3348 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
3349 $ WC "sh='" + perl_sh + "'"
3350 $ WC "sig_name='" + perl_sig_name + "'"
3351 $ WC "sig_num='" + perl_sig_num + "'"
3352 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
3354 $ WC "modetype='" + perl_modetype + "'"
3355 $ WC "ssizetype='" + perl_ssizetype + "'"
3356 $ WC "o_nonblock='" + perl_o_nonblock + "'"
3357 $ WC "eagain='" + perl_eagain + "'"
3358 $ WC "rd_nodata='" + perl_rd_nodata + "'"
3359 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
3360 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
3361 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
3362 $ WC "oldarchlib='" + perl_oldarchlib + "'"
3363 $ WC "privlibexp='" + perl_privlibexp + "'"
3364 $ WC "privlib='" + perl_privlib + "'"
3365 $ WC "sitelibexp='" + perl_sitelibexp + "'"
3366 $ WC "sitelib='" + perl_sitelib + "'"
3367 $ WC "sitearchexp='" + perl_sitearchexp + "'"
3368 $ WC "sitearch='" + perl_sitearch + "'"
3369 $ WC "sizetype='" + perl_sizetype + "'"
3370 $ WC "i_sysparam='" + perl_i_sysparam + "'"
3371 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
3372 $ WC "d_dlerror='" + perl_d_dlerror + "'"
3373 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
3374 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
3375 $ WC "d_dosuid='" + perl_d_dosuid + "'"
3376 $ WC "d_inetaton='" + perl_d_inetaton + "'"
3377 $ WC "d_isascii='" + perl_d_isascii + "'"
3378 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
3379 $ WC "d_pathconf='" + perl_d_pathconf + "'"
3380 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
3381 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
3382 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
3383 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
3384 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
3385 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
3386 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
3387 $ WC "d_setpgid='" + perl_d_setpgid + "'"
3388 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
3389 $ WC "d_sysconf='" + perl_d_sysconf + "'"
3390 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
3391 $ WC "d_getpgid='" + perl_d_getpgid + "'"
3392 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
3393 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
3394 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
3395 $ WC "d_sfio='" + perl_d_sfio + "'"
3396 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
3397 $ WC "usedl='" + perl_usedl + "'"
3398 $ WC "startperl=" + perl_startperl ! This one's special--no enclosing single quotes
3399 $ WC "db_hashtype='" + perl_db_hashtype + "'"
3400 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
3401 $ WC "useperlio='" + perl_useperlio + "'"
3402 $ WC "defvoidused='" + perl_defvoidused + "'"
3403 $ WC "voidflags='" + perl_voidflags + "'"
3404 $ WC "d_eunice='" + perl_d_eunice + "'"
3405 $ WC "libs='" + perl_libs + "'"
3406 $ WC "libc='" + perl_libc + "'"
3407 $ tempstring = "PERL_VERSION='" + "''perl_patchlevel'" + "'"
3409 $ tempstring = "PERL_SUBVERSION='" + "''perl_patchlevel'" + "'"
3411 $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
3413 $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
3415 $ WC "pager='" + perl_pager + "'"
3416 $ WC "uidtype='" + perl_uidtype + "'"
3417 $ WC "gidtype='" + perl_gidtype + "'"
3418 $ WC "usethreads='" + perl_usethreads + "'"
3419 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
3420 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
3421 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
3422 $ WC "i_netdb='" + perl_i_netdb + "'"
3423 $ WC "pidtype='" + perl_pidtype + "'"
3424 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
3425 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
3426 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
3427 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
3428 $ WC "baserev='" + perl_baserev + "'"
3429 $ WC "doublesize='" + perl_doublesize + "'"
3430 $ WC "ptrsize='" + perl_ptrsize + "'"
3431 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
3432 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
3433 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
3434 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
3435 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
3436 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
3437 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
3438 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
3439 $ WC "d_sethent='" + perl_d_sethent + "'"
3440 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
3441 $ WC "d_longdbl='" + perl_d_longdbl + "'"
3442 $ WC "longdblsize='" + perl_longdblsize + "'"
3443 $ WC "d_longlong='" + perl_d_longlong + "'"
3444 $ WC "longlongsize='" + perl_longlongsize + "'"
3445 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
3446 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
3447 $ WC "d_setenv='" + perl_d_setenv + "'"
3448 $ WC "d_endhent='" + perl_d_endhent + "'"
3449 $ WC "d_endnent='" + perl_d_endsent + "'"
3450 $ WC "d_endpent='" + perl_d_endpent + "'"
3451 $ WC "d_endsent='" + perl_d_endsent + "'"
3452 $ WC "d_gethent='" + perl_d_gethent + "'"
3453 $ WC "d_getnent='" + perl_d_getsent + "'"
3454 $ WC "d_getpent='" + perl_d_getpent + "'"
3455 $ WC "d_getsent='" + perl_d_getsent + "'"
3456 $ WC "d_sethent='" + perl_d_sethent + "'"
3457 $ WC "d_setnent='" + perl_d_setsent + "'"
3458 $ WC "d_setpent='" + perl_d_setpent + "'"
3459 $ WC "ebcdic='" + perl_ebcdic + "'"
3460 $ WC "d_setsent='" + perl_d_setsent + "'"
3461 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
3462 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
3463 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
3464 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
3465 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
3466 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
3467 $ WC "d_lchown='" + perl_d_lchown + "'"
3468 $ WC "d_union_semun='" + perl_d_union_semun + "'"
3469 $ WC "i_arpainet='" + perl_i_arpainet + "'"
3470 $ WC "d_grpasswd='" + perl_d_grpasswd + "'"
3471 $ WC "d_setgrent='" + perl_d_setgrent + "'"
3472 $ WC "d_getgrent='" + perl_d_getgrent + "'"
3473 $ WC "d_endgrent='" + perl_d_endgrent + "'"
3474 $ WC "d_pwpasswd='" + perl_d_pwpasswd + "'"
3475 $ WC "d_setpwent='" + perl_d_setpwent + "'"
3476 $ WC "d_getpwent='" + perl_d_getpwent + "'"
3477 $ WC "d_endpwent='" + perl_d_endpwent + "'"
3478 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
3479 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
3480 $ WC "extensions='" + perl_extensions + "'"
3481 $ WC "d_mknod='" + perl_d_mknod + "'"
3482 $ WC "devtype='" + perl_devtype + "'"
3483 $ WC "d_gethname='" + perl_d_gethname + "'"
3484 $ WC "d_phostname='" + perl_d_phostname + "'"
3485 $ WC "d_accessx='" + perl_d_accessx + "'"
3486 $ WC "d_eaccess='" + perl_d_eaccess + "'"
3487 $ WC "i_sysaccess='" + perl_i_sysaccess + "'"
3488 $ WC "i_syssecrt='" + perl_i_syssecrt + "'"
3489 $ WC "d_fd_set='" + perl_d_fd_set + "'"
3490 $ WC "d_access='" + perl_d_access + "'"
3491 $ WC "d_msg_ctrunc='" + perl_d_msg_ctrunc + "'"
3492 $ WC "d_msg_dontroute='" + perl_d_msg_dontroute + "'"
3493 $ WC "d_msg_oob='" + perl_d_msg_oob + "'"
3494 $ WC "d_msg_peek='" + perl_d_msg_peek + "'"
3495 $ WC "d_msg_proxy='" + perl_d_msg_proxy + "'"
3496 $ WC "d_scm_rights='" + perl_d_scm_rights + "'"
3497 $ WC "d_sendmsg='" + perl_d_sendmsg + "'"
3498 $ WC "d_recvmsg='" + perl_d_recvmsg + "'"
3499 $ WC "d_msghdr_s='" + perl_d_msghdr_s + "'"
3500 $ WC "d_cmsghdr_s='" + perl_d_cmsghdr_s + "'"
3501 $ WC "i_sysuio='" + perl_i_sysuio + "'"
3502 $ WC "d_fseeko='" + perl_d_fseeko + "'"
3503 $ WC "d_ftello='" + perl_d_ftello + "'"
3504 $ WC "d_readv='" + perl_d_readv + "'"
3505 $ WC "d_writev='" + perl_d_writev + "'"
3506 $ WC "i_machcthr='" + perl_i_machcthr + "'"
3507 $ WC "usemultiplicity='" + perl_usemultiplicity + "'"
3508 $ WC "i_poll='" + perl_i_poll + "'"
3509 $ WC "i_inttypes='" + perl_i_inttypes + "'"
3510 $ WC "d_int64t='" + perl_d_int64t + "'"
3511 $ WC "d_off64_t='" + perl_d_off64_t + "'"
3512 $ WC "d_fpos64_t='" + perl_d_fpos64_t + "'"
3513 $ WC "use64bits='" + perl_use64bits + "'"
3514 $ WC "d_drand48proto='" + perl_d_drand48proto + "'"
3515 $ WC "d_old_pthread_create_joinable='" + perl_d_old_pthread_create_joinable + "'"
3516 $ WC "old_pthread_create_joinable='" + perl_old_pthread_create_joinable + "'"
3517 $ WC "drand01='" + perl_drand01 + "'"
3518 $ WC "randseedtype='" + perl_randseedtype + "'"
3519 $ WC "seedfunc='" + perl_seedfunc + "'"
3520 $ WC "sig_num_init='" + perl_sig_num_with_commas + "'"
3521 $ WC "i_sysmount='" + perl_i_sysmount + "'"
3522 $ WC "d_fstatfs='" + perl_d_fstatfs + "'"
3523 $ WC "d_memchr='" + perl_d_memchr + "'"
3524 $ WC "d_statfsflags='" + perl_d_statfsflags + "'"
3525 $ WC "fflushNULL='define'"
3526 $ WC "fflushall='undef'"
3527 $ WC "d_stdio_stream_array='undef'"
3528 $ WC "i_sysstatvfs='" + perl_i_sysstatvfs + "'"
3529 $ WC "i_machcthreads='" + perl_i_machcthreads + "'"
3530 $ WC "i_pthread='" + perl_i_pthread + "'"
3531 $ WC "d_fstatvfs='" + perl_d_fstatvfs + "'"
3532 $ WC "i_mntent='" + perl_i_mntent + "'"
3533 $ WC "d_getmntent='" + perl_d_getmntent + "'"
3534 $ WC "d_hasmntopt='" + perl_d_hasmntopt + "'"
3535 $ WC "d_telldirproto='" + perl_d_telldirproto + "'"
3536 $ WC "d_madvise='" + perl_d_madvise + "'"
3537 $ WC "d_msync='" + perl_d_msync + "'"
3538 $ WC "d_mprotect='" + perl_d_mprotect + "'"
3539 $ WC "d_munmap='" + perl_d_munmap + "'"
3540 $ WC "d_mmap='" + perl_d_mmap + "'"
3541 $ WC "i_sysmman='" + perl_i_sysmman + "'"
3542 $ WC "installusrbinperl='" + perl_installusrbinperl + "'"
3543 $! WC "selectminbits='" + perl_selectminbits + "'"
3544 $ WC "crosscompile='" + perl_crosscompile + "'"
3545 $ WC "multiarch='" + perl_multiarch + "'"
3546 $ WC "sched_yield='" + perl_sched_yield + "'"
3547 $ WC "d_strtoull='" + perl_d_strtoull + "'"
3548 $ WC "usesocks='" + perl_usesocks + "'"
3549 $ WC "d_vendorlib='" + perl_d_vendorlib + "'"
3550 $ WC "vendorlibexp='" + perl_vendorlibexp + "'"
3551 $ WC "d_atolf='" + perl_d_atolf + "'"
3552 $ WC "d_atoll='" + perl_d_atoll + "'"
3553 $ WC "d_bincompat5005='" + perl_d_bincompat + "'"
3554 $ WC "d_endspent='" + perl_d_endspent + "'"
3555 $ WC "d_getspent='" + perl_d_getspent + "'"
3556 $ WC "d_getspnam='" + perl_d_getspnam + "'"
3557 $ WC "d_setspent='" + perl_d_setspent + "'"
3558 $ WC "i_shadow='" + perl_i_shadow + "'"
3559 $ WC "i_socks='" + perl_i_socks + "'"
3560 $ WC "d_PRIfldbl='" + perl_d_PRIfldbl + "'"
3561 $ WC "d_PRIgldbl='" + perl_d_PRIgldbl + "'"
3562 $ WC "d_PRId64='" + perl_d_PRId64 + "'"
3563 $ WC "d_PRIu64='" + perl_d_PRIu64 + "'"
3564 $ WC "d_PRIo64='" + perl_d_PRIo64 + "'"
3565 $ WC "d_PRIx64='" + perl_d_PRIx64 + "'"
3566 $ WC "sPRIfldbl='" + perl_sPRIfldbl + "'"
3567 $ WC "sPRIgldbl='" + perl_sPRIgldbl + "'"
3568 $ WC "sPRId64='" + perl_sPRId64 + "'"
3569 $ WC "sPRIu64='" + perl_sPRIu64 + "'"
3570 $ WC "sPRIo64='" + perl_sPRIo64 + "'"
3571 $ WC "sPRIx64='" + perl_sPRIx64 + "'"
3572 $ WC "d_llseek='" + perl_d_llseek + "'"
3574 $! ##WRITE NEW CONSTANTS HERE##
3578 $! Okay, we've gotten here. Build munchconfig and run it
3579 $ 'Perl_CC' munchconfig.c
3580 $ If (Needs_Opt.eqs."Yes")
3582 $ open/write OPTCHAN []munchconfig.opt
3583 $ IF ("''using_gnu_c'".eqs."Yes")
3585 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
3587 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
3589 $ link munchconfig.obj,munchconfig.opt/opt
3590 $ delete munchconfig.opt;*
3592 $ link munchconfig.obj
3595 $ echo "Writing config.h"
3597 $ ! we need an fdl file
3598 $ CREATE [-]CONFIG.FDL
3601 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
3602 $ ! First spit out the header info with the local defines (to get
3603 $ ! around the 255 character command line limit)
3604 $ OPEN/APPEND CONFIG [-]config.local
3605 $ if use_debugging_perl.eqs."Y"
3607 $ WRITE CONFIG "#define DEBUGGING"
3609 $ if use_two_pot_malloc.eqs."Y"
3611 $ WRITE CONFIG "#define TWO_POT_OPTIMIZE"
3613 $ if mymalloc.eqs."Y"
3615 $ WRITE CONFIG "#define EMBEDMYMALLOC"
3617 $ if use_pack_malloc.eqs."Y"
3619 $ WRITE CONFIG "#define PACK_MALLOC"
3621 $ if use_debugmalloc.eqs."Y"
3623 $ write config "#define DEBUGGING_MSTATS"
3625 $ if "''Using_Gnu_C'" .eqs."Yes"
3627 $ WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
3629 $ if "''Has_Dec_C_Sockets'".eqs."T"
3631 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
3632 $ WRITE CONFIG "#define DECCRTL_SOCKETS"
3634 $ if "''Has_Socketshr'".eqs."T"
3636 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
3638 $! This is VMS-specific for now
3639 $ WRITE CONFIG "#''perl_d_setenv' HAS_SETENV"
3640 $ if d_alwdeftype.eqs."Y"
3642 $ WRITE CONFIG "#define SECURE_INTERNAL_GETENV"
3644 $ WRITE CONFIG "#undef SECURE_INTERNAL_GETENV"
3646 $ if d_secintgenv.eqs."Y"
3648 $ WRITE CONFIG "#define ALWAYS_DEFTYPES"
3650 $ WRITE CONFIG "#undef ALWAYS_DEFTYPES"
3652 $ if use_64bit.eqs."Y"
3654 $ WRITE CONFIG "#define USE_LONG_LONG"
3655 $ WRITE CONFIG "#define USE_LONG_DOUBLE"
3657 $ WRITE CONFIG "#define HAS_ENVGETENV"
3660 $! Now build the normal config.h
3661 $ define/user sys$output [-]config.main
3662 $ mcr []munchconfig [-]config.sh [-]config_h.sh
3663 $ ! Concatenate them together
3664 $ copy [-]config.local,[-]config.main [-]config.h
3666 $ DELETE/NOLOG [-]CONFIG.MAIN;*
3667 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
3668 $ DELETE/NOLOG [-]CONFIG.FDL;*
3670 $ if "''Using_Dec_C'" .eqs."Yes"
3672 $ DECC_REPLACE = "DECC=decc=1"
3674 $ DECC_REPLACE = "DECC="
3676 $ if "''Using_Gnu_C'" .eqs."Yes"
3678 $ GNUC_REPLACE = "GNUC=gnuc=1"
3680 $ GNUC_REPLACE = "GNUC="
3682 $ if "''Has_Dec_C_Sockets'" .eqs."T"
3684 $ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
3686 $ if "''Has_Socketshr'" .eqs."T"
3688 $ SOCKET_REPLACE = "SOCKET=SOCKETSHR_SOCKETS=1"
3690 $ SOCKET_REPLACE = "SOCKET="
3693 $ IF ("''Use_Threads'".eqs."T")
3695 $ if ("''VMS_VER'".LES."6.2")
3697 $ THREAD_REPLACE = "THREAD=OLDTHREADED=1"
3699 $ THREAD_REPLACE = "THREAD=THREADED=1"
3702 $ THREAD_REPLACE = "THREAD="
3704 $ if mymalloc.eqs."Y"
3706 $ MALLOC_REPLACE = "MALLOC=MALLOC=1"
3708 $ MALLOC_REPLACE = "MALLOC="
3710 $ if f$getsyi("HW_MODEL").ge.1024
3712 $ ARCH_TYPE = "ARCH-TYPE=__AXP__"
3714 $ ARCH_TYPE = "ARCH-TYPE=__VAX__"
3716 $ echo "Writing DESCRIP.MMS"
3718 $ define/user sys$output [-]descrip.mms
3719 $ 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'"
3720 $ echo "Extracting Build_Ext.Com"
3721 $ Create Sys$Disk:[-]Build_Ext.Com
3722 $ Deck/Dollar="$EndOfTpl$"
3724 $! NOTE: This files is extracted as part of the VMS configuration process.
3725 $! Any changes made to it directly will be lost. If you need to make any
3726 $! changes, please edit the template in [.vms]SubConfigure.Com instead.
3727 $ def = F$Environment("Default")
3728 $ exts1 = F$Edit(p1,"Compress")
3729 $ p2 = F$Edit(p2,"Upcase,Compress,Trim")
3730 $ If F$Locate("MCR ",p2).eq.0 Then p2 = F$Extract(3,255,p2)
3731 $ miniperl = "$" + F$Search(F$Parse(p2,".Exe"))
3733 $ if f$type('p3') .nes. "" then makeutil = 'p3'
3734 $ targ = F$Edit(p4,"Lowercase")
3737 $ ext = F$Element(i," ",p1)
3738 $ If ext .eqs. " " Then Goto done
3739 $ Define/User Perl_Env_Tables CLISYM_LOCAL
3741 ($extdir = $ENV{'ext'}) =~ s/::/./g;
3742 if ($extdir =~ /^vms/i) { $extdir =~ s/vms/.vms.ext/i; }
3743 else { $extdir = ".ext.$extdir"; }
3744 ($ENV{'extdir'} = "[$extdir]");
3745 ($ENV{'up'} = ('-') x ($extdir =~ tr/././));
3746 $ Set Default &extdir
3748 $ If F$Locate("clean",targ) .eqs. F$Length(targ)
3750 $ Write Sys$Output "Building ''ext' . . ."
3751 $ On Error Then Goto done
3752 $ If F$Search("Descrip.MMS") .eqs. ""
3756 $ If F$CvTime(F$File("Descrip.MMS","rdt")) .lts. -
3757 F$CvTime(F$File("Makefile.PL","rdt")) Then redesc = 1
3760 $ Write Sys$Output "''targ'ing ''ext' . . ."
3761 $ On Error Then Continue
3764 miniperl "-I[''up'.lib]" Makefile.PL "INST_LIB=[''up'.lib]" "INST_ARCHLIB=[''up'.lib]"
3778 $! Clean up after ourselves
3779 $ delete/nolog munchconfig.exe;*
3780 $ delete/nolog munchconfig.obj;*