1 $! SUBCONFIGURE.COM - build a config.sh for VMS Perl.
3 $! Note for folks from other platforms changing things in here:
4 $! Fancy changes (based on compiler capabilities or VMS version or
5 $! whatever) are tricky, so go ahead and punt on those.
7 $! Simple changes, though (say, always setting something to 1, or undef,
8 $! or something like that) are straightforward. Adding a new item for the
9 $! ultimately created config.sh requires adding two lines to this file.
11 $! First, a line in the format:
13 $! after the line tagged ##ADD NEW CONSTANTS HERE##. Replace foo with the
14 $! variable name as it appears in config.sh.
16 $! Second, add a line in the format:
17 $! $ WC "foo='" + perl_foo + "'"
18 $! after the line tagged ##WRITE NEW CONSTANTS HERE##. Careful of the
19 $! quoting, as it can be tricky.
21 $! This .COM file expects to be called by configure.com, and thus expects
22 $! a few symbols in the environment. Notably:
24 $! One of: Using_Dec_C, Using_Vax_C, Using_Gnu_C set to "YES"
25 $! Dec_C_Version set to the Dec C version (defaults to 0 if not specified)
26 $! Has_Socketshr set to "T" if using socketshr
27 $! Has_Dec_C_Sockets set to "T" if using Dec C sockets
28 $! Use_Threads set to "T" if they're using threads
29 $! C_Compiler_Invoke is the command needed to invoke the C compiler
31 $! Set Dec_C_Version to something
32 $ WRITE_RESULT := "WRITE SYS$OUTPUT ""%CONFIG-I-RESULT "" + "
33 $ echo = "Write Sys$Output "
34 $ Dec_C_Version := "''Dec_C_Version'"
35 $ Dec_C_Version = Dec_C_Version + 0
36 $ Vms_Ver := "''f$extract(1,3, f$getsyi(""version""))'"
37 $ perl_extensions := "''extensions'"
38 $ if f$length(Mcc) .eq. 0 then Mcc := "cc"
39 $ MCC = f$edit(mcc, "UPCASE")
42 $ C_Compiler_Replace := "CC="
44 $ C_Compiler_Replace := "CC=CC=''Mcc'"
46 $ if "''Using_Dec_C'" .eqs. "Yes"
48 $ Checkcc := "''Mcc'/prefix=all"
53 $ if use_multiplicity .eqs. "Y"
55 $ perl_usemultiplicity = "define"
57 $ perl_usemultiplicity = "undef"
59 $! Some constant defaults.
61 $ hwname = f$getsyi("HW_NAME")
63 $ if "''myname'" .eqs. "" THEN myname = f$trnlnm("SYS$NODE")
65 $! ##ADD NEW CONSTANTS HERE##
66 $ perl_d_getcwd = "undef"
67 $ perl_d_nv_preserves_uv = "define"
68 $ perl_d_fs_data_s = "undef"
69 $ perl_d_getmnt = "undef"
70 $ perl_d_sqrtl = "define"
71 $ perl_d_statfs_f_flags = "undef"
72 $ perl_d_statfs_s = "undef"
73 $ perl_d_ustat = "undef"
74 $ perl_i_sysstatfs = "undef"
75 $ perl_i_sysvfs = "undef"
76 $ perl_i_ustat = "undef"
77 $ perl_d_llseek="undef"
78 $ perl_d_madvise="undef"
79 $ perl_selectminbits=32
80 $ perl_d_msync="undef"
81 $ perl_d_mprotect="undef"
82 $ perl_d_munmap="undef"
83 $ perl_crosscompile="undef"
84 $ perl_multiarch="undef"
86 $ perl_i_sysmman="undef"
87 $ perl_d_telldirproto="define"
88 $ perl_i_sysmount="undef"
89 $ perl_d_bincompat="undef"
90 $ perl_d_endspent="undef
91 $ perl_d_getspent="undef
92 $ perl_d_getspnam="undef
93 $ perl_d_setspent="undef
94 $ perl_d_fstatfs="undef"
95 $ perl_i_machcthreads="undef"
96 $ perl_i_pthread="define"
97 $ perl_d_fstatvfs="undef"
98 $ perl_usesocks="undef"
99 $ perl_d_vendorlib="undef"
100 $ perl_vendorlibexp=""
101 $ perl_d_statfsflags="undef"
102 $ perl_i_sysstatvfs="undef"
103 $ perl_i_mntent="undef"
104 $ perl_d_getmntent="undef"
105 $ perl_d_hasmntopt="undef"
106 $ perl_package="''package'"
107 $ perl_baserev = "''baserev'"
109 $ perl_installusrbinperl="undef"
111 $ perl_d_fseeko="undef"
112 $ perl_d_ftello="undef"
113 $ perl_d_readv="undef"
114 $ perl_d_writev="undef"
115 $ perl_i_machcthr="undef"
116 $ perl_i_netdb="undef"
117 $ perl_d_gnulibc="undef"
118 $ perl_cf_by="unknown"
122 $ perl_drand01 = "drand48()"
123 $ perl_randseedtype = "long int"
124 $ perl_seedfunc = "srand48"
125 $ perl_d_msg_ctrunc = "undef"
126 $ perl_d_msg_dontroute = "undef"
127 $ perl_d_msg_oob = "undef"
128 $ perl_d_msg_peek = "undef"
129 $ perl_d_msg_proxy = "undef"
130 $ perl_d_scm_rights = "undef"
131 $ perl_d_sendmsg = "undef"
132 $ perl_d_recvmsg = "undef"
133 $ perl_d_msghdr_s = "undef"
134 $ perl_d_cmsghdr_s = "undef"
135 $ IF use_64bit .eqs. "Y"
137 $ perl_use64bits = "define"
138 $ perl_uselargefiles = "define"
139 $ perl_uselongdouble = "define"
140 $ perl_usemorebits = "define"
142 $ perl_use64bits = "undef"
143 $ perl_uselargefiles = "undef"
144 $ perl_uselongdouble = "undef"
145 $ perl_usemorebits = "undef"
147 $ perl_d_drand48proto = "define"
148 $ perl_libpth="/sys$share /sys$library"
150 $ perl_lddlflags="/Share"
155 $ perl_i_arpainet="undef"
156 $ perl_d_grpasswd="undef"
157 $ perl_d_setgrent="undef"
158 $ perl_d_getgrent="define"
159 $ perl_d_endgrent="define"
160 $ perl_d_pwpasswd="define"
161 $ perl_d_setpwent="define"
162 $ perl_d_getpwent="define"
163 $ perl_d_endpwent="define"
164 $ perl_d_phostname="undef"
165 $ perl_d_accessx="undef"
166 $ perl_d_eaccess="undef"
167 $ perl_ebcdic="undef"
169 $ perl_shrplib="define"
170 $ perl_usemymalloc=mymalloc
171 $ perl_usevfork="true"
172 $ perl_useposix="false"
173 $ perl_spitshell="write sys$output "
174 $ perl_dlsrc="dl_vms.c"
177 $ perl_prefix="perl_root"
178 $ perl_binexp="''perl_prefix':[000000]"
179 $ perl_builddir="''perl_prefix':[000000]"
180 $ perl_installbin="''perl_prefix':[000000]"
181 $ perl_installscript="''perl_prefix':[utils]"
182 $ perl_installman1dir="''perl_prefix':[man.man1]"
183 $ perl_installman3dir="''perl_prefix':[man.man3]"
184 $ perl_installprivlib="''perl_prefix':[lib]"
185 $ perl_installsitelib="''perl_prefix':[lib.site_perl]"
188 $ perl_d_sockpair="undef"
189 $ perl_i_neterrno="define"
190 $ perl_ldflags="/NoTrace/NoMap"
191 $ perl_d_lchown="undef"
192 $ perl_d_mknod="undef"
193 $ perl_d_union_semun="undef"
194 $ perl_d_semctl_semun="undef"
195 $ perl_d_semctl_semid_ds="undef"
196 $ IF (sharedperl.EQS."Y" .AND. F$GETSYI("HW_MODEL").GE.1024)
198 $ perl_obj_ext=".abj"
201 $ perl_exe_ext=".axe"
202 $ perl_lib_ext=".alb"
204 $ perl_obj_ext=".obj"
207 $ perl_exe_ext=".exe"
208 $ perl_lib_ext=".olb"
210 $ perl_dlobj="dl_vms''perl_obj_ext'"
212 $ perl_d_archlib="define"
213 $ perl_d_bincompat3="undef"
214 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
216 $ perl_d_castneg="define"
218 $ perl_d_chsize="undef"
219 $ perl_d_const="define"
220 $ perl_d_crypt="define"
221 $ perl_byteorder="1234"
224 $ perl_d_dup2="define"
225 $ perl_d_fchmod="undef"
226 $ perl_d_fchown="undef"
227 $ perl_d_fcntl="undef"
228 $ perl_d_fgetpos="define"
229 $ perl_d_flexfnam="define"
230 $ perl_d_flock="undef"
231 $ perl_d_fsetpos="define"
232 $ perl_d_getgrps="undef"
233 $ perl_d_setgrps="undef"
234 $ perl_d_getprior="undef"
235 $ perl_d_killpg="undef"
236 $ perl_d_link="undef"
237 $ perl_d_lstat="undef"
238 $ perl_d_lockf="undef"
239 $ perl_d_memcmp="define"
240 $ perl_d_memcpy="define"
241 $ perl_d_memmove="define"
242 $ perl_d_memset="define"
243 $ perl_d_mkdir="define"
245 $ perl_d_open3="define"
246 $ perl_d_poll="undef"
247 $ perl_d_readdir="define"
248 $ perl_d_seekdir="define"
249 $ perl_d_telldir="define"
250 $ perl_d_rewinddir="define"
251 $ perl_d_rename="define"
252 $ perl_d_rmdir="define"
254 $ perl_d_setegid="undef"
255 $ perl_d_seteuid="undef"
256 $ perl_d_setprior="undef"
257 $ perl_d_setregid="undef"
258 $ perl_d_setresgid="undef"
259 $ perl_d_setreuid="undef"
260 $ perl_d_setresuid="undef"
261 $ perl_d_setrgid="undef"
262 $ perl_d_setruid="undef"
263 $ perl_d_setsid="undef"
265 $ perl_d_shmatprototype="undef"
266 $ perl_d_statblks="undef"
267 $ perl_stdio_ptr="((*fp)->_ptr)"
268 $ perl_stdio_cnt="((*fp)->_cnt)"
269 $ perl_stdio_base="((*fp)->_base)"
270 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
271 $ perl_d_strctcpy="define"
272 $ perl_d_strerror="define"
273 $ perl_d_syserrlst="undef"
274 $ perl_d_strerrm="strerror((e),vaxc$errno)"
275 $ perl_d_symlink="undef"
276 $ perl_d_syscall="undef"
277 $ perl_d_system="define"
278 $ perl_timetype="time_t"
279 $ perl_d_vfork="define"
280 $ perl_signal_t="void"
281 $ perl_d_volatile="define"
282 $ perl_d_vprintf="define"
283 $ perl_d_charvspr="undef"
284 $ perl_d_waitpid="define"
285 $ perl_i_dirent="undef"
286 $ perl_d_dirnamlen="define"
287 $ perl_direntrytype="struct dirent"
288 $ perl_i_fcntl="undef"
290 $ perl_i_limits="define"
291 $ perl_i_memory="undef"
292 $ perl_i_ndbm="undef"
293 $ perl_i_stdarg="define"
295 $ perl_d_pwquota="undef"
296 $ perl_d_pwage="undef"
297 $ perl_d_pwchange="undef"
298 $ perl_d_pwclass="undef"
299 $ perl_d_pwexpire="undef"
300 $ perl_d_pwcomment="define"
301 $ perl_i_stddef="define"
302 $ perl_i_stdlib="define"
303 $ perl_i_string="define"
304 $ perl_i_sysdir="undef"
305 $ perl_i_sysfile="undef"
306 $ perl_i_sysioctl="undef"
307 $ perl_i_sysndir="undef"
308 $ perl_i_sysresrc="undef"
309 $ perl_i_sysselct="undef"
311 $ perl_i_rpcsvcdbm="undef"
312 $ perl_i_sfio="undef"
313 $ perl_i_sysstat="define"
314 $ perl_i_systimes="undef"
315 $ perl_i_systypes="define"
316 $ perl_i_sysun="undef"
317 $ perl_i_syswait="undef"
318 $ perl_i_termio="undef"
319 $ perl_i_sgtty="undef"
320 $ perl_i_termios="undef"
321 $ perl_i_time="define"
322 $ perl_i_systime="undef"
323 $ perl_i_systimek="undef"
324 $! perl_i_unistd="undef"
325 $ perl_i_utime="undef"
326 $ perl_i_varargs="undef"
327 $ perl_i_vfork="undef"
328 $ perl_prototype="define"
330 $ perl_stdchar="char"
331 $ perl_d_unlink_all_versions="undef"
332 $ perl_full_sed="_NLA0:"
333 $ perl_bin="/''perl_prefix'/000000"
334 $ perl_binexp="''perl_prefix':[000000]"
335 $ perl_d_alarm="define"
336 $ perl_d_casti32="define"
337 $ perl_d_chown="define"
338 $ perl_d_chroot="undef"
339 $ perl_d_cuserid="define"
340 $ perl_d_dbl_dig="define"
341 $ perl_d_ldbl_dig="define"
342 $ perl_d_difftime="define"
343 $ perl_d_fork="undef"
344 $ perl_d_getlogin="define"
345 $ perl_d_getppid="undef"
346 $ perl_d_nice="define"
347 $ perl_d_pause="define"
348 $ perl_d_pipe="define"
349 $ perl_d_readlink="undef"
350 $ perl_d_setlinebuf="undef"
351 $ perl_d_strchr="define"
352 $ perl_d_strtod="define"
353 $ perl_d_strtol="define"
354 $ perl_d_strtoul="define"
355 $ perl_d_tcgetpgrp="undef"
356 $ perl_d_tcsetpgrp="undef"
357 $ perl_d_times="define"
358 $ perl_d_tzname="undef"
359 $ perl_d_umask="define"
360 $ perl_fpostype="fpos_t"
361 $ perl_i_dlfcn="undef"
362 $ perl_i_float="define"
363 $ perl_i_math="define"
364 $ perl_lseektype="int"
365 $ perl_i_values="undef"
366 $ perl_malloctype="void *"
367 $ perl_freetype="void"
368 $ if "''mymalloc'".eqs."Y"
370 $ perl_d_mymalloc="define"
372 $ perl_d_mymalloc="undef"
375 $ perl_modetype="unsigned int"
376 $ perl_ssizetype="int"
377 $ perl_o_nonblock=" "
380 $ perl_d_eofnblk="undef"
381 $ perl_d_oldarchlib="define"
382 $ perl_privlibexp="''perl_prefix':[lib]"
383 $ perl_privlib="''perl_prefix':[lib]"
384 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
385 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
386 $ perl_sizetype="size_t"
387 $ perl_i_sysparam="undef"
388 $ perl_d_void_closedir="define"
389 $ perl_d_dlerror="undef"
390 $ perl_d_dlsymun="undef"
391 $ perl_d_suidsafe="undef"
392 $ perl_d_dosuid="undef"
393 $ perl_d_inetaton="undef"
394 $ perl_d_isascii="define"
395 $ perl_d_mkfifo="undef"
396 $ perl_d_safebcpy="undef"
397 $ perl_d_safemcpy="define"
398 $ perl_d_sanemcmp="define"
399 $ perl_d_setpgrp="undef"
400 $ perl_d_bsdsetpgrp="undef"
401 $ perl_d_bsdpgrp="undef"
402 $ perl_d_setpgid="undef"
403 $ perl_d_setpgrp2="undef"
404 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
405 $ perl_d_getpgid="undef"
406 $ perl_d_getpgrp="undef"
407 $ perl_d_bsdgetpgrp="undef"
408 $ perl_d_getpgrp2="undef"
409 $ perl_d_sfio="undef"
410 $ perl_usedl="define"
411 $ perl_startperl="""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ + ++$status != 0 and $exit = $status = undef;"""
412 $ perl_db_hashtype=" "
413 $ perl_db_prefixtype=" "
414 $ perl_useperlio="undef"
415 $ perl_defvoidused="15"
416 $ perl_voidflags="15"
417 $ perl_d_eunice="undef"
418 $ perl_d_pwgecos="define"
419 $ IF ("''Use_Threads'".eqs."T").and.("''VMS_VER'".LES."6.2")
421 $ 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"
425 $ IF ("''Using_Dec_C'".eqs."Yes")
427 $ perl_libc="(DECCRTL)"
431 $ perl_PATCHLEVEL="''patchlevel'"
432 $ perl_SUBVERSION="''subversion'"
437 $ if (use_64bit .eqs. "Y")
439 $ perl_d_PRIfldbl = "define"
440 $ perl_d_PRIgldbl = "define"
441 $ perl_d_PRId64 = "define"
442 $ perl_d_PRIu64 = "define"
443 $ perl_d_PRIo64 = "define"
444 $ perl_d_PRIx64 = "define"
445 $ perl_sPRIfldbl = """Lf"""
446 $ perl_sPRIgldbl = """Lg"""
447 $ perl_sPRId64 = """Ld"""
448 $ perl_sPRIu64 = """Lu"""
449 $ perl_sPRIo64 = """Lo"""
450 $ perl_sPRIx64 = """Lx"""
451 $ perl_d_quad = "define"
452 $ perl_quadtype = "long long"
453 $ perl_uquadtype = "unsigned long long"
455 $ perl_d_PRIfldbl = "undef"
456 $ perl_d_PRIgldbl = "undef"
457 $ perl_d_PRId64 = "undef"
458 $ perl_d_PRIu64 = "undef"
459 $ perl_d_PRIo64 = "undef"
460 $ perl_d_PRIx64 = "undef"
461 $ perl_sPRIfldbl = ""
462 $ perl_sPRIgldbl = ""
467 $ perl_d_quad = "undef"
470 $! Now some that we build up
472 $ LocalTime = f$time()
473 $ perl_cf_time= f$extract(0, 3, f$cvtime(LocalTime,, "WEEKDAY")) + " " + -
474 f$edit(f$cvtime(LocalTime, "ABSOLUTE", "MONTH"), "LOWERCASE") + -
475 " " + f$cvtime(LocalTime,, "DAY") + " " + f$cvtime(LocalTime,, "TIME") + -
476 " " + f$cvtime(LocalTime,, "YEAR")
477 $ if f$getsyi("HW_MODEL").ge.1024
479 $ perl_arch="VMS_AXP"
480 $ perl_archname="VMS_AXP"
481 $ perl_alignbytes="8"
483 $ perl_arch="VMS_VAX"
484 $ perl_archname="VMS_VAX"
485 $ perl_alignbytes="8"
487 $ if ("''Use_Threads'".eqs."T")
489 $ perl_arch = "''perl_arch'-thread"
490 $ perl_archname = "''perl_archname'-thread"
491 $ perl_d_old_pthread_create_joinable = "undef"
492 $ perl_old_pthread_create_joinable = " "
493 $ perl_use5005threads = "define"
495 $ perl_d_old_pthread_create_joinable = "undef"
496 $ perl_old_pthread_create_joinable = " "
497 $ perl_use5005threads = "undef"
499 $ perl_useithreads = "undef"
500 $ perl_osvers=f$edit(osvers, "TRIM")
501 $ if (perl_subversion + 0).eq.0
503 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL
505 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion
508 $! Some that we need to invoke the compiler for
509 $ OS := "open/write SOURCECHAN []temp.c"
510 $ WS := "write SOURCECHAN"
511 $ CS := "close SOURCECHAN"
512 $ DS := "delete/nolog []temp.*;*"
514 $ if ("''using_vax_c'".eqs."Yes").or.("''using_gnu_c'".eqs."Yes")
516 $ open/write OPTCHAN []temp.opt
517 $ IF ("''using_gnu_c'".eqs."Yes")
519 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
521 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
526 $! Check for __STDC__
530 $ WS "#include <stdlib.h>
532 $ WS "#include <stdio.h>
535 $ WS "#ifdef __STDC__
536 $ WS "printf(""42\n"");
538 $ WS "printf(""1\n"");
543 $ DEFINE SYS$ERROR _NLA0:
544 $ DEFINE SYS$OUTPUT _NLA0:
545 $ ON ERROR THEN CONTINUE
546 $ ON WARNING THEN CONTINUE
548 $ If (Needs_Opt.eqs."Yes")
550 $ link temp.obj,temp.opt/opt
554 $ DEASSIGN SYS$OUTPUT
556 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
557 $ DEFINE SYS$ERROR TEMPOUT
558 $ DEFINE SYS$OUTPUT TEMPOUT
561 $ DEASSIGN SYS$OUTPUT
563 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
566 $ DELETE/NOLOG [-.uu]tempout.lis;
568 $ perl_cpp_stuff=line
569 $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
571 $! Check for double size
575 $ WS "#include <stdlib.h>
577 $ WS "#include <stdio.h>
581 $ WS "foo = sizeof(double);
582 $ WS "printf(""%d\n"", foo);
586 $ DEFINE SYS$ERROR _NLA0:
587 $ DEFINE SYS$OUTPUT _NLA0:
588 $ ON ERROR THEN CONTINUE
589 $ ON WARNING THEN CONTINUE
591 $ If (Needs_Opt.eqs."Yes")
593 $ link temp.obj,temp.opt/opt
597 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
598 $ DEASSIGN SYS$OUTPUT
600 $ DEFINE SYS$ERROR TEMPOUT
601 $ DEFINE SYS$OUTPUT TEMPOUT
604 $ DEASSIGN SYS$OUTPUT
606 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
609 $ DELETE/NOLOG [-.uu]tempout.lis;
611 $ perl_doublesize=line
612 $ WRITE_RESULT "doublesize is ''perl_doublesize'"
614 $! Check for long double size
618 $ WS "#include <stdlib.h>
620 $ WS "#include <stdio.h>
623 $ WS "printf(""%d\n"", sizeof(long double));
627 $ DEFINE SYS$ERROR _NLA0:
628 $ DEFINE SYS$OUTPUT _NLA0:
629 $ ON ERROR THEN CONTINUE
630 $ ON WARNING THEN CONTINUE
632 $ teststatus = f$extract(9,1,$status)
633 $ if (teststatus.nes."1")
635 $ perl_longdblsize="0"
636 $ perl_d_longdbl="undef"
638 $ ON ERROR THEN CONTINUE
639 $ ON WARNING THEN CONTINUE
640 $ If (Needs_Opt.eqs."Yes")
642 $ link temp.obj,temp.opt/opt
646 $ teststatus = f$extract(9,1,$status)
647 $ DEASSIGN SYS$OUTPUT
649 $ if (teststatus.nes."1")
651 $ perl_longdblsize="0"
652 $ perl_d_longdbl="undef"
654 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
655 $ DEFINE SYS$ERROR TEMPOUT
656 $ DEFINE SYS$OUTPUT TEMPOUT
659 $ DEASSIGN SYS$OUTPUT
661 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
664 $ DELETE/NOLOG [-.uu]tempout.lis;
666 $ perl_longdblsize=line
667 $ perl_d_longdbl="define"
670 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
671 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
673 $! Check for long long existance and size
677 $ WS "#include <stdlib.h>
679 $ WS "#include <stdio.h>
682 $ WS "printf(""%d\n"", sizeof(long long));
686 $ DEFINE SYS$ERROR _NLA0:
687 $ DEFINE SYS$OUTPUT _NLA0:
688 $ on error then continue
689 $ on warning then continue
691 $ If (Needs_Opt.eqs."Yes")
693 $ link temp.obj,temp.opt/opt
697 $ teststatus = f$extract(9,1,$status)
698 $ DEASSIGN SYS$OUTPUT
700 $ if (teststatus.nes."1")
702 $ perl_longlongsize="0"
703 $ perl_d_longlong="undef"
705 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
706 $ DEFINE SYS$ERROR TEMPOUT
707 $ DEFINE SYS$OUTPUT TEMPOUT
710 $ DEASSIGN SYS$OUTPUT
712 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
715 $ DELETE/NOLOG [-.uu]tempout.lis;
716 $ perl_longlongsize=line
717 $ perl_d_longlong="define"
719 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
720 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
722 $! Check the prototype for getgid
726 $ WS "#include <stdlib.h>
728 $ WS "#include <stdio.h>
729 $ WS "#include <types.h>
730 $ WS "#include <unistd.h>
737 $ DEFINE SYS$ERROR _NLA0:
738 $ DEFINE SYS$OUTPUT _NLA0:
739 $ on error then continue
740 $ on warning then continue
742 $ teststatus = f$extract(9,1,$status)
743 $ DEASSIGN SYS$OUTPUT
745 $ if (teststatus.nes."1")
747 $! Okay, gid_t failed. Must be unsigned int
748 $ perl_gidtype = "unsigned int"
750 $ perl_gidtype = "gid_t"
752 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
754 $! Check to see if we've got dev_t
758 $ WS "#include <stdlib.h>
760 $ WS "#include <stdio.h>
761 $ WS "#include <types.h>
762 $ WS "#include <unistd.h>
769 $ DEFINE SYS$ERROR _NLA0:
770 $ DEFINE SYS$OUTPUT _NLA0:
771 $ on error then continue
772 $ on warning then continue
774 $ teststatus = f$extract(9,1,$status)
775 $ DEASSIGN SYS$OUTPUT
777 $ if (teststatus.nes."1")
779 $! Okay, dev_t failed. Must be unsigned int
780 $ perl_devtype = "unsigned int"
782 $ perl_devtype = "dev_t"
784 $ WRITE_RESULT "Dev_t is ''perl_devtype'"
786 $! Check to see if we've got unistd.h (which we ought to, but you never know)
790 $ WS "#include <stdlib.h>
792 $ WS "#include <unistd.h>
798 $ DEFINE SYS$ERROR _NLA0:
799 $ DEFINE SYS$OUTPUT _NLA0:
800 $ on error then continue
801 $ on warning then continue
803 $ teststatus = f$extract(9,1,$status)
804 $ DEASSIGN SYS$OUTPUT
806 $ if (teststatus.nes."1")
808 $! Okay, failed. Must not have it
809 $ perl_i_unistd = "undef"
811 $ perl_i_unistd = "define"
814 $ WRITE_RESULT "i_unistd is ''perl_i_unistd'"
816 $! Check to see if we've got shadow.h (probably not, but...)
820 $ WS "#include <stdlib.h>
822 $ WS "#include <shadow.h>
828 $ DEFINE SYS$ERROR _NLA0:
829 $ DEFINE SYS$OUTPUT _NLA0:
830 $ on error then continue
831 $ on warning then continue
833 $ teststatus = f$extract(9,1,$status)
834 $ DEASSIGN SYS$OUTPUT
836 $ if (teststatus.nes."1")
838 $! Okay, failed. Must not have it
839 $ perl_i_shadow = "undef"
841 $ perl_i_shadow = "define"
844 $ WRITE_RESULT "i_shadow is ''perl_i_shadow'"
846 $! Check to see if we've got socks.h (probably not, but...)
850 $ WS "#include <stdlib.h>
852 $ WS "#include <socks.h>
858 $ DEFINE SYS$ERROR _NLA0:
859 $ DEFINE SYS$OUTPUT _NLA0:
860 $ on error then continue
861 $ on warning then continue
863 $ teststatus = f$extract(9,1,$status)
864 $ DEASSIGN SYS$OUTPUT
866 $ if (teststatus.nes."1")
868 $! Okay, failed. Must not have it
869 $ perl_i_socks = "undef"
871 $ perl_i_socks = "define"
874 $ WRITE_RESULT "i_socks is ''perl_i_socks'"
876 $! Check the prototype for select
878 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
882 $ WS "#include <stdlib.h>
884 $ WS "#include <stdio.h>
885 $ WS "#include <types.h>
886 $ WS "#include <unistd.h>
887 $ if ("''Has_Socketshr'".eqs."T")
889 $ WS "#include <socketshr.h>"
891 $ WS "#include <time.h>
892 $ WS "#include <socket.h>
899 $ WS "bar = select(2, foo, foo, foo, NULL);
903 $ DEFINE SYS$ERROR _NLA0:
904 $ DEFINE SYS$OUTPUT _NLA0:
905 $ on error then continue
906 $ on warning then continue
908 $ teststatus = f$extract(9,1,$status)
909 $ DEASSIGN SYS$OUTPUT
911 $ if (teststatus.nes."1")
913 $! Okay, fd_set failed. Must be an int
914 $ perl_selecttype = "int *"
916 $ perl_selecttype="fd_set *"
919 $ ! No sockets, so stick in an int *
920 $ perl_selecttype = "int *"
922 $ WRITE_RESULT "selectype is ''perl_selecttype'"
924 $! Check to see if fd_set exists
928 $ WS "#include <stdlib.h>
930 $ WS "#include <stdio.h>
931 $ WS "#include <types.h>
932 $ WS "#include <unistd.h>
933 $ if ("''Has_Socketshr'".eqs."T")
935 $ WS "#include <socketshr.h>"
937 $ IF ("''Has_Dec_C_Sockets'".eqs."T")
939 $ WS "#include <time.h>
940 $ WS "#include <socket.h>
949 $ DEFINE SYS$ERROR _NLA0:
950 $ DEFINE SYS$OUTPUT _NLA0:
951 $ on error then continue
952 $ on warning then continue
954 $ teststatus = f$extract(9,1,$status)
955 $ DEASSIGN SYS$OUTPUT
957 $ if (teststatus.nes."1")
959 $! Okay, fd_set failed. Must not exist
960 $ perl_d_fd_set = "undef"
962 $ perl_d_fd_set="define"
964 $ WRITE_RESULT "d_fd_set is ''perl_d_fd_set'"
966 $! Check for inttypes.h
970 $ WS "#include <stdlib.h>
972 $ WS "#include <stdio.h>
973 $ WS "#include <unistd.h>
974 $ WS "#include <inttypes.h>
980 $ DEFINE SYS$ERROR _NLA0:
981 $ DEFINE SYS$OUTPUT _NLA0:
982 $ on error then continue
983 $ on warning then continue
985 $ savedstatus = $status
986 $ teststatus = f$extract(9,1,savedstatus)
987 $ if (teststatus.nes."1")
989 $ perl_i_inttypes="undef"
990 $ DEASSIGN SYS$OUTPUT
993 $ If (Needs_Opt.eqs."Yes")
995 $ link temp.obj,temp.opt/opt
999 $ savedstatus = $status
1000 $ teststatus = f$extract(9,1,savedstatus)
1001 $ DEASSIGN SYS$OUTPUT
1002 $ DEASSIGN SYS$ERROR
1003 $ if (teststatus.nes."1")
1005 $ perl_i_inttypes="undef"
1007 $ perl_i_inttypes="define"
1010 $ WRITE_RESULT "i_inttypes is ''perl_i_inttypes'"
1012 $! Check to see if int64_t exists
1016 $ WS "#include <stdlib.h>
1018 $ WS "#include <stdio.h>
1019 $ WS "#include <types.h>
1020 $ WS "#''perl_i_inttypes IIH
1022 $ WS "#include <inttypes.h>
1024 $ WS "#include <unistd.h>
1031 $ DEFINE SYS$ERROR _NLA0:
1032 $ DEFINE SYS$OUTPUT _NLA0:
1033 $ on error then continue
1034 $ on warning then continue
1036 $ teststatus = f$extract(9,1,$status)
1037 $ DEASSIGN SYS$OUTPUT
1038 $ DEASSIGN SYS$ERROR
1039 $ if (teststatus.nes."1")
1041 $! Okay, int64_t failed. Must not exist
1042 $ perl_d_int64t = "undef"
1044 $ perl_d_int64t="define"
1046 $ WRITE_RESULT "d_int64t is ''perl_d_int64t'"
1048 $! Check to see if off64_t exists
1052 $ WS "#include <stdlib.h>
1054 $ WS "#include <stdio.h>
1055 $ WS "#include <types.h>
1056 $ WS "#''perl_i_inttypes IIH
1058 $ WS "#include <inttypes.h>
1060 $ WS "#include <unistd.h>
1067 $ DEFINE SYS$ERROR _NLA0:
1068 $ DEFINE SYS$OUTPUT _NLA0:
1069 $ on error then continue
1070 $ on warning then continue
1072 $ teststatus = f$extract(9,1,$status)
1073 $ DEASSIGN SYS$OUTPUT
1074 $ DEASSIGN SYS$ERROR
1075 $ if (teststatus.nes."1")
1077 $! Okay, off64_t failed. Must not exist
1078 $ perl_d_off64_t = "undef"
1080 $ perl_d_off64_t="define"
1082 $ WRITE_RESULT "d_off64_t is ''perl_d_off64_t'"
1084 $! Check to see if fpos64_t exists
1088 $ WS "#include <stdlib.h>
1090 $ WS "#include <stdio.h>
1091 $ WS "#include <types.h>
1092 $ WS "#''perl_i_inttypes IIH
1094 $ WS "#include <inttypes.h>
1096 $ WS "#include <unistd.h>
1103 $ DEFINE SYS$ERROR _NLA0:
1104 $ DEFINE SYS$OUTPUT _NLA0:
1105 $ on error then continue
1106 $ on warning then continue
1108 $ teststatus = f$extract(9,1,$status)
1109 $ DEASSIGN SYS$OUTPUT
1110 $ DEASSIGN SYS$ERROR
1111 $ if (teststatus.nes."1")
1113 $! Okay, fpos64_t failed. Must not exist
1114 $ perl_d_fpos64_t = "undef"
1116 $ perl_d_fpos64_t="define"
1118 $ WRITE_RESULT "d_fpos64_t is ''perl_d_fpos64_t'"
1120 $! Check to see if gethostname exists
1122 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1126 $ WS "#include <stdlib.h>
1128 $ WS "#include <stdio.h>
1129 $ WS "#include <types.h>
1130 $ WS "#include <unistd.h>
1131 $ if ("''Has_Socketshr'".eqs."T")
1133 $ WS "#include <socketshr.h>"
1135 $ WS "#include <time.h>
1136 $ WS "#include <socket.h>
1140 $ WS "char name[100];
1143 $ WS "baz = gethostname(name, bar);
1147 $ DEFINE SYS$ERROR _NLA0:
1148 $ DEFINE SYS$OUTPUT _NLA0:
1149 $ on error then continue
1150 $ on warning then continue
1152 $ teststatus = f$extract(9,1,$status)
1153 $ DEASSIGN SYS$OUTPUT
1154 $ DEASSIGN SYS$ERROR
1155 $ if (teststatus.nes."1")
1157 $! Okay, compile failed. Must not have it
1158 $ perl_dgethname = "undef"
1160 $ If (Needs_Opt.eqs."Yes")
1162 $ link temp.obj,temp.opt/opt
1166 $ savedstatus = $status
1167 $ teststatus = f$extract(9,1,savedstatus)
1168 $ if (teststatus.nes."1")
1170 $ perl_d_gethname="undef"
1172 $ perl_d_gethname="define"
1176 $ ! No sockets, so no gethname
1177 $ perl_d_gethname = "undef"
1179 $ WRITE_RESULT "d_gethname is ''perl_d_gethname'"
1181 $! Check for sys/file.h
1185 $ WS "#include <stdlib.h>
1187 $ WS "#include <stdio.h>
1188 $ WS "#include <unistd.h>
1189 $ WS "#include <sys/file.h>
1195 $ DEFINE SYS$ERROR _NLA0:
1196 $ DEFINE SYS$OUTPUT _NLA0:
1197 $ on error then continue
1198 $ on warning then continue
1200 $ savedstatus = $status
1201 $ teststatus = f$extract(9,1,savedstatus)
1202 $ if (teststatus.nes."1")
1204 $ perl_i_sysfile="undef"
1205 $ DEASSIGN SYS$OUTPUT
1206 $ DEASSIGN SYS$ERROR
1208 $ If (Needs_Opt.eqs."Yes")
1210 $ link temp.obj,temp.opt/opt
1214 $ savedstatus = $status
1215 $ teststatus = f$extract(9,1,savedstatus)
1216 $ DEASSIGN SYS$OUTPUT
1217 $ DEASSIGN SYS$ERROR
1218 $ if (teststatus.nes."1")
1220 $ perl_i_sysfile="undef"
1222 $ perl_i_sysfile="define"
1225 $ WRITE_RESULT "i_sysfile is ''perl_i_sysfile'"
1231 $ WS "#include <stdlib.h>
1233 $ WS "#include <stdio.h>
1234 $ WS "#include <unistd.h>
1235 $ WS "#include <poll.h>
1241 $ DEFINE SYS$ERROR _NLA0:
1242 $ DEFINE SYS$OUTPUT _NLA0:
1243 $ on error then continue
1244 $ on warning then continue
1246 $ savedstatus = $status
1247 $ teststatus = f$extract(9,1,savedstatus)
1248 $ if (teststatus.nes."1")
1250 $ perl_i_poll="undef"
1251 $ DEASSIGN SYS$OUTPUT
1252 $ DEASSIGN SYS$ERROR
1254 $ If (Needs_Opt.eqs."Yes")
1256 $ link temp.obj,temp.opt/opt
1260 $ savedstatus = $status
1261 $ teststatus = f$extract(9,1,savedstatus)
1262 $ DEASSIGN SYS$OUTPUT
1263 $ DEASSIGN SYS$ERROR
1264 $ if (teststatus.nes."1")
1266 $ perl_i_poll="undef"
1268 $ perl_i_poll="define"
1271 $ WRITE_RESULT "i_poll is ''perl_i_poll'"
1273 $! Check for sys/uio.h
1277 $ WS "#include <stdlib.h>
1279 $ WS "#include <stdio.h>
1280 $ WS "#include <unistd.h>
1281 $ WS "#include <sys/uio.h>
1287 $ DEFINE SYS$ERROR _NLA0:
1288 $ DEFINE SYS$OUTPUT _NLA0:
1289 $ on error then continue
1290 $ on warning then continue
1292 $ savedstatus = $status
1293 $ teststatus = f$extract(9,1,savedstatus)
1294 $ if (teststatus.nes."1")
1296 $ perl_i_sysuio="undef"
1297 $ DEASSIGN SYS$OUTPUT
1298 $ DEASSIGN SYS$ERROR
1300 $ If (Needs_Opt.eqs."Yes")
1302 $ link temp.obj,temp.opt/opt
1306 $ savedstatus = $status
1307 $ teststatus = f$extract(9,1,savedstatus)
1308 $ DEASSIGN SYS$OUTPUT
1309 $ DEASSIGN SYS$ERROR
1310 $ if (teststatus.nes."1")
1312 $ perl_i_sysuio="undef"
1314 $ perl_i_sysuio="define"
1317 $ WRITE_RESULT "i_sysuio is ''perl_i_sysuio'"
1319 $! Check for sys/access.h
1323 $ WS "#include <stdlib.h>
1325 $ WS "#include <stdio.h>
1326 $ WS "#include <unistd.h>
1327 $ WS "#include <sys/access.h>
1333 $ DEFINE SYS$ERROR _NLA0:
1334 $ DEFINE SYS$OUTPUT _NLA0:
1335 $ on error then continue
1336 $ on warning then continue
1338 $ savedstatus = $status
1339 $ teststatus = f$extract(9,1,savedstatus)
1340 $ if (teststatus.nes."1")
1342 $ perl_i_sysaccess="undef"
1343 $ DEASSIGN SYS$OUTPUT
1344 $ DEASSIGN SYS$ERROR
1346 $ If (Needs_Opt.eqs."Yes")
1348 $ link temp.obj,temp.opt/opt
1352 $ savedstatus = $status
1353 $ teststatus = f$extract(9,1,savedstatus)
1354 $ DEASSIGN SYS$OUTPUT
1355 $ DEASSIGN SYS$ERROR
1356 $ if (teststatus.nes."1")
1358 $ perl_i_sysaccess="undef"
1360 $ perl_i_sysaccess="define"
1363 $ WRITE_RESULT "i_sysaccess is ''perl_i_sysaccess'"
1365 $! Check for sys/security.h
1369 $ WS "#include <stdlib.h>
1371 $ WS "#include <stdio.h>
1372 $ WS "#include <unistd.h>
1373 $ WS "#include <sys/security.h>
1379 $ DEFINE SYS$ERROR _NLA0:
1380 $ DEFINE SYS$OUTPUT _NLA0:
1381 $ on error then continue
1382 $ on warning then continue
1384 $ savedstatus = $status
1385 $ teststatus = f$extract(9,1,savedstatus)
1386 $ if (teststatus.nes."1")
1388 $ perl_i_syssecrt="undef"
1389 $ DEASSIGN SYS$OUTPUT
1390 $ DEASSIGN SYS$ERROR
1392 $ If (Needs_Opt.eqs."Yes")
1394 $ link temp.obj,temp.opt/opt
1398 $ savedstatus = $status
1399 $ teststatus = f$extract(9,1,savedstatus)
1400 $ DEASSIGN SYS$OUTPUT
1401 $ DEASSIGN SYS$ERROR
1402 $ if (teststatus.nes."1")
1404 $ perl_i_syssecrt="undef"
1406 $ perl_i_syssecrt="define"
1409 $ WRITE_RESULT "i_syssecrt is ''perl_i_syssecrt'"
1411 $! Check for fcntl.h
1415 $ WS "#include <stdlib.h>
1417 $ WS "#include <stdio.h>
1418 $ WS "#include <unistd.h>
1419 $ WS "#include <fcntl.h>
1425 $ DEFINE SYS$ERROR _NLA0:
1426 $ DEFINE SYS$OUTPUT _NLA0:
1427 $ on error then continue
1428 $ on warning then continue
1430 $ savedstatus = $status
1431 $ teststatus = f$extract(9,1,savedstatus)
1432 $ if (teststatus.nes."1")
1434 $ perl_i_fcntl="undef"
1435 $ DEASSIGN SYS$OUTPUT
1436 $ DEASSIGN SYS$ERROR
1438 $ If (Needs_Opt.eqs."Yes")
1440 $ link temp.obj,temp.opt/opt
1444 $ savedstatus = $status
1445 $ teststatus = f$extract(9,1,savedstatus)
1446 $ DEASSIGN SYS$OUTPUT
1447 $ DEASSIGN SYS$ERROR
1448 $ if (teststatus.nes."1")
1450 $ perl_i_fcntl="undef"
1452 $ perl_i_fcntl="define"
1455 $ WRITE_RESULT "i_fcntl is ''perl_i_fcntl'"
1461 $ WS "#include <stdlib.h>
1463 $ WS "#include <stdio.h>
1464 $ WS "#include <unistd.h>
1465 $ WS "#include <fcntl.h>
1472 $ DEFINE SYS$ERROR _NLA0:
1473 $ DEFINE SYS$OUTPUT _NLA0:
1474 $ on error then continue
1475 $ on warning then continue
1477 $ savedstatus = $status
1478 $ teststatus = f$extract(9,1,savedstatus)
1479 $ if (teststatus.nes."1")
1481 $ perl_d_fcntl="undef"
1482 $ DEASSIGN SYS$OUTPUT
1483 $ DEASSIGN SYS$ERROR
1485 $ If (Needs_Opt.eqs."Yes")
1487 $ link temp.obj,temp.opt/opt
1491 $ savedstatus = $status
1492 $ teststatus = f$extract(9,1,savedstatus)
1493 $ DEASSIGN SYS$OUTPUT
1494 $ DEASSIGN SYS$ERROR
1495 $ if (teststatus.nes."1")
1497 $ perl_d_fcntl="undef"
1499 $ perl_d_fcntl="define"
1502 $ WRITE_RESULT "d_fcntl is ''perl_d_fcntl'"
1508 $ WS "#include <stdlib.h>
1510 $ WS "#include <string.h>
1514 $ WS "place = memchr(""foo"", 47, 3)
1518 $ DEFINE SYS$ERROR _NLA0:
1519 $ DEFINE SYS$OUTPUT _NLA0:
1520 $ on error then continue
1521 $ on warning then continue
1523 $ savedstatus = $status
1524 $ teststatus = f$extract(9,1,savedstatus)
1525 $ if (teststatus.nes."1")
1527 $ perl_d_memchr="undef"
1528 $ DEASSIGN SYS$OUTPUT
1529 $ DEASSIGN SYS$ERROR
1531 $ If (Needs_Opt.eqs."Yes")
1533 $ link temp.obj,temp.opt/opt
1537 $ savedstatus = $status
1538 $ teststatus = f$extract(9,1,savedstatus)
1539 $ DEASSIGN SYS$OUTPUT
1540 $ DEASSIGN SYS$ERROR
1541 $ if (teststatus.nes."1")
1543 $ perl_d_memchr="undef"
1545 $ perl_d_memchr="define"
1548 $ WRITE_RESULT "d_memchr is ''perl_d_memchr'"
1550 $! Check for strtoull
1554 $ WS "#include <stdlib.h>
1556 $ WS "#include <string.h>
1559 $ WS "unsigned __int64 result;
1560 $ WS "result = strtoull(""123123"", NULL, 10);
1564 $ DEFINE SYS$ERROR _NLA0:
1565 $ DEFINE SYS$OUTPUT _NLA0:
1566 $ on error then continue
1567 $ on warning then continue
1569 $ savedstatus = $status
1570 $ teststatus = f$extract(9,1,savedstatus)
1571 $ if (teststatus.nes."1")
1573 $ perl_d_strtoull="undef"
1574 $ DEASSIGN SYS$OUTPUT
1575 $ DEASSIGN SYS$ERROR
1577 $ If (Needs_Opt.eqs."Yes")
1579 $ link temp.obj,temp.opt/opt
1583 $ savedstatus = $status
1584 $ teststatus = f$extract(9,1,savedstatus)
1585 $ DEASSIGN SYS$OUTPUT
1586 $ DEASSIGN SYS$ERROR
1587 $ if (teststatus.nes."1")
1589 $ perl_d_strtoull="undef"
1591 $ perl_d_strtoull="define"
1594 $ WRITE_RESULT "d_strtoull is ''perl_d_strtoull'"
1596 $! Check for strtouq
1600 $ WS "#include <stdlib.h>
1602 $ WS "#include <string.h>
1605 $ WS "unsigned __int64 result;
1606 $ WS "result = strtouq(""123123"", NULL, 10);
1610 $ DEFINE SYS$ERROR _NLA0:
1611 $ DEFINE SYS$OUTPUT _NLA0:
1612 $ on error then continue
1613 $ on warning then continue
1615 $ savedstatus = $status
1616 $ teststatus = f$extract(9,1,savedstatus)
1617 $ if (teststatus.nes."1")
1619 $ perl_d_strtouq="undef"
1620 $ DEASSIGN SYS$OUTPUT
1621 $ DEASSIGN SYS$ERROR
1623 $ If (Needs_Opt.eqs."Yes")
1625 $ link temp.obj,temp.opt/opt
1629 $ savedstatus = $status
1630 $ teststatus = f$extract(9,1,savedstatus)
1631 $ DEASSIGN SYS$OUTPUT
1632 $ DEASSIGN SYS$ERROR
1633 $ if (teststatus.nes."1")
1635 $ perl_d_strtouq="undef"
1637 $ perl_d_strtouq="define"
1640 $ WRITE_RESULT "d_strtouq is ''perl_d_strtouq'"
1642 $! Check for strtoll
1646 $ WS "#include <stdlib.h>
1648 $ WS "#include <string.h>
1651 $ WS "__int64 result;
1652 $ WS "result = strtoll(""123123"", NULL, 10);
1656 $ DEFINE SYS$ERROR _NLA0:
1657 $ DEFINE SYS$OUTPUT _NLA0:
1658 $ on error then continue
1659 $ on warning then continue
1661 $ savedstatus = $status
1662 $ teststatus = f$extract(9,1,savedstatus)
1663 $ if (teststatus.nes."1")
1665 $ perl_d_strtoll="undef"
1666 $ DEASSIGN SYS$OUTPUT
1667 $ DEASSIGN SYS$ERROR
1669 $ If (Needs_Opt.eqs."Yes")
1671 $ link temp.obj,temp.opt/opt
1675 $ savedstatus = $status
1676 $ teststatus = f$extract(9,1,savedstatus)
1677 $ DEASSIGN SYS$OUTPUT
1678 $ DEASSIGN SYS$ERROR
1679 $ if (teststatus.nes."1")
1681 $ perl_d_strtoll="undef"
1683 $ perl_d_strtoll="define"
1686 $ WRITE_RESULT "d_strtoll is ''perl_d_strtoll'"
1688 $! Check for strtold
1692 $ WS "#include <stdlib.h>
1694 $ WS "#include <string.h>
1697 $ WS "long double result;
1698 $ WS "result = strtold(""123123"", NULL, 10);
1702 $ DEFINE SYS$ERROR _NLA0:
1703 $ DEFINE SYS$OUTPUT _NLA0:
1704 $ on error then continue
1705 $ on warning then continue
1707 $ savedstatus = $status
1708 $ teststatus = f$extract(9,1,savedstatus)
1709 $ if (teststatus.nes."1")
1711 $ perl_d_strtold="undef"
1712 $ DEASSIGN SYS$OUTPUT
1713 $ DEASSIGN SYS$ERROR
1715 $ If (Needs_Opt.eqs."Yes")
1717 $ link temp.obj,temp.opt/opt
1721 $ savedstatus = $status
1722 $ teststatus = f$extract(9,1,savedstatus)
1723 $ DEASSIGN SYS$OUTPUT
1724 $ DEASSIGN SYS$ERROR
1725 $ if (teststatus.nes."1")
1727 $ perl_d_strtold="undef"
1729 $ perl_d_strtold="define"
1732 $ WRITE_RESULT "d_strtold is ''perl_d_strtold'"
1738 $ WS "#include <stdlib.h>
1740 $ WS "#include <string.h>
1743 $ WS " __int64 result;
1744 $ WS "result = atoll(""123123"");
1748 $ DEFINE SYS$ERROR _NLA0:
1749 $ DEFINE SYS$OUTPUT _NLA0:
1750 $ on error then continue
1751 $ on warning then continue
1753 $ savedstatus = $status
1754 $ teststatus = f$extract(9,1,savedstatus)
1755 $ if (teststatus.nes."1")
1757 $ perl_d_atoll="undef"
1758 $ DEASSIGN SYS$OUTPUT
1759 $ DEASSIGN SYS$ERROR
1761 $ If (Needs_Opt.eqs."Yes")
1763 $ link temp.obj,temp.opt/opt
1767 $ savedstatus = $status
1768 $ teststatus = f$extract(9,1,savedstatus)
1769 $ DEASSIGN SYS$OUTPUT
1770 $ DEASSIGN SYS$ERROR
1771 $ if (teststatus.nes."1")
1773 $ perl_d_atoll="undef"
1775 $ perl_d_atoll="define"
1778 $ WRITE_RESULT "d_atoll is ''perl_d_atoll'"
1784 $ WS "#include <stdlib.h>
1786 $ WS "#include <string.h>
1790 $ WS "result = atolf(""123123"");
1794 $ DEFINE SYS$ERROR _NLA0:
1795 $ DEFINE SYS$OUTPUT _NLA0:
1796 $ on error then continue
1797 $ on warning then continue
1799 $ savedstatus = $status
1800 $ teststatus = f$extract(9,1,savedstatus)
1801 $ if (teststatus.nes."1")
1803 $ perl_d_atolf="undef"
1804 $ DEASSIGN SYS$OUTPUT
1805 $ DEASSIGN SYS$ERROR
1807 $ If (Needs_Opt.eqs."Yes")
1809 $ link temp.obj,temp.opt/opt
1813 $ savedstatus = $status
1814 $ teststatus = f$extract(9,1,savedstatus)
1815 $ DEASSIGN SYS$OUTPUT
1816 $ DEASSIGN SYS$ERROR
1817 $ if (teststatus.nes."1")
1819 $ perl_d_atolf="undef"
1821 $ perl_d_atolf="define"
1824 $ WRITE_RESULT "d_atolf is ''perl_d_atolf'"
1830 $ WS "#include <stdlib.h>
1832 $ WS "#include <stdio.h>
1833 $ WS "#include <unistd.h>
1836 $ WS "access("foo", F_OK);
1840 $ DEFINE SYS$ERROR _NLA0:
1841 $ DEFINE SYS$OUTPUT _NLA0:
1842 $ on error then continue
1843 $ on warning then continue
1845 $ savedstatus = $status
1846 $ teststatus = f$extract(9,1,savedstatus)
1847 $ if (teststatus.nes."1")
1849 $ perl_d_access="undef"
1850 $ DEASSIGN SYS$OUTPUT
1851 $ DEASSIGN SYS$ERROR
1853 $ If (Needs_Opt.eqs."Yes")
1855 $ link temp.obj,temp.opt/opt
1859 $ savedstatus = $status
1860 $ teststatus = f$extract(9,1,savedstatus)
1861 $ DEASSIGN SYS$OUTPUT
1862 $ DEASSIGN SYS$ERROR
1863 $ if (teststatus.nes."1")
1865 $ perl_d_access="undef"
1867 $ perl_d_access="define"
1870 $ WRITE_RESULT "d_access is ''perl_d_access'"
1876 $ WS "#include <stdlib.h>
1878 $ WS "#include <stdio.h>
1879 $ WS "#include <strings.h>
1883 $ WS "bzero(foo, 10);
1887 $ DEFINE SYS$ERROR _NLA0:
1888 $ DEFINE SYS$OUTPUT _NLA0:
1889 $ on error then continue
1890 $ on warning then continue
1892 $ savedstatus = $status
1893 $ teststatus = f$extract(9,1,savedstatus)
1894 $ if (teststatus.nes."1")
1896 $ perl_d_bzero="undef"
1897 $ DEASSIGN SYS$OUTPUT
1898 $ DEASSIGN SYS$ERROR
1900 $ If (Needs_Opt.eqs."Yes")
1902 $ link temp.obj,temp.opt/opt
1906 $ savedstatus = $status
1907 $ teststatus = f$extract(9,1,savedstatus)
1908 $ DEASSIGN SYS$OUTPUT
1909 $ DEASSIGN SYS$ERROR
1910 $ if (teststatus.nes."1")
1912 $ perl_d_bzero="undef"
1914 $ perl_d_bzero="define"
1917 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
1923 $ WS "#include <stdlib.h>
1925 $ WS "#include <stdio.h>
1926 $ WS "#include <strings.h>
1929 $ WS "char foo[10], bar[10];
1930 $ WS "bcopy(""foo"", bar, 3);
1934 $ DEFINE SYS$ERROR _NLA0:
1935 $ DEFINE SYS$OUTPUT _NLA0:
1936 $ on error then continue
1937 $ on warning then continue
1939 $ savedstatus = $status
1940 $ teststatus = f$extract(9,1,savedstatus)
1941 $ if (teststatus.nes."1")
1943 $ perl_d_bcopy="undef"
1944 $ DEASSIGN SYS$OUTPUT
1945 $ DEASSIGN SYS$ERROR
1947 $ If (Needs_Opt.eqs."Yes")
1949 $ link temp.obj,temp.opt/opt
1953 $ savedstatus = $status
1954 $ teststatus = f$extract(9,1,savedstatus)
1955 $ DEASSIGN SYS$OUTPUT
1956 $ DEASSIGN SYS$ERROR
1957 $ if (teststatus.nes."1")
1959 $ perl_d_bcopy="undef"
1961 $ perl_d_bcopy="define"
1964 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
1966 $! Check for mkstemp
1970 $ WS "#include <stdlib.h>
1972 $ WS "#include <stdio.h>
1975 $ WS "mkstemp(""foo"");
1979 $ DEFINE SYS$ERROR _NLA0:
1980 $ DEFINE SYS$OUTPUT _NLA0:
1981 $ on error then continue
1982 $ on warning then continue
1984 $ If (Needs_Opt.eqs."Yes")
1986 $ link temp.obj,temp.opt/opt
1990 $ savedstatus = $status
1991 $ teststatus = f$extract(9,1,savedstatus)
1992 $ DEASSIGN SYS$OUTPUT
1993 $ DEASSIGN SYS$ERROR
1994 $ if (teststatus.nes."1")
1996 $ perl_d_mkstemp="undef"
1998 $ perl_d_mkstemp="define"
2000 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
2002 $! Check for mkstemps
2006 $ WS "#include <stdlib.h>
2008 $ WS "#include <stdio.h>
2011 $ WS "mkstemps(""foo"", 1);
2015 $ DEFINE SYS$ERROR _NLA0:
2016 $ DEFINE SYS$OUTPUT _NLA0:
2017 $ on error then continue
2018 $ on warning then continue
2020 $ If (Needs_Opt.eqs."Yes")
2022 $ link temp.obj,temp.opt/opt
2026 $ savedstatus = $status
2027 $ teststatus = f$extract(9,1,savedstatus)
2028 $ DEASSIGN SYS$OUTPUT
2029 $ DEASSIGN SYS$ERROR
2030 $ if (teststatus.nes."1")
2032 $ perl_d_mkstemps="undef"
2034 $ perl_d_mkstemps="define"
2036 $ WRITE_RESULT "d_mkstemps is ''perl_d_mkstemps'"
2038 $! Check for mkstemp
2042 $ WS "#include <stdlib.h>
2044 $ WS "#include <stdio.h>
2047 $ WS "mkdtemp(""foo"");
2051 $ DEFINE SYS$ERROR _NLA0:
2052 $ DEFINE SYS$OUTPUT _NLA0:
2053 $ on error then continue
2054 $ on warning then continue
2056 $ If (Needs_Opt.eqs."Yes")
2058 $ link temp.obj,temp.opt/opt
2062 $ savedstatus = $status
2063 $ teststatus = f$extract(9,1,savedstatus)
2064 $ DEASSIGN SYS$OUTPUT
2065 $ DEASSIGN SYS$ERROR
2066 $ if (teststatus.nes."1")
2068 $ perl_d_mkdtemp="undef"
2070 $ perl_d_mkdtemp="define"
2072 $ WRITE_RESULT "d_mkdtemp is ''perl_d_mkdtemp'"
2074 $! Check for setvbuf
2078 $ WS "#include <stdlib.h>
2080 $ WS "#include <stdio.h>
2084 $ WS "char Buffer[99];
2085 $ WS "foo = fopen(""foo"", ""r"");
2086 $ WS "setvbuf(foo, Buffer, 0, 0);
2090 $ DEFINE SYS$ERROR _NLA0:
2091 $ DEFINE SYS$OUTPUT _NLA0:
2092 $ on error then continue
2093 $ on warning then continue
2095 $ If (Needs_Opt.eqs."Yes")
2097 $ link temp.obj,temp.opt/opt
2101 $ teststatus = f$extract(9,1,$status)
2102 $ DEASSIGN SYS$OUTPUT
2103 $ DEASSIGN SYS$ERROR
2104 $ if (teststatus.nes."1")
2106 $ perl_d_setvbuf="undef"
2108 $ perl_d_setvbuf="define"
2110 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
2116 $ WS "#include <stdlib.h>
2118 $ WS "#include <stdio.h>
2121 $ WS "setenv(""FOO"", ""BAR"", 0);
2125 $ DEFINE SYS$ERROR _NLA0:
2126 $ DEFINE SYS$OUTPUT _NLA0:
2127 $ on error then continue
2128 $ on warning then continue
2130 $ If (Needs_Opt.eqs."Yes")
2132 $ link temp,temp/opt
2136 $ teststatus = f$extract(9,1,$status)
2137 $ DEASSIGN SYS$OUTPUT
2138 $ DEASSIGN SYS$ERROR
2139 $ if (teststatus.nes."1")
2141 $ perl_d_setenv="undef"
2143 $ perl_d_setenv="define"
2145 $ WRITE_RESULT "d_setenv is ''perl_d_setenv'"
2147 $! Check for <netinet/in.h>
2149 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2153 $ WS "#include <stdlib.h>
2155 $ WS "#include <stdio.h>
2156 $ if ("''Has_Socketshr'".eqs."T")
2158 $ WS "#include <socketshr.h>"
2160 $ WS "#include <netdb.h>
2162 $ WS "#include <netinet/in.h>"
2168 $ DEFINE SYS$ERROR _NLA0:
2169 $ DEFINE SYS$OUTPUT _NLA0:
2170 $ on error then continue
2171 $ on warning then continue
2173 $ If (Needs_Opt.eqs."Yes")
2175 $ link temp.obj,temp.opt/opt
2179 $ teststatus = f$extract(9,1,$status)
2180 $ DEASSIGN SYS$OUTPUT
2181 $ DEASSIGN SYS$ERROR
2182 $ if (teststatus.nes."1")
2184 $ perl_i_niin="undef"
2186 $ perl_i_niin="define"
2189 $ perl_i_niin="undef"
2191 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
2193 $! Check for <netinet/tcp.h>
2195 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2199 $ WS "#include <stdlib.h>
2201 $ WS "#include <stdio.h>
2202 $ if ("''Has_Socketshr'".eqs."T")
2204 $ WS "#include <socketshr.h>"
2206 $ WS "#include <netdb.h>
2208 $ WS "#include <netinet/tcp.h>"
2214 $ DEFINE SYS$ERROR _NLA0:
2215 $ DEFINE SYS$OUTPUT _NLA0:
2216 $ on error then continue
2217 $ on warning then continue
2219 $ If (Needs_Opt.eqs."Yes")
2221 $ link temp.obj,temp.opt/opt
2225 $ teststatus = f$extract(9,1,$status)
2226 $ DEASSIGN SYS$OUTPUT
2227 $ DEASSIGN SYS$ERROR
2228 $ if (teststatus.nes."1")
2230 $ perl_i_netinettcp="undef"
2232 $ perl_i_netinettcp="define"
2235 $ perl_i_netinettcp="undef"
2237 $ WRITE_RESULT "i_netinettcp is ''perl_i_netinettcp'"
2239 $! Check for endhostent
2241 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2245 $ WS "#include <stdlib.h>
2247 $ WS "#include <stdio.h>
2248 $ if ("''Has_Socketshr'".eqs."T")
2250 $ WS "#include <socketshr.h>"
2252 $ WS "#include <netdb.h>
2260 $ DEFINE SYS$ERROR _NLA0:
2261 $ DEFINE SYS$OUTPUT _NLA0:
2262 $ on error then continue
2263 $ on warning then continue
2265 $ If (Needs_Opt.eqs."Yes")
2267 $ link temp.obj,temp.opt/opt
2271 $ teststatus = f$extract(9,1,$status)
2272 $ DEASSIGN SYS$OUTPUT
2273 $ DEASSIGN SYS$ERROR
2274 $ if (teststatus.nes."1")
2276 $ perl_d_endhent="undef"
2278 $ perl_d_endhent="define"
2281 $ perl_d_endhent="undef"
2283 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
2285 $! Check for endnetent
2287 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2291 $ WS "#include <stdlib.h>
2293 $ WS "#include <stdio.h>
2294 $ if ("''Has_Socketshr'".eqs."T")
2296 $ WS "#include <socketshr.h>"
2298 $ WS "#include <netdb.h>
2306 $ DEFINE SYS$ERROR _NLA0:
2307 $ DEFINE SYS$OUTPUT _NLA0:
2308 $ on error then continue
2309 $ on warning then continue
2311 $ If (Needs_Opt.eqs."Yes")
2313 $ link temp.obj,temp.opt/opt
2317 $ teststatus = f$extract(9,1,$status)
2318 $ DEASSIGN SYS$OUTPUT
2319 $ DEASSIGN SYS$ERROR
2320 $ if (teststatus.nes."1")
2322 $ perl_d_endnent="undef"
2324 $ perl_d_endnent="define"
2327 $ perl_d_endnent="undef"
2329 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
2331 $! Check for endprotoent
2333 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2337 $ WS "#include <stdlib.h>
2339 $ WS "#include <stdio.h>
2340 $ if ("''Has_Socketshr'".eqs."T")
2342 $ WS "#include <socketshr.h>"
2344 $ WS "#include <netdb.h>
2348 $ WS "endprotoent();
2352 $ DEFINE SYS$ERROR _NLA0:
2353 $ DEFINE SYS$OUTPUT _NLA0:
2354 $ on error then continue
2355 $ on warning then continue
2357 $ If (Needs_Opt.eqs."Yes")
2359 $ link temp.obj,temp.opt/opt
2363 $ teststatus = f$extract(9,1,$status)
2364 $ DEASSIGN SYS$OUTPUT
2365 $ DEASSIGN SYS$ERROR
2366 $ if (teststatus.nes."1")
2368 $ perl_d_endpent="undef"
2370 $ perl_d_endpent="define"
2373 $ perl_d_endpent="undef"
2375 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
2377 $! Check for endservent
2379 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2383 $ WS "#include <stdlib.h>
2385 $ WS "#include <stdio.h>
2386 $ if ("''Has_Socketshr'".eqs."T")
2388 $ WS "#include <socketshr.h>"
2390 $ WS "#include <netdb.h>
2398 $ DEFINE SYS$ERROR _NLA0:
2399 $ DEFINE SYS$OUTPUT _NLA0:
2400 $ on error then continue
2401 $ on warning then continue
2403 $ If (Needs_Opt.eqs."Yes")
2405 $ link temp.obj,temp.opt/opt
2409 $ teststatus = f$extract(9,1,$status)
2410 $ DEASSIGN SYS$OUTPUT
2411 $ DEASSIGN SYS$ERROR
2412 $ if (teststatus.nes."1")
2414 $ perl_d_endsent="undef"
2416 $ perl_d_endsent="define"
2419 $ perl_d_endsent="undef"
2421 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
2423 $! Check for sethostent
2425 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2429 $ WS "#include <stdlib.h>
2431 $ WS "#include <stdio.h>
2432 $ if ("''Has_Socketshr'".eqs."T")
2434 $ WS "#include <socketshr.h>"
2436 $ WS "#include <netdb.h>
2440 $ WS "sethostent(1);
2444 $ DEFINE SYS$ERROR _NLA0:
2445 $ DEFINE SYS$OUTPUT _NLA0:
2446 $ on error then continue
2447 $ on warning then continue
2449 $ If (Needs_Opt.eqs."Yes")
2451 $ link temp.obj,temp.opt/opt
2455 $ teststatus = f$extract(9,1,$status)
2456 $ DEASSIGN SYS$OUTPUT
2457 $ DEASSIGN SYS$ERROR
2458 $ if (teststatus.nes."1")
2460 $ perl_d_sethent="undef"
2462 $ perl_d_sethent="define"
2465 $ perl_d_sethent="undef"
2467 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
2469 $! Check for setnetent
2471 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2475 $ WS "#include <stdlib.h>
2477 $ WS "#include <stdio.h>
2478 $ if ("''Has_Socketshr'".eqs."T")
2480 $ WS "#include <socketshr.h>"
2482 $ WS "#include <netdb.h>
2490 $ DEFINE SYS$ERROR _NLA0:
2491 $ DEFINE SYS$OUTPUT _NLA0:
2492 $ on error then continue
2493 $ on warning then continue
2495 $ If (Needs_Opt.eqs."Yes")
2497 $ link temp.obj,temp.opt/opt
2501 $ teststatus = f$extract(9,1,$status)
2502 $ DEASSIGN SYS$OUTPUT
2503 $ DEASSIGN SYS$ERROR
2504 $ if (teststatus.nes."1")
2506 $ perl_d_setnent="undef"
2508 $ perl_d_setnent="define"
2511 $ perl_d_setnent="undef"
2513 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
2515 $! Check for setprotoent
2517 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2521 $ WS "#include <stdlib.h>
2523 $ WS "#include <stdio.h>
2524 $ if ("''Has_Socketshr'".eqs."T")
2526 $ WS "#include <socketshr.h>"
2528 $ WS "#include <netdb.h>
2532 $ WS "setprotoent(1);
2536 $ DEFINE SYS$ERROR _NLA0:
2537 $ DEFINE SYS$OUTPUT _NLA0:
2538 $ on error then continue
2539 $ on warning then continue
2541 $ If (Needs_Opt.eqs."Yes")
2543 $ link temp.obj,temp.opt/opt
2547 $ teststatus = f$extract(9,1,$status)
2548 $ DEASSIGN SYS$OUTPUT
2549 $ DEASSIGN SYS$ERROR
2550 $ if (teststatus.nes."1")
2552 $ perl_d_setpent="undef"
2554 $ perl_d_setpent="define"
2557 $ perl_d_setpent="undef"
2559 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
2561 $! Check for setservent
2563 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2567 $ WS "#include <stdlib.h>
2569 $ WS "#include <stdio.h>
2570 $ if ("''Has_Socketshr'".eqs."T")
2572 $ WS "#include <socketshr.h>"
2574 $ WS "#include <netdb.h>
2578 $ WS "setservent(1);
2582 $ DEFINE SYS$ERROR _NLA0:
2583 $ DEFINE SYS$OUTPUT _NLA0:
2584 $ on error then continue
2585 $ on warning then continue
2587 $ If (Needs_Opt.eqs."Yes")
2589 $ link temp.obj,temp.opt/opt
2593 $ teststatus = f$extract(9,1,$status)
2594 $ DEASSIGN SYS$OUTPUT
2595 $ DEASSIGN SYS$ERROR
2596 $ if (teststatus.nes."1")
2598 $ perl_d_setsent="undef"
2600 $ perl_d_setsent="define"
2603 $ perl_d_setsent="undef"
2605 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
2607 $! Check for gethostent
2609 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2613 $ WS "#include <stdlib.h>
2615 $ WS "#include <stdio.h>
2616 $ if ("''Has_Socketshr'".eqs."T")
2618 $ WS "#include <socketshr.h>"
2620 $ WS "#include <netdb.h>
2628 $ DEFINE SYS$ERROR _NLA0:
2629 $ DEFINE SYS$OUTPUT _NLA0:
2630 $ on error then continue
2631 $ on warning then continue
2633 $ If (Needs_Opt.eqs."Yes")
2635 $ link temp.obj,temp.opt/opt
2639 $ teststatus = f$extract(9,1,$status)
2640 $ DEASSIGN SYS$OUTPUT
2641 $ DEASSIGN SYS$ERROR
2642 $ if (teststatus.nes."1")
2644 $ perl_d_gethent="undef"
2646 $ perl_d_gethent="define"
2649 $ perl_d_gethent="undef"
2651 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
2653 $! Check for getnetent
2655 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2659 $ WS "#include <stdlib.h>
2661 $ WS "#include <stdio.h>
2662 $ if ("''Has_Socketshr'".eqs."T")
2664 $ WS "#include <socketshr.h>"
2666 $ WS "#include <netdb.h>
2674 $ DEFINE SYS$ERROR _NLA0:
2675 $ DEFINE SYS$OUTPUT _NLA0:
2676 $ on error then continue
2677 $ on warning then continue
2679 $ If (Needs_Opt.eqs."Yes")
2681 $ link temp.obj,temp.opt/opt
2685 $ teststatus = f$extract(9,1,$status)
2686 $ DEASSIGN SYS$OUTPUT
2687 $ DEASSIGN SYS$ERROR
2688 $ if (teststatus.nes."1")
2690 $ perl_d_getnent="undef"
2692 $ perl_d_getnent="define"
2695 $ perl_d_getnent="undef"
2697 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
2699 $! Check for getprotoent
2701 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2705 $ WS "#include <stdlib.h>
2707 $ WS "#include <stdio.h>
2708 $ if ("''Has_Socketshr'".eqs."T")
2710 $ WS "#include <socketshr.h>"
2712 $ WS "#include <netdb.h>
2716 $ WS "getprotoent();
2720 $ DEFINE SYS$ERROR _NLA0:
2721 $ DEFINE SYS$OUTPUT _NLA0:
2722 $ on error then continue
2723 $ on warning then continue
2725 $ If (Needs_Opt.eqs."Yes")
2727 $ link temp.obj,temp.opt/opt
2731 $ teststatus = f$extract(9,1,$status)
2732 $ DEASSIGN SYS$OUTPUT
2733 $ DEASSIGN SYS$ERROR
2734 $ if (teststatus.nes."1")
2736 $ perl_d_getpent="undef"
2738 $ perl_d_getpent="define"
2741 $ perl_d_getpent="undef"
2743 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
2745 $! Check for getservent
2747 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2751 $ WS "#include <stdlib.h>
2753 $ WS "#include <stdio.h>
2754 $ if ("''Has_Socketshr'".eqs."T")
2756 $ WS "#include <socketshr.h>"
2758 $ WS "#include <netdb.h>
2766 $ DEFINE SYS$ERROR _NLA0:
2767 $ DEFINE SYS$OUTPUT _NLA0:
2768 $ on error then continue
2769 $ on warning then continue
2771 $ If (Needs_Opt.eqs."Yes")
2773 $ link temp.obj,temp.opt/opt
2777 $ teststatus = f$extract(9,1,$status)
2778 $ DEASSIGN SYS$OUTPUT
2779 $ DEASSIGN SYS$ERROR
2780 $ if (teststatus.nes."1")
2782 $ perl_d_getsent="undef"
2784 $ perl_d_getsent="define"
2787 $ perl_d_getsent="undef"
2789 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
2791 $! Check for pthread_yield
2793 $ if ("''use_threads'".eqs."T")
2797 $ WS "#include <stdlib.h>
2799 $ WS "#include <pthread.h>
2800 $ WS "#include <stdio.h>
2803 $ WS "pthread_yield();
2807 $ DEFINE SYS$ERROR _NLA0:
2808 $ DEFINE SYS$OUTPUT _NLA0:
2809 $ on error then continue
2810 $ on warning then continue
2812 $ teststatus = f$extract(9,1,$status)
2813 $ DEASSIGN SYS$OUTPUT
2814 $ DEASSIGN SYS$ERROR
2815 $ if (teststatus.nes."1")
2817 $ perl_d_pthread_yield="undef"
2819 $ perl_d_pthread_yield="define"
2822 $ perl_d_pthread_yield="undef"
2824 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
2826 $! Check for sched_yield
2828 $ if ("''use_threads'".eqs."T")
2832 $ WS "#include <stdlib.h>
2834 $ WS "#include <pthread.h>
2835 $ WS "#include <stdio.h>
2838 $ WS "sched_yield();
2842 $ DEFINE SYS$ERROR _NLA0:
2843 $ DEFINE SYS$OUTPUT _NLA0:
2844 $ on error then continue
2845 $ on warning then continue
2847 $ teststatus = f$extract(9,1,$status)
2848 $ DEASSIGN SYS$OUTPUT
2849 $ DEASSIGN SYS$ERROR
2850 $ if (teststatus.nes."1")
2852 $ perl_d_sched_yield="undef"
2853 $ perl_sched_yield = " "
2855 $ perl_d_sched_yield="define"
2856 $ perl_sched_yield = "sched_yield"
2859 $ perl_d_sched_yield="undef"
2860 $ perl_sched_yield = " "
2862 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
2863 $ WRITE_RESULT "sched_yield is ''perl_sched_yield'"
2865 $! Check for generic pointer size
2869 $ WS "#include <stdlib.h>
2871 $ WS "#include <stdio.h>
2875 $ WS "foo = sizeof(char *);
2876 $ WS "printf(""%d\n"", foo);
2880 $ DEFINE SYS$ERROR _NLA0:
2881 $ DEFINE SYS$OUTPUT _NLA0:
2882 $ ON ERROR THEN CONTINUE
2883 $ ON WARNING THEN CONTINUE
2885 $ If (Needs_Opt.eqs."Yes")
2887 $ link temp.obj,temp.opt/opt
2891 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
2892 $ DEASSIGN SYS$OUTPUT
2893 $ DEASSIGN SYS$ERROR
2894 $ DEFINE SYS$ERROR TEMPOUT
2895 $ DEFINE SYS$OUTPUT TEMPOUT
2898 $ DEASSIGN SYS$OUTPUT
2899 $ DEASSIGN SYS$ERROR
2900 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
2903 $ DELETE/NOLOG [-.uu]tempout.lis;
2906 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
2908 $! Check rand48 and its ilk
2912 $ WS "#include <stdlib.h>
2914 $ WS "#include <stdio.h>
2917 $ WS "srand48(12L);"
2922 $ DEFINE SYS$ERROR _NLA0:
2923 $ DEFINE SYS$OUTPUT _NLA0:
2924 $ ON ERROR THEN CONTINUE
2925 $ ON WARNING THEN CONTINUE
2927 $ If (Needs_Opt.eqs."Yes")
2929 $ link temp,temp.opt/opt
2933 $ teststatus = f$extract(9,1,$status)
2934 $ DEASSIGN SYS$OUTPUT
2935 $ DEASSIGN SYS$ERROR
2936 $ if (teststatus.nes."1")
2938 $ perl_drand01="random()"
2939 $ perl_randseedtype = "unsigned"
2940 $ perl_seedfunc = "srandom"
2944 $ WS "#include <stdlib.h>
2946 $ WS "#include <stdio.h>
2953 $! copy temp.c sys$output
2955 $ DEFINE SYS$ERROR _NLA0:
2956 $ DEFINE SYS$OUTPUT _NLA0:
2957 $ ON ERROR THEN CONTINUE
2958 $ ON WARNING THEN CONTINUE
2960 $ If (Needs_Opt.eqs."Yes")
2962 $ link temp,temp.opt/opt
2966 $ teststatus = f$extract(9,1,$status)
2967 $ DEASSIGN SYS$OUTPUT
2968 $ DEASSIGN SYS$ERROR
2969 $ if (teststatus.nes."1")
2971 $ perl_drand01="(((float)rand())/((float)RAND_MAX))"
2972 $ perl_randseedtype = "unsigned"
2973 $ perl_seedfunc = "srand"
2975 $ WRITE_RESULT "drand01 is ''perl_drand01'"
2978 $! Done with compiler checks. Clean up.
2979 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
2980 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
2981 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
2982 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
2985 $! Some that are compiler or VMS version sensitive
2988 $ IF "''Using_Gnu_C'".EQS."Yes"
2990 $ perl_d_attribut="define"
2991 $ perl_vms_cc_type="gcc"
2993 $ perl_d_attribut="undef"
2996 $! Dec C >= 5.2 and VMS ver >= 7.0
2997 $ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
2999 $ perl_d_bcmp="define"
3000 $ perl_d_gettimeod="define"
3001 $ perl_d_uname="define"
3002 $ perl_d_sigaction="define"
3003 $ perl_d_truncate="define"
3004 $ perl_d_wait4="define"
3005 $ perl_d_index="define"
3006 $ perl_pidtype="pid_t"
3007 $ 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"
3008 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3009 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
3010 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
3011 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
3012 $ 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"
3013 $ 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"
3014 $ perl_sig_num_with_commas=perl_sig_num_init
3015 $ perl_uidtype="uid_t"
3016 $ perl_d_pathconf="define"
3017 $ perl_d_fpathconf="define"
3018 $ perl_d_sysconf="define"
3019 $ perl_d_sigsetjmp="define"
3021 $ perl_pidtype="unsigned int"
3022 $ perl_d_gettimeod="undef"
3023 $ perl_d_bcmp="undef"
3024 $ perl_d_uname="undef"
3025 $ perl_d_sigaction="undef"
3026 $ perl_d_truncate="undef"
3027 $ perl_d_wait4="undef"
3028 $ perl_d_index="undef"
3029 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
3030 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3031 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
3032 $ perl_sig_name_with_commas = psnwc1 + psnwc2
3033 $ perl_sig_num="0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 6 16 17"",0"
3034 $ perl_sig_num_init="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
3035 $ perl_sig_num_with_commas=perl_sig_num_init
3036 $ perl_uidtype="unsigned int"
3037 $ perl_d_pathconf="undef"
3038 $ perl_d_fpathconf="undef"
3039 $ perl_d_sysconf="undef"
3040 $ perl_d_sigsetjmp="undef"
3044 $ IF ("''Using_Dec_C'".EQS."Yes")
3046 $ perl_d_mbstowcs="define"
3047 $ perl_d_mbtowc="define"
3048 $ perl_d_stdiobase="define"
3049 $ perl_d_stdio_ptr_lval="define"
3050 $ perl_d_stdio_cnt_lval="define"
3051 $ perl_d_stdstdio="define"
3052 $ perl_d_wcstombs="define"
3053 $ perl_d_mblen="define"
3054 $ perl_d_mktime="define"
3055 $ perl_d_strcoll="define"
3056 $ perl_d_strxfrm="define"
3057 $ perl_d_wctomb="define"
3058 $ perl_i_locale="define"
3059 $ perl_d_locconv="define"
3060 $ perl_d_setlocale="define"
3061 $ perl_vms_cc_type="decc"
3063 $ perl_d_mbstowcs="undef"
3064 $ perl_d_mbtowc="undef"
3065 $ perl_d_stdiobase="undef"
3066 $ perl_d_stdio_ptr_lval="undef"
3067 $ perl_d_stdio_cnt_lval="undef"
3068 $ perl_d_stdstdio="undef"
3069 $ perl_d_wcstombs="undef"
3070 $ perl_d_mblen="undef"
3071 $ perl_d_mktime="undef"
3072 $ perl_d_strcoll="undef"
3073 $ perl_d_strxfrm="undef"
3074 $ perl_d_wctomb="undef"
3075 $ perl_i_locale="undef"
3076 $ perl_d_locconv="undef"
3077 $ perl_d_setlocale="undef"
3081 $ if ("''Using_Vax_C'".EQS."Yes")
3083 $ perl_vms_cc_type="vaxc"
3087 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
3089 $ perl_d_vms_do_sockets="define"
3090 $ perl_d_htonl="define"
3091 $ perl_d_socket="define"
3092 $ perl_d_select="define"
3093 $ perl_netdb_host_type="char *"
3094 $ perl_netdb_hlen_type="int"
3095 $ perl_netdb_name_type="char *"
3096 $ perl_netdb_net_type="long"
3097 $ perl_d_gethbyaddr="define"
3098 $ perl_d_gethbyname="define"
3099 $ perl_d_getnbyaddr="define"
3100 $ perl_d_getnbyname="define"
3101 $ perl_d_getpbynumber="define"
3102 $ perl_d_getpbyname="define"
3103 $ perl_d_getsbyport="define"
3104 $ perl_d_getsbyname="define"
3105 $ perl_d_gethostprotos="define"
3106 $ perl_d_getnetprotos="define"
3107 $ perl_d_getprotoprotos="define"
3108 $ perl_d_getservprotos="define"
3110 $ perl_d_vms_do_sockets="undef"
3111 $ perl_d_htonl="undef"
3112 $ perl_d_socket="undef"
3113 $ perl_d_select="undef"
3114 $ perl_netdb_host_type="char *"
3115 $ perl_netdb_hlen_type="int"
3116 $ perl_netdb_name_type="char *"
3117 $ perl_netdb_net_type="long"
3118 $ perl_d_gethbyaddr="undef"
3119 $ perl_d_gethbyname="undef"
3120 $ perl_d_getnbyaddr="undef"
3121 $ perl_d_getnbyname="undef"
3122 $ perl_d_getpbynumber="undef"
3123 $ perl_d_getpbyname="undef"
3124 $ perl_d_getsbyport="undef"
3125 $ perl_d_getsbyname="undef"
3126 $ perl_d_gethostprotos="undef"
3127 $ perl_d_getnetprotos="undef"
3128 $ perl_d_getprotoprotos="undef"
3129 $ perl_d_getservprotos="undef"
3132 $ if ("''use_threads'".eqs."T")
3134 $ perl_usethreads="define"
3135 $ perl_d_pthreads_created_joinable="define"
3136 $ if ("''VMS_VER'".ges."7.0")
3138 $ perl_d_oldpthreads="undef"
3140 $ perl_d_oldpthreads="define"
3143 $ perl_d_oldpthreads="undef"
3144 $ perl_usethreads="undef"
3146 $ perl_d_pthreads_created_joinable="undef"
3149 $! new (5.005_62++) typedefs for primitives
3151 $ perl_ivtype="long"
3152 $ perl_uvtype="unsigned long"
3153 $ perl_i8type="char"
3154 $ perl_u8type="unsigned char"
3155 $ perl_i16type="short"
3156 $ perl_u16type="unsigned short"
3157 $ perl_i32type="int"
3158 $ perl_u32type="unsigned int"
3159 $ perl_i64type="long long"
3160 $ perl_u64type="unsigned long long"
3161 $ perl_nvtype="double"
3163 $ GOTO beyond_type_size_check
3167 $! Check for type sizes
3171 $ WS "#include <stdlib.h>
3173 $ WS "#include <stdio.h>
3176 $ WS "printf(""%d\n"", sizeof(''type'));"
3180 $ DEFINE SYS$ERROR _NLA0:
3181 $ DEFINE SYS$OUTPUT _NLA0:
3182 $ ON ERROR THEN CONTINUE
3183 $ ON WARNING THEN CONTINUE
3185 $ If (Needs_Opt.eqs."Yes")
3187 $ link temp.obj,temp.opt/opt
3191 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3192 $ DEASSIGN SYS$OUTPUT
3193 $ DEASSIGN SYS$ERROR
3194 $ DEFINE SYS$ERROR TEMPOUT
3195 $ DEFINE SYS$OUTPUT TEMPOUT
3198 $ DEASSIGN SYS$OUTPUT
3199 $ DEASSIGN SYS$ERROR
3200 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3203 $ DELETE/NOLOG [-.uu]tempout.lis;
3204 $ WRITE_RESULT "''size_name' is ''line'"
3208 $beyond_type_size_check:
3211 $ type = "''perl_ivtype'"
3212 $ size_name = "ivsize"
3213 $ gosub type_size_check
3214 $ perl_ivsize="''line'"
3215 $ IF type .eqs. "long"
3216 $ THEN perl_longsize = "''line'"
3219 $ size_name = "longsize"
3220 $ gosub type_size_check
3221 $ perl_longsize="''line'"
3224 $ type = "''perl_uvtype'"
3225 $ size_name = "uvsize"
3226 $ gosub type_size_check
3227 $ perl_uvsize="''line'"
3229 $ type = "''perl_i8type'"
3230 $ size_name = "i8size"
3231 $ gosub type_size_check
3232 $ perl_i8size="''line'"
3234 $ type = "''perl_u8type'"
3235 $ size_name = "u8size"
3236 $ gosub type_size_check
3237 $ perl_u8size="''line'"
3239 $ type = "''perl_i16type'"
3240 $ size_name = "i16size"
3241 $ gosub type_size_check
3242 $ perl_i16size="''line'"
3243 $ IF type .eqs. "short"
3244 $ THEN perl_shortsize="''line'"
3246 $ type = "''perl_i16type'"
3247 $ size_name = "shortsize"
3248 $ gosub type_size_check
3249 $ perl_shortsize="''line'"
3252 $ type = "''perl_u16type'"
3253 $ size_name = "u16size"
3254 $ gosub type_size_check
3255 $ perl_u16size="''line'"
3257 $ type = "''perl_i32type'"
3258 $ size_name = "i32size"
3259 $ gosub type_size_check
3260 $ perl_i32size="''line'"
3261 $ IF type .eqs. "int"
3262 $ THEN perl_intsize="''perl_i32size'"
3265 $ size_name = "intsize"
3266 $ gosub type_size_check
3267 $ perl_intsize="''line'"
3270 $ type = "''perl_u32type'"
3271 $ size_name = "u32size"
3272 $ gosub type_size_check
3273 $ perl_u32size="''line'"
3275 $ type = "''perl_i64type'"
3276 $ size_name = "i64size"
3277 $ gosub type_size_check
3278 $ perl_i64size="''line'"
3280 $ type = "''perl_u64type'"
3281 $ size_name = "u64size"
3282 $ gosub type_size_check
3283 $ perl_u64size="''line'"
3285 $ perl_ivdformat="""ld"""
3286 $ perl_uvuformat="""lu"""
3287 $ perl_uvoformat="""lo"""
3288 $ perl_uvxformat="""lx"""
3290 $! Finally the composite ones. All config
3291 $ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3292 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3293 $ perl_myhostname="''myhostname'"
3294 $ perl_mydomain="''mydomain'"
3295 $ perl_perladmin="''perladmin'"
3296 $ perl_cf_email="''cf_email'"
3297 $ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
3298 $ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3299 $ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
3300 $ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
3301 $ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
3302 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
3303 $ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3304 $ if "''Using_Dec_C'" .eqs. "Yes"
3306 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
3308 $ IF "''Using_Vax_C'" .eqs. "Yes"
3310 $ perl_ccflags="/Include=[]/Obj=''perl_obj_ext'/NoList''cc_flags'"
3313 $ if use_vmsdebug_perl .eqs. "Y"
3315 $ perl_optimize="/Debug/NoOpt"
3316 $ perl_dbgprefix = "DBG"
3319 $ perl_dbgprefix = ""
3322 $! Finally clean off any leading zeros from the patchlevel or subversion
3323 $ perl_patchlevel = perl_patchlevel + 0
3324 $ perl_subversion = perl_subversion + 0
3326 $! Okay, we've got everything configured. Now go write out a config.sh.
3327 $ open/write CONFIGSH [-]config.sh
3328 $ WC := "write CONFIGSH"
3330 $ WC "# This file generated by Configure.COM on a VMS system."
3331 $ WC "# Time: " + perl_cf_time
3333 $ WC "CONFIGDOTSH=true"
3334 $ WC "package='" + perl_package + "'"
3335 $ WC "d_nv_preserves_uv='" + perl_d_nv_preserves_uv + "'"
3336 $ WC "use5005threads='" + perl_use5005threads + "'"
3337 $ WC "useithreads='" + perl_useithreads + "'"
3338 $ WC "CONFIG='" + perl_config + "'"
3339 $ WC "cf_time='" + perl_cf_time + "'"
3340 $ WC "cf_by='" + perl_cf_by+ "'"
3341 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
3342 $ WC "ccdlflags='" + perl_ccdlflags + "'"
3343 $ WC "cccdlflags='" + perl_cccdlflags + "'"
3344 $ WC "mab='" + perl_mab + "'"
3345 $ WC "libpth='" + perl_libpth + "'"
3346 $ WC "ld='" + perl_ld + "'"
3347 $ WC "lddlflags='" + perl_lddlflags + "'"
3348 $ WC "ranlib='" + perl_ranlib + "'"
3349 $ WC "ar='" + perl_ar + "'"
3350 $ WC "eunicefix='" + perl_eunicefix + "'"
3351 $ WC "hint='" + perl_hint +"'"
3352 $ WC "hintfile='" + perl_hintfile + "'"
3353 $ WC "shrplib='" + perl_shrplib + "'"
3354 $ WC "usemymalloc='" + perl_usemymalloc + "'"
3355 $ WC "usevfork='" + perl_usevfork + "'"
3356 $ WC "useposix='false'"
3357 $ WC "spitshell='write sys$output '"
3358 $ WC "dlsrc='dl_vms.c'"
3359 $ WC "binexp='" + perl_binexp + "'"
3360 $ WC "man1ext='" + perl_man1ext + "'"
3361 $ WC "man3ext='" + perl_man3ext + "'"
3362 $ WC "arch='" + perl_arch + "'"
3363 $ WC "archname='" + perl_archname + "'"
3364 $ WC "osvers='" + perl_osvers + "'"
3365 $ WC "prefix='" + perl_prefix + "'"
3366 $ WC "builddir='" + perl_builddir + "'"
3367 $ WC "installbin='" + perl_installbin + "'"
3368 $ WC "installscript='" + perl_installscript + "'"
3369 $ WC "installman1dir='" + perl_installman1dir + "'"
3370 $ WC "installman3dir='" + perl_installman3dir + "'"
3371 $ WC "installprivlib='" + perl_installprivlib + "'"
3372 $ WC "installarchlib='" + perl_installarchlib + "'"
3373 $ WC "installsitelib='" + perl_installsitelib + "'"
3374 $ WC "installsitearch='" + perl_installsitearch + "'"
3375 $ WC "path_sep='" + perl_path_sep + "'"
3376 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
3377 $ WC "d_attribut='" + perl_d_attribut + "'"
3378 $ WC "cc='" + perl_cc + "'"
3379 $ WC "ccflags='" + perl_ccflags + "'"
3380 $ WC "optimize='" + perl_optimize + "'"
3381 $ WC "dbgprefix='" + perl_dbgprefix + "'"
3382 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
3383 $ WC "d_socket='" + perl_d_socket + "'"
3384 $ WC "d_sockpair='" + perl_d_sockpair + "'"
3385 $ WC "d_gethent='" + perl_d_gethent + "'"
3386 $ WC "d_getsent='" + perl_d_getsent + "'"
3387 $ WC "d_select='" + perl_d_select + "'"
3388 $ WC "i_niin='" + perl_i_niin + "'"
3389 $ WC "i_netinettcp='" + perl_i_netinettcp + "'"
3390 $ WC "i_neterrno='" + perl_i_neterrno + "'"
3391 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
3392 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
3393 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
3394 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
3395 $ WC "d_locconv='" + perl_d_locconv + "'"
3396 $ WC "d_setlocale='" + perl_d_setlocale + "'"
3397 $ WC "i_locale='" + perl_i_locale + "'"
3398 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
3399 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
3400 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
3401 $ WC "d_wctomb='" + perl_d_wctomb + "'"
3402 $ WC "d_mblen='" + perl_d_mblen + "'"
3403 $ WC "d_mktime='" + perl_d_mktime + "'"
3404 $ WC "d_strcoll='" + perl_d_strcoll + "'"
3405 $ WC "d_strxfrm='" + perl_d_strxfrm + "'"
3406 $ WC "ldflags='" + perl_ldflags + "'"
3407 $ WC "dlobj='" + perl_dlobj + "'"
3408 $ WC "obj_ext='" + perl_obj_ext + "'"
3409 $ WC "so='" + perl_so + "'"
3410 $ WC "dlext='" + perl_dlext + "'"
3411 $ WC "exe_ext='" + perl_exe_ext + "'"
3412 $ WC "lib_ext='" + perl_lib_ext + "'"
3413 $ WC "myhostname='" + perl_myhostname + "'"
3414 $ WC "mydomain='" + perl_mydomain + "'"
3415 $ WC "perladmin='" + perl_perladmin + "'"
3416 $ WC "cf_email='" + perl_cf_email + "'"
3417 $ WC "myuname='" + perl_myuname + "'"
3418 $ WC "alignbytes='" + perl_alignbytes + "'"
3419 $ WC "osname='" + perl_osname + "'"
3420 $ WC "d_archlib='" + perl_d_archlib + "'"
3421 $ WC "archlibexp='" + perl_archlibexp + "'"
3422 $ WC "archlib='" + perl_archlib + "'"
3423 $ WC "archname='" + perl_archname + "'"
3424 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
3425 $ WC "cppstdin='" + perl_cppstdin + "'"
3426 $ WC "cppminus='" + perl_cppminus + "'"
3427 $ WC "d_bcmp='" + perl_d_bcmp + "'"
3428 $ WC "d_bcopy='" + perl_d_bcopy + "'"
3429 $ WC "d_bzero='" + perl_d_bzero + "'"
3430 $ WC "d_castneg='" + perl_d_castneg + "'"
3431 $ WC "castflags='" + perl_castflags + "'"
3432 $ WC "d_chsize='" + perl_d_chsize + "'"
3433 $ WC "d_const='" + perl_d_const + "'"
3434 $ WC "d_crypt='" + perl_d_crypt + "'"
3435 $ WC "byteorder='" + perl_byteorder + "'"
3436 $ WC "full_csh='" + perl_full_csh + "'"
3437 $ WC "d_csh='" + perl_d_csh + "'"
3438 $ WC "d_dup2='" + perl_d_dup2 + "'"
3439 $ WC "d_fchmod='" + perl_d_fchmod + "'"
3440 $ WC "d_fchown='" + perl_d_fchown + "'"
3441 $ WC "d_fcntl='" + perl_d_fcntl + "'"
3442 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
3443 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
3444 $ WC "d_flock='" + perl_d_flock + "'"
3445 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
3446 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
3447 $ WC "d_getgrps='" + perl_d_getgrps + "'"
3448 $ WC "d_setgrps='" + perl_d_setgrps + "'"
3449 $ WC "d_uname='" + perl_d_uname + "'"
3450 $ WC "d_getprior='" + perl_d_getprior + "'"
3451 $ WC "d_killpg='" + perl_d_killpg + "'"
3452 $ WC "d_link='" + perl_d_link + "'"
3453 $ WC "d_lstat='" + perl_d_lstat + "'"
3454 $ WC "d_lockf='" + perl_d_lockf + "'"
3455 $ WC "d_memcmp='" + perl_d_memcmp + "'"
3456 $ WC "d_memcpy='" + perl_d_memcpy + "'"
3457 $ WC "d_memmove='" + perl_d_memmove + "'"
3458 $ WC "d_memset='" + perl_d_memset + "'"
3459 $ WC "d_mkdir='" + perl_d_mkdir + "'"
3460 $ WC "d_msg='" + perl_d_msg + "'"
3461 $ WC "d_open3='" + perl_d_open3 + "'"
3462 $ WC "d_poll='" + perl_d_poll + "'"
3463 $ WC "d_readdir='" + perl_d_readdir + "'"
3464 $ WC "d_seekdir='" + perl_d_seekdir + "'"
3465 $ WC "d_telldir='" + perl_d_telldir + "'"
3466 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
3467 $ WC "d_rename='" + perl_d_rename + "'"
3468 $ WC "d_rmdir='" + perl_d_rmdir + "'"
3469 $ WC "d_sem='" + perl_d_sem + "'"
3470 $ WC "d_setegid='" + perl_d_setegid + "'"
3471 $ WC "d_seteuid='" + perl_d_seteuid + "'"
3472 $ WC "d_setprior='" + perl_d_setprior + "'"
3473 $ WC "d_setregid='" + perl_d_setregid + "'"
3474 $ WC "d_setresgid='" + perl_d_setresgid + "'"
3475 $ WC "d_setreuid='" + perl_d_setreuid + "'"
3476 $ WC "d_setresuid='" + perl_d_setresuid + "'"
3477 $ WC "d_setrgid='" + perl_d_setrgid + "'"
3478 $ WC "d_setruid='" + perl_d_setruid + "'"
3479 $ WC "d_setsid='" + perl_d_setsid + "'"
3480 $ WC "d_shm='" + perl_d_shm + "'"
3481 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
3482 $ WC "d_sigaction='" + perl_d_sigaction + "'"
3483 $ WC "d_statblks='" + perl_d_statblks + "'"
3484 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
3485 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
3486 $ WC "stdio_base='" + perl_stdio_base + "'"
3487 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
3488 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
3489 $ WC "d_strerror='" + perl_d_strerror + "'"
3490 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
3491 $ WC "d_strerrm='" + perl_d_strerrm + "'"
3492 $ WC "d_symlink='" + perl_d_symlink + "'"
3493 $ WC "d_syscall='" + perl_d_syscall + "'"
3494 $ WC "d_system='" + perl_d_system + "'"
3495 $ WC "timetype='" + perl_timetype + "'"
3496 $ WC "d_truncate='" + perl_d_truncate + "'"
3497 $ WC "d_vfork='" + perl_d_vfork + "'"
3498 $ WC "signal_t='" + perl_signal_t + "'"
3499 $ WC "d_volatile='" + perl_d_volatile + "'"
3500 $ WC "d_vprintf='" + perl_d_vprintf + "'"
3501 $ WC "d_charvspr='" + perl_d_charvspr + "'"
3502 $ WC "d_wait4='" + perl_d_wait4 + "'"
3503 $ WC "d_waitpid='" + perl_d_waitpid + "'"
3504 $ WC "i_dirent='" + perl_i_dirent + "'"
3505 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
3506 $ WC "direntrytype='" + perl_direntrytype + "'"
3507 $ WC "i_fcntl='" + perl_i_fcntl + "'"
3508 $ WC "i_grp='" + perl_i_grp + "'"
3509 $ WC "i_limits='" + perl_i_limits + "'"
3510 $ WC "i_memory='" + perl_i_memory + "'"
3511 $ WC "i_ndbm='" + perl_i_ndbm + "'"
3512 $ WC "i_stdarg='" + perl_i_stdarg + "'"
3513 $ WC "i_pwd='" + perl_i_pwd + "'"
3514 $ WC "d_pwquota='" + perl_d_pwquota + "'"
3515 $ WC "d_pwage='" + perl_d_pwage + "'"
3516 $ WC "d_pwchange='" + perl_d_pwchange + "'"
3517 $ WC "d_pwclass='" + perl_d_pwclass + "'"
3518 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
3519 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
3520 $ WC "i_stddef='" + perl_i_stddef + "'"
3521 $ WC "i_stdlib='" + perl_i_stdlib + "'"
3522 $ WC "i_string='" + perl_i_string + "'"
3523 $ WC "i_sysdir='" + perl_i_sysdir + "'"
3524 $ WC "i_sysfile='" + perl_i_sysfile + "'"
3525 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
3526 $ WC "i_sysndir='" + perl_i_sysndir + "'"
3527 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
3528 $ WC "i_sysselct='" + perl_i_sysselct + "'"
3529 $ WC "i_dbm='" + perl_i_dbm + "'"
3530 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
3531 $ WC "i_sfio='" + perl_i_sfio + "'"
3532 $ WC "i_sysstat='" + perl_i_sysstat + "'"
3533 $ WC "i_systimes='" + perl_i_systimes + "'"
3534 $ WC "i_systypes='" + perl_i_systypes + "'"
3535 $ WC "i_sysun='" + perl_i_sysun + "'"
3536 $ WC "i_syswait='" + perl_i_syswait + "'"
3537 $ WC "i_termio='" + perl_i_termio + "'"
3538 $ WC "i_sgtty='" + perl_i_sgtty + "'"
3539 $ WC "i_termios='" + perl_i_termios + "'"
3540 $ WC "i_time='" + perl_i_time + "'"
3541 $ WC "i_systime='" + perl_i_systime + "'"
3542 $ WC "i_systimek='" + perl_i_systimek + "'"
3543 $ WC "i_unistd='" + perl_i_unistd + "'"
3544 $ WC "i_utime='" + perl_i_utime + "'"
3545 $ WC "i_varargs='" + perl_i_varargs + "'"
3546 $ WC "i_vfork='" + perl_i_vfork + "'"
3547 $ WC "prototype='" + perl_prototype + "'"
3548 $ WC "randbits='" + perl_randbits +"'"
3549 $ WC "selecttype='" + perl_selecttype + "'"
3550 $ WC "stdchar='" + perl_stdchar + "'"
3551 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
3552 $ WC "full_sed='" + perl_full_sed + "'"
3553 $ WC "bin='" + perl_bin + "'"
3554 $ WC "binexp='" + perl_binexp + "'"
3555 $ WC "d_alarm='" + perl_d_alarm + "'"
3556 $ WC "d_casti32='" + perl_d_casti32 + "'"
3557 $ WC "d_chown='" + perl_d_chown + "'"
3558 $ WC "d_chroot='" + perl_d_chroot + "'"
3559 $ WC "d_cuserid='" + perl_d_cuserid + "'"
3560 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
3561 $ WC "d_ldbl_dig='" + perl_d_ldbl_dig + "'"
3562 $ WC "d_difftime='" + perl_d_difftime + "'"
3563 $ WC "d_fork='" + perl_d_fork + "'"
3564 $ WC "d_getlogin='" + perl_d_getlogin + "'"
3565 $ WC "d_getppid='" + perl_d_getppid + "'"
3566 $ WC "d_htonl='" + perl_d_htonl + "'"
3567 $ WC "d_nice='" + perl_d_nice + "'"
3568 $ WC "d_pause='" + perl_d_pause + "'"
3569 $ WC "d_pipe='" + perl_d_pipe + "'"
3570 $ WC "d_readlink='" + perl_d_readlink + "'"
3571 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
3572 $ WC "d_strchr='" + perl_d_strchr + "'"
3573 $ WC "d_index='" + perl_d_index + "'"
3574 $ WC "d_strtod='" + perl_d_strtod + "'"
3575 $ WC "d_strtol='" + perl_d_strtol + "'"
3576 $ WC "d_strtoul='" + perl_d_strtoul + "'"
3577 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
3578 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
3579 $ WC "d_times='" + perl_d_times + "'"
3580 $ WC "d_tzname='" + perl_d_tzname + "'"
3581 $ WC "d_umask='" + perl_d_umask + "'"
3582 $ WC "fpostype='" + perl_fpostype + "'"
3583 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
3584 $ WC "i_float='" + perl_i_float + "'"
3585 $ WC "i_math='" + perl_i_math + "'"
3586 $ WC "intsize='" + perl_intsize + "'"
3587 $ WC "longsize='" + perl_longsize + "'"
3588 $ WC "shortsize='" + perl_shortsize + "'"
3589 $ WC "lseektype='" + perl_lseektype + "'"
3590 $ WC "lseeksize='4'"
3591 $ WC "i_values='" + perl_i_values + "'"
3592 $ WC "malloctype='" + perl_malloctype + "'"
3593 $ WC "freetype='" + perl_freetype + "'"
3594 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
3595 $ WC "sh='" + perl_sh + "'"
3596 $ WC "sig_name='" + perl_sig_name + "'"
3597 $ WC "sig_num='" + perl_sig_num + "'"
3598 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
3600 $ WC "modetype='" + perl_modetype + "'"
3601 $ WC "ssizetype='" + perl_ssizetype + "'"
3602 $ WC "o_nonblock='" + perl_o_nonblock + "'"
3603 $ WC "eagain='" + perl_eagain + "'"
3604 $ WC "rd_nodata='" + perl_rd_nodata + "'"
3605 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
3606 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
3607 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
3608 $ WC "oldarchlib='" + perl_oldarchlib + "'"
3609 $ WC "privlibexp='" + perl_privlibexp + "'"
3610 $ WC "privlib='" + perl_privlib + "'"
3611 $ WC "sitelibexp='" + perl_sitelibexp + "'"
3612 $ WC "sitelib='" + perl_sitelib + "'"
3613 $ WC "sitearchexp='" + perl_sitearchexp + "'"
3614 $ WC "sitearch='" + perl_sitearch + "'"
3615 $ WC "sizetype='" + perl_sizetype + "'"
3616 $ WC "i_sysparam='" + perl_i_sysparam + "'"
3617 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
3618 $ WC "d_dlerror='" + perl_d_dlerror + "'"
3619 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
3620 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
3621 $ WC "d_dosuid='" + perl_d_dosuid + "'"
3622 $ WC "d_inetaton='" + perl_d_inetaton + "'"
3623 $ WC "d_isascii='" + perl_d_isascii + "'"
3624 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
3625 $ WC "d_pathconf='" + perl_d_pathconf + "'"
3626 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
3627 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
3628 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
3629 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
3630 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
3631 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
3632 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
3633 $ WC "d_setpgid='" + perl_d_setpgid + "'"
3634 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
3635 $ WC "d_sysconf='" + perl_d_sysconf + "'"
3636 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
3637 $ WC "d_getpgid='" + perl_d_getpgid + "'"
3638 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
3639 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
3640 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
3641 $ WC "d_sfio='" + perl_d_sfio + "'"
3642 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
3643 $ WC "usedl='" + perl_usedl + "'"
3644 $ WC "startperl=" + perl_startperl ! This one's special--no enclosing single quotes
3645 $ WC "db_hashtype='" + perl_db_hashtype + "'"
3646 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
3647 $ WC "useperlio='" + perl_useperlio + "'"
3648 $ WC "defvoidused='" + perl_defvoidused + "'"
3649 $ WC "voidflags='" + perl_voidflags + "'"
3650 $ WC "d_eunice='" + perl_d_eunice + "'"
3651 $ WC "libs='" + perl_libs + "'"
3652 $ WC "libc='" + perl_libc + "'"
3653 $ tempstring = "PERL_VERSION='" + "''perl_patchlevel'" + "'"
3655 $ tempstring = "PERL_SUBVERSION='" + "''perl_patchlevel'" + "'"
3657 $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
3659 $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
3661 $ WC "pager='" + perl_pager + "'"
3662 $ WC "uidtype='" + perl_uidtype + "'"
3663 $ WC "gidtype='" + perl_gidtype + "'"
3664 $ WC "usethreads='" + perl_usethreads + "'"
3665 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
3666 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
3667 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
3668 $ WC "i_netdb='" + perl_i_netdb + "'"
3669 $ WC "pidtype='" + perl_pidtype + "'"
3670 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
3671 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
3672 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
3673 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
3674 $ WC "baserev='" + perl_baserev + "'"
3675 $ WC "doublesize='" + perl_doublesize + "'"
3676 $ WC "ptrsize='" + perl_ptrsize + "'"
3677 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
3678 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
3679 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
3680 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
3681 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
3682 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
3683 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
3684 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
3685 $ WC "d_sethent='" + perl_d_sethent + "'"
3686 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
3687 $ WC "d_longdbl='" + perl_d_longdbl + "'"
3688 $ WC "longdblsize='" + perl_longdblsize + "'"
3689 $ WC "d_longlong='" + perl_d_longlong + "'"
3690 $ WC "longlongsize='" + perl_longlongsize + "'"
3691 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
3692 $ WC "d_mkstemps='" + perl_d_mkstemps + "'"
3693 $ WC "d_mkdtemp='" + perl_d_mkdtemp + "'"
3694 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
3695 $ WC "d_setenv='" + perl_d_setenv + "'"
3696 $ WC "d_endhent='" + perl_d_endhent + "'"
3697 $ WC "d_endnent='" + perl_d_endsent + "'"
3698 $ WC "d_endpent='" + perl_d_endpent + "'"
3699 $ WC "d_endsent='" + perl_d_endsent + "'"
3700 $ WC "d_gethent='" + perl_d_gethent + "'"
3701 $ WC "d_getnent='" + perl_d_getsent + "'"
3702 $ WC "d_getpent='" + perl_d_getpent + "'"
3703 $ WC "d_getsent='" + perl_d_getsent + "'"
3704 $ WC "d_sethent='" + perl_d_sethent + "'"
3705 $ WC "d_setnent='" + perl_d_setsent + "'"
3706 $ WC "d_setpent='" + perl_d_setpent + "'"
3707 $ WC "ebcdic='" + perl_ebcdic + "'"
3708 $ WC "d_setsent='" + perl_d_setsent + "'"
3709 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
3710 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
3711 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
3712 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
3713 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
3714 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
3715 $ WC "d_lchown='" + perl_d_lchown + "'"
3716 $ WC "d_union_semun='" + perl_d_union_semun + "'"
3717 $ WC "i_arpainet='" + perl_i_arpainet + "'"
3718 $ WC "d_grpasswd='" + perl_d_grpasswd + "'"
3719 $ WC "d_setgrent='" + perl_d_setgrent + "'"
3720 $ WC "d_getgrent='" + perl_d_getgrent + "'"
3721 $ WC "d_endgrent='" + perl_d_endgrent + "'"
3722 $ WC "d_pwpasswd='" + perl_d_pwpasswd + "'"
3723 $ WC "d_setpwent='" + perl_d_setpwent + "'"
3724 $ WC "d_getpwent='" + perl_d_getpwent + "'"
3725 $ WC "d_endpwent='" + perl_d_endpwent + "'"
3726 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
3727 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
3728 $ WC "extensions='" + perl_extensions + "'"
3729 $ WC "d_mknod='" + perl_d_mknod + "'"
3730 $ WC "devtype='" + perl_devtype + "'"
3731 $ WC "d_gethname='" + perl_d_gethname + "'"
3732 $ WC "d_phostname='" + perl_d_phostname + "'"
3733 $ WC "d_accessx='" + perl_d_accessx + "'"
3734 $ WC "d_eaccess='" + perl_d_eaccess + "'"
3735 $ WC "i_sysaccess='" + perl_i_sysaccess + "'"
3736 $ WC "i_syssecrt='" + perl_i_syssecrt + "'"
3737 $ WC "d_fd_set='" + perl_d_fd_set + "'"
3738 $ WC "d_access='" + perl_d_access + "'"
3739 $ WC "d_msg_ctrunc='" + perl_d_msg_ctrunc + "'"
3740 $ WC "d_msg_dontroute='" + perl_d_msg_dontroute + "'"
3741 $ WC "d_msg_oob='" + perl_d_msg_oob + "'"
3742 $ WC "d_msg_peek='" + perl_d_msg_peek + "'"
3743 $ WC "d_msg_proxy='" + perl_d_msg_proxy + "'"
3744 $ WC "d_scm_rights='" + perl_d_scm_rights + "'"
3745 $ WC "d_sendmsg='" + perl_d_sendmsg + "'"
3746 $ WC "d_recvmsg='" + perl_d_recvmsg + "'"
3747 $ WC "d_msghdr_s='" + perl_d_msghdr_s + "'"
3748 $ WC "d_cmsghdr_s='" + perl_d_cmsghdr_s + "'"
3749 $ WC "i_sysuio='" + perl_i_sysuio + "'"
3750 $ WC "d_fseeko='" + perl_d_fseeko + "'"
3751 $ WC "d_ftello='" + perl_d_ftello + "'"
3752 $ WC "d_readv='" + perl_d_readv + "'"
3753 $ WC "d_writev='" + perl_d_writev + "'"
3754 $ WC "i_machcthr='" + perl_i_machcthr + "'"
3755 $ WC "usemultiplicity='" + perl_usemultiplicity + "'"
3756 $ WC "i_poll='" + perl_i_poll + "'"
3757 $ WC "i_inttypes='" + perl_i_inttypes + "'"
3758 $ WC "d_int64t='" + perl_d_int64t + "'"
3759 $ WC "d_off64_t='" + perl_d_off64_t + "'"
3760 $ WC "d_fpos64_t='" + perl_d_fpos64_t + "'"
3761 $ WC "use64bits='" + perl_use64bits + "'"
3762 $ WC "d_drand48proto='" + perl_d_drand48proto + "'"
3763 $ WC "d_old_pthread_create_joinable='" + perl_d_old_pthread_create_joinable + "'"
3764 $ WC "old_pthread_create_joinable='" + perl_old_pthread_create_joinable + "'"
3765 $ WC "drand01='" + perl_drand01 + "'"
3766 $ WC "randseedtype='" + perl_randseedtype + "'"
3767 $ WC "seedfunc='" + perl_seedfunc + "'"
3768 $ WC "sig_num_init='" + perl_sig_num_with_commas + "'"
3769 $ WC "i_sysmount='" + perl_i_sysmount + "'"
3770 $ WC "d_fstatfs='" + perl_d_fstatfs + "'"
3771 $ WC "d_memchr='" + perl_d_memchr + "'"
3772 $ WC "d_statfsflags='" + perl_d_statfsflags + "'"
3773 $ WC "fflushNULL='define'"
3774 $ WC "fflushall='undef'"
3775 $ WC "d_stdio_stream_array='undef'"
3776 $ WC "i_sysstatvfs='" + perl_i_sysstatvfs + "'"
3777 $ WC "i_machcthreads='" + perl_i_machcthreads + "'"
3778 $ WC "i_pthread='" + perl_i_pthread + "'"
3779 $ WC "d_fstatvfs='" + perl_d_fstatvfs + "'"
3780 $ WC "i_mntent='" + perl_i_mntent + "'"
3781 $ WC "d_getmntent='" + perl_d_getmntent + "'"
3782 $ WC "d_hasmntopt='" + perl_d_hasmntopt + "'"
3783 $ WC "d_telldirproto='" + perl_d_telldirproto + "'"
3784 $ WC "d_madvise='" + perl_d_madvise + "'"
3785 $ WC "d_msync='" + perl_d_msync + "'"
3786 $ WC "d_mprotect='" + perl_d_mprotect + "'"
3787 $ WC "d_munmap='" + perl_d_munmap + "'"
3788 $ WC "d_mmap='" + perl_d_mmap + "'"
3789 $ WC "i_sysmman='" + perl_i_sysmman + "'"
3790 $ WC "installusrbinperl='" + perl_installusrbinperl + "'"
3791 $! WC "selectminbits='" + perl_selectminbits + "'"
3792 $ WC "crosscompile='" + perl_crosscompile + "'"
3793 $ WC "multiarch='" + perl_multiarch + "'"
3794 $ WC "sched_yield='" + perl_sched_yield + "'"
3795 $ WC "d_strtoull='" + perl_d_strtoull + "'"
3796 $ WC "d_strtouq='" + perl_d_strtouq + "'"
3797 $ WC "d_strtoll='" + perl_d_strtoll + "'"
3798 $ WC "d_strtold='" + perl_d_strtold + "'"
3799 $ WC "usesocks='" + perl_usesocks + "'"
3800 $ WC "d_vendorlib='" + perl_d_vendorlib + "'"
3801 $ WC "vendorlibexp='" + perl_vendorlibexp + "'"
3802 $ WC "d_atolf='" + perl_d_atolf + "'"
3803 $ WC "d_atoll='" + perl_d_atoll + "'"
3804 $ WC "d_bincompat5005='" + perl_d_bincompat + "'"
3805 $ WC "d_endspent='" + perl_d_endspent + "'"
3806 $ WC "d_getspent='" + perl_d_getspent + "'"
3807 $ WC "d_getspnam='" + perl_d_getspnam + "'"
3808 $ WC "d_setspent='" + perl_d_setspent + "'"
3809 $ WC "i_shadow='" + perl_i_shadow + "'"
3810 $ WC "i_socks='" + perl_i_socks + "'"
3811 $ WC "d_PRIfldbl='" + perl_d_PRIfldbl + "'"
3812 $ WC "d_PRIgldbl='" + perl_d_PRIgldbl + "'"
3813 $ WC "d_PRId64='" + perl_d_PRId64 + "'"
3814 $ WC "d_PRIu64='" + perl_d_PRIu64 + "'"
3815 $ WC "d_PRIo64='" + perl_d_PRIo64 + "'"
3816 $ WC "d_PRIx64='" + perl_d_PRIx64 + "'"
3817 $ WC "sPRIfldbl='" + perl_sPRIfldbl + "'"
3818 $ WC "sPRIgldbl='" + perl_sPRIgldbl + "'"
3819 $ WC "sPRId64='" + perl_sPRId64 + "'"
3820 $ WC "sPRIu64='" + perl_sPRIu64 + "'"
3821 $ WC "sPRIo64='" + perl_sPRIo64 + "'"
3822 $ WC "sPRIx64='" + perl_sPRIx64 + "'"
3823 $ WC "d_llseek='" + perl_d_llseek + "'"
3824 $ WC "uselargefiles='" + perl_uselargefiles + "'"
3825 $ WC "uselongdouble='" + perl_uselongdouble + "'"
3826 $ WC "usemorebits='" + perl_usemorebits + "'"
3827 $ WC "d_quad='" + perl_d_quad + "'"
3828 $ if (use_64bit .eqs. "Y")
3830 $ WC "quadtype='" + perl_quadtype + "'"
3831 $ WC "uquadtype='" + perl_uquadtype + "'"
3833 $ WC "d_fs_data_s='" + perl_d_fs_data_s + "'"
3834 $ WC "d_getcwd='" + perl_d_getcwd + "'"
3835 $ WC "d_getmnt='" + perl_d_getmnt + "'"
3836 $ WC "d_sqrtl='" + perl_d_sqrtl + "'"
3837 $ WC "d_statfs_f_flags='" + perl_d_statfs_f_flags + "'"
3838 $ WC "d_statfs_s='" + perl_d_statfs_s + "'"
3839 $ WC "d_ustat='" + perl_d_ustat + "'"
3840 $ WC "i_sysstatfs='" + perl_i_sysstatfs + "'"
3841 $ WC "i_sysvfs='" + perl_i_sysvfs + "'"
3842 $ WC "i_ustat='" + perl_i_ustat + "'"
3843 $ WC "ivtype='" + perl_ivtype + "'"
3844 $ WC "uvtype='" + perl_uvtype + "'"
3845 $ WC "i8type='" + perl_i8type + "'"
3846 $ WC "i16type='" + perl_i16type + "'"
3847 $ WC "u8type='" + perl_u8type + "'"
3848 $ WC "u16type='" + perl_u16type + "'"
3849 $ WC "i32type='" + perl_i32type + "'"
3850 $ WC "u32type='" + perl_u32type + "'"
3851 $ WC "i64type='" + perl_i64type + "'"
3852 $ WC "u64type='" + perl_u64type + "'"
3853 $ WC "nvtype='" + perl_nvtype + "'"
3854 $ WC "ivsize='" + perl_ivsize + "'"
3855 $ WC "uvsize='" + perl_uvsize + "'"
3856 $ WC "i8size='" + perl_i8size + "'"
3857 $ WC "u8size='" + perl_u8size + "'"
3858 $ WC "i16size='" + perl_i16size + "'"
3859 $ WC "u16size='" + perl_u16size + "'"
3860 $ WC "i32size='" + perl_i32size + "'"
3861 $ WC "u32size='" + perl_u32size + "'"
3862 $ WC "i64size='" + perl_i64size + "'"
3863 $ WC "u64size='" + perl_u64size + "'"
3864 $ WC "ivdformat='" + perl_ivdformat + "'"
3865 $ WC "uvuformat='" + perl_uvuformat + "'"
3866 $ WC "uvoformat='" + perl_uvoformat + "'"
3867 $ WC "uvxformat='" + perl_uvxformat + "'"
3869 $! ##WRITE NEW CONSTANTS HERE##
3873 $! Okay, we've gotten here. Build munchconfig and run it
3874 $ 'Perl_CC' munchconfig.c
3875 $ If (Needs_Opt.eqs."Yes")
3877 $ open/write OPTCHAN []munchconfig.opt
3878 $ IF ("''using_gnu_c'".eqs."Yes")
3880 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
3882 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
3884 $ link munchconfig.obj,munchconfig.opt/opt
3885 $ delete munchconfig.opt;*
3887 $ link munchconfig.obj
3890 $ echo "Writing config.h"
3892 $ ! we need an fdl file
3893 $ CREATE [-]CONFIG.FDL
3896 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
3897 $ ! First spit out the header info with the local defines (to get
3898 $ ! around the 255 character command line limit)
3899 $ OPEN/APPEND CONFIG [-]config.local
3900 $ if use_debugging_perl.eqs."Y"
3902 $ WRITE CONFIG "#define DEBUGGING"
3904 $ if use_two_pot_malloc.eqs."Y"
3906 $ WRITE CONFIG "#define TWO_POT_OPTIMIZE"
3908 $ if mymalloc.eqs."Y"
3910 $ WRITE CONFIG "#define EMBEDMYMALLOC"
3912 $ if use_pack_malloc.eqs."Y"
3914 $ WRITE CONFIG "#define PACK_MALLOC"
3916 $ if use_debugmalloc.eqs."Y"
3918 $ write config "#define DEBUGGING_MSTATS"
3920 $ if "''Using_Gnu_C'" .eqs."Yes"
3922 $ WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
3924 $ if "''Has_Dec_C_Sockets'".eqs."T"
3926 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
3927 $ WRITE CONFIG "#define DECCRTL_SOCKETS"
3929 $ if "''Has_Socketshr'".eqs."T"
3931 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
3933 $! This is VMS-specific for now
3934 $ WRITE CONFIG "#''perl_d_setenv' HAS_SETENV"
3935 $ if d_alwdeftype.eqs."Y"
3937 $ WRITE CONFIG "#define SECURE_INTERNAL_GETENV"
3939 $ WRITE CONFIG "#undef SECURE_INTERNAL_GETENV"
3941 $ if d_secintgenv.eqs."Y"
3943 $ WRITE CONFIG "#define ALWAYS_DEFTYPES"
3945 $ WRITE CONFIG "#undef ALWAYS_DEFTYPES"
3947 $ if use_64bit.eqs."Y"
3949 $ WRITE CONFIG "#define USE_64_BITS"
3950 $ WRITE CONFIG "#define USE_LONG_DOUBLE"
3952 $ WRITE CONFIG "#define HAS_ENVGETENV"
3953 $ WRITE CONFIG "#define PERL_EXTERNAL_GLOB"
3956 $! Now build the normal config.h
3957 $ define/user sys$output [-]config.main
3958 $ mcr []munchconfig [-]config.sh [-]config_h.sh
3959 $ ! Concatenate them together
3960 $ copy [-]config.local,[-]config.main [-]config.h
3962 $ DELETE/NOLOG [-]CONFIG.MAIN;*
3963 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
3964 $ DELETE/NOLOG [-]CONFIG.FDL;*
3966 $ if "''Using_Dec_C'" .eqs."Yes"
3968 $ DECC_REPLACE = "DECC=decc=1"
3970 $ DECC_REPLACE = "DECC="
3972 $ if "''Using_Gnu_C'" .eqs."Yes"
3974 $ GNUC_REPLACE = "GNUC=gnuc=1"
3976 $ GNUC_REPLACE = "GNUC="
3978 $ if "''Has_Dec_C_Sockets'" .eqs."T"
3980 $ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
3982 $ if "''Has_Socketshr'" .eqs."T"
3984 $ SOCKET_REPLACE = "SOCKET=SOCKETSHR_SOCKETS=1"
3986 $ SOCKET_REPLACE = "SOCKET="
3989 $ IF ("''Use_Threads'".eqs."T")
3991 $ if ("''VMS_VER'".LES."6.2")
3993 $ THREAD_REPLACE = "THREAD=OLDTHREADED=1"
3995 $ THREAD_REPLACE = "THREAD=THREADED=1"
3998 $ THREAD_REPLACE = "THREAD="
4000 $ if mymalloc.eqs."Y"
4002 $ MALLOC_REPLACE = "MALLOC=MALLOC=1"
4004 $ MALLOC_REPLACE = "MALLOC="
4006 $ if f$getsyi("HW_MODEL").ge.1024
4008 $ ARCH_TYPE = "ARCH-TYPE=__AXP__"
4010 $ ARCH_TYPE = "ARCH-TYPE=__VAX__"
4012 $ echo "Writing DESCRIP.MMS"
4014 $ define/user sys$output [-]descrip.mms
4015 $ mcr []munchconfig [-]config.sh descrip_mms.template "''DECC_REPLACE'" "''ARCH_TYPE'" "''GNUC_REPLACE'" "''SOCKET_REPLACE'" "''THREAD_REPLACE'" "''C_Compiler_Replace'" "''MALLOC_REPLACE'" "''Thread_Live_Dangerously'" "PV=''LocalPerlVer'"
4016 $ echo "Extracting Build_Ext.Com"
4017 $ Create Sys$Disk:[-]Build_Ext.Com
4018 $ Deck/Dollar="$EndOfTpl$"
4020 $! NOTE: This file is extracted as part of the VMS configuration process.
4021 $! Any changes made to it directly will be lost. If you need to make any
4022 $! changes, please edit the template in [.vms]SubConfigure.Com instead.
4023 $ def = F$Environment("Default")
4024 $ exts1 = F$Edit(p1,"Compress")
4025 $ p2 = F$Edit(p2,"Upcase,Compress,Trim")
4026 $ If F$Locate("MCR ",p2).eq.0 Then p2 = F$Extract(3,255,p2)
4027 $ miniperl = "$" + F$Search(F$Parse(p2,".Exe"))
4029 $ if f$type('p3') .nes. "" then makeutil = 'p3'
4030 $ targ = F$Edit(p4,"Lowercase")
4033 $ ext = F$Element(i," ",p1)
4034 $ If ext .eqs. " " Then Goto done
4035 $ Define/User Perl_Env_Tables CLISYM_LOCAL
4037 ($extdir = $ENV{'ext'}) =~ s/::/./g;
4038 if ($extdir =~ /^vms/i) { $extdir =~ s/vms/.vms.ext/i; }
4039 else { $extdir = ".ext.$extdir"; }
4040 ($ENV{'extdir'} = "[$extdir]");
4041 ($ENV{'up'} = ('-') x ($extdir =~ tr/././));
4042 $ Set Default &extdir
4044 $ If F$Locate("clean",targ) .eqs. F$Length(targ)
4046 $ Write Sys$Output "Building ''ext' . . ."
4047 $ On Error Then Goto done
4048 $ If F$Search("Descrip.MMS") .eqs. ""
4052 $ If F$CvTime(F$File("Descrip.MMS","rdt")) .lts. -
4053 F$CvTime(F$File("Makefile.PL","rdt")) Then redesc = 1
4056 $ Write Sys$Output "''targ'ing ''ext' . . ."
4057 $ On Error Then Continue
4060 miniperl "-I[''up'.lib]" Makefile.PL "INST_LIB=[''up'.lib]" "INST_ARCHLIB=[''up'.lib]"
4074 $! Clean up after ourselves
4075 $ delete/nolog munchconfig.exe;*
4076 $ delete/nolog munchconfig.obj;*