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_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 $! We'll be playing with Sys$Output; don't clutter it
34 $! Set Dec_C_Version to something
35 $ WRITE_RESULT := "WRITE SYS$OUTPUT ""%CONFIG-I-RESULT "" + "
36 $ echo = "Write Sys$Output "
37 $ Dec_C_Version := "''Dec_C_Version'"
38 $ Dec_C_Version = Dec_C_Version + 0
39 $ Vms_Ver := "''f$extract(1,3, f$getsyi(""version""))'"
40 $ perl_extensions := "''extensions'"
41 $ if f$length(Mcc) .eq. 0 then Mcc := "cc"
42 $ MCC = f$edit(mcc, "UPCASE")
43 $ C_Compiler_Replace := "CC=CC=''Mcc'''CC_flags'"
44 $ if "''Using_Dec_C'" .eqs. "Yes"
46 $ Checkcc := "''Mcc'/prefix=all"
50 $ cc_flags = cc_flags + extra_flags
51 $ if be_case_sensitive
53 $ d_vms_be_case_sensitive = "define"
55 $ d_vms_be_case_sensitive = "undef"
57 $ if use_multiplicity .eqs. "Y"
59 $ perl_usemultiplicity = "define"
61 $ perl_usemultiplicity = "undef"
63 $! Some constant defaults.
65 $ hwname = f$getsyi("HW_NAME")
67 $ if "''myname'" .eqs. "" THEN myname = f$trnlnm("SYS$NODE")
69 $! ##ADD NEW CONSTANTS HERE##
72 $ perl_gidformat = "lu"
74 $ perl_groupstype = "Gid_t"
75 $ perl_stdio_stream_array = ""
76 $ perl_uidformat = "lu"
78 $ perl_d_getcwd = "undef"
79 $ perl_d_nv_preserves_uv = "define"
80 $ perl_d_fs_data_s = "undef"
81 $ perl_d_getmnt = "undef"
82 $ perl_d_sqrtl = "define"
83 $ perl_d_statfs_f_flags = "undef"
84 $ perl_d_statfs_s = "undef"
85 $ perl_d_ustat = "undef"
86 $ perl_i_ieeefp = "undef"
87 $ perl_i_sunmath = "undef"
88 $ perl_i_sysstatfs = "undef"
89 $ perl_i_sysvfs = "undef"
90 $ perl_i_ustat = "undef"
91 $ perl_d_llseek="undef"
92 $ perl_d_iconv="undef"
93 $ perl_d_madvise="undef"
94 $ perl_selectminbits="32"
95 $ perl_d_vendorarch="undef"
96 $ perl_vendorarchexp=""
97 $ perl_d_msync="undef"
98 $ perl_d_mprotect="undef"
99 $ perl_d_munmap="undef"
100 $ perl_crosscompile="undef"
101 $ perl_multiarch="undef"
102 $ perl_d_mmap="undef"
103 $ perl_i_sysmman="undef"
104 $ perl_d_telldirproto="define"
105 $ perl_i_sysmount="undef"
106 $ perl_d_bincompat="undef"
107 $ perl_d_endspent="undef
108 $ perl_d_getspent="undef
109 $ perl_d_getspnam="undef
110 $ perl_d_setspent="undef
111 $ perl_d_fstatfs="undef"
112 $ perl_d_getfsstat="undef"
113 $ perl_i_machcthreads="undef"
114 $ perl_i_pthread="define"
115 $ perl_d_fstatvfs="undef"
116 $ perl_usesocks="undef"
117 $ perl_d_vendorlib="undef"
118 $ perl_vendorlibexp=""
119 $ perl_vendorlib_stem=""
120 $ perl_d_statfsflags="undef"
121 $ perl_i_sysstatvfs="undef"
122 $ perl_i_mntent="undef"
123 $ perl_d_getmntent="undef"
124 $ perl_d_hasmntopt="undef"
125 $ perl_package="''package'"
126 $ perl_baserev = "''baserev'"
128 $ perl_installusrbinperl="undef"
130 $ perl_d_fseeko="undef"
131 $ perl_d_ftello="undef"
132 $ perl_d_qgcvt="undef"
133 $ perl_d_readv="undef"
134 $ perl_d_writev="undef"
135 $ perl_i_machcthr="undef"
136 $ perl_i_netdb="undef"
137 $ perl_d_gnulibc="undef"
138 $ perl_cf_by="unknown"
142 $ perl_drand01 = "drand48()"
143 $ perl_randseedtype = "long int"
144 $ perl_seedfunc = "srand48"
145 $ perl_d_msg_ctrunc = "undef"
146 $ perl_d_msg_dontroute = "undef"
147 $ perl_d_msg_oob = "undef"
148 $ perl_d_msg_peek = "undef"
149 $ perl_d_msg_proxy = "undef"
150 $ perl_d_scm_rights = "undef"
151 $ perl_d_sendmsg = "undef"
152 $ perl_d_recvmsg = "undef"
153 $ perl_d_msghdr_s = "undef"
154 $ perl_d_cmsghdr_s = "undef"
157 $ perl_use64bitint = "define"
158 $ perl_uselargefiles = "define"
159 $ perl_uselongdouble = "define"
160 $ perl_usemorebits = "define"
162 $ perl_use64bitint = "undef"
163 $ perl_uselargefiles = "undef"
164 $ perl_uselongdouble = "undef"
165 $ perl_usemorebits = "undef"
169 $ perl_use64bitall = "define"
171 $ perl_use64bitall = "undef"
173 $ perl_d_drand48proto = "define"
174 $ perl_d_lseekproto = "define"
175 $ perl_libpth="/sys$share /sys$library"
177 $ perl_lddlflags="/Share"
183 $ perl_i_arpainet="undef"
184 $ perl_d_grpasswd="undef"
185 $ perl_d_setgrent="undef"
186 $ perl_d_getgrent="define"
187 $ perl_d_endgrent="define"
188 $ perl_d_pwpasswd="define"
189 $ perl_d_setpwent="define"
190 $ perl_d_getpwent="define"
191 $ perl_d_endpwent="define"
192 $ perl_d_phostname="undef"
193 $ perl_d_accessx="undef"
194 $ perl_d_eaccess="undef"
195 $ perl_ebcdic="undef"
197 $ perl_shrplib="define"
198 $ perl_usemymalloc=mymalloc
199 $ perl_usevfork="true"
200 $ perl_useposix="false"
201 $ perl_spitshell="write sys$output "
202 $ perl_dlsrc="dl_vms.c"
205 $ perl_prefix="perl_root"
206 $ perl_binexp="''perl_prefix':[000000]"
207 $ perl_builddir="''perl_prefix':[000000]"
208 $ perl_installbin="''perl_prefix':[000000]"
209 $ perl_installscript="''perl_prefix':[utils]"
210 $ perl_installman1dir="''perl_prefix':[man.man1]"
211 $ perl_installman3dir="''perl_prefix':[man.man3]"
212 $ perl_installprivlib="''perl_prefix':[lib]"
213 $ perl_installsitelib="''perl_prefix':[lib.site_perl]"
216 $ perl_d_sockpair="undef"
217 $ perl_i_neterrno="define"
218 $ perl_ldflags="/NoTrace/NoMap"
219 $ perl_d_lchown="undef"
220 $ perl_d_mknod="undef"
221 $ perl_d_union_semun="undef"
222 $ perl_d_semctl_semun="undef"
223 $ perl_d_semctl_semid_ds="undef"
224 $ IF (sharedperl.EQS."Y" .AND. F$GETSYI("HW_MODEL").GE.1024)
226 $ perl_obj_ext=".abj"
229 $ perl_exe_ext=".axe"
230 $ perl_lib_ext=".alb"
232 $ perl_obj_ext=".obj"
235 $ perl_exe_ext=".exe"
236 $ perl_lib_ext=".olb"
238 $ perl_dlobj="dl_vms''perl_obj_ext'"
240 $ perl_d_archlib="define"
241 $ perl_d_bincompat3="undef"
242 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
244 $ perl_cpprun="''Perl_CC'/noobj/preprocess=sys$output sys$input"
247 $ perl_d_castneg="define"
249 $ perl_d_chsize="undef"
250 $ perl_d_const="define"
251 $ perl_d_crypt="define"
252 $ perl_byteorder="1234"
255 $ perl_d_dup2="define"
256 $ perl_d_fchmod="undef"
257 $ perl_d_fchown="undef"
258 $ perl_d_fcntl="undef"
259 $ perl_d_fgetpos="define"
260 $ perl_d_flexfnam="define"
261 $ perl_d_flock="undef"
262 $ perl_d_fsetpos="define"
263 $ perl_d_getgrps="undef"
264 $ perl_d_setgrps="undef"
265 $ perl_d_getprior="undef"
266 $ perl_d_killpg="undef"
267 $ perl_d_link="undef"
268 $ perl_d_lstat="undef"
269 $ perl_d_lockf="undef"
270 $ perl_d_memcmp="define"
271 $ perl_d_memcpy="define"
272 $ perl_d_memmove="define"
273 $ perl_d_memset="define"
274 $ perl_d_mkdir="define"
276 $ perl_d_open3="define"
277 $ perl_d_poll="undef"
278 $ perl_d_readdir="define"
279 $ perl_d_seekdir="define"
280 $ perl_d_telldir="define"
281 $ perl_d_rewinddir="define"
282 $ perl_d_rename="define"
283 $ perl_d_rmdir="define"
285 $ perl_d_setegid="undef"
286 $ perl_d_seteuid="undef"
287 $ perl_d_setprior="undef"
288 $ perl_d_setregid="undef"
289 $ perl_d_setresgid="undef"
290 $ perl_d_setreuid="undef"
291 $ perl_d_setresuid="undef"
292 $ perl_d_setrgid="undef"
293 $ perl_d_setruid="undef"
294 $ perl_d_setsid="undef"
296 $ perl_d_shmatprototype="undef"
297 $ perl_d_statblks="undef"
298 $ perl_stdio_ptr="((*fp)->_ptr)"
299 $ perl_stdio_cnt="((*fp)->_cnt)"
300 $ perl_stdio_base="((*fp)->_base)"
301 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
302 $ perl_d_strctcpy="define"
303 $ perl_d_strerror="define"
304 $ perl_d_syserrlst="undef"
305 $ perl_d_strerrm="strerror((e),vaxc$errno)"
306 $ perl_d_symlink="undef"
307 $ perl_d_syscall="undef"
308 $ perl_d_system="define"
309 $ perl_timetype="time_t"
310 $ perl_d_vfork="define"
311 $ perl_signal_t="void"
312 $ perl_d_volatile="define"
313 $ perl_d_vprintf="define"
314 $ perl_d_charvspr="undef"
315 $ perl_d_waitpid="define"
316 $ perl_i_dirent="undef"
317 $ perl_d_dirnamlen="define"
318 $ perl_direntrytype="struct dirent"
319 $ perl_i_fcntl="undef"
321 $ perl_i_limits="define"
322 $ perl_i_memory="undef"
323 $ perl_i_ndbm="undef"
324 $ perl_i_stdarg="define"
326 $ perl_d_pwquota="undef"
327 $ perl_d_pwage="undef"
328 $ perl_d_pwchange="undef"
329 $ perl_d_pwclass="undef"
330 $ perl_d_pwexpire="undef"
331 $ perl_d_pwcomment="define"
332 $ perl_i_stddef="define"
333 $ perl_i_stdlib="define"
334 $ perl_i_string="define"
335 $ perl_i_sysdir="undef"
336 $ perl_i_sysfile="undef"
337 $ perl_i_sysioctl="undef"
338 $ perl_i_sysndir="undef"
339 $ perl_i_sysresrc="undef"
340 $ perl_i_sysselct="undef"
342 $ perl_i_rpcsvcdbm="undef"
343 $ perl_i_sfio="undef"
344 $ perl_i_sysstat="define"
345 $ perl_i_systimes="undef"
346 $ perl_i_systypes="define"
347 $ perl_i_sysun="undef"
348 $ perl_i_syswait="undef"
349 $ perl_i_termio="undef"
350 $ perl_i_sgtty="undef"
351 $ perl_i_termios="undef"
352 $ perl_i_time="define"
353 $ perl_i_systime="undef"
354 $ perl_i_systimek="undef"
355 $! perl_i_unistd="undef"
356 $ perl_i_utime="undef"
357 $ perl_i_varargs="undef"
358 $ perl_i_vfork="undef"
359 $ perl_prototype="define"
361 $ perl_stdchar="char"
362 $ perl_d_unlink_all_versions="undef"
363 $ perl_full_sed="_NLA0:"
364 $ perl_bin="/''perl_prefix'/000000"
365 $ perl_binexp="''perl_prefix':[000000]"
366 $ perl_d_alarm="define"
367 $ perl_d_casti32="define"
368 $ perl_d_chown="define"
369 $ perl_d_chroot="undef"
370 $ perl_d_cuserid="define"
371 $ perl_d_dbl_dig="define"
372 $ perl_d_ldbl_dig="define"
373 $ perl_d_difftime="define"
374 $ perl_d_fork="undef"
375 $ perl_d_getlogin="define"
376 $ perl_d_getppid="undef"
377 $ perl_d_nice="define"
378 $ perl_d_pause="define"
379 $ perl_d_pipe="define"
380 $ perl_d_readlink="undef"
381 $ perl_d_setlinebuf="undef"
382 $ perl_d_strchr="define"
383 $ perl_d_strtod="define"
384 $ perl_d_strtol="define"
385 $ perl_d_strtoul="define"
386 $ perl_d_tcgetpgrp="undef"
387 $ perl_d_tcsetpgrp="undef"
388 $ perl_d_times="define"
389 $ perl_d_tzname="undef"
390 $ perl_d_umask="define"
391 $ perl_fpostype="fpos_t"
392 $ perl_i_dlfcn="undef"
393 $ perl_i_float="define"
394 $ perl_i_math="define"
395 $ perl_lseektype="int"
396 $ perl_i_values="undef"
397 $ perl_malloctype="void *"
398 $ perl_freetype="void"
399 $ if "''mymalloc'".eqs."Y"
401 $ perl_d_mymalloc="define"
403 $ perl_d_mymalloc="undef"
406 $ perl_modetype="unsigned int"
407 $ perl_ssizetype="int"
408 $ perl_o_nonblock=" "
411 $ perl_d_eofnblk="undef"
412 $ perl_d_oldarchlib="define"
413 $ perl_privlibexp="''perl_prefix':[lib]"
414 $ perl_privlib="''perl_prefix':[lib]"
415 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
416 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
417 $ perl_sitelib_stem="''perl_prefix':[lib.site_perl]"
418 $ perl_sizetype="size_t"
419 $ perl_i_sysparam="undef"
420 $ perl_d_void_closedir="define"
421 $ perl_d_dlerror="undef"
422 $ perl_d_dlsymun="undef"
423 $ perl_d_suidsafe="undef"
424 $ perl_d_dosuid="undef"
425 $ perl_d_inetaton="undef"
426 $ perl_d_isascii="define"
427 $ perl_d_mkfifo="undef"
428 $ perl_d_safebcpy="undef"
429 $ perl_d_safemcpy="define"
430 $ perl_d_sanemcmp="define"
431 $ perl_d_setpgrp="undef"
432 $ perl_d_bsdsetpgrp="undef"
433 $ perl_d_bsdpgrp="undef"
434 $ perl_d_setpgid="undef"
435 $ perl_d_setpgrp2="undef"
436 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
437 $ perl_d_getpgid="undef"
438 $ perl_d_getpgrp="undef"
439 $ perl_d_bsdgetpgrp="undef"
440 $ perl_d_getpgrp2="undef"
441 $ perl_d_sfio="undef"
442 $ perl_usedl="define"
443 $ perl_startperl="""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ + ++$status != 0 and $exit = $status = undef;"""
444 $ perl_db_hashtype=" "
445 $ perl_db_prefixtype=" "
446 $ perl_useperlio="undef"
447 $ perl_defvoidused="15"
448 $ perl_voidflags="15"
449 $ perl_d_eunice="undef"
450 $ perl_d_pwgecos="define"
451 $ IF ("''Use_Threads'".eqs."T").and.("''VMS_VER'".LES."6.2")
453 $ 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"
457 $ IF ("''Using_Dec_C'".eqs."Yes")
459 $ perl_libc="(DECCRTL)"
463 $ perl_PATCHLEVEL="''patchlevel'"
464 $ perl_SUBVERSION="''subversion'"
471 $ perl_d_PRIfldbl = "define"
472 $ perl_d_PRIgldbl = "define"
473 $ perl_d_PRId64 = "define"
474 $ perl_d_PRIu64 = "define"
475 $ perl_d_PRIo64 = "define"
476 $ perl_d_PRIx64 = "define"
477 $ perl_sPRIfldbl = """Lf"""
478 $ perl_sPRIgldbl = """Lg"""
479 $ perl_sPRId64 = """Ld"""
480 $ perl_sPRIu64 = """Lu"""
481 $ perl_sPRIo64 = """Lo"""
482 $ perl_sPRIx64 = """Lx"""
483 $ perl_d_quad = "define"
484 $ perl_quadtype = "long long"
485 $ perl_uquadtype = "unsigned long long"
486 $ perl_quadkind = "QUAD_IS_LONG_LONG"
488 $ perl_d_PRIfldbl = "undef"
489 $ perl_d_PRIgldbl = "undef"
490 $ perl_d_PRId64 = "undef"
491 $ perl_d_PRIu64 = "undef"
492 $ perl_d_PRIo64 = "undef"
493 $ perl_d_PRIx64 = "undef"
494 $ perl_sPRIfldbl = ""
495 $ perl_sPRIgldbl = ""
500 $ perl_d_quad = "undef"
501 $ perl_quadtype = "long"
502 $ perl_uquadtype = "unsigned long"
503 $ perl_quadkind = "QUAD_IS_LONG"
506 $! Now some that we build up
508 $ LocalTime = f$time()
509 $ perl_cf_time= f$extract(0, 3, f$cvtime(LocalTime,, "WEEKDAY")) + " " + -
510 f$edit(f$cvtime(LocalTime, "ABSOLUTE", "MONTH"), "LOWERCASE") + -
511 " " + f$cvtime(LocalTime,, "DAY") + " " + f$cvtime(LocalTime,, "TIME") + -
512 " " + f$cvtime(LocalTime,, "YEAR")
513 $ if f$getsyi("HW_MODEL").ge.1024
515 $ perl_arch="VMS_AXP"
516 $ perl_archname="VMS_AXP"
517 $ perl_alignbytes="8"
519 $ perl_arch="VMS_VAX"
520 $ perl_archname="VMS_VAX"
521 $ perl_alignbytes="8"
523 $ if ("''Use_Threads'".eqs."T")
525 $ if use_5005_threads
527 $ perl_arch = "''perl_arch'-thread"
528 $ perl_archname = "''perl_archname'-thread"
529 $ perl_d_old_pthread_create_joinable = "undef"
530 $ perl_old_pthread_create_joinable = " "
531 $ perl_use5005threads = "define"
532 $ perl_useithreads = "undef"
534 $ perl_arch = "''perl_arch'-ithread"
535 $ perl_archname = "''perl_archname'-ithread"
536 $ perl_d_old_pthread_create_joinable = "undef"
537 $ perl_old_pthread_create_joinable = " "
538 $ perl_use5005threads = "undef"
539 $ perl_useithreads = "define"
542 $ perl_d_old_pthread_create_joinable = "undef"
543 $ perl_old_pthread_create_joinable = " "
544 $ perl_use5005threads = "undef"
545 $ perl_useithreads = "undef"
547 $ perl_osvers=f$edit(osvers, "TRIM")
548 $ if (perl_subversion + 0).eq.0
550 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL
552 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion
555 $! Some that we need to invoke the compiler for
556 $ OS := "open/write SOURCECHAN []temp.c"
557 $ WS := "write SOURCECHAN"
558 $ CS := "close SOURCECHAN"
559 $ DS := "delete/nolog []temp.*;*"
561 $ if ("''using_gnu_c'".eqs."Yes")
563 $ open/write OPTCHAN []temp.opt
564 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
565 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
570 $! Check for __STDC__
574 $ WS "#include <stdlib.h>
576 $ WS "#include <stdio.h>
579 $ WS "#ifdef __STDC__
580 $ WS "printf(""42\n"");
582 $ WS "printf(""1\n"");
587 $ DEFINE SYS$ERROR _NLA0:
588 $ DEFINE SYS$OUTPUT _NLA0:
589 $ ON ERROR THEN CONTINUE
590 $ ON WARNING THEN CONTINUE
592 $ If (Needs_Opt.eqs."Yes")
594 $ link temp.obj,temp.opt/opt
598 $ DEASSIGN SYS$OUTPUT
600 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
601 $ DEFINE SYS$ERROR TEMPOUT
602 $ DEFINE SYS$OUTPUT TEMPOUT
605 $ DEASSIGN SYS$OUTPUT
607 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
610 $ DELETE/NOLOG [-.uu]tempout.lis;
612 $ perl_cpp_stuff=line
613 $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
615 $! Check for double size
619 $ WS "#include <stdlib.h>
621 $ WS "#include <stdio.h>
625 $ WS "foo = sizeof(double);
626 $ WS "printf(""%d\n"", foo);
630 $ DEFINE SYS$ERROR _NLA0:
631 $ DEFINE SYS$OUTPUT _NLA0:
632 $ ON ERROR THEN CONTINUE
633 $ ON WARNING THEN CONTINUE
635 $ If (Needs_Opt.eqs."Yes")
637 $ link temp.obj,temp.opt/opt
641 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
642 $ DEASSIGN SYS$OUTPUT
644 $ DEFINE SYS$ERROR TEMPOUT
645 $ DEFINE SYS$OUTPUT TEMPOUT
648 $ DEASSIGN SYS$OUTPUT
650 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
653 $ DELETE/NOLOG [-.uu]tempout.lis;
655 $ perl_doublesize=line
656 $ WRITE_RESULT "doublesize is ''perl_doublesize'"
658 $! Check for long double size
662 $ WS "#include <stdlib.h>
664 $ WS "#include <stdio.h>
667 $ WS "printf(""%d\n"", sizeof(long double));
671 $ DEFINE SYS$ERROR _NLA0:
672 $ DEFINE SYS$OUTPUT _NLA0:
673 $ ON ERROR THEN CONTINUE
674 $ ON WARNING THEN CONTINUE
676 $ teststatus = f$extract(9,1,$status)
677 $ if (teststatus.nes."1")
679 $ perl_longdblsize="0"
680 $ perl_d_longdbl="undef"
682 $ ON ERROR THEN CONTINUE
683 $ ON WARNING THEN CONTINUE
684 $ If (Needs_Opt.eqs."Yes")
686 $ link temp.obj,temp.opt/opt
690 $ teststatus = f$extract(9,1,$status)
691 $ DEASSIGN SYS$OUTPUT
693 $ if (teststatus.nes."1")
695 $ perl_longdblsize="0"
696 $ perl_d_longdbl="undef"
698 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
699 $ DEFINE SYS$ERROR TEMPOUT
700 $ DEFINE SYS$OUTPUT TEMPOUT
703 $ DEASSIGN SYS$OUTPUT
705 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
708 $ DELETE/NOLOG [-.uu]tempout.lis;
710 $ perl_longdblsize=line
711 $ perl_d_longdbl="define"
714 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
715 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
717 $! Check for long long existance and size
721 $ WS "#include <stdlib.h>
723 $ WS "#include <stdio.h>
726 $ WS "printf(""%d\n"", sizeof(long long));
730 $ DEFINE SYS$ERROR _NLA0:
731 $ DEFINE SYS$OUTPUT _NLA0:
732 $ on error then continue
733 $ on warning then continue
735 $ If (Needs_Opt.eqs."Yes")
737 $ link temp.obj,temp.opt/opt
741 $ teststatus = f$extract(9,1,$status)
742 $ DEASSIGN SYS$OUTPUT
744 $ if (teststatus.nes."1")
746 $ perl_longlongsize="0"
747 $ perl_d_longlong="undef"
749 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
750 $ DEFINE SYS$ERROR TEMPOUT
751 $ DEFINE SYS$OUTPUT TEMPOUT
754 $ DEASSIGN SYS$OUTPUT
756 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
759 $ DELETE/NOLOG [-.uu]tempout.lis;
760 $ perl_longlongsize=line
761 $ perl_d_longlong="define"
763 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
764 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
766 $! Check the prototype for getgid
770 $ WS "#include <stdlib.h>
772 $ WS "#include <stdio.h>
773 $ WS "#include <types.h>
774 $ WS "#include <unistd.h>
781 $ DEFINE SYS$ERROR _NLA0:
782 $ DEFINE SYS$OUTPUT _NLA0:
783 $ on error then continue
784 $ on warning then continue
786 $ teststatus = f$extract(9,1,$status)
787 $ DEASSIGN SYS$OUTPUT
789 $ if (teststatus.nes."1")
791 $! Okay, gid_t failed. Must be unsigned int
792 $ perl_gidtype = "unsigned int"
794 $ perl_gidtype = "gid_t"
796 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
798 $! Check to see if we've got dev_t
802 $ WS "#include <stdlib.h>
804 $ WS "#include <stdio.h>
805 $ WS "#include <types.h>
806 $ WS "#include <unistd.h>
813 $ DEFINE SYS$ERROR _NLA0:
814 $ DEFINE SYS$OUTPUT _NLA0:
815 $ on error then continue
816 $ on warning then continue
818 $ teststatus = f$extract(9,1,$status)
819 $ DEASSIGN SYS$OUTPUT
821 $ if (teststatus.nes."1")
823 $! Okay, dev_t failed. Must be unsigned int
824 $ perl_devtype = "unsigned int"
826 $ perl_devtype = "dev_t"
828 $ WRITE_RESULT "Dev_t is ''perl_devtype'"
830 $! Check to see if we've got unistd.h (which we ought to, but you never know)
834 $ WS "#include <stdlib.h>
836 $ WS "#include <unistd.h>
842 $ DEFINE SYS$ERROR _NLA0:
843 $ DEFINE SYS$OUTPUT _NLA0:
844 $ on error then continue
845 $ on warning then continue
847 $ teststatus = f$extract(9,1,$status)
848 $ DEASSIGN SYS$OUTPUT
850 $ if (teststatus.nes."1")
852 $! Okay, failed. Must not have it
853 $ perl_i_unistd = "undef"
855 $ perl_i_unistd = "define"
858 $ WRITE_RESULT "i_unistd is ''perl_i_unistd'"
860 $! Check to see if we've got shadow.h (probably not, but...)
864 $ WS "#include <stdlib.h>
866 $ WS "#include <shadow.h>
872 $ DEFINE SYS$ERROR _NLA0:
873 $ DEFINE SYS$OUTPUT _NLA0:
874 $ on error then continue
875 $ on warning then continue
877 $ teststatus = f$extract(9,1,$status)
878 $ DEASSIGN SYS$OUTPUT
880 $ if (teststatus.nes."1")
882 $! Okay, failed. Must not have it
883 $ perl_i_shadow = "undef"
885 $ perl_i_shadow = "define"
888 $ WRITE_RESULT "i_shadow is ''perl_i_shadow'"
890 $! Check to see if we've got socks.h (probably not, but...)
894 $ WS "#include <stdlib.h>
896 $ WS "#include <socks.h>
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, failed. Must not have it
913 $ perl_i_socks = "undef"
915 $ perl_i_socks = "define"
918 $ WRITE_RESULT "i_socks is ''perl_i_socks'"
920 $! Check the prototype for select
922 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
926 $ WS "#include <stdlib.h>
928 $ WS "#include <stdio.h>
929 $ WS "#include <types.h>
930 $ WS "#include <unistd.h>
931 $ if ("''Has_Socketshr'".eqs."T")
933 $ WS "#include <socketshr.h>"
935 $ WS "#include <time.h>
936 $ WS "#include <socket.h>
943 $ WS "bar = select(2, foo, foo, foo, NULL);
947 $ DEFINE SYS$ERROR _NLA0:
948 $ DEFINE SYS$OUTPUT _NLA0:
949 $ on error then continue
950 $ on warning then continue
952 $ teststatus = f$extract(9,1,$status)
953 $ DEASSIGN SYS$OUTPUT
955 $ if (teststatus.nes."1")
957 $! Okay, fd_set failed. Must be an int
958 $ perl_selecttype = "int *"
960 $ perl_selecttype="fd_set *"
963 $ ! No sockets, so stick in an int *
964 $ perl_selecttype = "int *"
966 $ WRITE_RESULT "selectype is ''perl_selecttype'"
968 $! Check to see if fd_set exists
972 $ WS "#include <stdlib.h>
974 $ WS "#include <stdio.h>
975 $ WS "#include <types.h>
976 $ WS "#include <unistd.h>
977 $ if ("''Has_Socketshr'".eqs."T")
979 $ WS "#include <socketshr.h>"
981 $ IF ("''Has_Dec_C_Sockets'".eqs."T")
983 $ WS "#include <time.h>
984 $ WS "#include <socket.h>
993 $ DEFINE SYS$ERROR _NLA0:
994 $ DEFINE SYS$OUTPUT _NLA0:
995 $ on error then continue
996 $ on warning then continue
998 $ teststatus = f$extract(9,1,$status)
999 $ DEASSIGN SYS$OUTPUT
1000 $ DEASSIGN SYS$ERROR
1001 $ if (teststatus.nes."1")
1003 $! Okay, fd_set failed. Must not exist
1004 $ perl_d_fd_set = "undef"
1006 $ perl_d_fd_set="define"
1008 $ WRITE_RESULT "d_fd_set is ''perl_d_fd_set'"
1010 $! Check for inttypes.h
1014 $ WS "#include <stdlib.h>
1016 $ WS "#include <stdio.h>
1017 $ WS "#include <unistd.h>
1018 $ WS "#include <inttypes.h>
1024 $ DEFINE SYS$ERROR _NLA0:
1025 $ DEFINE SYS$OUTPUT _NLA0:
1026 $ on error then continue
1027 $ on warning then continue
1029 $ savedstatus = $status
1030 $ teststatus = f$extract(9,1,savedstatus)
1031 $ if (teststatus.nes."1")
1033 $ perl_i_inttypes="undef"
1034 $ DEASSIGN SYS$OUTPUT
1035 $ DEASSIGN SYS$ERROR
1037 $ If (Needs_Opt.eqs."Yes")
1039 $ link temp.obj,temp.opt/opt
1043 $ savedstatus = $status
1044 $ teststatus = f$extract(9,1,savedstatus)
1045 $ DEASSIGN SYS$OUTPUT
1046 $ DEASSIGN SYS$ERROR
1047 $ if (teststatus.nes."1")
1049 $ perl_i_inttypes="undef"
1051 $ perl_i_inttypes="define"
1054 $ WRITE_RESULT "i_inttypes is ''perl_i_inttypes'"
1056 $! Check for h_errno
1060 $ WS "#include <stdlib.h>
1062 $ WS "#include <stdio.h>
1063 $ WS "#include <unistd.h>
1064 $ WS "#include <netdb.h>
1071 $ DEFINE SYS$ERROR _NLA0:
1072 $ DEFINE SYS$OUTPUT _NLA0:
1073 $ on error then continue
1074 $ on warning then continue
1076 $ savedstatus = $status
1077 $ teststatus = f$extract(9,1,savedstatus)
1078 $ if (teststatus.nes."1")
1080 $ perl_d_herrno="undef"
1081 $ DEASSIGN SYS$OUTPUT
1082 $ DEASSIGN SYS$ERROR
1086 $ link temp.obj,temp.opt/opt
1090 $ savedstatus = $status
1091 $ teststatus = f$extract(9,1,savedstatus)
1092 $ DEASSIGN SYS$OUTPUT
1093 $ DEASSIGN SYS$ERROR
1094 $ if (teststatus.nes."1")
1096 $ perl_d_herrno="undef"
1098 $ perl_d_herrno="define"
1101 $ WRITE_RESULT "d_herrno is ''perl_d_herrno'"
1103 $! Check to see if int64_t exists
1107 $ WS "#include <stdlib.h>
1109 $ WS "#include <stdio.h>
1110 $ WS "#include <types.h>
1111 $ WS "#''perl_i_inttypes IIH
1113 $ WS "#include <inttypes.h>
1115 $ WS "#include <unistd.h>
1122 $ DEFINE SYS$ERROR _NLA0:
1123 $ DEFINE SYS$OUTPUT _NLA0:
1124 $ on error then continue
1125 $ on warning then continue
1127 $ teststatus = f$extract(9,1,$status)
1128 $ DEASSIGN SYS$OUTPUT
1129 $ DEASSIGN SYS$ERROR
1130 $ if (teststatus.nes."1")
1132 $! Okay, int64_t failed. Must not exist
1133 $ perl_d_int64_t = "undef"
1135 $ perl_d_int64_t="define"
1137 $ WRITE_RESULT "d_int64_t is ''perl_d_int64_t'"
1139 $! Check to see if off64_t exists
1143 $ WS "#include <stdlib.h>
1145 $ WS "#include <stdio.h>
1146 $ WS "#include <types.h>
1147 $ WS "#''perl_i_inttypes IIH
1149 $ WS "#include <inttypes.h>
1151 $ WS "#include <unistd.h>
1158 $ DEFINE SYS$ERROR _NLA0:
1159 $ DEFINE SYS$OUTPUT _NLA0:
1160 $ on error then continue
1161 $ on warning then continue
1163 $ teststatus = f$extract(9,1,$status)
1164 $ DEASSIGN SYS$OUTPUT
1165 $ DEASSIGN SYS$ERROR
1166 $ if (teststatus.nes."1")
1168 $! Okay, off64_t failed. Must not exist
1169 $ perl_d_off64_t = "undef"
1171 $ perl_d_off64_t="define"
1173 $ WRITE_RESULT "d_off64_t is ''perl_d_off64_t'"
1175 $! Check to see if fpos64_t exists
1179 $ WS "#include <stdlib.h>
1181 $ WS "#include <stdio.h>
1182 $ WS "#include <types.h>
1183 $ WS "#''perl_i_inttypes IIH
1185 $ WS "#include <inttypes.h>
1187 $ WS "#include <unistd.h>
1194 $ DEFINE SYS$ERROR _NLA0:
1195 $ DEFINE SYS$OUTPUT _NLA0:
1196 $ on error then continue
1197 $ on warning then continue
1199 $ teststatus = f$extract(9,1,$status)
1200 $ DEASSIGN SYS$OUTPUT
1201 $ DEASSIGN SYS$ERROR
1202 $ if (teststatus.nes."1")
1204 $! Okay, fpos64_t failed. Must not exist
1205 $ perl_d_fpos64_t = "undef"
1207 $ perl_d_fpos64_t="define"
1209 $ WRITE_RESULT "d_fpos64_t is ''perl_d_fpos64_t'"
1211 $! Check to see if gethostname exists
1213 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1217 $ WS "#include <stdlib.h>
1219 $ WS "#include <stdio.h>
1220 $ WS "#include <types.h>
1221 $ WS "#include <unistd.h>
1222 $ if ("''Has_Socketshr'".eqs."T")
1224 $ WS "#include <socketshr.h>"
1226 $ WS "#include <time.h>
1227 $ WS "#include <socket.h>
1231 $ WS "char name[100];
1234 $ WS "baz = gethostname(name, bar);
1238 $ DEFINE SYS$ERROR _NLA0:
1239 $ DEFINE SYS$OUTPUT _NLA0:
1240 $ on error then continue
1241 $ on warning then continue
1243 $ teststatus = f$extract(9,1,$status)
1244 $ DEASSIGN SYS$OUTPUT
1245 $ DEASSIGN SYS$ERROR
1246 $ if (teststatus.nes."1")
1248 $! Okay, compile failed. Must not have it
1249 $ perl_d_gethname = "undef"
1251 $ If (Needs_Opt.eqs."Yes")
1253 $ link temp.obj,temp.opt/opt
1257 $ savedstatus = $status
1258 $ teststatus = f$extract(9,1,savedstatus)
1259 $ if (teststatus.nes."1")
1261 $ perl_d_gethname="undef"
1263 $ perl_d_gethname="define"
1267 $ ! No sockets, so no gethname
1268 $ perl_d_gethname = "undef"
1270 $ WRITE_RESULT "d_gethname is ''perl_d_gethname'"
1272 $! Check for sys/file.h
1276 $ WS "#include <stdlib.h>
1278 $ WS "#include <stdio.h>
1279 $ WS "#include <unistd.h>
1280 $ WS "#include <sys/file.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_sysfile="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_sysfile="undef"
1313 $ perl_i_sysfile="define"
1316 $ WRITE_RESULT "i_sysfile is ''perl_i_sysfile'"
1318 $! Check for sys/utsname.h
1322 $ WS "#include <stdlib.h>
1324 $ WS "#include <stdio.h>
1325 $ WS "#include <unistd.h>
1326 $ WS "#include <sys/utsname.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_sysutsname="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_sysutsname="undef"
1359 $ perl_i_sysutsname="define"
1362 $ WRITE_RESULT "i_sysutsname is ''perl_i_sysutsname'"
1364 $! Check for syslog.h
1368 $ WS "#include <stdlib.h>
1370 $ WS "#include <stdio.h>
1371 $ WS "#include <unistd.h>
1372 $ WS "#include <syslog.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_syslog="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_syslog="undef"
1405 $ perl_i_syslog="define"
1408 $ WRITE_RESULT "i_syslog is ''perl_i_syslog'"
1414 $ WS "#include <stdlib.h>
1416 $ WS "#include <stdio.h>
1417 $ WS "#include <unistd.h>
1418 $ WS "#include <poll.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_poll="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_poll="undef"
1451 $ perl_i_poll="define"
1454 $ WRITE_RESULT "i_poll is ''perl_i_poll'"
1456 $! Check for sys/uio.h
1460 $ WS "#include <stdlib.h>
1462 $ WS "#include <stdio.h>
1463 $ WS "#include <unistd.h>
1464 $ WS "#include <sys/uio.h>
1470 $ DEFINE SYS$ERROR _NLA0:
1471 $ DEFINE SYS$OUTPUT _NLA0:
1472 $ on error then continue
1473 $ on warning then continue
1475 $ savedstatus = $status
1476 $ teststatus = f$extract(9,1,savedstatus)
1477 $ if (teststatus.nes."1")
1479 $ perl_i_sysuio="undef"
1480 $ DEASSIGN SYS$OUTPUT
1481 $ DEASSIGN SYS$ERROR
1483 $ If (Needs_Opt.eqs."Yes")
1485 $ link temp.obj,temp.opt/opt
1489 $ savedstatus = $status
1490 $ teststatus = f$extract(9,1,savedstatus)
1491 $ DEASSIGN SYS$OUTPUT
1492 $ DEASSIGN SYS$ERROR
1493 $ if (teststatus.nes."1")
1495 $ perl_i_sysuio="undef"
1497 $ perl_i_sysuio="define"
1500 $ WRITE_RESULT "i_sysuio is ''perl_i_sysuio'"
1502 $! Check for sys/mode.h
1506 $ WS "#include <stdlib.h>
1508 $ WS "#include <stdio.h>
1509 $ WS "#include <unistd.h>
1510 $ WS "#include <sys/mode.h>
1516 $ DEFINE SYS$ERROR _NLA0:
1517 $ DEFINE SYS$OUTPUT _NLA0:
1518 $ on error then continue
1519 $ on warning then continue
1521 $ savedstatus = $status
1522 $ teststatus = f$extract(9,1,savedstatus)
1523 $ if (teststatus.nes."1")
1525 $ perl_i_sysmode="undef"
1526 $ DEASSIGN SYS$OUTPUT
1527 $ DEASSIGN SYS$ERROR
1529 $ If (Needs_Opt.eqs."Yes")
1531 $ link temp.obj,temp.opt/opt
1535 $ savedstatus = $status
1536 $ teststatus = f$extract(9,1,savedstatus)
1537 $ DEASSIGN SYS$OUTPUT
1538 $ DEASSIGN SYS$ERROR
1539 $ if (teststatus.nes."1")
1541 $ perl_i_sysmode="undef"
1543 $ perl_i_sysmode="define"
1546 $ WRITE_RESULT "i_sysmode is ''perl_i_sysmode'"
1548 $! Check for sys/access.h
1552 $ WS "#include <stdlib.h>
1554 $ WS "#include <stdio.h>
1555 $ WS "#include <unistd.h>
1556 $ WS "#include <sys/access.h>
1562 $ DEFINE SYS$ERROR _NLA0:
1563 $ DEFINE SYS$OUTPUT _NLA0:
1564 $ on error then continue
1565 $ on warning then continue
1567 $ savedstatus = $status
1568 $ teststatus = f$extract(9,1,savedstatus)
1569 $ if (teststatus.nes."1")
1571 $ perl_i_sysaccess="undef"
1572 $ DEASSIGN SYS$OUTPUT
1573 $ DEASSIGN SYS$ERROR
1575 $ If (Needs_Opt.eqs."Yes")
1577 $ link temp.obj,temp.opt/opt
1581 $ savedstatus = $status
1582 $ teststatus = f$extract(9,1,savedstatus)
1583 $ DEASSIGN SYS$OUTPUT
1584 $ DEASSIGN SYS$ERROR
1585 $ if (teststatus.nes."1")
1587 $ perl_i_sysaccess="undef"
1589 $ perl_i_sysaccess="define"
1592 $ WRITE_RESULT "i_sysaccess is ''perl_i_sysaccess'"
1594 $! Check for sys/security.h
1598 $ WS "#include <stdlib.h>
1600 $ WS "#include <stdio.h>
1601 $ WS "#include <unistd.h>
1602 $ WS "#include <sys/security.h>
1608 $ DEFINE SYS$ERROR _NLA0:
1609 $ DEFINE SYS$OUTPUT _NLA0:
1610 $ on error then continue
1611 $ on warning then continue
1613 $ savedstatus = $status
1614 $ teststatus = f$extract(9,1,savedstatus)
1615 $ if (teststatus.nes."1")
1617 $ perl_i_syssecrt="undef"
1618 $ DEASSIGN SYS$OUTPUT
1619 $ DEASSIGN SYS$ERROR
1621 $ If (Needs_Opt.eqs."Yes")
1623 $ link temp.obj,temp.opt/opt
1627 $ savedstatus = $status
1628 $ teststatus = f$extract(9,1,savedstatus)
1629 $ DEASSIGN SYS$OUTPUT
1630 $ DEASSIGN SYS$ERROR
1631 $ if (teststatus.nes."1")
1633 $ perl_i_syssecrt="undef"
1635 $ perl_i_syssecrt="define"
1638 $ WRITE_RESULT "i_syssecrt is ''perl_i_syssecrt'"
1640 $! Check for fcntl.h
1644 $ WS "#include <stdlib.h>
1646 $ WS "#include <stdio.h>
1647 $ WS "#include <unistd.h>
1648 $ WS "#include <fcntl.h>
1654 $ DEFINE SYS$ERROR _NLA0:
1655 $ DEFINE SYS$OUTPUT _NLA0:
1656 $ on error then continue
1657 $ on warning then continue
1659 $ savedstatus = $status
1660 $ teststatus = f$extract(9,1,savedstatus)
1661 $ if (teststatus.nes."1")
1663 $ perl_i_fcntl="undef"
1664 $ DEASSIGN SYS$OUTPUT
1665 $ DEASSIGN SYS$ERROR
1667 $ If (Needs_Opt.eqs."Yes")
1669 $ link temp.obj,temp.opt/opt
1673 $ savedstatus = $status
1674 $ teststatus = f$extract(9,1,savedstatus)
1675 $ DEASSIGN SYS$OUTPUT
1676 $ DEASSIGN SYS$ERROR
1677 $ if (teststatus.nes."1")
1679 $ perl_i_fcntl="undef"
1681 $ perl_i_fcntl="define"
1684 $ WRITE_RESULT "i_fcntl is ''perl_i_fcntl'"
1690 $ WS "#include <stdlib.h>
1692 $ WS "#include <stdio.h>
1693 $ WS "#include <unistd.h>
1694 $ WS "#include <fcntl.h>
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_fcntl="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_fcntl="undef"
1728 $ perl_d_fcntl="define"
1731 $ WRITE_RESULT "d_fcntl is ''perl_d_fcntl'"
1737 $ WS "#include <stdlib.h>
1739 $ WS "#include <string.h>
1743 $ WS "place = memchr(""foo"", 47, 3)
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_memchr="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_memchr="undef"
1774 $ perl_d_memchr="define"
1777 $ WRITE_RESULT "d_memchr is ''perl_d_memchr'"
1779 $! Check for strtoull
1783 $ WS "#include <stdlib.h>
1785 $ WS "#include <string.h>
1788 $ WS "unsigned __int64 result;
1789 $ WS "result = strtoull(""123123"", NULL, 10);
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_strtoull="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_strtoull="undef"
1820 $ perl_d_strtoull="define"
1823 $ WRITE_RESULT "d_strtoull is ''perl_d_strtoull'"
1825 $! Check for strtouq
1829 $ WS "#include <stdlib.h>
1831 $ WS "#include <string.h>
1834 $ WS "unsigned __int64 result;
1835 $ WS "result = strtouq(""123123"", NULL, 10);
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_strtouq="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_strtouq="undef"
1866 $ perl_d_strtouq="define"
1869 $ WRITE_RESULT "d_strtouq is ''perl_d_strtouq'"
1871 $! Check for strtoll
1875 $ WS "#include <stdlib.h>
1877 $ WS "#include <string.h>
1880 $ WS "__int64 result;
1881 $ WS "result = strtoll(""123123"", NULL, 10);
1885 $ DEFINE SYS$ERROR _NLA0:
1886 $ DEFINE SYS$OUTPUT _NLA0:
1887 $ on error then continue
1888 $ on warning then continue
1890 $ savedstatus = $status
1891 $ teststatus = f$extract(9,1,savedstatus)
1892 $ if (teststatus.nes."1")
1894 $ perl_d_strtoll="undef"
1895 $ DEASSIGN SYS$OUTPUT
1896 $ DEASSIGN SYS$ERROR
1898 $ If (Needs_Opt.eqs."Yes")
1900 $ link temp.obj,temp.opt/opt
1904 $ savedstatus = $status
1905 $ teststatus = f$extract(9,1,savedstatus)
1906 $ DEASSIGN SYS$OUTPUT
1907 $ DEASSIGN SYS$ERROR
1908 $ if (teststatus.nes."1")
1910 $ perl_d_strtoll="undef"
1912 $ perl_d_strtoll="define"
1915 $ WRITE_RESULT "d_strtoll is ''perl_d_strtoll'"
1917 $! Check for strtold
1921 $ WS "#include <stdlib.h>
1923 $ WS "#include <string.h>
1926 $ WS "long double result;
1927 $ WS "result = strtold(""123123"", NULL, 10);
1931 $ DEFINE SYS$ERROR _NLA0:
1932 $ DEFINE SYS$OUTPUT _NLA0:
1933 $ on error then continue
1934 $ on warning then continue
1936 $ savedstatus = $status
1937 $ teststatus = f$extract(9,1,savedstatus)
1938 $ if (teststatus.nes."1")
1940 $ perl_d_strtold="undef"
1941 $ DEASSIGN SYS$OUTPUT
1942 $ DEASSIGN SYS$ERROR
1944 $ If (Needs_Opt.eqs."Yes")
1946 $ link temp.obj,temp.opt/opt
1950 $ savedstatus = $status
1951 $ teststatus = f$extract(9,1,savedstatus)
1952 $ DEASSIGN SYS$OUTPUT
1953 $ DEASSIGN SYS$ERROR
1954 $ if (teststatus.nes."1")
1956 $ perl_d_strtold="undef"
1958 $ perl_d_strtold="define"
1961 $ WRITE_RESULT "d_strtold is ''perl_d_strtold'"
1967 $ WS "#include <stdlib.h>
1969 $ WS "#include <string.h>
1972 $ WS " __int64 result;
1973 $ WS "result = atoll(""123123"");
1977 $ DEFINE SYS$ERROR _NLA0:
1978 $ DEFINE SYS$OUTPUT _NLA0:
1979 $ on error then continue
1980 $ on warning then continue
1982 $ savedstatus = $status
1983 $ teststatus = f$extract(9,1,savedstatus)
1984 $ if (teststatus.nes."1")
1986 $ perl_d_atoll="undef"
1987 $ DEASSIGN SYS$OUTPUT
1988 $ DEASSIGN SYS$ERROR
1990 $ If (Needs_Opt.eqs."Yes")
1992 $ link temp.obj,temp.opt/opt
1996 $ savedstatus = $status
1997 $ teststatus = f$extract(9,1,savedstatus)
1998 $ DEASSIGN SYS$OUTPUT
1999 $ DEASSIGN SYS$ERROR
2000 $ if (teststatus.nes."1")
2002 $ perl_d_atoll="undef"
2004 $ perl_d_atoll="define"
2007 $ WRITE_RESULT "d_atoll is ''perl_d_atoll'"
2013 $ WS "#include <stdlib.h>
2015 $ WS "#include <string.h>
2019 $ WS "result = atolf(""123123"");
2023 $ DEFINE SYS$ERROR _NLA0:
2024 $ DEFINE SYS$OUTPUT _NLA0:
2025 $ on error then continue
2026 $ on warning then continue
2028 $ savedstatus = $status
2029 $ teststatus = f$extract(9,1,savedstatus)
2030 $ if (teststatus.nes."1")
2032 $ perl_d_atolf="undef"
2033 $ DEASSIGN SYS$OUTPUT
2034 $ DEASSIGN SYS$ERROR
2036 $ If (Needs_Opt.eqs."Yes")
2038 $ link temp.obj,temp.opt/opt
2042 $ savedstatus = $status
2043 $ teststatus = f$extract(9,1,savedstatus)
2044 $ DEASSIGN SYS$OUTPUT
2045 $ DEASSIGN SYS$ERROR
2046 $ if (teststatus.nes."1")
2048 $ perl_d_atolf="undef"
2050 $ perl_d_atolf="define"
2053 $ WRITE_RESULT "d_atolf is ''perl_d_atolf'"
2059 $ WS "#include <stdlib.h>
2061 $ WS "#include <stdio.h>
2062 $ WS "#include <unistd.h>
2065 $ WS "access("foo", F_OK);
2069 $ DEFINE SYS$ERROR _NLA0:
2070 $ DEFINE SYS$OUTPUT _NLA0:
2071 $ on error then continue
2072 $ on warning then continue
2074 $ savedstatus = $status
2075 $ teststatus = f$extract(9,1,savedstatus)
2076 $ if (teststatus.nes."1")
2078 $ perl_d_access="undef"
2079 $ DEASSIGN SYS$OUTPUT
2080 $ DEASSIGN SYS$ERROR
2082 $ If (Needs_Opt.eqs."Yes")
2084 $ link temp.obj,temp.opt/opt
2088 $ savedstatus = $status
2089 $ teststatus = f$extract(9,1,savedstatus)
2090 $ DEASSIGN SYS$OUTPUT
2091 $ DEASSIGN SYS$ERROR
2092 $ if (teststatus.nes."1")
2094 $ perl_d_access="undef"
2096 $ perl_d_access="define"
2099 $ WRITE_RESULT "d_access is ''perl_d_access'"
2105 $ WS "#include <stdlib.h>
2107 $ WS "#include <stdio.h>
2108 $ WS "#include <strings.h>
2112 $ WS "bzero(foo, 10);
2116 $ DEFINE SYS$ERROR _NLA0:
2117 $ DEFINE SYS$OUTPUT _NLA0:
2118 $ on error then continue
2119 $ on warning then continue
2121 $ savedstatus = $status
2122 $ teststatus = f$extract(9,1,savedstatus)
2123 $ if (teststatus.nes."1")
2125 $ perl_d_bzero="undef"
2126 $ DEASSIGN SYS$OUTPUT
2127 $ DEASSIGN SYS$ERROR
2129 $ If (Needs_Opt.eqs."Yes")
2131 $ link temp.obj,temp.opt/opt
2135 $ savedstatus = $status
2136 $ teststatus = f$extract(9,1,savedstatus)
2137 $ DEASSIGN SYS$OUTPUT
2138 $ DEASSIGN SYS$ERROR
2139 $ if (teststatus.nes."1")
2141 $ perl_d_bzero="undef"
2143 $ perl_d_bzero="define"
2146 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
2152 $ WS "#include <stdlib.h>
2154 $ WS "#include <stdio.h>
2155 $ WS "#include <strings.h>
2158 $ WS "char foo[10], bar[10];
2159 $ WS "bcopy(""foo"", bar, 3);
2163 $ DEFINE SYS$ERROR _NLA0:
2164 $ DEFINE SYS$OUTPUT _NLA0:
2165 $ on error then continue
2166 $ on warning then continue
2168 $ savedstatus = $status
2169 $ teststatus = f$extract(9,1,savedstatus)
2170 $ if (teststatus.nes."1")
2172 $ perl_d_bcopy="undef"
2173 $ DEASSIGN SYS$OUTPUT
2174 $ DEASSIGN SYS$ERROR
2176 $ If (Needs_Opt.eqs."Yes")
2178 $ link temp.obj,temp.opt/opt
2182 $ savedstatus = $status
2183 $ teststatus = f$extract(9,1,savedstatus)
2184 $ DEASSIGN SYS$OUTPUT
2185 $ DEASSIGN SYS$ERROR
2186 $ if (teststatus.nes."1")
2188 $ perl_d_bcopy="undef"
2190 $ perl_d_bcopy="define"
2193 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
2195 $! Check for mkstemp
2199 $ WS "#include <stdlib.h>
2201 $ WS "#include <stdio.h>
2204 $ WS "mkstemp(""foo"");
2208 $ DEFINE SYS$ERROR _NLA0:
2209 $ DEFINE SYS$OUTPUT _NLA0:
2210 $ on error then continue
2211 $ on warning then continue
2213 $ If (Needs_Opt.eqs."Yes")
2215 $ link temp.obj,temp.opt/opt
2219 $ savedstatus = $status
2220 $ teststatus = f$extract(9,1,savedstatus)
2221 $ DEASSIGN SYS$OUTPUT
2222 $ DEASSIGN SYS$ERROR
2223 $ if (teststatus.nes."1")
2225 $ perl_d_mkstemp="undef"
2227 $ perl_d_mkstemp="define"
2229 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
2231 $! Check for mkstemps
2235 $ WS "#include <stdlib.h>
2237 $ WS "#include <stdio.h>
2240 $ WS "mkstemps(""foo"", 1);
2244 $ DEFINE SYS$ERROR _NLA0:
2245 $ DEFINE SYS$OUTPUT _NLA0:
2246 $ on error then continue
2247 $ on warning then continue
2249 $ If (Needs_Opt.eqs."Yes")
2251 $ link temp.obj,temp.opt/opt
2255 $ savedstatus = $status
2256 $ teststatus = f$extract(9,1,savedstatus)
2257 $ DEASSIGN SYS$OUTPUT
2258 $ DEASSIGN SYS$ERROR
2259 $ if (teststatus.nes."1")
2261 $ perl_d_mkstemps="undef"
2263 $ perl_d_mkstemps="define"
2265 $ WRITE_RESULT "d_mkstemps is ''perl_d_mkstemps'"
2271 $ WS "#include <stdlib.h>
2273 $ WS "#include <stdio.h>
2274 $ WS "#include <iconv.h>
2277 $ WS " iconv_t cd = (iconv_t)0;"
2278 $ WS " char *inbuf, *outbuf;"
2279 $ WS " size_t inleft, outleft;"
2280 $ WS " iconv(cd, &inbuf, &inleft, &outbuf, &outleft);"
2284 $ DEFINE SYS$ERROR _NLA0:
2285 $ DEFINE SYS$OUTPUT _NLA0:
2286 $ on error then continue
2287 $ on warning then continue
2289 $ savedstatus = $status
2290 $ teststatus = f$extract(9,1,savedstatus)
2291 $ if (teststatus.nes."1")
2293 $ perl_d_iconv="undef"
2294 $ perl_i_iconv="undef"
2295 $ DEASSIGN SYS$OUTPUT
2296 $ DEASSIGN SYS$ERROR
2298 $ If (Needs_Opt.eqs."Yes")
2300 $ link temp.obj,temp.opt/opt
2304 $ savedstatus = $status
2305 $ teststatus = f$extract(9,1,savedstatus)
2306 $ DEASSIGN SYS$OUTPUT
2307 $ DEASSIGN SYS$ERROR
2308 $ if (teststatus.nes."1")
2310 $ perl_d_iconv="undef"
2311 $ perl_i_iconv="undef"
2313 $ perl_d_iconv="define"
2314 $ perl_i_iconv="define"
2317 $ WRITE_RESULT "d_iconv is ''perl_d_iconv'"
2318 $ WRITE_RESULT "i_iconv is ''perl_i_iconv'"
2320 $! Check for mkdtemp
2324 $ WS "#include <stdlib.h>
2326 $ WS "#include <stdio.h>
2329 $ WS "mkdtemp(""foo"");
2333 $ DEFINE SYS$ERROR _NLA0:
2334 $ DEFINE SYS$OUTPUT _NLA0:
2335 $ on error then continue
2336 $ on warning then continue
2338 $ If (Needs_Opt.eqs."Yes")
2340 $ link temp.obj,temp.opt/opt
2344 $ savedstatus = $status
2345 $ teststatus = f$extract(9,1,savedstatus)
2346 $ DEASSIGN SYS$OUTPUT
2347 $ DEASSIGN SYS$ERROR
2348 $ if (teststatus.nes."1")
2350 $ perl_d_mkdtemp="undef"
2352 $ perl_d_mkdtemp="define"
2354 $ WRITE_RESULT "d_mkdtemp is ''perl_d_mkdtemp'"
2356 $! Check for setvbuf
2360 $ WS "#include <stdlib.h>
2362 $ WS "#include <stdio.h>
2366 $ WS "char Buffer[99];
2367 $ WS "foo = fopen(""foo"", ""r"");
2368 $ WS "setvbuf(foo, Buffer, 0, 0);
2372 $ DEFINE SYS$ERROR _NLA0:
2373 $ DEFINE SYS$OUTPUT _NLA0:
2374 $ on error then continue
2375 $ on warning then continue
2377 $ If (Needs_Opt.eqs."Yes")
2379 $ link temp.obj,temp.opt/opt
2383 $ teststatus = f$extract(9,1,$status)
2384 $ DEASSIGN SYS$OUTPUT
2385 $ DEASSIGN SYS$ERROR
2386 $ if (teststatus.nes."1")
2388 $ perl_d_setvbuf="undef"
2390 $ perl_d_setvbuf="define"
2392 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
2398 $ WS "#include <stdlib.h>
2400 $ WS "#include <stdio.h>
2403 $ WS "setenv(""FOO"", ""BAR"", 0);
2407 $ DEFINE SYS$ERROR _NLA0:
2408 $ DEFINE SYS$OUTPUT _NLA0:
2409 $ on error then continue
2410 $ on warning then continue
2412 $ If (Needs_Opt.eqs."Yes")
2414 $ link temp,temp/opt
2418 $ teststatus = f$extract(9,1,$status)
2419 $ DEASSIGN SYS$OUTPUT
2420 $ DEASSIGN SYS$ERROR
2421 $ if (teststatus.nes."1")
2423 $ perl_d_setenv="undef"
2425 $ perl_d_setenv="define"
2427 $ WRITE_RESULT "d_setenv is ''perl_d_setenv'"
2429 $! Check for <netinet/in.h>
2431 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2435 $ WS "#include <stdlib.h>
2437 $ WS "#include <stdio.h>
2438 $ if ("''Has_Socketshr'".eqs."T")
2440 $ WS "#include <socketshr.h>"
2442 $ WS "#include <netdb.h>
2444 $ WS "#include <netinet/in.h>"
2450 $ DEFINE SYS$ERROR _NLA0:
2451 $ DEFINE SYS$OUTPUT _NLA0:
2452 $ on error then continue
2453 $ on warning then continue
2455 $ If (Needs_Opt.eqs."Yes")
2457 $ link temp.obj,temp.opt/opt
2461 $ teststatus = f$extract(9,1,$status)
2462 $ DEASSIGN SYS$OUTPUT
2463 $ DEASSIGN SYS$ERROR
2464 $ if (teststatus.nes."1")
2466 $ perl_i_niin="undef"
2468 $ perl_i_niin="define"
2471 $ perl_i_niin="undef"
2473 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
2475 $! Check for <netinet/tcp.h>
2477 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2481 $ WS "#include <stdlib.h>
2483 $ WS "#include <stdio.h>
2484 $ if ("''Has_Socketshr'".eqs."T")
2486 $ WS "#include <socketshr.h>"
2488 $ WS "#include <netdb.h>
2490 $ WS "#include <netinet/tcp.h>"
2496 $ DEFINE SYS$ERROR _NLA0:
2497 $ DEFINE SYS$OUTPUT _NLA0:
2498 $ on error then continue
2499 $ on warning then continue
2501 $ If (Needs_Opt.eqs."Yes")
2503 $ link temp.obj,temp.opt/opt
2507 $ teststatus = f$extract(9,1,$status)
2508 $ DEASSIGN SYS$OUTPUT
2509 $ DEASSIGN SYS$ERROR
2510 $ if (teststatus.nes."1")
2512 $ perl_i_netinettcp="undef"
2514 $ perl_i_netinettcp="define"
2517 $ perl_i_netinettcp="undef"
2519 $ WRITE_RESULT "i_netinettcp is ''perl_i_netinettcp'"
2521 $! Check for endhostent
2523 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2527 $ WS "#include <stdlib.h>
2529 $ WS "#include <stdio.h>
2530 $ if ("''Has_Socketshr'".eqs."T")
2532 $ WS "#include <socketshr.h>"
2534 $ WS "#include <netdb.h>
2542 $ DEFINE SYS$ERROR _NLA0:
2543 $ DEFINE SYS$OUTPUT _NLA0:
2544 $ on error then continue
2545 $ on warning then continue
2547 $ If (Needs_Opt.eqs."Yes")
2549 $ link temp.obj,temp.opt/opt
2553 $ teststatus = f$extract(9,1,$status)
2554 $ DEASSIGN SYS$OUTPUT
2555 $ DEASSIGN SYS$ERROR
2556 $ if (teststatus.nes."1")
2558 $ perl_d_endhent="undef"
2560 $ perl_d_endhent="define"
2563 $ perl_d_endhent="undef"
2565 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
2567 $! Check for endnetent
2569 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2573 $ WS "#include <stdlib.h>
2575 $ WS "#include <stdio.h>
2576 $ if ("''Has_Socketshr'".eqs."T")
2578 $ WS "#include <socketshr.h>"
2580 $ WS "#include <netdb.h>
2588 $ DEFINE SYS$ERROR _NLA0:
2589 $ DEFINE SYS$OUTPUT _NLA0:
2590 $ on error then continue
2591 $ on warning then continue
2593 $ If (Needs_Opt.eqs."Yes")
2595 $ link temp.obj,temp.opt/opt
2599 $ teststatus = f$extract(9,1,$status)
2600 $ DEASSIGN SYS$OUTPUT
2601 $ DEASSIGN SYS$ERROR
2602 $ if (teststatus.nes."1")
2604 $ perl_d_endnent="undef"
2606 $ perl_d_endnent="define"
2609 $ perl_d_endnent="undef"
2611 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
2613 $! Check for endprotoent
2615 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2619 $ WS "#include <stdlib.h>
2621 $ WS "#include <stdio.h>
2622 $ if ("''Has_Socketshr'".eqs."T")
2624 $ WS "#include <socketshr.h>"
2626 $ WS "#include <netdb.h>
2630 $ WS "endprotoent();
2634 $ DEFINE SYS$ERROR _NLA0:
2635 $ DEFINE SYS$OUTPUT _NLA0:
2636 $ on error then continue
2637 $ on warning then continue
2639 $ If (Needs_Opt.eqs."Yes")
2641 $ link temp.obj,temp.opt/opt
2645 $ teststatus = f$extract(9,1,$status)
2646 $ DEASSIGN SYS$OUTPUT
2647 $ DEASSIGN SYS$ERROR
2648 $ if (teststatus.nes."1")
2650 $ perl_d_endpent="undef"
2652 $ perl_d_endpent="define"
2655 $ perl_d_endpent="undef"
2657 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
2659 $! Check for endservent
2661 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2665 $ WS "#include <stdlib.h>
2667 $ WS "#include <stdio.h>
2668 $ if ("''Has_Socketshr'".eqs."T")
2670 $ WS "#include <socketshr.h>"
2672 $ WS "#include <netdb.h>
2680 $ DEFINE SYS$ERROR _NLA0:
2681 $ DEFINE SYS$OUTPUT _NLA0:
2682 $ on error then continue
2683 $ on warning then continue
2685 $ If (Needs_Opt.eqs."Yes")
2687 $ link temp.obj,temp.opt/opt
2691 $ teststatus = f$extract(9,1,$status)
2692 $ DEASSIGN SYS$OUTPUT
2693 $ DEASSIGN SYS$ERROR
2694 $ if (teststatus.nes."1")
2696 $ perl_d_endsent="undef"
2698 $ perl_d_endsent="define"
2701 $ perl_d_endsent="undef"
2703 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
2705 $! Check for sethostent
2707 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2711 $ WS "#include <stdlib.h>
2713 $ WS "#include <stdio.h>
2714 $ if ("''Has_Socketshr'".eqs."T")
2716 $ WS "#include <socketshr.h>"
2718 $ WS "#include <netdb.h>
2722 $ WS "sethostent(1);
2726 $ DEFINE SYS$ERROR _NLA0:
2727 $ DEFINE SYS$OUTPUT _NLA0:
2728 $ on error then continue
2729 $ on warning then continue
2731 $ If (Needs_Opt.eqs."Yes")
2733 $ link temp.obj,temp.opt/opt
2737 $ teststatus = f$extract(9,1,$status)
2738 $ DEASSIGN SYS$OUTPUT
2739 $ DEASSIGN SYS$ERROR
2740 $ if (teststatus.nes."1")
2742 $ perl_d_sethent="undef"
2744 $ perl_d_sethent="define"
2747 $ perl_d_sethent="undef"
2749 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
2751 $! Check for setnetent
2753 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2757 $ WS "#include <stdlib.h>
2759 $ WS "#include <stdio.h>
2760 $ if ("''Has_Socketshr'".eqs."T")
2762 $ WS "#include <socketshr.h>"
2764 $ WS "#include <netdb.h>
2772 $ DEFINE SYS$ERROR _NLA0:
2773 $ DEFINE SYS$OUTPUT _NLA0:
2774 $ on error then continue
2775 $ on warning then continue
2777 $ If (Needs_Opt.eqs."Yes")
2779 $ link temp.obj,temp.opt/opt
2783 $ teststatus = f$extract(9,1,$status)
2784 $ DEASSIGN SYS$OUTPUT
2785 $ DEASSIGN SYS$ERROR
2786 $ if (teststatus.nes."1")
2788 $ perl_d_setnent="undef"
2790 $ perl_d_setnent="define"
2793 $ perl_d_setnent="undef"
2795 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
2797 $! Check for setprotoent
2799 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2803 $ WS "#include <stdlib.h>
2805 $ WS "#include <stdio.h>
2806 $ if ("''Has_Socketshr'".eqs."T")
2808 $ WS "#include <socketshr.h>"
2810 $ WS "#include <netdb.h>
2814 $ WS "setprotoent(1);
2818 $ DEFINE SYS$ERROR _NLA0:
2819 $ DEFINE SYS$OUTPUT _NLA0:
2820 $ on error then continue
2821 $ on warning then continue
2823 $ If (Needs_Opt.eqs."Yes")
2825 $ link temp.obj,temp.opt/opt
2829 $ teststatus = f$extract(9,1,$status)
2830 $ DEASSIGN SYS$OUTPUT
2831 $ DEASSIGN SYS$ERROR
2832 $ if (teststatus.nes."1")
2834 $ perl_d_setpent="undef"
2836 $ perl_d_setpent="define"
2839 $ perl_d_setpent="undef"
2841 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
2843 $! Check for setservent
2845 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2849 $ WS "#include <stdlib.h>
2851 $ WS "#include <stdio.h>
2852 $ if ("''Has_Socketshr'".eqs."T")
2854 $ WS "#include <socketshr.h>"
2856 $ WS "#include <netdb.h>
2860 $ WS "setservent(1);
2864 $ DEFINE SYS$ERROR _NLA0:
2865 $ DEFINE SYS$OUTPUT _NLA0:
2866 $ on error then continue
2867 $ on warning then continue
2869 $ If (Needs_Opt.eqs."Yes")
2871 $ link temp.obj,temp.opt/opt
2875 $ teststatus = f$extract(9,1,$status)
2876 $ DEASSIGN SYS$OUTPUT
2877 $ DEASSIGN SYS$ERROR
2878 $ if (teststatus.nes."1")
2880 $ perl_d_setsent="undef"
2882 $ perl_d_setsent="define"
2885 $ perl_d_setsent="undef"
2887 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
2889 $! Check for gethostent
2891 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2895 $ WS "#include <stdlib.h>
2897 $ WS "#include <stdio.h>
2898 $ if ("''Has_Socketshr'".eqs."T")
2900 $ WS "#include <socketshr.h>"
2902 $ WS "#include <netdb.h>
2910 $ DEFINE SYS$ERROR _NLA0:
2911 $ DEFINE SYS$OUTPUT _NLA0:
2912 $ on error then continue
2913 $ on warning then continue
2915 $ If (Needs_Opt.eqs."Yes")
2917 $ link temp.obj,temp.opt/opt
2921 $ teststatus = f$extract(9,1,$status)
2922 $ DEASSIGN SYS$OUTPUT
2923 $ DEASSIGN SYS$ERROR
2924 $ if (teststatus.nes."1")
2926 $ perl_d_gethent="undef"
2928 $ perl_d_gethent="define"
2931 $ perl_d_gethent="undef"
2933 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
2935 $! Check for getnetent
2937 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2941 $ WS "#include <stdlib.h>
2943 $ WS "#include <stdio.h>
2944 $ if ("''Has_Socketshr'".eqs."T")
2946 $ WS "#include <socketshr.h>"
2948 $ WS "#include <netdb.h>
2956 $ DEFINE SYS$ERROR _NLA0:
2957 $ DEFINE SYS$OUTPUT _NLA0:
2958 $ on error then continue
2959 $ on warning then continue
2961 $ If (Needs_Opt.eqs."Yes")
2963 $ link temp.obj,temp.opt/opt
2967 $ teststatus = f$extract(9,1,$status)
2968 $ DEASSIGN SYS$OUTPUT
2969 $ DEASSIGN SYS$ERROR
2970 $ if (teststatus.nes."1")
2972 $ perl_d_getnent="undef"
2974 $ perl_d_getnent="define"
2977 $ perl_d_getnent="undef"
2979 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
2981 $! Check for getprotoent
2983 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2987 $ WS "#include <stdlib.h>
2989 $ WS "#include <stdio.h>
2990 $ if ("''Has_Socketshr'".eqs."T")
2992 $ WS "#include <socketshr.h>"
2994 $ WS "#include <netdb.h>
2998 $ WS "getprotoent();
3002 $ DEFINE SYS$ERROR _NLA0:
3003 $ DEFINE SYS$OUTPUT _NLA0:
3004 $ on error then continue
3005 $ on warning then continue
3007 $ If (Needs_Opt.eqs."Yes")
3009 $ link temp.obj,temp.opt/opt
3013 $ teststatus = f$extract(9,1,$status)
3014 $ DEASSIGN SYS$OUTPUT
3015 $ DEASSIGN SYS$ERROR
3016 $ if (teststatus.nes."1")
3018 $ perl_d_getpent="undef"
3020 $ perl_d_getpent="define"
3023 $ perl_d_getpent="undef"
3025 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
3027 $! Check for getservent
3029 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
3033 $ WS "#include <stdlib.h>
3035 $ WS "#include <stdio.h>
3036 $ if ("''Has_Socketshr'".eqs."T")
3038 $ WS "#include <socketshr.h>"
3040 $ WS "#include <netdb.h>
3048 $ DEFINE SYS$ERROR _NLA0:
3049 $ DEFINE SYS$OUTPUT _NLA0:
3050 $ on error then continue
3051 $ on warning then continue
3053 $ If (Needs_Opt.eqs."Yes")
3055 $ link temp.obj,temp.opt/opt
3059 $ teststatus = f$extract(9,1,$status)
3060 $ DEASSIGN SYS$OUTPUT
3061 $ DEASSIGN SYS$ERROR
3062 $ if (teststatus.nes."1")
3064 $ perl_d_getsent="undef"
3066 $ perl_d_getsent="define"
3069 $ perl_d_getsent="undef"
3071 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
3073 $! Check for socklen_t
3075 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
3079 $ WS "#include <stdlib.h>
3081 $ WS "#include <stdio.h>
3082 $ IF ("''Has_Socketshr'".eqs."T")
3084 $ WS "#include <socketshr.h>"
3086 $ WS "#include <netdb.h>
3090 $ WS "socklen_t x = 16;
3094 $ DEFINE SYS$ERROR _NLA0:
3095 $ DEFINE SYS$OUTPUT _NLA0:
3096 $ on error then continue
3097 $ on warning then continue
3099 $ If (Needs_Opt.eqs."Yes")
3101 $ link temp.obj,temp.opt/opt
3105 $ teststatus = f$extract(9,1,$status)
3106 $ DEASSIGN SYS$OUTPUT
3107 $ DEASSIGN SYS$ERROR
3108 $ if (teststatus.nes."1")
3110 $ perl_d_socklen_t="undef"
3112 $ perl_d_socklen_t="define"
3115 $ perl_d_socklen_t="undef"
3117 $ WRITE_RESULT "d_socklen_t is ''perl_d_socklen_t'"
3119 $! Check for pthread_yield
3121 $ if ("''use_threads'".eqs."T")
3125 $ WS "#include <stdlib.h>
3127 $ WS "#include <pthread.h>
3128 $ WS "#include <stdio.h>
3131 $ WS "pthread_yield();
3135 $ DEFINE SYS$ERROR _NLA0:
3136 $ DEFINE SYS$OUTPUT _NLA0:
3137 $ on error then continue
3138 $ on warning then continue
3140 $ teststatus = f$extract(9,1,$status)
3141 $ DEASSIGN SYS$OUTPUT
3142 $ DEASSIGN SYS$ERROR
3143 $ if (teststatus.nes."1")
3145 $ perl_d_pthread_yield="undef"
3147 $ perl_d_pthread_yield="define"
3150 $ perl_d_pthread_yield="undef"
3152 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
3154 $! Check for sched_yield
3156 $ if ("''use_threads'".eqs."T")
3160 $ WS "#include <stdlib.h>
3162 $ WS "#include <pthread.h>
3163 $ WS "#include <stdio.h>
3166 $ WS "sched_yield();
3170 $ DEFINE SYS$ERROR _NLA0:
3171 $ DEFINE SYS$OUTPUT _NLA0:
3172 $ on error then continue
3173 $ on warning then continue
3175 $ teststatus = f$extract(9,1,$status)
3176 $ DEASSIGN SYS$OUTPUT
3177 $ DEASSIGN SYS$ERROR
3178 $ if (teststatus.nes."1")
3180 $ perl_d_sched_yield="undef"
3181 $ perl_sched_yield = " "
3183 $ perl_d_sched_yield="define"
3184 $ perl_sched_yield = "sched_yield"
3187 $ perl_d_sched_yield="undef"
3188 $ perl_sched_yield = " "
3190 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
3191 $ WRITE_RESULT "sched_yield is ''perl_sched_yield'"
3193 $! Check for generic pointer size
3197 $ WS "#include <stdlib.h>
3199 $ WS "#include <stdio.h>
3203 $ WS "foo = sizeof(char *);
3204 $ WS "printf(""%d\n"", foo);
3208 $ DEFINE SYS$ERROR _NLA0:
3209 $ DEFINE SYS$OUTPUT _NLA0:
3210 $ ON ERROR THEN CONTINUE
3211 $ ON WARNING THEN CONTINUE
3213 $ If (Needs_Opt.eqs."Yes")
3215 $ link temp.obj,temp.opt/opt
3219 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3220 $ DEASSIGN SYS$OUTPUT
3221 $ DEASSIGN SYS$ERROR
3222 $ DEFINE SYS$ERROR TEMPOUT
3223 $ DEFINE SYS$OUTPUT TEMPOUT
3226 $ DEASSIGN SYS$OUTPUT
3227 $ DEASSIGN SYS$ERROR
3228 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3231 $ DELETE/NOLOG [-.uu]tempout.lis;
3234 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
3236 $! Check rand48 and its ilk
3240 $ WS "#include <stdlib.h>
3242 $ WS "#include <stdio.h>
3245 $ WS "srand48(12L);"
3250 $ DEFINE SYS$ERROR _NLA0:
3251 $ DEFINE SYS$OUTPUT _NLA0:
3252 $ ON ERROR THEN CONTINUE
3253 $ ON WARNING THEN CONTINUE
3255 $ If (Needs_Opt.eqs."Yes")
3257 $ link temp,temp.opt/opt
3261 $ teststatus = f$extract(9,1,$status)
3262 $ DEASSIGN SYS$OUTPUT
3263 $ DEASSIGN SYS$ERROR
3264 $ if (teststatus.nes."1")
3266 $ perl_drand01="random()"
3267 $ perl_randseedtype = "unsigned"
3268 $ perl_seedfunc = "srandom"
3272 $ WS "#include <stdlib.h>
3274 $ WS "#include <stdio.h>
3281 $! copy temp.c sys$output
3283 $ DEFINE SYS$ERROR _NLA0:
3284 $ DEFINE SYS$OUTPUT _NLA0:
3285 $ ON ERROR THEN CONTINUE
3286 $ ON WARNING THEN CONTINUE
3288 $ If (Needs_Opt.eqs."Yes")
3290 $ link temp,temp.opt/opt
3294 $ teststatus = f$extract(9,1,$status)
3295 $ DEASSIGN SYS$OUTPUT
3296 $ DEASSIGN SYS$ERROR
3297 $ if (teststatus.nes."1")
3299 $ perl_drand01="(((float)rand())/((float)RAND_MAX))"
3300 $ perl_randseedtype = "unsigned"
3301 $ perl_seedfunc = "srand"
3303 $ WRITE_RESULT "drand01 is ''perl_drand01'"
3306 $! Done with compiler checks. Clean up.
3307 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
3308 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
3309 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
3310 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
3313 $! Some that are compiler or VMS version sensitive
3316 $ IF "''Using_Gnu_C'".EQS."Yes"
3318 $ perl_d_attribut="define"
3319 $ perl_vms_cc_type="gcc"
3321 $ perl_vms_cc_type="cc"
3322 $ perl_d_attribut="undef"
3325 $! Dec C >= 5.2 and VMS ver >= 7.0
3326 $ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
3328 $ perl_d_bcmp="define"
3329 $ perl_d_gettimeod="define"
3330 $ perl_d_uname="define"
3331 $ perl_d_sigaction="define"
3332 $ perl_d_truncate="define"
3333 $ perl_d_wait4="define"
3334 $ perl_d_index="define"
3335 $ perl_pidtype="pid_t"
3336 $ 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"
3337 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3338 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
3339 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
3340 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
3341 $ 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"
3342 $ 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"
3343 $ perl_sig_num_with_commas=perl_sig_num_init
3344 $ perl_uidtype="uid_t"
3345 $ perl_d_pathconf="define"
3346 $ perl_d_fpathconf="define"
3347 $ perl_d_sysconf="define"
3348 $ perl_d_sigsetjmp="define"
3350 $ perl_pidtype="unsigned int"
3351 $ perl_d_gettimeod="undef"
3352 $ perl_d_bcmp="undef"
3353 $ perl_d_uname="undef"
3354 $ perl_d_sigaction="undef"
3355 $ perl_d_truncate="undef"
3356 $ perl_d_wait4="undef"
3357 $ perl_d_index="undef"
3358 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
3359 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3360 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
3361 $ perl_sig_name_with_commas = psnwc1 + psnwc2
3362 $ perl_sig_num="0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 6 16 17"",0"
3363 $ perl_sig_num_init="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
3364 $ perl_sig_num_with_commas=perl_sig_num_init
3365 $ perl_uidtype="unsigned int"
3366 $ perl_d_pathconf="undef"
3367 $ perl_d_fpathconf="undef"
3368 $ perl_d_sysconf="undef"
3369 $ perl_d_sigsetjmp="undef"
3373 $ IF ("''Using_Dec_C'".EQS."Yes")
3375 $ perl_d_mbstowcs="define"
3376 $ perl_d_mbtowc="define"
3377 $ perl_d_stdiobase="define"
3378 $ perl_d_stdio_ptr_lval="define"
3379 $ perl_d_stdio_cnt_lval="define"
3380 $ perl_d_stdstdio="define"
3381 $ perl_d_wcstombs="define"
3382 $ perl_d_mblen="define"
3383 $ perl_d_mktime="define"
3384 $ perl_d_strcoll="define"
3385 $ perl_d_strxfrm="define"
3386 $ perl_d_wctomb="define"
3387 $ perl_i_locale="define"
3388 $ perl_d_locconv="define"
3389 $ perl_d_setlocale="define"
3390 $ perl_vms_cc_type="decc"
3392 $ perl_d_mbstowcs="undef"
3393 $ perl_d_mbtowc="undef"
3394 $ perl_d_stdiobase="undef"
3395 $ perl_d_stdio_ptr_lval="undef"
3396 $ perl_d_stdio_cnt_lval="undef"
3397 $ perl_d_stdstdio="undef"
3398 $ perl_d_wcstombs="undef"
3399 $ perl_d_mblen="undef"
3400 $ perl_d_mktime="undef"
3401 $ perl_d_strcoll="undef"
3402 $ perl_d_strxfrm="undef"
3403 $ perl_d_wctomb="undef"
3404 $ perl_i_locale="undef"
3405 $ perl_d_locconv="undef"
3406 $ perl_d_setlocale="undef"
3410 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
3412 $ perl_d_vms_do_sockets="define"
3413 $ perl_d_htonl="define"
3414 $ perl_d_socket="define"
3415 $ perl_d_select="define"
3416 $ perl_netdb_host_type="char *"
3417 $ perl_netdb_hlen_type="int"
3418 $ perl_netdb_name_type="char *"
3419 $ perl_netdb_net_type="long"
3420 $ perl_d_gethbyaddr="define"
3421 $ perl_d_gethbyname="define"
3422 $ perl_d_getnbyaddr="define"
3423 $ perl_d_getnbyname="define"
3424 $ perl_d_getpbynumber="define"
3425 $ perl_d_getpbyname="define"
3426 $ perl_d_getsbyport="define"
3427 $ perl_d_getsbyname="define"
3428 $ perl_d_gethostprotos="define"
3429 $ perl_d_getnetprotos="define"
3430 $ perl_d_getprotoprotos="define"
3431 $ perl_d_getservprotos="define"
3432 $ IF ("''Using_Dec_C'".EQS."Yes")
3434 $ perl_socksizetype="unsigned int"
3436 $ perl_socksizetype="int *"
3439 $ perl_d_vms_do_sockets="undef"
3440 $ perl_d_htonl="undef"
3441 $ perl_d_socket="undef"
3442 $ perl_d_select="undef"
3443 $ perl_netdb_host_type="char *"
3444 $ perl_netdb_hlen_type="int"
3445 $ perl_netdb_name_type="char *"
3446 $ perl_netdb_net_type="long"
3447 $ perl_d_gethbyaddr="undef"
3448 $ perl_d_gethbyname="undef"
3449 $ perl_d_getnbyaddr="undef"
3450 $ perl_d_getnbyname="undef"
3451 $ perl_d_getpbynumber="undef"
3452 $ perl_d_getpbyname="undef"
3453 $ perl_d_getsbyport="undef"
3454 $ perl_d_getsbyname="undef"
3455 $ perl_d_gethostprotos="undef"
3456 $ perl_d_getnetprotos="undef"
3457 $ perl_d_getprotoprotos="undef"
3458 $ perl_d_getservprotos="undef"
3459 $ perl_socksizetype="undef"
3462 $ if ("''use_threads'".eqs."T")
3464 $ perl_usethreads="define"
3465 $ perl_d_pthreads_created_joinable="define"
3466 $ if ("''VMS_VER'".ges."7.0")
3468 $ perl_d_oldpthreads="undef"
3470 $ perl_d_oldpthreads="define"
3473 $ perl_d_oldpthreads="undef"
3474 $ perl_usethreads="undef"
3476 $ perl_d_pthreads_created_joinable="undef"
3479 $! new (5.005_62++) typedefs for primitives
3481 $ perl_ivtype="long"
3482 $ perl_uvtype="unsigned long"
3483 $ perl_i8type="char"
3484 $ perl_u8type="unsigned char"
3485 $ perl_i16type="short"
3486 $ perl_u16type="unsigned short"
3487 $ perl_i32type="int"
3488 $ perl_u32type="unsigned int"
3489 $ perl_i64type="long long"
3490 $ perl_u64type="unsigned long long"
3491 $ perl_nvtype="double"
3493 $ GOTO beyond_type_size_check
3497 $! Check for type sizes
3501 $ WS "#include <stdlib.h>
3503 $ WS "#include <stdio.h>
3506 $ WS "printf(""%d\n"", sizeof(''type'));"
3510 $ DEFINE SYS$ERROR _NLA0:
3511 $ DEFINE SYS$OUTPUT _NLA0:
3512 $ ON ERROR THEN CONTINUE
3513 $ ON WARNING THEN CONTINUE
3515 $ If (Needs_Opt.eqs."Yes")
3517 $ link temp.obj,temp.opt/opt
3521 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3522 $ DEASSIGN SYS$OUTPUT
3523 $ DEASSIGN SYS$ERROR
3524 $ DEFINE SYS$ERROR TEMPOUT
3525 $ DEFINE SYS$OUTPUT TEMPOUT
3528 $ DEASSIGN SYS$OUTPUT
3529 $ DEASSIGN SYS$ERROR
3530 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3533 $ DELETE/NOLOG [-.uu]tempout.lis;
3534 $ WRITE_RESULT "''size_name' is ''line'"
3538 $beyond_type_size_check:
3541 $ type = "''perl_ivtype'"
3542 $ size_name = "ivsize"
3543 $ gosub type_size_check
3544 $ perl_ivsize="''line'"
3545 $ IF type .eqs. "long"
3546 $ THEN perl_longsize = "''line'"
3549 $ size_name = "longsize"
3550 $ gosub type_size_check
3551 $ perl_longsize="''line'"
3554 $ type = "''perl_uvtype'"
3555 $ size_name = "uvsize"
3556 $ gosub type_size_check
3557 $ perl_uvsize="''line'"
3559 $ type = "''perl_i8type'"
3560 $ size_name = "i8size"
3561 $ gosub type_size_check
3562 $ perl_i8size="''line'"
3564 $ type = "''perl_u8type'"
3565 $ size_name = "u8size"
3566 $ gosub type_size_check
3567 $ perl_u8size="''line'"
3569 $ type = "''perl_i16type'"
3570 $ size_name = "i16size"
3571 $ gosub type_size_check
3572 $ perl_i16size="''line'"
3573 $ IF type .eqs. "short"
3574 $ THEN perl_shortsize="''line'"
3576 $ type = "''perl_i16type'"
3577 $ size_name = "shortsize"
3578 $ gosub type_size_check
3579 $ perl_shortsize="''line'"
3582 $ type = "''perl_u16type'"
3583 $ size_name = "u16size"
3584 $ gosub type_size_check
3585 $ perl_u16size="''line'"
3587 $ type = "''perl_i32type'"
3588 $ size_name = "i32size"
3589 $ gosub type_size_check
3590 $ perl_i32size="''line'"
3591 $ IF type .eqs. "int"
3592 $ THEN perl_intsize="''perl_i32size'"
3595 $ size_name = "intsize"
3596 $ gosub type_size_check
3597 $ perl_intsize="''line'"
3600 $ type = "''perl_u32type'"
3601 $ size_name = "u32size"
3602 $ gosub type_size_check
3603 $ perl_u32size="''line'"
3607 $ type = "''perl_i64type'"
3608 $ size_name = "i64size"
3609 $ gosub type_size_check
3610 $ perl_i64size="''line'"
3611 $ perl_ivtype="''perl_i64type'"
3613 $ type = "''perl_u64type'"
3614 $ size_name = "u64size"
3615 $ gosub type_size_check
3616 $ perl_u64size="''line'"
3617 $ perl_uvtype="''perl_u64type'"
3618 $ perl_nvtype="long double"
3620 $ perl_i64size="undef"
3621 $ perl_u64size="undef"
3624 $ perl_ivdformat="""ld"""
3625 $ perl_uvuformat="""lu"""
3626 $ perl_uvoformat="""lo"""
3627 $ perl_uvxformat="""lx"""
3629 $! Finally the composite ones. All config
3630 $ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3631 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3632 $ perl_myhostname="''myhostname'"
3633 $ perl_mydomain="''mydomain'"
3634 $ perl_perladmin="''perladmin'"
3635 $ perl_cf_email="''cf_email'"
3636 $ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
3637 $ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3638 $ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
3639 $ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
3640 $ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
3641 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
3642 $ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3643 $ if "''Using_Dec_C'" .eqs. "Yes"
3645 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
3647 $ if use_vmsdebug_perl .eqs. "Y"
3649 $ perl_optimize="/Debug/NoOpt"
3650 $ perl_dbgprefix = "DBG"
3653 $ perl_dbgprefix = ""
3656 $! Finally clean off any leading zeros from the patchlevel or subversion
3657 $ perl_patchlevel = perl_patchlevel + 0
3658 $ perl_subversion = perl_subversion + 0
3660 $! Okay, we've got everything configured. Now go write out a config.sh.
3661 $ open/write CONFIGSH [-]config.sh
3662 $ WC := "write CONFIGSH"
3664 $ WC "# This file generated by Configure.COM on a VMS system."
3665 $ WC "# Time: " + perl_cf_time
3667 $ WC "CONFIGDOTSH=true"
3668 $ WC "package='" + perl_package + "'"
3669 $ WC "d_nv_preserves_uv='" + perl_d_nv_preserves_uv + "'"
3670 $ WC "use5005threads='" + perl_use5005threads + "'"
3671 $ WC "useithreads='" + perl_useithreads + "'"
3672 $ WC "CONFIG='" + perl_config + "'"
3673 $ WC "cf_time='" + perl_cf_time + "'"
3674 $ WC "cf_by='" + perl_cf_by+ "'"
3675 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
3676 $ WC "ccdlflags='" + perl_ccdlflags + "'"
3677 $ WC "cccdlflags='" + perl_cccdlflags + "'"
3678 $ WC "mab='" + perl_mab + "'"
3679 $ WC "libpth='" + perl_libpth + "'"
3680 $ WC "ld='" + perl_ld + "'"
3681 $ WC "lddlflags='" + perl_lddlflags + "'"
3682 $ WC "ranlib='" + perl_ranlib + "'"
3683 $ WC "ar='" + perl_ar + "'"
3684 $ WC "full_ar='" + perl_full_ar + "'"
3685 $ WC "eunicefix='" + perl_eunicefix + "'"
3686 $ WC "hint='" + perl_hint +"'"
3687 $ WC "hintfile='" + perl_hintfile + "'"
3688 $ WC "shrplib='" + perl_shrplib + "'"
3689 $ WC "usemymalloc='" + perl_usemymalloc + "'"
3690 $ WC "usevfork='" + perl_usevfork + "'"
3691 $ WC "useposix='false'"
3692 $ WC "spitshell='write sys$output '"
3693 $ WC "dlsrc='dl_vms.c'"
3694 $ WC "binexp='" + perl_binexp + "'"
3695 $ WC "man1ext='" + perl_man1ext + "'"
3696 $ WC "man3ext='" + perl_man3ext + "'"
3697 $ WC "arch='" + perl_arch + "'"
3698 $ WC "archname='" + perl_archname + "'"
3699 $ WC "osvers='" + perl_osvers + "'"
3700 $ WC "prefix='" + perl_prefix + "'"
3701 $ WC "builddir='" + perl_builddir + "'"
3702 $ WC "installbin='" + perl_installbin + "'"
3703 $ WC "installscript='" + perl_installscript + "'"
3704 $ WC "installman1dir='" + perl_installman1dir + "'"
3705 $ WC "installman3dir='" + perl_installman3dir + "'"
3706 $ WC "installprivlib='" + perl_installprivlib + "'"
3707 $ WC "installarchlib='" + perl_installarchlib + "'"
3708 $ WC "installsitelib='" + perl_installsitelib + "'"
3709 $ WC "installsitearch='" + perl_installsitearch + "'"
3710 $ WC "path_sep='" + perl_path_sep + "'"
3711 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
3712 $ WC "d_attribut='" + perl_d_attribut + "'"
3713 $ WC "cc='" + perl_cc + "'"
3714 $ WC "ccflags='" + perl_ccflags + "'"
3715 $ WC "optimize='" + perl_optimize + "'"
3716 $ WC "dbgprefix='" + perl_dbgprefix + "'"
3717 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
3718 $ WC "d_socket='" + perl_d_socket + "'"
3719 $ WC "d_sockpair='" + perl_d_sockpair + "'"
3720 $ WC "d_gethent='" + perl_d_gethent + "'"
3721 $ WC "d_getsent='" + perl_d_getsent + "'"
3722 $ WC "d_socklen_t='" + perl_d_socklen_t + "'"
3723 $ WC "d_select='" + perl_d_select + "'"
3724 $ WC "i_niin='" + perl_i_niin + "'"
3725 $ WC "i_netinettcp='" + perl_i_netinettcp + "'"
3726 $ WC "i_neterrno='" + perl_i_neterrno + "'"
3727 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
3728 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
3729 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
3730 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
3731 $ WC "d_locconv='" + perl_d_locconv + "'"
3732 $ WC "d_setlocale='" + perl_d_setlocale + "'"
3733 $ WC "i_locale='" + perl_i_locale + "'"
3734 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
3735 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
3736 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
3737 $ WC "d_wctomb='" + perl_d_wctomb + "'"
3738 $ WC "d_mblen='" + perl_d_mblen + "'"
3739 $ WC "d_mktime='" + perl_d_mktime + "'"
3740 $ WC "d_strcoll='" + perl_d_strcoll + "'"
3741 $ WC "d_strxfrm='" + perl_d_strxfrm + "'"
3742 $ WC "ldflags='" + perl_ldflags + "'"
3743 $ WC "dlobj='" + perl_dlobj + "'"
3744 $ WC "obj_ext='" + perl_obj_ext + "'"
3745 $ WC "so='" + perl_so + "'"
3746 $ WC "dlext='" + perl_dlext + "'"
3747 $ WC "exe_ext='" + perl_exe_ext + "'"
3748 $ WC "lib_ext='" + perl_lib_ext + "'"
3749 $ WC "myhostname='" + perl_myhostname + "'"
3750 $ WC "mydomain='" + perl_mydomain + "'"
3751 $ WC "perladmin='" + perl_perladmin + "'"
3752 $ WC "cf_email='" + perl_cf_email + "'"
3753 $ WC "myuname='" + perl_myuname + "'"
3754 $ WC "alignbytes='" + perl_alignbytes + "'"
3755 $ WC "osname='" + perl_osname + "'"
3756 $ WC "d_archlib='" + perl_d_archlib + "'"
3757 $ WC "archlibexp='" + perl_archlibexp + "'"
3758 $ WC "archlib='" + perl_archlib + "'"
3759 $ WC "archname='" + perl_archname + "'"
3760 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
3761 $ WC "cppstdin='" + perl_cppstdin + "'"
3762 $ WC "cppminus='" + perl_cppminus + "'"
3763 $ WC "cpprun='" + perl_cpprun + "'"
3764 $ WC "cpplast='" + perl_cpplast + "'"
3765 $ WC "d_bcmp='" + perl_d_bcmp + "'"
3766 $ WC "d_bcopy='" + perl_d_bcopy + "'"
3767 $ WC "d_bzero='" + perl_d_bzero + "'"
3768 $ WC "d_castneg='" + perl_d_castneg + "'"
3769 $ WC "castflags='" + perl_castflags + "'"
3770 $ WC "d_chsize='" + perl_d_chsize + "'"
3771 $ WC "d_const='" + perl_d_const + "'"
3772 $ WC "d_crypt='" + perl_d_crypt + "'"
3773 $ WC "byteorder='" + perl_byteorder + "'"
3774 $ WC "full_csh='" + perl_full_csh + "'"
3775 $ WC "d_csh='" + perl_d_csh + "'"
3776 $ WC "d_dup2='" + perl_d_dup2 + "'"
3777 $ WC "d_fchmod='" + perl_d_fchmod + "'"
3778 $ WC "d_fchown='" + perl_d_fchown + "'"
3779 $ WC "d_fcntl='" + perl_d_fcntl + "'"
3780 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
3781 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
3782 $ WC "d_flock='" + perl_d_flock + "'"
3783 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
3784 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
3785 $ WC "d_getgrps='" + perl_d_getgrps + "'"
3786 $ WC "d_setgrps='" + perl_d_setgrps + "'"
3787 $ WC "groupstype='" + perl_groupstype + "'"
3788 $ WC "d_uname='" + perl_d_uname + "'"
3789 $ WC "d_getprior='" + perl_d_getprior + "'"
3790 $ WC "d_killpg='" + perl_d_killpg + "'"
3791 $ WC "d_link='" + perl_d_link + "'"
3792 $ WC "d_lstat='" + perl_d_lstat + "'"
3793 $ WC "d_lockf='" + perl_d_lockf + "'"
3794 $ WC "d_memcmp='" + perl_d_memcmp + "'"
3795 $ WC "d_memcpy='" + perl_d_memcpy + "'"
3796 $ WC "d_memmove='" + perl_d_memmove + "'"
3797 $ WC "d_memset='" + perl_d_memset + "'"
3798 $ WC "d_mkdir='" + perl_d_mkdir + "'"
3799 $ WC "d_msg='" + perl_d_msg + "'"
3800 $ WC "d_open3='" + perl_d_open3 + "'"
3801 $ WC "d_poll='" + perl_d_poll + "'"
3802 $ WC "d_readdir='" + perl_d_readdir + "'"
3803 $ WC "d_seekdir='" + perl_d_seekdir + "'"
3804 $ WC "d_telldir='" + perl_d_telldir + "'"
3805 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
3806 $ WC "d_rename='" + perl_d_rename + "'"
3807 $ WC "d_rmdir='" + perl_d_rmdir + "'"
3808 $ WC "d_sem='" + perl_d_sem + "'"
3809 $ WC "d_setegid='" + perl_d_setegid + "'"
3810 $ WC "d_seteuid='" + perl_d_seteuid + "'"
3811 $ WC "d_setprior='" + perl_d_setprior + "'"
3812 $ WC "d_setregid='" + perl_d_setregid + "'"
3813 $ WC "d_setresgid='" + perl_d_setresgid + "'"
3814 $ WC "d_setreuid='" + perl_d_setreuid + "'"
3815 $ WC "d_setresuid='" + perl_d_setresuid + "'"
3816 $ WC "d_setrgid='" + perl_d_setrgid + "'"
3817 $ WC "d_setruid='" + perl_d_setruid + "'"
3818 $ WC "d_setsid='" + perl_d_setsid + "'"
3819 $ WC "d_shm='" + perl_d_shm + "'"
3820 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
3821 $ WC "shmattype='" + perl_shmattype + "'"
3822 $ WC "d_sigaction='" + perl_d_sigaction + "'"
3823 $ WC "d_statblks='" + perl_d_statblks + "'"
3824 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
3825 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
3826 $ WC "stdio_base='" + perl_stdio_base + "'"
3827 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
3828 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
3829 $ WC "d_strerror='" + perl_d_strerror + "'"
3830 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
3831 $ WC "d_strerrm='" + perl_d_strerrm + "'"
3832 $ WC "d_symlink='" + perl_d_symlink + "'"
3833 $ WC "d_syscall='" + perl_d_syscall + "'"
3834 $ WC "d_system='" + perl_d_system + "'"
3835 $ WC "timetype='" + perl_timetype + "'"
3836 $ WC "d_truncate='" + perl_d_truncate + "'"
3837 $ WC "d_vfork='" + perl_d_vfork + "'"
3838 $ WC "signal_t='" + perl_signal_t + "'"
3839 $ WC "d_volatile='" + perl_d_volatile + "'"
3840 $ WC "d_vprintf='" + perl_d_vprintf + "'"
3841 $ WC "d_charvspr='" + perl_d_charvspr + "'"
3842 $ WC "d_wait4='" + perl_d_wait4 + "'"
3843 $ WC "d_waitpid='" + perl_d_waitpid + "'"
3844 $ WC "i_dirent='" + perl_i_dirent + "'"
3845 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
3846 $ WC "direntrytype='" + perl_direntrytype + "'"
3847 $ WC "i_fcntl='" + perl_i_fcntl + "'"
3848 $ WC "i_grp='" + perl_i_grp + "'"
3849 $ WC "i_limits='" + perl_i_limits + "'"
3850 $ WC "i_memory='" + perl_i_memory + "'"
3851 $ WC "i_ndbm='" + perl_i_ndbm + "'"
3852 $ WC "i_stdarg='" + perl_i_stdarg + "'"
3853 $ WC "i_pwd='" + perl_i_pwd + "'"
3854 $ WC "d_pwquota='" + perl_d_pwquota + "'"
3855 $ WC "d_pwage='" + perl_d_pwage + "'"
3856 $ WC "d_pwchange='" + perl_d_pwchange + "'"
3857 $ WC "d_pwclass='" + perl_d_pwclass + "'"
3858 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
3859 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
3860 $ WC "i_stddef='" + perl_i_stddef + "'"
3861 $ WC "i_stdlib='" + perl_i_stdlib + "'"
3862 $ WC "i_string='" + perl_i_string + "'"
3863 $ WC "i_sysdir='" + perl_i_sysdir + "'"
3864 $ WC "i_sysfile='" + perl_i_sysfile + "'"
3865 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
3866 $ WC "i_sysndir='" + perl_i_sysndir + "'"
3867 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
3868 $ WC "i_sysselct='" + perl_i_sysselct + "'"
3869 $ WC "i_dbm='" + perl_i_dbm + "'"
3870 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
3871 $ WC "i_sfio='" + perl_i_sfio + "'"
3872 $ WC "i_sysstat='" + perl_i_sysstat + "'"
3873 $ WC "i_systimes='" + perl_i_systimes + "'"
3874 $ WC "i_systypes='" + perl_i_systypes + "'"
3875 $ WC "i_sysun='" + perl_i_sysun + "'"
3876 $ WC "i_syswait='" + perl_i_syswait + "'"
3877 $ WC "i_termio='" + perl_i_termio + "'"
3878 $ WC "i_sgtty='" + perl_i_sgtty + "'"
3879 $ WC "i_termios='" + perl_i_termios + "'"
3880 $ WC "i_time='" + perl_i_time + "'"
3881 $ WC "i_systime='" + perl_i_systime + "'"
3882 $ WC "i_systimek='" + perl_i_systimek + "'"
3883 $ WC "i_unistd='" + perl_i_unistd + "'"
3884 $ WC "i_utime='" + perl_i_utime + "'"
3885 $ WC "i_varargs='" + perl_i_varargs + "'"
3886 $ WC "i_vfork='" + perl_i_vfork + "'"
3887 $ WC "prototype='" + perl_prototype + "'"
3888 $ WC "randbits='" + perl_randbits +"'"
3889 $ WC "selecttype='" + perl_selecttype + "'"
3890 $ WC "selectminbits='" + perl_selectminbits + "'"
3891 $ WC "stdchar='" + perl_stdchar + "'"
3892 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
3893 $ WC "full_sed='" + perl_full_sed + "'"
3894 $ WC "bin='" + perl_bin + "'"
3895 $ WC "binexp='" + perl_binexp + "'"
3896 $ WC "d_alarm='" + perl_d_alarm + "'"
3897 $ WC "d_casti32='" + perl_d_casti32 + "'"
3898 $ WC "d_chown='" + perl_d_chown + "'"
3899 $ WC "d_chroot='" + perl_d_chroot + "'"
3900 $ WC "d_cuserid='" + perl_d_cuserid + "'"
3901 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
3902 $ WC "d_ldbl_dig='" + perl_d_ldbl_dig + "'"
3903 $ WC "d_difftime='" + perl_d_difftime + "'"
3904 $ WC "d_fork='" + perl_d_fork + "'"
3905 $ WC "d_getlogin='" + perl_d_getlogin + "'"
3906 $ WC "d_getppid='" + perl_d_getppid + "'"
3907 $ WC "d_htonl='" + perl_d_htonl + "'"
3908 $ WC "d_nice='" + perl_d_nice + "'"
3909 $ WC "d_pause='" + perl_d_pause + "'"
3910 $ WC "d_pipe='" + perl_d_pipe + "'"
3911 $ WC "d_readlink='" + perl_d_readlink + "'"
3912 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
3913 $ WC "d_strchr='" + perl_d_strchr + "'"
3914 $ WC "d_index='" + perl_d_index + "'"
3915 $ WC "d_strtod='" + perl_d_strtod + "'"
3916 $ WC "d_strtol='" + perl_d_strtol + "'"
3917 $ WC "d_strtoul='" + perl_d_strtoul + "'"
3918 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
3919 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
3920 $ WC "d_times='" + perl_d_times + "'"
3921 $ WC "d_tzname='" + perl_d_tzname + "'"
3922 $ WC "d_umask='" + perl_d_umask + "'"
3923 $ WC "fpostype='" + perl_fpostype + "'"
3924 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
3925 $ WC "i_float='" + perl_i_float + "'"
3926 $ WC "i_math='" + perl_i_math + "'"
3927 $ WC "intsize='" + perl_intsize + "'"
3928 $ WC "longsize='" + perl_longsize + "'"
3929 $ WC "shortsize='" + perl_shortsize + "'"
3930 $ WC "lseektype='" + perl_lseektype + "'"
3931 $ WC "lseeksize='4'"
3932 $ WC "i_values='" + perl_i_values + "'"
3933 $ WC "malloctype='" + perl_malloctype + "'"
3934 $ WC "freetype='" + perl_freetype + "'"
3935 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
3936 $ WC "sh='" + perl_sh + "'"
3937 $ WC "sig_name='" + perl_sig_name + "'"
3938 $ WC "sig_num='" + perl_sig_num + "'"
3939 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
3941 $ WC "modetype='" + perl_modetype + "'"
3942 $ WC "ssizetype='" + perl_ssizetype + "'"
3943 $ WC "o_nonblock='" + perl_o_nonblock + "'"
3944 $ WC "eagain='" + perl_eagain + "'"
3945 $ WC "rd_nodata='" + perl_rd_nodata + "'"
3946 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
3947 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
3948 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
3949 $ WC "oldarchlib='" + perl_oldarchlib + "'"
3950 $ WC "privlibexp='" + perl_privlibexp + "'"
3951 $ WC "privlib='" + perl_privlib + "'"
3952 $ WC "sitelibexp='" + perl_sitelibexp + "'"
3953 $ WC "sitelib='" + perl_sitelib + "'"
3954 $ WC "sitelib_stem='" + perl_sitelib_stem + "'"
3955 $ WC "sitearchexp='" + perl_sitearchexp + "'"
3956 $ WC "sitearch='" + perl_sitearch + "'"
3957 $ WC "sizetype='" + perl_sizetype + "'"
3958 $ WC "i_sysparam='" + perl_i_sysparam + "'"
3959 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
3960 $ WC "d_dlerror='" + perl_d_dlerror + "'"
3961 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
3962 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
3963 $ WC "d_dosuid='" + perl_d_dosuid + "'"
3964 $ WC "d_inetaton='" + perl_d_inetaton + "'"
3965 $ WC "d_int64_t='" + perl_d_int64_t + "'"
3966 $ WC "d_isascii='" + perl_d_isascii + "'"
3967 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
3968 $ WC "d_pathconf='" + perl_d_pathconf + "'"
3969 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
3970 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
3971 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
3972 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
3973 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
3974 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
3975 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
3976 $ WC "d_setpgid='" + perl_d_setpgid + "'"
3977 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
3978 $ WC "d_sysconf='" + perl_d_sysconf + "'"
3979 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
3980 $ WC "d_getpgid='" + perl_d_getpgid + "'"
3981 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
3982 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
3983 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
3984 $ WC "d_sfio='" + perl_d_sfio + "'"
3985 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
3986 $ WC "usedl='" + perl_usedl + "'"
3987 $ WC "startperl=" + perl_startperl ! This one's special--no enclosing single quotes
3988 $ WC "db_hashtype='" + perl_db_hashtype + "'"
3989 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
3990 $ WC "useperlio='" + perl_useperlio + "'"
3991 $ WC "defvoidused='" + perl_defvoidused + "'"
3992 $ WC "voidflags='" + perl_voidflags + "'"
3993 $ WC "d_eunice='" + perl_d_eunice + "'"
3994 $ WC "libs='" + perl_libs + "'"
3995 $ WC "libc='" + perl_libc + "'"
3996 $ tempstring = "PERL_VERSION='" + "''perl_patchlevel'" + "'"
3998 $ tempstring = "PERL_SUBVERSION='" + "''perl_patchlevel'" + "'"
4000 $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
4002 $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
4004 $ WC "xs_apiversion='" + localperlver + "'"
4005 $ WC "pm_apiversion='" + localperlver + "'"
4006 $ WC "pager='" + perl_pager + "'"
4007 $ WC "uidtype='" + perl_uidtype + "'"
4008 $ WC "uidformat='" + perl_uidformat + "'"
4009 $ WC "uidsize='" + perl_uidsize + "'"
4010 $ WC "gidtype='" + perl_gidtype + "'"
4011 $ WC "gidformat='" + perl_gidformat + "'"
4012 $ WC "gidsize='" + perl_gidsize + "'"
4013 $ WC "usethreads='" + perl_usethreads + "'"
4014 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
4015 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
4016 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
4017 $ WC "i_netdb='" + perl_i_netdb + "'"
4018 $ WC "pidtype='" + perl_pidtype + "'"
4019 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
4020 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
4021 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
4022 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
4023 $ WC "socksizetype='" + perl_socksizetype + "'"
4024 $ WC "baserev='" + perl_baserev + "'"
4025 $ WC "doublesize='" + perl_doublesize + "'"
4026 $ WC "ptrsize='" + perl_ptrsize + "'"
4027 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
4028 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
4029 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
4030 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
4031 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
4032 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
4033 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
4034 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
4035 $ WC "d_sethent='" + perl_d_sethent + "'"
4036 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
4037 $ WC "d_longdbl='" + perl_d_longdbl + "'"
4038 $ WC "longdblsize='" + perl_longdblsize + "'"
4039 $ WC "d_longlong='" + perl_d_longlong + "'"
4040 $ WC "longlongsize='" + perl_longlongsize + "'"
4041 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
4042 $ WC "d_mkstemps='" + perl_d_mkstemps + "'"
4043 $ WC "d_mkdtemp='" + perl_d_mkdtemp + "'"
4044 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
4045 $ WC "d_setenv='" + perl_d_setenv + "'"
4046 $ WC "d_endhent='" + perl_d_endhent + "'"
4047 $ WC "d_endnent='" + perl_d_endsent + "'"
4048 $ WC "d_endpent='" + perl_d_endpent + "'"
4049 $ WC "d_endsent='" + perl_d_endsent + "'"
4050 $ WC "d_gethent='" + perl_d_gethent + "'"
4051 $ WC "d_getnent='" + perl_d_getsent + "'"
4052 $ WC "d_getpent='" + perl_d_getpent + "'"
4053 $ WC "d_getsent='" + perl_d_getsent + "'"
4054 $ WC "d_sethent='" + perl_d_sethent + "'"
4055 $ WC "d_setnent='" + perl_d_setsent + "'"
4056 $ WC "d_setpent='" + perl_d_setpent + "'"
4057 $ WC "ebcdic='" + perl_ebcdic + "'"
4058 $ WC "d_setsent='" + perl_d_setsent + "'"
4059 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
4060 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
4061 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
4062 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
4063 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
4064 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
4065 $ WC "d_lchown='" + perl_d_lchown + "'"
4066 $ WC "d_union_semun='" + perl_d_union_semun + "'"
4067 $ WC "i_arpainet='" + perl_i_arpainet + "'"
4068 $ WC "d_grpasswd='" + perl_d_grpasswd + "'"
4069 $ WC "d_setgrent='" + perl_d_setgrent + "'"
4070 $ WC "d_getgrent='" + perl_d_getgrent + "'"
4071 $ WC "d_endgrent='" + perl_d_endgrent + "'"
4072 $ WC "d_pwpasswd='" + perl_d_pwpasswd + "'"
4073 $ WC "d_setpwent='" + perl_d_setpwent + "'"
4074 $ WC "d_getpwent='" + perl_d_getpwent + "'"
4075 $ WC "d_endpwent='" + perl_d_endpwent + "'"
4076 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
4077 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
4078 $ WC "extensions='" + perl_extensions + "'"
4079 $ WC "known_extensions='" + perl_known_extensions + "'"
4080 $ WC "static_ext='" + "'"
4081 $ WC "dynamic_ext='" + perl_extensions + "'"
4082 $ WC "d_mknod='" + perl_d_mknod + "'"
4083 $ WC "devtype='" + perl_devtype + "'"
4084 $ WC "d_gethname='" + perl_d_gethname + "'"
4085 $ WC "d_phostname='" + perl_d_phostname + "'"
4086 $ WC "aphostname='" + perl_aphostname + "'"
4087 $ WC "d_accessx='" + perl_d_accessx + "'"
4088 $ WC "d_eaccess='" + perl_d_eaccess + "'"
4089 $ WC "i_ieeefp='" + perl_i_ieeefp + "'"
4090 $ WC "i_sunmath='" + perl_i_sunmath + "'"
4091 $ WC "i_sysaccess='" + perl_i_sysaccess + "'"
4092 $ WC "i_syssecrt='" + perl_i_syssecrt + "'"
4093 $ WC "d_fd_set='" + perl_d_fd_set + "'"
4094 $ WC "d_access='" + perl_d_access + "'"
4095 $ WC "d_msg_ctrunc='" + perl_d_msg_ctrunc + "'"
4096 $ WC "d_msg_dontroute='" + perl_d_msg_dontroute + "'"
4097 $ WC "d_msg_oob='" + perl_d_msg_oob + "'"
4098 $ WC "d_msg_peek='" + perl_d_msg_peek + "'"
4099 $ WC "d_msg_proxy='" + perl_d_msg_proxy + "'"
4100 $ WC "d_scm_rights='" + perl_d_scm_rights + "'"
4101 $ WC "d_sendmsg='" + perl_d_sendmsg + "'"
4102 $ WC "d_recvmsg='" + perl_d_recvmsg + "'"
4103 $ WC "d_msghdr_s='" + perl_d_msghdr_s + "'"
4104 $ WC "d_cmsghdr_s='" + perl_d_cmsghdr_s + "'"
4105 $ WC "i_sysuio='" + perl_i_sysuio + "'"
4106 $ WC "d_fseeko='" + perl_d_fseeko + "'"
4107 $ WC "d_ftello='" + perl_d_ftello + "'"
4108 $ WC "d_qgcvt='" + perl_d_qgcvt + "'"
4109 $ WC "d_readv='" + perl_d_readv + "'"
4110 $ WC "d_writev='" + perl_d_writev + "'"
4111 $ WC "i_machcthr='" + perl_i_machcthr + "'"
4112 $ WC "usemultiplicity='" + perl_usemultiplicity + "'"
4113 $ WC "i_poll='" + perl_i_poll + "'"
4114 $ WC "i_inttypes='" + perl_i_inttypes + "'"
4115 $ WC "d_off64_t='" + perl_d_off64_t + "'"
4116 $ WC "d_fpos64_t='" + perl_d_fpos64_t + "'"
4117 $ WC "use64bitall='" + perl_use64bitall + "'"
4118 $ WC "use64bitint='" + perl_use64bitint + "'"
4119 $ WC "d_drand48proto='" + perl_d_drand48proto + "'"
4120 $ WC "d_lseekproto='" + perl_d_drand48proto + "'"
4121 $ WC "d_old_pthread_create_joinable='" + perl_d_old_pthread_create_joinable + "'"
4122 $ WC "old_pthread_create_joinable='" + perl_old_pthread_create_joinable + "'"
4123 $ WC "drand01='" + perl_drand01 + "'"
4124 $ WC "randseedtype='" + perl_randseedtype + "'"
4125 $ WC "seedfunc='" + perl_seedfunc + "'"
4126 $ WC "sig_num_init='" + perl_sig_num_with_commas + "'"
4127 $ WC "i_sysmount='" + perl_i_sysmount + "'"
4128 $ WC "d_fstatfs='" + perl_d_fstatfs + "'"
4129 $ WC "d_getfsstat='" + perl_d_getfsstat + "'"
4130 $ WC "d_memchr='" + perl_d_memchr + "'"
4131 $ WC "d_statfsflags='" + perl_d_statfsflags + "'"
4132 $ WC "fflushNULL='define'"
4133 $ WC "fflushall='undef'"
4134 $ WC "d_stdio_stream_array='undef'"
4135 $ WC "stdio_stream_array='" + perl_stdio_stream_array + "'"
4136 $ WC "i_sysstatvfs='" + perl_i_sysstatvfs + "'"
4137 $ WC "i_syslog='" + perl_i_syslog + "'"
4138 $ WC "i_sysmode='" + perl_i_sysmode + "'"
4139 $ WC "i_sysutsname='" + perl_i_sysutsname + "'"
4140 $ WC "i_machcthreads='" + perl_i_machcthreads + "'"
4141 $ WC "i_pthread='" + perl_i_pthread + "'"
4142 $ WC "d_fstatvfs='" + perl_d_fstatvfs + "'"
4143 $ WC "i_mntent='" + perl_i_mntent + "'"
4144 $ WC "d_getmntent='" + perl_d_getmntent + "'"
4145 $ WC "d_hasmntopt='" + perl_d_hasmntopt + "'"
4146 $ WC "d_telldirproto='" + perl_d_telldirproto + "'"
4147 $ WC "d_madvise='" + perl_d_madvise + "'"
4148 $ WC "d_msync='" + perl_d_msync + "'"
4149 $ WC "d_mprotect='" + perl_d_mprotect + "'"
4150 $ WC "d_munmap='" + perl_d_munmap + "'"
4151 $ WC "d_mmap='" + perl_d_mmap + "'"
4152 $ WC "mmaptype='" + perl_mmaptype + "'"
4153 $ WC "i_sysmman='" + perl_i_sysmman + "'"
4154 $ WC "installusrbinperl='" + perl_installusrbinperl + "'"
4155 $! WC "selectminbits='" + perl_selectminbits + "'"
4156 $ WC "crosscompile='" + perl_crosscompile + "'"
4157 $ WC "multiarch='" + perl_multiarch + "'"
4158 $ WC "sched_yield='" + perl_sched_yield + "'"
4159 $ WC "d_strtoull='" + perl_d_strtoull + "'"
4160 $ WC "d_strtouq='" + perl_d_strtouq + "'"
4161 $ WC "d_strtoll='" + perl_d_strtoll + "'"
4162 $ WC "d_strtold='" + perl_d_strtold + "'"
4163 $ WC "usesocks='" + perl_usesocks + "'"
4164 $ WC "d_vendorlib='" + perl_d_vendorlib + "'"
4165 $ WC "vendorlibexp='" + perl_vendorlibexp + "'"
4166 $ WC "vendorlib_stem='" + perl_vendorlib_stem + "'"
4167 $ WC "d_atolf='" + perl_d_atolf + "'"
4168 $ WC "d_atoll='" + perl_d_atoll + "'"
4169 $ WC "d_bincompat5005='" + perl_d_bincompat + "'"
4170 $ WC "d_endspent='" + perl_d_endspent + "'"
4171 $ WC "d_getspent='" + perl_d_getspent + "'"
4172 $ WC "d_getspnam='" + perl_d_getspnam + "'"
4173 $ WC "d_setspent='" + perl_d_setspent + "'"
4174 $ WC "i_shadow='" + perl_i_shadow + "'"
4175 $ WC "i_socks='" + perl_i_socks + "'"
4176 $ WC "d_PRIfldbl='" + perl_d_PRIfldbl + "'"
4177 $ WC "d_PRIgldbl='" + perl_d_PRIgldbl + "'"
4178 $ WC "d_PRId64='" + perl_d_PRId64 + "'"
4179 $ WC "d_PRIu64='" + perl_d_PRIu64 + "'"
4180 $ WC "d_PRIo64='" + perl_d_PRIo64 + "'"
4181 $ WC "d_PRIx64='" + perl_d_PRIx64 + "'"
4182 $ WC "sPRIfldbl='" + perl_sPRIfldbl + "'"
4183 $ WC "sPRIgldbl='" + perl_sPRIgldbl + "'"
4184 $ WC "sPRId64='" + perl_sPRId64 + "'"
4185 $ WC "sPRIu64='" + perl_sPRIu64 + "'"
4186 $ WC "sPRIo64='" + perl_sPRIo64 + "'"
4187 $ WC "sPRIx64='" + perl_sPRIx64 + "'"
4188 $ WC "d_llseek='" + perl_d_llseek + "'"
4189 $ WC "d_iconv='" + perl_d_iconv +"'"
4190 $ WC "i_iconv='" + perl_i_iconv +"'"
4191 $ WC "inc_version_list='0'"
4192 $ WC "inc_version_list_init='0'"
4193 $ WC "uselargefiles='" + perl_uselargefiles + "'"
4194 $ WC "uselongdouble='" + perl_uselongdouble + "'"
4195 $ WC "usemorebits='" + perl_usemorebits + "'"
4196 $ WC "d_quad='" + perl_d_quad + "'"
4197 $ WC "quadtype='" + perl_quadtype + "'"
4198 $ WC "uquadtype='" + perl_uquadtype + "'"
4199 $ WC "quadkind='" + perl_quadkind + "'"
4200 $ WC "d_fs_data_s='" + perl_d_fs_data_s + "'"
4201 $ WC "d_getcwd='" + perl_d_getcwd + "'"
4202 $ WC "d_getmnt='" + perl_d_getmnt + "'"
4203 $ WC "d_sqrtl='" + perl_d_sqrtl + "'"
4204 $ WC "d_statfs_f_flags='" + perl_d_statfs_f_flags + "'"
4205 $ WC "d_statfs_s='" + perl_d_statfs_s + "'"
4206 $ WC "d_ustat='" + perl_d_ustat + "'"
4207 $ WC "d_vendorarch='" + perl_d_vendorarch + "'"
4208 $ WC "vendorarchexp='" + perl_vendorarchexp + "'"
4209 $ WC "i_sysstatfs='" + perl_i_sysstatfs + "'"
4210 $ WC "i_sysvfs='" + perl_i_sysvfs + "'"
4211 $ WC "i_ustat='" + perl_i_ustat + "'"
4212 $ WC "ivtype='" + perl_ivtype + "'"
4213 $ WC "uvtype='" + perl_uvtype + "'"
4214 $ WC "i8type='" + perl_i8type + "'"
4215 $ WC "i16type='" + perl_i16type + "'"
4216 $ WC "u8type='" + perl_u8type + "'"
4217 $ WC "u16type='" + perl_u16type + "'"
4218 $ WC "i32type='" + perl_i32type + "'"
4219 $ WC "u32type='" + perl_u32type + "'"
4220 $ WC "i64type='" + perl_i64type + "'"
4221 $ WC "u64type='" + perl_u64type + "'"
4222 $ WC "nvtype='" + perl_nvtype + "'"
4223 $ WC "ivsize='" + perl_ivsize + "'"
4224 $ WC "uvsize='" + perl_uvsize + "'"
4225 $ WC "i8size='" + perl_i8size + "'"
4226 $ WC "u8size='" + perl_u8size + "'"
4227 $ WC "i16size='" + perl_i16size + "'"
4228 $ WC "u16size='" + perl_u16size + "'"
4229 $ WC "i32size='" + perl_i32size + "'"
4230 $ WC "u32size='" + perl_u32size + "'"
4231 $ WC "i64size='" + perl_i64size + "'"
4232 $ WC "u64size='" + perl_u64size + "'"
4233 $ WC "ivdformat='" + perl_ivdformat + "'"
4234 $ WC "uvuformat='" + perl_uvuformat + "'"
4235 $ WC "uvoformat='" + perl_uvoformat + "'"
4236 $ WC "uvxformat='" + perl_uvxformat + "'"
4237 $ WC "d_vms_case_sensitive_symbols='" + d_vms_be_case_sensitive + "'"
4239 $! ##WRITE NEW CONSTANTS HERE##
4243 $! Okay, we've gotten here. Build munchconfig and run it
4244 $ 'Perl_CC' munchconfig.c
4245 $ If (Needs_Opt.eqs."Yes")
4247 $ open/write OPTCHAN []munchconfig.opt
4248 $ IF ("''using_gnu_c'".eqs."Yes")
4250 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
4252 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
4254 $ link munchconfig.obj,munchconfig.opt/opt
4255 $ delete munchconfig.opt;*
4257 $ link munchconfig.obj
4260 $ echo "Writing config.h"
4262 $ ! we need an fdl file
4263 $ CREATE [-]CONFIG.FDL
4266 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
4267 $ ! First spit out the header info with the local defines (to get
4268 $ ! around the 255 character command line limit)
4269 $ OPEN/APPEND CONFIG [-]config.local
4270 $ if use_debugging_perl.eqs."Y"
4272 $ WRITE CONFIG "#define DEBUGGING"
4274 $ if use_two_pot_malloc.eqs."Y"
4276 $ WRITE CONFIG "#define TWO_POT_OPTIMIZE"
4278 $ if mymalloc.eqs."Y"
4280 $ WRITE CONFIG "#define EMBEDMYMALLOC"
4282 $ if use_pack_malloc.eqs."Y"
4284 $ WRITE CONFIG "#define PACK_MALLOC"
4286 $ if use_debugmalloc.eqs."Y"
4288 $ write config "#define DEBUGGING_MSTATS"
4290 $ if "''Using_Gnu_C'" .eqs."Yes"
4292 $ WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
4294 $ if "''Has_Dec_C_Sockets'".eqs."T"
4296 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
4297 $ WRITE CONFIG "#define DECCRTL_SOCKETS"
4299 $ if "''Has_Socketshr'".eqs."T"
4301 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
4303 $! This is VMS-specific for now
4304 $ WRITE CONFIG "#''perl_d_setenv' HAS_SETENV"
4305 $ if d_alwdeftype.eqs."Y"
4307 $ WRITE CONFIG "#define SECURE_INTERNAL_GETENV"
4309 $ WRITE CONFIG "#undef SECURE_INTERNAL_GETENV"
4311 $ if d_secintgenv.eqs."Y"
4313 $ WRITE CONFIG "#define ALWAYS_DEFTYPES"
4315 $ WRITE CONFIG "#undef ALWAYS_DEFTYPES"
4319 $ WRITE CONFIG "#define USE_64_BIT_INT"
4320 $ WRITE CONFIG "#define USE_LONG_DOUBLE"
4324 $ WRITE CONFIG "#define USE_64_BIT_ALL"
4326 $ if be_case_sensitive
4328 $ write config "#define VMS_WE_ARE_CASE_SENSITIVE"
4330 $ if perl_d_herrno .eqs. "undef"
4332 $ write config "#define NEED_AN_H_ERRNO"
4334 $ WRITE CONFIG "#define HAS_ENVGETENV"
4335 $ WRITE CONFIG "#define PERL_EXTERNAL_GLOB"
4338 $! Now build the normal config.h
4339 $ define/user sys$output [-]config.main
4340 $ mcr []munchconfig [-]config.sh [-]config_h.sh
4341 $ ! Concatenate them together
4342 $ copy [-]config.local,[-]config.main [-]config.h
4344 $ DELETE/NOLOG [-]CONFIG.MAIN;*
4345 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
4346 $ DELETE/NOLOG [-]CONFIG.FDL;*
4348 $ if "''Using_Dec_C'" .eqs."Yes"
4350 $ DECC_REPLACE = "DECC=decc=1"
4352 $ DECC_REPLACE = "DECC="
4354 $ if "''Using_Gnu_C'" .eqs."Yes"
4356 $ GNUC_REPLACE = "GNUC=gnuc=1"
4358 $ GNUC_REPLACE = "GNUC="
4360 $ if "''Has_Dec_C_Sockets'" .eqs."T"
4362 $ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
4364 $ if "''Has_Socketshr'" .eqs."T"
4366 $ SOCKET_REPLACE = "SOCKET=SOCKETSHR_SOCKETS=1"
4368 $ SOCKET_REPLACE = "SOCKET="
4371 $ IF ("''Use_Threads'".eqs."T")
4373 $ if ("''VMS_VER'".LES."6.2")
4375 $ THREAD_REPLACE = "THREAD=OLDTHREADED=1"
4377 $ THREAD_REPLACE = "THREAD=THREADED=1"
4380 $ THREAD_REPLACE = "THREAD="
4382 $ if mymalloc.eqs."Y"
4384 $ MALLOC_REPLACE = "MALLOC=MALLOC=1"
4386 $ MALLOC_REPLACE = "MALLOC="
4388 $ if f$getsyi("HW_MODEL").ge.1024
4390 $ ARCH_TYPE = "ARCH-TYPE=__AXP__"
4392 $ ARCH_TYPE = "ARCH-TYPE=__VAX__"
4394 $ echo "Writing DESCRIP.MMS"
4396 $ define/user sys$output [-]descrip.mms
4397 $ mcr []munchconfig [-]config.sh descrip_mms.template "''DECC_REPLACE'" "''ARCH_TYPE'" "''GNUC_REPLACE'" "''SOCKET_REPLACE'" "''THREAD_REPLACE'" -
4398 "''C_Compiler_Replace'" "''MALLOC_REPLACE'" "''Thread_Live_Dangerously'" "PV=''LocalPerlVer'" "FLAGS=FLAGS=''extra_flags'"
4399 $ echo "Extracting Build_Ext.Com"
4400 $ Create Sys$Disk:[-]Build_Ext.Com
4401 $ Deck/Dollar="$EndOfTpl$"
4403 $! NOTE: This file is extracted as part of the VMS configuration process.
4404 $! Any changes made to it directly will be lost. If you need to make any
4405 $! changes, please edit the template in [.vms]SubConfigure.Com instead.
4406 $ def = F$Environment("Default")
4407 $ exts1 = F$Edit(p1,"Compress")
4408 $ p2 = F$Edit(p2,"Upcase,Compress,Trim")
4409 $ If F$Locate("MCR ",p2).eq.0 Then p2 = F$Extract(3,255,p2)
4410 $ miniperl = "$" + F$Search(F$Parse(p2,".Exe"))
4412 $ if f$type('p3') .nes. "" then makeutil = 'p3'
4413 $ targ = F$Edit(p4,"Lowercase")
4416 $ ext = F$Element(i," ",p1)
4417 $ If ext .eqs. " " Then Goto done
4418 $ Define/User Perl_Env_Tables CLISYM_LOCAL
4420 ($extdir = $ENV{'ext'}) =~ s/::/./g;
4422 if ($extdir =~ /^vms/i) { $extdir =~ s/vms/.vms.ext/i; }
4423 else { $extdir = ".ext.$extdir"; }
4424 ($ENV{'extdir'} = "[$extdir]");
4425 ($ENV{'up'} = ('-') x ($extdir =~ tr/././));
4426 $ Set Default &extdir
4428 $ If F$Locate("clean",targ) .eqs. F$Length(targ)
4430 $ Write Sys$Output "Building ''ext' . . ."
4431 $ On Error Then Goto done
4432 $ If F$Search("Descrip.MMS") .eqs. ""
4436 $ If F$CvTime(F$File("Descrip.MMS","rdt")) .lts. -
4437 F$CvTime(F$File("Makefile.PL","rdt")) Then redesc = 1
4440 $ Write Sys$Output "''targ'ing ''ext' . . ."
4441 $ On Error Then Continue
4444 miniperl "-I[''up'.lib]" Makefile.PL "INST_LIB=[''up'.lib]" "INST_ARCHLIB=[''up'.lib]"
4458 $! Clean up after ourselves
4459 $ delete/nolog munchconfig.exe;*
4460 $ delete/nolog munchconfig.obj;*