2 $! - build a config.sh for VMS Perl.
3 $! - use built config.sh to take config_h.SH -> config.h
4 $! - also take vms/descrip_mms.template -> descrip.mms (VMS Makefile)
6 $! Note for folks from other platforms changing things in here:
7 $! Fancy changes (based on compiler capabilities or VMS version or
8 $! whatever) are tricky, so go ahead and punt on those.
10 $! Simple changes, though (say, always setting something to 1, or undef,
11 $! or something like that) are straightforward. Adding a new item for the
12 $! ultimately created config.sh requires adding two lines to this file.
14 $! First, a line in the format:
16 $! after the line tagged ##ADD NEW CONSTANTS HERE##. Replace foo with the
17 $! variable name as it appears in config.sh.
19 $! Second, add a line in the format:
20 $! $ WC "foo='" + perl_foo + "'"
21 $! after the line tagged ##WRITE NEW CONSTANTS HERE##. Careful of the
22 $! quoting, as it can be tricky.
24 $! This .COM file expects to be called by configure.com, and thus expects
25 $! a few symbols in the environment. Notably:
27 $! One of: Using_Dec_C, Using_Gnu_C set to "YES"
28 $! Dec_C_Version set to the Dec C version (defaults to 0 if not specified)
29 $! Has_Socketshr set to "T" if using socketshr
30 $! Has_Dec_C_Sockets set to "T" if using Dec C sockets
31 $! Use_Threads set to "T" if they're using threads
32 $! C_Compiler_Invoke is the command needed to invoke the C compiler
34 $! We'll be playing with Sys$Output; don't clutter it
37 $! Set Dec_C_Version to something
38 $ WRITE_RESULT := "WRITE SYS$OUTPUT ""%CONFIG-I-RESULT "" + "
39 $ echo = "Write Sys$Output "
40 $ Dec_C_Version := "''Dec_C_Version'"
41 $ Dec_C_Version = Dec_C_Version + 0
42 $ Vms_Ver := "''f$extract(1,3, f$getsyi(""version""))'"
43 $ perl_extensions := "''extensions'"
44 $ IF F$LENGTH(Mcc) .EQ. 0 THEN Mcc := "cc"
45 $ MCC = f$edit(mcc, "UPCASE")
46 $ C_Compiler_Replace := "CC=CC=''Mcc'''CC_flags'"
49 $ Checkcc := "''Mcc'/prefix=all"
53 $ cc_flags = cc_flags + extra_flags
54 $ IF be_case_sensitive
56 $ d_vms_be_case_sensitive = "define"
58 $ d_vms_be_case_sensitive = "undef"
62 $ perl_usemultiplicity = "define"
64 $ perl_usemultiplicity = "undef"
66 $! Some constant defaults.
67 $ hwname = f$getsyi("HW_NAME")
69 $ IF myname .EQS. "" THEN myname = F$TRNLNM("SYS$NODE")
71 $! ##ADD NEW CONSTANTS HERE##
72 $ perl_d_isnan= = "define"
76 $ perl_gidformat = "lu"
79 $ perl_groupstype = "Gid_t"
80 $ perl_stdio_stream_array = ""
81 $ perl_uidformat = "lu"
84 $ perl_d_getcwd = "undef"
85 $ perl_d_nv_preserves_uv = "define"
86 $ perl_d_fs_data_s = "undef"
87 $ perl_d_getmnt = "undef"
88 $ perl_d_sqrtl = "define"
89 $ perl_d_statfs_f_flags = "undef"
90 $ perl_d_statfs_s = "undef"
91 $ perl_d_ustat = "undef"
92 $ perl_i_ieeefp = "undef"
93 $ perl_i_sunmath = "undef"
94 $ perl_i_sysstatfs = "undef"
95 $ perl_i_sysvfs = "undef"
96 $ perl_i_ustat = "undef"
97 $ perl_d_llseek="undef"
98 $ perl_d_iconv="undef"
99 $ perl_d_madvise="undef"
100 $ perl_selectminbits="32"
101 $ perl_d_vendorarch="undef"
102 $ perl_vendorarchexp=""
103 $ perl_d_msync="undef"
104 $ perl_d_mprotect="undef"
105 $ perl_d_munmap="undef"
106 $ perl_crosscompile="undef"
107 $ perl_multiarch="undef"
108 $ perl_d_mmap="undef"
109 $ perl_i_sysmman="undef"
110 $ perl_d_telldirproto="define"
111 $ perl_i_sysmount="undef"
112 $ perl_d_bincompat="undef"
113 $ perl_d_getspnam="undef
114 $ perl_d_fstatfs="undef"
115 $ perl_d_getfsstat="undef"
116 $ perl_i_machcthreads="undef"
117 $ perl_i_pthread="define"
118 $ perl_d_fstatvfs="undef"
119 $ perl_usesocks="undef"
120 $ perl_d_vendorlib="undef"
121 $ perl_vendorlibexp=""
122 $ perl_vendorlib_stem=""
123 $ perl_d_statfsflags="undef"
124 $ perl_i_sysstatvfs="undef"
125 $ perl_i_mntent="undef"
126 $ perl_d_getmntent="undef"
127 $ perl_d_hasmntopt="undef"
128 $ perl_package="''package'"
129 $ perl_baserev = "''baserev'"
131 $ perl_installusrbinperl="undef"
133 $ perl_d_fseeko="undef"
134 $ perl_d_ftello="undef"
135 $ perl_d_qgcvt="undef"
136 $ perl_d_readv="undef"
137 $ perl_d_writev="undef"
138 $ perl_i_machcthr="undef"
139 $ perl_i_netdb="undef"
140 $ perl_d_gnulibc="undef"
144 $ perl_drand01 = "drand48()"
145 $ perl_randseedtype = "long int"
146 $ perl_seedfunc = "srand48"
147 $ perl_d_msg_ctrunc = "undef"
148 $ perl_d_msg_dontroute = "undef"
149 $ perl_d_msg_oob = "undef"
150 $ perl_d_msg_peek = "undef"
151 $ perl_d_msg_proxy = "undef"
152 $ perl_d_scm_rights = "undef"
153 $ perl_d_sendmsg = "undef"
154 $ perl_d_recvmsg = "undef"
155 $ perl_d_msghdr_s = "undef"
156 $ perl_d_cmsghdr_s = "undef"
159 $ perl_use64bitint = "define"
160 $ perl_uselargefiles = "define"
161 $ perl_uselongdouble = "define"
162 $ perl_usemorebits = "define"
164 $ perl_use64bitint = "undef"
165 $ perl_uselargefiles = "undef"
166 $ perl_uselongdouble = "undef"
167 $ perl_usemorebits = "undef"
171 $ perl_use64bitall = "define"
173 $ perl_use64bitall = "undef"
175 $ perl_d_drand48proto = "define"
176 $ perl_d_lseekproto = "define"
177 $ perl_libpth="/sys$share /sys$library"
179 $ perl_lddlflags="/Share"
185 $ perl_i_arpainet="undef"
186 $ perl_d_grpasswd="undef"
187 $ perl_d_setgrent="undef"
188 $ perl_d_getgrent="define"
189 $ perl_d_endgrent="define"
190 $ perl_d_pwpasswd="define"
191 $ perl_d_setpwent="define"
192 $ perl_d_getpwent="define"
193 $ perl_d_endpwent="define"
194 $ perl_d_phostname="undef"
195 $ perl_d_accessx="undef"
196 $ perl_d_eaccess="undef"
197 $ perl_ebcdic="undef"
199 $ perl_shrplib="define"
200 $ perl_usemymalloc=mymalloc
201 $ perl_usevfork="true"
202 $ perl_useposix="false"
203 $ perl_spitshell="write sys$output "
204 $ perl_dlsrc="dl_vms.c"
207 $ perl_prefix="perl_root"
208 $ perl_binexp="''perl_prefix':[000000]"
209 $ perl_builddir="''perl_prefix':[000000]"
210 $ perl_installbin="''perl_prefix':[000000]"
211 $ perl_installscript="''perl_prefix':[utils]"
212 $ perl_installman1dir="''perl_prefix':[man.man1]"
213 $ perl_installman3dir="''perl_prefix':[man.man3]"
214 $ perl_installprivlib="''perl_prefix':[lib]"
215 $ perl_installsitelib="''perl_prefix':[lib.site_perl]"
218 $ perl_d_sockpair="undef"
219 $ perl_i_neterrno="define"
220 $ perl_ldflags="/NoTrace/NoMap"
221 $ perl_d_lchown="undef"
222 $ perl_d_mknod="undef"
223 $ perl_d_union_semun="undef"
224 $ perl_d_semctl_semun="undef"
225 $ perl_d_semctl_semid_ds="undef"
226 $ IF (sharedperl .AND. F$GETSYI("HW_MODEL") .GE. 1024)
228 $ perl_obj_ext=".abj"
231 $ perl_exe_ext=".axe"
232 $ perl_lib_ext=".alb"
234 $ perl_obj_ext=".obj"
237 $ perl_exe_ext=".exe"
238 $ perl_lib_ext=".olb"
240 $ perl_dlobj="dl_vms''perl_obj_ext'"
242 $ perl_d_archlib="define"
243 $ perl_d_bincompat3="undef"
244 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
246 $ perl_cpprun="''Perl_CC'/noobj/preprocess=sys$output sys$input"
249 $ perl_d_castneg="define"
251 $ perl_d_chsize="undef"
252 $ perl_d_const="define"
253 $ perl_d_crypt="define"
254 $ perl_byteorder="1234"
257 $ perl_d_dup2="define"
258 $ perl_d_fchmod="undef"
259 $ perl_d_fchown="undef"
260 $ perl_d_fcntl="undef"
261 $ perl_d_fgetpos="define"
262 $ perl_d_flexfnam="define"
263 $ perl_d_flock="undef"
264 $ perl_d_fsetpos="define"
265 $ perl_d_getgrps="undef"
266 $ perl_d_setgrps="undef"
267 $ perl_d_getprior="undef"
268 $ perl_d_killpg="undef"
269 $ perl_d_link="undef"
270 $ perl_d_lstat="undef"
271 $ perl_d_lockf="undef"
272 $ perl_d_memcmp="define"
273 $ perl_d_memcpy="define"
274 $ perl_d_memmove="define"
275 $ perl_d_memset="define"
276 $ perl_d_mkdir="define"
278 $ perl_d_open3="define"
279 $ perl_d_poll="undef"
280 $ perl_d_readdir="define"
281 $ perl_d_seekdir="define"
282 $ perl_d_telldir="define"
283 $ perl_d_rewinddir="define"
284 $ perl_d_rename="define"
285 $ perl_d_rmdir="define"
287 $ perl_d_setegid="undef"
288 $ perl_d_seteuid="undef"
289 $ perl_d_setprior="undef"
290 $ perl_d_setregid="undef"
291 $ perl_d_setresgid="undef"
292 $ perl_d_setreuid="undef"
293 $ perl_d_setresuid="undef"
294 $ perl_d_setrgid="undef"
295 $ perl_d_setruid="undef"
296 $ perl_d_setsid="undef"
298 $ perl_d_shmatprototype="undef"
299 $ perl_d_statblks="undef"
300 $ perl_stdio_ptr="((*fp)->_ptr)"
301 $ perl_stdio_cnt="((*fp)->_cnt)"
302 $ perl_stdio_base="((*fp)->_base)"
303 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
304 $ perl_d_strctcpy="define"
305 $ perl_d_strerror="define"
306 $ perl_d_syserrlst="undef"
307 $ perl_d_strerrm="strerror((e),vaxc$errno)"
308 $ perl_d_symlink="undef"
309 $ perl_d_syscall="undef"
310 $ perl_d_system="define"
311 $ perl_timetype="time_t"
312 $ perl_d_vfork="define"
313 $ perl_signal_t="void"
314 $ perl_d_volatile="define"
315 $ perl_d_vprintf="define"
316 $ perl_d_charvspr="undef"
317 $ perl_d_waitpid="define"
318 $ perl_i_dirent="undef"
319 $ perl_d_dirnamlen="define"
320 $ perl_direntrytype="struct dirent"
321 $ perl_i_fcntl="undef"
323 $ perl_i_limits="define"
324 $ perl_i_memory="undef"
325 $ perl_i_ndbm="undef"
326 $ perl_i_stdarg="define"
328 $ perl_d_pwquota="undef"
329 $ perl_d_pwage="undef"
330 $ perl_d_pwchange="undef"
331 $ perl_d_pwclass="undef"
332 $ perl_d_pwexpire="undef"
333 $ perl_d_pwcomment="define"
334 $ perl_i_stddef="define"
335 $ perl_i_stdlib="define"
336 $ perl_i_string="define"
337 $ perl_i_sysdir="undef"
338 $ perl_i_sysfile="undef"
339 $ perl_i_sysioctl="undef"
340 $ perl_i_sysndir="undef"
341 $ perl_i_sysresrc="undef"
342 $ perl_i_sysselct="undef"
344 $ perl_i_rpcsvcdbm="undef"
345 $ perl_i_sfio="undef"
346 $ perl_i_sysstat="define"
347 $ perl_i_systimes="undef"
348 $ perl_i_systypes="define"
349 $ perl_i_sysun="undef"
350 $ perl_i_syswait="undef"
351 $ perl_i_termio="undef"
352 $ perl_i_sgtty="undef"
353 $ perl_i_termios="undef"
354 $ perl_i_time="define"
355 $ perl_i_systime="undef"
356 $ perl_i_systimek="undef"
357 $! perl_i_unistd="undef"
358 $ perl_i_utime="undef"
359 $ perl_i_varargs="undef"
360 $ perl_i_vfork="undef"
361 $ perl_prototype="define"
363 $ perl_stdchar="char"
364 $ perl_d_unlink_all_versions="undef"
365 $ perl_full_sed="_NLA0:"
366 $ perl_bin="/''perl_prefix'/000000"
367 $ perl_binexp="''perl_prefix':[000000]"
368 $ perl_d_alarm="define"
369 $ perl_d_casti32="define"
370 $ perl_d_chown="define"
371 $ perl_d_chroot="undef"
372 $ perl_d_cuserid="define"
373 $ perl_d_dbl_dig="define"
374 $ perl_d_ldbl_dig="define"
375 $ perl_d_difftime="define"
376 $ perl_d_fork="undef"
377 $ perl_d_getlogin="define"
378 $ perl_d_getppid="undef"
379 $ perl_d_nice="define"
380 $ perl_d_pause="define"
381 $ perl_d_pipe="define"
382 $ perl_d_readlink="undef"
383 $ perl_d_setlinebuf="undef"
384 $ perl_d_strchr="define"
385 $ perl_d_strtod="define"
386 $ perl_d_strtol="define"
387 $ perl_d_strtoul="define"
388 $ perl_d_tcgetpgrp="undef"
389 $ perl_d_tcsetpgrp="undef"
390 $ perl_d_times="define"
391 $ perl_d_tzname="undef"
392 $ perl_d_umask="define"
393 $ perl_fpostype="fpos_t"
394 $ perl_i_dlfcn="undef"
395 $ perl_i_float="define"
396 $ perl_i_math="define"
397 $ perl_lseektype="int"
398 $ perl_i_values="undef"
399 $ perl_malloctype="void *"
400 $ perl_freetype="void"
401 $ perl_d_perl_otherlibdirs="undef"
402 $ perl_otherlibdirs=""
405 $ perl_d_mymalloc="define"
407 $ perl_d_mymalloc="undef"
410 $ perl_modetype="unsigned int"
411 $ perl_ssizetype="int"
412 $ perl_o_nonblock=" "
415 $ perl_d_eofnblk="undef"
416 $ perl_d_oldarchlib="define"
417 $ perl_privlibexp="''perl_prefix':[lib]"
418 $ perl_privlib="''perl_prefix':[lib]"
419 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
420 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
421 $ perl_sitelib_stem="''perl_prefix':[lib.site_perl]"
422 $ perl_sizetype="size_t"
423 $ perl_i_sysparam="undef"
424 $ perl_d_void_closedir="define"
425 $ perl_d_dlerror="undef"
426 $ perl_d_dlsymun="undef"
427 $ perl_d_suidsafe="undef"
428 $ perl_d_dosuid="undef"
429 $ perl_d_inetaton="undef"
430 $ perl_d_isascii="define"
431 $ perl_d_mkfifo="undef"
432 $ perl_d_safebcpy="undef"
433 $ perl_d_safemcpy="define"
434 $ perl_d_sanemcmp="define"
435 $ perl_d_setpgrp="undef"
436 $ perl_d_bsdsetpgrp="undef"
437 $ perl_d_bsdpgrp="undef"
438 $ perl_d_setpgid="undef"
439 $ perl_d_setpgrp2="undef"
440 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
441 $ perl_d_getpgid="undef"
442 $ perl_d_getpgrp="undef"
443 $ perl_d_bsdgetpgrp="undef"
444 $ perl_d_getpgrp2="undef"
445 $ perl_d_sfio="undef"
446 $ perl_usedl="define"
447 $ perl_startperl="""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ + ++$status != 0 and $exit = $status = undef;"""
448 $ perl_db_hashtype=" "
449 $ perl_db_prefixtype=" "
450 $ perl_useperlio="undef"
451 $ perl_defvoidused="15"
452 $ perl_voidflags="15"
453 $ perl_d_eunice="undef"
454 $ perl_d_pwgecos="define"
455 $ IF ((Use_Threads) .AND. (VMS_VER .LES. "6.2"))
457 $ 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"
463 $ perl_libc="(DECCRTL)"
473 $ perl_d_PRIfldbl = "define"
474 $ perl_d_PRIgldbl = "define"
475 $ perl_d_PRId64 = "define"
476 $ perl_d_PRIu64 = "define"
477 $ perl_d_PRIo64 = "define"
478 $ perl_d_PRIx64 = "define"
479 $ perl_sPRIfldbl = """Lf"""
480 $ perl_sPRIgldbl = """Lg"""
481 $ perl_sPRId64 = """Ld"""
482 $ perl_sPRIu64 = """Lu"""
483 $ perl_sPRIo64 = """Lo"""
484 $ perl_sPRIx64 = """Lx"""
485 $ perl_d_quad = "define"
486 $ perl_quadtype = "long long"
487 $ perl_uquadtype = "unsigned long long"
488 $ perl_quadkind = "QUAD_IS_LONG_LONG"
489 $ perl_d_frexpl = "define"
490 $ perl_d_isnanl = "define"
491 $ perl_d_modfl = "define"
493 $ perl_d_PRIfldbl = "undef"
494 $ perl_d_PRIgldbl = "undef"
495 $ perl_d_PRId64 = "undef"
496 $ perl_d_PRIu64 = "undef"
497 $ perl_d_PRIo64 = "undef"
498 $ perl_d_PRIx64 = "undef"
499 $ perl_sPRIfldbl = ""
500 $ perl_sPRIgldbl = ""
505 $ perl_d_quad = "undef"
506 $ perl_quadtype = "long"
507 $ perl_uquadtype = "unsigned long"
508 $ perl_quadkind = "QUAD_IS_LONG"
509 $ perl_d_frexpl = "undef"
510 $ perl_d_isnanl = "undef"
511 $ perl_d_modfl = "undef"
514 $! Now some that we build up
518 $ if use_5005_threads
520 $ arch = "''arch'-thread"
521 $ archname = "''archname'-thread"
522 $ perl_d_old_pthread_create_joinable = "undef"
523 $ perl_old_pthread_create_joinable = " "
524 $ perl_use5005threads = "define"
525 $ perl_useithreads = "undef"
527 $ arch = "''arch'-ithread"
528 $ archname = "''archname'-ithread"
529 $ perl_d_old_pthread_create_joinable = "undef"
530 $ perl_old_pthread_create_joinable = " "
531 $ perl_use5005threads = "undef"
532 $ perl_useithreads = "define"
535 $ perl_d_old_pthread_create_joinable = "undef"
536 $ perl_old_pthread_create_joinable = " "
537 $ perl_use5005threads = "undef"
538 $ perl_useithreads = "undef"
541 $! Some that we need to invoke the compiler for
542 $ OS := "open/write SOURCECHAN []temp.c"
543 $ WS := "write SOURCECHAN"
544 $ CS := "close SOURCECHAN"
545 $ DS := "delete/nolog []temp.*;*"
549 $ open/write OPTCHAN []temp.opt
550 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
551 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
556 $! Check for __STDC__
560 $ WS "#include <stdlib.h>
562 $ WS "#include <stdio.h>
565 $ WS "#ifdef __STDC__
566 $ WS "printf(""42\n"");
568 $ WS "printf(""1\n"");
573 $ DEFINE SYS$ERROR _NLA0:
574 $ DEFINE SYS$OUTPUT _NLA0:
575 $ ON ERROR THEN CONTINUE
576 $ ON WARNING THEN CONTINUE
580 $ link temp.obj,temp.opt/opt
584 $ DEASSIGN SYS$OUTPUT
586 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
587 $ DEFINE SYS$ERROR TEMPOUT
588 $ DEFINE SYS$OUTPUT TEMPOUT
591 $ DEASSIGN SYS$OUTPUT
593 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
596 $ 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
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
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;
694 $ perl_longdblsize=line
695 $ perl_d_longdbl="define"
698 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
699 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
701 $! Check for long long existance and size
705 $ WS "#include <stdlib.h>
707 $ WS "#include <stdio.h>
710 $ WS "printf(""%d\n"", sizeof(long long));
714 $ DEFINE SYS$ERROR _NLA0:
715 $ DEFINE SYS$OUTPUT _NLA0:
716 $ on error then continue
717 $ on warning then continue
721 $ link temp.obj,temp.opt/opt
725 $ teststatus = f$extract(9,1,$status)
726 $ DEASSIGN SYS$OUTPUT
728 $ if (teststatus.nes."1")
730 $ perl_longlongsize="0"
731 $ perl_d_longlong="undef"
733 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
734 $ DEFINE SYS$ERROR TEMPOUT
735 $ DEFINE SYS$OUTPUT TEMPOUT
738 $ DEASSIGN SYS$OUTPUT
740 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
743 $ DELETE/NOLOG [-.uu]tempout.lis;
744 $ perl_longlongsize=line
745 $ perl_d_longlong="define"
747 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
748 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
750 $! Check the prototype for getgid
754 $ WS "#include <stdlib.h>
756 $ WS "#include <stdio.h>
757 $ WS "#include <types.h>
758 $ WS "#include <unistd.h>
765 $ DEFINE SYS$ERROR _NLA0:
766 $ DEFINE SYS$OUTPUT _NLA0:
767 $ on error then continue
768 $ on warning then continue
770 $ teststatus = f$extract(9,1,$status)
771 $ DEASSIGN SYS$OUTPUT
773 $ if (teststatus.nes."1")
775 $! Okay, gid_t failed. Must be unsigned int
776 $ perl_gidtype = "unsigned int"
778 $ perl_gidtype = "gid_t"
780 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
782 $! Check to see if we've got dev_t
786 $ WS "#include <stdlib.h>
788 $ WS "#include <stdio.h>
789 $ WS "#include <types.h>
790 $ WS "#include <unistd.h>
797 $ DEFINE SYS$ERROR _NLA0:
798 $ DEFINE SYS$OUTPUT _NLA0:
799 $ on error then continue
800 $ on warning then continue
802 $ teststatus = f$extract(9,1,$status)
803 $ DEASSIGN SYS$OUTPUT
805 $ if (teststatus.nes."1")
807 $! Okay, dev_t failed. Must be unsigned int
808 $ perl_devtype = "unsigned int"
810 $ perl_devtype = "dev_t"
812 $ WRITE_RESULT "Dev_t is ''perl_devtype'"
814 $! Check to see if we've got unistd.h (which we ought to, but you never know)
818 $ WS "#include <stdlib.h>
820 $ WS "#include <unistd.h>
826 $ DEFINE SYS$ERROR _NLA0:
827 $ DEFINE SYS$OUTPUT _NLA0:
828 $ on error then continue
829 $ on warning then continue
831 $ teststatus = f$extract(9,1,$status)
832 $ DEASSIGN SYS$OUTPUT
834 $ if (teststatus.nes."1")
836 $! Okay, failed. Must not have it
837 $ perl_i_unistd = "undef"
839 $ perl_i_unistd = "define"
841 $ WRITE_RESULT "i_unistd is ''perl_i_unistd'"
843 $! Check to see if we've got shadow.h (probably not, but...)
847 $ WS "#include <stdlib.h>
849 $ WS "#include <shadow.h>
855 $ DEFINE SYS$ERROR _NLA0:
856 $ DEFINE SYS$OUTPUT _NLA0:
857 $ on error then continue
858 $ on warning then continue
860 $ teststatus = f$extract(9,1,$status)
861 $ DEASSIGN SYS$OUTPUT
863 $ if (teststatus.nes."1")
865 $! Okay, failed. Must not have it
866 $ perl_i_shadow = "undef"
868 $ perl_i_shadow = "define"
870 $ WRITE_RESULT "i_shadow is ''perl_i_shadow'"
872 $! Check to see if we've got socks.h (probably not, but...)
876 $ WS "#include <stdlib.h>
878 $ WS "#include <socks.h>
884 $ DEFINE SYS$ERROR _NLA0:
885 $ DEFINE SYS$OUTPUT _NLA0:
886 $ on error then continue
887 $ on warning then continue
889 $ teststatus = f$extract(9,1,$status)
890 $ DEASSIGN SYS$OUTPUT
892 $ if (teststatus.nes."1")
894 $! Okay, failed. Must not have it
895 $ perl_i_socks = "undef"
897 $ perl_i_socks = "define"
899 $ WRITE_RESULT "i_socks is ''perl_i_socks'"
901 $! Check the prototype for select
903 $ IF Has_Dec_C_Sockets .OR. Has_Socketshr
907 $ WS "#include <stdlib.h>
909 $ WS "#include <stdio.h>
910 $ WS "#include <types.h>
911 $ WS "#include <unistd.h>
914 $ WS "#include <socketshr.h>"
916 $ WS "#include <time.h>
917 $ WS "#include <socket.h>
924 $ WS "bar = select(2, foo, foo, foo, NULL);
928 $ DEFINE SYS$ERROR _NLA0:
929 $ DEFINE SYS$OUTPUT _NLA0:
930 $ on error then continue
931 $ on warning then continue
933 $ teststatus = f$extract(9,1,$status)
934 $ DEASSIGN SYS$OUTPUT
936 $ if (teststatus.nes."1")
938 $! Okay, fd_set failed. Must be an int
939 $ perl_selecttype = "int *"
941 $ perl_selecttype="fd_set *"
944 $ ! No sockets, so stick in an int *
945 $ perl_selecttype = "int *"
947 $ WRITE_RESULT "selectype is ''perl_selecttype'"
949 $! Check to see if fd_set exists
953 $ WS "#include <stdlib.h>
955 $ WS "#include <stdio.h>
956 $ WS "#include <types.h>
957 $ WS "#include <unistd.h>
960 $ WS "#include <socketshr.h>"
962 $ IF Has_Dec_C_Sockets
964 $ WS "#include <time.h>
965 $ WS "#include <socket.h>
974 $ DEFINE SYS$ERROR _NLA0:
975 $ DEFINE SYS$OUTPUT _NLA0:
976 $ on error then continue
977 $ on warning then continue
979 $ teststatus = f$extract(9,1,$status)
980 $ DEASSIGN SYS$OUTPUT
982 $ if (teststatus.nes."1")
984 $! Okay, fd_set failed. Must not exist
985 $ perl_d_fd_set = "undef"
987 $ perl_d_fd_set="define"
989 $ WRITE_RESULT "d_fd_set is ''perl_d_fd_set'"
991 $! Check for inttypes.h
995 $ WS "#include <stdlib.h>
997 $ WS "#include <stdio.h>
998 $ WS "#include <unistd.h>
999 $ WS "#include <inttypes.h>
1005 $ DEFINE SYS$ERROR _NLA0:
1006 $ DEFINE SYS$OUTPUT _NLA0:
1007 $ on error then continue
1008 $ on warning then continue
1010 $ savedstatus = $status
1011 $ teststatus = f$extract(9,1,savedstatus)
1012 $ if (teststatus.nes."1")
1014 $ perl_i_inttypes="undef"
1015 $ DEASSIGN SYS$OUTPUT
1016 $ DEASSIGN SYS$ERROR
1020 $ link temp.obj,temp.opt/opt
1024 $ savedstatus = $status
1025 $ teststatus = f$extract(9,1,savedstatus)
1026 $ DEASSIGN SYS$OUTPUT
1027 $ DEASSIGN SYS$ERROR
1028 $ if (teststatus.nes."1")
1030 $ perl_i_inttypes="undef"
1032 $ perl_i_inttypes="define"
1035 $ WRITE_RESULT "i_inttypes is ''perl_i_inttypes'"
1037 $! Check for h_errno
1041 $ WS "#include <stdlib.h>
1043 $ WS "#include <stdio.h>
1044 $ WS "#include <unistd.h>
1045 $ WS "#include <netdb.h>
1052 $ DEFINE SYS$ERROR _NLA0:
1053 $ DEFINE SYS$OUTPUT _NLA0:
1054 $ on error then continue
1055 $ on warning then continue
1057 $ savedstatus = $status
1058 $ teststatus = f$extract(9,1,savedstatus)
1059 $ if (teststatus.nes."1")
1061 $ perl_d_herrno="undef"
1062 $ DEASSIGN SYS$OUTPUT
1063 $ DEASSIGN SYS$ERROR
1067 $ link temp.obj,temp.opt/opt
1071 $ savedstatus = $status
1072 $ teststatus = f$extract(9,1,savedstatus)
1073 $ DEASSIGN SYS$OUTPUT
1074 $ DEASSIGN SYS$ERROR
1075 $ if (teststatus.nes."1")
1077 $ perl_d_herrno="undef"
1079 $ perl_d_herrno="define"
1082 $ WRITE_RESULT "d_herrno is ''perl_d_herrno'"
1084 $! Check to see if int64_t exists
1088 $ WS "#include <stdlib.h>
1090 $ WS "#include <stdio.h>
1091 $ WS "#include <types.h>
1092 $ WS "#''perl_i_inttypes IIH
1094 $ WS "#include <inttypes.h>
1096 $ WS "#include <unistd.h>
1103 $ DEFINE SYS$ERROR _NLA0:
1104 $ DEFINE SYS$OUTPUT _NLA0:
1105 $ on error then continue
1106 $ on warning then continue
1108 $ teststatus = f$extract(9,1,$status)
1109 $ DEASSIGN SYS$OUTPUT
1110 $ DEASSIGN SYS$ERROR
1111 $ if (teststatus.nes."1")
1113 $! Okay, int64_t failed. Must not exist
1114 $ perl_d_int64_t = "undef"
1116 $ perl_d_int64_t="define"
1118 $ WRITE_RESULT "d_int64_t is ''perl_d_int64_t'"
1120 $! Check to see if off64_t exists
1124 $ WS "#include <stdlib.h>
1126 $ WS "#include <stdio.h>
1127 $ WS "#include <types.h>
1128 $ WS "#''perl_i_inttypes IIH
1130 $ WS "#include <inttypes.h>
1132 $ WS "#include <unistd.h>
1139 $ DEFINE SYS$ERROR _NLA0:
1140 $ DEFINE SYS$OUTPUT _NLA0:
1141 $ on error then continue
1142 $ on warning then continue
1144 $ teststatus = f$extract(9,1,$status)
1145 $ DEASSIGN SYS$OUTPUT
1146 $ DEASSIGN SYS$ERROR
1147 $ if (teststatus.nes."1")
1149 $! Okay, off64_t failed. Must not exist
1150 $ perl_d_off64_t = "undef"
1152 $ perl_d_off64_t="define"
1154 $ WRITE_RESULT "d_off64_t is ''perl_d_off64_t'"
1156 $! Check to see if fpos64_t exists
1160 $ WS "#include <stdlib.h>
1162 $ WS "#include <stdio.h>
1163 $ WS "#include <types.h>
1164 $ WS "#''perl_i_inttypes IIH
1166 $ WS "#include <inttypes.h>
1168 $ WS "#include <unistd.h>
1175 $ DEFINE SYS$ERROR _NLA0:
1176 $ DEFINE SYS$OUTPUT _NLA0:
1177 $ on error then continue
1178 $ on warning then continue
1180 $ teststatus = f$extract(9,1,$status)
1181 $ DEASSIGN SYS$OUTPUT
1182 $ DEASSIGN SYS$ERROR
1183 $ if (teststatus.nes."1")
1185 $! Okay, fpos64_t failed. Must not exist
1186 $ perl_d_fpos64_t = "undef"
1188 $ perl_d_fpos64_t="define"
1190 $ WRITE_RESULT "d_fpos64_t is ''perl_d_fpos64_t'"
1192 $! Check to see if gethostname exists
1194 $ IF (Has_Dec_C_Sockets .OR. Has_Socketshr)
1198 $ WS "#include <stdlib.h>
1200 $ WS "#include <stdio.h>
1201 $ WS "#include <types.h>
1202 $ WS "#include <unistd.h>
1205 $ WS "#include <socketshr.h>"
1207 $ WS "#include <time.h>
1208 $ WS "#include <socket.h>
1212 $ WS "char name[100];
1215 $ WS "baz = gethostname(name, bar);
1219 $ DEFINE SYS$ERROR _NLA0:
1220 $ DEFINE SYS$OUTPUT _NLA0:
1221 $ on error then continue
1222 $ on warning then continue
1224 $ teststatus = f$extract(9,1,$status)
1225 $ DEASSIGN SYS$OUTPUT
1226 $ DEASSIGN SYS$ERROR
1227 $ if (teststatus.nes."1")
1229 $! Okay, compile failed. Must not have it
1230 $ perl_d_gethname = "undef"
1234 $ link temp.obj,temp.opt/opt
1238 $ savedstatus = $status
1239 $ teststatus = f$extract(9,1,savedstatus)
1240 $ if (teststatus.nes."1")
1242 $ perl_d_gethname="undef"
1244 $ perl_d_gethname="define"
1248 $ ! No sockets, so no gethname
1249 $ perl_d_gethname = "undef"
1251 $ WRITE_RESULT "d_gethname is ''perl_d_gethname'"
1253 $! Check for sys/file.h
1257 $ WS "#include <stdlib.h>
1259 $ WS "#include <stdio.h>
1260 $ WS "#include <unistd.h>
1261 $ WS "#include <sys/file.h>
1267 $ DEFINE SYS$ERROR _NLA0:
1268 $ DEFINE SYS$OUTPUT _NLA0:
1269 $ on error then continue
1270 $ on warning then continue
1272 $ savedstatus = $status
1273 $ teststatus = f$extract(9,1,savedstatus)
1274 $ if (teststatus.nes."1")
1276 $ perl_i_sysfile="undef"
1277 $ DEASSIGN SYS$OUTPUT
1278 $ DEASSIGN SYS$ERROR
1282 $ link temp.obj,temp.opt/opt
1286 $ savedstatus = $status
1287 $ teststatus = f$extract(9,1,savedstatus)
1288 $ DEASSIGN SYS$OUTPUT
1289 $ DEASSIGN SYS$ERROR
1290 $ if (teststatus.nes."1")
1292 $ perl_i_sysfile="undef"
1294 $ perl_i_sysfile="define"
1297 $ WRITE_RESULT "i_sysfile is ''perl_i_sysfile'"
1299 $! Check for sys/utsname.h
1303 $ WS "#include <stdlib.h>
1305 $ WS "#include <stdio.h>
1306 $ WS "#include <unistd.h>
1307 $ WS "#include <sys/utsname.h>
1313 $ DEFINE SYS$ERROR _NLA0:
1314 $ DEFINE SYS$OUTPUT _NLA0:
1315 $ on error then continue
1316 $ on warning then continue
1318 $ savedstatus = $status
1319 $ teststatus = f$extract(9,1,savedstatus)
1320 $ if (teststatus.nes."1")
1322 $ perl_i_sysutsname="undef"
1323 $ DEASSIGN SYS$OUTPUT
1324 $ DEASSIGN SYS$ERROR
1328 $ link temp.obj,temp.opt/opt
1332 $ savedstatus = $status
1333 $ teststatus = f$extract(9,1,savedstatus)
1334 $ DEASSIGN SYS$OUTPUT
1335 $ DEASSIGN SYS$ERROR
1336 $ if (teststatus.nes."1")
1338 $ perl_i_sysutsname="undef"
1340 $ perl_i_sysutsname="define"
1343 $ WRITE_RESULT "i_sysutsname is ''perl_i_sysutsname'"
1345 $! Check for syslog.h
1349 $ WS "#include <stdlib.h>
1351 $ WS "#include <stdio.h>
1352 $ WS "#include <unistd.h>
1353 $ WS "#include <syslog.h>
1359 $ DEFINE SYS$ERROR _NLA0:
1360 $ DEFINE SYS$OUTPUT _NLA0:
1361 $ on error then continue
1362 $ on warning then continue
1364 $ savedstatus = $status
1365 $ teststatus = f$extract(9,1,savedstatus)
1366 $ if (teststatus.nes."1")
1368 $ perl_i_syslog="undef"
1369 $ DEASSIGN SYS$OUTPUT
1370 $ DEASSIGN SYS$ERROR
1374 $ link temp.obj,temp.opt/opt
1378 $ savedstatus = $status
1379 $ teststatus = f$extract(9,1,savedstatus)
1380 $ DEASSIGN SYS$OUTPUT
1381 $ DEASSIGN SYS$ERROR
1382 $ if (teststatus.nes."1")
1384 $ perl_i_syslog="undef"
1386 $ perl_i_syslog="define"
1389 $ WRITE_RESULT "i_syslog is ''perl_i_syslog'"
1395 $ WS "#include <stdlib.h>
1397 $ WS "#include <stdio.h>
1398 $ WS "#include <unistd.h>
1399 $ WS "#include <poll.h>
1405 $ DEFINE SYS$ERROR _NLA0:
1406 $ DEFINE SYS$OUTPUT _NLA0:
1407 $ on error then continue
1408 $ on warning then continue
1410 $ savedstatus = $status
1411 $ teststatus = f$extract(9,1,savedstatus)
1412 $ if (teststatus.nes."1")
1414 $ perl_i_poll="undef"
1415 $ DEASSIGN SYS$OUTPUT
1416 $ DEASSIGN SYS$ERROR
1420 $ link temp.obj,temp.opt/opt
1424 $ savedstatus = $status
1425 $ teststatus = f$extract(9,1,savedstatus)
1426 $ DEASSIGN SYS$OUTPUT
1427 $ DEASSIGN SYS$ERROR
1428 $ if (teststatus.nes."1")
1430 $ perl_i_poll="undef"
1432 $ perl_i_poll="define"
1435 $ WRITE_RESULT "i_poll is ''perl_i_poll'"
1437 $! Check for sys/uio.h
1441 $ WS "#include <stdlib.h>
1443 $ WS "#include <stdio.h>
1444 $ WS "#include <unistd.h>
1445 $ WS "#include <sys/uio.h>
1451 $ DEFINE SYS$ERROR _NLA0:
1452 $ DEFINE SYS$OUTPUT _NLA0:
1453 $ on error then continue
1454 $ on warning then continue
1456 $ savedstatus = $status
1457 $ teststatus = f$extract(9,1,savedstatus)
1458 $ if (teststatus.nes."1")
1460 $ perl_i_sysuio="undef"
1461 $ DEASSIGN SYS$OUTPUT
1462 $ DEASSIGN SYS$ERROR
1466 $ link temp.obj,temp.opt/opt
1470 $ savedstatus = $status
1471 $ teststatus = f$extract(9,1,savedstatus)
1472 $ DEASSIGN SYS$OUTPUT
1473 $ DEASSIGN SYS$ERROR
1474 $ if (teststatus.nes."1")
1476 $ perl_i_sysuio="undef"
1478 $ perl_i_sysuio="define"
1481 $ WRITE_RESULT "i_sysuio is ''perl_i_sysuio'"
1483 $! Check for sys/mode.h
1487 $ WS "#include <stdlib.h>
1489 $ WS "#include <stdio.h>
1490 $ WS "#include <unistd.h>
1491 $ WS "#include <sys/mode.h>
1497 $ DEFINE SYS$ERROR _NLA0:
1498 $ DEFINE SYS$OUTPUT _NLA0:
1499 $ on error then continue
1500 $ on warning then continue
1502 $ savedstatus = $status
1503 $ teststatus = f$extract(9,1,savedstatus)
1504 $ if (teststatus.nes."1")
1506 $ perl_i_sysmode="undef"
1507 $ DEASSIGN SYS$OUTPUT
1508 $ DEASSIGN SYS$ERROR
1510 $ If (Needs_Opt.eqs."Yes")
1512 $ link temp.obj,temp.opt/opt
1516 $ savedstatus = $status
1517 $ teststatus = f$extract(9,1,savedstatus)
1518 $ DEASSIGN SYS$OUTPUT
1519 $ DEASSIGN SYS$ERROR
1520 $ if (teststatus.nes."1")
1522 $ perl_i_sysmode="undef"
1524 $ perl_i_sysmode="define"
1527 $ WRITE_RESULT "i_sysmode is ''perl_i_sysmode'"
1529 $! Check for sys/access.h
1533 $ WS "#include <stdlib.h>
1535 $ WS "#include <stdio.h>
1536 $ WS "#include <unistd.h>
1537 $ WS "#include <sys/access.h>
1543 $ DEFINE SYS$ERROR _NLA0:
1544 $ DEFINE SYS$OUTPUT _NLA0:
1545 $ on error then continue
1546 $ on warning then continue
1548 $ savedstatus = $status
1549 $ teststatus = f$extract(9,1,savedstatus)
1550 $ if (teststatus.nes."1")
1552 $ perl_i_sysaccess="undef"
1553 $ DEASSIGN SYS$OUTPUT
1554 $ DEASSIGN SYS$ERROR
1556 $ If (Needs_Opt.eqs."Yes")
1558 $ link temp.obj,temp.opt/opt
1562 $ savedstatus = $status
1563 $ teststatus = f$extract(9,1,savedstatus)
1564 $ DEASSIGN SYS$OUTPUT
1565 $ DEASSIGN SYS$ERROR
1566 $ if (teststatus.nes."1")
1568 $ perl_i_sysaccess="undef"
1570 $ perl_i_sysaccess="define"
1573 $ WRITE_RESULT "i_sysaccess is ''perl_i_sysaccess'"
1575 $! Check for sys/security.h
1579 $ WS "#include <stdlib.h>
1581 $ WS "#include <stdio.h>
1582 $ WS "#include <unistd.h>
1583 $ WS "#include <sys/security.h>
1589 $ DEFINE SYS$ERROR _NLA0:
1590 $ DEFINE SYS$OUTPUT _NLA0:
1591 $ on error then continue
1592 $ on warning then continue
1594 $ savedstatus = $status
1595 $ teststatus = f$extract(9,1,savedstatus)
1596 $ if (teststatus.nes."1")
1598 $ perl_i_syssecrt="undef"
1599 $ DEASSIGN SYS$OUTPUT
1600 $ DEASSIGN SYS$ERROR
1602 $ If (Needs_Opt.eqs."Yes")
1604 $ link temp.obj,temp.opt/opt
1608 $ savedstatus = $status
1609 $ teststatus = f$extract(9,1,savedstatus)
1610 $ DEASSIGN SYS$OUTPUT
1611 $ DEASSIGN SYS$ERROR
1612 $ if (teststatus.nes."1")
1614 $ perl_i_syssecrt="undef"
1616 $ perl_i_syssecrt="define"
1619 $ WRITE_RESULT "i_syssecrt is ''perl_i_syssecrt'"
1621 $! Check for fcntl.h
1625 $ WS "#include <stdlib.h>
1627 $ WS "#include <stdio.h>
1628 $ WS "#include <unistd.h>
1629 $ WS "#include <fcntl.h>
1635 $ DEFINE SYS$ERROR _NLA0:
1636 $ DEFINE SYS$OUTPUT _NLA0:
1637 $ on error then continue
1638 $ on warning then continue
1640 $ savedstatus = $status
1641 $ teststatus = f$extract(9,1,savedstatus)
1642 $ if (teststatus.nes."1")
1644 $ perl_i_fcntl="undef"
1645 $ DEASSIGN SYS$OUTPUT
1646 $ DEASSIGN SYS$ERROR
1648 $ If (Needs_Opt.eqs."Yes")
1650 $ link temp.obj,temp.opt/opt
1654 $ savedstatus = $status
1655 $ teststatus = f$extract(9,1,savedstatus)
1656 $ DEASSIGN SYS$OUTPUT
1657 $ DEASSIGN SYS$ERROR
1658 $ if (teststatus.nes."1")
1660 $ perl_i_fcntl="undef"
1662 $ perl_i_fcntl="define"
1665 $ WRITE_RESULT "i_fcntl is ''perl_i_fcntl'"
1671 $ WS "#include <stdlib.h>
1673 $ WS "#include <stdio.h>
1674 $ WS "#include <unistd.h>
1675 $ WS "#include <fcntl.h>
1682 $ DEFINE SYS$ERROR _NLA0:
1683 $ DEFINE SYS$OUTPUT _NLA0:
1684 $ on error then continue
1685 $ on warning then continue
1687 $ savedstatus = $status
1688 $ teststatus = f$extract(9,1,savedstatus)
1689 $ if (teststatus.nes."1")
1691 $ perl_d_fcntl="undef"
1692 $ DEASSIGN SYS$OUTPUT
1693 $ DEASSIGN SYS$ERROR
1695 $ If (Needs_Opt.eqs."Yes")
1697 $ link temp.obj,temp.opt/opt
1701 $ savedstatus = $status
1702 $ teststatus = f$extract(9,1,savedstatus)
1703 $ DEASSIGN SYS$OUTPUT
1704 $ DEASSIGN SYS$ERROR
1705 $ if (teststatus.nes."1")
1707 $ perl_d_fcntl="undef"
1709 $ perl_d_fcntl="define"
1712 $ WRITE_RESULT "d_fcntl is ''perl_d_fcntl'"
1718 $ WS "#include <stdlib.h>
1720 $ WS "#include <string.h>
1724 $ WS "place = memchr(""foo"", 47, 3)
1728 $ DEFINE SYS$ERROR _NLA0:
1729 $ DEFINE SYS$OUTPUT _NLA0:
1730 $ on error then continue
1731 $ on warning then continue
1733 $ savedstatus = $status
1734 $ teststatus = f$extract(9,1,savedstatus)
1735 $ if (teststatus.nes."1")
1737 $ perl_d_memchr="undef"
1738 $ DEASSIGN SYS$OUTPUT
1739 $ DEASSIGN SYS$ERROR
1741 $ If (Needs_Opt.eqs."Yes")
1743 $ link temp.obj,temp.opt/opt
1747 $ savedstatus = $status
1748 $ teststatus = f$extract(9,1,savedstatus)
1749 $ DEASSIGN SYS$OUTPUT
1750 $ DEASSIGN SYS$ERROR
1751 $ if (teststatus.nes."1")
1753 $ perl_d_memchr="undef"
1755 $ perl_d_memchr="define"
1758 $ WRITE_RESULT "d_memchr is ''perl_d_memchr'"
1760 $! Check for strtoull
1764 $ WS "#include <stdlib.h>
1766 $ WS "#include <string.h>
1769 $ WS "unsigned __int64 result;
1770 $ WS "result = strtoull(""123123"", NULL, 10);
1774 $ DEFINE SYS$ERROR _NLA0:
1775 $ DEFINE SYS$OUTPUT _NLA0:
1776 $ on error then continue
1777 $ on warning then continue
1779 $ savedstatus = $status
1780 $ teststatus = f$extract(9,1,savedstatus)
1781 $ if (teststatus.nes."1")
1783 $ perl_d_strtoull="undef"
1784 $ DEASSIGN SYS$OUTPUT
1785 $ DEASSIGN SYS$ERROR
1787 $ If (Needs_Opt.eqs."Yes")
1789 $ link temp.obj,temp.opt/opt
1793 $ savedstatus = $status
1794 $ teststatus = f$extract(9,1,savedstatus)
1795 $ DEASSIGN SYS$OUTPUT
1796 $ DEASSIGN SYS$ERROR
1797 $ if (teststatus.nes."1")
1799 $ perl_d_strtoull="undef"
1801 $ perl_d_strtoull="define"
1804 $ WRITE_RESULT "d_strtoull is ''perl_d_strtoull'"
1806 $! Check for strtouq
1810 $ WS "#include <stdlib.h>
1812 $ WS "#include <string.h>
1815 $ WS "unsigned __int64 result;
1816 $ WS "result = strtouq(""123123"", NULL, 10);
1820 $ DEFINE SYS$ERROR _NLA0:
1821 $ DEFINE SYS$OUTPUT _NLA0:
1822 $ on error then continue
1823 $ on warning then continue
1825 $ savedstatus = $status
1826 $ teststatus = f$extract(9,1,savedstatus)
1827 $ if (teststatus.nes."1")
1829 $ perl_d_strtouq="undef"
1830 $ DEASSIGN SYS$OUTPUT
1831 $ DEASSIGN SYS$ERROR
1833 $ If (Needs_Opt.eqs."Yes")
1835 $ link temp.obj,temp.opt/opt
1839 $ savedstatus = $status
1840 $ teststatus = f$extract(9,1,savedstatus)
1841 $ DEASSIGN SYS$OUTPUT
1842 $ DEASSIGN SYS$ERROR
1843 $ if (teststatus.nes."1")
1845 $ perl_d_strtouq="undef"
1847 $ perl_d_strtouq="define"
1850 $ WRITE_RESULT "d_strtouq is ''perl_d_strtouq'"
1852 $! Check for strtoll
1856 $ WS "#include <stdlib.h>
1858 $ WS "#include <string.h>
1861 $ WS "__int64 result;
1862 $ WS "result = strtoll(""123123"", NULL, 10);
1866 $ DEFINE SYS$ERROR _NLA0:
1867 $ DEFINE SYS$OUTPUT _NLA0:
1868 $ on error then continue
1869 $ on warning then continue
1871 $ savedstatus = $status
1872 $ teststatus = f$extract(9,1,savedstatus)
1873 $ if (teststatus.nes."1")
1875 $ perl_d_strtoll="undef"
1876 $ DEASSIGN SYS$OUTPUT
1877 $ DEASSIGN SYS$ERROR
1879 $ If (Needs_Opt.eqs."Yes")
1881 $ link temp.obj,temp.opt/opt
1885 $ savedstatus = $status
1886 $ teststatus = f$extract(9,1,savedstatus)
1887 $ DEASSIGN SYS$OUTPUT
1888 $ DEASSIGN SYS$ERROR
1889 $ if (teststatus.nes."1")
1891 $ perl_d_strtoll="undef"
1893 $ perl_d_strtoll="define"
1896 $ WRITE_RESULT "d_strtoll is ''perl_d_strtoll'"
1898 $! Check for strtold
1902 $ WS "#include <stdlib.h>
1904 $ WS "#include <string.h>
1907 $ WS "long double result;
1908 $ WS "result = strtold(""123123"", NULL, 10);
1912 $ DEFINE SYS$ERROR _NLA0:
1913 $ DEFINE SYS$OUTPUT _NLA0:
1914 $ on error then continue
1915 $ on warning then continue
1917 $ savedstatus = $status
1918 $ teststatus = f$extract(9,1,savedstatus)
1919 $ if (teststatus.nes."1")
1921 $ perl_d_strtold="undef"
1922 $ DEASSIGN SYS$OUTPUT
1923 $ DEASSIGN SYS$ERROR
1925 $ If (Needs_Opt.eqs."Yes")
1927 $ link temp.obj,temp.opt/opt
1931 $ savedstatus = $status
1932 $ teststatus = f$extract(9,1,savedstatus)
1933 $ DEASSIGN SYS$OUTPUT
1934 $ DEASSIGN SYS$ERROR
1935 $ if (teststatus.nes."1")
1937 $ perl_d_strtold="undef"
1939 $ perl_d_strtold="define"
1942 $ WRITE_RESULT "d_strtold is ''perl_d_strtold'"
1948 $ WS "#include <stdlib.h>
1950 $ WS "#include <string.h>
1953 $ WS " __int64 result;
1954 $ WS "result = atoll(""123123"");
1958 $ DEFINE SYS$ERROR _NLA0:
1959 $ DEFINE SYS$OUTPUT _NLA0:
1960 $ on error then continue
1961 $ on warning then continue
1963 $ savedstatus = $status
1964 $ teststatus = f$extract(9,1,savedstatus)
1965 $ if (teststatus.nes."1")
1967 $ perl_d_atoll="undef"
1968 $ DEASSIGN SYS$OUTPUT
1969 $ DEASSIGN SYS$ERROR
1971 $ If (Needs_Opt.eqs."Yes")
1973 $ link temp.obj,temp.opt/opt
1977 $ savedstatus = $status
1978 $ teststatus = f$extract(9,1,savedstatus)
1979 $ DEASSIGN SYS$OUTPUT
1980 $ DEASSIGN SYS$ERROR
1981 $ if (teststatus.nes."1")
1983 $ perl_d_atoll="undef"
1985 $ perl_d_atoll="define"
1988 $ WRITE_RESULT "d_atoll is ''perl_d_atoll'"
1994 $ WS "#include <stdlib.h>
1996 $ WS "#include <string.h>
2000 $ WS "result = atolf(""123123"");
2004 $ DEFINE SYS$ERROR _NLA0:
2005 $ DEFINE SYS$OUTPUT _NLA0:
2006 $ on error then continue
2007 $ on warning then continue
2009 $ savedstatus = $status
2010 $ teststatus = f$extract(9,1,savedstatus)
2011 $ if (teststatus.nes."1")
2013 $ perl_d_atolf="undef"
2014 $ DEASSIGN SYS$OUTPUT
2015 $ DEASSIGN SYS$ERROR
2017 $ If (Needs_Opt.eqs."Yes")
2019 $ link temp.obj,temp.opt/opt
2023 $ savedstatus = $status
2024 $ teststatus = f$extract(9,1,savedstatus)
2025 $ DEASSIGN SYS$OUTPUT
2026 $ DEASSIGN SYS$ERROR
2027 $ if (teststatus.nes."1")
2029 $ perl_d_atolf="undef"
2031 $ perl_d_atolf="define"
2034 $ WRITE_RESULT "d_atolf is ''perl_d_atolf'"
2040 $ WS "#include <stdlib.h>
2042 $ WS "#include <stdio.h>
2043 $ WS "#include <unistd.h>
2046 $ WS "access("foo", F_OK);
2050 $ DEFINE SYS$ERROR _NLA0:
2051 $ DEFINE SYS$OUTPUT _NLA0:
2052 $ on error then continue
2053 $ on warning then continue
2055 $ savedstatus = $status
2056 $ teststatus = f$extract(9,1,savedstatus)
2057 $ if (teststatus.nes."1")
2059 $ perl_d_access="undef"
2060 $ DEASSIGN SYS$OUTPUT
2061 $ DEASSIGN SYS$ERROR
2063 $ If (Needs_Opt.eqs."Yes")
2065 $ link temp.obj,temp.opt/opt
2069 $ savedstatus = $status
2070 $ teststatus = f$extract(9,1,savedstatus)
2071 $ DEASSIGN SYS$OUTPUT
2072 $ DEASSIGN SYS$ERROR
2073 $ if (teststatus.nes."1")
2075 $ perl_d_access="undef"
2077 $ perl_d_access="define"
2080 $ WRITE_RESULT "d_access is ''perl_d_access'"
2086 $ WS "#include <stdlib.h>
2088 $ WS "#include <stdio.h>
2089 $ WS "#include <strings.h>
2093 $ WS "bzero(foo, 10);
2097 $ DEFINE SYS$ERROR _NLA0:
2098 $ DEFINE SYS$OUTPUT _NLA0:
2099 $ on error then continue
2100 $ on warning then continue
2102 $ savedstatus = $status
2103 $ teststatus = f$extract(9,1,savedstatus)
2104 $ if (teststatus.nes."1")
2106 $ perl_d_bzero="undef"
2107 $ DEASSIGN SYS$OUTPUT
2108 $ DEASSIGN SYS$ERROR
2110 $ If (Needs_Opt.eqs."Yes")
2112 $ link temp.obj,temp.opt/opt
2116 $ savedstatus = $status
2117 $ teststatus = f$extract(9,1,savedstatus)
2118 $ DEASSIGN SYS$OUTPUT
2119 $ DEASSIGN SYS$ERROR
2120 $ if (teststatus.nes."1")
2122 $ perl_d_bzero="undef"
2124 $ perl_d_bzero="define"
2127 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
2133 $ WS "#include <stdlib.h>
2135 $ WS "#include <stdio.h>
2136 $ WS "#include <strings.h>
2139 $ WS "char foo[10], bar[10];
2140 $ WS "bcopy(""foo"", bar, 3);
2144 $ DEFINE SYS$ERROR _NLA0:
2145 $ DEFINE SYS$OUTPUT _NLA0:
2146 $ on error then continue
2147 $ on warning then continue
2149 $ savedstatus = $status
2150 $ teststatus = f$extract(9,1,savedstatus)
2151 $ if (teststatus.nes."1")
2153 $ perl_d_bcopy="undef"
2154 $ DEASSIGN SYS$OUTPUT
2155 $ DEASSIGN SYS$ERROR
2157 $ If (Needs_Opt.eqs."Yes")
2159 $ link temp.obj,temp.opt/opt
2163 $ savedstatus = $status
2164 $ teststatus = f$extract(9,1,savedstatus)
2165 $ DEASSIGN SYS$OUTPUT
2166 $ DEASSIGN SYS$ERROR
2167 $ if (teststatus.nes."1")
2169 $ perl_d_bcopy="undef"
2171 $ perl_d_bcopy="define"
2174 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
2176 $! Check for mkstemp
2180 $ WS "#include <stdlib.h>
2182 $ WS "#include <stdio.h>
2185 $ WS "mkstemp(""foo"");
2189 $ DEFINE SYS$ERROR _NLA0:
2190 $ DEFINE SYS$OUTPUT _NLA0:
2191 $ on error then continue
2192 $ on warning then continue
2194 $ If (Needs_Opt.eqs."Yes")
2196 $ link temp.obj,temp.opt/opt
2200 $ savedstatus = $status
2201 $ teststatus = f$extract(9,1,savedstatus)
2202 $ DEASSIGN SYS$OUTPUT
2203 $ DEASSIGN SYS$ERROR
2204 $ if (teststatus.nes."1")
2206 $ perl_d_mkstemp="undef"
2208 $ perl_d_mkstemp="define"
2210 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
2212 $! Check for mkstemps
2216 $ WS "#include <stdlib.h>
2218 $ WS "#include <stdio.h>
2221 $ WS "mkstemps(""foo"", 1);
2225 $ DEFINE SYS$ERROR _NLA0:
2226 $ DEFINE SYS$OUTPUT _NLA0:
2227 $ on error then continue
2228 $ on warning then continue
2230 $ If (Needs_Opt.eqs."Yes")
2232 $ link temp.obj,temp.opt/opt
2236 $ savedstatus = $status
2237 $ teststatus = f$extract(9,1,savedstatus)
2238 $ DEASSIGN SYS$OUTPUT
2239 $ DEASSIGN SYS$ERROR
2240 $ if (teststatus.nes."1")
2242 $ perl_d_mkstemps="undef"
2244 $ perl_d_mkstemps="define"
2246 $ WRITE_RESULT "d_mkstemps is ''perl_d_mkstemps'"
2252 $ WS "#include <stdlib.h>
2254 $ WS "#include <stdio.h>
2255 $ WS "#include <iconv.h>
2258 $ WS " iconv_t cd = (iconv_t)0;"
2259 $ WS " char *inbuf, *outbuf;"
2260 $ WS " size_t inleft, outleft;"
2261 $ WS " iconv(cd, &inbuf, &inleft, &outbuf, &outleft);"
2265 $ DEFINE SYS$ERROR _NLA0:
2266 $ DEFINE SYS$OUTPUT _NLA0:
2267 $ on error then continue
2268 $ on warning then continue
2270 $ savedstatus = $status
2271 $ teststatus = f$extract(9,1,savedstatus)
2272 $ if (teststatus.nes."1")
2274 $ perl_d_iconv="undef"
2275 $ perl_i_iconv="undef"
2276 $ DEASSIGN SYS$OUTPUT
2277 $ DEASSIGN SYS$ERROR
2279 $ If (Needs_Opt.eqs."Yes")
2281 $ link temp.obj,temp.opt/opt
2285 $ savedstatus = $status
2286 $ teststatus = f$extract(9,1,savedstatus)
2287 $ DEASSIGN SYS$OUTPUT
2288 $ DEASSIGN SYS$ERROR
2289 $ if (teststatus.nes."1")
2291 $ perl_d_iconv="undef"
2292 $ perl_i_iconv="undef"
2294 $ perl_d_iconv="define"
2295 $ perl_i_iconv="define"
2298 $ WRITE_RESULT "d_iconv is ''perl_d_iconv'"
2299 $ WRITE_RESULT "i_iconv is ''perl_i_iconv'"
2301 $! Check for mkdtemp
2305 $ WS "#include <stdlib.h>
2307 $ WS "#include <stdio.h>
2310 $ WS "mkdtemp(""foo"");
2314 $ DEFINE SYS$ERROR _NLA0:
2315 $ DEFINE SYS$OUTPUT _NLA0:
2316 $ on error then continue
2317 $ on warning then continue
2319 $ If (Needs_Opt.eqs."Yes")
2321 $ link temp.obj,temp.opt/opt
2325 $ savedstatus = $status
2326 $ teststatus = f$extract(9,1,savedstatus)
2327 $ DEASSIGN SYS$OUTPUT
2328 $ DEASSIGN SYS$ERROR
2329 $ if (teststatus.nes."1")
2331 $ perl_d_mkdtemp="undef"
2333 $ perl_d_mkdtemp="define"
2335 $ WRITE_RESULT "d_mkdtemp is ''perl_d_mkdtemp'"
2337 $! Check for setvbuf
2341 $ WS "#include <stdlib.h>
2343 $ WS "#include <stdio.h>
2347 $ WS "char Buffer[99];
2348 $ WS "foo = fopen(""foo"", ""r"");
2349 $ WS "setvbuf(foo, Buffer, 0, 0);
2353 $ DEFINE SYS$ERROR _NLA0:
2354 $ DEFINE SYS$OUTPUT _NLA0:
2355 $ on error then continue
2356 $ on warning then continue
2358 $ If (Needs_Opt.eqs."Yes")
2360 $ link temp.obj,temp.opt/opt
2364 $ teststatus = f$extract(9,1,$status)
2365 $ DEASSIGN SYS$OUTPUT
2366 $ DEASSIGN SYS$ERROR
2367 $ if (teststatus.nes."1")
2369 $ perl_d_setvbuf="undef"
2371 $ perl_d_setvbuf="define"
2373 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
2379 $ WS "#include <stdlib.h>
2381 $ WS "#include <stdio.h>
2384 $ WS "setenv(""FOO"", ""BAR"", 0);
2388 $ DEFINE SYS$ERROR _NLA0:
2389 $ DEFINE SYS$OUTPUT _NLA0:
2390 $ on error then continue
2391 $ on warning then continue
2393 $ If (Needs_Opt.eqs."Yes")
2395 $ link temp,temp/opt
2399 $ teststatus = f$extract(9,1,$status)
2400 $ DEASSIGN SYS$OUTPUT
2401 $ DEASSIGN SYS$ERROR
2402 $ if (teststatus.nes."1")
2404 $ perl_d_setenv="undef"
2406 $ perl_d_setenv="define"
2408 $ WRITE_RESULT "d_setenv is ''perl_d_setenv'"
2410 $! Check for <netinet/in.h>
2412 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2416 $ WS "#include <stdlib.h>
2418 $ WS "#include <stdio.h>
2419 $ if ("''Has_Socketshr'".eqs."T")
2421 $ WS "#include <socketshr.h>"
2423 $ WS "#include <netdb.h>
2425 $ WS "#include <netinet/in.h>"
2431 $ DEFINE SYS$ERROR _NLA0:
2432 $ DEFINE SYS$OUTPUT _NLA0:
2433 $ on error then continue
2434 $ on warning then continue
2436 $ If (Needs_Opt.eqs."Yes")
2438 $ link temp.obj,temp.opt/opt
2442 $ teststatus = f$extract(9,1,$status)
2443 $ DEASSIGN SYS$OUTPUT
2444 $ DEASSIGN SYS$ERROR
2445 $ if (teststatus.nes."1")
2447 $ perl_i_niin="undef"
2449 $ perl_i_niin="define"
2452 $ perl_i_niin="undef"
2454 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
2456 $! Check for <netinet/tcp.h>
2458 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2462 $ WS "#include <stdlib.h>
2464 $ WS "#include <stdio.h>
2465 $ if ("''Has_Socketshr'".eqs."T")
2467 $ WS "#include <socketshr.h>"
2469 $ WS "#include <netdb.h>
2471 $ WS "#include <netinet/tcp.h>"
2477 $ DEFINE SYS$ERROR _NLA0:
2478 $ DEFINE SYS$OUTPUT _NLA0:
2479 $ on error then continue
2480 $ on warning then continue
2482 $ If (Needs_Opt.eqs."Yes")
2484 $ link temp.obj,temp.opt/opt
2488 $ teststatus = f$extract(9,1,$status)
2489 $ DEASSIGN SYS$OUTPUT
2490 $ DEASSIGN SYS$ERROR
2491 $ if (teststatus.nes."1")
2493 $ perl_i_netinettcp="undef"
2495 $ perl_i_netinettcp="define"
2498 $ perl_i_netinettcp="undef"
2500 $ WRITE_RESULT "i_netinettcp is ''perl_i_netinettcp'"
2502 $! Check for endhostent
2504 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2508 $ WS "#include <stdlib.h>
2510 $ WS "#include <stdio.h>
2511 $ if ("''Has_Socketshr'".eqs."T")
2513 $ WS "#include <socketshr.h>"
2515 $ WS "#include <netdb.h>
2523 $ DEFINE SYS$ERROR _NLA0:
2524 $ DEFINE SYS$OUTPUT _NLA0:
2525 $ on error then continue
2526 $ on warning then continue
2528 $ If (Needs_Opt.eqs."Yes")
2530 $ link temp.obj,temp.opt/opt
2534 $ teststatus = f$extract(9,1,$status)
2535 $ DEASSIGN SYS$OUTPUT
2536 $ DEASSIGN SYS$ERROR
2537 $ if (teststatus.nes."1")
2539 $ perl_d_endhent="undef"
2541 $ perl_d_endhent="define"
2544 $ perl_d_endhent="undef"
2546 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
2548 $! Check for endnetent
2550 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2554 $ WS "#include <stdlib.h>
2556 $ WS "#include <stdio.h>
2557 $ if ("''Has_Socketshr'".eqs."T")
2559 $ WS "#include <socketshr.h>"
2561 $ WS "#include <netdb.h>
2569 $ DEFINE SYS$ERROR _NLA0:
2570 $ DEFINE SYS$OUTPUT _NLA0:
2571 $ on error then continue
2572 $ on warning then continue
2574 $ If (Needs_Opt.eqs."Yes")
2576 $ link temp.obj,temp.opt/opt
2580 $ teststatus = f$extract(9,1,$status)
2581 $ DEASSIGN SYS$OUTPUT
2582 $ DEASSIGN SYS$ERROR
2583 $ if (teststatus.nes."1")
2585 $ perl_d_endnent="undef"
2587 $ perl_d_endnent="define"
2590 $ perl_d_endnent="undef"
2592 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
2594 $! Check for endprotoent
2596 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2600 $ WS "#include <stdlib.h>
2602 $ WS "#include <stdio.h>
2603 $ if ("''Has_Socketshr'".eqs."T")
2605 $ WS "#include <socketshr.h>"
2607 $ WS "#include <netdb.h>
2611 $ WS "endprotoent();
2615 $ DEFINE SYS$ERROR _NLA0:
2616 $ DEFINE SYS$OUTPUT _NLA0:
2617 $ on error then continue
2618 $ on warning then continue
2620 $ If (Needs_Opt.eqs."Yes")
2622 $ link temp.obj,temp.opt/opt
2626 $ teststatus = f$extract(9,1,$status)
2627 $ DEASSIGN SYS$OUTPUT
2628 $ DEASSIGN SYS$ERROR
2629 $ if (teststatus.nes."1")
2631 $ perl_d_endpent="undef"
2633 $ perl_d_endpent="define"
2636 $ perl_d_endpent="undef"
2638 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
2640 $! Check for endservent
2642 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2646 $ WS "#include <stdlib.h>
2648 $ WS "#include <stdio.h>
2649 $ if ("''Has_Socketshr'".eqs."T")
2651 $ WS "#include <socketshr.h>"
2653 $ WS "#include <netdb.h>
2661 $ DEFINE SYS$ERROR _NLA0:
2662 $ DEFINE SYS$OUTPUT _NLA0:
2663 $ on error then continue
2664 $ on warning then continue
2666 $ If (Needs_Opt.eqs."Yes")
2668 $ link temp.obj,temp.opt/opt
2672 $ teststatus = f$extract(9,1,$status)
2673 $ DEASSIGN SYS$OUTPUT
2674 $ DEASSIGN SYS$ERROR
2675 $ if (teststatus.nes."1")
2677 $ perl_d_endsent="undef"
2679 $ perl_d_endsent="define"
2682 $ perl_d_endsent="undef"
2684 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
2686 $! Check for sethostent
2688 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2692 $ WS "#include <stdlib.h>
2694 $ WS "#include <stdio.h>
2695 $ if ("''Has_Socketshr'".eqs."T")
2697 $ WS "#include <socketshr.h>"
2699 $ WS "#include <netdb.h>
2703 $ WS "sethostent(1);
2707 $ DEFINE SYS$ERROR _NLA0:
2708 $ DEFINE SYS$OUTPUT _NLA0:
2709 $ on error then continue
2710 $ on warning then continue
2712 $ If (Needs_Opt.eqs."Yes")
2714 $ link temp.obj,temp.opt/opt
2718 $ teststatus = f$extract(9,1,$status)
2719 $ DEASSIGN SYS$OUTPUT
2720 $ DEASSIGN SYS$ERROR
2721 $ if (teststatus.nes."1")
2723 $ perl_d_sethent="undef"
2725 $ perl_d_sethent="define"
2728 $ perl_d_sethent="undef"
2730 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
2732 $! Check for setnetent
2734 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2738 $ WS "#include <stdlib.h>
2740 $ WS "#include <stdio.h>
2741 $ if ("''Has_Socketshr'".eqs."T")
2743 $ WS "#include <socketshr.h>"
2745 $ WS "#include <netdb.h>
2753 $ DEFINE SYS$ERROR _NLA0:
2754 $ DEFINE SYS$OUTPUT _NLA0:
2755 $ on error then continue
2756 $ on warning then continue
2758 $ If (Needs_Opt.eqs."Yes")
2760 $ link temp.obj,temp.opt/opt
2764 $ teststatus = f$extract(9,1,$status)
2765 $ DEASSIGN SYS$OUTPUT
2766 $ DEASSIGN SYS$ERROR
2767 $ if (teststatus.nes."1")
2769 $ perl_d_setnent="undef"
2771 $ perl_d_setnent="define"
2774 $ perl_d_setnent="undef"
2776 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
2778 $! Check for setprotoent
2780 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2784 $ WS "#include <stdlib.h>
2786 $ WS "#include <stdio.h>
2787 $ if ("''Has_Socketshr'".eqs."T")
2789 $ WS "#include <socketshr.h>"
2791 $ WS "#include <netdb.h>
2795 $ WS "setprotoent(1);
2799 $ DEFINE SYS$ERROR _NLA0:
2800 $ DEFINE SYS$OUTPUT _NLA0:
2801 $ on error then continue
2802 $ on warning then continue
2804 $ If (Needs_Opt.eqs."Yes")
2806 $ link temp.obj,temp.opt/opt
2810 $ teststatus = f$extract(9,1,$status)
2811 $ DEASSIGN SYS$OUTPUT
2812 $ DEASSIGN SYS$ERROR
2813 $ if (teststatus.nes."1")
2815 $ perl_d_setpent="undef"
2817 $ perl_d_setpent="define"
2820 $ perl_d_setpent="undef"
2822 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
2824 $! Check for setservent
2826 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2830 $ WS "#include <stdlib.h>
2832 $ WS "#include <stdio.h>
2833 $ if ("''Has_Socketshr'".eqs."T")
2835 $ WS "#include <socketshr.h>"
2837 $ WS "#include <netdb.h>
2841 $ WS "setservent(1);
2845 $ DEFINE SYS$ERROR _NLA0:
2846 $ DEFINE SYS$OUTPUT _NLA0:
2847 $ on error then continue
2848 $ on warning then continue
2850 $ If (Needs_Opt.eqs."Yes")
2852 $ link temp.obj,temp.opt/opt
2856 $ teststatus = f$extract(9,1,$status)
2857 $ DEASSIGN SYS$OUTPUT
2858 $ DEASSIGN SYS$ERROR
2859 $ if (teststatus.nes."1")
2861 $ perl_d_setsent="undef"
2863 $ perl_d_setsent="define"
2866 $ perl_d_setsent="undef"
2868 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
2870 $! Check for gethostent
2872 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2876 $ WS "#include <stdlib.h>
2878 $ WS "#include <stdio.h>
2879 $ if ("''Has_Socketshr'".eqs."T")
2881 $ WS "#include <socketshr.h>"
2883 $ WS "#include <netdb.h>
2891 $ DEFINE SYS$ERROR _NLA0:
2892 $ DEFINE SYS$OUTPUT _NLA0:
2893 $ on error then continue
2894 $ on warning then continue
2896 $ If (Needs_Opt.eqs."Yes")
2898 $ link temp.obj,temp.opt/opt
2902 $ teststatus = f$extract(9,1,$status)
2903 $ DEASSIGN SYS$OUTPUT
2904 $ DEASSIGN SYS$ERROR
2905 $ if (teststatus.nes."1")
2907 $ perl_d_gethent="undef"
2909 $ perl_d_gethent="define"
2912 $ perl_d_gethent="undef"
2914 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
2916 $! Check for getnetent
2918 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2922 $ WS "#include <stdlib.h>
2924 $ WS "#include <stdio.h>
2925 $ if ("''Has_Socketshr'".eqs."T")
2927 $ WS "#include <socketshr.h>"
2929 $ WS "#include <netdb.h>
2937 $ DEFINE SYS$ERROR _NLA0:
2938 $ DEFINE SYS$OUTPUT _NLA0:
2939 $ on error then continue
2940 $ on warning then continue
2942 $ If (Needs_Opt.eqs."Yes")
2944 $ link temp.obj,temp.opt/opt
2948 $ teststatus = f$extract(9,1,$status)
2949 $ DEASSIGN SYS$OUTPUT
2950 $ DEASSIGN SYS$ERROR
2951 $ if (teststatus.nes."1")
2953 $ perl_d_getnent="undef"
2955 $ perl_d_getnent="define"
2958 $ perl_d_getnent="undef"
2960 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
2962 $! Check for getprotoent
2964 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2968 $ WS "#include <stdlib.h>
2970 $ WS "#include <stdio.h>
2971 $ if ("''Has_Socketshr'".eqs."T")
2973 $ WS "#include <socketshr.h>"
2975 $ WS "#include <netdb.h>
2979 $ WS "getprotoent();
2983 $ DEFINE SYS$ERROR _NLA0:
2984 $ DEFINE SYS$OUTPUT _NLA0:
2985 $ on error then continue
2986 $ on warning then continue
2988 $ If (Needs_Opt.eqs."Yes")
2990 $ link temp.obj,temp.opt/opt
2994 $ teststatus = f$extract(9,1,$status)
2995 $ DEASSIGN SYS$OUTPUT
2996 $ DEASSIGN SYS$ERROR
2997 $ if (teststatus.nes."1")
2999 $ perl_d_getpent="undef"
3001 $ perl_d_getpent="define"
3004 $ perl_d_getpent="undef"
3006 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
3008 $! Check for getservent
3010 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
3014 $ WS "#include <stdlib.h>
3016 $ WS "#include <stdio.h>
3017 $ if ("''Has_Socketshr'".eqs."T")
3019 $ WS "#include <socketshr.h>"
3021 $ WS "#include <netdb.h>
3029 $ DEFINE SYS$ERROR _NLA0:
3030 $ DEFINE SYS$OUTPUT _NLA0:
3031 $ on error then continue
3032 $ on warning then continue
3034 $ If (Needs_Opt.eqs."Yes")
3036 $ link temp.obj,temp.opt/opt
3040 $ teststatus = f$extract(9,1,$status)
3041 $ DEASSIGN SYS$OUTPUT
3042 $ DEASSIGN SYS$ERROR
3043 $ if (teststatus.nes."1")
3045 $ perl_d_getsent="undef"
3047 $ perl_d_getsent="define"
3050 $ perl_d_getsent="undef"
3052 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
3054 $! Check for socklen_t
3056 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
3060 $ WS "#include <stdlib.h>
3062 $ WS "#include <stdio.h>
3063 $ IF ("''Has_Socketshr'".eqs."T")
3065 $ WS "#include <socketshr.h>"
3067 $ WS "#include <netdb.h>
3071 $ WS "socklen_t x = 16;
3075 $ DEFINE SYS$ERROR _NLA0:
3076 $ DEFINE SYS$OUTPUT _NLA0:
3077 $ on error then continue
3078 $ on warning then continue
3080 $ If (Needs_Opt.eqs."Yes")
3082 $ link temp.obj,temp.opt/opt
3086 $ teststatus = f$extract(9,1,$status)
3087 $ DEASSIGN SYS$OUTPUT
3088 $ DEASSIGN SYS$ERROR
3089 $ if (teststatus.nes."1")
3091 $ perl_d_socklen_t="undef"
3093 $ perl_d_socklen_t="define"
3096 $ perl_d_socklen_t="undef"
3098 $ WRITE_RESULT "d_socklen_t is ''perl_d_socklen_t'"
3100 $! Check for pthread_yield
3102 $ if ("''use_threads'".eqs."T")
3106 $ WS "#include <stdlib.h>
3108 $ WS "#include <pthread.h>
3109 $ WS "#include <stdio.h>
3112 $ WS "pthread_yield();
3116 $ DEFINE SYS$ERROR _NLA0:
3117 $ DEFINE SYS$OUTPUT _NLA0:
3118 $ on error then continue
3119 $ on warning then continue
3121 $ teststatus = f$extract(9,1,$status)
3122 $ DEASSIGN SYS$OUTPUT
3123 $ DEASSIGN SYS$ERROR
3124 $ if (teststatus.nes."1")
3126 $ perl_d_pthread_yield="undef"
3128 $ perl_d_pthread_yield="define"
3131 $ perl_d_pthread_yield="undef"
3133 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
3135 $! Check for sched_yield
3137 $ if ("''use_threads'".eqs."T")
3141 $ WS "#include <stdlib.h>
3143 $ WS "#include <pthread.h>
3144 $ WS "#include <stdio.h>
3147 $ WS "sched_yield();
3151 $ DEFINE SYS$ERROR _NLA0:
3152 $ DEFINE SYS$OUTPUT _NLA0:
3153 $ on error then continue
3154 $ on warning then continue
3156 $ teststatus = f$extract(9,1,$status)
3157 $ DEASSIGN SYS$OUTPUT
3158 $ DEASSIGN SYS$ERROR
3159 $ if (teststatus.nes."1")
3161 $ perl_d_sched_yield="undef"
3162 $ perl_sched_yield = " "
3164 $ perl_d_sched_yield="define"
3165 $ perl_sched_yield = "sched_yield"
3168 $ perl_d_sched_yield="undef"
3169 $ perl_sched_yield = " "
3171 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
3172 $ WRITE_RESULT "sched_yield is ''perl_sched_yield'"
3174 $! Check for generic pointer size
3178 $ WS "#include <stdlib.h>
3180 $ WS "#include <stdio.h>
3184 $ WS "foo = sizeof(char *);
3185 $ WS "printf(""%d\n"", foo);
3189 $ DEFINE SYS$ERROR _NLA0:
3190 $ DEFINE SYS$OUTPUT _NLA0:
3191 $ ON ERROR THEN CONTINUE
3192 $ ON WARNING THEN CONTINUE
3194 $ If (Needs_Opt.eqs."Yes")
3196 $ link temp.obj,temp.opt/opt
3200 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3201 $ DEASSIGN SYS$OUTPUT
3202 $ DEASSIGN SYS$ERROR
3203 $ DEFINE SYS$ERROR TEMPOUT
3204 $ DEFINE SYS$OUTPUT TEMPOUT
3207 $ DEASSIGN SYS$OUTPUT
3208 $ DEASSIGN SYS$ERROR
3209 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3212 $ DELETE/NOLOG [-.uu]tempout.lis;
3215 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
3217 $! Check for size_t size
3221 $ WS "#include <stdlib.h>
3223 $ WS "#include <stdio.h>
3227 $ WS "foo = sizeof(size_t);
3228 $ WS "printf(""%d\n"", foo);
3232 $ DEFINE SYS$ERROR _NLA0:
3233 $ DEFINE SYS$OUTPUT _NLA0:
3234 $ ON ERROR THEN CONTINUE
3235 $ ON WARNING THEN CONTINUE
3239 $ link temp.obj,temp.opt/opt
3243 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3244 $ DEASSIGN SYS$OUTPUT
3245 $ DEASSIGN SYS$ERROR
3246 $ DEFINE SYS$ERROR TEMPOUT
3247 $ DEFINE SYS$OUTPUT TEMPOUT
3250 $ DEASSIGN SYS$OUTPUT
3251 $ DEASSIGN SYS$ERROR
3252 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3255 $ DELETE/NOLOG [-.uu]tempout.lis;
3257 $ perl_sizesize=line
3258 $ WRITE_RESULT "sizesize is ''perl_sizesize'"
3260 $! Check rand48 and its ilk
3264 $ WS "#include <stdlib.h>
3266 $ WS "#include <stdio.h>
3269 $ WS "srand48(12L);"
3274 $ DEFINE SYS$ERROR _NLA0:
3275 $ DEFINE SYS$OUTPUT _NLA0:
3276 $ ON ERROR THEN CONTINUE
3277 $ ON WARNING THEN CONTINUE
3279 $ If (Needs_Opt.eqs."Yes")
3281 $ link temp,temp.opt/opt
3285 $ teststatus = f$extract(9,1,$status)
3286 $ DEASSIGN SYS$OUTPUT
3287 $ DEASSIGN SYS$ERROR
3288 $ if (teststatus.nes."1")
3290 $ perl_drand01="random()"
3291 $ perl_randseedtype = "unsigned"
3292 $ perl_seedfunc = "srandom"
3296 $ WS "#include <stdlib.h>
3298 $ WS "#include <stdio.h>
3305 $! copy temp.c sys$output
3307 $ DEFINE SYS$ERROR _NLA0:
3308 $ DEFINE SYS$OUTPUT _NLA0:
3309 $ ON ERROR THEN CONTINUE
3310 $ ON WARNING THEN CONTINUE
3312 $ If (Needs_Opt.eqs."Yes")
3314 $ link temp,temp.opt/opt
3318 $ teststatus = f$extract(9,1,$status)
3319 $ DEASSIGN SYS$OUTPUT
3320 $ DEASSIGN SYS$ERROR
3321 $ if (teststatus.nes."1")
3323 $ perl_drand01="(((float)rand())/((float)RAND_MAX))"
3324 $ perl_randseedtype = "unsigned"
3325 $ perl_seedfunc = "srand"
3327 $ WRITE_RESULT "drand01 is ''perl_drand01'"
3330 $! Done with compiler checks. Clean up.
3331 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
3332 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
3333 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
3334 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
3337 $! Some that are compiler or VMS version sensitive
3340 $ IF "''Using_Gnu_C'".EQS."Yes"
3342 $ perl_d_attribut="define"
3343 $ perl_vms_cc_type="gcc"
3345 $ perl_vms_cc_type="cc"
3346 $ perl_d_attribut="undef"
3349 $! Dec C >= 5.2 and VMS ver >= 7.0
3350 $ IF (Using_Dec_C).AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.(VMS_VER .GES. "7.0")
3352 $ perl_d_bcmp="define"
3353 $ perl_d_gettimeod="define"
3354 $ perl_d_uname="define"
3355 $ perl_d_sigaction="define"
3356 $ perl_d_truncate="define"
3357 $ perl_d_wait4="define"
3358 $ perl_d_index="define"
3359 $ perl_pidtype="pid_t"
3360 $ 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"
3361 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3362 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
3363 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
3364 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
3365 $ 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"
3366 $ 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"
3367 $ perl_sig_num_with_commas=perl_sig_num_init
3368 $ perl_uidtype="uid_t"
3369 $ perl_d_pathconf="define"
3370 $ perl_d_fpathconf="define"
3371 $ perl_d_sysconf="define"
3372 $ perl_d_sigsetjmp="define"
3374 $ perl_pidtype="unsigned int"
3375 $ perl_d_gettimeod="undef"
3376 $ perl_d_bcmp="undef"
3377 $ perl_d_uname="undef"
3378 $ perl_d_sigaction="undef"
3379 $ perl_d_truncate="undef"
3380 $ perl_d_wait4="undef"
3381 $ perl_d_index="undef"
3382 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
3383 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3384 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
3385 $ perl_sig_name_with_commas = psnwc1 + psnwc2
3386 $ perl_sig_num="0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 6 16 17"",0"
3387 $ perl_sig_num_init="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
3388 $ perl_sig_num_with_commas=perl_sig_num_init
3389 $ perl_uidtype="unsigned int"
3390 $ perl_d_pathconf="undef"
3391 $ perl_d_fpathconf="undef"
3392 $ perl_d_sysconf="undef"
3393 $ perl_d_sigsetjmp="undef"
3397 $ IF ("''Using_Dec_C'".EQS."Yes")
3399 $ perl_d_mbstowcs="define"
3400 $ perl_d_mbtowc="define"
3401 $ perl_d_stdiobase="define"
3402 $ perl_d_stdio_ptr_lval="define"
3403 $ perl_d_stdio_cnt_lval="define"
3404 $ perl_d_stdstdio="define"
3405 $ perl_d_wcstombs="define"
3406 $ perl_d_mblen="define"
3407 $ perl_d_mktime="define"
3408 $ perl_d_strcoll="define"
3409 $ perl_d_strxfrm="define"
3410 $ perl_d_wctomb="define"
3411 $ perl_i_locale="define"
3412 $ perl_d_locconv="define"
3413 $ perl_d_setlocale="define"
3414 $ perl_vms_cc_type="decc"
3416 $ perl_d_mbstowcs="undef"
3417 $ perl_d_mbtowc="undef"
3418 $ perl_d_stdiobase="undef"
3419 $ perl_d_stdio_ptr_lval="undef"
3420 $ perl_d_stdio_cnt_lval="undef"
3421 $ perl_d_stdstdio="undef"
3422 $ perl_d_wcstombs="undef"
3423 $ perl_d_mblen="undef"
3424 $ perl_d_mktime="undef"
3425 $ perl_d_strcoll="undef"
3426 $ perl_d_strxfrm="undef"
3427 $ perl_d_wctomb="undef"
3428 $ perl_i_locale="undef"
3429 $ perl_d_locconv="undef"
3430 $ perl_d_setlocale="undef"
3434 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
3436 $ perl_d_vms_do_sockets="define"
3437 $ perl_d_htonl="define"
3438 $ perl_d_socket="define"
3439 $ perl_d_select="define"
3440 $ perl_netdb_host_type="char *"
3441 $ perl_netdb_hlen_type="int"
3442 $ perl_netdb_name_type="char *"
3443 $ perl_netdb_net_type="long"
3444 $ perl_d_gethbyaddr="define"
3445 $ perl_d_gethbyname="define"
3446 $ perl_d_getnbyaddr="define"
3447 $ perl_d_getnbyname="define"
3448 $ perl_d_getpbynumber="define"
3449 $ perl_d_getpbyname="define"
3450 $ perl_d_getsbyport="define"
3451 $ perl_d_getsbyname="define"
3452 $ perl_d_gethostprotos="define"
3453 $ perl_d_getnetprotos="define"
3454 $ perl_d_getprotoprotos="define"
3455 $ perl_d_getservprotos="define"
3456 $ IF ("''Using_Dec_C'".EQS."Yes")
3458 $ perl_socksizetype="unsigned int"
3460 $ perl_socksizetype="int *"
3463 $ perl_d_vms_do_sockets="undef"
3464 $ perl_d_htonl="undef"
3465 $ perl_d_socket="undef"
3466 $ perl_d_select="undef"
3467 $ perl_netdb_host_type="char *"
3468 $ perl_netdb_hlen_type="int"
3469 $ perl_netdb_name_type="char *"
3470 $ perl_netdb_net_type="long"
3471 $ perl_d_gethbyaddr="undef"
3472 $ perl_d_gethbyname="undef"
3473 $ perl_d_getnbyaddr="undef"
3474 $ perl_d_getnbyname="undef"
3475 $ perl_d_getpbynumber="undef"
3476 $ perl_d_getpbyname="undef"
3477 $ perl_d_getsbyport="undef"
3478 $ perl_d_getsbyname="undef"
3479 $ perl_d_gethostprotos="undef"
3480 $ perl_d_getnetprotos="undef"
3481 $ perl_d_getprotoprotos="undef"
3482 $ perl_d_getservprotos="undef"
3483 $ perl_socksizetype="undef"
3488 $ perl_usethreads="define"
3489 $ perl_d_pthreads_created_joinable="define"
3490 $ if (VMS_VER .GES. "7.0")
3492 $ perl_d_oldpthreads="undef"
3494 $ perl_d_oldpthreads="define"
3497 $ perl_d_oldpthreads="undef"
3498 $ perl_usethreads="undef"
3500 $ perl_d_pthreads_created_joinable="undef"
3503 $! new (5.005_62++) typedefs for primitives
3505 $ perl_ivtype="long"
3506 $ perl_uvtype="unsigned long"
3507 $ perl_i8type="char"
3508 $ perl_u8type="unsigned char"
3509 $ perl_i16type="short"
3510 $ perl_u16type="unsigned short"
3511 $ perl_i32type="int"
3512 $ perl_u32type="unsigned int"
3513 $ perl_i64type="long long"
3514 $ perl_u64type="unsigned long long"
3515 $ perl_nvtype="double"
3517 $ GOTO beyond_type_size_check
3521 $! Check for type sizes
3525 $ WS "#include <stdlib.h>
3527 $ WS "#include <stdio.h>
3530 $ WS "printf(""%d\n"", sizeof(''type'));"
3534 $ DEFINE SYS$ERROR _NLA0:
3535 $ DEFINE SYS$OUTPUT _NLA0:
3536 $ ON ERROR THEN CONTINUE
3537 $ ON WARNING THEN CONTINUE
3539 $ If (Needs_Opt.eqs."Yes")
3541 $ link temp.obj,temp.opt/opt
3545 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3546 $ DEASSIGN SYS$OUTPUT
3547 $ DEASSIGN SYS$ERROR
3548 $ DEFINE SYS$ERROR TEMPOUT
3549 $ DEFINE SYS$OUTPUT TEMPOUT
3552 $ DEASSIGN SYS$OUTPUT
3553 $ DEASSIGN SYS$ERROR
3554 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3557 $ DELETE/NOLOG [-.uu]tempout.lis;
3558 $ WRITE_RESULT "''size_name' is ''line'"
3562 $beyond_type_size_check:
3565 $ type = "''perl_ivtype'"
3566 $ size_name = "ivsize"
3567 $ gosub type_size_check
3568 $ perl_ivsize="''line'"
3569 $ IF type .eqs. "long"
3570 $ THEN perl_longsize = "''line'"
3573 $ size_name = "longsize"
3574 $ gosub type_size_check
3575 $ perl_longsize="''line'"
3578 $ type = "''perl_uvtype'"
3579 $ size_name = "uvsize"
3580 $ gosub type_size_check
3581 $ perl_uvsize="''line'"
3583 $ type = "''perl_i8type'"
3584 $ size_name = "i8size"
3585 $ gosub type_size_check
3586 $ perl_i8size="''line'"
3588 $ type = "''perl_u8type'"
3589 $ size_name = "u8size"
3590 $ gosub type_size_check
3591 $ perl_u8size="''line'"
3593 $ type = "''perl_i16type'"
3594 $ size_name = "i16size"
3595 $ gosub type_size_check
3596 $ perl_i16size="''line'"
3597 $ IF type .eqs. "short"
3598 $ THEN perl_shortsize="''line'"
3600 $ type = "''perl_i16type'"
3601 $ size_name = "shortsize"
3602 $ gosub type_size_check
3603 $ perl_shortsize="''line'"
3606 $ type = "''perl_u16type'"
3607 $ size_name = "u16size"
3608 $ gosub type_size_check
3609 $ perl_u16size="''line'"
3611 $ type = "''perl_i32type'"
3612 $ size_name = "i32size"
3613 $ gosub type_size_check
3614 $ perl_i32size="''line'"
3615 $ IF type .eqs. "int"
3616 $ THEN perl_intsize="''perl_i32size'"
3619 $ size_name = "intsize"
3620 $ gosub type_size_check
3621 $ perl_intsize="''line'"
3624 $ type = "''perl_u32type'"
3625 $ size_name = "u32size"
3626 $ gosub type_size_check
3627 $ perl_u32size="''line'"
3631 $ type = "''perl_i64type'"
3632 $ size_name = "i64size"
3633 $ gosub type_size_check
3634 $ perl_i64size="''line'"
3635 $ perl_ivtype="''perl_i64type'"
3637 $ type = "''perl_u64type'"
3638 $ size_name = "u64size"
3639 $ gosub type_size_check
3640 $ perl_u64size="''line'"
3641 $ perl_uvtype="''perl_u64type'"
3642 $ perl_nvtype="long double"
3644 $ perl_i64size="undef"
3645 $ perl_u64size="undef"
3648 $ perl_ivdformat="""ld"""
3649 $ perl_uvuformat="""lu"""
3650 $ perl_uvoformat="""lo"""
3651 $ perl_uvxformat="""lx"""
3653 $! Finally the composite ones. All config
3654 $ perl_installarchlib="''perl_prefix':[lib.''archname'.''version']"
3655 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''archname']"
3656 $ perl_myhostname="''myhostname'"
3657 $ perl_mydomain="''mydomain'"
3658 $ perl_perladmin="''perladmin'"
3659 $ perl_myuname:="''osname' ''myname' ''osvers' ''f$edit(hwname, "TRIM")'"
3660 $ perl_archlibexp="''perl_prefix':[lib.''archname'.''version']"
3661 $ perl_archlib="''perl_prefix':[lib.''archname'.''version']"
3662 $ perl_oldarchlibexp="''perl_prefix':[lib.''archname']"
3663 $ perl_oldarchlib="''perl_prefix':[lib.''archname']"
3664 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''archname']"
3665 $ perl_sitearch="''perl_prefix':[lib.site_perl.''archname']"
3668 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
3670 $ if use_vmsdebug_perl .eqs. "Y"
3672 $ perl_optimize="/Debug/NoOpt"
3673 $ perl_dbgprefix = "DBG"
3676 $ perl_dbgprefix = ""
3679 $! Okay, we've got everything configured. Now go write out a config.sh.
3680 $ echo4 "Creating config.sh..."
3681 $ open/write CONFIG [-]config.sh
3682 $ WC := "write CONFIG"
3684 $ WC "# This file generated by Configure.COM on a VMS system."
3685 $ WC "# Time: " + cf_time
3687 $ WC "CONFIGDOTSH=true"
3688 $ WC "package='" + perl_package + "'"
3689 $ WC "config_args='" + config_args + "'"
3690 $ WC "d_nv_preserves_uv='" + perl_d_nv_preserves_uv + "'"
3691 $ WC "use5005threads='" + perl_use5005threads + "'"
3692 $ WC "useithreads='" + perl_useithreads + "'"
3693 $ WC "CONFIG='" + perl_config + "'"
3694 $ WC "cf_time='" + cf_time + "'"
3695 $ WC "cf_by='" + cf_by + "'"
3696 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
3697 $ WC "ccdlflags='" + perl_ccdlflags + "'"
3698 $ WC "cccdlflags='" + perl_cccdlflags + "'"
3699 $ WC "mab='" + perl_mab + "'"
3700 $ WC "libpth='" + perl_libpth + "'"
3701 $ WC "ld='" + perl_ld + "'"
3702 $ WC "lddlflags='" + perl_lddlflags + "'"
3703 $ WC "ranlib='" + perl_ranlib + "'"
3704 $ WC "ar='" + perl_ar + "'"
3705 $ WC "full_ar='" + perl_full_ar + "'"
3706 $ WC "eunicefix='" + perl_eunicefix + "'"
3707 $ WC "hint='" + perl_hint +"'"
3708 $ WC "hintfile='" + perl_hintfile + "'"
3709 $ WC "shrplib='" + perl_shrplib + "'"
3710 $ WC "usemymalloc='" + perl_usemymalloc + "'"
3711 $ WC "usevfork='" + perl_usevfork + "'"
3712 $ WC "useposix='false'"
3713 $ WC "spitshell='write sys$output '"
3714 $ WC "dlsrc='dl_vms.c'"
3715 $ WC "binexp='" + perl_binexp + "'"
3716 $ WC "man1ext='" + perl_man1ext + "'"
3717 $ WC "man3ext='" + perl_man3ext + "'"
3718 $ WC "archname='" + archname + "'"
3719 $ WC "osvers='" + osvers + "'"
3720 $ WC "prefix='" + perl_prefix + "'"
3721 $ WC "builddir='" + perl_builddir + "'"
3722 $ WC "installbin='" + perl_installbin + "'"
3723 $ WC "installscript='" + perl_installscript + "'"
3724 $ WC "installman1dir='" + perl_installman1dir + "'"
3725 $ WC "installman3dir='" + perl_installman3dir + "'"
3726 $ WC "installprivlib='" + perl_installprivlib + "'"
3727 $ WC "installarchlib='" + perl_installarchlib + "'"
3728 $ WC "installsitelib='" + perl_installsitelib + "'"
3729 $ WC "installsitearch='" + perl_installsitearch + "'"
3730 $ WC "path_sep='" + perl_path_sep + "'"
3731 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
3732 $ WC "d_attribut='" + perl_d_attribut + "'"
3733 $ WC "cc='" + perl_cc + "'"
3734 $ WC "ccflags='" + perl_ccflags + "'"
3735 $ WC "optimize='" + perl_optimize + "'"
3736 $ WC "dbgprefix='" + perl_dbgprefix + "'"
3737 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
3738 $ WC "d_socket='" + perl_d_socket + "'"
3739 $ WC "d_sockpair='" + perl_d_sockpair + "'"
3740 $ WC "d_gethent='" + perl_d_gethent + "'"
3741 $ WC "d_getsent='" + perl_d_getsent + "'"
3742 $ WC "d_socklen_t='" + perl_d_socklen_t + "'"
3743 $ WC "d_select='" + perl_d_select + "'"
3744 $ WC "i_niin='" + perl_i_niin + "'"
3745 $ WC "i_netinettcp='" + perl_i_netinettcp + "'"
3746 $ WC "i_neterrno='" + perl_i_neterrno + "'"
3747 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
3748 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
3749 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
3750 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
3751 $ WC "d_locconv='" + perl_d_locconv + "'"
3752 $ WC "d_setlocale='" + perl_d_setlocale + "'"
3753 $ WC "i_locale='" + perl_i_locale + "'"
3754 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
3755 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
3756 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
3757 $ WC "d_wctomb='" + perl_d_wctomb + "'"
3758 $ WC "d_mblen='" + perl_d_mblen + "'"
3759 $ WC "d_mktime='" + perl_d_mktime + "'"
3760 $ WC "d_strcoll='" + perl_d_strcoll + "'"
3761 $ WC "d_strxfrm='" + perl_d_strxfrm + "'"
3762 $ WC "ldflags='" + perl_ldflags + "'"
3763 $ WC "dlobj='" + perl_dlobj + "'"
3764 $ WC "obj_ext='" + perl_obj_ext + "'"
3765 $ WC "so='" + perl_so + "'"
3766 $ WC "dlext='" + perl_dlext + "'"
3767 $ WC "exe_ext='" + perl_exe_ext + "'"
3768 $ WC "lib_ext='" + perl_lib_ext + "'"
3769 $ WC "myhostname='" + perl_myhostname + "'"
3770 $ WC "mydomain='" + perl_mydomain + "'"
3771 $ WC "perladmin='" + perl_perladmin + "'"
3772 $ WC "cf_email='" + cf_email + "'"
3773 $ WC "myuname='" + perl_myuname + "'"
3774 $ WC "alignbytes='" + alignbytes + "'"
3775 $ WC "osname='" + perl_osname + "'"
3776 $ WC "d_archlib='" + perl_d_archlib + "'"
3777 $ WC "archlibexp='" + perl_archlibexp + "'"
3778 $ WC "archlib='" + perl_archlib + "'"
3779 $ WC "archname='" + archname + "'"
3780 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
3781 $ WC "cppstdin='" + perl_cppstdin + "'"
3782 $ WC "cppminus='" + perl_cppminus + "'"
3783 $ WC "cpprun='" + perl_cpprun + "'"
3784 $ WC "cpplast='" + perl_cpplast + "'"
3785 $ WC "d_bcmp='" + perl_d_bcmp + "'"
3786 $ WC "d_bcopy='" + perl_d_bcopy + "'"
3787 $ WC "d_bzero='" + perl_d_bzero + "'"
3788 $ WC "d_castneg='" + perl_d_castneg + "'"
3789 $ WC "castflags='" + perl_castflags + "'"
3790 $ WC "d_chsize='" + perl_d_chsize + "'"
3791 $ WC "d_const='" + perl_d_const + "'"
3792 $ WC "d_crypt='" + perl_d_crypt + "'"
3793 $ WC "byteorder='" + perl_byteorder + "'"
3794 $ WC "full_csh='" + perl_full_csh + "'"
3795 $ WC "d_csh='" + perl_d_csh + "'"
3796 $ WC "d_dup2='" + perl_d_dup2 + "'"
3797 $ WC "d_fchmod='" + perl_d_fchmod + "'"
3798 $ WC "d_fchown='" + perl_d_fchown + "'"
3799 $ WC "d_fcntl='" + perl_d_fcntl + "'"
3800 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
3801 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
3802 $ WC "d_flock='" + perl_d_flock + "'"
3803 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
3804 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
3805 $ WC "d_getgrps='" + perl_d_getgrps + "'"
3806 $ WC "d_setgrps='" + perl_d_setgrps + "'"
3807 $ WC "groupstype='" + perl_groupstype + "'"
3808 $ WC "d_uname='" + perl_d_uname + "'"
3809 $ WC "d_getprior='" + perl_d_getprior + "'"
3810 $ WC "d_killpg='" + perl_d_killpg + "'"
3811 $ WC "d_link='" + perl_d_link + "'"
3812 $ WC "d_lstat='" + perl_d_lstat + "'"
3813 $ WC "d_lockf='" + perl_d_lockf + "'"
3814 $ WC "d_memcmp='" + perl_d_memcmp + "'"
3815 $ WC "d_memcpy='" + perl_d_memcpy + "'"
3816 $ WC "d_memmove='" + perl_d_memmove + "'"
3817 $ WC "d_memset='" + perl_d_memset + "'"
3818 $ WC "d_mkdir='" + perl_d_mkdir + "'"
3819 $ WC "d_msg='" + perl_d_msg + "'"
3820 $ WC "d_open3='" + perl_d_open3 + "'"
3821 $ WC "d_poll='" + perl_d_poll + "'"
3822 $ WC "d_perl_otherlibdirs='" + perl_d_perl_otherlibdirs + "'"
3823 $ WC "otherlibdirs='" + perl_otherlibdirs + "'"
3824 $ WC "d_readdir='" + perl_d_readdir + "'"
3825 $ WC "d_seekdir='" + perl_d_seekdir + "'"
3826 $ WC "d_telldir='" + perl_d_telldir + "'"
3827 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
3828 $ WC "d_rename='" + perl_d_rename + "'"
3829 $ WC "d_rmdir='" + perl_d_rmdir + "'"
3830 $ WC "d_sem='" + perl_d_sem + "'"
3831 $ WC "d_setegid='" + perl_d_setegid + "'"
3832 $ WC "d_seteuid='" + perl_d_seteuid + "'"
3833 $ WC "d_setprior='" + perl_d_setprior + "'"
3834 $ WC "d_setregid='" + perl_d_setregid + "'"
3835 $ WC "d_setresgid='" + perl_d_setresgid + "'"
3836 $ WC "d_setreuid='" + perl_d_setreuid + "'"
3837 $ WC "d_setresuid='" + perl_d_setresuid + "'"
3838 $ WC "d_setrgid='" + perl_d_setrgid + "'"
3839 $ WC "d_setruid='" + perl_d_setruid + "'"
3840 $ WC "d_setsid='" + perl_d_setsid + "'"
3841 $ WC "d_shm='" + perl_d_shm + "'"
3842 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
3843 $ WC "shmattype='" + perl_shmattype + "'"
3844 $ WC "d_sigaction='" + perl_d_sigaction + "'"
3845 $ WC "d_statblks='" + perl_d_statblks + "'"
3846 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
3847 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
3848 $ WC "stdio_base='" + perl_stdio_base + "'"
3849 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
3850 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
3851 $ WC "d_strerror='" + perl_d_strerror + "'"
3852 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
3853 $ WC "d_strerrm='" + perl_d_strerrm + "'"
3854 $ WC "d_symlink='" + perl_d_symlink + "'"
3855 $ WC "d_syscall='" + perl_d_syscall + "'"
3856 $ WC "d_system='" + perl_d_system + "'"
3857 $ WC "timetype='" + perl_timetype + "'"
3858 $ WC "d_truncate='" + perl_d_truncate + "'"
3859 $ WC "d_vfork='" + perl_d_vfork + "'"
3860 $ WC "signal_t='" + perl_signal_t + "'"
3861 $ WC "d_volatile='" + perl_d_volatile + "'"
3862 $ WC "d_vprintf='" + perl_d_vprintf + "'"
3863 $ WC "d_charvspr='" + perl_d_charvspr + "'"
3864 $ WC "d_wait4='" + perl_d_wait4 + "'"
3865 $ WC "d_waitpid='" + perl_d_waitpid + "'"
3866 $ WC "i_dirent='" + perl_i_dirent + "'"
3867 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
3868 $ WC "direntrytype='" + perl_direntrytype + "'"
3869 $ WC "i_fcntl='" + perl_i_fcntl + "'"
3870 $ WC "i_grp='" + perl_i_grp + "'"
3871 $ WC "i_limits='" + perl_i_limits + "'"
3872 $ WC "i_memory='" + perl_i_memory + "'"
3873 $ WC "i_ndbm='" + perl_i_ndbm + "'"
3874 $ WC "i_stdarg='" + perl_i_stdarg + "'"
3875 $ WC "i_pwd='" + perl_i_pwd + "'"
3876 $ WC "d_pwquota='" + perl_d_pwquota + "'"
3877 $ WC "d_pwage='" + perl_d_pwage + "'"
3878 $ WC "d_pwchange='" + perl_d_pwchange + "'"
3879 $ WC "d_pwclass='" + perl_d_pwclass + "'"
3880 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
3881 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
3882 $ WC "i_stddef='" + perl_i_stddef + "'"
3883 $ WC "i_stdlib='" + perl_i_stdlib + "'"
3884 $ WC "i_string='" + perl_i_string + "'"
3885 $ WC "i_sysdir='" + perl_i_sysdir + "'"
3886 $ WC "i_sysfile='" + perl_i_sysfile + "'"
3887 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
3888 $ WC "i_sysndir='" + perl_i_sysndir + "'"
3889 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
3890 $ WC "i_sysselct='" + perl_i_sysselct + "'"
3891 $ WC "i_dbm='" + perl_i_dbm + "'"
3892 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
3893 $ WC "i_sfio='" + perl_i_sfio + "'"
3894 $ WC "i_sysstat='" + perl_i_sysstat + "'"
3895 $ WC "i_systimes='" + perl_i_systimes + "'"
3896 $ WC "i_systypes='" + perl_i_systypes + "'"
3897 $ WC "i_sysun='" + perl_i_sysun + "'"
3898 $ WC "i_syswait='" + perl_i_syswait + "'"
3899 $ WC "i_termio='" + perl_i_termio + "'"
3900 $ WC "i_sgtty='" + perl_i_sgtty + "'"
3901 $ WC "i_termios='" + perl_i_termios + "'"
3902 $ WC "i_time='" + perl_i_time + "'"
3903 $ WC "i_systime='" + perl_i_systime + "'"
3904 $ WC "i_systimek='" + perl_i_systimek + "'"
3905 $ WC "i_unistd='" + perl_i_unistd + "'"
3906 $ WC "i_utime='" + perl_i_utime + "'"
3907 $ WC "i_varargs='" + perl_i_varargs + "'"
3908 $ WC "i_vfork='" + perl_i_vfork + "'"
3909 $ WC "prototype='" + perl_prototype + "'"
3910 $ WC "randbits='" + perl_randbits +"'"
3911 $ WC "selecttype='" + perl_selecttype + "'"
3912 $ WC "selectminbits='" + perl_selectminbits + "'"
3913 $ WC "stdchar='" + perl_stdchar + "'"
3914 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
3915 $ WC "full_sed='" + perl_full_sed + "'"
3916 $ WC "bin='" + perl_bin + "'"
3917 $ WC "binexp='" + perl_binexp + "'"
3918 $ WC "d_alarm='" + perl_d_alarm + "'"
3919 $ WC "d_casti32='" + perl_d_casti32 + "'"
3920 $ WC "d_chown='" + perl_d_chown + "'"
3921 $ WC "d_chroot='" + perl_d_chroot + "'"
3922 $ WC "d_cuserid='" + perl_d_cuserid + "'"
3923 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
3924 $ WC "d_ldbl_dig='" + perl_d_ldbl_dig + "'"
3925 $ WC "d_difftime='" + perl_d_difftime + "'"
3926 $ WC "d_fork='" + perl_d_fork + "'"
3927 $ WC "d_getlogin='" + perl_d_getlogin + "'"
3928 $ WC "d_getppid='" + perl_d_getppid + "'"
3929 $ WC "d_htonl='" + perl_d_htonl + "'"
3930 $ WC "d_nice='" + perl_d_nice + "'"
3931 $ WC "d_pause='" + perl_d_pause + "'"
3932 $ WC "d_pipe='" + perl_d_pipe + "'"
3933 $ WC "d_readlink='" + perl_d_readlink + "'"
3934 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
3935 $ WC "d_strchr='" + perl_d_strchr + "'"
3936 $ WC "d_index='" + perl_d_index + "'"
3937 $ WC "d_strtod='" + perl_d_strtod + "'"
3938 $ WC "d_strtol='" + perl_d_strtol + "'"
3939 $ WC "d_strtoul='" + perl_d_strtoul + "'"
3940 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
3941 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
3942 $ WC "d_times='" + perl_d_times + "'"
3943 $ WC "d_tzname='" + perl_d_tzname + "'"
3944 $ WC "d_umask='" + perl_d_umask + "'"
3945 $ WC "fpostype='" + perl_fpostype + "'"
3946 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
3947 $ WC "i_float='" + perl_i_float + "'"
3948 $ WC "i_math='" + perl_i_math + "'"
3949 $ WC "intsize='" + perl_intsize + "'"
3950 $ WC "longsize='" + perl_longsize + "'"
3951 $ WC "shortsize='" + perl_shortsize + "'"
3952 $ WC "lseektype='" + perl_lseektype + "'"
3953 $ WC "lseeksize='4'"
3954 $ WC "i_values='" + perl_i_values + "'"
3955 $ WC "malloctype='" + perl_malloctype + "'"
3956 $ WC "freetype='" + perl_freetype + "'"
3957 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
3958 $ WC "sh='" + perl_sh + "'"
3959 $ WC "sig_name='" + perl_sig_name + "'"
3960 $ WC "sig_num='" + perl_sig_num + "'"
3961 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
3963 $ WC "modetype='" + perl_modetype + "'"
3964 $ WC "ssizetype='" + perl_ssizetype + "'"
3965 $ WC "o_nonblock='" + perl_o_nonblock + "'"
3966 $ WC "eagain='" + perl_eagain + "'"
3967 $ WC "rd_nodata='" + perl_rd_nodata + "'"
3968 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
3969 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
3970 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
3971 $ WC "oldarchlib='" + perl_oldarchlib + "'"
3972 $ WC "privlibexp='" + perl_privlibexp + "'"
3973 $ WC "privlib='" + perl_privlib + "'"
3974 $ WC "sitelibexp='" + perl_sitelibexp + "'"
3975 $ WC "sitelib='" + perl_sitelib + "'"
3976 $ WC "sitelib_stem='" + perl_sitelib_stem + "'"
3977 $ WC "sitearchexp='" + perl_sitearchexp + "'"
3978 $ WC "sitearch='" + perl_sitearch + "'"
3979 $ WC "sizetype='" + perl_sizetype + "'"
3980 $ WC "i_sysparam='" + perl_i_sysparam + "'"
3981 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
3982 $ WC "d_dlerror='" + perl_d_dlerror + "'"
3983 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
3984 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
3985 $ WC "d_dosuid='" + perl_d_dosuid + "'"
3986 $ WC "d_inetaton='" + perl_d_inetaton + "'"
3987 $ WC "d_int64_t='" + perl_d_int64_t + "'"
3988 $ WC "d_isascii='" + perl_d_isascii + "'"
3989 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
3990 $ WC "d_pathconf='" + perl_d_pathconf + "'"
3991 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
3992 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
3993 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
3994 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
3995 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
3996 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
3997 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
3998 $ WC "d_setpgid='" + perl_d_setpgid + "'"
3999 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
4000 $ WC "d_sysconf='" + perl_d_sysconf + "'"
4001 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
4002 $ WC "d_getpgid='" + perl_d_getpgid + "'"
4003 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
4004 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
4005 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
4006 $ WC "d_sfio='" + perl_d_sfio + "'"
4007 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
4008 $ WC "usedl='" + perl_usedl + "'"
4009 $ WC "startperl=" + perl_startperl ! This one's special--no enclosing single quotes
4010 $ WC "db_hashtype='" + perl_db_hashtype + "'"
4011 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
4012 $ WC "useperlio='" + perl_useperlio + "'"
4013 $ WC "defvoidused='" + perl_defvoidused + "'"
4014 $ WC "voidflags='" + perl_voidflags + "'"
4015 $ WC "d_eunice='" + perl_d_eunice + "'"
4016 $ WC "libs='" + perl_libs + "'"
4017 $ WC "libc='" + perl_libc + "'"
4018 $ WC "xs_apiversion='" + version + "'"
4019 $ WC "pm_apiversion='" + version + "'"
4020 $ WC "version='" + version + "'"
4021 $ WC "revision='" + revision + "'"
4022 $ WC "patchlevel='" + patchlevel + "'"
4023 $ WC "subversion='" + subversion + "'"
4024 $ WC "PERL_VERSION='" + patchlevel + "'"
4025 $ WC "PERL_SUBVERSION='" + subversion + "'"
4026 $ WC "pager='" + perl_pager + "'"
4027 $ WC "make='" + make + "'"
4028 $ WC "uidtype='" + perl_uidtype + "'"
4029 $ WC "uidformat='" + perl_uidformat + "'"
4030 $ WC "uidsize='" + perl_uidsize + "'"
4031 $ WC "uidsign='" + perl_uidsign + "'"
4032 $ WC "gidtype='" + perl_gidtype + "'"
4033 $ WC "gidformat='" + perl_gidformat + "'"
4034 $ WC "gidsize='" + perl_gidsize + "'"
4035 $ WC "gidsign='" + perl_gidsign + "'"
4036 $ WC "usethreads='" + perl_usethreads + "'"
4037 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
4038 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
4039 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
4040 $ WC "i_netdb='" + perl_i_netdb + "'"
4041 $ WC "pidtype='" + perl_pidtype + "'"
4042 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
4043 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
4044 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
4045 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
4046 $ WC "socksizetype='" + perl_socksizetype + "'"
4047 $ WC "baserev='" + perl_baserev + "'"
4048 $ WC "doublesize='" + perl_doublesize + "'"
4049 $ WC "ptrsize='" + perl_ptrsize + "'"
4050 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
4051 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
4052 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
4053 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
4054 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
4055 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
4056 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
4057 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
4058 $ WC "d_sethent='" + perl_d_sethent + "'"
4059 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
4060 $ WC "d_longdbl='" + perl_d_longdbl + "'"
4061 $ WC "longdblsize='" + perl_longdblsize + "'"
4062 $ WC "d_longlong='" + perl_d_longlong + "'"
4063 $ WC "longlongsize='" + perl_longlongsize + "'"
4064 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
4065 $ WC "d_mkstemps='" + perl_d_mkstemps + "'"
4066 $ WC "d_mkdtemp='" + perl_d_mkdtemp + "'"
4067 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
4068 $ WC "d_setenv='" + perl_d_setenv + "'"
4069 $ WC "d_endhent='" + perl_d_endhent + "'"
4070 $ WC "d_endnent='" + perl_d_endsent + "'"
4071 $ WC "d_endpent='" + perl_d_endpent + "'"
4072 $ WC "d_endsent='" + perl_d_endsent + "'"
4073 $ WC "d_gethent='" + perl_d_gethent + "'"
4074 $ WC "d_getnent='" + perl_d_getsent + "'"
4075 $ WC "d_getpent='" + perl_d_getpent + "'"
4076 $ WC "d_getsent='" + perl_d_getsent + "'"
4077 $ WC "d_sethent='" + perl_d_sethent + "'"
4078 $ WC "d_setnent='" + perl_d_setsent + "'"
4079 $ WC "d_setpent='" + perl_d_setpent + "'"
4080 $ WC "ebcdic='" + perl_ebcdic + "'"
4081 $ WC "d_setsent='" + perl_d_setsent + "'"
4082 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
4083 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
4084 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
4085 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
4086 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
4087 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
4088 $ WC "d_lchown='" + perl_d_lchown + "'"
4089 $ WC "d_union_semun='" + perl_d_union_semun + "'"
4090 $ WC "i_arpainet='" + perl_i_arpainet + "'"
4091 $ WC "d_grpasswd='" + perl_d_grpasswd + "'"
4092 $ WC "d_setgrent='" + perl_d_setgrent + "'"
4093 $ WC "d_getgrent='" + perl_d_getgrent + "'"
4094 $ WC "d_endgrent='" + perl_d_endgrent + "'"
4095 $ WC "d_pwpasswd='" + perl_d_pwpasswd + "'"
4096 $ WC "d_setpwent='" + perl_d_setpwent + "'"
4097 $ WC "d_getpwent='" + perl_d_getpwent + "'"
4098 $ WC "d_endpwent='" + perl_d_endpwent + "'"
4099 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
4100 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
4101 $ WC "extensions='" + perl_extensions + "'"
4102 $ WC "known_extensions='" + perl_known_extensions + "'"
4103 $ WC "static_ext='" + "'"
4104 $ WC "dynamic_ext='" + perl_extensions + "'"
4105 $ WC "d_mknod='" + perl_d_mknod + "'"
4106 $ WC "devtype='" + perl_devtype + "'"
4107 $ WC "d_gethname='" + perl_d_gethname + "'"
4108 $ WC "d_phostname='" + perl_d_phostname + "'"
4109 $ WC "aphostname='" + perl_aphostname + "'"
4110 $ WC "d_accessx='" + perl_d_accessx + "'"
4111 $ WC "d_eaccess='" + perl_d_eaccess + "'"
4112 $ WC "i_ieeefp='" + perl_i_ieeefp + "'"
4113 $ WC "i_sunmath='" + perl_i_sunmath + "'"
4114 $ WC "i_sysaccess='" + perl_i_sysaccess + "'"
4115 $ WC "i_syssecrt='" + perl_i_syssecrt + "'"
4116 $ WC "d_fd_set='" + perl_d_fd_set + "'"
4117 $ WC "d_access='" + perl_d_access + "'"
4118 $ WC "d_msg_ctrunc='" + perl_d_msg_ctrunc + "'"
4119 $ WC "d_msg_dontroute='" + perl_d_msg_dontroute + "'"
4120 $ WC "d_msg_oob='" + perl_d_msg_oob + "'"
4121 $ WC "d_msg_peek='" + perl_d_msg_peek + "'"
4122 $ WC "d_msg_proxy='" + perl_d_msg_proxy + "'"
4123 $ WC "d_scm_rights='" + perl_d_scm_rights + "'"
4124 $ WC "d_sendmsg='" + perl_d_sendmsg + "'"
4125 $ WC "d_recvmsg='" + perl_d_recvmsg + "'"
4126 $ WC "d_msghdr_s='" + perl_d_msghdr_s + "'"
4127 $ WC "d_cmsghdr_s='" + perl_d_cmsghdr_s + "'"
4128 $ WC "i_sysuio='" + perl_i_sysuio + "'"
4129 $ WC "d_fseeko='" + perl_d_fseeko + "'"
4130 $ WC "d_ftello='" + perl_d_ftello + "'"
4131 $ WC "d_qgcvt='" + perl_d_qgcvt + "'"
4132 $ WC "d_readv='" + perl_d_readv + "'"
4133 $ WC "d_writev='" + perl_d_writev + "'"
4134 $ WC "i_machcthr='" + perl_i_machcthr + "'"
4135 $ WC "usemultiplicity='" + perl_usemultiplicity + "'"
4136 $ WC "i_poll='" + perl_i_poll + "'"
4137 $ WC "i_inttypes='" + perl_i_inttypes + "'"
4138 $ WC "d_off64_t='" + perl_d_off64_t + "'"
4139 $ WC "d_fpos64_t='" + perl_d_fpos64_t + "'"
4140 $ WC "use64bitall='" + perl_use64bitall + "'"
4141 $ WC "use64bitint='" + perl_use64bitint + "'"
4142 $ WC "d_drand48proto='" + perl_d_drand48proto + "'"
4143 $ WC "d_lseekproto='" + perl_d_drand48proto + "'"
4144 $ WC "d_old_pthread_create_joinable='" + perl_d_old_pthread_create_joinable + "'"
4145 $ WC "old_pthread_create_joinable='" + perl_old_pthread_create_joinable + "'"
4146 $ WC "drand01='" + perl_drand01 + "'"
4147 $ WC "randseedtype='" + perl_randseedtype + "'"
4148 $ WC "seedfunc='" + perl_seedfunc + "'"
4149 $ WC "sig_num_init='" + perl_sig_num_with_commas + "'"
4150 $ WC "i_sysmount='" + perl_i_sysmount + "'"
4151 $ WC "d_fstatfs='" + perl_d_fstatfs + "'"
4152 $ WC "d_getfsstat='" + perl_d_getfsstat + "'"
4153 $ WC "d_memchr='" + perl_d_memchr + "'"
4154 $ WC "d_statfsflags='" + perl_d_statfsflags + "'"
4155 $ WC "fflushNULL='define'"
4156 $ WC "fflushall='undef'"
4157 $ WC "d_stdio_stream_array='undef'"
4158 $ WC "stdio_stream_array='" + perl_stdio_stream_array + "'"
4159 $ WC "i_sysstatvfs='" + perl_i_sysstatvfs + "'"
4160 $ WC "i_syslog='" + perl_i_syslog + "'"
4161 $ WC "i_sysmode='" + perl_i_sysmode + "'"
4162 $ WC "i_sysutsname='" + perl_i_sysutsname + "'"
4163 $ WC "i_machcthreads='" + perl_i_machcthreads + "'"
4164 $ WC "i_pthread='" + perl_i_pthread + "'"
4165 $ WC "d_fstatvfs='" + perl_d_fstatvfs + "'"
4166 $ WC "i_mntent='" + perl_i_mntent + "'"
4167 $ WC "d_getmntent='" + perl_d_getmntent + "'"
4168 $ WC "d_hasmntopt='" + perl_d_hasmntopt + "'"
4169 $ WC "d_telldirproto='" + perl_d_telldirproto + "'"
4170 $ WC "d_madvise='" + perl_d_madvise + "'"
4171 $ WC "d_msync='" + perl_d_msync + "'"
4172 $ WC "d_mprotect='" + perl_d_mprotect + "'"
4173 $ WC "d_munmap='" + perl_d_munmap + "'"
4174 $ WC "d_mmap='" + perl_d_mmap + "'"
4175 $ WC "mmaptype='" + perl_mmaptype + "'"
4176 $ WC "i_sysmman='" + perl_i_sysmman + "'"
4177 $ WC "installusrbinperl='" + perl_installusrbinperl + "'"
4178 $! WC "selectminbits='" + perl_selectminbits + "'"
4179 $ WC "crosscompile='" + perl_crosscompile + "'"
4180 $ WC "multiarch='" + perl_multiarch + "'"
4181 $ WC "sched_yield='" + perl_sched_yield + "'"
4182 $ WC "d_strtoull='" + perl_d_strtoull + "'"
4183 $ WC "d_strtouq='" + perl_d_strtouq + "'"
4184 $ WC "d_strtoll='" + perl_d_strtoll + "'"
4185 $ WC "d_strtold='" + perl_d_strtold + "'"
4186 $ WC "usesocks='" + perl_usesocks + "'"
4187 $ WC "d_vendorlib='" + perl_d_vendorlib + "'"
4188 $ WC "vendorlibexp='" + perl_vendorlibexp + "'"
4189 $ WC "vendorlib_stem='" + perl_vendorlib_stem + "'"
4190 $ WC "d_atolf='" + perl_d_atolf + "'"
4191 $ WC "d_atoll='" + perl_d_atoll + "'"
4192 $ WC "d_bincompat5005='" + perl_d_bincompat + "'"
4193 $ WC "d_getspnam='" + perl_d_getspnam + "'"
4194 $ WC "i_shadow='" + perl_i_shadow + "'"
4195 $ WC "i_socks='" + perl_i_socks + "'"
4196 $ WC "d_PRIfldbl='" + perl_d_PRIfldbl + "'"
4197 $ WC "d_PRIgldbl='" + perl_d_PRIgldbl + "'"
4198 $ WC "d_PRId64='" + perl_d_PRId64 + "'"
4199 $ WC "d_PRIu64='" + perl_d_PRIu64 + "'"
4200 $ WC "d_PRIo64='" + perl_d_PRIo64 + "'"
4201 $ WC "d_PRIx64='" + perl_d_PRIx64 + "'"
4202 $ WC "sPRIfldbl='" + perl_sPRIfldbl + "'"
4203 $ WC "sPRIgldbl='" + perl_sPRIgldbl + "'"
4204 $ WC "sPRId64='" + perl_sPRId64 + "'"
4205 $ WC "sPRIu64='" + perl_sPRIu64 + "'"
4206 $ WC "sPRIo64='" + perl_sPRIo64 + "'"
4207 $ WC "sPRIx64='" + perl_sPRIx64 + "'"
4208 $ WC "d_llseek='" + perl_d_llseek + "'"
4209 $ WC "d_iconv='" + perl_d_iconv +"'"
4210 $ WC "i_iconv='" + perl_i_iconv +"'"
4211 $ WC "inc_version_list='0'"
4212 $ WC "inc_version_list_init='0'"
4213 $ WC "uselargefiles='" + perl_uselargefiles + "'"
4214 $ WC "uselongdouble='" + perl_uselongdouble + "'"
4215 $ WC "usemorebits='" + perl_usemorebits + "'"
4216 $ WC "d_quad='" + perl_d_quad + "'"
4217 $ WC "quadtype='" + perl_quadtype + "'"
4218 $ WC "uquadtype='" + perl_uquadtype + "'"
4219 $ WC "quadkind='" + perl_quadkind + "'"
4220 $ WC "d_fs_data_s='" + perl_d_fs_data_s + "'"
4221 $ WC "d_getcwd='" + perl_d_getcwd + "'"
4222 $ WC "d_getmnt='" + perl_d_getmnt + "'"
4223 $ WC "d_sqrtl='" + perl_d_sqrtl + "'"
4224 $ WC "d_statfs_f_flags='" + perl_d_statfs_f_flags + "'"
4225 $ WC "d_statfs_s='" + perl_d_statfs_s + "'"
4226 $ WC "d_ustat='" + perl_d_ustat + "'"
4227 $ WC "d_vendorarch='" + perl_d_vendorarch + "'"
4228 $ WC "vendorarchexp='" + perl_vendorarchexp + "'"
4229 $ WC "i_sysstatfs='" + perl_i_sysstatfs + "'"
4230 $ WC "i_sysvfs='" + perl_i_sysvfs + "'"
4231 $ WC "i_ustat='" + perl_i_ustat + "'"
4232 $ WC "ivtype='" + perl_ivtype + "'"
4233 $ WC "uvtype='" + perl_uvtype + "'"
4234 $ WC "i8type='" + perl_i8type + "'"
4235 $ WC "i16type='" + perl_i16type + "'"
4236 $ WC "u8type='" + perl_u8type + "'"
4237 $ WC "u16type='" + perl_u16type + "'"
4238 $ WC "i32type='" + perl_i32type + "'"
4239 $ WC "u32type='" + perl_u32type + "'"
4240 $ WC "i64type='" + perl_i64type + "'"
4241 $ WC "u64type='" + perl_u64type + "'"
4242 $ WC "nvtype='" + perl_nvtype + "'"
4243 $ WC "ivsize='" + perl_ivsize + "'"
4244 $ WC "uvsize='" + perl_uvsize + "'"
4245 $ WC "i8size='" + perl_i8size + "'"
4246 $ WC "u8size='" + perl_u8size + "'"
4247 $ WC "i16size='" + perl_i16size + "'"
4248 $ WC "u16size='" + perl_u16size + "'"
4249 $ WC "i32size='" + perl_i32size + "'"
4250 $ WC "u32size='" + perl_u32size + "'"
4251 $ WC "i64size='" + perl_i64size + "'"
4252 $ WC "u64size='" + perl_u64size + "'"
4253 $ WC "ivdformat='" + perl_ivdformat + "'"
4254 $ WC "uvuformat='" + perl_uvuformat + "'"
4255 $ WC "uvoformat='" + perl_uvoformat + "'"
4256 $ WC "uvxformat='" + perl_uvxformat + "'"
4257 $ WC "d_vms_case_sensitive_symbols='" + d_vms_be_case_sensitive + "'"
4258 $ WC "sizesize='" + perl_sizesize + "'"
4259 $ WC "d_frexpl='" + perl_d_frexpl + "'"
4260 $ WC "d_isnan='" + perl_d_isnan + "'"
4261 $ WC "d_isnanl='" + perl_d_isnanl + "'"
4262 $ WC "d_modfl='" + perl_d_modfl + "'"
4264 $! ##WRITE NEW CONSTANTS HERE##
4268 $! Okay, we've gotten here. Build munchconfig and run it
4269 $ 'Perl_CC' munchconfig.c
4270 $ If (Needs_Opt.eqs."Yes")
4272 $ open/write OPTCHAN []munchconfig.opt
4273 $ IF ("''using_gnu_c'".eqs."Yes")
4275 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
4277 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
4279 $ link munchconfig.obj,munchconfig.opt/opt
4280 $ delete munchconfig.opt;*
4282 $ link munchconfig.obj
4285 $ echo "Doing variable substitutions on .SH files..."
4286 $ echo "Extracting config.h (with variable substitutions)"
4288 $ ! we need an fdl file
4289 $ CREATE [-]CONFIG.FDL
4292 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
4293 $ ! First spit out the header info with the local defines (to get
4294 $ ! around the 255 character command line limit)
4295 $ OPEN/APPEND CONFIG [-]config.local
4296 $ IF use_debugging_perl THEN WC "#define DEBUGGING"
4297 $ IF use_two_pot_malloc THEN WC "#define TWO_POT_OPTIMIZE"
4298 $ IF mymalloc THEN WC "#define EMBEDMYMALLOC"
4299 $ IF use_pack_malloc THEN WC "#define PACK_MALLOC"
4300 $ IF use_debugmalloc THEN WC "#define DEBUGGING_MSTATS"
4301 $ IF Using_Gnu_C THEN WC "#define GNUC_ATTRIBUTE_CHECK"
4302 $ IF (Has_Dec_C_Sockets)
4304 $ WC "#define VMS_DO_SOCKETS"
4305 $ WC "#define DECCRTL_SOCKETS"
4307 $ IF Has_Socketshr THEN WC "#define VMS_DO_SOCKETS"
4309 $! This is VMS-specific for now
4310 $ WC "#''perl_d_setenv' HAS_SETENV"
4311 $ IF d_secintgenv THEN WC "#define SECURE_INTERNAL_GETENV"
4312 $ if d_alwdeftype THEN WC "#define ALWAYS_DEFTYPES"
4315 $ WC "#define USE_64_BIT_INT"
4316 $ WC "#define USE_LONG_DOUBLE"
4318 $ IF use64bitall THEN WC "#define USE_64_BIT_ALL"
4319 $ IF be_case_sensitive THEN WC "#define VMS_WE_ARE_CASE_SENSITIVE"
4320 $ if perl_d_herrno .eqs. "undef"
4322 $ WC "#define NEED_AN_H_ERRNO"
4324 $ WC "#define HAS_ENVGETENV"
4325 $ WC "#define PERL_EXTERNAL_GLOB"
4328 $! Now build the normal config.h
4329 $ define/user sys$output [-]config.main
4330 $ mcr []munchconfig [-]config.sh [-]config_h.sh
4331 $ ! Concatenate them together
4332 $ copy [-]config.local,[-]config.main [-]config.h
4334 $ DELETE/NOLOG [-]CONFIG.MAIN;*
4335 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
4336 $ DELETE/NOLOG [-]CONFIG.FDL;*
4340 $ DECC_REPLACE = "DECC=decc=1"
4342 $ DECC_REPLACE = "DECC="
4346 $ GNUC_REPLACE = "GNUC=gnuc=1"
4348 $ GNUC_REPLACE = "GNUC="
4350 $ IF Has_Dec_C_Sockets
4352 $ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
4356 $ SOCKET_REPLACE = "SOCKET=SOCKETSHR_SOCKETS=1"
4358 $ SOCKET_REPLACE = "SOCKET="
4363 $ IF (VMS_VER .LES. "6.2")
4365 $ THREAD_REPLACE = "THREAD=OLDTHREADED=1"
4367 $ THREAD_REPLACE = "THREAD=THREADED=1"
4370 $ THREAD_REPLACE = "THREAD="
4374 $ MALLOC_REPLACE = "MALLOC=MALLOC=1"
4376 $ MALLOC_REPLACE = "MALLOC="
4378 $ echo "Extracting ''defmakefile' (with variable substitutions)"
4380 $ define/user sys$output 'UUmakefile
4381 $ mcr []munchconfig [-]config.sh descrip_mms.template "''DECC_REPLACE'" "''ARCH_TYPE'" "''GNUC_REPLACE'" "''SOCKET_REPLACE'" "''THREAD_REPLACE'" -
4382 "''C_Compiler_Replace'" "''MALLOC_REPLACE'" "''Thread_Live_Dangerously'" "PV=''version'" "FLAGS=FLAGS=''extra_flags'"
4383 $ echo "Extracting Build_Ext.Com (without variable substitutions)"
4384 $ Create Sys$Disk:[-]Build_Ext.Com
4385 $ Deck/Dollar="$EndOfTpl$"
4387 $! NOTE: This file is extracted as part of the VMS configuration process.
4388 $! Any changes made to it directly will be lost. If you need to make any
4389 $! changes, please edit the template in [.vms]SubConfigure.Com instead.
4390 $ def = F$Environment("Default")
4391 $ exts1 = F$Edit(p1,"Compress")
4392 $ p2 = F$Edit(p2,"Upcase,Compress,Trim")
4393 $ If F$Locate("MCR ",p2).eq.0 Then p2 = F$Extract(3,255,p2)
4394 $ miniperl = "$" + F$Search(F$Parse(p2,".Exe"))
4396 $ if f$type('p3') .nes. "" then makeutil = 'p3'
4397 $ targ = F$Edit(p4,"Lowercase")
4400 $ ext = F$Element(i," ",p1)
4401 $ If ext .eqs. " " Then Goto done
4402 $ Define/User Perl_Env_Tables CLISYM_LOCAL
4404 ($extdir = $ENV{'ext'}) =~ s/::/./g;
4406 if ($extdir =~ /^vms/i) { $extdir =~ s/vms/.vms.ext/i; }
4407 else { $extdir = ".ext.$extdir"; }
4408 ($ENV{'extdir'} = "[$extdir]");
4409 ($ENV{'up'} = ('-') x ($extdir =~ tr/././));
4410 $ Set Default &extdir
4412 $ If F$Locate("clean",targ) .eqs. F$Length(targ)
4414 $ Write Sys$Output "Building ''ext' . . ."
4415 $ On Error Then Goto done
4416 $ If F$Search("Descrip.MMS") .eqs. ""
4420 $ If F$CvTime(F$File("Descrip.MMS","rdt")) .lts. -
4421 F$CvTime(F$File("Makefile.PL","rdt")) Then redesc = 1
4424 $ Write Sys$Output "''targ'ing ''ext' . . ."
4425 $ On Error Then Continue
4428 miniperl "-I[''up'.lib]" Makefile.PL "INST_LIB=[''up'.lib]" "INST_ARCHLIB=[''up'.lib]"
4442 $! Clean up after ourselves
4443 $ DELETE/NOLOG/NOCONFIRM munchconfig.exe;
4444 $ DELETE/NOLOG/NOCONFIRM munchconfig.obj;