2 $! - build a config.sh for VMS Perl.
3 $! - use built config.sh to take config_h.SH -> config.h
4 $! - also take vms/descrip_mms.template -> descrip.mms (VMS Makefile)
6 $! Note for folks from other platforms changing things in here:
7 $! Fancy changes (based on compiler capabilities or VMS version or
8 $! whatever) are tricky, so go ahead and punt on those.
10 $! Simple changes, though (say, always setting something to 1, or undef,
11 $! or something like that) are straightforward. Adding a new item for the
12 $! ultimately created config.sh requires adding two lines to this file.
14 $! First, a line in the format:
16 $! after the line tagged ##ADD NEW CONSTANTS HERE##. Replace foo with the
17 $! variable name as it appears in config.sh.
19 $! Second, add a line in the format:
20 $! $ WC "foo='" + perl_foo + "'"
21 $! after the line tagged ##WRITE NEW CONSTANTS HERE##. Careful of the
22 $! quoting, as it can be tricky.
24 $! This .COM file expects to be called by configure.com, and thus expects
25 $! a few symbols in the environment. Notably:
27 $! One of: Using_Dec_C, Using_Gnu_C set to "YES"
28 $! Dec_C_Version set to the Dec C version (defaults to 0 if not specified)
29 $! Has_Socketshr set to "T" if using socketshr
30 $! Has_Dec_C_Sockets set to "T" if using Dec C sockets
31 $! Use_Threads set to "T" if they're using threads
32 $! C_Compiler_Invoke is the command needed to invoke the C compiler
34 $! We'll be playing with Sys$Output; don't clutter it
37 $! Set Dec_C_Version to something
38 $ WRITE_RESULT := "WRITE SYS$OUTPUT ""%CONFIG-I-RESULT "" + "
39 $ echo = "Write Sys$Output "
40 $ Dec_C_Version := "''Dec_C_Version'"
41 $ Dec_C_Version = Dec_C_Version + 0
42 $ Vms_Ver := "''f$extract(1,3, f$getsyi(""version""))'"
43 $ perl_extensions := "''extensions'"
44 $ IF F$LENGTH(Mcc) .EQ. 0 THEN Mcc := "cc"
45 $ MCC = f$edit(mcc, "UPCASE")
46 $ C_Compiler_Replace := "CC=CC=''Mcc'''CC_flags'"
49 $ Checkcc := "''Mcc'/prefix=all"
53 $ cc_flags = cc_flags + extra_flags
54 $ IF be_case_sensitive
56 $ d_vms_be_case_sensitive = "define"
58 $ d_vms_be_case_sensitive = "undef"
62 $ perl_usemultiplicity = "define"
64 $ perl_usemultiplicity = "undef"
66 $! Some constant defaults.
67 $ hwname = f$getsyi("HW_NAME")
69 $ IF myname .EQS. "" THEN myname = F$TRNLNM("SYS$NODE")
71 $! ##ADD NEW CONSTANTS HERE##
75 $ perl_gidformat = "lu"
77 $ perl_groupstype = "Gid_t"
78 $ perl_stdio_stream_array = ""
79 $ perl_uidformat = "lu"
81 $ perl_d_getcwd = "undef"
82 $ perl_d_nv_preserves_uv = "define"
83 $ perl_d_fs_data_s = "undef"
84 $ perl_d_getmnt = "undef"
85 $ perl_d_sqrtl = "define"
86 $ perl_d_statfs_f_flags = "undef"
87 $ perl_d_statfs_s = "undef"
88 $ perl_d_ustat = "undef"
89 $ perl_i_ieeefp = "undef"
90 $ perl_i_sunmath = "undef"
91 $ perl_i_sysstatfs = "undef"
92 $ perl_i_sysvfs = "undef"
93 $ perl_i_ustat = "undef"
94 $ perl_d_llseek="undef"
95 $ perl_d_iconv="undef"
96 $ perl_d_madvise="undef"
97 $ perl_selectminbits="32"
98 $ perl_d_vendorarch="undef"
99 $ perl_vendorarchexp=""
100 $ perl_d_msync="undef"
101 $ perl_d_mprotect="undef"
102 $ perl_d_munmap="undef"
103 $ perl_crosscompile="undef"
104 $ perl_multiarch="undef"
105 $ perl_d_mmap="undef"
106 $ perl_i_sysmman="undef"
107 $ perl_d_telldirproto="define"
108 $ perl_i_sysmount="undef"
109 $ perl_d_bincompat="undef"
110 $ perl_d_endspent="undef
111 $ perl_d_getspent="undef
112 $ perl_d_getspnam="undef
113 $ perl_d_setspent="undef
114 $ perl_d_fstatfs="undef"
115 $ perl_d_getfsstat="undef"
116 $ perl_i_machcthreads="undef"
117 $ perl_i_pthread="define"
118 $ perl_d_fstatvfs="undef"
119 $ perl_usesocks="undef"
120 $ perl_d_vendorlib="undef"
121 $ perl_vendorlibexp=""
122 $ perl_vendorlib_stem=""
123 $ perl_d_statfsflags="undef"
124 $ perl_i_sysstatvfs="undef"
125 $ perl_i_mntent="undef"
126 $ perl_d_getmntent="undef"
127 $ perl_d_hasmntopt="undef"
128 $ perl_package="''package'"
129 $ perl_baserev = "''baserev'"
131 $ perl_installusrbinperl="undef"
133 $ perl_d_fseeko="undef"
134 $ perl_d_ftello="undef"
135 $ perl_d_qgcvt="undef"
136 $ perl_d_readv="undef"
137 $ perl_d_writev="undef"
138 $ perl_i_machcthr="undef"
139 $ perl_i_netdb="undef"
140 $ perl_d_gnulibc="undef"
144 $ perl_drand01 = "drand48()"
145 $ perl_randseedtype = "long int"
146 $ perl_seedfunc = "srand48"
147 $ perl_d_msg_ctrunc = "undef"
148 $ perl_d_msg_dontroute = "undef"
149 $ perl_d_msg_oob = "undef"
150 $ perl_d_msg_peek = "undef"
151 $ perl_d_msg_proxy = "undef"
152 $ perl_d_scm_rights = "undef"
153 $ perl_d_sendmsg = "undef"
154 $ perl_d_recvmsg = "undef"
155 $ perl_d_msghdr_s = "undef"
156 $ perl_d_cmsghdr_s = "undef"
159 $ perl_use64bitint = "define"
160 $ perl_uselargefiles = "define"
161 $ perl_uselongdouble = "define"
162 $ perl_usemorebits = "define"
164 $ perl_use64bitint = "undef"
165 $ perl_uselargefiles = "undef"
166 $ perl_uselongdouble = "undef"
167 $ perl_usemorebits = "undef"
171 $ perl_use64bitall = "define"
173 $ perl_use64bitall = "undef"
175 $ perl_d_drand48proto = "define"
176 $ perl_d_lseekproto = "define"
177 $ perl_libpth="/sys$share /sys$library"
179 $ perl_lddlflags="/Share"
185 $ perl_i_arpainet="undef"
186 $ perl_d_grpasswd="undef"
187 $ perl_d_setgrent="undef"
188 $ perl_d_getgrent="define"
189 $ perl_d_endgrent="define"
190 $ perl_d_pwpasswd="define"
191 $ perl_d_setpwent="define"
192 $ perl_d_getpwent="define"
193 $ perl_d_endpwent="define"
194 $ perl_d_phostname="undef"
195 $ perl_d_accessx="undef"
196 $ perl_d_eaccess="undef"
197 $ perl_ebcdic="undef"
199 $ perl_shrplib="define"
200 $ perl_usemymalloc=mymalloc
201 $ perl_usevfork="true"
202 $ perl_useposix="false"
203 $ perl_spitshell="write sys$output "
204 $ perl_dlsrc="dl_vms.c"
207 $ perl_prefix="perl_root"
208 $ perl_binexp="''perl_prefix':[000000]"
209 $ perl_builddir="''perl_prefix':[000000]"
210 $ perl_installbin="''perl_prefix':[000000]"
211 $ perl_installscript="''perl_prefix':[utils]"
212 $ perl_installman1dir="''perl_prefix':[man.man1]"
213 $ perl_installman3dir="''perl_prefix':[man.man3]"
214 $ perl_installprivlib="''perl_prefix':[lib]"
215 $ perl_installsitelib="''perl_prefix':[lib.site_perl]"
218 $ perl_d_sockpair="undef"
219 $ perl_i_neterrno="define"
220 $ perl_ldflags="/NoTrace/NoMap"
221 $ perl_d_lchown="undef"
222 $ perl_d_mknod="undef"
223 $ perl_d_union_semun="undef"
224 $ perl_d_semctl_semun="undef"
225 $ perl_d_semctl_semid_ds="undef"
226 $ IF (sharedperl .AND. F$GETSYI("HW_MODEL") .GE. 1024)
228 $ perl_obj_ext=".abj"
231 $ perl_exe_ext=".axe"
232 $ perl_lib_ext=".alb"
234 $ perl_obj_ext=".obj"
237 $ perl_exe_ext=".exe"
238 $ perl_lib_ext=".olb"
240 $ perl_dlobj="dl_vms''perl_obj_ext'"
242 $ perl_d_archlib="define"
243 $ perl_d_bincompat3="undef"
244 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
246 $ perl_cpprun="''Perl_CC'/noobj/preprocess=sys$output sys$input"
249 $ perl_d_castneg="define"
251 $ perl_d_chsize="undef"
252 $ perl_d_const="define"
253 $ perl_d_crypt="define"
254 $ perl_byteorder="1234"
257 $ perl_d_dup2="define"
258 $ perl_d_fchmod="undef"
259 $ perl_d_fchown="undef"
260 $ perl_d_fcntl="undef"
261 $ perl_d_fgetpos="define"
262 $ perl_d_flexfnam="define"
263 $ perl_d_flock="undef"
264 $ perl_d_fsetpos="define"
265 $ perl_d_getgrps="undef"
266 $ perl_d_setgrps="undef"
267 $ perl_d_getprior="undef"
268 $ perl_d_killpg="undef"
269 $ perl_d_link="undef"
270 $ perl_d_lstat="undef"
271 $ perl_d_lockf="undef"
272 $ perl_d_memcmp="define"
273 $ perl_d_memcpy="define"
274 $ perl_d_memmove="define"
275 $ perl_d_memset="define"
276 $ perl_d_mkdir="define"
278 $ perl_d_open3="define"
279 $ perl_d_poll="undef"
280 $ perl_d_readdir="define"
281 $ perl_d_seekdir="define"
282 $ perl_d_telldir="define"
283 $ perl_d_rewinddir="define"
284 $ perl_d_rename="define"
285 $ perl_d_rmdir="define"
287 $ perl_d_setegid="undef"
288 $ perl_d_seteuid="undef"
289 $ perl_d_setprior="undef"
290 $ perl_d_setregid="undef"
291 $ perl_d_setresgid="undef"
292 $ perl_d_setreuid="undef"
293 $ perl_d_setresuid="undef"
294 $ perl_d_setrgid="undef"
295 $ perl_d_setruid="undef"
296 $ perl_d_setsid="undef"
298 $ perl_d_shmatprototype="undef"
299 $ perl_d_statblks="undef"
300 $ perl_stdio_ptr="((*fp)->_ptr)"
301 $ perl_stdio_cnt="((*fp)->_cnt)"
302 $ perl_stdio_base="((*fp)->_base)"
303 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
304 $ perl_d_strctcpy="define"
305 $ perl_d_strerror="define"
306 $ perl_d_syserrlst="undef"
307 $ perl_d_strerrm="strerror((e),vaxc$errno)"
308 $ perl_d_symlink="undef"
309 $ perl_d_syscall="undef"
310 $ perl_d_system="define"
311 $ perl_timetype="time_t"
312 $ perl_d_vfork="define"
313 $ perl_signal_t="void"
314 $ perl_d_volatile="define"
315 $ perl_d_vprintf="define"
316 $ perl_d_charvspr="undef"
317 $ perl_d_waitpid="define"
318 $ perl_i_dirent="undef"
319 $ perl_d_dirnamlen="define"
320 $ perl_direntrytype="struct dirent"
321 $ perl_i_fcntl="undef"
323 $ perl_i_limits="define"
324 $ perl_i_memory="undef"
325 $ perl_i_ndbm="undef"
326 $ perl_i_stdarg="define"
328 $ perl_d_pwquota="undef"
329 $ perl_d_pwage="undef"
330 $ perl_d_pwchange="undef"
331 $ perl_d_pwclass="undef"
332 $ perl_d_pwexpire="undef"
333 $ perl_d_pwcomment="define"
334 $ perl_i_stddef="define"
335 $ perl_i_stdlib="define"
336 $ perl_i_string="define"
337 $ perl_i_sysdir="undef"
338 $ perl_i_sysfile="undef"
339 $ perl_i_sysioctl="undef"
340 $ perl_i_sysndir="undef"
341 $ perl_i_sysresrc="undef"
342 $ perl_i_sysselct="undef"
344 $ perl_i_rpcsvcdbm="undef"
345 $ perl_i_sfio="undef"
346 $ perl_i_sysstat="define"
347 $ perl_i_systimes="undef"
348 $ perl_i_systypes="define"
349 $ perl_i_sysun="undef"
350 $ perl_i_syswait="undef"
351 $ perl_i_termio="undef"
352 $ perl_i_sgtty="undef"
353 $ perl_i_termios="undef"
354 $ perl_i_time="define"
355 $ perl_i_systime="undef"
356 $ perl_i_systimek="undef"
357 $! perl_i_unistd="undef"
358 $ perl_i_utime="undef"
359 $ perl_i_varargs="undef"
360 $ perl_i_vfork="undef"
361 $ perl_prototype="define"
363 $ perl_stdchar="char"
364 $ perl_d_unlink_all_versions="undef"
365 $ perl_full_sed="_NLA0:"
366 $ perl_bin="/''perl_prefix'/000000"
367 $ perl_binexp="''perl_prefix':[000000]"
368 $ perl_d_alarm="define"
369 $ perl_d_casti32="define"
370 $ perl_d_chown="define"
371 $ perl_d_chroot="undef"
372 $ perl_d_cuserid="define"
373 $ perl_d_dbl_dig="define"
374 $ perl_d_ldbl_dig="define"
375 $ perl_d_difftime="define"
376 $ perl_d_fork="undef"
377 $ perl_d_getlogin="define"
378 $ perl_d_getppid="undef"
379 $ perl_d_nice="define"
380 $ perl_d_pause="define"
381 $ perl_d_pipe="define"
382 $ perl_d_readlink="undef"
383 $ perl_d_setlinebuf="undef"
384 $ perl_d_strchr="define"
385 $ perl_d_strtod="define"
386 $ perl_d_strtol="define"
387 $ perl_d_strtoul="define"
388 $ perl_d_tcgetpgrp="undef"
389 $ perl_d_tcsetpgrp="undef"
390 $ perl_d_times="define"
391 $ perl_d_tzname="undef"
392 $ perl_d_umask="define"
393 $ perl_fpostype="fpos_t"
394 $ perl_i_dlfcn="undef"
395 $ perl_i_float="define"
396 $ perl_i_math="define"
397 $ perl_lseektype="int"
398 $ perl_i_values="undef"
399 $ perl_malloctype="void *"
400 $ perl_freetype="void"
403 $ perl_d_mymalloc="define"
405 $ perl_d_mymalloc="undef"
408 $ perl_modetype="unsigned int"
409 $ perl_ssizetype="int"
410 $ perl_o_nonblock=" "
413 $ perl_d_eofnblk="undef"
414 $ perl_d_oldarchlib="define"
415 $ perl_privlibexp="''perl_prefix':[lib]"
416 $ perl_privlib="''perl_prefix':[lib]"
417 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
418 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
419 $ perl_sitelib_stem="''perl_prefix':[lib.site_perl]"
420 $ perl_sizetype="size_t"
421 $ perl_i_sysparam="undef"
422 $ perl_d_void_closedir="define"
423 $ perl_d_dlerror="undef"
424 $ perl_d_dlsymun="undef"
425 $ perl_d_suidsafe="undef"
426 $ perl_d_dosuid="undef"
427 $ perl_d_inetaton="undef"
428 $ perl_d_isascii="define"
429 $ perl_d_mkfifo="undef"
430 $ perl_d_safebcpy="undef"
431 $ perl_d_safemcpy="define"
432 $ perl_d_sanemcmp="define"
433 $ perl_d_setpgrp="undef"
434 $ perl_d_bsdsetpgrp="undef"
435 $ perl_d_bsdpgrp="undef"
436 $ perl_d_setpgid="undef"
437 $ perl_d_setpgrp2="undef"
438 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
439 $ perl_d_getpgid="undef"
440 $ perl_d_getpgrp="undef"
441 $ perl_d_bsdgetpgrp="undef"
442 $ perl_d_getpgrp2="undef"
443 $ perl_d_sfio="undef"
444 $ perl_usedl="define"
445 $ perl_startperl="""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ + ++$status != 0 and $exit = $status = undef;"""
446 $ perl_db_hashtype=" "
447 $ perl_db_prefixtype=" "
448 $ perl_useperlio="undef"
449 $ perl_defvoidused="15"
450 $ perl_voidflags="15"
451 $ perl_d_eunice="undef"
452 $ perl_d_pwgecos="define"
453 $ IF ((Use_Threads) .AND. (VMS_VER .LES. "6.2"))
455 $ 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"
461 $ perl_libc="(DECCRTL)"
471 $ perl_d_PRIfldbl = "define"
472 $ perl_d_PRIgldbl = "define"
473 $ perl_d_PRId64 = "define"
474 $ perl_d_PRIu64 = "define"
475 $ perl_d_PRIo64 = "define"
476 $ perl_d_PRIx64 = "define"
477 $ perl_sPRIfldbl = """Lf"""
478 $ perl_sPRIgldbl = """Lg"""
479 $ perl_sPRId64 = """Ld"""
480 $ perl_sPRIu64 = """Lu"""
481 $ perl_sPRIo64 = """Lo"""
482 $ perl_sPRIx64 = """Lx"""
483 $ perl_d_quad = "define"
484 $ perl_quadtype = "long long"
485 $ perl_uquadtype = "unsigned long long"
486 $ perl_quadkind = "QUAD_IS_LONG_LONG"
488 $ perl_d_PRIfldbl = "undef"
489 $ perl_d_PRIgldbl = "undef"
490 $ perl_d_PRId64 = "undef"
491 $ perl_d_PRIu64 = "undef"
492 $ perl_d_PRIo64 = "undef"
493 $ perl_d_PRIx64 = "undef"
494 $ perl_sPRIfldbl = ""
495 $ perl_sPRIgldbl = ""
500 $ perl_d_quad = "undef"
501 $ perl_quadtype = "long"
502 $ perl_uquadtype = "unsigned long"
503 $ perl_quadkind = "QUAD_IS_LONG"
506 $! Now some that we build up
510 $ if use_5005_threads
512 $ arch = "''arch'-thread"
513 $ archname = "''archname'-thread"
514 $ perl_d_old_pthread_create_joinable = "undef"
515 $ perl_old_pthread_create_joinable = " "
516 $ perl_use5005threads = "define"
517 $ perl_useithreads = "undef"
519 $ arch = "''arch'-ithread"
520 $ archname = "''archname'-ithread"
521 $ perl_d_old_pthread_create_joinable = "undef"
522 $ perl_old_pthread_create_joinable = " "
523 $ perl_use5005threads = "undef"
524 $ perl_useithreads = "define"
527 $ perl_d_old_pthread_create_joinable = "undef"
528 $ perl_old_pthread_create_joinable = " "
529 $ perl_use5005threads = "undef"
530 $ perl_useithreads = "undef"
533 $! Some that we need to invoke the compiler for
534 $ OS := "open/write SOURCECHAN []temp.c"
535 $ WS := "write SOURCECHAN"
536 $ CS := "close SOURCECHAN"
537 $ DS := "delete/nolog []temp.*;*"
541 $ open/write OPTCHAN []temp.opt
542 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
543 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
548 $! Check for __STDC__
552 $ WS "#include <stdlib.h>
554 $ WS "#include <stdio.h>
557 $ WS "#ifdef __STDC__
558 $ WS "printf(""42\n"");
560 $ WS "printf(""1\n"");
565 $ DEFINE SYS$ERROR _NLA0:
566 $ DEFINE SYS$OUTPUT _NLA0:
567 $ ON ERROR THEN CONTINUE
568 $ ON WARNING THEN CONTINUE
572 $ link temp.obj,temp.opt/opt
576 $ DEASSIGN SYS$OUTPUT
578 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
579 $ DEFINE SYS$ERROR TEMPOUT
580 $ DEFINE SYS$OUTPUT TEMPOUT
583 $ DEASSIGN SYS$OUTPUT
585 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
588 $ DELETE/NOLOG [-.uu]tempout.lis;
589 $ perl_cpp_stuff=line
590 $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
592 $! Check for double size
596 $ WS "#include <stdlib.h>
598 $ WS "#include <stdio.h>
602 $ WS "foo = sizeof(double);
603 $ WS "printf(""%d\n"", foo);
607 $ DEFINE SYS$ERROR _NLA0:
608 $ DEFINE SYS$OUTPUT _NLA0:
609 $ ON ERROR THEN CONTINUE
610 $ ON WARNING THEN CONTINUE
614 $ link temp.obj,temp.opt/opt
618 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
619 $ DEASSIGN SYS$OUTPUT
621 $ DEFINE SYS$ERROR TEMPOUT
622 $ DEFINE SYS$OUTPUT TEMPOUT
625 $ DEASSIGN SYS$OUTPUT
627 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
630 $ DELETE/NOLOG [-.uu]tempout.lis;
632 $ perl_doublesize=line
633 $ WRITE_RESULT "doublesize is ''perl_doublesize'"
635 $! Check for long double size
639 $ WS "#include <stdlib.h>
641 $ WS "#include <stdio.h>
644 $ WS "printf(""%d\n"", sizeof(long double));
648 $ DEFINE SYS$ERROR _NLA0:
649 $ DEFINE SYS$OUTPUT _NLA0:
650 $ ON ERROR THEN CONTINUE
651 $ ON WARNING THEN CONTINUE
653 $ teststatus = f$extract(9,1,$status)
654 $ if (teststatus.nes."1")
656 $ perl_longdblsize="0"
657 $ perl_d_longdbl="undef"
659 $ ON ERROR THEN CONTINUE
660 $ ON WARNING THEN CONTINUE
663 $ link temp.obj,temp.opt/opt
667 $ teststatus = f$extract(9,1,$status)
668 $ DEASSIGN SYS$OUTPUT
670 $ IF (teststatus.nes."1")
672 $ perl_longdblsize="0"
673 $ perl_d_longdbl="undef"
675 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
676 $ DEFINE SYS$ERROR TEMPOUT
677 $ DEFINE SYS$OUTPUT TEMPOUT
680 $ DEASSIGN SYS$OUTPUT
682 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
685 $ DELETE/NOLOG [-.uu]tempout.lis;
686 $ perl_longdblsize=line
687 $ perl_d_longdbl="define"
690 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
691 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
693 $! Check for long long existance and size
697 $ WS "#include <stdlib.h>
699 $ WS "#include <stdio.h>
702 $ WS "printf(""%d\n"", sizeof(long long));
706 $ DEFINE SYS$ERROR _NLA0:
707 $ DEFINE SYS$OUTPUT _NLA0:
708 $ on error then continue
709 $ on warning then continue
713 $ link temp.obj,temp.opt/opt
717 $ teststatus = f$extract(9,1,$status)
718 $ DEASSIGN SYS$OUTPUT
720 $ if (teststatus.nes."1")
722 $ perl_longlongsize="0"
723 $ perl_d_longlong="undef"
725 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
726 $ DEFINE SYS$ERROR TEMPOUT
727 $ DEFINE SYS$OUTPUT TEMPOUT
730 $ DEASSIGN SYS$OUTPUT
732 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
735 $ DELETE/NOLOG [-.uu]tempout.lis;
736 $ perl_longlongsize=line
737 $ perl_d_longlong="define"
739 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
740 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
742 $! Check the prototype for getgid
746 $ WS "#include <stdlib.h>
748 $ WS "#include <stdio.h>
749 $ WS "#include <types.h>
750 $ WS "#include <unistd.h>
757 $ DEFINE SYS$ERROR _NLA0:
758 $ DEFINE SYS$OUTPUT _NLA0:
759 $ on error then continue
760 $ on warning then continue
762 $ teststatus = f$extract(9,1,$status)
763 $ DEASSIGN SYS$OUTPUT
765 $ if (teststatus.nes."1")
767 $! Okay, gid_t failed. Must be unsigned int
768 $ perl_gidtype = "unsigned int"
770 $ perl_gidtype = "gid_t"
772 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
774 $! Check to see if we've got dev_t
778 $ WS "#include <stdlib.h>
780 $ WS "#include <stdio.h>
781 $ WS "#include <types.h>
782 $ WS "#include <unistd.h>
789 $ DEFINE SYS$ERROR _NLA0:
790 $ DEFINE SYS$OUTPUT _NLA0:
791 $ on error then continue
792 $ on warning then continue
794 $ teststatus = f$extract(9,1,$status)
795 $ DEASSIGN SYS$OUTPUT
797 $ if (teststatus.nes."1")
799 $! Okay, dev_t failed. Must be unsigned int
800 $ perl_devtype = "unsigned int"
802 $ perl_devtype = "dev_t"
804 $ WRITE_RESULT "Dev_t is ''perl_devtype'"
806 $! Check to see if we've got unistd.h (which we ought to, but you never know)
810 $ WS "#include <stdlib.h>
812 $ WS "#include <unistd.h>
818 $ DEFINE SYS$ERROR _NLA0:
819 $ DEFINE SYS$OUTPUT _NLA0:
820 $ on error then continue
821 $ on warning then continue
823 $ teststatus = f$extract(9,1,$status)
824 $ DEASSIGN SYS$OUTPUT
826 $ if (teststatus.nes."1")
828 $! Okay, failed. Must not have it
829 $ perl_i_unistd = "undef"
831 $ perl_i_unistd = "define"
833 $ WRITE_RESULT "i_unistd is ''perl_i_unistd'"
835 $! Check to see if we've got shadow.h (probably not, but...)
839 $ WS "#include <stdlib.h>
841 $ WS "#include <shadow.h>
847 $ DEFINE SYS$ERROR _NLA0:
848 $ DEFINE SYS$OUTPUT _NLA0:
849 $ on error then continue
850 $ on warning then continue
852 $ teststatus = f$extract(9,1,$status)
853 $ DEASSIGN SYS$OUTPUT
855 $ if (teststatus.nes."1")
857 $! Okay, failed. Must not have it
858 $ perl_i_shadow = "undef"
860 $ perl_i_shadow = "define"
862 $ WRITE_RESULT "i_shadow is ''perl_i_shadow'"
864 $! Check to see if we've got socks.h (probably not, but...)
868 $ WS "#include <stdlib.h>
870 $ WS "#include <socks.h>
876 $ DEFINE SYS$ERROR _NLA0:
877 $ DEFINE SYS$OUTPUT _NLA0:
878 $ on error then continue
879 $ on warning then continue
881 $ teststatus = f$extract(9,1,$status)
882 $ DEASSIGN SYS$OUTPUT
884 $ if (teststatus.nes."1")
886 $! Okay, failed. Must not have it
887 $ perl_i_socks = "undef"
889 $ perl_i_socks = "define"
891 $ WRITE_RESULT "i_socks is ''perl_i_socks'"
893 $! Check the prototype for select
895 $ IF Has_Dec_C_Sockets .OR. Has_Socketshr
899 $ WS "#include <stdlib.h>
901 $ WS "#include <stdio.h>
902 $ WS "#include <types.h>
903 $ WS "#include <unistd.h>
906 $ WS "#include <socketshr.h>"
908 $ WS "#include <time.h>
909 $ WS "#include <socket.h>
916 $ WS "bar = select(2, foo, foo, foo, NULL);
920 $ DEFINE SYS$ERROR _NLA0:
921 $ DEFINE SYS$OUTPUT _NLA0:
922 $ on error then continue
923 $ on warning then continue
925 $ teststatus = f$extract(9,1,$status)
926 $ DEASSIGN SYS$OUTPUT
928 $ if (teststatus.nes."1")
930 $! Okay, fd_set failed. Must be an int
931 $ perl_selecttype = "int *"
933 $ perl_selecttype="fd_set *"
936 $ ! No sockets, so stick in an int *
937 $ perl_selecttype = "int *"
939 $ WRITE_RESULT "selectype is ''perl_selecttype'"
941 $! Check to see if fd_set exists
945 $ WS "#include <stdlib.h>
947 $ WS "#include <stdio.h>
948 $ WS "#include <types.h>
949 $ WS "#include <unistd.h>
952 $ WS "#include <socketshr.h>"
954 $ IF Has_Dec_C_Sockets
956 $ WS "#include <time.h>
957 $ WS "#include <socket.h>
966 $ DEFINE SYS$ERROR _NLA0:
967 $ DEFINE SYS$OUTPUT _NLA0:
968 $ on error then continue
969 $ on warning then continue
971 $ teststatus = f$extract(9,1,$status)
972 $ DEASSIGN SYS$OUTPUT
974 $ if (teststatus.nes."1")
976 $! Okay, fd_set failed. Must not exist
977 $ perl_d_fd_set = "undef"
979 $ perl_d_fd_set="define"
981 $ WRITE_RESULT "d_fd_set is ''perl_d_fd_set'"
983 $! Check for inttypes.h
987 $ WS "#include <stdlib.h>
989 $ WS "#include <stdio.h>
990 $ WS "#include <unistd.h>
991 $ WS "#include <inttypes.h>
997 $ DEFINE SYS$ERROR _NLA0:
998 $ DEFINE SYS$OUTPUT _NLA0:
999 $ on error then continue
1000 $ on warning then continue
1002 $ savedstatus = $status
1003 $ teststatus = f$extract(9,1,savedstatus)
1004 $ if (teststatus.nes."1")
1006 $ perl_i_inttypes="undef"
1007 $ DEASSIGN SYS$OUTPUT
1008 $ DEASSIGN SYS$ERROR
1012 $ link temp.obj,temp.opt/opt
1016 $ savedstatus = $status
1017 $ teststatus = f$extract(9,1,savedstatus)
1018 $ DEASSIGN SYS$OUTPUT
1019 $ DEASSIGN SYS$ERROR
1020 $ if (teststatus.nes."1")
1022 $ perl_i_inttypes="undef"
1024 $ perl_i_inttypes="define"
1027 $ WRITE_RESULT "i_inttypes is ''perl_i_inttypes'"
1029 $! Check for h_errno
1033 $ WS "#include <stdlib.h>
1035 $ WS "#include <stdio.h>
1036 $ WS "#include <unistd.h>
1037 $ WS "#include <netdb.h>
1044 $ DEFINE SYS$ERROR _NLA0:
1045 $ DEFINE SYS$OUTPUT _NLA0:
1046 $ on error then continue
1047 $ on warning then continue
1049 $ savedstatus = $status
1050 $ teststatus = f$extract(9,1,savedstatus)
1051 $ if (teststatus.nes."1")
1053 $ perl_d_herrno="undef"
1054 $ DEASSIGN SYS$OUTPUT
1055 $ DEASSIGN SYS$ERROR
1059 $ link temp.obj,temp.opt/opt
1063 $ savedstatus = $status
1064 $ teststatus = f$extract(9,1,savedstatus)
1065 $ DEASSIGN SYS$OUTPUT
1066 $ DEASSIGN SYS$ERROR
1067 $ if (teststatus.nes."1")
1069 $ perl_d_herrno="undef"
1071 $ perl_d_herrno="define"
1074 $ WRITE_RESULT "d_herrno is ''perl_d_herrno'"
1076 $! Check to see if int64_t exists
1080 $ WS "#include <stdlib.h>
1082 $ WS "#include <stdio.h>
1083 $ WS "#include <types.h>
1084 $ WS "#''perl_i_inttypes IIH
1086 $ WS "#include <inttypes.h>
1088 $ WS "#include <unistd.h>
1095 $ DEFINE SYS$ERROR _NLA0:
1096 $ DEFINE SYS$OUTPUT _NLA0:
1097 $ on error then continue
1098 $ on warning then continue
1100 $ teststatus = f$extract(9,1,$status)
1101 $ DEASSIGN SYS$OUTPUT
1102 $ DEASSIGN SYS$ERROR
1103 $ if (teststatus.nes."1")
1105 $! Okay, int64_t failed. Must not exist
1106 $ perl_d_int64_t = "undef"
1108 $ perl_d_int64_t="define"
1110 $ WRITE_RESULT "d_int64_t is ''perl_d_int64_t'"
1112 $! Check to see if off64_t exists
1116 $ WS "#include <stdlib.h>
1118 $ WS "#include <stdio.h>
1119 $ WS "#include <types.h>
1120 $ WS "#''perl_i_inttypes IIH
1122 $ WS "#include <inttypes.h>
1124 $ WS "#include <unistd.h>
1131 $ DEFINE SYS$ERROR _NLA0:
1132 $ DEFINE SYS$OUTPUT _NLA0:
1133 $ on error then continue
1134 $ on warning then continue
1136 $ teststatus = f$extract(9,1,$status)
1137 $ DEASSIGN SYS$OUTPUT
1138 $ DEASSIGN SYS$ERROR
1139 $ if (teststatus.nes."1")
1141 $! Okay, off64_t failed. Must not exist
1142 $ perl_d_off64_t = "undef"
1144 $ perl_d_off64_t="define"
1146 $ WRITE_RESULT "d_off64_t is ''perl_d_off64_t'"
1148 $! Check to see if fpos64_t exists
1152 $ WS "#include <stdlib.h>
1154 $ WS "#include <stdio.h>
1155 $ WS "#include <types.h>
1156 $ WS "#''perl_i_inttypes IIH
1158 $ WS "#include <inttypes.h>
1160 $ WS "#include <unistd.h>
1167 $ DEFINE SYS$ERROR _NLA0:
1168 $ DEFINE SYS$OUTPUT _NLA0:
1169 $ on error then continue
1170 $ on warning then continue
1172 $ teststatus = f$extract(9,1,$status)
1173 $ DEASSIGN SYS$OUTPUT
1174 $ DEASSIGN SYS$ERROR
1175 $ if (teststatus.nes."1")
1177 $! Okay, fpos64_t failed. Must not exist
1178 $ perl_d_fpos64_t = "undef"
1180 $ perl_d_fpos64_t="define"
1182 $ WRITE_RESULT "d_fpos64_t is ''perl_d_fpos64_t'"
1184 $! Check to see if gethostname exists
1186 $ IF (Has_Dec_C_Sockets .OR. Has_Socketshr)
1190 $ WS "#include <stdlib.h>
1192 $ WS "#include <stdio.h>
1193 $ WS "#include <types.h>
1194 $ WS "#include <unistd.h>
1197 $ WS "#include <socketshr.h>"
1199 $ WS "#include <time.h>
1200 $ WS "#include <socket.h>
1204 $ WS "char name[100];
1207 $ WS "baz = gethostname(name, bar);
1211 $ DEFINE SYS$ERROR _NLA0:
1212 $ DEFINE SYS$OUTPUT _NLA0:
1213 $ on error then continue
1214 $ on warning then continue
1216 $ teststatus = f$extract(9,1,$status)
1217 $ DEASSIGN SYS$OUTPUT
1218 $ DEASSIGN SYS$ERROR
1219 $ if (teststatus.nes."1")
1221 $! Okay, compile failed. Must not have it
1222 $ perl_d_gethname = "undef"
1226 $ link temp.obj,temp.opt/opt
1230 $ savedstatus = $status
1231 $ teststatus = f$extract(9,1,savedstatus)
1232 $ if (teststatus.nes."1")
1234 $ perl_d_gethname="undef"
1236 $ perl_d_gethname="define"
1240 $ ! No sockets, so no gethname
1241 $ perl_d_gethname = "undef"
1243 $ WRITE_RESULT "d_gethname is ''perl_d_gethname'"
1245 $! Check for sys/file.h
1249 $ WS "#include <stdlib.h>
1251 $ WS "#include <stdio.h>
1252 $ WS "#include <unistd.h>
1253 $ WS "#include <sys/file.h>
1259 $ DEFINE SYS$ERROR _NLA0:
1260 $ DEFINE SYS$OUTPUT _NLA0:
1261 $ on error then continue
1262 $ on warning then continue
1264 $ savedstatus = $status
1265 $ teststatus = f$extract(9,1,savedstatus)
1266 $ if (teststatus.nes."1")
1268 $ perl_i_sysfile="undef"
1269 $ DEASSIGN SYS$OUTPUT
1270 $ DEASSIGN SYS$ERROR
1274 $ link temp.obj,temp.opt/opt
1278 $ savedstatus = $status
1279 $ teststatus = f$extract(9,1,savedstatus)
1280 $ DEASSIGN SYS$OUTPUT
1281 $ DEASSIGN SYS$ERROR
1282 $ if (teststatus.nes."1")
1284 $ perl_i_sysfile="undef"
1286 $ perl_i_sysfile="define"
1289 $ WRITE_RESULT "i_sysfile is ''perl_i_sysfile'"
1291 $! Check for sys/utsname.h
1295 $ WS "#include <stdlib.h>
1297 $ WS "#include <stdio.h>
1298 $ WS "#include <unistd.h>
1299 $ WS "#include <sys/utsname.h>
1305 $ DEFINE SYS$ERROR _NLA0:
1306 $ DEFINE SYS$OUTPUT _NLA0:
1307 $ on error then continue
1308 $ on warning then continue
1310 $ savedstatus = $status
1311 $ teststatus = f$extract(9,1,savedstatus)
1312 $ if (teststatus.nes."1")
1314 $ perl_i_sysutsname="undef"
1315 $ DEASSIGN SYS$OUTPUT
1316 $ DEASSIGN SYS$ERROR
1320 $ link temp.obj,temp.opt/opt
1324 $ savedstatus = $status
1325 $ teststatus = f$extract(9,1,savedstatus)
1326 $ DEASSIGN SYS$OUTPUT
1327 $ DEASSIGN SYS$ERROR
1328 $ if (teststatus.nes."1")
1330 $ perl_i_sysutsname="undef"
1332 $ perl_i_sysutsname="define"
1335 $ WRITE_RESULT "i_sysutsname is ''perl_i_sysutsname'"
1337 $! Check for syslog.h
1341 $ WS "#include <stdlib.h>
1343 $ WS "#include <stdio.h>
1344 $ WS "#include <unistd.h>
1345 $ WS "#include <syslog.h>
1351 $ DEFINE SYS$ERROR _NLA0:
1352 $ DEFINE SYS$OUTPUT _NLA0:
1353 $ on error then continue
1354 $ on warning then continue
1356 $ savedstatus = $status
1357 $ teststatus = f$extract(9,1,savedstatus)
1358 $ if (teststatus.nes."1")
1360 $ perl_i_syslog="undef"
1361 $ DEASSIGN SYS$OUTPUT
1362 $ DEASSIGN SYS$ERROR
1366 $ link temp.obj,temp.opt/opt
1370 $ savedstatus = $status
1371 $ teststatus = f$extract(9,1,savedstatus)
1372 $ DEASSIGN SYS$OUTPUT
1373 $ DEASSIGN SYS$ERROR
1374 $ if (teststatus.nes."1")
1376 $ perl_i_syslog="undef"
1378 $ perl_i_syslog="define"
1381 $ WRITE_RESULT "i_syslog is ''perl_i_syslog'"
1387 $ WS "#include <stdlib.h>
1389 $ WS "#include <stdio.h>
1390 $ WS "#include <unistd.h>
1391 $ WS "#include <poll.h>
1397 $ DEFINE SYS$ERROR _NLA0:
1398 $ DEFINE SYS$OUTPUT _NLA0:
1399 $ on error then continue
1400 $ on warning then continue
1402 $ savedstatus = $status
1403 $ teststatus = f$extract(9,1,savedstatus)
1404 $ if (teststatus.nes."1")
1406 $ perl_i_poll="undef"
1407 $ DEASSIGN SYS$OUTPUT
1408 $ DEASSIGN SYS$ERROR
1412 $ link temp.obj,temp.opt/opt
1416 $ savedstatus = $status
1417 $ teststatus = f$extract(9,1,savedstatus)
1418 $ DEASSIGN SYS$OUTPUT
1419 $ DEASSIGN SYS$ERROR
1420 $ if (teststatus.nes."1")
1422 $ perl_i_poll="undef"
1424 $ perl_i_poll="define"
1427 $ WRITE_RESULT "i_poll is ''perl_i_poll'"
1429 $! Check for sys/uio.h
1433 $ WS "#include <stdlib.h>
1435 $ WS "#include <stdio.h>
1436 $ WS "#include <unistd.h>
1437 $ WS "#include <sys/uio.h>
1443 $ DEFINE SYS$ERROR _NLA0:
1444 $ DEFINE SYS$OUTPUT _NLA0:
1445 $ on error then continue
1446 $ on warning then continue
1448 $ savedstatus = $status
1449 $ teststatus = f$extract(9,1,savedstatus)
1450 $ if (teststatus.nes."1")
1452 $ perl_i_sysuio="undef"
1453 $ DEASSIGN SYS$OUTPUT
1454 $ DEASSIGN SYS$ERROR
1458 $ link temp.obj,temp.opt/opt
1462 $ savedstatus = $status
1463 $ teststatus = f$extract(9,1,savedstatus)
1464 $ DEASSIGN SYS$OUTPUT
1465 $ DEASSIGN SYS$ERROR
1466 $ if (teststatus.nes."1")
1468 $ perl_i_sysuio="undef"
1470 $ perl_i_sysuio="define"
1473 $ WRITE_RESULT "i_sysuio is ''perl_i_sysuio'"
1475 $! Check for sys/mode.h
1479 $ WS "#include <stdlib.h>
1481 $ WS "#include <stdio.h>
1482 $ WS "#include <unistd.h>
1483 $ WS "#include <sys/mode.h>
1489 $ DEFINE SYS$ERROR _NLA0:
1490 $ DEFINE SYS$OUTPUT _NLA0:
1491 $ on error then continue
1492 $ on warning then continue
1494 $ savedstatus = $status
1495 $ teststatus = f$extract(9,1,savedstatus)
1496 $ if (teststatus.nes."1")
1498 $ perl_i_sysmode="undef"
1499 $ DEASSIGN SYS$OUTPUT
1500 $ DEASSIGN SYS$ERROR
1502 $ If (Needs_Opt.eqs."Yes")
1504 $ link temp.obj,temp.opt/opt
1508 $ savedstatus = $status
1509 $ teststatus = f$extract(9,1,savedstatus)
1510 $ DEASSIGN SYS$OUTPUT
1511 $ DEASSIGN SYS$ERROR
1512 $ if (teststatus.nes."1")
1514 $ perl_i_sysmode="undef"
1516 $ perl_i_sysmode="define"
1519 $ WRITE_RESULT "i_sysmode is ''perl_i_sysmode'"
1521 $! Check for sys/access.h
1525 $ WS "#include <stdlib.h>
1527 $ WS "#include <stdio.h>
1528 $ WS "#include <unistd.h>
1529 $ WS "#include <sys/access.h>
1535 $ DEFINE SYS$ERROR _NLA0:
1536 $ DEFINE SYS$OUTPUT _NLA0:
1537 $ on error then continue
1538 $ on warning then continue
1540 $ savedstatus = $status
1541 $ teststatus = f$extract(9,1,savedstatus)
1542 $ if (teststatus.nes."1")
1544 $ perl_i_sysaccess="undef"
1545 $ DEASSIGN SYS$OUTPUT
1546 $ DEASSIGN SYS$ERROR
1548 $ If (Needs_Opt.eqs."Yes")
1550 $ link temp.obj,temp.opt/opt
1554 $ savedstatus = $status
1555 $ teststatus = f$extract(9,1,savedstatus)
1556 $ DEASSIGN SYS$OUTPUT
1557 $ DEASSIGN SYS$ERROR
1558 $ if (teststatus.nes."1")
1560 $ perl_i_sysaccess="undef"
1562 $ perl_i_sysaccess="define"
1565 $ WRITE_RESULT "i_sysaccess is ''perl_i_sysaccess'"
1567 $! Check for sys/security.h
1571 $ WS "#include <stdlib.h>
1573 $ WS "#include <stdio.h>
1574 $ WS "#include <unistd.h>
1575 $ WS "#include <sys/security.h>
1581 $ DEFINE SYS$ERROR _NLA0:
1582 $ DEFINE SYS$OUTPUT _NLA0:
1583 $ on error then continue
1584 $ on warning then continue
1586 $ savedstatus = $status
1587 $ teststatus = f$extract(9,1,savedstatus)
1588 $ if (teststatus.nes."1")
1590 $ perl_i_syssecrt="undef"
1591 $ DEASSIGN SYS$OUTPUT
1592 $ DEASSIGN SYS$ERROR
1594 $ If (Needs_Opt.eqs."Yes")
1596 $ link temp.obj,temp.opt/opt
1600 $ savedstatus = $status
1601 $ teststatus = f$extract(9,1,savedstatus)
1602 $ DEASSIGN SYS$OUTPUT
1603 $ DEASSIGN SYS$ERROR
1604 $ if (teststatus.nes."1")
1606 $ perl_i_syssecrt="undef"
1608 $ perl_i_syssecrt="define"
1611 $ WRITE_RESULT "i_syssecrt is ''perl_i_syssecrt'"
1613 $! Check for fcntl.h
1617 $ WS "#include <stdlib.h>
1619 $ WS "#include <stdio.h>
1620 $ WS "#include <unistd.h>
1621 $ WS "#include <fcntl.h>
1627 $ DEFINE SYS$ERROR _NLA0:
1628 $ DEFINE SYS$OUTPUT _NLA0:
1629 $ on error then continue
1630 $ on warning then continue
1632 $ savedstatus = $status
1633 $ teststatus = f$extract(9,1,savedstatus)
1634 $ if (teststatus.nes."1")
1636 $ perl_i_fcntl="undef"
1637 $ DEASSIGN SYS$OUTPUT
1638 $ DEASSIGN SYS$ERROR
1640 $ If (Needs_Opt.eqs."Yes")
1642 $ link temp.obj,temp.opt/opt
1646 $ savedstatus = $status
1647 $ teststatus = f$extract(9,1,savedstatus)
1648 $ DEASSIGN SYS$OUTPUT
1649 $ DEASSIGN SYS$ERROR
1650 $ if (teststatus.nes."1")
1652 $ perl_i_fcntl="undef"
1654 $ perl_i_fcntl="define"
1657 $ WRITE_RESULT "i_fcntl is ''perl_i_fcntl'"
1663 $ WS "#include <stdlib.h>
1665 $ WS "#include <stdio.h>
1666 $ WS "#include <unistd.h>
1667 $ WS "#include <fcntl.h>
1674 $ DEFINE SYS$ERROR _NLA0:
1675 $ DEFINE SYS$OUTPUT _NLA0:
1676 $ on error then continue
1677 $ on warning then continue
1679 $ savedstatus = $status
1680 $ teststatus = f$extract(9,1,savedstatus)
1681 $ if (teststatus.nes."1")
1683 $ perl_d_fcntl="undef"
1684 $ DEASSIGN SYS$OUTPUT
1685 $ DEASSIGN SYS$ERROR
1687 $ If (Needs_Opt.eqs."Yes")
1689 $ link temp.obj,temp.opt/opt
1693 $ savedstatus = $status
1694 $ teststatus = f$extract(9,1,savedstatus)
1695 $ DEASSIGN SYS$OUTPUT
1696 $ DEASSIGN SYS$ERROR
1697 $ if (teststatus.nes."1")
1699 $ perl_d_fcntl="undef"
1701 $ perl_d_fcntl="define"
1704 $ WRITE_RESULT "d_fcntl is ''perl_d_fcntl'"
1710 $ WS "#include <stdlib.h>
1712 $ WS "#include <string.h>
1716 $ WS "place = memchr(""foo"", 47, 3)
1720 $ DEFINE SYS$ERROR _NLA0:
1721 $ DEFINE SYS$OUTPUT _NLA0:
1722 $ on error then continue
1723 $ on warning then continue
1725 $ savedstatus = $status
1726 $ teststatus = f$extract(9,1,savedstatus)
1727 $ if (teststatus.nes."1")
1729 $ perl_d_memchr="undef"
1730 $ DEASSIGN SYS$OUTPUT
1731 $ DEASSIGN SYS$ERROR
1733 $ If (Needs_Opt.eqs."Yes")
1735 $ link temp.obj,temp.opt/opt
1739 $ savedstatus = $status
1740 $ teststatus = f$extract(9,1,savedstatus)
1741 $ DEASSIGN SYS$OUTPUT
1742 $ DEASSIGN SYS$ERROR
1743 $ if (teststatus.nes."1")
1745 $ perl_d_memchr="undef"
1747 $ perl_d_memchr="define"
1750 $ WRITE_RESULT "d_memchr is ''perl_d_memchr'"
1752 $! Check for strtoull
1756 $ WS "#include <stdlib.h>
1758 $ WS "#include <string.h>
1761 $ WS "unsigned __int64 result;
1762 $ WS "result = strtoull(""123123"", NULL, 10);
1766 $ DEFINE SYS$ERROR _NLA0:
1767 $ DEFINE SYS$OUTPUT _NLA0:
1768 $ on error then continue
1769 $ on warning then continue
1771 $ savedstatus = $status
1772 $ teststatus = f$extract(9,1,savedstatus)
1773 $ if (teststatus.nes."1")
1775 $ perl_d_strtoull="undef"
1776 $ DEASSIGN SYS$OUTPUT
1777 $ DEASSIGN SYS$ERROR
1779 $ If (Needs_Opt.eqs."Yes")
1781 $ link temp.obj,temp.opt/opt
1785 $ savedstatus = $status
1786 $ teststatus = f$extract(9,1,savedstatus)
1787 $ DEASSIGN SYS$OUTPUT
1788 $ DEASSIGN SYS$ERROR
1789 $ if (teststatus.nes."1")
1791 $ perl_d_strtoull="undef"
1793 $ perl_d_strtoull="define"
1796 $ WRITE_RESULT "d_strtoull is ''perl_d_strtoull'"
1798 $! Check for strtouq
1802 $ WS "#include <stdlib.h>
1804 $ WS "#include <string.h>
1807 $ WS "unsigned __int64 result;
1808 $ WS "result = strtouq(""123123"", NULL, 10);
1812 $ DEFINE SYS$ERROR _NLA0:
1813 $ DEFINE SYS$OUTPUT _NLA0:
1814 $ on error then continue
1815 $ on warning then continue
1817 $ savedstatus = $status
1818 $ teststatus = f$extract(9,1,savedstatus)
1819 $ if (teststatus.nes."1")
1821 $ perl_d_strtouq="undef"
1822 $ DEASSIGN SYS$OUTPUT
1823 $ DEASSIGN SYS$ERROR
1825 $ If (Needs_Opt.eqs."Yes")
1827 $ link temp.obj,temp.opt/opt
1831 $ savedstatus = $status
1832 $ teststatus = f$extract(9,1,savedstatus)
1833 $ DEASSIGN SYS$OUTPUT
1834 $ DEASSIGN SYS$ERROR
1835 $ if (teststatus.nes."1")
1837 $ perl_d_strtouq="undef"
1839 $ perl_d_strtouq="define"
1842 $ WRITE_RESULT "d_strtouq is ''perl_d_strtouq'"
1844 $! Check for strtoll
1848 $ WS "#include <stdlib.h>
1850 $ WS "#include <string.h>
1853 $ WS "__int64 result;
1854 $ WS "result = strtoll(""123123"", NULL, 10);
1858 $ DEFINE SYS$ERROR _NLA0:
1859 $ DEFINE SYS$OUTPUT _NLA0:
1860 $ on error then continue
1861 $ on warning then continue
1863 $ savedstatus = $status
1864 $ teststatus = f$extract(9,1,savedstatus)
1865 $ if (teststatus.nes."1")
1867 $ perl_d_strtoll="undef"
1868 $ DEASSIGN SYS$OUTPUT
1869 $ DEASSIGN SYS$ERROR
1871 $ If (Needs_Opt.eqs."Yes")
1873 $ link temp.obj,temp.opt/opt
1877 $ savedstatus = $status
1878 $ teststatus = f$extract(9,1,savedstatus)
1879 $ DEASSIGN SYS$OUTPUT
1880 $ DEASSIGN SYS$ERROR
1881 $ if (teststatus.nes."1")
1883 $ perl_d_strtoll="undef"
1885 $ perl_d_strtoll="define"
1888 $ WRITE_RESULT "d_strtoll is ''perl_d_strtoll'"
1890 $! Check for strtold
1894 $ WS "#include <stdlib.h>
1896 $ WS "#include <string.h>
1899 $ WS "long double result;
1900 $ WS "result = strtold(""123123"", NULL, 10);
1904 $ DEFINE SYS$ERROR _NLA0:
1905 $ DEFINE SYS$OUTPUT _NLA0:
1906 $ on error then continue
1907 $ on warning then continue
1909 $ savedstatus = $status
1910 $ teststatus = f$extract(9,1,savedstatus)
1911 $ if (teststatus.nes."1")
1913 $ perl_d_strtold="undef"
1914 $ DEASSIGN SYS$OUTPUT
1915 $ DEASSIGN SYS$ERROR
1917 $ If (Needs_Opt.eqs."Yes")
1919 $ link temp.obj,temp.opt/opt
1923 $ savedstatus = $status
1924 $ teststatus = f$extract(9,1,savedstatus)
1925 $ DEASSIGN SYS$OUTPUT
1926 $ DEASSIGN SYS$ERROR
1927 $ if (teststatus.nes."1")
1929 $ perl_d_strtold="undef"
1931 $ perl_d_strtold="define"
1934 $ WRITE_RESULT "d_strtold is ''perl_d_strtold'"
1940 $ WS "#include <stdlib.h>
1942 $ WS "#include <string.h>
1945 $ WS " __int64 result;
1946 $ WS "result = atoll(""123123"");
1950 $ DEFINE SYS$ERROR _NLA0:
1951 $ DEFINE SYS$OUTPUT _NLA0:
1952 $ on error then continue
1953 $ on warning then continue
1955 $ savedstatus = $status
1956 $ teststatus = f$extract(9,1,savedstatus)
1957 $ if (teststatus.nes."1")
1959 $ perl_d_atoll="undef"
1960 $ DEASSIGN SYS$OUTPUT
1961 $ DEASSIGN SYS$ERROR
1963 $ If (Needs_Opt.eqs."Yes")
1965 $ link temp.obj,temp.opt/opt
1969 $ savedstatus = $status
1970 $ teststatus = f$extract(9,1,savedstatus)
1971 $ DEASSIGN SYS$OUTPUT
1972 $ DEASSIGN SYS$ERROR
1973 $ if (teststatus.nes."1")
1975 $ perl_d_atoll="undef"
1977 $ perl_d_atoll="define"
1980 $ WRITE_RESULT "d_atoll is ''perl_d_atoll'"
1986 $ WS "#include <stdlib.h>
1988 $ WS "#include <string.h>
1992 $ WS "result = atolf(""123123"");
1996 $ DEFINE SYS$ERROR _NLA0:
1997 $ DEFINE SYS$OUTPUT _NLA0:
1998 $ on error then continue
1999 $ on warning then continue
2001 $ savedstatus = $status
2002 $ teststatus = f$extract(9,1,savedstatus)
2003 $ if (teststatus.nes."1")
2005 $ perl_d_atolf="undef"
2006 $ DEASSIGN SYS$OUTPUT
2007 $ DEASSIGN SYS$ERROR
2009 $ If (Needs_Opt.eqs."Yes")
2011 $ link temp.obj,temp.opt/opt
2015 $ savedstatus = $status
2016 $ teststatus = f$extract(9,1,savedstatus)
2017 $ DEASSIGN SYS$OUTPUT
2018 $ DEASSIGN SYS$ERROR
2019 $ if (teststatus.nes."1")
2021 $ perl_d_atolf="undef"
2023 $ perl_d_atolf="define"
2026 $ WRITE_RESULT "d_atolf is ''perl_d_atolf'"
2032 $ WS "#include <stdlib.h>
2034 $ WS "#include <stdio.h>
2035 $ WS "#include <unistd.h>
2038 $ WS "access("foo", F_OK);
2042 $ DEFINE SYS$ERROR _NLA0:
2043 $ DEFINE SYS$OUTPUT _NLA0:
2044 $ on error then continue
2045 $ on warning then continue
2047 $ savedstatus = $status
2048 $ teststatus = f$extract(9,1,savedstatus)
2049 $ if (teststatus.nes."1")
2051 $ perl_d_access="undef"
2052 $ DEASSIGN SYS$OUTPUT
2053 $ DEASSIGN SYS$ERROR
2055 $ If (Needs_Opt.eqs."Yes")
2057 $ link temp.obj,temp.opt/opt
2061 $ savedstatus = $status
2062 $ teststatus = f$extract(9,1,savedstatus)
2063 $ DEASSIGN SYS$OUTPUT
2064 $ DEASSIGN SYS$ERROR
2065 $ if (teststatus.nes."1")
2067 $ perl_d_access="undef"
2069 $ perl_d_access="define"
2072 $ WRITE_RESULT "d_access is ''perl_d_access'"
2078 $ WS "#include <stdlib.h>
2080 $ WS "#include <stdio.h>
2081 $ WS "#include <strings.h>
2085 $ WS "bzero(foo, 10);
2089 $ DEFINE SYS$ERROR _NLA0:
2090 $ DEFINE SYS$OUTPUT _NLA0:
2091 $ on error then continue
2092 $ on warning then continue
2094 $ savedstatus = $status
2095 $ teststatus = f$extract(9,1,savedstatus)
2096 $ if (teststatus.nes."1")
2098 $ perl_d_bzero="undef"
2099 $ DEASSIGN SYS$OUTPUT
2100 $ DEASSIGN SYS$ERROR
2102 $ If (Needs_Opt.eqs."Yes")
2104 $ link temp.obj,temp.opt/opt
2108 $ savedstatus = $status
2109 $ teststatus = f$extract(9,1,savedstatus)
2110 $ DEASSIGN SYS$OUTPUT
2111 $ DEASSIGN SYS$ERROR
2112 $ if (teststatus.nes."1")
2114 $ perl_d_bzero="undef"
2116 $ perl_d_bzero="define"
2119 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
2125 $ WS "#include <stdlib.h>
2127 $ WS "#include <stdio.h>
2128 $ WS "#include <strings.h>
2131 $ WS "char foo[10], bar[10];
2132 $ WS "bcopy(""foo"", bar, 3);
2136 $ DEFINE SYS$ERROR _NLA0:
2137 $ DEFINE SYS$OUTPUT _NLA0:
2138 $ on error then continue
2139 $ on warning then continue
2141 $ savedstatus = $status
2142 $ teststatus = f$extract(9,1,savedstatus)
2143 $ if (teststatus.nes."1")
2145 $ perl_d_bcopy="undef"
2146 $ DEASSIGN SYS$OUTPUT
2147 $ DEASSIGN SYS$ERROR
2149 $ If (Needs_Opt.eqs."Yes")
2151 $ link temp.obj,temp.opt/opt
2155 $ savedstatus = $status
2156 $ teststatus = f$extract(9,1,savedstatus)
2157 $ DEASSIGN SYS$OUTPUT
2158 $ DEASSIGN SYS$ERROR
2159 $ if (teststatus.nes."1")
2161 $ perl_d_bcopy="undef"
2163 $ perl_d_bcopy="define"
2166 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
2168 $! Check for mkstemp
2172 $ WS "#include <stdlib.h>
2174 $ WS "#include <stdio.h>
2177 $ WS "mkstemp(""foo"");
2181 $ DEFINE SYS$ERROR _NLA0:
2182 $ DEFINE SYS$OUTPUT _NLA0:
2183 $ on error then continue
2184 $ on warning then continue
2186 $ If (Needs_Opt.eqs."Yes")
2188 $ link temp.obj,temp.opt/opt
2192 $ savedstatus = $status
2193 $ teststatus = f$extract(9,1,savedstatus)
2194 $ DEASSIGN SYS$OUTPUT
2195 $ DEASSIGN SYS$ERROR
2196 $ if (teststatus.nes."1")
2198 $ perl_d_mkstemp="undef"
2200 $ perl_d_mkstemp="define"
2202 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
2204 $! Check for mkstemps
2208 $ WS "#include <stdlib.h>
2210 $ WS "#include <stdio.h>
2213 $ WS "mkstemps(""foo"", 1);
2217 $ DEFINE SYS$ERROR _NLA0:
2218 $ DEFINE SYS$OUTPUT _NLA0:
2219 $ on error then continue
2220 $ on warning then continue
2222 $ If (Needs_Opt.eqs."Yes")
2224 $ link temp.obj,temp.opt/opt
2228 $ savedstatus = $status
2229 $ teststatus = f$extract(9,1,savedstatus)
2230 $ DEASSIGN SYS$OUTPUT
2231 $ DEASSIGN SYS$ERROR
2232 $ if (teststatus.nes."1")
2234 $ perl_d_mkstemps="undef"
2236 $ perl_d_mkstemps="define"
2238 $ WRITE_RESULT "d_mkstemps is ''perl_d_mkstemps'"
2244 $ WS "#include <stdlib.h>
2246 $ WS "#include <stdio.h>
2247 $ WS "#include <iconv.h>
2250 $ WS " iconv_t cd = (iconv_t)0;"
2251 $ WS " char *inbuf, *outbuf;"
2252 $ WS " size_t inleft, outleft;"
2253 $ WS " iconv(cd, &inbuf, &inleft, &outbuf, &outleft);"
2257 $ DEFINE SYS$ERROR _NLA0:
2258 $ DEFINE SYS$OUTPUT _NLA0:
2259 $ on error then continue
2260 $ on warning then continue
2262 $ savedstatus = $status
2263 $ teststatus = f$extract(9,1,savedstatus)
2264 $ if (teststatus.nes."1")
2266 $ perl_d_iconv="undef"
2267 $ perl_i_iconv="undef"
2268 $ DEASSIGN SYS$OUTPUT
2269 $ DEASSIGN SYS$ERROR
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_iconv="undef"
2284 $ perl_i_iconv="undef"
2286 $ perl_d_iconv="define"
2287 $ perl_i_iconv="define"
2290 $ WRITE_RESULT "d_iconv is ''perl_d_iconv'"
2291 $ WRITE_RESULT "i_iconv is ''perl_i_iconv'"
2293 $! Check for mkdtemp
2297 $ WS "#include <stdlib.h>
2299 $ WS "#include <stdio.h>
2302 $ WS "mkdtemp(""foo"");
2306 $ DEFINE SYS$ERROR _NLA0:
2307 $ DEFINE SYS$OUTPUT _NLA0:
2308 $ on error then continue
2309 $ on warning then continue
2311 $ If (Needs_Opt.eqs."Yes")
2313 $ link temp.obj,temp.opt/opt
2317 $ savedstatus = $status
2318 $ teststatus = f$extract(9,1,savedstatus)
2319 $ DEASSIGN SYS$OUTPUT
2320 $ DEASSIGN SYS$ERROR
2321 $ if (teststatus.nes."1")
2323 $ perl_d_mkdtemp="undef"
2325 $ perl_d_mkdtemp="define"
2327 $ WRITE_RESULT "d_mkdtemp is ''perl_d_mkdtemp'"
2329 $! Check for setvbuf
2333 $ WS "#include <stdlib.h>
2335 $ WS "#include <stdio.h>
2339 $ WS "char Buffer[99];
2340 $ WS "foo = fopen(""foo"", ""r"");
2341 $ WS "setvbuf(foo, Buffer, 0, 0);
2345 $ DEFINE SYS$ERROR _NLA0:
2346 $ DEFINE SYS$OUTPUT _NLA0:
2347 $ on error then continue
2348 $ on warning then continue
2350 $ If (Needs_Opt.eqs."Yes")
2352 $ link temp.obj,temp.opt/opt
2356 $ teststatus = f$extract(9,1,$status)
2357 $ DEASSIGN SYS$OUTPUT
2358 $ DEASSIGN SYS$ERROR
2359 $ if (teststatus.nes."1")
2361 $ perl_d_setvbuf="undef"
2363 $ perl_d_setvbuf="define"
2365 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
2371 $ WS "#include <stdlib.h>
2373 $ WS "#include <stdio.h>
2376 $ WS "setenv(""FOO"", ""BAR"", 0);
2380 $ DEFINE SYS$ERROR _NLA0:
2381 $ DEFINE SYS$OUTPUT _NLA0:
2382 $ on error then continue
2383 $ on warning then continue
2385 $ If (Needs_Opt.eqs."Yes")
2387 $ link temp,temp/opt
2391 $ teststatus = f$extract(9,1,$status)
2392 $ DEASSIGN SYS$OUTPUT
2393 $ DEASSIGN SYS$ERROR
2394 $ if (teststatus.nes."1")
2396 $ perl_d_setenv="undef"
2398 $ perl_d_setenv="define"
2400 $ WRITE_RESULT "d_setenv is ''perl_d_setenv'"
2402 $! Check for <netinet/in.h>
2404 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2408 $ WS "#include <stdlib.h>
2410 $ WS "#include <stdio.h>
2411 $ if ("''Has_Socketshr'".eqs."T")
2413 $ WS "#include <socketshr.h>"
2415 $ WS "#include <netdb.h>
2417 $ WS "#include <netinet/in.h>"
2423 $ DEFINE SYS$ERROR _NLA0:
2424 $ DEFINE SYS$OUTPUT _NLA0:
2425 $ on error then continue
2426 $ on warning then continue
2428 $ If (Needs_Opt.eqs."Yes")
2430 $ link temp.obj,temp.opt/opt
2434 $ teststatus = f$extract(9,1,$status)
2435 $ DEASSIGN SYS$OUTPUT
2436 $ DEASSIGN SYS$ERROR
2437 $ if (teststatus.nes."1")
2439 $ perl_i_niin="undef"
2441 $ perl_i_niin="define"
2444 $ perl_i_niin="undef"
2446 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
2448 $! Check for <netinet/tcp.h>
2450 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2454 $ WS "#include <stdlib.h>
2456 $ WS "#include <stdio.h>
2457 $ if ("''Has_Socketshr'".eqs."T")
2459 $ WS "#include <socketshr.h>"
2461 $ WS "#include <netdb.h>
2463 $ WS "#include <netinet/tcp.h>"
2469 $ DEFINE SYS$ERROR _NLA0:
2470 $ DEFINE SYS$OUTPUT _NLA0:
2471 $ on error then continue
2472 $ on warning then continue
2474 $ If (Needs_Opt.eqs."Yes")
2476 $ link temp.obj,temp.opt/opt
2480 $ teststatus = f$extract(9,1,$status)
2481 $ DEASSIGN SYS$OUTPUT
2482 $ DEASSIGN SYS$ERROR
2483 $ if (teststatus.nes."1")
2485 $ perl_i_netinettcp="undef"
2487 $ perl_i_netinettcp="define"
2490 $ perl_i_netinettcp="undef"
2492 $ WRITE_RESULT "i_netinettcp is ''perl_i_netinettcp'"
2494 $! Check for endhostent
2496 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2500 $ WS "#include <stdlib.h>
2502 $ WS "#include <stdio.h>
2503 $ if ("''Has_Socketshr'".eqs."T")
2505 $ WS "#include <socketshr.h>"
2507 $ WS "#include <netdb.h>
2515 $ DEFINE SYS$ERROR _NLA0:
2516 $ DEFINE SYS$OUTPUT _NLA0:
2517 $ on error then continue
2518 $ on warning then continue
2520 $ If (Needs_Opt.eqs."Yes")
2522 $ link temp.obj,temp.opt/opt
2526 $ teststatus = f$extract(9,1,$status)
2527 $ DEASSIGN SYS$OUTPUT
2528 $ DEASSIGN SYS$ERROR
2529 $ if (teststatus.nes."1")
2531 $ perl_d_endhent="undef"
2533 $ perl_d_endhent="define"
2536 $ perl_d_endhent="undef"
2538 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
2540 $! Check for endnetent
2542 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2546 $ WS "#include <stdlib.h>
2548 $ WS "#include <stdio.h>
2549 $ if ("''Has_Socketshr'".eqs."T")
2551 $ WS "#include <socketshr.h>"
2553 $ WS "#include <netdb.h>
2561 $ DEFINE SYS$ERROR _NLA0:
2562 $ DEFINE SYS$OUTPUT _NLA0:
2563 $ on error then continue
2564 $ on warning then continue
2566 $ If (Needs_Opt.eqs."Yes")
2568 $ link temp.obj,temp.opt/opt
2572 $ teststatus = f$extract(9,1,$status)
2573 $ DEASSIGN SYS$OUTPUT
2574 $ DEASSIGN SYS$ERROR
2575 $ if (teststatus.nes."1")
2577 $ perl_d_endnent="undef"
2579 $ perl_d_endnent="define"
2582 $ perl_d_endnent="undef"
2584 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
2586 $! Check for endprotoent
2588 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2592 $ WS "#include <stdlib.h>
2594 $ WS "#include <stdio.h>
2595 $ if ("''Has_Socketshr'".eqs."T")
2597 $ WS "#include <socketshr.h>"
2599 $ WS "#include <netdb.h>
2603 $ WS "endprotoent();
2607 $ DEFINE SYS$ERROR _NLA0:
2608 $ DEFINE SYS$OUTPUT _NLA0:
2609 $ on error then continue
2610 $ on warning then continue
2612 $ If (Needs_Opt.eqs."Yes")
2614 $ link temp.obj,temp.opt/opt
2618 $ teststatus = f$extract(9,1,$status)
2619 $ DEASSIGN SYS$OUTPUT
2620 $ DEASSIGN SYS$ERROR
2621 $ if (teststatus.nes."1")
2623 $ perl_d_endpent="undef"
2625 $ perl_d_endpent="define"
2628 $ perl_d_endpent="undef"
2630 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
2632 $! Check for endservent
2634 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2638 $ WS "#include <stdlib.h>
2640 $ WS "#include <stdio.h>
2641 $ if ("''Has_Socketshr'".eqs."T")
2643 $ WS "#include <socketshr.h>"
2645 $ WS "#include <netdb.h>
2653 $ DEFINE SYS$ERROR _NLA0:
2654 $ DEFINE SYS$OUTPUT _NLA0:
2655 $ on error then continue
2656 $ on warning then continue
2658 $ If (Needs_Opt.eqs."Yes")
2660 $ link temp.obj,temp.opt/opt
2664 $ teststatus = f$extract(9,1,$status)
2665 $ DEASSIGN SYS$OUTPUT
2666 $ DEASSIGN SYS$ERROR
2667 $ if (teststatus.nes."1")
2669 $ perl_d_endsent="undef"
2671 $ perl_d_endsent="define"
2674 $ perl_d_endsent="undef"
2676 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
2678 $! Check for sethostent
2680 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2684 $ WS "#include <stdlib.h>
2686 $ WS "#include <stdio.h>
2687 $ if ("''Has_Socketshr'".eqs."T")
2689 $ WS "#include <socketshr.h>"
2691 $ WS "#include <netdb.h>
2695 $ WS "sethostent(1);
2699 $ DEFINE SYS$ERROR _NLA0:
2700 $ DEFINE SYS$OUTPUT _NLA0:
2701 $ on error then continue
2702 $ on warning then continue
2704 $ If (Needs_Opt.eqs."Yes")
2706 $ link temp.obj,temp.opt/opt
2710 $ teststatus = f$extract(9,1,$status)
2711 $ DEASSIGN SYS$OUTPUT
2712 $ DEASSIGN SYS$ERROR
2713 $ if (teststatus.nes."1")
2715 $ perl_d_sethent="undef"
2717 $ perl_d_sethent="define"
2720 $ perl_d_sethent="undef"
2722 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
2724 $! Check for setnetent
2726 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2730 $ WS "#include <stdlib.h>
2732 $ WS "#include <stdio.h>
2733 $ if ("''Has_Socketshr'".eqs."T")
2735 $ WS "#include <socketshr.h>"
2737 $ WS "#include <netdb.h>
2745 $ DEFINE SYS$ERROR _NLA0:
2746 $ DEFINE SYS$OUTPUT _NLA0:
2747 $ on error then continue
2748 $ on warning then continue
2750 $ If (Needs_Opt.eqs."Yes")
2752 $ link temp.obj,temp.opt/opt
2756 $ teststatus = f$extract(9,1,$status)
2757 $ DEASSIGN SYS$OUTPUT
2758 $ DEASSIGN SYS$ERROR
2759 $ if (teststatus.nes."1")
2761 $ perl_d_setnent="undef"
2763 $ perl_d_setnent="define"
2766 $ perl_d_setnent="undef"
2768 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
2770 $! Check for setprotoent
2772 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2776 $ WS "#include <stdlib.h>
2778 $ WS "#include <stdio.h>
2779 $ if ("''Has_Socketshr'".eqs."T")
2781 $ WS "#include <socketshr.h>"
2783 $ WS "#include <netdb.h>
2787 $ WS "setprotoent(1);
2791 $ DEFINE SYS$ERROR _NLA0:
2792 $ DEFINE SYS$OUTPUT _NLA0:
2793 $ on error then continue
2794 $ on warning then continue
2796 $ If (Needs_Opt.eqs."Yes")
2798 $ link temp.obj,temp.opt/opt
2802 $ teststatus = f$extract(9,1,$status)
2803 $ DEASSIGN SYS$OUTPUT
2804 $ DEASSIGN SYS$ERROR
2805 $ if (teststatus.nes."1")
2807 $ perl_d_setpent="undef"
2809 $ perl_d_setpent="define"
2812 $ perl_d_setpent="undef"
2814 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
2816 $! Check for setservent
2818 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2822 $ WS "#include <stdlib.h>
2824 $ WS "#include <stdio.h>
2825 $ if ("''Has_Socketshr'".eqs."T")
2827 $ WS "#include <socketshr.h>"
2829 $ WS "#include <netdb.h>
2833 $ WS "setservent(1);
2837 $ DEFINE SYS$ERROR _NLA0:
2838 $ DEFINE SYS$OUTPUT _NLA0:
2839 $ on error then continue
2840 $ on warning then continue
2842 $ If (Needs_Opt.eqs."Yes")
2844 $ link temp.obj,temp.opt/opt
2848 $ teststatus = f$extract(9,1,$status)
2849 $ DEASSIGN SYS$OUTPUT
2850 $ DEASSIGN SYS$ERROR
2851 $ if (teststatus.nes."1")
2853 $ perl_d_setsent="undef"
2855 $ perl_d_setsent="define"
2858 $ perl_d_setsent="undef"
2860 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
2862 $! Check for gethostent
2864 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2868 $ WS "#include <stdlib.h>
2870 $ WS "#include <stdio.h>
2871 $ if ("''Has_Socketshr'".eqs."T")
2873 $ WS "#include <socketshr.h>"
2875 $ WS "#include <netdb.h>
2883 $ DEFINE SYS$ERROR _NLA0:
2884 $ DEFINE SYS$OUTPUT _NLA0:
2885 $ on error then continue
2886 $ on warning then continue
2888 $ If (Needs_Opt.eqs."Yes")
2890 $ link temp.obj,temp.opt/opt
2894 $ teststatus = f$extract(9,1,$status)
2895 $ DEASSIGN SYS$OUTPUT
2896 $ DEASSIGN SYS$ERROR
2897 $ if (teststatus.nes."1")
2899 $ perl_d_gethent="undef"
2901 $ perl_d_gethent="define"
2904 $ perl_d_gethent="undef"
2906 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
2908 $! Check for getnetent
2910 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2914 $ WS "#include <stdlib.h>
2916 $ WS "#include <stdio.h>
2917 $ if ("''Has_Socketshr'".eqs."T")
2919 $ WS "#include <socketshr.h>"
2921 $ WS "#include <netdb.h>
2929 $ DEFINE SYS$ERROR _NLA0:
2930 $ DEFINE SYS$OUTPUT _NLA0:
2931 $ on error then continue
2932 $ on warning then continue
2934 $ If (Needs_Opt.eqs."Yes")
2936 $ link temp.obj,temp.opt/opt
2940 $ teststatus = f$extract(9,1,$status)
2941 $ DEASSIGN SYS$OUTPUT
2942 $ DEASSIGN SYS$ERROR
2943 $ if (teststatus.nes."1")
2945 $ perl_d_getnent="undef"
2947 $ perl_d_getnent="define"
2950 $ perl_d_getnent="undef"
2952 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
2954 $! Check for getprotoent
2956 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2960 $ WS "#include <stdlib.h>
2962 $ WS "#include <stdio.h>
2963 $ if ("''Has_Socketshr'".eqs."T")
2965 $ WS "#include <socketshr.h>"
2967 $ WS "#include <netdb.h>
2971 $ WS "getprotoent();
2975 $ DEFINE SYS$ERROR _NLA0:
2976 $ DEFINE SYS$OUTPUT _NLA0:
2977 $ on error then continue
2978 $ on warning then continue
2980 $ If (Needs_Opt.eqs."Yes")
2982 $ link temp.obj,temp.opt/opt
2986 $ teststatus = f$extract(9,1,$status)
2987 $ DEASSIGN SYS$OUTPUT
2988 $ DEASSIGN SYS$ERROR
2989 $ if (teststatus.nes."1")
2991 $ perl_d_getpent="undef"
2993 $ perl_d_getpent="define"
2996 $ perl_d_getpent="undef"
2998 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
3000 $! Check for getservent
3002 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
3006 $ WS "#include <stdlib.h>
3008 $ WS "#include <stdio.h>
3009 $ if ("''Has_Socketshr'".eqs."T")
3011 $ WS "#include <socketshr.h>"
3013 $ WS "#include <netdb.h>
3021 $ DEFINE SYS$ERROR _NLA0:
3022 $ DEFINE SYS$OUTPUT _NLA0:
3023 $ on error then continue
3024 $ on warning then continue
3026 $ If (Needs_Opt.eqs."Yes")
3028 $ link temp.obj,temp.opt/opt
3032 $ teststatus = f$extract(9,1,$status)
3033 $ DEASSIGN SYS$OUTPUT
3034 $ DEASSIGN SYS$ERROR
3035 $ if (teststatus.nes."1")
3037 $ perl_d_getsent="undef"
3039 $ perl_d_getsent="define"
3042 $ perl_d_getsent="undef"
3044 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
3046 $! Check for socklen_t
3048 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
3052 $ WS "#include <stdlib.h>
3054 $ WS "#include <stdio.h>
3055 $ IF ("''Has_Socketshr'".eqs."T")
3057 $ WS "#include <socketshr.h>"
3059 $ WS "#include <netdb.h>
3063 $ WS "socklen_t x = 16;
3067 $ DEFINE SYS$ERROR _NLA0:
3068 $ DEFINE SYS$OUTPUT _NLA0:
3069 $ on error then continue
3070 $ on warning then continue
3072 $ If (Needs_Opt.eqs."Yes")
3074 $ link temp.obj,temp.opt/opt
3078 $ teststatus = f$extract(9,1,$status)
3079 $ DEASSIGN SYS$OUTPUT
3080 $ DEASSIGN SYS$ERROR
3081 $ if (teststatus.nes."1")
3083 $ perl_d_socklen_t="undef"
3085 $ perl_d_socklen_t="define"
3088 $ perl_d_socklen_t="undef"
3090 $ WRITE_RESULT "d_socklen_t is ''perl_d_socklen_t'"
3092 $! Check for pthread_yield
3094 $ if ("''use_threads'".eqs."T")
3098 $ WS "#include <stdlib.h>
3100 $ WS "#include <pthread.h>
3101 $ WS "#include <stdio.h>
3104 $ WS "pthread_yield();
3108 $ DEFINE SYS$ERROR _NLA0:
3109 $ DEFINE SYS$OUTPUT _NLA0:
3110 $ on error then continue
3111 $ on warning then continue
3113 $ teststatus = f$extract(9,1,$status)
3114 $ DEASSIGN SYS$OUTPUT
3115 $ DEASSIGN SYS$ERROR
3116 $ if (teststatus.nes."1")
3118 $ perl_d_pthread_yield="undef"
3120 $ perl_d_pthread_yield="define"
3123 $ perl_d_pthread_yield="undef"
3125 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
3127 $! Check for sched_yield
3129 $ if ("''use_threads'".eqs."T")
3133 $ WS "#include <stdlib.h>
3135 $ WS "#include <pthread.h>
3136 $ WS "#include <stdio.h>
3139 $ WS "sched_yield();
3143 $ DEFINE SYS$ERROR _NLA0:
3144 $ DEFINE SYS$OUTPUT _NLA0:
3145 $ on error then continue
3146 $ on warning then continue
3148 $ teststatus = f$extract(9,1,$status)
3149 $ DEASSIGN SYS$OUTPUT
3150 $ DEASSIGN SYS$ERROR
3151 $ if (teststatus.nes."1")
3153 $ perl_d_sched_yield="undef"
3154 $ perl_sched_yield = " "
3156 $ perl_d_sched_yield="define"
3157 $ perl_sched_yield = "sched_yield"
3160 $ perl_d_sched_yield="undef"
3161 $ perl_sched_yield = " "
3163 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
3164 $ WRITE_RESULT "sched_yield is ''perl_sched_yield'"
3166 $! Check for generic pointer size
3170 $ WS "#include <stdlib.h>
3172 $ WS "#include <stdio.h>
3176 $ WS "foo = sizeof(char *);
3177 $ WS "printf(""%d\n"", foo);
3181 $ DEFINE SYS$ERROR _NLA0:
3182 $ DEFINE SYS$OUTPUT _NLA0:
3183 $ ON ERROR THEN CONTINUE
3184 $ ON WARNING THEN CONTINUE
3186 $ If (Needs_Opt.eqs."Yes")
3188 $ link temp.obj,temp.opt/opt
3192 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3193 $ DEASSIGN SYS$OUTPUT
3194 $ DEASSIGN SYS$ERROR
3195 $ DEFINE SYS$ERROR TEMPOUT
3196 $ DEFINE SYS$OUTPUT TEMPOUT
3199 $ DEASSIGN SYS$OUTPUT
3200 $ DEASSIGN SYS$ERROR
3201 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3204 $ DELETE/NOLOG [-.uu]tempout.lis;
3207 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
3209 $! Check for size_t size
3213 $ WS "#include <stdlib.h>
3215 $ WS "#include <stdio.h>
3219 $ WS "foo = sizeof(size_t);
3220 $ WS "printf(""%d\n"", foo);
3224 $ DEFINE SYS$ERROR _NLA0:
3225 $ DEFINE SYS$OUTPUT _NLA0:
3226 $ ON ERROR THEN CONTINUE
3227 $ ON WARNING THEN CONTINUE
3231 $ link temp.obj,temp.opt/opt
3235 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3236 $ DEASSIGN SYS$OUTPUT
3237 $ DEASSIGN SYS$ERROR
3238 $ DEFINE SYS$ERROR TEMPOUT
3239 $ DEFINE SYS$OUTPUT TEMPOUT
3242 $ DEASSIGN SYS$OUTPUT
3243 $ DEASSIGN SYS$ERROR
3244 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3247 $ DELETE/NOLOG [-.uu]tempout.lis;
3249 $ perl_sizesize=line
3250 $ WRITE_RESULT "sizesize is ''perl_sizesize'"
3252 $! Check rand48 and its ilk
3256 $ WS "#include <stdlib.h>
3258 $ WS "#include <stdio.h>
3261 $ WS "srand48(12L);"
3266 $ DEFINE SYS$ERROR _NLA0:
3267 $ DEFINE SYS$OUTPUT _NLA0:
3268 $ ON ERROR THEN CONTINUE
3269 $ ON WARNING THEN CONTINUE
3271 $ If (Needs_Opt.eqs."Yes")
3273 $ link temp,temp.opt/opt
3277 $ teststatus = f$extract(9,1,$status)
3278 $ DEASSIGN SYS$OUTPUT
3279 $ DEASSIGN SYS$ERROR
3280 $ if (teststatus.nes."1")
3282 $ perl_drand01="random()"
3283 $ perl_randseedtype = "unsigned"
3284 $ perl_seedfunc = "srandom"
3288 $ WS "#include <stdlib.h>
3290 $ WS "#include <stdio.h>
3297 $! copy temp.c sys$output
3299 $ DEFINE SYS$ERROR _NLA0:
3300 $ DEFINE SYS$OUTPUT _NLA0:
3301 $ ON ERROR THEN CONTINUE
3302 $ ON WARNING THEN CONTINUE
3304 $ If (Needs_Opt.eqs."Yes")
3306 $ link temp,temp.opt/opt
3310 $ teststatus = f$extract(9,1,$status)
3311 $ DEASSIGN SYS$OUTPUT
3312 $ DEASSIGN SYS$ERROR
3313 $ if (teststatus.nes."1")
3315 $ perl_drand01="(((float)rand())/((float)RAND_MAX))"
3316 $ perl_randseedtype = "unsigned"
3317 $ perl_seedfunc = "srand"
3319 $ WRITE_RESULT "drand01 is ''perl_drand01'"
3322 $! Done with compiler checks. Clean up.
3323 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
3324 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
3325 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
3326 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
3329 $! Some that are compiler or VMS version sensitive
3332 $ IF "''Using_Gnu_C'".EQS."Yes"
3334 $ perl_d_attribut="define"
3335 $ perl_vms_cc_type="gcc"
3337 $ perl_vms_cc_type="cc"
3338 $ perl_d_attribut="undef"
3341 $! Dec C >= 5.2 and VMS ver >= 7.0
3342 $ IF (Using_Dec_C).AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.(VMS_VER .GES. "7.0")
3344 $ perl_d_bcmp="define"
3345 $ perl_d_gettimeod="define"
3346 $ perl_d_uname="define"
3347 $ perl_d_sigaction="define"
3348 $ perl_d_truncate="define"
3349 $ perl_d_wait4="define"
3350 $ perl_d_index="define"
3351 $ perl_pidtype="pid_t"
3352 $ 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"
3353 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3354 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
3355 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
3356 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
3357 $ 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"
3358 $ 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"
3359 $ perl_sig_num_with_commas=perl_sig_num_init
3360 $ perl_uidtype="uid_t"
3361 $ perl_d_pathconf="define"
3362 $ perl_d_fpathconf="define"
3363 $ perl_d_sysconf="define"
3364 $ perl_d_sigsetjmp="define"
3366 $ perl_pidtype="unsigned int"
3367 $ perl_d_gettimeod="undef"
3368 $ perl_d_bcmp="undef"
3369 $ perl_d_uname="undef"
3370 $ perl_d_sigaction="undef"
3371 $ perl_d_truncate="undef"
3372 $ perl_d_wait4="undef"
3373 $ perl_d_index="undef"
3374 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
3375 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3376 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
3377 $ perl_sig_name_with_commas = psnwc1 + psnwc2
3378 $ perl_sig_num="0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 6 16 17"",0"
3379 $ perl_sig_num_init="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
3380 $ perl_sig_num_with_commas=perl_sig_num_init
3381 $ perl_uidtype="unsigned int"
3382 $ perl_d_pathconf="undef"
3383 $ perl_d_fpathconf="undef"
3384 $ perl_d_sysconf="undef"
3385 $ perl_d_sigsetjmp="undef"
3389 $ IF ("''Using_Dec_C'".EQS."Yes")
3391 $ perl_d_mbstowcs="define"
3392 $ perl_d_mbtowc="define"
3393 $ perl_d_stdiobase="define"
3394 $ perl_d_stdio_ptr_lval="define"
3395 $ perl_d_stdio_cnt_lval="define"
3396 $ perl_d_stdstdio="define"
3397 $ perl_d_wcstombs="define"
3398 $ perl_d_mblen="define"
3399 $ perl_d_mktime="define"
3400 $ perl_d_strcoll="define"
3401 $ perl_d_strxfrm="define"
3402 $ perl_d_wctomb="define"
3403 $ perl_i_locale="define"
3404 $ perl_d_locconv="define"
3405 $ perl_d_setlocale="define"
3406 $ perl_vms_cc_type="decc"
3408 $ perl_d_mbstowcs="undef"
3409 $ perl_d_mbtowc="undef"
3410 $ perl_d_stdiobase="undef"
3411 $ perl_d_stdio_ptr_lval="undef"
3412 $ perl_d_stdio_cnt_lval="undef"
3413 $ perl_d_stdstdio="undef"
3414 $ perl_d_wcstombs="undef"
3415 $ perl_d_mblen="undef"
3416 $ perl_d_mktime="undef"
3417 $ perl_d_strcoll="undef"
3418 $ perl_d_strxfrm="undef"
3419 $ perl_d_wctomb="undef"
3420 $ perl_i_locale="undef"
3421 $ perl_d_locconv="undef"
3422 $ perl_d_setlocale="undef"
3426 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
3428 $ perl_d_vms_do_sockets="define"
3429 $ perl_d_htonl="define"
3430 $ perl_d_socket="define"
3431 $ perl_d_select="define"
3432 $ perl_netdb_host_type="char *"
3433 $ perl_netdb_hlen_type="int"
3434 $ perl_netdb_name_type="char *"
3435 $ perl_netdb_net_type="long"
3436 $ perl_d_gethbyaddr="define"
3437 $ perl_d_gethbyname="define"
3438 $ perl_d_getnbyaddr="define"
3439 $ perl_d_getnbyname="define"
3440 $ perl_d_getpbynumber="define"
3441 $ perl_d_getpbyname="define"
3442 $ perl_d_getsbyport="define"
3443 $ perl_d_getsbyname="define"
3444 $ perl_d_gethostprotos="define"
3445 $ perl_d_getnetprotos="define"
3446 $ perl_d_getprotoprotos="define"
3447 $ perl_d_getservprotos="define"
3448 $ IF ("''Using_Dec_C'".EQS."Yes")
3450 $ perl_socksizetype="unsigned int"
3452 $ perl_socksizetype="int *"
3455 $ perl_d_vms_do_sockets="undef"
3456 $ perl_d_htonl="undef"
3457 $ perl_d_socket="undef"
3458 $ perl_d_select="undef"
3459 $ perl_netdb_host_type="char *"
3460 $ perl_netdb_hlen_type="int"
3461 $ perl_netdb_name_type="char *"
3462 $ perl_netdb_net_type="long"
3463 $ perl_d_gethbyaddr="undef"
3464 $ perl_d_gethbyname="undef"
3465 $ perl_d_getnbyaddr="undef"
3466 $ perl_d_getnbyname="undef"
3467 $ perl_d_getpbynumber="undef"
3468 $ perl_d_getpbyname="undef"
3469 $ perl_d_getsbyport="undef"
3470 $ perl_d_getsbyname="undef"
3471 $ perl_d_gethostprotos="undef"
3472 $ perl_d_getnetprotos="undef"
3473 $ perl_d_getprotoprotos="undef"
3474 $ perl_d_getservprotos="undef"
3475 $ perl_socksizetype="undef"
3480 $ perl_usethreads="define"
3481 $ perl_d_pthreads_created_joinable="define"
3482 $ if (VMS_VER .GES. "7.0")
3484 $ perl_d_oldpthreads="undef"
3486 $ perl_d_oldpthreads="define"
3489 $ perl_d_oldpthreads="undef"
3490 $ perl_usethreads="undef"
3492 $ perl_d_pthreads_created_joinable="undef"
3495 $! new (5.005_62++) typedefs for primitives
3497 $ perl_ivtype="long"
3498 $ perl_uvtype="unsigned long"
3499 $ perl_i8type="char"
3500 $ perl_u8type="unsigned char"
3501 $ perl_i16type="short"
3502 $ perl_u16type="unsigned short"
3503 $ perl_i32type="int"
3504 $ perl_u32type="unsigned int"
3505 $ perl_i64type="long long"
3506 $ perl_u64type="unsigned long long"
3507 $ perl_nvtype="double"
3509 $ GOTO beyond_type_size_check
3513 $! Check for type sizes
3517 $ WS "#include <stdlib.h>
3519 $ WS "#include <stdio.h>
3522 $ WS "printf(""%d\n"", sizeof(''type'));"
3526 $ DEFINE SYS$ERROR _NLA0:
3527 $ DEFINE SYS$OUTPUT _NLA0:
3528 $ ON ERROR THEN CONTINUE
3529 $ ON WARNING THEN CONTINUE
3531 $ If (Needs_Opt.eqs."Yes")
3533 $ link temp.obj,temp.opt/opt
3537 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3538 $ DEASSIGN SYS$OUTPUT
3539 $ DEASSIGN SYS$ERROR
3540 $ DEFINE SYS$ERROR TEMPOUT
3541 $ DEFINE SYS$OUTPUT TEMPOUT
3544 $ DEASSIGN SYS$OUTPUT
3545 $ DEASSIGN SYS$ERROR
3546 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3549 $ DELETE/NOLOG [-.uu]tempout.lis;
3550 $ WRITE_RESULT "''size_name' is ''line'"
3554 $beyond_type_size_check:
3557 $ type = "''perl_ivtype'"
3558 $ size_name = "ivsize"
3559 $ gosub type_size_check
3560 $ perl_ivsize="''line'"
3561 $ IF type .eqs. "long"
3562 $ THEN perl_longsize = "''line'"
3565 $ size_name = "longsize"
3566 $ gosub type_size_check
3567 $ perl_longsize="''line'"
3570 $ type = "''perl_uvtype'"
3571 $ size_name = "uvsize"
3572 $ gosub type_size_check
3573 $ perl_uvsize="''line'"
3575 $ type = "''perl_i8type'"
3576 $ size_name = "i8size"
3577 $ gosub type_size_check
3578 $ perl_i8size="''line'"
3580 $ type = "''perl_u8type'"
3581 $ size_name = "u8size"
3582 $ gosub type_size_check
3583 $ perl_u8size="''line'"
3585 $ type = "''perl_i16type'"
3586 $ size_name = "i16size"
3587 $ gosub type_size_check
3588 $ perl_i16size="''line'"
3589 $ IF type .eqs. "short"
3590 $ THEN perl_shortsize="''line'"
3592 $ type = "''perl_i16type'"
3593 $ size_name = "shortsize"
3594 $ gosub type_size_check
3595 $ perl_shortsize="''line'"
3598 $ type = "''perl_u16type'"
3599 $ size_name = "u16size"
3600 $ gosub type_size_check
3601 $ perl_u16size="''line'"
3603 $ type = "''perl_i32type'"
3604 $ size_name = "i32size"
3605 $ gosub type_size_check
3606 $ perl_i32size="''line'"
3607 $ IF type .eqs. "int"
3608 $ THEN perl_intsize="''perl_i32size'"
3611 $ size_name = "intsize"
3612 $ gosub type_size_check
3613 $ perl_intsize="''line'"
3616 $ type = "''perl_u32type'"
3617 $ size_name = "u32size"
3618 $ gosub type_size_check
3619 $ perl_u32size="''line'"
3623 $ type = "''perl_i64type'"
3624 $ size_name = "i64size"
3625 $ gosub type_size_check
3626 $ perl_i64size="''line'"
3627 $ perl_ivtype="''perl_i64type'"
3629 $ type = "''perl_u64type'"
3630 $ size_name = "u64size"
3631 $ gosub type_size_check
3632 $ perl_u64size="''line'"
3633 $ perl_uvtype="''perl_u64type'"
3634 $ perl_nvtype="long double"
3636 $ perl_i64size="undef"
3637 $ perl_u64size="undef"
3640 $ perl_ivdformat="""ld"""
3641 $ perl_uvuformat="""lu"""
3642 $ perl_uvoformat="""lo"""
3643 $ perl_uvxformat="""lx"""
3645 $! Finally the composite ones. All config
3646 $ perl_installarchlib="''perl_prefix':[lib.''archname'.''version']"
3647 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''archname']"
3648 $ perl_myhostname="''myhostname'"
3649 $ perl_mydomain="''mydomain'"
3650 $ perl_perladmin="''perladmin'"
3651 $ perl_myuname:="''osname' ''myname' ''osvers' ''f$edit(hwname, "TRIM")'"
3652 $ perl_archlibexp="''perl_prefix':[lib.''archname'.''version']"
3653 $ perl_archlib="''perl_prefix':[lib.''archname'.''version']"
3654 $ perl_oldarchlibexp="''perl_prefix':[lib.''archname']"
3655 $ perl_oldarchlib="''perl_prefix':[lib.''archname']"
3656 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''archname']"
3657 $ perl_sitearch="''perl_prefix':[lib.site_perl.''archname']"
3660 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
3662 $ if use_vmsdebug_perl .eqs. "Y"
3664 $ perl_optimize="/Debug/NoOpt"
3665 $ perl_dbgprefix = "DBG"
3668 $ perl_dbgprefix = ""
3671 $! Okay, we've got everything configured. Now go write out a config.sh.
3672 $ echo4 "Creating config.sh..."
3673 $ open/write CONFIG [-]config.sh
3674 $ WC := "write CONFIG"
3676 $ WC "# This file generated by Configure.COM on a VMS system."
3677 $ WC "# Time: " + cf_time
3679 $ WC "CONFIGDOTSH=true"
3680 $ WC "package='" + perl_package + "'"
3681 $ WC "config_args='" + config_args + "'"
3682 $ WC "d_nv_preserves_uv='" + perl_d_nv_preserves_uv + "'"
3683 $ WC "use5005threads='" + perl_use5005threads + "'"
3684 $ WC "useithreads='" + perl_useithreads + "'"
3685 $ WC "CONFIG='" + perl_config + "'"
3686 $ WC "cf_time='" + cf_time + "'"
3687 $ WC "cf_by='" + cf_by + "'"
3688 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
3689 $ WC "ccdlflags='" + perl_ccdlflags + "'"
3690 $ WC "cccdlflags='" + perl_cccdlflags + "'"
3691 $ WC "mab='" + perl_mab + "'"
3692 $ WC "libpth='" + perl_libpth + "'"
3693 $ WC "ld='" + perl_ld + "'"
3694 $ WC "lddlflags='" + perl_lddlflags + "'"
3695 $ WC "ranlib='" + perl_ranlib + "'"
3696 $ WC "ar='" + perl_ar + "'"
3697 $ WC "full_ar='" + perl_full_ar + "'"
3698 $ WC "eunicefix='" + perl_eunicefix + "'"
3699 $ WC "hint='" + perl_hint +"'"
3700 $ WC "hintfile='" + perl_hintfile + "'"
3701 $ WC "shrplib='" + perl_shrplib + "'"
3702 $ WC "usemymalloc='" + perl_usemymalloc + "'"
3703 $ WC "usevfork='" + perl_usevfork + "'"
3704 $ WC "useposix='false'"
3705 $ WC "spitshell='write sys$output '"
3706 $ WC "dlsrc='dl_vms.c'"
3707 $ WC "binexp='" + perl_binexp + "'"
3708 $ WC "man1ext='" + perl_man1ext + "'"
3709 $ WC "man3ext='" + perl_man3ext + "'"
3710 $ WC "archname='" + archname + "'"
3711 $ WC "osvers='" + osvers + "'"
3712 $ WC "prefix='" + perl_prefix + "'"
3713 $ WC "builddir='" + perl_builddir + "'"
3714 $ WC "installbin='" + perl_installbin + "'"
3715 $ WC "installscript='" + perl_installscript + "'"
3716 $ WC "installman1dir='" + perl_installman1dir + "'"
3717 $ WC "installman3dir='" + perl_installman3dir + "'"
3718 $ WC "installprivlib='" + perl_installprivlib + "'"
3719 $ WC "installarchlib='" + perl_installarchlib + "'"
3720 $ WC "installsitelib='" + perl_installsitelib + "'"
3721 $ WC "installsitearch='" + perl_installsitearch + "'"
3722 $ WC "path_sep='" + perl_path_sep + "'"
3723 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
3724 $ WC "d_attribut='" + perl_d_attribut + "'"
3725 $ WC "cc='" + perl_cc + "'"
3726 $ WC "ccflags='" + perl_ccflags + "'"
3727 $ WC "optimize='" + perl_optimize + "'"
3728 $ WC "dbgprefix='" + perl_dbgprefix + "'"
3729 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
3730 $ WC "d_socket='" + perl_d_socket + "'"
3731 $ WC "d_sockpair='" + perl_d_sockpair + "'"
3732 $ WC "d_gethent='" + perl_d_gethent + "'"
3733 $ WC "d_getsent='" + perl_d_getsent + "'"
3734 $ WC "d_socklen_t='" + perl_d_socklen_t + "'"
3735 $ WC "d_select='" + perl_d_select + "'"
3736 $ WC "i_niin='" + perl_i_niin + "'"
3737 $ WC "i_netinettcp='" + perl_i_netinettcp + "'"
3738 $ WC "i_neterrno='" + perl_i_neterrno + "'"
3739 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
3740 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
3741 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
3742 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
3743 $ WC "d_locconv='" + perl_d_locconv + "'"
3744 $ WC "d_setlocale='" + perl_d_setlocale + "'"
3745 $ WC "i_locale='" + perl_i_locale + "'"
3746 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
3747 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
3748 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
3749 $ WC "d_wctomb='" + perl_d_wctomb + "'"
3750 $ WC "d_mblen='" + perl_d_mblen + "'"
3751 $ WC "d_mktime='" + perl_d_mktime + "'"
3752 $ WC "d_strcoll='" + perl_d_strcoll + "'"
3753 $ WC "d_strxfrm='" + perl_d_strxfrm + "'"
3754 $ WC "ldflags='" + perl_ldflags + "'"
3755 $ WC "dlobj='" + perl_dlobj + "'"
3756 $ WC "obj_ext='" + perl_obj_ext + "'"
3757 $ WC "so='" + perl_so + "'"
3758 $ WC "dlext='" + perl_dlext + "'"
3759 $ WC "exe_ext='" + perl_exe_ext + "'"
3760 $ WC "lib_ext='" + perl_lib_ext + "'"
3761 $ WC "myhostname='" + perl_myhostname + "'"
3762 $ WC "mydomain='" + perl_mydomain + "'"
3763 $ WC "perladmin='" + perl_perladmin + "'"
3764 $ WC "cf_email='" + cf_email + "'"
3765 $ WC "myuname='" + perl_myuname + "'"
3766 $ WC "alignbytes='" + alignbytes + "'"
3767 $ WC "osname='" + perl_osname + "'"
3768 $ WC "d_archlib='" + perl_d_archlib + "'"
3769 $ WC "archlibexp='" + perl_archlibexp + "'"
3770 $ WC "archlib='" + perl_archlib + "'"
3771 $ WC "archname='" + archname + "'"
3772 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
3773 $ WC "cppstdin='" + perl_cppstdin + "'"
3774 $ WC "cppminus='" + perl_cppminus + "'"
3775 $ WC "cpprun='" + perl_cpprun + "'"
3776 $ WC "cpplast='" + perl_cpplast + "'"
3777 $ WC "d_bcmp='" + perl_d_bcmp + "'"
3778 $ WC "d_bcopy='" + perl_d_bcopy + "'"
3779 $ WC "d_bzero='" + perl_d_bzero + "'"
3780 $ WC "d_castneg='" + perl_d_castneg + "'"
3781 $ WC "castflags='" + perl_castflags + "'"
3782 $ WC "d_chsize='" + perl_d_chsize + "'"
3783 $ WC "d_const='" + perl_d_const + "'"
3784 $ WC "d_crypt='" + perl_d_crypt + "'"
3785 $ WC "byteorder='" + perl_byteorder + "'"
3786 $ WC "full_csh='" + perl_full_csh + "'"
3787 $ WC "d_csh='" + perl_d_csh + "'"
3788 $ WC "d_dup2='" + perl_d_dup2 + "'"
3789 $ WC "d_fchmod='" + perl_d_fchmod + "'"
3790 $ WC "d_fchown='" + perl_d_fchown + "'"
3791 $ WC "d_fcntl='" + perl_d_fcntl + "'"
3792 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
3793 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
3794 $ WC "d_flock='" + perl_d_flock + "'"
3795 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
3796 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
3797 $ WC "d_getgrps='" + perl_d_getgrps + "'"
3798 $ WC "d_setgrps='" + perl_d_setgrps + "'"
3799 $ WC "groupstype='" + perl_groupstype + "'"
3800 $ WC "d_uname='" + perl_d_uname + "'"
3801 $ WC "d_getprior='" + perl_d_getprior + "'"
3802 $ WC "d_killpg='" + perl_d_killpg + "'"
3803 $ WC "d_link='" + perl_d_link + "'"
3804 $ WC "d_lstat='" + perl_d_lstat + "'"
3805 $ WC "d_lockf='" + perl_d_lockf + "'"
3806 $ WC "d_memcmp='" + perl_d_memcmp + "'"
3807 $ WC "d_memcpy='" + perl_d_memcpy + "'"
3808 $ WC "d_memmove='" + perl_d_memmove + "'"
3809 $ WC "d_memset='" + perl_d_memset + "'"
3810 $ WC "d_mkdir='" + perl_d_mkdir + "'"
3811 $ WC "d_msg='" + perl_d_msg + "'"
3812 $ WC "d_open3='" + perl_d_open3 + "'"
3813 $ WC "d_poll='" + perl_d_poll + "'"
3814 $ WC "d_readdir='" + perl_d_readdir + "'"
3815 $ WC "d_seekdir='" + perl_d_seekdir + "'"
3816 $ WC "d_telldir='" + perl_d_telldir + "'"
3817 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
3818 $ WC "d_rename='" + perl_d_rename + "'"
3819 $ WC "d_rmdir='" + perl_d_rmdir + "'"
3820 $ WC "d_sem='" + perl_d_sem + "'"
3821 $ WC "d_setegid='" + perl_d_setegid + "'"
3822 $ WC "d_seteuid='" + perl_d_seteuid + "'"
3823 $ WC "d_setprior='" + perl_d_setprior + "'"
3824 $ WC "d_setregid='" + perl_d_setregid + "'"
3825 $ WC "d_setresgid='" + perl_d_setresgid + "'"
3826 $ WC "d_setreuid='" + perl_d_setreuid + "'"
3827 $ WC "d_setresuid='" + perl_d_setresuid + "'"
3828 $ WC "d_setrgid='" + perl_d_setrgid + "'"
3829 $ WC "d_setruid='" + perl_d_setruid + "'"
3830 $ WC "d_setsid='" + perl_d_setsid + "'"
3831 $ WC "d_shm='" + perl_d_shm + "'"
3832 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
3833 $ WC "shmattype='" + perl_shmattype + "'"
3834 $ WC "d_sigaction='" + perl_d_sigaction + "'"
3835 $ WC "d_statblks='" + perl_d_statblks + "'"
3836 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
3837 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
3838 $ WC "stdio_base='" + perl_stdio_base + "'"
3839 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
3840 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
3841 $ WC "d_strerror='" + perl_d_strerror + "'"
3842 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
3843 $ WC "d_strerrm='" + perl_d_strerrm + "'"
3844 $ WC "d_symlink='" + perl_d_symlink + "'"
3845 $ WC "d_syscall='" + perl_d_syscall + "'"
3846 $ WC "d_system='" + perl_d_system + "'"
3847 $ WC "timetype='" + perl_timetype + "'"
3848 $ WC "d_truncate='" + perl_d_truncate + "'"
3849 $ WC "d_vfork='" + perl_d_vfork + "'"
3850 $ WC "signal_t='" + perl_signal_t + "'"
3851 $ WC "d_volatile='" + perl_d_volatile + "'"
3852 $ WC "d_vprintf='" + perl_d_vprintf + "'"
3853 $ WC "d_charvspr='" + perl_d_charvspr + "'"
3854 $ WC "d_wait4='" + perl_d_wait4 + "'"
3855 $ WC "d_waitpid='" + perl_d_waitpid + "'"
3856 $ WC "i_dirent='" + perl_i_dirent + "'"
3857 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
3858 $ WC "direntrytype='" + perl_direntrytype + "'"
3859 $ WC "i_fcntl='" + perl_i_fcntl + "'"
3860 $ WC "i_grp='" + perl_i_grp + "'"
3861 $ WC "i_limits='" + perl_i_limits + "'"
3862 $ WC "i_memory='" + perl_i_memory + "'"
3863 $ WC "i_ndbm='" + perl_i_ndbm + "'"
3864 $ WC "i_stdarg='" + perl_i_stdarg + "'"
3865 $ WC "i_pwd='" + perl_i_pwd + "'"
3866 $ WC "d_pwquota='" + perl_d_pwquota + "'"
3867 $ WC "d_pwage='" + perl_d_pwage + "'"
3868 $ WC "d_pwchange='" + perl_d_pwchange + "'"
3869 $ WC "d_pwclass='" + perl_d_pwclass + "'"
3870 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
3871 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
3872 $ WC "i_stddef='" + perl_i_stddef + "'"
3873 $ WC "i_stdlib='" + perl_i_stdlib + "'"
3874 $ WC "i_string='" + perl_i_string + "'"
3875 $ WC "i_sysdir='" + perl_i_sysdir + "'"
3876 $ WC "i_sysfile='" + perl_i_sysfile + "'"
3877 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
3878 $ WC "i_sysndir='" + perl_i_sysndir + "'"
3879 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
3880 $ WC "i_sysselct='" + perl_i_sysselct + "'"
3881 $ WC "i_dbm='" + perl_i_dbm + "'"
3882 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
3883 $ WC "i_sfio='" + perl_i_sfio + "'"
3884 $ WC "i_sysstat='" + perl_i_sysstat + "'"
3885 $ WC "i_systimes='" + perl_i_systimes + "'"
3886 $ WC "i_systypes='" + perl_i_systypes + "'"
3887 $ WC "i_sysun='" + perl_i_sysun + "'"
3888 $ WC "i_syswait='" + perl_i_syswait + "'"
3889 $ WC "i_termio='" + perl_i_termio + "'"
3890 $ WC "i_sgtty='" + perl_i_sgtty + "'"
3891 $ WC "i_termios='" + perl_i_termios + "'"
3892 $ WC "i_time='" + perl_i_time + "'"
3893 $ WC "i_systime='" + perl_i_systime + "'"
3894 $ WC "i_systimek='" + perl_i_systimek + "'"
3895 $ WC "i_unistd='" + perl_i_unistd + "'"
3896 $ WC "i_utime='" + perl_i_utime + "'"
3897 $ WC "i_varargs='" + perl_i_varargs + "'"
3898 $ WC "i_vfork='" + perl_i_vfork + "'"
3899 $ WC "prototype='" + perl_prototype + "'"
3900 $ WC "randbits='" + perl_randbits +"'"
3901 $ WC "selecttype='" + perl_selecttype + "'"
3902 $ WC "selectminbits='" + perl_selectminbits + "'"
3903 $ WC "stdchar='" + perl_stdchar + "'"
3904 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
3905 $ WC "full_sed='" + perl_full_sed + "'"
3906 $ WC "bin='" + perl_bin + "'"
3907 $ WC "binexp='" + perl_binexp + "'"
3908 $ WC "d_alarm='" + perl_d_alarm + "'"
3909 $ WC "d_casti32='" + perl_d_casti32 + "'"
3910 $ WC "d_chown='" + perl_d_chown + "'"
3911 $ WC "d_chroot='" + perl_d_chroot + "'"
3912 $ WC "d_cuserid='" + perl_d_cuserid + "'"
3913 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
3914 $ WC "d_ldbl_dig='" + perl_d_ldbl_dig + "'"
3915 $ WC "d_difftime='" + perl_d_difftime + "'"
3916 $ WC "d_fork='" + perl_d_fork + "'"
3917 $ WC "d_getlogin='" + perl_d_getlogin + "'"
3918 $ WC "d_getppid='" + perl_d_getppid + "'"
3919 $ WC "d_htonl='" + perl_d_htonl + "'"
3920 $ WC "d_nice='" + perl_d_nice + "'"
3921 $ WC "d_pause='" + perl_d_pause + "'"
3922 $ WC "d_pipe='" + perl_d_pipe + "'"
3923 $ WC "d_readlink='" + perl_d_readlink + "'"
3924 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
3925 $ WC "d_strchr='" + perl_d_strchr + "'"
3926 $ WC "d_index='" + perl_d_index + "'"
3927 $ WC "d_strtod='" + perl_d_strtod + "'"
3928 $ WC "d_strtol='" + perl_d_strtol + "'"
3929 $ WC "d_strtoul='" + perl_d_strtoul + "'"
3930 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
3931 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
3932 $ WC "d_times='" + perl_d_times + "'"
3933 $ WC "d_tzname='" + perl_d_tzname + "'"
3934 $ WC "d_umask='" + perl_d_umask + "'"
3935 $ WC "fpostype='" + perl_fpostype + "'"
3936 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
3937 $ WC "i_float='" + perl_i_float + "'"
3938 $ WC "i_math='" + perl_i_math + "'"
3939 $ WC "intsize='" + perl_intsize + "'"
3940 $ WC "longsize='" + perl_longsize + "'"
3941 $ WC "shortsize='" + perl_shortsize + "'"
3942 $ WC "lseektype='" + perl_lseektype + "'"
3943 $ WC "lseeksize='4'"
3944 $ WC "i_values='" + perl_i_values + "'"
3945 $ WC "malloctype='" + perl_malloctype + "'"
3946 $ WC "freetype='" + perl_freetype + "'"
3947 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
3948 $ WC "sh='" + perl_sh + "'"
3949 $ WC "sig_name='" + perl_sig_name + "'"
3950 $ WC "sig_num='" + perl_sig_num + "'"
3951 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
3953 $ WC "modetype='" + perl_modetype + "'"
3954 $ WC "ssizetype='" + perl_ssizetype + "'"
3955 $ WC "o_nonblock='" + perl_o_nonblock + "'"
3956 $ WC "eagain='" + perl_eagain + "'"
3957 $ WC "rd_nodata='" + perl_rd_nodata + "'"
3958 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
3959 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
3960 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
3961 $ WC "oldarchlib='" + perl_oldarchlib + "'"
3962 $ WC "privlibexp='" + perl_privlibexp + "'"
3963 $ WC "privlib='" + perl_privlib + "'"
3964 $ WC "sitelibexp='" + perl_sitelibexp + "'"
3965 $ WC "sitelib='" + perl_sitelib + "'"
3966 $ WC "sitelib_stem='" + perl_sitelib_stem + "'"
3967 $ WC "sitearchexp='" + perl_sitearchexp + "'"
3968 $ WC "sitearch='" + perl_sitearch + "'"
3969 $ WC "sizetype='" + perl_sizetype + "'"
3970 $ WC "i_sysparam='" + perl_i_sysparam + "'"
3971 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
3972 $ WC "d_dlerror='" + perl_d_dlerror + "'"
3973 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
3974 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
3975 $ WC "d_dosuid='" + perl_d_dosuid + "'"
3976 $ WC "d_inetaton='" + perl_d_inetaton + "'"
3977 $ WC "d_int64_t='" + perl_d_int64_t + "'"
3978 $ WC "d_isascii='" + perl_d_isascii + "'"
3979 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
3980 $ WC "d_pathconf='" + perl_d_pathconf + "'"
3981 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
3982 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
3983 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
3984 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
3985 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
3986 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
3987 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
3988 $ WC "d_setpgid='" + perl_d_setpgid + "'"
3989 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
3990 $ WC "d_sysconf='" + perl_d_sysconf + "'"
3991 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
3992 $ WC "d_getpgid='" + perl_d_getpgid + "'"
3993 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
3994 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
3995 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
3996 $ WC "d_sfio='" + perl_d_sfio + "'"
3997 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
3998 $ WC "usedl='" + perl_usedl + "'"
3999 $ WC "startperl=" + perl_startperl ! This one's special--no enclosing single quotes
4000 $ WC "db_hashtype='" + perl_db_hashtype + "'"
4001 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
4002 $ WC "useperlio='" + perl_useperlio + "'"
4003 $ WC "defvoidused='" + perl_defvoidused + "'"
4004 $ WC "voidflags='" + perl_voidflags + "'"
4005 $ WC "d_eunice='" + perl_d_eunice + "'"
4006 $ WC "libs='" + perl_libs + "'"
4007 $ WC "libc='" + perl_libc + "'"
4008 $ WC "xs_apiversion='" + version + "'"
4009 $ WC "pm_apiversion='" + version + "'"
4010 $ WC "PERL_VERSION='" + patchlevel + "'"
4011 $ WC "PERL_SUBVERSION='" + subversion + "'"
4012 $ WC "pager='" + perl_pager + "'"
4013 $ WC "uidtype='" + perl_uidtype + "'"
4014 $ WC "uidformat='" + perl_uidformat + "'"
4015 $ WC "uidsize='" + perl_uidsize + "'"
4016 $ WC "gidtype='" + perl_gidtype + "'"
4017 $ WC "gidformat='" + perl_gidformat + "'"
4018 $ WC "gidsize='" + perl_gidsize + "'"
4019 $ WC "usethreads='" + perl_usethreads + "'"
4020 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
4021 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
4022 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
4023 $ WC "i_netdb='" + perl_i_netdb + "'"
4024 $ WC "pidtype='" + perl_pidtype + "'"
4025 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
4026 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
4027 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
4028 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
4029 $ WC "socksizetype='" + perl_socksizetype + "'"
4030 $ WC "baserev='" + perl_baserev + "'"
4031 $ WC "doublesize='" + perl_doublesize + "'"
4032 $ WC "ptrsize='" + perl_ptrsize + "'"
4033 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
4034 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
4035 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
4036 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
4037 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
4038 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
4039 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
4040 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
4041 $ WC "d_sethent='" + perl_d_sethent + "'"
4042 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
4043 $ WC "d_longdbl='" + perl_d_longdbl + "'"
4044 $ WC "longdblsize='" + perl_longdblsize + "'"
4045 $ WC "d_longlong='" + perl_d_longlong + "'"
4046 $ WC "longlongsize='" + perl_longlongsize + "'"
4047 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
4048 $ WC "d_mkstemps='" + perl_d_mkstemps + "'"
4049 $ WC "d_mkdtemp='" + perl_d_mkdtemp + "'"
4050 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
4051 $ WC "d_setenv='" + perl_d_setenv + "'"
4052 $ WC "d_endhent='" + perl_d_endhent + "'"
4053 $ WC "d_endnent='" + perl_d_endsent + "'"
4054 $ WC "d_endpent='" + perl_d_endpent + "'"
4055 $ WC "d_endsent='" + perl_d_endsent + "'"
4056 $ WC "d_gethent='" + perl_d_gethent + "'"
4057 $ WC "d_getnent='" + perl_d_getsent + "'"
4058 $ WC "d_getpent='" + perl_d_getpent + "'"
4059 $ WC "d_getsent='" + perl_d_getsent + "'"
4060 $ WC "d_sethent='" + perl_d_sethent + "'"
4061 $ WC "d_setnent='" + perl_d_setsent + "'"
4062 $ WC "d_setpent='" + perl_d_setpent + "'"
4063 $ WC "ebcdic='" + perl_ebcdic + "'"
4064 $ WC "d_setsent='" + perl_d_setsent + "'"
4065 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
4066 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
4067 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
4068 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
4069 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
4070 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
4071 $ WC "d_lchown='" + perl_d_lchown + "'"
4072 $ WC "d_union_semun='" + perl_d_union_semun + "'"
4073 $ WC "i_arpainet='" + perl_i_arpainet + "'"
4074 $ WC "d_grpasswd='" + perl_d_grpasswd + "'"
4075 $ WC "d_setgrent='" + perl_d_setgrent + "'"
4076 $ WC "d_getgrent='" + perl_d_getgrent + "'"
4077 $ WC "d_endgrent='" + perl_d_endgrent + "'"
4078 $ WC "d_pwpasswd='" + perl_d_pwpasswd + "'"
4079 $ WC "d_setpwent='" + perl_d_setpwent + "'"
4080 $ WC "d_getpwent='" + perl_d_getpwent + "'"
4081 $ WC "d_endpwent='" + perl_d_endpwent + "'"
4082 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
4083 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
4084 $ WC "extensions='" + perl_extensions + "'"
4085 $ WC "known_extensions='" + perl_known_extensions + "'"
4086 $ WC "static_ext='" + "'"
4087 $ WC "dynamic_ext='" + perl_extensions + "'"
4088 $ WC "d_mknod='" + perl_d_mknod + "'"
4089 $ WC "devtype='" + perl_devtype + "'"
4090 $ WC "d_gethname='" + perl_d_gethname + "'"
4091 $ WC "d_phostname='" + perl_d_phostname + "'"
4092 $ WC "aphostname='" + perl_aphostname + "'"
4093 $ WC "d_accessx='" + perl_d_accessx + "'"
4094 $ WC "d_eaccess='" + perl_d_eaccess + "'"
4095 $ WC "i_ieeefp='" + perl_i_ieeefp + "'"
4096 $ WC "i_sunmath='" + perl_i_sunmath + "'"
4097 $ WC "i_sysaccess='" + perl_i_sysaccess + "'"
4098 $ WC "i_syssecrt='" + perl_i_syssecrt + "'"
4099 $ WC "d_fd_set='" + perl_d_fd_set + "'"
4100 $ WC "d_access='" + perl_d_access + "'"
4101 $ WC "d_msg_ctrunc='" + perl_d_msg_ctrunc + "'"
4102 $ WC "d_msg_dontroute='" + perl_d_msg_dontroute + "'"
4103 $ WC "d_msg_oob='" + perl_d_msg_oob + "'"
4104 $ WC "d_msg_peek='" + perl_d_msg_peek + "'"
4105 $ WC "d_msg_proxy='" + perl_d_msg_proxy + "'"
4106 $ WC "d_scm_rights='" + perl_d_scm_rights + "'"
4107 $ WC "d_sendmsg='" + perl_d_sendmsg + "'"
4108 $ WC "d_recvmsg='" + perl_d_recvmsg + "'"
4109 $ WC "d_msghdr_s='" + perl_d_msghdr_s + "'"
4110 $ WC "d_cmsghdr_s='" + perl_d_cmsghdr_s + "'"
4111 $ WC "i_sysuio='" + perl_i_sysuio + "'"
4112 $ WC "d_fseeko='" + perl_d_fseeko + "'"
4113 $ WC "d_ftello='" + perl_d_ftello + "'"
4114 $ WC "d_qgcvt='" + perl_d_qgcvt + "'"
4115 $ WC "d_readv='" + perl_d_readv + "'"
4116 $ WC "d_writev='" + perl_d_writev + "'"
4117 $ WC "i_machcthr='" + perl_i_machcthr + "'"
4118 $ WC "usemultiplicity='" + perl_usemultiplicity + "'"
4119 $ WC "i_poll='" + perl_i_poll + "'"
4120 $ WC "i_inttypes='" + perl_i_inttypes + "'"
4121 $ WC "d_off64_t='" + perl_d_off64_t + "'"
4122 $ WC "d_fpos64_t='" + perl_d_fpos64_t + "'"
4123 $ WC "use64bitall='" + perl_use64bitall + "'"
4124 $ WC "use64bitint='" + perl_use64bitint + "'"
4125 $ WC "d_drand48proto='" + perl_d_drand48proto + "'"
4126 $ WC "d_lseekproto='" + perl_d_drand48proto + "'"
4127 $ WC "d_old_pthread_create_joinable='" + perl_d_old_pthread_create_joinable + "'"
4128 $ WC "old_pthread_create_joinable='" + perl_old_pthread_create_joinable + "'"
4129 $ WC "drand01='" + perl_drand01 + "'"
4130 $ WC "randseedtype='" + perl_randseedtype + "'"
4131 $ WC "seedfunc='" + perl_seedfunc + "'"
4132 $ WC "sig_num_init='" + perl_sig_num_with_commas + "'"
4133 $ WC "i_sysmount='" + perl_i_sysmount + "'"
4134 $ WC "d_fstatfs='" + perl_d_fstatfs + "'"
4135 $ WC "d_getfsstat='" + perl_d_getfsstat + "'"
4136 $ WC "d_memchr='" + perl_d_memchr + "'"
4137 $ WC "d_statfsflags='" + perl_d_statfsflags + "'"
4138 $ WC "fflushNULL='define'"
4139 $ WC "fflushall='undef'"
4140 $ WC "d_stdio_stream_array='undef'"
4141 $ WC "stdio_stream_array='" + perl_stdio_stream_array + "'"
4142 $ WC "i_sysstatvfs='" + perl_i_sysstatvfs + "'"
4143 $ WC "i_syslog='" + perl_i_syslog + "'"
4144 $ WC "i_sysmode='" + perl_i_sysmode + "'"
4145 $ WC "i_sysutsname='" + perl_i_sysutsname + "'"
4146 $ WC "i_machcthreads='" + perl_i_machcthreads + "'"
4147 $ WC "i_pthread='" + perl_i_pthread + "'"
4148 $ WC "d_fstatvfs='" + perl_d_fstatvfs + "'"
4149 $ WC "i_mntent='" + perl_i_mntent + "'"
4150 $ WC "d_getmntent='" + perl_d_getmntent + "'"
4151 $ WC "d_hasmntopt='" + perl_d_hasmntopt + "'"
4152 $ WC "d_telldirproto='" + perl_d_telldirproto + "'"
4153 $ WC "d_madvise='" + perl_d_madvise + "'"
4154 $ WC "d_msync='" + perl_d_msync + "'"
4155 $ WC "d_mprotect='" + perl_d_mprotect + "'"
4156 $ WC "d_munmap='" + perl_d_munmap + "'"
4157 $ WC "d_mmap='" + perl_d_mmap + "'"
4158 $ WC "mmaptype='" + perl_mmaptype + "'"
4159 $ WC "i_sysmman='" + perl_i_sysmman + "'"
4160 $ WC "installusrbinperl='" + perl_installusrbinperl + "'"
4161 $! WC "selectminbits='" + perl_selectminbits + "'"
4162 $ WC "crosscompile='" + perl_crosscompile + "'"
4163 $ WC "multiarch='" + perl_multiarch + "'"
4164 $ WC "sched_yield='" + perl_sched_yield + "'"
4165 $ WC "d_strtoull='" + perl_d_strtoull + "'"
4166 $ WC "d_strtouq='" + perl_d_strtouq + "'"
4167 $ WC "d_strtoll='" + perl_d_strtoll + "'"
4168 $ WC "d_strtold='" + perl_d_strtold + "'"
4169 $ WC "usesocks='" + perl_usesocks + "'"
4170 $ WC "d_vendorlib='" + perl_d_vendorlib + "'"
4171 $ WC "vendorlibexp='" + perl_vendorlibexp + "'"
4172 $ WC "vendorlib_stem='" + perl_vendorlib_stem + "'"
4173 $ WC "d_atolf='" + perl_d_atolf + "'"
4174 $ WC "d_atoll='" + perl_d_atoll + "'"
4175 $ WC "d_bincompat5005='" + perl_d_bincompat + "'"
4176 $ WC "d_endspent='" + perl_d_endspent + "'"
4177 $ WC "d_getspent='" + perl_d_getspent + "'"
4178 $ WC "d_getspnam='" + perl_d_getspnam + "'"
4179 $ WC "d_setspent='" + perl_d_setspent + "'"
4180 $ WC "i_shadow='" + perl_i_shadow + "'"
4181 $ WC "i_socks='" + perl_i_socks + "'"
4182 $ WC "d_PRIfldbl='" + perl_d_PRIfldbl + "'"
4183 $ WC "d_PRIgldbl='" + perl_d_PRIgldbl + "'"
4184 $ WC "d_PRId64='" + perl_d_PRId64 + "'"
4185 $ WC "d_PRIu64='" + perl_d_PRIu64 + "'"
4186 $ WC "d_PRIo64='" + perl_d_PRIo64 + "'"
4187 $ WC "d_PRIx64='" + perl_d_PRIx64 + "'"
4188 $ WC "sPRIfldbl='" + perl_sPRIfldbl + "'"
4189 $ WC "sPRIgldbl='" + perl_sPRIgldbl + "'"
4190 $ WC "sPRId64='" + perl_sPRId64 + "'"
4191 $ WC "sPRIu64='" + perl_sPRIu64 + "'"
4192 $ WC "sPRIo64='" + perl_sPRIo64 + "'"
4193 $ WC "sPRIx64='" + perl_sPRIx64 + "'"
4194 $ WC "d_llseek='" + perl_d_llseek + "'"
4195 $ WC "d_iconv='" + perl_d_iconv +"'"
4196 $ WC "i_iconv='" + perl_i_iconv +"'"
4197 $ WC "inc_version_list='0'"
4198 $ WC "inc_version_list_init='0'"
4199 $ WC "uselargefiles='" + perl_uselargefiles + "'"
4200 $ WC "uselongdouble='" + perl_uselongdouble + "'"
4201 $ WC "usemorebits='" + perl_usemorebits + "'"
4202 $ WC "d_quad='" + perl_d_quad + "'"
4203 $ WC "quadtype='" + perl_quadtype + "'"
4204 $ WC "uquadtype='" + perl_uquadtype + "'"
4205 $ WC "quadkind='" + perl_quadkind + "'"
4206 $ WC "d_fs_data_s='" + perl_d_fs_data_s + "'"
4207 $ WC "d_getcwd='" + perl_d_getcwd + "'"
4208 $ WC "d_getmnt='" + perl_d_getmnt + "'"
4209 $ WC "d_sqrtl='" + perl_d_sqrtl + "'"
4210 $ WC "d_statfs_f_flags='" + perl_d_statfs_f_flags + "'"
4211 $ WC "d_statfs_s='" + perl_d_statfs_s + "'"
4212 $ WC "d_ustat='" + perl_d_ustat + "'"
4213 $ WC "d_vendorarch='" + perl_d_vendorarch + "'"
4214 $ WC "vendorarchexp='" + perl_vendorarchexp + "'"
4215 $ WC "i_sysstatfs='" + perl_i_sysstatfs + "'"
4216 $ WC "i_sysvfs='" + perl_i_sysvfs + "'"
4217 $ WC "i_ustat='" + perl_i_ustat + "'"
4218 $ WC "ivtype='" + perl_ivtype + "'"
4219 $ WC "uvtype='" + perl_uvtype + "'"
4220 $ WC "i8type='" + perl_i8type + "'"
4221 $ WC "i16type='" + perl_i16type + "'"
4222 $ WC "u8type='" + perl_u8type + "'"
4223 $ WC "u16type='" + perl_u16type + "'"
4224 $ WC "i32type='" + perl_i32type + "'"
4225 $ WC "u32type='" + perl_u32type + "'"
4226 $ WC "i64type='" + perl_i64type + "'"
4227 $ WC "u64type='" + perl_u64type + "'"
4228 $ WC "nvtype='" + perl_nvtype + "'"
4229 $ WC "ivsize='" + perl_ivsize + "'"
4230 $ WC "uvsize='" + perl_uvsize + "'"
4231 $ WC "i8size='" + perl_i8size + "'"
4232 $ WC "u8size='" + perl_u8size + "'"
4233 $ WC "i16size='" + perl_i16size + "'"
4234 $ WC "u16size='" + perl_u16size + "'"
4235 $ WC "i32size='" + perl_i32size + "'"
4236 $ WC "u32size='" + perl_u32size + "'"
4237 $ WC "i64size='" + perl_i64size + "'"
4238 $ WC "u64size='" + perl_u64size + "'"
4239 $ WC "ivdformat='" + perl_ivdformat + "'"
4240 $ WC "uvuformat='" + perl_uvuformat + "'"
4241 $ WC "uvoformat='" + perl_uvoformat + "'"
4242 $ WC "uvxformat='" + perl_uvxformat + "'"
4243 $ WC "d_vms_case_sensitive_symbols='" + d_vms_be_case_sensitive + "'"
4244 $ WC "sizesize='" + perl_sizesize + "'"
4246 $! ##WRITE NEW CONSTANTS HERE##
4250 $! Okay, we've gotten here. Build munchconfig and run it
4251 $ 'Perl_CC' munchconfig.c
4252 $ If (Needs_Opt.eqs."Yes")
4254 $ open/write OPTCHAN []munchconfig.opt
4255 $ IF ("''using_gnu_c'".eqs."Yes")
4257 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
4259 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
4261 $ link munchconfig.obj,munchconfig.opt/opt
4262 $ delete munchconfig.opt;*
4264 $ link munchconfig.obj
4267 $ echo "Doing variable substitutions on .SH files..."
4268 $ echo "Extracting config.h (with variable substitutions)"
4270 $ ! we need an fdl file
4271 $ CREATE [-]CONFIG.FDL
4274 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
4275 $ ! First spit out the header info with the local defines (to get
4276 $ ! around the 255 character command line limit)
4277 $ OPEN/APPEND CONFIG [-]config.local
4278 $ IF use_debugging_perl THEN WC "#define DEBUGGING"
4279 $ IF use_two_pot_malloc THEN WC "#define TWO_POT_OPTIMIZE"
4280 $ IF mymalloc THEN WC "#define EMBEDMYMALLOC"
4281 $ IF use_pack_malloc THEN WC "#define PACK_MALLOC"
4282 $ IF use_debugmalloc THEN WC "#define DEBUGGING_MSTATS"
4283 $ IF Using_Gnu_C THEN WC "#define GNUC_ATTRIBUTE_CHECK"
4284 $ IF (Has_Dec_C_Sockets)
4286 $ WC "#define VMS_DO_SOCKETS"
4287 $ WC "#define DECCRTL_SOCKETS"
4289 $ IF Has_Socketshr THEN WC "#define VMS_DO_SOCKETS"
4291 $! This is VMS-specific for now
4292 $ WC "#''perl_d_setenv' HAS_SETENV"
4293 $ IF d_secintgenv THEN WC "#define SECURE_INTERNAL_GETENV"
4294 $ if d_alwdeftype THEN WC "#define ALWAYS_DEFTYPES"
4297 $ WC "#define USE_64_BIT_INT"
4298 $ WC "#define USE_LONG_DOUBLE"
4300 $ IF use64bitall THEN WC "#define USE_64_BIT_ALL"
4301 $ IF be_case_sensitive THEN WC "#define VMS_WE_ARE_CASE_SENSITIVE"
4302 $ if perl_d_herrno .eqs. "undef"
4304 $ WC "#define NEED_AN_H_ERRNO"
4306 $ WC "#define HAS_ENVGETENV"
4307 $ WC "#define PERL_EXTERNAL_GLOB"
4310 $! Now build the normal config.h
4311 $ define/user sys$output [-]config.main
4312 $ mcr []munchconfig [-]config.sh [-]config_h.sh
4313 $ ! Concatenate them together
4314 $ copy [-]config.local,[-]config.main [-]config.h
4316 $ DELETE/NOLOG [-]CONFIG.MAIN;*
4317 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
4318 $ DELETE/NOLOG [-]CONFIG.FDL;*
4322 $ DECC_REPLACE = "DECC=decc=1"
4324 $ DECC_REPLACE = "DECC="
4328 $ GNUC_REPLACE = "GNUC=gnuc=1"
4330 $ GNUC_REPLACE = "GNUC="
4332 $ IF Has_Dec_C_Sockets
4334 $ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
4338 $ SOCKET_REPLACE = "SOCKET=SOCKETSHR_SOCKETS=1"
4340 $ SOCKET_REPLACE = "SOCKET="
4345 $ IF (VMS_VER .LES. "6.2")
4347 $ THREAD_REPLACE = "THREAD=OLDTHREADED=1"
4349 $ THREAD_REPLACE = "THREAD=THREADED=1"
4352 $ THREAD_REPLACE = "THREAD="
4356 $ MALLOC_REPLACE = "MALLOC=MALLOC=1"
4358 $ MALLOC_REPLACE = "MALLOC="
4360 $ echo "Extracting ''defmakefile' (with variable substitutions)"
4362 $ define/user sys$output 'UUmakefile
4363 $ mcr []munchconfig [-]config.sh descrip_mms.template "''DECC_REPLACE'" "''ARCH_TYPE'" "''GNUC_REPLACE'" "''SOCKET_REPLACE'" "''THREAD_REPLACE'" -
4364 "''C_Compiler_Replace'" "''MALLOC_REPLACE'" "''Thread_Live_Dangerously'" "PV=''version'" "FLAGS=FLAGS=''extra_flags'"
4365 $ echo "Extracting Build_Ext.Com (without variable substitutions)"
4366 $ Create Sys$Disk:[-]Build_Ext.Com
4367 $ Deck/Dollar="$EndOfTpl$"
4369 $! NOTE: This file is extracted as part of the VMS configuration process.
4370 $! Any changes made to it directly will be lost. If you need to make any
4371 $! changes, please edit the template in [.vms]SubConfigure.Com instead.
4372 $ def = F$Environment("Default")
4373 $ exts1 = F$Edit(p1,"Compress")
4374 $ p2 = F$Edit(p2,"Upcase,Compress,Trim")
4375 $ If F$Locate("MCR ",p2).eq.0 Then p2 = F$Extract(3,255,p2)
4376 $ miniperl = "$" + F$Search(F$Parse(p2,".Exe"))
4378 $ if f$type('p3') .nes. "" then makeutil = 'p3'
4379 $ targ = F$Edit(p4,"Lowercase")
4382 $ ext = F$Element(i," ",p1)
4383 $ If ext .eqs. " " Then Goto done
4384 $ Define/User Perl_Env_Tables CLISYM_LOCAL
4386 ($extdir = $ENV{'ext'}) =~ s/::/./g;
4388 if ($extdir =~ /^vms/i) { $extdir =~ s/vms/.vms.ext/i; }
4389 else { $extdir = ".ext.$extdir"; }
4390 ($ENV{'extdir'} = "[$extdir]");
4391 ($ENV{'up'} = ('-') x ($extdir =~ tr/././));
4392 $ Set Default &extdir
4394 $ If F$Locate("clean",targ) .eqs. F$Length(targ)
4396 $ Write Sys$Output "Building ''ext' . . ."
4397 $ On Error Then Goto done
4398 $ If F$Search("Descrip.MMS") .eqs. ""
4402 $ If F$CvTime(F$File("Descrip.MMS","rdt")) .lts. -
4403 F$CvTime(F$File("Makefile.PL","rdt")) Then redesc = 1
4406 $ Write Sys$Output "''targ'ing ''ext' . . ."
4407 $ On Error Then Continue
4410 miniperl "-I[''up'.lib]" Makefile.PL "INST_LIB=[''up'.lib]" "INST_ARCHLIB=[''up'.lib]"
4424 $! Clean up after ourselves
4425 $ DELETE/NOLOG/NOCONFIRM munchconfig.exe;
4426 $ DELETE/NOLOG/NOCONFIRM munchconfig.obj;