1 $! SUBCONFIGURE.COM - build a config.sh for VMS Perl.
3 $! Note for folks from other platforms changing things in here:
4 $! Fancy changes (based on compiler capabilities or VMS version or
5 $! whatever) are tricky, so go ahead and punt on those.
7 $! Simple changes, though (say, always setting something to 1, or undef,
8 $! or something like that) are straightforward. Adding a new item for the
9 $! ultimately created config.sh requires adding two lines to this file.
11 $! First, a line in the format:
13 $! after the line tagged ##ADD NEW CONSTANTS HERE##. Replace foo with the
14 $! variable name as it appears in config.sh.
16 $! Second, add a line in the format:
17 $! $ WC "foo='" + perl_foo + "'"
18 $! after the line tagged ##WRITE NEW CONSTANTS HERE##. Careful of the
19 $! quoting, as it can be tricky.
21 $! This .COM file expects to be called by configure.com, and thus expects
22 $! a few symbols in the environment. Notably:
24 $! One of: Using_Dec_C, Using_Vax_C, Using_Gnu_C set to "YES"
25 $! Dec_C_Version set to the Dec C version (defaults to 0 if not specified)
26 $! Has_Socketshr set to "T" if using socketshr
27 $! Has_Dec_C_Sockets set to "T" if using Dec C sockets
28 $! Use_Threads set to "T" if they're using threads
29 $! C_Compiler_Invoke is the command needed to invoke the C compiler
31 $! Set Dec_C_Version to something
32 $ WRITE_RESULT := "WRITE SYS$OUTPUT ""%CONFIG-I-RESULT "" + "
33 $ Dec_C_Version := "''Dec_C_Version'"
34 $ Dec_C_Version = Dec_C_Version + 0
35 $ Vms_Ver := "''f$extract(1,3, f$getsyi(""version""))'"
36 $ perl_extensions := "''extensions'"
37 $ if f$length(Mcc) .eq. 0 then Mcc := "cc"
38 $ MCC = f$edit(mcc, "UPCASE")
41 $ C_Compiler_Replace := "CC="
43 $ C_Compiler_Replace := "CC=CC=''Mcc'"
45 $ if "''Using_Dec_C'" .eqs. "Yes"
47 $ Checkcc := "''Mcc'/prefix=all"
52 $ if use_multiplicity .eqs. "Y"
54 $ perl_usemultiplicity = "define"
56 $ perl_usemultiplicity = "undef"
58 $! Some constant defaults.
60 $ hwname = f$getsyi("HW_NAME")
62 $ if "''myname'" .eqs. "" THEN myname = f$trnlnm("SYS$NODE")
64 $! ##ADD NEW CONSTANTS HERE##
65 $ perl_d_madvise="undef"
66 $ perl_d_msync="undef"
67 $ perl_d_mprotect="undef"
68 $ perl_d_munmap="undef"
70 $ perl_i_sysmman="undef"
71 $ perl_d_telldirproto="define"
72 $ perl_i_sysmount="undef"
73 $ perl_d_fstatfs="undef"
74 $ perl_d_fstatvfs="undef"
75 $ perl_d_statfsflags="undef"
76 $ perl_i_sysstatvfs="undef"
77 $ perl_i_mntent="undef"
78 $ perl_d_getmntent="undef"
79 $ perl_d_hasmntopt="undef"
80 $ perl_package="''package'"
81 $ perl_baserev = "''baserev'"
84 $ perl_d_fseeko="undef"
85 $ perl_d_ftello="undef"
86 $ perl_d_readv="undef"
87 $ perl_d_writev="undef"
88 $ perl_i_machcthr="undef"
89 $ perl_i_netdb="undef"
90 $ perl_d_gnulibc="undef"
91 $ perl_cf_by="unknown"
95 $ perl_drand01 = "random()"
96 $ perl_randseedtype = "unsigned int"
97 $ perl_seedfunc = "srand"
98 $ perl_d_msg_ctrunc = "undef"
99 $ perl_d_msg_dontroute = "undef"
100 $ perl_d_msg_oob = "undef"
101 $ perl_d_msg_peek = "undef"
102 $ perl_d_msg_proxy = "undef"
103 $ perl_d_scm_rights = "undef"
104 $ perl_d_sendmsg = "undef"
105 $ perl_d_recvmsg = "undef"
106 $ perl_d_msghdr_s = "undef"
107 $ perl_d_cmsghdr_s = "undef"
108 $ perl_d_dbminit64 = "undef"
109 $ perl_d_dbmclose64 = "undef"
110 $ perl_d_fetch64 = "undef"
111 $ perl_d_store64 = "undef"
112 $ perl_d_delete64 = "undef"
113 $ perl_d_firstkey64 = "undef"
114 $ perl_d_nextkey64 = "undef"
115 $ perl_d_fstat64 = "undef"
116 $ perl_d_ftruncate64 = "undef"
117 $ perl_d_lseek64 = "undef"
118 $ perl_d_lstat64 = "undef"
119 $ perl_d_open64 = "undef"
120 $ perl_d_opendir64 = "undef"
121 $ perl_d_readdir64 = "undef"
122 $ perl_d_seekdir64 = "undef"
123 $ perl_d_stat64 = "undef"
124 $ perl_d_telldir64 = "undef"
125 $ perl_d_truncate64 = "undef"
126 $ perl_d_dirent64_s = "undef"
127 $ perl_d_fgetpos64 = "undef"
128 $ perl_d_fopen64 = "undef"
129 $ perl_d_freopen64 = "undef"
130 $ perl_d_fseek64 = "undef"
131 $ perl_d_fseeko64 = "undef"
132 $ perl_d_fsetpos64 = "undef"
133 $ perl_d_ftell64 = "undef"
134 $ perl_d_ftello64 = "undef"
135 $ perl_d_tmpfile64 = "undef"
136 $ perl_use64bits = "undef"
137 $ perl_d_drand48proto = "define"
138 $ perl_libpth="/sys$share /sys$library"
140 $ perl_lddlflags="/Share"
145 $ perl_i_arpainet="undef"
146 $ perl_d_grpasswd="undef"
147 $ perl_d_setgrent="undef"
148 $ perl_d_getgrent="define"
149 $ perl_d_endgrent="define"
150 $ perl_d_pwpasswd="define"
151 $ perl_d_setpwent="define"
152 $ perl_d_getpwent="define"
153 $ perl_d_endpwent="define"
154 $ perl_d_phostname="undef"
155 $ perl_d_accessx="undef"
156 $ perl_d_eaccess="undef"
157 $ perl_ebcdic="undef"
159 $ perl_shrplib="define"
160 $ perl_usemymalloc=mymalloc
161 $ perl_usevfork="true"
162 $ perl_useposix="false"
163 $ perl_spitshell="write sys$output "
164 $ perl_dlsrc="dl_vms.c"
167 $ perl_prefix="perl_root"
168 $ perl_binexp="''perl_prefix':[000000]"
169 $ perl_builddir="''perl_prefix':[000000]"
170 $ perl_installbin="''perl_prefix':[000000]"
171 $ perl_installscript="''perl_prefix':[utils]"
172 $ perl_installman1dir="''perl_prefix':[man.man1]"
173 $ perl_installman3dir="''perl_prefix':[man.man3]"
174 $ perl_installprivlib="''perl_prefix':[lib]"
175 $ perl_installsitelib="''perl_prefix':[lib.site_perl]"
178 $ perl_d_sockpair="undef"
179 $ perl_i_neterrno="define"
180 $ perl_ldflags="/NoTrace/NoMap"
181 $ perl_d_lchown="undef"
182 $ perl_d_mknod="undef"
183 $ perl_d_union_semun="undef"
184 $ perl_d_semctl_semun="undef"
185 $ perl_d_semctl_semid_ds="undef"
186 $ IF (sharedperl.EQS."Y")
188 $ perl_obj_ext=".abj"
191 $ perl_exe_ext=".axe"
192 $ perl_lib_ext=".alb"
194 $ perl_obj_ext=".obj"
197 $ perl_exe_ext=".exe"
198 $ perl_lib_ext=".olb"
200 $ perl_dlobj="dl_vms''perl_obj_ext'"
202 $ perl_d_archlib="define"
203 $ perl_d_bincompat3="undef"
204 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
206 $ perl_d_castneg="define"
208 $ perl_d_chsize="undef"
209 $ perl_d_const="define"
210 $ perl_d_crypt="define"
211 $ perl_byteorder="1234"
214 $ perl_d_dup2="define"
215 $ perl_d_fchmod="undef"
216 $ perl_d_fchown="undef"
217 $ perl_d_fcntl="undef"
218 $ perl_d_fgetpos="define"
219 $ perl_d_flexfnam="define"
220 $ perl_d_flock="undef"
221 $ perl_d_fsetpos="define"
222 $ perl_d_getgrps="undef"
223 $ perl_d_setgrps="undef"
224 $ perl_d_getprior="undef"
225 $ perl_d_killpg="undef"
226 $ perl_d_link="undef"
227 $ perl_d_lstat="undef"
228 $ perl_d_lockf="undef"
229 $ perl_d_memcmp="define"
230 $ perl_d_memcpy="define"
231 $ perl_d_memmove="define"
232 $ perl_d_memset="define"
233 $ perl_d_mkdir="define"
235 $ perl_d_open3="define"
236 $ perl_d_poll="undef"
237 $ perl_d_readdir="define"
238 $ perl_d_seekdir="define"
239 $ perl_d_telldir="define"
240 $ perl_d_rewinddir="define"
241 $ perl_d_rename="define"
242 $ perl_d_rmdir="define"
244 $ perl_d_setegid="undef"
245 $ perl_d_seteuid="undef"
246 $ perl_d_setprior="undef"
247 $ perl_d_setregid="undef"
248 $ perl_d_setresgid="undef"
249 $ perl_d_setreuid="undef"
250 $ perl_d_setresuid="undef"
251 $ perl_d_setrgid="undef"
252 $ perl_d_setruid="undef"
253 $ perl_d_setsid="undef"
255 $ perl_d_shmatprototype="undef"
256 $ perl_d_statblks="undef"
257 $ perl_stdio_ptr="((*fp)->_ptr)"
258 $ perl_stdio_cnt="((*fp)->_cnt)"
259 $ perl_stdio_base="((*fp)->_base)"
260 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
261 $ perl_d_strctcpy="define"
262 $ perl_d_strerror="define"
263 $ perl_d_syserrlst="undef"
264 $ perl_d_strerrm="strerror((e),vaxc$errno)"
265 $ perl_d_symlink="undef"
266 $ perl_d_syscall="undef"
267 $ perl_d_system="define"
268 $ perl_timetype="time_t"
269 $ perl_d_vfork="define"
270 $ perl_signal_t="void"
271 $ perl_d_volatile="define"
272 $ perl_d_vprintf="define"
273 $ perl_d_charvspr="undef"
274 $ perl_d_waitpid="define"
275 $ perl_i_dirent="undef"
276 $ perl_d_dirnamlen="define"
277 $ perl_direntrytype="struct dirent"
278 $ perl_i_fcntl="undef"
280 $ perl_i_limits="define"
281 $ perl_i_memory="undef"
282 $ perl_i_ndbm="undef"
283 $ perl_i_stdarg="define"
285 $ perl_d_pwquota="undef"
286 $ perl_d_pwage="undef"
287 $ perl_d_pwchange="undef"
288 $ perl_d_pwclass="undef"
289 $ perl_d_pwexpire="undef"
290 $ perl_d_pwcomment="define"
291 $ perl_i_stddef="define"
292 $ perl_i_stdlib="define"
293 $ perl_i_string="define"
294 $ perl_i_sysdir="undef"
295 $ perl_i_sysfile="undef"
296 $ perl_i_sysioctl="undef"
297 $ perl_i_sysndir="undef"
298 $ perl_i_sysresrc="undef"
299 $ perl_i_sysselct="undef"
301 $ perl_i_rpcsvcdbm="undef"
302 $ perl_i_sfio="undef"
303 $ perl_i_sysstat="define"
304 $ perl_i_systimes="undef"
305 $ perl_i_systypes="define"
306 $ perl_i_sysun="undef"
307 $ perl_i_syswait="undef"
308 $ perl_i_termio="undef"
309 $ perl_i_sgtty="undef"
310 $ perl_i_termios="undef"
311 $ perl_i_time="define"
312 $ perl_i_systime="undef"
313 $ perl_i_systimek="undef"
314 $! perl_i_unistd="undef"
315 $ perl_i_utime="undef"
316 $ perl_i_varargs="undef"
317 $ perl_i_vfork="undef"
318 $ perl_prototype="define"
320 $ perl_stdchar="char"
321 $ perl_d_unlink_all_versions="undef"
322 $ perl_full_sed="_NLA0:"
323 $ perl_bin="/''perl_prefix'/000000"
324 $ perl_binexp="''perl_prefix':[000000]"
325 $ perl_d_alarm="define"
326 $ perl_d_casti32="define"
327 $ perl_d_chown="define"
328 $ perl_d_chroot="undef"
329 $ perl_d_cuserid="define"
330 $ perl_d_dbl_dig="define"
331 $ perl_d_difftime="define"
332 $ perl_d_fork="undef"
333 $ perl_d_getlogin="define"
334 $ perl_d_getppid="undef"
335 $ perl_d_nice="define"
336 $ perl_d_pause="define"
337 $ perl_d_pipe="define"
338 $ perl_d_readlink="undef"
339 $ perl_d_setlinebuf="undef"
340 $ perl_d_strchr="define"
341 $ perl_d_strtod="define"
342 $ perl_d_strtol="define"
343 $ perl_d_strtoul="define"
344 $ perl_d_tcgetpgrp="undef"
345 $ perl_d_tcsetpgrp="undef"
346 $ perl_d_times="define"
347 $ perl_d_tzname="undef"
348 $ perl_d_umask="define"
349 $ perl_fpostype="fpos_t"
350 $ perl_i_dlfcn="undef"
351 $ perl_i_float="define"
352 $ perl_i_math="define"
353 $ perl_lseektype="int"
354 $ perl_i_values="undef"
355 $ perl_malloctype="void *"
356 $ perl_freetype="void"
357 $ if "''mymalloc'".eqs."Y"
359 $ perl_d_mymalloc="define"
361 $ perl_d_mymalloc="undef"
364 $ perl_modetype="unsigned int"
365 $ perl_ssizetype="int"
369 $ perl_d_eofnblk="undef"
370 $ perl_d_oldarchlib="define"
371 $ perl_privlibexp="''perl_prefix':[lib]"
372 $ perl_privlib="''perl_prefix':[lib]"
373 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
374 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
375 $ perl_sizetype="size_t"
376 $ perl_i_sysparam="undef"
377 $ perl_d_void_closedir="define"
378 $ perl_d_dlerror="undef"
379 $ perl_d_dlsymun="undef"
380 $ perl_d_suidsafe="undef"
381 $ perl_d_dosuid="undef"
382 $ perl_d_inetaton="undef"
383 $ perl_d_isascii="define"
384 $ perl_d_mkfifo="undef"
385 $ perl_d_safebcpy="undef"
386 $ perl_d_safemcpy="define"
387 $ perl_d_sanemcmp="define"
388 $ perl_d_setpgrp="undef"
389 $ perl_d_bsdsetpgrp="undef"
390 $ perl_d_bsdpgrp="undef"
391 $ perl_d_setpgid="undef"
392 $ perl_d_setpgrp2="undef"
393 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
394 $ perl_d_getpgid="undef"
395 $ perl_d_getpgrp="undef"
396 $ perl_d_bsdgetpgrp="undef"
397 $ perl_d_getpgrp2="undef"
398 $ perl_d_sfio="undef"
399 $ perl_usedl="define"
400 $ perl_startperl="""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ + ++$status != 0 and $exit = $status = undef;"""
401 $ perl_db_hashtype=""
402 $ perl_db_prefixtype=""
403 $ perl_useperlio="undef"
404 $ perl_defvoidused="15"
405 $ perl_voidflags="15"
406 $ perl_d_eunice="undef"
407 $ perl_d_pwgecos="define"
408 $ IF ("''Use_Threads'".eqs."T").and.("''VMS_VER'".LES."6.2")
410 $ 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"
414 $ IF ("''Using_Dec_C'".eqs."Yes")
416 $ perl_libc="(DECCRTL)"
420 $ perl_PATCHLEVEL="''patchlevel'"
421 $ perl_SUBVERSION="''subversion'"
425 $! Now some that we build up
427 $ LocalTime = f$time()
428 $ perl_cf_time= f$extract(0, 3, f$cvtime(LocalTime,, "WEEKDAY")) + " " + -
429 f$edit(f$cvtime(LocalTime, "ABSOLUTE", "MONTH"), "LOWERCASE") + -
430 " " + f$cvtime(LocalTime,, "DAY") + " " + f$cvtime(LocalTime,, "TIME") + -
431 " " + f$cvtime(LocalTime,, "YEAR")
432 $ if f$getsyi("HW_MODEL").ge.1024
434 $ perl_arch="VMS_AXP"
435 $ perl_archname="VMS_AXP"
436 $ perl_alignbytes="8"
438 $ perl_arch="VMS_VAX"
439 $ perl_archname="VMS_VAX"
440 $ perl_alignbytes="8"
442 $ if ("''Use_Threads'".eqs."T")
444 $ perl_arch = "''perl_arch'-thread"
445 $ perl_archname = "''perl_archname'-thread"
447 $ perl_d_pthread_create_joinable = "undef"
448 $ perl_pthread_create_joinable = ""
450 $ perl_osvers=f$edit(osvers, "TRIM")
451 $ if (perl_subversion + 0).eq.0
453 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL
455 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion
458 $! Some that we need to invoke the compiler for
459 $ OS := "open/write SOURCECHAN []temp.c"
460 $ WS := "write SOURCECHAN"
461 $ CS := "close SOURCECHAN"
462 $ DS := "delete/nolog []temp.*;*"
464 $ if ("''using_vax_c'".eqs."Yes").or.("''using_gnu_c'".eqs."Yes")
466 $ open/write OPTCHAN []temp.opt
467 $ IF ("''using_gnu_c'".eqs."Yes")
469 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
471 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
476 $! Check for __STDC__
480 $ WS "#include <stdlib.h>
482 $ WS "#include <stdio.h>
485 $ WS "#ifdef __STDC__
486 $ WS "printf(""42\n"");
488 $ WS "printf(""1\n"");
493 $ DEFINE SYS$ERROR _NLA0:
494 $ DEFINE SYS$OUTPUT _NLA0:
495 $ ON ERROR THEN CONTINUE
496 $ ON WARNING THEN CONTINUE
498 $ If (Needs_Opt.eqs."Yes")
500 $ link temp.obj,temp.opt/opt
504 $ DEASSIGN SYS$OUTPUT
506 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
507 $ DEFINE SYS$ERROR TEMPOUT
508 $ DEFINE SYS$OUTPUT TEMPOUT
511 $ DEASSIGN SYS$OUTPUT
513 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
517 $ perl_cpp_stuff=line
518 $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
520 $! Check for double size
524 $ WS "#include <stdlib.h>
526 $ WS "#include <stdio.h>
530 $ WS "foo = sizeof(double);
531 $ WS "printf(""%d\n"", foo);
535 $ DEFINE SYS$ERROR _NLA0:
536 $ DEFINE SYS$OUTPUT _NLA0:
537 $ ON ERROR THEN CONTINUE
538 $ ON WARNING THEN CONTINUE
540 $ If (Needs_Opt.eqs."Yes")
542 $ link temp.obj,temp.opt/opt
547 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
548 $ DEASSIGN SYS$OUTPUT
550 $ DEFINE SYS$ERROR TEMPOUT
551 $ DEFINE SYS$OUTPUT TEMPOUT
554 $ DEASSIGN SYS$OUTPUT
556 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
560 $ perl_doublesize=line
561 $ WRITE_RESULT "doublesize is ''perl_doublesize'"
563 $! Check for long double size
567 $ WS "#include <stdlib.h>
569 $ WS "#include <stdio.h>
572 $ WS "printf(""%d\n"", sizeof(long double));
576 $ DEFINE SYS$ERROR _NLA0:
577 $ DEFINE SYS$OUTPUT _NLA0:
578 $ ON ERROR THEN CONTINUE
579 $ ON WARNING THEN CONTINUE
581 $ teststatus = f$extract(9,1,$status)
582 $ if (teststatus.nes."1")
584 $ perl_longdblsize="0"
585 $ perl_d_longdbl="undef"
587 $ ON ERROR THEN CONTINUE
588 $ ON WARNING THEN CONTINUE
589 $ If (Needs_Opt.eqs."Yes")
591 $ link temp.obj,temp.opt/opt
595 $ teststatus = f$extract(9,1,$status)
596 $ DEASSIGN SYS$OUTPUT
598 $ if (teststatus.nes."1")
600 $ perl_longdblsize="0"
601 $ perl_d_longdbl="undef"
603 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
604 $ DEFINE SYS$ERROR TEMPOUT
605 $ DEFINE SYS$OUTPUT TEMPOUT
608 $ DEASSIGN SYS$OUTPUT
610 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
614 $ perl_longdblsize=line
615 $ perl_d_longdbl="define"
618 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
619 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
621 $! Check for long long existance and size
625 $ WS "#include <stdlib.h>
627 $ WS "#include <stdio.h>
630 $ WS "printf(""%d\n"", sizeof(long long));
634 $ DEFINE SYS$ERROR _NLA0:
635 $ DEFINE SYS$OUTPUT _NLA0:
636 $ on error then continue
637 $ on warning then continue
639 $ If (Needs_Opt.eqs."Yes")
641 $ link temp.obj,temp.opt/opt
645 $ teststatus = f$extract(9,1,$status)
646 $ DEASSIGN SYS$OUTPUT
648 $ if (teststatus.nes."1")
650 $ perl_longlongsize="0"
651 $ perl_d_longlong="undef"
653 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
654 $ DEFINE SYS$ERROR TEMPOUT
655 $ DEFINE SYS$OUTPUT TEMPOUT
658 $ DEASSIGN SYS$OUTPUT
660 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
664 $ perl_longlongsize=line
665 $ perl_d_longlong="define"
667 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
668 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
670 $! Check for int size
674 $ WS "#include <stdlib.h>
676 $ WS "#include <stdio.h>
679 $ WS "printf(""%d\n"", sizeof(int));
683 $ DEFINE SYS$ERROR _NLA0:
684 $ DEFINE SYS$OUTPUT _NLA0:
685 $ on error then continue
686 $ on warning then continue
688 $ If (Needs_Opt.eqs."Yes")
690 $ link temp.obj,temp.opt/opt
694 $ If (Needs_Opt.eqs."Yes")
696 $ link temp.obj,temp.opt/opt
700 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
701 $ DEASSIGN SYS$OUTPUT
703 $ DEFINE SYS$ERROR TEMPOUT
704 $ DEFINE SYS$OUTPUT TEMPOUT
707 $ DEASSIGN SYS$OUTPUT
709 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
714 $ WRITE_RESULT "intsize is ''perl_intsize'"
716 $! Check for short size
720 $ WS "#include <stdlib.h>
722 $ WS "#include <stdio.h>
725 $ WS "printf(""%d\n"", sizeof(short));
729 $ DEFINE SYS$ERROR _NLA0:
730 $ DEFINE SYS$OUTPUT _NLA0:
731 $ on error then continue
732 $ on warning then continue
734 $ If (Needs_Opt.eqs."Yes")
736 $ link temp.obj,temp.opt/opt
740 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
741 $ DEASSIGN SYS$OUTPUT
743 $ DEFINE SYS$ERROR TEMPOUT
744 $ DEFINE SYS$OUTPUT TEMPOUT
747 $ DEASSIGN SYS$OUTPUT
749 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
753 $ perl_shortsize=line
754 $ WRITE_RESULT "shortsize is ''perl_shortsize'"
756 $! Check for long size
760 $ WS "#include <stdlib.h>
762 $ WS "#include <stdio.h>
766 $ WS "foo = sizeof(long);
767 $ WS "printf(""%d\n"", foo);
771 $ DEFINE SYS$ERROR _NLA0:
772 $ DEFINE SYS$OUTPUT _NLA0:
773 $ on error then continue
774 $ on warning then continue
776 $ If (Needs_Opt.eqs."Yes")
778 $ link temp.obj,temp.opt/opt
782 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
783 $ DEASSIGN SYS$OUTPUT
785 $ DEFINE SYS$ERROR TEMPOUT
786 $ DEFINE SYS$OUTPUT TEMPOUT
789 $ DEASSIGN SYS$OUTPUT
791 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
796 $ WRITE_RESULT "longsize is ''perl_longsize'"
798 $! Check the prototype for getgid
802 $ WS "#include <stdlib.h>
804 $ WS "#include <stdio.h>
805 $ WS "#include <types.h>
806 $ WS "#include <unistd.h>
813 $ DEFINE SYS$ERROR _NLA0:
814 $ DEFINE SYS$OUTPUT _NLA0:
815 $ on error then continue
816 $ on warning then continue
818 $ teststatus = f$extract(9,1,$status)
819 $ DEASSIGN SYS$OUTPUT
821 $ if (teststatus.nes."1")
823 $! Okay, gid_t failed. Must be unsigned int
824 $ perl_gidtype = "unsigned int"
826 $ perl_gidtype = "gid_t"
828 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
830 $! Check to see if we've got dev_t
834 $ WS "#include <stdlib.h>
836 $ WS "#include <stdio.h>
837 $ WS "#include <types.h>
838 $ WS "#include <unistd.h>
845 $ DEFINE SYS$ERROR _NLA0:
846 $ DEFINE SYS$OUTPUT _NLA0:
847 $ on error then continue
848 $ on warning then continue
850 $ teststatus = f$extract(9,1,$status)
851 $ DEASSIGN SYS$OUTPUT
853 $ if (teststatus.nes."1")
855 $! Okay, dev_t failed. Must be unsigned int
856 $ perl_devtype = "unsigned int"
858 $ perl_devtype = "dev_t"
860 $ WRITE_RESULT "Dev_t is ''perl_devtype'"
862 $! Check to see if we've got unistd.h (which we ought to, but you never know)
866 $ WS "#include <stdlib.h>
868 $ WS "#include <unistd.h>
874 $ DEFINE SYS$ERROR _NLA0:
875 $ DEFINE SYS$OUTPUT _NLA0:
876 $ on error then continue
877 $ on warning then continue
879 $ teststatus = f$extract(9,1,$status)
880 $ DEASSIGN SYS$OUTPUT
882 $ if (teststatus.nes."1")
884 $! Okay, failed. Must not have it
885 $ perl_i_unistd = "undef"
887 $ perl_i_unistd = "define"
890 $ WRITE_RESULT "i_unistd is ''perl_i_unistd'"
892 $! Check the prototype for select
894 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
898 $ WS "#include <stdlib.h>
900 $ WS "#include <stdio.h>
901 $ WS "#include <types.h>
902 $ WS "#include <unistd.h>
903 $ if ("''Has_Socketshr'".eqs."T")
905 $ WS "#include <socketshr.h>"
907 $ WS "#include <time.h>
908 $ WS "#include <socket.h>
915 $ WS "bar = select(2, foo, foo, foo, NULL);
919 $ DEFINE SYS$ERROR _NLA0:
920 $ DEFINE SYS$OUTPUT _NLA0:
921 $ on error then continue
922 $ on warning then continue
924 $ teststatus = f$extract(9,1,$status)
925 $ DEASSIGN SYS$OUTPUT
927 $ if (teststatus.nes."1")
929 $! Okay, fd_set failed. Must be an int
930 $ perl_selecttype = "int *"
932 $ perl_selecttype="fd_set *"
935 $ ! No sockets, so stick in an int *
936 $ perl_selecttype = "int *"
938 $ WRITE_RESULT "selectype is ''perl_selecttype'"
940 $! Check to see if fd_set exists
944 $ WS "#include <stdlib.h>
946 $ WS "#include <stdio.h>
947 $ WS "#include <types.h>
948 $ WS "#include <unistd.h>
949 $ if ("''Has_Socketshr'".eqs."T")
951 $ WS "#include <socketshr.h>"
953 $ IF ("''Has_Dec_C_Sockets'".eqs."T")
955 $ WS "#include <time.h>
956 $ WS "#include <socket.h>
965 $ DEFINE SYS$ERROR _NLA0:
966 $ DEFINE SYS$OUTPUT _NLA0:
967 $ on error then continue
968 $ on warning then continue
970 $ teststatus = f$extract(9,1,$status)
971 $ DEASSIGN SYS$OUTPUT
973 $ if (teststatus.nes."1")
975 $! Okay, fd_set failed. Must not exist
976 $ perl_d_fd_set = "undef"
978 $ perl_d_fd_set="define"
980 $ WRITE_RESULT "d_fd_set is ''perl_d_fd_set'"
982 $! Check for inttypes.h
986 $ WS "#include <stdlib.h>
988 $ WS "#include <stdio.h>
989 $ WS "#include <unistd.h>
990 $ WS "#include <inttypes.h>
996 $ DEFINE SYS$ERROR _NLA0:
997 $ DEFINE SYS$OUTPUT _NLA0:
998 $ on error then continue
999 $ on warning then continue
1001 $ savedstatus = $status
1002 $ teststatus = f$extract(9,1,savedstatus)
1003 $ if (teststatus.nes."1")
1005 $ perl_i_inttypes="undef"
1006 $ DEASSIGN SYS$OUTPUT
1007 $ DEASSIGN SYS$ERROR
1009 $ If (Needs_Opt.eqs."Yes")
1011 $ link temp.obj,temp.opt/opt
1015 $ savedstatus = $status
1016 $ teststatus = f$extract(9,1,savedstatus)
1017 $ DEASSIGN SYS$OUTPUT
1018 $ DEASSIGN SYS$ERROR
1019 $ if (teststatus.nes."1")
1021 $ perl_i_inttypes="undef"
1023 $ perl_i_inttypes="define"
1026 $ WRITE_RESULT "i_inttypes is ''perl_i_inttypes'"
1028 $! Check to see if int64_t exists
1032 $ WS "#include <stdlib.h>
1034 $ WS "#include <stdio.h>
1035 $ WS "#include <types.h>
1036 $ WS "#''perl_i_inttypes IIH
1038 $ WS "#include <inttypes.h>
1040 $ WS "#include <unistd.h>
1047 $ DEFINE SYS$ERROR _NLA0:
1048 $ DEFINE SYS$OUTPUT _NLA0:
1049 $ on error then continue
1050 $ on warning then continue
1052 $ teststatus = f$extract(9,1,$status)
1053 $ DEASSIGN SYS$OUTPUT
1054 $ DEASSIGN SYS$ERROR
1055 $ if (teststatus.nes."1")
1057 $! Okay, int64_t failed. Must not exist
1058 $ perl_d_int64t = "undef"
1060 $ perl_d_int64t="define"
1062 $ WRITE_RESULT "d_int64t is ''perl_d_int64t'"
1064 $! Check to see if off64_t exists
1068 $ WS "#include <stdlib.h>
1070 $ WS "#include <stdio.h>
1071 $ WS "#include <types.h>
1072 $ WS "#''perl_i_inttypes IIH
1074 $ WS "#include <inttypes.h>
1076 $ WS "#include <unistd.h>
1083 $ DEFINE SYS$ERROR _NLA0:
1084 $ DEFINE SYS$OUTPUT _NLA0:
1085 $ on error then continue
1086 $ on warning then continue
1088 $ teststatus = f$extract(9,1,$status)
1089 $ DEASSIGN SYS$OUTPUT
1090 $ DEASSIGN SYS$ERROR
1091 $ if (teststatus.nes."1")
1093 $! Okay, off64_t failed. Must not exist
1094 $ perl_d_off64t = "undef"
1096 $ perl_d_off64t="define"
1098 $ WRITE_RESULT "d_off64t is ''perl_d_off64t'"
1100 $! Check to see if gethostname exists
1102 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1106 $ WS "#include <stdlib.h>
1108 $ WS "#include <stdio.h>
1109 $ WS "#include <types.h>
1110 $ WS "#include <unistd.h>
1111 $ if ("''Has_Socketshr'".eqs."T")
1113 $ WS "#include <socketshr.h>"
1115 $ WS "#include <time.h>
1116 $ WS "#include <socket.h>
1120 $ WS "char name[100];
1123 $ WS "baz = gethostname(name, bar);
1127 $ DEFINE SYS$ERROR _NLA0:
1128 $ DEFINE SYS$OUTPUT _NLA0:
1129 $ on error then continue
1130 $ on warning then continue
1132 $ teststatus = f$extract(9,1,$status)
1133 $ DEASSIGN SYS$OUTPUT
1134 $ DEASSIGN SYS$ERROR
1135 $ if (teststatus.nes."1")
1137 $! Okay, compile failed. Must not have it
1138 $ perl_dgethname = "undef"
1140 $ If (Needs_Opt.eqs."Yes")
1142 $ link temp.obj,temp.opt/opt
1146 $ savedstatus = $status
1147 $ teststatus = f$extract(9,1,savedstatus)
1148 $ if (teststatus.nes."1")
1150 $ perl_d_gethname="undef"
1152 $ perl_d_gethname="define"
1156 $ ! No sockets, so no gethname
1157 $ perl_d_gethname = "undef"
1159 $ WRITE_RESULT "d_gethname is ''perl_d_gethname'"
1161 $! Check for sys/file.h
1165 $ WS "#include <stdlib.h>
1167 $ WS "#include <stdio.h>
1168 $ WS "#include <unistd.h>
1169 $ WS "#include <sys/file.h>
1175 $ DEFINE SYS$ERROR _NLA0:
1176 $ DEFINE SYS$OUTPUT _NLA0:
1177 $ on error then continue
1178 $ on warning then continue
1180 $ savedstatus = $status
1181 $ teststatus = f$extract(9,1,savedstatus)
1182 $ if (teststatus.nes."1")
1184 $ perl_i_sysfile="undef"
1185 $ DEASSIGN SYS$OUTPUT
1186 $ DEASSIGN SYS$ERROR
1188 $ If (Needs_Opt.eqs."Yes")
1190 $ link temp.obj,temp.opt/opt
1194 $ savedstatus = $status
1195 $ teststatus = f$extract(9,1,savedstatus)
1196 $ DEASSIGN SYS$OUTPUT
1197 $ DEASSIGN SYS$ERROR
1198 $ if (teststatus.nes."1")
1200 $ perl_i_sysfile="undef"
1202 $ perl_i_sysfile="define"
1205 $ WRITE_RESULT "i_sysfile is ''perl_i_sysfile'"
1211 $ WS "#include <stdlib.h>
1213 $ WS "#include <stdio.h>
1214 $ WS "#include <unistd.h>
1215 $ WS "#include <poll.h>
1221 $ DEFINE SYS$ERROR _NLA0:
1222 $ DEFINE SYS$OUTPUT _NLA0:
1223 $ on error then continue
1224 $ on warning then continue
1226 $ savedstatus = $status
1227 $ teststatus = f$extract(9,1,savedstatus)
1228 $ if (teststatus.nes."1")
1230 $ perl_i_poll="undef"
1231 $ DEASSIGN SYS$OUTPUT
1232 $ DEASSIGN SYS$ERROR
1234 $ If (Needs_Opt.eqs."Yes")
1236 $ link temp.obj,temp.opt/opt
1240 $ savedstatus = $status
1241 $ teststatus = f$extract(9,1,savedstatus)
1242 $ DEASSIGN SYS$OUTPUT
1243 $ DEASSIGN SYS$ERROR
1244 $ if (teststatus.nes."1")
1246 $ perl_i_poll="undef"
1248 $ perl_i_poll="define"
1251 $ WRITE_RESULT "i_poll is ''perl_i_poll'"
1253 $! Check for sys/uio.h
1257 $ WS "#include <stdlib.h>
1259 $ WS "#include <stdio.h>
1260 $ WS "#include <unistd.h>
1261 $ WS "#include <sys/uio.h>
1267 $ DEFINE SYS$ERROR _NLA0:
1268 $ DEFINE SYS$OUTPUT _NLA0:
1269 $ on error then continue
1270 $ on warning then continue
1272 $ savedstatus = $status
1273 $ teststatus = f$extract(9,1,savedstatus)
1274 $ if (teststatus.nes."1")
1276 $ perl_i_sysuio="undef"
1277 $ DEASSIGN SYS$OUTPUT
1278 $ DEASSIGN SYS$ERROR
1280 $ If (Needs_Opt.eqs."Yes")
1282 $ link temp.obj,temp.opt/opt
1286 $ savedstatus = $status
1287 $ teststatus = f$extract(9,1,savedstatus)
1288 $ DEASSIGN SYS$OUTPUT
1289 $ DEASSIGN SYS$ERROR
1290 $ if (teststatus.nes."1")
1292 $ perl_i_sysuio="undef"
1294 $ perl_i_sysuio="define"
1297 $ WRITE_RESULT "i_sysuio is ''perl_i_sysuio'"
1299 $! Check for sys/access.h
1303 $ WS "#include <stdlib.h>
1305 $ WS "#include <stdio.h>
1306 $ WS "#include <unistd.h>
1307 $ WS "#include <sys/access.h>
1313 $ DEFINE SYS$ERROR _NLA0:
1314 $ DEFINE SYS$OUTPUT _NLA0:
1315 $ on error then continue
1316 $ on warning then continue
1318 $ savedstatus = $status
1319 $ teststatus = f$extract(9,1,savedstatus)
1320 $ if (teststatus.nes."1")
1322 $ perl_i_sysaccess="undef"
1323 $ DEASSIGN SYS$OUTPUT
1324 $ DEASSIGN SYS$ERROR
1326 $ If (Needs_Opt.eqs."Yes")
1328 $ link temp.obj,temp.opt/opt
1332 $ savedstatus = $status
1333 $ teststatus = f$extract(9,1,savedstatus)
1334 $ DEASSIGN SYS$OUTPUT
1335 $ DEASSIGN SYS$ERROR
1336 $ if (teststatus.nes."1")
1338 $ perl_i_sysaccess="undef"
1340 $ perl_i_sysaccess="define"
1343 $ WRITE_RESULT "i_sysaccess is ''perl_i_sysaccess'"
1345 $! Check for sys/security.h
1349 $ WS "#include <stdlib.h>
1351 $ WS "#include <stdio.h>
1352 $ WS "#include <unistd.h>
1353 $ WS "#include <sys/security.h>
1359 $ DEFINE SYS$ERROR _NLA0:
1360 $ DEFINE SYS$OUTPUT _NLA0:
1361 $ on error then continue
1362 $ on warning then continue
1364 $ savedstatus = $status
1365 $ teststatus = f$extract(9,1,savedstatus)
1366 $ if (teststatus.nes."1")
1368 $ perl_i_syssecrt="undef"
1369 $ DEASSIGN SYS$OUTPUT
1370 $ DEASSIGN SYS$ERROR
1372 $ If (Needs_Opt.eqs."Yes")
1374 $ link temp.obj,temp.opt/opt
1378 $ savedstatus = $status
1379 $ teststatus = f$extract(9,1,savedstatus)
1380 $ DEASSIGN SYS$OUTPUT
1381 $ DEASSIGN SYS$ERROR
1382 $ if (teststatus.nes."1")
1384 $ perl_i_syssecrt="undef"
1386 $ perl_i_syssecrt="define"
1389 $ WRITE_RESULT "i_syssecrt is ''perl_i_syssecrt'"
1391 $! Check for fcntl.h
1395 $ WS "#include <stdlib.h>
1397 $ WS "#include <stdio.h>
1398 $ WS "#include <unistd.h>
1399 $ WS "#include <fcntl.h>
1405 $ DEFINE SYS$ERROR _NLA0:
1406 $ DEFINE SYS$OUTPUT _NLA0:
1407 $ on error then continue
1408 $ on warning then continue
1410 $ savedstatus = $status
1411 $ teststatus = f$extract(9,1,savedstatus)
1412 $ if (teststatus.nes."1")
1414 $ perl_i_fcntl="undef"
1415 $ DEASSIGN SYS$OUTPUT
1416 $ DEASSIGN SYS$ERROR
1418 $ If (Needs_Opt.eqs."Yes")
1420 $ link temp.obj,temp.opt/opt
1424 $ savedstatus = $status
1425 $ teststatus = f$extract(9,1,savedstatus)
1426 $ DEASSIGN SYS$OUTPUT
1427 $ DEASSIGN SYS$ERROR
1428 $ if (teststatus.nes."1")
1430 $ perl_i_fcntl="undef"
1432 $ perl_i_fcntl="define"
1435 $ WRITE_RESULT "i_fcntl is ''perl_i_fcntl'"
1441 $ WS "#include <stdlib.h>
1443 $ WS "#include <stdio.h>
1444 $ WS "#include <unistd.h>
1445 $ WS "#include <fcntl.h>
1452 $ DEFINE SYS$ERROR _NLA0:
1453 $ DEFINE SYS$OUTPUT _NLA0:
1454 $ on error then continue
1455 $ on warning then continue
1457 $ savedstatus = $status
1458 $ teststatus = f$extract(9,1,savedstatus)
1459 $ if (teststatus.nes."1")
1461 $ perl_d_fcntl="undef"
1462 $ DEASSIGN SYS$OUTPUT
1463 $ DEASSIGN SYS$ERROR
1465 $ If (Needs_Opt.eqs."Yes")
1467 $ link temp.obj,temp.opt/opt
1471 $ savedstatus = $status
1472 $ teststatus = f$extract(9,1,savedstatus)
1473 $ DEASSIGN SYS$OUTPUT
1474 $ DEASSIGN SYS$ERROR
1475 $ if (teststatus.nes."1")
1477 $ perl_d_fcntl="undef"
1479 $ perl_d_fcntl="define"
1482 $ WRITE_RESULT "d_fcntl is ''perl_d_fcntl'"
1488 $ WS "#include <stdlib.h>
1490 $ WS "#include <stdio.h>
1491 $ WS "#include <unistd.h>
1494 $ WS "access("foo", F_OK);
1498 $ DEFINE SYS$ERROR _NLA0:
1499 $ DEFINE SYS$OUTPUT _NLA0:
1500 $ on error then continue
1501 $ on warning then continue
1503 $ savedstatus = $status
1504 $ teststatus = f$extract(9,1,savedstatus)
1505 $ if (teststatus.nes."1")
1507 $ perl_d_access="undef"
1508 $ DEASSIGN SYS$OUTPUT
1509 $ DEASSIGN SYS$ERROR
1511 $ If (Needs_Opt.eqs."Yes")
1513 $ link temp.obj,temp.opt/opt
1517 $ savedstatus = $status
1518 $ teststatus = f$extract(9,1,savedstatus)
1519 $ DEASSIGN SYS$OUTPUT
1520 $ DEASSIGN SYS$ERROR
1521 $ if (teststatus.nes."1")
1523 $ perl_d_access="undef"
1525 $ perl_d_access="define"
1528 $ WRITE_RESULT "d_access is ''perl_d_access'"
1534 $ WS "#include <stdlib.h>
1536 $ WS "#include <stdio.h>
1537 $ WS "#include <strings.h>
1541 $ WS "bzero(foo, 10);
1545 $ DEFINE SYS$ERROR _NLA0:
1546 $ DEFINE SYS$OUTPUT _NLA0:
1547 $ on error then continue
1548 $ on warning then continue
1550 $ savedstatus = $status
1551 $ teststatus = f$extract(9,1,savedstatus)
1552 $ if (teststatus.nes."1")
1554 $ perl_d_bzero="undef"
1555 $ DEASSIGN SYS$OUTPUT
1556 $ DEASSIGN SYS$ERROR
1558 $ If (Needs_Opt.eqs."Yes")
1560 $ link temp.obj,temp.opt/opt
1564 $ savedstatus = $status
1565 $ teststatus = f$extract(9,1,savedstatus)
1566 $ DEASSIGN SYS$OUTPUT
1567 $ DEASSIGN SYS$ERROR
1568 $ if (teststatus.nes."1")
1570 $ perl_d_bzero="undef"
1572 $ perl_d_bzero="define"
1575 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
1581 $ WS "#include <stdlib.h>
1583 $ WS "#include <stdio.h>
1584 $ WS "#include <strings.h>
1587 $ WS "char foo[10], bar[10];
1588 $ WS "bcopy(""foo"", bar, 3);
1592 $ DEFINE SYS$ERROR _NLA0:
1593 $ DEFINE SYS$OUTPUT _NLA0:
1594 $ on error then continue
1595 $ on warning then continue
1597 $ savedstatus = $status
1598 $ teststatus = f$extract(9,1,savedstatus)
1599 $ if (teststatus.nes."1")
1601 $ perl_d_bcopy="undef"
1602 $ DEASSIGN SYS$OUTPUT
1603 $ DEASSIGN SYS$ERROR
1605 $ If (Needs_Opt.eqs."Yes")
1607 $ link temp.obj,temp.opt/opt
1611 $ savedstatus = $status
1612 $ teststatus = f$extract(9,1,savedstatus)
1613 $ DEASSIGN SYS$OUTPUT
1614 $ DEASSIGN SYS$ERROR
1615 $ if (teststatus.nes."1")
1617 $ perl_d_bcopy="undef"
1619 $ perl_d_bcopy="define"
1622 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
1624 $! Check for mkstemp
1628 $ WS "#include <stdlib.h>
1630 $ WS "#include <stdio.h>
1633 $ WS "mkstemp(""foo"");
1637 $ DEFINE SYS$ERROR _NLA0:
1638 $ DEFINE SYS$OUTPUT _NLA0:
1639 $ on error then continue
1640 $ on warning then continue
1642 $ If (Needs_Opt.eqs."Yes")
1644 $ link temp.obj,temp.opt/opt
1648 $ savedstatus = $status
1649 $ teststatus = f$extract(9,1,savedstatus)
1650 $ DEASSIGN SYS$OUTPUT
1651 $ DEASSIGN SYS$ERROR
1652 $ if (teststatus.nes."1")
1654 $ perl_d_mkstemp="undef"
1656 $ perl_d_mkstemp="define"
1658 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
1660 $! Check for setvbuf
1664 $ WS "#include <stdlib.h>
1666 $ WS "#include <stdio.h>
1670 $ WS "char Buffer[99];
1671 $ WS "foo = fopen(""foo"", ""r"");
1672 $ WS "setvbuf(foo, Buffer, 0, 0);
1676 $ DEFINE SYS$ERROR _NLA0:
1677 $ DEFINE SYS$OUTPUT _NLA0:
1678 $ on error then continue
1679 $ on warning then continue
1681 $ If (Needs_Opt.eqs."Yes")
1683 $ link temp.obj,temp.opt/opt
1687 $ teststatus = f$extract(9,1,$status)
1688 $ DEASSIGN SYS$OUTPUT
1689 $ DEASSIGN SYS$ERROR
1690 $ if (teststatus.nes."1")
1692 $ perl_d_setvbuf="undef"
1694 $ perl_d_setvbuf="define"
1696 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
1698 $! Check for <netinet/in.h>
1700 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1704 $ WS "#include <stdlib.h>
1706 $ WS "#include <stdio.h>
1707 $ if ("''Has_Socketshr'".eqs."T")
1709 $ WS "#include <socketshr.h>"
1711 $ WS "#include <netdb.h>
1713 $ WS "#include <netinet/in.h>"
1719 $ DEFINE SYS$ERROR _NLA0:
1720 $ DEFINE SYS$OUTPUT _NLA0:
1721 $ on error then continue
1722 $ on warning then continue
1724 $ If (Needs_Opt.eqs."Yes")
1726 $ link temp.obj,temp.opt/opt
1730 $ teststatus = f$extract(9,1,$status)
1731 $ DEASSIGN SYS$OUTPUT
1732 $ DEASSIGN SYS$ERROR
1733 $ if (teststatus.nes."1")
1735 $ perl_i_niin="undef"
1737 $ perl_i_niin="define"
1740 $ perl_i_niin="undef"
1742 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
1744 $! Check for endhostent
1746 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1750 $ WS "#include <stdlib.h>
1752 $ WS "#include <stdio.h>
1753 $ if ("''Has_Socketshr'".eqs."T")
1755 $ WS "#include <socketshr.h>"
1757 $ WS "#include <netdb.h>
1765 $ DEFINE SYS$ERROR _NLA0:
1766 $ DEFINE SYS$OUTPUT _NLA0:
1767 $ on error then continue
1768 $ on warning then continue
1770 $ If (Needs_Opt.eqs."Yes")
1772 $ link temp.obj,temp.opt/opt
1776 $ teststatus = f$extract(9,1,$status)
1777 $ DEASSIGN SYS$OUTPUT
1778 $ DEASSIGN SYS$ERROR
1779 $ if (teststatus.nes."1")
1781 $ perl_d_endhent="undef"
1783 $ perl_d_endhent="define"
1786 $ perl_d_endhent="undef"
1788 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
1790 $! Check for endnetent
1792 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1796 $ WS "#include <stdlib.h>
1798 $ WS "#include <stdio.h>
1799 $ if ("''Has_Socketshr'".eqs."T")
1801 $ WS "#include <socketshr.h>"
1803 $ WS "#include <netdb.h>
1811 $ DEFINE SYS$ERROR _NLA0:
1812 $ DEFINE SYS$OUTPUT _NLA0:
1813 $ on error then continue
1814 $ on warning then continue
1816 $ If (Needs_Opt.eqs."Yes")
1818 $ link temp.obj,temp.opt/opt
1822 $ teststatus = f$extract(9,1,$status)
1823 $ DEASSIGN SYS$OUTPUT
1824 $ DEASSIGN SYS$ERROR
1825 $ if (teststatus.nes."1")
1827 $ perl_d_endnent="undef"
1829 $ perl_d_endnent="define"
1832 $ perl_d_endnent="undef"
1834 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
1836 $! Check for endprotoent
1838 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1842 $ WS "#include <stdlib.h>
1844 $ WS "#include <stdio.h>
1845 $ if ("''Has_Socketshr'".eqs."T")
1847 $ WS "#include <socketshr.h>"
1849 $ WS "#include <netdb.h>
1853 $ WS "endprotoent();
1857 $ DEFINE SYS$ERROR _NLA0:
1858 $ DEFINE SYS$OUTPUT _NLA0:
1859 $ on error then continue
1860 $ on warning then continue
1862 $ If (Needs_Opt.eqs."Yes")
1864 $ link temp.obj,temp.opt/opt
1868 $ teststatus = f$extract(9,1,$status)
1869 $ DEASSIGN SYS$OUTPUT
1870 $ DEASSIGN SYS$ERROR
1871 $ if (teststatus.nes."1")
1873 $ perl_d_endpent="undef"
1875 $ perl_d_endpent="define"
1878 $ perl_d_endpent="undef"
1880 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
1882 $! Check for endservent
1884 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1888 $ WS "#include <stdlib.h>
1890 $ WS "#include <stdio.h>
1891 $ if ("''Has_Socketshr'".eqs."T")
1893 $ WS "#include <socketshr.h>"
1895 $ WS "#include <netdb.h>
1903 $ DEFINE SYS$ERROR _NLA0:
1904 $ DEFINE SYS$OUTPUT _NLA0:
1905 $ on error then continue
1906 $ on warning then continue
1908 $ If (Needs_Opt.eqs."Yes")
1910 $ link temp.obj,temp.opt/opt
1914 $ teststatus = f$extract(9,1,$status)
1915 $ DEASSIGN SYS$OUTPUT
1916 $ DEASSIGN SYS$ERROR
1917 $ if (teststatus.nes."1")
1919 $ perl_d_endsent="undef"
1921 $ perl_d_endsent="define"
1924 $ perl_d_endsent="undef"
1926 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
1928 $! Check for sethostent
1930 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1934 $ WS "#include <stdlib.h>
1936 $ WS "#include <stdio.h>
1937 $ if ("''Has_Socketshr'".eqs."T")
1939 $ WS "#include <socketshr.h>"
1941 $ WS "#include <netdb.h>
1945 $ WS "sethostent(1);
1949 $ DEFINE SYS$ERROR _NLA0:
1950 $ DEFINE SYS$OUTPUT _NLA0:
1951 $ on error then continue
1952 $ on warning then continue
1954 $ If (Needs_Opt.eqs."Yes")
1956 $ link temp.obj,temp.opt/opt
1960 $ teststatus = f$extract(9,1,$status)
1961 $ DEASSIGN SYS$OUTPUT
1962 $ DEASSIGN SYS$ERROR
1963 $ if (teststatus.nes."1")
1965 $ perl_d_sethent="undef"
1967 $ perl_d_sethent="define"
1970 $ perl_d_sethent="undef"
1972 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
1974 $! Check for setnetent
1976 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1980 $ WS "#include <stdlib.h>
1982 $ WS "#include <stdio.h>
1983 $ if ("''Has_Socketshr'".eqs."T")
1985 $ WS "#include <socketshr.h>"
1987 $ WS "#include <netdb.h>
1995 $ DEFINE SYS$ERROR _NLA0:
1996 $ DEFINE SYS$OUTPUT _NLA0:
1997 $ on error then continue
1998 $ on warning then continue
2000 $ If (Needs_Opt.eqs."Yes")
2002 $ link temp.obj,temp.opt/opt
2006 $ teststatus = f$extract(9,1,$status)
2007 $ DEASSIGN SYS$OUTPUT
2008 $ DEASSIGN SYS$ERROR
2009 $ if (teststatus.nes."1")
2011 $ perl_d_setnent="undef"
2013 $ perl_d_setnent="define"
2016 $ perl_d_setnent="undef"
2018 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
2020 $! Check for setprotoent
2022 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2026 $ WS "#include <stdlib.h>
2028 $ WS "#include <stdio.h>
2029 $ if ("''Has_Socketshr'".eqs."T")
2031 $ WS "#include <socketshr.h>"
2033 $ WS "#include <netdb.h>
2037 $ WS "setprotoent(1);
2041 $ DEFINE SYS$ERROR _NLA0:
2042 $ DEFINE SYS$OUTPUT _NLA0:
2043 $ on error then continue
2044 $ on warning then continue
2046 $ If (Needs_Opt.eqs."Yes")
2048 $ link temp.obj,temp.opt/opt
2052 $ teststatus = f$extract(9,1,$status)
2053 $ DEASSIGN SYS$OUTPUT
2054 $ DEASSIGN SYS$ERROR
2055 $ if (teststatus.nes."1")
2057 $ perl_d_setpent="undef"
2059 $ perl_d_setpent="define"
2062 $ perl_d_setpent="undef"
2064 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
2066 $! Check for setservent
2068 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2072 $ WS "#include <stdlib.h>
2074 $ WS "#include <stdio.h>
2075 $ if ("''Has_Socketshr'".eqs."T")
2077 $ WS "#include <socketshr.h>"
2079 $ WS "#include <netdb.h>
2083 $ WS "setservent(1);
2087 $ DEFINE SYS$ERROR _NLA0:
2088 $ DEFINE SYS$OUTPUT _NLA0:
2089 $ on error then continue
2090 $ on warning then continue
2092 $ If (Needs_Opt.eqs."Yes")
2094 $ link temp.obj,temp.opt/opt
2098 $ teststatus = f$extract(9,1,$status)
2099 $ DEASSIGN SYS$OUTPUT
2100 $ DEASSIGN SYS$ERROR
2101 $ if (teststatus.nes."1")
2103 $ perl_d_setsent="undef"
2105 $ perl_d_setsent="define"
2108 $ perl_d_setsent="undef"
2110 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
2112 $! Check for gethostent
2114 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2118 $ WS "#include <stdlib.h>
2120 $ WS "#include <stdio.h>
2121 $ if ("''Has_Socketshr'".eqs."T")
2123 $ WS "#include <socketshr.h>"
2125 $ WS "#include <netdb.h>
2133 $ DEFINE SYS$ERROR _NLA0:
2134 $ DEFINE SYS$OUTPUT _NLA0:
2135 $ on error then continue
2136 $ on warning then continue
2138 $ If (Needs_Opt.eqs."Yes")
2140 $ link temp.obj,temp.opt/opt
2144 $ teststatus = f$extract(9,1,$status)
2145 $ DEASSIGN SYS$OUTPUT
2146 $ DEASSIGN SYS$ERROR
2147 $ if (teststatus.nes."1")
2149 $ perl_d_gethent="undef"
2151 $ perl_d_gethent="define"
2154 $ perl_d_gethent="undef"
2156 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
2158 $! Check for getnetent
2160 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2164 $ WS "#include <stdlib.h>
2166 $ WS "#include <stdio.h>
2167 $ if ("''Has_Socketshr'".eqs."T")
2169 $ WS "#include <socketshr.h>"
2171 $ WS "#include <netdb.h>
2179 $ DEFINE SYS$ERROR _NLA0:
2180 $ DEFINE SYS$OUTPUT _NLA0:
2181 $ on error then continue
2182 $ on warning then continue
2184 $ If (Needs_Opt.eqs."Yes")
2186 $ link temp.obj,temp.opt/opt
2190 $ teststatus = f$extract(9,1,$status)
2191 $ DEASSIGN SYS$OUTPUT
2192 $ DEASSIGN SYS$ERROR
2193 $ if (teststatus.nes."1")
2195 $ perl_d_getnent="undef"
2197 $ perl_d_getnent="define"
2200 $ perl_d_getnent="undef"
2202 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
2204 $! Check for getprotoent
2206 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2210 $ WS "#include <stdlib.h>
2212 $ WS "#include <stdio.h>
2213 $ if ("''Has_Socketshr'".eqs."T")
2215 $ WS "#include <socketshr.h>"
2217 $ WS "#include <netdb.h>
2221 $ WS "getprotoent();
2225 $ DEFINE SYS$ERROR _NLA0:
2226 $ DEFINE SYS$OUTPUT _NLA0:
2227 $ on error then continue
2228 $ on warning then continue
2230 $ If (Needs_Opt.eqs."Yes")
2232 $ link temp.obj,temp.opt/opt
2236 $ teststatus = f$extract(9,1,$status)
2237 $ DEASSIGN SYS$OUTPUT
2238 $ DEASSIGN SYS$ERROR
2239 $ if (teststatus.nes."1")
2241 $ perl_d_getpent="undef"
2243 $ perl_d_getpent="define"
2246 $ perl_d_getpent="undef"
2248 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
2250 $! Check for getservent
2252 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2256 $ WS "#include <stdlib.h>
2258 $ WS "#include <stdio.h>
2259 $ if ("''Has_Socketshr'".eqs."T")
2261 $ WS "#include <socketshr.h>"
2263 $ WS "#include <netdb.h>
2271 $ DEFINE SYS$ERROR _NLA0:
2272 $ DEFINE SYS$OUTPUT _NLA0:
2273 $ on error then continue
2274 $ on warning then continue
2276 $ If (Needs_Opt.eqs."Yes")
2278 $ link temp.obj,temp.opt/opt
2282 $ teststatus = f$extract(9,1,$status)
2283 $ DEASSIGN SYS$OUTPUT
2284 $ DEASSIGN SYS$ERROR
2285 $ if (teststatus.nes."1")
2287 $ perl_d_getsent="undef"
2289 $ perl_d_getsent="define"
2292 $ perl_d_getsent="undef"
2294 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
2296 $! Check for pthread_yield
2298 $ if ("''use_threads'".eqs."T")
2302 $ WS "#include <stdlib.h>
2304 $ WS "#include <pthread.h>
2305 $ WS "#include <stdio.h>
2308 $ WS "pthread_yield();
2312 $ DEFINE SYS$ERROR _NLA0:
2313 $ DEFINE SYS$OUTPUT _NLA0:
2314 $ on error then continue
2315 $ on warning then continue
2317 $ teststatus = f$extract(9,1,$status)
2318 $ DEASSIGN SYS$OUTPUT
2319 $ DEASSIGN SYS$ERROR
2320 $ if (teststatus.nes."1")
2322 $ perl_d_pthread_yield="undef"
2324 $ perl_d_pthread_yield="define"
2327 $ perl_d_pthread_yield="undef"
2329 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
2331 $! Check for sched_yield
2333 $ if ("''use_threads'".eqs."T")
2337 $ WS "#include <stdlib.h>
2339 $ WS "#include <pthread.h>
2340 $ WS "#include <stdio.h>
2343 $ WS "sched_yield();
2347 $ DEFINE SYS$ERROR _NLA0:
2348 $ DEFINE SYS$OUTPUT _NLA0:
2349 $ on error then continue
2350 $ on warning then continue
2352 $ teststatus = f$extract(9,1,$status)
2353 $ DEASSIGN SYS$OUTPUT
2354 $ DEASSIGN SYS$ERROR
2355 $ if (teststatus.nes."1")
2357 $ perl_d_sched_yield="undef"
2359 $ perl_d_sched_yield="define"
2362 $ perl_d_sched_yield="undef"
2364 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
2366 $! Check for generic pointer size
2370 $ WS "#include <stdlib.h>
2372 $ WS "#include <stdio.h>
2376 $ WS "foo = sizeof(char *);
2377 $ WS "printf(""%d\n"", foo);
2381 $! copy temp.c sys$output
2383 $ DEFINE SYS$ERROR _NLA0:
2384 $ DEFINE SYS$OUTPUT _NLA0:
2385 $ ON ERROR THEN CONTINUE
2386 $ ON WARNING THEN CONTINUE
2388 $ If (Needs_Opt.eqs."Yes")
2390 $ link temp.obj,temp.opt/opt
2394 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
2395 $ DEASSIGN SYS$OUTPUT
2396 $ DEASSIGN SYS$ERROR
2397 $ DEFINE SYS$ERROR TEMPOUT
2398 $ DEFINE SYS$OUTPUT TEMPOUT
2401 $ DEASSIGN SYS$OUTPUT
2402 $ DEASSIGN SYS$ERROR
2403 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
2408 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
2411 $! Done with compiler checks. Clean up.
2412 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
2413 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
2414 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
2415 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
2418 $! Some that are compiler or VMS version sensitive
2421 $ IF "''Using_Gnu_C'".EQS."Yes"
2423 $ perl_d_attribut="define"
2424 $ perl_vms_cc_type="gcc"
2426 $ perl_d_attribut="undef"
2429 $! Dec C >= 5.2 and VMS ver >= 7.0
2430 $ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
2432 $ perl_d_bcmp="define"
2433 $ perl_d_gettimeod="define"
2434 $ perl_d_uname="define"
2435 $ perl_d_sigaction="define"
2436 $ perl_d_truncate="define"
2437 $ perl_d_wait4="define"
2438 $ perl_d_index="define"
2439 $ perl_pidtype="pid_t"
2440 $ 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"
2441 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
2442 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
2443 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
2444 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
2445 $ 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"
2446 $ 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"
2447 $ perl_sig_num_with_commas=perl_sig_num_init
2448 $ perl_uidtype="uid_t"
2449 $ perl_d_pathconf="define"
2450 $ perl_d_fpathconf="define"
2451 $ perl_d_sysconf="define"
2452 $ perl_d_sigsetjmp="define"
2454 $ perl_pidtype="unsigned int"
2455 $ perl_d_gettimeod="undef"
2456 $ perl_d_bcmp="undef"
2457 $ perl_d_uname="undef"
2458 $ perl_d_sigaction="undef"
2459 $ perl_d_truncate="undef"
2460 $ perl_d_wait4="undef"
2461 $ perl_d_index="undef"
2462 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
2463 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
2464 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
2465 $ perl_sig_name_with_commas = psnwc1 + psnwc2
2466 $ perl_sig_num="0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 6 16 17"",0"
2467 $ perl_sig_num_init="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
2468 $ perl_sig_num_with_commas=perl_sig_num_init
2469 $ perl_uidtype="unsigned int"
2470 $ perl_d_pathconf="undef"
2471 $ perl_d_fpathconf="undef"
2472 $ perl_d_sysconf="undef"
2473 $ perl_d_sigsetjmp="undef"
2477 $ IF ("''Using_Dec_C'".EQS."Yes")
2479 $ perl_d_mbstowcs="define"
2480 $ perl_d_mbtowc="define"
2481 $ perl_d_stdiobase="define"
2482 $ perl_d_stdio_ptr_lval="define"
2483 $ perl_d_stdio_cnt_lval="define"
2484 $ perl_d_stdstdio="define"
2485 $ perl_d_wcstombs="define"
2486 $ perl_d_mblen="define"
2487 $ perl_d_mktime="define"
2488 $ perl_d_strcoll="define"
2489 $ perl_d_strxfrm="define"
2490 $ perl_d_wctomb="define"
2491 $ perl_i_locale="define"
2492 $ perl_d_locconv="define"
2493 $ perl_d_setlocale="define"
2494 $ perl_vms_cc_type="decc"
2496 $ perl_d_mbstowcs="undef"
2497 $ perl_d_mbtowc="undef"
2498 $ perl_d_stdiobase="undef"
2499 $ perl_d_stdio_ptr_lval="undef"
2500 $ perl_d_stdio_cnt_lval="undef"
2501 $ perl_d_stdstdio="undef"
2502 $ perl_d_wcstombs="undef"
2503 $ perl_d_mblen="undef"
2504 $ perl_d_mktime="undef"
2505 $ perl_d_strcoll="undef"
2506 $ perl_d_strxfrm="undef"
2507 $ perl_d_wctomb="undef"
2508 $ perl_i_locale="undef"
2509 $ perl_d_locconv="undef"
2510 $ perl_d_setlocale="undef"
2514 $ if ("''Using_Vax_C'".EQS."Yes")
2516 $ perl_vms_cc_type="vaxc"
2521 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
2523 $ perl_d_vms_do_sockets="define"
2524 $ perl_d_htonl="define"
2525 $ perl_d_socket="define"
2526 $ perl_d_select="define"
2527 $ perl_netdb_host_type="char *"
2528 $ perl_netdb_hlen_type="int"
2529 $ perl_netdb_name_type="char *"
2530 $ perl_netdb_net_type="long"
2531 $ perl_d_gethbyaddr="define"
2532 $ perl_d_gethbyname="define"
2533 $ perl_d_getnbyaddr="define"
2534 $ perl_d_getnbyname="define"
2535 $ perl_d_getpbynumber="define"
2536 $ perl_d_getpbyname="define"
2537 $ perl_d_getsbyport="define"
2538 $ perl_d_getsbyname="define"
2539 $ perl_d_gethostprotos="define"
2540 $ perl_d_getnetprotos="define"
2541 $ perl_d_getprotoprotos="define"
2542 $ perl_d_getservprotos="define"
2544 $ perl_d_vms_do_sockets="undef"
2545 $ perl_d_htonl="undef"
2546 $ perl_d_socket="undef"
2547 $ perl_d_select="undef"
2548 $ perl_netdb_host_type="char *"
2549 $ perl_netdb_hlen_type="int"
2550 $ perl_netdb_name_type="char *"
2551 $ perl_netdb_net_type="long"
2552 $ perl_d_gethbyaddr="undef"
2553 $ perl_d_gethbyname="undef"
2554 $ perl_d_getnbyaddr="undef"
2555 $ perl_d_getnbyname="undef"
2556 $ perl_d_getpbynumber="undef"
2557 $ perl_d_getpbyname="undef"
2558 $ perl_d_getsbyport="undef"
2559 $ perl_d_getsbyname="undef"
2560 $ perl_d_gethostprotos="undef"
2561 $ perl_d_getnetprotos="undef"
2562 $ perl_d_getprotoprotos="undef"
2563 $ perl_d_getservprotos="undef"
2566 $ if ("''use_threads'".eqs."T")
2568 $ perl_usethreads="define"
2569 $ perl_d_pthreads_created_joinable="define"
2570 $ if ("''VMS_VER'".ges."7.0")
2572 $ perl_d_oldpthreads="undef"
2574 $ perl_d_oldpthreads="define"
2577 $ perl_d_oldpthreads="undef"
2578 $ perl_usethreads="undef"
2580 $ perl_d_pthreads_created_joinable="undef"
2584 $! Finally the composite ones. All config
2585 $ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
2586 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
2587 $ perl_myhostname="''myhostname'"
2588 $ perl_mydomain="''mydomain'"
2589 $ perl_perladmin="''perladmin'"
2590 $ perl_cf_email="''cf_email'"
2591 $ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
2592 $ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
2593 $ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
2594 $ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
2595 $ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
2596 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
2597 $ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
2598 $ if "''Using_Dec_C'" .eqs. "Yes"
2600 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
2602 $ IF "''Using_Vax_C'" .eqs. "Yes"
2604 $ perl_ccflags="/Include=[]/Obj=''perl_obj_ext'/NoList''cc_flags'"
2608 $! Finally clean off any leading zeros from the patchlevel or subversion
2609 $ perl_patchlevel = perl_patchlevel + 0
2610 $ perl_subversion = perl_subversion + 0
2612 $! Okay, we've got everything configured. Now go write out a config.sh.
2613 $ open/write CONFIGSH [-]config.sh
2614 $ WC := "write CONFIGSH"
2616 $ WC "# This file generated by Configure.COM on a VMS system."
2617 $ WC "# Time: " + perl_cf_time
2619 $ WC "package='" + perl_package + "'"
2620 $ WC "CONFIG='" + perl_config + "'"
2621 $ WC "cf_time='" + perl_cf_time + "'"
2622 $ WC "cf_by='" + perl_cf_by+ "'"
2623 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
2624 $ WC "ccdlflags='" + perl_ccdlflags + "'"
2625 $ WC "cccdlflags='" + perl_cccdlflags + "'"
2626 $ WC "mab='" + perl_mab + "'"
2627 $ WC "libpth='" + perl_libpth + "'"
2628 $ WC "ld='" + perl_ld + "'"
2629 $ WC "lddlflags='" + perl_lddlflags + "'"
2630 $ WC "ranlib='" + perl_ranlib + "'"
2631 $ WC "ar='" + perl_ar + "'"
2632 $ WC "eunicefix='" + perl_eunicefix + "'"
2633 $ WC "hint='" + perl_hint +"'"
2634 $ WC "hintfile='" + perl_hintfile + "'"
2635 $ WC "shrplib='" + perl_shrplib + "'"
2636 $ WC "usemymalloc='" + perl_usemymalloc + "'"
2637 $ WC "usevfork='" + perl_usevfork + "'"
2638 $ WC "useposix='false'"
2639 $ WC "spitshell='write sys$output '"
2640 $ WC "dlsrc='dl_vms.c'"
2641 $ WC "binexp='" + perl_binexp + "'"
2642 $ WC "man1ext='" + perl_man1ext + "'"
2643 $ WC "man3ext='" + perl_man3ext + "'"
2644 $ WC "arch='" + perl_arch + "'"
2645 $ WC "archname='" + perl_archname + "'"
2646 $ WC "osvers='" + perl_osvers + "'"
2647 $ WC "prefix='" + perl_prefix + "'"
2648 $ WC "builddir='" + perl_builddir + "'"
2649 $ WC "installbin='" + perl_installbin + "'"
2650 $ WC "installscript='" + perl_installscript + "'"
2651 $ WC "installman1dir='" + perl_installman1dir + "'"
2652 $ WC "installman3dir='" + perl_installman3dir + "'"
2653 $ WC "installprivlib='" + perl_installprivlib + "'"
2654 $ WC "installarchlib='" + perl_installarchlib + "'"
2655 $ WC "installsitelib='" + perl_installsitelib + "'"
2656 $ WC "installsitearch='" + perl_installsitearch + "'"
2657 $ WC "path_sep='" + perl_path_sep + "'"
2658 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
2659 $ WC "d_attribut='" + perl_d_attribut + "'"
2660 $ WC "cc='" + perl_cc + "'"
2661 $ WC "ccflags='" + perl_ccflags + "'"
2662 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
2663 $ WC "d_socket='" + perl_d_socket + "'"
2664 $ WC "d_sockpair='" + perl_d_sockpair + "'"
2665 $ WC "d_gethent='" + perl_d_gethent + "'"
2666 $ WC "d_getsent='" + perl_d_getsent + "'"
2667 $ WC "d_select='" + perl_d_select + "'"
2668 $ WC "i_niin='" + perl_i_niin + "'"
2669 $ WC "i_neterrno='" + perl_i_neterrno + "'"
2670 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
2671 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
2672 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
2673 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
2674 $ WC "d_locconv='" + perl_d_locconv + "'"
2675 $ WC "d_setlocale='" + perl_d_setlocale + "'"
2676 $ WC "i_locale='" + perl_i_locale + "'"
2677 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
2678 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
2679 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
2680 $ WC "d_wctomb='" + perl_d_wctomb + "'"
2681 $ WC "d_mblen='" + perl_d_mblen + "'"
2682 $ WC "d_mktime='" + perl_d_mktime + "'"
2683 $ WC "d_strcoll='" + perl_d_strcoll + "'"
2684 $ WC "d_strxfrm='" + perl_d_strxfrm + "'"
2685 $ WC "ldflags='" + perl_ldflags + "'"
2686 $ WC "dlobj='" + perl_dlobj + "'"
2687 $ WC "obj_ext='" + perl_obj_ext + "'"
2688 $ WC "so='" + perl_so + "'"
2689 $ WC "dlext='" + perl_dlext + "'"
2690 $ WC "exe_ext='" + perl_exe_ext + "'"
2691 $ WC "lib_ext='" + perl_lib_ext + "'"
2692 $ WC "myhostname='" + perl_myhostname + "'"
2693 $ WC "mydomain='" + perl_mydomain + "'"
2694 $ WC "perladmin='" + perl_perladmin + "'"
2695 $ WC "cf_email='" + perl_cf_email + "'"
2696 $ WC "myuname='" + perl_myuname + "'"
2697 $ WC "alignbytes='" + perl_alignbytes + "'"
2698 $ WC "osname='" + perl_osname + "'"
2699 $ WC "d_archlib='" + perl_d_archlib + "'"
2700 $ WC "archlibexp='" + perl_archlibexp + "'"
2701 $ WC "archlib='" + perl_archlib + "'"
2702 $ WC "archname='" + perl_archname + "'"
2703 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
2704 $ WC "cppstdin='" + perl_cppstdin + "'"
2705 $ WC "cppminus='" + perl_cppminus + "'"
2706 $ WC "d_bcmp='" + perl_d_bcmp + "'"
2707 $ WC "d_bcopy='" + perl_d_bcopy + "'"
2708 $ WC "d_bzero='" + perl_d_bzero + "'"
2709 $ WC "d_castneg='" + perl_d_castneg + "'"
2710 $ WC "castflags='" + perl_castflags + "'"
2711 $ WC "d_chsize='" + perl_d_chsize + "'"
2712 $ WC "d_const='" + perl_d_const + "'"
2713 $ WC "d_crypt='" + perl_d_crypt + "'"
2714 $ WC "byteorder='" + perl_byteorder + "'"
2715 $ WC "full_csh='" + perl_full_csh + "'"
2716 $ WC "d_csh='" + perl_d_csh + "'"
2717 $ WC "d_dup2='" + perl_d_dup2 + "'"
2718 $ WC "d_fchmod='" + perl_d_fchmod + "'"
2719 $ WC "d_fchown='" + perl_d_fchown + "'"
2720 $ WC "d_fcntl='" + perl_d_fcntl + "'"
2721 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
2722 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
2723 $ WC "d_flock='" + perl_d_flock + "'"
2724 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
2725 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
2726 $ WC "d_getgrps='" + perl_d_getgrps + "'"
2727 $ WC "d_setgrps='" + perl_d_setgrps + "'"
2728 $ WC "d_uname='" + perl_d_uname + "'"
2729 $ WC "d_getprior='" + perl_d_getprior + "'"
2730 $ WC "d_killpg='" + perl_d_killpg + "'"
2731 $ WC "d_link='" + perl_d_link + "'"
2732 $ WC "d_lstat='" + perl_d_lstat + "'"
2733 $ WC "d_lockf='" + perl_d_lockf + "'"
2734 $ WC "d_memcmp='" + perl_d_memcmp + "'"
2735 $ WC "d_memcpy='" + perl_d_memcpy + "'"
2736 $ WC "d_memmove='" + perl_d_memmove + "'"
2737 $ WC "d_memset='" + perl_d_memset + "'"
2738 $ WC "d_mkdir='" + perl_d_mkdir + "'"
2739 $ WC "d_msg='" + perl_d_msg + "'"
2740 $ WC "d_open3='" + perl_d_open3 + "'"
2741 $ WC "d_poll='" + perl_d_poll + "'"
2742 $ WC "d_readdir='" + perl_d_readdir + "'"
2743 $ WC "d_seekdir='" + perl_d_seekdir + "'"
2744 $ WC "d_telldir='" + perl_d_telldir + "'"
2745 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
2746 $ WC "d_rename='" + perl_d_rename + "'"
2747 $ WC "d_rmdir='" + perl_d_rmdir + "'"
2748 $ WC "d_sem='" + perl_d_sem + "'"
2749 $ WC "d_setegid='" + perl_d_setegid + "'"
2750 $ WC "d_seteuid='" + perl_d_seteuid + "'"
2751 $ WC "d_setprior='" + perl_d_setprior + "'"
2752 $ WC "d_setregid='" + perl_d_setregid + "'"
2753 $ WC "d_setresgid='" + perl_d_setresgid + "'"
2754 $ WC "d_setreuid='" + perl_d_setreuid + "'"
2755 $ WC "d_setresuid='" + perl_d_setresuid + "'"
2756 $ WC "d_setrgid='" + perl_d_setrgid + "'"
2757 $ WC "d_setruid='" + perl_d_setruid + "'"
2758 $ WC "d_setsid='" + perl_d_setsid + "'"
2759 $ WC "d_shm='" + perl_d_shm + "'"
2760 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
2761 $ WC "d_sigaction='" + perl_d_sigaction + "'"
2762 $ WC "d_statblks='" + perl_d_statblks + "'"
2763 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
2764 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
2765 $ WC "stdio_base='" + perl_stdio_base + "'"
2766 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
2767 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
2768 $ WC "d_strerror='" + perl_d_strerror + "'"
2769 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
2770 $ WC "d_strerrm='" + perl_d_strerrm + "'"
2771 $ WC "d_symlink='" + perl_d_symlink + "'"
2772 $ WC "d_syscall='" + perl_d_syscall + "'"
2773 $ WC "d_system='" + perl_d_system + "'"
2774 $ WC "timetype='" + perl_timetype + "'"
2775 $ WC "d_truncate='" + perl_d_truncate + "'"
2776 $ WC "d_vfork='" + perl_d_vfork + "'"
2777 $ WC "signal_t='" + perl_signal_t + "'"
2778 $ WC "d_volatile='" + perl_d_volatile + "'"
2779 $ WC "d_vprintf='" + perl_d_vprintf + "'"
2780 $ WC "d_charvspr='" + perl_d_charvspr + "'"
2781 $ WC "d_wait4='" + perl_d_wait4 + "'"
2782 $ WC "d_waitpid='" + perl_d_waitpid + "'"
2783 $ WC "i_dirent='" + perl_i_dirent + "'"
2784 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
2785 $ WC "direntrytype='" + perl_direntrytype + "'"
2786 $ WC "i_fcntl='" + perl_i_fcntl + "'"
2787 $ WC "i_grp='" + perl_i_grp + "'"
2788 $ WC "i_limits='" + perl_i_limits + "'"
2789 $ WC "i_memory='" + perl_i_memory + "'"
2790 $ WC "i_ndbm='" + perl_i_ndbm + "'"
2791 $ WC "i_stdarg='" + perl_i_stdarg + "'"
2792 $ WC "i_pwd='" + perl_i_pwd + "'"
2793 $ WC "d_pwquota='" + perl_d_pwquota + "'"
2794 $ WC "d_pwage='" + perl_d_pwage + "'"
2795 $ WC "d_pwchange='" + perl_d_pwchange + "'"
2796 $ WC "d_pwclass='" + perl_d_pwclass + "'"
2797 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
2798 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
2799 $ WC "i_stddef='" + perl_i_stddef + "'"
2800 $ WC "i_stdlib='" + perl_i_stdlib + "'"
2801 $ WC "i_string='" + perl_i_string + "'"
2802 $ WC "i_sysdir='" + perl_i_sysdir + "'"
2803 $ WC "i_sysfile='" + perl_i_sysfile + "'"
2804 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
2805 $ WC "i_sysndir='" + perl_i_sysndir + "'"
2806 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
2807 $ WC "i_sysselct='" + perl_i_sysselct + "'"
2808 $ WC "i_dbm='" + perl_i_dbm + "'"
2809 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
2810 $ WC "i_sfio='" + perl_i_sfio + "'"
2811 $ WC "i_sysstat='" + perl_i_sysstat + "'"
2812 $ WC "i_systimes='" + perl_i_systimes + "'"
2813 $ WC "i_systypes='" + perl_i_systypes + "'"
2814 $ WC "i_sysun='" + perl_i_sysun + "'"
2815 $ WC "i_syswait='" + perl_i_syswait + "'"
2816 $ WC "i_termio='" + perl_i_termio + "'"
2817 $ WC "i_sgtty='" + perl_i_sgtty + "'"
2818 $ WC "i_termios='" + perl_i_termios + "'"
2819 $ WC "i_time='" + perl_i_time + "'"
2820 $ WC "i_systime='" + perl_i_systime + "'"
2821 $ WC "i_systimek='" + perl_i_systimek + "'"
2822 $ WC "i_unistd='" + perl_i_unistd + "'"
2823 $ WC "i_utime='" + perl_i_utime + "'"
2824 $ WC "i_varargs='" + perl_i_varargs + "'"
2825 $ WC "i_vfork='" + perl_i_vfork + "'"
2826 $ WC "prototype='" + perl_prototype + "'"
2827 $ WC "randbits='" + perl_randbits +"'"
2828 $ WC "selecttype='" + perl_selecttype + "'"
2829 $ WC "stdchar='" + perl_stdchar + "'"
2830 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
2831 $ WC "full_sed='" + perl_full_sed + "'"
2832 $ WC "bin='" + perl_bin + "'"
2833 $ WC "binexp='" + perl_binexp + "'"
2834 $ WC "d_alarm='" + perl_d_alarm + "'"
2835 $ WC "d_casti32='" + perl_d_casti32 + "'"
2836 $ WC "d_chown='" + perl_d_chown + "'"
2837 $ WC "d_chroot='" + perl_d_chroot + "'"
2838 $ WC "d_cuserid='" + perl_d_cuserid + "'"
2839 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
2840 $ WC "d_difftime='" + perl_d_difftime + "'"
2841 $ WC "d_fork='" + perl_d_fork + "'"
2842 $ WC "d_getlogin='" + perl_d_getlogin + "'"
2843 $ WC "d_getppid='" + perl_d_getppid + "'"
2844 $ WC "d_htonl='" + perl_d_htonl + "'"
2845 $ WC "d_nice='" + perl_d_nice + "'"
2846 $ WC "d_pause='" + perl_d_pause + "'"
2847 $ WC "d_pipe='" + perl_d_pipe + "'"
2848 $ WC "d_readlink='" + perl_d_readlink + "'"
2849 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
2850 $ WC "d_strchr='" + perl_d_strchr + "'"
2851 $ WC "d_index='" + perl_d_index + "'"
2852 $ WC "d_strtod='" + perl_d_strtod + "'"
2853 $ WC "d_strtol='" + perl_d_strtol + "'"
2854 $ WC "d_strtoul='" + perl_d_strtoul + "'"
2855 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
2856 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
2857 $ WC "d_times='" + perl_d_times + "'"
2858 $ WC "d_tzname='" + perl_d_tzname + "'"
2859 $ WC "d_umask='" + perl_d_umask + "'"
2860 $ WC "fpostype='" + perl_fpostype + "'"
2861 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
2862 $ WC "i_float='" + perl_i_float + "'"
2863 $ WC "i_math='" + perl_i_math + "'"
2864 $ WC "intsize='" + perl_intsize + "'"
2865 $ WC "longsize='" + perl_longsize + "'"
2866 $ WC "shortsize='" + perl_shortsize + "'"
2867 $ WC "lseektype='" + perl_lseektype + "'"
2868 $ WC "i_values='" + perl_i_values + "'"
2869 $ WC "malloctype='" + perl_malloctype + "'"
2870 $ WC "freetype='" + perl_freetype + "'"
2871 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
2872 $ WC "sh='" + perl_sh + "'"
2873 $ WC "sig_name='" + perl_sig_name + "'"
2874 $ WC "sig_num='" + perl_sig_num + "'"
2875 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
2877 $ WC "modetype='" + perl_modetype + "'"
2878 $ WC "ssizetype='" + perl_ssizetype + "'"
2879 $ WC "o_nonblock='" + perl_o_nonblock + "'"
2880 $ WC "eagain='" + perl_eagain + "'"
2881 $ WC "rd_nodata='" + perl_rd_nodata + "'"
2882 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
2883 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
2884 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
2885 $ WC "oldarchlib='" + perl_oldarchlib + "'"
2886 $ WC "privlibexp='" + perl_privlibexp + "'"
2887 $ WC "privlib='" + perl_privlib + "'"
2888 $ WC "sitelibexp='" + perl_sitelibexp + "'"
2889 $ WC "sitelib='" + perl_sitelib + "'"
2890 $ WC "sitearchexp='" + perl_sitearchexp + "'"
2891 $ WC "sitearch='" + perl_sitearch + "'"
2892 $ WC "sizetype='" + perl_sizetype + "'"
2893 $ WC "i_sysparam='" + perl_i_sysparam + "'"
2894 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
2895 $ WC "d_dlerror='" + perl_d_dlerror + "'"
2896 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
2897 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
2898 $ WC "d_dosuid='" + perl_d_dosuid + "'"
2899 $ WC "d_inetaton='" + perl_d_inetaton + "'"
2900 $ WC "d_isascii='" + perl_d_isascii + "'"
2901 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
2902 $ WC "d_pathconf='" + perl_d_pathconf + "'"
2903 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
2904 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
2905 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
2906 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
2907 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
2908 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
2909 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
2910 $ WC "d_setpgid='" + perl_d_setpgid + "'"
2911 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
2912 $ WC "d_sysconf='" + perl_d_sysconf + "'"
2913 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
2914 $ WC "d_getpgid='" + perl_d_getpgid + "'"
2915 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
2916 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
2917 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
2918 $ WC "d_sfio='" + perl_d_sfio + "'"
2919 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
2920 $ WC "usedl='" + perl_usedl + "'"
2921 $ WC "startperl=" + perl_startperl ! This one's special--no enclosing single quotes
2922 $ WC "db_hashtype='" + perl_db_hashtype + "'"
2923 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
2924 $ WC "useperlio='" + perl_useperlio + "'"
2925 $ WC "defvoidused='" + perl_defvoidused + "'"
2926 $ WC "voidflags='" + perl_voidflags + "'"
2927 $ WC "d_eunice='" + perl_d_eunice + "'"
2928 $ WC "libs='" + perl_libs + "'"
2929 $ WC "libc='" + perl_libc + "'"
2930 $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
2932 $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
2934 $ WC "pager='" + perl_pager + "'"
2935 $ WC "uidtype='" + perl_uidtype + "'"
2936 $ WC "gidtype='" + perl_gidtype + "'"
2937 $ WC "usethreads='" + perl_usethreads + "'"
2938 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
2939 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
2940 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
2941 $ WC "i_netdb='" + perl_i_netdb + "'"
2942 $ WC "pidtype='" + perl_pidtype + "'"
2943 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
2944 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
2945 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
2946 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
2947 $ WC "baserev='" + perl_baserev + "'"
2948 $ WC "doublesize='" + perl_doublesize + "'"
2949 $ WC "ptrsize='" + perl_ptrsize + "'"
2950 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
2951 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
2952 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
2953 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
2954 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
2955 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
2956 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
2957 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
2958 $ WC "d_sethent='" + perl_d_sethent + "'"
2959 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
2960 $ WC "d_longdbl='" + perl_d_longdbl + "'"
2961 $ WC "longdblsize='" + perl_longdblsize + "'"
2962 $ WC "d_longlong='" + perl_d_longlong + "'"
2963 $ WC "longlongsize='" + perl_longlongsize + "'"
2964 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
2965 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
2966 $ WC "d_endhent='" + perl_d_endhent + "'"
2967 $ WC "d_endnent='" + perl_d_endsent + "'"
2968 $ WC "d_endpent='" + perl_d_endpent + "'"
2969 $ WC "d_endsent='" + perl_d_endsent + "'"
2970 $ WC "d_gethent='" + perl_d_gethent + "'"
2971 $ WC "d_getnent='" + perl_d_getsent + "'"
2972 $ WC "d_getpent='" + perl_d_getpent + "'"
2973 $ WC "d_getsent='" + perl_d_getsent + "'"
2974 $ WC "d_sethent='" + perl_d_sethent + "'"
2975 $ WC "d_setnent='" + perl_d_setsent + "'"
2976 $ WC "d_setpent='" + perl_d_setpent + "'"
2977 $ WC "ebcdic='" + perl_ebcdic + "'"
2978 $ WC "d_setsent='" + perl_d_setsent + "'"
2979 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
2980 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
2981 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
2982 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
2983 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
2984 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
2985 $ WC "d_lchown='" + perl_d_lchown + "'"
2986 $ WC "d_union_semun='" + perl_d_union_semun + "'"
2987 $ WC "i_arpainet='" + perl_i_arpainet + "'"
2988 $ WC "d_grpasswd='" + perl_d_grpasswd + "'"
2989 $ WC "d_setgrent='" + perl_d_setgrent + "'"
2990 $ WC "d_getgrent='" + perl_d_getgrent + "'"
2991 $ WC "d_endgrent='" + perl_d_endgrent + "'"
2992 $ WC "d_pwpasswd='" + perl_d_pwpasswd + "'"
2993 $ WC "d_setpwent='" + perl_d_setpwent + "'"
2994 $ WC "d_getpwent='" + perl_d_getpwent + "'"
2995 $ WC "d_endpwent='" + perl_d_endpwent + "'"
2996 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
2997 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
2998 $ WC "extensions='" + perl_extensions + "'"
2999 $ WC "d_mknod='" + perl_d_mknod + "'"
3000 $ WC "devtype='" + perl_devtype + "'"
3001 $ WC "d_gethname='" + perl_d_gethname + "'"
3002 $ WC "d_phostname='" + perl_d_phostname + "'"
3003 $ WC "d_accessx='" + perl_d_accessx + "'"
3004 $ WC "d_eaccess='" + perl_d_eaccess + "'"
3005 $ WC "i_sysaccess='" + perl_i_sysaccess + "'"
3006 $ WC "i_syssecrt='" + perl_i_syssecrt + "'"
3007 $ WC "d_fd_set='" + perl_d_fd_set + "'"
3008 $ WC "d_access='" + perl_d_access + "'"
3009 $ WC "d_msg_ctrunc='" + perl_d_msg_ctrunc + "'"
3010 $ WC "d_msg_dontroute='" + perl_d_msg_dontroute + "'"
3011 $ WC "d_msg_oob='" + perl_d_msg_oob + "'"
3012 $ WC "d_msg_peek='" + perl_d_msg_peek + "'"
3013 $ WC "d_msg_proxy='" + perl_d_msg_proxy + "'"
3014 $ WC "d_scm_rights='" + perl_d_scm_rights + "'"
3015 $ WC "d_sendmsg='" + perl_d_sendmsg + "'"
3016 $ WC "d_recvmsg='" + perl_d_recvmsg + "'"
3017 $ WC "d_msghdr_s='" + perl_d_msghdr_s + "'"
3018 $ WC "d_cmsghdr_s='" + perl_d_cmsghdr_s + "'"
3019 $ WC "i_sysuio='" + perl_i_sysuio + "'"
3020 $ WC "d_fseeko='" + perl_d_fseeko + "'"
3021 $ WC "d_ftello='" + perl_d_ftello + "'"
3022 $ WC "d_readv='" + perl_d_readv + "'"
3023 $ WC "d_writev='" + perl_d_writev + "'"
3024 $ WC "i_machcthr='" + perl_i_machcthr + "'"
3025 $ WC "usemultiplicity='" + perl_usemultiplicity + "'"
3026 $ WC "d_dbminit64='" + perl_d_dbminit64 + "'"
3027 $ WC "d_dbmclose64='" + perl_d_dbmclose64 + "'"
3028 $ WC "d_fetch64='" + perl_d_fetch64 + "'"
3029 $ WC "d_store64='" + perl_d_store64 + "'"
3030 $ WC "d_delete64='" + perl_d_delete64 + "'"
3031 $ WC "d_firstkey64='" + perl_d_firstkey64 + "'"
3032 $ WC "d_nextkey64='" + perl_d_nextkey64 + "'"
3033 $ WC "i_poll='" + perl_i_poll + "'"
3034 $ WC "i_inttypes='" + perl_i_inttypes + "'"
3035 $ WC "d_int64t='" + perl_d_int64t + "'"
3036 $ WC "d_off64t='" + perl_d_off64t + "'"
3037 $ WC "d_fstat64='" + perl_d_fstat64 + "'"
3038 $ WC "d_ftruncate64='" + perl_d_ftruncate64 + "'"
3039 $ WC "d_lseek64='" + perl_d_lseek64 + "'"
3040 $ WC "d_lstat64='" + perl_d_lstat64 + "'"
3041 $ WC "d_open64='" + perl_d_open64 + "'"
3042 $ WC "d_opendir64='" + perl_d_opendir64 + "'"
3043 $ WC "d_readdir64='" + perl_d_readdir64 + "'"
3044 $ WC "d_seekdir64='" + perl_d_seekdir64 + "'"
3045 $ WC "d_stat64='" + perl_d_stat64 + "'"
3046 $ WC "d_telldir64='" + perl_d_telldir64 + "'"
3047 $ WC "d_truncate64='" + perl_d_truncate64 + "'"
3048 $ WC "d_dirent64_s='" + perl_d_dirent64_s + "'"
3049 $ WC "use64bits='" + perl_use64bits + "'"
3050 $ WC "d_fgetpos64='" + perl_d_fgetpos64 + "'"
3051 $ WC "d_fopen64='" + perl_d_fopen64 + "'"
3052 $ WC "d_freopen64='" + perl_d_freopen64 + "'"
3053 $ WC "d_fseek64='" + perl_d_fseek64 + "'"
3054 $ WC "d_fseeko64='" + perl_d_fseeko64 + "'"
3055 $ WC "d_fsetpos64='" + perl_d_fsetpos64 + "'"
3056 $ WC "d_ftell64='" + perl_d_ftell64 + "'"
3057 $ WC "d_ftello64='" + perl_d_ftello64 + "'"
3058 $ WC "d_tmpfile64='" + perl_d_tmpfile64 + "'"
3059 $ WC "d_drand48proto='" + perl_d_drand48proto + "'"
3060 $ WC "d_pthread_create_joinable='" + perl_d_pthread_create_joinable + "'"
3061 $ WC "pthread_create_joinable='" + perl_pthread_create_joinable + "'"
3062 $ WC "drand01='" + perl_drand01 + "'"
3063 $ WC "randseedtype='" + perl_randseedtype + "'"
3064 $ WC "seedfunc='" + perl_seedfunc + "'"
3065 $ WC "sig_num_init='" + perl_sig_num_with_commas + "'"
3066 $ WC "i_sysmount='" + perl_i_sysmount + "'"
3067 $ WC "d_fstatfs='" + perl_d_fstatfs + "'"
3068 $ WC "d_statfsflags='" + perl_d_statfsflags + "'"
3069 $ WC "i_sysstatvfs='" + perl_i_sysstatvfs + "'"
3070 $ WC "d_fstatvfs='" + perl_d_fstatvfs + "'"
3071 $ WC "i_mntent='" + perl_i_mntent + "'"
3072 $ WC "d_getmntent='" + perl_d_getmntent + "'"
3073 $ WC "d_hasmntopt='" + perl_d_hasmntopt + "'"
3074 $ WC "d_telldirproto='" + perl_d_telldirproto + "'"
3075 $ WC "d_madvise='" + perl_d_madvise + "'"
3076 $ WC "d_msync='" + perl_d_msync + "'"
3077 $ WC "d_mprotect='" + perl_d_mprotect + "'"
3078 $ WC "d_munmap='" + perl_d_munmap + "'"
3079 $ WC "d_mmap='" + perl_d_mmap + "'"
3080 $ WC "i_sysmman='" + perl_i_sysmman + "'"
3082 $! ##WRITE NEW CONSTANTS HERE##
3086 $! Okay, we've gotten here. Build munchconfig and run it
3087 $ 'Perl_CC' munchconfig.c
3088 $ If (Needs_Opt.eqs."Yes")
3090 $ open/write OPTCHAN []munchconfig.opt
3091 $ IF ("''using_gnu_c'".eqs."Yes")
3093 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
3095 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
3097 $ link munchconfig.obj,munchconfig.opt/opt
3098 $ delete munchconfig.opt;*
3100 $ link munchconfig.obj
3102 $ WRITE_RESULT "Writing config.h"
3104 $ ! we need an fdl file
3105 $ CREATE [-]CONFIG.FDL
3108 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
3109 $ ! First spit out the header info with the local defines (to get
3110 $ ! around the 255 character command line limit)
3111 $ OPEN/APPEND CONFIG [-]config.local
3112 $ if use_debugging_perl.eqs."Y"
3114 $ WRITE CONFIG "#define DEBUGGING"
3116 $ if preload_env.eqs."Y"
3118 $ WRITE CONFIG "#define PRIME_ENV_AT_STARTUP"
3120 $ if use_two_pot_malloc.eqs."Y"
3122 $ WRITE CONFIG "#define TWO_POT_OPTIMIZE"
3124 $ if mymalloc.eqs."Y"
3126 $ WRITE CONFIG "#define EMBEDMYMALLOC"
3128 $ if use_pack_malloc.eqs."Y"
3130 $ WRITE CONFIG "#define PACK_MALLOC"
3132 $ if use_debugmalloc.eqs."Y"
3134 $ write config "#define DEBUGGING_MSTATS"
3136 $ if "''Using_Gnu_C'" .eqs."Yes"
3138 $ WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
3140 $ if "''Has_Dec_C_Sockets'".eqs."T"
3142 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
3143 $ WRITE CONFIG "#define DECCRTL_SOCKETS"
3145 $ if "''Has_Socketshr'".eqs."T"
3147 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
3151 $! Now build the normal config.h
3152 $ define/user sys$output [-]config.main
3153 $ mcr []munchconfig [-]config.sh [-]config_h.sh
3154 $ ! Concatenate them together
3155 $ copy [-]config.local,[-]config.main [-]config.h
3157 $ DELETE/NOLOG [-]CONFIG.MAIN;*
3158 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
3159 $ DELETE/NOLOG [-]CONFIG.FDL;*
3161 $ if "''Using_Dec_C'" .eqs."Yes"
3163 $ DECC_REPLACE = "DECC=decc=1"
3165 $ DECC_REPLACE = "DECC="
3167 $ if "''Using_Gnu_C'" .eqs."Yes"
3169 $ GNUC_REPLACE = "GNUC=gnuc=1"
3171 $ GNUC_REPLACE = "GNUC="
3173 $ if "''Has_Dec_C_Sockets'" .eqs."T"
3175 $ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
3177 $ if "''Has_Socketshr'" .eqs."T"
3179 $ SOCKET_REPLACE = "SOCKET=SOCKETSHR_SOCKETS=1"
3181 $ SOCKET_REPLACE = "SOCKET="
3184 $ IF ("''Use_Threads'".eqs."T")
3186 $ if ("''VMS_VER'".LES."6.2")
3188 $ THREAD_REPLACE = "THREAD=OLDTHREADED=1"
3190 $ THREAD_REPLACE = "THREAD=THREADED=1"
3193 $ THREAD_REPLACE = "THREAD="
3195 $ if mymalloc.eqs."Y"
3197 $ MALLOC_REPLACE = "MALLOC=MALLOC=1"
3199 $ MALLOC_REPLACE = "MALLOC="
3201 $ if f$getsyi("HW_MODEL").ge.1024
3203 $ ARCH_TYPE = "ARCH-TYPE=__AXP__"
3205 $ ARCH_TYPE = "ARCH-TYPE=__VAX__"
3207 $ WRITE_RESULT "Writing DESCRIP.MMS"
3209 $ define/user sys$output [-]descrip.mms
3210 $ mcr []munchconfig [-]config.sh descrip_mms.template "''DECC_REPLACE'" "''ARCH_TYPE'" "''GNUC_REPLACE'" "''SOCKET_REPLACE'" "''THREAD_REPLACE'" "''C_Compiler_Replace'" "''MALLOC_REPLACE'" "''Thread_Live_Dangerously'" "PV=''LocalPerlVer'"
3213 $! Clean up after ourselves
3214 $ delete/nolog munchconfig.exe;*
3215 $ delete/nolog munchconfig.obj;*