1 $! SUBCONFIGURE.COM - build a config.sh for VMS Perl.
3 $! Note for folks from other platforms changing things in here:
4 $! Fancy changes (based on compiler capabilities or VMS version or
5 $! whatever) are tricky, so go ahead and punt on those.
7 $! Simple changes, though (say, always setting something to 1, or undef,
8 $! or something like that) are straightforward. Adding a new item for the
9 $! ultimately created config.sh requires adding two lines to this file.
11 $! First, a line in the format:
13 $! after the line tagged ##ADD NEW CONSTANTS HERE##. Replace foo with the
14 $! variable name as it appears in config.sh.
16 $! Second, add a line in the format:
17 $! $ WC "foo='" + perl_foo + "'"
18 $! after the line tagged ##WRITE NEW CONSTANTS HERE##. Careful of the
19 $! quoting, as it can be tricky.
21 $! This .COM file expects to be called by configure.com, and thus expects
22 $! a few symbols in the environment. Notably:
24 $! One of: Using_Dec_C, Using_Gnu_C set to "YES"
25 $! Dec_C_Version set to the Dec C version (defaults to 0 if not specified)
26 $! Has_Socketshr set to "T" if using socketshr
27 $! Has_Dec_C_Sockets set to "T" if using Dec C sockets
28 $! Use_Threads set to "T" if they're using threads
29 $! C_Compiler_Invoke is the command needed to invoke the C compiler
31 $! We'll be playing with Sys$Output; don't clutter it
34 $! Set Dec_C_Version to something
35 $ WRITE_RESULT := "WRITE SYS$OUTPUT ""%CONFIG-I-RESULT "" + "
36 $ echo = "Write Sys$Output "
37 $ Dec_C_Version := "''Dec_C_Version'"
38 $ Dec_C_Version = Dec_C_Version + 0
39 $ Vms_Ver := "''f$extract(1,3, f$getsyi(""version""))'"
40 $ perl_extensions := "''extensions'"
41 $ if f$length(Mcc) .eq. 0 then Mcc := "cc"
42 $ MCC = f$edit(mcc, "UPCASE")
43 $ C_Compiler_Replace := "CC=CC=''Mcc'''CC_flags'"
44 $ if "''Using_Dec_C'" .eqs. "Yes"
46 $ Checkcc := "''Mcc'/prefix=all"
50 $ cc_flags = cc_flags + extra_flags
51 $ if be_case_sensitive
53 $ d_vms_be_case_sensitive = "define"
55 $ d_vms_be_case_sensitive = "undef"
57 $ if use_multiplicity .eqs. "Y"
59 $ perl_usemultiplicity = "define"
61 $ perl_usemultiplicity = "undef"
63 $! Some constant defaults.
65 $ hwname = f$getsyi("HW_NAME")
67 $ if "''myname'" .eqs. "" THEN myname = f$trnlnm("SYS$NODE")
69 $! ##ADD NEW CONSTANTS HERE##
70 $ perl_d_getcwd = "undef"
71 $ perl_d_nv_preserves_uv = "define"
72 $ perl_d_fs_data_s = "undef"
73 $ perl_d_getmnt = "undef"
74 $ perl_d_sqrtl = "define"
75 $ perl_d_statfs_f_flags = "undef"
76 $ perl_d_statfs_s = "undef"
77 $ perl_d_ustat = "undef"
78 $ perl_i_ieeefp = "undef"
79 $ perl_i_sunmath = "undef"
80 $ perl_i_sysstatfs = "undef"
81 $ perl_i_sysvfs = "undef"
82 $ perl_i_ustat = "undef"
83 $ perl_d_llseek="undef"
84 $ perl_d_iconv="undef"
85 $ perl_d_madvise="undef"
86 $ perl_selectminbits=32
87 $ perl_d_vendorarch="define"
88 $ perl_vendorarchexp=""
89 $ perl_d_msync="undef"
90 $ perl_d_vendorarch="define"
91 $ perl_vendorarchexp=""
92 $ perl_d_mprotect="undef"
93 $ perl_d_munmap="undef"
94 $ perl_crosscompile="undef"
95 $ perl_multiarch="undef"
97 $ perl_i_sysmman="undef"
98 $ perl_d_telldirproto="define"
99 $ perl_i_sysmount="undef"
100 $ perl_d_bincompat="undef"
101 $ perl_d_endspent="undef
102 $ perl_d_getspent="undef
103 $ perl_d_getspnam="undef
104 $ perl_d_setspent="undef
105 $ perl_d_fstatfs="undef"
106 $ perl_d_getfsstat="undef"
107 $ perl_i_machcthreads="undef"
108 $ perl_i_pthread="define"
109 $ perl_d_fstatvfs="undef"
110 $ perl_usesocks="undef"
111 $ perl_d_vendorlib="undef"
112 $ perl_vendorlibexp=""
113 $ perl_d_statfsflags="undef"
114 $ perl_i_sysstatvfs="undef"
115 $ perl_i_mntent="undef"
116 $ perl_d_getmntent="undef"
117 $ perl_d_hasmntopt="undef"
118 $ perl_package="''package'"
119 $ perl_baserev = "''baserev'"
121 $ perl_installusrbinperl="undef"
123 $ perl_d_fseeko="undef"
124 $ perl_d_ftello="undef"
125 $ perl_d_qgcvt="undef"
126 $ perl_d_readv="undef"
127 $ perl_d_writev="undef"
128 $ perl_i_machcthr="undef"
129 $ perl_i_netdb="undef"
130 $ perl_d_gnulibc="undef"
131 $ perl_cf_by="unknown"
135 $ perl_drand01 = "drand48()"
136 $ perl_randseedtype = "long int"
137 $ perl_seedfunc = "srand48"
138 $ perl_d_msg_ctrunc = "undef"
139 $ perl_d_msg_dontroute = "undef"
140 $ perl_d_msg_oob = "undef"
141 $ perl_d_msg_peek = "undef"
142 $ perl_d_msg_proxy = "undef"
143 $ perl_d_scm_rights = "undef"
144 $ perl_d_sendmsg = "undef"
145 $ perl_d_recvmsg = "undef"
146 $ perl_d_msghdr_s = "undef"
147 $ perl_d_cmsghdr_s = "undef"
150 $ perl_use64bitint = "define"
151 $ perl_uselargefiles = "define"
152 $ perl_uselongdouble = "define"
153 $ perl_usemorebits = "define"
155 $ perl_use64bitint = "undef"
156 $ perl_uselargefiles = "undef"
157 $ perl_uselongdouble = "undef"
158 $ perl_usemorebits = "undef"
162 $ perl_use64bitall = "define"
164 $ perl_use64bitall = "undef"
166 $ perl_d_drand48proto = "define"
167 $ perl_d_lseekproto = "define"
168 $ perl_libpth="/sys$share /sys$library"
170 $ perl_lddlflags="/Share"
176 $ perl_i_arpainet="undef"
177 $ perl_d_grpasswd="undef"
178 $ perl_d_setgrent="undef"
179 $ perl_d_getgrent="define"
180 $ perl_d_endgrent="define"
181 $ perl_d_pwpasswd="define"
182 $ perl_d_setpwent="define"
183 $ perl_d_getpwent="define"
184 $ perl_d_endpwent="define"
185 $ perl_d_phostname="undef"
186 $ perl_d_accessx="undef"
187 $ perl_d_eaccess="undef"
188 $ perl_ebcdic="undef"
190 $ perl_shrplib="define"
191 $ perl_usemymalloc=mymalloc
192 $ perl_usevfork="true"
193 $ perl_useposix="false"
194 $ perl_spitshell="write sys$output "
195 $ perl_dlsrc="dl_vms.c"
198 $ perl_prefix="perl_root"
199 $ perl_binexp="''perl_prefix':[000000]"
200 $ perl_builddir="''perl_prefix':[000000]"
201 $ perl_installbin="''perl_prefix':[000000]"
202 $ perl_installscript="''perl_prefix':[utils]"
203 $ perl_installman1dir="''perl_prefix':[man.man1]"
204 $ perl_installman3dir="''perl_prefix':[man.man3]"
205 $ perl_installprivlib="''perl_prefix':[lib]"
206 $ perl_installsitelib="''perl_prefix':[lib.site_perl]"
209 $ perl_d_sockpair="undef"
210 $ perl_i_neterrno="define"
211 $ perl_ldflags="/NoTrace/NoMap"
212 $ perl_d_lchown="undef"
213 $ perl_d_mknod="undef"
214 $ perl_d_union_semun="undef"
215 $ perl_d_semctl_semun="undef"
216 $ perl_d_semctl_semid_ds="undef"
217 $ IF (sharedperl.EQS."Y" .AND. F$GETSYI("HW_MODEL").GE.1024)
219 $ perl_obj_ext=".abj"
222 $ perl_exe_ext=".axe"
223 $ perl_lib_ext=".alb"
225 $ perl_obj_ext=".obj"
228 $ perl_exe_ext=".exe"
229 $ perl_lib_ext=".olb"
231 $ perl_dlobj="dl_vms''perl_obj_ext'"
233 $ perl_d_archlib="define"
234 $ perl_d_bincompat3="undef"
235 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
237 $ perl_d_castneg="define"
239 $ perl_d_chsize="undef"
240 $ perl_d_const="define"
241 $ perl_d_crypt="define"
242 $ perl_byteorder="1234"
245 $ perl_d_dup2="define"
246 $ perl_d_fchmod="undef"
247 $ perl_d_fchown="undef"
248 $ perl_d_fcntl="undef"
249 $ perl_d_fgetpos="define"
250 $ perl_d_flexfnam="define"
251 $ perl_d_flock="undef"
252 $ perl_d_fsetpos="define"
253 $ perl_d_getgrps="undef"
254 $ perl_d_setgrps="undef"
255 $ perl_d_getprior="undef"
256 $ perl_d_killpg="undef"
257 $ perl_d_link="undef"
258 $ perl_d_lstat="undef"
259 $ perl_d_lockf="undef"
260 $ perl_d_memcmp="define"
261 $ perl_d_memcpy="define"
262 $ perl_d_memmove="define"
263 $ perl_d_memset="define"
264 $ perl_d_mkdir="define"
266 $ perl_d_open3="define"
267 $ perl_d_poll="undef"
268 $ perl_d_readdir="define"
269 $ perl_d_seekdir="define"
270 $ perl_d_telldir="define"
271 $ perl_d_rewinddir="define"
272 $ perl_d_rename="define"
273 $ perl_d_rmdir="define"
275 $ perl_d_setegid="undef"
276 $ perl_d_seteuid="undef"
277 $ perl_d_setprior="undef"
278 $ perl_d_setregid="undef"
279 $ perl_d_setresgid="undef"
280 $ perl_d_setreuid="undef"
281 $ perl_d_setresuid="undef"
282 $ perl_d_setrgid="undef"
283 $ perl_d_setruid="undef"
284 $ perl_d_setsid="undef"
286 $ perl_d_shmatprototype="undef"
287 $ perl_d_statblks="undef"
288 $ perl_stdio_ptr="((*fp)->_ptr)"
289 $ perl_stdio_cnt="((*fp)->_cnt)"
290 $ perl_stdio_base="((*fp)->_base)"
291 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
292 $ perl_d_strctcpy="define"
293 $ perl_d_strerror="define"
294 $ perl_d_syserrlst="undef"
295 $ perl_d_strerrm="strerror((e),vaxc$errno)"
296 $ perl_d_symlink="undef"
297 $ perl_d_syscall="undef"
298 $ perl_d_system="define"
299 $ perl_timetype="time_t"
300 $ perl_d_vfork="define"
301 $ perl_signal_t="void"
302 $ perl_d_volatile="define"
303 $ perl_d_vprintf="define"
304 $ perl_d_charvspr="undef"
305 $ perl_d_waitpid="define"
306 $ perl_i_dirent="undef"
307 $ perl_d_dirnamlen="define"
308 $ perl_direntrytype="struct dirent"
309 $ perl_i_fcntl="undef"
311 $ perl_i_limits="define"
312 $ perl_i_memory="undef"
313 $ perl_i_ndbm="undef"
314 $ perl_i_stdarg="define"
316 $ perl_d_pwquota="undef"
317 $ perl_d_pwage="undef"
318 $ perl_d_pwchange="undef"
319 $ perl_d_pwclass="undef"
320 $ perl_d_pwexpire="undef"
321 $ perl_d_pwcomment="define"
322 $ perl_i_stddef="define"
323 $ perl_i_stdlib="define"
324 $ perl_i_string="define"
325 $ perl_i_sysdir="undef"
326 $ perl_i_sysfile="undef"
327 $ perl_i_sysioctl="undef"
328 $ perl_i_sysndir="undef"
329 $ perl_i_sysresrc="undef"
330 $ perl_i_sysselct="undef"
332 $ perl_i_rpcsvcdbm="undef"
333 $ perl_i_sfio="undef"
334 $ perl_i_sysstat="define"
335 $ perl_i_systimes="undef"
336 $ perl_i_systypes="define"
337 $ perl_i_sysun="undef"
338 $ perl_i_syswait="undef"
339 $ perl_i_termio="undef"
340 $ perl_i_sgtty="undef"
341 $ perl_i_termios="undef"
342 $ perl_i_time="define"
343 $ perl_i_systime="undef"
344 $ perl_i_systimek="undef"
345 $! perl_i_unistd="undef"
346 $ perl_i_utime="undef"
347 $ perl_i_varargs="undef"
348 $ perl_i_vfork="undef"
349 $ perl_prototype="define"
351 $ perl_stdchar="char"
352 $ perl_d_unlink_all_versions="undef"
353 $ perl_full_sed="_NLA0:"
354 $ perl_bin="/''perl_prefix'/000000"
355 $ perl_binexp="''perl_prefix':[000000]"
356 $ perl_d_alarm="define"
357 $ perl_d_casti32="define"
358 $ perl_d_chown="define"
359 $ perl_d_chroot="undef"
360 $ perl_d_cuserid="define"
361 $ perl_d_dbl_dig="define"
362 $ perl_d_ldbl_dig="define"
363 $ perl_d_difftime="define"
364 $ perl_d_fork="undef"
365 $ perl_d_getlogin="define"
366 $ perl_d_getppid="undef"
367 $ perl_d_nice="define"
368 $ perl_d_pause="define"
369 $ perl_d_pipe="define"
370 $ perl_d_readlink="undef"
371 $ perl_d_setlinebuf="undef"
372 $ perl_d_strchr="define"
373 $ perl_d_strtod="define"
374 $ perl_d_strtol="define"
375 $ perl_d_strtoul="define"
376 $ perl_d_tcgetpgrp="undef"
377 $ perl_d_tcsetpgrp="undef"
378 $ perl_d_times="define"
379 $ perl_d_tzname="undef"
380 $ perl_d_umask="define"
381 $ perl_fpostype="fpos_t"
382 $ perl_i_dlfcn="undef"
383 $ perl_i_float="define"
384 $ perl_i_math="define"
385 $ perl_lseektype="int"
386 $ perl_i_values="undef"
387 $ perl_malloctype="void *"
388 $ perl_freetype="void"
389 $ if "''mymalloc'".eqs."Y"
391 $ perl_d_mymalloc="define"
393 $ perl_d_mymalloc="undef"
396 $ perl_modetype="unsigned int"
397 $ perl_ssizetype="int"
398 $ perl_o_nonblock=" "
401 $ perl_d_eofnblk="undef"
402 $ perl_d_oldarchlib="define"
403 $ perl_privlibexp="''perl_prefix':[lib]"
404 $ perl_privlib="''perl_prefix':[lib]"
405 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
406 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
407 $ perl_sizetype="size_t"
408 $ perl_i_sysparam="undef"
409 $ perl_d_void_closedir="define"
410 $ perl_d_dlerror="undef"
411 $ perl_d_dlsymun="undef"
412 $ perl_d_suidsafe="undef"
413 $ perl_d_dosuid="undef"
414 $ perl_d_inetaton="undef"
415 $ perl_d_isascii="define"
416 $ perl_d_mkfifo="undef"
417 $ perl_d_safebcpy="undef"
418 $ perl_d_safemcpy="define"
419 $ perl_d_sanemcmp="define"
420 $ perl_d_setpgrp="undef"
421 $ perl_d_bsdsetpgrp="undef"
422 $ perl_d_bsdpgrp="undef"
423 $ perl_d_setpgid="undef"
424 $ perl_d_setpgrp2="undef"
425 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
426 $ perl_d_getpgid="undef"
427 $ perl_d_getpgrp="undef"
428 $ perl_d_bsdgetpgrp="undef"
429 $ perl_d_getpgrp2="undef"
430 $ perl_d_sfio="undef"
431 $ perl_usedl="define"
432 $ perl_startperl="""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ + ++$status != 0 and $exit = $status = undef;"""
433 $ perl_db_hashtype=" "
434 $ perl_db_prefixtype=" "
435 $ perl_useperlio="undef"
436 $ perl_defvoidused="15"
437 $ perl_voidflags="15"
438 $ perl_d_eunice="undef"
439 $ perl_d_pwgecos="define"
440 $ IF ("''Use_Threads'".eqs."T").and.("''VMS_VER'".LES."6.2")
442 $ 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"
446 $ IF ("''Using_Dec_C'".eqs."Yes")
448 $ perl_libc="(DECCRTL)"
452 $ perl_PATCHLEVEL="''patchlevel'"
453 $ perl_SUBVERSION="''subversion'"
460 $ perl_d_PRIfldbl = "define"
461 $ perl_d_PRIgldbl = "define"
462 $ perl_d_PRId64 = "define"
463 $ perl_d_PRIu64 = "define"
464 $ perl_d_PRIo64 = "define"
465 $ perl_d_PRIx64 = "define"
466 $ perl_sPRIfldbl = """Lf"""
467 $ perl_sPRIgldbl = """Lg"""
468 $ perl_sPRId64 = """Ld"""
469 $ perl_sPRIu64 = """Lu"""
470 $ perl_sPRIo64 = """Lo"""
471 $ perl_sPRIx64 = """Lx"""
472 $ perl_d_quad = "define"
473 $ perl_quadtype = "long long"
474 $ perl_uquadtype = "unsigned long long"
476 $ perl_d_PRIfldbl = "undef"
477 $ perl_d_PRIgldbl = "undef"
478 $ perl_d_PRId64 = "undef"
479 $ perl_d_PRIu64 = "undef"
480 $ perl_d_PRIo64 = "undef"
481 $ perl_d_PRIx64 = "undef"
482 $ perl_sPRIfldbl = ""
483 $ perl_sPRIgldbl = ""
488 $ perl_d_quad = "undef"
491 $! Now some that we build up
493 $ LocalTime = f$time()
494 $ perl_cf_time= f$extract(0, 3, f$cvtime(LocalTime,, "WEEKDAY")) + " " + -
495 f$edit(f$cvtime(LocalTime, "ABSOLUTE", "MONTH"), "LOWERCASE") + -
496 " " + f$cvtime(LocalTime,, "DAY") + " " + f$cvtime(LocalTime,, "TIME") + -
497 " " + f$cvtime(LocalTime,, "YEAR")
498 $ if f$getsyi("HW_MODEL").ge.1024
500 $ perl_arch="VMS_AXP"
501 $ perl_archname="VMS_AXP"
502 $ perl_alignbytes="8"
504 $ perl_arch="VMS_VAX"
505 $ perl_archname="VMS_VAX"
506 $ perl_alignbytes="8"
508 $ if ("''Use_Threads'".eqs."T")
510 $ if use_5005_threads
512 $ perl_arch = "''perl_arch'-thread"
513 $ perl_archname = "''perl_archname'-thread"
514 $ perl_d_old_pthread_create_joinable = "undef"
515 $ perl_old_pthread_create_joinable = " "
516 $ perl_use5005threads = "define"
517 $ perl_useithreads = "undef"
519 $ perl_arch = "''perl_arch'-ithread"
520 $ perl_archname = "''perl_archname'-ithread"
521 $ perl_d_old_pthread_create_joinable = "undef"
522 $ perl_old_pthread_create_joinable = " "
523 $ perl_use5005threads = "undef"
524 $ perl_useithreads = "define"
527 $ perl_d_old_pthread_create_joinable = "undef"
528 $ perl_old_pthread_create_joinable = " "
529 $ perl_use5005threads = "undef"
530 $ perl_useithreads = "undef"
532 $ perl_osvers=f$edit(osvers, "TRIM")
533 $ if (perl_subversion + 0).eq.0
535 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL
537 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion
540 $! Some that we need to invoke the compiler for
541 $ OS := "open/write SOURCECHAN []temp.c"
542 $ WS := "write SOURCECHAN"
543 $ CS := "close SOURCECHAN"
544 $ DS := "delete/nolog []temp.*;*"
546 $ if ("''using_gnu_c'".eqs."Yes")
548 $ open/write OPTCHAN []temp.opt
549 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
550 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
555 $! Check for __STDC__
559 $ WS "#include <stdlib.h>
561 $ WS "#include <stdio.h>
564 $ WS "#ifdef __STDC__
565 $ WS "printf(""42\n"");
567 $ WS "printf(""1\n"");
572 $ DEFINE SYS$ERROR _NLA0:
573 $ DEFINE SYS$OUTPUT _NLA0:
574 $ ON ERROR THEN CONTINUE
575 $ ON WARNING THEN CONTINUE
577 $ If (Needs_Opt.eqs."Yes")
579 $ link temp.obj,temp.opt/opt
583 $ DEASSIGN SYS$OUTPUT
585 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
586 $ DEFINE SYS$ERROR TEMPOUT
587 $ DEFINE SYS$OUTPUT TEMPOUT
590 $ DEASSIGN SYS$OUTPUT
592 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
595 $ DELETE/NOLOG [-.uu]tempout.lis;
597 $ perl_cpp_stuff=line
598 $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
600 $! Check for double size
604 $ WS "#include <stdlib.h>
606 $ WS "#include <stdio.h>
610 $ WS "foo = sizeof(double);
611 $ WS "printf(""%d\n"", foo);
615 $ DEFINE SYS$ERROR _NLA0:
616 $ DEFINE SYS$OUTPUT _NLA0:
617 $ ON ERROR THEN CONTINUE
618 $ ON WARNING THEN CONTINUE
620 $ If (Needs_Opt.eqs."Yes")
622 $ link temp.obj,temp.opt/opt
626 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
627 $ DEASSIGN SYS$OUTPUT
629 $ DEFINE SYS$ERROR TEMPOUT
630 $ DEFINE SYS$OUTPUT TEMPOUT
633 $ DEASSIGN SYS$OUTPUT
635 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
638 $ DELETE/NOLOG [-.uu]tempout.lis;
640 $ perl_doublesize=line
641 $ WRITE_RESULT "doublesize is ''perl_doublesize'"
643 $! Check for long double size
647 $ WS "#include <stdlib.h>
649 $ WS "#include <stdio.h>
652 $ WS "printf(""%d\n"", sizeof(long double));
656 $ DEFINE SYS$ERROR _NLA0:
657 $ DEFINE SYS$OUTPUT _NLA0:
658 $ ON ERROR THEN CONTINUE
659 $ ON WARNING THEN CONTINUE
661 $ teststatus = f$extract(9,1,$status)
662 $ if (teststatus.nes."1")
664 $ perl_longdblsize="0"
665 $ perl_d_longdbl="undef"
667 $ ON ERROR THEN CONTINUE
668 $ ON WARNING THEN CONTINUE
669 $ If (Needs_Opt.eqs."Yes")
671 $ link temp.obj,temp.opt/opt
675 $ teststatus = f$extract(9,1,$status)
676 $ DEASSIGN SYS$OUTPUT
678 $ if (teststatus.nes."1")
680 $ perl_longdblsize="0"
681 $ perl_d_longdbl="undef"
683 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
684 $ DEFINE SYS$ERROR TEMPOUT
685 $ DEFINE SYS$OUTPUT TEMPOUT
688 $ DEASSIGN SYS$OUTPUT
690 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
693 $ DELETE/NOLOG [-.uu]tempout.lis;
695 $ perl_longdblsize=line
696 $ perl_d_longdbl="define"
699 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
700 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
702 $! Check for long long existance and size
706 $ WS "#include <stdlib.h>
708 $ WS "#include <stdio.h>
711 $ WS "printf(""%d\n"", sizeof(long long));
715 $ DEFINE SYS$ERROR _NLA0:
716 $ DEFINE SYS$OUTPUT _NLA0:
717 $ on error then continue
718 $ on warning then continue
720 $ If (Needs_Opt.eqs."Yes")
722 $ link temp.obj,temp.opt/opt
726 $ teststatus = f$extract(9,1,$status)
727 $ DEASSIGN SYS$OUTPUT
729 $ if (teststatus.nes."1")
731 $ perl_longlongsize="0"
732 $ perl_d_longlong="undef"
734 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
735 $ DEFINE SYS$ERROR TEMPOUT
736 $ DEFINE SYS$OUTPUT TEMPOUT
739 $ DEASSIGN SYS$OUTPUT
741 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
744 $ DELETE/NOLOG [-.uu]tempout.lis;
745 $ perl_longlongsize=line
746 $ perl_d_longlong="define"
748 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
749 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
751 $! Check the prototype for getgid
755 $ WS "#include <stdlib.h>
757 $ WS "#include <stdio.h>
758 $ WS "#include <types.h>
759 $ WS "#include <unistd.h>
766 $ DEFINE SYS$ERROR _NLA0:
767 $ DEFINE SYS$OUTPUT _NLA0:
768 $ on error then continue
769 $ on warning then continue
771 $ teststatus = f$extract(9,1,$status)
772 $ DEASSIGN SYS$OUTPUT
774 $ if (teststatus.nes."1")
776 $! Okay, gid_t failed. Must be unsigned int
777 $ perl_gidtype = "unsigned int"
779 $ perl_gidtype = "gid_t"
781 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
783 $! Check to see if we've got dev_t
787 $ WS "#include <stdlib.h>
789 $ WS "#include <stdio.h>
790 $ WS "#include <types.h>
791 $ 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, dev_t failed. Must be unsigned int
809 $ perl_devtype = "unsigned int"
811 $ perl_devtype = "dev_t"
813 $ WRITE_RESULT "Dev_t is ''perl_devtype'"
815 $! Check to see if we've got unistd.h (which we ought to, but you never know)
819 $ WS "#include <stdlib.h>
821 $ WS "#include <unistd.h>
827 $ DEFINE SYS$ERROR _NLA0:
828 $ DEFINE SYS$OUTPUT _NLA0:
829 $ on error then continue
830 $ on warning then continue
832 $ teststatus = f$extract(9,1,$status)
833 $ DEASSIGN SYS$OUTPUT
835 $ if (teststatus.nes."1")
837 $! Okay, failed. Must not have it
838 $ perl_i_unistd = "undef"
840 $ perl_i_unistd = "define"
843 $ WRITE_RESULT "i_unistd is ''perl_i_unistd'"
845 $! Check to see if we've got shadow.h (probably not, but...)
849 $ WS "#include <stdlib.h>
851 $ WS "#include <shadow.h>
857 $ DEFINE SYS$ERROR _NLA0:
858 $ DEFINE SYS$OUTPUT _NLA0:
859 $ on error then continue
860 $ on warning then continue
862 $ teststatus = f$extract(9,1,$status)
863 $ DEASSIGN SYS$OUTPUT
865 $ if (teststatus.nes."1")
867 $! Okay, failed. Must not have it
868 $ perl_i_shadow = "undef"
870 $ perl_i_shadow = "define"
873 $ WRITE_RESULT "i_shadow is ''perl_i_shadow'"
875 $! Check to see if we've got socks.h (probably not, but...)
879 $ WS "#include <stdlib.h>
881 $ WS "#include <socks.h>
887 $ DEFINE SYS$ERROR _NLA0:
888 $ DEFINE SYS$OUTPUT _NLA0:
889 $ on error then continue
890 $ on warning then continue
892 $ teststatus = f$extract(9,1,$status)
893 $ DEASSIGN SYS$OUTPUT
895 $ if (teststatus.nes."1")
897 $! Okay, failed. Must not have it
898 $ perl_i_socks = "undef"
900 $ perl_i_socks = "define"
903 $ WRITE_RESULT "i_socks is ''perl_i_socks'"
905 $! Check the prototype for select
907 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
911 $ WS "#include <stdlib.h>
913 $ WS "#include <stdio.h>
914 $ WS "#include <types.h>
915 $ WS "#include <unistd.h>
916 $ if ("''Has_Socketshr'".eqs."T")
918 $ WS "#include <socketshr.h>"
920 $ WS "#include <time.h>
921 $ WS "#include <socket.h>
928 $ WS "bar = select(2, foo, foo, foo, NULL);
932 $ DEFINE SYS$ERROR _NLA0:
933 $ DEFINE SYS$OUTPUT _NLA0:
934 $ on error then continue
935 $ on warning then continue
937 $ teststatus = f$extract(9,1,$status)
938 $ DEASSIGN SYS$OUTPUT
940 $ if (teststatus.nes."1")
942 $! Okay, fd_set failed. Must be an int
943 $ perl_selecttype = "int *"
945 $ perl_selecttype="fd_set *"
948 $ ! No sockets, so stick in an int *
949 $ perl_selecttype = "int *"
951 $ WRITE_RESULT "selectype is ''perl_selecttype'"
953 $! Check to see if fd_set exists
957 $ WS "#include <stdlib.h>
959 $ WS "#include <stdio.h>
960 $ WS "#include <types.h>
961 $ WS "#include <unistd.h>
962 $ if ("''Has_Socketshr'".eqs."T")
964 $ WS "#include <socketshr.h>"
966 $ IF ("''Has_Dec_C_Sockets'".eqs."T")
968 $ WS "#include <time.h>
969 $ WS "#include <socket.h>
978 $ DEFINE SYS$ERROR _NLA0:
979 $ DEFINE SYS$OUTPUT _NLA0:
980 $ on error then continue
981 $ on warning then continue
983 $ teststatus = f$extract(9,1,$status)
984 $ DEASSIGN SYS$OUTPUT
986 $ if (teststatus.nes."1")
988 $! Okay, fd_set failed. Must not exist
989 $ perl_d_fd_set = "undef"
991 $ perl_d_fd_set="define"
993 $ WRITE_RESULT "d_fd_set is ''perl_d_fd_set'"
995 $! Check for inttypes.h
999 $ WS "#include <stdlib.h>
1001 $ WS "#include <stdio.h>
1002 $ WS "#include <unistd.h>
1003 $ WS "#include <inttypes.h>
1009 $ DEFINE SYS$ERROR _NLA0:
1010 $ DEFINE SYS$OUTPUT _NLA0:
1011 $ on error then continue
1012 $ on warning then continue
1014 $ savedstatus = $status
1015 $ teststatus = f$extract(9,1,savedstatus)
1016 $ if (teststatus.nes."1")
1018 $ perl_i_inttypes="undef"
1019 $ DEASSIGN SYS$OUTPUT
1020 $ DEASSIGN SYS$ERROR
1022 $ If (Needs_Opt.eqs."Yes")
1024 $ link temp.obj,temp.opt/opt
1028 $ savedstatus = $status
1029 $ teststatus = f$extract(9,1,savedstatus)
1030 $ DEASSIGN SYS$OUTPUT
1031 $ DEASSIGN SYS$ERROR
1032 $ if (teststatus.nes."1")
1034 $ perl_i_inttypes="undef"
1036 $ perl_i_inttypes="define"
1039 $ WRITE_RESULT "i_inttypes is ''perl_i_inttypes'"
1041 $! Check for h_errno
1045 $ WS "#include <stdlib.h>
1047 $ WS "#include <stdio.h>
1048 $ WS "#include <unistd.h>
1049 $ WS "#include <netdb.h>
1056 $ DEFINE SYS$ERROR _NLA0:
1057 $ DEFINE SYS$OUTPUT _NLA0:
1058 $ on error then continue
1059 $ on warning then continue
1061 $ savedstatus = $status
1062 $ teststatus = f$extract(9,1,savedstatus)
1063 $ if (teststatus.nes."1")
1065 $ perl_d_herrno="undef"
1066 $ DEASSIGN SYS$OUTPUT
1067 $ DEASSIGN SYS$ERROR
1071 $ link temp.obj,temp.opt/opt
1075 $ savedstatus = $status
1076 $ teststatus = f$extract(9,1,savedstatus)
1077 $ DEASSIGN SYS$OUTPUT
1078 $ DEASSIGN SYS$ERROR
1079 $ if (teststatus.nes."1")
1081 $ perl_d_herrno="undef"
1083 $ perl_d_herrno="define"
1086 $ WRITE_RESULT "d_herrno is ''perl_d_herrno'"
1088 $! Check to see if int64_t exists
1092 $ WS "#include <stdlib.h>
1094 $ WS "#include <stdio.h>
1095 $ WS "#include <types.h>
1096 $ WS "#''perl_i_inttypes IIH
1098 $ WS "#include <inttypes.h>
1100 $ WS "#include <unistd.h>
1107 $ DEFINE SYS$ERROR _NLA0:
1108 $ DEFINE SYS$OUTPUT _NLA0:
1109 $ on error then continue
1110 $ on warning then continue
1112 $ teststatus = f$extract(9,1,$status)
1113 $ DEASSIGN SYS$OUTPUT
1114 $ DEASSIGN SYS$ERROR
1115 $ if (teststatus.nes."1")
1117 $! Okay, int64_t failed. Must not exist
1118 $ perl_d_int64_t = "undef"
1120 $ perl_d_int64_t="define"
1122 $ WRITE_RESULT "d_int64_t is ''perl_d_int64_t'"
1124 $! Check to see if off64_t exists
1128 $ WS "#include <stdlib.h>
1130 $ WS "#include <stdio.h>
1131 $ WS "#include <types.h>
1132 $ WS "#''perl_i_inttypes IIH
1134 $ WS "#include <inttypes.h>
1136 $ WS "#include <unistd.h>
1143 $ DEFINE SYS$ERROR _NLA0:
1144 $ DEFINE SYS$OUTPUT _NLA0:
1145 $ on error then continue
1146 $ on warning then continue
1148 $ teststatus = f$extract(9,1,$status)
1149 $ DEASSIGN SYS$OUTPUT
1150 $ DEASSIGN SYS$ERROR
1151 $ if (teststatus.nes."1")
1153 $! Okay, off64_t failed. Must not exist
1154 $ perl_d_off64_t = "undef"
1156 $ perl_d_off64_t="define"
1158 $ WRITE_RESULT "d_off64_t is ''perl_d_off64_t'"
1160 $! Check to see if fpos64_t exists
1164 $ WS "#include <stdlib.h>
1166 $ WS "#include <stdio.h>
1167 $ WS "#include <types.h>
1168 $ WS "#''perl_i_inttypes IIH
1170 $ WS "#include <inttypes.h>
1172 $ WS "#include <unistd.h>
1179 $ DEFINE SYS$ERROR _NLA0:
1180 $ DEFINE SYS$OUTPUT _NLA0:
1181 $ on error then continue
1182 $ on warning then continue
1184 $ teststatus = f$extract(9,1,$status)
1185 $ DEASSIGN SYS$OUTPUT
1186 $ DEASSIGN SYS$ERROR
1187 $ if (teststatus.nes."1")
1189 $! Okay, fpos64_t failed. Must not exist
1190 $ perl_d_fpos64_t = "undef"
1192 $ perl_d_fpos64_t="define"
1194 $ WRITE_RESULT "d_fpos64_t is ''perl_d_fpos64_t'"
1196 $! Check to see if gethostname exists
1198 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1202 $ WS "#include <stdlib.h>
1204 $ WS "#include <stdio.h>
1205 $ WS "#include <types.h>
1206 $ WS "#include <unistd.h>
1207 $ if ("''Has_Socketshr'".eqs."T")
1209 $ WS "#include <socketshr.h>"
1211 $ WS "#include <time.h>
1212 $ WS "#include <socket.h>
1216 $ WS "char name[100];
1219 $ WS "baz = gethostname(name, bar);
1223 $ DEFINE SYS$ERROR _NLA0:
1224 $ DEFINE SYS$OUTPUT _NLA0:
1225 $ on error then continue
1226 $ on warning then continue
1228 $ teststatus = f$extract(9,1,$status)
1229 $ DEASSIGN SYS$OUTPUT
1230 $ DEASSIGN SYS$ERROR
1231 $ if (teststatus.nes."1")
1233 $! Okay, compile failed. Must not have it
1234 $ perl_d_gethname = "undef"
1236 $ If (Needs_Opt.eqs."Yes")
1238 $ link temp.obj,temp.opt/opt
1242 $ savedstatus = $status
1243 $ teststatus = f$extract(9,1,savedstatus)
1244 $ if (teststatus.nes."1")
1246 $ perl_d_gethname="undef"
1248 $ perl_d_gethname="define"
1252 $ ! No sockets, so no gethname
1253 $ perl_d_gethname = "undef"
1255 $ WRITE_RESULT "d_gethname is ''perl_d_gethname'"
1257 $! Check for sys/file.h
1261 $ WS "#include <stdlib.h>
1263 $ WS "#include <stdio.h>
1264 $ WS "#include <unistd.h>
1265 $ WS "#include <sys/file.h>
1271 $ DEFINE SYS$ERROR _NLA0:
1272 $ DEFINE SYS$OUTPUT _NLA0:
1273 $ on error then continue
1274 $ on warning then continue
1276 $ savedstatus = $status
1277 $ teststatus = f$extract(9,1,savedstatus)
1278 $ if (teststatus.nes."1")
1280 $ perl_i_sysfile="undef"
1281 $ DEASSIGN SYS$OUTPUT
1282 $ DEASSIGN SYS$ERROR
1284 $ If (Needs_Opt.eqs."Yes")
1286 $ link temp.obj,temp.opt/opt
1290 $ savedstatus = $status
1291 $ teststatus = f$extract(9,1,savedstatus)
1292 $ DEASSIGN SYS$OUTPUT
1293 $ DEASSIGN SYS$ERROR
1294 $ if (teststatus.nes."1")
1296 $ perl_i_sysfile="undef"
1298 $ perl_i_sysfile="define"
1301 $ WRITE_RESULT "i_sysfile is ''perl_i_sysfile'"
1303 $! Check for sys/utsname.h
1307 $ WS "#include <stdlib.h>
1309 $ WS "#include <stdio.h>
1310 $ WS "#include <unistd.h>
1311 $ WS "#include <sys/utsname.h>
1317 $ DEFINE SYS$ERROR _NLA0:
1318 $ DEFINE SYS$OUTPUT _NLA0:
1319 $ on error then continue
1320 $ on warning then continue
1322 $ savedstatus = $status
1323 $ teststatus = f$extract(9,1,savedstatus)
1324 $ if (teststatus.nes."1")
1326 $ perl_i_sysutsname="undef"
1327 $ DEASSIGN SYS$OUTPUT
1328 $ DEASSIGN SYS$ERROR
1330 $ If (Needs_Opt.eqs."Yes")
1332 $ link temp.obj,temp.opt/opt
1336 $ savedstatus = $status
1337 $ teststatus = f$extract(9,1,savedstatus)
1338 $ DEASSIGN SYS$OUTPUT
1339 $ DEASSIGN SYS$ERROR
1340 $ if (teststatus.nes."1")
1342 $ perl_i_sysutsname="undef"
1344 $ perl_i_sysutsname="define"
1347 $ WRITE_RESULT "i_sysutsname is ''perl_i_sysutsname'"
1349 $! Check for syslog.h
1353 $ WS "#include <stdlib.h>
1355 $ WS "#include <stdio.h>
1356 $ WS "#include <unistd.h>
1357 $ WS "#include <syslog.h>
1363 $ DEFINE SYS$ERROR _NLA0:
1364 $ DEFINE SYS$OUTPUT _NLA0:
1365 $ on error then continue
1366 $ on warning then continue
1368 $ savedstatus = $status
1369 $ teststatus = f$extract(9,1,savedstatus)
1370 $ if (teststatus.nes."1")
1372 $ perl_i_syslog="undef"
1373 $ DEASSIGN SYS$OUTPUT
1374 $ DEASSIGN SYS$ERROR
1376 $ If (Needs_Opt.eqs."Yes")
1378 $ link temp.obj,temp.opt/opt
1382 $ savedstatus = $status
1383 $ teststatus = f$extract(9,1,savedstatus)
1384 $ DEASSIGN SYS$OUTPUT
1385 $ DEASSIGN SYS$ERROR
1386 $ if (teststatus.nes."1")
1388 $ perl_i_syslog="undef"
1390 $ perl_i_syslog="define"
1393 $ WRITE_RESULT "i_syslog is ''perl_i_syslog'"
1399 $ WS "#include <stdlib.h>
1401 $ WS "#include <stdio.h>
1402 $ WS "#include <unistd.h>
1403 $ WS "#include <poll.h>
1409 $ DEFINE SYS$ERROR _NLA0:
1410 $ DEFINE SYS$OUTPUT _NLA0:
1411 $ on error then continue
1412 $ on warning then continue
1414 $ savedstatus = $status
1415 $ teststatus = f$extract(9,1,savedstatus)
1416 $ if (teststatus.nes."1")
1418 $ perl_i_poll="undef"
1419 $ DEASSIGN SYS$OUTPUT
1420 $ DEASSIGN SYS$ERROR
1422 $ If (Needs_Opt.eqs."Yes")
1424 $ link temp.obj,temp.opt/opt
1428 $ savedstatus = $status
1429 $ teststatus = f$extract(9,1,savedstatus)
1430 $ DEASSIGN SYS$OUTPUT
1431 $ DEASSIGN SYS$ERROR
1432 $ if (teststatus.nes."1")
1434 $ perl_i_poll="undef"
1436 $ perl_i_poll="define"
1439 $ WRITE_RESULT "i_poll is ''perl_i_poll'"
1441 $! Check for sys/uio.h
1445 $ WS "#include <stdlib.h>
1447 $ WS "#include <stdio.h>
1448 $ WS "#include <unistd.h>
1449 $ WS "#include <sys/uio.h>
1455 $ DEFINE SYS$ERROR _NLA0:
1456 $ DEFINE SYS$OUTPUT _NLA0:
1457 $ on error then continue
1458 $ on warning then continue
1460 $ savedstatus = $status
1461 $ teststatus = f$extract(9,1,savedstatus)
1462 $ if (teststatus.nes."1")
1464 $ perl_i_sysuio="undef"
1465 $ DEASSIGN SYS$OUTPUT
1466 $ DEASSIGN SYS$ERROR
1468 $ If (Needs_Opt.eqs."Yes")
1470 $ link temp.obj,temp.opt/opt
1474 $ savedstatus = $status
1475 $ teststatus = f$extract(9,1,savedstatus)
1476 $ DEASSIGN SYS$OUTPUT
1477 $ DEASSIGN SYS$ERROR
1478 $ if (teststatus.nes."1")
1480 $ perl_i_sysuio="undef"
1482 $ perl_i_sysuio="define"
1485 $ WRITE_RESULT "i_sysuio is ''perl_i_sysuio'"
1487 $! Check for sys/mode.h
1491 $ WS "#include <stdlib.h>
1493 $ WS "#include <stdio.h>
1494 $ WS "#include <unistd.h>
1495 $ WS "#include <sys/mode.h>
1501 $ DEFINE SYS$ERROR _NLA0:
1502 $ DEFINE SYS$OUTPUT _NLA0:
1503 $ on error then continue
1504 $ on warning then continue
1506 $ savedstatus = $status
1507 $ teststatus = f$extract(9,1,savedstatus)
1508 $ if (teststatus.nes."1")
1510 $ perl_i_sysmode="undef"
1511 $ DEASSIGN SYS$OUTPUT
1512 $ DEASSIGN SYS$ERROR
1514 $ If (Needs_Opt.eqs."Yes")
1516 $ link temp.obj,temp.opt/opt
1520 $ savedstatus = $status
1521 $ teststatus = f$extract(9,1,savedstatus)
1522 $ DEASSIGN SYS$OUTPUT
1523 $ DEASSIGN SYS$ERROR
1524 $ if (teststatus.nes."1")
1526 $ perl_i_sysmode="undef"
1528 $ perl_i_sysmode="define"
1531 $ WRITE_RESULT "i_sysmode is ''perl_i_sysmode'"
1533 $! Check for sys/access.h
1537 $ WS "#include <stdlib.h>
1539 $ WS "#include <stdio.h>
1540 $ WS "#include <unistd.h>
1541 $ WS "#include <sys/access.h>
1547 $ DEFINE SYS$ERROR _NLA0:
1548 $ DEFINE SYS$OUTPUT _NLA0:
1549 $ on error then continue
1550 $ on warning then continue
1552 $ savedstatus = $status
1553 $ teststatus = f$extract(9,1,savedstatus)
1554 $ if (teststatus.nes."1")
1556 $ perl_i_sysaccess="undef"
1557 $ DEASSIGN SYS$OUTPUT
1558 $ DEASSIGN SYS$ERROR
1560 $ If (Needs_Opt.eqs."Yes")
1562 $ link temp.obj,temp.opt/opt
1566 $ savedstatus = $status
1567 $ teststatus = f$extract(9,1,savedstatus)
1568 $ DEASSIGN SYS$OUTPUT
1569 $ DEASSIGN SYS$ERROR
1570 $ if (teststatus.nes."1")
1572 $ perl_i_sysaccess="undef"
1574 $ perl_i_sysaccess="define"
1577 $ WRITE_RESULT "i_sysaccess is ''perl_i_sysaccess'"
1579 $! Check for sys/security.h
1583 $ WS "#include <stdlib.h>
1585 $ WS "#include <stdio.h>
1586 $ WS "#include <unistd.h>
1587 $ WS "#include <sys/security.h>
1593 $ DEFINE SYS$ERROR _NLA0:
1594 $ DEFINE SYS$OUTPUT _NLA0:
1595 $ on error then continue
1596 $ on warning then continue
1598 $ savedstatus = $status
1599 $ teststatus = f$extract(9,1,savedstatus)
1600 $ if (teststatus.nes."1")
1602 $ perl_i_syssecrt="undef"
1603 $ DEASSIGN SYS$OUTPUT
1604 $ DEASSIGN SYS$ERROR
1606 $ If (Needs_Opt.eqs."Yes")
1608 $ link temp.obj,temp.opt/opt
1612 $ savedstatus = $status
1613 $ teststatus = f$extract(9,1,savedstatus)
1614 $ DEASSIGN SYS$OUTPUT
1615 $ DEASSIGN SYS$ERROR
1616 $ if (teststatus.nes."1")
1618 $ perl_i_syssecrt="undef"
1620 $ perl_i_syssecrt="define"
1623 $ WRITE_RESULT "i_syssecrt is ''perl_i_syssecrt'"
1625 $! Check for fcntl.h
1629 $ WS "#include <stdlib.h>
1631 $ WS "#include <stdio.h>
1632 $ WS "#include <unistd.h>
1633 $ WS "#include <fcntl.h>
1639 $ DEFINE SYS$ERROR _NLA0:
1640 $ DEFINE SYS$OUTPUT _NLA0:
1641 $ on error then continue
1642 $ on warning then continue
1644 $ savedstatus = $status
1645 $ teststatus = f$extract(9,1,savedstatus)
1646 $ if (teststatus.nes."1")
1648 $ perl_i_fcntl="undef"
1649 $ DEASSIGN SYS$OUTPUT
1650 $ DEASSIGN SYS$ERROR
1652 $ If (Needs_Opt.eqs."Yes")
1654 $ link temp.obj,temp.opt/opt
1658 $ savedstatus = $status
1659 $ teststatus = f$extract(9,1,savedstatus)
1660 $ DEASSIGN SYS$OUTPUT
1661 $ DEASSIGN SYS$ERROR
1662 $ if (teststatus.nes."1")
1664 $ perl_i_fcntl="undef"
1666 $ perl_i_fcntl="define"
1669 $ WRITE_RESULT "i_fcntl is ''perl_i_fcntl'"
1675 $ WS "#include <stdlib.h>
1677 $ WS "#include <stdio.h>
1678 $ WS "#include <unistd.h>
1679 $ WS "#include <fcntl.h>
1686 $ DEFINE SYS$ERROR _NLA0:
1687 $ DEFINE SYS$OUTPUT _NLA0:
1688 $ on error then continue
1689 $ on warning then continue
1691 $ savedstatus = $status
1692 $ teststatus = f$extract(9,1,savedstatus)
1693 $ if (teststatus.nes."1")
1695 $ perl_d_fcntl="undef"
1696 $ DEASSIGN SYS$OUTPUT
1697 $ DEASSIGN SYS$ERROR
1699 $ If (Needs_Opt.eqs."Yes")
1701 $ link temp.obj,temp.opt/opt
1705 $ savedstatus = $status
1706 $ teststatus = f$extract(9,1,savedstatus)
1707 $ DEASSIGN SYS$OUTPUT
1708 $ DEASSIGN SYS$ERROR
1709 $ if (teststatus.nes."1")
1711 $ perl_d_fcntl="undef"
1713 $ perl_d_fcntl="define"
1716 $ WRITE_RESULT "d_fcntl is ''perl_d_fcntl'"
1722 $ WS "#include <stdlib.h>
1724 $ WS "#include <string.h>
1728 $ WS "place = memchr(""foo"", 47, 3)
1732 $ DEFINE SYS$ERROR _NLA0:
1733 $ DEFINE SYS$OUTPUT _NLA0:
1734 $ on error then continue
1735 $ on warning then continue
1737 $ savedstatus = $status
1738 $ teststatus = f$extract(9,1,savedstatus)
1739 $ if (teststatus.nes."1")
1741 $ perl_d_memchr="undef"
1742 $ DEASSIGN SYS$OUTPUT
1743 $ DEASSIGN SYS$ERROR
1745 $ If (Needs_Opt.eqs."Yes")
1747 $ link temp.obj,temp.opt/opt
1751 $ savedstatus = $status
1752 $ teststatus = f$extract(9,1,savedstatus)
1753 $ DEASSIGN SYS$OUTPUT
1754 $ DEASSIGN SYS$ERROR
1755 $ if (teststatus.nes."1")
1757 $ perl_d_memchr="undef"
1759 $ perl_d_memchr="define"
1762 $ WRITE_RESULT "d_memchr is ''perl_d_memchr'"
1764 $! Check for strtoull
1768 $ WS "#include <stdlib.h>
1770 $ WS "#include <string.h>
1773 $ WS "unsigned __int64 result;
1774 $ WS "result = strtoull(""123123"", NULL, 10);
1778 $ DEFINE SYS$ERROR _NLA0:
1779 $ DEFINE SYS$OUTPUT _NLA0:
1780 $ on error then continue
1781 $ on warning then continue
1783 $ savedstatus = $status
1784 $ teststatus = f$extract(9,1,savedstatus)
1785 $ if (teststatus.nes."1")
1787 $ perl_d_strtoull="undef"
1788 $ DEASSIGN SYS$OUTPUT
1789 $ DEASSIGN SYS$ERROR
1791 $ If (Needs_Opt.eqs."Yes")
1793 $ link temp.obj,temp.opt/opt
1797 $ savedstatus = $status
1798 $ teststatus = f$extract(9,1,savedstatus)
1799 $ DEASSIGN SYS$OUTPUT
1800 $ DEASSIGN SYS$ERROR
1801 $ if (teststatus.nes."1")
1803 $ perl_d_strtoull="undef"
1805 $ perl_d_strtoull="define"
1808 $ WRITE_RESULT "d_strtoull is ''perl_d_strtoull'"
1810 $! Check for strtouq
1814 $ WS "#include <stdlib.h>
1816 $ WS "#include <string.h>
1819 $ WS "unsigned __int64 result;
1820 $ WS "result = strtouq(""123123"", NULL, 10);
1824 $ DEFINE SYS$ERROR _NLA0:
1825 $ DEFINE SYS$OUTPUT _NLA0:
1826 $ on error then continue
1827 $ on warning then continue
1829 $ savedstatus = $status
1830 $ teststatus = f$extract(9,1,savedstatus)
1831 $ if (teststatus.nes."1")
1833 $ perl_d_strtouq="undef"
1834 $ DEASSIGN SYS$OUTPUT
1835 $ DEASSIGN SYS$ERROR
1837 $ If (Needs_Opt.eqs."Yes")
1839 $ link temp.obj,temp.opt/opt
1843 $ savedstatus = $status
1844 $ teststatus = f$extract(9,1,savedstatus)
1845 $ DEASSIGN SYS$OUTPUT
1846 $ DEASSIGN SYS$ERROR
1847 $ if (teststatus.nes."1")
1849 $ perl_d_strtouq="undef"
1851 $ perl_d_strtouq="define"
1854 $ WRITE_RESULT "d_strtouq is ''perl_d_strtouq'"
1856 $! Check for strtoll
1860 $ WS "#include <stdlib.h>
1862 $ WS "#include <string.h>
1865 $ WS "__int64 result;
1866 $ WS "result = strtoll(""123123"", NULL, 10);
1870 $ DEFINE SYS$ERROR _NLA0:
1871 $ DEFINE SYS$OUTPUT _NLA0:
1872 $ on error then continue
1873 $ on warning then continue
1875 $ savedstatus = $status
1876 $ teststatus = f$extract(9,1,savedstatus)
1877 $ if (teststatus.nes."1")
1879 $ perl_d_strtoll="undef"
1880 $ DEASSIGN SYS$OUTPUT
1881 $ DEASSIGN SYS$ERROR
1883 $ If (Needs_Opt.eqs."Yes")
1885 $ link temp.obj,temp.opt/opt
1889 $ savedstatus = $status
1890 $ teststatus = f$extract(9,1,savedstatus)
1891 $ DEASSIGN SYS$OUTPUT
1892 $ DEASSIGN SYS$ERROR
1893 $ if (teststatus.nes."1")
1895 $ perl_d_strtoll="undef"
1897 $ perl_d_strtoll="define"
1900 $ WRITE_RESULT "d_strtoll is ''perl_d_strtoll'"
1902 $! Check for strtold
1906 $ WS "#include <stdlib.h>
1908 $ WS "#include <string.h>
1911 $ WS "long double result;
1912 $ WS "result = strtold(""123123"", NULL, 10);
1916 $ DEFINE SYS$ERROR _NLA0:
1917 $ DEFINE SYS$OUTPUT _NLA0:
1918 $ on error then continue
1919 $ on warning then continue
1921 $ savedstatus = $status
1922 $ teststatus = f$extract(9,1,savedstatus)
1923 $ if (teststatus.nes."1")
1925 $ perl_d_strtold="undef"
1926 $ DEASSIGN SYS$OUTPUT
1927 $ DEASSIGN SYS$ERROR
1929 $ If (Needs_Opt.eqs."Yes")
1931 $ link temp.obj,temp.opt/opt
1935 $ savedstatus = $status
1936 $ teststatus = f$extract(9,1,savedstatus)
1937 $ DEASSIGN SYS$OUTPUT
1938 $ DEASSIGN SYS$ERROR
1939 $ if (teststatus.nes."1")
1941 $ perl_d_strtold="undef"
1943 $ perl_d_strtold="define"
1946 $ WRITE_RESULT "d_strtold is ''perl_d_strtold'"
1952 $ WS "#include <stdlib.h>
1954 $ WS "#include <string.h>
1957 $ WS " __int64 result;
1958 $ WS "result = atoll(""123123"");
1962 $ DEFINE SYS$ERROR _NLA0:
1963 $ DEFINE SYS$OUTPUT _NLA0:
1964 $ on error then continue
1965 $ on warning then continue
1967 $ savedstatus = $status
1968 $ teststatus = f$extract(9,1,savedstatus)
1969 $ if (teststatus.nes."1")
1971 $ perl_d_atoll="undef"
1972 $ DEASSIGN SYS$OUTPUT
1973 $ DEASSIGN SYS$ERROR
1975 $ If (Needs_Opt.eqs."Yes")
1977 $ link temp.obj,temp.opt/opt
1981 $ savedstatus = $status
1982 $ teststatus = f$extract(9,1,savedstatus)
1983 $ DEASSIGN SYS$OUTPUT
1984 $ DEASSIGN SYS$ERROR
1985 $ if (teststatus.nes."1")
1987 $ perl_d_atoll="undef"
1989 $ perl_d_atoll="define"
1992 $ WRITE_RESULT "d_atoll is ''perl_d_atoll'"
1998 $ WS "#include <stdlib.h>
2000 $ WS "#include <string.h>
2004 $ WS "result = atolf(""123123"");
2008 $ DEFINE SYS$ERROR _NLA0:
2009 $ DEFINE SYS$OUTPUT _NLA0:
2010 $ on error then continue
2011 $ on warning then continue
2013 $ savedstatus = $status
2014 $ teststatus = f$extract(9,1,savedstatus)
2015 $ if (teststatus.nes."1")
2017 $ perl_d_atolf="undef"
2018 $ DEASSIGN SYS$OUTPUT
2019 $ DEASSIGN SYS$ERROR
2021 $ If (Needs_Opt.eqs."Yes")
2023 $ link temp.obj,temp.opt/opt
2027 $ savedstatus = $status
2028 $ teststatus = f$extract(9,1,savedstatus)
2029 $ DEASSIGN SYS$OUTPUT
2030 $ DEASSIGN SYS$ERROR
2031 $ if (teststatus.nes."1")
2033 $ perl_d_atolf="undef"
2035 $ perl_d_atolf="define"
2038 $ WRITE_RESULT "d_atolf is ''perl_d_atolf'"
2044 $ WS "#include <stdlib.h>
2046 $ WS "#include <stdio.h>
2047 $ WS "#include <unistd.h>
2050 $ WS "access("foo", F_OK);
2054 $ DEFINE SYS$ERROR _NLA0:
2055 $ DEFINE SYS$OUTPUT _NLA0:
2056 $ on error then continue
2057 $ on warning then continue
2059 $ savedstatus = $status
2060 $ teststatus = f$extract(9,1,savedstatus)
2061 $ if (teststatus.nes."1")
2063 $ perl_d_access="undef"
2064 $ DEASSIGN SYS$OUTPUT
2065 $ DEASSIGN SYS$ERROR
2067 $ If (Needs_Opt.eqs."Yes")
2069 $ link temp.obj,temp.opt/opt
2073 $ savedstatus = $status
2074 $ teststatus = f$extract(9,1,savedstatus)
2075 $ DEASSIGN SYS$OUTPUT
2076 $ DEASSIGN SYS$ERROR
2077 $ if (teststatus.nes."1")
2079 $ perl_d_access="undef"
2081 $ perl_d_access="define"
2084 $ WRITE_RESULT "d_access is ''perl_d_access'"
2090 $ WS "#include <stdlib.h>
2092 $ WS "#include <stdio.h>
2093 $ WS "#include <strings.h>
2097 $ WS "bzero(foo, 10);
2101 $ DEFINE SYS$ERROR _NLA0:
2102 $ DEFINE SYS$OUTPUT _NLA0:
2103 $ on error then continue
2104 $ on warning then continue
2106 $ savedstatus = $status
2107 $ teststatus = f$extract(9,1,savedstatus)
2108 $ if (teststatus.nes."1")
2110 $ perl_d_bzero="undef"
2111 $ DEASSIGN SYS$OUTPUT
2112 $ DEASSIGN SYS$ERROR
2114 $ If (Needs_Opt.eqs."Yes")
2116 $ link temp.obj,temp.opt/opt
2120 $ savedstatus = $status
2121 $ teststatus = f$extract(9,1,savedstatus)
2122 $ DEASSIGN SYS$OUTPUT
2123 $ DEASSIGN SYS$ERROR
2124 $ if (teststatus.nes."1")
2126 $ perl_d_bzero="undef"
2128 $ perl_d_bzero="define"
2131 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
2137 $ WS "#include <stdlib.h>
2139 $ WS "#include <stdio.h>
2140 $ WS "#include <strings.h>
2143 $ WS "char foo[10], bar[10];
2144 $ WS "bcopy(""foo"", bar, 3);
2148 $ DEFINE SYS$ERROR _NLA0:
2149 $ DEFINE SYS$OUTPUT _NLA0:
2150 $ on error then continue
2151 $ on warning then continue
2153 $ savedstatus = $status
2154 $ teststatus = f$extract(9,1,savedstatus)
2155 $ if (teststatus.nes."1")
2157 $ perl_d_bcopy="undef"
2158 $ DEASSIGN SYS$OUTPUT
2159 $ DEASSIGN SYS$ERROR
2161 $ If (Needs_Opt.eqs."Yes")
2163 $ link temp.obj,temp.opt/opt
2167 $ savedstatus = $status
2168 $ teststatus = f$extract(9,1,savedstatus)
2169 $ DEASSIGN SYS$OUTPUT
2170 $ DEASSIGN SYS$ERROR
2171 $ if (teststatus.nes."1")
2173 $ perl_d_bcopy="undef"
2175 $ perl_d_bcopy="define"
2178 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
2180 $! Check for mkstemp
2184 $ WS "#include <stdlib.h>
2186 $ WS "#include <stdio.h>
2189 $ WS "mkstemp(""foo"");
2193 $ DEFINE SYS$ERROR _NLA0:
2194 $ DEFINE SYS$OUTPUT _NLA0:
2195 $ on error then continue
2196 $ on warning then continue
2198 $ If (Needs_Opt.eqs."Yes")
2200 $ link temp.obj,temp.opt/opt
2204 $ savedstatus = $status
2205 $ teststatus = f$extract(9,1,savedstatus)
2206 $ DEASSIGN SYS$OUTPUT
2207 $ DEASSIGN SYS$ERROR
2208 $ if (teststatus.nes."1")
2210 $ perl_d_mkstemp="undef"
2212 $ perl_d_mkstemp="define"
2214 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
2216 $! Check for mkstemps
2220 $ WS "#include <stdlib.h>
2222 $ WS "#include <stdio.h>
2225 $ WS "mkstemps(""foo"", 1);
2229 $ DEFINE SYS$ERROR _NLA0:
2230 $ DEFINE SYS$OUTPUT _NLA0:
2231 $ on error then continue
2232 $ on warning then continue
2234 $ If (Needs_Opt.eqs."Yes")
2236 $ link temp.obj,temp.opt/opt
2240 $ savedstatus = $status
2241 $ teststatus = f$extract(9,1,savedstatus)
2242 $ DEASSIGN SYS$OUTPUT
2243 $ DEASSIGN SYS$ERROR
2244 $ if (teststatus.nes."1")
2246 $ perl_d_mkstemps="undef"
2248 $ perl_d_mkstemps="define"
2250 $ WRITE_RESULT "d_mkstemps is ''perl_d_mkstemps'"
2256 $ WS "#include <stdlib.h>
2258 $ WS "#include <stdio.h>
2259 $ WS "#include <iconv.h>
2262 $ WS " iconv_t cd = (iconv_t)0;"
2263 $ WS " char *inbuf, *outbuf;"
2264 $ WS " size_t inleft, outleft;"
2265 $ WS " iconv(cd, &inbuf, &inleft, &outbuf, &outleft);"
2269 $ DEFINE SYS$ERROR _NLA0:
2270 $ DEFINE SYS$OUTPUT _NLA0:
2271 $ on error then continue
2272 $ on warning then continue
2274 $ savedstatus = $status
2275 $ teststatus = f$extract(9,1,savedstatus)
2276 $ if (teststatus.nes."1")
2278 $ perl_d_iconv="undef"
2279 $ perl_i_iconv="undef"
2280 $ DEASSIGN SYS$OUTPUT
2281 $ DEASSIGN SYS$ERROR
2283 $ If (Needs_Opt.eqs."Yes")
2285 $ link temp.obj,temp.opt/opt
2289 $ savedstatus = $status
2290 $ teststatus = f$extract(9,1,savedstatus)
2291 $ DEASSIGN SYS$OUTPUT
2292 $ DEASSIGN SYS$ERROR
2293 $ if (teststatus.nes."1")
2295 $ perl_d_iconv="undef"
2296 $ perl_i_iconv="undef"
2298 $ perl_d_iconv="define"
2299 $ perl_i_iconv="define"
2302 $ WRITE_RESULT "d_iconv is ''perl_d_iconv'"
2303 $ WRITE_RESULT "i_iconv is ''perl_i_iconv'"
2305 $! Check for mkdtemp
2309 $ WS "#include <stdlib.h>
2311 $ WS "#include <stdio.h>
2314 $ WS "mkdtemp(""foo"");
2318 $ DEFINE SYS$ERROR _NLA0:
2319 $ DEFINE SYS$OUTPUT _NLA0:
2320 $ on error then continue
2321 $ on warning then continue
2323 $ If (Needs_Opt.eqs."Yes")
2325 $ link temp.obj,temp.opt/opt
2329 $ savedstatus = $status
2330 $ teststatus = f$extract(9,1,savedstatus)
2331 $ DEASSIGN SYS$OUTPUT
2332 $ DEASSIGN SYS$ERROR
2333 $ if (teststatus.nes."1")
2335 $ perl_d_mkdtemp="undef"
2337 $ perl_d_mkdtemp="define"
2339 $ WRITE_RESULT "d_mkdtemp is ''perl_d_mkdtemp'"
2341 $! Check for setvbuf
2345 $ WS "#include <stdlib.h>
2347 $ WS "#include <stdio.h>
2351 $ WS "char Buffer[99];
2352 $ WS "foo = fopen(""foo"", ""r"");
2353 $ WS "setvbuf(foo, Buffer, 0, 0);
2357 $ DEFINE SYS$ERROR _NLA0:
2358 $ DEFINE SYS$OUTPUT _NLA0:
2359 $ on error then continue
2360 $ on warning then continue
2362 $ If (Needs_Opt.eqs."Yes")
2364 $ link temp.obj,temp.opt/opt
2368 $ teststatus = f$extract(9,1,$status)
2369 $ DEASSIGN SYS$OUTPUT
2370 $ DEASSIGN SYS$ERROR
2371 $ if (teststatus.nes."1")
2373 $ perl_d_setvbuf="undef"
2375 $ perl_d_setvbuf="define"
2377 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
2383 $ WS "#include <stdlib.h>
2385 $ WS "#include <stdio.h>
2388 $ WS "setenv(""FOO"", ""BAR"", 0);
2392 $ DEFINE SYS$ERROR _NLA0:
2393 $ DEFINE SYS$OUTPUT _NLA0:
2394 $ on error then continue
2395 $ on warning then continue
2397 $ If (Needs_Opt.eqs."Yes")
2399 $ link temp,temp/opt
2403 $ teststatus = f$extract(9,1,$status)
2404 $ DEASSIGN SYS$OUTPUT
2405 $ DEASSIGN SYS$ERROR
2406 $ if (teststatus.nes."1")
2408 $ perl_d_setenv="undef"
2410 $ perl_d_setenv="define"
2412 $ WRITE_RESULT "d_setenv is ''perl_d_setenv'"
2414 $! Check for <netinet/in.h>
2416 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2420 $ WS "#include <stdlib.h>
2422 $ WS "#include <stdio.h>
2423 $ if ("''Has_Socketshr'".eqs."T")
2425 $ WS "#include <socketshr.h>"
2427 $ WS "#include <netdb.h>
2429 $ WS "#include <netinet/in.h>"
2435 $ DEFINE SYS$ERROR _NLA0:
2436 $ DEFINE SYS$OUTPUT _NLA0:
2437 $ on error then continue
2438 $ on warning then continue
2440 $ If (Needs_Opt.eqs."Yes")
2442 $ link temp.obj,temp.opt/opt
2446 $ teststatus = f$extract(9,1,$status)
2447 $ DEASSIGN SYS$OUTPUT
2448 $ DEASSIGN SYS$ERROR
2449 $ if (teststatus.nes."1")
2451 $ perl_i_niin="undef"
2453 $ perl_i_niin="define"
2456 $ perl_i_niin="undef"
2458 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
2460 $! Check for <netinet/tcp.h>
2462 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2466 $ WS "#include <stdlib.h>
2468 $ WS "#include <stdio.h>
2469 $ if ("''Has_Socketshr'".eqs."T")
2471 $ WS "#include <socketshr.h>"
2473 $ WS "#include <netdb.h>
2475 $ WS "#include <netinet/tcp.h>"
2481 $ DEFINE SYS$ERROR _NLA0:
2482 $ DEFINE SYS$OUTPUT _NLA0:
2483 $ on error then continue
2484 $ on warning then continue
2486 $ If (Needs_Opt.eqs."Yes")
2488 $ link temp.obj,temp.opt/opt
2492 $ teststatus = f$extract(9,1,$status)
2493 $ DEASSIGN SYS$OUTPUT
2494 $ DEASSIGN SYS$ERROR
2495 $ if (teststatus.nes."1")
2497 $ perl_i_netinettcp="undef"
2499 $ perl_i_netinettcp="define"
2502 $ perl_i_netinettcp="undef"
2504 $ WRITE_RESULT "i_netinettcp is ''perl_i_netinettcp'"
2506 $! Check for endhostent
2508 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2512 $ WS "#include <stdlib.h>
2514 $ WS "#include <stdio.h>
2515 $ if ("''Has_Socketshr'".eqs."T")
2517 $ WS "#include <socketshr.h>"
2519 $ WS "#include <netdb.h>
2527 $ DEFINE SYS$ERROR _NLA0:
2528 $ DEFINE SYS$OUTPUT _NLA0:
2529 $ on error then continue
2530 $ on warning then continue
2532 $ If (Needs_Opt.eqs."Yes")
2534 $ link temp.obj,temp.opt/opt
2538 $ teststatus = f$extract(9,1,$status)
2539 $ DEASSIGN SYS$OUTPUT
2540 $ DEASSIGN SYS$ERROR
2541 $ if (teststatus.nes."1")
2543 $ perl_d_endhent="undef"
2545 $ perl_d_endhent="define"
2548 $ perl_d_endhent="undef"
2550 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
2552 $! Check for endnetent
2554 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2558 $ WS "#include <stdlib.h>
2560 $ WS "#include <stdio.h>
2561 $ if ("''Has_Socketshr'".eqs."T")
2563 $ WS "#include <socketshr.h>"
2565 $ WS "#include <netdb.h>
2573 $ DEFINE SYS$ERROR _NLA0:
2574 $ DEFINE SYS$OUTPUT _NLA0:
2575 $ on error then continue
2576 $ on warning then continue
2578 $ If (Needs_Opt.eqs."Yes")
2580 $ link temp.obj,temp.opt/opt
2584 $ teststatus = f$extract(9,1,$status)
2585 $ DEASSIGN SYS$OUTPUT
2586 $ DEASSIGN SYS$ERROR
2587 $ if (teststatus.nes."1")
2589 $ perl_d_endnent="undef"
2591 $ perl_d_endnent="define"
2594 $ perl_d_endnent="undef"
2596 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
2598 $! Check for endprotoent
2600 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2604 $ WS "#include <stdlib.h>
2606 $ WS "#include <stdio.h>
2607 $ if ("''Has_Socketshr'".eqs."T")
2609 $ WS "#include <socketshr.h>"
2611 $ WS "#include <netdb.h>
2615 $ WS "endprotoent();
2619 $ DEFINE SYS$ERROR _NLA0:
2620 $ DEFINE SYS$OUTPUT _NLA0:
2621 $ on error then continue
2622 $ on warning then continue
2624 $ If (Needs_Opt.eqs."Yes")
2626 $ link temp.obj,temp.opt/opt
2630 $ teststatus = f$extract(9,1,$status)
2631 $ DEASSIGN SYS$OUTPUT
2632 $ DEASSIGN SYS$ERROR
2633 $ if (teststatus.nes."1")
2635 $ perl_d_endpent="undef"
2637 $ perl_d_endpent="define"
2640 $ perl_d_endpent="undef"
2642 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
2644 $! Check for endservent
2646 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2650 $ WS "#include <stdlib.h>
2652 $ WS "#include <stdio.h>
2653 $ if ("''Has_Socketshr'".eqs."T")
2655 $ WS "#include <socketshr.h>"
2657 $ WS "#include <netdb.h>
2665 $ DEFINE SYS$ERROR _NLA0:
2666 $ DEFINE SYS$OUTPUT _NLA0:
2667 $ on error then continue
2668 $ on warning then continue
2670 $ If (Needs_Opt.eqs."Yes")
2672 $ link temp.obj,temp.opt/opt
2676 $ teststatus = f$extract(9,1,$status)
2677 $ DEASSIGN SYS$OUTPUT
2678 $ DEASSIGN SYS$ERROR
2679 $ if (teststatus.nes."1")
2681 $ perl_d_endsent="undef"
2683 $ perl_d_endsent="define"
2686 $ perl_d_endsent="undef"
2688 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
2690 $! Check for sethostent
2692 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2696 $ WS "#include <stdlib.h>
2698 $ WS "#include <stdio.h>
2699 $ if ("''Has_Socketshr'".eqs."T")
2701 $ WS "#include <socketshr.h>"
2703 $ WS "#include <netdb.h>
2707 $ WS "sethostent(1);
2711 $ DEFINE SYS$ERROR _NLA0:
2712 $ DEFINE SYS$OUTPUT _NLA0:
2713 $ on error then continue
2714 $ on warning then continue
2716 $ If (Needs_Opt.eqs."Yes")
2718 $ link temp.obj,temp.opt/opt
2722 $ teststatus = f$extract(9,1,$status)
2723 $ DEASSIGN SYS$OUTPUT
2724 $ DEASSIGN SYS$ERROR
2725 $ if (teststatus.nes."1")
2727 $ perl_d_sethent="undef"
2729 $ perl_d_sethent="define"
2732 $ perl_d_sethent="undef"
2734 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
2736 $! Check for setnetent
2738 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2742 $ WS "#include <stdlib.h>
2744 $ WS "#include <stdio.h>
2745 $ if ("''Has_Socketshr'".eqs."T")
2747 $ WS "#include <socketshr.h>"
2749 $ WS "#include <netdb.h>
2757 $ DEFINE SYS$ERROR _NLA0:
2758 $ DEFINE SYS$OUTPUT _NLA0:
2759 $ on error then continue
2760 $ on warning then continue
2762 $ If (Needs_Opt.eqs."Yes")
2764 $ link temp.obj,temp.opt/opt
2768 $ teststatus = f$extract(9,1,$status)
2769 $ DEASSIGN SYS$OUTPUT
2770 $ DEASSIGN SYS$ERROR
2771 $ if (teststatus.nes."1")
2773 $ perl_d_setnent="undef"
2775 $ perl_d_setnent="define"
2778 $ perl_d_setnent="undef"
2780 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
2782 $! Check for setprotoent
2784 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2788 $ WS "#include <stdlib.h>
2790 $ WS "#include <stdio.h>
2791 $ if ("''Has_Socketshr'".eqs."T")
2793 $ WS "#include <socketshr.h>"
2795 $ WS "#include <netdb.h>
2799 $ WS "setprotoent(1);
2803 $ DEFINE SYS$ERROR _NLA0:
2804 $ DEFINE SYS$OUTPUT _NLA0:
2805 $ on error then continue
2806 $ on warning then continue
2808 $ If (Needs_Opt.eqs."Yes")
2810 $ link temp.obj,temp.opt/opt
2814 $ teststatus = f$extract(9,1,$status)
2815 $ DEASSIGN SYS$OUTPUT
2816 $ DEASSIGN SYS$ERROR
2817 $ if (teststatus.nes."1")
2819 $ perl_d_setpent="undef"
2821 $ perl_d_setpent="define"
2824 $ perl_d_setpent="undef"
2826 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
2828 $! Check for setservent
2830 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2834 $ WS "#include <stdlib.h>
2836 $ WS "#include <stdio.h>
2837 $ if ("''Has_Socketshr'".eqs."T")
2839 $ WS "#include <socketshr.h>"
2841 $ WS "#include <netdb.h>
2845 $ WS "setservent(1);
2849 $ DEFINE SYS$ERROR _NLA0:
2850 $ DEFINE SYS$OUTPUT _NLA0:
2851 $ on error then continue
2852 $ on warning then continue
2854 $ If (Needs_Opt.eqs."Yes")
2856 $ link temp.obj,temp.opt/opt
2860 $ teststatus = f$extract(9,1,$status)
2861 $ DEASSIGN SYS$OUTPUT
2862 $ DEASSIGN SYS$ERROR
2863 $ if (teststatus.nes."1")
2865 $ perl_d_setsent="undef"
2867 $ perl_d_setsent="define"
2870 $ perl_d_setsent="undef"
2872 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
2874 $! Check for gethostent
2876 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2880 $ WS "#include <stdlib.h>
2882 $ WS "#include <stdio.h>
2883 $ if ("''Has_Socketshr'".eqs."T")
2885 $ WS "#include <socketshr.h>"
2887 $ WS "#include <netdb.h>
2895 $ DEFINE SYS$ERROR _NLA0:
2896 $ DEFINE SYS$OUTPUT _NLA0:
2897 $ on error then continue
2898 $ on warning then continue
2900 $ If (Needs_Opt.eqs."Yes")
2902 $ link temp.obj,temp.opt/opt
2906 $ teststatus = f$extract(9,1,$status)
2907 $ DEASSIGN SYS$OUTPUT
2908 $ DEASSIGN SYS$ERROR
2909 $ if (teststatus.nes."1")
2911 $ perl_d_gethent="undef"
2913 $ perl_d_gethent="define"
2916 $ perl_d_gethent="undef"
2918 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
2920 $! Check for getnetent
2922 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2926 $ WS "#include <stdlib.h>
2928 $ WS "#include <stdio.h>
2929 $ if ("''Has_Socketshr'".eqs."T")
2931 $ WS "#include <socketshr.h>"
2933 $ WS "#include <netdb.h>
2941 $ DEFINE SYS$ERROR _NLA0:
2942 $ DEFINE SYS$OUTPUT _NLA0:
2943 $ on error then continue
2944 $ on warning then continue
2946 $ If (Needs_Opt.eqs."Yes")
2948 $ link temp.obj,temp.opt/opt
2952 $ teststatus = f$extract(9,1,$status)
2953 $ DEASSIGN SYS$OUTPUT
2954 $ DEASSIGN SYS$ERROR
2955 $ if (teststatus.nes."1")
2957 $ perl_d_getnent="undef"
2959 $ perl_d_getnent="define"
2962 $ perl_d_getnent="undef"
2964 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
2966 $! Check for getprotoent
2968 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2972 $ WS "#include <stdlib.h>
2974 $ WS "#include <stdio.h>
2975 $ if ("''Has_Socketshr'".eqs."T")
2977 $ WS "#include <socketshr.h>"
2979 $ WS "#include <netdb.h>
2983 $ WS "getprotoent();
2987 $ DEFINE SYS$ERROR _NLA0:
2988 $ DEFINE SYS$OUTPUT _NLA0:
2989 $ on error then continue
2990 $ on warning then continue
2992 $ If (Needs_Opt.eqs."Yes")
2994 $ link temp.obj,temp.opt/opt
2998 $ teststatus = f$extract(9,1,$status)
2999 $ DEASSIGN SYS$OUTPUT
3000 $ DEASSIGN SYS$ERROR
3001 $ if (teststatus.nes."1")
3003 $ perl_d_getpent="undef"
3005 $ perl_d_getpent="define"
3008 $ perl_d_getpent="undef"
3010 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
3012 $! Check for getservent
3014 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
3018 $ WS "#include <stdlib.h>
3020 $ WS "#include <stdio.h>
3021 $ if ("''Has_Socketshr'".eqs."T")
3023 $ WS "#include <socketshr.h>"
3025 $ WS "#include <netdb.h>
3033 $ DEFINE SYS$ERROR _NLA0:
3034 $ DEFINE SYS$OUTPUT _NLA0:
3035 $ on error then continue
3036 $ on warning then continue
3038 $ If (Needs_Opt.eqs."Yes")
3040 $ link temp.obj,temp.opt/opt
3044 $ teststatus = f$extract(9,1,$status)
3045 $ DEASSIGN SYS$OUTPUT
3046 $ DEASSIGN SYS$ERROR
3047 $ if (teststatus.nes."1")
3049 $ perl_d_getsent="undef"
3051 $ perl_d_getsent="define"
3054 $ perl_d_getsent="undef"
3056 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
3058 $! Check for socklen_t
3060 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
3064 $ WS "#include <stdlib.h>
3066 $ WS "#include <stdio.h>
3067 $ IF ("''Has_Socketshr'".eqs."T")
3069 $ WS "#include <socketshr.h>"
3071 $ WS "#include <netdb.h>
3075 $ WS "socklen_t x = 16;
3079 $ DEFINE SYS$ERROR _NLA0:
3080 $ DEFINE SYS$OUTPUT _NLA0:
3081 $ on error then continue
3082 $ on warning then continue
3084 $ If (Needs_Opt.eqs."Yes")
3086 $ link temp.obj,temp.opt/opt
3090 $ teststatus = f$extract(9,1,$status)
3091 $ DEASSIGN SYS$OUTPUT
3092 $ DEASSIGN SYS$ERROR
3093 $ if (teststatus.nes."1")
3095 $ perl_d_socklen_t="undef"
3097 $ perl_d_socklen_t="define"
3100 $ perl_d_socklen_t="undef"
3102 $ WRITE_RESULT "d_socklen_t is ''perl_d_socklen_t'"
3104 $! Check for pthread_yield
3106 $ if ("''use_threads'".eqs."T")
3110 $ WS "#include <stdlib.h>
3112 $ WS "#include <pthread.h>
3113 $ WS "#include <stdio.h>
3116 $ WS "pthread_yield();
3120 $ DEFINE SYS$ERROR _NLA0:
3121 $ DEFINE SYS$OUTPUT _NLA0:
3122 $ on error then continue
3123 $ on warning then continue
3125 $ teststatus = f$extract(9,1,$status)
3126 $ DEASSIGN SYS$OUTPUT
3127 $ DEASSIGN SYS$ERROR
3128 $ if (teststatus.nes."1")
3130 $ perl_d_pthread_yield="undef"
3132 $ perl_d_pthread_yield="define"
3135 $ perl_d_pthread_yield="undef"
3137 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
3139 $! Check for sched_yield
3141 $ if ("''use_threads'".eqs."T")
3145 $ WS "#include <stdlib.h>
3147 $ WS "#include <pthread.h>
3148 $ WS "#include <stdio.h>
3151 $ WS "sched_yield();
3155 $ DEFINE SYS$ERROR _NLA0:
3156 $ DEFINE SYS$OUTPUT _NLA0:
3157 $ on error then continue
3158 $ on warning then continue
3160 $ teststatus = f$extract(9,1,$status)
3161 $ DEASSIGN SYS$OUTPUT
3162 $ DEASSIGN SYS$ERROR
3163 $ if (teststatus.nes."1")
3165 $ perl_d_sched_yield="undef"
3166 $ perl_sched_yield = " "
3168 $ perl_d_sched_yield="define"
3169 $ perl_sched_yield = "sched_yield"
3172 $ perl_d_sched_yield="undef"
3173 $ perl_sched_yield = " "
3175 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
3176 $ WRITE_RESULT "sched_yield is ''perl_sched_yield'"
3178 $! Check for generic pointer size
3182 $ WS "#include <stdlib.h>
3184 $ WS "#include <stdio.h>
3188 $ WS "foo = sizeof(char *);
3189 $ WS "printf(""%d\n"", foo);
3193 $ DEFINE SYS$ERROR _NLA0:
3194 $ DEFINE SYS$OUTPUT _NLA0:
3195 $ ON ERROR THEN CONTINUE
3196 $ ON WARNING THEN CONTINUE
3198 $ If (Needs_Opt.eqs."Yes")
3200 $ link temp.obj,temp.opt/opt
3204 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3205 $ DEASSIGN SYS$OUTPUT
3206 $ DEASSIGN SYS$ERROR
3207 $ DEFINE SYS$ERROR TEMPOUT
3208 $ DEFINE SYS$OUTPUT TEMPOUT
3211 $ DEASSIGN SYS$OUTPUT
3212 $ DEASSIGN SYS$ERROR
3213 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3216 $ DELETE/NOLOG [-.uu]tempout.lis;
3219 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
3221 $! Check rand48 and its ilk
3225 $ WS "#include <stdlib.h>
3227 $ WS "#include <stdio.h>
3230 $ WS "srand48(12L);"
3235 $ DEFINE SYS$ERROR _NLA0:
3236 $ DEFINE SYS$OUTPUT _NLA0:
3237 $ ON ERROR THEN CONTINUE
3238 $ ON WARNING THEN CONTINUE
3240 $ If (Needs_Opt.eqs."Yes")
3242 $ link temp,temp.opt/opt
3246 $ teststatus = f$extract(9,1,$status)
3247 $ DEASSIGN SYS$OUTPUT
3248 $ DEASSIGN SYS$ERROR
3249 $ if (teststatus.nes."1")
3251 $ perl_drand01="random()"
3252 $ perl_randseedtype = "unsigned"
3253 $ perl_seedfunc = "srandom"
3257 $ WS "#include <stdlib.h>
3259 $ WS "#include <stdio.h>
3266 $! copy temp.c sys$output
3268 $ DEFINE SYS$ERROR _NLA0:
3269 $ DEFINE SYS$OUTPUT _NLA0:
3270 $ ON ERROR THEN CONTINUE
3271 $ ON WARNING THEN CONTINUE
3273 $ If (Needs_Opt.eqs."Yes")
3275 $ link temp,temp.opt/opt
3279 $ teststatus = f$extract(9,1,$status)
3280 $ DEASSIGN SYS$OUTPUT
3281 $ DEASSIGN SYS$ERROR
3282 $ if (teststatus.nes."1")
3284 $ perl_drand01="(((float)rand())/((float)RAND_MAX))"
3285 $ perl_randseedtype = "unsigned"
3286 $ perl_seedfunc = "srand"
3288 $ WRITE_RESULT "drand01 is ''perl_drand01'"
3291 $! Done with compiler checks. Clean up.
3292 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
3293 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
3294 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
3295 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
3298 $! Some that are compiler or VMS version sensitive
3301 $ IF "''Using_Gnu_C'".EQS."Yes"
3303 $ perl_d_attribut="define"
3304 $ perl_vms_cc_type="gcc"
3306 $ perl_vms_cc_type="cc"
3307 $ perl_d_attribut="undef"
3310 $! Dec C >= 5.2 and VMS ver >= 7.0
3311 $ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
3313 $ perl_d_bcmp="define"
3314 $ perl_d_gettimeod="define"
3315 $ perl_d_uname="define"
3316 $ perl_d_sigaction="define"
3317 $ perl_d_truncate="define"
3318 $ perl_d_wait4="define"
3319 $ perl_d_index="define"
3320 $ perl_pidtype="pid_t"
3321 $ 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"
3322 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3323 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
3324 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
3325 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
3326 $ 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"
3327 $ 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"
3328 $ perl_sig_num_with_commas=perl_sig_num_init
3329 $ perl_uidtype="uid_t"
3330 $ perl_d_pathconf="define"
3331 $ perl_d_fpathconf="define"
3332 $ perl_d_sysconf="define"
3333 $ perl_d_sigsetjmp="define"
3335 $ perl_pidtype="unsigned int"
3336 $ perl_d_gettimeod="undef"
3337 $ perl_d_bcmp="undef"
3338 $ perl_d_uname="undef"
3339 $ perl_d_sigaction="undef"
3340 $ perl_d_truncate="undef"
3341 $ perl_d_wait4="undef"
3342 $ perl_d_index="undef"
3343 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
3344 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3345 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
3346 $ perl_sig_name_with_commas = psnwc1 + psnwc2
3347 $ perl_sig_num="0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 6 16 17"",0"
3348 $ perl_sig_num_init="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
3349 $ perl_sig_num_with_commas=perl_sig_num_init
3350 $ perl_uidtype="unsigned int"
3351 $ perl_d_pathconf="undef"
3352 $ perl_d_fpathconf="undef"
3353 $ perl_d_sysconf="undef"
3354 $ perl_d_sigsetjmp="undef"
3358 $ IF ("''Using_Dec_C'".EQS."Yes")
3360 $ perl_d_mbstowcs="define"
3361 $ perl_d_mbtowc="define"
3362 $ perl_d_stdiobase="define"
3363 $ perl_d_stdio_ptr_lval="define"
3364 $ perl_d_stdio_cnt_lval="define"
3365 $ perl_d_stdstdio="define"
3366 $ perl_d_wcstombs="define"
3367 $ perl_d_mblen="define"
3368 $ perl_d_mktime="define"
3369 $ perl_d_strcoll="define"
3370 $ perl_d_strxfrm="define"
3371 $ perl_d_wctomb="define"
3372 $ perl_i_locale="define"
3373 $ perl_d_locconv="define"
3374 $ perl_d_setlocale="define"
3375 $ perl_vms_cc_type="decc"
3377 $ perl_d_mbstowcs="undef"
3378 $ perl_d_mbtowc="undef"
3379 $ perl_d_stdiobase="undef"
3380 $ perl_d_stdio_ptr_lval="undef"
3381 $ perl_d_stdio_cnt_lval="undef"
3382 $ perl_d_stdstdio="undef"
3383 $ perl_d_wcstombs="undef"
3384 $ perl_d_mblen="undef"
3385 $ perl_d_mktime="undef"
3386 $ perl_d_strcoll="undef"
3387 $ perl_d_strxfrm="undef"
3388 $ perl_d_wctomb="undef"
3389 $ perl_i_locale="undef"
3390 $ perl_d_locconv="undef"
3391 $ perl_d_setlocale="undef"
3395 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
3397 $ perl_d_vms_do_sockets="define"
3398 $ perl_d_htonl="define"
3399 $ perl_d_socket="define"
3400 $ perl_d_select="define"
3401 $ perl_netdb_host_type="char *"
3402 $ perl_netdb_hlen_type="int"
3403 $ perl_netdb_name_type="char *"
3404 $ perl_netdb_net_type="long"
3405 $ perl_d_gethbyaddr="define"
3406 $ perl_d_gethbyname="define"
3407 $ perl_d_getnbyaddr="define"
3408 $ perl_d_getnbyname="define"
3409 $ perl_d_getpbynumber="define"
3410 $ perl_d_getpbyname="define"
3411 $ perl_d_getsbyport="define"
3412 $ perl_d_getsbyname="define"
3413 $ perl_d_gethostprotos="define"
3414 $ perl_d_getnetprotos="define"
3415 $ perl_d_getprotoprotos="define"
3416 $ perl_d_getservprotos="define"
3417 $ IF ("''Using_Dec_C'".EQS."Yes")
3419 $ perl_socksizetype="unsigned int"
3421 $ perl_socksizetype="int *"
3424 $ perl_d_vms_do_sockets="undef"
3425 $ perl_d_htonl="undef"
3426 $ perl_d_socket="undef"
3427 $ perl_d_select="undef"
3428 $ perl_netdb_host_type="char *"
3429 $ perl_netdb_hlen_type="int"
3430 $ perl_netdb_name_type="char *"
3431 $ perl_netdb_net_type="long"
3432 $ perl_d_gethbyaddr="undef"
3433 $ perl_d_gethbyname="undef"
3434 $ perl_d_getnbyaddr="undef"
3435 $ perl_d_getnbyname="undef"
3436 $ perl_d_getpbynumber="undef"
3437 $ perl_d_getpbyname="undef"
3438 $ perl_d_getsbyport="undef"
3439 $ perl_d_getsbyname="undef"
3440 $ perl_d_gethostprotos="undef"
3441 $ perl_d_getnetprotos="undef"
3442 $ perl_d_getprotoprotos="undef"
3443 $ perl_d_getservprotos="undef"
3444 $ perl_socksizetype="undef"
3447 $ if ("''use_threads'".eqs."T")
3449 $ perl_usethreads="define"
3450 $ perl_d_pthreads_created_joinable="define"
3451 $ if ("''VMS_VER'".ges."7.0")
3453 $ perl_d_oldpthreads="undef"
3455 $ perl_d_oldpthreads="define"
3458 $ perl_d_oldpthreads="undef"
3459 $ perl_usethreads="undef"
3461 $ perl_d_pthreads_created_joinable="undef"
3464 $! new (5.005_62++) typedefs for primitives
3466 $ perl_ivtype="long"
3467 $ perl_uvtype="unsigned long"
3468 $ perl_i8type="char"
3469 $ perl_u8type="unsigned char"
3470 $ perl_i16type="short"
3471 $ perl_u16type="unsigned short"
3472 $ perl_i32type="int"
3473 $ perl_u32type="unsigned int"
3474 $ perl_i64type="long long"
3475 $ perl_u64type="unsigned long long"
3476 $ perl_nvtype="double"
3478 $ GOTO beyond_type_size_check
3482 $! Check for type sizes
3486 $ WS "#include <stdlib.h>
3488 $ WS "#include <stdio.h>
3491 $ WS "printf(""%d\n"", sizeof(''type'));"
3495 $ DEFINE SYS$ERROR _NLA0:
3496 $ DEFINE SYS$OUTPUT _NLA0:
3497 $ ON ERROR THEN CONTINUE
3498 $ ON WARNING THEN CONTINUE
3500 $ If (Needs_Opt.eqs."Yes")
3502 $ link temp.obj,temp.opt/opt
3506 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3507 $ DEASSIGN SYS$OUTPUT
3508 $ DEASSIGN SYS$ERROR
3509 $ DEFINE SYS$ERROR TEMPOUT
3510 $ DEFINE SYS$OUTPUT TEMPOUT
3513 $ DEASSIGN SYS$OUTPUT
3514 $ DEASSIGN SYS$ERROR
3515 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3518 $ DELETE/NOLOG [-.uu]tempout.lis;
3519 $ WRITE_RESULT "''size_name' is ''line'"
3523 $beyond_type_size_check:
3526 $ type = "''perl_ivtype'"
3527 $ size_name = "ivsize"
3528 $ gosub type_size_check
3529 $ perl_ivsize="''line'"
3530 $ IF type .eqs. "long"
3531 $ THEN perl_longsize = "''line'"
3534 $ size_name = "longsize"
3535 $ gosub type_size_check
3536 $ perl_longsize="''line'"
3539 $ type = "''perl_uvtype'"
3540 $ size_name = "uvsize"
3541 $ gosub type_size_check
3542 $ perl_uvsize="''line'"
3544 $ type = "''perl_i8type'"
3545 $ size_name = "i8size"
3546 $ gosub type_size_check
3547 $ perl_i8size="''line'"
3549 $ type = "''perl_u8type'"
3550 $ size_name = "u8size"
3551 $ gosub type_size_check
3552 $ perl_u8size="''line'"
3554 $ type = "''perl_i16type'"
3555 $ size_name = "i16size"
3556 $ gosub type_size_check
3557 $ perl_i16size="''line'"
3558 $ IF type .eqs. "short"
3559 $ THEN perl_shortsize="''line'"
3561 $ type = "''perl_i16type'"
3562 $ size_name = "shortsize"
3563 $ gosub type_size_check
3564 $ perl_shortsize="''line'"
3567 $ type = "''perl_u16type'"
3568 $ size_name = "u16size"
3569 $ gosub type_size_check
3570 $ perl_u16size="''line'"
3572 $ type = "''perl_i32type'"
3573 $ size_name = "i32size"
3574 $ gosub type_size_check
3575 $ perl_i32size="''line'"
3576 $ IF type .eqs. "int"
3577 $ THEN perl_intsize="''perl_i32size'"
3580 $ size_name = "intsize"
3581 $ gosub type_size_check
3582 $ perl_intsize="''line'"
3585 $ type = "''perl_u32type'"
3586 $ size_name = "u32size"
3587 $ gosub type_size_check
3588 $ perl_u32size="''line'"
3592 $ type = "''perl_i64type'"
3593 $ size_name = "i64size"
3594 $ gosub type_size_check
3595 $ perl_i64size="''line'"
3596 $ perl_ivtype="''perl_i64type'"
3598 $ type = "''perl_u64type'"
3599 $ size_name = "u64size"
3600 $ gosub type_size_check
3601 $ perl_u64size="''line'"
3602 $ perl_uvtype="''perl_u64type'"
3603 $ perl_nvtype="long double"
3605 $ perl_i64size="undef"
3606 $ perl_u64size="undef"
3609 $ perl_ivdformat="""ld"""
3610 $ perl_uvuformat="""lu"""
3611 $ perl_uvoformat="""lo"""
3612 $ perl_uvxformat="""lx"""
3614 $! Finally the composite ones. All config
3615 $ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3616 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3617 $ perl_myhostname="''myhostname'"
3618 $ perl_mydomain="''mydomain'"
3619 $ perl_perladmin="''perladmin'"
3620 $ perl_cf_email="''cf_email'"
3621 $ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
3622 $ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3623 $ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
3624 $ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
3625 $ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
3626 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
3627 $ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3628 $ if "''Using_Dec_C'" .eqs. "Yes"
3630 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
3632 $ if use_vmsdebug_perl .eqs. "Y"
3634 $ perl_optimize="/Debug/NoOpt"
3635 $ perl_dbgprefix = "DBG"
3638 $ perl_dbgprefix = ""
3641 $! Finally clean off any leading zeros from the patchlevel or subversion
3642 $ perl_patchlevel = perl_patchlevel + 0
3643 $ perl_subversion = perl_subversion + 0
3645 $! Okay, we've got everything configured. Now go write out a config.sh.
3646 $ open/write CONFIGSH [-]config.sh
3647 $ WC := "write CONFIGSH"
3649 $ WC "# This file generated by Configure.COM on a VMS system."
3650 $ WC "# Time: " + perl_cf_time
3652 $ WC "CONFIGDOTSH=true"
3653 $ WC "package='" + perl_package + "'"
3654 $ WC "d_nv_preserves_uv='" + perl_d_nv_preserves_uv + "'"
3655 $ WC "use5005threads='" + perl_use5005threads + "'"
3656 $ WC "useithreads='" + perl_useithreads + "'"
3657 $ WC "CONFIG='" + perl_config + "'"
3658 $ WC "cf_time='" + perl_cf_time + "'"
3659 $ WC "cf_by='" + perl_cf_by+ "'"
3660 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
3661 $ WC "ccdlflags='" + perl_ccdlflags + "'"
3662 $ WC "cccdlflags='" + perl_cccdlflags + "'"
3663 $ WC "mab='" + perl_mab + "'"
3664 $ WC "libpth='" + perl_libpth + "'"
3665 $ WC "ld='" + perl_ld + "'"
3666 $ WC "lddlflags='" + perl_lddlflags + "'"
3667 $ WC "ranlib='" + perl_ranlib + "'"
3668 $ WC "ar='" + perl_ar + "'"
3669 $ WC "full_ar='" + perl_full_ar + "'"
3670 $ WC "eunicefix='" + perl_eunicefix + "'"
3671 $ WC "hint='" + perl_hint +"'"
3672 $ WC "hintfile='" + perl_hintfile + "'"
3673 $ WC "shrplib='" + perl_shrplib + "'"
3674 $ WC "usemymalloc='" + perl_usemymalloc + "'"
3675 $ WC "usevfork='" + perl_usevfork + "'"
3676 $ WC "useposix='false'"
3677 $ WC "spitshell='write sys$output '"
3678 $ WC "dlsrc='dl_vms.c'"
3679 $ WC "binexp='" + perl_binexp + "'"
3680 $ WC "man1ext='" + perl_man1ext + "'"
3681 $ WC "man3ext='" + perl_man3ext + "'"
3682 $ WC "arch='" + perl_arch + "'"
3683 $ WC "archname='" + perl_archname + "'"
3684 $ WC "osvers='" + perl_osvers + "'"
3685 $ WC "prefix='" + perl_prefix + "'"
3686 $ WC "builddir='" + perl_builddir + "'"
3687 $ WC "installbin='" + perl_installbin + "'"
3688 $ WC "installscript='" + perl_installscript + "'"
3689 $ WC "installman1dir='" + perl_installman1dir + "'"
3690 $ WC "installman3dir='" + perl_installman3dir + "'"
3691 $ WC "installprivlib='" + perl_installprivlib + "'"
3692 $ WC "installarchlib='" + perl_installarchlib + "'"
3693 $ WC "installsitelib='" + perl_installsitelib + "'"
3694 $ WC "installsitearch='" + perl_installsitearch + "'"
3695 $ WC "path_sep='" + perl_path_sep + "'"
3696 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
3697 $ WC "d_attribut='" + perl_d_attribut + "'"
3698 $ WC "cc='" + perl_cc + "'"
3699 $ WC "ccflags='" + perl_ccflags + "'"
3700 $ WC "optimize='" + perl_optimize + "'"
3701 $ WC "dbgprefix='" + perl_dbgprefix + "'"
3702 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
3703 $ WC "d_socket='" + perl_d_socket + "'"
3704 $ WC "d_sockpair='" + perl_d_sockpair + "'"
3705 $ WC "d_gethent='" + perl_d_gethent + "'"
3706 $ WC "d_getsent='" + perl_d_getsent + "'"
3707 $ WC "d_socklen_t='" + perl_d_socklen_t + "'"
3708 $ WC "d_select='" + perl_d_select + "'"
3709 $ WC "i_niin='" + perl_i_niin + "'"
3710 $ WC "i_netinettcp='" + perl_i_netinettcp + "'"
3711 $ WC "i_neterrno='" + perl_i_neterrno + "'"
3712 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
3713 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
3714 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
3715 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
3716 $ WC "d_locconv='" + perl_d_locconv + "'"
3717 $ WC "d_setlocale='" + perl_d_setlocale + "'"
3718 $ WC "i_locale='" + perl_i_locale + "'"
3719 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
3720 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
3721 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
3722 $ WC "d_wctomb='" + perl_d_wctomb + "'"
3723 $ WC "d_mblen='" + perl_d_mblen + "'"
3724 $ WC "d_mktime='" + perl_d_mktime + "'"
3725 $ WC "d_strcoll='" + perl_d_strcoll + "'"
3726 $ WC "d_strxfrm='" + perl_d_strxfrm + "'"
3727 $ WC "ldflags='" + perl_ldflags + "'"
3728 $ WC "dlobj='" + perl_dlobj + "'"
3729 $ WC "obj_ext='" + perl_obj_ext + "'"
3730 $ WC "so='" + perl_so + "'"
3731 $ WC "dlext='" + perl_dlext + "'"
3732 $ WC "exe_ext='" + perl_exe_ext + "'"
3733 $ WC "lib_ext='" + perl_lib_ext + "'"
3734 $ WC "myhostname='" + perl_myhostname + "'"
3735 $ WC "mydomain='" + perl_mydomain + "'"
3736 $ WC "perladmin='" + perl_perladmin + "'"
3737 $ WC "cf_email='" + perl_cf_email + "'"
3738 $ WC "myuname='" + perl_myuname + "'"
3739 $ WC "alignbytes='" + perl_alignbytes + "'"
3740 $ WC "osname='" + perl_osname + "'"
3741 $ WC "d_archlib='" + perl_d_archlib + "'"
3742 $ WC "archlibexp='" + perl_archlibexp + "'"
3743 $ WC "archlib='" + perl_archlib + "'"
3744 $ WC "archname='" + perl_archname + "'"
3745 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
3746 $ WC "cppstdin='" + perl_cppstdin + "'"
3747 $ WC "cppminus='" + perl_cppminus + "'"
3748 $ WC "d_bcmp='" + perl_d_bcmp + "'"
3749 $ WC "d_bcopy='" + perl_d_bcopy + "'"
3750 $ WC "d_bzero='" + perl_d_bzero + "'"
3751 $ WC "d_castneg='" + perl_d_castneg + "'"
3752 $ WC "castflags='" + perl_castflags + "'"
3753 $ WC "d_chsize='" + perl_d_chsize + "'"
3754 $ WC "d_const='" + perl_d_const + "'"
3755 $ WC "d_crypt='" + perl_d_crypt + "'"
3756 $ WC "byteorder='" + perl_byteorder + "'"
3757 $ WC "full_csh='" + perl_full_csh + "'"
3758 $ WC "d_csh='" + perl_d_csh + "'"
3759 $ WC "d_dup2='" + perl_d_dup2 + "'"
3760 $ WC "d_fchmod='" + perl_d_fchmod + "'"
3761 $ WC "d_fchown='" + perl_d_fchown + "'"
3762 $ WC "d_fcntl='" + perl_d_fcntl + "'"
3763 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
3764 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
3765 $ WC "d_flock='" + perl_d_flock + "'"
3766 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
3767 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
3768 $ WC "d_getgrps='" + perl_d_getgrps + "'"
3769 $ WC "d_setgrps='" + perl_d_setgrps + "'"
3770 $ WC "d_uname='" + perl_d_uname + "'"
3771 $ WC "d_getprior='" + perl_d_getprior + "'"
3772 $ WC "d_killpg='" + perl_d_killpg + "'"
3773 $ WC "d_link='" + perl_d_link + "'"
3774 $ WC "d_lstat='" + perl_d_lstat + "'"
3775 $ WC "d_lockf='" + perl_d_lockf + "'"
3776 $ WC "d_memcmp='" + perl_d_memcmp + "'"
3777 $ WC "d_memcpy='" + perl_d_memcpy + "'"
3778 $ WC "d_memmove='" + perl_d_memmove + "'"
3779 $ WC "d_memset='" + perl_d_memset + "'"
3780 $ WC "d_mkdir='" + perl_d_mkdir + "'"
3781 $ WC "d_msg='" + perl_d_msg + "'"
3782 $ WC "d_open3='" + perl_d_open3 + "'"
3783 $ WC "d_poll='" + perl_d_poll + "'"
3784 $ WC "d_readdir='" + perl_d_readdir + "'"
3785 $ WC "d_seekdir='" + perl_d_seekdir + "'"
3786 $ WC "d_telldir='" + perl_d_telldir + "'"
3787 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
3788 $ WC "d_rename='" + perl_d_rename + "'"
3789 $ WC "d_rmdir='" + perl_d_rmdir + "'"
3790 $ WC "d_sem='" + perl_d_sem + "'"
3791 $ WC "d_setegid='" + perl_d_setegid + "'"
3792 $ WC "d_seteuid='" + perl_d_seteuid + "'"
3793 $ WC "d_setprior='" + perl_d_setprior + "'"
3794 $ WC "d_setregid='" + perl_d_setregid + "'"
3795 $ WC "d_setresgid='" + perl_d_setresgid + "'"
3796 $ WC "d_setreuid='" + perl_d_setreuid + "'"
3797 $ WC "d_setresuid='" + perl_d_setresuid + "'"
3798 $ WC "d_setrgid='" + perl_d_setrgid + "'"
3799 $ WC "d_setruid='" + perl_d_setruid + "'"
3800 $ WC "d_setsid='" + perl_d_setsid + "'"
3801 $ WC "d_shm='" + perl_d_shm + "'"
3802 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
3803 $ WC "d_sigaction='" + perl_d_sigaction + "'"
3804 $ WC "d_statblks='" + perl_d_statblks + "'"
3805 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
3806 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
3807 $ WC "stdio_base='" + perl_stdio_base + "'"
3808 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
3809 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
3810 $ WC "d_strerror='" + perl_d_strerror + "'"
3811 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
3812 $ WC "d_strerrm='" + perl_d_strerrm + "'"
3813 $ WC "d_symlink='" + perl_d_symlink + "'"
3814 $ WC "d_syscall='" + perl_d_syscall + "'"
3815 $ WC "d_system='" + perl_d_system + "'"
3816 $ WC "timetype='" + perl_timetype + "'"
3817 $ WC "d_truncate='" + perl_d_truncate + "'"
3818 $ WC "d_vfork='" + perl_d_vfork + "'"
3819 $ WC "signal_t='" + perl_signal_t + "'"
3820 $ WC "d_volatile='" + perl_d_volatile + "'"
3821 $ WC "d_vprintf='" + perl_d_vprintf + "'"
3822 $ WC "d_charvspr='" + perl_d_charvspr + "'"
3823 $ WC "d_wait4='" + perl_d_wait4 + "'"
3824 $ WC "d_waitpid='" + perl_d_waitpid + "'"
3825 $ WC "i_dirent='" + perl_i_dirent + "'"
3826 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
3827 $ WC "direntrytype='" + perl_direntrytype + "'"
3828 $ WC "i_fcntl='" + perl_i_fcntl + "'"
3829 $ WC "i_grp='" + perl_i_grp + "'"
3830 $ WC "i_limits='" + perl_i_limits + "'"
3831 $ WC "i_memory='" + perl_i_memory + "'"
3832 $ WC "i_ndbm='" + perl_i_ndbm + "'"
3833 $ WC "i_stdarg='" + perl_i_stdarg + "'"
3834 $ WC "i_pwd='" + perl_i_pwd + "'"
3835 $ WC "d_pwquota='" + perl_d_pwquota + "'"
3836 $ WC "d_pwage='" + perl_d_pwage + "'"
3837 $ WC "d_pwchange='" + perl_d_pwchange + "'"
3838 $ WC "d_pwclass='" + perl_d_pwclass + "'"
3839 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
3840 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
3841 $ WC "i_stddef='" + perl_i_stddef + "'"
3842 $ WC "i_stdlib='" + perl_i_stdlib + "'"
3843 $ WC "i_string='" + perl_i_string + "'"
3844 $ WC "i_sysdir='" + perl_i_sysdir + "'"
3845 $ WC "i_sysfile='" + perl_i_sysfile + "'"
3846 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
3847 $ WC "i_sysndir='" + perl_i_sysndir + "'"
3848 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
3849 $ WC "i_sysselct='" + perl_i_sysselct + "'"
3850 $ WC "i_dbm='" + perl_i_dbm + "'"
3851 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
3852 $ WC "i_sfio='" + perl_i_sfio + "'"
3853 $ WC "i_sysstat='" + perl_i_sysstat + "'"
3854 $ WC "i_systimes='" + perl_i_systimes + "'"
3855 $ WC "i_systypes='" + perl_i_systypes + "'"
3856 $ WC "i_sysun='" + perl_i_sysun + "'"
3857 $ WC "i_syswait='" + perl_i_syswait + "'"
3858 $ WC "i_termio='" + perl_i_termio + "'"
3859 $ WC "i_sgtty='" + perl_i_sgtty + "'"
3860 $ WC "i_termios='" + perl_i_termios + "'"
3861 $ WC "i_time='" + perl_i_time + "'"
3862 $ WC "i_systime='" + perl_i_systime + "'"
3863 $ WC "i_systimek='" + perl_i_systimek + "'"
3864 $ WC "i_unistd='" + perl_i_unistd + "'"
3865 $ WC "i_utime='" + perl_i_utime + "'"
3866 $ WC "i_varargs='" + perl_i_varargs + "'"
3867 $ WC "i_vfork='" + perl_i_vfork + "'"
3868 $ WC "prototype='" + perl_prototype + "'"
3869 $ WC "randbits='" + perl_randbits +"'"
3870 $ WC "selecttype='" + perl_selecttype + "'"
3871 $ WC "stdchar='" + perl_stdchar + "'"
3872 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
3873 $ WC "full_sed='" + perl_full_sed + "'"
3874 $ WC "bin='" + perl_bin + "'"
3875 $ WC "binexp='" + perl_binexp + "'"
3876 $ WC "d_alarm='" + perl_d_alarm + "'"
3877 $ WC "d_casti32='" + perl_d_casti32 + "'"
3878 $ WC "d_chown='" + perl_d_chown + "'"
3879 $ WC "d_chroot='" + perl_d_chroot + "'"
3880 $ WC "d_cuserid='" + perl_d_cuserid + "'"
3881 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
3882 $ WC "d_ldbl_dig='" + perl_d_ldbl_dig + "'"
3883 $ WC "d_difftime='" + perl_d_difftime + "'"
3884 $ WC "d_fork='" + perl_d_fork + "'"
3885 $ WC "d_getlogin='" + perl_d_getlogin + "'"
3886 $ WC "d_getppid='" + perl_d_getppid + "'"
3887 $ WC "d_htonl='" + perl_d_htonl + "'"
3888 $ WC "d_nice='" + perl_d_nice + "'"
3889 $ WC "d_pause='" + perl_d_pause + "'"
3890 $ WC "d_pipe='" + perl_d_pipe + "'"
3891 $ WC "d_readlink='" + perl_d_readlink + "'"
3892 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
3893 $ WC "d_strchr='" + perl_d_strchr + "'"
3894 $ WC "d_index='" + perl_d_index + "'"
3895 $ WC "d_strtod='" + perl_d_strtod + "'"
3896 $ WC "d_strtol='" + perl_d_strtol + "'"
3897 $ WC "d_strtoul='" + perl_d_strtoul + "'"
3898 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
3899 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
3900 $ WC "d_times='" + perl_d_times + "'"
3901 $ WC "d_tzname='" + perl_d_tzname + "'"
3902 $ WC "d_umask='" + perl_d_umask + "'"
3903 $ WC "fpostype='" + perl_fpostype + "'"
3904 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
3905 $ WC "i_float='" + perl_i_float + "'"
3906 $ WC "i_math='" + perl_i_math + "'"
3907 $ WC "intsize='" + perl_intsize + "'"
3908 $ WC "longsize='" + perl_longsize + "'"
3909 $ WC "shortsize='" + perl_shortsize + "'"
3910 $ WC "lseektype='" + perl_lseektype + "'"
3911 $ WC "lseeksize='4'"
3912 $ WC "i_values='" + perl_i_values + "'"
3913 $ WC "malloctype='" + perl_malloctype + "'"
3914 $ WC "freetype='" + perl_freetype + "'"
3915 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
3916 $ WC "sh='" + perl_sh + "'"
3917 $ WC "sig_name='" + perl_sig_name + "'"
3918 $ WC "sig_num='" + perl_sig_num + "'"
3919 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
3921 $ WC "modetype='" + perl_modetype + "'"
3922 $ WC "ssizetype='" + perl_ssizetype + "'"
3923 $ WC "o_nonblock='" + perl_o_nonblock + "'"
3924 $ WC "eagain='" + perl_eagain + "'"
3925 $ WC "rd_nodata='" + perl_rd_nodata + "'"
3926 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
3927 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
3928 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
3929 $ WC "oldarchlib='" + perl_oldarchlib + "'"
3930 $ WC "privlibexp='" + perl_privlibexp + "'"
3931 $ WC "privlib='" + perl_privlib + "'"
3932 $ WC "sitelibexp='" + perl_sitelibexp + "'"
3933 $ WC "sitelib='" + perl_sitelib + "'"
3934 $ WC "sitearchexp='" + perl_sitearchexp + "'"
3935 $ WC "sitearch='" + perl_sitearch + "'"
3936 $ WC "sizetype='" + perl_sizetype + "'"
3937 $ WC "i_sysparam='" + perl_i_sysparam + "'"
3938 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
3939 $ WC "d_dlerror='" + perl_d_dlerror + "'"
3940 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
3941 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
3942 $ WC "d_dosuid='" + perl_d_dosuid + "'"
3943 $ WC "d_inetaton='" + perl_d_inetaton + "'"
3944 $ WC "d_int64_t='" + perl_d_int64_t + "'"
3945 $ WC "d_isascii='" + perl_d_isascii + "'"
3946 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
3947 $ WC "d_pathconf='" + perl_d_pathconf + "'"
3948 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
3949 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
3950 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
3951 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
3952 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
3953 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
3954 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
3955 $ WC "d_setpgid='" + perl_d_setpgid + "'"
3956 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
3957 $ WC "d_sysconf='" + perl_d_sysconf + "'"
3958 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
3959 $ WC "d_getpgid='" + perl_d_getpgid + "'"
3960 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
3961 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
3962 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
3963 $ WC "d_sfio='" + perl_d_sfio + "'"
3964 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
3965 $ WC "usedl='" + perl_usedl + "'"
3966 $ WC "startperl=" + perl_startperl ! This one's special--no enclosing single quotes
3967 $ WC "db_hashtype='" + perl_db_hashtype + "'"
3968 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
3969 $ WC "useperlio='" + perl_useperlio + "'"
3970 $ WC "defvoidused='" + perl_defvoidused + "'"
3971 $ WC "voidflags='" + perl_voidflags + "'"
3972 $ WC "d_eunice='" + perl_d_eunice + "'"
3973 $ WC "libs='" + perl_libs + "'"
3974 $ WC "libc='" + perl_libc + "'"
3975 $ tempstring = "PERL_VERSION='" + "''perl_patchlevel'" + "'"
3977 $ tempstring = "PERL_SUBVERSION='" + "''perl_patchlevel'" + "'"
3979 $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
3981 $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
3983 $ WC "pager='" + perl_pager + "'"
3984 $ WC "uidtype='" + perl_uidtype + "'"
3985 $ WC "gidtype='" + perl_gidtype + "'"
3986 $ WC "usethreads='" + perl_usethreads + "'"
3987 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
3988 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
3989 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
3990 $ WC "i_netdb='" + perl_i_netdb + "'"
3991 $ WC "pidtype='" + perl_pidtype + "'"
3992 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
3993 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
3994 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
3995 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
3996 $ WC "socksizetype='" + perl_socksizetype + "'"
3997 $ WC "baserev='" + perl_baserev + "'"
3998 $ WC "doublesize='" + perl_doublesize + "'"
3999 $ WC "ptrsize='" + perl_ptrsize + "'"
4000 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
4001 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
4002 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
4003 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
4004 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
4005 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
4006 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
4007 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
4008 $ WC "d_sethent='" + perl_d_sethent + "'"
4009 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
4010 $ WC "d_longdbl='" + perl_d_longdbl + "'"
4011 $ WC "longdblsize='" + perl_longdblsize + "'"
4012 $ WC "d_longlong='" + perl_d_longlong + "'"
4013 $ WC "longlongsize='" + perl_longlongsize + "'"
4014 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
4015 $ WC "d_mkstemps='" + perl_d_mkstemps + "'"
4016 $ WC "d_mkdtemp='" + perl_d_mkdtemp + "'"
4017 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
4018 $ WC "d_setenv='" + perl_d_setenv + "'"
4019 $ WC "d_endhent='" + perl_d_endhent + "'"
4020 $ WC "d_endnent='" + perl_d_endsent + "'"
4021 $ WC "d_endpent='" + perl_d_endpent + "'"
4022 $ WC "d_endsent='" + perl_d_endsent + "'"
4023 $ WC "d_gethent='" + perl_d_gethent + "'"
4024 $ WC "d_getnent='" + perl_d_getsent + "'"
4025 $ WC "d_getpent='" + perl_d_getpent + "'"
4026 $ WC "d_getsent='" + perl_d_getsent + "'"
4027 $ WC "d_sethent='" + perl_d_sethent + "'"
4028 $ WC "d_setnent='" + perl_d_setsent + "'"
4029 $ WC "d_setpent='" + perl_d_setpent + "'"
4030 $ WC "ebcdic='" + perl_ebcdic + "'"
4031 $ WC "d_setsent='" + perl_d_setsent + "'"
4032 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
4033 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
4034 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
4035 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
4036 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
4037 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
4038 $ WC "d_lchown='" + perl_d_lchown + "'"
4039 $ WC "d_union_semun='" + perl_d_union_semun + "'"
4040 $ WC "i_arpainet='" + perl_i_arpainet + "'"
4041 $ WC "d_grpasswd='" + perl_d_grpasswd + "'"
4042 $ WC "d_setgrent='" + perl_d_setgrent + "'"
4043 $ WC "d_getgrent='" + perl_d_getgrent + "'"
4044 $ WC "d_endgrent='" + perl_d_endgrent + "'"
4045 $ WC "d_pwpasswd='" + perl_d_pwpasswd + "'"
4046 $ WC "d_setpwent='" + perl_d_setpwent + "'"
4047 $ WC "d_getpwent='" + perl_d_getpwent + "'"
4048 $ WC "d_endpwent='" + perl_d_endpwent + "'"
4049 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
4050 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
4051 $ WC "extensions='" + perl_extensions + "'"
4052 $ WC "known_extensions='" + perl_known_extensions + "'"
4053 $ WC "static_ext='" + "'"
4054 $ WC "dynamic_ext='" + perl_extensions + "'"
4055 $ WC "d_mknod='" + perl_d_mknod + "'"
4056 $ WC "devtype='" + perl_devtype + "'"
4057 $ WC "d_gethname='" + perl_d_gethname + "'"
4058 $ WC "d_phostname='" + perl_d_phostname + "'"
4059 $ WC "d_accessx='" + perl_d_accessx + "'"
4060 $ WC "d_eaccess='" + perl_d_eaccess + "'"
4061 $ WC "i_ieeefp='" + perl_i_ieeefp + "'"
4062 $ WC "i_sunmath='" + perl_i_sunmath + "'"
4063 $ WC "i_sysaccess='" + perl_i_sysaccess + "'"
4064 $ WC "i_syssecrt='" + perl_i_syssecrt + "'"
4065 $ WC "d_fd_set='" + perl_d_fd_set + "'"
4066 $ WC "d_access='" + perl_d_access + "'"
4067 $ WC "d_msg_ctrunc='" + perl_d_msg_ctrunc + "'"
4068 $ WC "d_msg_dontroute='" + perl_d_msg_dontroute + "'"
4069 $ WC "d_msg_oob='" + perl_d_msg_oob + "'"
4070 $ WC "d_msg_peek='" + perl_d_msg_peek + "'"
4071 $ WC "d_msg_proxy='" + perl_d_msg_proxy + "'"
4072 $ WC "d_scm_rights='" + perl_d_scm_rights + "'"
4073 $ WC "d_sendmsg='" + perl_d_sendmsg + "'"
4074 $ WC "d_recvmsg='" + perl_d_recvmsg + "'"
4075 $ WC "d_msghdr_s='" + perl_d_msghdr_s + "'"
4076 $ WC "d_cmsghdr_s='" + perl_d_cmsghdr_s + "'"
4077 $ WC "i_sysuio='" + perl_i_sysuio + "'"
4078 $ WC "d_fseeko='" + perl_d_fseeko + "'"
4079 $ WC "d_ftello='" + perl_d_ftello + "'"
4080 $ WC "d_qgcvt='" + perl_d_qgcvt + "'"
4081 $ WC "d_readv='" + perl_d_readv + "'"
4082 $ WC "d_writev='" + perl_d_writev + "'"
4083 $ WC "i_machcthr='" + perl_i_machcthr + "'"
4084 $ WC "usemultiplicity='" + perl_usemultiplicity + "'"
4085 $ WC "i_poll='" + perl_i_poll + "'"
4086 $ WC "i_inttypes='" + perl_i_inttypes + "'"
4087 $ WC "d_off64_t='" + perl_d_off64_t + "'"
4088 $ WC "d_fpos64_t='" + perl_d_fpos64_t + "'"
4089 $ WC "use64bitall='" + perl_use64bitall + "'"
4090 $ WC "use64bitint='" + perl_use64bitint + "'"
4091 $ WC "d_drand48proto='" + perl_d_drand48proto + "'"
4092 $ WC "d_lseekproto='" + perl_d_drand48proto + "'"
4093 $ WC "d_old_pthread_create_joinable='" + perl_d_old_pthread_create_joinable + "'"
4094 $ WC "old_pthread_create_joinable='" + perl_old_pthread_create_joinable + "'"
4095 $ WC "drand01='" + perl_drand01 + "'"
4096 $ WC "randseedtype='" + perl_randseedtype + "'"
4097 $ WC "seedfunc='" + perl_seedfunc + "'"
4098 $ WC "sig_num_init='" + perl_sig_num_with_commas + "'"
4099 $ WC "i_sysmount='" + perl_i_sysmount + "'"
4100 $ WC "d_fstatfs='" + perl_d_fstatfs + "'"
4101 $ WC "d_getfsstat='" + perl_d_getfsstat + "'"
4102 $ WC "d_memchr='" + perl_d_memchr + "'"
4103 $ WC "d_statfsflags='" + perl_d_statfsflags + "'"
4104 $ WC "fflushNULL='define'"
4105 $ WC "fflushall='undef'"
4106 $ WC "d_stdio_stream_array='undef'"
4107 $ WC "i_sysstatvfs='" + perl_i_sysstatvfs + "'"
4108 $ WC "i_syslog='" + perl_i_syslog + "'"
4109 $ WC "i_sysmode='" + perl_i_sysmode + "'"
4110 $ WC "i_sysutsname='" + perl_i_sysutsname + "'"
4111 $ WC "i_machcthreads='" + perl_i_machcthreads + "'"
4112 $ WC "i_pthread='" + perl_i_pthread + "'"
4113 $ WC "d_fstatvfs='" + perl_d_fstatvfs + "'"
4114 $ WC "i_mntent='" + perl_i_mntent + "'"
4115 $ WC "d_getmntent='" + perl_d_getmntent + "'"
4116 $ WC "d_hasmntopt='" + perl_d_hasmntopt + "'"
4117 $ WC "d_telldirproto='" + perl_d_telldirproto + "'"
4118 $ WC "d_madvise='" + perl_d_madvise + "'"
4119 $ WC "d_msync='" + perl_d_msync + "'"
4120 $ WC "d_mprotect='" + perl_d_mprotect + "'"
4121 $ WC "d_munmap='" + perl_d_munmap + "'"
4122 $ WC "d_mmap='" + perl_d_mmap + "'"
4123 $ WC "i_sysmman='" + perl_i_sysmman + "'"
4124 $ WC "installusrbinperl='" + perl_installusrbinperl + "'"
4125 $! WC "selectminbits='" + perl_selectminbits + "'"
4126 $ WC "crosscompile='" + perl_crosscompile + "'"
4127 $ WC "multiarch='" + perl_multiarch + "'"
4128 $ WC "sched_yield='" + perl_sched_yield + "'"
4129 $ WC "d_strtoull='" + perl_d_strtoull + "'"
4130 $ WC "d_strtouq='" + perl_d_strtouq + "'"
4131 $ WC "d_strtoll='" + perl_d_strtoll + "'"
4132 $ WC "d_strtold='" + perl_d_strtold + "'"
4133 $ WC "usesocks='" + perl_usesocks + "'"
4134 $ WC "d_vendorlib='" + perl_d_vendorlib + "'"
4135 $ WC "vendorlibexp='" + perl_vendorlibexp + "'"
4136 $ WC "d_atolf='" + perl_d_atolf + "'"
4137 $ WC "d_atoll='" + perl_d_atoll + "'"
4138 $ WC "d_bincompat5005='" + perl_d_bincompat + "'"
4139 $ WC "d_endspent='" + perl_d_endspent + "'"
4140 $ WC "d_getspent='" + perl_d_getspent + "'"
4141 $ WC "d_getspnam='" + perl_d_getspnam + "'"
4142 $ WC "d_setspent='" + perl_d_setspent + "'"
4143 $ WC "i_shadow='" + perl_i_shadow + "'"
4144 $ WC "i_socks='" + perl_i_socks + "'"
4145 $ WC "d_PRIfldbl='" + perl_d_PRIfldbl + "'"
4146 $ WC "d_PRIgldbl='" + perl_d_PRIgldbl + "'"
4147 $ WC "d_PRId64='" + perl_d_PRId64 + "'"
4148 $ WC "d_PRIu64='" + perl_d_PRIu64 + "'"
4149 $ WC "d_PRIo64='" + perl_d_PRIo64 + "'"
4150 $ WC "d_PRIx64='" + perl_d_PRIx64 + "'"
4151 $ WC "sPRIfldbl='" + perl_sPRIfldbl + "'"
4152 $ WC "sPRIgldbl='" + perl_sPRIgldbl + "'"
4153 $ WC "sPRId64='" + perl_sPRId64 + "'"
4154 $ WC "sPRIu64='" + perl_sPRIu64 + "'"
4155 $ WC "sPRIo64='" + perl_sPRIo64 + "'"
4156 $ WC "sPRIx64='" + perl_sPRIx64 + "'"
4157 $ WC "d_llseek='" + perl_d_llseek + "'"
4158 $ WC "d_iconv='" + perl_d_iconv +"'"
4159 $ WC "i_iconv='" + perl_i_iconv +"'"
4160 $ WC "inc_version_list='0'"
4161 $ WC "inc_version_list_init='0'"
4162 $ WC "uselargefiles='" + perl_uselargefiles + "'"
4163 $ WC "uselongdouble='" + perl_uselongdouble + "'"
4164 $ WC "usemorebits='" + perl_usemorebits + "'"
4165 $ WC "d_quad='" + perl_d_quad + "'"
4168 $ WC "quadtype='" + perl_quadtype + "'"
4169 $ WC "uquadtype='" + perl_uquadtype + "'"
4171 $ WC "d_fs_data_s='" + perl_d_fs_data_s + "'"
4172 $ WC "d_getcwd='" + perl_d_getcwd + "'"
4173 $ WC "d_getmnt='" + perl_d_getmnt + "'"
4174 $ WC "d_sqrtl='" + perl_d_sqrtl + "'"
4175 $ WC "d_statfs_f_flags='" + perl_d_statfs_f_flags + "'"
4176 $ WC "d_statfs_s='" + perl_d_statfs_s + "'"
4177 $ WC "d_ustat='" + perl_d_ustat + "'"
4178 $ WC "d_vendorarch='" + perl_d_vendorarch + "'"
4179 $ WC "vendorarchexp='" + perl_vendorarchexp + "'"
4180 $ WC "i_sysstatfs='" + perl_i_sysstatfs + "'"
4181 $ WC "i_sysvfs='" + perl_i_sysvfs + "'"
4182 $ WC "i_ustat='" + perl_i_ustat + "'"
4183 $ WC "ivtype='" + perl_ivtype + "'"
4184 $ WC "uvtype='" + perl_uvtype + "'"
4185 $ WC "i8type='" + perl_i8type + "'"
4186 $ WC "i16type='" + perl_i16type + "'"
4187 $ WC "u8type='" + perl_u8type + "'"
4188 $ WC "u16type='" + perl_u16type + "'"
4189 $ WC "i32type='" + perl_i32type + "'"
4190 $ WC "u32type='" + perl_u32type + "'"
4191 $ WC "i64type='" + perl_i64type + "'"
4192 $ WC "u64type='" + perl_u64type + "'"
4193 $ WC "nvtype='" + perl_nvtype + "'"
4194 $ WC "ivsize='" + perl_ivsize + "'"
4195 $ WC "uvsize='" + perl_uvsize + "'"
4196 $ WC "i8size='" + perl_i8size + "'"
4197 $ WC "u8size='" + perl_u8size + "'"
4198 $ WC "i16size='" + perl_i16size + "'"
4199 $ WC "u16size='" + perl_u16size + "'"
4200 $ WC "i32size='" + perl_i32size + "'"
4201 $ WC "u32size='" + perl_u32size + "'"
4202 $ WC "i64size='" + perl_i64size + "'"
4203 $ WC "u64size='" + perl_u64size + "'"
4204 $ WC "ivdformat='" + perl_ivdformat + "'"
4205 $ WC "uvuformat='" + perl_uvuformat + "'"
4206 $ WC "uvoformat='" + perl_uvoformat + "'"
4207 $ WC "uvxformat='" + perl_uvxformat + "'"
4208 $ WC "d_vms_case_sensitive_symbols='" + d_vms_be_case_sensitive + "'"
4210 $! ##WRITE NEW CONSTANTS HERE##
4214 $! Okay, we've gotten here. Build munchconfig and run it
4215 $ 'Perl_CC' munchconfig.c
4216 $ If (Needs_Opt.eqs."Yes")
4218 $ open/write OPTCHAN []munchconfig.opt
4219 $ IF ("''using_gnu_c'".eqs."Yes")
4221 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
4223 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
4225 $ link munchconfig.obj,munchconfig.opt/opt
4226 $ delete munchconfig.opt;*
4228 $ link munchconfig.obj
4231 $ echo "Writing config.h"
4233 $ ! we need an fdl file
4234 $ CREATE [-]CONFIG.FDL
4237 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
4238 $ ! First spit out the header info with the local defines (to get
4239 $ ! around the 255 character command line limit)
4240 $ OPEN/APPEND CONFIG [-]config.local
4241 $ if use_debugging_perl.eqs."Y"
4243 $ WRITE CONFIG "#define DEBUGGING"
4245 $ if use_two_pot_malloc.eqs."Y"
4247 $ WRITE CONFIG "#define TWO_POT_OPTIMIZE"
4249 $ if mymalloc.eqs."Y"
4251 $ WRITE CONFIG "#define EMBEDMYMALLOC"
4253 $ if use_pack_malloc.eqs."Y"
4255 $ WRITE CONFIG "#define PACK_MALLOC"
4257 $ if use_debugmalloc.eqs."Y"
4259 $ write config "#define DEBUGGING_MSTATS"
4261 $ if "''Using_Gnu_C'" .eqs."Yes"
4263 $ WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
4265 $ if "''Has_Dec_C_Sockets'".eqs."T"
4267 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
4268 $ WRITE CONFIG "#define DECCRTL_SOCKETS"
4270 $ if "''Has_Socketshr'".eqs."T"
4272 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
4274 $! This is VMS-specific for now
4275 $ WRITE CONFIG "#''perl_d_setenv' HAS_SETENV"
4276 $ if d_alwdeftype.eqs."Y"
4278 $ WRITE CONFIG "#define SECURE_INTERNAL_GETENV"
4280 $ WRITE CONFIG "#undef SECURE_INTERNAL_GETENV"
4282 $ if d_secintgenv.eqs."Y"
4284 $ WRITE CONFIG "#define ALWAYS_DEFTYPES"
4286 $ WRITE CONFIG "#undef ALWAYS_DEFTYPES"
4290 $ WRITE CONFIG "#define USE_64_BIT_INT"
4291 $ WRITE CONFIG "#define USE_LONG_DOUBLE"
4295 $ WRITE CONFIG "#define USE_64_BIT_ALL"
4297 $ if be_case_sensitive
4299 $ write config "#define VMS_WE_ARE_CASE_SENSITIVE"
4301 $ if perl_d_herrno .eqs. "undef"
4303 $ write config "#define NEED_AN_H_ERRNO"
4305 $ WRITE CONFIG "#define HAS_ENVGETENV"
4306 $ WRITE CONFIG "#define PERL_EXTERNAL_GLOB"
4309 $! Now build the normal config.h
4310 $ define/user sys$output [-]config.main
4311 $ mcr []munchconfig [-]config.sh [-]config_h.sh
4312 $ ! Concatenate them together
4313 $ copy [-]config.local,[-]config.main [-]config.h
4315 $ DELETE/NOLOG [-]CONFIG.MAIN;*
4316 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
4317 $ DELETE/NOLOG [-]CONFIG.FDL;*
4319 $ if "''Using_Dec_C'" .eqs."Yes"
4321 $ DECC_REPLACE = "DECC=decc=1"
4323 $ DECC_REPLACE = "DECC="
4325 $ if "''Using_Gnu_C'" .eqs."Yes"
4327 $ GNUC_REPLACE = "GNUC=gnuc=1"
4329 $ GNUC_REPLACE = "GNUC="
4331 $ if "''Has_Dec_C_Sockets'" .eqs."T"
4333 $ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
4335 $ if "''Has_Socketshr'" .eqs."T"
4337 $ SOCKET_REPLACE = "SOCKET=SOCKETSHR_SOCKETS=1"
4339 $ SOCKET_REPLACE = "SOCKET="
4342 $ IF ("''Use_Threads'".eqs."T")
4344 $ if ("''VMS_VER'".LES."6.2")
4346 $ THREAD_REPLACE = "THREAD=OLDTHREADED=1"
4348 $ THREAD_REPLACE = "THREAD=THREADED=1"
4351 $ THREAD_REPLACE = "THREAD="
4353 $ if mymalloc.eqs."Y"
4355 $ MALLOC_REPLACE = "MALLOC=MALLOC=1"
4357 $ MALLOC_REPLACE = "MALLOC="
4359 $ if f$getsyi("HW_MODEL").ge.1024
4361 $ ARCH_TYPE = "ARCH-TYPE=__AXP__"
4363 $ ARCH_TYPE = "ARCH-TYPE=__VAX__"
4365 $ echo "Writing DESCRIP.MMS"
4367 $ define/user sys$output [-]descrip.mms
4368 $ mcr []munchconfig [-]config.sh descrip_mms.template "''DECC_REPLACE'" "''ARCH_TYPE'" "''GNUC_REPLACE'" "''SOCKET_REPLACE'" "''THREAD_REPLACE'" -
4369 "''C_Compiler_Replace'" "''MALLOC_REPLACE'" "''Thread_Live_Dangerously'" "PV=''LocalPerlVer'" "FLAGS=FLAGS=''extra_flags'"
4370 $ echo "Extracting Build_Ext.Com"
4371 $ Create Sys$Disk:[-]Build_Ext.Com
4372 $ Deck/Dollar="$EndOfTpl$"
4374 $! NOTE: This file is extracted as part of the VMS configuration process.
4375 $! Any changes made to it directly will be lost. If you need to make any
4376 $! changes, please edit the template in [.vms]SubConfigure.Com instead.
4377 $ def = F$Environment("Default")
4378 $ exts1 = F$Edit(p1,"Compress")
4379 $ p2 = F$Edit(p2,"Upcase,Compress,Trim")
4380 $ If F$Locate("MCR ",p2).eq.0 Then p2 = F$Extract(3,255,p2)
4381 $ miniperl = "$" + F$Search(F$Parse(p2,".Exe"))
4383 $ if f$type('p3') .nes. "" then makeutil = 'p3'
4384 $ targ = F$Edit(p4,"Lowercase")
4387 $ ext = F$Element(i," ",p1)
4388 $ If ext .eqs. " " Then Goto done
4389 $ Define/User Perl_Env_Tables CLISYM_LOCAL
4391 ($extdir = $ENV{'ext'}) =~ s/::/./g;
4393 if ($extdir =~ /^vms/i) { $extdir =~ s/vms/.vms.ext/i; }
4394 else { $extdir = ".ext.$extdir"; }
4395 ($ENV{'extdir'} = "[$extdir]");
4396 ($ENV{'up'} = ('-') x ($extdir =~ tr/././));
4397 $ Set Default &extdir
4399 $ If F$Locate("clean",targ) .eqs. F$Length(targ)
4401 $ Write Sys$Output "Building ''ext' . . ."
4402 $ On Error Then Goto done
4403 $ If F$Search("Descrip.MMS") .eqs. ""
4407 $ If F$CvTime(F$File("Descrip.MMS","rdt")) .lts. -
4408 F$CvTime(F$File("Makefile.PL","rdt")) Then redesc = 1
4411 $ Write Sys$Output "''targ'ing ''ext' . . ."
4412 $ On Error Then Continue
4415 miniperl "-I[''up'.lib]" Makefile.PL "INST_LIB=[''up'.lib]" "INST_ARCHLIB=[''up'.lib]"
4429 $! Clean up after ourselves
4430 $ delete/nolog munchconfig.exe;*
4431 $ delete/nolog munchconfig.obj;*