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_qgcvt="undef"
117 $ perl_d_readv="undef"
118 $ perl_d_writev="undef"
119 $ perl_i_machcthr="undef"
120 $ perl_i_netdb="undef"
121 $ perl_d_gnulibc="undef"
122 $ perl_cf_by="unknown"
126 $ perl_drand01 = "drand48()"
127 $ perl_randseedtype = "long int"
128 $ perl_seedfunc = "srand48"
129 $ perl_d_msg_ctrunc = "undef"
130 $ perl_d_msg_dontroute = "undef"
131 $ perl_d_msg_oob = "undef"
132 $ perl_d_msg_peek = "undef"
133 $ perl_d_msg_proxy = "undef"
134 $ perl_d_scm_rights = "undef"
135 $ perl_d_sendmsg = "undef"
136 $ perl_d_recvmsg = "undef"
137 $ perl_d_msghdr_s = "undef"
138 $ perl_d_cmsghdr_s = "undef"
139 $ IF use_64bitint .eqs. "Y"
141 $ perl_use64bitint = "define"
142 $ perl_uselargefiles = "define"
143 $ perl_uselongdouble = "define"
144 $ perl_usemorebits = "define"
146 $ perl_use64bitint = "undef"
147 $ perl_uselargefiles = "undef"
148 $ perl_uselongdouble = "undef"
149 $ perl_usemorebits = "undef"
151 $ use_64bitall = use_64bitint ! until configure.com question is reworded?
152 $ IF use_64bitall .eqs. "Y"
154 $ perl_use64bitall = "define"
156 $ perl_use64bitall = "undef"
158 $ perl_d_drand48proto = "define"
159 $ perl_d_lseekproto = "define"
160 $ perl_libpth="/sys$share /sys$library"
162 $ perl_lddlflags="/Share"
168 $ perl_i_arpainet="undef"
169 $ perl_d_grpasswd="undef"
170 $ perl_d_setgrent="undef"
171 $ perl_d_getgrent="define"
172 $ perl_d_endgrent="define"
173 $ perl_d_pwpasswd="define"
174 $ perl_d_setpwent="define"
175 $ perl_d_getpwent="define"
176 $ perl_d_endpwent="define"
177 $ perl_d_phostname="undef"
178 $ perl_d_accessx="undef"
179 $ perl_d_eaccess="undef"
180 $ perl_ebcdic="undef"
182 $ perl_shrplib="define"
183 $ perl_usemymalloc=mymalloc
184 $ perl_usevfork="true"
185 $ perl_useposix="false"
186 $ perl_spitshell="write sys$output "
187 $ perl_dlsrc="dl_vms.c"
190 $ perl_prefix="perl_root"
191 $ perl_binexp="''perl_prefix':[000000]"
192 $ perl_builddir="''perl_prefix':[000000]"
193 $ perl_installbin="''perl_prefix':[000000]"
194 $ perl_installscript="''perl_prefix':[utils]"
195 $ perl_installman1dir="''perl_prefix':[man.man1]"
196 $ perl_installman3dir="''perl_prefix':[man.man3]"
197 $ perl_installprivlib="''perl_prefix':[lib]"
198 $ perl_installsitelib="''perl_prefix':[lib.site_perl]"
201 $ perl_d_sockpair="undef"
202 $ perl_i_neterrno="define"
203 $ perl_ldflags="/NoTrace/NoMap"
204 $ perl_d_lchown="undef"
205 $ perl_d_mknod="undef"
206 $ perl_d_union_semun="undef"
207 $ perl_d_semctl_semun="undef"
208 $ perl_d_semctl_semid_ds="undef"
209 $ IF (sharedperl.EQS."Y" .AND. F$GETSYI("HW_MODEL").GE.1024)
211 $ perl_obj_ext=".abj"
214 $ perl_exe_ext=".axe"
215 $ perl_lib_ext=".alb"
217 $ perl_obj_ext=".obj"
220 $ perl_exe_ext=".exe"
221 $ perl_lib_ext=".olb"
223 $ perl_dlobj="dl_vms''perl_obj_ext'"
225 $ perl_d_archlib="define"
226 $ perl_d_bincompat3="undef"
227 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
229 $ perl_d_castneg="define"
231 $ perl_d_chsize="undef"
232 $ perl_d_const="define"
233 $ perl_d_crypt="define"
234 $ perl_byteorder="1234"
237 $ perl_d_dup2="define"
238 $ perl_d_fchmod="undef"
239 $ perl_d_fchown="undef"
240 $ perl_d_fcntl="undef"
241 $ perl_d_fgetpos="define"
242 $ perl_d_flexfnam="define"
243 $ perl_d_flock="undef"
244 $ perl_d_fsetpos="define"
245 $ perl_d_getgrps="undef"
246 $ perl_d_setgrps="undef"
247 $ perl_d_getprior="undef"
248 $ perl_d_killpg="undef"
249 $ perl_d_link="undef"
250 $ perl_d_lstat="undef"
251 $ perl_d_lockf="undef"
252 $ perl_d_memcmp="define"
253 $ perl_d_memcpy="define"
254 $ perl_d_memmove="define"
255 $ perl_d_memset="define"
256 $ perl_d_mkdir="define"
258 $ perl_d_open3="define"
259 $ perl_d_poll="undef"
260 $ perl_d_readdir="define"
261 $ perl_d_seekdir="define"
262 $ perl_d_telldir="define"
263 $ perl_d_rewinddir="define"
264 $ perl_d_rename="define"
265 $ perl_d_rmdir="define"
267 $ perl_d_setegid="undef"
268 $ perl_d_seteuid="undef"
269 $ perl_d_setprior="undef"
270 $ perl_d_setregid="undef"
271 $ perl_d_setresgid="undef"
272 $ perl_d_setreuid="undef"
273 $ perl_d_setresuid="undef"
274 $ perl_d_setrgid="undef"
275 $ perl_d_setruid="undef"
276 $ perl_d_setsid="undef"
278 $ perl_d_shmatprototype="undef"
279 $ perl_d_statblks="undef"
280 $ perl_stdio_ptr="((*fp)->_ptr)"
281 $ perl_stdio_cnt="((*fp)->_cnt)"
282 $ perl_stdio_base="((*fp)->_base)"
283 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
284 $ perl_d_strctcpy="define"
285 $ perl_d_strerror="define"
286 $ perl_d_syserrlst="undef"
287 $ perl_d_strerrm="strerror((e),vaxc$errno)"
288 $ perl_d_symlink="undef"
289 $ perl_d_syscall="undef"
290 $ perl_d_system="define"
291 $ perl_timetype="time_t"
292 $ perl_d_vfork="define"
293 $ perl_signal_t="void"
294 $ perl_d_volatile="define"
295 $ perl_d_vprintf="define"
296 $ perl_d_charvspr="undef"
297 $ perl_d_waitpid="define"
298 $ perl_i_dirent="undef"
299 $ perl_d_dirnamlen="define"
300 $ perl_direntrytype="struct dirent"
301 $ perl_i_fcntl="undef"
303 $ perl_i_limits="define"
304 $ perl_i_memory="undef"
305 $ perl_i_ndbm="undef"
306 $ perl_i_stdarg="define"
308 $ perl_d_pwquota="undef"
309 $ perl_d_pwage="undef"
310 $ perl_d_pwchange="undef"
311 $ perl_d_pwclass="undef"
312 $ perl_d_pwexpire="undef"
313 $ perl_d_pwcomment="define"
314 $ perl_i_stddef="define"
315 $ perl_i_stdlib="define"
316 $ perl_i_string="define"
317 $ perl_i_sysdir="undef"
318 $ perl_i_sysfile="undef"
319 $ perl_i_sysioctl="undef"
320 $ perl_i_sysndir="undef"
321 $ perl_i_sysresrc="undef"
322 $ perl_i_sysselct="undef"
324 $ perl_i_rpcsvcdbm="undef"
325 $ perl_i_sfio="undef"
326 $ perl_i_sysstat="define"
327 $ perl_i_systimes="undef"
328 $ perl_i_systypes="define"
329 $ perl_i_sysun="undef"
330 $ perl_i_syswait="undef"
331 $ perl_i_termio="undef"
332 $ perl_i_sgtty="undef"
333 $ perl_i_termios="undef"
334 $ perl_i_time="define"
335 $ perl_i_systime="undef"
336 $ perl_i_systimek="undef"
337 $! perl_i_unistd="undef"
338 $ perl_i_utime="undef"
339 $ perl_i_varargs="undef"
340 $ perl_i_vfork="undef"
341 $ perl_prototype="define"
343 $ perl_stdchar="char"
344 $ perl_d_unlink_all_versions="undef"
345 $ perl_full_sed="_NLA0:"
346 $ perl_bin="/''perl_prefix'/000000"
347 $ perl_binexp="''perl_prefix':[000000]"
348 $ perl_d_alarm="define"
349 $ perl_d_casti32="define"
350 $ perl_d_chown="define"
351 $ perl_d_chroot="undef"
352 $ perl_d_cuserid="define"
353 $ perl_d_dbl_dig="define"
354 $ perl_d_ldbl_dig="define"
355 $ perl_d_difftime="define"
356 $ perl_d_fork="undef"
357 $ perl_d_getlogin="define"
358 $ perl_d_getppid="undef"
359 $ perl_d_nice="define"
360 $ perl_d_pause="define"
361 $ perl_d_pipe="define"
362 $ perl_d_readlink="undef"
363 $ perl_d_setlinebuf="undef"
364 $ perl_d_strchr="define"
365 $ perl_d_strtod="define"
366 $ perl_d_strtol="define"
367 $ perl_d_strtoul="define"
368 $ perl_d_tcgetpgrp="undef"
369 $ perl_d_tcsetpgrp="undef"
370 $ perl_d_times="define"
371 $ perl_d_tzname="undef"
372 $ perl_d_umask="define"
373 $ perl_fpostype="fpos_t"
374 $ perl_i_dlfcn="undef"
375 $ perl_i_float="define"
376 $ perl_i_math="define"
377 $ perl_lseektype="int"
378 $ perl_i_values="undef"
379 $ perl_malloctype="void *"
380 $ perl_freetype="void"
381 $ if "''mymalloc'".eqs."Y"
383 $ perl_d_mymalloc="define"
385 $ perl_d_mymalloc="undef"
388 $ perl_modetype="unsigned int"
389 $ perl_ssizetype="int"
390 $ perl_o_nonblock=" "
393 $ perl_d_eofnblk="undef"
394 $ perl_d_oldarchlib="define"
395 $ perl_privlibexp="''perl_prefix':[lib]"
396 $ perl_privlib="''perl_prefix':[lib]"
397 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
398 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
399 $ perl_sizetype="size_t"
400 $ perl_i_sysparam="undef"
401 $ perl_d_void_closedir="define"
402 $ perl_d_dlerror="undef"
403 $ perl_d_dlsymun="undef"
404 $ perl_d_suidsafe="undef"
405 $ perl_d_dosuid="undef"
406 $ perl_d_inetaton="undef"
407 $ perl_d_isascii="define"
408 $ perl_d_mkfifo="undef"
409 $ perl_d_safebcpy="undef"
410 $ perl_d_safemcpy="define"
411 $ perl_d_sanemcmp="define"
412 $ perl_d_setpgrp="undef"
413 $ perl_d_bsdsetpgrp="undef"
414 $ perl_d_bsdpgrp="undef"
415 $ perl_d_setpgid="undef"
416 $ perl_d_setpgrp2="undef"
417 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
418 $ perl_d_getpgid="undef"
419 $ perl_d_getpgrp="undef"
420 $ perl_d_bsdgetpgrp="undef"
421 $ perl_d_getpgrp2="undef"
422 $ perl_d_sfio="undef"
423 $ perl_usedl="define"
424 $ perl_startperl="""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ + ++$status != 0 and $exit = $status = undef;"""
425 $ perl_db_hashtype=" "
426 $ perl_db_prefixtype=" "
427 $ perl_useperlio="undef"
428 $ perl_defvoidused="15"
429 $ perl_voidflags="15"
430 $ perl_d_eunice="undef"
431 $ perl_d_pwgecos="define"
432 $ IF ("''Use_Threads'".eqs."T").and.("''VMS_VER'".LES."6.2")
434 $ 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"
438 $ IF ("''Using_Dec_C'".eqs."Yes")
440 $ perl_libc="(DECCRTL)"
444 $ perl_PATCHLEVEL="''patchlevel'"
445 $ perl_SUBVERSION="''subversion'"
450 $ if (use_64bitint .eqs. "Y")
452 $ perl_d_PRIfldbl = "define"
453 $ perl_d_PRIgldbl = "define"
454 $ perl_d_PRId64 = "define"
455 $ perl_d_PRIu64 = "define"
456 $ perl_d_PRIo64 = "define"
457 $ perl_d_PRIx64 = "define"
458 $ perl_sPRIfldbl = """Lf"""
459 $ perl_sPRIgldbl = """Lg"""
460 $ perl_sPRId64 = """Ld"""
461 $ perl_sPRIu64 = """Lu"""
462 $ perl_sPRIo64 = """Lo"""
463 $ perl_sPRIx64 = """Lx"""
464 $ perl_d_quad = "define"
465 $ perl_quadtype = "long long"
466 $ perl_uquadtype = "unsigned long long"
468 $ perl_d_PRIfldbl = "undef"
469 $ perl_d_PRIgldbl = "undef"
470 $ perl_d_PRId64 = "undef"
471 $ perl_d_PRIu64 = "undef"
472 $ perl_d_PRIo64 = "undef"
473 $ perl_d_PRIx64 = "undef"
474 $ perl_sPRIfldbl = ""
475 $ perl_sPRIgldbl = ""
480 $ perl_d_quad = "undef"
483 $! Now some that we build up
485 $ LocalTime = f$time()
486 $ perl_cf_time= f$extract(0, 3, f$cvtime(LocalTime,, "WEEKDAY")) + " " + -
487 f$edit(f$cvtime(LocalTime, "ABSOLUTE", "MONTH"), "LOWERCASE") + -
488 " " + f$cvtime(LocalTime,, "DAY") + " " + f$cvtime(LocalTime,, "TIME") + -
489 " " + f$cvtime(LocalTime,, "YEAR")
490 $ if f$getsyi("HW_MODEL").ge.1024
492 $ perl_arch="VMS_AXP"
493 $ perl_archname="VMS_AXP"
494 $ perl_alignbytes="8"
496 $ perl_arch="VMS_VAX"
497 $ perl_archname="VMS_VAX"
498 $ perl_alignbytes="8"
500 $ if ("''Use_Threads'".eqs."T")
502 $ if use_5005_threads
504 $ perl_arch = "''perl_arch'-thread"
505 $ perl_archname = "''perl_archname'-thread"
506 $ perl_d_old_pthread_create_joinable = "undef"
507 $ perl_old_pthread_create_joinable = " "
508 $ perl_use5005threads = "define"
509 $ perl_useithreads = "undef"
511 $ perl_arch = "''perl_arch'-ithread"
512 $ perl_archname = "''perl_archname'-ithread"
513 $ perl_d_old_pthread_create_joinable = "undef"
514 $ perl_old_pthread_create_joinable = " "
515 $ perl_use5005threads = "undef"
516 $ perl_useithreads = "define"
519 $ perl_d_old_pthread_create_joinable = "undef"
520 $ perl_old_pthread_create_joinable = " "
521 $ perl_use5005threads = "undef"
522 $ perl_useithreads = "undef"
524 $ perl_osvers=f$edit(osvers, "TRIM")
525 $ if (perl_subversion + 0).eq.0
527 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL
529 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion
532 $! Some that we need to invoke the compiler for
533 $ OS := "open/write SOURCECHAN []temp.c"
534 $ WS := "write SOURCECHAN"
535 $ CS := "close SOURCECHAN"
536 $ DS := "delete/nolog []temp.*;*"
538 $ if ("''using_vax_c'".eqs."Yes").or.("''using_gnu_c'".eqs."Yes")
540 $ open/write OPTCHAN []temp.opt
541 $ IF ("''using_gnu_c'".eqs."Yes")
543 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
545 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
550 $! Check for __STDC__
554 $ WS "#include <stdlib.h>
556 $ WS "#include <stdio.h>
559 $ WS "#ifdef __STDC__
560 $ WS "printf(""42\n"");
562 $ WS "printf(""1\n"");
567 $ DEFINE SYS$ERROR _NLA0:
568 $ DEFINE SYS$OUTPUT _NLA0:
569 $ ON ERROR THEN CONTINUE
570 $ ON WARNING THEN CONTINUE
572 $ If (Needs_Opt.eqs."Yes")
574 $ link temp.obj,temp.opt/opt
578 $ DEASSIGN SYS$OUTPUT
580 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
581 $ DEFINE SYS$ERROR TEMPOUT
582 $ DEFINE SYS$OUTPUT TEMPOUT
585 $ DEASSIGN SYS$OUTPUT
587 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
590 $ DELETE/NOLOG [-.uu]tempout.lis;
592 $ perl_cpp_stuff=line
593 $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
595 $! Check for double size
599 $ WS "#include <stdlib.h>
601 $ WS "#include <stdio.h>
605 $ WS "foo = sizeof(double);
606 $ WS "printf(""%d\n"", foo);
610 $ DEFINE SYS$ERROR _NLA0:
611 $ DEFINE SYS$OUTPUT _NLA0:
612 $ ON ERROR THEN CONTINUE
613 $ ON WARNING THEN CONTINUE
615 $ If (Needs_Opt.eqs."Yes")
617 $ link temp.obj,temp.opt/opt
621 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
622 $ DEASSIGN SYS$OUTPUT
624 $ DEFINE SYS$ERROR TEMPOUT
625 $ DEFINE SYS$OUTPUT TEMPOUT
628 $ DEASSIGN SYS$OUTPUT
630 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
633 $ DELETE/NOLOG [-.uu]tempout.lis;
635 $ perl_doublesize=line
636 $ WRITE_RESULT "doublesize is ''perl_doublesize'"
638 $! Check for long double size
642 $ WS "#include <stdlib.h>
644 $ WS "#include <stdio.h>
647 $ WS "printf(""%d\n"", sizeof(long double));
651 $ DEFINE SYS$ERROR _NLA0:
652 $ DEFINE SYS$OUTPUT _NLA0:
653 $ ON ERROR THEN CONTINUE
654 $ ON WARNING THEN CONTINUE
656 $ teststatus = f$extract(9,1,$status)
657 $ if (teststatus.nes."1")
659 $ perl_longdblsize="0"
660 $ perl_d_longdbl="undef"
662 $ ON ERROR THEN CONTINUE
663 $ ON WARNING THEN CONTINUE
664 $ If (Needs_Opt.eqs."Yes")
666 $ link temp.obj,temp.opt/opt
670 $ teststatus = f$extract(9,1,$status)
671 $ DEASSIGN SYS$OUTPUT
673 $ if (teststatus.nes."1")
675 $ perl_longdblsize="0"
676 $ perl_d_longdbl="undef"
678 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
679 $ DEFINE SYS$ERROR TEMPOUT
680 $ DEFINE SYS$OUTPUT TEMPOUT
683 $ DEASSIGN SYS$OUTPUT
685 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
688 $ DELETE/NOLOG [-.uu]tempout.lis;
690 $ perl_longdblsize=line
691 $ perl_d_longdbl="define"
694 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
695 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
697 $! Check for long long existance and size
701 $ WS "#include <stdlib.h>
703 $ WS "#include <stdio.h>
706 $ WS "printf(""%d\n"", sizeof(long long));
710 $ DEFINE SYS$ERROR _NLA0:
711 $ DEFINE SYS$OUTPUT _NLA0:
712 $ on error then continue
713 $ on warning then continue
715 $ If (Needs_Opt.eqs."Yes")
717 $ link temp.obj,temp.opt/opt
721 $ teststatus = f$extract(9,1,$status)
722 $ DEASSIGN SYS$OUTPUT
724 $ if (teststatus.nes."1")
726 $ perl_longlongsize="0"
727 $ perl_d_longlong="undef"
729 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
730 $ DEFINE SYS$ERROR TEMPOUT
731 $ DEFINE SYS$OUTPUT TEMPOUT
734 $ DEASSIGN SYS$OUTPUT
736 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
739 $ DELETE/NOLOG [-.uu]tempout.lis;
740 $ perl_longlongsize=line
741 $ perl_d_longlong="define"
743 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
744 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
746 $! Check the prototype for getgid
750 $ WS "#include <stdlib.h>
752 $ WS "#include <stdio.h>
753 $ WS "#include <types.h>
754 $ WS "#include <unistd.h>
761 $ DEFINE SYS$ERROR _NLA0:
762 $ DEFINE SYS$OUTPUT _NLA0:
763 $ on error then continue
764 $ on warning then continue
766 $ teststatus = f$extract(9,1,$status)
767 $ DEASSIGN SYS$OUTPUT
769 $ if (teststatus.nes."1")
771 $! Okay, gid_t failed. Must be unsigned int
772 $ perl_gidtype = "unsigned int"
774 $ perl_gidtype = "gid_t"
776 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
778 $! Check to see if we've got dev_t
782 $ WS "#include <stdlib.h>
784 $ WS "#include <stdio.h>
785 $ WS "#include <types.h>
786 $ WS "#include <unistd.h>
793 $ DEFINE SYS$ERROR _NLA0:
794 $ DEFINE SYS$OUTPUT _NLA0:
795 $ on error then continue
796 $ on warning then continue
798 $ teststatus = f$extract(9,1,$status)
799 $ DEASSIGN SYS$OUTPUT
801 $ if (teststatus.nes."1")
803 $! Okay, dev_t failed. Must be unsigned int
804 $ perl_devtype = "unsigned int"
806 $ perl_devtype = "dev_t"
808 $ WRITE_RESULT "Dev_t is ''perl_devtype'"
810 $! Check to see if we've got unistd.h (which we ought to, but you never know)
814 $ WS "#include <stdlib.h>
816 $ WS "#include <unistd.h>
822 $ DEFINE SYS$ERROR _NLA0:
823 $ DEFINE SYS$OUTPUT _NLA0:
824 $ on error then continue
825 $ on warning then continue
827 $ teststatus = f$extract(9,1,$status)
828 $ DEASSIGN SYS$OUTPUT
830 $ if (teststatus.nes."1")
832 $! Okay, failed. Must not have it
833 $ perl_i_unistd = "undef"
835 $ perl_i_unistd = "define"
838 $ WRITE_RESULT "i_unistd is ''perl_i_unistd'"
840 $! Check to see if we've got shadow.h (probably not, but...)
844 $ WS "#include <stdlib.h>
846 $ WS "#include <shadow.h>
852 $ DEFINE SYS$ERROR _NLA0:
853 $ DEFINE SYS$OUTPUT _NLA0:
854 $ on error then continue
855 $ on warning then continue
857 $ teststatus = f$extract(9,1,$status)
858 $ DEASSIGN SYS$OUTPUT
860 $ if (teststatus.nes."1")
862 $! Okay, failed. Must not have it
863 $ perl_i_shadow = "undef"
865 $ perl_i_shadow = "define"
868 $ WRITE_RESULT "i_shadow is ''perl_i_shadow'"
870 $! Check to see if we've got socks.h (probably not, but...)
874 $ WS "#include <stdlib.h>
876 $ WS "#include <socks.h>
882 $ DEFINE SYS$ERROR _NLA0:
883 $ DEFINE SYS$OUTPUT _NLA0:
884 $ on error then continue
885 $ on warning then continue
887 $ teststatus = f$extract(9,1,$status)
888 $ DEASSIGN SYS$OUTPUT
890 $ if (teststatus.nes."1")
892 $! Okay, failed. Must not have it
893 $ perl_i_socks = "undef"
895 $ perl_i_socks = "define"
898 $ WRITE_RESULT "i_socks is ''perl_i_socks'"
900 $! Check the prototype for select
902 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
906 $ WS "#include <stdlib.h>
908 $ WS "#include <stdio.h>
909 $ WS "#include <types.h>
910 $ WS "#include <unistd.h>
911 $ if ("''Has_Socketshr'".eqs."T")
913 $ WS "#include <socketshr.h>"
915 $ WS "#include <time.h>
916 $ WS "#include <socket.h>
923 $ WS "bar = select(2, foo, foo, foo, NULL);
927 $ DEFINE SYS$ERROR _NLA0:
928 $ DEFINE SYS$OUTPUT _NLA0:
929 $ on error then continue
930 $ on warning then continue
932 $ teststatus = f$extract(9,1,$status)
933 $ DEASSIGN SYS$OUTPUT
935 $ if (teststatus.nes."1")
937 $! Okay, fd_set failed. Must be an int
938 $ perl_selecttype = "int *"
940 $ perl_selecttype="fd_set *"
943 $ ! No sockets, so stick in an int *
944 $ perl_selecttype = "int *"
946 $ WRITE_RESULT "selectype is ''perl_selecttype'"
948 $! Check to see if fd_set exists
952 $ WS "#include <stdlib.h>
954 $ WS "#include <stdio.h>
955 $ WS "#include <types.h>
956 $ WS "#include <unistd.h>
957 $ if ("''Has_Socketshr'".eqs."T")
959 $ WS "#include <socketshr.h>"
961 $ IF ("''Has_Dec_C_Sockets'".eqs."T")
963 $ WS "#include <time.h>
964 $ WS "#include <socket.h>
973 $ DEFINE SYS$ERROR _NLA0:
974 $ DEFINE SYS$OUTPUT _NLA0:
975 $ on error then continue
976 $ on warning then continue
978 $ teststatus = f$extract(9,1,$status)
979 $ DEASSIGN SYS$OUTPUT
981 $ if (teststatus.nes."1")
983 $! Okay, fd_set failed. Must not exist
984 $ perl_d_fd_set = "undef"
986 $ perl_d_fd_set="define"
988 $ WRITE_RESULT "d_fd_set is ''perl_d_fd_set'"
990 $! Check for inttypes.h
994 $ WS "#include <stdlib.h>
996 $ WS "#include <stdio.h>
997 $ WS "#include <unistd.h>
998 $ WS "#include <inttypes.h>
1004 $ DEFINE SYS$ERROR _NLA0:
1005 $ DEFINE SYS$OUTPUT _NLA0:
1006 $ on error then continue
1007 $ on warning then continue
1009 $ savedstatus = $status
1010 $ teststatus = f$extract(9,1,savedstatus)
1011 $ if (teststatus.nes."1")
1013 $ perl_i_inttypes="undef"
1014 $ DEASSIGN SYS$OUTPUT
1015 $ DEASSIGN SYS$ERROR
1017 $ If (Needs_Opt.eqs."Yes")
1019 $ link temp.obj,temp.opt/opt
1023 $ savedstatus = $status
1024 $ teststatus = f$extract(9,1,savedstatus)
1025 $ DEASSIGN SYS$OUTPUT
1026 $ DEASSIGN SYS$ERROR
1027 $ if (teststatus.nes."1")
1029 $ perl_i_inttypes="undef"
1031 $ perl_i_inttypes="define"
1034 $ WRITE_RESULT "i_inttypes is ''perl_i_inttypes'"
1036 $! Check to see if int64_t exists
1040 $ WS "#include <stdlib.h>
1042 $ WS "#include <stdio.h>
1043 $ WS "#include <types.h>
1044 $ WS "#''perl_i_inttypes IIH
1046 $ WS "#include <inttypes.h>
1048 $ WS "#include <unistd.h>
1055 $ DEFINE SYS$ERROR _NLA0:
1056 $ DEFINE SYS$OUTPUT _NLA0:
1057 $ on error then continue
1058 $ on warning then continue
1060 $ teststatus = f$extract(9,1,$status)
1061 $ DEASSIGN SYS$OUTPUT
1062 $ DEASSIGN SYS$ERROR
1063 $ if (teststatus.nes."1")
1065 $! Okay, int64_t failed. Must not exist
1066 $ perl_d_int64_t = "undef"
1068 $ perl_d_int64_t="define"
1070 $ WRITE_RESULT "d_int64_t is ''perl_d_int64_t'"
1072 $! Check to see if off64_t exists
1076 $ WS "#include <stdlib.h>
1078 $ WS "#include <stdio.h>
1079 $ WS "#include <types.h>
1080 $ WS "#''perl_i_inttypes IIH
1082 $ WS "#include <inttypes.h>
1084 $ WS "#include <unistd.h>
1091 $ DEFINE SYS$ERROR _NLA0:
1092 $ DEFINE SYS$OUTPUT _NLA0:
1093 $ on error then continue
1094 $ on warning then continue
1096 $ teststatus = f$extract(9,1,$status)
1097 $ DEASSIGN SYS$OUTPUT
1098 $ DEASSIGN SYS$ERROR
1099 $ if (teststatus.nes."1")
1101 $! Okay, off64_t failed. Must not exist
1102 $ perl_d_off64_t = "undef"
1104 $ perl_d_off64_t="define"
1106 $ WRITE_RESULT "d_off64_t is ''perl_d_off64_t'"
1108 $! Check to see if fpos64_t exists
1112 $ WS "#include <stdlib.h>
1114 $ WS "#include <stdio.h>
1115 $ WS "#include <types.h>
1116 $ WS "#''perl_i_inttypes IIH
1118 $ WS "#include <inttypes.h>
1120 $ WS "#include <unistd.h>
1127 $ DEFINE SYS$ERROR _NLA0:
1128 $ DEFINE SYS$OUTPUT _NLA0:
1129 $ on error then continue
1130 $ on warning then continue
1132 $ teststatus = f$extract(9,1,$status)
1133 $ DEASSIGN SYS$OUTPUT
1134 $ DEASSIGN SYS$ERROR
1135 $ if (teststatus.nes."1")
1137 $! Okay, fpos64_t failed. Must not exist
1138 $ perl_d_fpos64_t = "undef"
1140 $ perl_d_fpos64_t="define"
1142 $ WRITE_RESULT "d_fpos64_t is ''perl_d_fpos64_t'"
1144 $! Check to see if gethostname exists
1146 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1150 $ WS "#include <stdlib.h>
1152 $ WS "#include <stdio.h>
1153 $ WS "#include <types.h>
1154 $ WS "#include <unistd.h>
1155 $ if ("''Has_Socketshr'".eqs."T")
1157 $ WS "#include <socketshr.h>"
1159 $ WS "#include <time.h>
1160 $ WS "#include <socket.h>
1164 $ WS "char name[100];
1167 $ WS "baz = gethostname(name, bar);
1171 $ DEFINE SYS$ERROR _NLA0:
1172 $ DEFINE SYS$OUTPUT _NLA0:
1173 $ on error then continue
1174 $ on warning then continue
1176 $ teststatus = f$extract(9,1,$status)
1177 $ DEASSIGN SYS$OUTPUT
1178 $ DEASSIGN SYS$ERROR
1179 $ if (teststatus.nes."1")
1181 $! Okay, compile failed. Must not have it
1182 $ perl_dgethname = "undef"
1184 $ If (Needs_Opt.eqs."Yes")
1186 $ link temp.obj,temp.opt/opt
1190 $ savedstatus = $status
1191 $ teststatus = f$extract(9,1,savedstatus)
1192 $ if (teststatus.nes."1")
1194 $ perl_d_gethname="undef"
1196 $ perl_d_gethname="define"
1200 $ ! No sockets, so no gethname
1201 $ perl_d_gethname = "undef"
1203 $ WRITE_RESULT "d_gethname is ''perl_d_gethname'"
1205 $! Check for sys/file.h
1209 $ WS "#include <stdlib.h>
1211 $ WS "#include <stdio.h>
1212 $ WS "#include <unistd.h>
1213 $ WS "#include <sys/file.h>
1219 $ DEFINE SYS$ERROR _NLA0:
1220 $ DEFINE SYS$OUTPUT _NLA0:
1221 $ on error then continue
1222 $ on warning then continue
1224 $ savedstatus = $status
1225 $ teststatus = f$extract(9,1,savedstatus)
1226 $ if (teststatus.nes."1")
1228 $ perl_i_sysfile="undef"
1229 $ DEASSIGN SYS$OUTPUT
1230 $ DEASSIGN SYS$ERROR
1232 $ If (Needs_Opt.eqs."Yes")
1234 $ link temp.obj,temp.opt/opt
1238 $ savedstatus = $status
1239 $ teststatus = f$extract(9,1,savedstatus)
1240 $ DEASSIGN SYS$OUTPUT
1241 $ DEASSIGN SYS$ERROR
1242 $ if (teststatus.nes."1")
1244 $ perl_i_sysfile="undef"
1246 $ perl_i_sysfile="define"
1249 $ WRITE_RESULT "i_sysfile is ''perl_i_sysfile'"
1251 $! Check for sys/utsname.h
1255 $ WS "#include <stdlib.h>
1257 $ WS "#include <stdio.h>
1258 $ WS "#include <unistd.h>
1259 $ WS "#include <sys/utsname.h>
1265 $ DEFINE SYS$ERROR _NLA0:
1266 $ DEFINE SYS$OUTPUT _NLA0:
1267 $ on error then continue
1268 $ on warning then continue
1270 $ savedstatus = $status
1271 $ teststatus = f$extract(9,1,savedstatus)
1272 $ if (teststatus.nes."1")
1274 $ perl_i_sysutsname="undef"
1275 $ DEASSIGN SYS$OUTPUT
1276 $ DEASSIGN SYS$ERROR
1278 $ If (Needs_Opt.eqs."Yes")
1280 $ link temp.obj,temp.opt/opt
1284 $ savedstatus = $status
1285 $ teststatus = f$extract(9,1,savedstatus)
1286 $ DEASSIGN SYS$OUTPUT
1287 $ DEASSIGN SYS$ERROR
1288 $ if (teststatus.nes."1")
1290 $ perl_i_sysutsname="undef"
1292 $ perl_i_sysutsname="define"
1295 $ WRITE_RESULT "i_sysutsname is ''perl_i_sysutsname'"
1297 $! Check for syslog.h
1301 $ WS "#include <stdlib.h>
1303 $ WS "#include <stdio.h>
1304 $ WS "#include <unistd.h>
1305 $ WS "#include <syslog.h>
1311 $ DEFINE SYS$ERROR _NLA0:
1312 $ DEFINE SYS$OUTPUT _NLA0:
1313 $ on error then continue
1314 $ on warning then continue
1316 $ savedstatus = $status
1317 $ teststatus = f$extract(9,1,savedstatus)
1318 $ if (teststatus.nes."1")
1320 $ perl_i_syslog="undef"
1321 $ DEASSIGN SYS$OUTPUT
1322 $ DEASSIGN SYS$ERROR
1324 $ If (Needs_Opt.eqs."Yes")
1326 $ link temp.obj,temp.opt/opt
1330 $ savedstatus = $status
1331 $ teststatus = f$extract(9,1,savedstatus)
1332 $ DEASSIGN SYS$OUTPUT
1333 $ DEASSIGN SYS$ERROR
1334 $ if (teststatus.nes."1")
1336 $ perl_i_syslog="undef"
1338 $ perl_i_syslog="define"
1341 $ WRITE_RESULT "i_syslog is ''perl_i_syslog'"
1347 $ WS "#include <stdlib.h>
1349 $ WS "#include <stdio.h>
1350 $ WS "#include <unistd.h>
1351 $ WS "#include <poll.h>
1357 $ DEFINE SYS$ERROR _NLA0:
1358 $ DEFINE SYS$OUTPUT _NLA0:
1359 $ on error then continue
1360 $ on warning then continue
1362 $ savedstatus = $status
1363 $ teststatus = f$extract(9,1,savedstatus)
1364 $ if (teststatus.nes."1")
1366 $ perl_i_poll="undef"
1367 $ DEASSIGN SYS$OUTPUT
1368 $ DEASSIGN SYS$ERROR
1370 $ If (Needs_Opt.eqs."Yes")
1372 $ link temp.obj,temp.opt/opt
1376 $ savedstatus = $status
1377 $ teststatus = f$extract(9,1,savedstatus)
1378 $ DEASSIGN SYS$OUTPUT
1379 $ DEASSIGN SYS$ERROR
1380 $ if (teststatus.nes."1")
1382 $ perl_i_poll="undef"
1384 $ perl_i_poll="define"
1387 $ WRITE_RESULT "i_poll is ''perl_i_poll'"
1389 $! Check for sys/uio.h
1393 $ WS "#include <stdlib.h>
1395 $ WS "#include <stdio.h>
1396 $ WS "#include <unistd.h>
1397 $ WS "#include <sys/uio.h>
1403 $ DEFINE SYS$ERROR _NLA0:
1404 $ DEFINE SYS$OUTPUT _NLA0:
1405 $ on error then continue
1406 $ on warning then continue
1408 $ savedstatus = $status
1409 $ teststatus = f$extract(9,1,savedstatus)
1410 $ if (teststatus.nes."1")
1412 $ perl_i_sysuio="undef"
1413 $ DEASSIGN SYS$OUTPUT
1414 $ DEASSIGN SYS$ERROR
1416 $ If (Needs_Opt.eqs."Yes")
1418 $ link temp.obj,temp.opt/opt
1422 $ savedstatus = $status
1423 $ teststatus = f$extract(9,1,savedstatus)
1424 $ DEASSIGN SYS$OUTPUT
1425 $ DEASSIGN SYS$ERROR
1426 $ if (teststatus.nes."1")
1428 $ perl_i_sysuio="undef"
1430 $ perl_i_sysuio="define"
1433 $ WRITE_RESULT "i_sysuio is ''perl_i_sysuio'"
1435 $! Check for sys/mode.h
1439 $ WS "#include <stdlib.h>
1441 $ WS "#include <stdio.h>
1442 $ WS "#include <unistd.h>
1443 $ WS "#include <sys/mode.h>
1449 $ DEFINE SYS$ERROR _NLA0:
1450 $ DEFINE SYS$OUTPUT _NLA0:
1451 $ on error then continue
1452 $ on warning then continue
1454 $ savedstatus = $status
1455 $ teststatus = f$extract(9,1,savedstatus)
1456 $ if (teststatus.nes."1")
1458 $ perl_i_sysmode="undef"
1459 $ DEASSIGN SYS$OUTPUT
1460 $ DEASSIGN SYS$ERROR
1462 $ If (Needs_Opt.eqs."Yes")
1464 $ link temp.obj,temp.opt/opt
1468 $ savedstatus = $status
1469 $ teststatus = f$extract(9,1,savedstatus)
1470 $ DEASSIGN SYS$OUTPUT
1471 $ DEASSIGN SYS$ERROR
1472 $ if (teststatus.nes."1")
1474 $ perl_i_sysmode="undef"
1476 $ perl_i_sysmode="define"
1479 $ WRITE_RESULT "i_sysmode is ''perl_i_sysmode'"
1481 $! Check for sys/access.h
1485 $ WS "#include <stdlib.h>
1487 $ WS "#include <stdio.h>
1488 $ WS "#include <unistd.h>
1489 $ WS "#include <sys/access.h>
1495 $ DEFINE SYS$ERROR _NLA0:
1496 $ DEFINE SYS$OUTPUT _NLA0:
1497 $ on error then continue
1498 $ on warning then continue
1500 $ savedstatus = $status
1501 $ teststatus = f$extract(9,1,savedstatus)
1502 $ if (teststatus.nes."1")
1504 $ perl_i_sysaccess="undef"
1505 $ DEASSIGN SYS$OUTPUT
1506 $ DEASSIGN SYS$ERROR
1508 $ If (Needs_Opt.eqs."Yes")
1510 $ link temp.obj,temp.opt/opt
1514 $ savedstatus = $status
1515 $ teststatus = f$extract(9,1,savedstatus)
1516 $ DEASSIGN SYS$OUTPUT
1517 $ DEASSIGN SYS$ERROR
1518 $ if (teststatus.nes."1")
1520 $ perl_i_sysaccess="undef"
1522 $ perl_i_sysaccess="define"
1525 $ WRITE_RESULT "i_sysaccess is ''perl_i_sysaccess'"
1527 $! Check for sys/security.h
1531 $ WS "#include <stdlib.h>
1533 $ WS "#include <stdio.h>
1534 $ WS "#include <unistd.h>
1535 $ WS "#include <sys/security.h>
1541 $ DEFINE SYS$ERROR _NLA0:
1542 $ DEFINE SYS$OUTPUT _NLA0:
1543 $ on error then continue
1544 $ on warning then continue
1546 $ savedstatus = $status
1547 $ teststatus = f$extract(9,1,savedstatus)
1548 $ if (teststatus.nes."1")
1550 $ perl_i_syssecrt="undef"
1551 $ DEASSIGN SYS$OUTPUT
1552 $ DEASSIGN SYS$ERROR
1554 $ If (Needs_Opt.eqs."Yes")
1556 $ link temp.obj,temp.opt/opt
1560 $ savedstatus = $status
1561 $ teststatus = f$extract(9,1,savedstatus)
1562 $ DEASSIGN SYS$OUTPUT
1563 $ DEASSIGN SYS$ERROR
1564 $ if (teststatus.nes."1")
1566 $ perl_i_syssecrt="undef"
1568 $ perl_i_syssecrt="define"
1571 $ WRITE_RESULT "i_syssecrt is ''perl_i_syssecrt'"
1573 $! Check for fcntl.h
1577 $ WS "#include <stdlib.h>
1579 $ WS "#include <stdio.h>
1580 $ WS "#include <unistd.h>
1581 $ WS "#include <fcntl.h>
1587 $ DEFINE SYS$ERROR _NLA0:
1588 $ DEFINE SYS$OUTPUT _NLA0:
1589 $ on error then continue
1590 $ on warning then continue
1592 $ savedstatus = $status
1593 $ teststatus = f$extract(9,1,savedstatus)
1594 $ if (teststatus.nes."1")
1596 $ perl_i_fcntl="undef"
1597 $ DEASSIGN SYS$OUTPUT
1598 $ DEASSIGN SYS$ERROR
1600 $ If (Needs_Opt.eqs."Yes")
1602 $ link temp.obj,temp.opt/opt
1606 $ savedstatus = $status
1607 $ teststatus = f$extract(9,1,savedstatus)
1608 $ DEASSIGN SYS$OUTPUT
1609 $ DEASSIGN SYS$ERROR
1610 $ if (teststatus.nes."1")
1612 $ perl_i_fcntl="undef"
1614 $ perl_i_fcntl="define"
1617 $ WRITE_RESULT "i_fcntl is ''perl_i_fcntl'"
1623 $ WS "#include <stdlib.h>
1625 $ WS "#include <stdio.h>
1626 $ WS "#include <unistd.h>
1627 $ WS "#include <fcntl.h>
1634 $ DEFINE SYS$ERROR _NLA0:
1635 $ DEFINE SYS$OUTPUT _NLA0:
1636 $ on error then continue
1637 $ on warning then continue
1639 $ savedstatus = $status
1640 $ teststatus = f$extract(9,1,savedstatus)
1641 $ if (teststatus.nes."1")
1643 $ perl_d_fcntl="undef"
1644 $ DEASSIGN SYS$OUTPUT
1645 $ DEASSIGN SYS$ERROR
1647 $ If (Needs_Opt.eqs."Yes")
1649 $ link temp.obj,temp.opt/opt
1653 $ savedstatus = $status
1654 $ teststatus = f$extract(9,1,savedstatus)
1655 $ DEASSIGN SYS$OUTPUT
1656 $ DEASSIGN SYS$ERROR
1657 $ if (teststatus.nes."1")
1659 $ perl_d_fcntl="undef"
1661 $ perl_d_fcntl="define"
1664 $ WRITE_RESULT "d_fcntl is ''perl_d_fcntl'"
1670 $ WS "#include <stdlib.h>
1672 $ WS "#include <string.h>
1676 $ WS "place = memchr(""foo"", 47, 3)
1680 $ DEFINE SYS$ERROR _NLA0:
1681 $ DEFINE SYS$OUTPUT _NLA0:
1682 $ on error then continue
1683 $ on warning then continue
1685 $ savedstatus = $status
1686 $ teststatus = f$extract(9,1,savedstatus)
1687 $ if (teststatus.nes."1")
1689 $ perl_d_memchr="undef"
1690 $ DEASSIGN SYS$OUTPUT
1691 $ DEASSIGN SYS$ERROR
1693 $ If (Needs_Opt.eqs."Yes")
1695 $ link temp.obj,temp.opt/opt
1699 $ savedstatus = $status
1700 $ teststatus = f$extract(9,1,savedstatus)
1701 $ DEASSIGN SYS$OUTPUT
1702 $ DEASSIGN SYS$ERROR
1703 $ if (teststatus.nes."1")
1705 $ perl_d_memchr="undef"
1707 $ perl_d_memchr="define"
1710 $ WRITE_RESULT "d_memchr is ''perl_d_memchr'"
1712 $! Check for strtoull
1716 $ WS "#include <stdlib.h>
1718 $ WS "#include <string.h>
1721 $ WS "unsigned __int64 result;
1722 $ WS "result = strtoull(""123123"", NULL, 10);
1726 $ DEFINE SYS$ERROR _NLA0:
1727 $ DEFINE SYS$OUTPUT _NLA0:
1728 $ on error then continue
1729 $ on warning then continue
1731 $ savedstatus = $status
1732 $ teststatus = f$extract(9,1,savedstatus)
1733 $ if (teststatus.nes."1")
1735 $ perl_d_strtoull="undef"
1736 $ DEASSIGN SYS$OUTPUT
1737 $ DEASSIGN SYS$ERROR
1739 $ If (Needs_Opt.eqs."Yes")
1741 $ link temp.obj,temp.opt/opt
1745 $ savedstatus = $status
1746 $ teststatus = f$extract(9,1,savedstatus)
1747 $ DEASSIGN SYS$OUTPUT
1748 $ DEASSIGN SYS$ERROR
1749 $ if (teststatus.nes."1")
1751 $ perl_d_strtoull="undef"
1753 $ perl_d_strtoull="define"
1756 $ WRITE_RESULT "d_strtoull is ''perl_d_strtoull'"
1758 $! Check for strtouq
1762 $ WS "#include <stdlib.h>
1764 $ WS "#include <string.h>
1767 $ WS "unsigned __int64 result;
1768 $ WS "result = strtouq(""123123"", NULL, 10);
1772 $ DEFINE SYS$ERROR _NLA0:
1773 $ DEFINE SYS$OUTPUT _NLA0:
1774 $ on error then continue
1775 $ on warning then continue
1777 $ savedstatus = $status
1778 $ teststatus = f$extract(9,1,savedstatus)
1779 $ if (teststatus.nes."1")
1781 $ perl_d_strtouq="undef"
1782 $ DEASSIGN SYS$OUTPUT
1783 $ DEASSIGN SYS$ERROR
1785 $ If (Needs_Opt.eqs."Yes")
1787 $ link temp.obj,temp.opt/opt
1791 $ savedstatus = $status
1792 $ teststatus = f$extract(9,1,savedstatus)
1793 $ DEASSIGN SYS$OUTPUT
1794 $ DEASSIGN SYS$ERROR
1795 $ if (teststatus.nes."1")
1797 $ perl_d_strtouq="undef"
1799 $ perl_d_strtouq="define"
1802 $ WRITE_RESULT "d_strtouq is ''perl_d_strtouq'"
1804 $! Check for strtoll
1808 $ WS "#include <stdlib.h>
1810 $ WS "#include <string.h>
1813 $ WS "__int64 result;
1814 $ WS "result = strtoll(""123123"", NULL, 10);
1818 $ DEFINE SYS$ERROR _NLA0:
1819 $ DEFINE SYS$OUTPUT _NLA0:
1820 $ on error then continue
1821 $ on warning then continue
1823 $ savedstatus = $status
1824 $ teststatus = f$extract(9,1,savedstatus)
1825 $ if (teststatus.nes."1")
1827 $ perl_d_strtoll="undef"
1828 $ DEASSIGN SYS$OUTPUT
1829 $ DEASSIGN SYS$ERROR
1831 $ If (Needs_Opt.eqs."Yes")
1833 $ link temp.obj,temp.opt/opt
1837 $ savedstatus = $status
1838 $ teststatus = f$extract(9,1,savedstatus)
1839 $ DEASSIGN SYS$OUTPUT
1840 $ DEASSIGN SYS$ERROR
1841 $ if (teststatus.nes."1")
1843 $ perl_d_strtoll="undef"
1845 $ perl_d_strtoll="define"
1848 $ WRITE_RESULT "d_strtoll is ''perl_d_strtoll'"
1850 $! Check for strtold
1854 $ WS "#include <stdlib.h>
1856 $ WS "#include <string.h>
1859 $ WS "long double result;
1860 $ WS "result = strtold(""123123"", NULL, 10);
1864 $ DEFINE SYS$ERROR _NLA0:
1865 $ DEFINE SYS$OUTPUT _NLA0:
1866 $ on error then continue
1867 $ on warning then continue
1869 $ savedstatus = $status
1870 $ teststatus = f$extract(9,1,savedstatus)
1871 $ if (teststatus.nes."1")
1873 $ perl_d_strtold="undef"
1874 $ DEASSIGN SYS$OUTPUT
1875 $ DEASSIGN SYS$ERROR
1877 $ If (Needs_Opt.eqs."Yes")
1879 $ link temp.obj,temp.opt/opt
1883 $ savedstatus = $status
1884 $ teststatus = f$extract(9,1,savedstatus)
1885 $ DEASSIGN SYS$OUTPUT
1886 $ DEASSIGN SYS$ERROR
1887 $ if (teststatus.nes."1")
1889 $ perl_d_strtold="undef"
1891 $ perl_d_strtold="define"
1894 $ WRITE_RESULT "d_strtold is ''perl_d_strtold'"
1900 $ WS "#include <stdlib.h>
1902 $ WS "#include <string.h>
1905 $ WS " __int64 result;
1906 $ WS "result = atoll(""123123"");
1910 $ DEFINE SYS$ERROR _NLA0:
1911 $ DEFINE SYS$OUTPUT _NLA0:
1912 $ on error then continue
1913 $ on warning then continue
1915 $ savedstatus = $status
1916 $ teststatus = f$extract(9,1,savedstatus)
1917 $ if (teststatus.nes."1")
1919 $ perl_d_atoll="undef"
1920 $ DEASSIGN SYS$OUTPUT
1921 $ DEASSIGN SYS$ERROR
1923 $ If (Needs_Opt.eqs."Yes")
1925 $ link temp.obj,temp.opt/opt
1929 $ savedstatus = $status
1930 $ teststatus = f$extract(9,1,savedstatus)
1931 $ DEASSIGN SYS$OUTPUT
1932 $ DEASSIGN SYS$ERROR
1933 $ if (teststatus.nes."1")
1935 $ perl_d_atoll="undef"
1937 $ perl_d_atoll="define"
1940 $ WRITE_RESULT "d_atoll is ''perl_d_atoll'"
1946 $ WS "#include <stdlib.h>
1948 $ WS "#include <string.h>
1952 $ WS "result = atolf(""123123"");
1956 $ DEFINE SYS$ERROR _NLA0:
1957 $ DEFINE SYS$OUTPUT _NLA0:
1958 $ on error then continue
1959 $ on warning then continue
1961 $ savedstatus = $status
1962 $ teststatus = f$extract(9,1,savedstatus)
1963 $ if (teststatus.nes."1")
1965 $ perl_d_atolf="undef"
1966 $ DEASSIGN SYS$OUTPUT
1967 $ DEASSIGN SYS$ERROR
1969 $ If (Needs_Opt.eqs."Yes")
1971 $ link temp.obj,temp.opt/opt
1975 $ savedstatus = $status
1976 $ teststatus = f$extract(9,1,savedstatus)
1977 $ DEASSIGN SYS$OUTPUT
1978 $ DEASSIGN SYS$ERROR
1979 $ if (teststatus.nes."1")
1981 $ perl_d_atolf="undef"
1983 $ perl_d_atolf="define"
1986 $ WRITE_RESULT "d_atolf is ''perl_d_atolf'"
1992 $ WS "#include <stdlib.h>
1994 $ WS "#include <stdio.h>
1995 $ WS "#include <unistd.h>
1998 $ WS "access("foo", F_OK);
2002 $ DEFINE SYS$ERROR _NLA0:
2003 $ DEFINE SYS$OUTPUT _NLA0:
2004 $ on error then continue
2005 $ on warning then continue
2007 $ savedstatus = $status
2008 $ teststatus = f$extract(9,1,savedstatus)
2009 $ if (teststatus.nes."1")
2011 $ perl_d_access="undef"
2012 $ DEASSIGN SYS$OUTPUT
2013 $ DEASSIGN SYS$ERROR
2015 $ If (Needs_Opt.eqs."Yes")
2017 $ link temp.obj,temp.opt/opt
2021 $ savedstatus = $status
2022 $ teststatus = f$extract(9,1,savedstatus)
2023 $ DEASSIGN SYS$OUTPUT
2024 $ DEASSIGN SYS$ERROR
2025 $ if (teststatus.nes."1")
2027 $ perl_d_access="undef"
2029 $ perl_d_access="define"
2032 $ WRITE_RESULT "d_access is ''perl_d_access'"
2038 $ WS "#include <stdlib.h>
2040 $ WS "#include <stdio.h>
2041 $ WS "#include <strings.h>
2045 $ WS "bzero(foo, 10);
2049 $ DEFINE SYS$ERROR _NLA0:
2050 $ DEFINE SYS$OUTPUT _NLA0:
2051 $ on error then continue
2052 $ on warning then continue
2054 $ savedstatus = $status
2055 $ teststatus = f$extract(9,1,savedstatus)
2056 $ if (teststatus.nes."1")
2058 $ perl_d_bzero="undef"
2059 $ DEASSIGN SYS$OUTPUT
2060 $ DEASSIGN SYS$ERROR
2062 $ If (Needs_Opt.eqs."Yes")
2064 $ link temp.obj,temp.opt/opt
2068 $ savedstatus = $status
2069 $ teststatus = f$extract(9,1,savedstatus)
2070 $ DEASSIGN SYS$OUTPUT
2071 $ DEASSIGN SYS$ERROR
2072 $ if (teststatus.nes."1")
2074 $ perl_d_bzero="undef"
2076 $ perl_d_bzero="define"
2079 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
2085 $ WS "#include <stdlib.h>
2087 $ WS "#include <stdio.h>
2088 $ WS "#include <strings.h>
2091 $ WS "char foo[10], bar[10];
2092 $ WS "bcopy(""foo"", bar, 3);
2096 $ DEFINE SYS$ERROR _NLA0:
2097 $ DEFINE SYS$OUTPUT _NLA0:
2098 $ on error then continue
2099 $ on warning then continue
2101 $ savedstatus = $status
2102 $ teststatus = f$extract(9,1,savedstatus)
2103 $ if (teststatus.nes."1")
2105 $ perl_d_bcopy="undef"
2106 $ DEASSIGN SYS$OUTPUT
2107 $ DEASSIGN SYS$ERROR
2109 $ If (Needs_Opt.eqs."Yes")
2111 $ link temp.obj,temp.opt/opt
2115 $ savedstatus = $status
2116 $ teststatus = f$extract(9,1,savedstatus)
2117 $ DEASSIGN SYS$OUTPUT
2118 $ DEASSIGN SYS$ERROR
2119 $ if (teststatus.nes."1")
2121 $ perl_d_bcopy="undef"
2123 $ perl_d_bcopy="define"
2126 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
2128 $! Check for mkstemp
2132 $ WS "#include <stdlib.h>
2134 $ WS "#include <stdio.h>
2137 $ WS "mkstemp(""foo"");
2141 $ DEFINE SYS$ERROR _NLA0:
2142 $ DEFINE SYS$OUTPUT _NLA0:
2143 $ on error then continue
2144 $ on warning then continue
2146 $ If (Needs_Opt.eqs."Yes")
2148 $ link temp.obj,temp.opt/opt
2152 $ savedstatus = $status
2153 $ teststatus = f$extract(9,1,savedstatus)
2154 $ DEASSIGN SYS$OUTPUT
2155 $ DEASSIGN SYS$ERROR
2156 $ if (teststatus.nes."1")
2158 $ perl_d_mkstemp="undef"
2160 $ perl_d_mkstemp="define"
2162 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
2164 $! Check for mkstemps
2168 $ WS "#include <stdlib.h>
2170 $ WS "#include <stdio.h>
2173 $ WS "mkstemps(""foo"", 1);
2177 $ DEFINE SYS$ERROR _NLA0:
2178 $ DEFINE SYS$OUTPUT _NLA0:
2179 $ on error then continue
2180 $ on warning then continue
2182 $ If (Needs_Opt.eqs."Yes")
2184 $ link temp.obj,temp.opt/opt
2188 $ savedstatus = $status
2189 $ teststatus = f$extract(9,1,savedstatus)
2190 $ DEASSIGN SYS$OUTPUT
2191 $ DEASSIGN SYS$ERROR
2192 $ if (teststatus.nes."1")
2194 $ perl_d_mkstemps="undef"
2196 $ perl_d_mkstemps="define"
2198 $ WRITE_RESULT "d_mkstemps is ''perl_d_mkstemps'"
2204 $ WS "#include <stdlib.h>
2206 $ WS "#include <stdio.h>
2207 $ WS "#include <iconv.h>
2210 $ WS " iconv_t cd = (iconv_t)0;"
2211 $ WS " char *inbuf, *outbuf;"
2212 $ WS " size_t inleft, outleft;"
2213 $ WS " iconv(cd, &inbuf, &inleft, &outbuf, &outleft);"
2217 $ DEFINE SYS$ERROR _NLA0:
2218 $ DEFINE SYS$OUTPUT _NLA0:
2219 $ on error then continue
2220 $ on warning then continue
2222 $ savedstatus = $status
2223 $ teststatus = f$extract(9,1,savedstatus)
2224 $ if (teststatus.nes."1")
2226 $ perl_d_iconv="undef"
2227 $ perl_i_iconv="undef"
2228 $ DEASSIGN SYS$OUTPUT
2229 $ DEASSIGN SYS$ERROR
2231 $ If (Needs_Opt.eqs."Yes")
2233 $ link temp.obj,temp.opt/opt
2237 $ savedstatus = $status
2238 $ teststatus = f$extract(9,1,savedstatus)
2239 $ DEASSIGN SYS$OUTPUT
2240 $ DEASSIGN SYS$ERROR
2241 $ if (teststatus.nes."1")
2243 $ perl_d_iconv="undef"
2244 $ perl_i_iconv="undef"
2246 $ perl_d_iconv="define"
2247 $ perl_i_iconv="define"
2250 $ WRITE_RESULT "d_iconv is ''perl_d_iconv'"
2251 $ WRITE_RESULT "i_iconv is ''perl_i_iconv'"
2253 $! Check for mkdtemp
2257 $ WS "#include <stdlib.h>
2259 $ WS "#include <stdio.h>
2262 $ WS "mkdtemp(""foo"");
2266 $ DEFINE SYS$ERROR _NLA0:
2267 $ DEFINE SYS$OUTPUT _NLA0:
2268 $ on error then continue
2269 $ on warning then continue
2271 $ If (Needs_Opt.eqs."Yes")
2273 $ link temp.obj,temp.opt/opt
2277 $ savedstatus = $status
2278 $ teststatus = f$extract(9,1,savedstatus)
2279 $ DEASSIGN SYS$OUTPUT
2280 $ DEASSIGN SYS$ERROR
2281 $ if (teststatus.nes."1")
2283 $ perl_d_mkdtemp="undef"
2285 $ perl_d_mkdtemp="define"
2287 $ WRITE_RESULT "d_mkdtemp is ''perl_d_mkdtemp'"
2289 $! Check for setvbuf
2293 $ WS "#include <stdlib.h>
2295 $ WS "#include <stdio.h>
2299 $ WS "char Buffer[99];
2300 $ WS "foo = fopen(""foo"", ""r"");
2301 $ WS "setvbuf(foo, Buffer, 0, 0);
2305 $ DEFINE SYS$ERROR _NLA0:
2306 $ DEFINE SYS$OUTPUT _NLA0:
2307 $ on error then continue
2308 $ on warning then continue
2310 $ If (Needs_Opt.eqs."Yes")
2312 $ link temp.obj,temp.opt/opt
2316 $ teststatus = f$extract(9,1,$status)
2317 $ DEASSIGN SYS$OUTPUT
2318 $ DEASSIGN SYS$ERROR
2319 $ if (teststatus.nes."1")
2321 $ perl_d_setvbuf="undef"
2323 $ perl_d_setvbuf="define"
2325 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
2331 $ WS "#include <stdlib.h>
2333 $ WS "#include <stdio.h>
2336 $ WS "setenv(""FOO"", ""BAR"", 0);
2340 $ DEFINE SYS$ERROR _NLA0:
2341 $ DEFINE SYS$OUTPUT _NLA0:
2342 $ on error then continue
2343 $ on warning then continue
2345 $ If (Needs_Opt.eqs."Yes")
2347 $ link temp,temp/opt
2351 $ teststatus = f$extract(9,1,$status)
2352 $ DEASSIGN SYS$OUTPUT
2353 $ DEASSIGN SYS$ERROR
2354 $ if (teststatus.nes."1")
2356 $ perl_d_setenv="undef"
2358 $ perl_d_setenv="define"
2360 $ WRITE_RESULT "d_setenv is ''perl_d_setenv'"
2362 $! Check for <netinet/in.h>
2364 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2368 $ WS "#include <stdlib.h>
2370 $ WS "#include <stdio.h>
2371 $ if ("''Has_Socketshr'".eqs."T")
2373 $ WS "#include <socketshr.h>"
2375 $ WS "#include <netdb.h>
2377 $ WS "#include <netinet/in.h>"
2383 $ DEFINE SYS$ERROR _NLA0:
2384 $ DEFINE SYS$OUTPUT _NLA0:
2385 $ on error then continue
2386 $ on warning then continue
2388 $ If (Needs_Opt.eqs."Yes")
2390 $ link temp.obj,temp.opt/opt
2394 $ teststatus = f$extract(9,1,$status)
2395 $ DEASSIGN SYS$OUTPUT
2396 $ DEASSIGN SYS$ERROR
2397 $ if (teststatus.nes."1")
2399 $ perl_i_niin="undef"
2401 $ perl_i_niin="define"
2404 $ perl_i_niin="undef"
2406 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
2408 $! Check for <netinet/tcp.h>
2410 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2414 $ WS "#include <stdlib.h>
2416 $ WS "#include <stdio.h>
2417 $ if ("''Has_Socketshr'".eqs."T")
2419 $ WS "#include <socketshr.h>"
2421 $ WS "#include <netdb.h>
2423 $ WS "#include <netinet/tcp.h>"
2429 $ DEFINE SYS$ERROR _NLA0:
2430 $ DEFINE SYS$OUTPUT _NLA0:
2431 $ on error then continue
2432 $ on warning then continue
2434 $ If (Needs_Opt.eqs."Yes")
2436 $ link temp.obj,temp.opt/opt
2440 $ teststatus = f$extract(9,1,$status)
2441 $ DEASSIGN SYS$OUTPUT
2442 $ DEASSIGN SYS$ERROR
2443 $ if (teststatus.nes."1")
2445 $ perl_i_netinettcp="undef"
2447 $ perl_i_netinettcp="define"
2450 $ perl_i_netinettcp="undef"
2452 $ WRITE_RESULT "i_netinettcp is ''perl_i_netinettcp'"
2454 $! Check for endhostent
2456 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2460 $ WS "#include <stdlib.h>
2462 $ WS "#include <stdio.h>
2463 $ if ("''Has_Socketshr'".eqs."T")
2465 $ WS "#include <socketshr.h>"
2467 $ WS "#include <netdb.h>
2475 $ DEFINE SYS$ERROR _NLA0:
2476 $ DEFINE SYS$OUTPUT _NLA0:
2477 $ on error then continue
2478 $ on warning then continue
2480 $ If (Needs_Opt.eqs."Yes")
2482 $ link temp.obj,temp.opt/opt
2486 $ teststatus = f$extract(9,1,$status)
2487 $ DEASSIGN SYS$OUTPUT
2488 $ DEASSIGN SYS$ERROR
2489 $ if (teststatus.nes."1")
2491 $ perl_d_endhent="undef"
2493 $ perl_d_endhent="define"
2496 $ perl_d_endhent="undef"
2498 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
2500 $! Check for endnetent
2502 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2506 $ WS "#include <stdlib.h>
2508 $ WS "#include <stdio.h>
2509 $ if ("''Has_Socketshr'".eqs."T")
2511 $ WS "#include <socketshr.h>"
2513 $ WS "#include <netdb.h>
2521 $ DEFINE SYS$ERROR _NLA0:
2522 $ DEFINE SYS$OUTPUT _NLA0:
2523 $ on error then continue
2524 $ on warning then continue
2526 $ If (Needs_Opt.eqs."Yes")
2528 $ link temp.obj,temp.opt/opt
2532 $ teststatus = f$extract(9,1,$status)
2533 $ DEASSIGN SYS$OUTPUT
2534 $ DEASSIGN SYS$ERROR
2535 $ if (teststatus.nes."1")
2537 $ perl_d_endnent="undef"
2539 $ perl_d_endnent="define"
2542 $ perl_d_endnent="undef"
2544 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
2546 $! Check for endprotoent
2548 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2552 $ WS "#include <stdlib.h>
2554 $ WS "#include <stdio.h>
2555 $ if ("''Has_Socketshr'".eqs."T")
2557 $ WS "#include <socketshr.h>"
2559 $ WS "#include <netdb.h>
2563 $ WS "endprotoent();
2567 $ DEFINE SYS$ERROR _NLA0:
2568 $ DEFINE SYS$OUTPUT _NLA0:
2569 $ on error then continue
2570 $ on warning then continue
2572 $ If (Needs_Opt.eqs."Yes")
2574 $ link temp.obj,temp.opt/opt
2578 $ teststatus = f$extract(9,1,$status)
2579 $ DEASSIGN SYS$OUTPUT
2580 $ DEASSIGN SYS$ERROR
2581 $ if (teststatus.nes."1")
2583 $ perl_d_endpent="undef"
2585 $ perl_d_endpent="define"
2588 $ perl_d_endpent="undef"
2590 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
2592 $! Check for endservent
2594 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2598 $ WS "#include <stdlib.h>
2600 $ WS "#include <stdio.h>
2601 $ if ("''Has_Socketshr'".eqs."T")
2603 $ WS "#include <socketshr.h>"
2605 $ WS "#include <netdb.h>
2613 $ DEFINE SYS$ERROR _NLA0:
2614 $ DEFINE SYS$OUTPUT _NLA0:
2615 $ on error then continue
2616 $ on warning then continue
2618 $ If (Needs_Opt.eqs."Yes")
2620 $ link temp.obj,temp.opt/opt
2624 $ teststatus = f$extract(9,1,$status)
2625 $ DEASSIGN SYS$OUTPUT
2626 $ DEASSIGN SYS$ERROR
2627 $ if (teststatus.nes."1")
2629 $ perl_d_endsent="undef"
2631 $ perl_d_endsent="define"
2634 $ perl_d_endsent="undef"
2636 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
2638 $! Check for sethostent
2640 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2644 $ WS "#include <stdlib.h>
2646 $ WS "#include <stdio.h>
2647 $ if ("''Has_Socketshr'".eqs."T")
2649 $ WS "#include <socketshr.h>"
2651 $ WS "#include <netdb.h>
2655 $ WS "sethostent(1);
2659 $ DEFINE SYS$ERROR _NLA0:
2660 $ DEFINE SYS$OUTPUT _NLA0:
2661 $ on error then continue
2662 $ on warning then continue
2664 $ If (Needs_Opt.eqs."Yes")
2666 $ link temp.obj,temp.opt/opt
2670 $ teststatus = f$extract(9,1,$status)
2671 $ DEASSIGN SYS$OUTPUT
2672 $ DEASSIGN SYS$ERROR
2673 $ if (teststatus.nes."1")
2675 $ perl_d_sethent="undef"
2677 $ perl_d_sethent="define"
2680 $ perl_d_sethent="undef"
2682 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
2684 $! Check for setnetent
2686 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2690 $ WS "#include <stdlib.h>
2692 $ WS "#include <stdio.h>
2693 $ if ("''Has_Socketshr'".eqs."T")
2695 $ WS "#include <socketshr.h>"
2697 $ WS "#include <netdb.h>
2705 $ DEFINE SYS$ERROR _NLA0:
2706 $ DEFINE SYS$OUTPUT _NLA0:
2707 $ on error then continue
2708 $ on warning then continue
2710 $ If (Needs_Opt.eqs."Yes")
2712 $ link temp.obj,temp.opt/opt
2716 $ teststatus = f$extract(9,1,$status)
2717 $ DEASSIGN SYS$OUTPUT
2718 $ DEASSIGN SYS$ERROR
2719 $ if (teststatus.nes."1")
2721 $ perl_d_setnent="undef"
2723 $ perl_d_setnent="define"
2726 $ perl_d_setnent="undef"
2728 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
2730 $! Check for setprotoent
2732 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2736 $ WS "#include <stdlib.h>
2738 $ WS "#include <stdio.h>
2739 $ if ("''Has_Socketshr'".eqs."T")
2741 $ WS "#include <socketshr.h>"
2743 $ WS "#include <netdb.h>
2747 $ WS "setprotoent(1);
2751 $ DEFINE SYS$ERROR _NLA0:
2752 $ DEFINE SYS$OUTPUT _NLA0:
2753 $ on error then continue
2754 $ on warning then continue
2756 $ If (Needs_Opt.eqs."Yes")
2758 $ link temp.obj,temp.opt/opt
2762 $ teststatus = f$extract(9,1,$status)
2763 $ DEASSIGN SYS$OUTPUT
2764 $ DEASSIGN SYS$ERROR
2765 $ if (teststatus.nes."1")
2767 $ perl_d_setpent="undef"
2769 $ perl_d_setpent="define"
2772 $ perl_d_setpent="undef"
2774 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
2776 $! Check for setservent
2778 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2782 $ WS "#include <stdlib.h>
2784 $ WS "#include <stdio.h>
2785 $ if ("''Has_Socketshr'".eqs."T")
2787 $ WS "#include <socketshr.h>"
2789 $ WS "#include <netdb.h>
2793 $ WS "setservent(1);
2797 $ DEFINE SYS$ERROR _NLA0:
2798 $ DEFINE SYS$OUTPUT _NLA0:
2799 $ on error then continue
2800 $ on warning then continue
2802 $ If (Needs_Opt.eqs."Yes")
2804 $ link temp.obj,temp.opt/opt
2808 $ teststatus = f$extract(9,1,$status)
2809 $ DEASSIGN SYS$OUTPUT
2810 $ DEASSIGN SYS$ERROR
2811 $ if (teststatus.nes."1")
2813 $ perl_d_setsent="undef"
2815 $ perl_d_setsent="define"
2818 $ perl_d_setsent="undef"
2820 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
2822 $! Check for gethostent
2824 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2828 $ WS "#include <stdlib.h>
2830 $ WS "#include <stdio.h>
2831 $ if ("''Has_Socketshr'".eqs."T")
2833 $ WS "#include <socketshr.h>"
2835 $ WS "#include <netdb.h>
2843 $ DEFINE SYS$ERROR _NLA0:
2844 $ DEFINE SYS$OUTPUT _NLA0:
2845 $ on error then continue
2846 $ on warning then continue
2848 $ If (Needs_Opt.eqs."Yes")
2850 $ link temp.obj,temp.opt/opt
2854 $ teststatus = f$extract(9,1,$status)
2855 $ DEASSIGN SYS$OUTPUT
2856 $ DEASSIGN SYS$ERROR
2857 $ if (teststatus.nes."1")
2859 $ perl_d_gethent="undef"
2861 $ perl_d_gethent="define"
2864 $ perl_d_gethent="undef"
2866 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
2868 $! Check for getnetent
2870 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2874 $ WS "#include <stdlib.h>
2876 $ WS "#include <stdio.h>
2877 $ if ("''Has_Socketshr'".eqs."T")
2879 $ WS "#include <socketshr.h>"
2881 $ WS "#include <netdb.h>
2889 $ DEFINE SYS$ERROR _NLA0:
2890 $ DEFINE SYS$OUTPUT _NLA0:
2891 $ on error then continue
2892 $ on warning then continue
2894 $ If (Needs_Opt.eqs."Yes")
2896 $ link temp.obj,temp.opt/opt
2900 $ teststatus = f$extract(9,1,$status)
2901 $ DEASSIGN SYS$OUTPUT
2902 $ DEASSIGN SYS$ERROR
2903 $ if (teststatus.nes."1")
2905 $ perl_d_getnent="undef"
2907 $ perl_d_getnent="define"
2910 $ perl_d_getnent="undef"
2912 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
2914 $! Check for getprotoent
2916 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2920 $ WS "#include <stdlib.h>
2922 $ WS "#include <stdio.h>
2923 $ if ("''Has_Socketshr'".eqs."T")
2925 $ WS "#include <socketshr.h>"
2927 $ WS "#include <netdb.h>
2931 $ WS "getprotoent();
2935 $ DEFINE SYS$ERROR _NLA0:
2936 $ DEFINE SYS$OUTPUT _NLA0:
2937 $ on error then continue
2938 $ on warning then continue
2940 $ If (Needs_Opt.eqs."Yes")
2942 $ link temp.obj,temp.opt/opt
2946 $ teststatus = f$extract(9,1,$status)
2947 $ DEASSIGN SYS$OUTPUT
2948 $ DEASSIGN SYS$ERROR
2949 $ if (teststatus.nes."1")
2951 $ perl_d_getpent="undef"
2953 $ perl_d_getpent="define"
2956 $ perl_d_getpent="undef"
2958 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
2960 $! Check for getservent
2962 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2966 $ WS "#include <stdlib.h>
2968 $ WS "#include <stdio.h>
2969 $ if ("''Has_Socketshr'".eqs."T")
2971 $ WS "#include <socketshr.h>"
2973 $ WS "#include <netdb.h>
2981 $ DEFINE SYS$ERROR _NLA0:
2982 $ DEFINE SYS$OUTPUT _NLA0:
2983 $ on error then continue
2984 $ on warning then continue
2986 $ If (Needs_Opt.eqs."Yes")
2988 $ link temp.obj,temp.opt/opt
2992 $ teststatus = f$extract(9,1,$status)
2993 $ DEASSIGN SYS$OUTPUT
2994 $ DEASSIGN SYS$ERROR
2995 $ if (teststatus.nes."1")
2997 $ perl_d_getsent="undef"
2999 $ perl_d_getsent="define"
3002 $ perl_d_getsent="undef"
3004 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
3006 $! Check for socklen_t
3008 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
3012 $ WS "#include <stdlib.h>
3014 $ WS "#include <stdio.h>
3015 $ IF ("''Has_Socketshr'".eqs."T")
3017 $ WS "#include <socketshr.h>"
3019 $ WS "#include <netdb.h>
3023 $ WS "socklen_t x = 16;
3027 $ DEFINE SYS$ERROR _NLA0:
3028 $ DEFINE SYS$OUTPUT _NLA0:
3029 $ on error then continue
3030 $ on warning then continue
3032 $ If (Needs_Opt.eqs."Yes")
3034 $ link temp.obj,temp.opt/opt
3038 $ teststatus = f$extract(9,1,$status)
3039 $ DEASSIGN SYS$OUTPUT
3040 $ DEASSIGN SYS$ERROR
3041 $ if (teststatus.nes."1")
3043 $ perl_d_socklen_t="undef"
3045 $ perl_d_socklen_t="define"
3048 $ perl_d_socklen_t="undef"
3050 $ WRITE_RESULT "d_socklen_t is ''perl_d_socklen_t'"
3052 $! Check for pthread_yield
3054 $ if ("''use_threads'".eqs."T")
3058 $ WS "#include <stdlib.h>
3060 $ WS "#include <pthread.h>
3061 $ WS "#include <stdio.h>
3064 $ WS "pthread_yield();
3068 $ DEFINE SYS$ERROR _NLA0:
3069 $ DEFINE SYS$OUTPUT _NLA0:
3070 $ on error then continue
3071 $ on warning then continue
3073 $ teststatus = f$extract(9,1,$status)
3074 $ DEASSIGN SYS$OUTPUT
3075 $ DEASSIGN SYS$ERROR
3076 $ if (teststatus.nes."1")
3078 $ perl_d_pthread_yield="undef"
3080 $ perl_d_pthread_yield="define"
3083 $ perl_d_pthread_yield="undef"
3085 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
3087 $! Check for sched_yield
3089 $ if ("''use_threads'".eqs."T")
3093 $ WS "#include <stdlib.h>
3095 $ WS "#include <pthread.h>
3096 $ WS "#include <stdio.h>
3099 $ WS "sched_yield();
3103 $ DEFINE SYS$ERROR _NLA0:
3104 $ DEFINE SYS$OUTPUT _NLA0:
3105 $ on error then continue
3106 $ on warning then continue
3108 $ teststatus = f$extract(9,1,$status)
3109 $ DEASSIGN SYS$OUTPUT
3110 $ DEASSIGN SYS$ERROR
3111 $ if (teststatus.nes."1")
3113 $ perl_d_sched_yield="undef"
3114 $ perl_sched_yield = " "
3116 $ perl_d_sched_yield="define"
3117 $ perl_sched_yield = "sched_yield"
3120 $ perl_d_sched_yield="undef"
3121 $ perl_sched_yield = " "
3123 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
3124 $ WRITE_RESULT "sched_yield is ''perl_sched_yield'"
3126 $! Check for generic pointer size
3130 $ WS "#include <stdlib.h>
3132 $ WS "#include <stdio.h>
3136 $ WS "foo = sizeof(char *);
3137 $ WS "printf(""%d\n"", foo);
3141 $ DEFINE SYS$ERROR _NLA0:
3142 $ DEFINE SYS$OUTPUT _NLA0:
3143 $ ON ERROR THEN CONTINUE
3144 $ ON WARNING THEN CONTINUE
3146 $ If (Needs_Opt.eqs."Yes")
3148 $ link temp.obj,temp.opt/opt
3152 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3153 $ DEASSIGN SYS$OUTPUT
3154 $ DEASSIGN SYS$ERROR
3155 $ DEFINE SYS$ERROR TEMPOUT
3156 $ DEFINE SYS$OUTPUT TEMPOUT
3159 $ DEASSIGN SYS$OUTPUT
3160 $ DEASSIGN SYS$ERROR
3161 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3164 $ DELETE/NOLOG [-.uu]tempout.lis;
3167 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
3169 $! Check rand48 and its ilk
3173 $ WS "#include <stdlib.h>
3175 $ WS "#include <stdio.h>
3178 $ WS "srand48(12L);"
3183 $ DEFINE SYS$ERROR _NLA0:
3184 $ DEFINE SYS$OUTPUT _NLA0:
3185 $ ON ERROR THEN CONTINUE
3186 $ ON WARNING THEN CONTINUE
3188 $ If (Needs_Opt.eqs."Yes")
3190 $ link temp,temp.opt/opt
3194 $ teststatus = f$extract(9,1,$status)
3195 $ DEASSIGN SYS$OUTPUT
3196 $ DEASSIGN SYS$ERROR
3197 $ if (teststatus.nes."1")
3199 $ perl_drand01="random()"
3200 $ perl_randseedtype = "unsigned"
3201 $ perl_seedfunc = "srandom"
3205 $ WS "#include <stdlib.h>
3207 $ WS "#include <stdio.h>
3214 $! copy temp.c sys$output
3216 $ DEFINE SYS$ERROR _NLA0:
3217 $ DEFINE SYS$OUTPUT _NLA0:
3218 $ ON ERROR THEN CONTINUE
3219 $ ON WARNING THEN CONTINUE
3221 $ If (Needs_Opt.eqs."Yes")
3223 $ link temp,temp.opt/opt
3227 $ teststatus = f$extract(9,1,$status)
3228 $ DEASSIGN SYS$OUTPUT
3229 $ DEASSIGN SYS$ERROR
3230 $ if (teststatus.nes."1")
3232 $ perl_drand01="(((float)rand())/((float)RAND_MAX))"
3233 $ perl_randseedtype = "unsigned"
3234 $ perl_seedfunc = "srand"
3236 $ WRITE_RESULT "drand01 is ''perl_drand01'"
3239 $! Done with compiler checks. Clean up.
3240 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
3241 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
3242 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
3243 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
3246 $! Some that are compiler or VMS version sensitive
3249 $ IF "''Using_Gnu_C'".EQS."Yes"
3251 $ perl_d_attribut="define"
3252 $ perl_vms_cc_type="gcc"
3254 $ perl_vms_cc_type="cc"
3255 $ perl_d_attribut="undef"
3258 $! Dec C >= 5.2 and VMS ver >= 7.0
3259 $ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
3261 $ perl_d_bcmp="define"
3262 $ perl_d_gettimeod="define"
3263 $ perl_d_uname="define"
3264 $ perl_d_sigaction="define"
3265 $ perl_d_truncate="define"
3266 $ perl_d_wait4="define"
3267 $ perl_d_index="define"
3268 $ perl_pidtype="pid_t"
3269 $ 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"
3270 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3271 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
3272 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
3273 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
3274 $ 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"
3275 $ 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"
3276 $ perl_sig_num_with_commas=perl_sig_num_init
3277 $ perl_uidtype="uid_t"
3278 $ perl_d_pathconf="define"
3279 $ perl_d_fpathconf="define"
3280 $ perl_d_sysconf="define"
3281 $ perl_d_sigsetjmp="define"
3283 $ perl_pidtype="unsigned int"
3284 $ perl_d_gettimeod="undef"
3285 $ perl_d_bcmp="undef"
3286 $ perl_d_uname="undef"
3287 $ perl_d_sigaction="undef"
3288 $ perl_d_truncate="undef"
3289 $ perl_d_wait4="undef"
3290 $ perl_d_index="undef"
3291 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
3292 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3293 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
3294 $ perl_sig_name_with_commas = psnwc1 + psnwc2
3295 $ perl_sig_num="0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 6 16 17"",0"
3296 $ perl_sig_num_init="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
3297 $ perl_sig_num_with_commas=perl_sig_num_init
3298 $ perl_uidtype="unsigned int"
3299 $ perl_d_pathconf="undef"
3300 $ perl_d_fpathconf="undef"
3301 $ perl_d_sysconf="undef"
3302 $ perl_d_sigsetjmp="undef"
3306 $ IF ("''Using_Dec_C'".EQS."Yes")
3308 $ perl_d_mbstowcs="define"
3309 $ perl_d_mbtowc="define"
3310 $ perl_d_stdiobase="define"
3311 $ perl_d_stdio_ptr_lval="define"
3312 $ perl_d_stdio_cnt_lval="define"
3313 $ perl_d_stdstdio="define"
3314 $ perl_d_wcstombs="define"
3315 $ perl_d_mblen="define"
3316 $ perl_d_mktime="define"
3317 $ perl_d_strcoll="define"
3318 $ perl_d_strxfrm="define"
3319 $ perl_d_wctomb="define"
3320 $ perl_i_locale="define"
3321 $ perl_d_locconv="define"
3322 $ perl_d_setlocale="define"
3323 $ perl_vms_cc_type="decc"
3325 $ perl_d_mbstowcs="undef"
3326 $ perl_d_mbtowc="undef"
3327 $ perl_d_stdiobase="undef"
3328 $ perl_d_stdio_ptr_lval="undef"
3329 $ perl_d_stdio_cnt_lval="undef"
3330 $ perl_d_stdstdio="undef"
3331 $ perl_d_wcstombs="undef"
3332 $ perl_d_mblen="undef"
3333 $ perl_d_mktime="undef"
3334 $ perl_d_strcoll="undef"
3335 $ perl_d_strxfrm="undef"
3336 $ perl_d_wctomb="undef"
3337 $ perl_i_locale="undef"
3338 $ perl_d_locconv="undef"
3339 $ perl_d_setlocale="undef"
3343 $ if ("''Using_Vax_C'".EQS."Yes")
3345 $ perl_vms_cc_type="vaxc"
3349 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
3351 $ perl_d_vms_do_sockets="define"
3352 $ perl_d_htonl="define"
3353 $ perl_d_socket="define"
3354 $ perl_d_select="define"
3355 $ perl_netdb_host_type="char *"
3356 $ perl_netdb_hlen_type="int"
3357 $ perl_netdb_name_type="char *"
3358 $ perl_netdb_net_type="long"
3359 $ perl_d_gethbyaddr="define"
3360 $ perl_d_gethbyname="define"
3361 $ perl_d_getnbyaddr="define"
3362 $ perl_d_getnbyname="define"
3363 $ perl_d_getpbynumber="define"
3364 $ perl_d_getpbyname="define"
3365 $ perl_d_getsbyport="define"
3366 $ perl_d_getsbyname="define"
3367 $ perl_d_gethostprotos="define"
3368 $ perl_d_getnetprotos="define"
3369 $ perl_d_getprotoprotos="define"
3370 $ perl_d_getservprotos="define"
3371 $ IF ("''Using_Dec_C'".EQS."Yes")
3373 $ perl_socksizetype="unsigned int"
3375 $ perl_socksizetype="int *"
3378 $ perl_d_vms_do_sockets="undef"
3379 $ perl_d_htonl="undef"
3380 $ perl_d_socket="undef"
3381 $ perl_d_select="undef"
3382 $ perl_netdb_host_type="char *"
3383 $ perl_netdb_hlen_type="int"
3384 $ perl_netdb_name_type="char *"
3385 $ perl_netdb_net_type="long"
3386 $ perl_d_gethbyaddr="undef"
3387 $ perl_d_gethbyname="undef"
3388 $ perl_d_getnbyaddr="undef"
3389 $ perl_d_getnbyname="undef"
3390 $ perl_d_getpbynumber="undef"
3391 $ perl_d_getpbyname="undef"
3392 $ perl_d_getsbyport="undef"
3393 $ perl_d_getsbyname="undef"
3394 $ perl_d_gethostprotos="undef"
3395 $ perl_d_getnetprotos="undef"
3396 $ perl_d_getprotoprotos="undef"
3397 $ perl_d_getservprotos="undef"
3398 $ perl_socksizetype="undef"
3401 $ if ("''use_threads'".eqs."T")
3403 $ perl_usethreads="define"
3404 $ perl_d_pthreads_created_joinable="define"
3405 $ if ("''VMS_VER'".ges."7.0")
3407 $ perl_d_oldpthreads="undef"
3409 $ perl_d_oldpthreads="define"
3412 $ perl_d_oldpthreads="undef"
3413 $ perl_usethreads="undef"
3415 $ perl_d_pthreads_created_joinable="undef"
3418 $! new (5.005_62++) typedefs for primitives
3420 $ perl_ivtype="long"
3421 $ perl_uvtype="unsigned long"
3422 $ perl_i8type="char"
3423 $ perl_u8type="unsigned char"
3424 $ perl_i16type="short"
3425 $ perl_u16type="unsigned short"
3426 $ perl_i32type="int"
3427 $ perl_u32type="unsigned int"
3428 $ perl_i64type="long long"
3429 $ perl_u64type="unsigned long long"
3430 $ perl_nvtype="double"
3432 $ GOTO beyond_type_size_check
3436 $! Check for type sizes
3440 $ WS "#include <stdlib.h>
3442 $ WS "#include <stdio.h>
3445 $ WS "printf(""%d\n"", sizeof(''type'));"
3449 $ DEFINE SYS$ERROR _NLA0:
3450 $ DEFINE SYS$OUTPUT _NLA0:
3451 $ ON ERROR THEN CONTINUE
3452 $ ON WARNING THEN CONTINUE
3454 $ If (Needs_Opt.eqs."Yes")
3456 $ link temp.obj,temp.opt/opt
3460 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3461 $ DEASSIGN SYS$OUTPUT
3462 $ DEASSIGN SYS$ERROR
3463 $ DEFINE SYS$ERROR TEMPOUT
3464 $ DEFINE SYS$OUTPUT TEMPOUT
3467 $ DEASSIGN SYS$OUTPUT
3468 $ DEASSIGN SYS$ERROR
3469 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3472 $ DELETE/NOLOG [-.uu]tempout.lis;
3473 $ WRITE_RESULT "''size_name' is ''line'"
3477 $beyond_type_size_check:
3480 $ type = "''perl_ivtype'"
3481 $ size_name = "ivsize"
3482 $ gosub type_size_check
3483 $ perl_ivsize="''line'"
3484 $ IF type .eqs. "long"
3485 $ THEN perl_longsize = "''line'"
3488 $ size_name = "longsize"
3489 $ gosub type_size_check
3490 $ perl_longsize="''line'"
3493 $ type = "''perl_uvtype'"
3494 $ size_name = "uvsize"
3495 $ gosub type_size_check
3496 $ perl_uvsize="''line'"
3498 $ type = "''perl_i8type'"
3499 $ size_name = "i8size"
3500 $ gosub type_size_check
3501 $ perl_i8size="''line'"
3503 $ type = "''perl_u8type'"
3504 $ size_name = "u8size"
3505 $ gosub type_size_check
3506 $ perl_u8size="''line'"
3508 $ type = "''perl_i16type'"
3509 $ size_name = "i16size"
3510 $ gosub type_size_check
3511 $ perl_i16size="''line'"
3512 $ IF type .eqs. "short"
3513 $ THEN perl_shortsize="''line'"
3515 $ type = "''perl_i16type'"
3516 $ size_name = "shortsize"
3517 $ gosub type_size_check
3518 $ perl_shortsize="''line'"
3521 $ type = "''perl_u16type'"
3522 $ size_name = "u16size"
3523 $ gosub type_size_check
3524 $ perl_u16size="''line'"
3526 $ type = "''perl_i32type'"
3527 $ size_name = "i32size"
3528 $ gosub type_size_check
3529 $ perl_i32size="''line'"
3530 $ IF type .eqs. "int"
3531 $ THEN perl_intsize="''perl_i32size'"
3534 $ size_name = "intsize"
3535 $ gosub type_size_check
3536 $ perl_intsize="''line'"
3539 $ type = "''perl_u32type'"
3540 $ size_name = "u32size"
3541 $ gosub type_size_check
3542 $ perl_u32size="''line'"
3544 $ type = "''perl_i64type'"
3545 $ size_name = "i64size"
3546 $ gosub type_size_check
3547 $ perl_i64size="''line'"
3549 $ type = "''perl_u64type'"
3550 $ size_name = "u64size"
3551 $ gosub type_size_check
3552 $ perl_u64size="''line'"
3554 $ perl_ivdformat="""ld"""
3555 $ perl_uvuformat="""lu"""
3556 $ perl_uvoformat="""lo"""
3557 $ perl_uvxformat="""lx"""
3559 $! Finally the composite ones. All config
3560 $ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3561 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3562 $ perl_myhostname="''myhostname'"
3563 $ perl_mydomain="''mydomain'"
3564 $ perl_perladmin="''perladmin'"
3565 $ perl_cf_email="''cf_email'"
3566 $ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
3567 $ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3568 $ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
3569 $ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
3570 $ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
3571 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
3572 $ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3573 $ if "''Using_Dec_C'" .eqs. "Yes"
3575 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
3577 $ IF "''Using_Vax_C'" .eqs. "Yes"
3579 $ perl_ccflags="/Include=[]/Obj=''perl_obj_ext'/NoList''cc_flags'"
3582 $ if use_vmsdebug_perl .eqs. "Y"
3584 $ perl_optimize="/Debug/NoOpt"
3585 $ perl_dbgprefix = "DBG"
3588 $ perl_dbgprefix = ""
3591 $! Finally clean off any leading zeros from the patchlevel or subversion
3592 $ perl_patchlevel = perl_patchlevel + 0
3593 $ perl_subversion = perl_subversion + 0
3595 $! Okay, we've got everything configured. Now go write out a config.sh.
3596 $ open/write CONFIGSH [-]config.sh
3597 $ WC := "write CONFIGSH"
3599 $ WC "# This file generated by Configure.COM on a VMS system."
3600 $ WC "# Time: " + perl_cf_time
3602 $ WC "CONFIGDOTSH=true"
3603 $ WC "package='" + perl_package + "'"
3604 $ WC "d_nv_preserves_uv='" + perl_d_nv_preserves_uv + "'"
3605 $ WC "use5005threads='" + perl_use5005threads + "'"
3606 $ WC "useithreads='" + perl_useithreads + "'"
3607 $ WC "CONFIG='" + perl_config + "'"
3608 $ WC "cf_time='" + perl_cf_time + "'"
3609 $ WC "cf_by='" + perl_cf_by+ "'"
3610 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
3611 $ WC "ccdlflags='" + perl_ccdlflags + "'"
3612 $ WC "cccdlflags='" + perl_cccdlflags + "'"
3613 $ WC "mab='" + perl_mab + "'"
3614 $ WC "libpth='" + perl_libpth + "'"
3615 $ WC "ld='" + perl_ld + "'"
3616 $ WC "lddlflags='" + perl_lddlflags + "'"
3617 $ WC "ranlib='" + perl_ranlib + "'"
3618 $ WC "ar='" + perl_ar + "'"
3619 $ WC "full_ar='" + perl_full_ar + "'"
3620 $ WC "eunicefix='" + perl_eunicefix + "'"
3621 $ WC "hint='" + perl_hint +"'"
3622 $ WC "hintfile='" + perl_hintfile + "'"
3623 $ WC "shrplib='" + perl_shrplib + "'"
3624 $ WC "usemymalloc='" + perl_usemymalloc + "'"
3625 $ WC "usevfork='" + perl_usevfork + "'"
3626 $ WC "useposix='false'"
3627 $ WC "spitshell='write sys$output '"
3628 $ WC "dlsrc='dl_vms.c'"
3629 $ WC "binexp='" + perl_binexp + "'"
3630 $ WC "man1ext='" + perl_man1ext + "'"
3631 $ WC "man3ext='" + perl_man3ext + "'"
3632 $ WC "arch='" + perl_arch + "'"
3633 $ WC "archname='" + perl_archname + "'"
3634 $ WC "osvers='" + perl_osvers + "'"
3635 $ WC "prefix='" + perl_prefix + "'"
3636 $ WC "builddir='" + perl_builddir + "'"
3637 $ WC "installbin='" + perl_installbin + "'"
3638 $ WC "installscript='" + perl_installscript + "'"
3639 $ WC "installman1dir='" + perl_installman1dir + "'"
3640 $ WC "installman3dir='" + perl_installman3dir + "'"
3641 $ WC "installprivlib='" + perl_installprivlib + "'"
3642 $ WC "installarchlib='" + perl_installarchlib + "'"
3643 $ WC "installsitelib='" + perl_installsitelib + "'"
3644 $ WC "installsitearch='" + perl_installsitearch + "'"
3645 $ WC "path_sep='" + perl_path_sep + "'"
3646 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
3647 $ WC "d_attribut='" + perl_d_attribut + "'"
3648 $ WC "cc='" + perl_cc + "'"
3649 $ WC "ccflags='" + perl_ccflags + "'"
3650 $ WC "optimize='" + perl_optimize + "'"
3651 $ WC "dbgprefix='" + perl_dbgprefix + "'"
3652 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
3653 $ WC "d_socket='" + perl_d_socket + "'"
3654 $ WC "d_sockpair='" + perl_d_sockpair + "'"
3655 $ WC "d_gethent='" + perl_d_gethent + "'"
3656 $ WC "d_getsent='" + perl_d_getsent + "'"
3657 $ WC "d_socklen_t='" + perl_d_socklen_t + "'"
3658 $ WC "d_select='" + perl_d_select + "'"
3659 $ WC "i_niin='" + perl_i_niin + "'"
3660 $ WC "i_netinettcp='" + perl_i_netinettcp + "'"
3661 $ WC "i_neterrno='" + perl_i_neterrno + "'"
3662 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
3663 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
3664 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
3665 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
3666 $ WC "d_locconv='" + perl_d_locconv + "'"
3667 $ WC "d_setlocale='" + perl_d_setlocale + "'"
3668 $ WC "i_locale='" + perl_i_locale + "'"
3669 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
3670 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
3671 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
3672 $ WC "d_wctomb='" + perl_d_wctomb + "'"
3673 $ WC "d_mblen='" + perl_d_mblen + "'"
3674 $ WC "d_mktime='" + perl_d_mktime + "'"
3675 $ WC "d_strcoll='" + perl_d_strcoll + "'"
3676 $ WC "d_strxfrm='" + perl_d_strxfrm + "'"
3677 $ WC "ldflags='" + perl_ldflags + "'"
3678 $ WC "dlobj='" + perl_dlobj + "'"
3679 $ WC "obj_ext='" + perl_obj_ext + "'"
3680 $ WC "so='" + perl_so + "'"
3681 $ WC "dlext='" + perl_dlext + "'"
3682 $ WC "exe_ext='" + perl_exe_ext + "'"
3683 $ WC "lib_ext='" + perl_lib_ext + "'"
3684 $ WC "myhostname='" + perl_myhostname + "'"
3685 $ WC "mydomain='" + perl_mydomain + "'"
3686 $ WC "perladmin='" + perl_perladmin + "'"
3687 $ WC "cf_email='" + perl_cf_email + "'"
3688 $ WC "myuname='" + perl_myuname + "'"
3689 $ WC "alignbytes='" + perl_alignbytes + "'"
3690 $ WC "osname='" + perl_osname + "'"
3691 $ WC "d_archlib='" + perl_d_archlib + "'"
3692 $ WC "archlibexp='" + perl_archlibexp + "'"
3693 $ WC "archlib='" + perl_archlib + "'"
3694 $ WC "archname='" + perl_archname + "'"
3695 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
3696 $ WC "cppstdin='" + perl_cppstdin + "'"
3697 $ WC "cppminus='" + perl_cppminus + "'"
3698 $ WC "d_bcmp='" + perl_d_bcmp + "'"
3699 $ WC "d_bcopy='" + perl_d_bcopy + "'"
3700 $ WC "d_bzero='" + perl_d_bzero + "'"
3701 $ WC "d_castneg='" + perl_d_castneg + "'"
3702 $ WC "castflags='" + perl_castflags + "'"
3703 $ WC "d_chsize='" + perl_d_chsize + "'"
3704 $ WC "d_const='" + perl_d_const + "'"
3705 $ WC "d_crypt='" + perl_d_crypt + "'"
3706 $ WC "byteorder='" + perl_byteorder + "'"
3707 $ WC "full_csh='" + perl_full_csh + "'"
3708 $ WC "d_csh='" + perl_d_csh + "'"
3709 $ WC "d_dup2='" + perl_d_dup2 + "'"
3710 $ WC "d_fchmod='" + perl_d_fchmod + "'"
3711 $ WC "d_fchown='" + perl_d_fchown + "'"
3712 $ WC "d_fcntl='" + perl_d_fcntl + "'"
3713 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
3714 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
3715 $ WC "d_flock='" + perl_d_flock + "'"
3716 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
3717 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
3718 $ WC "d_getgrps='" + perl_d_getgrps + "'"
3719 $ WC "d_setgrps='" + perl_d_setgrps + "'"
3720 $ WC "d_uname='" + perl_d_uname + "'"
3721 $ WC "d_getprior='" + perl_d_getprior + "'"
3722 $ WC "d_killpg='" + perl_d_killpg + "'"
3723 $ WC "d_link='" + perl_d_link + "'"
3724 $ WC "d_lstat='" + perl_d_lstat + "'"
3725 $ WC "d_lockf='" + perl_d_lockf + "'"
3726 $ WC "d_memcmp='" + perl_d_memcmp + "'"
3727 $ WC "d_memcpy='" + perl_d_memcpy + "'"
3728 $ WC "d_memmove='" + perl_d_memmove + "'"
3729 $ WC "d_memset='" + perl_d_memset + "'"
3730 $ WC "d_mkdir='" + perl_d_mkdir + "'"
3731 $ WC "d_msg='" + perl_d_msg + "'"
3732 $ WC "d_open3='" + perl_d_open3 + "'"
3733 $ WC "d_poll='" + perl_d_poll + "'"
3734 $ WC "d_readdir='" + perl_d_readdir + "'"
3735 $ WC "d_seekdir='" + perl_d_seekdir + "'"
3736 $ WC "d_telldir='" + perl_d_telldir + "'"
3737 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
3738 $ WC "d_rename='" + perl_d_rename + "'"
3739 $ WC "d_rmdir='" + perl_d_rmdir + "'"
3740 $ WC "d_sem='" + perl_d_sem + "'"
3741 $ WC "d_setegid='" + perl_d_setegid + "'"
3742 $ WC "d_seteuid='" + perl_d_seteuid + "'"
3743 $ WC "d_setprior='" + perl_d_setprior + "'"
3744 $ WC "d_setregid='" + perl_d_setregid + "'"
3745 $ WC "d_setresgid='" + perl_d_setresgid + "'"
3746 $ WC "d_setreuid='" + perl_d_setreuid + "'"
3747 $ WC "d_setresuid='" + perl_d_setresuid + "'"
3748 $ WC "d_setrgid='" + perl_d_setrgid + "'"
3749 $ WC "d_setruid='" + perl_d_setruid + "'"
3750 $ WC "d_setsid='" + perl_d_setsid + "'"
3751 $ WC "d_shm='" + perl_d_shm + "'"
3752 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
3753 $ WC "d_sigaction='" + perl_d_sigaction + "'"
3754 $ WC "d_statblks='" + perl_d_statblks + "'"
3755 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
3756 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
3757 $ WC "stdio_base='" + perl_stdio_base + "'"
3758 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
3759 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
3760 $ WC "d_strerror='" + perl_d_strerror + "'"
3761 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
3762 $ WC "d_strerrm='" + perl_d_strerrm + "'"
3763 $ WC "d_symlink='" + perl_d_symlink + "'"
3764 $ WC "d_syscall='" + perl_d_syscall + "'"
3765 $ WC "d_system='" + perl_d_system + "'"
3766 $ WC "timetype='" + perl_timetype + "'"
3767 $ WC "d_truncate='" + perl_d_truncate + "'"
3768 $ WC "d_vfork='" + perl_d_vfork + "'"
3769 $ WC "signal_t='" + perl_signal_t + "'"
3770 $ WC "d_volatile='" + perl_d_volatile + "'"
3771 $ WC "d_vprintf='" + perl_d_vprintf + "'"
3772 $ WC "d_charvspr='" + perl_d_charvspr + "'"
3773 $ WC "d_wait4='" + perl_d_wait4 + "'"
3774 $ WC "d_waitpid='" + perl_d_waitpid + "'"
3775 $ WC "i_dirent='" + perl_i_dirent + "'"
3776 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
3777 $ WC "direntrytype='" + perl_direntrytype + "'"
3778 $ WC "i_fcntl='" + perl_i_fcntl + "'"
3779 $ WC "i_grp='" + perl_i_grp + "'"
3780 $ WC "i_limits='" + perl_i_limits + "'"
3781 $ WC "i_memory='" + perl_i_memory + "'"
3782 $ WC "i_ndbm='" + perl_i_ndbm + "'"
3783 $ WC "i_stdarg='" + perl_i_stdarg + "'"
3784 $ WC "i_pwd='" + perl_i_pwd + "'"
3785 $ WC "d_pwquota='" + perl_d_pwquota + "'"
3786 $ WC "d_pwage='" + perl_d_pwage + "'"
3787 $ WC "d_pwchange='" + perl_d_pwchange + "'"
3788 $ WC "d_pwclass='" + perl_d_pwclass + "'"
3789 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
3790 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
3791 $ WC "i_stddef='" + perl_i_stddef + "'"
3792 $ WC "i_stdlib='" + perl_i_stdlib + "'"
3793 $ WC "i_string='" + perl_i_string + "'"
3794 $ WC "i_sysdir='" + perl_i_sysdir + "'"
3795 $ WC "i_sysfile='" + perl_i_sysfile + "'"
3796 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
3797 $ WC "i_sysndir='" + perl_i_sysndir + "'"
3798 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
3799 $ WC "i_sysselct='" + perl_i_sysselct + "'"
3800 $ WC "i_dbm='" + perl_i_dbm + "'"
3801 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
3802 $ WC "i_sfio='" + perl_i_sfio + "'"
3803 $ WC "i_sysstat='" + perl_i_sysstat + "'"
3804 $ WC "i_systimes='" + perl_i_systimes + "'"
3805 $ WC "i_systypes='" + perl_i_systypes + "'"
3806 $ WC "i_sysun='" + perl_i_sysun + "'"
3807 $ WC "i_syswait='" + perl_i_syswait + "'"
3808 $ WC "i_termio='" + perl_i_termio + "'"
3809 $ WC "i_sgtty='" + perl_i_sgtty + "'"
3810 $ WC "i_termios='" + perl_i_termios + "'"
3811 $ WC "i_time='" + perl_i_time + "'"
3812 $ WC "i_systime='" + perl_i_systime + "'"
3813 $ WC "i_systimek='" + perl_i_systimek + "'"
3814 $ WC "i_unistd='" + perl_i_unistd + "'"
3815 $ WC "i_utime='" + perl_i_utime + "'"
3816 $ WC "i_varargs='" + perl_i_varargs + "'"
3817 $ WC "i_vfork='" + perl_i_vfork + "'"
3818 $ WC "prototype='" + perl_prototype + "'"
3819 $ WC "randbits='" + perl_randbits +"'"
3820 $ WC "selecttype='" + perl_selecttype + "'"
3821 $ WC "stdchar='" + perl_stdchar + "'"
3822 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
3823 $ WC "full_sed='" + perl_full_sed + "'"
3824 $ WC "bin='" + perl_bin + "'"
3825 $ WC "binexp='" + perl_binexp + "'"
3826 $ WC "d_alarm='" + perl_d_alarm + "'"
3827 $ WC "d_casti32='" + perl_d_casti32 + "'"
3828 $ WC "d_chown='" + perl_d_chown + "'"
3829 $ WC "d_chroot='" + perl_d_chroot + "'"
3830 $ WC "d_cuserid='" + perl_d_cuserid + "'"
3831 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
3832 $ WC "d_ldbl_dig='" + perl_d_ldbl_dig + "'"
3833 $ WC "d_difftime='" + perl_d_difftime + "'"
3834 $ WC "d_fork='" + perl_d_fork + "'"
3835 $ WC "d_getlogin='" + perl_d_getlogin + "'"
3836 $ WC "d_getppid='" + perl_d_getppid + "'"
3837 $ WC "d_htonl='" + perl_d_htonl + "'"
3838 $ WC "d_nice='" + perl_d_nice + "'"
3839 $ WC "d_pause='" + perl_d_pause + "'"
3840 $ WC "d_pipe='" + perl_d_pipe + "'"
3841 $ WC "d_readlink='" + perl_d_readlink + "'"
3842 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
3843 $ WC "d_strchr='" + perl_d_strchr + "'"
3844 $ WC "d_index='" + perl_d_index + "'"
3845 $ WC "d_strtod='" + perl_d_strtod + "'"
3846 $ WC "d_strtol='" + perl_d_strtol + "'"
3847 $ WC "d_strtoul='" + perl_d_strtoul + "'"
3848 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
3849 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
3850 $ WC "d_times='" + perl_d_times + "'"
3851 $ WC "d_tzname='" + perl_d_tzname + "'"
3852 $ WC "d_umask='" + perl_d_umask + "'"
3853 $ WC "fpostype='" + perl_fpostype + "'"
3854 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
3855 $ WC "i_float='" + perl_i_float + "'"
3856 $ WC "i_math='" + perl_i_math + "'"
3857 $ WC "intsize='" + perl_intsize + "'"
3858 $ WC "longsize='" + perl_longsize + "'"
3859 $ WC "shortsize='" + perl_shortsize + "'"
3860 $ WC "lseektype='" + perl_lseektype + "'"
3861 $ WC "lseeksize='4'"
3862 $ WC "i_values='" + perl_i_values + "'"
3863 $ WC "malloctype='" + perl_malloctype + "'"
3864 $ WC "freetype='" + perl_freetype + "'"
3865 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
3866 $ WC "sh='" + perl_sh + "'"
3867 $ WC "sig_name='" + perl_sig_name + "'"
3868 $ WC "sig_num='" + perl_sig_num + "'"
3869 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
3871 $ WC "modetype='" + perl_modetype + "'"
3872 $ WC "ssizetype='" + perl_ssizetype + "'"
3873 $ WC "o_nonblock='" + perl_o_nonblock + "'"
3874 $ WC "eagain='" + perl_eagain + "'"
3875 $ WC "rd_nodata='" + perl_rd_nodata + "'"
3876 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
3877 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
3878 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
3879 $ WC "oldarchlib='" + perl_oldarchlib + "'"
3880 $ WC "privlibexp='" + perl_privlibexp + "'"
3881 $ WC "privlib='" + perl_privlib + "'"
3882 $ WC "sitelibexp='" + perl_sitelibexp + "'"
3883 $ WC "sitelib='" + perl_sitelib + "'"
3884 $ WC "sitearchexp='" + perl_sitearchexp + "'"
3885 $ WC "sitearch='" + perl_sitearch + "'"
3886 $ WC "sizetype='" + perl_sizetype + "'"
3887 $ WC "i_sysparam='" + perl_i_sysparam + "'"
3888 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
3889 $ WC "d_dlerror='" + perl_d_dlerror + "'"
3890 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
3891 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
3892 $ WC "d_dosuid='" + perl_d_dosuid + "'"
3893 $ WC "d_inetaton='" + perl_d_inetaton + "'"
3894 $ WC "d_int64_t='" + perl_d_int64_t + "'"
3895 $ WC "d_isascii='" + perl_d_isascii + "'"
3896 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
3897 $ WC "d_pathconf='" + perl_d_pathconf + "'"
3898 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
3899 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
3900 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
3901 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
3902 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
3903 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
3904 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
3905 $ WC "d_setpgid='" + perl_d_setpgid + "'"
3906 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
3907 $ WC "d_sysconf='" + perl_d_sysconf + "'"
3908 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
3909 $ WC "d_getpgid='" + perl_d_getpgid + "'"
3910 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
3911 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
3912 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
3913 $ WC "d_sfio='" + perl_d_sfio + "'"
3914 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
3915 $ WC "usedl='" + perl_usedl + "'"
3916 $ WC "startperl=" + perl_startperl ! This one's special--no enclosing single quotes
3917 $ WC "db_hashtype='" + perl_db_hashtype + "'"
3918 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
3919 $ WC "useperlio='" + perl_useperlio + "'"
3920 $ WC "defvoidused='" + perl_defvoidused + "'"
3921 $ WC "voidflags='" + perl_voidflags + "'"
3922 $ WC "d_eunice='" + perl_d_eunice + "'"
3923 $ WC "libs='" + perl_libs + "'"
3924 $ WC "libc='" + perl_libc + "'"
3925 $ tempstring = "PERL_VERSION='" + "''perl_patchlevel'" + "'"
3927 $ tempstring = "PERL_SUBVERSION='" + "''perl_patchlevel'" + "'"
3929 $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
3931 $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
3933 $ WC "pager='" + perl_pager + "'"
3934 $ WC "uidtype='" + perl_uidtype + "'"
3935 $ WC "gidtype='" + perl_gidtype + "'"
3936 $ WC "usethreads='" + perl_usethreads + "'"
3937 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
3938 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
3939 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
3940 $ WC "i_netdb='" + perl_i_netdb + "'"
3941 $ WC "pidtype='" + perl_pidtype + "'"
3942 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
3943 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
3944 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
3945 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
3946 $ WC "socksizetype='" + perl_socksizetype + "'"
3947 $ WC "baserev='" + perl_baserev + "'"
3948 $ WC "doublesize='" + perl_doublesize + "'"
3949 $ WC "ptrsize='" + perl_ptrsize + "'"
3950 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
3951 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
3952 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
3953 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
3954 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
3955 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
3956 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
3957 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
3958 $ WC "d_sethent='" + perl_d_sethent + "'"
3959 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
3960 $ WC "d_longdbl='" + perl_d_longdbl + "'"
3961 $ WC "longdblsize='" + perl_longdblsize + "'"
3962 $ WC "d_longlong='" + perl_d_longlong + "'"
3963 $ WC "longlongsize='" + perl_longlongsize + "'"
3964 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
3965 $ WC "d_mkstemps='" + perl_d_mkstemps + "'"
3966 $ WC "d_mkdtemp='" + perl_d_mkdtemp + "'"
3967 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
3968 $ WC "d_setenv='" + perl_d_setenv + "'"
3969 $ WC "d_endhent='" + perl_d_endhent + "'"
3970 $ WC "d_endnent='" + perl_d_endsent + "'"
3971 $ WC "d_endpent='" + perl_d_endpent + "'"
3972 $ WC "d_endsent='" + perl_d_endsent + "'"
3973 $ WC "d_gethent='" + perl_d_gethent + "'"
3974 $ WC "d_getnent='" + perl_d_getsent + "'"
3975 $ WC "d_getpent='" + perl_d_getpent + "'"
3976 $ WC "d_getsent='" + perl_d_getsent + "'"
3977 $ WC "d_sethent='" + perl_d_sethent + "'"
3978 $ WC "d_setnent='" + perl_d_setsent + "'"
3979 $ WC "d_setpent='" + perl_d_setpent + "'"
3980 $ WC "ebcdic='" + perl_ebcdic + "'"
3981 $ WC "d_setsent='" + perl_d_setsent + "'"
3982 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
3983 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
3984 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
3985 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
3986 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
3987 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
3988 $ WC "d_lchown='" + perl_d_lchown + "'"
3989 $ WC "d_union_semun='" + perl_d_union_semun + "'"
3990 $ WC "i_arpainet='" + perl_i_arpainet + "'"
3991 $ WC "d_grpasswd='" + perl_d_grpasswd + "'"
3992 $ WC "d_setgrent='" + perl_d_setgrent + "'"
3993 $ WC "d_getgrent='" + perl_d_getgrent + "'"
3994 $ WC "d_endgrent='" + perl_d_endgrent + "'"
3995 $ WC "d_pwpasswd='" + perl_d_pwpasswd + "'"
3996 $ WC "d_setpwent='" + perl_d_setpwent + "'"
3997 $ WC "d_getpwent='" + perl_d_getpwent + "'"
3998 $ WC "d_endpwent='" + perl_d_endpwent + "'"
3999 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
4000 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
4001 $ WC "extensions='" + perl_extensions + "'"
4002 $ WC "known_extensions='" + perl_known_extensions + "'"
4003 $ WC "static_ext='" + "'"
4004 $ WC "dynamic_ext='" + perl_extensions + "'"
4005 $ WC "d_mknod='" + perl_d_mknod + "'"
4006 $ WC "devtype='" + perl_devtype + "'"
4007 $ WC "d_gethname='" + perl_d_gethname + "'"
4008 $ WC "d_phostname='" + perl_d_phostname + "'"
4009 $ WC "d_accessx='" + perl_d_accessx + "'"
4010 $ WC "d_eaccess='" + perl_d_eaccess + "'"
4011 $ WC "i_sysaccess='" + perl_i_sysaccess + "'"
4012 $ WC "i_syssecrt='" + perl_i_syssecrt + "'"
4013 $ WC "d_fd_set='" + perl_d_fd_set + "'"
4014 $ WC "d_access='" + perl_d_access + "'"
4015 $ WC "d_msg_ctrunc='" + perl_d_msg_ctrunc + "'"
4016 $ WC "d_msg_dontroute='" + perl_d_msg_dontroute + "'"
4017 $ WC "d_msg_oob='" + perl_d_msg_oob + "'"
4018 $ WC "d_msg_peek='" + perl_d_msg_peek + "'"
4019 $ WC "d_msg_proxy='" + perl_d_msg_proxy + "'"
4020 $ WC "d_scm_rights='" + perl_d_scm_rights + "'"
4021 $ WC "d_sendmsg='" + perl_d_sendmsg + "'"
4022 $ WC "d_recvmsg='" + perl_d_recvmsg + "'"
4023 $ WC "d_msghdr_s='" + perl_d_msghdr_s + "'"
4024 $ WC "d_cmsghdr_s='" + perl_d_cmsghdr_s + "'"
4025 $ WC "i_sysuio='" + perl_i_sysuio + "'"
4026 $ WC "d_fseeko='" + perl_d_fseeko + "'"
4027 $ WC "d_ftello='" + perl_d_ftello + "'"
4028 $ WC "d_qgcvt='" + perl_d_qgcvt + "'"
4029 $ WC "d_readv='" + perl_d_readv + "'"
4030 $ WC "d_writev='" + perl_d_writev + "'"
4031 $ WC "i_machcthr='" + perl_i_machcthr + "'"
4032 $ WC "usemultiplicity='" + perl_usemultiplicity + "'"
4033 $ WC "i_poll='" + perl_i_poll + "'"
4034 $ WC "i_inttypes='" + perl_i_inttypes + "'"
4035 $ WC "d_off64_t='" + perl_d_off64_t + "'"
4036 $ WC "d_fpos64_t='" + perl_d_fpos64_t + "'"
4037 $ WC "use64bitall='" + perl_use64bitall + "'"
4038 $ WC "use64bitint='" + perl_use64bitint + "'"
4039 $ WC "d_drand48proto='" + perl_d_drand48proto + "'"
4040 $ WC "d_lseekproto='" + perl_d_drand48proto + "'"
4041 $ WC "d_old_pthread_create_joinable='" + perl_d_old_pthread_create_joinable + "'"
4042 $ WC "old_pthread_create_joinable='" + perl_old_pthread_create_joinable + "'"
4043 $ WC "drand01='" + perl_drand01 + "'"
4044 $ WC "randseedtype='" + perl_randseedtype + "'"
4045 $ WC "seedfunc='" + perl_seedfunc + "'"
4046 $ WC "sig_num_init='" + perl_sig_num_with_commas + "'"
4047 $ WC "i_sysmount='" + perl_i_sysmount + "'"
4048 $ WC "d_fstatfs='" + perl_d_fstatfs + "'"
4049 $ WC "d_getfsstat='" + perl_d_getfsstat + "'"
4050 $ WC "d_memchr='" + perl_d_memchr + "'"
4051 $ WC "d_statfsflags='" + perl_d_statfsflags + "'"
4052 $ WC "fflushNULL='define'"
4053 $ WC "fflushall='undef'"
4054 $ WC "d_stdio_stream_array='undef'"
4055 $ WC "i_sysstatvfs='" + perl_i_sysstatvfs + "'"
4056 $ WC "i_syslog='" + perl_i_syslog + "'"
4057 $ WC "i_sysmode='" + perl_i_sysmode + "'"
4058 $ WC "i_sysutsname='" + perl_i_sysutsname + "'"
4059 $ WC "i_machcthreads='" + perl_i_machcthreads + "'"
4060 $ WC "i_pthread='" + perl_i_pthread + "'"
4061 $ WC "d_fstatvfs='" + perl_d_fstatvfs + "'"
4062 $ WC "i_mntent='" + perl_i_mntent + "'"
4063 $ WC "d_getmntent='" + perl_d_getmntent + "'"
4064 $ WC "d_hasmntopt='" + perl_d_hasmntopt + "'"
4065 $ WC "d_telldirproto='" + perl_d_telldirproto + "'"
4066 $ WC "d_madvise='" + perl_d_madvise + "'"
4067 $ WC "d_msync='" + perl_d_msync + "'"
4068 $ WC "d_mprotect='" + perl_d_mprotect + "'"
4069 $ WC "d_munmap='" + perl_d_munmap + "'"
4070 $ WC "d_mmap='" + perl_d_mmap + "'"
4071 $ WC "i_sysmman='" + perl_i_sysmman + "'"
4072 $ WC "installusrbinperl='" + perl_installusrbinperl + "'"
4073 $! WC "selectminbits='" + perl_selectminbits + "'"
4074 $ WC "crosscompile='" + perl_crosscompile + "'"
4075 $ WC "multiarch='" + perl_multiarch + "'"
4076 $ WC "sched_yield='" + perl_sched_yield + "'"
4077 $ WC "d_strtoull='" + perl_d_strtoull + "'"
4078 $ WC "d_strtouq='" + perl_d_strtouq + "'"
4079 $ WC "d_strtoll='" + perl_d_strtoll + "'"
4080 $ WC "d_strtold='" + perl_d_strtold + "'"
4081 $ WC "usesocks='" + perl_usesocks + "'"
4082 $ WC "d_vendorlib='" + perl_d_vendorlib + "'"
4083 $ WC "vendorlibexp='" + perl_vendorlibexp + "'"
4084 $ WC "d_atolf='" + perl_d_atolf + "'"
4085 $ WC "d_atoll='" + perl_d_atoll + "'"
4086 $ WC "d_bincompat5005='" + perl_d_bincompat + "'"
4087 $ WC "d_endspent='" + perl_d_endspent + "'"
4088 $ WC "d_getspent='" + perl_d_getspent + "'"
4089 $ WC "d_getspnam='" + perl_d_getspnam + "'"
4090 $ WC "d_setspent='" + perl_d_setspent + "'"
4091 $ WC "i_shadow='" + perl_i_shadow + "'"
4092 $ WC "i_socks='" + perl_i_socks + "'"
4093 $ WC "d_PRIfldbl='" + perl_d_PRIfldbl + "'"
4094 $ WC "d_PRIgldbl='" + perl_d_PRIgldbl + "'"
4095 $ WC "d_PRId64='" + perl_d_PRId64 + "'"
4096 $ WC "d_PRIu64='" + perl_d_PRIu64 + "'"
4097 $ WC "d_PRIo64='" + perl_d_PRIo64 + "'"
4098 $ WC "d_PRIx64='" + perl_d_PRIx64 + "'"
4099 $ WC "sPRIfldbl='" + perl_sPRIfldbl + "'"
4100 $ WC "sPRIgldbl='" + perl_sPRIgldbl + "'"
4101 $ WC "sPRId64='" + perl_sPRId64 + "'"
4102 $ WC "sPRIu64='" + perl_sPRIu64 + "'"
4103 $ WC "sPRIo64='" + perl_sPRIo64 + "'"
4104 $ WC "sPRIx64='" + perl_sPRIx64 + "'"
4105 $ WC "d_llseek='" + perl_d_llseek + "'"
4106 $ WC "d_iconv='" + perl_d_iconv +"'"
4107 $ WC "i_iconv='" + perl_i_iconv +"'"
4108 $ WC "inc_version_list_init='""""'"
4109 $ WC "uselargefiles='" + perl_uselargefiles + "'"
4110 $ WC "uselongdouble='" + perl_uselongdouble + "'"
4111 $ WC "usemorebits='" + perl_usemorebits + "'"
4112 $ WC "d_quad='" + perl_d_quad + "'"
4113 $ if (use_64bitint .eqs. "Y")
4115 $ WC "quadtype='" + perl_quadtype + "'"
4116 $ WC "uquadtype='" + perl_uquadtype + "'"
4118 $ WC "d_fs_data_s='" + perl_d_fs_data_s + "'"
4119 $ WC "d_getcwd='" + perl_d_getcwd + "'"
4120 $ WC "d_getmnt='" + perl_d_getmnt + "'"
4121 $ WC "d_sqrtl='" + perl_d_sqrtl + "'"
4122 $ WC "d_statfs_f_flags='" + perl_d_statfs_f_flags + "'"
4123 $ WC "d_statfs_s='" + perl_d_statfs_s + "'"
4124 $ WC "d_ustat='" + perl_d_ustat + "'"
4125 $ WC "i_sysstatfs='" + perl_i_sysstatfs + "'"
4126 $ WC "i_sysvfs='" + perl_i_sysvfs + "'"
4127 $ WC "i_ustat='" + perl_i_ustat + "'"
4128 $ WC "ivtype='" + perl_ivtype + "'"
4129 $ WC "uvtype='" + perl_uvtype + "'"
4130 $ WC "i8type='" + perl_i8type + "'"
4131 $ WC "i16type='" + perl_i16type + "'"
4132 $ WC "u8type='" + perl_u8type + "'"
4133 $ WC "u16type='" + perl_u16type + "'"
4134 $ WC "i32type='" + perl_i32type + "'"
4135 $ WC "u32type='" + perl_u32type + "'"
4136 $ WC "i64type='" + perl_i64type + "'"
4137 $ WC "u64type='" + perl_u64type + "'"
4138 $ WC "nvtype='" + perl_nvtype + "'"
4139 $ WC "ivsize='" + perl_ivsize + "'"
4140 $ WC "uvsize='" + perl_uvsize + "'"
4141 $ WC "i8size='" + perl_i8size + "'"
4142 $ WC "u8size='" + perl_u8size + "'"
4143 $ WC "i16size='" + perl_i16size + "'"
4144 $ WC "u16size='" + perl_u16size + "'"
4145 $ WC "i32size='" + perl_i32size + "'"
4146 $ WC "u32size='" + perl_u32size + "'"
4147 $ WC "i64size='" + perl_i64size + "'"
4148 $ WC "u64size='" + perl_u64size + "'"
4149 $ WC "ivdformat='" + perl_ivdformat + "'"
4150 $ WC "uvuformat='" + perl_uvuformat + "'"
4151 $ WC "uvoformat='" + perl_uvoformat + "'"
4152 $ WC "uvxformat='" + perl_uvxformat + "'"
4153 $ WC "d_vms_case_sensitive_symbols='" + d_vms_be_case_sensitive + "'"
4155 $! ##WRITE NEW CONSTANTS HERE##
4159 $! Okay, we've gotten here. Build munchconfig and run it
4160 $ 'Perl_CC' munchconfig.c
4161 $ If (Needs_Opt.eqs."Yes")
4163 $ open/write OPTCHAN []munchconfig.opt
4164 $ IF ("''using_gnu_c'".eqs."Yes")
4166 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
4168 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
4170 $ link munchconfig.obj,munchconfig.opt/opt
4171 $ delete munchconfig.opt;*
4173 $ link munchconfig.obj
4176 $ echo "Writing config.h"
4178 $ ! we need an fdl file
4179 $ CREATE [-]CONFIG.FDL
4182 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
4183 $ ! First spit out the header info with the local defines (to get
4184 $ ! around the 255 character command line limit)
4185 $ OPEN/APPEND CONFIG [-]config.local
4186 $ if use_debugging_perl.eqs."Y"
4188 $ WRITE CONFIG "#define DEBUGGING"
4190 $ if use_two_pot_malloc.eqs."Y"
4192 $ WRITE CONFIG "#define TWO_POT_OPTIMIZE"
4194 $ if mymalloc.eqs."Y"
4196 $ WRITE CONFIG "#define EMBEDMYMALLOC"
4198 $ if use_pack_malloc.eqs."Y"
4200 $ WRITE CONFIG "#define PACK_MALLOC"
4202 $ if use_debugmalloc.eqs."Y"
4204 $ write config "#define DEBUGGING_MSTATS"
4206 $ if "''Using_Gnu_C'" .eqs."Yes"
4208 $ WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
4210 $ if "''Has_Dec_C_Sockets'".eqs."T"
4212 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
4213 $ WRITE CONFIG "#define DECCRTL_SOCKETS"
4215 $ if "''Has_Socketshr'".eqs."T"
4217 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
4219 $! This is VMS-specific for now
4220 $ WRITE CONFIG "#''perl_d_setenv' HAS_SETENV"
4221 $ if d_alwdeftype.eqs."Y"
4223 $ WRITE CONFIG "#define SECURE_INTERNAL_GETENV"
4225 $ WRITE CONFIG "#undef SECURE_INTERNAL_GETENV"
4227 $ if d_secintgenv.eqs."Y"
4229 $ WRITE CONFIG "#define ALWAYS_DEFTYPES"
4231 $ WRITE CONFIG "#undef ALWAYS_DEFTYPES"
4233 $ if use_64bitint.eqs."Y"
4235 $ WRITE CONFIG "#define USE_64_BIT_INT"
4236 $ WRITE CONFIG "#define USE_LONG_DOUBLE"
4238 $ if use_64bitall.eqs."Y"
4240 $ WRITE CONFIG "#define USE_64_BIT_ALL"
4242 $ if be_case_sensitive
4244 $ write config "#define VMS_WE_ARE_CASE_SENSITIVE"
4246 $ WRITE CONFIG "#define HAS_ENVGETENV"
4247 $ WRITE CONFIG "#define PERL_EXTERNAL_GLOB"
4250 $! Now build the normal config.h
4251 $ define/user sys$output [-]config.main
4252 $ mcr []munchconfig [-]config.sh [-]config_h.sh
4253 $ ! Concatenate them together
4254 $ copy [-]config.local,[-]config.main [-]config.h
4256 $ DELETE/NOLOG [-]CONFIG.MAIN;*
4257 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
4258 $ DELETE/NOLOG [-]CONFIG.FDL;*
4260 $ if "''Using_Dec_C'" .eqs."Yes"
4262 $ DECC_REPLACE = "DECC=decc=1"
4264 $ DECC_REPLACE = "DECC="
4266 $ if "''Using_Gnu_C'" .eqs."Yes"
4268 $ GNUC_REPLACE = "GNUC=gnuc=1"
4270 $ GNUC_REPLACE = "GNUC="
4272 $ if "''Has_Dec_C_Sockets'" .eqs."T"
4274 $ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
4276 $ if "''Has_Socketshr'" .eqs."T"
4278 $ SOCKET_REPLACE = "SOCKET=SOCKETSHR_SOCKETS=1"
4280 $ SOCKET_REPLACE = "SOCKET="
4283 $ IF ("''Use_Threads'".eqs."T")
4285 $ if ("''VMS_VER'".LES."6.2")
4287 $ THREAD_REPLACE = "THREAD=OLDTHREADED=1"
4289 $ THREAD_REPLACE = "THREAD=THREADED=1"
4292 $ THREAD_REPLACE = "THREAD="
4294 $ if mymalloc.eqs."Y"
4296 $ MALLOC_REPLACE = "MALLOC=MALLOC=1"
4298 $ MALLOC_REPLACE = "MALLOC="
4300 $ if f$getsyi("HW_MODEL").ge.1024
4302 $ ARCH_TYPE = "ARCH-TYPE=__AXP__"
4304 $ ARCH_TYPE = "ARCH-TYPE=__VAX__"
4306 $ echo "Writing DESCRIP.MMS"
4308 $ define/user sys$output [-]descrip.mms
4309 $ mcr []munchconfig [-]config.sh descrip_mms.template "''DECC_REPLACE'" "''ARCH_TYPE'" "''GNUC_REPLACE'" "''SOCKET_REPLACE'" "''THREAD_REPLACE'" -
4310 "''C_Compiler_Replace'" "''MALLOC_REPLACE'" "''Thread_Live_Dangerously'" "PV=''LocalPerlVer'" "FLAGS=FLAGS=''extra_flags'"
4311 $ echo "Extracting Build_Ext.Com"
4312 $ Create Sys$Disk:[-]Build_Ext.Com
4313 $ Deck/Dollar="$EndOfTpl$"
4315 $! NOTE: This file is extracted as part of the VMS configuration process.
4316 $! Any changes made to it directly will be lost. If you need to make any
4317 $! changes, please edit the template in [.vms]SubConfigure.Com instead.
4318 $ def = F$Environment("Default")
4319 $ exts1 = F$Edit(p1,"Compress")
4320 $ p2 = F$Edit(p2,"Upcase,Compress,Trim")
4321 $ If F$Locate("MCR ",p2).eq.0 Then p2 = F$Extract(3,255,p2)
4322 $ miniperl = "$" + F$Search(F$Parse(p2,".Exe"))
4324 $ if f$type('p3') .nes. "" then makeutil = 'p3'
4325 $ targ = F$Edit(p4,"Lowercase")
4328 $ ext = F$Element(i," ",p1)
4329 $ If ext .eqs. " " Then Goto done
4330 $ Define/User Perl_Env_Tables CLISYM_LOCAL
4332 ($extdir = $ENV{'ext'}) =~ s/::/./g;
4333 if ($extdir =~ /^vms/i) { $extdir =~ s/vms/.vms.ext/i; }
4334 else { $extdir = ".ext.$extdir"; }
4335 ($ENV{'extdir'} = "[$extdir]");
4336 ($ENV{'up'} = ('-') x ($extdir =~ tr/././));
4337 $ Set Default &extdir
4339 $ If F$Locate("clean",targ) .eqs. F$Length(targ)
4341 $ Write Sys$Output "Building ''ext' . . ."
4342 $ On Error Then Goto done
4343 $ If F$Search("Descrip.MMS") .eqs. ""
4347 $ If F$CvTime(F$File("Descrip.MMS","rdt")) .lts. -
4348 F$CvTime(F$File("Makefile.PL","rdt")) Then redesc = 1
4351 $ Write Sys$Output "''targ'ing ''ext' . . ."
4352 $ On Error Then Continue
4355 miniperl "-I[''up'.lib]" Makefile.PL "INST_LIB=[''up'.lib]" "INST_ARCHLIB=[''up'.lib]"
4369 $! Clean up after ourselves
4370 $ delete/nolog munchconfig.exe;*
4371 $ delete/nolog munchconfig.obj;*