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_nv_preserves_uv = "define"
67 $ perl_d_fs_data_s = "undef"
68 $ perl_d_getmnt = "undef"
69 $ perl_d_sqrtl = "define"
70 $ perl_d_statfs_f_flags = "undef"
71 $ perl_d_statfs_s = "undef"
72 $ perl_d_ustat = "undef"
73 $ perl_i_sysstatfs = "undef"
74 $ perl_i_sysvfs = "undef"
75 $ perl_i_ustat = "undef"
76 $ perl_d_llseek="undef"
77 $ perl_d_madvise="undef"
78 $ perl_selectminbits=32
79 $ perl_d_msync="undef"
80 $ perl_d_mprotect="undef"
81 $ perl_d_munmap="undef"
82 $ perl_crosscompile="undef"
83 $ perl_multiarch="undef"
85 $ perl_i_sysmman="undef"
86 $ perl_d_telldirproto="define"
87 $ perl_i_sysmount="undef"
88 $ perl_d_bincompat="undef"
89 $ perl_d_endspent="undef
90 $ perl_d_getspent="undef
91 $ perl_d_getspnam="undef
92 $ perl_d_setspent="undef
93 $ perl_d_fstatfs="undef"
94 $ perl_i_machcthreads="undef"
95 $ perl_i_pthread="define"
96 $ perl_d_fstatvfs="undef"
97 $ perl_usesocks="undef"
98 $ perl_d_vendorlib="undef"
99 $ perl_vendorlibexp=""
100 $ perl_d_statfsflags="undef"
101 $ perl_i_sysstatvfs="undef"
102 $ perl_i_mntent="undef"
103 $ perl_d_getmntent="undef"
104 $ perl_d_hasmntopt="undef"
105 $ perl_package="''package'"
106 $ perl_baserev = "''baserev'"
108 $ perl_installusrbinperl="undef"
110 $ perl_d_fseeko="undef"
111 $ perl_d_ftello="undef"
112 $ perl_d_readv="undef"
113 $ perl_d_writev="undef"
114 $ perl_i_machcthr="undef"
115 $ perl_i_netdb="undef"
116 $ perl_d_gnulibc="undef"
117 $ perl_cf_by="unknown"
121 $ perl_drand01 = "drand48()"
122 $ perl_randseedtype = "long int"
123 $ perl_seedfunc = "srand48"
124 $ perl_d_msg_ctrunc = "undef"
125 $ perl_d_msg_dontroute = "undef"
126 $ perl_d_msg_oob = "undef"
127 $ perl_d_msg_peek = "undef"
128 $ perl_d_msg_proxy = "undef"
129 $ perl_d_scm_rights = "undef"
130 $ perl_d_sendmsg = "undef"
131 $ perl_d_recvmsg = "undef"
132 $ perl_d_msghdr_s = "undef"
133 $ perl_d_cmsghdr_s = "undef"
134 $ IF use_64bit .eqs. "Y"
136 $ perl_use64bits = "define"
137 $ perl_uselargefiles = "define"
138 $ perl_uselongdouble = "define"
139 $ perl_usemorebits = "define"
141 $ perl_use64bits = "undef"
142 $ perl_uselargefiles = "undef"
143 $ perl_uselongdouble = "undef"
144 $ perl_usemorebits = "undef"
146 $ perl_d_drand48proto = "define"
147 $ perl_libpth="/sys$share /sys$library"
149 $ perl_lddlflags="/Share"
154 $ perl_i_arpainet="undef"
155 $ perl_d_grpasswd="undef"
156 $ perl_d_setgrent="undef"
157 $ perl_d_getgrent="define"
158 $ perl_d_endgrent="define"
159 $ perl_d_pwpasswd="define"
160 $ perl_d_setpwent="define"
161 $ perl_d_getpwent="define"
162 $ perl_d_endpwent="define"
163 $ perl_d_phostname="undef"
164 $ perl_d_accessx="undef"
165 $ perl_d_eaccess="undef"
166 $ perl_ebcdic="undef"
168 $ perl_shrplib="define"
169 $ perl_usemymalloc=mymalloc
170 $ perl_usevfork="true"
171 $ perl_useposix="false"
172 $ perl_spitshell="write sys$output "
173 $ perl_dlsrc="dl_vms.c"
176 $ perl_prefix="perl_root"
177 $ perl_binexp="''perl_prefix':[000000]"
178 $ perl_builddir="''perl_prefix':[000000]"
179 $ perl_installbin="''perl_prefix':[000000]"
180 $ perl_installscript="''perl_prefix':[utils]"
181 $ perl_installman1dir="''perl_prefix':[man.man1]"
182 $ perl_installman3dir="''perl_prefix':[man.man3]"
183 $ perl_installprivlib="''perl_prefix':[lib]"
184 $ perl_installsitelib="''perl_prefix':[lib.site_perl]"
187 $ perl_d_sockpair="undef"
188 $ perl_i_neterrno="define"
189 $ perl_ldflags="/NoTrace/NoMap"
190 $ perl_d_lchown="undef"
191 $ perl_d_mknod="undef"
192 $ perl_d_union_semun="undef"
193 $ perl_d_semctl_semun="undef"
194 $ perl_d_semctl_semid_ds="undef"
195 $ IF (sharedperl.EQS."Y" .AND. F$GETSYI("HW_MODEL").GE.1024)
197 $ perl_obj_ext=".abj"
200 $ perl_exe_ext=".axe"
201 $ perl_lib_ext=".alb"
203 $ perl_obj_ext=".obj"
206 $ perl_exe_ext=".exe"
207 $ perl_lib_ext=".olb"
209 $ perl_dlobj="dl_vms''perl_obj_ext'"
211 $ perl_d_archlib="define"
212 $ perl_d_bincompat3="undef"
213 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
215 $ perl_d_castneg="define"
217 $ perl_d_chsize="undef"
218 $ perl_d_const="define"
219 $ perl_d_crypt="define"
220 $ perl_byteorder="1234"
223 $ perl_d_dup2="define"
224 $ perl_d_fchmod="undef"
225 $ perl_d_fchown="undef"
226 $ perl_d_fcntl="undef"
227 $ perl_d_fgetpos="define"
228 $ perl_d_flexfnam="define"
229 $ perl_d_flock="undef"
230 $ perl_d_fsetpos="define"
231 $ perl_d_getgrps="undef"
232 $ perl_d_setgrps="undef"
233 $ perl_d_getprior="undef"
234 $ perl_d_killpg="undef"
235 $ perl_d_link="undef"
236 $ perl_d_lstat="undef"
237 $ perl_d_lockf="undef"
238 $ perl_d_memcmp="define"
239 $ perl_d_memcpy="define"
240 $ perl_d_memmove="define"
241 $ perl_d_memset="define"
242 $ perl_d_mkdir="define"
244 $ perl_d_open3="define"
245 $ perl_d_poll="undef"
246 $ perl_d_readdir="define"
247 $ perl_d_seekdir="define"
248 $ perl_d_telldir="define"
249 $ perl_d_rewinddir="define"
250 $ perl_d_rename="define"
251 $ perl_d_rmdir="define"
253 $ perl_d_setegid="undef"
254 $ perl_d_seteuid="undef"
255 $ perl_d_setprior="undef"
256 $ perl_d_setregid="undef"
257 $ perl_d_setresgid="undef"
258 $ perl_d_setreuid="undef"
259 $ perl_d_setresuid="undef"
260 $ perl_d_setrgid="undef"
261 $ perl_d_setruid="undef"
262 $ perl_d_setsid="undef"
264 $ perl_d_shmatprototype="undef"
265 $ perl_d_statblks="undef"
266 $ perl_stdio_ptr="((*fp)->_ptr)"
267 $ perl_stdio_cnt="((*fp)->_cnt)"
268 $ perl_stdio_base="((*fp)->_base)"
269 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
270 $ perl_d_strctcpy="define"
271 $ perl_d_strerror="define"
272 $ perl_d_syserrlst="undef"
273 $ perl_d_strerrm="strerror((e),vaxc$errno)"
274 $ perl_d_symlink="undef"
275 $ perl_d_syscall="undef"
276 $ perl_d_system="define"
277 $ perl_timetype="time_t"
278 $ perl_d_vfork="define"
279 $ perl_signal_t="void"
280 $ perl_d_volatile="define"
281 $ perl_d_vprintf="define"
282 $ perl_d_charvspr="undef"
283 $ perl_d_waitpid="define"
284 $ perl_i_dirent="undef"
285 $ perl_d_dirnamlen="define"
286 $ perl_direntrytype="struct dirent"
287 $ perl_i_fcntl="undef"
289 $ perl_i_limits="define"
290 $ perl_i_memory="undef"
291 $ perl_i_ndbm="undef"
292 $ perl_i_stdarg="define"
294 $ perl_d_pwquota="undef"
295 $ perl_d_pwage="undef"
296 $ perl_d_pwchange="undef"
297 $ perl_d_pwclass="undef"
298 $ perl_d_pwexpire="undef"
299 $ perl_d_pwcomment="define"
300 $ perl_i_stddef="define"
301 $ perl_i_stdlib="define"
302 $ perl_i_string="define"
303 $ perl_i_sysdir="undef"
304 $ perl_i_sysfile="undef"
305 $ perl_i_sysioctl="undef"
306 $ perl_i_sysndir="undef"
307 $ perl_i_sysresrc="undef"
308 $ perl_i_sysselct="undef"
310 $ perl_i_rpcsvcdbm="undef"
311 $ perl_i_sfio="undef"
312 $ perl_i_sysstat="define"
313 $ perl_i_systimes="undef"
314 $ perl_i_systypes="define"
315 $ perl_i_sysun="undef"
316 $ perl_i_syswait="undef"
317 $ perl_i_termio="undef"
318 $ perl_i_sgtty="undef"
319 $ perl_i_termios="undef"
320 $ perl_i_time="define"
321 $ perl_i_systime="undef"
322 $ perl_i_systimek="undef"
323 $! perl_i_unistd="undef"
324 $ perl_i_utime="undef"
325 $ perl_i_varargs="undef"
326 $ perl_i_vfork="undef"
327 $ perl_prototype="define"
329 $ perl_stdchar="char"
330 $ perl_d_unlink_all_versions="undef"
331 $ perl_full_sed="_NLA0:"
332 $ perl_bin="/''perl_prefix'/000000"
333 $ perl_binexp="''perl_prefix':[000000]"
334 $ perl_d_alarm="define"
335 $ perl_d_casti32="define"
336 $ perl_d_chown="define"
337 $ perl_d_chroot="undef"
338 $ perl_d_cuserid="define"
339 $ perl_d_dbl_dig="define"
340 $ perl_d_ldbl_dig="define"
341 $ perl_d_difftime="define"
342 $ perl_d_fork="undef"
343 $ perl_d_getlogin="define"
344 $ perl_d_getppid="undef"
345 $ perl_d_nice="define"
346 $ perl_d_pause="define"
347 $ perl_d_pipe="define"
348 $ perl_d_readlink="undef"
349 $ perl_d_setlinebuf="undef"
350 $ perl_d_strchr="define"
351 $ perl_d_strtod="define"
352 $ perl_d_strtol="define"
353 $ perl_d_strtoul="define"
354 $ perl_d_tcgetpgrp="undef"
355 $ perl_d_tcsetpgrp="undef"
356 $ perl_d_times="define"
357 $ perl_d_tzname="undef"
358 $ perl_d_umask="define"
359 $ perl_fpostype="fpos_t"
360 $ perl_i_dlfcn="undef"
361 $ perl_i_float="define"
362 $ perl_i_math="define"
363 $ perl_lseektype="int"
364 $ perl_i_values="undef"
365 $ perl_malloctype="void *"
366 $ perl_freetype="void"
367 $ if "''mymalloc'".eqs."Y"
369 $ perl_d_mymalloc="define"
371 $ perl_d_mymalloc="undef"
374 $ perl_modetype="unsigned int"
375 $ perl_ssizetype="int"
376 $ perl_o_nonblock=" "
379 $ perl_d_eofnblk="undef"
380 $ perl_d_oldarchlib="define"
381 $ perl_privlibexp="''perl_prefix':[lib]"
382 $ perl_privlib="''perl_prefix':[lib]"
383 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
384 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
385 $ perl_sizetype="size_t"
386 $ perl_i_sysparam="undef"
387 $ perl_d_void_closedir="define"
388 $ perl_d_dlerror="undef"
389 $ perl_d_dlsymun="undef"
390 $ perl_d_suidsafe="undef"
391 $ perl_d_dosuid="undef"
392 $ perl_d_inetaton="undef"
393 $ perl_d_isascii="define"
394 $ perl_d_mkfifo="undef"
395 $ perl_d_safebcpy="undef"
396 $ perl_d_safemcpy="define"
397 $ perl_d_sanemcmp="define"
398 $ perl_d_setpgrp="undef"
399 $ perl_d_bsdsetpgrp="undef"
400 $ perl_d_bsdpgrp="undef"
401 $ perl_d_setpgid="undef"
402 $ perl_d_setpgrp2="undef"
403 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
404 $ perl_d_getpgid="undef"
405 $ perl_d_getpgrp="undef"
406 $ perl_d_bsdgetpgrp="undef"
407 $ perl_d_getpgrp2="undef"
408 $ perl_d_sfio="undef"
409 $ perl_usedl="define"
410 $ perl_startperl="""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ + ++$status != 0 and $exit = $status = undef;"""
411 $ perl_db_hashtype=" "
412 $ perl_db_prefixtype=" "
413 $ perl_useperlio="undef"
414 $ perl_defvoidused="15"
415 $ perl_voidflags="15"
416 $ perl_d_eunice="undef"
417 $ perl_d_pwgecos="define"
418 $ IF ("''Use_Threads'".eqs."T").and.("''VMS_VER'".LES."6.2")
420 $ 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"
424 $ IF ("''Using_Dec_C'".eqs."Yes")
426 $ perl_libc="(DECCRTL)"
430 $ perl_PATCHLEVEL="''patchlevel'"
431 $ perl_SUBVERSION="''subversion'"
436 $ if (use_64bit .eqs. "Y")
438 $ perl_d_PRIfldbl = "define"
439 $ perl_d_PRIgldbl = "define"
440 $ perl_d_PRId64 = "define"
441 $ perl_d_PRIu64 = "define"
442 $ perl_d_PRIo64 = "define"
443 $ perl_d_PRIx64 = "define"
444 $ perl_sPRIfldbl = """Lf"""
445 $ perl_sPRIgldbl = """Lg"""
446 $ perl_sPRId64 = """Ld"""
447 $ perl_sPRIu64 = """Lu"""
448 $ perl_sPRIo64 = """Lo"""
449 $ perl_sPRIx64 = """Lx"""
450 $ perl_d_quad = "define"
451 $ perl_quadtype = "long long"
452 $ perl_uquadtype = "unsigned long long"
454 $ perl_d_PRIfldbl = "undef"
455 $ perl_d_PRIgldbl = "undef"
456 $ perl_d_PRId64 = "undef"
457 $ perl_d_PRIu64 = "undef"
458 $ perl_d_PRIo64 = "undef"
459 $ perl_d_PRIx64 = "undef"
460 $ perl_sPRIfldbl = ""
461 $ perl_sPRIgldbl = ""
466 $ perl_d_quad = "undef"
469 $! Now some that we build up
471 $ LocalTime = f$time()
472 $ perl_cf_time= f$extract(0, 3, f$cvtime(LocalTime,, "WEEKDAY")) + " " + -
473 f$edit(f$cvtime(LocalTime, "ABSOLUTE", "MONTH"), "LOWERCASE") + -
474 " " + f$cvtime(LocalTime,, "DAY") + " " + f$cvtime(LocalTime,, "TIME") + -
475 " " + f$cvtime(LocalTime,, "YEAR")
476 $ if f$getsyi("HW_MODEL").ge.1024
478 $ perl_arch="VMS_AXP"
479 $ perl_archname="VMS_AXP"
480 $ perl_alignbytes="8"
482 $ perl_arch="VMS_VAX"
483 $ perl_archname="VMS_VAX"
484 $ perl_alignbytes="8"
486 $ if ("''Use_Threads'".eqs."T")
488 $ perl_arch = "''perl_arch'-thread"
489 $ perl_archname = "''perl_archname'-thread"
490 $ perl_d_old_pthread_create_joinable = "undef"
491 $ perl_old_pthread_create_joinable = " "
492 $ perl_use5005threads = "define"
494 $ perl_d_old_pthread_create_joinable = "undef"
495 $ perl_old_pthread_create_joinable = " "
496 $ perl_use5005threads = "undef"
498 $ perl_useithreads = "undef"
499 $ perl_osvers=f$edit(osvers, "TRIM")
500 $ if (perl_subversion + 0).eq.0
502 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL
504 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion
507 $! Some that we need to invoke the compiler for
508 $ OS := "open/write SOURCECHAN []temp.c"
509 $ WS := "write SOURCECHAN"
510 $ CS := "close SOURCECHAN"
511 $ DS := "delete/nolog []temp.*;*"
513 $ if ("''using_vax_c'".eqs."Yes").or.("''using_gnu_c'".eqs."Yes")
515 $ open/write OPTCHAN []temp.opt
516 $ IF ("''using_gnu_c'".eqs."Yes")
518 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
520 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
525 $! Check for __STDC__
529 $ WS "#include <stdlib.h>
531 $ WS "#include <stdio.h>
534 $ WS "#ifdef __STDC__
535 $ WS "printf(""42\n"");
537 $ WS "printf(""1\n"");
542 $ DEFINE SYS$ERROR _NLA0:
543 $ DEFINE SYS$OUTPUT _NLA0:
544 $ ON ERROR THEN CONTINUE
545 $ ON WARNING THEN CONTINUE
547 $ If (Needs_Opt.eqs."Yes")
549 $ link temp.obj,temp.opt/opt
553 $ DEASSIGN SYS$OUTPUT
555 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
556 $ DEFINE SYS$ERROR TEMPOUT
557 $ DEFINE SYS$OUTPUT TEMPOUT
560 $ DEASSIGN SYS$OUTPUT
562 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
565 $ DELETE/NOLOG [-.uu]tempout.lis;
567 $ perl_cpp_stuff=line
568 $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
570 $! Check for double size
574 $ WS "#include <stdlib.h>
576 $ WS "#include <stdio.h>
580 $ WS "foo = sizeof(double);
581 $ WS "printf(""%d\n"", foo);
585 $ DEFINE SYS$ERROR _NLA0:
586 $ DEFINE SYS$OUTPUT _NLA0:
587 $ ON ERROR THEN CONTINUE
588 $ ON WARNING THEN CONTINUE
590 $ If (Needs_Opt.eqs."Yes")
592 $ link temp.obj,temp.opt/opt
596 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
597 $ DEASSIGN SYS$OUTPUT
599 $ DEFINE SYS$ERROR TEMPOUT
600 $ DEFINE SYS$OUTPUT TEMPOUT
603 $ DEASSIGN SYS$OUTPUT
605 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
608 $ DELETE/NOLOG [-.uu]tempout.lis;
610 $ perl_doublesize=line
611 $ WRITE_RESULT "doublesize is ''perl_doublesize'"
613 $! Check for long double size
617 $ WS "#include <stdlib.h>
619 $ WS "#include <stdio.h>
622 $ WS "printf(""%d\n"", sizeof(long double));
626 $ DEFINE SYS$ERROR _NLA0:
627 $ DEFINE SYS$OUTPUT _NLA0:
628 $ ON ERROR THEN CONTINUE
629 $ ON WARNING THEN CONTINUE
631 $ teststatus = f$extract(9,1,$status)
632 $ if (teststatus.nes."1")
634 $ perl_longdblsize="0"
635 $ perl_d_longdbl="undef"
637 $ ON ERROR THEN CONTINUE
638 $ ON WARNING THEN CONTINUE
639 $ If (Needs_Opt.eqs."Yes")
641 $ link temp.obj,temp.opt/opt
645 $ teststatus = f$extract(9,1,$status)
646 $ DEASSIGN SYS$OUTPUT
648 $ if (teststatus.nes."1")
650 $ perl_longdblsize="0"
651 $ perl_d_longdbl="undef"
653 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
654 $ DEFINE SYS$ERROR TEMPOUT
655 $ DEFINE SYS$OUTPUT TEMPOUT
658 $ DEASSIGN SYS$OUTPUT
660 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
663 $ DELETE/NOLOG [-.uu]tempout.lis;
665 $ perl_longdblsize=line
666 $ perl_d_longdbl="define"
669 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
670 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
672 $! Check for long long existance and size
676 $ WS "#include <stdlib.h>
678 $ WS "#include <stdio.h>
681 $ WS "printf(""%d\n"", sizeof(long long));
685 $ DEFINE SYS$ERROR _NLA0:
686 $ DEFINE SYS$OUTPUT _NLA0:
687 $ on error then continue
688 $ on warning then continue
690 $ If (Needs_Opt.eqs."Yes")
692 $ link temp.obj,temp.opt/opt
696 $ teststatus = f$extract(9,1,$status)
697 $ DEASSIGN SYS$OUTPUT
699 $ if (teststatus.nes."1")
701 $ perl_longlongsize="0"
702 $ perl_d_longlong="undef"
704 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
705 $ DEFINE SYS$ERROR TEMPOUT
706 $ DEFINE SYS$OUTPUT TEMPOUT
709 $ DEASSIGN SYS$OUTPUT
711 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
714 $ DELETE/NOLOG [-.uu]tempout.lis;
715 $ perl_longlongsize=line
716 $ perl_d_longlong="define"
718 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
719 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
721 $! Check the prototype for getgid
725 $ WS "#include <stdlib.h>
727 $ WS "#include <stdio.h>
728 $ WS "#include <types.h>
729 $ WS "#include <unistd.h>
736 $ DEFINE SYS$ERROR _NLA0:
737 $ DEFINE SYS$OUTPUT _NLA0:
738 $ on error then continue
739 $ on warning then continue
741 $ teststatus = f$extract(9,1,$status)
742 $ DEASSIGN SYS$OUTPUT
744 $ if (teststatus.nes."1")
746 $! Okay, gid_t failed. Must be unsigned int
747 $ perl_gidtype = "unsigned int"
749 $ perl_gidtype = "gid_t"
751 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
753 $! Check to see if we've got dev_t
757 $ WS "#include <stdlib.h>
759 $ WS "#include <stdio.h>
760 $ WS "#include <types.h>
761 $ WS "#include <unistd.h>
768 $ DEFINE SYS$ERROR _NLA0:
769 $ DEFINE SYS$OUTPUT _NLA0:
770 $ on error then continue
771 $ on warning then continue
773 $ teststatus = f$extract(9,1,$status)
774 $ DEASSIGN SYS$OUTPUT
776 $ if (teststatus.nes."1")
778 $! Okay, dev_t failed. Must be unsigned int
779 $ perl_devtype = "unsigned int"
781 $ perl_devtype = "dev_t"
783 $ WRITE_RESULT "Dev_t is ''perl_devtype'"
785 $! Check to see if we've got unistd.h (which we ought to, but you never know)
789 $ WS "#include <stdlib.h>
791 $ WS "#include <unistd.h>
797 $ DEFINE SYS$ERROR _NLA0:
798 $ DEFINE SYS$OUTPUT _NLA0:
799 $ on error then continue
800 $ on warning then continue
802 $ teststatus = f$extract(9,1,$status)
803 $ DEASSIGN SYS$OUTPUT
805 $ if (teststatus.nes."1")
807 $! Okay, failed. Must not have it
808 $ perl_i_unistd = "undef"
810 $ perl_i_unistd = "define"
813 $ WRITE_RESULT "i_unistd is ''perl_i_unistd'"
815 $! Check to see if we've got shadow.h (probably not, but...)
819 $ WS "#include <stdlib.h>
821 $ WS "#include <shadow.h>
827 $ DEFINE SYS$ERROR _NLA0:
828 $ DEFINE SYS$OUTPUT _NLA0:
829 $ on error then continue
830 $ on warning then continue
832 $ teststatus = f$extract(9,1,$status)
833 $ DEASSIGN SYS$OUTPUT
835 $ if (teststatus.nes."1")
837 $! Okay, failed. Must not have it
838 $ perl_i_shadow = "undef"
840 $ perl_i_shadow = "define"
843 $ WRITE_RESULT "i_shadow is ''perl_i_shadow'"
845 $! Check to see if we've got socks.h (probably not, but...)
849 $ WS "#include <stdlib.h>
851 $ WS "#include <socks.h>
857 $ DEFINE SYS$ERROR _NLA0:
858 $ DEFINE SYS$OUTPUT _NLA0:
859 $ on error then continue
860 $ on warning then continue
862 $ teststatus = f$extract(9,1,$status)
863 $ DEASSIGN SYS$OUTPUT
865 $ if (teststatus.nes."1")
867 $! Okay, failed. Must not have it
868 $ perl_i_socks = "undef"
870 $ perl_i_socks = "define"
873 $ WRITE_RESULT "i_socks is ''perl_i_socks'"
875 $! Check the prototype for select
877 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
881 $ WS "#include <stdlib.h>
883 $ WS "#include <stdio.h>
884 $ WS "#include <types.h>
885 $ WS "#include <unistd.h>
886 $ if ("''Has_Socketshr'".eqs."T")
888 $ WS "#include <socketshr.h>"
890 $ WS "#include <time.h>
891 $ WS "#include <socket.h>
898 $ WS "bar = select(2, foo, foo, foo, NULL);
902 $ DEFINE SYS$ERROR _NLA0:
903 $ DEFINE SYS$OUTPUT _NLA0:
904 $ on error then continue
905 $ on warning then continue
907 $ teststatus = f$extract(9,1,$status)
908 $ DEASSIGN SYS$OUTPUT
910 $ if (teststatus.nes."1")
912 $! Okay, fd_set failed. Must be an int
913 $ perl_selecttype = "int *"
915 $ perl_selecttype="fd_set *"
918 $ ! No sockets, so stick in an int *
919 $ perl_selecttype = "int *"
921 $ WRITE_RESULT "selectype is ''perl_selecttype'"
923 $! Check to see if fd_set exists
927 $ WS "#include <stdlib.h>
929 $ WS "#include <stdio.h>
930 $ WS "#include <types.h>
931 $ WS "#include <unistd.h>
932 $ if ("''Has_Socketshr'".eqs."T")
934 $ WS "#include <socketshr.h>"
936 $ IF ("''Has_Dec_C_Sockets'".eqs."T")
938 $ WS "#include <time.h>
939 $ WS "#include <socket.h>
948 $ DEFINE SYS$ERROR _NLA0:
949 $ DEFINE SYS$OUTPUT _NLA0:
950 $ on error then continue
951 $ on warning then continue
953 $ teststatus = f$extract(9,1,$status)
954 $ DEASSIGN SYS$OUTPUT
956 $ if (teststatus.nes."1")
958 $! Okay, fd_set failed. Must not exist
959 $ perl_d_fd_set = "undef"
961 $ perl_d_fd_set="define"
963 $ WRITE_RESULT "d_fd_set is ''perl_d_fd_set'"
965 $! Check for inttypes.h
969 $ WS "#include <stdlib.h>
971 $ WS "#include <stdio.h>
972 $ WS "#include <unistd.h>
973 $ WS "#include <inttypes.h>
979 $ DEFINE SYS$ERROR _NLA0:
980 $ DEFINE SYS$OUTPUT _NLA0:
981 $ on error then continue
982 $ on warning then continue
984 $ savedstatus = $status
985 $ teststatus = f$extract(9,1,savedstatus)
986 $ if (teststatus.nes."1")
988 $ perl_i_inttypes="undef"
989 $ DEASSIGN SYS$OUTPUT
992 $ If (Needs_Opt.eqs."Yes")
994 $ link temp.obj,temp.opt/opt
998 $ savedstatus = $status
999 $ teststatus = f$extract(9,1,savedstatus)
1000 $ DEASSIGN SYS$OUTPUT
1001 $ DEASSIGN SYS$ERROR
1002 $ if (teststatus.nes."1")
1004 $ perl_i_inttypes="undef"
1006 $ perl_i_inttypes="define"
1009 $ WRITE_RESULT "i_inttypes is ''perl_i_inttypes'"
1011 $! Check to see if int64_t exists
1015 $ WS "#include <stdlib.h>
1017 $ WS "#include <stdio.h>
1018 $ WS "#include <types.h>
1019 $ WS "#''perl_i_inttypes IIH
1021 $ WS "#include <inttypes.h>
1023 $ WS "#include <unistd.h>
1030 $ DEFINE SYS$ERROR _NLA0:
1031 $ DEFINE SYS$OUTPUT _NLA0:
1032 $ on error then continue
1033 $ on warning then continue
1035 $ teststatus = f$extract(9,1,$status)
1036 $ DEASSIGN SYS$OUTPUT
1037 $ DEASSIGN SYS$ERROR
1038 $ if (teststatus.nes."1")
1040 $! Okay, int64_t failed. Must not exist
1041 $ perl_d_int64t = "undef"
1043 $ perl_d_int64t="define"
1045 $ WRITE_RESULT "d_int64t is ''perl_d_int64t'"
1047 $! Check to see if off64_t exists
1051 $ WS "#include <stdlib.h>
1053 $ WS "#include <stdio.h>
1054 $ WS "#include <types.h>
1055 $ WS "#''perl_i_inttypes IIH
1057 $ WS "#include <inttypes.h>
1059 $ WS "#include <unistd.h>
1066 $ DEFINE SYS$ERROR _NLA0:
1067 $ DEFINE SYS$OUTPUT _NLA0:
1068 $ on error then continue
1069 $ on warning then continue
1071 $ teststatus = f$extract(9,1,$status)
1072 $ DEASSIGN SYS$OUTPUT
1073 $ DEASSIGN SYS$ERROR
1074 $ if (teststatus.nes."1")
1076 $! Okay, off64_t failed. Must not exist
1077 $ perl_d_off64_t = "undef"
1079 $ perl_d_off64_t="define"
1081 $ WRITE_RESULT "d_off64_t is ''perl_d_off64_t'"
1083 $! Check to see if fpos64_t exists
1087 $ WS "#include <stdlib.h>
1089 $ WS "#include <stdio.h>
1090 $ WS "#include <types.h>
1091 $ WS "#''perl_i_inttypes IIH
1093 $ WS "#include <inttypes.h>
1095 $ WS "#include <unistd.h>
1102 $ DEFINE SYS$ERROR _NLA0:
1103 $ DEFINE SYS$OUTPUT _NLA0:
1104 $ on error then continue
1105 $ on warning then continue
1107 $ teststatus = f$extract(9,1,$status)
1108 $ DEASSIGN SYS$OUTPUT
1109 $ DEASSIGN SYS$ERROR
1110 $ if (teststatus.nes."1")
1112 $! Okay, fpos64_t failed. Must not exist
1113 $ perl_d_fpos64_t = "undef"
1115 $ perl_d_fpos64_t="define"
1117 $ WRITE_RESULT "d_fpos64_t is ''perl_d_fpos64_t'"
1119 $! Check to see if gethostname exists
1121 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1125 $ WS "#include <stdlib.h>
1127 $ WS "#include <stdio.h>
1128 $ WS "#include <types.h>
1129 $ WS "#include <unistd.h>
1130 $ if ("''Has_Socketshr'".eqs."T")
1132 $ WS "#include <socketshr.h>"
1134 $ WS "#include <time.h>
1135 $ WS "#include <socket.h>
1139 $ WS "char name[100];
1142 $ WS "baz = gethostname(name, bar);
1146 $ DEFINE SYS$ERROR _NLA0:
1147 $ DEFINE SYS$OUTPUT _NLA0:
1148 $ on error then continue
1149 $ on warning then continue
1151 $ teststatus = f$extract(9,1,$status)
1152 $ DEASSIGN SYS$OUTPUT
1153 $ DEASSIGN SYS$ERROR
1154 $ if (teststatus.nes."1")
1156 $! Okay, compile failed. Must not have it
1157 $ perl_dgethname = "undef"
1159 $ If (Needs_Opt.eqs."Yes")
1161 $ link temp.obj,temp.opt/opt
1165 $ savedstatus = $status
1166 $ teststatus = f$extract(9,1,savedstatus)
1167 $ if (teststatus.nes."1")
1169 $ perl_d_gethname="undef"
1171 $ perl_d_gethname="define"
1175 $ ! No sockets, so no gethname
1176 $ perl_d_gethname = "undef"
1178 $ WRITE_RESULT "d_gethname is ''perl_d_gethname'"
1180 $! Check for sys/file.h
1184 $ WS "#include <stdlib.h>
1186 $ WS "#include <stdio.h>
1187 $ WS "#include <unistd.h>
1188 $ WS "#include <sys/file.h>
1194 $ DEFINE SYS$ERROR _NLA0:
1195 $ DEFINE SYS$OUTPUT _NLA0:
1196 $ on error then continue
1197 $ on warning then continue
1199 $ savedstatus = $status
1200 $ teststatus = f$extract(9,1,savedstatus)
1201 $ if (teststatus.nes."1")
1203 $ perl_i_sysfile="undef"
1204 $ DEASSIGN SYS$OUTPUT
1205 $ DEASSIGN SYS$ERROR
1207 $ If (Needs_Opt.eqs."Yes")
1209 $ link temp.obj,temp.opt/opt
1213 $ savedstatus = $status
1214 $ teststatus = f$extract(9,1,savedstatus)
1215 $ DEASSIGN SYS$OUTPUT
1216 $ DEASSIGN SYS$ERROR
1217 $ if (teststatus.nes."1")
1219 $ perl_i_sysfile="undef"
1221 $ perl_i_sysfile="define"
1224 $ WRITE_RESULT "i_sysfile is ''perl_i_sysfile'"
1230 $ WS "#include <stdlib.h>
1232 $ WS "#include <stdio.h>
1233 $ WS "#include <unistd.h>
1234 $ WS "#include <poll.h>
1240 $ DEFINE SYS$ERROR _NLA0:
1241 $ DEFINE SYS$OUTPUT _NLA0:
1242 $ on error then continue
1243 $ on warning then continue
1245 $ savedstatus = $status
1246 $ teststatus = f$extract(9,1,savedstatus)
1247 $ if (teststatus.nes."1")
1249 $ perl_i_poll="undef"
1250 $ DEASSIGN SYS$OUTPUT
1251 $ DEASSIGN SYS$ERROR
1253 $ If (Needs_Opt.eqs."Yes")
1255 $ link temp.obj,temp.opt/opt
1259 $ savedstatus = $status
1260 $ teststatus = f$extract(9,1,savedstatus)
1261 $ DEASSIGN SYS$OUTPUT
1262 $ DEASSIGN SYS$ERROR
1263 $ if (teststatus.nes."1")
1265 $ perl_i_poll="undef"
1267 $ perl_i_poll="define"
1270 $ WRITE_RESULT "i_poll is ''perl_i_poll'"
1272 $! Check for sys/uio.h
1276 $ WS "#include <stdlib.h>
1278 $ WS "#include <stdio.h>
1279 $ WS "#include <unistd.h>
1280 $ WS "#include <sys/uio.h>
1286 $ DEFINE SYS$ERROR _NLA0:
1287 $ DEFINE SYS$OUTPUT _NLA0:
1288 $ on error then continue
1289 $ on warning then continue
1291 $ savedstatus = $status
1292 $ teststatus = f$extract(9,1,savedstatus)
1293 $ if (teststatus.nes."1")
1295 $ perl_i_sysuio="undef"
1296 $ DEASSIGN SYS$OUTPUT
1297 $ DEASSIGN SYS$ERROR
1299 $ If (Needs_Opt.eqs."Yes")
1301 $ link temp.obj,temp.opt/opt
1305 $ savedstatus = $status
1306 $ teststatus = f$extract(9,1,savedstatus)
1307 $ DEASSIGN SYS$OUTPUT
1308 $ DEASSIGN SYS$ERROR
1309 $ if (teststatus.nes."1")
1311 $ perl_i_sysuio="undef"
1313 $ perl_i_sysuio="define"
1316 $ WRITE_RESULT "i_sysuio is ''perl_i_sysuio'"
1318 $! Check for sys/access.h
1322 $ WS "#include <stdlib.h>
1324 $ WS "#include <stdio.h>
1325 $ WS "#include <unistd.h>
1326 $ WS "#include <sys/access.h>
1332 $ DEFINE SYS$ERROR _NLA0:
1333 $ DEFINE SYS$OUTPUT _NLA0:
1334 $ on error then continue
1335 $ on warning then continue
1337 $ savedstatus = $status
1338 $ teststatus = f$extract(9,1,savedstatus)
1339 $ if (teststatus.nes."1")
1341 $ perl_i_sysaccess="undef"
1342 $ DEASSIGN SYS$OUTPUT
1343 $ DEASSIGN SYS$ERROR
1345 $ If (Needs_Opt.eqs."Yes")
1347 $ link temp.obj,temp.opt/opt
1351 $ savedstatus = $status
1352 $ teststatus = f$extract(9,1,savedstatus)
1353 $ DEASSIGN SYS$OUTPUT
1354 $ DEASSIGN SYS$ERROR
1355 $ if (teststatus.nes."1")
1357 $ perl_i_sysaccess="undef"
1359 $ perl_i_sysaccess="define"
1362 $ WRITE_RESULT "i_sysaccess is ''perl_i_sysaccess'"
1364 $! Check for sys/security.h
1368 $ WS "#include <stdlib.h>
1370 $ WS "#include <stdio.h>
1371 $ WS "#include <unistd.h>
1372 $ WS "#include <sys/security.h>
1378 $ DEFINE SYS$ERROR _NLA0:
1379 $ DEFINE SYS$OUTPUT _NLA0:
1380 $ on error then continue
1381 $ on warning then continue
1383 $ savedstatus = $status
1384 $ teststatus = f$extract(9,1,savedstatus)
1385 $ if (teststatus.nes."1")
1387 $ perl_i_syssecrt="undef"
1388 $ DEASSIGN SYS$OUTPUT
1389 $ DEASSIGN SYS$ERROR
1391 $ If (Needs_Opt.eqs."Yes")
1393 $ link temp.obj,temp.opt/opt
1397 $ savedstatus = $status
1398 $ teststatus = f$extract(9,1,savedstatus)
1399 $ DEASSIGN SYS$OUTPUT
1400 $ DEASSIGN SYS$ERROR
1401 $ if (teststatus.nes."1")
1403 $ perl_i_syssecrt="undef"
1405 $ perl_i_syssecrt="define"
1408 $ WRITE_RESULT "i_syssecrt is ''perl_i_syssecrt'"
1410 $! Check for fcntl.h
1414 $ WS "#include <stdlib.h>
1416 $ WS "#include <stdio.h>
1417 $ WS "#include <unistd.h>
1418 $ WS "#include <fcntl.h>
1424 $ DEFINE SYS$ERROR _NLA0:
1425 $ DEFINE SYS$OUTPUT _NLA0:
1426 $ on error then continue
1427 $ on warning then continue
1429 $ savedstatus = $status
1430 $ teststatus = f$extract(9,1,savedstatus)
1431 $ if (teststatus.nes."1")
1433 $ perl_i_fcntl="undef"
1434 $ DEASSIGN SYS$OUTPUT
1435 $ DEASSIGN SYS$ERROR
1437 $ If (Needs_Opt.eqs."Yes")
1439 $ link temp.obj,temp.opt/opt
1443 $ savedstatus = $status
1444 $ teststatus = f$extract(9,1,savedstatus)
1445 $ DEASSIGN SYS$OUTPUT
1446 $ DEASSIGN SYS$ERROR
1447 $ if (teststatus.nes."1")
1449 $ perl_i_fcntl="undef"
1451 $ perl_i_fcntl="define"
1454 $ WRITE_RESULT "i_fcntl is ''perl_i_fcntl'"
1460 $ WS "#include <stdlib.h>
1462 $ WS "#include <stdio.h>
1463 $ WS "#include <unistd.h>
1464 $ WS "#include <fcntl.h>
1471 $ DEFINE SYS$ERROR _NLA0:
1472 $ DEFINE SYS$OUTPUT _NLA0:
1473 $ on error then continue
1474 $ on warning then continue
1476 $ savedstatus = $status
1477 $ teststatus = f$extract(9,1,savedstatus)
1478 $ if (teststatus.nes."1")
1480 $ perl_d_fcntl="undef"
1481 $ DEASSIGN SYS$OUTPUT
1482 $ DEASSIGN SYS$ERROR
1484 $ If (Needs_Opt.eqs."Yes")
1486 $ link temp.obj,temp.opt/opt
1490 $ savedstatus = $status
1491 $ teststatus = f$extract(9,1,savedstatus)
1492 $ DEASSIGN SYS$OUTPUT
1493 $ DEASSIGN SYS$ERROR
1494 $ if (teststatus.nes."1")
1496 $ perl_d_fcntl="undef"
1498 $ perl_d_fcntl="define"
1501 $ WRITE_RESULT "d_fcntl is ''perl_d_fcntl'"
1507 $ WS "#include <stdlib.h>
1509 $ WS "#include <string.h>
1513 $ WS "place = memchr(""foo"", 47, 3)
1517 $ DEFINE SYS$ERROR _NLA0:
1518 $ DEFINE SYS$OUTPUT _NLA0:
1519 $ on error then continue
1520 $ on warning then continue
1522 $ savedstatus = $status
1523 $ teststatus = f$extract(9,1,savedstatus)
1524 $ if (teststatus.nes."1")
1526 $ perl_d_memchr="undef"
1527 $ DEASSIGN SYS$OUTPUT
1528 $ DEASSIGN SYS$ERROR
1530 $ If (Needs_Opt.eqs."Yes")
1532 $ link temp.obj,temp.opt/opt
1536 $ savedstatus = $status
1537 $ teststatus = f$extract(9,1,savedstatus)
1538 $ DEASSIGN SYS$OUTPUT
1539 $ DEASSIGN SYS$ERROR
1540 $ if (teststatus.nes."1")
1542 $ perl_d_memchr="undef"
1544 $ perl_d_memchr="define"
1547 $ WRITE_RESULT "d_memchr is ''perl_d_memchr'"
1549 $! Check for strtoull
1553 $ WS "#include <stdlib.h>
1555 $ WS "#include <string.h>
1558 $ WS "unsigned __int64 result;
1559 $ WS "result = strtoull(""123123"", NULL, 10);
1563 $ DEFINE SYS$ERROR _NLA0:
1564 $ DEFINE SYS$OUTPUT _NLA0:
1565 $ on error then continue
1566 $ on warning then continue
1568 $ savedstatus = $status
1569 $ teststatus = f$extract(9,1,savedstatus)
1570 $ if (teststatus.nes."1")
1572 $ perl_d_strtoull="undef"
1573 $ DEASSIGN SYS$OUTPUT
1574 $ DEASSIGN SYS$ERROR
1576 $ If (Needs_Opt.eqs."Yes")
1578 $ link temp.obj,temp.opt/opt
1582 $ savedstatus = $status
1583 $ teststatus = f$extract(9,1,savedstatus)
1584 $ DEASSIGN SYS$OUTPUT
1585 $ DEASSIGN SYS$ERROR
1586 $ if (teststatus.nes."1")
1588 $ perl_d_strtoull="undef"
1590 $ perl_d_strtoull="define"
1593 $ WRITE_RESULT "d_strtoull is ''perl_d_strtoull'"
1595 $! Check for strtouq
1599 $ WS "#include <stdlib.h>
1601 $ WS "#include <string.h>
1604 $ WS "unsigned __int64 result;
1605 $ WS "result = strtouq(""123123"", NULL, 10);
1609 $ DEFINE SYS$ERROR _NLA0:
1610 $ DEFINE SYS$OUTPUT _NLA0:
1611 $ on error then continue
1612 $ on warning then continue
1614 $ savedstatus = $status
1615 $ teststatus = f$extract(9,1,savedstatus)
1616 $ if (teststatus.nes."1")
1618 $ perl_d_strtouq="undef"
1619 $ DEASSIGN SYS$OUTPUT
1620 $ DEASSIGN SYS$ERROR
1622 $ If (Needs_Opt.eqs."Yes")
1624 $ link temp.obj,temp.opt/opt
1628 $ savedstatus = $status
1629 $ teststatus = f$extract(9,1,savedstatus)
1630 $ DEASSIGN SYS$OUTPUT
1631 $ DEASSIGN SYS$ERROR
1632 $ if (teststatus.nes."1")
1634 $ perl_d_strtouq="undef"
1636 $ perl_d_strtouq="define"
1639 $ WRITE_RESULT "d_strtouq is ''perl_d_strtouq'"
1641 $! Check for strtoll
1645 $ WS "#include <stdlib.h>
1647 $ WS "#include <string.h>
1650 $ WS "__int64 result;
1651 $ WS "result = strtoll(""123123"", NULL, 10);
1655 $ DEFINE SYS$ERROR _NLA0:
1656 $ DEFINE SYS$OUTPUT _NLA0:
1657 $ on error then continue
1658 $ on warning then continue
1660 $ savedstatus = $status
1661 $ teststatus = f$extract(9,1,savedstatus)
1662 $ if (teststatus.nes."1")
1664 $ perl_d_strtoll="undef"
1665 $ DEASSIGN SYS$OUTPUT
1666 $ DEASSIGN SYS$ERROR
1668 $ If (Needs_Opt.eqs."Yes")
1670 $ link temp.obj,temp.opt/opt
1674 $ savedstatus = $status
1675 $ teststatus = f$extract(9,1,savedstatus)
1676 $ DEASSIGN SYS$OUTPUT
1677 $ DEASSIGN SYS$ERROR
1678 $ if (teststatus.nes."1")
1680 $ perl_d_strtoll="undef"
1682 $ perl_d_strtoll="define"
1685 $ WRITE_RESULT "d_strtoll is ''perl_d_strtoll'"
1687 $! Check for strtold
1691 $ WS "#include <stdlib.h>
1693 $ WS "#include <string.h>
1696 $ WS "long double result;
1697 $ WS "result = strtold(""123123"", NULL, 10);
1701 $ DEFINE SYS$ERROR _NLA0:
1702 $ DEFINE SYS$OUTPUT _NLA0:
1703 $ on error then continue
1704 $ on warning then continue
1706 $ savedstatus = $status
1707 $ teststatus = f$extract(9,1,savedstatus)
1708 $ if (teststatus.nes."1")
1710 $ perl_d_strtold="undef"
1711 $ DEASSIGN SYS$OUTPUT
1712 $ DEASSIGN SYS$ERROR
1714 $ If (Needs_Opt.eqs."Yes")
1716 $ link temp.obj,temp.opt/opt
1720 $ savedstatus = $status
1721 $ teststatus = f$extract(9,1,savedstatus)
1722 $ DEASSIGN SYS$OUTPUT
1723 $ DEASSIGN SYS$ERROR
1724 $ if (teststatus.nes."1")
1726 $ perl_d_strtold="undef"
1728 $ perl_d_strtold="define"
1731 $ WRITE_RESULT "d_strtold is ''perl_d_strtold'"
1737 $ WS "#include <stdlib.h>
1739 $ WS "#include <string.h>
1742 $ WS " __int64 result;
1743 $ WS "result = atoll(""123123"");
1747 $ DEFINE SYS$ERROR _NLA0:
1748 $ DEFINE SYS$OUTPUT _NLA0:
1749 $ on error then continue
1750 $ on warning then continue
1752 $ savedstatus = $status
1753 $ teststatus = f$extract(9,1,savedstatus)
1754 $ if (teststatus.nes."1")
1756 $ perl_d_atoll="undef"
1757 $ DEASSIGN SYS$OUTPUT
1758 $ DEASSIGN SYS$ERROR
1760 $ If (Needs_Opt.eqs."Yes")
1762 $ link temp.obj,temp.opt/opt
1766 $ savedstatus = $status
1767 $ teststatus = f$extract(9,1,savedstatus)
1768 $ DEASSIGN SYS$OUTPUT
1769 $ DEASSIGN SYS$ERROR
1770 $ if (teststatus.nes."1")
1772 $ perl_d_atoll="undef"
1774 $ perl_d_atoll="define"
1777 $ WRITE_RESULT "d_atoll is ''perl_d_atoll'"
1783 $ WS "#include <stdlib.h>
1785 $ WS "#include <string.h>
1789 $ WS "result = atolf(""123123"");
1793 $ DEFINE SYS$ERROR _NLA0:
1794 $ DEFINE SYS$OUTPUT _NLA0:
1795 $ on error then continue
1796 $ on warning then continue
1798 $ savedstatus = $status
1799 $ teststatus = f$extract(9,1,savedstatus)
1800 $ if (teststatus.nes."1")
1802 $ perl_d_atolf="undef"
1803 $ DEASSIGN SYS$OUTPUT
1804 $ DEASSIGN SYS$ERROR
1806 $ If (Needs_Opt.eqs."Yes")
1808 $ link temp.obj,temp.opt/opt
1812 $ savedstatus = $status
1813 $ teststatus = f$extract(9,1,savedstatus)
1814 $ DEASSIGN SYS$OUTPUT
1815 $ DEASSIGN SYS$ERROR
1816 $ if (teststatus.nes."1")
1818 $ perl_d_atolf="undef"
1820 $ perl_d_atolf="define"
1823 $ WRITE_RESULT "d_atolf is ''perl_d_atolf'"
1829 $ WS "#include <stdlib.h>
1831 $ WS "#include <stdio.h>
1832 $ WS "#include <unistd.h>
1835 $ WS "access("foo", F_OK);
1839 $ DEFINE SYS$ERROR _NLA0:
1840 $ DEFINE SYS$OUTPUT _NLA0:
1841 $ on error then continue
1842 $ on warning then continue
1844 $ savedstatus = $status
1845 $ teststatus = f$extract(9,1,savedstatus)
1846 $ if (teststatus.nes."1")
1848 $ perl_d_access="undef"
1849 $ DEASSIGN SYS$OUTPUT
1850 $ DEASSIGN SYS$ERROR
1852 $ If (Needs_Opt.eqs."Yes")
1854 $ link temp.obj,temp.opt/opt
1858 $ savedstatus = $status
1859 $ teststatus = f$extract(9,1,savedstatus)
1860 $ DEASSIGN SYS$OUTPUT
1861 $ DEASSIGN SYS$ERROR
1862 $ if (teststatus.nes."1")
1864 $ perl_d_access="undef"
1866 $ perl_d_access="define"
1869 $ WRITE_RESULT "d_access is ''perl_d_access'"
1875 $ WS "#include <stdlib.h>
1877 $ WS "#include <stdio.h>
1878 $ WS "#include <strings.h>
1882 $ WS "bzero(foo, 10);
1886 $ DEFINE SYS$ERROR _NLA0:
1887 $ DEFINE SYS$OUTPUT _NLA0:
1888 $ on error then continue
1889 $ on warning then continue
1891 $ savedstatus = $status
1892 $ teststatus = f$extract(9,1,savedstatus)
1893 $ if (teststatus.nes."1")
1895 $ perl_d_bzero="undef"
1896 $ DEASSIGN SYS$OUTPUT
1897 $ DEASSIGN SYS$ERROR
1899 $ If (Needs_Opt.eqs."Yes")
1901 $ link temp.obj,temp.opt/opt
1905 $ savedstatus = $status
1906 $ teststatus = f$extract(9,1,savedstatus)
1907 $ DEASSIGN SYS$OUTPUT
1908 $ DEASSIGN SYS$ERROR
1909 $ if (teststatus.nes."1")
1911 $ perl_d_bzero="undef"
1913 $ perl_d_bzero="define"
1916 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
1922 $ WS "#include <stdlib.h>
1924 $ WS "#include <stdio.h>
1925 $ WS "#include <strings.h>
1928 $ WS "char foo[10], bar[10];
1929 $ WS "bcopy(""foo"", bar, 3);
1933 $ DEFINE SYS$ERROR _NLA0:
1934 $ DEFINE SYS$OUTPUT _NLA0:
1935 $ on error then continue
1936 $ on warning then continue
1938 $ savedstatus = $status
1939 $ teststatus = f$extract(9,1,savedstatus)
1940 $ if (teststatus.nes."1")
1942 $ perl_d_bcopy="undef"
1943 $ DEASSIGN SYS$OUTPUT
1944 $ DEASSIGN SYS$ERROR
1946 $ If (Needs_Opt.eqs."Yes")
1948 $ link temp.obj,temp.opt/opt
1952 $ savedstatus = $status
1953 $ teststatus = f$extract(9,1,savedstatus)
1954 $ DEASSIGN SYS$OUTPUT
1955 $ DEASSIGN SYS$ERROR
1956 $ if (teststatus.nes."1")
1958 $ perl_d_bcopy="undef"
1960 $ perl_d_bcopy="define"
1963 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
1965 $! Check for mkstemp
1969 $ WS "#include <stdlib.h>
1971 $ WS "#include <stdio.h>
1974 $ WS "mkstemp(""foo"");
1978 $ DEFINE SYS$ERROR _NLA0:
1979 $ DEFINE SYS$OUTPUT _NLA0:
1980 $ on error then continue
1981 $ on warning then continue
1983 $ If (Needs_Opt.eqs."Yes")
1985 $ link temp.obj,temp.opt/opt
1989 $ savedstatus = $status
1990 $ teststatus = f$extract(9,1,savedstatus)
1991 $ DEASSIGN SYS$OUTPUT
1992 $ DEASSIGN SYS$ERROR
1993 $ if (teststatus.nes."1")
1995 $ perl_d_mkstemp="undef"
1997 $ perl_d_mkstemp="define"
1999 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
2001 $! Check for setvbuf
2005 $ WS "#include <stdlib.h>
2007 $ WS "#include <stdio.h>
2011 $ WS "char Buffer[99];
2012 $ WS "foo = fopen(""foo"", ""r"");
2013 $ WS "setvbuf(foo, Buffer, 0, 0);
2017 $ DEFINE SYS$ERROR _NLA0:
2018 $ DEFINE SYS$OUTPUT _NLA0:
2019 $ on error then continue
2020 $ on warning then continue
2022 $ If (Needs_Opt.eqs."Yes")
2024 $ link temp.obj,temp.opt/opt
2028 $ teststatus = f$extract(9,1,$status)
2029 $ DEASSIGN SYS$OUTPUT
2030 $ DEASSIGN SYS$ERROR
2031 $ if (teststatus.nes."1")
2033 $ perl_d_setvbuf="undef"
2035 $ perl_d_setvbuf="define"
2037 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
2043 $ WS "#include <stdlib.h>
2045 $ WS "#include <stdio.h>
2048 $ WS "setenv(""FOO"", ""BAR"", 0);
2052 $ DEFINE SYS$ERROR _NLA0:
2053 $ DEFINE SYS$OUTPUT _NLA0:
2054 $ on error then continue
2055 $ on warning then continue
2057 $ If (Needs_Opt.eqs."Yes")
2059 $ link temp,temp/opt
2063 $ teststatus = f$extract(9,1,$status)
2064 $ DEASSIGN SYS$OUTPUT
2065 $ DEASSIGN SYS$ERROR
2066 $ if (teststatus.nes."1")
2068 $ perl_d_setenv="undef"
2070 $ perl_d_setenv="define"
2072 $ WRITE_RESULT "d_setenv is ''perl_d_setenv'"
2074 $! Check for <netinet/in.h>
2076 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2080 $ WS "#include <stdlib.h>
2082 $ WS "#include <stdio.h>
2083 $ if ("''Has_Socketshr'".eqs."T")
2085 $ WS "#include <socketshr.h>"
2087 $ WS "#include <netdb.h>
2089 $ WS "#include <netinet/in.h>"
2095 $ DEFINE SYS$ERROR _NLA0:
2096 $ DEFINE SYS$OUTPUT _NLA0:
2097 $ on error then continue
2098 $ on warning then continue
2100 $ If (Needs_Opt.eqs."Yes")
2102 $ link temp.obj,temp.opt/opt
2106 $ teststatus = f$extract(9,1,$status)
2107 $ DEASSIGN SYS$OUTPUT
2108 $ DEASSIGN SYS$ERROR
2109 $ if (teststatus.nes."1")
2111 $ perl_i_niin="undef"
2113 $ perl_i_niin="define"
2116 $ perl_i_niin="undef"
2118 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
2120 $! Check for <netinet/tcp.h>
2122 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2126 $ WS "#include <stdlib.h>
2128 $ WS "#include <stdio.h>
2129 $ if ("''Has_Socketshr'".eqs."T")
2131 $ WS "#include <socketshr.h>"
2133 $ WS "#include <netdb.h>
2135 $ WS "#include <netinet/tcp.h>"
2141 $ DEFINE SYS$ERROR _NLA0:
2142 $ DEFINE SYS$OUTPUT _NLA0:
2143 $ on error then continue
2144 $ on warning then continue
2146 $ If (Needs_Opt.eqs."Yes")
2148 $ link temp.obj,temp.opt/opt
2152 $ teststatus = f$extract(9,1,$status)
2153 $ DEASSIGN SYS$OUTPUT
2154 $ DEASSIGN SYS$ERROR
2155 $ if (teststatus.nes."1")
2157 $ perl_i_netinettcp="undef"
2159 $ perl_i_netinettcp="define"
2162 $ perl_i_netinettcp="undef"
2164 $ WRITE_RESULT "i_netinettcp is ''perl_i_netinettcp'"
2166 $! Check for endhostent
2168 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2172 $ WS "#include <stdlib.h>
2174 $ WS "#include <stdio.h>
2175 $ if ("''Has_Socketshr'".eqs."T")
2177 $ WS "#include <socketshr.h>"
2179 $ WS "#include <netdb.h>
2187 $ DEFINE SYS$ERROR _NLA0:
2188 $ DEFINE SYS$OUTPUT _NLA0:
2189 $ on error then continue
2190 $ on warning then continue
2192 $ If (Needs_Opt.eqs."Yes")
2194 $ link temp.obj,temp.opt/opt
2198 $ teststatus = f$extract(9,1,$status)
2199 $ DEASSIGN SYS$OUTPUT
2200 $ DEASSIGN SYS$ERROR
2201 $ if (teststatus.nes."1")
2203 $ perl_d_endhent="undef"
2205 $ perl_d_endhent="define"
2208 $ perl_d_endhent="undef"
2210 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
2212 $! Check for endnetent
2214 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2218 $ WS "#include <stdlib.h>
2220 $ WS "#include <stdio.h>
2221 $ if ("''Has_Socketshr'".eqs."T")
2223 $ WS "#include <socketshr.h>"
2225 $ WS "#include <netdb.h>
2233 $ DEFINE SYS$ERROR _NLA0:
2234 $ DEFINE SYS$OUTPUT _NLA0:
2235 $ on error then continue
2236 $ on warning then continue
2238 $ If (Needs_Opt.eqs."Yes")
2240 $ link temp.obj,temp.opt/opt
2244 $ teststatus = f$extract(9,1,$status)
2245 $ DEASSIGN SYS$OUTPUT
2246 $ DEASSIGN SYS$ERROR
2247 $ if (teststatus.nes."1")
2249 $ perl_d_endnent="undef"
2251 $ perl_d_endnent="define"
2254 $ perl_d_endnent="undef"
2256 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
2258 $! Check for endprotoent
2260 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2264 $ WS "#include <stdlib.h>
2266 $ WS "#include <stdio.h>
2267 $ if ("''Has_Socketshr'".eqs."T")
2269 $ WS "#include <socketshr.h>"
2271 $ WS "#include <netdb.h>
2275 $ WS "endprotoent();
2279 $ DEFINE SYS$ERROR _NLA0:
2280 $ DEFINE SYS$OUTPUT _NLA0:
2281 $ on error then continue
2282 $ on warning then continue
2284 $ If (Needs_Opt.eqs."Yes")
2286 $ link temp.obj,temp.opt/opt
2290 $ teststatus = f$extract(9,1,$status)
2291 $ DEASSIGN SYS$OUTPUT
2292 $ DEASSIGN SYS$ERROR
2293 $ if (teststatus.nes."1")
2295 $ perl_d_endpent="undef"
2297 $ perl_d_endpent="define"
2300 $ perl_d_endpent="undef"
2302 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
2304 $! Check for endservent
2306 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2310 $ WS "#include <stdlib.h>
2312 $ WS "#include <stdio.h>
2313 $ if ("''Has_Socketshr'".eqs."T")
2315 $ WS "#include <socketshr.h>"
2317 $ WS "#include <netdb.h>
2325 $ DEFINE SYS$ERROR _NLA0:
2326 $ DEFINE SYS$OUTPUT _NLA0:
2327 $ on error then continue
2328 $ on warning then continue
2330 $ If (Needs_Opt.eqs."Yes")
2332 $ link temp.obj,temp.opt/opt
2336 $ teststatus = f$extract(9,1,$status)
2337 $ DEASSIGN SYS$OUTPUT
2338 $ DEASSIGN SYS$ERROR
2339 $ if (teststatus.nes."1")
2341 $ perl_d_endsent="undef"
2343 $ perl_d_endsent="define"
2346 $ perl_d_endsent="undef"
2348 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
2350 $! Check for sethostent
2352 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2356 $ WS "#include <stdlib.h>
2358 $ WS "#include <stdio.h>
2359 $ if ("''Has_Socketshr'".eqs."T")
2361 $ WS "#include <socketshr.h>"
2363 $ WS "#include <netdb.h>
2367 $ WS "sethostent(1);
2371 $ DEFINE SYS$ERROR _NLA0:
2372 $ DEFINE SYS$OUTPUT _NLA0:
2373 $ on error then continue
2374 $ on warning then continue
2376 $ If (Needs_Opt.eqs."Yes")
2378 $ link temp.obj,temp.opt/opt
2382 $ teststatus = f$extract(9,1,$status)
2383 $ DEASSIGN SYS$OUTPUT
2384 $ DEASSIGN SYS$ERROR
2385 $ if (teststatus.nes."1")
2387 $ perl_d_sethent="undef"
2389 $ perl_d_sethent="define"
2392 $ perl_d_sethent="undef"
2394 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
2396 $! Check for setnetent
2398 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2402 $ WS "#include <stdlib.h>
2404 $ WS "#include <stdio.h>
2405 $ if ("''Has_Socketshr'".eqs."T")
2407 $ WS "#include <socketshr.h>"
2409 $ WS "#include <netdb.h>
2417 $ DEFINE SYS$ERROR _NLA0:
2418 $ DEFINE SYS$OUTPUT _NLA0:
2419 $ on error then continue
2420 $ on warning then continue
2422 $ If (Needs_Opt.eqs."Yes")
2424 $ link temp.obj,temp.opt/opt
2428 $ teststatus = f$extract(9,1,$status)
2429 $ DEASSIGN SYS$OUTPUT
2430 $ DEASSIGN SYS$ERROR
2431 $ if (teststatus.nes."1")
2433 $ perl_d_setnent="undef"
2435 $ perl_d_setnent="define"
2438 $ perl_d_setnent="undef"
2440 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
2442 $! Check for setprotoent
2444 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2448 $ WS "#include <stdlib.h>
2450 $ WS "#include <stdio.h>
2451 $ if ("''Has_Socketshr'".eqs."T")
2453 $ WS "#include <socketshr.h>"
2455 $ WS "#include <netdb.h>
2459 $ WS "setprotoent(1);
2463 $ DEFINE SYS$ERROR _NLA0:
2464 $ DEFINE SYS$OUTPUT _NLA0:
2465 $ on error then continue
2466 $ on warning then continue
2468 $ If (Needs_Opt.eqs."Yes")
2470 $ link temp.obj,temp.opt/opt
2474 $ teststatus = f$extract(9,1,$status)
2475 $ DEASSIGN SYS$OUTPUT
2476 $ DEASSIGN SYS$ERROR
2477 $ if (teststatus.nes."1")
2479 $ perl_d_setpent="undef"
2481 $ perl_d_setpent="define"
2484 $ perl_d_setpent="undef"
2486 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
2488 $! Check for setservent
2490 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2494 $ WS "#include <stdlib.h>
2496 $ WS "#include <stdio.h>
2497 $ if ("''Has_Socketshr'".eqs."T")
2499 $ WS "#include <socketshr.h>"
2501 $ WS "#include <netdb.h>
2505 $ WS "setservent(1);
2509 $ DEFINE SYS$ERROR _NLA0:
2510 $ DEFINE SYS$OUTPUT _NLA0:
2511 $ on error then continue
2512 $ on warning then continue
2514 $ If (Needs_Opt.eqs."Yes")
2516 $ link temp.obj,temp.opt/opt
2520 $ teststatus = f$extract(9,1,$status)
2521 $ DEASSIGN SYS$OUTPUT
2522 $ DEASSIGN SYS$ERROR
2523 $ if (teststatus.nes."1")
2525 $ perl_d_setsent="undef"
2527 $ perl_d_setsent="define"
2530 $ perl_d_setsent="undef"
2532 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
2534 $! Check for gethostent
2536 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2540 $ WS "#include <stdlib.h>
2542 $ WS "#include <stdio.h>
2543 $ if ("''Has_Socketshr'".eqs."T")
2545 $ WS "#include <socketshr.h>"
2547 $ WS "#include <netdb.h>
2555 $ DEFINE SYS$ERROR _NLA0:
2556 $ DEFINE SYS$OUTPUT _NLA0:
2557 $ on error then continue
2558 $ on warning then continue
2560 $ If (Needs_Opt.eqs."Yes")
2562 $ link temp.obj,temp.opt/opt
2566 $ teststatus = f$extract(9,1,$status)
2567 $ DEASSIGN SYS$OUTPUT
2568 $ DEASSIGN SYS$ERROR
2569 $ if (teststatus.nes."1")
2571 $ perl_d_gethent="undef"
2573 $ perl_d_gethent="define"
2576 $ perl_d_gethent="undef"
2578 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
2580 $! Check for getnetent
2582 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2586 $ WS "#include <stdlib.h>
2588 $ WS "#include <stdio.h>
2589 $ if ("''Has_Socketshr'".eqs."T")
2591 $ WS "#include <socketshr.h>"
2593 $ WS "#include <netdb.h>
2601 $ DEFINE SYS$ERROR _NLA0:
2602 $ DEFINE SYS$OUTPUT _NLA0:
2603 $ on error then continue
2604 $ on warning then continue
2606 $ If (Needs_Opt.eqs."Yes")
2608 $ link temp.obj,temp.opt/opt
2612 $ teststatus = f$extract(9,1,$status)
2613 $ DEASSIGN SYS$OUTPUT
2614 $ DEASSIGN SYS$ERROR
2615 $ if (teststatus.nes."1")
2617 $ perl_d_getnent="undef"
2619 $ perl_d_getnent="define"
2622 $ perl_d_getnent="undef"
2624 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
2626 $! Check for getprotoent
2628 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2632 $ WS "#include <stdlib.h>
2634 $ WS "#include <stdio.h>
2635 $ if ("''Has_Socketshr'".eqs."T")
2637 $ WS "#include <socketshr.h>"
2639 $ WS "#include <netdb.h>
2643 $ WS "getprotoent();
2647 $ DEFINE SYS$ERROR _NLA0:
2648 $ DEFINE SYS$OUTPUT _NLA0:
2649 $ on error then continue
2650 $ on warning then continue
2652 $ If (Needs_Opt.eqs."Yes")
2654 $ link temp.obj,temp.opt/opt
2658 $ teststatus = f$extract(9,1,$status)
2659 $ DEASSIGN SYS$OUTPUT
2660 $ DEASSIGN SYS$ERROR
2661 $ if (teststatus.nes."1")
2663 $ perl_d_getpent="undef"
2665 $ perl_d_getpent="define"
2668 $ perl_d_getpent="undef"
2670 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
2672 $! Check for getservent
2674 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2678 $ WS "#include <stdlib.h>
2680 $ WS "#include <stdio.h>
2681 $ if ("''Has_Socketshr'".eqs."T")
2683 $ WS "#include <socketshr.h>"
2685 $ WS "#include <netdb.h>
2693 $ DEFINE SYS$ERROR _NLA0:
2694 $ DEFINE SYS$OUTPUT _NLA0:
2695 $ on error then continue
2696 $ on warning then continue
2698 $ If (Needs_Opt.eqs."Yes")
2700 $ link temp.obj,temp.opt/opt
2704 $ teststatus = f$extract(9,1,$status)
2705 $ DEASSIGN SYS$OUTPUT
2706 $ DEASSIGN SYS$ERROR
2707 $ if (teststatus.nes."1")
2709 $ perl_d_getsent="undef"
2711 $ perl_d_getsent="define"
2714 $ perl_d_getsent="undef"
2716 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
2718 $! Check for pthread_yield
2720 $ if ("''use_threads'".eqs."T")
2724 $ WS "#include <stdlib.h>
2726 $ WS "#include <pthread.h>
2727 $ WS "#include <stdio.h>
2730 $ WS "pthread_yield();
2734 $ DEFINE SYS$ERROR _NLA0:
2735 $ DEFINE SYS$OUTPUT _NLA0:
2736 $ on error then continue
2737 $ on warning then continue
2739 $ teststatus = f$extract(9,1,$status)
2740 $ DEASSIGN SYS$OUTPUT
2741 $ DEASSIGN SYS$ERROR
2742 $ if (teststatus.nes."1")
2744 $ perl_d_pthread_yield="undef"
2746 $ perl_d_pthread_yield="define"
2749 $ perl_d_pthread_yield="undef"
2751 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
2753 $! Check for sched_yield
2755 $ if ("''use_threads'".eqs."T")
2759 $ WS "#include <stdlib.h>
2761 $ WS "#include <pthread.h>
2762 $ WS "#include <stdio.h>
2765 $ WS "sched_yield();
2769 $ DEFINE SYS$ERROR _NLA0:
2770 $ DEFINE SYS$OUTPUT _NLA0:
2771 $ on error then continue
2772 $ on warning then continue
2774 $ teststatus = f$extract(9,1,$status)
2775 $ DEASSIGN SYS$OUTPUT
2776 $ DEASSIGN SYS$ERROR
2777 $ if (teststatus.nes."1")
2779 $ perl_d_sched_yield="undef"
2780 $ perl_sched_yield = " "
2782 $ perl_d_sched_yield="define"
2783 $ perl_sched_yield = "sched_yield"
2786 $ perl_d_sched_yield="undef"
2787 $ perl_sched_yield = " "
2789 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
2790 $ WRITE_RESULT "sched_yield is ''perl_sched_yield'"
2792 $! Check for generic pointer size
2796 $ WS "#include <stdlib.h>
2798 $ WS "#include <stdio.h>
2802 $ WS "foo = sizeof(char *);
2803 $ WS "printf(""%d\n"", foo);
2807 $ DEFINE SYS$ERROR _NLA0:
2808 $ DEFINE SYS$OUTPUT _NLA0:
2809 $ ON ERROR THEN CONTINUE
2810 $ ON WARNING THEN CONTINUE
2812 $ If (Needs_Opt.eqs."Yes")
2814 $ link temp.obj,temp.opt/opt
2818 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
2819 $ DEASSIGN SYS$OUTPUT
2820 $ DEASSIGN SYS$ERROR
2821 $ DEFINE SYS$ERROR TEMPOUT
2822 $ DEFINE SYS$OUTPUT TEMPOUT
2825 $ DEASSIGN SYS$OUTPUT
2826 $ DEASSIGN SYS$ERROR
2827 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
2830 $ DELETE/NOLOG [-.uu]tempout.lis;
2833 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
2835 $! Check rand48 and its ilk
2839 $ WS "#include <stdlib.h>
2841 $ WS "#include <stdio.h>
2844 $ WS "srand48(12L);"
2849 $ DEFINE SYS$ERROR _NLA0:
2850 $ DEFINE SYS$OUTPUT _NLA0:
2851 $ ON ERROR THEN CONTINUE
2852 $ ON WARNING THEN CONTINUE
2854 $ If (Needs_Opt.eqs."Yes")
2856 $ link temp,temp.opt/opt
2860 $ teststatus = f$extract(9,1,$status)
2861 $ DEASSIGN SYS$OUTPUT
2862 $ DEASSIGN SYS$ERROR
2863 $ if (teststatus.nes."1")
2865 $ perl_drand01="random()"
2866 $ perl_randseedtype = "unsigned"
2867 $ perl_seedfunc = "srandom"
2871 $ WS "#include <stdlib.h>
2873 $ WS "#include <stdio.h>
2880 $! copy temp.c sys$output
2882 $ DEFINE SYS$ERROR _NLA0:
2883 $ DEFINE SYS$OUTPUT _NLA0:
2884 $ ON ERROR THEN CONTINUE
2885 $ ON WARNING THEN CONTINUE
2887 $ If (Needs_Opt.eqs."Yes")
2889 $ link temp,temp.opt/opt
2893 $ teststatus = f$extract(9,1,$status)
2894 $ DEASSIGN SYS$OUTPUT
2895 $ DEASSIGN SYS$ERROR
2896 $ if (teststatus.nes."1")
2898 $ perl_drand01="(((float)rand())/((float)RAND_MAX))"
2899 $ perl_randseedtype = "unsigned"
2900 $ perl_seedfunc = "srand"
2902 $ WRITE_RESULT "drand01 is ''perl_drand01'"
2905 $! Done with compiler checks. Clean up.
2906 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
2907 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
2908 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
2909 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
2912 $! Some that are compiler or VMS version sensitive
2915 $ IF "''Using_Gnu_C'".EQS."Yes"
2917 $ perl_d_attribut="define"
2918 $ perl_vms_cc_type="gcc"
2920 $ perl_d_attribut="undef"
2923 $! Dec C >= 5.2 and VMS ver >= 7.0
2924 $ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
2926 $ perl_d_bcmp="define"
2927 $ perl_d_gettimeod="define"
2928 $ perl_d_uname="define"
2929 $ perl_d_sigaction="define"
2930 $ perl_d_truncate="define"
2931 $ perl_d_wait4="define"
2932 $ perl_d_index="define"
2933 $ perl_pidtype="pid_t"
2934 $ 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"
2935 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
2936 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
2937 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
2938 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
2939 $ 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"
2940 $ 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"
2941 $ perl_sig_num_with_commas=perl_sig_num_init
2942 $ perl_uidtype="uid_t"
2943 $ perl_d_pathconf="define"
2944 $ perl_d_fpathconf="define"
2945 $ perl_d_sysconf="define"
2946 $ perl_d_sigsetjmp="define"
2948 $ perl_pidtype="unsigned int"
2949 $ perl_d_gettimeod="undef"
2950 $ perl_d_bcmp="undef"
2951 $ perl_d_uname="undef"
2952 $ perl_d_sigaction="undef"
2953 $ perl_d_truncate="undef"
2954 $ perl_d_wait4="undef"
2955 $ perl_d_index="undef"
2956 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
2957 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
2958 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
2959 $ perl_sig_name_with_commas = psnwc1 + psnwc2
2960 $ perl_sig_num="0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 6 16 17"",0"
2961 $ perl_sig_num_init="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
2962 $ perl_sig_num_with_commas=perl_sig_num_init
2963 $ perl_uidtype="unsigned int"
2964 $ perl_d_pathconf="undef"
2965 $ perl_d_fpathconf="undef"
2966 $ perl_d_sysconf="undef"
2967 $ perl_d_sigsetjmp="undef"
2971 $ IF ("''Using_Dec_C'".EQS."Yes")
2973 $ perl_d_mbstowcs="define"
2974 $ perl_d_mbtowc="define"
2975 $ perl_d_stdiobase="define"
2976 $ perl_d_stdio_ptr_lval="define"
2977 $ perl_d_stdio_cnt_lval="define"
2978 $ perl_d_stdstdio="define"
2979 $ perl_d_wcstombs="define"
2980 $ perl_d_mblen="define"
2981 $ perl_d_mktime="define"
2982 $ perl_d_strcoll="define"
2983 $ perl_d_strxfrm="define"
2984 $ perl_d_wctomb="define"
2985 $ perl_i_locale="define"
2986 $ perl_d_locconv="define"
2987 $ perl_d_setlocale="define"
2988 $ perl_vms_cc_type="decc"
2990 $ perl_d_mbstowcs="undef"
2991 $ perl_d_mbtowc="undef"
2992 $ perl_d_stdiobase="undef"
2993 $ perl_d_stdio_ptr_lval="undef"
2994 $ perl_d_stdio_cnt_lval="undef"
2995 $ perl_d_stdstdio="undef"
2996 $ perl_d_wcstombs="undef"
2997 $ perl_d_mblen="undef"
2998 $ perl_d_mktime="undef"
2999 $ perl_d_strcoll="undef"
3000 $ perl_d_strxfrm="undef"
3001 $ perl_d_wctomb="undef"
3002 $ perl_i_locale="undef"
3003 $ perl_d_locconv="undef"
3004 $ perl_d_setlocale="undef"
3008 $ if ("''Using_Vax_C'".EQS."Yes")
3010 $ perl_vms_cc_type="vaxc"
3014 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
3016 $ perl_d_vms_do_sockets="define"
3017 $ perl_d_htonl="define"
3018 $ perl_d_socket="define"
3019 $ perl_d_select="define"
3020 $ perl_netdb_host_type="char *"
3021 $ perl_netdb_hlen_type="int"
3022 $ perl_netdb_name_type="char *"
3023 $ perl_netdb_net_type="long"
3024 $ perl_d_gethbyaddr="define"
3025 $ perl_d_gethbyname="define"
3026 $ perl_d_getnbyaddr="define"
3027 $ perl_d_getnbyname="define"
3028 $ perl_d_getpbynumber="define"
3029 $ perl_d_getpbyname="define"
3030 $ perl_d_getsbyport="define"
3031 $ perl_d_getsbyname="define"
3032 $ perl_d_gethostprotos="define"
3033 $ perl_d_getnetprotos="define"
3034 $ perl_d_getprotoprotos="define"
3035 $ perl_d_getservprotos="define"
3037 $ perl_d_vms_do_sockets="undef"
3038 $ perl_d_htonl="undef"
3039 $ perl_d_socket="undef"
3040 $ perl_d_select="undef"
3041 $ perl_netdb_host_type="char *"
3042 $ perl_netdb_hlen_type="int"
3043 $ perl_netdb_name_type="char *"
3044 $ perl_netdb_net_type="long"
3045 $ perl_d_gethbyaddr="undef"
3046 $ perl_d_gethbyname="undef"
3047 $ perl_d_getnbyaddr="undef"
3048 $ perl_d_getnbyname="undef"
3049 $ perl_d_getpbynumber="undef"
3050 $ perl_d_getpbyname="undef"
3051 $ perl_d_getsbyport="undef"
3052 $ perl_d_getsbyname="undef"
3053 $ perl_d_gethostprotos="undef"
3054 $ perl_d_getnetprotos="undef"
3055 $ perl_d_getprotoprotos="undef"
3056 $ perl_d_getservprotos="undef"
3059 $ if ("''use_threads'".eqs."T")
3061 $ perl_usethreads="define"
3062 $ perl_d_pthreads_created_joinable="define"
3063 $ if ("''VMS_VER'".ges."7.0")
3065 $ perl_d_oldpthreads="undef"
3067 $ perl_d_oldpthreads="define"
3070 $ perl_d_oldpthreads="undef"
3071 $ perl_usethreads="undef"
3073 $ perl_d_pthreads_created_joinable="undef"
3076 $! new (5.005_62++) typedefs for primitives
3078 $ perl_ivtype="long"
3079 $ perl_uvtype="unsigned long"
3080 $ perl_i8type="char"
3081 $ perl_u8type="unsigned char"
3082 $ perl_i16type="short"
3083 $ perl_u16type="unsigned short"
3084 $ perl_i32type="int"
3085 $ perl_u32type="unsigned int"
3086 $ perl_i64type="long long"
3087 $ perl_u64type="unsigned long long"
3088 $ perl_nvtype="double"
3090 $ GOTO beyond_type_size_check
3094 $! Check for type sizes
3098 $ WS "#include <stdlib.h>
3100 $ WS "#include <stdio.h>
3103 $ WS "printf(""%d\n"", sizeof(''type'));"
3107 $ DEFINE SYS$ERROR _NLA0:
3108 $ DEFINE SYS$OUTPUT _NLA0:
3109 $ ON ERROR THEN CONTINUE
3110 $ ON WARNING THEN CONTINUE
3112 $ If (Needs_Opt.eqs."Yes")
3114 $ link temp.obj,temp.opt/opt
3118 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3119 $ DEASSIGN SYS$OUTPUT
3120 $ DEASSIGN SYS$ERROR
3121 $ DEFINE SYS$ERROR TEMPOUT
3122 $ DEFINE SYS$OUTPUT TEMPOUT
3125 $ DEASSIGN SYS$OUTPUT
3126 $ DEASSIGN SYS$ERROR
3127 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3130 $ DELETE/NOLOG [-.uu]tempout.lis;
3131 $ WRITE_RESULT "''size_name' is ''line'"
3135 $beyond_type_size_check:
3138 $ type = "''perl_ivtype'"
3139 $ size_name = "ivsize"
3140 $ gosub type_size_check
3141 $ perl_ivsize="''line'"
3142 $ IF type .eqs. "long"
3143 $ THEN perl_longsize = "''line'"
3146 $ size_name = "longsize"
3147 $ gosub type_size_check
3148 $ perl_longsize="''line'"
3151 $ type = "''perl_uvtype'"
3152 $ size_name = "uvsize"
3153 $ gosub type_size_check
3154 $ perl_uvsize="''line'"
3156 $ type = "''perl_i8type'"
3157 $ size_name = "i8size"
3158 $ gosub type_size_check
3159 $ perl_i8size="''line'"
3161 $ type = "''perl_u8type'"
3162 $ size_name = "u8size"
3163 $ gosub type_size_check
3164 $ perl_u8size="''line'"
3166 $ type = "''perl_i16type'"
3167 $ size_name = "i16size"
3168 $ gosub type_size_check
3169 $ perl_i16size="''line'"
3170 $ IF type .eqs. "short"
3171 $ THEN perl_shortsize="''line'"
3173 $ type = "''perl_i16type'"
3174 $ size_name = "shortsize"
3175 $ gosub type_size_check
3176 $ perl_shortsize="''line'"
3179 $ type = "''perl_u16type'"
3180 $ size_name = "u16size"
3181 $ gosub type_size_check
3182 $ perl_u16size="''line'"
3184 $ type = "''perl_i32type'"
3185 $ size_name = "i32size"
3186 $ gosub type_size_check
3187 $ perl_i32size="''line'"
3188 $ IF type .eqs. "int"
3189 $ THEN perl_intsize="''perl_i32size'"
3192 $ size_name = "intsize"
3193 $ gosub type_size_check
3194 $ perl_intsize="''line'"
3197 $ type = "''perl_u32type'"
3198 $ size_name = "u32size"
3199 $ gosub type_size_check
3200 $ perl_u32size="''line'"
3202 $ type = "''perl_i64type'"
3203 $ size_name = "i64size"
3204 $ gosub type_size_check
3205 $ perl_i64size="''line'"
3207 $ type = "''perl_u64type'"
3208 $ size_name = "u64size"
3209 $ gosub type_size_check
3210 $ perl_u64size="''line'"
3212 $ perl_ivdformat="""ld"""
3213 $ perl_uvuformat="""lu"""
3214 $ perl_uvoformat="""lo"""
3215 $ perl_uvxformat="""lx"""
3217 $! Finally the composite ones. All config
3218 $ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3219 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3220 $ perl_myhostname="''myhostname'"
3221 $ perl_mydomain="''mydomain'"
3222 $ perl_perladmin="''perladmin'"
3223 $ perl_cf_email="''cf_email'"
3224 $ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
3225 $ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3226 $ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
3227 $ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
3228 $ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
3229 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
3230 $ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3231 $ if "''Using_Dec_C'" .eqs. "Yes"
3233 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
3235 $ IF "''Using_Vax_C'" .eqs. "Yes"
3237 $ perl_ccflags="/Include=[]/Obj=''perl_obj_ext'/NoList''cc_flags'"
3240 $ if use_vmsdebug_perl .eqs. "Y"
3242 $ perl_optimize="/Debug/NoOpt"
3243 $ perl_dbgprefix = "DBG"
3246 $ perl_dbgprefix = ""
3249 $! Finally clean off any leading zeros from the patchlevel or subversion
3250 $ perl_patchlevel = perl_patchlevel + 0
3251 $ perl_subversion = perl_subversion + 0
3253 $! Okay, we've got everything configured. Now go write out a config.sh.
3254 $ open/write CONFIGSH [-]config.sh
3255 $ WC := "write CONFIGSH"
3257 $ WC "# This file generated by Configure.COM on a VMS system."
3258 $ WC "# Time: " + perl_cf_time
3260 $ WC "CONFIGDOTSH=true"
3261 $ WC "package='" + perl_package + "'"
3262 $ WC "d_nv_preserves_uv='" + perl_d_nv_preserves_uv + "'"
3263 $ WC "use5005threads='" + perl_use5005threads + "'"
3264 $ WC "useithreads='" + perl_useithreads + "'"
3265 $ WC "CONFIG='" + perl_config + "'"
3266 $ WC "cf_time='" + perl_cf_time + "'"
3267 $ WC "cf_by='" + perl_cf_by+ "'"
3268 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
3269 $ WC "ccdlflags='" + perl_ccdlflags + "'"
3270 $ WC "cccdlflags='" + perl_cccdlflags + "'"
3271 $ WC "mab='" + perl_mab + "'"
3272 $ WC "libpth='" + perl_libpth + "'"
3273 $ WC "ld='" + perl_ld + "'"
3274 $ WC "lddlflags='" + perl_lddlflags + "'"
3275 $ WC "ranlib='" + perl_ranlib + "'"
3276 $ WC "ar='" + perl_ar + "'"
3277 $ WC "eunicefix='" + perl_eunicefix + "'"
3278 $ WC "hint='" + perl_hint +"'"
3279 $ WC "hintfile='" + perl_hintfile + "'"
3280 $ WC "shrplib='" + perl_shrplib + "'"
3281 $ WC "usemymalloc='" + perl_usemymalloc + "'"
3282 $ WC "usevfork='" + perl_usevfork + "'"
3283 $ WC "useposix='false'"
3284 $ WC "spitshell='write sys$output '"
3285 $ WC "dlsrc='dl_vms.c'"
3286 $ WC "binexp='" + perl_binexp + "'"
3287 $ WC "man1ext='" + perl_man1ext + "'"
3288 $ WC "man3ext='" + perl_man3ext + "'"
3289 $ WC "arch='" + perl_arch + "'"
3290 $ WC "archname='" + perl_archname + "'"
3291 $ WC "osvers='" + perl_osvers + "'"
3292 $ WC "prefix='" + perl_prefix + "'"
3293 $ WC "builddir='" + perl_builddir + "'"
3294 $ WC "installbin='" + perl_installbin + "'"
3295 $ WC "installscript='" + perl_installscript + "'"
3296 $ WC "installman1dir='" + perl_installman1dir + "'"
3297 $ WC "installman3dir='" + perl_installman3dir + "'"
3298 $ WC "installprivlib='" + perl_installprivlib + "'"
3299 $ WC "installarchlib='" + perl_installarchlib + "'"
3300 $ WC "installsitelib='" + perl_installsitelib + "'"
3301 $ WC "installsitearch='" + perl_installsitearch + "'"
3302 $ WC "path_sep='" + perl_path_sep + "'"
3303 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
3304 $ WC "d_attribut='" + perl_d_attribut + "'"
3305 $ WC "cc='" + perl_cc + "'"
3306 $ WC "ccflags='" + perl_ccflags + "'"
3307 $ WC "optimize='" + perl_optimize + "'"
3308 $ WC "dbgprefix='" + perl_dbgprefix + "'"
3309 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
3310 $ WC "d_socket='" + perl_d_socket + "'"
3311 $ WC "d_sockpair='" + perl_d_sockpair + "'"
3312 $ WC "d_gethent='" + perl_d_gethent + "'"
3313 $ WC "d_getsent='" + perl_d_getsent + "'"
3314 $ WC "d_select='" + perl_d_select + "'"
3315 $ WC "i_niin='" + perl_i_niin + "'"
3316 $ WC "i_netinettcp='" + perl_i_netinettcp + "'"
3317 $ WC "i_neterrno='" + perl_i_neterrno + "'"
3318 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
3319 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
3320 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
3321 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
3322 $ WC "d_locconv='" + perl_d_locconv + "'"
3323 $ WC "d_setlocale='" + perl_d_setlocale + "'"
3324 $ WC "i_locale='" + perl_i_locale + "'"
3325 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
3326 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
3327 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
3328 $ WC "d_wctomb='" + perl_d_wctomb + "'"
3329 $ WC "d_mblen='" + perl_d_mblen + "'"
3330 $ WC "d_mktime='" + perl_d_mktime + "'"
3331 $ WC "d_strcoll='" + perl_d_strcoll + "'"
3332 $ WC "d_strxfrm='" + perl_d_strxfrm + "'"
3333 $ WC "ldflags='" + perl_ldflags + "'"
3334 $ WC "dlobj='" + perl_dlobj + "'"
3335 $ WC "obj_ext='" + perl_obj_ext + "'"
3336 $ WC "so='" + perl_so + "'"
3337 $ WC "dlext='" + perl_dlext + "'"
3338 $ WC "exe_ext='" + perl_exe_ext + "'"
3339 $ WC "lib_ext='" + perl_lib_ext + "'"
3340 $ WC "myhostname='" + perl_myhostname + "'"
3341 $ WC "mydomain='" + perl_mydomain + "'"
3342 $ WC "perladmin='" + perl_perladmin + "'"
3343 $ WC "cf_email='" + perl_cf_email + "'"
3344 $ WC "myuname='" + perl_myuname + "'"
3345 $ WC "alignbytes='" + perl_alignbytes + "'"
3346 $ WC "osname='" + perl_osname + "'"
3347 $ WC "d_archlib='" + perl_d_archlib + "'"
3348 $ WC "archlibexp='" + perl_archlibexp + "'"
3349 $ WC "archlib='" + perl_archlib + "'"
3350 $ WC "archname='" + perl_archname + "'"
3351 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
3352 $ WC "cppstdin='" + perl_cppstdin + "'"
3353 $ WC "cppminus='" + perl_cppminus + "'"
3354 $ WC "d_bcmp='" + perl_d_bcmp + "'"
3355 $ WC "d_bcopy='" + perl_d_bcopy + "'"
3356 $ WC "d_bzero='" + perl_d_bzero + "'"
3357 $ WC "d_castneg='" + perl_d_castneg + "'"
3358 $ WC "castflags='" + perl_castflags + "'"
3359 $ WC "d_chsize='" + perl_d_chsize + "'"
3360 $ WC "d_const='" + perl_d_const + "'"
3361 $ WC "d_crypt='" + perl_d_crypt + "'"
3362 $ WC "byteorder='" + perl_byteorder + "'"
3363 $ WC "full_csh='" + perl_full_csh + "'"
3364 $ WC "d_csh='" + perl_d_csh + "'"
3365 $ WC "d_dup2='" + perl_d_dup2 + "'"
3366 $ WC "d_fchmod='" + perl_d_fchmod + "'"
3367 $ WC "d_fchown='" + perl_d_fchown + "'"
3368 $ WC "d_fcntl='" + perl_d_fcntl + "'"
3369 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
3370 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
3371 $ WC "d_flock='" + perl_d_flock + "'"
3372 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
3373 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
3374 $ WC "d_getgrps='" + perl_d_getgrps + "'"
3375 $ WC "d_setgrps='" + perl_d_setgrps + "'"
3376 $ WC "d_uname='" + perl_d_uname + "'"
3377 $ WC "d_getprior='" + perl_d_getprior + "'"
3378 $ WC "d_killpg='" + perl_d_killpg + "'"
3379 $ WC "d_link='" + perl_d_link + "'"
3380 $ WC "d_lstat='" + perl_d_lstat + "'"
3381 $ WC "d_lockf='" + perl_d_lockf + "'"
3382 $ WC "d_memcmp='" + perl_d_memcmp + "'"
3383 $ WC "d_memcpy='" + perl_d_memcpy + "'"
3384 $ WC "d_memmove='" + perl_d_memmove + "'"
3385 $ WC "d_memset='" + perl_d_memset + "'"
3386 $ WC "d_mkdir='" + perl_d_mkdir + "'"
3387 $ WC "d_msg='" + perl_d_msg + "'"
3388 $ WC "d_open3='" + perl_d_open3 + "'"
3389 $ WC "d_poll='" + perl_d_poll + "'"
3390 $ WC "d_readdir='" + perl_d_readdir + "'"
3391 $ WC "d_seekdir='" + perl_d_seekdir + "'"
3392 $ WC "d_telldir='" + perl_d_telldir + "'"
3393 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
3394 $ WC "d_rename='" + perl_d_rename + "'"
3395 $ WC "d_rmdir='" + perl_d_rmdir + "'"
3396 $ WC "d_sem='" + perl_d_sem + "'"
3397 $ WC "d_setegid='" + perl_d_setegid + "'"
3398 $ WC "d_seteuid='" + perl_d_seteuid + "'"
3399 $ WC "d_setprior='" + perl_d_setprior + "'"
3400 $ WC "d_setregid='" + perl_d_setregid + "'"
3401 $ WC "d_setresgid='" + perl_d_setresgid + "'"
3402 $ WC "d_setreuid='" + perl_d_setreuid + "'"
3403 $ WC "d_setresuid='" + perl_d_setresuid + "'"
3404 $ WC "d_setrgid='" + perl_d_setrgid + "'"
3405 $ WC "d_setruid='" + perl_d_setruid + "'"
3406 $ WC "d_setsid='" + perl_d_setsid + "'"
3407 $ WC "d_shm='" + perl_d_shm + "'"
3408 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
3409 $ WC "d_sigaction='" + perl_d_sigaction + "'"
3410 $ WC "d_statblks='" + perl_d_statblks + "'"
3411 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
3412 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
3413 $ WC "stdio_base='" + perl_stdio_base + "'"
3414 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
3415 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
3416 $ WC "d_strerror='" + perl_d_strerror + "'"
3417 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
3418 $ WC "d_strerrm='" + perl_d_strerrm + "'"
3419 $ WC "d_symlink='" + perl_d_symlink + "'"
3420 $ WC "d_syscall='" + perl_d_syscall + "'"
3421 $ WC "d_system='" + perl_d_system + "'"
3422 $ WC "timetype='" + perl_timetype + "'"
3423 $ WC "d_truncate='" + perl_d_truncate + "'"
3424 $ WC "d_vfork='" + perl_d_vfork + "'"
3425 $ WC "signal_t='" + perl_signal_t + "'"
3426 $ WC "d_volatile='" + perl_d_volatile + "'"
3427 $ WC "d_vprintf='" + perl_d_vprintf + "'"
3428 $ WC "d_charvspr='" + perl_d_charvspr + "'"
3429 $ WC "d_wait4='" + perl_d_wait4 + "'"
3430 $ WC "d_waitpid='" + perl_d_waitpid + "'"
3431 $ WC "i_dirent='" + perl_i_dirent + "'"
3432 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
3433 $ WC "direntrytype='" + perl_direntrytype + "'"
3434 $ WC "i_fcntl='" + perl_i_fcntl + "'"
3435 $ WC "i_grp='" + perl_i_grp + "'"
3436 $ WC "i_limits='" + perl_i_limits + "'"
3437 $ WC "i_memory='" + perl_i_memory + "'"
3438 $ WC "i_ndbm='" + perl_i_ndbm + "'"
3439 $ WC "i_stdarg='" + perl_i_stdarg + "'"
3440 $ WC "i_pwd='" + perl_i_pwd + "'"
3441 $ WC "d_pwquota='" + perl_d_pwquota + "'"
3442 $ WC "d_pwage='" + perl_d_pwage + "'"
3443 $ WC "d_pwchange='" + perl_d_pwchange + "'"
3444 $ WC "d_pwclass='" + perl_d_pwclass + "'"
3445 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
3446 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
3447 $ WC "i_stddef='" + perl_i_stddef + "'"
3448 $ WC "i_stdlib='" + perl_i_stdlib + "'"
3449 $ WC "i_string='" + perl_i_string + "'"
3450 $ WC "i_sysdir='" + perl_i_sysdir + "'"
3451 $ WC "i_sysfile='" + perl_i_sysfile + "'"
3452 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
3453 $ WC "i_sysndir='" + perl_i_sysndir + "'"
3454 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
3455 $ WC "i_sysselct='" + perl_i_sysselct + "'"
3456 $ WC "i_dbm='" + perl_i_dbm + "'"
3457 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
3458 $ WC "i_sfio='" + perl_i_sfio + "'"
3459 $ WC "i_sysstat='" + perl_i_sysstat + "'"
3460 $ WC "i_systimes='" + perl_i_systimes + "'"
3461 $ WC "i_systypes='" + perl_i_systypes + "'"
3462 $ WC "i_sysun='" + perl_i_sysun + "'"
3463 $ WC "i_syswait='" + perl_i_syswait + "'"
3464 $ WC "i_termio='" + perl_i_termio + "'"
3465 $ WC "i_sgtty='" + perl_i_sgtty + "'"
3466 $ WC "i_termios='" + perl_i_termios + "'"
3467 $ WC "i_time='" + perl_i_time + "'"
3468 $ WC "i_systime='" + perl_i_systime + "'"
3469 $ WC "i_systimek='" + perl_i_systimek + "'"
3470 $ WC "i_unistd='" + perl_i_unistd + "'"
3471 $ WC "i_utime='" + perl_i_utime + "'"
3472 $ WC "i_varargs='" + perl_i_varargs + "'"
3473 $ WC "i_vfork='" + perl_i_vfork + "'"
3474 $ WC "prototype='" + perl_prototype + "'"
3475 $ WC "randbits='" + perl_randbits +"'"
3476 $ WC "selecttype='" + perl_selecttype + "'"
3477 $ WC "stdchar='" + perl_stdchar + "'"
3478 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
3479 $ WC "full_sed='" + perl_full_sed + "'"
3480 $ WC "bin='" + perl_bin + "'"
3481 $ WC "binexp='" + perl_binexp + "'"
3482 $ WC "d_alarm='" + perl_d_alarm + "'"
3483 $ WC "d_casti32='" + perl_d_casti32 + "'"
3484 $ WC "d_chown='" + perl_d_chown + "'"
3485 $ WC "d_chroot='" + perl_d_chroot + "'"
3486 $ WC "d_cuserid='" + perl_d_cuserid + "'"
3487 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
3488 $ WC "d_ldbl_dig='" + perl_d_ldbl_dig + "'"
3489 $ WC "d_difftime='" + perl_d_difftime + "'"
3490 $ WC "d_fork='" + perl_d_fork + "'"
3491 $ WC "d_getlogin='" + perl_d_getlogin + "'"
3492 $ WC "d_getppid='" + perl_d_getppid + "'"
3493 $ WC "d_htonl='" + perl_d_htonl + "'"
3494 $ WC "d_nice='" + perl_d_nice + "'"
3495 $ WC "d_pause='" + perl_d_pause + "'"
3496 $ WC "d_pipe='" + perl_d_pipe + "'"
3497 $ WC "d_readlink='" + perl_d_readlink + "'"
3498 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
3499 $ WC "d_strchr='" + perl_d_strchr + "'"
3500 $ WC "d_index='" + perl_d_index + "'"
3501 $ WC "d_strtod='" + perl_d_strtod + "'"
3502 $ WC "d_strtol='" + perl_d_strtol + "'"
3503 $ WC "d_strtoul='" + perl_d_strtoul + "'"
3504 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
3505 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
3506 $ WC "d_times='" + perl_d_times + "'"
3507 $ WC "d_tzname='" + perl_d_tzname + "'"
3508 $ WC "d_umask='" + perl_d_umask + "'"
3509 $ WC "fpostype='" + perl_fpostype + "'"
3510 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
3511 $ WC "i_float='" + perl_i_float + "'"
3512 $ WC "i_math='" + perl_i_math + "'"
3513 $ WC "intsize='" + perl_intsize + "'"
3514 $ WC "longsize='" + perl_longsize + "'"
3515 $ WC "shortsize='" + perl_shortsize + "'"
3516 $ WC "lseektype='" + perl_lseektype + "'"
3517 $ WC "lseeksize='4'"
3518 $ WC "i_values='" + perl_i_values + "'"
3519 $ WC "malloctype='" + perl_malloctype + "'"
3520 $ WC "freetype='" + perl_freetype + "'"
3521 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
3522 $ WC "sh='" + perl_sh + "'"
3523 $ WC "sig_name='" + perl_sig_name + "'"
3524 $ WC "sig_num='" + perl_sig_num + "'"
3525 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
3527 $ WC "modetype='" + perl_modetype + "'"
3528 $ WC "ssizetype='" + perl_ssizetype + "'"
3529 $ WC "o_nonblock='" + perl_o_nonblock + "'"
3530 $ WC "eagain='" + perl_eagain + "'"
3531 $ WC "rd_nodata='" + perl_rd_nodata + "'"
3532 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
3533 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
3534 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
3535 $ WC "oldarchlib='" + perl_oldarchlib + "'"
3536 $ WC "privlibexp='" + perl_privlibexp + "'"
3537 $ WC "privlib='" + perl_privlib + "'"
3538 $ WC "sitelibexp='" + perl_sitelibexp + "'"
3539 $ WC "sitelib='" + perl_sitelib + "'"
3540 $ WC "sitearchexp='" + perl_sitearchexp + "'"
3541 $ WC "sitearch='" + perl_sitearch + "'"
3542 $ WC "sizetype='" + perl_sizetype + "'"
3543 $ WC "i_sysparam='" + perl_i_sysparam + "'"
3544 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
3545 $ WC "d_dlerror='" + perl_d_dlerror + "'"
3546 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
3547 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
3548 $ WC "d_dosuid='" + perl_d_dosuid + "'"
3549 $ WC "d_inetaton='" + perl_d_inetaton + "'"
3550 $ WC "d_isascii='" + perl_d_isascii + "'"
3551 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
3552 $ WC "d_pathconf='" + perl_d_pathconf + "'"
3553 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
3554 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
3555 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
3556 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
3557 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
3558 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
3559 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
3560 $ WC "d_setpgid='" + perl_d_setpgid + "'"
3561 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
3562 $ WC "d_sysconf='" + perl_d_sysconf + "'"
3563 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
3564 $ WC "d_getpgid='" + perl_d_getpgid + "'"
3565 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
3566 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
3567 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
3568 $ WC "d_sfio='" + perl_d_sfio + "'"
3569 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
3570 $ WC "usedl='" + perl_usedl + "'"
3571 $ WC "startperl=" + perl_startperl ! This one's special--no enclosing single quotes
3572 $ WC "db_hashtype='" + perl_db_hashtype + "'"
3573 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
3574 $ WC "useperlio='" + perl_useperlio + "'"
3575 $ WC "defvoidused='" + perl_defvoidused + "'"
3576 $ WC "voidflags='" + perl_voidflags + "'"
3577 $ WC "d_eunice='" + perl_d_eunice + "'"
3578 $ WC "libs='" + perl_libs + "'"
3579 $ WC "libc='" + perl_libc + "'"
3580 $ tempstring = "PERL_VERSION='" + "''perl_patchlevel'" + "'"
3582 $ tempstring = "PERL_SUBVERSION='" + "''perl_patchlevel'" + "'"
3584 $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
3586 $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
3588 $ WC "pager='" + perl_pager + "'"
3589 $ WC "uidtype='" + perl_uidtype + "'"
3590 $ WC "gidtype='" + perl_gidtype + "'"
3591 $ WC "usethreads='" + perl_usethreads + "'"
3592 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
3593 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
3594 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
3595 $ WC "i_netdb='" + perl_i_netdb + "'"
3596 $ WC "pidtype='" + perl_pidtype + "'"
3597 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
3598 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
3599 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
3600 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
3601 $ WC "baserev='" + perl_baserev + "'"
3602 $ WC "doublesize='" + perl_doublesize + "'"
3603 $ WC "ptrsize='" + perl_ptrsize + "'"
3604 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
3605 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
3606 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
3607 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
3608 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
3609 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
3610 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
3611 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
3612 $ WC "d_sethent='" + perl_d_sethent + "'"
3613 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
3614 $ WC "d_longdbl='" + perl_d_longdbl + "'"
3615 $ WC "longdblsize='" + perl_longdblsize + "'"
3616 $ WC "d_longlong='" + perl_d_longlong + "'"
3617 $ WC "uselonglong='" + perl_d_longlong + "'"
3618 $ WC "longlongsize='" + perl_longlongsize + "'"
3619 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
3620 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
3621 $ WC "d_setenv='" + perl_d_setenv + "'"
3622 $ WC "d_endhent='" + perl_d_endhent + "'"
3623 $ WC "d_endnent='" + perl_d_endsent + "'"
3624 $ WC "d_endpent='" + perl_d_endpent + "'"
3625 $ WC "d_endsent='" + perl_d_endsent + "'"
3626 $ WC "d_gethent='" + perl_d_gethent + "'"
3627 $ WC "d_getnent='" + perl_d_getsent + "'"
3628 $ WC "d_getpent='" + perl_d_getpent + "'"
3629 $ WC "d_getsent='" + perl_d_getsent + "'"
3630 $ WC "d_sethent='" + perl_d_sethent + "'"
3631 $ WC "d_setnent='" + perl_d_setsent + "'"
3632 $ WC "d_setpent='" + perl_d_setpent + "'"
3633 $ WC "ebcdic='" + perl_ebcdic + "'"
3634 $ WC "d_setsent='" + perl_d_setsent + "'"
3635 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
3636 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
3637 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
3638 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
3639 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
3640 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
3641 $ WC "d_lchown='" + perl_d_lchown + "'"
3642 $ WC "d_union_semun='" + perl_d_union_semun + "'"
3643 $ WC "i_arpainet='" + perl_i_arpainet + "'"
3644 $ WC "d_grpasswd='" + perl_d_grpasswd + "'"
3645 $ WC "d_setgrent='" + perl_d_setgrent + "'"
3646 $ WC "d_getgrent='" + perl_d_getgrent + "'"
3647 $ WC "d_endgrent='" + perl_d_endgrent + "'"
3648 $ WC "d_pwpasswd='" + perl_d_pwpasswd + "'"
3649 $ WC "d_setpwent='" + perl_d_setpwent + "'"
3650 $ WC "d_getpwent='" + perl_d_getpwent + "'"
3651 $ WC "d_endpwent='" + perl_d_endpwent + "'"
3652 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
3653 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
3654 $ WC "extensions='" + perl_extensions + "'"
3655 $ WC "d_mknod='" + perl_d_mknod + "'"
3656 $ WC "devtype='" + perl_devtype + "'"
3657 $ WC "d_gethname='" + perl_d_gethname + "'"
3658 $ WC "d_phostname='" + perl_d_phostname + "'"
3659 $ WC "d_accessx='" + perl_d_accessx + "'"
3660 $ WC "d_eaccess='" + perl_d_eaccess + "'"
3661 $ WC "i_sysaccess='" + perl_i_sysaccess + "'"
3662 $ WC "i_syssecrt='" + perl_i_syssecrt + "'"
3663 $ WC "d_fd_set='" + perl_d_fd_set + "'"
3664 $ WC "d_access='" + perl_d_access + "'"
3665 $ WC "d_msg_ctrunc='" + perl_d_msg_ctrunc + "'"
3666 $ WC "d_msg_dontroute='" + perl_d_msg_dontroute + "'"
3667 $ WC "d_msg_oob='" + perl_d_msg_oob + "'"
3668 $ WC "d_msg_peek='" + perl_d_msg_peek + "'"
3669 $ WC "d_msg_proxy='" + perl_d_msg_proxy + "'"
3670 $ WC "d_scm_rights='" + perl_d_scm_rights + "'"
3671 $ WC "d_sendmsg='" + perl_d_sendmsg + "'"
3672 $ WC "d_recvmsg='" + perl_d_recvmsg + "'"
3673 $ WC "d_msghdr_s='" + perl_d_msghdr_s + "'"
3674 $ WC "d_cmsghdr_s='" + perl_d_cmsghdr_s + "'"
3675 $ WC "i_sysuio='" + perl_i_sysuio + "'"
3676 $ WC "d_fseeko='" + perl_d_fseeko + "'"
3677 $ WC "d_ftello='" + perl_d_ftello + "'"
3678 $ WC "d_readv='" + perl_d_readv + "'"
3679 $ WC "d_writev='" + perl_d_writev + "'"
3680 $ WC "i_machcthr='" + perl_i_machcthr + "'"
3681 $ WC "usemultiplicity='" + perl_usemultiplicity + "'"
3682 $ WC "i_poll='" + perl_i_poll + "'"
3683 $ WC "i_inttypes='" + perl_i_inttypes + "'"
3684 $ WC "d_int64t='" + perl_d_int64t + "'"
3685 $ WC "d_off64_t='" + perl_d_off64_t + "'"
3686 $ WC "d_fpos64_t='" + perl_d_fpos64_t + "'"
3687 $ WC "use64bits='" + perl_use64bits + "'"
3688 $ WC "d_drand48proto='" + perl_d_drand48proto + "'"
3689 $ WC "d_old_pthread_create_joinable='" + perl_d_old_pthread_create_joinable + "'"
3690 $ WC "old_pthread_create_joinable='" + perl_old_pthread_create_joinable + "'"
3691 $ WC "drand01='" + perl_drand01 + "'"
3692 $ WC "randseedtype='" + perl_randseedtype + "'"
3693 $ WC "seedfunc='" + perl_seedfunc + "'"
3694 $ WC "sig_num_init='" + perl_sig_num_with_commas + "'"
3695 $ WC "i_sysmount='" + perl_i_sysmount + "'"
3696 $ WC "d_fstatfs='" + perl_d_fstatfs + "'"
3697 $ WC "d_memchr='" + perl_d_memchr + "'"
3698 $ WC "d_statfsflags='" + perl_d_statfsflags + "'"
3699 $ WC "fflushNULL='define'"
3700 $ WC "fflushall='undef'"
3701 $ WC "d_stdio_stream_array='undef'"
3702 $ WC "i_sysstatvfs='" + perl_i_sysstatvfs + "'"
3703 $ WC "i_machcthreads='" + perl_i_machcthreads + "'"
3704 $ WC "i_pthread='" + perl_i_pthread + "'"
3705 $ WC "d_fstatvfs='" + perl_d_fstatvfs + "'"
3706 $ WC "i_mntent='" + perl_i_mntent + "'"
3707 $ WC "d_getmntent='" + perl_d_getmntent + "'"
3708 $ WC "d_hasmntopt='" + perl_d_hasmntopt + "'"
3709 $ WC "d_telldirproto='" + perl_d_telldirproto + "'"
3710 $ WC "d_madvise='" + perl_d_madvise + "'"
3711 $ WC "d_msync='" + perl_d_msync + "'"
3712 $ WC "d_mprotect='" + perl_d_mprotect + "'"
3713 $ WC "d_munmap='" + perl_d_munmap + "'"
3714 $ WC "d_mmap='" + perl_d_mmap + "'"
3715 $ WC "i_sysmman='" + perl_i_sysmman + "'"
3716 $ WC "installusrbinperl='" + perl_installusrbinperl + "'"
3717 $! WC "selectminbits='" + perl_selectminbits + "'"
3718 $ WC "crosscompile='" + perl_crosscompile + "'"
3719 $ WC "multiarch='" + perl_multiarch + "'"
3720 $ WC "sched_yield='" + perl_sched_yield + "'"
3721 $ WC "d_strtoull='" + perl_d_strtoull + "'"
3722 $ WC "d_strtouq='" + perl_d_strtouq + "'"
3723 $ WC "d_strtoll='" + perl_d_strtoll + "'"
3724 $ WC "d_strtold='" + perl_d_strtold + "'"
3725 $ WC "usesocks='" + perl_usesocks + "'"
3726 $ WC "d_vendorlib='" + perl_d_vendorlib + "'"
3727 $ WC "vendorlibexp='" + perl_vendorlibexp + "'"
3728 $ WC "d_atolf='" + perl_d_atolf + "'"
3729 $ WC "d_atoll='" + perl_d_atoll + "'"
3730 $ WC "d_bincompat5005='" + perl_d_bincompat + "'"
3731 $ WC "d_endspent='" + perl_d_endspent + "'"
3732 $ WC "d_getspent='" + perl_d_getspent + "'"
3733 $ WC "d_getspnam='" + perl_d_getspnam + "'"
3734 $ WC "d_setspent='" + perl_d_setspent + "'"
3735 $ WC "i_shadow='" + perl_i_shadow + "'"
3736 $ WC "i_socks='" + perl_i_socks + "'"
3737 $ WC "d_PRIfldbl='" + perl_d_PRIfldbl + "'"
3738 $ WC "d_PRIgldbl='" + perl_d_PRIgldbl + "'"
3739 $ WC "d_PRId64='" + perl_d_PRId64 + "'"
3740 $ WC "d_PRIu64='" + perl_d_PRIu64 + "'"
3741 $ WC "d_PRIo64='" + perl_d_PRIo64 + "'"
3742 $ WC "d_PRIx64='" + perl_d_PRIx64 + "'"
3743 $ WC "sPRIfldbl='" + perl_sPRIfldbl + "'"
3744 $ WC "sPRIgldbl='" + perl_sPRIgldbl + "'"
3745 $ WC "sPRId64='" + perl_sPRId64 + "'"
3746 $ WC "sPRIu64='" + perl_sPRIu64 + "'"
3747 $ WC "sPRIo64='" + perl_sPRIo64 + "'"
3748 $ WC "sPRIx64='" + perl_sPRIx64 + "'"
3749 $ WC "d_llseek='" + perl_d_llseek + "'"
3750 $ WC "uselargefiles='" + perl_uselargefiles + "'"
3751 $ WC "uselongdouble='" + perl_uselongdouble + "'"
3752 $ WC "usemorebits='" + perl_usemorebits + "'"
3753 $ WC "d_quad='" + perl_d_quad + "'"
3754 $ if (use_64bit .eqs. "Y")
3756 $ WC "quadtype='" + perl_quadtype + "'"
3757 $ WC "uquadtype='" + perl_uquadtype + "'"
3759 $ WC "d_fs_data_s='" + perl_d_fs_data_s + "'"
3760 $ WC "d_getmnt='" + perl_d_getmnt + "'"
3761 $ WC "d_sqrtl='" + perl_d_sqrtl + "'"
3762 $ WC "d_statfs_f_flags='" + perl_d_statfs_f_flags + "'"
3763 $ WC "d_statfs_s='" + perl_d_statfs_s + "'"
3764 $ WC "d_ustat='" + perl_d_ustat + "'"
3765 $ WC "i_sysstatfs='" + perl_i_sysstatfs + "'"
3766 $ WC "i_sysvfs='" + perl_i_sysvfs + "'"
3767 $ WC "i_ustat='" + perl_i_ustat + "'"
3768 $ WC "ivtype='" + perl_ivtype + "'"
3769 $ WC "uvtype='" + perl_uvtype + "'"
3770 $ WC "i8type='" + perl_i8type + "'"
3771 $ WC "i16type='" + perl_i16type + "'"
3772 $ WC "u8type='" + perl_u8type + "'"
3773 $ WC "u16type='" + perl_u16type + "'"
3774 $ WC "i32type='" + perl_i32type + "'"
3775 $ WC "u32type='" + perl_u32type + "'"
3776 $ WC "i64type='" + perl_i64type + "'"
3777 $ WC "u64type='" + perl_u64type + "'"
3778 $ WC "nvtype='" + perl_nvtype + "'"
3779 $ WC "ivsize='" + perl_ivsize + "'"
3780 $ WC "uvsize='" + perl_uvsize + "'"
3781 $ WC "i8size='" + perl_i8size + "'"
3782 $ WC "u8size='" + perl_u8size + "'"
3783 $ WC "i16size='" + perl_i16size + "'"
3784 $ WC "u16size='" + perl_u16size + "'"
3785 $ WC "i32size='" + perl_i32size + "'"
3786 $ WC "u32size='" + perl_u32size + "'"
3787 $ WC "i64size='" + perl_i64size + "'"
3788 $ WC "u64size='" + perl_u64size + "'"
3789 $ WC "ivdformat='" + perl_ivdformat + "'"
3790 $ WC "uvuformat='" + perl_uvuformat + "'"
3791 $ WC "uvoformat='" + perl_uvoformat + "'"
3792 $ WC "uvxformat='" + perl_uvxformat + "'"
3794 $! ##WRITE NEW CONSTANTS HERE##
3798 $! Okay, we've gotten here. Build munchconfig and run it
3799 $ 'Perl_CC' munchconfig.c
3800 $ If (Needs_Opt.eqs."Yes")
3802 $ open/write OPTCHAN []munchconfig.opt
3803 $ IF ("''using_gnu_c'".eqs."Yes")
3805 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
3807 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
3809 $ link munchconfig.obj,munchconfig.opt/opt
3810 $ delete munchconfig.opt;*
3812 $ link munchconfig.obj
3815 $ echo "Writing config.h"
3817 $ ! we need an fdl file
3818 $ CREATE [-]CONFIG.FDL
3821 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
3822 $ ! First spit out the header info with the local defines (to get
3823 $ ! around the 255 character command line limit)
3824 $ OPEN/APPEND CONFIG [-]config.local
3825 $ if use_debugging_perl.eqs."Y"
3827 $ WRITE CONFIG "#define DEBUGGING"
3829 $ if use_two_pot_malloc.eqs."Y"
3831 $ WRITE CONFIG "#define TWO_POT_OPTIMIZE"
3833 $ if mymalloc.eqs."Y"
3835 $ WRITE CONFIG "#define EMBEDMYMALLOC"
3837 $ if use_pack_malloc.eqs."Y"
3839 $ WRITE CONFIG "#define PACK_MALLOC"
3841 $ if use_debugmalloc.eqs."Y"
3843 $ write config "#define DEBUGGING_MSTATS"
3845 $ if "''Using_Gnu_C'" .eqs."Yes"
3847 $ WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
3849 $ if "''Has_Dec_C_Sockets'".eqs."T"
3851 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
3852 $ WRITE CONFIG "#define DECCRTL_SOCKETS"
3854 $ if "''Has_Socketshr'".eqs."T"
3856 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
3858 $! This is VMS-specific for now
3859 $ WRITE CONFIG "#''perl_d_setenv' HAS_SETENV"
3860 $ if d_alwdeftype.eqs."Y"
3862 $ WRITE CONFIG "#define SECURE_INTERNAL_GETENV"
3864 $ WRITE CONFIG "#undef SECURE_INTERNAL_GETENV"
3866 $ if d_secintgenv.eqs."Y"
3868 $ WRITE CONFIG "#define ALWAYS_DEFTYPES"
3870 $ WRITE CONFIG "#undef ALWAYS_DEFTYPES"
3872 $ if use_64bit.eqs."Y"
3874 $ WRITE CONFIG "#define USE_LONG_LONG"
3875 $ WRITE CONFIG "#define USE_LONG_DOUBLE"
3877 $ WRITE CONFIG "#define HAS_ENVGETENV"
3878 $ WRITE CONFIG "#define PERL_EXTERNAL_GLOB"
3881 $! Now build the normal config.h
3882 $ define/user sys$output [-]config.main
3883 $ mcr []munchconfig [-]config.sh [-]config_h.sh
3884 $ ! Concatenate them together
3885 $ copy [-]config.local,[-]config.main [-]config.h
3887 $ DELETE/NOLOG [-]CONFIG.MAIN;*
3888 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
3889 $ DELETE/NOLOG [-]CONFIG.FDL;*
3891 $ if "''Using_Dec_C'" .eqs."Yes"
3893 $ DECC_REPLACE = "DECC=decc=1"
3895 $ DECC_REPLACE = "DECC="
3897 $ if "''Using_Gnu_C'" .eqs."Yes"
3899 $ GNUC_REPLACE = "GNUC=gnuc=1"
3901 $ GNUC_REPLACE = "GNUC="
3903 $ if "''Has_Dec_C_Sockets'" .eqs."T"
3905 $ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
3907 $ if "''Has_Socketshr'" .eqs."T"
3909 $ SOCKET_REPLACE = "SOCKET=SOCKETSHR_SOCKETS=1"
3911 $ SOCKET_REPLACE = "SOCKET="
3914 $ IF ("''Use_Threads'".eqs."T")
3916 $ if ("''VMS_VER'".LES."6.2")
3918 $ THREAD_REPLACE = "THREAD=OLDTHREADED=1"
3920 $ THREAD_REPLACE = "THREAD=THREADED=1"
3923 $ THREAD_REPLACE = "THREAD="
3925 $ if mymalloc.eqs."Y"
3927 $ MALLOC_REPLACE = "MALLOC=MALLOC=1"
3929 $ MALLOC_REPLACE = "MALLOC="
3931 $ if f$getsyi("HW_MODEL").ge.1024
3933 $ ARCH_TYPE = "ARCH-TYPE=__AXP__"
3935 $ ARCH_TYPE = "ARCH-TYPE=__VAX__"
3937 $ echo "Writing DESCRIP.MMS"
3939 $ define/user sys$output [-]descrip.mms
3940 $ 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'"
3941 $ echo "Extracting Build_Ext.Com"
3942 $ Create Sys$Disk:[-]Build_Ext.Com
3943 $ Deck/Dollar="$EndOfTpl$"
3945 $! NOTE: This file is extracted as part of the VMS configuration process.
3946 $! Any changes made to it directly will be lost. If you need to make any
3947 $! changes, please edit the template in [.vms]SubConfigure.Com instead.
3948 $ def = F$Environment("Default")
3949 $ exts1 = F$Edit(p1,"Compress")
3950 $ p2 = F$Edit(p2,"Upcase,Compress,Trim")
3951 $ If F$Locate("MCR ",p2).eq.0 Then p2 = F$Extract(3,255,p2)
3952 $ miniperl = "$" + F$Search(F$Parse(p2,".Exe"))
3954 $ if f$type('p3') .nes. "" then makeutil = 'p3'
3955 $ targ = F$Edit(p4,"Lowercase")
3958 $ ext = F$Element(i," ",p1)
3959 $ If ext .eqs. " " Then Goto done
3960 $ Define/User Perl_Env_Tables CLISYM_LOCAL
3962 ($extdir = $ENV{'ext'}) =~ s/::/./g;
3963 if ($extdir =~ /^vms/i) { $extdir =~ s/vms/.vms.ext/i; }
3964 else { $extdir = ".ext.$extdir"; }
3965 ($ENV{'extdir'} = "[$extdir]");
3966 ($ENV{'up'} = ('-') x ($extdir =~ tr/././));
3967 $ Set Default &extdir
3969 $ If F$Locate("clean",targ) .eqs. F$Length(targ)
3971 $ Write Sys$Output "Building ''ext' . . ."
3972 $ On Error Then Goto done
3973 $ If F$Search("Descrip.MMS") .eqs. ""
3977 $ If F$CvTime(F$File("Descrip.MMS","rdt")) .lts. -
3978 F$CvTime(F$File("Makefile.PL","rdt")) Then redesc = 1
3981 $ Write Sys$Output "''targ'ing ''ext' . . ."
3982 $ On Error Then Continue
3985 miniperl "-I[''up'.lib]" Makefile.PL "INST_LIB=[''up'.lib]" "INST_ARCHLIB=[''up'.lib]"
3999 $! Clean up after ourselves
4000 $ delete/nolog munchconfig.exe;*
4001 $ delete/nolog munchconfig.obj;*