1 $! SUBCONFIGURE.COM - build a config.sh for VMS Perl.
3 $! Note for folks from other platforms changing things in here:
4 $! Fancy changes (based on compiler capabilities or VMS version or
5 $! whatever) are tricky, so go ahead and punt on those.
7 $! Simple changes, though (say, always setting something to 1, or undef,
8 $! or something like that) are straightforward. Adding a new item for the
9 $! ultimately created config.sh requires adding two lines to this file.
11 $! First, a line in the format:
13 $! after the line tagged ##ADD NEW CONSTANTS HERE##. Replace foo with the
14 $! variable name as it appears in config.sh.
16 $! Second, add a line in the format:
17 $! $ WC "foo='" + perl_foo + "'"
18 $! after the line tagged ##WRITE NEW CONSTANTS HERE##. Careful of the
19 $! quoting, as it can be tricky.
21 $! This .COM file expects to be called by configure.com, and thus expects
22 $! a few symbols in the environment. Notably:
24 $! One of: Using_Dec_C, Using_Gnu_C set to "YES"
25 $! Dec_C_Version set to the Dec C version (defaults to 0 if not specified)
26 $! Has_Socketshr set to "T" if using socketshr
27 $! Has_Dec_C_Sockets set to "T" if using Dec C sockets
28 $! Use_Threads set to "T" if they're using threads
29 $! C_Compiler_Invoke is the command needed to invoke the C compiler
31 $! We'll be playing with Sys$Output; don't clutter it
34 $! Set Dec_C_Version to something
35 $ WRITE_RESULT := "WRITE SYS$OUTPUT ""%CONFIG-I-RESULT "" + "
36 $ echo = "Write Sys$Output "
37 $ Dec_C_Version := "''Dec_C_Version'"
38 $ Dec_C_Version = Dec_C_Version + 0
39 $ Vms_Ver := "''f$extract(1,3, f$getsyi(""version""))'"
40 $ perl_extensions := "''extensions'"
41 $ if f$length(Mcc) .eq. 0 then Mcc := "cc"
42 $ MCC = f$edit(mcc, "UPCASE")
43 $ C_Compiler_Replace := "CC=CC=''Mcc'''CC_flags'"
44 $ if "''Using_Dec_C'" .eqs. "Yes"
46 $ Checkcc := "''Mcc'/prefix=all"
50 $ cc_flags = cc_flags + extra_flags
51 $ if be_case_sensitive
53 $ d_vms_be_case_sensitive = "define"
55 $ d_vms_be_case_sensitive = "undef"
57 $ if use_multiplicity .eqs. "Y"
59 $ perl_usemultiplicity = "define"
61 $ perl_usemultiplicity = "undef"
63 $! Some constant defaults.
65 $ hwname = f$getsyi("HW_NAME")
67 $ if "''myname'" .eqs. "" THEN myname = f$trnlnm("SYS$NODE")
69 $! ##ADD NEW CONSTANTS HERE##
72 $ perl_gidformat = "lu"
74 $ perl_groupstype = "Gid_t"
75 $ perl_stdio_stream_array = ""
76 $ perl_uidformat = "lu"
78 $ perl_d_getcwd = "undef"
79 $ perl_d_nv_preserves_uv = "define"
80 $ perl_d_fs_data_s = "undef"
81 $ perl_d_getmnt = "undef"
82 $ perl_d_sqrtl = "define"
83 $ perl_d_statfs_f_flags = "undef"
84 $ perl_d_statfs_s = "undef"
85 $ perl_d_ustat = "undef"
86 $ perl_i_ieeefp = "undef"
87 $ perl_i_sunmath = "undef"
88 $ perl_i_sysstatfs = "undef"
89 $ perl_i_sysvfs = "undef"
90 $ perl_i_ustat = "undef"
91 $ perl_d_llseek="undef"
92 $ perl_d_iconv="undef"
93 $ perl_d_madvise="undef"
94 $ perl_selectminbits=32
95 $ perl_d_msync="undef"
96 $ perl_d_vendorarch="define"
97 $ perl_vendorarchexp=""
98 $ perl_d_mprotect="undef"
99 $ perl_d_munmap="undef"
100 $ perl_crosscompile="undef"
101 $ perl_multiarch="undef"
102 $ perl_d_mmap="undef"
103 $ perl_i_sysmman="undef"
104 $ perl_d_telldirproto="define"
105 $ perl_i_sysmount="undef"
106 $ perl_d_bincompat="undef"
107 $ perl_d_endspent="undef
108 $ perl_d_getspent="undef
109 $ perl_d_getspnam="undef
110 $ perl_d_setspent="undef
111 $ perl_d_fstatfs="undef"
112 $ perl_d_getfsstat="undef"
113 $ perl_i_machcthreads="undef"
114 $ perl_i_pthread="define"
115 $ perl_d_fstatvfs="undef"
116 $ perl_usesocks="undef"
117 $ perl_d_vendorlib="undef"
118 $ perl_vendorlibexp=""
119 $ perl_vendorlib_stem=""
120 $ perl_d_statfsflags="undef"
121 $ perl_i_sysstatvfs="undef"
122 $ perl_i_mntent="undef"
123 $ perl_d_getmntent="undef"
124 $ perl_d_hasmntopt="undef"
125 $ perl_package="''package'"
126 $ perl_baserev = "''baserev'"
128 $ perl_installusrbinperl="undef"
130 $ perl_d_fseeko="undef"
131 $ perl_d_ftello="undef"
132 $ perl_d_qgcvt="undef"
133 $ perl_d_readv="undef"
134 $ perl_d_writev="undef"
135 $ perl_i_machcthr="undef"
136 $ perl_i_netdb="undef"
137 $ perl_d_gnulibc="undef"
138 $ perl_cf_by="unknown"
142 $ perl_drand01 = "drand48()"
143 $ perl_randseedtype = "long int"
144 $ perl_seedfunc = "srand48"
145 $ perl_d_msg_ctrunc = "undef"
146 $ perl_d_msg_dontroute = "undef"
147 $ perl_d_msg_oob = "undef"
148 $ perl_d_msg_peek = "undef"
149 $ perl_d_msg_proxy = "undef"
150 $ perl_d_scm_rights = "undef"
151 $ perl_d_sendmsg = "undef"
152 $ perl_d_recvmsg = "undef"
153 $ perl_d_msghdr_s = "undef"
154 $ perl_d_cmsghdr_s = "undef"
157 $ perl_use64bitint = "define"
158 $ perl_uselargefiles = "define"
159 $ perl_uselongdouble = "define"
160 $ perl_usemorebits = "define"
162 $ perl_use64bitint = "undef"
163 $ perl_uselargefiles = "undef"
164 $ perl_uselongdouble = "undef"
165 $ perl_usemorebits = "undef"
169 $ perl_use64bitall = "define"
171 $ perl_use64bitall = "undef"
173 $ perl_d_drand48proto = "define"
174 $ perl_d_lseekproto = "define"
175 $ perl_libpth="/sys$share /sys$library"
177 $ perl_lddlflags="/Share"
183 $ perl_i_arpainet="undef"
184 $ perl_d_grpasswd="undef"
185 $ perl_d_setgrent="undef"
186 $ perl_d_getgrent="define"
187 $ perl_d_endgrent="define"
188 $ perl_d_pwpasswd="define"
189 $ perl_d_setpwent="define"
190 $ perl_d_getpwent="define"
191 $ perl_d_endpwent="define"
192 $ perl_d_phostname="undef"
193 $ perl_d_accessx="undef"
194 $ perl_d_eaccess="undef"
195 $ perl_ebcdic="undef"
197 $ perl_shrplib="define"
198 $ perl_usemymalloc=mymalloc
199 $ perl_usevfork="true"
200 $ perl_useposix="false"
201 $ perl_spitshell="write sys$output "
202 $ perl_dlsrc="dl_vms.c"
205 $ perl_prefix="perl_root"
206 $ perl_binexp="''perl_prefix':[000000]"
207 $ perl_builddir="''perl_prefix':[000000]"
208 $ perl_installbin="''perl_prefix':[000000]"
209 $ perl_installscript="''perl_prefix':[utils]"
210 $ perl_installman1dir="''perl_prefix':[man.man1]"
211 $ perl_installman3dir="''perl_prefix':[man.man3]"
212 $ perl_installprivlib="''perl_prefix':[lib]"
213 $ perl_installsitelib="''perl_prefix':[lib.site_perl]"
216 $ perl_d_sockpair="undef"
217 $ perl_i_neterrno="define"
218 $ perl_ldflags="/NoTrace/NoMap"
219 $ perl_d_lchown="undef"
220 $ perl_d_mknod="undef"
221 $ perl_d_union_semun="undef"
222 $ perl_d_semctl_semun="undef"
223 $ perl_d_semctl_semid_ds="undef"
224 $ IF (sharedperl.EQS."Y" .AND. F$GETSYI("HW_MODEL").GE.1024)
226 $ perl_obj_ext=".abj"
229 $ perl_exe_ext=".axe"
230 $ perl_lib_ext=".alb"
232 $ perl_obj_ext=".obj"
235 $ perl_exe_ext=".exe"
236 $ perl_lib_ext=".olb"
238 $ perl_dlobj="dl_vms''perl_obj_ext'"
240 $ perl_d_archlib="define"
241 $ perl_d_bincompat3="undef"
242 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
244 $ perl_cpprun="''Perl_CC'/noobj/preprocess=sys$output sys$input"
247 $ perl_d_castneg="define"
249 $ perl_d_chsize="undef"
250 $ perl_d_const="define"
251 $ perl_d_crypt="define"
252 $ perl_byteorder="1234"
255 $ perl_d_dup2="define"
256 $ perl_d_fchmod="undef"
257 $ perl_d_fchown="undef"
258 $ perl_d_fcntl="undef"
259 $ perl_d_fgetpos="define"
260 $ perl_d_flexfnam="define"
261 $ perl_d_flock="undef"
262 $ perl_d_fsetpos="define"
263 $ perl_d_getgrps="undef"
264 $ perl_d_setgrps="undef"
265 $ perl_d_getprior="undef"
266 $ perl_d_killpg="undef"
267 $ perl_d_link="undef"
268 $ perl_d_lstat="undef"
269 $ perl_d_lockf="undef"
270 $ perl_d_memcmp="define"
271 $ perl_d_memcpy="define"
272 $ perl_d_memmove="define"
273 $ perl_d_memset="define"
274 $ perl_d_mkdir="define"
276 $ perl_d_open3="define"
277 $ perl_d_poll="undef"
278 $ perl_d_readdir="define"
279 $ perl_d_seekdir="define"
280 $ perl_d_telldir="define"
281 $ perl_d_rewinddir="define"
282 $ perl_d_rename="define"
283 $ perl_d_rmdir="define"
285 $ perl_d_setegid="undef"
286 $ perl_d_seteuid="undef"
287 $ perl_d_setprior="undef"
288 $ perl_d_setregid="undef"
289 $ perl_d_setresgid="undef"
290 $ perl_d_setreuid="undef"
291 $ perl_d_setresuid="undef"
292 $ perl_d_setrgid="undef"
293 $ perl_d_setruid="undef"
294 $ perl_d_setsid="undef"
296 $ perl_d_shmatprototype="undef"
297 $ perl_d_statblks="undef"
298 $ perl_stdio_ptr="((*fp)->_ptr)"
299 $ perl_stdio_cnt="((*fp)->_cnt)"
300 $ perl_stdio_base="((*fp)->_base)"
301 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
302 $ perl_d_strctcpy="define"
303 $ perl_d_strerror="define"
304 $ perl_d_syserrlst="undef"
305 $ perl_d_strerrm="strerror((e),vaxc$errno)"
306 $ perl_d_symlink="undef"
307 $ perl_d_syscall="undef"
308 $ perl_d_system="define"
309 $ perl_timetype="time_t"
310 $ perl_d_vfork="define"
311 $ perl_signal_t="void"
312 $ perl_d_volatile="define"
313 $ perl_d_vprintf="define"
314 $ perl_d_charvspr="undef"
315 $ perl_d_waitpid="define"
316 $ perl_i_dirent="undef"
317 $ perl_d_dirnamlen="define"
318 $ perl_direntrytype="struct dirent"
319 $ perl_i_fcntl="undef"
321 $ perl_i_limits="define"
322 $ perl_i_memory="undef"
323 $ perl_i_ndbm="undef"
324 $ perl_i_stdarg="define"
326 $ perl_d_pwquota="undef"
327 $ perl_d_pwage="undef"
328 $ perl_d_pwchange="undef"
329 $ perl_d_pwclass="undef"
330 $ perl_d_pwexpire="undef"
331 $ perl_d_pwcomment="define"
332 $ perl_i_stddef="define"
333 $ perl_i_stdlib="define"
334 $ perl_i_string="define"
335 $ perl_i_sysdir="undef"
336 $ perl_i_sysfile="undef"
337 $ perl_i_sysioctl="undef"
338 $ perl_i_sysndir="undef"
339 $ perl_i_sysresrc="undef"
340 $ perl_i_sysselct="undef"
342 $ perl_i_rpcsvcdbm="undef"
343 $ perl_i_sfio="undef"
344 $ perl_i_sysstat="define"
345 $ perl_i_systimes="undef"
346 $ perl_i_systypes="define"
347 $ perl_i_sysun="undef"
348 $ perl_i_syswait="undef"
349 $ perl_i_termio="undef"
350 $ perl_i_sgtty="undef"
351 $ perl_i_termios="undef"
352 $ perl_i_time="define"
353 $ perl_i_systime="undef"
354 $ perl_i_systimek="undef"
355 $! perl_i_unistd="undef"
356 $ perl_i_utime="undef"
357 $ perl_i_varargs="undef"
358 $ perl_i_vfork="undef"
359 $ perl_prototype="define"
361 $ perl_stdchar="char"
362 $ perl_d_unlink_all_versions="undef"
363 $ perl_full_sed="_NLA0:"
364 $ perl_bin="/''perl_prefix'/000000"
365 $ perl_binexp="''perl_prefix':[000000]"
366 $ perl_d_alarm="define"
367 $ perl_d_casti32="define"
368 $ perl_d_chown="define"
369 $ perl_d_chroot="undef"
370 $ perl_d_cuserid="define"
371 $ perl_d_dbl_dig="define"
372 $ perl_d_ldbl_dig="define"
373 $ perl_d_difftime="define"
374 $ perl_d_fork="undef"
375 $ perl_d_getlogin="define"
376 $ perl_d_getppid="undef"
377 $ perl_d_nice="define"
378 $ perl_d_pause="define"
379 $ perl_d_pipe="define"
380 $ perl_d_readlink="undef"
381 $ perl_d_setlinebuf="undef"
382 $ perl_d_strchr="define"
383 $ perl_d_strtod="define"
384 $ perl_d_strtol="define"
385 $ perl_d_strtoul="define"
386 $ perl_d_tcgetpgrp="undef"
387 $ perl_d_tcsetpgrp="undef"
388 $ perl_d_times="define"
389 $ perl_d_tzname="undef"
390 $ perl_d_umask="define"
391 $ perl_fpostype="fpos_t"
392 $ perl_i_dlfcn="undef"
393 $ perl_i_float="define"
394 $ perl_i_math="define"
395 $ perl_lseektype="int"
396 $ perl_i_values="undef"
397 $ perl_malloctype="void *"
398 $ perl_freetype="void"
399 $ if "''mymalloc'".eqs."Y"
401 $ perl_d_mymalloc="define"
403 $ perl_d_mymalloc="undef"
406 $ perl_modetype="unsigned int"
407 $ perl_ssizetype="int"
408 $ perl_o_nonblock=" "
411 $ perl_d_eofnblk="undef"
412 $ perl_d_oldarchlib="define"
413 $ perl_privlibexp="''perl_prefix':[lib]"
414 $ perl_privlib="''perl_prefix':[lib]"
415 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
416 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
417 $ perl_sitelib_stem="''perl_prefix':[lib.site_perl]"
418 $ perl_sizetype="size_t"
419 $ perl_i_sysparam="undef"
420 $ perl_d_void_closedir="define"
421 $ perl_d_dlerror="undef"
422 $ perl_d_dlsymun="undef"
423 $ perl_d_suidsafe="undef"
424 $ perl_d_dosuid="undef"
425 $ perl_d_inetaton="undef"
426 $ perl_d_isascii="define"
427 $ perl_d_mkfifo="undef"
428 $ perl_d_safebcpy="undef"
429 $ perl_d_safemcpy="define"
430 $ perl_d_sanemcmp="define"
431 $ perl_d_setpgrp="undef"
432 $ perl_d_bsdsetpgrp="undef"
433 $ perl_d_bsdpgrp="undef"
434 $ perl_d_setpgid="undef"
435 $ perl_d_setpgrp2="undef"
436 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
437 $ perl_d_getpgid="undef"
438 $ perl_d_getpgrp="undef"
439 $ perl_d_bsdgetpgrp="undef"
440 $ perl_d_getpgrp2="undef"
441 $ perl_d_sfio="undef"
442 $ perl_usedl="define"
443 $ perl_startperl="""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ + ++$status != 0 and $exit = $status = undef;"""
444 $ perl_db_hashtype=" "
445 $ perl_db_prefixtype=" "
446 $ perl_useperlio="undef"
447 $ perl_defvoidused="15"
448 $ perl_voidflags="15"
449 $ perl_d_eunice="undef"
450 $ perl_d_pwgecos="define"
451 $ IF ("''Use_Threads'".eqs."T").and.("''VMS_VER'".LES."6.2")
453 $ perl_libs="SYS$SHARE:CMA$LIB_SHR.EXE/SHARE SYS$SHARE:CMA$RTL.EXE/SHARE SYS$SHARE:CMA$OPEN_LIB_SHR.exe/SHARE SYS$SHARE:CMA$OPEN_RTL.exe/SHARE"
457 $ IF ("''Using_Dec_C'".eqs."Yes")
459 $ perl_libc="(DECCRTL)"
463 $ perl_PATCHLEVEL="''patchlevel'"
464 $ perl_SUBVERSION="''subversion'"
471 $ perl_d_PRIfldbl = "define"
472 $ perl_d_PRIgldbl = "define"
473 $ perl_d_PRId64 = "define"
474 $ perl_d_PRIu64 = "define"
475 $ perl_d_PRIo64 = "define"
476 $ perl_d_PRIx64 = "define"
477 $ perl_sPRIfldbl = """Lf"""
478 $ perl_sPRIgldbl = """Lg"""
479 $ perl_sPRId64 = """Ld"""
480 $ perl_sPRIu64 = """Lu"""
481 $ perl_sPRIo64 = """Lo"""
482 $ perl_sPRIx64 = """Lx"""
483 $ perl_d_quad = "define"
484 $ perl_quadtype = "long long"
485 $ perl_uquadtype = "unsigned long long"
486 $ perl_quadkind = "QUAD_IS_LONG_LONG"
488 $ perl_d_PRIfldbl = "undef"
489 $ perl_d_PRIgldbl = "undef"
490 $ perl_d_PRId64 = "undef"
491 $ perl_d_PRIu64 = "undef"
492 $ perl_d_PRIo64 = "undef"
493 $ perl_d_PRIx64 = "undef"
494 $ perl_sPRIfldbl = ""
495 $ perl_sPRIgldbl = ""
500 $ perl_d_quad = "undef"
501 $ perl_quadtype = "long"
502 $ perl_uquadtype = "unsigned long"
503 $ perl_quadkind = "QUAD_IS_LONG"
506 $! Now some that we build up
508 $ LocalTime = f$time()
509 $ perl_cf_time= f$extract(0, 3, f$cvtime(LocalTime,, "WEEKDAY")) + " " + -
510 f$edit(f$cvtime(LocalTime, "ABSOLUTE", "MONTH"), "LOWERCASE") + -
511 " " + f$cvtime(LocalTime,, "DAY") + " " + f$cvtime(LocalTime,, "TIME") + -
512 " " + f$cvtime(LocalTime,, "YEAR")
513 $ if f$getsyi("HW_MODEL").ge.1024
515 $ perl_arch="VMS_AXP"
516 $ perl_archname="VMS_AXP"
517 $ perl_alignbytes="8"
519 $ perl_arch="VMS_VAX"
520 $ perl_archname="VMS_VAX"
521 $ perl_alignbytes="8"
523 $ if ("''Use_Threads'".eqs."T")
525 $ if use_5005_threads
527 $ perl_arch = "''perl_arch'-thread"
528 $ perl_archname = "''perl_archname'-thread"
529 $ perl_d_old_pthread_create_joinable = "undef"
530 $ perl_old_pthread_create_joinable = " "
531 $ perl_use5005threads = "define"
532 $ perl_useithreads = "undef"
534 $ perl_arch = "''perl_arch'-ithread"
535 $ perl_archname = "''perl_archname'-ithread"
536 $ perl_d_old_pthread_create_joinable = "undef"
537 $ perl_old_pthread_create_joinable = " "
538 $ perl_use5005threads = "undef"
539 $ perl_useithreads = "define"
542 $ perl_d_old_pthread_create_joinable = "undef"
543 $ perl_old_pthread_create_joinable = " "
544 $ perl_use5005threads = "undef"
545 $ perl_useithreads = "undef"
547 $ perl_osvers=f$edit(osvers, "TRIM")
548 $ if (perl_subversion + 0).eq.0
550 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL
552 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion
555 $! Some that we need to invoke the compiler for
556 $ OS := "open/write SOURCECHAN []temp.c"
557 $ WS := "write SOURCECHAN"
558 $ CS := "close SOURCECHAN"
559 $ DS := "delete/nolog []temp.*;*"
561 $ if ("''using_gnu_c'".eqs."Yes")
563 $ open/write OPTCHAN []temp.opt
564 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
565 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
570 $! Check for __STDC__
574 $ WS "#include <stdlib.h>
576 $ WS "#include <stdio.h>
579 $ WS "#ifdef __STDC__
580 $ WS "printf(""42\n"");
582 $ WS "printf(""1\n"");
587 $ DEFINE SYS$ERROR _NLA0:
588 $ DEFINE SYS$OUTPUT _NLA0:
589 $ ON ERROR THEN CONTINUE
590 $ ON WARNING THEN CONTINUE
592 $ If (Needs_Opt.eqs."Yes")
594 $ link temp.obj,temp.opt/opt
598 $ DEASSIGN SYS$OUTPUT
600 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
601 $ DEFINE SYS$ERROR TEMPOUT
602 $ DEFINE SYS$OUTPUT TEMPOUT
605 $ DEASSIGN SYS$OUTPUT
607 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
610 $ DELETE/NOLOG [-.uu]tempout.lis;
612 $ perl_cpp_stuff=line
613 $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
615 $! Check for double size
619 $ WS "#include <stdlib.h>
621 $ WS "#include <stdio.h>
625 $ WS "foo = sizeof(double);
626 $ WS "printf(""%d\n"", foo);
630 $ DEFINE SYS$ERROR _NLA0:
631 $ DEFINE SYS$OUTPUT _NLA0:
632 $ ON ERROR THEN CONTINUE
633 $ ON WARNING THEN CONTINUE
635 $ If (Needs_Opt.eqs."Yes")
637 $ link temp.obj,temp.opt/opt
641 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
642 $ DEASSIGN SYS$OUTPUT
644 $ DEFINE SYS$ERROR TEMPOUT
645 $ DEFINE SYS$OUTPUT TEMPOUT
648 $ DEASSIGN SYS$OUTPUT
650 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
653 $ DELETE/NOLOG [-.uu]tempout.lis;
655 $ perl_doublesize=line
656 $ WRITE_RESULT "doublesize is ''perl_doublesize'"
658 $! Check for long double size
662 $ WS "#include <stdlib.h>
664 $ WS "#include <stdio.h>
667 $ WS "printf(""%d\n"", sizeof(long double));
671 $ DEFINE SYS$ERROR _NLA0:
672 $ DEFINE SYS$OUTPUT _NLA0:
673 $ ON ERROR THEN CONTINUE
674 $ ON WARNING THEN CONTINUE
676 $ teststatus = f$extract(9,1,$status)
677 $ if (teststatus.nes."1")
679 $ perl_longdblsize="0"
680 $ perl_d_longdbl="undef"
682 $ ON ERROR THEN CONTINUE
683 $ ON WARNING THEN CONTINUE
684 $ If (Needs_Opt.eqs."Yes")
686 $ link temp.obj,temp.opt/opt
690 $ teststatus = f$extract(9,1,$status)
691 $ DEASSIGN SYS$OUTPUT
693 $ if (teststatus.nes."1")
695 $ perl_longdblsize="0"
696 $ perl_d_longdbl="undef"
698 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
699 $ DEFINE SYS$ERROR TEMPOUT
700 $ DEFINE SYS$OUTPUT TEMPOUT
703 $ DEASSIGN SYS$OUTPUT
705 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
708 $ DELETE/NOLOG [-.uu]tempout.lis;
710 $ perl_longdblsize=line
711 $ perl_d_longdbl="define"
714 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
715 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
717 $! Check for long long existance and size
721 $ WS "#include <stdlib.h>
723 $ WS "#include <stdio.h>
726 $ WS "printf(""%d\n"", sizeof(long long));
730 $ DEFINE SYS$ERROR _NLA0:
731 $ DEFINE SYS$OUTPUT _NLA0:
732 $ on error then continue
733 $ on warning then continue
735 $ If (Needs_Opt.eqs."Yes")
737 $ link temp.obj,temp.opt/opt
741 $ teststatus = f$extract(9,1,$status)
742 $ DEASSIGN SYS$OUTPUT
744 $ if (teststatus.nes."1")
746 $ perl_longlongsize="0"
747 $ perl_d_longlong="undef"
749 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
750 $ DEFINE SYS$ERROR TEMPOUT
751 $ DEFINE SYS$OUTPUT TEMPOUT
754 $ DEASSIGN SYS$OUTPUT
756 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
759 $ DELETE/NOLOG [-.uu]tempout.lis;
760 $ perl_longlongsize=line
761 $ perl_d_longlong="define"
763 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
764 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
766 $! Check the prototype for getgid
770 $ WS "#include <stdlib.h>
772 $ WS "#include <stdio.h>
773 $ WS "#include <types.h>
774 $ WS "#include <unistd.h>
781 $ DEFINE SYS$ERROR _NLA0:
782 $ DEFINE SYS$OUTPUT _NLA0:
783 $ on error then continue
784 $ on warning then continue
786 $ teststatus = f$extract(9,1,$status)
787 $ DEASSIGN SYS$OUTPUT
789 $ if (teststatus.nes."1")
791 $! Okay, gid_t failed. Must be unsigned int
792 $ perl_gidtype = "unsigned int"
794 $ perl_gidtype = "gid_t"
796 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
798 $! Check to see if we've got dev_t
802 $ WS "#include <stdlib.h>
804 $ WS "#include <stdio.h>
805 $ WS "#include <types.h>
806 $ WS "#include <unistd.h>
813 $ DEFINE SYS$ERROR _NLA0:
814 $ DEFINE SYS$OUTPUT _NLA0:
815 $ on error then continue
816 $ on warning then continue
818 $ teststatus = f$extract(9,1,$status)
819 $ DEASSIGN SYS$OUTPUT
821 $ if (teststatus.nes."1")
823 $! Okay, dev_t failed. Must be unsigned int
824 $ perl_devtype = "unsigned int"
826 $ perl_devtype = "dev_t"
828 $ WRITE_RESULT "Dev_t is ''perl_devtype'"
830 $! Check to see if we've got unistd.h (which we ought to, but you never know)
834 $ WS "#include <stdlib.h>
836 $ WS "#include <unistd.h>
842 $ DEFINE SYS$ERROR _NLA0:
843 $ DEFINE SYS$OUTPUT _NLA0:
844 $ on error then continue
845 $ on warning then continue
847 $ teststatus = f$extract(9,1,$status)
848 $ DEASSIGN SYS$OUTPUT
850 $ if (teststatus.nes."1")
852 $! Okay, failed. Must not have it
853 $ perl_i_unistd = "undef"
855 $ perl_i_unistd = "define"
858 $ WRITE_RESULT "i_unistd is ''perl_i_unistd'"
860 $! Check to see if we've got shadow.h (probably not, but...)
864 $ WS "#include <stdlib.h>
866 $ WS "#include <shadow.h>
872 $ DEFINE SYS$ERROR _NLA0:
873 $ DEFINE SYS$OUTPUT _NLA0:
874 $ on error then continue
875 $ on warning then continue
877 $ teststatus = f$extract(9,1,$status)
878 $ DEASSIGN SYS$OUTPUT
880 $ if (teststatus.nes."1")
882 $! Okay, failed. Must not have it
883 $ perl_i_shadow = "undef"
885 $ perl_i_shadow = "define"
888 $ WRITE_RESULT "i_shadow is ''perl_i_shadow'"
890 $! Check to see if we've got socks.h (probably not, but...)
894 $ WS "#include <stdlib.h>
896 $ WS "#include <socks.h>
902 $ DEFINE SYS$ERROR _NLA0:
903 $ DEFINE SYS$OUTPUT _NLA0:
904 $ on error then continue
905 $ on warning then continue
907 $ teststatus = f$extract(9,1,$status)
908 $ DEASSIGN SYS$OUTPUT
910 $ if (teststatus.nes."1")
912 $! Okay, failed. Must not have it
913 $ perl_i_socks = "undef"
915 $ perl_i_socks = "define"
918 $ WRITE_RESULT "i_socks is ''perl_i_socks'"
920 $! Check the prototype for select
922 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
926 $ WS "#include <stdlib.h>
928 $ WS "#include <stdio.h>
929 $ WS "#include <types.h>
930 $ WS "#include <unistd.h>
931 $ if ("''Has_Socketshr'".eqs."T")
933 $ WS "#include <socketshr.h>"
935 $ WS "#include <time.h>
936 $ WS "#include <socket.h>
943 $ WS "bar = select(2, foo, foo, foo, NULL);
947 $ DEFINE SYS$ERROR _NLA0:
948 $ DEFINE SYS$OUTPUT _NLA0:
949 $ on error then continue
950 $ on warning then continue
952 $ teststatus = f$extract(9,1,$status)
953 $ DEASSIGN SYS$OUTPUT
955 $ if (teststatus.nes."1")
957 $! Okay, fd_set failed. Must be an int
958 $ perl_selecttype = "int *"
960 $ perl_selecttype="fd_set *"
963 $ ! No sockets, so stick in an int *
964 $ perl_selecttype = "int *"
966 $ WRITE_RESULT "selectype is ''perl_selecttype'"
968 $! Check to see if fd_set exists
972 $ WS "#include <stdlib.h>
974 $ WS "#include <stdio.h>
975 $ WS "#include <types.h>
976 $ WS "#include <unistd.h>
977 $ if ("''Has_Socketshr'".eqs."T")
979 $ WS "#include <socketshr.h>"
981 $ IF ("''Has_Dec_C_Sockets'".eqs."T")
983 $ WS "#include <time.h>
984 $ WS "#include <socket.h>
993 $ DEFINE SYS$ERROR _NLA0:
994 $ DEFINE SYS$OUTPUT _NLA0:
995 $ on error then continue
996 $ on warning then continue
998 $ teststatus = f$extract(9,1,$status)
999 $ DEASSIGN SYS$OUTPUT
1000 $ DEASSIGN SYS$ERROR
1001 $ if (teststatus.nes."1")
1003 $! Okay, fd_set failed. Must not exist
1004 $ perl_d_fd_set = "undef"
1006 $ perl_d_fd_set="define"
1008 $ WRITE_RESULT "d_fd_set is ''perl_d_fd_set'"
1010 $! Check for inttypes.h
1014 $ WS "#include <stdlib.h>
1016 $ WS "#include <stdio.h>
1017 $ WS "#include <unistd.h>
1018 $ WS "#include <inttypes.h>
1024 $ DEFINE SYS$ERROR _NLA0:
1025 $ DEFINE SYS$OUTPUT _NLA0:
1026 $ on error then continue
1027 $ on warning then continue
1029 $ savedstatus = $status
1030 $ teststatus = f$extract(9,1,savedstatus)
1031 $ if (teststatus.nes."1")
1033 $ perl_i_inttypes="undef"
1034 $ DEASSIGN SYS$OUTPUT
1035 $ DEASSIGN SYS$ERROR
1037 $ If (Needs_Opt.eqs."Yes")
1039 $ link temp.obj,temp.opt/opt
1043 $ savedstatus = $status
1044 $ teststatus = f$extract(9,1,savedstatus)
1045 $ DEASSIGN SYS$OUTPUT
1046 $ DEASSIGN SYS$ERROR
1047 $ if (teststatus.nes."1")
1049 $ perl_i_inttypes="undef"
1051 $ perl_i_inttypes="define"
1054 $ WRITE_RESULT "i_inttypes is ''perl_i_inttypes'"
1056 $! Check to see if int64_t exists
1060 $ WS "#include <stdlib.h>
1062 $ WS "#include <stdio.h>
1063 $ WS "#include <types.h>
1064 $ WS "#''perl_i_inttypes IIH
1066 $ WS "#include <inttypes.h>
1068 $ WS "#include <unistd.h>
1075 $ DEFINE SYS$ERROR _NLA0:
1076 $ DEFINE SYS$OUTPUT _NLA0:
1077 $ on error then continue
1078 $ on warning then continue
1080 $ teststatus = f$extract(9,1,$status)
1081 $ DEASSIGN SYS$OUTPUT
1082 $ DEASSIGN SYS$ERROR
1083 $ if (teststatus.nes."1")
1085 $! Okay, int64_t failed. Must not exist
1086 $ perl_d_int64_t = "undef"
1088 $ perl_d_int64_t="define"
1090 $ WRITE_RESULT "d_int64_t is ''perl_d_int64_t'"
1092 $! Check to see if off64_t exists
1096 $ WS "#include <stdlib.h>
1098 $ WS "#include <stdio.h>
1099 $ WS "#include <types.h>
1100 $ WS "#''perl_i_inttypes IIH
1102 $ WS "#include <inttypes.h>
1104 $ WS "#include <unistd.h>
1111 $ DEFINE SYS$ERROR _NLA0:
1112 $ DEFINE SYS$OUTPUT _NLA0:
1113 $ on error then continue
1114 $ on warning then continue
1116 $ teststatus = f$extract(9,1,$status)
1117 $ DEASSIGN SYS$OUTPUT
1118 $ DEASSIGN SYS$ERROR
1119 $ if (teststatus.nes."1")
1121 $! Okay, off64_t failed. Must not exist
1122 $ perl_d_off64_t = "undef"
1124 $ perl_d_off64_t="define"
1126 $ WRITE_RESULT "d_off64_t is ''perl_d_off64_t'"
1128 $! Check to see if fpos64_t exists
1132 $ WS "#include <stdlib.h>
1134 $ WS "#include <stdio.h>
1135 $ WS "#include <types.h>
1136 $ WS "#''perl_i_inttypes IIH
1138 $ WS "#include <inttypes.h>
1140 $ WS "#include <unistd.h>
1147 $ DEFINE SYS$ERROR _NLA0:
1148 $ DEFINE SYS$OUTPUT _NLA0:
1149 $ on error then continue
1150 $ on warning then continue
1152 $ teststatus = f$extract(9,1,$status)
1153 $ DEASSIGN SYS$OUTPUT
1154 $ DEASSIGN SYS$ERROR
1155 $ if (teststatus.nes."1")
1157 $! Okay, fpos64_t failed. Must not exist
1158 $ perl_d_fpos64_t = "undef"
1160 $ perl_d_fpos64_t="define"
1162 $ WRITE_RESULT "d_fpos64_t is ''perl_d_fpos64_t'"
1164 $! Check to see if gethostname exists
1166 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1170 $ WS "#include <stdlib.h>
1172 $ WS "#include <stdio.h>
1173 $ WS "#include <types.h>
1174 $ WS "#include <unistd.h>
1175 $ if ("''Has_Socketshr'".eqs."T")
1177 $ WS "#include <socketshr.h>"
1179 $ WS "#include <time.h>
1180 $ WS "#include <socket.h>
1184 $ WS "char name[100];
1187 $ WS "baz = gethostname(name, bar);
1191 $ DEFINE SYS$ERROR _NLA0:
1192 $ DEFINE SYS$OUTPUT _NLA0:
1193 $ on error then continue
1194 $ on warning then continue
1196 $ teststatus = f$extract(9,1,$status)
1197 $ DEASSIGN SYS$OUTPUT
1198 $ DEASSIGN SYS$ERROR
1199 $ if (teststatus.nes."1")
1201 $! Okay, compile failed. Must not have it
1202 $ perl_d_gethname = "undef"
1204 $ If (Needs_Opt.eqs."Yes")
1206 $ link temp.obj,temp.opt/opt
1210 $ savedstatus = $status
1211 $ teststatus = f$extract(9,1,savedstatus)
1212 $ if (teststatus.nes."1")
1214 $ perl_d_gethname="undef"
1216 $ perl_d_gethname="define"
1220 $ ! No sockets, so no gethname
1221 $ perl_d_gethname = "undef"
1223 $ WRITE_RESULT "d_gethname is ''perl_d_gethname'"
1225 $! Check for sys/file.h
1229 $ WS "#include <stdlib.h>
1231 $ WS "#include <stdio.h>
1232 $ WS "#include <unistd.h>
1233 $ WS "#include <sys/file.h>
1239 $ DEFINE SYS$ERROR _NLA0:
1240 $ DEFINE SYS$OUTPUT _NLA0:
1241 $ on error then continue
1242 $ on warning then continue
1244 $ savedstatus = $status
1245 $ teststatus = f$extract(9,1,savedstatus)
1246 $ if (teststatus.nes."1")
1248 $ perl_i_sysfile="undef"
1249 $ DEASSIGN SYS$OUTPUT
1250 $ DEASSIGN SYS$ERROR
1252 $ If (Needs_Opt.eqs."Yes")
1254 $ link temp.obj,temp.opt/opt
1258 $ savedstatus = $status
1259 $ teststatus = f$extract(9,1,savedstatus)
1260 $ DEASSIGN SYS$OUTPUT
1261 $ DEASSIGN SYS$ERROR
1262 $ if (teststatus.nes."1")
1264 $ perl_i_sysfile="undef"
1266 $ perl_i_sysfile="define"
1269 $ WRITE_RESULT "i_sysfile is ''perl_i_sysfile'"
1271 $! Check for sys/utsname.h
1275 $ WS "#include <stdlib.h>
1277 $ WS "#include <stdio.h>
1278 $ WS "#include <unistd.h>
1279 $ WS "#include <sys/utsname.h>
1285 $ DEFINE SYS$ERROR _NLA0:
1286 $ DEFINE SYS$OUTPUT _NLA0:
1287 $ on error then continue
1288 $ on warning then continue
1290 $ savedstatus = $status
1291 $ teststatus = f$extract(9,1,savedstatus)
1292 $ if (teststatus.nes."1")
1294 $ perl_i_sysutsname="undef"
1295 $ DEASSIGN SYS$OUTPUT
1296 $ DEASSIGN SYS$ERROR
1298 $ If (Needs_Opt.eqs."Yes")
1300 $ link temp.obj,temp.opt/opt
1304 $ savedstatus = $status
1305 $ teststatus = f$extract(9,1,savedstatus)
1306 $ DEASSIGN SYS$OUTPUT
1307 $ DEASSIGN SYS$ERROR
1308 $ if (teststatus.nes."1")
1310 $ perl_i_sysutsname="undef"
1312 $ perl_i_sysutsname="define"
1315 $ WRITE_RESULT "i_sysutsname is ''perl_i_sysutsname'"
1317 $! Check for syslog.h
1321 $ WS "#include <stdlib.h>
1323 $ WS "#include <stdio.h>
1324 $ WS "#include <unistd.h>
1325 $ WS "#include <syslog.h>
1331 $ DEFINE SYS$ERROR _NLA0:
1332 $ DEFINE SYS$OUTPUT _NLA0:
1333 $ on error then continue
1334 $ on warning then continue
1336 $ savedstatus = $status
1337 $ teststatus = f$extract(9,1,savedstatus)
1338 $ if (teststatus.nes."1")
1340 $ perl_i_syslog="undef"
1341 $ DEASSIGN SYS$OUTPUT
1342 $ DEASSIGN SYS$ERROR
1344 $ If (Needs_Opt.eqs."Yes")
1346 $ link temp.obj,temp.opt/opt
1350 $ savedstatus = $status
1351 $ teststatus = f$extract(9,1,savedstatus)
1352 $ DEASSIGN SYS$OUTPUT
1353 $ DEASSIGN SYS$ERROR
1354 $ if (teststatus.nes."1")
1356 $ perl_i_syslog="undef"
1358 $ perl_i_syslog="define"
1361 $ WRITE_RESULT "i_syslog is ''perl_i_syslog'"
1367 $ WS "#include <stdlib.h>
1369 $ WS "#include <stdio.h>
1370 $ WS "#include <unistd.h>
1371 $ WS "#include <poll.h>
1377 $ DEFINE SYS$ERROR _NLA0:
1378 $ DEFINE SYS$OUTPUT _NLA0:
1379 $ on error then continue
1380 $ on warning then continue
1382 $ savedstatus = $status
1383 $ teststatus = f$extract(9,1,savedstatus)
1384 $ if (teststatus.nes."1")
1386 $ perl_i_poll="undef"
1387 $ DEASSIGN SYS$OUTPUT
1388 $ DEASSIGN SYS$ERROR
1390 $ If (Needs_Opt.eqs."Yes")
1392 $ link temp.obj,temp.opt/opt
1396 $ savedstatus = $status
1397 $ teststatus = f$extract(9,1,savedstatus)
1398 $ DEASSIGN SYS$OUTPUT
1399 $ DEASSIGN SYS$ERROR
1400 $ if (teststatus.nes."1")
1402 $ perl_i_poll="undef"
1404 $ perl_i_poll="define"
1407 $ WRITE_RESULT "i_poll is ''perl_i_poll'"
1409 $! Check for sys/uio.h
1413 $ WS "#include <stdlib.h>
1415 $ WS "#include <stdio.h>
1416 $ WS "#include <unistd.h>
1417 $ WS "#include <sys/uio.h>
1423 $ DEFINE SYS$ERROR _NLA0:
1424 $ DEFINE SYS$OUTPUT _NLA0:
1425 $ on error then continue
1426 $ on warning then continue
1428 $ savedstatus = $status
1429 $ teststatus = f$extract(9,1,savedstatus)
1430 $ if (teststatus.nes."1")
1432 $ perl_i_sysuio="undef"
1433 $ DEASSIGN SYS$OUTPUT
1434 $ DEASSIGN SYS$ERROR
1436 $ If (Needs_Opt.eqs."Yes")
1438 $ link temp.obj,temp.opt/opt
1442 $ savedstatus = $status
1443 $ teststatus = f$extract(9,1,savedstatus)
1444 $ DEASSIGN SYS$OUTPUT
1445 $ DEASSIGN SYS$ERROR
1446 $ if (teststatus.nes."1")
1448 $ perl_i_sysuio="undef"
1450 $ perl_i_sysuio="define"
1453 $ WRITE_RESULT "i_sysuio is ''perl_i_sysuio'"
1455 $! Check for sys/mode.h
1459 $ WS "#include <stdlib.h>
1461 $ WS "#include <stdio.h>
1462 $ WS "#include <unistd.h>
1463 $ WS "#include <sys/mode.h>
1469 $ DEFINE SYS$ERROR _NLA0:
1470 $ DEFINE SYS$OUTPUT _NLA0:
1471 $ on error then continue
1472 $ on warning then continue
1474 $ savedstatus = $status
1475 $ teststatus = f$extract(9,1,savedstatus)
1476 $ if (teststatus.nes."1")
1478 $ perl_i_sysmode="undef"
1479 $ DEASSIGN SYS$OUTPUT
1480 $ DEASSIGN SYS$ERROR
1482 $ If (Needs_Opt.eqs."Yes")
1484 $ link temp.obj,temp.opt/opt
1488 $ savedstatus = $status
1489 $ teststatus = f$extract(9,1,savedstatus)
1490 $ DEASSIGN SYS$OUTPUT
1491 $ DEASSIGN SYS$ERROR
1492 $ if (teststatus.nes."1")
1494 $ perl_i_sysmode="undef"
1496 $ perl_i_sysmode="define"
1499 $ WRITE_RESULT "i_sysmode is ''perl_i_sysmode'"
1501 $! Check for sys/access.h
1505 $ WS "#include <stdlib.h>
1507 $ WS "#include <stdio.h>
1508 $ WS "#include <unistd.h>
1509 $ WS "#include <sys/access.h>
1515 $ DEFINE SYS$ERROR _NLA0:
1516 $ DEFINE SYS$OUTPUT _NLA0:
1517 $ on error then continue
1518 $ on warning then continue
1520 $ savedstatus = $status
1521 $ teststatus = f$extract(9,1,savedstatus)
1522 $ if (teststatus.nes."1")
1524 $ perl_i_sysaccess="undef"
1525 $ DEASSIGN SYS$OUTPUT
1526 $ DEASSIGN SYS$ERROR
1528 $ If (Needs_Opt.eqs."Yes")
1530 $ link temp.obj,temp.opt/opt
1534 $ savedstatus = $status
1535 $ teststatus = f$extract(9,1,savedstatus)
1536 $ DEASSIGN SYS$OUTPUT
1537 $ DEASSIGN SYS$ERROR
1538 $ if (teststatus.nes."1")
1540 $ perl_i_sysaccess="undef"
1542 $ perl_i_sysaccess="define"
1545 $ WRITE_RESULT "i_sysaccess is ''perl_i_sysaccess'"
1547 $! Check for sys/security.h
1551 $ WS "#include <stdlib.h>
1553 $ WS "#include <stdio.h>
1554 $ WS "#include <unistd.h>
1555 $ WS "#include <sys/security.h>
1561 $ DEFINE SYS$ERROR _NLA0:
1562 $ DEFINE SYS$OUTPUT _NLA0:
1563 $ on error then continue
1564 $ on warning then continue
1566 $ savedstatus = $status
1567 $ teststatus = f$extract(9,1,savedstatus)
1568 $ if (teststatus.nes."1")
1570 $ perl_i_syssecrt="undef"
1571 $ DEASSIGN SYS$OUTPUT
1572 $ DEASSIGN SYS$ERROR
1574 $ If (Needs_Opt.eqs."Yes")
1576 $ link temp.obj,temp.opt/opt
1580 $ savedstatus = $status
1581 $ teststatus = f$extract(9,1,savedstatus)
1582 $ DEASSIGN SYS$OUTPUT
1583 $ DEASSIGN SYS$ERROR
1584 $ if (teststatus.nes."1")
1586 $ perl_i_syssecrt="undef"
1588 $ perl_i_syssecrt="define"
1591 $ WRITE_RESULT "i_syssecrt is ''perl_i_syssecrt'"
1593 $! Check for fcntl.h
1597 $ WS "#include <stdlib.h>
1599 $ WS "#include <stdio.h>
1600 $ WS "#include <unistd.h>
1601 $ WS "#include <fcntl.h>
1607 $ DEFINE SYS$ERROR _NLA0:
1608 $ DEFINE SYS$OUTPUT _NLA0:
1609 $ on error then continue
1610 $ on warning then continue
1612 $ savedstatus = $status
1613 $ teststatus = f$extract(9,1,savedstatus)
1614 $ if (teststatus.nes."1")
1616 $ perl_i_fcntl="undef"
1617 $ DEASSIGN SYS$OUTPUT
1618 $ DEASSIGN SYS$ERROR
1620 $ If (Needs_Opt.eqs."Yes")
1622 $ link temp.obj,temp.opt/opt
1626 $ savedstatus = $status
1627 $ teststatus = f$extract(9,1,savedstatus)
1628 $ DEASSIGN SYS$OUTPUT
1629 $ DEASSIGN SYS$ERROR
1630 $ if (teststatus.nes."1")
1632 $ perl_i_fcntl="undef"
1634 $ perl_i_fcntl="define"
1637 $ WRITE_RESULT "i_fcntl is ''perl_i_fcntl'"
1643 $ WS "#include <stdlib.h>
1645 $ WS "#include <stdio.h>
1646 $ WS "#include <unistd.h>
1647 $ WS "#include <fcntl.h>
1654 $ DEFINE SYS$ERROR _NLA0:
1655 $ DEFINE SYS$OUTPUT _NLA0:
1656 $ on error then continue
1657 $ on warning then continue
1659 $ savedstatus = $status
1660 $ teststatus = f$extract(9,1,savedstatus)
1661 $ if (teststatus.nes."1")
1663 $ perl_d_fcntl="undef"
1664 $ DEASSIGN SYS$OUTPUT
1665 $ DEASSIGN SYS$ERROR
1667 $ If (Needs_Opt.eqs."Yes")
1669 $ link temp.obj,temp.opt/opt
1673 $ savedstatus = $status
1674 $ teststatus = f$extract(9,1,savedstatus)
1675 $ DEASSIGN SYS$OUTPUT
1676 $ DEASSIGN SYS$ERROR
1677 $ if (teststatus.nes."1")
1679 $ perl_d_fcntl="undef"
1681 $ perl_d_fcntl="define"
1684 $ WRITE_RESULT "d_fcntl is ''perl_d_fcntl'"
1690 $ WS "#include <stdlib.h>
1692 $ WS "#include <string.h>
1696 $ WS "place = memchr(""foo"", 47, 3)
1700 $ DEFINE SYS$ERROR _NLA0:
1701 $ DEFINE SYS$OUTPUT _NLA0:
1702 $ on error then continue
1703 $ on warning then continue
1705 $ savedstatus = $status
1706 $ teststatus = f$extract(9,1,savedstatus)
1707 $ if (teststatus.nes."1")
1709 $ perl_d_memchr="undef"
1710 $ DEASSIGN SYS$OUTPUT
1711 $ DEASSIGN SYS$ERROR
1713 $ If (Needs_Opt.eqs."Yes")
1715 $ link temp.obj,temp.opt/opt
1719 $ savedstatus = $status
1720 $ teststatus = f$extract(9,1,savedstatus)
1721 $ DEASSIGN SYS$OUTPUT
1722 $ DEASSIGN SYS$ERROR
1723 $ if (teststatus.nes."1")
1725 $ perl_d_memchr="undef"
1727 $ perl_d_memchr="define"
1730 $ WRITE_RESULT "d_memchr is ''perl_d_memchr'"
1732 $! Check for strtoull
1736 $ WS "#include <stdlib.h>
1738 $ WS "#include <string.h>
1741 $ WS "unsigned __int64 result;
1742 $ WS "result = strtoull(""123123"", NULL, 10);
1746 $ DEFINE SYS$ERROR _NLA0:
1747 $ DEFINE SYS$OUTPUT _NLA0:
1748 $ on error then continue
1749 $ on warning then continue
1751 $ savedstatus = $status
1752 $ teststatus = f$extract(9,1,savedstatus)
1753 $ if (teststatus.nes."1")
1755 $ perl_d_strtoull="undef"
1756 $ DEASSIGN SYS$OUTPUT
1757 $ DEASSIGN SYS$ERROR
1759 $ If (Needs_Opt.eqs."Yes")
1761 $ link temp.obj,temp.opt/opt
1765 $ savedstatus = $status
1766 $ teststatus = f$extract(9,1,savedstatus)
1767 $ DEASSIGN SYS$OUTPUT
1768 $ DEASSIGN SYS$ERROR
1769 $ if (teststatus.nes."1")
1771 $ perl_d_strtoull="undef"
1773 $ perl_d_strtoull="define"
1776 $ WRITE_RESULT "d_strtoull is ''perl_d_strtoull'"
1778 $! Check for strtouq
1782 $ WS "#include <stdlib.h>
1784 $ WS "#include <string.h>
1787 $ WS "unsigned __int64 result;
1788 $ WS "result = strtouq(""123123"", NULL, 10);
1792 $ DEFINE SYS$ERROR _NLA0:
1793 $ DEFINE SYS$OUTPUT _NLA0:
1794 $ on error then continue
1795 $ on warning then continue
1797 $ savedstatus = $status
1798 $ teststatus = f$extract(9,1,savedstatus)
1799 $ if (teststatus.nes."1")
1801 $ perl_d_strtouq="undef"
1802 $ DEASSIGN SYS$OUTPUT
1803 $ DEASSIGN SYS$ERROR
1805 $ If (Needs_Opt.eqs."Yes")
1807 $ link temp.obj,temp.opt/opt
1811 $ savedstatus = $status
1812 $ teststatus = f$extract(9,1,savedstatus)
1813 $ DEASSIGN SYS$OUTPUT
1814 $ DEASSIGN SYS$ERROR
1815 $ if (teststatus.nes."1")
1817 $ perl_d_strtouq="undef"
1819 $ perl_d_strtouq="define"
1822 $ WRITE_RESULT "d_strtouq is ''perl_d_strtouq'"
1824 $! Check for strtoll
1828 $ WS "#include <stdlib.h>
1830 $ WS "#include <string.h>
1833 $ WS "__int64 result;
1834 $ WS "result = strtoll(""123123"", NULL, 10);
1838 $ DEFINE SYS$ERROR _NLA0:
1839 $ DEFINE SYS$OUTPUT _NLA0:
1840 $ on error then continue
1841 $ on warning then continue
1843 $ savedstatus = $status
1844 $ teststatus = f$extract(9,1,savedstatus)
1845 $ if (teststatus.nes."1")
1847 $ perl_d_strtoll="undef"
1848 $ DEASSIGN SYS$OUTPUT
1849 $ DEASSIGN SYS$ERROR
1851 $ If (Needs_Opt.eqs."Yes")
1853 $ link temp.obj,temp.opt/opt
1857 $ savedstatus = $status
1858 $ teststatus = f$extract(9,1,savedstatus)
1859 $ DEASSIGN SYS$OUTPUT
1860 $ DEASSIGN SYS$ERROR
1861 $ if (teststatus.nes."1")
1863 $ perl_d_strtoll="undef"
1865 $ perl_d_strtoll="define"
1868 $ WRITE_RESULT "d_strtoll is ''perl_d_strtoll'"
1870 $! Check for strtold
1874 $ WS "#include <stdlib.h>
1876 $ WS "#include <string.h>
1879 $ WS "long double result;
1880 $ WS "result = strtold(""123123"", NULL, 10);
1884 $ DEFINE SYS$ERROR _NLA0:
1885 $ DEFINE SYS$OUTPUT _NLA0:
1886 $ on error then continue
1887 $ on warning then continue
1889 $ savedstatus = $status
1890 $ teststatus = f$extract(9,1,savedstatus)
1891 $ if (teststatus.nes."1")
1893 $ perl_d_strtold="undef"
1894 $ DEASSIGN SYS$OUTPUT
1895 $ DEASSIGN SYS$ERROR
1897 $ If (Needs_Opt.eqs."Yes")
1899 $ link temp.obj,temp.opt/opt
1903 $ savedstatus = $status
1904 $ teststatus = f$extract(9,1,savedstatus)
1905 $ DEASSIGN SYS$OUTPUT
1906 $ DEASSIGN SYS$ERROR
1907 $ if (teststatus.nes."1")
1909 $ perl_d_strtold="undef"
1911 $ perl_d_strtold="define"
1914 $ WRITE_RESULT "d_strtold is ''perl_d_strtold'"
1920 $ WS "#include <stdlib.h>
1922 $ WS "#include <string.h>
1925 $ WS " __int64 result;
1926 $ WS "result = atoll(""123123"");
1930 $ DEFINE SYS$ERROR _NLA0:
1931 $ DEFINE SYS$OUTPUT _NLA0:
1932 $ on error then continue
1933 $ on warning then continue
1935 $ savedstatus = $status
1936 $ teststatus = f$extract(9,1,savedstatus)
1937 $ if (teststatus.nes."1")
1939 $ perl_d_atoll="undef"
1940 $ DEASSIGN SYS$OUTPUT
1941 $ DEASSIGN SYS$ERROR
1943 $ If (Needs_Opt.eqs."Yes")
1945 $ link temp.obj,temp.opt/opt
1949 $ savedstatus = $status
1950 $ teststatus = f$extract(9,1,savedstatus)
1951 $ DEASSIGN SYS$OUTPUT
1952 $ DEASSIGN SYS$ERROR
1953 $ if (teststatus.nes."1")
1955 $ perl_d_atoll="undef"
1957 $ perl_d_atoll="define"
1960 $ WRITE_RESULT "d_atoll is ''perl_d_atoll'"
1966 $ WS "#include <stdlib.h>
1968 $ WS "#include <string.h>
1972 $ WS "result = atolf(""123123"");
1976 $ DEFINE SYS$ERROR _NLA0:
1977 $ DEFINE SYS$OUTPUT _NLA0:
1978 $ on error then continue
1979 $ on warning then continue
1981 $ savedstatus = $status
1982 $ teststatus = f$extract(9,1,savedstatus)
1983 $ if (teststatus.nes."1")
1985 $ perl_d_atolf="undef"
1986 $ DEASSIGN SYS$OUTPUT
1987 $ DEASSIGN SYS$ERROR
1989 $ If (Needs_Opt.eqs."Yes")
1991 $ link temp.obj,temp.opt/opt
1995 $ savedstatus = $status
1996 $ teststatus = f$extract(9,1,savedstatus)
1997 $ DEASSIGN SYS$OUTPUT
1998 $ DEASSIGN SYS$ERROR
1999 $ if (teststatus.nes."1")
2001 $ perl_d_atolf="undef"
2003 $ perl_d_atolf="define"
2006 $ WRITE_RESULT "d_atolf is ''perl_d_atolf'"
2012 $ WS "#include <stdlib.h>
2014 $ WS "#include <stdio.h>
2015 $ WS "#include <unistd.h>
2018 $ WS "access("foo", F_OK);
2022 $ DEFINE SYS$ERROR _NLA0:
2023 $ DEFINE SYS$OUTPUT _NLA0:
2024 $ on error then continue
2025 $ on warning then continue
2027 $ savedstatus = $status
2028 $ teststatus = f$extract(9,1,savedstatus)
2029 $ if (teststatus.nes."1")
2031 $ perl_d_access="undef"
2032 $ DEASSIGN SYS$OUTPUT
2033 $ DEASSIGN SYS$ERROR
2035 $ If (Needs_Opt.eqs."Yes")
2037 $ link temp.obj,temp.opt/opt
2041 $ savedstatus = $status
2042 $ teststatus = f$extract(9,1,savedstatus)
2043 $ DEASSIGN SYS$OUTPUT
2044 $ DEASSIGN SYS$ERROR
2045 $ if (teststatus.nes."1")
2047 $ perl_d_access="undef"
2049 $ perl_d_access="define"
2052 $ WRITE_RESULT "d_access is ''perl_d_access'"
2058 $ WS "#include <stdlib.h>
2060 $ WS "#include <stdio.h>
2061 $ WS "#include <strings.h>
2065 $ WS "bzero(foo, 10);
2069 $ DEFINE SYS$ERROR _NLA0:
2070 $ DEFINE SYS$OUTPUT _NLA0:
2071 $ on error then continue
2072 $ on warning then continue
2074 $ savedstatus = $status
2075 $ teststatus = f$extract(9,1,savedstatus)
2076 $ if (teststatus.nes."1")
2078 $ perl_d_bzero="undef"
2079 $ DEASSIGN SYS$OUTPUT
2080 $ DEASSIGN SYS$ERROR
2082 $ If (Needs_Opt.eqs."Yes")
2084 $ link temp.obj,temp.opt/opt
2088 $ savedstatus = $status
2089 $ teststatus = f$extract(9,1,savedstatus)
2090 $ DEASSIGN SYS$OUTPUT
2091 $ DEASSIGN SYS$ERROR
2092 $ if (teststatus.nes."1")
2094 $ perl_d_bzero="undef"
2096 $ perl_d_bzero="define"
2099 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
2105 $ WS "#include <stdlib.h>
2107 $ WS "#include <stdio.h>
2108 $ WS "#include <strings.h>
2111 $ WS "char foo[10], bar[10];
2112 $ WS "bcopy(""foo"", bar, 3);
2116 $ DEFINE SYS$ERROR _NLA0:
2117 $ DEFINE SYS$OUTPUT _NLA0:
2118 $ on error then continue
2119 $ on warning then continue
2121 $ savedstatus = $status
2122 $ teststatus = f$extract(9,1,savedstatus)
2123 $ if (teststatus.nes."1")
2125 $ perl_d_bcopy="undef"
2126 $ DEASSIGN SYS$OUTPUT
2127 $ DEASSIGN SYS$ERROR
2129 $ If (Needs_Opt.eqs."Yes")
2131 $ link temp.obj,temp.opt/opt
2135 $ savedstatus = $status
2136 $ teststatus = f$extract(9,1,savedstatus)
2137 $ DEASSIGN SYS$OUTPUT
2138 $ DEASSIGN SYS$ERROR
2139 $ if (teststatus.nes."1")
2141 $ perl_d_bcopy="undef"
2143 $ perl_d_bcopy="define"
2146 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
2148 $! Check for mkstemp
2152 $ WS "#include <stdlib.h>
2154 $ WS "#include <stdio.h>
2157 $ WS "mkstemp(""foo"");
2161 $ DEFINE SYS$ERROR _NLA0:
2162 $ DEFINE SYS$OUTPUT _NLA0:
2163 $ on error then continue
2164 $ on warning then continue
2166 $ If (Needs_Opt.eqs."Yes")
2168 $ link temp.obj,temp.opt/opt
2172 $ savedstatus = $status
2173 $ teststatus = f$extract(9,1,savedstatus)
2174 $ DEASSIGN SYS$OUTPUT
2175 $ DEASSIGN SYS$ERROR
2176 $ if (teststatus.nes."1")
2178 $ perl_d_mkstemp="undef"
2180 $ perl_d_mkstemp="define"
2182 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
2184 $! Check for mkstemps
2188 $ WS "#include <stdlib.h>
2190 $ WS "#include <stdio.h>
2193 $ WS "mkstemps(""foo"", 1);
2197 $ DEFINE SYS$ERROR _NLA0:
2198 $ DEFINE SYS$OUTPUT _NLA0:
2199 $ on error then continue
2200 $ on warning then continue
2202 $ If (Needs_Opt.eqs."Yes")
2204 $ link temp.obj,temp.opt/opt
2208 $ savedstatus = $status
2209 $ teststatus = f$extract(9,1,savedstatus)
2210 $ DEASSIGN SYS$OUTPUT
2211 $ DEASSIGN SYS$ERROR
2212 $ if (teststatus.nes."1")
2214 $ perl_d_mkstemps="undef"
2216 $ perl_d_mkstemps="define"
2218 $ WRITE_RESULT "d_mkstemps is ''perl_d_mkstemps'"
2224 $ WS "#include <stdlib.h>
2226 $ WS "#include <stdio.h>
2227 $ WS "#include <iconv.h>
2230 $ WS " iconv_t cd = (iconv_t)0;"
2231 $ WS " char *inbuf, *outbuf;"
2232 $ WS " size_t inleft, outleft;"
2233 $ WS " iconv(cd, &inbuf, &inleft, &outbuf, &outleft);"
2237 $ DEFINE SYS$ERROR _NLA0:
2238 $ DEFINE SYS$OUTPUT _NLA0:
2239 $ on error then continue
2240 $ on warning then continue
2242 $ savedstatus = $status
2243 $ teststatus = f$extract(9,1,savedstatus)
2244 $ if (teststatus.nes."1")
2246 $ perl_d_iconv="undef"
2247 $ perl_i_iconv="undef"
2248 $ DEASSIGN SYS$OUTPUT
2249 $ DEASSIGN SYS$ERROR
2251 $ If (Needs_Opt.eqs."Yes")
2253 $ link temp.obj,temp.opt/opt
2257 $ savedstatus = $status
2258 $ teststatus = f$extract(9,1,savedstatus)
2259 $ DEASSIGN SYS$OUTPUT
2260 $ DEASSIGN SYS$ERROR
2261 $ if (teststatus.nes."1")
2263 $ perl_d_iconv="undef"
2264 $ perl_i_iconv="undef"
2266 $ perl_d_iconv="define"
2267 $ perl_i_iconv="define"
2270 $ WRITE_RESULT "d_iconv is ''perl_d_iconv'"
2271 $ WRITE_RESULT "i_iconv is ''perl_i_iconv'"
2273 $! Check for mkdtemp
2277 $ WS "#include <stdlib.h>
2279 $ WS "#include <stdio.h>
2282 $ WS "mkdtemp(""foo"");
2286 $ DEFINE SYS$ERROR _NLA0:
2287 $ DEFINE SYS$OUTPUT _NLA0:
2288 $ on error then continue
2289 $ on warning then continue
2291 $ If (Needs_Opt.eqs."Yes")
2293 $ link temp.obj,temp.opt/opt
2297 $ savedstatus = $status
2298 $ teststatus = f$extract(9,1,savedstatus)
2299 $ DEASSIGN SYS$OUTPUT
2300 $ DEASSIGN SYS$ERROR
2301 $ if (teststatus.nes."1")
2303 $ perl_d_mkdtemp="undef"
2305 $ perl_d_mkdtemp="define"
2307 $ WRITE_RESULT "d_mkdtemp is ''perl_d_mkdtemp'"
2309 $! Check for setvbuf
2313 $ WS "#include <stdlib.h>
2315 $ WS "#include <stdio.h>
2319 $ WS "char Buffer[99];
2320 $ WS "foo = fopen(""foo"", ""r"");
2321 $ WS "setvbuf(foo, Buffer, 0, 0);
2325 $ DEFINE SYS$ERROR _NLA0:
2326 $ DEFINE SYS$OUTPUT _NLA0:
2327 $ on error then continue
2328 $ on warning then continue
2330 $ If (Needs_Opt.eqs."Yes")
2332 $ link temp.obj,temp.opt/opt
2336 $ teststatus = f$extract(9,1,$status)
2337 $ DEASSIGN SYS$OUTPUT
2338 $ DEASSIGN SYS$ERROR
2339 $ if (teststatus.nes."1")
2341 $ perl_d_setvbuf="undef"
2343 $ perl_d_setvbuf="define"
2345 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
2351 $ WS "#include <stdlib.h>
2353 $ WS "#include <stdio.h>
2356 $ WS "setenv(""FOO"", ""BAR"", 0);
2360 $ DEFINE SYS$ERROR _NLA0:
2361 $ DEFINE SYS$OUTPUT _NLA0:
2362 $ on error then continue
2363 $ on warning then continue
2365 $ If (Needs_Opt.eqs."Yes")
2367 $ link temp,temp/opt
2371 $ teststatus = f$extract(9,1,$status)
2372 $ DEASSIGN SYS$OUTPUT
2373 $ DEASSIGN SYS$ERROR
2374 $ if (teststatus.nes."1")
2376 $ perl_d_setenv="undef"
2378 $ perl_d_setenv="define"
2380 $ WRITE_RESULT "d_setenv is ''perl_d_setenv'"
2382 $! Check for <netinet/in.h>
2384 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2388 $ WS "#include <stdlib.h>
2390 $ WS "#include <stdio.h>
2391 $ if ("''Has_Socketshr'".eqs."T")
2393 $ WS "#include <socketshr.h>"
2395 $ WS "#include <netdb.h>
2397 $ WS "#include <netinet/in.h>"
2403 $ DEFINE SYS$ERROR _NLA0:
2404 $ DEFINE SYS$OUTPUT _NLA0:
2405 $ on error then continue
2406 $ on warning then continue
2408 $ If (Needs_Opt.eqs."Yes")
2410 $ link temp.obj,temp.opt/opt
2414 $ teststatus = f$extract(9,1,$status)
2415 $ DEASSIGN SYS$OUTPUT
2416 $ DEASSIGN SYS$ERROR
2417 $ if (teststatus.nes."1")
2419 $ perl_i_niin="undef"
2421 $ perl_i_niin="define"
2424 $ perl_i_niin="undef"
2426 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
2428 $! Check for <netinet/tcp.h>
2430 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2434 $ WS "#include <stdlib.h>
2436 $ WS "#include <stdio.h>
2437 $ if ("''Has_Socketshr'".eqs."T")
2439 $ WS "#include <socketshr.h>"
2441 $ WS "#include <netdb.h>
2443 $ WS "#include <netinet/tcp.h>"
2449 $ DEFINE SYS$ERROR _NLA0:
2450 $ DEFINE SYS$OUTPUT _NLA0:
2451 $ on error then continue
2452 $ on warning then continue
2454 $ If (Needs_Opt.eqs."Yes")
2456 $ link temp.obj,temp.opt/opt
2460 $ teststatus = f$extract(9,1,$status)
2461 $ DEASSIGN SYS$OUTPUT
2462 $ DEASSIGN SYS$ERROR
2463 $ if (teststatus.nes."1")
2465 $ perl_i_netinettcp="undef"
2467 $ perl_i_netinettcp="define"
2470 $ perl_i_netinettcp="undef"
2472 $ WRITE_RESULT "i_netinettcp is ''perl_i_netinettcp'"
2474 $! Check for endhostent
2476 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2480 $ WS "#include <stdlib.h>
2482 $ WS "#include <stdio.h>
2483 $ if ("''Has_Socketshr'".eqs."T")
2485 $ WS "#include <socketshr.h>"
2487 $ WS "#include <netdb.h>
2495 $ DEFINE SYS$ERROR _NLA0:
2496 $ DEFINE SYS$OUTPUT _NLA0:
2497 $ on error then continue
2498 $ on warning then continue
2500 $ If (Needs_Opt.eqs."Yes")
2502 $ link temp.obj,temp.opt/opt
2506 $ teststatus = f$extract(9,1,$status)
2507 $ DEASSIGN SYS$OUTPUT
2508 $ DEASSIGN SYS$ERROR
2509 $ if (teststatus.nes."1")
2511 $ perl_d_endhent="undef"
2513 $ perl_d_endhent="define"
2516 $ perl_d_endhent="undef"
2518 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
2520 $! Check for endnetent
2522 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2526 $ WS "#include <stdlib.h>
2528 $ WS "#include <stdio.h>
2529 $ if ("''Has_Socketshr'".eqs."T")
2531 $ WS "#include <socketshr.h>"
2533 $ WS "#include <netdb.h>
2541 $ DEFINE SYS$ERROR _NLA0:
2542 $ DEFINE SYS$OUTPUT _NLA0:
2543 $ on error then continue
2544 $ on warning then continue
2546 $ If (Needs_Opt.eqs."Yes")
2548 $ link temp.obj,temp.opt/opt
2552 $ teststatus = f$extract(9,1,$status)
2553 $ DEASSIGN SYS$OUTPUT
2554 $ DEASSIGN SYS$ERROR
2555 $ if (teststatus.nes."1")
2557 $ perl_d_endnent="undef"
2559 $ perl_d_endnent="define"
2562 $ perl_d_endnent="undef"
2564 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
2566 $! Check for endprotoent
2568 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2572 $ WS "#include <stdlib.h>
2574 $ WS "#include <stdio.h>
2575 $ if ("''Has_Socketshr'".eqs."T")
2577 $ WS "#include <socketshr.h>"
2579 $ WS "#include <netdb.h>
2583 $ WS "endprotoent();
2587 $ DEFINE SYS$ERROR _NLA0:
2588 $ DEFINE SYS$OUTPUT _NLA0:
2589 $ on error then continue
2590 $ on warning then continue
2592 $ If (Needs_Opt.eqs."Yes")
2594 $ link temp.obj,temp.opt/opt
2598 $ teststatus = f$extract(9,1,$status)
2599 $ DEASSIGN SYS$OUTPUT
2600 $ DEASSIGN SYS$ERROR
2601 $ if (teststatus.nes."1")
2603 $ perl_d_endpent="undef"
2605 $ perl_d_endpent="define"
2608 $ perl_d_endpent="undef"
2610 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
2612 $! Check for endservent
2614 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2618 $ WS "#include <stdlib.h>
2620 $ WS "#include <stdio.h>
2621 $ if ("''Has_Socketshr'".eqs."T")
2623 $ WS "#include <socketshr.h>"
2625 $ WS "#include <netdb.h>
2633 $ DEFINE SYS$ERROR _NLA0:
2634 $ DEFINE SYS$OUTPUT _NLA0:
2635 $ on error then continue
2636 $ on warning then continue
2638 $ If (Needs_Opt.eqs."Yes")
2640 $ link temp.obj,temp.opt/opt
2644 $ teststatus = f$extract(9,1,$status)
2645 $ DEASSIGN SYS$OUTPUT
2646 $ DEASSIGN SYS$ERROR
2647 $ if (teststatus.nes."1")
2649 $ perl_d_endsent="undef"
2651 $ perl_d_endsent="define"
2654 $ perl_d_endsent="undef"
2656 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
2658 $! Check for sethostent
2660 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2664 $ WS "#include <stdlib.h>
2666 $ WS "#include <stdio.h>
2667 $ if ("''Has_Socketshr'".eqs."T")
2669 $ WS "#include <socketshr.h>"
2671 $ WS "#include <netdb.h>
2675 $ WS "sethostent(1);
2679 $ DEFINE SYS$ERROR _NLA0:
2680 $ DEFINE SYS$OUTPUT _NLA0:
2681 $ on error then continue
2682 $ on warning then continue
2684 $ If (Needs_Opt.eqs."Yes")
2686 $ link temp.obj,temp.opt/opt
2690 $ teststatus = f$extract(9,1,$status)
2691 $ DEASSIGN SYS$OUTPUT
2692 $ DEASSIGN SYS$ERROR
2693 $ if (teststatus.nes."1")
2695 $ perl_d_sethent="undef"
2697 $ perl_d_sethent="define"
2700 $ perl_d_sethent="undef"
2702 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
2704 $! Check for setnetent
2706 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2710 $ WS "#include <stdlib.h>
2712 $ WS "#include <stdio.h>
2713 $ if ("''Has_Socketshr'".eqs."T")
2715 $ WS "#include <socketshr.h>"
2717 $ WS "#include <netdb.h>
2725 $ DEFINE SYS$ERROR _NLA0:
2726 $ DEFINE SYS$OUTPUT _NLA0:
2727 $ on error then continue
2728 $ on warning then continue
2730 $ If (Needs_Opt.eqs."Yes")
2732 $ link temp.obj,temp.opt/opt
2736 $ teststatus = f$extract(9,1,$status)
2737 $ DEASSIGN SYS$OUTPUT
2738 $ DEASSIGN SYS$ERROR
2739 $ if (teststatus.nes."1")
2741 $ perl_d_setnent="undef"
2743 $ perl_d_setnent="define"
2746 $ perl_d_setnent="undef"
2748 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
2750 $! Check for setprotoent
2752 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2756 $ WS "#include <stdlib.h>
2758 $ WS "#include <stdio.h>
2759 $ if ("''Has_Socketshr'".eqs."T")
2761 $ WS "#include <socketshr.h>"
2763 $ WS "#include <netdb.h>
2767 $ WS "setprotoent(1);
2771 $ DEFINE SYS$ERROR _NLA0:
2772 $ DEFINE SYS$OUTPUT _NLA0:
2773 $ on error then continue
2774 $ on warning then continue
2776 $ If (Needs_Opt.eqs."Yes")
2778 $ link temp.obj,temp.opt/opt
2782 $ teststatus = f$extract(9,1,$status)
2783 $ DEASSIGN SYS$OUTPUT
2784 $ DEASSIGN SYS$ERROR
2785 $ if (teststatus.nes."1")
2787 $ perl_d_setpent="undef"
2789 $ perl_d_setpent="define"
2792 $ perl_d_setpent="undef"
2794 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
2796 $! Check for setservent
2798 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2802 $ WS "#include <stdlib.h>
2804 $ WS "#include <stdio.h>
2805 $ if ("''Has_Socketshr'".eqs."T")
2807 $ WS "#include <socketshr.h>"
2809 $ WS "#include <netdb.h>
2813 $ WS "setservent(1);
2817 $ DEFINE SYS$ERROR _NLA0:
2818 $ DEFINE SYS$OUTPUT _NLA0:
2819 $ on error then continue
2820 $ on warning then continue
2822 $ If (Needs_Opt.eqs."Yes")
2824 $ link temp.obj,temp.opt/opt
2828 $ teststatus = f$extract(9,1,$status)
2829 $ DEASSIGN SYS$OUTPUT
2830 $ DEASSIGN SYS$ERROR
2831 $ if (teststatus.nes."1")
2833 $ perl_d_setsent="undef"
2835 $ perl_d_setsent="define"
2838 $ perl_d_setsent="undef"
2840 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
2842 $! Check for gethostent
2844 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2848 $ WS "#include <stdlib.h>
2850 $ WS "#include <stdio.h>
2851 $ if ("''Has_Socketshr'".eqs."T")
2853 $ WS "#include <socketshr.h>"
2855 $ WS "#include <netdb.h>
2863 $ DEFINE SYS$ERROR _NLA0:
2864 $ DEFINE SYS$OUTPUT _NLA0:
2865 $ on error then continue
2866 $ on warning then continue
2868 $ If (Needs_Opt.eqs."Yes")
2870 $ link temp.obj,temp.opt/opt
2874 $ teststatus = f$extract(9,1,$status)
2875 $ DEASSIGN SYS$OUTPUT
2876 $ DEASSIGN SYS$ERROR
2877 $ if (teststatus.nes."1")
2879 $ perl_d_gethent="undef"
2881 $ perl_d_gethent="define"
2884 $ perl_d_gethent="undef"
2886 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
2888 $! Check for getnetent
2890 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2894 $ WS "#include <stdlib.h>
2896 $ WS "#include <stdio.h>
2897 $ if ("''Has_Socketshr'".eqs."T")
2899 $ WS "#include <socketshr.h>"
2901 $ WS "#include <netdb.h>
2909 $ DEFINE SYS$ERROR _NLA0:
2910 $ DEFINE SYS$OUTPUT _NLA0:
2911 $ on error then continue
2912 $ on warning then continue
2914 $ If (Needs_Opt.eqs."Yes")
2916 $ link temp.obj,temp.opt/opt
2920 $ teststatus = f$extract(9,1,$status)
2921 $ DEASSIGN SYS$OUTPUT
2922 $ DEASSIGN SYS$ERROR
2923 $ if (teststatus.nes."1")
2925 $ perl_d_getnent="undef"
2927 $ perl_d_getnent="define"
2930 $ perl_d_getnent="undef"
2932 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
2934 $! Check for getprotoent
2936 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2940 $ WS "#include <stdlib.h>
2942 $ WS "#include <stdio.h>
2943 $ if ("''Has_Socketshr'".eqs."T")
2945 $ WS "#include <socketshr.h>"
2947 $ WS "#include <netdb.h>
2951 $ WS "getprotoent();
2955 $ DEFINE SYS$ERROR _NLA0:
2956 $ DEFINE SYS$OUTPUT _NLA0:
2957 $ on error then continue
2958 $ on warning then continue
2960 $ If (Needs_Opt.eqs."Yes")
2962 $ link temp.obj,temp.opt/opt
2966 $ teststatus = f$extract(9,1,$status)
2967 $ DEASSIGN SYS$OUTPUT
2968 $ DEASSIGN SYS$ERROR
2969 $ if (teststatus.nes."1")
2971 $ perl_d_getpent="undef"
2973 $ perl_d_getpent="define"
2976 $ perl_d_getpent="undef"
2978 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
2980 $! Check for getservent
2982 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2986 $ WS "#include <stdlib.h>
2988 $ WS "#include <stdio.h>
2989 $ if ("''Has_Socketshr'".eqs."T")
2991 $ WS "#include <socketshr.h>"
2993 $ WS "#include <netdb.h>
3001 $ DEFINE SYS$ERROR _NLA0:
3002 $ DEFINE SYS$OUTPUT _NLA0:
3003 $ on error then continue
3004 $ on warning then continue
3006 $ If (Needs_Opt.eqs."Yes")
3008 $ link temp.obj,temp.opt/opt
3012 $ teststatus = f$extract(9,1,$status)
3013 $ DEASSIGN SYS$OUTPUT
3014 $ DEASSIGN SYS$ERROR
3015 $ if (teststatus.nes."1")
3017 $ perl_d_getsent="undef"
3019 $ perl_d_getsent="define"
3022 $ perl_d_getsent="undef"
3024 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
3026 $! Check for socklen_t
3028 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
3032 $ WS "#include <stdlib.h>
3034 $ WS "#include <stdio.h>
3035 $ IF ("''Has_Socketshr'".eqs."T")
3037 $ WS "#include <socketshr.h>"
3039 $ WS "#include <netdb.h>
3043 $ WS "socklen_t x = 16;
3047 $ DEFINE SYS$ERROR _NLA0:
3048 $ DEFINE SYS$OUTPUT _NLA0:
3049 $ on error then continue
3050 $ on warning then continue
3052 $ If (Needs_Opt.eqs."Yes")
3054 $ link temp.obj,temp.opt/opt
3058 $ teststatus = f$extract(9,1,$status)
3059 $ DEASSIGN SYS$OUTPUT
3060 $ DEASSIGN SYS$ERROR
3061 $ if (teststatus.nes."1")
3063 $ perl_d_socklen_t="undef"
3065 $ perl_d_socklen_t="define"
3068 $ perl_d_socklen_t="undef"
3070 $ WRITE_RESULT "d_socklen_t is ''perl_d_socklen_t'"
3072 $! Check for pthread_yield
3074 $ if ("''use_threads'".eqs."T")
3078 $ WS "#include <stdlib.h>
3080 $ WS "#include <pthread.h>
3081 $ WS "#include <stdio.h>
3084 $ WS "pthread_yield();
3088 $ DEFINE SYS$ERROR _NLA0:
3089 $ DEFINE SYS$OUTPUT _NLA0:
3090 $ on error then continue
3091 $ on warning then continue
3093 $ teststatus = f$extract(9,1,$status)
3094 $ DEASSIGN SYS$OUTPUT
3095 $ DEASSIGN SYS$ERROR
3096 $ if (teststatus.nes."1")
3098 $ perl_d_pthread_yield="undef"
3100 $ perl_d_pthread_yield="define"
3103 $ perl_d_pthread_yield="undef"
3105 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
3107 $! Check for sched_yield
3109 $ if ("''use_threads'".eqs."T")
3113 $ WS "#include <stdlib.h>
3115 $ WS "#include <pthread.h>
3116 $ WS "#include <stdio.h>
3119 $ WS "sched_yield();
3123 $ DEFINE SYS$ERROR _NLA0:
3124 $ DEFINE SYS$OUTPUT _NLA0:
3125 $ on error then continue
3126 $ on warning then continue
3128 $ teststatus = f$extract(9,1,$status)
3129 $ DEASSIGN SYS$OUTPUT
3130 $ DEASSIGN SYS$ERROR
3131 $ if (teststatus.nes."1")
3133 $ perl_d_sched_yield="undef"
3134 $ perl_sched_yield = " "
3136 $ perl_d_sched_yield="define"
3137 $ perl_sched_yield = "sched_yield"
3140 $ perl_d_sched_yield="undef"
3141 $ perl_sched_yield = " "
3143 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
3144 $ WRITE_RESULT "sched_yield is ''perl_sched_yield'"
3146 $! Check for generic pointer size
3150 $ WS "#include <stdlib.h>
3152 $ WS "#include <stdio.h>
3156 $ WS "foo = sizeof(char *);
3157 $ WS "printf(""%d\n"", foo);
3161 $ DEFINE SYS$ERROR _NLA0:
3162 $ DEFINE SYS$OUTPUT _NLA0:
3163 $ ON ERROR THEN CONTINUE
3164 $ ON WARNING THEN CONTINUE
3166 $ If (Needs_Opt.eqs."Yes")
3168 $ link temp.obj,temp.opt/opt
3172 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3173 $ DEASSIGN SYS$OUTPUT
3174 $ DEASSIGN SYS$ERROR
3175 $ DEFINE SYS$ERROR TEMPOUT
3176 $ DEFINE SYS$OUTPUT TEMPOUT
3179 $ DEASSIGN SYS$OUTPUT
3180 $ DEASSIGN SYS$ERROR
3181 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3184 $ DELETE/NOLOG [-.uu]tempout.lis;
3187 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
3189 $! Check rand48 and its ilk
3193 $ WS "#include <stdlib.h>
3195 $ WS "#include <stdio.h>
3198 $ WS "srand48(12L);"
3203 $ DEFINE SYS$ERROR _NLA0:
3204 $ DEFINE SYS$OUTPUT _NLA0:
3205 $ ON ERROR THEN CONTINUE
3206 $ ON WARNING THEN CONTINUE
3208 $ If (Needs_Opt.eqs."Yes")
3210 $ link temp,temp.opt/opt
3214 $ teststatus = f$extract(9,1,$status)
3215 $ DEASSIGN SYS$OUTPUT
3216 $ DEASSIGN SYS$ERROR
3217 $ if (teststatus.nes."1")
3219 $ perl_drand01="random()"
3220 $ perl_randseedtype = "unsigned"
3221 $ perl_seedfunc = "srandom"
3225 $ WS "#include <stdlib.h>
3227 $ WS "#include <stdio.h>
3234 $! copy temp.c sys$output
3236 $ DEFINE SYS$ERROR _NLA0:
3237 $ DEFINE SYS$OUTPUT _NLA0:
3238 $ ON ERROR THEN CONTINUE
3239 $ ON WARNING THEN CONTINUE
3241 $ If (Needs_Opt.eqs."Yes")
3243 $ link temp,temp.opt/opt
3247 $ teststatus = f$extract(9,1,$status)
3248 $ DEASSIGN SYS$OUTPUT
3249 $ DEASSIGN SYS$ERROR
3250 $ if (teststatus.nes."1")
3252 $ perl_drand01="(((float)rand())/((float)RAND_MAX))"
3253 $ perl_randseedtype = "unsigned"
3254 $ perl_seedfunc = "srand"
3256 $ WRITE_RESULT "drand01 is ''perl_drand01'"
3259 $! Done with compiler checks. Clean up.
3260 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
3261 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
3262 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
3263 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
3266 $! Some that are compiler or VMS version sensitive
3269 $ IF "''Using_Gnu_C'".EQS."Yes"
3271 $ perl_d_attribut="define"
3272 $ perl_vms_cc_type="gcc"
3274 $ perl_vms_cc_type="cc"
3275 $ perl_d_attribut="undef"
3278 $! Dec C >= 5.2 and VMS ver >= 7.0
3279 $ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
3281 $ perl_d_bcmp="define"
3282 $ perl_d_gettimeod="define"
3283 $ perl_d_uname="define"
3284 $ perl_d_sigaction="define"
3285 $ perl_d_truncate="define"
3286 $ perl_d_wait4="define"
3287 $ perl_d_index="define"
3288 $ perl_pidtype="pid_t"
3289 $ 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"
3290 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3291 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
3292 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
3293 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
3294 $ 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"
3295 $ 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"
3296 $ perl_sig_num_with_commas=perl_sig_num_init
3297 $ perl_uidtype="uid_t"
3298 $ perl_d_pathconf="define"
3299 $ perl_d_fpathconf="define"
3300 $ perl_d_sysconf="define"
3301 $ perl_d_sigsetjmp="define"
3303 $ perl_pidtype="unsigned int"
3304 $ perl_d_gettimeod="undef"
3305 $ perl_d_bcmp="undef"
3306 $ perl_d_uname="undef"
3307 $ perl_d_sigaction="undef"
3308 $ perl_d_truncate="undef"
3309 $ perl_d_wait4="undef"
3310 $ perl_d_index="undef"
3311 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
3312 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3313 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
3314 $ perl_sig_name_with_commas = psnwc1 + psnwc2
3315 $ perl_sig_num="0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 6 16 17"",0"
3316 $ perl_sig_num_init="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
3317 $ perl_sig_num_with_commas=perl_sig_num_init
3318 $ perl_uidtype="unsigned int"
3319 $ perl_d_pathconf="undef"
3320 $ perl_d_fpathconf="undef"
3321 $ perl_d_sysconf="undef"
3322 $ perl_d_sigsetjmp="undef"
3326 $ IF ("''Using_Dec_C'".EQS."Yes")
3328 $ perl_d_mbstowcs="define"
3329 $ perl_d_mbtowc="define"
3330 $ perl_d_stdiobase="define"
3331 $ perl_d_stdio_ptr_lval="define"
3332 $ perl_d_stdio_cnt_lval="define"
3333 $ perl_d_stdstdio="define"
3334 $ perl_d_wcstombs="define"
3335 $ perl_d_mblen="define"
3336 $ perl_d_mktime="define"
3337 $ perl_d_strcoll="define"
3338 $ perl_d_strxfrm="define"
3339 $ perl_d_wctomb="define"
3340 $ perl_i_locale="define"
3341 $ perl_d_locconv="define"
3342 $ perl_d_setlocale="define"
3343 $ perl_vms_cc_type="decc"
3345 $ perl_d_mbstowcs="undef"
3346 $ perl_d_mbtowc="undef"
3347 $ perl_d_stdiobase="undef"
3348 $ perl_d_stdio_ptr_lval="undef"
3349 $ perl_d_stdio_cnt_lval="undef"
3350 $ perl_d_stdstdio="undef"
3351 $ perl_d_wcstombs="undef"
3352 $ perl_d_mblen="undef"
3353 $ perl_d_mktime="undef"
3354 $ perl_d_strcoll="undef"
3355 $ perl_d_strxfrm="undef"
3356 $ perl_d_wctomb="undef"
3357 $ perl_i_locale="undef"
3358 $ perl_d_locconv="undef"
3359 $ perl_d_setlocale="undef"
3363 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
3365 $ perl_d_vms_do_sockets="define"
3366 $ perl_d_htonl="define"
3367 $ perl_d_socket="define"
3368 $ perl_d_select="define"
3369 $ perl_netdb_host_type="char *"
3370 $ perl_netdb_hlen_type="int"
3371 $ perl_netdb_name_type="char *"
3372 $ perl_netdb_net_type="long"
3373 $ perl_d_gethbyaddr="define"
3374 $ perl_d_gethbyname="define"
3375 $ perl_d_getnbyaddr="define"
3376 $ perl_d_getnbyname="define"
3377 $ perl_d_getpbynumber="define"
3378 $ perl_d_getpbyname="define"
3379 $ perl_d_getsbyport="define"
3380 $ perl_d_getsbyname="define"
3381 $ perl_d_gethostprotos="define"
3382 $ perl_d_getnetprotos="define"
3383 $ perl_d_getprotoprotos="define"
3384 $ perl_d_getservprotos="define"
3385 $ IF ("''Using_Dec_C'".EQS."Yes")
3387 $ perl_socksizetype="unsigned int"
3389 $ perl_socksizetype="int *"
3392 $ perl_d_vms_do_sockets="undef"
3393 $ perl_d_htonl="undef"
3394 $ perl_d_socket="undef"
3395 $ perl_d_select="undef"
3396 $ perl_netdb_host_type="char *"
3397 $ perl_netdb_hlen_type="int"
3398 $ perl_netdb_name_type="char *"
3399 $ perl_netdb_net_type="long"
3400 $ perl_d_gethbyaddr="undef"
3401 $ perl_d_gethbyname="undef"
3402 $ perl_d_getnbyaddr="undef"
3403 $ perl_d_getnbyname="undef"
3404 $ perl_d_getpbynumber="undef"
3405 $ perl_d_getpbyname="undef"
3406 $ perl_d_getsbyport="undef"
3407 $ perl_d_getsbyname="undef"
3408 $ perl_d_gethostprotos="undef"
3409 $ perl_d_getnetprotos="undef"
3410 $ perl_d_getprotoprotos="undef"
3411 $ perl_d_getservprotos="undef"
3412 $ perl_socksizetype="undef"
3415 $ if ("''use_threads'".eqs."T")
3417 $ perl_usethreads="define"
3418 $ perl_d_pthreads_created_joinable="define"
3419 $ if ("''VMS_VER'".ges."7.0")
3421 $ perl_d_oldpthreads="undef"
3423 $ perl_d_oldpthreads="define"
3426 $ perl_d_oldpthreads="undef"
3427 $ perl_usethreads="undef"
3429 $ perl_d_pthreads_created_joinable="undef"
3432 $! new (5.005_62++) typedefs for primitives
3434 $ perl_ivtype="long"
3435 $ perl_uvtype="unsigned long"
3436 $ perl_i8type="char"
3437 $ perl_u8type="unsigned char"
3438 $ perl_i16type="short"
3439 $ perl_u16type="unsigned short"
3440 $ perl_i32type="int"
3441 $ perl_u32type="unsigned int"
3442 $ perl_i64type="long long"
3443 $ perl_u64type="unsigned long long"
3444 $ perl_nvtype="double"
3446 $ GOTO beyond_type_size_check
3450 $! Check for type sizes
3454 $ WS "#include <stdlib.h>
3456 $ WS "#include <stdio.h>
3459 $ WS "printf(""%d\n"", sizeof(''type'));"
3463 $ DEFINE SYS$ERROR _NLA0:
3464 $ DEFINE SYS$OUTPUT _NLA0:
3465 $ ON ERROR THEN CONTINUE
3466 $ ON WARNING THEN CONTINUE
3468 $ If (Needs_Opt.eqs."Yes")
3470 $ link temp.obj,temp.opt/opt
3474 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3475 $ DEASSIGN SYS$OUTPUT
3476 $ DEASSIGN SYS$ERROR
3477 $ DEFINE SYS$ERROR TEMPOUT
3478 $ DEFINE SYS$OUTPUT TEMPOUT
3481 $ DEASSIGN SYS$OUTPUT
3482 $ DEASSIGN SYS$ERROR
3483 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3486 $ DELETE/NOLOG [-.uu]tempout.lis;
3487 $ WRITE_RESULT "''size_name' is ''line'"
3491 $beyond_type_size_check:
3494 $ type = "''perl_ivtype'"
3495 $ size_name = "ivsize"
3496 $ gosub type_size_check
3497 $ perl_ivsize="''line'"
3498 $ IF type .eqs. "long"
3499 $ THEN perl_longsize = "''line'"
3502 $ size_name = "longsize"
3503 $ gosub type_size_check
3504 $ perl_longsize="''line'"
3507 $ type = "''perl_uvtype'"
3508 $ size_name = "uvsize"
3509 $ gosub type_size_check
3510 $ perl_uvsize="''line'"
3512 $ type = "''perl_i8type'"
3513 $ size_name = "i8size"
3514 $ gosub type_size_check
3515 $ perl_i8size="''line'"
3517 $ type = "''perl_u8type'"
3518 $ size_name = "u8size"
3519 $ gosub type_size_check
3520 $ perl_u8size="''line'"
3522 $ type = "''perl_i16type'"
3523 $ size_name = "i16size"
3524 $ gosub type_size_check
3525 $ perl_i16size="''line'"
3526 $ IF type .eqs. "short"
3527 $ THEN perl_shortsize="''line'"
3529 $ type = "''perl_i16type'"
3530 $ size_name = "shortsize"
3531 $ gosub type_size_check
3532 $ perl_shortsize="''line'"
3535 $ type = "''perl_u16type'"
3536 $ size_name = "u16size"
3537 $ gosub type_size_check
3538 $ perl_u16size="''line'"
3540 $ type = "''perl_i32type'"
3541 $ size_name = "i32size"
3542 $ gosub type_size_check
3543 $ perl_i32size="''line'"
3544 $ IF type .eqs. "int"
3545 $ THEN perl_intsize="''perl_i32size'"
3548 $ size_name = "intsize"
3549 $ gosub type_size_check
3550 $ perl_intsize="''line'"
3553 $ type = "''perl_u32type'"
3554 $ size_name = "u32size"
3555 $ gosub type_size_check
3556 $ perl_u32size="''line'"
3560 $ type = "''perl_i64type'"
3561 $ size_name = "i64size"
3562 $ gosub type_size_check
3563 $ perl_i64size="''line'"
3565 $ type = "''perl_u64type'"
3566 $ size_name = "u64size"
3567 $ gosub type_size_check
3568 $ perl_u64size="''line'"
3570 $ perl_i64size="undef"
3571 $ perl_u64size="undef"
3574 $ perl_ivdformat="""ld"""
3575 $ perl_uvuformat="""lu"""
3576 $ perl_uvoformat="""lo"""
3577 $ perl_uvxformat="""lx"""
3579 $! Finally the composite ones. All config
3580 $ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3581 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3582 $ perl_myhostname="''myhostname'"
3583 $ perl_mydomain="''mydomain'"
3584 $ perl_perladmin="''perladmin'"
3585 $ perl_cf_email="''cf_email'"
3586 $ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
3587 $ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3588 $ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
3589 $ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
3590 $ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
3591 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
3592 $ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3593 $ if "''Using_Dec_C'" .eqs. "Yes"
3595 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
3597 $ if use_vmsdebug_perl .eqs. "Y"
3599 $ perl_optimize="/Debug/NoOpt"
3600 $ perl_dbgprefix = "DBG"
3603 $ perl_dbgprefix = ""
3606 $! Finally clean off any leading zeros from the patchlevel or subversion
3607 $ perl_patchlevel = perl_patchlevel + 0
3608 $ perl_subversion = perl_subversion + 0
3610 $! Okay, we've got everything configured. Now go write out a config.sh.
3611 $ open/write CONFIGSH [-]config.sh
3612 $ WC := "write CONFIGSH"
3614 $ WC "# This file generated by Configure.COM on a VMS system."
3615 $ WC "# Time: " + perl_cf_time
3617 $ WC "CONFIGDOTSH=true"
3618 $ WC "package='" + perl_package + "'"
3619 $ WC "d_nv_preserves_uv='" + perl_d_nv_preserves_uv + "'"
3620 $ WC "use5005threads='" + perl_use5005threads + "'"
3621 $ WC "useithreads='" + perl_useithreads + "'"
3622 $ WC "CONFIG='" + perl_config + "'"
3623 $ WC "cf_time='" + perl_cf_time + "'"
3624 $ WC "cf_by='" + perl_cf_by+ "'"
3625 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
3626 $ WC "ccdlflags='" + perl_ccdlflags + "'"
3627 $ WC "cccdlflags='" + perl_cccdlflags + "'"
3628 $ WC "mab='" + perl_mab + "'"
3629 $ WC "libpth='" + perl_libpth + "'"
3630 $ WC "ld='" + perl_ld + "'"
3631 $ WC "lddlflags='" + perl_lddlflags + "'"
3632 $ WC "ranlib='" + perl_ranlib + "'"
3633 $ WC "ar='" + perl_ar + "'"
3634 $ WC "full_ar='" + perl_full_ar + "'"
3635 $ WC "eunicefix='" + perl_eunicefix + "'"
3636 $ WC "hint='" + perl_hint +"'"
3637 $ WC "hintfile='" + perl_hintfile + "'"
3638 $ WC "shrplib='" + perl_shrplib + "'"
3639 $ WC "usemymalloc='" + perl_usemymalloc + "'"
3640 $ WC "usevfork='" + perl_usevfork + "'"
3641 $ WC "useposix='false'"
3642 $ WC "spitshell='write sys$output '"
3643 $ WC "dlsrc='dl_vms.c'"
3644 $ WC "binexp='" + perl_binexp + "'"
3645 $ WC "man1ext='" + perl_man1ext + "'"
3646 $ WC "man3ext='" + perl_man3ext + "'"
3647 $ WC "arch='" + perl_arch + "'"
3648 $ WC "archname='" + perl_archname + "'"
3649 $ WC "osvers='" + perl_osvers + "'"
3650 $ WC "prefix='" + perl_prefix + "'"
3651 $ WC "builddir='" + perl_builddir + "'"
3652 $ WC "installbin='" + perl_installbin + "'"
3653 $ WC "installscript='" + perl_installscript + "'"
3654 $ WC "installman1dir='" + perl_installman1dir + "'"
3655 $ WC "installman3dir='" + perl_installman3dir + "'"
3656 $ WC "installprivlib='" + perl_installprivlib + "'"
3657 $ WC "installarchlib='" + perl_installarchlib + "'"
3658 $ WC "installsitelib='" + perl_installsitelib + "'"
3659 $ WC "installsitearch='" + perl_installsitearch + "'"
3660 $ WC "path_sep='" + perl_path_sep + "'"
3661 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
3662 $ WC "d_attribut='" + perl_d_attribut + "'"
3663 $ WC "cc='" + perl_cc + "'"
3664 $ WC "ccflags='" + perl_ccflags + "'"
3665 $ WC "optimize='" + perl_optimize + "'"
3666 $ WC "dbgprefix='" + perl_dbgprefix + "'"
3667 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
3668 $ WC "d_socket='" + perl_d_socket + "'"
3669 $ WC "d_sockpair='" + perl_d_sockpair + "'"
3670 $ WC "d_gethent='" + perl_d_gethent + "'"
3671 $ WC "d_getsent='" + perl_d_getsent + "'"
3672 $ WC "d_socklen_t='" + perl_d_socklen_t + "'"
3673 $ WC "d_select='" + perl_d_select + "'"
3674 $ WC "i_niin='" + perl_i_niin + "'"
3675 $ WC "i_netinettcp='" + perl_i_netinettcp + "'"
3676 $ WC "i_neterrno='" + perl_i_neterrno + "'"
3677 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
3678 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
3679 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
3680 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
3681 $ WC "d_locconv='" + perl_d_locconv + "'"
3682 $ WC "d_setlocale='" + perl_d_setlocale + "'"
3683 $ WC "i_locale='" + perl_i_locale + "'"
3684 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
3685 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
3686 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
3687 $ WC "d_wctomb='" + perl_d_wctomb + "'"
3688 $ WC "d_mblen='" + perl_d_mblen + "'"
3689 $ WC "d_mktime='" + perl_d_mktime + "'"
3690 $ WC "d_strcoll='" + perl_d_strcoll + "'"
3691 $ WC "d_strxfrm='" + perl_d_strxfrm + "'"
3692 $ WC "ldflags='" + perl_ldflags + "'"
3693 $ WC "dlobj='" + perl_dlobj + "'"
3694 $ WC "obj_ext='" + perl_obj_ext + "'"
3695 $ WC "so='" + perl_so + "'"
3696 $ WC "dlext='" + perl_dlext + "'"
3697 $ WC "exe_ext='" + perl_exe_ext + "'"
3698 $ WC "lib_ext='" + perl_lib_ext + "'"
3699 $ WC "myhostname='" + perl_myhostname + "'"
3700 $ WC "mydomain='" + perl_mydomain + "'"
3701 $ WC "perladmin='" + perl_perladmin + "'"
3702 $ WC "cf_email='" + perl_cf_email + "'"
3703 $ WC "myuname='" + perl_myuname + "'"
3704 $ WC "alignbytes='" + perl_alignbytes + "'"
3705 $ WC "osname='" + perl_osname + "'"
3706 $ WC "d_archlib='" + perl_d_archlib + "'"
3707 $ WC "archlibexp='" + perl_archlibexp + "'"
3708 $ WC "archlib='" + perl_archlib + "'"
3709 $ WC "archname='" + perl_archname + "'"
3710 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
3711 $ WC "cppstdin='" + perl_cppstdin + "'"
3712 $ WC "cppminus='" + perl_cppminus + "'"
3713 $ WC "cpprun='" + perl_cpprun + "'"
3714 $ WC "cpplast='" + perl_cpplast + "'"
3715 $ WC "d_bcmp='" + perl_d_bcmp + "'"
3716 $ WC "d_bcopy='" + perl_d_bcopy + "'"
3717 $ WC "d_bzero='" + perl_d_bzero + "'"
3718 $ WC "d_castneg='" + perl_d_castneg + "'"
3719 $ WC "castflags='" + perl_castflags + "'"
3720 $ WC "d_chsize='" + perl_d_chsize + "'"
3721 $ WC "d_const='" + perl_d_const + "'"
3722 $ WC "d_crypt='" + perl_d_crypt + "'"
3723 $ WC "byteorder='" + perl_byteorder + "'"
3724 $ WC "full_csh='" + perl_full_csh + "'"
3725 $ WC "d_csh='" + perl_d_csh + "'"
3726 $ WC "d_dup2='" + perl_d_dup2 + "'"
3727 $ WC "d_fchmod='" + perl_d_fchmod + "'"
3728 $ WC "d_fchown='" + perl_d_fchown + "'"
3729 $ WC "d_fcntl='" + perl_d_fcntl + "'"
3730 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
3731 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
3732 $ WC "d_flock='" + perl_d_flock + "'"
3733 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
3734 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
3735 $ WC "d_getgrps='" + perl_d_getgrps + "'"
3736 $ WC "d_setgrps='" + perl_d_setgrps + "'"
3737 $ WC "groupstype='" + perl_groupstype + "'"
3738 $ WC "d_uname='" + perl_d_uname + "'"
3739 $ WC "d_getprior='" + perl_d_getprior + "'"
3740 $ WC "d_killpg='" + perl_d_killpg + "'"
3741 $ WC "d_link='" + perl_d_link + "'"
3742 $ WC "d_lstat='" + perl_d_lstat + "'"
3743 $ WC "d_lockf='" + perl_d_lockf + "'"
3744 $ WC "d_memcmp='" + perl_d_memcmp + "'"
3745 $ WC "d_memcpy='" + perl_d_memcpy + "'"
3746 $ WC "d_memmove='" + perl_d_memmove + "'"
3747 $ WC "d_memset='" + perl_d_memset + "'"
3748 $ WC "d_mkdir='" + perl_d_mkdir + "'"
3749 $ WC "d_msg='" + perl_d_msg + "'"
3750 $ WC "d_open3='" + perl_d_open3 + "'"
3751 $ WC "d_poll='" + perl_d_poll + "'"
3752 $ WC "d_readdir='" + perl_d_readdir + "'"
3753 $ WC "d_seekdir='" + perl_d_seekdir + "'"
3754 $ WC "d_telldir='" + perl_d_telldir + "'"
3755 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
3756 $ WC "d_rename='" + perl_d_rename + "'"
3757 $ WC "d_rmdir='" + perl_d_rmdir + "'"
3758 $ WC "d_sem='" + perl_d_sem + "'"
3759 $ WC "d_setegid='" + perl_d_setegid + "'"
3760 $ WC "d_seteuid='" + perl_d_seteuid + "'"
3761 $ WC "d_setprior='" + perl_d_setprior + "'"
3762 $ WC "d_setregid='" + perl_d_setregid + "'"
3763 $ WC "d_setresgid='" + perl_d_setresgid + "'"
3764 $ WC "d_setreuid='" + perl_d_setreuid + "'"
3765 $ WC "d_setresuid='" + perl_d_setresuid + "'"
3766 $ WC "d_setrgid='" + perl_d_setrgid + "'"
3767 $ WC "d_setruid='" + perl_d_setruid + "'"
3768 $ WC "d_setsid='" + perl_d_setsid + "'"
3769 $ WC "d_shm='" + perl_d_shm + "'"
3770 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
3771 $ WC "shmattype='" + perl_shmattype + "'"
3772 $ WC "d_sigaction='" + perl_d_sigaction + "'"
3773 $ WC "d_statblks='" + perl_d_statblks + "'"
3774 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
3775 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
3776 $ WC "stdio_base='" + perl_stdio_base + "'"
3777 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
3778 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
3779 $ WC "d_strerror='" + perl_d_strerror + "'"
3780 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
3781 $ WC "d_strerrm='" + perl_d_strerrm + "'"
3782 $ WC "d_symlink='" + perl_d_symlink + "'"
3783 $ WC "d_syscall='" + perl_d_syscall + "'"
3784 $ WC "d_system='" + perl_d_system + "'"
3785 $ WC "timetype='" + perl_timetype + "'"
3786 $ WC "d_truncate='" + perl_d_truncate + "'"
3787 $ WC "d_vfork='" + perl_d_vfork + "'"
3788 $ WC "signal_t='" + perl_signal_t + "'"
3789 $ WC "d_volatile='" + perl_d_volatile + "'"
3790 $ WC "d_vprintf='" + perl_d_vprintf + "'"
3791 $ WC "d_charvspr='" + perl_d_charvspr + "'"
3792 $ WC "d_wait4='" + perl_d_wait4 + "'"
3793 $ WC "d_waitpid='" + perl_d_waitpid + "'"
3794 $ WC "i_dirent='" + perl_i_dirent + "'"
3795 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
3796 $ WC "direntrytype='" + perl_direntrytype + "'"
3797 $ WC "i_fcntl='" + perl_i_fcntl + "'"
3798 $ WC "i_grp='" + perl_i_grp + "'"
3799 $ WC "i_limits='" + perl_i_limits + "'"
3800 $ WC "i_memory='" + perl_i_memory + "'"
3801 $ WC "i_ndbm='" + perl_i_ndbm + "'"
3802 $ WC "i_stdarg='" + perl_i_stdarg + "'"
3803 $ WC "i_pwd='" + perl_i_pwd + "'"
3804 $ WC "d_pwquota='" + perl_d_pwquota + "'"
3805 $ WC "d_pwage='" + perl_d_pwage + "'"
3806 $ WC "d_pwchange='" + perl_d_pwchange + "'"
3807 $ WC "d_pwclass='" + perl_d_pwclass + "'"
3808 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
3809 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
3810 $ WC "i_stddef='" + perl_i_stddef + "'"
3811 $ WC "i_stdlib='" + perl_i_stdlib + "'"
3812 $ WC "i_string='" + perl_i_string + "'"
3813 $ WC "i_sysdir='" + perl_i_sysdir + "'"
3814 $ WC "i_sysfile='" + perl_i_sysfile + "'"
3815 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
3816 $ WC "i_sysndir='" + perl_i_sysndir + "'"
3817 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
3818 $ WC "i_sysselct='" + perl_i_sysselct + "'"
3819 $ WC "i_dbm='" + perl_i_dbm + "'"
3820 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
3821 $ WC "i_sfio='" + perl_i_sfio + "'"
3822 $ WC "i_sysstat='" + perl_i_sysstat + "'"
3823 $ WC "i_systimes='" + perl_i_systimes + "'"
3824 $ WC "i_systypes='" + perl_i_systypes + "'"
3825 $ WC "i_sysun='" + perl_i_sysun + "'"
3826 $ WC "i_syswait='" + perl_i_syswait + "'"
3827 $ WC "i_termio='" + perl_i_termio + "'"
3828 $ WC "i_sgtty='" + perl_i_sgtty + "'"
3829 $ WC "i_termios='" + perl_i_termios + "'"
3830 $ WC "i_time='" + perl_i_time + "'"
3831 $ WC "i_systime='" + perl_i_systime + "'"
3832 $ WC "i_systimek='" + perl_i_systimek + "'"
3833 $ WC "i_unistd='" + perl_i_unistd + "'"
3834 $ WC "i_utime='" + perl_i_utime + "'"
3835 $ WC "i_varargs='" + perl_i_varargs + "'"
3836 $ WC "i_vfork='" + perl_i_vfork + "'"
3837 $ WC "prototype='" + perl_prototype + "'"
3838 $ WC "randbits='" + perl_randbits +"'"
3839 $ WC "selecttype='" + perl_selecttype + "'"
3840 $ WC "selectminbits='" + perl_selectminbits + "'"
3841 $ WC "stdchar='" + perl_stdchar + "'"
3842 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
3843 $ WC "full_sed='" + perl_full_sed + "'"
3844 $ WC "bin='" + perl_bin + "'"
3845 $ WC "binexp='" + perl_binexp + "'"
3846 $ WC "d_alarm='" + perl_d_alarm + "'"
3847 $ WC "d_casti32='" + perl_d_casti32 + "'"
3848 $ WC "d_chown='" + perl_d_chown + "'"
3849 $ WC "d_chroot='" + perl_d_chroot + "'"
3850 $ WC "d_cuserid='" + perl_d_cuserid + "'"
3851 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
3852 $ WC "d_ldbl_dig='" + perl_d_ldbl_dig + "'"
3853 $ WC "d_difftime='" + perl_d_difftime + "'"
3854 $ WC "d_fork='" + perl_d_fork + "'"
3855 $ WC "d_getlogin='" + perl_d_getlogin + "'"
3856 $ WC "d_getppid='" + perl_d_getppid + "'"
3857 $ WC "d_htonl='" + perl_d_htonl + "'"
3858 $ WC "d_nice='" + perl_d_nice + "'"
3859 $ WC "d_pause='" + perl_d_pause + "'"
3860 $ WC "d_pipe='" + perl_d_pipe + "'"
3861 $ WC "d_readlink='" + perl_d_readlink + "'"
3862 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
3863 $ WC "d_strchr='" + perl_d_strchr + "'"
3864 $ WC "d_index='" + perl_d_index + "'"
3865 $ WC "d_strtod='" + perl_d_strtod + "'"
3866 $ WC "d_strtol='" + perl_d_strtol + "'"
3867 $ WC "d_strtoul='" + perl_d_strtoul + "'"
3868 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
3869 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
3870 $ WC "d_times='" + perl_d_times + "'"
3871 $ WC "d_tzname='" + perl_d_tzname + "'"
3872 $ WC "d_umask='" + perl_d_umask + "'"
3873 $ WC "fpostype='" + perl_fpostype + "'"
3874 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
3875 $ WC "i_float='" + perl_i_float + "'"
3876 $ WC "i_math='" + perl_i_math + "'"
3877 $ WC "intsize='" + perl_intsize + "'"
3878 $ WC "longsize='" + perl_longsize + "'"
3879 $ WC "shortsize='" + perl_shortsize + "'"
3880 $ WC "lseektype='" + perl_lseektype + "'"
3881 $ WC "lseeksize='4'"
3882 $ WC "i_values='" + perl_i_values + "'"
3883 $ WC "malloctype='" + perl_malloctype + "'"
3884 $ WC "freetype='" + perl_freetype + "'"
3885 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
3886 $ WC "sh='" + perl_sh + "'"
3887 $ WC "sig_name='" + perl_sig_name + "'"
3888 $ WC "sig_num='" + perl_sig_num + "'"
3889 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
3891 $ WC "modetype='" + perl_modetype + "'"
3892 $ WC "ssizetype='" + perl_ssizetype + "'"
3893 $ WC "o_nonblock='" + perl_o_nonblock + "'"
3894 $ WC "eagain='" + perl_eagain + "'"
3895 $ WC "rd_nodata='" + perl_rd_nodata + "'"
3896 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
3897 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
3898 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
3899 $ WC "oldarchlib='" + perl_oldarchlib + "'"
3900 $ WC "privlibexp='" + perl_privlibexp + "'"
3901 $ WC "privlib='" + perl_privlib + "'"
3902 $ WC "sitelibexp='" + perl_sitelibexp + "'"
3903 $ WC "sitelib='" + perl_sitelib + "'"
3904 $ WC "sitelib_stem='" + perl_sitelib_stem + "'"
3905 $ WC "sitearchexp='" + perl_sitearchexp + "'"
3906 $ WC "sitearch='" + perl_sitearch + "'"
3907 $ WC "sizetype='" + perl_sizetype + "'"
3908 $ WC "i_sysparam='" + perl_i_sysparam + "'"
3909 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
3910 $ WC "d_dlerror='" + perl_d_dlerror + "'"
3911 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
3912 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
3913 $ WC "d_dosuid='" + perl_d_dosuid + "'"
3914 $ WC "d_inetaton='" + perl_d_inetaton + "'"
3915 $ WC "d_int64_t='" + perl_d_int64_t + "'"
3916 $ WC "d_isascii='" + perl_d_isascii + "'"
3917 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
3918 $ WC "d_pathconf='" + perl_d_pathconf + "'"
3919 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
3920 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
3921 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
3922 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
3923 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
3924 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
3925 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
3926 $ WC "d_setpgid='" + perl_d_setpgid + "'"
3927 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
3928 $ WC "d_sysconf='" + perl_d_sysconf + "'"
3929 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
3930 $ WC "d_getpgid='" + perl_d_getpgid + "'"
3931 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
3932 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
3933 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
3934 $ WC "d_sfio='" + perl_d_sfio + "'"
3935 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
3936 $ WC "usedl='" + perl_usedl + "'"
3937 $ WC "startperl=" + perl_startperl ! This one's special--no enclosing single quotes
3938 $ WC "db_hashtype='" + perl_db_hashtype + "'"
3939 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
3940 $ WC "useperlio='" + perl_useperlio + "'"
3941 $ WC "defvoidused='" + perl_defvoidused + "'"
3942 $ WC "voidflags='" + perl_voidflags + "'"
3943 $ WC "d_eunice='" + perl_d_eunice + "'"
3944 $ WC "libs='" + perl_libs + "'"
3945 $ WC "libc='" + perl_libc + "'"
3946 $ tempstring = "PERL_VERSION='" + "''perl_patchlevel'" + "'"
3948 $ tempstring = "PERL_SUBVERSION='" + "''perl_patchlevel'" + "'"
3950 $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
3952 $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
3954 $ WC "xs_apiversion='" + localperlver + "'"
3955 $ WC "pm_apiversion='" + localperlver + "'"
3956 $ WC "pager='" + perl_pager + "'"
3957 $ WC "uidtype='" + perl_uidtype + "'"
3958 $ WC "uidformat='" + perl_uidformat + "'"
3959 $ WC "uidsize='" + perl_uidsize + "'"
3960 $ WC "gidtype='" + perl_gidtype + "'"
3961 $ WC "gidformat='" + perl_gidformat + "'"
3962 $ WC "gidsize='" + perl_gidsize + "'"
3963 $ WC "usethreads='" + perl_usethreads + "'"
3964 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
3965 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
3966 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
3967 $ WC "i_netdb='" + perl_i_netdb + "'"
3968 $ WC "pidtype='" + perl_pidtype + "'"
3969 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
3970 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
3971 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
3972 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
3973 $ WC "socksizetype='" + perl_socksizetype + "'"
3974 $ WC "baserev='" + perl_baserev + "'"
3975 $ WC "doublesize='" + perl_doublesize + "'"
3976 $ WC "ptrsize='" + perl_ptrsize + "'"
3977 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
3978 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
3979 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
3980 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
3981 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
3982 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
3983 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
3984 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
3985 $ WC "d_sethent='" + perl_d_sethent + "'"
3986 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
3987 $ WC "d_longdbl='" + perl_d_longdbl + "'"
3988 $ WC "longdblsize='" + perl_longdblsize + "'"
3989 $ WC "d_longlong='" + perl_d_longlong + "'"
3990 $ WC "longlongsize='" + perl_longlongsize + "'"
3991 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
3992 $ WC "d_mkstemps='" + perl_d_mkstemps + "'"
3993 $ WC "d_mkdtemp='" + perl_d_mkdtemp + "'"
3994 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
3995 $ WC "d_setenv='" + perl_d_setenv + "'"
3996 $ WC "d_endhent='" + perl_d_endhent + "'"
3997 $ WC "d_endnent='" + perl_d_endsent + "'"
3998 $ WC "d_endpent='" + perl_d_endpent + "'"
3999 $ WC "d_endsent='" + perl_d_endsent + "'"
4000 $ WC "d_gethent='" + perl_d_gethent + "'"
4001 $ WC "d_getnent='" + perl_d_getsent + "'"
4002 $ WC "d_getpent='" + perl_d_getpent + "'"
4003 $ WC "d_getsent='" + perl_d_getsent + "'"
4004 $ WC "d_sethent='" + perl_d_sethent + "'"
4005 $ WC "d_setnent='" + perl_d_setsent + "'"
4006 $ WC "d_setpent='" + perl_d_setpent + "'"
4007 $ WC "ebcdic='" + perl_ebcdic + "'"
4008 $ WC "d_setsent='" + perl_d_setsent + "'"
4009 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
4010 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
4011 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
4012 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
4013 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
4014 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
4015 $ WC "d_lchown='" + perl_d_lchown + "'"
4016 $ WC "d_union_semun='" + perl_d_union_semun + "'"
4017 $ WC "i_arpainet='" + perl_i_arpainet + "'"
4018 $ WC "d_grpasswd='" + perl_d_grpasswd + "'"
4019 $ WC "d_setgrent='" + perl_d_setgrent + "'"
4020 $ WC "d_getgrent='" + perl_d_getgrent + "'"
4021 $ WC "d_endgrent='" + perl_d_endgrent + "'"
4022 $ WC "d_pwpasswd='" + perl_d_pwpasswd + "'"
4023 $ WC "d_setpwent='" + perl_d_setpwent + "'"
4024 $ WC "d_getpwent='" + perl_d_getpwent + "'"
4025 $ WC "d_endpwent='" + perl_d_endpwent + "'"
4026 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
4027 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
4028 $ WC "extensions='" + perl_extensions + "'"
4029 $ WC "known_extensions='" + perl_known_extensions + "'"
4030 $ WC "static_ext='" + "'"
4031 $ WC "dynamic_ext='" + perl_extensions + "'"
4032 $ WC "d_mknod='" + perl_d_mknod + "'"
4033 $ WC "devtype='" + perl_devtype + "'"
4034 $ WC "d_gethname='" + perl_d_gethname + "'"
4035 $ WC "d_phostname='" + perl_d_phostname + "'"
4036 $ WC "aphostname='" + perl_aphostname + "'"
4037 $ WC "d_accessx='" + perl_d_accessx + "'"
4038 $ WC "d_eaccess='" + perl_d_eaccess + "'"
4039 $ WC "i_ieeefp='" + perl_i_ieeefp + "'"
4040 $ WC "i_sunmath='" + perl_i_sunmath + "'"
4041 $ WC "i_sysaccess='" + perl_i_sysaccess + "'"
4042 $ WC "i_syssecrt='" + perl_i_syssecrt + "'"
4043 $ WC "d_fd_set='" + perl_d_fd_set + "'"
4044 $ WC "d_access='" + perl_d_access + "'"
4045 $ WC "d_msg_ctrunc='" + perl_d_msg_ctrunc + "'"
4046 $ WC "d_msg_dontroute='" + perl_d_msg_dontroute + "'"
4047 $ WC "d_msg_oob='" + perl_d_msg_oob + "'"
4048 $ WC "d_msg_peek='" + perl_d_msg_peek + "'"
4049 $ WC "d_msg_proxy='" + perl_d_msg_proxy + "'"
4050 $ WC "d_scm_rights='" + perl_d_scm_rights + "'"
4051 $ WC "d_sendmsg='" + perl_d_sendmsg + "'"
4052 $ WC "d_recvmsg='" + perl_d_recvmsg + "'"
4053 $ WC "d_msghdr_s='" + perl_d_msghdr_s + "'"
4054 $ WC "d_cmsghdr_s='" + perl_d_cmsghdr_s + "'"
4055 $ WC "i_sysuio='" + perl_i_sysuio + "'"
4056 $ WC "d_fseeko='" + perl_d_fseeko + "'"
4057 $ WC "d_ftello='" + perl_d_ftello + "'"
4058 $ WC "d_qgcvt='" + perl_d_qgcvt + "'"
4059 $ WC "d_readv='" + perl_d_readv + "'"
4060 $ WC "d_writev='" + perl_d_writev + "'"
4061 $ WC "i_machcthr='" + perl_i_machcthr + "'"
4062 $ WC "usemultiplicity='" + perl_usemultiplicity + "'"
4063 $ WC "i_poll='" + perl_i_poll + "'"
4064 $ WC "i_inttypes='" + perl_i_inttypes + "'"
4065 $ WC "d_off64_t='" + perl_d_off64_t + "'"
4066 $ WC "d_fpos64_t='" + perl_d_fpos64_t + "'"
4067 $ WC "use64bitall='" + perl_use64bitall + "'"
4068 $ WC "use64bitint='" + perl_use64bitint + "'"
4069 $ WC "d_drand48proto='" + perl_d_drand48proto + "'"
4070 $ WC "d_lseekproto='" + perl_d_drand48proto + "'"
4071 $ WC "d_old_pthread_create_joinable='" + perl_d_old_pthread_create_joinable + "'"
4072 $ WC "old_pthread_create_joinable='" + perl_old_pthread_create_joinable + "'"
4073 $ WC "drand01='" + perl_drand01 + "'"
4074 $ WC "randseedtype='" + perl_randseedtype + "'"
4075 $ WC "seedfunc='" + perl_seedfunc + "'"
4076 $ WC "sig_num_init='" + perl_sig_num_with_commas + "'"
4077 $ WC "i_sysmount='" + perl_i_sysmount + "'"
4078 $ WC "d_fstatfs='" + perl_d_fstatfs + "'"
4079 $ WC "d_getfsstat='" + perl_d_getfsstat + "'"
4080 $ WC "d_memchr='" + perl_d_memchr + "'"
4081 $ WC "d_statfsflags='" + perl_d_statfsflags + "'"
4082 $ WC "fflushNULL='define'"
4083 $ WC "fflushall='undef'"
4084 $ WC "d_stdio_stream_array='undef'"
4085 $ WC "stdio_stream_array='" + perl_stdio_stream_array + "'"
4086 $ WC "i_sysstatvfs='" + perl_i_sysstatvfs + "'"
4087 $ WC "i_syslog='" + perl_i_syslog + "'"
4088 $ WC "i_sysmode='" + perl_i_sysmode + "'"
4089 $ WC "i_sysutsname='" + perl_i_sysutsname + "'"
4090 $ WC "i_machcthreads='" + perl_i_machcthreads + "'"
4091 $ WC "i_pthread='" + perl_i_pthread + "'"
4092 $ WC "d_fstatvfs='" + perl_d_fstatvfs + "'"
4093 $ WC "i_mntent='" + perl_i_mntent + "'"
4094 $ WC "d_getmntent='" + perl_d_getmntent + "'"
4095 $ WC "d_hasmntopt='" + perl_d_hasmntopt + "'"
4096 $ WC "d_telldirproto='" + perl_d_telldirproto + "'"
4097 $ WC "d_madvise='" + perl_d_madvise + "'"
4098 $ WC "d_msync='" + perl_d_msync + "'"
4099 $ WC "d_mprotect='" + perl_d_mprotect + "'"
4100 $ WC "d_munmap='" + perl_d_munmap + "'"
4101 $ WC "d_mmap='" + perl_d_mmap + "'"
4102 $ WC "mmaptype='" + perl_mmaptype + "'"
4103 $ WC "i_sysmman='" + perl_i_sysmman + "'"
4104 $ WC "installusrbinperl='" + perl_installusrbinperl + "'"
4105 $! WC "selectminbits='" + perl_selectminbits + "'"
4106 $ WC "crosscompile='" + perl_crosscompile + "'"
4107 $ WC "multiarch='" + perl_multiarch + "'"
4108 $ WC "sched_yield='" + perl_sched_yield + "'"
4109 $ WC "d_strtoull='" + perl_d_strtoull + "'"
4110 $ WC "d_strtouq='" + perl_d_strtouq + "'"
4111 $ WC "d_strtoll='" + perl_d_strtoll + "'"
4112 $ WC "d_strtold='" + perl_d_strtold + "'"
4113 $ WC "usesocks='" + perl_usesocks + "'"
4114 $ WC "d_vendorlib='" + perl_d_vendorlib + "'"
4115 $ WC "vendorlibexp='" + perl_vendorlibexp + "'"
4116 $ WC "vendorlib_stem='" + perl_vendorlib_stem + "'"
4117 $ WC "d_atolf='" + perl_d_atolf + "'"
4118 $ WC "d_atoll='" + perl_d_atoll + "'"
4119 $ WC "d_bincompat5005='" + perl_d_bincompat + "'"
4120 $ WC "d_endspent='" + perl_d_endspent + "'"
4121 $ WC "d_getspent='" + perl_d_getspent + "'"
4122 $ WC "d_getspnam='" + perl_d_getspnam + "'"
4123 $ WC "d_setspent='" + perl_d_setspent + "'"
4124 $ WC "i_shadow='" + perl_i_shadow + "'"
4125 $ WC "i_socks='" + perl_i_socks + "'"
4126 $ WC "d_PRIfldbl='" + perl_d_PRIfldbl + "'"
4127 $ WC "d_PRIgldbl='" + perl_d_PRIgldbl + "'"
4128 $ WC "d_PRId64='" + perl_d_PRId64 + "'"
4129 $ WC "d_PRIu64='" + perl_d_PRIu64 + "'"
4130 $ WC "d_PRIo64='" + perl_d_PRIo64 + "'"
4131 $ WC "d_PRIx64='" + perl_d_PRIx64 + "'"
4132 $ WC "sPRIfldbl='" + perl_sPRIfldbl + "'"
4133 $ WC "sPRIgldbl='" + perl_sPRIgldbl + "'"
4134 $ WC "sPRId64='" + perl_sPRId64 + "'"
4135 $ WC "sPRIu64='" + perl_sPRIu64 + "'"
4136 $ WC "sPRIo64='" + perl_sPRIo64 + "'"
4137 $ WC "sPRIx64='" + perl_sPRIx64 + "'"
4138 $ WC "d_llseek='" + perl_d_llseek + "'"
4139 $ WC "d_iconv='" + perl_d_iconv +"'"
4140 $ WC "i_iconv='" + perl_i_iconv +"'"
4141 $ WC "inc_version_list_init='0'"
4142 $ WC "uselargefiles='" + perl_uselargefiles + "'"
4143 $ WC "uselongdouble='" + perl_uselongdouble + "'"
4144 $ WC "usemorebits='" + perl_usemorebits + "'"
4145 $ WC "d_quad='" + perl_d_quad + "'"
4146 $ WC "quadtype='" + perl_quadtype + "'"
4147 $ WC "uquadtype='" + perl_uquadtype + "'"
4148 $ WC "quadkind='" + perl_quadkind + "'"
4149 $ WC "d_fs_data_s='" + perl_d_fs_data_s + "'"
4150 $ WC "d_getcwd='" + perl_d_getcwd + "'"
4151 $ WC "d_getmnt='" + perl_d_getmnt + "'"
4152 $ WC "d_sqrtl='" + perl_d_sqrtl + "'"
4153 $ WC "d_statfs_f_flags='" + perl_d_statfs_f_flags + "'"
4154 $ WC "d_statfs_s='" + perl_d_statfs_s + "'"
4155 $ WC "d_ustat='" + perl_d_ustat + "'"
4156 $ WC "d_vendorarch='" + perl_d_vendorarch + "'"
4157 $ WC "vendorarchexp='" + perl_vendorarchexp + "'"
4158 $ WC "i_sysstatfs='" + perl_i_sysstatfs + "'"
4159 $ WC "i_sysvfs='" + perl_i_sysvfs + "'"
4160 $ WC "i_ustat='" + perl_i_ustat + "'"
4161 $ WC "ivtype='" + perl_ivtype + "'"
4162 $ WC "uvtype='" + perl_uvtype + "'"
4163 $ WC "i8type='" + perl_i8type + "'"
4164 $ WC "i16type='" + perl_i16type + "'"
4165 $ WC "u8type='" + perl_u8type + "'"
4166 $ WC "u16type='" + perl_u16type + "'"
4167 $ WC "i32type='" + perl_i32type + "'"
4168 $ WC "u32type='" + perl_u32type + "'"
4169 $ WC "i64type='" + perl_i64type + "'"
4170 $ WC "u64type='" + perl_u64type + "'"
4171 $ WC "nvtype='" + perl_nvtype + "'"
4172 $ WC "ivsize='" + perl_ivsize + "'"
4173 $ WC "uvsize='" + perl_uvsize + "'"
4174 $ WC "i8size='" + perl_i8size + "'"
4175 $ WC "u8size='" + perl_u8size + "'"
4176 $ WC "i16size='" + perl_i16size + "'"
4177 $ WC "u16size='" + perl_u16size + "'"
4178 $ WC "i32size='" + perl_i32size + "'"
4179 $ WC "u32size='" + perl_u32size + "'"
4180 $ WC "i64size='" + perl_i64size + "'"
4181 $ WC "u64size='" + perl_u64size + "'"
4182 $ WC "ivdformat='" + perl_ivdformat + "'"
4183 $ WC "uvuformat='" + perl_uvuformat + "'"
4184 $ WC "uvoformat='" + perl_uvoformat + "'"
4185 $ WC "uvxformat='" + perl_uvxformat + "'"
4186 $ WC "d_vms_case_sensitive_symbols='" + d_vms_be_case_sensitive + "'"
4188 $! ##WRITE NEW CONSTANTS HERE##
4192 $! Okay, we've gotten here. Build munchconfig and run it
4193 $ 'Perl_CC' munchconfig.c
4194 $ If (Needs_Opt.eqs."Yes")
4196 $ open/write OPTCHAN []munchconfig.opt
4197 $ IF ("''using_gnu_c'".eqs."Yes")
4199 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
4201 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
4203 $ link munchconfig.obj,munchconfig.opt/opt
4204 $ delete munchconfig.opt;*
4206 $ link munchconfig.obj
4209 $ echo "Writing config.h"
4211 $ ! we need an fdl file
4212 $ CREATE [-]CONFIG.FDL
4215 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
4216 $ ! First spit out the header info with the local defines (to get
4217 $ ! around the 255 character command line limit)
4218 $ OPEN/APPEND CONFIG [-]config.local
4219 $ if use_debugging_perl.eqs."Y"
4221 $ WRITE CONFIG "#define DEBUGGING"
4223 $ if use_two_pot_malloc.eqs."Y"
4225 $ WRITE CONFIG "#define TWO_POT_OPTIMIZE"
4227 $ if mymalloc.eqs."Y"
4229 $ WRITE CONFIG "#define EMBEDMYMALLOC"
4231 $ if use_pack_malloc.eqs."Y"
4233 $ WRITE CONFIG "#define PACK_MALLOC"
4235 $ if use_debugmalloc.eqs."Y"
4237 $ write config "#define DEBUGGING_MSTATS"
4239 $ if "''Using_Gnu_C'" .eqs."Yes"
4241 $ WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
4243 $ if "''Has_Dec_C_Sockets'".eqs."T"
4245 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
4246 $ WRITE CONFIG "#define DECCRTL_SOCKETS"
4248 $ if "''Has_Socketshr'".eqs."T"
4250 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
4252 $! This is VMS-specific for now
4253 $ WRITE CONFIG "#''perl_d_setenv' HAS_SETENV"
4254 $ if d_alwdeftype.eqs."Y"
4256 $ WRITE CONFIG "#define SECURE_INTERNAL_GETENV"
4258 $ WRITE CONFIG "#undef SECURE_INTERNAL_GETENV"
4260 $ if d_secintgenv.eqs."Y"
4262 $ WRITE CONFIG "#define ALWAYS_DEFTYPES"
4264 $ WRITE CONFIG "#undef ALWAYS_DEFTYPES"
4268 $ WRITE CONFIG "#define USE_64_BIT_INT"
4269 $ WRITE CONFIG "#define USE_LONG_DOUBLE"
4273 $ WRITE CONFIG "#define USE_64_BIT_ALL"
4275 $ if be_case_sensitive
4277 $ write config "#define VMS_WE_ARE_CASE_SENSITIVE"
4279 $ WRITE CONFIG "#define HAS_ENVGETENV"
4280 $ WRITE CONFIG "#define PERL_EXTERNAL_GLOB"
4283 $! Now build the normal config.h
4284 $ define/user sys$output [-]config.main
4285 $ mcr []munchconfig [-]config.sh [-]config_h.sh
4286 $ ! Concatenate them together
4287 $ copy [-]config.local,[-]config.main [-]config.h
4289 $ DELETE/NOLOG [-]CONFIG.MAIN;*
4290 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
4291 $ DELETE/NOLOG [-]CONFIG.FDL;*
4293 $ if "''Using_Dec_C'" .eqs."Yes"
4295 $ DECC_REPLACE = "DECC=decc=1"
4297 $ DECC_REPLACE = "DECC="
4299 $ if "''Using_Gnu_C'" .eqs."Yes"
4301 $ GNUC_REPLACE = "GNUC=gnuc=1"
4303 $ GNUC_REPLACE = "GNUC="
4305 $ if "''Has_Dec_C_Sockets'" .eqs."T"
4307 $ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
4309 $ if "''Has_Socketshr'" .eqs."T"
4311 $ SOCKET_REPLACE = "SOCKET=SOCKETSHR_SOCKETS=1"
4313 $ SOCKET_REPLACE = "SOCKET="
4316 $ IF ("''Use_Threads'".eqs."T")
4318 $ if ("''VMS_VER'".LES."6.2")
4320 $ THREAD_REPLACE = "THREAD=OLDTHREADED=1"
4322 $ THREAD_REPLACE = "THREAD=THREADED=1"
4325 $ THREAD_REPLACE = "THREAD="
4327 $ if mymalloc.eqs."Y"
4329 $ MALLOC_REPLACE = "MALLOC=MALLOC=1"
4331 $ MALLOC_REPLACE = "MALLOC="
4333 $ if f$getsyi("HW_MODEL").ge.1024
4335 $ ARCH_TYPE = "ARCH-TYPE=__AXP__"
4337 $ ARCH_TYPE = "ARCH-TYPE=__VAX__"
4339 $ echo "Writing DESCRIP.MMS"
4341 $ define/user sys$output [-]descrip.mms
4342 $ mcr []munchconfig [-]config.sh descrip_mms.template "''DECC_REPLACE'" "''ARCH_TYPE'" "''GNUC_REPLACE'" "''SOCKET_REPLACE'" "''THREAD_REPLACE'" -
4343 "''C_Compiler_Replace'" "''MALLOC_REPLACE'" "''Thread_Live_Dangerously'" "PV=''LocalPerlVer'" "FLAGS=FLAGS=''extra_flags'"
4344 $ echo "Extracting Build_Ext.Com"
4345 $ Create Sys$Disk:[-]Build_Ext.Com
4346 $ Deck/Dollar="$EndOfTpl$"
4348 $! NOTE: This file is extracted as part of the VMS configuration process.
4349 $! Any changes made to it directly will be lost. If you need to make any
4350 $! changes, please edit the template in [.vms]SubConfigure.Com instead.
4351 $ def = F$Environment("Default")
4352 $ exts1 = F$Edit(p1,"Compress")
4353 $ p2 = F$Edit(p2,"Upcase,Compress,Trim")
4354 $ If F$Locate("MCR ",p2).eq.0 Then p2 = F$Extract(3,255,p2)
4355 $ miniperl = "$" + F$Search(F$Parse(p2,".Exe"))
4357 $ if f$type('p3') .nes. "" then makeutil = 'p3'
4358 $ targ = F$Edit(p4,"Lowercase")
4361 $ ext = F$Element(i," ",p1)
4362 $ If ext .eqs. " " Then Goto done
4363 $ Define/User Perl_Env_Tables CLISYM_LOCAL
4365 ($extdir = $ENV{'ext'}) =~ s/::/./g;
4367 if ($extdir =~ /^vms/i) { $extdir =~ s/vms/.vms.ext/i; }
4368 else { $extdir = ".ext.$extdir"; }
4369 ($ENV{'extdir'} = "[$extdir]");
4370 ($ENV{'up'} = ('-') x ($extdir =~ tr/././));
4371 $ Set Default &extdir
4373 $ If F$Locate("clean",targ) .eqs. F$Length(targ)
4375 $ Write Sys$Output "Building ''ext' . . ."
4376 $ On Error Then Goto done
4377 $ If F$Search("Descrip.MMS") .eqs. ""
4381 $ If F$CvTime(F$File("Descrip.MMS","rdt")) .lts. -
4382 F$CvTime(F$File("Makefile.PL","rdt")) Then redesc = 1
4385 $ Write Sys$Output "''targ'ing ''ext' . . ."
4386 $ On Error Then Continue
4389 miniperl "-I[''up'.lib]" Makefile.PL "INST_LIB=[''up'.lib]" "INST_ARCHLIB=[''up'.lib]"
4403 $! Clean up after ourselves
4404 $ delete/nolog munchconfig.exe;*
4405 $ delete/nolog munchconfig.obj;*