1 $! SUBCONFIGURE.COM - build a config.sh for VMS Perl.
3 $! Note for folks from other platforms changing things in here:
4 $! Fancy changes (based on compiler capabilities or VMS version or
5 $! whatever) are tricky, so go ahead and punt on those.
7 $! Simple changes, though (say, always setting something to 1, or undef,
8 $! or something like that) are straightforward. Adding a new item for the
9 $! ultimately created config.sh requires adding two lines to this file.
11 $! First, a line in the format:
13 $! after the line tagged ##ADD NEW CONSTANTS HERE##. Replace foo with the
14 $! variable name as it appears in config.sh.
16 $! Second, add a line in the format:
17 $! $ WC "foo='" + perl_foo + "'"
18 $! after the line tagged ##WRITE NEW CONSTANTS HERE##. Careful of the
19 $! quoting, as it can be tricky.
21 $! This .COM file expects to be called by configure.com, and thus expects
22 $! a few symbols in the environment. Notably:
24 $! One of: Using_Dec_C, Using_Vax_C, Using_Gnu_C set to "YES"
25 $! Dec_C_Version set to the Dec C version (defaults to 0 if not specified)
26 $! Has_Socketshr set to "T" if using socketshr
27 $! Has_Dec_C_Sockets set to "T" if using Dec C sockets
28 $! Use_Threads set to "T" if they're using threads
29 $! C_Compiler_Invoke is the command needed to invoke the C compiler
31 $! Set Dec_C_Version to something
32 $ WRITE_RESULT := "WRITE SYS$OUTPUT ""%CONFIG-I-RESULT "" + "
33 $ echo = "Write Sys$Output "
34 $ Dec_C_Version := "''Dec_C_Version'"
35 $ Dec_C_Version = Dec_C_Version + 0
36 $ Vms_Ver := "''f$extract(1,3, f$getsyi(""version""))'"
37 $ perl_extensions := "''extensions'"
38 $ if f$length(Mcc) .eq. 0 then Mcc := "cc"
39 $ MCC = f$edit(mcc, "UPCASE")
40 $ C_Compiler_Replace := "CC=CC=''Mcc'''CC_flags'"
41 $ if "''Using_Dec_C'" .eqs. "Yes"
43 $ Checkcc := "''Mcc'/prefix=all"
47 $ cc_flags = cc_flags + extra_flags
48 $ if be_case_sensitive
50 $ d_vms_be_case_sensitive = "define"
52 $ d_vms_be_case_sensitive = "undef"
54 $ if use_multiplicity .eqs. "Y"
56 $ perl_usemultiplicity = "define"
58 $ perl_usemultiplicity = "undef"
60 $! Some constant defaults.
62 $ hwname = f$getsyi("HW_NAME")
64 $ if "''myname'" .eqs. "" THEN myname = f$trnlnm("SYS$NODE")
66 $! ##ADD NEW CONSTANTS HERE##
67 $ perl_d_getcwd = "undef"
68 $ perl_d_nv_preserves_uv = "define"
69 $ perl_d_fs_data_s = "undef"
70 $ perl_d_getmnt = "undef"
71 $ perl_d_sqrtl = "define"
72 $ perl_d_statfs_f_flags = "undef"
73 $ perl_d_statfs_s = "undef"
74 $ perl_d_ustat = "undef"
75 $ perl_i_sysstatfs = "undef"
76 $ perl_i_sysvfs = "undef"
77 $ perl_i_ustat = "undef"
78 $ perl_d_llseek="undef"
79 $ perl_d_iconv="undef"
80 $ perl_d_madvise="undef"
81 $ perl_selectminbits=32
82 $ perl_d_msync="undef"
83 $ perl_d_mprotect="undef"
84 $ perl_d_munmap="undef"
85 $ perl_crosscompile="undef"
86 $ perl_multiarch="undef"
88 $ perl_i_sysmman="undef"
89 $ perl_d_telldirproto="define"
90 $ perl_i_sysmount="undef"
91 $ perl_d_bincompat="undef"
92 $ perl_d_endspent="undef
93 $ perl_d_getspent="undef
94 $ perl_d_getspnam="undef
95 $ perl_d_setspent="undef
96 $ perl_d_fstatfs="undef"
97 $ perl_d_getfsstat="undef"
98 $ perl_i_machcthreads="undef"
99 $ perl_i_pthread="define"
100 $ perl_d_fstatvfs="undef"
101 $ perl_usesocks="undef"
102 $ perl_d_vendorlib="undef"
103 $ perl_vendorlibexp=""
104 $ perl_d_statfsflags="undef"
105 $ perl_i_sysstatvfs="undef"
106 $ perl_i_mntent="undef"
107 $ perl_d_getmntent="undef"
108 $ perl_d_hasmntopt="undef"
109 $ perl_package="''package'"
110 $ perl_baserev = "''baserev'"
112 $ perl_installusrbinperl="undef"
114 $ perl_d_fseeko="undef"
115 $ perl_d_ftello="undef"
116 $ perl_d_readv="undef"
117 $ perl_d_writev="undef"
118 $ perl_i_machcthr="undef"
119 $ perl_i_netdb="undef"
120 $ perl_d_gnulibc="undef"
121 $ perl_cf_by="unknown"
125 $ perl_drand01 = "drand48()"
126 $ perl_randseedtype = "long int"
127 $ perl_seedfunc = "srand48"
128 $ perl_d_msg_ctrunc = "undef"
129 $ perl_d_msg_dontroute = "undef"
130 $ perl_d_msg_oob = "undef"
131 $ perl_d_msg_peek = "undef"
132 $ perl_d_msg_proxy = "undef"
133 $ perl_d_scm_rights = "undef"
134 $ perl_d_sendmsg = "undef"
135 $ perl_d_recvmsg = "undef"
136 $ perl_d_msghdr_s = "undef"
137 $ perl_d_cmsghdr_s = "undef"
140 $ perl_use64bitint = "define"
141 $ perl_uselargefiles = "define"
142 $ perl_uselongdouble = "define"
143 $ perl_usemorebits = "define"
145 $ perl_use64bitint = "undef"
146 $ perl_uselargefiles = "undef"
147 $ perl_uselongdouble = "undef"
148 $ perl_usemorebits = "undef"
152 $ perl_use64bitall = "define"
154 $ perl_use64bitall = "undef"
156 $ perl_d_drand48proto = "define"
157 $ perl_d_lseekproto = "define"
158 $ perl_libpth="/sys$share /sys$library"
160 $ perl_lddlflags="/Share"
166 $ perl_i_arpainet="undef"
167 $ perl_d_grpasswd="undef"
168 $ perl_d_setgrent="undef"
169 $ perl_d_getgrent="define"
170 $ perl_d_endgrent="define"
171 $ perl_d_pwpasswd="define"
172 $ perl_d_setpwent="define"
173 $ perl_d_getpwent="define"
174 $ perl_d_endpwent="define"
175 $ perl_d_phostname="undef"
176 $ perl_d_accessx="undef"
177 $ perl_d_eaccess="undef"
178 $ perl_ebcdic="undef"
180 $ perl_shrplib="define"
181 $ perl_usemymalloc=mymalloc
182 $ perl_usevfork="true"
183 $ perl_useposix="false"
184 $ perl_spitshell="write sys$output "
185 $ perl_dlsrc="dl_vms.c"
188 $ perl_prefix="perl_root"
189 $ perl_binexp="''perl_prefix':[000000]"
190 $ perl_builddir="''perl_prefix':[000000]"
191 $ perl_installbin="''perl_prefix':[000000]"
192 $ perl_installscript="''perl_prefix':[utils]"
193 $ perl_installman1dir="''perl_prefix':[man.man1]"
194 $ perl_installman3dir="''perl_prefix':[man.man3]"
195 $ perl_installprivlib="''perl_prefix':[lib]"
196 $ perl_installsitelib="''perl_prefix':[lib.site_perl]"
199 $ perl_d_sockpair="undef"
200 $ perl_i_neterrno="define"
201 $ perl_ldflags="/NoTrace/NoMap"
202 $ perl_d_lchown="undef"
203 $ perl_d_mknod="undef"
204 $ perl_d_union_semun="undef"
205 $ perl_d_semctl_semun="undef"
206 $ perl_d_semctl_semid_ds="undef"
207 $ IF (sharedperl.EQS."Y" .AND. F$GETSYI("HW_MODEL").GE.1024)
209 $ perl_obj_ext=".abj"
212 $ perl_exe_ext=".axe"
213 $ perl_lib_ext=".alb"
215 $ perl_obj_ext=".obj"
218 $ perl_exe_ext=".exe"
219 $ perl_lib_ext=".olb"
221 $ perl_dlobj="dl_vms''perl_obj_ext'"
223 $ perl_d_archlib="define"
224 $ perl_d_bincompat3="undef"
225 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
227 $ perl_d_castneg="define"
229 $ perl_d_chsize="undef"
230 $ perl_d_const="define"
231 $ perl_d_crypt="define"
232 $ perl_byteorder="1234"
235 $ perl_d_dup2="define"
236 $ perl_d_fchmod="undef"
237 $ perl_d_fchown="undef"
238 $ perl_d_fcntl="undef"
239 $ perl_d_fgetpos="define"
240 $ perl_d_flexfnam="define"
241 $ perl_d_flock="undef"
242 $ perl_d_fsetpos="define"
243 $ perl_d_getgrps="undef"
244 $ perl_d_setgrps="undef"
245 $ perl_d_getprior="undef"
246 $ perl_d_killpg="undef"
247 $ perl_d_link="undef"
248 $ perl_d_lstat="undef"
249 $ perl_d_lockf="undef"
250 $ perl_d_memcmp="define"
251 $ perl_d_memcpy="define"
252 $ perl_d_memmove="define"
253 $ perl_d_memset="define"
254 $ perl_d_mkdir="define"
256 $ perl_d_open3="define"
257 $ perl_d_poll="undef"
258 $ perl_d_readdir="define"
259 $ perl_d_seekdir="define"
260 $ perl_d_telldir="define"
261 $ perl_d_rewinddir="define"
262 $ perl_d_rename="define"
263 $ perl_d_rmdir="define"
265 $ perl_d_setegid="undef"
266 $ perl_d_seteuid="undef"
267 $ perl_d_setprior="undef"
268 $ perl_d_setregid="undef"
269 $ perl_d_setresgid="undef"
270 $ perl_d_setreuid="undef"
271 $ perl_d_setresuid="undef"
272 $ perl_d_setrgid="undef"
273 $ perl_d_setruid="undef"
274 $ perl_d_setsid="undef"
276 $ perl_d_shmatprototype="undef"
277 $ perl_d_statblks="undef"
278 $ perl_stdio_ptr="((*fp)->_ptr)"
279 $ perl_stdio_cnt="((*fp)->_cnt)"
280 $ perl_stdio_base="((*fp)->_base)"
281 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
282 $ perl_d_strctcpy="define"
283 $ perl_d_strerror="define"
284 $ perl_d_syserrlst="undef"
285 $ perl_d_strerrm="strerror((e),vaxc$errno)"
286 $ perl_d_symlink="undef"
287 $ perl_d_syscall="undef"
288 $ perl_d_system="define"
289 $ perl_timetype="time_t"
290 $ perl_d_vfork="define"
291 $ perl_signal_t="void"
292 $ perl_d_volatile="define"
293 $ perl_d_vprintf="define"
294 $ perl_d_charvspr="undef"
295 $ perl_d_waitpid="define"
296 $ perl_i_dirent="undef"
297 $ perl_d_dirnamlen="define"
298 $ perl_direntrytype="struct dirent"
299 $ perl_i_fcntl="undef"
301 $ perl_i_limits="define"
302 $ perl_i_memory="undef"
303 $ perl_i_ndbm="undef"
304 $ perl_i_stdarg="define"
306 $ perl_d_pwquota="undef"
307 $ perl_d_pwage="undef"
308 $ perl_d_pwchange="undef"
309 $ perl_d_pwclass="undef"
310 $ perl_d_pwexpire="undef"
311 $ perl_d_pwcomment="define"
312 $ perl_i_stddef="define"
313 $ perl_i_stdlib="define"
314 $ perl_i_string="define"
315 $ perl_i_sysdir="undef"
316 $ perl_i_sysfile="undef"
317 $ perl_i_sysioctl="undef"
318 $ perl_i_sysndir="undef"
319 $ perl_i_sysresrc="undef"
320 $ perl_i_sysselct="undef"
322 $ perl_i_rpcsvcdbm="undef"
323 $ perl_i_sfio="undef"
324 $ perl_i_sysstat="define"
325 $ perl_i_systimes="undef"
326 $ perl_i_systypes="define"
327 $ perl_i_sysun="undef"
328 $ perl_i_syswait="undef"
329 $ perl_i_termio="undef"
330 $ perl_i_sgtty="undef"
331 $ perl_i_termios="undef"
332 $ perl_i_time="define"
333 $ perl_i_systime="undef"
334 $ perl_i_systimek="undef"
335 $! perl_i_unistd="undef"
336 $ perl_i_utime="undef"
337 $ perl_i_varargs="undef"
338 $ perl_i_vfork="undef"
339 $ perl_prototype="define"
341 $ perl_stdchar="char"
342 $ perl_d_unlink_all_versions="undef"
343 $ perl_full_sed="_NLA0:"
344 $ perl_bin="/''perl_prefix'/000000"
345 $ perl_binexp="''perl_prefix':[000000]"
346 $ perl_d_alarm="define"
347 $ perl_d_casti32="define"
348 $ perl_d_chown="define"
349 $ perl_d_chroot="undef"
350 $ perl_d_cuserid="define"
351 $ perl_d_dbl_dig="define"
352 $ perl_d_ldbl_dig="define"
353 $ perl_d_difftime="define"
354 $ perl_d_fork="undef"
355 $ perl_d_getlogin="define"
356 $ perl_d_getppid="undef"
357 $ perl_d_nice="define"
358 $ perl_d_pause="define"
359 $ perl_d_pipe="define"
360 $ perl_d_readlink="undef"
361 $ perl_d_setlinebuf="undef"
362 $ perl_d_strchr="define"
363 $ perl_d_strtod="define"
364 $ perl_d_strtol="define"
365 $ perl_d_strtoul="define"
366 $ perl_d_tcgetpgrp="undef"
367 $ perl_d_tcsetpgrp="undef"
368 $ perl_d_times="define"
369 $ perl_d_tzname="undef"
370 $ perl_d_umask="define"
371 $ perl_fpostype="fpos_t"
372 $ perl_i_dlfcn="undef"
373 $ perl_i_float="define"
374 $ perl_i_math="define"
375 $ perl_lseektype="int"
376 $ perl_i_values="undef"
377 $ perl_malloctype="void *"
378 $ perl_freetype="void"
379 $ if "''mymalloc'".eqs."Y"
381 $ perl_d_mymalloc="define"
383 $ perl_d_mymalloc="undef"
386 $ perl_modetype="unsigned int"
387 $ perl_ssizetype="int"
388 $ perl_o_nonblock=" "
391 $ perl_d_eofnblk="undef"
392 $ perl_d_oldarchlib="define"
393 $ perl_privlibexp="''perl_prefix':[lib]"
394 $ perl_privlib="''perl_prefix':[lib]"
395 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
396 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
397 $ perl_sizetype="size_t"
398 $ perl_i_sysparam="undef"
399 $ perl_d_void_closedir="define"
400 $ perl_d_dlerror="undef"
401 $ perl_d_dlsymun="undef"
402 $ perl_d_suidsafe="undef"
403 $ perl_d_dosuid="undef"
404 $ perl_d_inetaton="undef"
405 $ perl_d_isascii="define"
406 $ perl_d_mkfifo="undef"
407 $ perl_d_safebcpy="undef"
408 $ perl_d_safemcpy="define"
409 $ perl_d_sanemcmp="define"
410 $ perl_d_setpgrp="undef"
411 $ perl_d_bsdsetpgrp="undef"
412 $ perl_d_bsdpgrp="undef"
413 $ perl_d_setpgid="undef"
414 $ perl_d_setpgrp2="undef"
415 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
416 $ perl_d_getpgid="undef"
417 $ perl_d_getpgrp="undef"
418 $ perl_d_bsdgetpgrp="undef"
419 $ perl_d_getpgrp2="undef"
420 $ perl_d_sfio="undef"
421 $ perl_usedl="define"
422 $ perl_startperl="""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ + ++$status != 0 and $exit = $status = undef;"""
423 $ perl_db_hashtype=" "
424 $ perl_db_prefixtype=" "
425 $ perl_useperlio="undef"
426 $ perl_defvoidused="15"
427 $ perl_voidflags="15"
428 $ perl_d_eunice="undef"
429 $ perl_d_pwgecos="define"
430 $ IF ("''Use_Threads'".eqs."T").and.("''VMS_VER'".LES."6.2")
432 $ 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"
436 $ IF ("''Using_Dec_C'".eqs."Yes")
438 $ perl_libc="(DECCRTL)"
442 $ perl_PATCHLEVEL="''patchlevel'"
443 $ perl_SUBVERSION="''subversion'"
450 $ perl_d_PRIfldbl = "define"
451 $ perl_d_PRIgldbl = "define"
452 $ perl_d_PRId64 = "define"
453 $ perl_d_PRIu64 = "define"
454 $ perl_d_PRIo64 = "define"
455 $ perl_d_PRIx64 = "define"
456 $ perl_sPRIfldbl = """Lf"""
457 $ perl_sPRIgldbl = """Lg"""
458 $ perl_sPRId64 = """Ld"""
459 $ perl_sPRIu64 = """Lu"""
460 $ perl_sPRIo64 = """Lo"""
461 $ perl_sPRIx64 = """Lx"""
462 $ perl_d_quad = "define"
463 $ perl_quadtype = "long long"
464 $ perl_uquadtype = "unsigned long long"
466 $ perl_d_PRIfldbl = "undef"
467 $ perl_d_PRIgldbl = "undef"
468 $ perl_d_PRId64 = "undef"
469 $ perl_d_PRIu64 = "undef"
470 $ perl_d_PRIo64 = "undef"
471 $ perl_d_PRIx64 = "undef"
472 $ perl_sPRIfldbl = ""
473 $ perl_sPRIgldbl = ""
478 $ perl_d_quad = "undef"
481 $! Now some that we build up
483 $ LocalTime = f$time()
484 $ perl_cf_time= f$extract(0, 3, f$cvtime(LocalTime,, "WEEKDAY")) + " " + -
485 f$edit(f$cvtime(LocalTime, "ABSOLUTE", "MONTH"), "LOWERCASE") + -
486 " " + f$cvtime(LocalTime,, "DAY") + " " + f$cvtime(LocalTime,, "TIME") + -
487 " " + f$cvtime(LocalTime,, "YEAR")
488 $ if f$getsyi("HW_MODEL").ge.1024
490 $ perl_arch="VMS_AXP"
491 $ perl_archname="VMS_AXP"
492 $ perl_alignbytes="8"
494 $ perl_arch="VMS_VAX"
495 $ perl_archname="VMS_VAX"
496 $ perl_alignbytes="8"
498 $ if ("''Use_Threads'".eqs."T")
500 $ if use_5005_threads
502 $ perl_arch = "''perl_arch'-thread"
503 $ perl_archname = "''perl_archname'-thread"
504 $ perl_d_old_pthread_create_joinable = "undef"
505 $ perl_old_pthread_create_joinable = " "
506 $ perl_use5005threads = "define"
507 $ perl_useithreads = "undef"
509 $ perl_arch = "''perl_arch'-ithread"
510 $ perl_archname = "''perl_archname'-ithread"
511 $ perl_d_old_pthread_create_joinable = "undef"
512 $ perl_old_pthread_create_joinable = " "
513 $ perl_use5005threads = "undef"
514 $ perl_useithreads = "define"
517 $ perl_d_old_pthread_create_joinable = "undef"
518 $ perl_old_pthread_create_joinable = " "
519 $ perl_use5005threads = "undef"
520 $ perl_useithreads = "undef"
522 $ perl_osvers=f$edit(osvers, "TRIM")
523 $ if (perl_subversion + 0).eq.0
525 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL
527 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion
530 $! Some that we need to invoke the compiler for
531 $ OS := "open/write SOURCECHAN []temp.c"
532 $ WS := "write SOURCECHAN"
533 $ CS := "close SOURCECHAN"
534 $ DS := "delete/nolog []temp.*;*"
536 $ if ("''using_vax_c'".eqs."Yes").or.("''using_gnu_c'".eqs."Yes")
538 $ open/write OPTCHAN []temp.opt
539 $ IF ("''using_gnu_c'".eqs."Yes")
541 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
543 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
548 $! Check for __STDC__
552 $ WS "#include <stdlib.h>
554 $ WS "#include <stdio.h>
557 $ WS "#ifdef __STDC__
558 $ WS "printf(""42\n"");
560 $ WS "printf(""1\n"");
565 $ DEFINE SYS$ERROR _NLA0:
566 $ DEFINE SYS$OUTPUT _NLA0:
567 $ ON ERROR THEN CONTINUE
568 $ ON WARNING THEN CONTINUE
570 $ If (Needs_Opt.eqs."Yes")
572 $ link temp.obj,temp.opt/opt
576 $ DEASSIGN SYS$OUTPUT
578 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
579 $ DEFINE SYS$ERROR TEMPOUT
580 $ DEFINE SYS$OUTPUT TEMPOUT
583 $ DEASSIGN SYS$OUTPUT
585 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
588 $ DELETE/NOLOG [-.uu]tempout.lis;
590 $ perl_cpp_stuff=line
591 $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
593 $! Check for double size
597 $ WS "#include <stdlib.h>
599 $ WS "#include <stdio.h>
603 $ WS "foo = sizeof(double);
604 $ WS "printf(""%d\n"", foo);
608 $ DEFINE SYS$ERROR _NLA0:
609 $ DEFINE SYS$OUTPUT _NLA0:
610 $ ON ERROR THEN CONTINUE
611 $ ON WARNING THEN CONTINUE
613 $ If (Needs_Opt.eqs."Yes")
615 $ link temp.obj,temp.opt/opt
619 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
620 $ DEASSIGN SYS$OUTPUT
622 $ DEFINE SYS$ERROR TEMPOUT
623 $ DEFINE SYS$OUTPUT TEMPOUT
626 $ DEASSIGN SYS$OUTPUT
628 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
631 $ DELETE/NOLOG [-.uu]tempout.lis;
633 $ perl_doublesize=line
634 $ WRITE_RESULT "doublesize is ''perl_doublesize'"
636 $! Check for long double size
640 $ WS "#include <stdlib.h>
642 $ WS "#include <stdio.h>
645 $ WS "printf(""%d\n"", sizeof(long double));
649 $ DEFINE SYS$ERROR _NLA0:
650 $ DEFINE SYS$OUTPUT _NLA0:
651 $ ON ERROR THEN CONTINUE
652 $ ON WARNING THEN CONTINUE
654 $ teststatus = f$extract(9,1,$status)
655 $ if (teststatus.nes."1")
657 $ perl_longdblsize="0"
658 $ perl_d_longdbl="undef"
660 $ ON ERROR THEN CONTINUE
661 $ ON WARNING THEN CONTINUE
662 $ If (Needs_Opt.eqs."Yes")
664 $ link temp.obj,temp.opt/opt
668 $ teststatus = f$extract(9,1,$status)
669 $ DEASSIGN SYS$OUTPUT
671 $ if (teststatus.nes."1")
673 $ perl_longdblsize="0"
674 $ perl_d_longdbl="undef"
676 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
677 $ DEFINE SYS$ERROR TEMPOUT
678 $ DEFINE SYS$OUTPUT TEMPOUT
681 $ DEASSIGN SYS$OUTPUT
683 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
686 $ DELETE/NOLOG [-.uu]tempout.lis;
688 $ perl_longdblsize=line
689 $ perl_d_longdbl="define"
692 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
693 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
695 $! Check for long long existance and size
699 $ WS "#include <stdlib.h>
701 $ WS "#include <stdio.h>
704 $ WS "printf(""%d\n"", sizeof(long long));
708 $ DEFINE SYS$ERROR _NLA0:
709 $ DEFINE SYS$OUTPUT _NLA0:
710 $ on error then continue
711 $ on warning then continue
713 $ If (Needs_Opt.eqs."Yes")
715 $ link temp.obj,temp.opt/opt
719 $ teststatus = f$extract(9,1,$status)
720 $ DEASSIGN SYS$OUTPUT
722 $ if (teststatus.nes."1")
724 $ perl_longlongsize="0"
725 $ perl_d_longlong="undef"
727 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
728 $ DEFINE SYS$ERROR TEMPOUT
729 $ DEFINE SYS$OUTPUT TEMPOUT
732 $ DEASSIGN SYS$OUTPUT
734 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
737 $ DELETE/NOLOG [-.uu]tempout.lis;
738 $ perl_longlongsize=line
739 $ perl_d_longlong="define"
741 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
742 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
744 $! Check the prototype for getgid
748 $ WS "#include <stdlib.h>
750 $ WS "#include <stdio.h>
751 $ WS "#include <types.h>
752 $ WS "#include <unistd.h>
759 $ DEFINE SYS$ERROR _NLA0:
760 $ DEFINE SYS$OUTPUT _NLA0:
761 $ on error then continue
762 $ on warning then continue
764 $ teststatus = f$extract(9,1,$status)
765 $ DEASSIGN SYS$OUTPUT
767 $ if (teststatus.nes."1")
769 $! Okay, gid_t failed. Must be unsigned int
770 $ perl_gidtype = "unsigned int"
772 $ perl_gidtype = "gid_t"
774 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
776 $! Check to see if we've got dev_t
780 $ WS "#include <stdlib.h>
782 $ WS "#include <stdio.h>
783 $ WS "#include <types.h>
784 $ WS "#include <unistd.h>
791 $ DEFINE SYS$ERROR _NLA0:
792 $ DEFINE SYS$OUTPUT _NLA0:
793 $ on error then continue
794 $ on warning then continue
796 $ teststatus = f$extract(9,1,$status)
797 $ DEASSIGN SYS$OUTPUT
799 $ if (teststatus.nes."1")
801 $! Okay, dev_t failed. Must be unsigned int
802 $ perl_devtype = "unsigned int"
804 $ perl_devtype = "dev_t"
806 $ WRITE_RESULT "Dev_t is ''perl_devtype'"
808 $! Check to see if we've got unistd.h (which we ought to, but you never know)
812 $ WS "#include <stdlib.h>
814 $ WS "#include <unistd.h>
820 $ DEFINE SYS$ERROR _NLA0:
821 $ DEFINE SYS$OUTPUT _NLA0:
822 $ on error then continue
823 $ on warning then continue
825 $ teststatus = f$extract(9,1,$status)
826 $ DEASSIGN SYS$OUTPUT
828 $ if (teststatus.nes."1")
830 $! Okay, failed. Must not have it
831 $ perl_i_unistd = "undef"
833 $ perl_i_unistd = "define"
836 $ WRITE_RESULT "i_unistd is ''perl_i_unistd'"
838 $! Check to see if we've got shadow.h (probably not, but...)
842 $ WS "#include <stdlib.h>
844 $ WS "#include <shadow.h>
850 $ DEFINE SYS$ERROR _NLA0:
851 $ DEFINE SYS$OUTPUT _NLA0:
852 $ on error then continue
853 $ on warning then continue
855 $ teststatus = f$extract(9,1,$status)
856 $ DEASSIGN SYS$OUTPUT
858 $ if (teststatus.nes."1")
860 $! Okay, failed. Must not have it
861 $ perl_i_shadow = "undef"
863 $ perl_i_shadow = "define"
866 $ WRITE_RESULT "i_shadow is ''perl_i_shadow'"
868 $! Check to see if we've got socks.h (probably not, but...)
872 $ WS "#include <stdlib.h>
874 $ WS "#include <socks.h>
880 $ DEFINE SYS$ERROR _NLA0:
881 $ DEFINE SYS$OUTPUT _NLA0:
882 $ on error then continue
883 $ on warning then continue
885 $ teststatus = f$extract(9,1,$status)
886 $ DEASSIGN SYS$OUTPUT
888 $ if (teststatus.nes."1")
890 $! Okay, failed. Must not have it
891 $ perl_i_socks = "undef"
893 $ perl_i_socks = "define"
896 $ WRITE_RESULT "i_socks is ''perl_i_socks'"
898 $! Check the prototype for select
900 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
904 $ WS "#include <stdlib.h>
906 $ WS "#include <stdio.h>
907 $ WS "#include <types.h>
908 $ WS "#include <unistd.h>
909 $ if ("''Has_Socketshr'".eqs."T")
911 $ WS "#include <socketshr.h>"
913 $ WS "#include <time.h>
914 $ WS "#include <socket.h>
921 $ WS "bar = select(2, foo, foo, foo, NULL);
925 $ DEFINE SYS$ERROR _NLA0:
926 $ DEFINE SYS$OUTPUT _NLA0:
927 $ on error then continue
928 $ on warning then continue
930 $ teststatus = f$extract(9,1,$status)
931 $ DEASSIGN SYS$OUTPUT
933 $ if (teststatus.nes."1")
935 $! Okay, fd_set failed. Must be an int
936 $ perl_selecttype = "int *"
938 $ perl_selecttype="fd_set *"
941 $ ! No sockets, so stick in an int *
942 $ perl_selecttype = "int *"
944 $ WRITE_RESULT "selectype is ''perl_selecttype'"
946 $! Check to see if fd_set exists
950 $ WS "#include <stdlib.h>
952 $ WS "#include <stdio.h>
953 $ WS "#include <types.h>
954 $ WS "#include <unistd.h>
955 $ if ("''Has_Socketshr'".eqs."T")
957 $ WS "#include <socketshr.h>"
959 $ IF ("''Has_Dec_C_Sockets'".eqs."T")
961 $ WS "#include <time.h>
962 $ WS "#include <socket.h>
971 $ DEFINE SYS$ERROR _NLA0:
972 $ DEFINE SYS$OUTPUT _NLA0:
973 $ on error then continue
974 $ on warning then continue
976 $ teststatus = f$extract(9,1,$status)
977 $ DEASSIGN SYS$OUTPUT
979 $ if (teststatus.nes."1")
981 $! Okay, fd_set failed. Must not exist
982 $ perl_d_fd_set = "undef"
984 $ perl_d_fd_set="define"
986 $ WRITE_RESULT "d_fd_set is ''perl_d_fd_set'"
988 $! Check for inttypes.h
992 $ WS "#include <stdlib.h>
994 $ WS "#include <stdio.h>
995 $ WS "#include <unistd.h>
996 $ WS "#include <inttypes.h>
1002 $ DEFINE SYS$ERROR _NLA0:
1003 $ DEFINE SYS$OUTPUT _NLA0:
1004 $ on error then continue
1005 $ on warning then continue
1007 $ savedstatus = $status
1008 $ teststatus = f$extract(9,1,savedstatus)
1009 $ if (teststatus.nes."1")
1011 $ perl_i_inttypes="undef"
1012 $ DEASSIGN SYS$OUTPUT
1013 $ DEASSIGN SYS$ERROR
1015 $ If (Needs_Opt.eqs."Yes")
1017 $ link temp.obj,temp.opt/opt
1021 $ savedstatus = $status
1022 $ teststatus = f$extract(9,1,savedstatus)
1023 $ DEASSIGN SYS$OUTPUT
1024 $ DEASSIGN SYS$ERROR
1025 $ if (teststatus.nes."1")
1027 $ perl_i_inttypes="undef"
1029 $ perl_i_inttypes="define"
1032 $ WRITE_RESULT "i_inttypes is ''perl_i_inttypes'"
1034 $! Check to see if int64_t exists
1038 $ WS "#include <stdlib.h>
1040 $ WS "#include <stdio.h>
1041 $ WS "#include <types.h>
1042 $ WS "#''perl_i_inttypes IIH
1044 $ WS "#include <inttypes.h>
1046 $ WS "#include <unistd.h>
1053 $ DEFINE SYS$ERROR _NLA0:
1054 $ DEFINE SYS$OUTPUT _NLA0:
1055 $ on error then continue
1056 $ on warning then continue
1058 $ teststatus = f$extract(9,1,$status)
1059 $ DEASSIGN SYS$OUTPUT
1060 $ DEASSIGN SYS$ERROR
1061 $ if (teststatus.nes."1")
1063 $! Okay, int64_t failed. Must not exist
1064 $ perl_d_int64_t = "undef"
1066 $ perl_d_int64_t="define"
1068 $ WRITE_RESULT "d_int64_t is ''perl_d_int64_t'"
1070 $! Check to see if off64_t exists
1074 $ WS "#include <stdlib.h>
1076 $ WS "#include <stdio.h>
1077 $ WS "#include <types.h>
1078 $ WS "#''perl_i_inttypes IIH
1080 $ WS "#include <inttypes.h>
1082 $ WS "#include <unistd.h>
1089 $ DEFINE SYS$ERROR _NLA0:
1090 $ DEFINE SYS$OUTPUT _NLA0:
1091 $ on error then continue
1092 $ on warning then continue
1094 $ teststatus = f$extract(9,1,$status)
1095 $ DEASSIGN SYS$OUTPUT
1096 $ DEASSIGN SYS$ERROR
1097 $ if (teststatus.nes."1")
1099 $! Okay, off64_t failed. Must not exist
1100 $ perl_d_off64_t = "undef"
1102 $ perl_d_off64_t="define"
1104 $ WRITE_RESULT "d_off64_t is ''perl_d_off64_t'"
1106 $! Check to see if fpos64_t exists
1110 $ WS "#include <stdlib.h>
1112 $ WS "#include <stdio.h>
1113 $ WS "#include <types.h>
1114 $ WS "#''perl_i_inttypes IIH
1116 $ WS "#include <inttypes.h>
1118 $ WS "#include <unistd.h>
1125 $ DEFINE SYS$ERROR _NLA0:
1126 $ DEFINE SYS$OUTPUT _NLA0:
1127 $ on error then continue
1128 $ on warning then continue
1130 $ teststatus = f$extract(9,1,$status)
1131 $ DEASSIGN SYS$OUTPUT
1132 $ DEASSIGN SYS$ERROR
1133 $ if (teststatus.nes."1")
1135 $! Okay, fpos64_t failed. Must not exist
1136 $ perl_d_fpos64_t = "undef"
1138 $ perl_d_fpos64_t="define"
1140 $ WRITE_RESULT "d_fpos64_t is ''perl_d_fpos64_t'"
1142 $! Check to see if gethostname exists
1144 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1148 $ WS "#include <stdlib.h>
1150 $ WS "#include <stdio.h>
1151 $ WS "#include <types.h>
1152 $ WS "#include <unistd.h>
1153 $ if ("''Has_Socketshr'".eqs."T")
1155 $ WS "#include <socketshr.h>"
1157 $ WS "#include <time.h>
1158 $ WS "#include <socket.h>
1162 $ WS "char name[100];
1165 $ WS "baz = gethostname(name, bar);
1169 $ DEFINE SYS$ERROR _NLA0:
1170 $ DEFINE SYS$OUTPUT _NLA0:
1171 $ on error then continue
1172 $ on warning then continue
1174 $ teststatus = f$extract(9,1,$status)
1175 $ DEASSIGN SYS$OUTPUT
1176 $ DEASSIGN SYS$ERROR
1177 $ if (teststatus.nes."1")
1179 $! Okay, compile failed. Must not have it
1180 $ perl_dgethname = "undef"
1182 $ If (Needs_Opt.eqs."Yes")
1184 $ link temp.obj,temp.opt/opt
1188 $ savedstatus = $status
1189 $ teststatus = f$extract(9,1,savedstatus)
1190 $ if (teststatus.nes."1")
1192 $ perl_d_gethname="undef"
1194 $ perl_d_gethname="define"
1198 $ ! No sockets, so no gethname
1199 $ perl_d_gethname = "undef"
1201 $ WRITE_RESULT "d_gethname is ''perl_d_gethname'"
1203 $! Check for sys/file.h
1207 $ WS "#include <stdlib.h>
1209 $ WS "#include <stdio.h>
1210 $ WS "#include <unistd.h>
1211 $ WS "#include <sys/file.h>
1217 $ DEFINE SYS$ERROR _NLA0:
1218 $ DEFINE SYS$OUTPUT _NLA0:
1219 $ on error then continue
1220 $ on warning then continue
1222 $ savedstatus = $status
1223 $ teststatus = f$extract(9,1,savedstatus)
1224 $ if (teststatus.nes."1")
1226 $ perl_i_sysfile="undef"
1227 $ DEASSIGN SYS$OUTPUT
1228 $ DEASSIGN SYS$ERROR
1230 $ If (Needs_Opt.eqs."Yes")
1232 $ link temp.obj,temp.opt/opt
1236 $ savedstatus = $status
1237 $ teststatus = f$extract(9,1,savedstatus)
1238 $ DEASSIGN SYS$OUTPUT
1239 $ DEASSIGN SYS$ERROR
1240 $ if (teststatus.nes."1")
1242 $ perl_i_sysfile="undef"
1244 $ perl_i_sysfile="define"
1247 $ WRITE_RESULT "i_sysfile is ''perl_i_sysfile'"
1249 $! Check for sys/utsname.h
1253 $ WS "#include <stdlib.h>
1255 $ WS "#include <stdio.h>
1256 $ WS "#include <unistd.h>
1257 $ WS "#include <sys/utsname.h>
1263 $ DEFINE SYS$ERROR _NLA0:
1264 $ DEFINE SYS$OUTPUT _NLA0:
1265 $ on error then continue
1266 $ on warning then continue
1268 $ savedstatus = $status
1269 $ teststatus = f$extract(9,1,savedstatus)
1270 $ if (teststatus.nes."1")
1272 $ perl_i_sysutsname="undef"
1273 $ DEASSIGN SYS$OUTPUT
1274 $ DEASSIGN SYS$ERROR
1276 $ If (Needs_Opt.eqs."Yes")
1278 $ link temp.obj,temp.opt/opt
1282 $ savedstatus = $status
1283 $ teststatus = f$extract(9,1,savedstatus)
1284 $ DEASSIGN SYS$OUTPUT
1285 $ DEASSIGN SYS$ERROR
1286 $ if (teststatus.nes."1")
1288 $ perl_i_sysutsname="undef"
1290 $ perl_i_sysutsname="define"
1293 $ WRITE_RESULT "i_sysutsname is ''perl_i_sysutsname'"
1295 $! Check for syslog.h
1299 $ WS "#include <stdlib.h>
1301 $ WS "#include <stdio.h>
1302 $ WS "#include <unistd.h>
1303 $ WS "#include <syslog.h>
1309 $ DEFINE SYS$ERROR _NLA0:
1310 $ DEFINE SYS$OUTPUT _NLA0:
1311 $ on error then continue
1312 $ on warning then continue
1314 $ savedstatus = $status
1315 $ teststatus = f$extract(9,1,savedstatus)
1316 $ if (teststatus.nes."1")
1318 $ perl_i_syslog="undef"
1319 $ DEASSIGN SYS$OUTPUT
1320 $ DEASSIGN SYS$ERROR
1322 $ If (Needs_Opt.eqs."Yes")
1324 $ link temp.obj,temp.opt/opt
1328 $ savedstatus = $status
1329 $ teststatus = f$extract(9,1,savedstatus)
1330 $ DEASSIGN SYS$OUTPUT
1331 $ DEASSIGN SYS$ERROR
1332 $ if (teststatus.nes."1")
1334 $ perl_i_syslog="undef"
1336 $ perl_i_syslog="define"
1339 $ WRITE_RESULT "i_syslog is ''perl_i_syslog'"
1345 $ WS "#include <stdlib.h>
1347 $ WS "#include <stdio.h>
1348 $ WS "#include <unistd.h>
1349 $ WS "#include <poll.h>
1355 $ DEFINE SYS$ERROR _NLA0:
1356 $ DEFINE SYS$OUTPUT _NLA0:
1357 $ on error then continue
1358 $ on warning then continue
1360 $ savedstatus = $status
1361 $ teststatus = f$extract(9,1,savedstatus)
1362 $ if (teststatus.nes."1")
1364 $ perl_i_poll="undef"
1365 $ DEASSIGN SYS$OUTPUT
1366 $ DEASSIGN SYS$ERROR
1368 $ If (Needs_Opt.eqs."Yes")
1370 $ link temp.obj,temp.opt/opt
1374 $ savedstatus = $status
1375 $ teststatus = f$extract(9,1,savedstatus)
1376 $ DEASSIGN SYS$OUTPUT
1377 $ DEASSIGN SYS$ERROR
1378 $ if (teststatus.nes."1")
1380 $ perl_i_poll="undef"
1382 $ perl_i_poll="define"
1385 $ WRITE_RESULT "i_poll is ''perl_i_poll'"
1387 $! Check for sys/uio.h
1391 $ WS "#include <stdlib.h>
1393 $ WS "#include <stdio.h>
1394 $ WS "#include <unistd.h>
1395 $ WS "#include <sys/uio.h>
1401 $ DEFINE SYS$ERROR _NLA0:
1402 $ DEFINE SYS$OUTPUT _NLA0:
1403 $ on error then continue
1404 $ on warning then continue
1406 $ savedstatus = $status
1407 $ teststatus = f$extract(9,1,savedstatus)
1408 $ if (teststatus.nes."1")
1410 $ perl_i_sysuio="undef"
1411 $ DEASSIGN SYS$OUTPUT
1412 $ DEASSIGN SYS$ERROR
1414 $ If (Needs_Opt.eqs."Yes")
1416 $ link temp.obj,temp.opt/opt
1420 $ savedstatus = $status
1421 $ teststatus = f$extract(9,1,savedstatus)
1422 $ DEASSIGN SYS$OUTPUT
1423 $ DEASSIGN SYS$ERROR
1424 $ if (teststatus.nes."1")
1426 $ perl_i_sysuio="undef"
1428 $ perl_i_sysuio="define"
1431 $ WRITE_RESULT "i_sysuio is ''perl_i_sysuio'"
1433 $! Check for sys/mode.h
1437 $ WS "#include <stdlib.h>
1439 $ WS "#include <stdio.h>
1440 $ WS "#include <unistd.h>
1441 $ WS "#include <sys/mode.h>
1447 $ DEFINE SYS$ERROR _NLA0:
1448 $ DEFINE SYS$OUTPUT _NLA0:
1449 $ on error then continue
1450 $ on warning then continue
1452 $ savedstatus = $status
1453 $ teststatus = f$extract(9,1,savedstatus)
1454 $ if (teststatus.nes."1")
1456 $ perl_i_sysmode="undef"
1457 $ DEASSIGN SYS$OUTPUT
1458 $ DEASSIGN SYS$ERROR
1460 $ If (Needs_Opt.eqs."Yes")
1462 $ link temp.obj,temp.opt/opt
1466 $ savedstatus = $status
1467 $ teststatus = f$extract(9,1,savedstatus)
1468 $ DEASSIGN SYS$OUTPUT
1469 $ DEASSIGN SYS$ERROR
1470 $ if (teststatus.nes."1")
1472 $ perl_i_sysmode="undef"
1474 $ perl_i_sysmode="define"
1477 $ WRITE_RESULT "i_sysmode is ''perl_i_sysmode'"
1479 $! Check for sys/access.h
1483 $ WS "#include <stdlib.h>
1485 $ WS "#include <stdio.h>
1486 $ WS "#include <unistd.h>
1487 $ WS "#include <sys/access.h>
1493 $ DEFINE SYS$ERROR _NLA0:
1494 $ DEFINE SYS$OUTPUT _NLA0:
1495 $ on error then continue
1496 $ on warning then continue
1498 $ savedstatus = $status
1499 $ teststatus = f$extract(9,1,savedstatus)
1500 $ if (teststatus.nes."1")
1502 $ perl_i_sysaccess="undef"
1503 $ DEASSIGN SYS$OUTPUT
1504 $ DEASSIGN SYS$ERROR
1506 $ If (Needs_Opt.eqs."Yes")
1508 $ link temp.obj,temp.opt/opt
1512 $ savedstatus = $status
1513 $ teststatus = f$extract(9,1,savedstatus)
1514 $ DEASSIGN SYS$OUTPUT
1515 $ DEASSIGN SYS$ERROR
1516 $ if (teststatus.nes."1")
1518 $ perl_i_sysaccess="undef"
1520 $ perl_i_sysaccess="define"
1523 $ WRITE_RESULT "i_sysaccess is ''perl_i_sysaccess'"
1525 $! Check for sys/security.h
1529 $ WS "#include <stdlib.h>
1531 $ WS "#include <stdio.h>
1532 $ WS "#include <unistd.h>
1533 $ WS "#include <sys/security.h>
1539 $ DEFINE SYS$ERROR _NLA0:
1540 $ DEFINE SYS$OUTPUT _NLA0:
1541 $ on error then continue
1542 $ on warning then continue
1544 $ savedstatus = $status
1545 $ teststatus = f$extract(9,1,savedstatus)
1546 $ if (teststatus.nes."1")
1548 $ perl_i_syssecrt="undef"
1549 $ DEASSIGN SYS$OUTPUT
1550 $ DEASSIGN SYS$ERROR
1552 $ If (Needs_Opt.eqs."Yes")
1554 $ link temp.obj,temp.opt/opt
1558 $ savedstatus = $status
1559 $ teststatus = f$extract(9,1,savedstatus)
1560 $ DEASSIGN SYS$OUTPUT
1561 $ DEASSIGN SYS$ERROR
1562 $ if (teststatus.nes."1")
1564 $ perl_i_syssecrt="undef"
1566 $ perl_i_syssecrt="define"
1569 $ WRITE_RESULT "i_syssecrt is ''perl_i_syssecrt'"
1571 $! Check for fcntl.h
1575 $ WS "#include <stdlib.h>
1577 $ WS "#include <stdio.h>
1578 $ WS "#include <unistd.h>
1579 $ WS "#include <fcntl.h>
1585 $ DEFINE SYS$ERROR _NLA0:
1586 $ DEFINE SYS$OUTPUT _NLA0:
1587 $ on error then continue
1588 $ on warning then continue
1590 $ savedstatus = $status
1591 $ teststatus = f$extract(9,1,savedstatus)
1592 $ if (teststatus.nes."1")
1594 $ perl_i_fcntl="undef"
1595 $ DEASSIGN SYS$OUTPUT
1596 $ DEASSIGN SYS$ERROR
1598 $ If (Needs_Opt.eqs."Yes")
1600 $ link temp.obj,temp.opt/opt
1604 $ savedstatus = $status
1605 $ teststatus = f$extract(9,1,savedstatus)
1606 $ DEASSIGN SYS$OUTPUT
1607 $ DEASSIGN SYS$ERROR
1608 $ if (teststatus.nes."1")
1610 $ perl_i_fcntl="undef"
1612 $ perl_i_fcntl="define"
1615 $ WRITE_RESULT "i_fcntl is ''perl_i_fcntl'"
1621 $ WS "#include <stdlib.h>
1623 $ WS "#include <stdio.h>
1624 $ WS "#include <unistd.h>
1625 $ WS "#include <fcntl.h>
1632 $ DEFINE SYS$ERROR _NLA0:
1633 $ DEFINE SYS$OUTPUT _NLA0:
1634 $ on error then continue
1635 $ on warning then continue
1637 $ savedstatus = $status
1638 $ teststatus = f$extract(9,1,savedstatus)
1639 $ if (teststatus.nes."1")
1641 $ perl_d_fcntl="undef"
1642 $ DEASSIGN SYS$OUTPUT
1643 $ DEASSIGN SYS$ERROR
1645 $ If (Needs_Opt.eqs."Yes")
1647 $ link temp.obj,temp.opt/opt
1651 $ savedstatus = $status
1652 $ teststatus = f$extract(9,1,savedstatus)
1653 $ DEASSIGN SYS$OUTPUT
1654 $ DEASSIGN SYS$ERROR
1655 $ if (teststatus.nes."1")
1657 $ perl_d_fcntl="undef"
1659 $ perl_d_fcntl="define"
1662 $ WRITE_RESULT "d_fcntl is ''perl_d_fcntl'"
1668 $ WS "#include <stdlib.h>
1670 $ WS "#include <string.h>
1674 $ WS "place = memchr(""foo"", 47, 3)
1678 $ DEFINE SYS$ERROR _NLA0:
1679 $ DEFINE SYS$OUTPUT _NLA0:
1680 $ on error then continue
1681 $ on warning then continue
1683 $ savedstatus = $status
1684 $ teststatus = f$extract(9,1,savedstatus)
1685 $ if (teststatus.nes."1")
1687 $ perl_d_memchr="undef"
1688 $ DEASSIGN SYS$OUTPUT
1689 $ DEASSIGN SYS$ERROR
1691 $ If (Needs_Opt.eqs."Yes")
1693 $ link temp.obj,temp.opt/opt
1697 $ savedstatus = $status
1698 $ teststatus = f$extract(9,1,savedstatus)
1699 $ DEASSIGN SYS$OUTPUT
1700 $ DEASSIGN SYS$ERROR
1701 $ if (teststatus.nes."1")
1703 $ perl_d_memchr="undef"
1705 $ perl_d_memchr="define"
1708 $ WRITE_RESULT "d_memchr is ''perl_d_memchr'"
1710 $! Check for strtoull
1714 $ WS "#include <stdlib.h>
1716 $ WS "#include <string.h>
1719 $ WS "unsigned __int64 result;
1720 $ WS "result = strtoull(""123123"", NULL, 10);
1724 $ DEFINE SYS$ERROR _NLA0:
1725 $ DEFINE SYS$OUTPUT _NLA0:
1726 $ on error then continue
1727 $ on warning then continue
1729 $ savedstatus = $status
1730 $ teststatus = f$extract(9,1,savedstatus)
1731 $ if (teststatus.nes."1")
1733 $ perl_d_strtoull="undef"
1734 $ DEASSIGN SYS$OUTPUT
1735 $ DEASSIGN SYS$ERROR
1737 $ If (Needs_Opt.eqs."Yes")
1739 $ link temp.obj,temp.opt/opt
1743 $ savedstatus = $status
1744 $ teststatus = f$extract(9,1,savedstatus)
1745 $ DEASSIGN SYS$OUTPUT
1746 $ DEASSIGN SYS$ERROR
1747 $ if (teststatus.nes."1")
1749 $ perl_d_strtoull="undef"
1751 $ perl_d_strtoull="define"
1754 $ WRITE_RESULT "d_strtoull is ''perl_d_strtoull'"
1756 $! Check for strtouq
1760 $ WS "#include <stdlib.h>
1762 $ WS "#include <string.h>
1765 $ WS "unsigned __int64 result;
1766 $ WS "result = strtouq(""123123"", NULL, 10);
1770 $ DEFINE SYS$ERROR _NLA0:
1771 $ DEFINE SYS$OUTPUT _NLA0:
1772 $ on error then continue
1773 $ on warning then continue
1775 $ savedstatus = $status
1776 $ teststatus = f$extract(9,1,savedstatus)
1777 $ if (teststatus.nes."1")
1779 $ perl_d_strtouq="undef"
1780 $ DEASSIGN SYS$OUTPUT
1781 $ DEASSIGN SYS$ERROR
1783 $ If (Needs_Opt.eqs."Yes")
1785 $ link temp.obj,temp.opt/opt
1789 $ savedstatus = $status
1790 $ teststatus = f$extract(9,1,savedstatus)
1791 $ DEASSIGN SYS$OUTPUT
1792 $ DEASSIGN SYS$ERROR
1793 $ if (teststatus.nes."1")
1795 $ perl_d_strtouq="undef"
1797 $ perl_d_strtouq="define"
1800 $ WRITE_RESULT "d_strtouq is ''perl_d_strtouq'"
1802 $! Check for strtoll
1806 $ WS "#include <stdlib.h>
1808 $ WS "#include <string.h>
1811 $ WS "__int64 result;
1812 $ WS "result = strtoll(""123123"", NULL, 10);
1816 $ DEFINE SYS$ERROR _NLA0:
1817 $ DEFINE SYS$OUTPUT _NLA0:
1818 $ on error then continue
1819 $ on warning then continue
1821 $ savedstatus = $status
1822 $ teststatus = f$extract(9,1,savedstatus)
1823 $ if (teststatus.nes."1")
1825 $ perl_d_strtoll="undef"
1826 $ DEASSIGN SYS$OUTPUT
1827 $ DEASSIGN SYS$ERROR
1829 $ If (Needs_Opt.eqs."Yes")
1831 $ link temp.obj,temp.opt/opt
1835 $ savedstatus = $status
1836 $ teststatus = f$extract(9,1,savedstatus)
1837 $ DEASSIGN SYS$OUTPUT
1838 $ DEASSIGN SYS$ERROR
1839 $ if (teststatus.nes."1")
1841 $ perl_d_strtoll="undef"
1843 $ perl_d_strtoll="define"
1846 $ WRITE_RESULT "d_strtoll is ''perl_d_strtoll'"
1848 $! Check for strtold
1852 $ WS "#include <stdlib.h>
1854 $ WS "#include <string.h>
1857 $ WS "long double result;
1858 $ WS "result = strtold(""123123"", NULL, 10);
1862 $ DEFINE SYS$ERROR _NLA0:
1863 $ DEFINE SYS$OUTPUT _NLA0:
1864 $ on error then continue
1865 $ on warning then continue
1867 $ savedstatus = $status
1868 $ teststatus = f$extract(9,1,savedstatus)
1869 $ if (teststatus.nes."1")
1871 $ perl_d_strtold="undef"
1872 $ DEASSIGN SYS$OUTPUT
1873 $ DEASSIGN SYS$ERROR
1875 $ If (Needs_Opt.eqs."Yes")
1877 $ link temp.obj,temp.opt/opt
1881 $ savedstatus = $status
1882 $ teststatus = f$extract(9,1,savedstatus)
1883 $ DEASSIGN SYS$OUTPUT
1884 $ DEASSIGN SYS$ERROR
1885 $ if (teststatus.nes."1")
1887 $ perl_d_strtold="undef"
1889 $ perl_d_strtold="define"
1892 $ WRITE_RESULT "d_strtold is ''perl_d_strtold'"
1898 $ WS "#include <stdlib.h>
1900 $ WS "#include <string.h>
1903 $ WS " __int64 result;
1904 $ WS "result = atoll(""123123"");
1908 $ DEFINE SYS$ERROR _NLA0:
1909 $ DEFINE SYS$OUTPUT _NLA0:
1910 $ on error then continue
1911 $ on warning then continue
1913 $ savedstatus = $status
1914 $ teststatus = f$extract(9,1,savedstatus)
1915 $ if (teststatus.nes."1")
1917 $ perl_d_atoll="undef"
1918 $ DEASSIGN SYS$OUTPUT
1919 $ DEASSIGN SYS$ERROR
1921 $ If (Needs_Opt.eqs."Yes")
1923 $ link temp.obj,temp.opt/opt
1927 $ savedstatus = $status
1928 $ teststatus = f$extract(9,1,savedstatus)
1929 $ DEASSIGN SYS$OUTPUT
1930 $ DEASSIGN SYS$ERROR
1931 $ if (teststatus.nes."1")
1933 $ perl_d_atoll="undef"
1935 $ perl_d_atoll="define"
1938 $ WRITE_RESULT "d_atoll is ''perl_d_atoll'"
1944 $ WS "#include <stdlib.h>
1946 $ WS "#include <string.h>
1950 $ WS "result = atolf(""123123"");
1954 $ DEFINE SYS$ERROR _NLA0:
1955 $ DEFINE SYS$OUTPUT _NLA0:
1956 $ on error then continue
1957 $ on warning then continue
1959 $ savedstatus = $status
1960 $ teststatus = f$extract(9,1,savedstatus)
1961 $ if (teststatus.nes."1")
1963 $ perl_d_atolf="undef"
1964 $ DEASSIGN SYS$OUTPUT
1965 $ DEASSIGN SYS$ERROR
1967 $ If (Needs_Opt.eqs."Yes")
1969 $ link temp.obj,temp.opt/opt
1973 $ savedstatus = $status
1974 $ teststatus = f$extract(9,1,savedstatus)
1975 $ DEASSIGN SYS$OUTPUT
1976 $ DEASSIGN SYS$ERROR
1977 $ if (teststatus.nes."1")
1979 $ perl_d_atolf="undef"
1981 $ perl_d_atolf="define"
1984 $ WRITE_RESULT "d_atolf is ''perl_d_atolf'"
1990 $ WS "#include <stdlib.h>
1992 $ WS "#include <stdio.h>
1993 $ WS "#include <unistd.h>
1996 $ WS "access("foo", F_OK);
2000 $ DEFINE SYS$ERROR _NLA0:
2001 $ DEFINE SYS$OUTPUT _NLA0:
2002 $ on error then continue
2003 $ on warning then continue
2005 $ savedstatus = $status
2006 $ teststatus = f$extract(9,1,savedstatus)
2007 $ if (teststatus.nes."1")
2009 $ perl_d_access="undef"
2010 $ DEASSIGN SYS$OUTPUT
2011 $ DEASSIGN SYS$ERROR
2013 $ If (Needs_Opt.eqs."Yes")
2015 $ link temp.obj,temp.opt/opt
2019 $ savedstatus = $status
2020 $ teststatus = f$extract(9,1,savedstatus)
2021 $ DEASSIGN SYS$OUTPUT
2022 $ DEASSIGN SYS$ERROR
2023 $ if (teststatus.nes."1")
2025 $ perl_d_access="undef"
2027 $ perl_d_access="define"
2030 $ WRITE_RESULT "d_access is ''perl_d_access'"
2036 $ WS "#include <stdlib.h>
2038 $ WS "#include <stdio.h>
2039 $ WS "#include <strings.h>
2043 $ WS "bzero(foo, 10);
2047 $ DEFINE SYS$ERROR _NLA0:
2048 $ DEFINE SYS$OUTPUT _NLA0:
2049 $ on error then continue
2050 $ on warning then continue
2052 $ savedstatus = $status
2053 $ teststatus = f$extract(9,1,savedstatus)
2054 $ if (teststatus.nes."1")
2056 $ perl_d_bzero="undef"
2057 $ DEASSIGN SYS$OUTPUT
2058 $ DEASSIGN SYS$ERROR
2060 $ If (Needs_Opt.eqs."Yes")
2062 $ link temp.obj,temp.opt/opt
2066 $ savedstatus = $status
2067 $ teststatus = f$extract(9,1,savedstatus)
2068 $ DEASSIGN SYS$OUTPUT
2069 $ DEASSIGN SYS$ERROR
2070 $ if (teststatus.nes."1")
2072 $ perl_d_bzero="undef"
2074 $ perl_d_bzero="define"
2077 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
2083 $ WS "#include <stdlib.h>
2085 $ WS "#include <stdio.h>
2086 $ WS "#include <strings.h>
2089 $ WS "char foo[10], bar[10];
2090 $ WS "bcopy(""foo"", bar, 3);
2094 $ DEFINE SYS$ERROR _NLA0:
2095 $ DEFINE SYS$OUTPUT _NLA0:
2096 $ on error then continue
2097 $ on warning then continue
2099 $ savedstatus = $status
2100 $ teststatus = f$extract(9,1,savedstatus)
2101 $ if (teststatus.nes."1")
2103 $ perl_d_bcopy="undef"
2104 $ DEASSIGN SYS$OUTPUT
2105 $ DEASSIGN SYS$ERROR
2107 $ If (Needs_Opt.eqs."Yes")
2109 $ link temp.obj,temp.opt/opt
2113 $ savedstatus = $status
2114 $ teststatus = f$extract(9,1,savedstatus)
2115 $ DEASSIGN SYS$OUTPUT
2116 $ DEASSIGN SYS$ERROR
2117 $ if (teststatus.nes."1")
2119 $ perl_d_bcopy="undef"
2121 $ perl_d_bcopy="define"
2124 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
2126 $! Check for mkstemp
2130 $ WS "#include <stdlib.h>
2132 $ WS "#include <stdio.h>
2135 $ WS "mkstemp(""foo"");
2139 $ DEFINE SYS$ERROR _NLA0:
2140 $ DEFINE SYS$OUTPUT _NLA0:
2141 $ on error then continue
2142 $ on warning then continue
2144 $ If (Needs_Opt.eqs."Yes")
2146 $ link temp.obj,temp.opt/opt
2150 $ savedstatus = $status
2151 $ teststatus = f$extract(9,1,savedstatus)
2152 $ DEASSIGN SYS$OUTPUT
2153 $ DEASSIGN SYS$ERROR
2154 $ if (teststatus.nes."1")
2156 $ perl_d_mkstemp="undef"
2158 $ perl_d_mkstemp="define"
2160 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
2162 $! Check for mkstemps
2166 $ WS "#include <stdlib.h>
2168 $ WS "#include <stdio.h>
2171 $ WS "mkstemps(""foo"", 1);
2175 $ DEFINE SYS$ERROR _NLA0:
2176 $ DEFINE SYS$OUTPUT _NLA0:
2177 $ on error then continue
2178 $ on warning then continue
2180 $ If (Needs_Opt.eqs."Yes")
2182 $ link temp.obj,temp.opt/opt
2186 $ savedstatus = $status
2187 $ teststatus = f$extract(9,1,savedstatus)
2188 $ DEASSIGN SYS$OUTPUT
2189 $ DEASSIGN SYS$ERROR
2190 $ if (teststatus.nes."1")
2192 $ perl_d_mkstemps="undef"
2194 $ perl_d_mkstemps="define"
2196 $ WRITE_RESULT "d_mkstemps is ''perl_d_mkstemps'"
2202 $ WS "#include <stdlib.h>
2204 $ WS "#include <stdio.h>
2205 $ WS "#include <iconv.h>
2208 $ WS " iconv_t cd = (iconv_t)0;"
2209 $ WS " char *inbuf, *outbuf;"
2210 $ WS " size_t inleft, outleft;"
2211 $ WS " iconv(cd, &inbuf, &inleft, &outbuf, &outleft);"
2215 $ DEFINE SYS$ERROR _NLA0:
2216 $ DEFINE SYS$OUTPUT _NLA0:
2217 $ on error then continue
2218 $ on warning then continue
2220 $ savedstatus = $status
2221 $ teststatus = f$extract(9,1,savedstatus)
2222 $ if (teststatus.nes."1")
2224 $ perl_d_iconv="undef"
2225 $ perl_i_iconv="undef"
2226 $ DEASSIGN SYS$OUTPUT
2227 $ DEASSIGN SYS$ERROR
2229 $ If (Needs_Opt.eqs."Yes")
2231 $ link temp.obj,temp.opt/opt
2235 $ savedstatus = $status
2236 $ teststatus = f$extract(9,1,savedstatus)
2237 $ DEASSIGN SYS$OUTPUT
2238 $ DEASSIGN SYS$ERROR
2239 $ if (teststatus.nes."1")
2241 $ perl_d_iconv="undef"
2242 $ perl_i_iconv="undef"
2244 $ perl_d_iconv="define"
2245 $ perl_i_iconv="define"
2248 $ WRITE_RESULT "d_iconv is ''perl_d_iconv'"
2249 $ WRITE_RESULT "i_iconv is ''perl_i_iconv'"
2251 $! Check for mkdtemp
2255 $ WS "#include <stdlib.h>
2257 $ WS "#include <stdio.h>
2260 $ WS "mkdtemp(""foo"");
2264 $ DEFINE SYS$ERROR _NLA0:
2265 $ DEFINE SYS$OUTPUT _NLA0:
2266 $ on error then continue
2267 $ on warning then continue
2269 $ If (Needs_Opt.eqs."Yes")
2271 $ link temp.obj,temp.opt/opt
2275 $ savedstatus = $status
2276 $ teststatus = f$extract(9,1,savedstatus)
2277 $ DEASSIGN SYS$OUTPUT
2278 $ DEASSIGN SYS$ERROR
2279 $ if (teststatus.nes."1")
2281 $ perl_d_mkdtemp="undef"
2283 $ perl_d_mkdtemp="define"
2285 $ WRITE_RESULT "d_mkdtemp is ''perl_d_mkdtemp'"
2287 $! Check for setvbuf
2291 $ WS "#include <stdlib.h>
2293 $ WS "#include <stdio.h>
2297 $ WS "char Buffer[99];
2298 $ WS "foo = fopen(""foo"", ""r"");
2299 $ WS "setvbuf(foo, Buffer, 0, 0);
2303 $ DEFINE SYS$ERROR _NLA0:
2304 $ DEFINE SYS$OUTPUT _NLA0:
2305 $ on error then continue
2306 $ on warning then continue
2308 $ If (Needs_Opt.eqs."Yes")
2310 $ link temp.obj,temp.opt/opt
2314 $ teststatus = f$extract(9,1,$status)
2315 $ DEASSIGN SYS$OUTPUT
2316 $ DEASSIGN SYS$ERROR
2317 $ if (teststatus.nes."1")
2319 $ perl_d_setvbuf="undef"
2321 $ perl_d_setvbuf="define"
2323 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
2329 $ WS "#include <stdlib.h>
2331 $ WS "#include <stdio.h>
2334 $ WS "setenv(""FOO"", ""BAR"", 0);
2338 $ DEFINE SYS$ERROR _NLA0:
2339 $ DEFINE SYS$OUTPUT _NLA0:
2340 $ on error then continue
2341 $ on warning then continue
2343 $ If (Needs_Opt.eqs."Yes")
2345 $ link temp,temp/opt
2349 $ teststatus = f$extract(9,1,$status)
2350 $ DEASSIGN SYS$OUTPUT
2351 $ DEASSIGN SYS$ERROR
2352 $ if (teststatus.nes."1")
2354 $ perl_d_setenv="undef"
2356 $ perl_d_setenv="define"
2358 $ WRITE_RESULT "d_setenv is ''perl_d_setenv'"
2360 $! Check for <netinet/in.h>
2362 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2366 $ WS "#include <stdlib.h>
2368 $ WS "#include <stdio.h>
2369 $ if ("''Has_Socketshr'".eqs."T")
2371 $ WS "#include <socketshr.h>"
2373 $ WS "#include <netdb.h>
2375 $ WS "#include <netinet/in.h>"
2381 $ DEFINE SYS$ERROR _NLA0:
2382 $ DEFINE SYS$OUTPUT _NLA0:
2383 $ on error then continue
2384 $ on warning then continue
2386 $ If (Needs_Opt.eqs."Yes")
2388 $ link temp.obj,temp.opt/opt
2392 $ teststatus = f$extract(9,1,$status)
2393 $ DEASSIGN SYS$OUTPUT
2394 $ DEASSIGN SYS$ERROR
2395 $ if (teststatus.nes."1")
2397 $ perl_i_niin="undef"
2399 $ perl_i_niin="define"
2402 $ perl_i_niin="undef"
2404 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
2406 $! Check for <netinet/tcp.h>
2408 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2412 $ WS "#include <stdlib.h>
2414 $ WS "#include <stdio.h>
2415 $ if ("''Has_Socketshr'".eqs."T")
2417 $ WS "#include <socketshr.h>"
2419 $ WS "#include <netdb.h>
2421 $ WS "#include <netinet/tcp.h>"
2427 $ DEFINE SYS$ERROR _NLA0:
2428 $ DEFINE SYS$OUTPUT _NLA0:
2429 $ on error then continue
2430 $ on warning then continue
2432 $ If (Needs_Opt.eqs."Yes")
2434 $ link temp.obj,temp.opt/opt
2438 $ teststatus = f$extract(9,1,$status)
2439 $ DEASSIGN SYS$OUTPUT
2440 $ DEASSIGN SYS$ERROR
2441 $ if (teststatus.nes."1")
2443 $ perl_i_netinettcp="undef"
2445 $ perl_i_netinettcp="define"
2448 $ perl_i_netinettcp="undef"
2450 $ WRITE_RESULT "i_netinettcp is ''perl_i_netinettcp'"
2452 $! Check for endhostent
2454 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2458 $ WS "#include <stdlib.h>
2460 $ WS "#include <stdio.h>
2461 $ if ("''Has_Socketshr'".eqs."T")
2463 $ WS "#include <socketshr.h>"
2465 $ WS "#include <netdb.h>
2473 $ DEFINE SYS$ERROR _NLA0:
2474 $ DEFINE SYS$OUTPUT _NLA0:
2475 $ on error then continue
2476 $ on warning then continue
2478 $ If (Needs_Opt.eqs."Yes")
2480 $ link temp.obj,temp.opt/opt
2484 $ teststatus = f$extract(9,1,$status)
2485 $ DEASSIGN SYS$OUTPUT
2486 $ DEASSIGN SYS$ERROR
2487 $ if (teststatus.nes."1")
2489 $ perl_d_endhent="undef"
2491 $ perl_d_endhent="define"
2494 $ perl_d_endhent="undef"
2496 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
2498 $! Check for endnetent
2500 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2504 $ WS "#include <stdlib.h>
2506 $ WS "#include <stdio.h>
2507 $ if ("''Has_Socketshr'".eqs."T")
2509 $ WS "#include <socketshr.h>"
2511 $ WS "#include <netdb.h>
2519 $ DEFINE SYS$ERROR _NLA0:
2520 $ DEFINE SYS$OUTPUT _NLA0:
2521 $ on error then continue
2522 $ on warning then continue
2524 $ If (Needs_Opt.eqs."Yes")
2526 $ link temp.obj,temp.opt/opt
2530 $ teststatus = f$extract(9,1,$status)
2531 $ DEASSIGN SYS$OUTPUT
2532 $ DEASSIGN SYS$ERROR
2533 $ if (teststatus.nes."1")
2535 $ perl_d_endnent="undef"
2537 $ perl_d_endnent="define"
2540 $ perl_d_endnent="undef"
2542 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
2544 $! Check for endprotoent
2546 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2550 $ WS "#include <stdlib.h>
2552 $ WS "#include <stdio.h>
2553 $ if ("''Has_Socketshr'".eqs."T")
2555 $ WS "#include <socketshr.h>"
2557 $ WS "#include <netdb.h>
2561 $ WS "endprotoent();
2565 $ DEFINE SYS$ERROR _NLA0:
2566 $ DEFINE SYS$OUTPUT _NLA0:
2567 $ on error then continue
2568 $ on warning then continue
2570 $ If (Needs_Opt.eqs."Yes")
2572 $ link temp.obj,temp.opt/opt
2576 $ teststatus = f$extract(9,1,$status)
2577 $ DEASSIGN SYS$OUTPUT
2578 $ DEASSIGN SYS$ERROR
2579 $ if (teststatus.nes."1")
2581 $ perl_d_endpent="undef"
2583 $ perl_d_endpent="define"
2586 $ perl_d_endpent="undef"
2588 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
2590 $! Check for endservent
2592 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2596 $ WS "#include <stdlib.h>
2598 $ WS "#include <stdio.h>
2599 $ if ("''Has_Socketshr'".eqs."T")
2601 $ WS "#include <socketshr.h>"
2603 $ WS "#include <netdb.h>
2611 $ DEFINE SYS$ERROR _NLA0:
2612 $ DEFINE SYS$OUTPUT _NLA0:
2613 $ on error then continue
2614 $ on warning then continue
2616 $ If (Needs_Opt.eqs."Yes")
2618 $ link temp.obj,temp.opt/opt
2622 $ teststatus = f$extract(9,1,$status)
2623 $ DEASSIGN SYS$OUTPUT
2624 $ DEASSIGN SYS$ERROR
2625 $ if (teststatus.nes."1")
2627 $ perl_d_endsent="undef"
2629 $ perl_d_endsent="define"
2632 $ perl_d_endsent="undef"
2634 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
2636 $! Check for sethostent
2638 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2642 $ WS "#include <stdlib.h>
2644 $ WS "#include <stdio.h>
2645 $ if ("''Has_Socketshr'".eqs."T")
2647 $ WS "#include <socketshr.h>"
2649 $ WS "#include <netdb.h>
2653 $ WS "sethostent(1);
2657 $ DEFINE SYS$ERROR _NLA0:
2658 $ DEFINE SYS$OUTPUT _NLA0:
2659 $ on error then continue
2660 $ on warning then continue
2662 $ If (Needs_Opt.eqs."Yes")
2664 $ link temp.obj,temp.opt/opt
2668 $ teststatus = f$extract(9,1,$status)
2669 $ DEASSIGN SYS$OUTPUT
2670 $ DEASSIGN SYS$ERROR
2671 $ if (teststatus.nes."1")
2673 $ perl_d_sethent="undef"
2675 $ perl_d_sethent="define"
2678 $ perl_d_sethent="undef"
2680 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
2682 $! Check for setnetent
2684 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2688 $ WS "#include <stdlib.h>
2690 $ WS "#include <stdio.h>
2691 $ if ("''Has_Socketshr'".eqs."T")
2693 $ WS "#include <socketshr.h>"
2695 $ WS "#include <netdb.h>
2703 $ DEFINE SYS$ERROR _NLA0:
2704 $ DEFINE SYS$OUTPUT _NLA0:
2705 $ on error then continue
2706 $ on warning then continue
2708 $ If (Needs_Opt.eqs."Yes")
2710 $ link temp.obj,temp.opt/opt
2714 $ teststatus = f$extract(9,1,$status)
2715 $ DEASSIGN SYS$OUTPUT
2716 $ DEASSIGN SYS$ERROR
2717 $ if (teststatus.nes."1")
2719 $ perl_d_setnent="undef"
2721 $ perl_d_setnent="define"
2724 $ perl_d_setnent="undef"
2726 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
2728 $! Check for setprotoent
2730 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2734 $ WS "#include <stdlib.h>
2736 $ WS "#include <stdio.h>
2737 $ if ("''Has_Socketshr'".eqs."T")
2739 $ WS "#include <socketshr.h>"
2741 $ WS "#include <netdb.h>
2745 $ WS "setprotoent(1);
2749 $ DEFINE SYS$ERROR _NLA0:
2750 $ DEFINE SYS$OUTPUT _NLA0:
2751 $ on error then continue
2752 $ on warning then continue
2754 $ If (Needs_Opt.eqs."Yes")
2756 $ link temp.obj,temp.opt/opt
2760 $ teststatus = f$extract(9,1,$status)
2761 $ DEASSIGN SYS$OUTPUT
2762 $ DEASSIGN SYS$ERROR
2763 $ if (teststatus.nes."1")
2765 $ perl_d_setpent="undef"
2767 $ perl_d_setpent="define"
2770 $ perl_d_setpent="undef"
2772 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
2774 $! Check for setservent
2776 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2780 $ WS "#include <stdlib.h>
2782 $ WS "#include <stdio.h>
2783 $ if ("''Has_Socketshr'".eqs."T")
2785 $ WS "#include <socketshr.h>"
2787 $ WS "#include <netdb.h>
2791 $ WS "setservent(1);
2795 $ DEFINE SYS$ERROR _NLA0:
2796 $ DEFINE SYS$OUTPUT _NLA0:
2797 $ on error then continue
2798 $ on warning then continue
2800 $ If (Needs_Opt.eqs."Yes")
2802 $ link temp.obj,temp.opt/opt
2806 $ teststatus = f$extract(9,1,$status)
2807 $ DEASSIGN SYS$OUTPUT
2808 $ DEASSIGN SYS$ERROR
2809 $ if (teststatus.nes."1")
2811 $ perl_d_setsent="undef"
2813 $ perl_d_setsent="define"
2816 $ perl_d_setsent="undef"
2818 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
2820 $! Check for gethostent
2822 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2826 $ WS "#include <stdlib.h>
2828 $ WS "#include <stdio.h>
2829 $ if ("''Has_Socketshr'".eqs."T")
2831 $ WS "#include <socketshr.h>"
2833 $ WS "#include <netdb.h>
2841 $ DEFINE SYS$ERROR _NLA0:
2842 $ DEFINE SYS$OUTPUT _NLA0:
2843 $ on error then continue
2844 $ on warning then continue
2846 $ If (Needs_Opt.eqs."Yes")
2848 $ link temp.obj,temp.opt/opt
2852 $ teststatus = f$extract(9,1,$status)
2853 $ DEASSIGN SYS$OUTPUT
2854 $ DEASSIGN SYS$ERROR
2855 $ if (teststatus.nes."1")
2857 $ perl_d_gethent="undef"
2859 $ perl_d_gethent="define"
2862 $ perl_d_gethent="undef"
2864 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
2866 $! Check for getnetent
2868 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2872 $ WS "#include <stdlib.h>
2874 $ WS "#include <stdio.h>
2875 $ if ("''Has_Socketshr'".eqs."T")
2877 $ WS "#include <socketshr.h>"
2879 $ WS "#include <netdb.h>
2887 $ DEFINE SYS$ERROR _NLA0:
2888 $ DEFINE SYS$OUTPUT _NLA0:
2889 $ on error then continue
2890 $ on warning then continue
2892 $ If (Needs_Opt.eqs."Yes")
2894 $ link temp.obj,temp.opt/opt
2898 $ teststatus = f$extract(9,1,$status)
2899 $ DEASSIGN SYS$OUTPUT
2900 $ DEASSIGN SYS$ERROR
2901 $ if (teststatus.nes."1")
2903 $ perl_d_getnent="undef"
2905 $ perl_d_getnent="define"
2908 $ perl_d_getnent="undef"
2910 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
2912 $! Check for getprotoent
2914 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2918 $ WS "#include <stdlib.h>
2920 $ WS "#include <stdio.h>
2921 $ if ("''Has_Socketshr'".eqs."T")
2923 $ WS "#include <socketshr.h>"
2925 $ WS "#include <netdb.h>
2929 $ WS "getprotoent();
2933 $ DEFINE SYS$ERROR _NLA0:
2934 $ DEFINE SYS$OUTPUT _NLA0:
2935 $ on error then continue
2936 $ on warning then continue
2938 $ If (Needs_Opt.eqs."Yes")
2940 $ link temp.obj,temp.opt/opt
2944 $ teststatus = f$extract(9,1,$status)
2945 $ DEASSIGN SYS$OUTPUT
2946 $ DEASSIGN SYS$ERROR
2947 $ if (teststatus.nes."1")
2949 $ perl_d_getpent="undef"
2951 $ perl_d_getpent="define"
2954 $ perl_d_getpent="undef"
2956 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
2958 $! Check for getservent
2960 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2964 $ WS "#include <stdlib.h>
2966 $ WS "#include <stdio.h>
2967 $ if ("''Has_Socketshr'".eqs."T")
2969 $ WS "#include <socketshr.h>"
2971 $ WS "#include <netdb.h>
2979 $ DEFINE SYS$ERROR _NLA0:
2980 $ DEFINE SYS$OUTPUT _NLA0:
2981 $ on error then continue
2982 $ on warning then continue
2984 $ If (Needs_Opt.eqs."Yes")
2986 $ link temp.obj,temp.opt/opt
2990 $ teststatus = f$extract(9,1,$status)
2991 $ DEASSIGN SYS$OUTPUT
2992 $ DEASSIGN SYS$ERROR
2993 $ if (teststatus.nes."1")
2995 $ perl_d_getsent="undef"
2997 $ perl_d_getsent="define"
3000 $ perl_d_getsent="undef"
3002 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
3004 $! Check for socklen_t
3006 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
3010 $ WS "#include <stdlib.h>
3012 $ WS "#include <stdio.h>
3013 $ IF ("''Has_Socketshr'".eqs."T")
3015 $ WS "#include <socketshr.h>"
3017 $ WS "#include <netdb.h>
3021 $ WS "socklen_t x = 16;
3025 $ DEFINE SYS$ERROR _NLA0:
3026 $ DEFINE SYS$OUTPUT _NLA0:
3027 $ on error then continue
3028 $ on warning then continue
3030 $ If (Needs_Opt.eqs."Yes")
3032 $ link temp.obj,temp.opt/opt
3036 $ teststatus = f$extract(9,1,$status)
3037 $ DEASSIGN SYS$OUTPUT
3038 $ DEASSIGN SYS$ERROR
3039 $ if (teststatus.nes."1")
3041 $ perl_d_socklen_t="undef"
3043 $ perl_d_socklen_t="define"
3046 $ perl_d_socklen_t="undef"
3048 $ WRITE_RESULT "d_socklen_t is ''perl_d_socklen_t'"
3050 $! Check for pthread_yield
3052 $ if ("''use_threads'".eqs."T")
3056 $ WS "#include <stdlib.h>
3058 $ WS "#include <pthread.h>
3059 $ WS "#include <stdio.h>
3062 $ WS "pthread_yield();
3066 $ DEFINE SYS$ERROR _NLA0:
3067 $ DEFINE SYS$OUTPUT _NLA0:
3068 $ on error then continue
3069 $ on warning then continue
3071 $ teststatus = f$extract(9,1,$status)
3072 $ DEASSIGN SYS$OUTPUT
3073 $ DEASSIGN SYS$ERROR
3074 $ if (teststatus.nes."1")
3076 $ perl_d_pthread_yield="undef"
3078 $ perl_d_pthread_yield="define"
3081 $ perl_d_pthread_yield="undef"
3083 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
3085 $! Check for sched_yield
3087 $ if ("''use_threads'".eqs."T")
3091 $ WS "#include <stdlib.h>
3093 $ WS "#include <pthread.h>
3094 $ WS "#include <stdio.h>
3097 $ WS "sched_yield();
3101 $ DEFINE SYS$ERROR _NLA0:
3102 $ DEFINE SYS$OUTPUT _NLA0:
3103 $ on error then continue
3104 $ on warning then continue
3106 $ teststatus = f$extract(9,1,$status)
3107 $ DEASSIGN SYS$OUTPUT
3108 $ DEASSIGN SYS$ERROR
3109 $ if (teststatus.nes."1")
3111 $ perl_d_sched_yield="undef"
3112 $ perl_sched_yield = " "
3114 $ perl_d_sched_yield="define"
3115 $ perl_sched_yield = "sched_yield"
3118 $ perl_d_sched_yield="undef"
3119 $ perl_sched_yield = " "
3121 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
3122 $ WRITE_RESULT "sched_yield is ''perl_sched_yield'"
3124 $! Check for generic pointer size
3128 $ WS "#include <stdlib.h>
3130 $ WS "#include <stdio.h>
3134 $ WS "foo = sizeof(char *);
3135 $ WS "printf(""%d\n"", foo);
3139 $ DEFINE SYS$ERROR _NLA0:
3140 $ DEFINE SYS$OUTPUT _NLA0:
3141 $ ON ERROR THEN CONTINUE
3142 $ ON WARNING THEN CONTINUE
3144 $ If (Needs_Opt.eqs."Yes")
3146 $ link temp.obj,temp.opt/opt
3150 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3151 $ DEASSIGN SYS$OUTPUT
3152 $ DEASSIGN SYS$ERROR
3153 $ DEFINE SYS$ERROR TEMPOUT
3154 $ DEFINE SYS$OUTPUT TEMPOUT
3157 $ DEASSIGN SYS$OUTPUT
3158 $ DEASSIGN SYS$ERROR
3159 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3162 $ DELETE/NOLOG [-.uu]tempout.lis;
3165 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
3167 $! Check rand48 and its ilk
3171 $ WS "#include <stdlib.h>
3173 $ WS "#include <stdio.h>
3176 $ WS "srand48(12L);"
3181 $ DEFINE SYS$ERROR _NLA0:
3182 $ DEFINE SYS$OUTPUT _NLA0:
3183 $ ON ERROR THEN CONTINUE
3184 $ ON WARNING THEN CONTINUE
3186 $ If (Needs_Opt.eqs."Yes")
3188 $ link temp,temp.opt/opt
3192 $ teststatus = f$extract(9,1,$status)
3193 $ DEASSIGN SYS$OUTPUT
3194 $ DEASSIGN SYS$ERROR
3195 $ if (teststatus.nes."1")
3197 $ perl_drand01="random()"
3198 $ perl_randseedtype = "unsigned"
3199 $ perl_seedfunc = "srandom"
3203 $ WS "#include <stdlib.h>
3205 $ WS "#include <stdio.h>
3212 $! copy temp.c sys$output
3214 $ DEFINE SYS$ERROR _NLA0:
3215 $ DEFINE SYS$OUTPUT _NLA0:
3216 $ ON ERROR THEN CONTINUE
3217 $ ON WARNING THEN CONTINUE
3219 $ If (Needs_Opt.eqs."Yes")
3221 $ link temp,temp.opt/opt
3225 $ teststatus = f$extract(9,1,$status)
3226 $ DEASSIGN SYS$OUTPUT
3227 $ DEASSIGN SYS$ERROR
3228 $ if (teststatus.nes."1")
3230 $ perl_drand01="(((float)rand())/((float)RAND_MAX))"
3231 $ perl_randseedtype = "unsigned"
3232 $ perl_seedfunc = "srand"
3234 $ WRITE_RESULT "drand01 is ''perl_drand01'"
3237 $! Done with compiler checks. Clean up.
3238 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
3239 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
3240 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
3241 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
3244 $! Some that are compiler or VMS version sensitive
3247 $ IF "''Using_Gnu_C'".EQS."Yes"
3249 $ perl_d_attribut="define"
3250 $ perl_vms_cc_type="gcc"
3252 $ perl_vms_cc_type="cc"
3253 $ perl_d_attribut="undef"
3256 $! Dec C >= 5.2 and VMS ver >= 7.0
3257 $ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
3259 $ perl_d_bcmp="define"
3260 $ perl_d_gettimeod="define"
3261 $ perl_d_uname="define"
3262 $ perl_d_sigaction="define"
3263 $ perl_d_truncate="define"
3264 $ perl_d_wait4="define"
3265 $ perl_d_index="define"
3266 $ perl_pidtype="pid_t"
3267 $ 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"
3268 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3269 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
3270 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
3271 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
3272 $ 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"
3273 $ 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"
3274 $ perl_sig_num_with_commas=perl_sig_num_init
3275 $ perl_uidtype="uid_t"
3276 $ perl_d_pathconf="define"
3277 $ perl_d_fpathconf="define"
3278 $ perl_d_sysconf="define"
3279 $ perl_d_sigsetjmp="define"
3281 $ perl_pidtype="unsigned int"
3282 $ perl_d_gettimeod="undef"
3283 $ perl_d_bcmp="undef"
3284 $ perl_d_uname="undef"
3285 $ perl_d_sigaction="undef"
3286 $ perl_d_truncate="undef"
3287 $ perl_d_wait4="undef"
3288 $ perl_d_index="undef"
3289 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
3290 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3291 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
3292 $ perl_sig_name_with_commas = psnwc1 + psnwc2
3293 $ perl_sig_num="0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 6 16 17"",0"
3294 $ perl_sig_num_init="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
3295 $ perl_sig_num_with_commas=perl_sig_num_init
3296 $ perl_uidtype="unsigned int"
3297 $ perl_d_pathconf="undef"
3298 $ perl_d_fpathconf="undef"
3299 $ perl_d_sysconf="undef"
3300 $ perl_d_sigsetjmp="undef"
3304 $ IF ("''Using_Dec_C'".EQS."Yes")
3306 $ perl_d_mbstowcs="define"
3307 $ perl_d_mbtowc="define"
3308 $ perl_d_stdiobase="define"
3309 $ perl_d_stdio_ptr_lval="define"
3310 $ perl_d_stdio_cnt_lval="define"
3311 $ perl_d_stdstdio="define"
3312 $ perl_d_wcstombs="define"
3313 $ perl_d_mblen="define"
3314 $ perl_d_mktime="define"
3315 $ perl_d_strcoll="define"
3316 $ perl_d_strxfrm="define"
3317 $ perl_d_wctomb="define"
3318 $ perl_i_locale="define"
3319 $ perl_d_locconv="define"
3320 $ perl_d_setlocale="define"
3321 $ perl_vms_cc_type="decc"
3323 $ perl_d_mbstowcs="undef"
3324 $ perl_d_mbtowc="undef"
3325 $ perl_d_stdiobase="undef"
3326 $ perl_d_stdio_ptr_lval="undef"
3327 $ perl_d_stdio_cnt_lval="undef"
3328 $ perl_d_stdstdio="undef"
3329 $ perl_d_wcstombs="undef"
3330 $ perl_d_mblen="undef"
3331 $ perl_d_mktime="undef"
3332 $ perl_d_strcoll="undef"
3333 $ perl_d_strxfrm="undef"
3334 $ perl_d_wctomb="undef"
3335 $ perl_i_locale="undef"
3336 $ perl_d_locconv="undef"
3337 $ perl_d_setlocale="undef"
3341 $ if ("''Using_Vax_C'".EQS."Yes")
3343 $ perl_vms_cc_type="vaxc"
3347 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
3349 $ perl_d_vms_do_sockets="define"
3350 $ perl_d_htonl="define"
3351 $ perl_d_socket="define"
3352 $ perl_d_select="define"
3353 $ perl_netdb_host_type="char *"
3354 $ perl_netdb_hlen_type="int"
3355 $ perl_netdb_name_type="char *"
3356 $ perl_netdb_net_type="long"
3357 $ perl_d_gethbyaddr="define"
3358 $ perl_d_gethbyname="define"
3359 $ perl_d_getnbyaddr="define"
3360 $ perl_d_getnbyname="define"
3361 $ perl_d_getpbynumber="define"
3362 $ perl_d_getpbyname="define"
3363 $ perl_d_getsbyport="define"
3364 $ perl_d_getsbyname="define"
3365 $ perl_d_gethostprotos="define"
3366 $ perl_d_getnetprotos="define"
3367 $ perl_d_getprotoprotos="define"
3368 $ perl_d_getservprotos="define"
3369 $ IF ("''Using_Dec_C'".EQS."Yes")
3371 $ perl_socksizetype="unsigned int"
3373 $ perl_socksizetype="int *"
3376 $ perl_d_vms_do_sockets="undef"
3377 $ perl_d_htonl="undef"
3378 $ perl_d_socket="undef"
3379 $ perl_d_select="undef"
3380 $ perl_netdb_host_type="char *"
3381 $ perl_netdb_hlen_type="int"
3382 $ perl_netdb_name_type="char *"
3383 $ perl_netdb_net_type="long"
3384 $ perl_d_gethbyaddr="undef"
3385 $ perl_d_gethbyname="undef"
3386 $ perl_d_getnbyaddr="undef"
3387 $ perl_d_getnbyname="undef"
3388 $ perl_d_getpbynumber="undef"
3389 $ perl_d_getpbyname="undef"
3390 $ perl_d_getsbyport="undef"
3391 $ perl_d_getsbyname="undef"
3392 $ perl_d_gethostprotos="undef"
3393 $ perl_d_getnetprotos="undef"
3394 $ perl_d_getprotoprotos="undef"
3395 $ perl_d_getservprotos="undef"
3396 $ perl_socksizetype="undef"
3399 $ if ("''use_threads'".eqs."T")
3401 $ perl_usethreads="define"
3402 $ perl_d_pthreads_created_joinable="define"
3403 $ if ("''VMS_VER'".ges."7.0")
3405 $ perl_d_oldpthreads="undef"
3407 $ perl_d_oldpthreads="define"
3410 $ perl_d_oldpthreads="undef"
3411 $ perl_usethreads="undef"
3413 $ perl_d_pthreads_created_joinable="undef"
3416 $! new (5.005_62++) typedefs for primitives
3418 $ perl_ivtype="long"
3419 $ perl_uvtype="unsigned long"
3420 $ perl_i8type="char"
3421 $ perl_u8type="unsigned char"
3422 $ perl_i16type="short"
3423 $ perl_u16type="unsigned short"
3424 $ perl_i32type="int"
3425 $ perl_u32type="unsigned int"
3426 $ perl_i64type="long long"
3427 $ perl_u64type="unsigned long long"
3428 $ perl_nvtype="double"
3430 $ GOTO beyond_type_size_check
3434 $! Check for type sizes
3438 $ WS "#include <stdlib.h>
3440 $ WS "#include <stdio.h>
3443 $ WS "printf(""%d\n"", sizeof(''type'));"
3447 $ DEFINE SYS$ERROR _NLA0:
3448 $ DEFINE SYS$OUTPUT _NLA0:
3449 $ ON ERROR THEN CONTINUE
3450 $ ON WARNING THEN CONTINUE
3452 $ If (Needs_Opt.eqs."Yes")
3454 $ link temp.obj,temp.opt/opt
3458 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3459 $ DEASSIGN SYS$OUTPUT
3460 $ DEASSIGN SYS$ERROR
3461 $ DEFINE SYS$ERROR TEMPOUT
3462 $ DEFINE SYS$OUTPUT TEMPOUT
3465 $ DEASSIGN SYS$OUTPUT
3466 $ DEASSIGN SYS$ERROR
3467 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3470 $ DELETE/NOLOG [-.uu]tempout.lis;
3471 $ WRITE_RESULT "''size_name' is ''line'"
3475 $beyond_type_size_check:
3478 $ type = "''perl_ivtype'"
3479 $ size_name = "ivsize"
3480 $ gosub type_size_check
3481 $ perl_ivsize="''line'"
3482 $ IF type .eqs. "long"
3483 $ THEN perl_longsize = "''line'"
3486 $ size_name = "longsize"
3487 $ gosub type_size_check
3488 $ perl_longsize="''line'"
3491 $ type = "''perl_uvtype'"
3492 $ size_name = "uvsize"
3493 $ gosub type_size_check
3494 $ perl_uvsize="''line'"
3496 $ type = "''perl_i8type'"
3497 $ size_name = "i8size"
3498 $ gosub type_size_check
3499 $ perl_i8size="''line'"
3501 $ type = "''perl_u8type'"
3502 $ size_name = "u8size"
3503 $ gosub type_size_check
3504 $ perl_u8size="''line'"
3506 $ type = "''perl_i16type'"
3507 $ size_name = "i16size"
3508 $ gosub type_size_check
3509 $ perl_i16size="''line'"
3510 $ IF type .eqs. "short"
3511 $ THEN perl_shortsize="''line'"
3513 $ type = "''perl_i16type'"
3514 $ size_name = "shortsize"
3515 $ gosub type_size_check
3516 $ perl_shortsize="''line'"
3519 $ type = "''perl_u16type'"
3520 $ size_name = "u16size"
3521 $ gosub type_size_check
3522 $ perl_u16size="''line'"
3524 $ type = "''perl_i32type'"
3525 $ size_name = "i32size"
3526 $ gosub type_size_check
3527 $ perl_i32size="''line'"
3528 $ IF type .eqs. "int"
3529 $ THEN perl_intsize="''perl_i32size'"
3532 $ size_name = "intsize"
3533 $ gosub type_size_check
3534 $ perl_intsize="''line'"
3537 $ type = "''perl_u32type'"
3538 $ size_name = "u32size"
3539 $ gosub type_size_check
3540 $ perl_u32size="''line'"
3542 $ type = "''perl_i64type'"
3543 $ size_name = "i64size"
3544 $ gosub type_size_check
3545 $ perl_i64size="''line'"
3547 $ type = "''perl_u64type'"
3548 $ size_name = "u64size"
3549 $ gosub type_size_check
3550 $ perl_u64size="''line'"
3552 $ perl_ivdformat="""ld"""
3553 $ perl_uvuformat="""lu"""
3554 $ perl_uvoformat="""lo"""
3555 $ perl_uvxformat="""lx"""
3557 $! Finally the composite ones. All config
3558 $ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3559 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3560 $ perl_myhostname="''myhostname'"
3561 $ perl_mydomain="''mydomain'"
3562 $ perl_perladmin="''perladmin'"
3563 $ perl_cf_email="''cf_email'"
3564 $ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
3565 $ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3566 $ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
3567 $ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
3568 $ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
3569 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
3570 $ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3571 $ if "''Using_Dec_C'" .eqs. "Yes"
3573 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
3575 $ IF "''Using_Vax_C'" .eqs. "Yes"
3577 $ perl_ccflags="/Include=[]/Obj=''perl_obj_ext'/NoList''cc_flags'"
3580 $ if use_vmsdebug_perl .eqs. "Y"
3582 $ perl_optimize="/Debug/NoOpt"
3583 $ perl_dbgprefix = "DBG"
3586 $ perl_dbgprefix = ""
3589 $! Finally clean off any leading zeros from the patchlevel or subversion
3590 $ perl_patchlevel = perl_patchlevel + 0
3591 $ perl_subversion = perl_subversion + 0
3593 $! Okay, we've got everything configured. Now go write out a config.sh.
3594 $ open/write CONFIGSH [-]config.sh
3595 $ WC := "write CONFIGSH"
3597 $ WC "# This file generated by Configure.COM on a VMS system."
3598 $ WC "# Time: " + perl_cf_time
3600 $ WC "CONFIGDOTSH=true"
3601 $ WC "package='" + perl_package + "'"
3602 $ WC "d_nv_preserves_uv='" + perl_d_nv_preserves_uv + "'"
3603 $ WC "use5005threads='" + perl_use5005threads + "'"
3604 $ WC "useithreads='" + perl_useithreads + "'"
3605 $ WC "CONFIG='" + perl_config + "'"
3606 $ WC "cf_time='" + perl_cf_time + "'"
3607 $ WC "cf_by='" + perl_cf_by+ "'"
3608 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
3609 $ WC "ccdlflags='" + perl_ccdlflags + "'"
3610 $ WC "cccdlflags='" + perl_cccdlflags + "'"
3611 $ WC "mab='" + perl_mab + "'"
3612 $ WC "libpth='" + perl_libpth + "'"
3613 $ WC "ld='" + perl_ld + "'"
3614 $ WC "lddlflags='" + perl_lddlflags + "'"
3615 $ WC "ranlib='" + perl_ranlib + "'"
3616 $ WC "ar='" + perl_ar + "'"
3617 $ WC "full_ar='" + perl_full_ar + "'"
3618 $ WC "eunicefix='" + perl_eunicefix + "'"
3619 $ WC "hint='" + perl_hint +"'"
3620 $ WC "hintfile='" + perl_hintfile + "'"
3621 $ WC "shrplib='" + perl_shrplib + "'"
3622 $ WC "usemymalloc='" + perl_usemymalloc + "'"
3623 $ WC "usevfork='" + perl_usevfork + "'"
3624 $ WC "useposix='false'"
3625 $ WC "spitshell='write sys$output '"
3626 $ WC "dlsrc='dl_vms.c'"
3627 $ WC "binexp='" + perl_binexp + "'"
3628 $ WC "man1ext='" + perl_man1ext + "'"
3629 $ WC "man3ext='" + perl_man3ext + "'"
3630 $ WC "arch='" + perl_arch + "'"
3631 $ WC "archname='" + perl_archname + "'"
3632 $ WC "osvers='" + perl_osvers + "'"
3633 $ WC "prefix='" + perl_prefix + "'"
3634 $ WC "builddir='" + perl_builddir + "'"
3635 $ WC "installbin='" + perl_installbin + "'"
3636 $ WC "installscript='" + perl_installscript + "'"
3637 $ WC "installman1dir='" + perl_installman1dir + "'"
3638 $ WC "installman3dir='" + perl_installman3dir + "'"
3639 $ WC "installprivlib='" + perl_installprivlib + "'"
3640 $ WC "installarchlib='" + perl_installarchlib + "'"
3641 $ WC "installsitelib='" + perl_installsitelib + "'"
3642 $ WC "installsitearch='" + perl_installsitearch + "'"
3643 $ WC "path_sep='" + perl_path_sep + "'"
3644 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
3645 $ WC "d_attribut='" + perl_d_attribut + "'"
3646 $ WC "cc='" + perl_cc + "'"
3647 $ WC "ccflags='" + perl_ccflags + "'"
3648 $ WC "optimize='" + perl_optimize + "'"
3649 $ WC "dbgprefix='" + perl_dbgprefix + "'"
3650 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
3651 $ WC "d_socket='" + perl_d_socket + "'"
3652 $ WC "d_sockpair='" + perl_d_sockpair + "'"
3653 $ WC "d_gethent='" + perl_d_gethent + "'"
3654 $ WC "d_getsent='" + perl_d_getsent + "'"
3655 $ WC "d_socklen_t='" + perl_d_socklen_t + "'"
3656 $ WC "d_select='" + perl_d_select + "'"
3657 $ WC "i_niin='" + perl_i_niin + "'"
3658 $ WC "i_netinettcp='" + perl_i_netinettcp + "'"
3659 $ WC "i_neterrno='" + perl_i_neterrno + "'"
3660 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
3661 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
3662 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
3663 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
3664 $ WC "d_locconv='" + perl_d_locconv + "'"
3665 $ WC "d_setlocale='" + perl_d_setlocale + "'"
3666 $ WC "i_locale='" + perl_i_locale + "'"
3667 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
3668 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
3669 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
3670 $ WC "d_wctomb='" + perl_d_wctomb + "'"
3671 $ WC "d_mblen='" + perl_d_mblen + "'"
3672 $ WC "d_mktime='" + perl_d_mktime + "'"
3673 $ WC "d_strcoll='" + perl_d_strcoll + "'"
3674 $ WC "d_strxfrm='" + perl_d_strxfrm + "'"
3675 $ WC "ldflags='" + perl_ldflags + "'"
3676 $ WC "dlobj='" + perl_dlobj + "'"
3677 $ WC "obj_ext='" + perl_obj_ext + "'"
3678 $ WC "so='" + perl_so + "'"
3679 $ WC "dlext='" + perl_dlext + "'"
3680 $ WC "exe_ext='" + perl_exe_ext + "'"
3681 $ WC "lib_ext='" + perl_lib_ext + "'"
3682 $ WC "myhostname='" + perl_myhostname + "'"
3683 $ WC "mydomain='" + perl_mydomain + "'"
3684 $ WC "perladmin='" + perl_perladmin + "'"
3685 $ WC "cf_email='" + perl_cf_email + "'"
3686 $ WC "myuname='" + perl_myuname + "'"
3687 $ WC "alignbytes='" + perl_alignbytes + "'"
3688 $ WC "osname='" + perl_osname + "'"
3689 $ WC "d_archlib='" + perl_d_archlib + "'"
3690 $ WC "archlibexp='" + perl_archlibexp + "'"
3691 $ WC "archlib='" + perl_archlib + "'"
3692 $ WC "archname='" + perl_archname + "'"
3693 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
3694 $ WC "cppstdin='" + perl_cppstdin + "'"
3695 $ WC "cppminus='" + perl_cppminus + "'"
3696 $ WC "d_bcmp='" + perl_d_bcmp + "'"
3697 $ WC "d_bcopy='" + perl_d_bcopy + "'"
3698 $ WC "d_bzero='" + perl_d_bzero + "'"
3699 $ WC "d_castneg='" + perl_d_castneg + "'"
3700 $ WC "castflags='" + perl_castflags + "'"
3701 $ WC "d_chsize='" + perl_d_chsize + "'"
3702 $ WC "d_const='" + perl_d_const + "'"
3703 $ WC "d_crypt='" + perl_d_crypt + "'"
3704 $ WC "byteorder='" + perl_byteorder + "'"
3705 $ WC "full_csh='" + perl_full_csh + "'"
3706 $ WC "d_csh='" + perl_d_csh + "'"
3707 $ WC "d_dup2='" + perl_d_dup2 + "'"
3708 $ WC "d_fchmod='" + perl_d_fchmod + "'"
3709 $ WC "d_fchown='" + perl_d_fchown + "'"
3710 $ WC "d_fcntl='" + perl_d_fcntl + "'"
3711 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
3712 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
3713 $ WC "d_flock='" + perl_d_flock + "'"
3714 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
3715 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
3716 $ WC "d_getgrps='" + perl_d_getgrps + "'"
3717 $ WC "d_setgrps='" + perl_d_setgrps + "'"
3718 $ WC "d_uname='" + perl_d_uname + "'"
3719 $ WC "d_getprior='" + perl_d_getprior + "'"
3720 $ WC "d_killpg='" + perl_d_killpg + "'"
3721 $ WC "d_link='" + perl_d_link + "'"
3722 $ WC "d_lstat='" + perl_d_lstat + "'"
3723 $ WC "d_lockf='" + perl_d_lockf + "'"
3724 $ WC "d_memcmp='" + perl_d_memcmp + "'"
3725 $ WC "d_memcpy='" + perl_d_memcpy + "'"
3726 $ WC "d_memmove='" + perl_d_memmove + "'"
3727 $ WC "d_memset='" + perl_d_memset + "'"
3728 $ WC "d_mkdir='" + perl_d_mkdir + "'"
3729 $ WC "d_msg='" + perl_d_msg + "'"
3730 $ WC "d_open3='" + perl_d_open3 + "'"
3731 $ WC "d_poll='" + perl_d_poll + "'"
3732 $ WC "d_readdir='" + perl_d_readdir + "'"
3733 $ WC "d_seekdir='" + perl_d_seekdir + "'"
3734 $ WC "d_telldir='" + perl_d_telldir + "'"
3735 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
3736 $ WC "d_rename='" + perl_d_rename + "'"
3737 $ WC "d_rmdir='" + perl_d_rmdir + "'"
3738 $ WC "d_sem='" + perl_d_sem + "'"
3739 $ WC "d_setegid='" + perl_d_setegid + "'"
3740 $ WC "d_seteuid='" + perl_d_seteuid + "'"
3741 $ WC "d_setprior='" + perl_d_setprior + "'"
3742 $ WC "d_setregid='" + perl_d_setregid + "'"
3743 $ WC "d_setresgid='" + perl_d_setresgid + "'"
3744 $ WC "d_setreuid='" + perl_d_setreuid + "'"
3745 $ WC "d_setresuid='" + perl_d_setresuid + "'"
3746 $ WC "d_setrgid='" + perl_d_setrgid + "'"
3747 $ WC "d_setruid='" + perl_d_setruid + "'"
3748 $ WC "d_setsid='" + perl_d_setsid + "'"
3749 $ WC "d_shm='" + perl_d_shm + "'"
3750 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
3751 $ WC "d_sigaction='" + perl_d_sigaction + "'"
3752 $ WC "d_statblks='" + perl_d_statblks + "'"
3753 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
3754 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
3755 $ WC "stdio_base='" + perl_stdio_base + "'"
3756 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
3757 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
3758 $ WC "d_strerror='" + perl_d_strerror + "'"
3759 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
3760 $ WC "d_strerrm='" + perl_d_strerrm + "'"
3761 $ WC "d_symlink='" + perl_d_symlink + "'"
3762 $ WC "d_syscall='" + perl_d_syscall + "'"
3763 $ WC "d_system='" + perl_d_system + "'"
3764 $ WC "timetype='" + perl_timetype + "'"
3765 $ WC "d_truncate='" + perl_d_truncate + "'"
3766 $ WC "d_vfork='" + perl_d_vfork + "'"
3767 $ WC "signal_t='" + perl_signal_t + "'"
3768 $ WC "d_volatile='" + perl_d_volatile + "'"
3769 $ WC "d_vprintf='" + perl_d_vprintf + "'"
3770 $ WC "d_charvspr='" + perl_d_charvspr + "'"
3771 $ WC "d_wait4='" + perl_d_wait4 + "'"
3772 $ WC "d_waitpid='" + perl_d_waitpid + "'"
3773 $ WC "i_dirent='" + perl_i_dirent + "'"
3774 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
3775 $ WC "direntrytype='" + perl_direntrytype + "'"
3776 $ WC "i_fcntl='" + perl_i_fcntl + "'"
3777 $ WC "i_grp='" + perl_i_grp + "'"
3778 $ WC "i_limits='" + perl_i_limits + "'"
3779 $ WC "i_memory='" + perl_i_memory + "'"
3780 $ WC "i_ndbm='" + perl_i_ndbm + "'"
3781 $ WC "i_stdarg='" + perl_i_stdarg + "'"
3782 $ WC "i_pwd='" + perl_i_pwd + "'"
3783 $ WC "d_pwquota='" + perl_d_pwquota + "'"
3784 $ WC "d_pwage='" + perl_d_pwage + "'"
3785 $ WC "d_pwchange='" + perl_d_pwchange + "'"
3786 $ WC "d_pwclass='" + perl_d_pwclass + "'"
3787 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
3788 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
3789 $ WC "i_stddef='" + perl_i_stddef + "'"
3790 $ WC "i_stdlib='" + perl_i_stdlib + "'"
3791 $ WC "i_string='" + perl_i_string + "'"
3792 $ WC "i_sysdir='" + perl_i_sysdir + "'"
3793 $ WC "i_sysfile='" + perl_i_sysfile + "'"
3794 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
3795 $ WC "i_sysndir='" + perl_i_sysndir + "'"
3796 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
3797 $ WC "i_sysselct='" + perl_i_sysselct + "'"
3798 $ WC "i_dbm='" + perl_i_dbm + "'"
3799 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
3800 $ WC "i_sfio='" + perl_i_sfio + "'"
3801 $ WC "i_sysstat='" + perl_i_sysstat + "'"
3802 $ WC "i_systimes='" + perl_i_systimes + "'"
3803 $ WC "i_systypes='" + perl_i_systypes + "'"
3804 $ WC "i_sysun='" + perl_i_sysun + "'"
3805 $ WC "i_syswait='" + perl_i_syswait + "'"
3806 $ WC "i_termio='" + perl_i_termio + "'"
3807 $ WC "i_sgtty='" + perl_i_sgtty + "'"
3808 $ WC "i_termios='" + perl_i_termios + "'"
3809 $ WC "i_time='" + perl_i_time + "'"
3810 $ WC "i_systime='" + perl_i_systime + "'"
3811 $ WC "i_systimek='" + perl_i_systimek + "'"
3812 $ WC "i_unistd='" + perl_i_unistd + "'"
3813 $ WC "i_utime='" + perl_i_utime + "'"
3814 $ WC "i_varargs='" + perl_i_varargs + "'"
3815 $ WC "i_vfork='" + perl_i_vfork + "'"
3816 $ WC "prototype='" + perl_prototype + "'"
3817 $ WC "randbits='" + perl_randbits +"'"
3818 $ WC "selecttype='" + perl_selecttype + "'"
3819 $ WC "stdchar='" + perl_stdchar + "'"
3820 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
3821 $ WC "full_sed='" + perl_full_sed + "'"
3822 $ WC "bin='" + perl_bin + "'"
3823 $ WC "binexp='" + perl_binexp + "'"
3824 $ WC "d_alarm='" + perl_d_alarm + "'"
3825 $ WC "d_casti32='" + perl_d_casti32 + "'"
3826 $ WC "d_chown='" + perl_d_chown + "'"
3827 $ WC "d_chroot='" + perl_d_chroot + "'"
3828 $ WC "d_cuserid='" + perl_d_cuserid + "'"
3829 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
3830 $ WC "d_ldbl_dig='" + perl_d_ldbl_dig + "'"
3831 $ WC "d_difftime='" + perl_d_difftime + "'"
3832 $ WC "d_fork='" + perl_d_fork + "'"
3833 $ WC "d_getlogin='" + perl_d_getlogin + "'"
3834 $ WC "d_getppid='" + perl_d_getppid + "'"
3835 $ WC "d_htonl='" + perl_d_htonl + "'"
3836 $ WC "d_nice='" + perl_d_nice + "'"
3837 $ WC "d_pause='" + perl_d_pause + "'"
3838 $ WC "d_pipe='" + perl_d_pipe + "'"
3839 $ WC "d_readlink='" + perl_d_readlink + "'"
3840 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
3841 $ WC "d_strchr='" + perl_d_strchr + "'"
3842 $ WC "d_index='" + perl_d_index + "'"
3843 $ WC "d_strtod='" + perl_d_strtod + "'"
3844 $ WC "d_strtol='" + perl_d_strtol + "'"
3845 $ WC "d_strtoul='" + perl_d_strtoul + "'"
3846 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
3847 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
3848 $ WC "d_times='" + perl_d_times + "'"
3849 $ WC "d_tzname='" + perl_d_tzname + "'"
3850 $ WC "d_umask='" + perl_d_umask + "'"
3851 $ WC "fpostype='" + perl_fpostype + "'"
3852 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
3853 $ WC "i_float='" + perl_i_float + "'"
3854 $ WC "i_math='" + perl_i_math + "'"
3855 $ WC "intsize='" + perl_intsize + "'"
3856 $ WC "longsize='" + perl_longsize + "'"
3857 $ WC "shortsize='" + perl_shortsize + "'"
3858 $ WC "lseektype='" + perl_lseektype + "'"
3859 $ WC "lseeksize='4'"
3860 $ WC "i_values='" + perl_i_values + "'"
3861 $ WC "malloctype='" + perl_malloctype + "'"
3862 $ WC "freetype='" + perl_freetype + "'"
3863 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
3864 $ WC "sh='" + perl_sh + "'"
3865 $ WC "sig_name='" + perl_sig_name + "'"
3866 $ WC "sig_num='" + perl_sig_num + "'"
3867 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
3869 $ WC "modetype='" + perl_modetype + "'"
3870 $ WC "ssizetype='" + perl_ssizetype + "'"
3871 $ WC "o_nonblock='" + perl_o_nonblock + "'"
3872 $ WC "eagain='" + perl_eagain + "'"
3873 $ WC "rd_nodata='" + perl_rd_nodata + "'"
3874 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
3875 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
3876 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
3877 $ WC "oldarchlib='" + perl_oldarchlib + "'"
3878 $ WC "privlibexp='" + perl_privlibexp + "'"
3879 $ WC "privlib='" + perl_privlib + "'"
3880 $ WC "sitelibexp='" + perl_sitelibexp + "'"
3881 $ WC "sitelib='" + perl_sitelib + "'"
3882 $ WC "sitearchexp='" + perl_sitearchexp + "'"
3883 $ WC "sitearch='" + perl_sitearch + "'"
3884 $ WC "sizetype='" + perl_sizetype + "'"
3885 $ WC "i_sysparam='" + perl_i_sysparam + "'"
3886 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
3887 $ WC "d_dlerror='" + perl_d_dlerror + "'"
3888 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
3889 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
3890 $ WC "d_dosuid='" + perl_d_dosuid + "'"
3891 $ WC "d_inetaton='" + perl_d_inetaton + "'"
3892 $ WC "d_int64_t='" + perl_d_int64_t + "'"
3893 $ WC "d_isascii='" + perl_d_isascii + "'"
3894 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
3895 $ WC "d_pathconf='" + perl_d_pathconf + "'"
3896 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
3897 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
3898 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
3899 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
3900 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
3901 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
3902 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
3903 $ WC "d_setpgid='" + perl_d_setpgid + "'"
3904 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
3905 $ WC "d_sysconf='" + perl_d_sysconf + "'"
3906 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
3907 $ WC "d_getpgid='" + perl_d_getpgid + "'"
3908 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
3909 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
3910 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
3911 $ WC "d_sfio='" + perl_d_sfio + "'"
3912 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
3913 $ WC "usedl='" + perl_usedl + "'"
3914 $ WC "startperl=" + perl_startperl ! This one's special--no enclosing single quotes
3915 $ WC "db_hashtype='" + perl_db_hashtype + "'"
3916 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
3917 $ WC "useperlio='" + perl_useperlio + "'"
3918 $ WC "defvoidused='" + perl_defvoidused + "'"
3919 $ WC "voidflags='" + perl_voidflags + "'"
3920 $ WC "d_eunice='" + perl_d_eunice + "'"
3921 $ WC "libs='" + perl_libs + "'"
3922 $ WC "libc='" + perl_libc + "'"
3923 $ tempstring = "PERL_VERSION='" + "''perl_patchlevel'" + "'"
3925 $ tempstring = "PERL_SUBVERSION='" + "''perl_patchlevel'" + "'"
3927 $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
3929 $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
3931 $ WC "pager='" + perl_pager + "'"
3932 $ WC "uidtype='" + perl_uidtype + "'"
3933 $ WC "gidtype='" + perl_gidtype + "'"
3934 $ WC "usethreads='" + perl_usethreads + "'"
3935 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
3936 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
3937 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
3938 $ WC "i_netdb='" + perl_i_netdb + "'"
3939 $ WC "pidtype='" + perl_pidtype + "'"
3940 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
3941 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
3942 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
3943 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
3944 $ WC "socksizetype='" + perl_socksizetype + "'"
3945 $ WC "baserev='" + perl_baserev + "'"
3946 $ WC "doublesize='" + perl_doublesize + "'"
3947 $ WC "ptrsize='" + perl_ptrsize + "'"
3948 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
3949 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
3950 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
3951 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
3952 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
3953 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
3954 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
3955 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
3956 $ WC "d_sethent='" + perl_d_sethent + "'"
3957 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
3958 $ WC "d_longdbl='" + perl_d_longdbl + "'"
3959 $ WC "longdblsize='" + perl_longdblsize + "'"
3960 $ WC "d_longlong='" + perl_d_longlong + "'"
3961 $ WC "longlongsize='" + perl_longlongsize + "'"
3962 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
3963 $ WC "d_mkstemps='" + perl_d_mkstemps + "'"
3964 $ WC "d_mkdtemp='" + perl_d_mkdtemp + "'"
3965 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
3966 $ WC "d_setenv='" + perl_d_setenv + "'"
3967 $ WC "d_endhent='" + perl_d_endhent + "'"
3968 $ WC "d_endnent='" + perl_d_endsent + "'"
3969 $ WC "d_endpent='" + perl_d_endpent + "'"
3970 $ WC "d_endsent='" + perl_d_endsent + "'"
3971 $ WC "d_gethent='" + perl_d_gethent + "'"
3972 $ WC "d_getnent='" + perl_d_getsent + "'"
3973 $ WC "d_getpent='" + perl_d_getpent + "'"
3974 $ WC "d_getsent='" + perl_d_getsent + "'"
3975 $ WC "d_sethent='" + perl_d_sethent + "'"
3976 $ WC "d_setnent='" + perl_d_setsent + "'"
3977 $ WC "d_setpent='" + perl_d_setpent + "'"
3978 $ WC "ebcdic='" + perl_ebcdic + "'"
3979 $ WC "d_setsent='" + perl_d_setsent + "'"
3980 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
3981 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
3982 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
3983 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
3984 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
3985 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
3986 $ WC "d_lchown='" + perl_d_lchown + "'"
3987 $ WC "d_union_semun='" + perl_d_union_semun + "'"
3988 $ WC "i_arpainet='" + perl_i_arpainet + "'"
3989 $ WC "d_grpasswd='" + perl_d_grpasswd + "'"
3990 $ WC "d_setgrent='" + perl_d_setgrent + "'"
3991 $ WC "d_getgrent='" + perl_d_getgrent + "'"
3992 $ WC "d_endgrent='" + perl_d_endgrent + "'"
3993 $ WC "d_pwpasswd='" + perl_d_pwpasswd + "'"
3994 $ WC "d_setpwent='" + perl_d_setpwent + "'"
3995 $ WC "d_getpwent='" + perl_d_getpwent + "'"
3996 $ WC "d_endpwent='" + perl_d_endpwent + "'"
3997 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
3998 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
3999 $ WC "extensions='" + perl_extensions + "'"
4000 $ WC "known_extensions='" + perl_known_extensions + "'"
4001 $ WC "static_ext='" + "'"
4002 $ WC "dynamic_ext='" + perl_extensions + "'"
4003 $ WC "d_mknod='" + perl_d_mknod + "'"
4004 $ WC "devtype='" + perl_devtype + "'"
4005 $ WC "d_gethname='" + perl_d_gethname + "'"
4006 $ WC "d_phostname='" + perl_d_phostname + "'"
4007 $ WC "d_accessx='" + perl_d_accessx + "'"
4008 $ WC "d_eaccess='" + perl_d_eaccess + "'"
4009 $ WC "i_sysaccess='" + perl_i_sysaccess + "'"
4010 $ WC "i_syssecrt='" + perl_i_syssecrt + "'"
4011 $ WC "d_fd_set='" + perl_d_fd_set + "'"
4012 $ WC "d_access='" + perl_d_access + "'"
4013 $ WC "d_msg_ctrunc='" + perl_d_msg_ctrunc + "'"
4014 $ WC "d_msg_dontroute='" + perl_d_msg_dontroute + "'"
4015 $ WC "d_msg_oob='" + perl_d_msg_oob + "'"
4016 $ WC "d_msg_peek='" + perl_d_msg_peek + "'"
4017 $ WC "d_msg_proxy='" + perl_d_msg_proxy + "'"
4018 $ WC "d_scm_rights='" + perl_d_scm_rights + "'"
4019 $ WC "d_sendmsg='" + perl_d_sendmsg + "'"
4020 $ WC "d_recvmsg='" + perl_d_recvmsg + "'"
4021 $ WC "d_msghdr_s='" + perl_d_msghdr_s + "'"
4022 $ WC "d_cmsghdr_s='" + perl_d_cmsghdr_s + "'"
4023 $ WC "i_sysuio='" + perl_i_sysuio + "'"
4024 $ WC "d_fseeko='" + perl_d_fseeko + "'"
4025 $ WC "d_ftello='" + perl_d_ftello + "'"
4026 $ WC "d_readv='" + perl_d_readv + "'"
4027 $ WC "d_writev='" + perl_d_writev + "'"
4028 $ WC "i_machcthr='" + perl_i_machcthr + "'"
4029 $ WC "usemultiplicity='" + perl_usemultiplicity + "'"
4030 $ WC "i_poll='" + perl_i_poll + "'"
4031 $ WC "i_inttypes='" + perl_i_inttypes + "'"
4032 $ WC "d_off64_t='" + perl_d_off64_t + "'"
4033 $ WC "d_fpos64_t='" + perl_d_fpos64_t + "'"
4034 $ WC "use64bitall='" + perl_use64bitall + "'"
4035 $ WC "use64bitint='" + perl_use64bitint + "'"
4036 $ WC "d_drand48proto='" + perl_d_drand48proto + "'"
4037 $ WC "d_lseekproto='" + perl_d_drand48proto + "'"
4038 $ WC "d_old_pthread_create_joinable='" + perl_d_old_pthread_create_joinable + "'"
4039 $ WC "old_pthread_create_joinable='" + perl_old_pthread_create_joinable + "'"
4040 $ WC "drand01='" + perl_drand01 + "'"
4041 $ WC "randseedtype='" + perl_randseedtype + "'"
4042 $ WC "seedfunc='" + perl_seedfunc + "'"
4043 $ WC "sig_num_init='" + perl_sig_num_with_commas + "'"
4044 $ WC "i_sysmount='" + perl_i_sysmount + "'"
4045 $ WC "d_fstatfs='" + perl_d_fstatfs + "'"
4046 $ WC "d_getfsstat='" + perl_d_getfsstat + "'"
4047 $ WC "d_memchr='" + perl_d_memchr + "'"
4048 $ WC "d_statfsflags='" + perl_d_statfsflags + "'"
4049 $ WC "fflushNULL='define'"
4050 $ WC "fflushall='undef'"
4051 $ WC "d_stdio_stream_array='undef'"
4052 $ WC "i_sysstatvfs='" + perl_i_sysstatvfs + "'"
4053 $ WC "i_syslog='" + perl_i_syslog + "'"
4054 $ WC "i_sysmode='" + perl_i_sysmode + "'"
4055 $ WC "i_sysutsname='" + perl_i_sysutsname + "'"
4056 $ WC "i_machcthreads='" + perl_i_machcthreads + "'"
4057 $ WC "i_pthread='" + perl_i_pthread + "'"
4058 $ WC "d_fstatvfs='" + perl_d_fstatvfs + "'"
4059 $ WC "i_mntent='" + perl_i_mntent + "'"
4060 $ WC "d_getmntent='" + perl_d_getmntent + "'"
4061 $ WC "d_hasmntopt='" + perl_d_hasmntopt + "'"
4062 $ WC "d_telldirproto='" + perl_d_telldirproto + "'"
4063 $ WC "d_madvise='" + perl_d_madvise + "'"
4064 $ WC "d_msync='" + perl_d_msync + "'"
4065 $ WC "d_mprotect='" + perl_d_mprotect + "'"
4066 $ WC "d_munmap='" + perl_d_munmap + "'"
4067 $ WC "d_mmap='" + perl_d_mmap + "'"
4068 $ WC "i_sysmman='" + perl_i_sysmman + "'"
4069 $ WC "installusrbinperl='" + perl_installusrbinperl + "'"
4070 $! WC "selectminbits='" + perl_selectminbits + "'"
4071 $ WC "crosscompile='" + perl_crosscompile + "'"
4072 $ WC "multiarch='" + perl_multiarch + "'"
4073 $ WC "sched_yield='" + perl_sched_yield + "'"
4074 $ WC "d_strtoull='" + perl_d_strtoull + "'"
4075 $ WC "d_strtouq='" + perl_d_strtouq + "'"
4076 $ WC "d_strtoll='" + perl_d_strtoll + "'"
4077 $ WC "d_strtold='" + perl_d_strtold + "'"
4078 $ WC "usesocks='" + perl_usesocks + "'"
4079 $ WC "d_vendorlib='" + perl_d_vendorlib + "'"
4080 $ WC "vendorlibexp='" + perl_vendorlibexp + "'"
4081 $ WC "d_atolf='" + perl_d_atolf + "'"
4082 $ WC "d_atoll='" + perl_d_atoll + "'"
4083 $ WC "d_bincompat5005='" + perl_d_bincompat + "'"
4084 $ WC "d_endspent='" + perl_d_endspent + "'"
4085 $ WC "d_getspent='" + perl_d_getspent + "'"
4086 $ WC "d_getspnam='" + perl_d_getspnam + "'"
4087 $ WC "d_setspent='" + perl_d_setspent + "'"
4088 $ WC "i_shadow='" + perl_i_shadow + "'"
4089 $ WC "i_socks='" + perl_i_socks + "'"
4090 $ WC "d_PRIfldbl='" + perl_d_PRIfldbl + "'"
4091 $ WC "d_PRIgldbl='" + perl_d_PRIgldbl + "'"
4092 $ WC "d_PRId64='" + perl_d_PRId64 + "'"
4093 $ WC "d_PRIu64='" + perl_d_PRIu64 + "'"
4094 $ WC "d_PRIo64='" + perl_d_PRIo64 + "'"
4095 $ WC "d_PRIx64='" + perl_d_PRIx64 + "'"
4096 $ WC "sPRIfldbl='" + perl_sPRIfldbl + "'"
4097 $ WC "sPRIgldbl='" + perl_sPRIgldbl + "'"
4098 $ WC "sPRId64='" + perl_sPRId64 + "'"
4099 $ WC "sPRIu64='" + perl_sPRIu64 + "'"
4100 $ WC "sPRIo64='" + perl_sPRIo64 + "'"
4101 $ WC "sPRIx64='" + perl_sPRIx64 + "'"
4102 $ WC "d_llseek='" + perl_d_llseek + "'"
4103 $ WC "d_iconv='" + perl_d_iconv +"'"
4104 $ WC "i_iconv='" + perl_i_iconv +"'"
4105 $ WC "inc_version_list_init='""""'"
4106 $ WC "uselargefiles='" + perl_uselargefiles + "'"
4107 $ WC "uselongdouble='" + perl_uselongdouble + "'"
4108 $ WC "usemorebits='" + perl_usemorebits + "'"
4109 $ WC "d_quad='" + perl_d_quad + "'"
4112 $ WC "quadtype='" + perl_quadtype + "'"
4113 $ WC "uquadtype='" + perl_uquadtype + "'"
4115 $ WC "d_fs_data_s='" + perl_d_fs_data_s + "'"
4116 $ WC "d_getcwd='" + perl_d_getcwd + "'"
4117 $ WC "d_getmnt='" + perl_d_getmnt + "'"
4118 $ WC "d_sqrtl='" + perl_d_sqrtl + "'"
4119 $ WC "d_statfs_f_flags='" + perl_d_statfs_f_flags + "'"
4120 $ WC "d_statfs_s='" + perl_d_statfs_s + "'"
4121 $ WC "d_ustat='" + perl_d_ustat + "'"
4122 $ WC "i_sysstatfs='" + perl_i_sysstatfs + "'"
4123 $ WC "i_sysvfs='" + perl_i_sysvfs + "'"
4124 $ WC "i_ustat='" + perl_i_ustat + "'"
4125 $ WC "ivtype='" + perl_ivtype + "'"
4126 $ WC "uvtype='" + perl_uvtype + "'"
4127 $ WC "i8type='" + perl_i8type + "'"
4128 $ WC "i16type='" + perl_i16type + "'"
4129 $ WC "u8type='" + perl_u8type + "'"
4130 $ WC "u16type='" + perl_u16type + "'"
4131 $ WC "i32type='" + perl_i32type + "'"
4132 $ WC "u32type='" + perl_u32type + "'"
4133 $ WC "i64type='" + perl_i64type + "'"
4134 $ WC "u64type='" + perl_u64type + "'"
4135 $ WC "nvtype='" + perl_nvtype + "'"
4136 $ WC "ivsize='" + perl_ivsize + "'"
4137 $ WC "uvsize='" + perl_uvsize + "'"
4138 $ WC "i8size='" + perl_i8size + "'"
4139 $ WC "u8size='" + perl_u8size + "'"
4140 $ WC "i16size='" + perl_i16size + "'"
4141 $ WC "u16size='" + perl_u16size + "'"
4142 $ WC "i32size='" + perl_i32size + "'"
4143 $ WC "u32size='" + perl_u32size + "'"
4144 $ WC "i64size='" + perl_i64size + "'"
4145 $ WC "u64size='" + perl_u64size + "'"
4146 $ WC "ivdformat='" + perl_ivdformat + "'"
4147 $ WC "uvuformat='" + perl_uvuformat + "'"
4148 $ WC "uvoformat='" + perl_uvoformat + "'"
4149 $ WC "uvxformat='" + perl_uvxformat + "'"
4150 $ WC "d_vms_case_sensitive_symbols='" + d_vms_be_case_sensitive + "'"
4152 $! ##WRITE NEW CONSTANTS HERE##
4156 $! Okay, we've gotten here. Build munchconfig and run it
4157 $ 'Perl_CC' munchconfig.c
4158 $ If (Needs_Opt.eqs."Yes")
4160 $ open/write OPTCHAN []munchconfig.opt
4161 $ IF ("''using_gnu_c'".eqs."Yes")
4163 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
4165 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
4167 $ link munchconfig.obj,munchconfig.opt/opt
4168 $ delete munchconfig.opt;*
4170 $ link munchconfig.obj
4173 $ echo "Writing config.h"
4175 $ ! we need an fdl file
4176 $ CREATE [-]CONFIG.FDL
4179 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
4180 $ ! First spit out the header info with the local defines (to get
4181 $ ! around the 255 character command line limit)
4182 $ OPEN/APPEND CONFIG [-]config.local
4183 $ if use_debugging_perl.eqs."Y"
4185 $ WRITE CONFIG "#define DEBUGGING"
4187 $ if use_two_pot_malloc.eqs."Y"
4189 $ WRITE CONFIG "#define TWO_POT_OPTIMIZE"
4191 $ if mymalloc.eqs."Y"
4193 $ WRITE CONFIG "#define EMBEDMYMALLOC"
4195 $ if use_pack_malloc.eqs."Y"
4197 $ WRITE CONFIG "#define PACK_MALLOC"
4199 $ if use_debugmalloc.eqs."Y"
4201 $ write config "#define DEBUGGING_MSTATS"
4203 $ if "''Using_Gnu_C'" .eqs."Yes"
4205 $ WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
4207 $ if "''Has_Dec_C_Sockets'".eqs."T"
4209 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
4210 $ WRITE CONFIG "#define DECCRTL_SOCKETS"
4212 $ if "''Has_Socketshr'".eqs."T"
4214 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
4216 $! This is VMS-specific for now
4217 $ WRITE CONFIG "#''perl_d_setenv' HAS_SETENV"
4218 $ if d_alwdeftype.eqs."Y"
4220 $ WRITE CONFIG "#define SECURE_INTERNAL_GETENV"
4222 $ WRITE CONFIG "#undef SECURE_INTERNAL_GETENV"
4224 $ if d_secintgenv.eqs."Y"
4226 $ WRITE CONFIG "#define ALWAYS_DEFTYPES"
4228 $ WRITE CONFIG "#undef ALWAYS_DEFTYPES"
4232 $ WRITE CONFIG "#define USE_64_BIT_INT"
4233 $ WRITE CONFIG "#define USE_LONG_DOUBLE"
4237 $ WRITE CONFIG "#define USE_64_BIT_ALL"
4239 $ if be_case_sensitive
4241 $ write config "#define VMS_WE_ARE_CASE_SENSITIVE"
4243 $ WRITE CONFIG "#define HAS_ENVGETENV"
4244 $ WRITE CONFIG "#define PERL_EXTERNAL_GLOB"
4247 $! Now build the normal config.h
4248 $ define/user sys$output [-]config.main
4249 $ mcr []munchconfig [-]config.sh [-]config_h.sh
4250 $ ! Concatenate them together
4251 $ copy [-]config.local,[-]config.main [-]config.h
4253 $ DELETE/NOLOG [-]CONFIG.MAIN;*
4254 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
4255 $ DELETE/NOLOG [-]CONFIG.FDL;*
4257 $ if "''Using_Dec_C'" .eqs."Yes"
4259 $ DECC_REPLACE = "DECC=decc=1"
4261 $ DECC_REPLACE = "DECC="
4263 $ if "''Using_Gnu_C'" .eqs."Yes"
4265 $ GNUC_REPLACE = "GNUC=gnuc=1"
4267 $ GNUC_REPLACE = "GNUC="
4269 $ if "''Has_Dec_C_Sockets'" .eqs."T"
4271 $ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
4273 $ if "''Has_Socketshr'" .eqs."T"
4275 $ SOCKET_REPLACE = "SOCKET=SOCKETSHR_SOCKETS=1"
4277 $ SOCKET_REPLACE = "SOCKET="
4280 $ IF ("''Use_Threads'".eqs."T")
4282 $ if ("''VMS_VER'".LES."6.2")
4284 $ THREAD_REPLACE = "THREAD=OLDTHREADED=1"
4286 $ THREAD_REPLACE = "THREAD=THREADED=1"
4289 $ THREAD_REPLACE = "THREAD="
4291 $ if mymalloc.eqs."Y"
4293 $ MALLOC_REPLACE = "MALLOC=MALLOC=1"
4295 $ MALLOC_REPLACE = "MALLOC="
4297 $ if f$getsyi("HW_MODEL").ge.1024
4299 $ ARCH_TYPE = "ARCH-TYPE=__AXP__"
4301 $ ARCH_TYPE = "ARCH-TYPE=__VAX__"
4303 $ echo "Writing DESCRIP.MMS"
4305 $ define/user sys$output [-]descrip.mms
4306 $ mcr []munchconfig [-]config.sh descrip_mms.template "''DECC_REPLACE'" "''ARCH_TYPE'" "''GNUC_REPLACE'" "''SOCKET_REPLACE'" "''THREAD_REPLACE'" -
4307 "''C_Compiler_Replace'" "''MALLOC_REPLACE'" "''Thread_Live_Dangerously'" "PV=''LocalPerlVer'" "FLAGS=FLAGS=''extra_flags'"
4308 $ echo "Extracting Build_Ext.Com"
4309 $ Create Sys$Disk:[-]Build_Ext.Com
4310 $ Deck/Dollar="$EndOfTpl$"
4312 $! NOTE: This file is extracted as part of the VMS configuration process.
4313 $! Any changes made to it directly will be lost. If you need to make any
4314 $! changes, please edit the template in [.vms]SubConfigure.Com instead.
4315 $ def = F$Environment("Default")
4316 $ exts1 = F$Edit(p1,"Compress")
4317 $ p2 = F$Edit(p2,"Upcase,Compress,Trim")
4318 $ If F$Locate("MCR ",p2).eq.0 Then p2 = F$Extract(3,255,p2)
4319 $ miniperl = "$" + F$Search(F$Parse(p2,".Exe"))
4321 $ if f$type('p3') .nes. "" then makeutil = 'p3'
4322 $ targ = F$Edit(p4,"Lowercase")
4325 $ ext = F$Element(i," ",p1)
4326 $ If ext .eqs. " " Then Goto done
4327 $ Define/User Perl_Env_Tables CLISYM_LOCAL
4329 ($extdir = $ENV{'ext'}) =~ s/::/./g;
4330 if ($extdir =~ /^vms/i) { $extdir =~ s/vms/.vms.ext/i; }
4331 else { $extdir = ".ext.$extdir"; }
4332 ($ENV{'extdir'} = "[$extdir]");
4333 ($ENV{'up'} = ('-') x ($extdir =~ tr/././));
4334 $ Set Default &extdir
4336 $ If F$Locate("clean",targ) .eqs. F$Length(targ)
4338 $ Write Sys$Output "Building ''ext' . . ."
4339 $ On Error Then Goto done
4340 $ If F$Search("Descrip.MMS") .eqs. ""
4344 $ If F$CvTime(F$File("Descrip.MMS","rdt")) .lts. -
4345 F$CvTime(F$File("Makefile.PL","rdt")) Then redesc = 1
4348 $ Write Sys$Output "''targ'ing ''ext' . . ."
4349 $ On Error Then Continue
4352 miniperl "-I[''up'.lib]" Makefile.PL "INST_LIB=[''up'.lib]" "INST_ARCHLIB=[''up'.lib]"
4366 $! Clean up after ourselves
4367 $ delete/nolog munchconfig.exe;*
4368 $ delete/nolog munchconfig.obj;*