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_telldirproto="define"
66 $ perl_i_sysmount="undef"
67 $ perl_d_fstatfs="undef"
68 $ perl_d_fstatvfs="undef"
69 $ perl_d_statfsflags="undef"
70 $ perl_i_sysstatvfs="undef"
71 $ perl_i_mntent="undef"
72 $ perl_d_getmntent="undef"
73 $ perl_d_hasmntopt="undef"
74 $ perl_package="''package'"
75 $ perl_baserev = "''baserev'"
78 $ perl_d_fseeko="undef"
79 $ perl_d_ftello="undef"
80 $ perl_d_readv="undef"
81 $ perl_d_writev="undef"
82 $ perl_i_machcthr="undef"
83 $ perl_i_netdb="undef"
84 $ perl_d_gnulibc="undef"
85 $ perl_cf_by="unknown"
89 $ perl_drand01 = "random()"
90 $ perl_randseedtype = "unsigned int"
91 $ perl_seedfunc = "srand"
92 $ perl_d_msg_ctrunc = "undef"
93 $ perl_d_msg_dontroute = "undef"
94 $ perl_d_msg_oob = "undef"
95 $ perl_d_msg_peek = "undef"
96 $ perl_d_msg_proxy = "undef"
97 $ perl_d_scm_rights = "undef"
98 $ perl_d_sendmsg = "undef"
99 $ perl_d_recvmsg = "undef"
100 $ perl_d_msghdr_s = "undef"
101 $ perl_d_cmsghdr_s = "undef"
102 $ perl_d_dbminit64 = "undef"
103 $ perl_d_dbmclose64 = "undef"
104 $ perl_d_fetch64 = "undef"
105 $ perl_d_store64 = "undef"
106 $ perl_d_delete64 = "undef"
107 $ perl_d_firstkey64 = "undef"
108 $ perl_d_nextkey64 = "undef"
109 $ perl_d_fstat64 = "undef"
110 $ perl_d_ftruncate64 = "undef"
111 $ perl_d_lseek64 = "undef"
112 $ perl_d_lstat64 = "undef"
113 $ perl_d_open64 = "undef"
114 $ perl_d_opendir64 = "undef"
115 $ perl_d_readdir64 = "undef"
116 $ perl_d_seekdir64 = "undef"
117 $ perl_d_stat64 = "undef"
118 $ perl_d_telldir64 = "undef"
119 $ perl_d_truncate64 = "undef"
120 $ perl_d_dirent64_s = "undef"
121 $ perl_d_fgetpos64 = "undef"
122 $ perl_d_fopen64 = "undef"
123 $ perl_d_freopen64 = "undef"
124 $ perl_d_fseek64 = "undef"
125 $ perl_d_fseeko64 = "undef"
126 $ perl_d_fsetpos64 = "undef"
127 $ perl_d_ftell64 = "undef"
128 $ perl_d_ftello64 = "undef"
129 $ perl_d_tmpfile64 = "undef"
130 $ perl_use64bits = "undef"
131 $ perl_d_drand48proto = "define"
132 $ perl_libpth="/sys$share /sys$library"
134 $ perl_lddlflags="/Share"
139 $ perl_i_arpainet="undef"
140 $ perl_d_grpasswd="undef"
141 $ perl_d_setgrent="undef"
142 $ perl_d_getgrent="define"
143 $ perl_d_endgrent="define"
144 $ perl_d_pwpasswd="define"
145 $ perl_d_setpwent="define"
146 $ perl_d_getpwent="define"
147 $ perl_d_endpwent="define"
148 $ perl_d_phostname="undef"
149 $ perl_d_accessx="undef"
150 $ perl_d_eaccess="undef"
151 $ perl_ebcdic="undef"
153 $ perl_shrplib="define"
154 $ perl_usemymalloc=mymalloc
155 $ perl_usevfork="true"
156 $ perl_useposix="false"
157 $ perl_spitshell="write sys$output "
158 $ perl_dlsrc="dl_vms.c"
161 $ perl_prefix="perl_root"
162 $ perl_binexp="''perl_prefix':[000000]"
163 $ perl_builddir="''perl_prefix':[000000]"
164 $ perl_installbin="''perl_prefix':[000000]"
165 $ perl_installscript="''perl_prefix':[utils]"
166 $ perl_installman1dir="''perl_prefix':[man.man1]"
167 $ perl_installman3dir="''perl_prefix':[man.man3]"
168 $ perl_installprivlib="''perl_prefix':[lib]"
169 $ perl_installsitelib="''perl_prefix':[lib.site_perl]"
172 $ perl_d_sockpair="undef"
173 $ perl_i_neterrno="define"
174 $ perl_ldflags="/NoTrace/NoMap"
175 $ perl_d_lchown="undef"
176 $ perl_d_mknod="undef"
177 $ perl_d_union_semun="undef"
178 $ perl_d_semctl_semun="undef"
179 $ perl_d_semctl_semid_ds="undef"
180 $ IF (sharedperl.EQS."Y")
182 $ perl_obj_ext=".abj"
185 $ perl_exe_ext=".axe"
186 $ perl_lib_ext=".alb"
188 $ perl_obj_ext=".obj"
191 $ perl_exe_ext=".exe"
192 $ perl_lib_ext=".olb"
194 $ perl_dlobj="dl_vms''perl_obj_ext'"
196 $ perl_d_archlib="define"
197 $ perl_d_bincompat3="undef"
198 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
200 $ perl_d_castneg="define"
202 $ perl_d_chsize="undef"
203 $ perl_d_const="define"
204 $ perl_d_crypt="define"
205 $ perl_byteorder="1234"
208 $ perl_d_dup2="define"
209 $ perl_d_fchmod="undef"
210 $ perl_d_fchown="undef"
211 $ perl_d_fcntl="undef"
212 $ perl_d_fgetpos="define"
213 $ perl_d_flexfnam="define"
214 $ perl_d_flock="undef"
215 $ perl_d_fsetpos="define"
216 $ perl_d_getgrps="undef"
217 $ perl_d_setgrps="undef"
218 $ perl_d_getprior="undef"
219 $ perl_d_killpg="undef"
220 $ perl_d_link="undef"
221 $ perl_d_lstat="undef"
222 $ perl_d_lockf="undef"
223 $ perl_d_memcmp="define"
224 $ perl_d_memcpy="define"
225 $ perl_d_memmove="define"
226 $ perl_d_memset="define"
227 $ perl_d_mkdir="define"
229 $ perl_d_open3="define"
230 $ perl_d_poll="undef"
231 $ perl_d_readdir="define"
232 $ perl_d_seekdir="define"
233 $ perl_d_telldir="define"
234 $ perl_d_rewinddir="define"
235 $ perl_d_rename="define"
236 $ perl_d_rmdir="define"
238 $ perl_d_setegid="undef"
239 $ perl_d_seteuid="undef"
240 $ perl_d_setprior="undef"
241 $ perl_d_setregid="undef"
242 $ perl_d_setresgid="undef"
243 $ perl_d_setreuid="undef"
244 $ perl_d_setresuid="undef"
245 $ perl_d_setrgid="undef"
246 $ perl_d_setruid="undef"
247 $ perl_d_setsid="undef"
249 $ perl_d_shmatprototype="undef"
250 $ perl_d_statblks="undef"
251 $ perl_stdio_ptr="((*fp)->_ptr)"
252 $ perl_stdio_cnt="((*fp)->_cnt)"
253 $ perl_stdio_base="((*fp)->_base)"
254 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
255 $ perl_d_strctcpy="define"
256 $ perl_d_strerror="define"
257 $ perl_d_syserrlst="undef"
258 $ perl_d_strerrm="strerror((e),vaxc$errno)"
259 $ perl_d_symlink="undef"
260 $ perl_d_syscall="undef"
261 $ perl_d_system="define"
262 $ perl_timetype="time_t"
263 $ perl_d_vfork="define"
264 $ perl_signal_t="void"
265 $ perl_d_volatile="define"
266 $ perl_d_vprintf="define"
267 $ perl_d_charvspr="undef"
268 $ perl_d_waitpid="define"
269 $ perl_i_dirent="undef"
270 $ perl_d_dirnamlen="define"
271 $ perl_direntrytype="struct dirent"
272 $ perl_i_fcntl="undef"
274 $ perl_i_limits="define"
275 $ perl_i_memory="undef"
276 $ perl_i_ndbm="undef"
277 $ perl_i_stdarg="define"
279 $ perl_d_pwquota="undef"
280 $ perl_d_pwage="undef"
281 $ perl_d_pwchange="undef"
282 $ perl_d_pwclass="undef"
283 $ perl_d_pwexpire="undef"
284 $ perl_d_pwcomment="define"
285 $ perl_i_stddef="define"
286 $ perl_i_stdlib="define"
287 $ perl_i_string="define"
288 $ perl_i_sysdir="undef"
289 $ perl_i_sysfile="undef"
290 $ perl_i_sysioctl="undef"
291 $ perl_i_sysndir="undef"
292 $ perl_i_sysresrc="undef"
293 $ perl_i_sysselct="undef"
295 $ perl_i_rpcsvcdbm="undef"
296 $ perl_i_sfio="undef"
297 $ perl_i_sysstat="define"
298 $ perl_i_systimes="undef"
299 $ perl_i_systypes="define"
300 $ perl_i_sysun="undef"
301 $ perl_i_syswait="undef"
302 $ perl_i_termio="undef"
303 $ perl_i_sgtty="undef"
304 $ perl_i_termios="undef"
305 $ perl_i_time="define"
306 $ perl_i_systime="undef"
307 $ perl_i_systimek="undef"
308 $! perl_i_unistd="undef"
309 $ perl_i_utime="undef"
310 $ perl_i_varargs="undef"
311 $ perl_i_vfork="undef"
312 $ perl_prototype="define"
314 $ perl_stdchar="char"
315 $ perl_d_unlink_all_versions="undef"
316 $ perl_full_sed="_NLA0:"
317 $ perl_bin="/''perl_prefix'/000000"
318 $ perl_binexp="''perl_prefix':[000000]"
319 $ perl_d_alarm="define"
320 $ perl_d_casti32="define"
321 $ perl_d_chown="define"
322 $ perl_d_chroot="undef"
323 $ perl_d_cuserid="define"
324 $ perl_d_dbl_dig="define"
325 $ perl_d_difftime="define"
326 $ perl_d_fork="undef"
327 $ perl_d_getlogin="define"
328 $ perl_d_getppid="undef"
329 $ perl_d_nice="define"
330 $ perl_d_pause="define"
331 $ perl_d_pipe="define"
332 $ perl_d_readlink="undef"
333 $ perl_d_setlinebuf="undef"
334 $ perl_d_strchr="define"
335 $ perl_d_strtod="define"
336 $ perl_d_strtol="define"
337 $ perl_d_strtoul="define"
338 $ perl_d_tcgetpgrp="undef"
339 $ perl_d_tcsetpgrp="undef"
340 $ perl_d_times="define"
341 $ perl_d_tzname="undef"
342 $ perl_d_umask="define"
343 $ perl_fpostype="fpos_t"
344 $ perl_i_dlfcn="undef"
345 $ perl_i_float="define"
346 $ perl_i_math="define"
347 $ perl_lseektype="int"
348 $ perl_i_values="undef"
349 $ perl_malloctype="void *"
350 $ perl_freetype="void"
351 $ if "''mymalloc'".eqs."Y"
353 $ perl_d_mymalloc="define"
355 $ perl_d_mymalloc="undef"
358 $ perl_modetype="unsigned int"
359 $ perl_ssizetype="int"
363 $ perl_d_eofnblk="undef"
364 $ perl_d_oldarchlib="define"
365 $ perl_privlibexp="''perl_prefix':[lib]"
366 $ perl_privlib="''perl_prefix':[lib]"
367 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
368 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
369 $ perl_sizetype="size_t"
370 $ perl_i_sysparam="undef"
371 $ perl_d_void_closedir="define"
372 $ perl_d_dlerror="undef"
373 $ perl_d_dlsymun="undef"
374 $ perl_d_suidsafe="undef"
375 $ perl_d_dosuid="undef"
376 $ perl_d_inetaton="undef"
377 $ perl_d_isascii="define"
378 $ perl_d_mkfifo="undef"
379 $ perl_d_safebcpy="undef"
380 $ perl_d_safemcpy="define"
381 $ perl_d_sanemcmp="define"
382 $ perl_d_setpgrp="undef"
383 $ perl_d_bsdsetpgrp="undef"
384 $ perl_d_bsdpgrp="undef"
385 $ perl_d_setpgid="undef"
386 $ perl_d_setpgrp2="undef"
387 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
388 $ perl_d_getpgid="undef"
389 $ perl_d_getpgrp="undef"
390 $ perl_d_bsdgetpgrp="undef"
391 $ perl_d_getpgrp2="undef"
392 $ perl_d_sfio="undef"
393 $ perl_usedl="define"
394 $ perl_startperl="""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ + ++$status != 0 and $exit = $status = undef;"""
395 $ perl_db_hashtype=""
396 $ perl_db_prefixtype=""
397 $ perl_useperlio="undef"
398 $ perl_defvoidused="15"
399 $ perl_voidflags="15"
400 $ perl_d_eunice="undef"
401 $ perl_d_pwgecos="define"
402 $ IF ("''Use_Threads'".eqs."T").and.("''VMS_VER'".LES."6.2")
404 $ 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"
408 $ IF ("''Using_Dec_C'".eqs."Yes")
410 $ perl_libc="(DECCRTL)"
414 $ perl_PATCHLEVEL="''patchlevel'"
415 $ perl_SUBVERSION="''subversion'"
419 $! Now some that we build up
421 $ LocalTime = f$time()
422 $ perl_cf_time= f$extract(0, 3, f$cvtime(LocalTime,, "WEEKDAY")) + " " + -
423 f$edit(f$cvtime(LocalTime, "ABSOLUTE", "MONTH"), "LOWERCASE") + -
424 " " + f$cvtime(LocalTime,, "DAY") + " " + f$cvtime(LocalTime,, "TIME") + -
425 " " + f$cvtime(LocalTime,, "YEAR")
426 $ if f$getsyi("HW_MODEL").ge.1024
428 $ perl_arch="VMS_AXP"
429 $ perl_archname="VMS_AXP"
430 $ perl_alignbytes="8"
432 $ perl_arch="VMS_VAX"
433 $ perl_archname="VMS_VAX"
434 $ perl_alignbytes="8"
436 $ if ("''Use_Threads'".eqs."T")
438 $ perl_arch = "''perl_arch'-thread"
439 $ perl_archname = "''perl_archname'-thread"
441 $ perl_d_pthread_create_joinable = "undef"
442 $ perl_pthread_create_joinable = ""
444 $ perl_osvers=f$edit(osvers, "TRIM")
445 $ if (perl_subversion + 0).eq.0
447 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL
449 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion
452 $! Some that we need to invoke the compiler for
453 $ OS := "open/write SOURCECHAN []temp.c"
454 $ WS := "write SOURCECHAN"
455 $ CS := "close SOURCECHAN"
456 $ DS := "delete/nolog []temp.*;*"
458 $ if ("''using_vax_c'".eqs."Yes").or.("''using_gnu_c'".eqs."Yes")
460 $ open/write OPTCHAN []temp.opt
461 $ IF ("''using_gnu_c'".eqs."Yes")
463 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
465 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
470 $! Check for __STDC__
474 $ WS "#include <stdlib.h>
476 $ WS "#include <stdio.h>
479 $ WS "#ifdef __STDC__
480 $ WS "printf(""42\n"");
482 $ WS "printf(""1\n"");
487 $ DEFINE SYS$ERROR _NLA0:
488 $ DEFINE SYS$OUTPUT _NLA0:
489 $ ON ERROR THEN CONTINUE
490 $ ON WARNING THEN CONTINUE
492 $ If (Needs_Opt.eqs."Yes")
494 $ link temp.obj,temp.opt/opt
498 $ DEASSIGN SYS$OUTPUT
500 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
501 $ DEFINE SYS$ERROR TEMPOUT
502 $ DEFINE SYS$OUTPUT TEMPOUT
505 $ DEASSIGN SYS$OUTPUT
507 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
511 $ perl_cpp_stuff=line
512 $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
514 $! Check for double size
518 $ WS "#include <stdlib.h>
520 $ WS "#include <stdio.h>
524 $ WS "foo = sizeof(double);
525 $ WS "printf(""%d\n"", foo);
529 $ DEFINE SYS$ERROR _NLA0:
530 $ DEFINE SYS$OUTPUT _NLA0:
531 $ ON ERROR THEN CONTINUE
532 $ ON WARNING THEN CONTINUE
534 $ If (Needs_Opt.eqs."Yes")
536 $ link temp.obj,temp.opt/opt
541 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
542 $ DEASSIGN SYS$OUTPUT
544 $ DEFINE SYS$ERROR TEMPOUT
545 $ DEFINE SYS$OUTPUT TEMPOUT
548 $ DEASSIGN SYS$OUTPUT
550 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
554 $ perl_doublesize=line
555 $ WRITE_RESULT "doublesize is ''perl_doublesize'"
557 $! Check for long double size
561 $ WS "#include <stdlib.h>
563 $ WS "#include <stdio.h>
566 $ WS "printf(""%d\n"", sizeof(long double));
570 $ DEFINE SYS$ERROR _NLA0:
571 $ DEFINE SYS$OUTPUT _NLA0:
572 $ ON ERROR THEN CONTINUE
573 $ ON WARNING THEN CONTINUE
575 $ teststatus = f$extract(9,1,$status)
576 $ if (teststatus.nes."1")
578 $ perl_longdblsize="0"
579 $ perl_d_longdbl="undef"
581 $ ON ERROR THEN CONTINUE
582 $ ON WARNING THEN CONTINUE
583 $ If (Needs_Opt.eqs."Yes")
585 $ link temp.obj,temp.opt/opt
589 $ teststatus = f$extract(9,1,$status)
590 $ DEASSIGN SYS$OUTPUT
592 $ if (teststatus.nes."1")
594 $ perl_longdblsize="0"
595 $ perl_d_longdbl="undef"
597 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
598 $ DEFINE SYS$ERROR TEMPOUT
599 $ DEFINE SYS$OUTPUT TEMPOUT
602 $ DEASSIGN SYS$OUTPUT
604 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
608 $ perl_longdblsize=line
609 $ perl_d_longdbl="define"
612 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
613 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
615 $! Check for long long existance and size
619 $ WS "#include <stdlib.h>
621 $ WS "#include <stdio.h>
624 $ WS "printf(""%d\n"", sizeof(long long));
628 $ DEFINE SYS$ERROR _NLA0:
629 $ DEFINE SYS$OUTPUT _NLA0:
630 $ on error then continue
631 $ on warning then continue
633 $ If (Needs_Opt.eqs."Yes")
635 $ link temp.obj,temp.opt/opt
639 $ teststatus = f$extract(9,1,$status)
640 $ DEASSIGN SYS$OUTPUT
642 $ if (teststatus.nes."1")
644 $ perl_longlongsize="0"
645 $ perl_d_longlong="undef"
647 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
648 $ DEFINE SYS$ERROR TEMPOUT
649 $ DEFINE SYS$OUTPUT TEMPOUT
652 $ DEASSIGN SYS$OUTPUT
654 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
658 $ perl_longlongsize=line
659 $ perl_d_longlong="define"
661 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
662 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
664 $! Check for int size
668 $ WS "#include <stdlib.h>
670 $ WS "#include <stdio.h>
673 $ WS "printf(""%d\n"", sizeof(int));
677 $ DEFINE SYS$ERROR _NLA0:
678 $ DEFINE SYS$OUTPUT _NLA0:
679 $ on error then continue
680 $ on warning then continue
682 $ If (Needs_Opt.eqs."Yes")
684 $ link temp.obj,temp.opt/opt
688 $ If (Needs_Opt.eqs."Yes")
690 $ link temp.obj,temp.opt/opt
694 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
695 $ DEASSIGN SYS$OUTPUT
697 $ DEFINE SYS$ERROR TEMPOUT
698 $ DEFINE SYS$OUTPUT TEMPOUT
701 $ DEASSIGN SYS$OUTPUT
703 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
708 $ WRITE_RESULT "intsize is ''perl_intsize'"
710 $! Check for short size
714 $ WS "#include <stdlib.h>
716 $ WS "#include <stdio.h>
719 $ WS "printf(""%d\n"", sizeof(short));
723 $ DEFINE SYS$ERROR _NLA0:
724 $ DEFINE SYS$OUTPUT _NLA0:
725 $ on error then continue
726 $ on warning then continue
728 $ If (Needs_Opt.eqs."Yes")
730 $ link temp.obj,temp.opt/opt
734 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
735 $ DEASSIGN SYS$OUTPUT
737 $ DEFINE SYS$ERROR TEMPOUT
738 $ DEFINE SYS$OUTPUT TEMPOUT
741 $ DEASSIGN SYS$OUTPUT
743 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
747 $ perl_shortsize=line
748 $ WRITE_RESULT "shortsize is ''perl_shortsize'"
750 $! Check for long size
754 $ WS "#include <stdlib.h>
756 $ WS "#include <stdio.h>
760 $ WS "foo = sizeof(long);
761 $ WS "printf(""%d\n"", foo);
765 $ DEFINE SYS$ERROR _NLA0:
766 $ DEFINE SYS$OUTPUT _NLA0:
767 $ on error then continue
768 $ on warning then continue
770 $ If (Needs_Opt.eqs."Yes")
772 $ link temp.obj,temp.opt/opt
776 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
777 $ DEASSIGN SYS$OUTPUT
779 $ DEFINE SYS$ERROR TEMPOUT
780 $ DEFINE SYS$OUTPUT TEMPOUT
783 $ DEASSIGN SYS$OUTPUT
785 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
790 $ WRITE_RESULT "longsize is ''perl_longsize'"
792 $! Check the prototype for getgid
796 $ WS "#include <stdlib.h>
798 $ WS "#include <stdio.h>
799 $ WS "#include <types.h>
800 $ WS "#include <unistd.h>
807 $ DEFINE SYS$ERROR _NLA0:
808 $ DEFINE SYS$OUTPUT _NLA0:
809 $ on error then continue
810 $ on warning then continue
812 $ teststatus = f$extract(9,1,$status)
813 $ DEASSIGN SYS$OUTPUT
815 $ if (teststatus.nes."1")
817 $! Okay, gid_t failed. Must be unsigned int
818 $ perl_gidtype = "unsigned int"
820 $ perl_gidtype = "gid_t"
822 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
824 $! Check to see if we've got dev_t
828 $ WS "#include <stdlib.h>
830 $ WS "#include <stdio.h>
831 $ WS "#include <types.h>
832 $ WS "#include <unistd.h>
839 $ DEFINE SYS$ERROR _NLA0:
840 $ DEFINE SYS$OUTPUT _NLA0:
841 $ on error then continue
842 $ on warning then continue
844 $ teststatus = f$extract(9,1,$status)
845 $ DEASSIGN SYS$OUTPUT
847 $ if (teststatus.nes."1")
849 $! Okay, dev_t failed. Must be unsigned int
850 $ perl_devtype = "unsigned int"
852 $ perl_devtype = "dev_t"
854 $ WRITE_RESULT "Dev_t is ''perl_devtype'"
856 $! Check to see if we've got unistd.h (which we ought to, but you never know)
860 $ WS "#include <stdlib.h>
862 $ WS "#include <unistd.h>
868 $ DEFINE SYS$ERROR _NLA0:
869 $ DEFINE SYS$OUTPUT _NLA0:
870 $ on error then continue
871 $ on warning then continue
873 $ teststatus = f$extract(9,1,$status)
874 $ DEASSIGN SYS$OUTPUT
876 $ if (teststatus.nes."1")
878 $! Okay, failed. Must not have it
879 $ perl_i_unistd = "undef"
881 $ perl_i_unistd = "define"
884 $ WRITE_RESULT "i_unistd is ''perl_i_unistd'"
886 $! Check the prototype for select
888 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
892 $ WS "#include <stdlib.h>
894 $ WS "#include <stdio.h>
895 $ WS "#include <types.h>
896 $ WS "#include <unistd.h>
897 $ if ("''Has_Socketshr'".eqs."T")
899 $ WS "#include <socketshr.h>"
901 $ WS "#include <time.h>
902 $ WS "#include <socket.h>
909 $ WS "bar = select(2, foo, foo, foo, NULL);
913 $ DEFINE SYS$ERROR _NLA0:
914 $ DEFINE SYS$OUTPUT _NLA0:
915 $ on error then continue
916 $ on warning then continue
918 $ teststatus = f$extract(9,1,$status)
919 $ DEASSIGN SYS$OUTPUT
921 $ if (teststatus.nes."1")
923 $! Okay, fd_set failed. Must be an int
924 $ perl_selecttype = "int *"
926 $ perl_selecttype="fd_set *"
929 $ ! No sockets, so stick in an int *
930 $ perl_selecttype = "int *"
932 $ WRITE_RESULT "selectype is ''perl_selecttype'"
934 $! Check to see if fd_set exists
938 $ WS "#include <stdlib.h>
940 $ WS "#include <stdio.h>
941 $ WS "#include <types.h>
942 $ WS "#include <unistd.h>
943 $ if ("''Has_Socketshr'".eqs."T")
945 $ WS "#include <socketshr.h>"
947 $ IF ("''Has_Dec_C_Sockets'".eqs."T")
949 $ WS "#include <time.h>
950 $ WS "#include <socket.h>
959 $ DEFINE SYS$ERROR _NLA0:
960 $ DEFINE SYS$OUTPUT _NLA0:
961 $ on error then continue
962 $ on warning then continue
964 $ teststatus = f$extract(9,1,$status)
965 $ DEASSIGN SYS$OUTPUT
967 $ if (teststatus.nes."1")
969 $! Okay, fd_set failed. Must not exist
970 $ perl_d_fd_set = "undef"
972 $ perl_d_fd_set="define"
974 $ WRITE_RESULT "d_fd_set is ''perl_d_fd_set'"
976 $! Check for inttypes.h
980 $ WS "#include <stdlib.h>
982 $ WS "#include <stdio.h>
983 $ WS "#include <unistd.h>
984 $ WS "#include <inttypes.h>
990 $ DEFINE SYS$ERROR _NLA0:
991 $ DEFINE SYS$OUTPUT _NLA0:
992 $ on error then continue
993 $ on warning then continue
995 $ savedstatus = $status
996 $ teststatus = f$extract(9,1,savedstatus)
997 $ if (teststatus.nes."1")
999 $ perl_i_inttypes="undef"
1000 $ DEASSIGN SYS$OUTPUT
1001 $ DEASSIGN SYS$ERROR
1003 $ If (Needs_Opt.eqs."Yes")
1005 $ link temp.obj,temp.opt/opt
1009 $ savedstatus = $status
1010 $ teststatus = f$extract(9,1,savedstatus)
1011 $ DEASSIGN SYS$OUTPUT
1012 $ DEASSIGN SYS$ERROR
1013 $ if (teststatus.nes."1")
1015 $ perl_i_inttypes="undef"
1017 $ perl_i_inttypes="define"
1020 $ WRITE_RESULT "i_inttypes is ''perl_i_inttypes'"
1022 $! Check to see if int64_t exists
1026 $ WS "#include <stdlib.h>
1028 $ WS "#include <stdio.h>
1029 $ WS "#include <types.h>
1030 $ WS "#''perl_i_inttypes IIH
1032 $ WS "#include <inttypes.h>
1034 $ WS "#include <unistd.h>
1041 $ DEFINE SYS$ERROR _NLA0:
1042 $ DEFINE SYS$OUTPUT _NLA0:
1043 $ on error then continue
1044 $ on warning then continue
1046 $ teststatus = f$extract(9,1,$status)
1047 $ DEASSIGN SYS$OUTPUT
1048 $ DEASSIGN SYS$ERROR
1049 $ if (teststatus.nes."1")
1051 $! Okay, int64_t failed. Must not exist
1052 $ perl_d_int64t = "undef"
1054 $ perl_d_int64t="define"
1056 $ WRITE_RESULT "d_int64t is ''perl_d_int64t'"
1058 $! Check to see if off64_t exists
1062 $ WS "#include <stdlib.h>
1064 $ WS "#include <stdio.h>
1065 $ WS "#include <types.h>
1066 $ WS "#''perl_i_inttypes IIH
1068 $ WS "#include <inttypes.h>
1070 $ WS "#include <unistd.h>
1077 $ DEFINE SYS$ERROR _NLA0:
1078 $ DEFINE SYS$OUTPUT _NLA0:
1079 $ on error then continue
1080 $ on warning then continue
1082 $ teststatus = f$extract(9,1,$status)
1083 $ DEASSIGN SYS$OUTPUT
1084 $ DEASSIGN SYS$ERROR
1085 $ if (teststatus.nes."1")
1087 $! Okay, off64_t failed. Must not exist
1088 $ perl_d_off64t = "undef"
1090 $ perl_d_off64t="define"
1092 $ WRITE_RESULT "d_off64t is ''perl_d_off64t'"
1094 $! Check to see if gethostname exists
1096 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1100 $ WS "#include <stdlib.h>
1102 $ WS "#include <stdio.h>
1103 $ WS "#include <types.h>
1104 $ WS "#include <unistd.h>
1105 $ if ("''Has_Socketshr'".eqs."T")
1107 $ WS "#include <socketshr.h>"
1109 $ WS "#include <time.h>
1110 $ WS "#include <socket.h>
1114 $ WS "char name[100];
1117 $ WS "baz = gethostname(name, bar);
1121 $ DEFINE SYS$ERROR _NLA0:
1122 $ DEFINE SYS$OUTPUT _NLA0:
1123 $ on error then continue
1124 $ on warning then continue
1126 $ teststatus = f$extract(9,1,$status)
1127 $ DEASSIGN SYS$OUTPUT
1128 $ DEASSIGN SYS$ERROR
1129 $ if (teststatus.nes."1")
1131 $! Okay, compile failed. Must not have it
1132 $ perl_dgethname = "undef"
1134 $ If (Needs_Opt.eqs."Yes")
1136 $ link temp.obj,temp.opt/opt
1140 $ savedstatus = $status
1141 $ teststatus = f$extract(9,1,savedstatus)
1142 $ if (teststatus.nes."1")
1144 $ perl_d_gethname="undef"
1146 $ perl_d_gethname="define"
1150 $ ! No sockets, so no gethname
1151 $ perl_d_gethname = "undef"
1153 $ WRITE_RESULT "d_gethname is ''perl_d_gethname'"
1155 $! Check for sys/file.h
1159 $ WS "#include <stdlib.h>
1161 $ WS "#include <stdio.h>
1162 $ WS "#include <unistd.h>
1163 $ WS "#include <sys/file.h>
1169 $ DEFINE SYS$ERROR _NLA0:
1170 $ DEFINE SYS$OUTPUT _NLA0:
1171 $ on error then continue
1172 $ on warning then continue
1174 $ savedstatus = $status
1175 $ teststatus = f$extract(9,1,savedstatus)
1176 $ if (teststatus.nes."1")
1178 $ perl_i_sysfile="undef"
1179 $ DEASSIGN SYS$OUTPUT
1180 $ DEASSIGN SYS$ERROR
1182 $ If (Needs_Opt.eqs."Yes")
1184 $ link temp.obj,temp.opt/opt
1188 $ savedstatus = $status
1189 $ teststatus = f$extract(9,1,savedstatus)
1190 $ DEASSIGN SYS$OUTPUT
1191 $ DEASSIGN SYS$ERROR
1192 $ if (teststatus.nes."1")
1194 $ perl_i_sysfile="undef"
1196 $ perl_i_sysfile="define"
1199 $ WRITE_RESULT "i_sysfile is ''perl_i_sysfile'"
1205 $ WS "#include <stdlib.h>
1207 $ WS "#include <stdio.h>
1208 $ WS "#include <unistd.h>
1209 $ WS "#include <poll.h>
1215 $ DEFINE SYS$ERROR _NLA0:
1216 $ DEFINE SYS$OUTPUT _NLA0:
1217 $ on error then continue
1218 $ on warning then continue
1220 $ savedstatus = $status
1221 $ teststatus = f$extract(9,1,savedstatus)
1222 $ if (teststatus.nes."1")
1224 $ perl_i_poll="undef"
1225 $ DEASSIGN SYS$OUTPUT
1226 $ DEASSIGN SYS$ERROR
1228 $ If (Needs_Opt.eqs."Yes")
1230 $ link temp.obj,temp.opt/opt
1234 $ savedstatus = $status
1235 $ teststatus = f$extract(9,1,savedstatus)
1236 $ DEASSIGN SYS$OUTPUT
1237 $ DEASSIGN SYS$ERROR
1238 $ if (teststatus.nes."1")
1240 $ perl_i_poll="undef"
1242 $ perl_i_poll="define"
1245 $ WRITE_RESULT "i_poll is ''perl_i_poll'"
1247 $! Check for sys/uio.h
1251 $ WS "#include <stdlib.h>
1253 $ WS "#include <stdio.h>
1254 $ WS "#include <unistd.h>
1255 $ WS "#include <sys/uio.h>
1261 $ DEFINE SYS$ERROR _NLA0:
1262 $ DEFINE SYS$OUTPUT _NLA0:
1263 $ on error then continue
1264 $ on warning then continue
1266 $ savedstatus = $status
1267 $ teststatus = f$extract(9,1,savedstatus)
1268 $ if (teststatus.nes."1")
1270 $ perl_i_sysuio="undef"
1271 $ DEASSIGN SYS$OUTPUT
1272 $ DEASSIGN SYS$ERROR
1274 $ If (Needs_Opt.eqs."Yes")
1276 $ link temp.obj,temp.opt/opt
1280 $ savedstatus = $status
1281 $ teststatus = f$extract(9,1,savedstatus)
1282 $ DEASSIGN SYS$OUTPUT
1283 $ DEASSIGN SYS$ERROR
1284 $ if (teststatus.nes."1")
1286 $ perl_i_sysuio="undef"
1288 $ perl_i_sysuio="define"
1291 $ WRITE_RESULT "i_sysuio is ''perl_i_sysuio'"
1293 $! Check for sys/access.h
1297 $ WS "#include <stdlib.h>
1299 $ WS "#include <stdio.h>
1300 $ WS "#include <unistd.h>
1301 $ WS "#include <sys/access.h>
1307 $ DEFINE SYS$ERROR _NLA0:
1308 $ DEFINE SYS$OUTPUT _NLA0:
1309 $ on error then continue
1310 $ on warning then continue
1312 $ savedstatus = $status
1313 $ teststatus = f$extract(9,1,savedstatus)
1314 $ if (teststatus.nes."1")
1316 $ perl_i_sysaccess="undef"
1317 $ DEASSIGN SYS$OUTPUT
1318 $ DEASSIGN SYS$ERROR
1320 $ If (Needs_Opt.eqs."Yes")
1322 $ link temp.obj,temp.opt/opt
1326 $ savedstatus = $status
1327 $ teststatus = f$extract(9,1,savedstatus)
1328 $ DEASSIGN SYS$OUTPUT
1329 $ DEASSIGN SYS$ERROR
1330 $ if (teststatus.nes."1")
1332 $ perl_i_sysaccess="undef"
1334 $ perl_i_sysaccess="define"
1337 $ WRITE_RESULT "i_sysaccess is ''perl_i_sysaccess'"
1339 $! Check for sys/security.h
1343 $ WS "#include <stdlib.h>
1345 $ WS "#include <stdio.h>
1346 $ WS "#include <unistd.h>
1347 $ WS "#include <sys/security.h>
1353 $ DEFINE SYS$ERROR _NLA0:
1354 $ DEFINE SYS$OUTPUT _NLA0:
1355 $ on error then continue
1356 $ on warning then continue
1358 $ savedstatus = $status
1359 $ teststatus = f$extract(9,1,savedstatus)
1360 $ if (teststatus.nes."1")
1362 $ perl_i_syssecrt="undef"
1363 $ DEASSIGN SYS$OUTPUT
1364 $ DEASSIGN SYS$ERROR
1366 $ If (Needs_Opt.eqs."Yes")
1368 $ link temp.obj,temp.opt/opt
1372 $ savedstatus = $status
1373 $ teststatus = f$extract(9,1,savedstatus)
1374 $ DEASSIGN SYS$OUTPUT
1375 $ DEASSIGN SYS$ERROR
1376 $ if (teststatus.nes."1")
1378 $ perl_i_syssecrt="undef"
1380 $ perl_i_syssecrt="define"
1383 $ WRITE_RESULT "i_syssecrt is ''perl_i_syssecrt'"
1385 $! Check for fcntl.h
1389 $ WS "#include <stdlib.h>
1391 $ WS "#include <stdio.h>
1392 $ WS "#include <unistd.h>
1393 $ WS "#include <fcntl.h>
1399 $ DEFINE SYS$ERROR _NLA0:
1400 $ DEFINE SYS$OUTPUT _NLA0:
1401 $ on error then continue
1402 $ on warning then continue
1404 $ savedstatus = $status
1405 $ teststatus = f$extract(9,1,savedstatus)
1406 $ if (teststatus.nes."1")
1408 $ perl_i_fcntl="undef"
1409 $ DEASSIGN SYS$OUTPUT
1410 $ DEASSIGN SYS$ERROR
1412 $ If (Needs_Opt.eqs."Yes")
1414 $ link temp.obj,temp.opt/opt
1418 $ savedstatus = $status
1419 $ teststatus = f$extract(9,1,savedstatus)
1420 $ DEASSIGN SYS$OUTPUT
1421 $ DEASSIGN SYS$ERROR
1422 $ if (teststatus.nes."1")
1424 $ perl_i_fcntl="undef"
1426 $ perl_i_fcntl="define"
1429 $ WRITE_RESULT "i_fcntl is ''perl_i_fcntl'"
1435 $ WS "#include <stdlib.h>
1437 $ WS "#include <stdio.h>
1438 $ WS "#include <unistd.h>
1439 $ WS "#include <fcntl.h>
1446 $ DEFINE SYS$ERROR _NLA0:
1447 $ DEFINE SYS$OUTPUT _NLA0:
1448 $ on error then continue
1449 $ on warning then continue
1451 $ savedstatus = $status
1452 $ teststatus = f$extract(9,1,savedstatus)
1453 $ if (teststatus.nes."1")
1455 $ perl_d_fcntl="undef"
1456 $ DEASSIGN SYS$OUTPUT
1457 $ DEASSIGN SYS$ERROR
1459 $ If (Needs_Opt.eqs."Yes")
1461 $ link temp.obj,temp.opt/opt
1465 $ savedstatus = $status
1466 $ teststatus = f$extract(9,1,savedstatus)
1467 $ DEASSIGN SYS$OUTPUT
1468 $ DEASSIGN SYS$ERROR
1469 $ if (teststatus.nes."1")
1471 $ perl_d_fcntl="undef"
1473 $ perl_d_fcntl="define"
1476 $ WRITE_RESULT "d_fcntl is ''perl_d_fcntl'"
1482 $ WS "#include <stdlib.h>
1484 $ WS "#include <stdio.h>
1485 $ WS "#include <unistd.h>
1488 $ WS "access("foo", F_OK);
1492 $ DEFINE SYS$ERROR _NLA0:
1493 $ DEFINE SYS$OUTPUT _NLA0:
1494 $ on error then continue
1495 $ on warning then continue
1497 $ savedstatus = $status
1498 $ teststatus = f$extract(9,1,savedstatus)
1499 $ if (teststatus.nes."1")
1501 $ perl_d_access="undef"
1502 $ DEASSIGN SYS$OUTPUT
1503 $ DEASSIGN SYS$ERROR
1505 $ If (Needs_Opt.eqs."Yes")
1507 $ link temp.obj,temp.opt/opt
1511 $ savedstatus = $status
1512 $ teststatus = f$extract(9,1,savedstatus)
1513 $ DEASSIGN SYS$OUTPUT
1514 $ DEASSIGN SYS$ERROR
1515 $ if (teststatus.nes."1")
1517 $ perl_d_access="undef"
1519 $ perl_d_access="define"
1522 $ WRITE_RESULT "d_access is ''perl_d_access'"
1528 $ WS "#include <stdlib.h>
1530 $ WS "#include <stdio.h>
1531 $ WS "#include <strings.h>
1535 $ WS "bzero(foo, 10);
1539 $ DEFINE SYS$ERROR _NLA0:
1540 $ DEFINE SYS$OUTPUT _NLA0:
1541 $ on error then continue
1542 $ on warning then continue
1544 $ savedstatus = $status
1545 $ teststatus = f$extract(9,1,savedstatus)
1546 $ if (teststatus.nes."1")
1548 $ perl_d_bzero="undef"
1549 $ DEASSIGN SYS$OUTPUT
1550 $ DEASSIGN SYS$ERROR
1552 $ If (Needs_Opt.eqs."Yes")
1554 $ link temp.obj,temp.opt/opt
1558 $ savedstatus = $status
1559 $ teststatus = f$extract(9,1,savedstatus)
1560 $ DEASSIGN SYS$OUTPUT
1561 $ DEASSIGN SYS$ERROR
1562 $ if (teststatus.nes."1")
1564 $ perl_d_bzero="undef"
1566 $ perl_d_bzero="define"
1569 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
1575 $ WS "#include <stdlib.h>
1577 $ WS "#include <stdio.h>
1578 $ WS "#include <strings.h>
1581 $ WS "char foo[10], bar[10];
1582 $ WS "bcopy(""foo"", bar, 3);
1586 $ DEFINE SYS$ERROR _NLA0:
1587 $ DEFINE SYS$OUTPUT _NLA0:
1588 $ on error then continue
1589 $ on warning then continue
1591 $ savedstatus = $status
1592 $ teststatus = f$extract(9,1,savedstatus)
1593 $ if (teststatus.nes."1")
1595 $ perl_d_bcopy="undef"
1596 $ DEASSIGN SYS$OUTPUT
1597 $ DEASSIGN SYS$ERROR
1599 $ If (Needs_Opt.eqs."Yes")
1601 $ link temp.obj,temp.opt/opt
1605 $ savedstatus = $status
1606 $ teststatus = f$extract(9,1,savedstatus)
1607 $ DEASSIGN SYS$OUTPUT
1608 $ DEASSIGN SYS$ERROR
1609 $ if (teststatus.nes."1")
1611 $ perl_d_bcopy="undef"
1613 $ perl_d_bcopy="define"
1616 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
1618 $! Check for mkstemp
1622 $ WS "#include <stdlib.h>
1624 $ WS "#include <stdio.h>
1627 $ WS "mkstemp(""foo"");
1631 $ DEFINE SYS$ERROR _NLA0:
1632 $ DEFINE SYS$OUTPUT _NLA0:
1633 $ on error then continue
1634 $ on warning then continue
1636 $ If (Needs_Opt.eqs."Yes")
1638 $ link temp.obj,temp.opt/opt
1642 $ savedstatus = $status
1643 $ teststatus = f$extract(9,1,savedstatus)
1644 $ DEASSIGN SYS$OUTPUT
1645 $ DEASSIGN SYS$ERROR
1646 $ if (teststatus.nes."1")
1648 $ perl_d_mkstemp="undef"
1650 $ perl_d_mkstemp="define"
1652 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
1654 $! Check for setvbuf
1658 $ WS "#include <stdlib.h>
1660 $ WS "#include <stdio.h>
1664 $ WS "char Buffer[99];
1665 $ WS "foo = fopen(""foo"", ""r"");
1666 $ WS "setvbuf(foo, Buffer, 0, 0);
1670 $ DEFINE SYS$ERROR _NLA0:
1671 $ DEFINE SYS$OUTPUT _NLA0:
1672 $ on error then continue
1673 $ on warning then continue
1675 $ If (Needs_Opt.eqs."Yes")
1677 $ link temp.obj,temp.opt/opt
1681 $ teststatus = f$extract(9,1,$status)
1682 $ DEASSIGN SYS$OUTPUT
1683 $ DEASSIGN SYS$ERROR
1684 $ if (teststatus.nes."1")
1686 $ perl_d_setvbuf="undef"
1688 $ perl_d_setvbuf="define"
1690 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
1692 $! Check for <netinet/in.h>
1694 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1698 $ WS "#include <stdlib.h>
1700 $ WS "#include <stdio.h>
1701 $ if ("''Has_Socketshr'".eqs."T")
1703 $ WS "#include <socketshr.h>"
1705 $ WS "#include <netdb.h>
1707 $ WS "#include <netinet/in.h>"
1713 $ DEFINE SYS$ERROR _NLA0:
1714 $ DEFINE SYS$OUTPUT _NLA0:
1715 $ on error then continue
1716 $ on warning then continue
1718 $ If (Needs_Opt.eqs."Yes")
1720 $ link temp.obj,temp.opt/opt
1724 $ teststatus = f$extract(9,1,$status)
1725 $ DEASSIGN SYS$OUTPUT
1726 $ DEASSIGN SYS$ERROR
1727 $ if (teststatus.nes."1")
1729 $ perl_i_niin="undef"
1731 $ perl_i_niin="define"
1734 $ perl_i_niin="undef"
1736 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
1738 $! Check for endhostent
1740 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1744 $ WS "#include <stdlib.h>
1746 $ WS "#include <stdio.h>
1747 $ if ("''Has_Socketshr'".eqs."T")
1749 $ WS "#include <socketshr.h>"
1751 $ WS "#include <netdb.h>
1759 $ DEFINE SYS$ERROR _NLA0:
1760 $ DEFINE SYS$OUTPUT _NLA0:
1761 $ on error then continue
1762 $ on warning then continue
1764 $ If (Needs_Opt.eqs."Yes")
1766 $ link temp.obj,temp.opt/opt
1770 $ teststatus = f$extract(9,1,$status)
1771 $ DEASSIGN SYS$OUTPUT
1772 $ DEASSIGN SYS$ERROR
1773 $ if (teststatus.nes."1")
1775 $ perl_d_endhent="undef"
1777 $ perl_d_endhent="define"
1780 $ perl_d_endhent="undef"
1782 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
1784 $! Check for endnetent
1786 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1790 $ WS "#include <stdlib.h>
1792 $ WS "#include <stdio.h>
1793 $ if ("''Has_Socketshr'".eqs."T")
1795 $ WS "#include <socketshr.h>"
1797 $ WS "#include <netdb.h>
1805 $ DEFINE SYS$ERROR _NLA0:
1806 $ DEFINE SYS$OUTPUT _NLA0:
1807 $ on error then continue
1808 $ on warning then continue
1810 $ If (Needs_Opt.eqs."Yes")
1812 $ link temp.obj,temp.opt/opt
1816 $ teststatus = f$extract(9,1,$status)
1817 $ DEASSIGN SYS$OUTPUT
1818 $ DEASSIGN SYS$ERROR
1819 $ if (teststatus.nes."1")
1821 $ perl_d_endnent="undef"
1823 $ perl_d_endnent="define"
1826 $ perl_d_endnent="undef"
1828 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
1830 $! Check for endprotoent
1832 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1836 $ WS "#include <stdlib.h>
1838 $ WS "#include <stdio.h>
1839 $ if ("''Has_Socketshr'".eqs."T")
1841 $ WS "#include <socketshr.h>"
1843 $ WS "#include <netdb.h>
1847 $ WS "endprotoent();
1851 $ DEFINE SYS$ERROR _NLA0:
1852 $ DEFINE SYS$OUTPUT _NLA0:
1853 $ on error then continue
1854 $ on warning then continue
1856 $ If (Needs_Opt.eqs."Yes")
1858 $ link temp.obj,temp.opt/opt
1862 $ teststatus = f$extract(9,1,$status)
1863 $ DEASSIGN SYS$OUTPUT
1864 $ DEASSIGN SYS$ERROR
1865 $ if (teststatus.nes."1")
1867 $ perl_d_endpent="undef"
1869 $ perl_d_endpent="define"
1872 $ perl_d_endpent="undef"
1874 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
1876 $! Check for endservent
1878 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1882 $ WS "#include <stdlib.h>
1884 $ WS "#include <stdio.h>
1885 $ if ("''Has_Socketshr'".eqs."T")
1887 $ WS "#include <socketshr.h>"
1889 $ WS "#include <netdb.h>
1897 $ DEFINE SYS$ERROR _NLA0:
1898 $ DEFINE SYS$OUTPUT _NLA0:
1899 $ on error then continue
1900 $ on warning then continue
1902 $ If (Needs_Opt.eqs."Yes")
1904 $ link temp.obj,temp.opt/opt
1908 $ teststatus = f$extract(9,1,$status)
1909 $ DEASSIGN SYS$OUTPUT
1910 $ DEASSIGN SYS$ERROR
1911 $ if (teststatus.nes."1")
1913 $ perl_d_endsent="undef"
1915 $ perl_d_endsent="define"
1918 $ perl_d_endsent="undef"
1920 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
1922 $! Check for sethostent
1924 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1928 $ WS "#include <stdlib.h>
1930 $ WS "#include <stdio.h>
1931 $ if ("''Has_Socketshr'".eqs."T")
1933 $ WS "#include <socketshr.h>"
1935 $ WS "#include <netdb.h>
1939 $ WS "sethostent(1);
1943 $ DEFINE SYS$ERROR _NLA0:
1944 $ DEFINE SYS$OUTPUT _NLA0:
1945 $ on error then continue
1946 $ on warning then continue
1948 $ If (Needs_Opt.eqs."Yes")
1950 $ link temp.obj,temp.opt/opt
1954 $ teststatus = f$extract(9,1,$status)
1955 $ DEASSIGN SYS$OUTPUT
1956 $ DEASSIGN SYS$ERROR
1957 $ if (teststatus.nes."1")
1959 $ perl_d_sethent="undef"
1961 $ perl_d_sethent="define"
1964 $ perl_d_sethent="undef"
1966 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
1968 $! Check for setnetent
1970 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1974 $ WS "#include <stdlib.h>
1976 $ WS "#include <stdio.h>
1977 $ if ("''Has_Socketshr'".eqs."T")
1979 $ WS "#include <socketshr.h>"
1981 $ WS "#include <netdb.h>
1989 $ DEFINE SYS$ERROR _NLA0:
1990 $ DEFINE SYS$OUTPUT _NLA0:
1991 $ on error then continue
1992 $ on warning then continue
1994 $ If (Needs_Opt.eqs."Yes")
1996 $ link temp.obj,temp.opt/opt
2000 $ teststatus = f$extract(9,1,$status)
2001 $ DEASSIGN SYS$OUTPUT
2002 $ DEASSIGN SYS$ERROR
2003 $ if (teststatus.nes."1")
2005 $ perl_d_setnent="undef"
2007 $ perl_d_setnent="define"
2010 $ perl_d_setnent="undef"
2012 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
2014 $! Check for setprotoent
2016 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2020 $ WS "#include <stdlib.h>
2022 $ WS "#include <stdio.h>
2023 $ if ("''Has_Socketshr'".eqs."T")
2025 $ WS "#include <socketshr.h>"
2027 $ WS "#include <netdb.h>
2031 $ WS "setprotoent(1);
2035 $ DEFINE SYS$ERROR _NLA0:
2036 $ DEFINE SYS$OUTPUT _NLA0:
2037 $ on error then continue
2038 $ on warning then continue
2040 $ If (Needs_Opt.eqs."Yes")
2042 $ link temp.obj,temp.opt/opt
2046 $ teststatus = f$extract(9,1,$status)
2047 $ DEASSIGN SYS$OUTPUT
2048 $ DEASSIGN SYS$ERROR
2049 $ if (teststatus.nes."1")
2051 $ perl_d_setpent="undef"
2053 $ perl_d_setpent="define"
2056 $ perl_d_setpent="undef"
2058 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
2060 $! Check for setservent
2062 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2066 $ WS "#include <stdlib.h>
2068 $ WS "#include <stdio.h>
2069 $ if ("''Has_Socketshr'".eqs."T")
2071 $ WS "#include <socketshr.h>"
2073 $ WS "#include <netdb.h>
2077 $ WS "setservent(1);
2081 $ DEFINE SYS$ERROR _NLA0:
2082 $ DEFINE SYS$OUTPUT _NLA0:
2083 $ on error then continue
2084 $ on warning then continue
2086 $ If (Needs_Opt.eqs."Yes")
2088 $ link temp.obj,temp.opt/opt
2092 $ teststatus = f$extract(9,1,$status)
2093 $ DEASSIGN SYS$OUTPUT
2094 $ DEASSIGN SYS$ERROR
2095 $ if (teststatus.nes."1")
2097 $ perl_d_setsent="undef"
2099 $ perl_d_setsent="define"
2102 $ perl_d_setsent="undef"
2104 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
2106 $! Check for gethostent
2108 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2112 $ WS "#include <stdlib.h>
2114 $ WS "#include <stdio.h>
2115 $ if ("''Has_Socketshr'".eqs."T")
2117 $ WS "#include <socketshr.h>"
2119 $ WS "#include <netdb.h>
2127 $ DEFINE SYS$ERROR _NLA0:
2128 $ DEFINE SYS$OUTPUT _NLA0:
2129 $ on error then continue
2130 $ on warning then continue
2132 $ If (Needs_Opt.eqs."Yes")
2134 $ link temp.obj,temp.opt/opt
2138 $ teststatus = f$extract(9,1,$status)
2139 $ DEASSIGN SYS$OUTPUT
2140 $ DEASSIGN SYS$ERROR
2141 $ if (teststatus.nes."1")
2143 $ perl_d_gethent="undef"
2145 $ perl_d_gethent="define"
2148 $ perl_d_gethent="undef"
2150 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
2152 $! Check for getnetent
2154 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2158 $ WS "#include <stdlib.h>
2160 $ WS "#include <stdio.h>
2161 $ if ("''Has_Socketshr'".eqs."T")
2163 $ WS "#include <socketshr.h>"
2165 $ WS "#include <netdb.h>
2173 $ DEFINE SYS$ERROR _NLA0:
2174 $ DEFINE SYS$OUTPUT _NLA0:
2175 $ on error then continue
2176 $ on warning then continue
2178 $ If (Needs_Opt.eqs."Yes")
2180 $ link temp.obj,temp.opt/opt
2184 $ teststatus = f$extract(9,1,$status)
2185 $ DEASSIGN SYS$OUTPUT
2186 $ DEASSIGN SYS$ERROR
2187 $ if (teststatus.nes."1")
2189 $ perl_d_getnent="undef"
2191 $ perl_d_getnent="define"
2194 $ perl_d_getnent="undef"
2196 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
2198 $! Check for getprotoent
2200 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2204 $ WS "#include <stdlib.h>
2206 $ WS "#include <stdio.h>
2207 $ if ("''Has_Socketshr'".eqs."T")
2209 $ WS "#include <socketshr.h>"
2211 $ WS "#include <netdb.h>
2215 $ WS "getprotoent();
2219 $ DEFINE SYS$ERROR _NLA0:
2220 $ DEFINE SYS$OUTPUT _NLA0:
2221 $ on error then continue
2222 $ on warning then continue
2224 $ If (Needs_Opt.eqs."Yes")
2226 $ link temp.obj,temp.opt/opt
2230 $ teststatus = f$extract(9,1,$status)
2231 $ DEASSIGN SYS$OUTPUT
2232 $ DEASSIGN SYS$ERROR
2233 $ if (teststatus.nes."1")
2235 $ perl_d_getpent="undef"
2237 $ perl_d_getpent="define"
2240 $ perl_d_getpent="undef"
2242 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
2244 $! Check for getservent
2246 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2250 $ WS "#include <stdlib.h>
2252 $ WS "#include <stdio.h>
2253 $ if ("''Has_Socketshr'".eqs."T")
2255 $ WS "#include <socketshr.h>"
2257 $ WS "#include <netdb.h>
2265 $ DEFINE SYS$ERROR _NLA0:
2266 $ DEFINE SYS$OUTPUT _NLA0:
2267 $ on error then continue
2268 $ on warning then continue
2270 $ If (Needs_Opt.eqs."Yes")
2272 $ link temp.obj,temp.opt/opt
2276 $ teststatus = f$extract(9,1,$status)
2277 $ DEASSIGN SYS$OUTPUT
2278 $ DEASSIGN SYS$ERROR
2279 $ if (teststatus.nes."1")
2281 $ perl_d_getsent="undef"
2283 $ perl_d_getsent="define"
2286 $ perl_d_getsent="undef"
2288 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
2290 $! Check for pthread_yield
2292 $ if ("''use_threads'".eqs."T")
2296 $ WS "#include <stdlib.h>
2298 $ WS "#include <pthread.h>
2299 $ WS "#include <stdio.h>
2302 $ WS "pthread_yield();
2306 $ DEFINE SYS$ERROR _NLA0:
2307 $ DEFINE SYS$OUTPUT _NLA0:
2308 $ on error then continue
2309 $ on warning then continue
2311 $ teststatus = f$extract(9,1,$status)
2312 $ DEASSIGN SYS$OUTPUT
2313 $ DEASSIGN SYS$ERROR
2314 $ if (teststatus.nes."1")
2316 $ perl_d_pthread_yield="undef"
2318 $ perl_d_pthread_yield="define"
2321 $ perl_d_pthread_yield="undef"
2323 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
2325 $! Check for sched_yield
2327 $ if ("''use_threads'".eqs."T")
2331 $ WS "#include <stdlib.h>
2333 $ WS "#include <pthread.h>
2334 $ WS "#include <stdio.h>
2337 $ WS "sched_yield();
2341 $ DEFINE SYS$ERROR _NLA0:
2342 $ DEFINE SYS$OUTPUT _NLA0:
2343 $ on error then continue
2344 $ on warning then continue
2346 $ teststatus = f$extract(9,1,$status)
2347 $ DEASSIGN SYS$OUTPUT
2348 $ DEASSIGN SYS$ERROR
2349 $ if (teststatus.nes."1")
2351 $ perl_d_sched_yield="undef"
2353 $ perl_d_sched_yield="define"
2356 $ perl_d_sched_yield="undef"
2358 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
2360 $! Check for generic pointer size
2364 $ WS "#include <stdlib.h>
2366 $ WS "#include <stdio.h>
2370 $ WS "foo = sizeof(char *);
2371 $ WS "printf(""%d\n"", foo);
2375 $! copy temp.c sys$output
2377 $ DEFINE SYS$ERROR _NLA0:
2378 $ DEFINE SYS$OUTPUT _NLA0:
2379 $ ON ERROR THEN CONTINUE
2380 $ ON WARNING THEN CONTINUE
2382 $ If (Needs_Opt.eqs."Yes")
2384 $ link temp.obj,temp.opt/opt
2388 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
2389 $ DEASSIGN SYS$OUTPUT
2390 $ DEASSIGN SYS$ERROR
2391 $ DEFINE SYS$ERROR TEMPOUT
2392 $ DEFINE SYS$OUTPUT TEMPOUT
2395 $ DEASSIGN SYS$OUTPUT
2396 $ DEASSIGN SYS$ERROR
2397 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
2402 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
2405 $! Done with compiler checks. Clean up.
2406 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
2407 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
2408 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
2409 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
2412 $! Some that are compiler or VMS version sensitive
2415 $ IF "''Using_Gnu_C'".EQS."Yes"
2417 $ perl_d_attribut="define"
2418 $ perl_vms_cc_type="gcc"
2420 $ perl_d_attribut="undef"
2423 $! Dec C >= 5.2 and VMS ver >= 7.0
2424 $ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
2426 $ perl_d_bcmp="define"
2427 $ perl_d_gettimeod="define"
2428 $ perl_d_uname="define"
2429 $ perl_d_sigaction="define"
2430 $ perl_d_truncate="define"
2431 $ perl_d_wait4="define"
2432 $ perl_d_index="define"
2433 $ perl_pidtype="pid_t"
2434 $ 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"
2435 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
2436 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
2437 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
2438 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
2439 $ 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"
2440 $ 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"
2441 $ perl_sig_num_with_commas=perl_sig_num_init
2442 $ perl_uidtype="uid_t"
2443 $ perl_d_pathconf="define"
2444 $ perl_d_fpathconf="define"
2445 $ perl_d_sysconf="define"
2446 $ perl_d_sigsetjmp="define"
2448 $ perl_pidtype="unsigned int"
2449 $ perl_d_gettimeod="undef"
2450 $ perl_d_bcmp="undef"
2451 $ perl_d_uname="undef"
2452 $ perl_d_sigaction="undef"
2453 $ perl_d_truncate="undef"
2454 $ perl_d_wait4="undef"
2455 $ perl_d_index="undef"
2456 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
2457 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
2458 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
2459 $ perl_sig_name_with_commas = psnwc1 + psnwc2
2460 $ perl_sig_num="0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 6 16 17"",0"
2461 $ perl_sig_num_init="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
2462 $ perl_sig_num_with_commas=perl_sig_num_init
2463 $ perl_uidtype="unsigned int"
2464 $ perl_d_pathconf="undef"
2465 $ perl_d_fpathconf="undef"
2466 $ perl_d_sysconf="undef"
2467 $ perl_d_sigsetjmp="undef"
2471 $ IF ("''Using_Dec_C'".EQS."Yes")
2473 $ perl_d_mbstowcs="define"
2474 $ perl_d_mbtowc="define"
2475 $ perl_d_stdiobase="define"
2476 $ perl_d_stdio_ptr_lval="define"
2477 $ perl_d_stdio_cnt_lval="define"
2478 $ perl_d_stdstdio="define"
2479 $ perl_d_wcstombs="define"
2480 $ perl_d_mblen="define"
2481 $ perl_d_mktime="define"
2482 $ perl_d_strcoll="define"
2483 $ perl_d_strxfrm="define"
2484 $ perl_d_wctomb="define"
2485 $ perl_i_locale="define"
2486 $ perl_d_locconv="define"
2487 $ perl_d_setlocale="define"
2488 $ perl_vms_cc_type="decc"
2490 $ perl_d_mbstowcs="undef"
2491 $ perl_d_mbtowc="undef"
2492 $ perl_d_stdiobase="undef"
2493 $ perl_d_stdio_ptr_lval="undef"
2494 $ perl_d_stdio_cnt_lval="undef"
2495 $ perl_d_stdstdio="undef"
2496 $ perl_d_wcstombs="undef"
2497 $ perl_d_mblen="undef"
2498 $ perl_d_mktime="undef"
2499 $ perl_d_strcoll="undef"
2500 $ perl_d_strxfrm="undef"
2501 $ perl_d_wctomb="undef"
2502 $ perl_i_locale="undef"
2503 $ perl_d_locconv="undef"
2504 $ perl_d_setlocale="undef"
2508 $ if ("''Using_Vax_C'".EQS."Yes")
2510 $ perl_vms_cc_type="vaxc"
2515 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
2517 $ perl_d_vms_do_sockets="define"
2518 $ perl_d_htonl="define"
2519 $ perl_d_socket="define"
2520 $ perl_d_select="define"
2521 $ perl_netdb_host_type="char *"
2522 $ perl_netdb_hlen_type="int"
2523 $ perl_netdb_name_type="char *"
2524 $ perl_netdb_net_type="long"
2525 $ perl_d_gethbyaddr="define"
2526 $ perl_d_gethbyname="define"
2527 $ perl_d_getnbyaddr="define"
2528 $ perl_d_getnbyname="define"
2529 $ perl_d_getpbynumber="define"
2530 $ perl_d_getpbyname="define"
2531 $ perl_d_getsbyport="define"
2532 $ perl_d_getsbyname="define"
2533 $ perl_d_gethostprotos="define"
2534 $ perl_d_getnetprotos="define"
2535 $ perl_d_getprotoprotos="define"
2536 $ perl_d_getservprotos="define"
2538 $ perl_d_vms_do_sockets="undef"
2539 $ perl_d_htonl="undef"
2540 $ perl_d_socket="undef"
2541 $ perl_d_select="undef"
2542 $ perl_netdb_host_type="char *"
2543 $ perl_netdb_hlen_type="int"
2544 $ perl_netdb_name_type="char *"
2545 $ perl_netdb_net_type="long"
2546 $ perl_d_gethbyaddr="undef"
2547 $ perl_d_gethbyname="undef"
2548 $ perl_d_getnbyaddr="undef"
2549 $ perl_d_getnbyname="undef"
2550 $ perl_d_getpbynumber="undef"
2551 $ perl_d_getpbyname="undef"
2552 $ perl_d_getsbyport="undef"
2553 $ perl_d_getsbyname="undef"
2554 $ perl_d_gethostprotos="undef"
2555 $ perl_d_getnetprotos="undef"
2556 $ perl_d_getprotoprotos="undef"
2557 $ perl_d_getservprotos="undef"
2560 $ if ("''use_threads'".eqs."T")
2562 $ perl_usethreads="define"
2563 $ perl_d_pthreads_created_joinable="define"
2564 $ if ("''VMS_VER'".ges."7.0")
2566 $ perl_d_oldpthreads="undef"
2568 $ perl_d_oldpthreads="define"
2571 $ perl_d_oldpthreads="undef"
2572 $ perl_usethreads="undef"
2574 $ perl_d_pthreads_created_joinable="undef"
2578 $! Finally the composite ones. All config
2579 $ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
2580 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
2581 $ perl_myhostname="''myhostname'"
2582 $ perl_mydomain="''mydomain'"
2583 $ perl_perladmin="''perladmin'"
2584 $ perl_cf_email="''cf_email'"
2585 $ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
2586 $ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
2587 $ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
2588 $ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
2589 $ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
2590 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
2591 $ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
2592 $ if "''Using_Dec_C'" .eqs. "Yes"
2594 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
2596 $ IF "''Using_Vax_C'" .eqs. "Yes"
2598 $ perl_ccflags="/Include=[]/Obj=''perl_obj_ext'/NoList''cc_flags'"
2602 $! Finally clean off any leading zeros from the patchlevel or subversion
2603 $ perl_patchlevel = perl_patchlevel + 0
2604 $ perl_subversion = perl_subversion + 0
2606 $! Okay, we've got everything configured. Now go write out a config.sh.
2607 $ open/write CONFIGSH [-]config.sh
2608 $ WC := "write CONFIGSH"
2610 $ WC "# This file generated by Configure.COM on a VMS system."
2611 $ WC "# Time: " + perl_cf_time
2613 $ WC "package='" + perl_package + "'"
2614 $ WC "CONFIG='" + perl_config + "'"
2615 $ WC "cf_time='" + perl_cf_time + "'"
2616 $ WC "cf_by='" + perl_cf_by+ "'"
2617 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
2618 $ WC "ccdlflags='" + perl_ccdlflags + "'"
2619 $ WC "cccdlflags='" + perl_cccdlflags + "'"
2620 $ WC "mab='" + perl_mab + "'"
2621 $ WC "libpth='" + perl_libpth + "'"
2622 $ WC "ld='" + perl_ld + "'"
2623 $ WC "lddlflags='" + perl_lddlflags + "'"
2624 $ WC "ranlib='" + perl_ranlib + "'"
2625 $ WC "ar='" + perl_ar + "'"
2626 $ WC "eunicefix='" + perl_eunicefix + "'"
2627 $ WC "hint='" + perl_hint +"'"
2628 $ WC "hintfile='" + perl_hintfile + "'"
2629 $ WC "shrplib='" + perl_shrplib + "'"
2630 $ WC "usemymalloc='" + perl_usemymalloc + "'"
2631 $ WC "usevfork='" + perl_usevfork + "'"
2632 $ WC "useposix='false'"
2633 $ WC "spitshell='write sys$output '"
2634 $ WC "dlsrc='dl_vms.c'"
2635 $ WC "binexp='" + perl_binexp + "'"
2636 $ WC "man1ext='" + perl_man1ext + "'"
2637 $ WC "man3ext='" + perl_man3ext + "'"
2638 $ WC "arch='" + perl_arch + "'"
2639 $ WC "archname='" + perl_archname + "'"
2640 $ WC "osvers='" + perl_osvers + "'"
2641 $ WC "prefix='" + perl_prefix + "'"
2642 $ WC "builddir='" + perl_builddir + "'"
2643 $ WC "installbin='" + perl_installbin + "'"
2644 $ WC "installscript='" + perl_installscript + "'"
2645 $ WC "installman1dir='" + perl_installman1dir + "'"
2646 $ WC "installman3dir='" + perl_installman3dir + "'"
2647 $ WC "installprivlib='" + perl_installprivlib + "'"
2648 $ WC "installarchlib='" + perl_installarchlib + "'"
2649 $ WC "installsitelib='" + perl_installsitelib + "'"
2650 $ WC "installsitearch='" + perl_installsitearch + "'"
2651 $ WC "path_sep='" + perl_path_sep + "'"
2652 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
2653 $ WC "d_attribut='" + perl_d_attribut + "'"
2654 $ WC "cc='" + perl_cc + "'"
2655 $ WC "ccflags='" + perl_ccflags + "'"
2656 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
2657 $ WC "d_socket='" + perl_d_socket + "'"
2658 $ WC "d_sockpair='" + perl_d_sockpair + "'"
2659 $ WC "d_gethent='" + perl_d_gethent + "'"
2660 $ WC "d_getsent='" + perl_d_getsent + "'"
2661 $ WC "d_select='" + perl_d_select + "'"
2662 $ WC "i_niin='" + perl_i_niin + "'"
2663 $ WC "i_neterrno='" + perl_i_neterrno + "'"
2664 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
2665 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
2666 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
2667 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
2668 $ WC "d_locconv='" + perl_d_locconv + "'"
2669 $ WC "d_setlocale='" + perl_d_setlocale + "'"
2670 $ WC "i_locale='" + perl_i_locale + "'"
2671 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
2672 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
2673 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
2674 $ WC "d_wctomb='" + perl_d_wctomb + "'"
2675 $ WC "d_mblen='" + perl_d_mblen + "'"
2676 $ WC "d_mktime='" + perl_d_mktime + "'"
2677 $ WC "d_strcoll='" + perl_d_strcoll + "'"
2678 $ WC "d_strxfrm='" + perl_d_strxfrm + "'"
2679 $ WC "ldflags='" + perl_ldflags + "'"
2680 $ WC "dlobj='" + perl_dlobj + "'"
2681 $ WC "obj_ext='" + perl_obj_ext + "'"
2682 $ WC "so='" + perl_so + "'"
2683 $ WC "dlext='" + perl_dlext + "'"
2684 $ WC "exe_ext='" + perl_exe_ext + "'"
2685 $ WC "lib_ext='" + perl_lib_ext + "'"
2686 $ WC "myhostname='" + perl_myhostname + "'"
2687 $ WC "mydomain='" + perl_mydomain + "'"
2688 $ WC "perladmin='" + perl_perladmin + "'"
2689 $ WC "cf_email='" + perl_cf_email + "'"
2690 $ WC "myuname='" + perl_myuname + "'"
2691 $ WC "alignbytes='" + perl_alignbytes + "'"
2692 $ WC "osname='" + perl_osname + "'"
2693 $ WC "d_archlib='" + perl_d_archlib + "'"
2694 $ WC "archlibexp='" + perl_archlibexp + "'"
2695 $ WC "archlib='" + perl_archlib + "'"
2696 $ WC "archname='" + perl_archname + "'"
2697 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
2698 $ WC "cppstdin='" + perl_cppstdin + "'"
2699 $ WC "cppminus='" + perl_cppminus + "'"
2700 $ WC "d_bcmp='" + perl_d_bcmp + "'"
2701 $ WC "d_bcopy='" + perl_d_bcopy + "'"
2702 $ WC "d_bzero='" + perl_d_bzero + "'"
2703 $ WC "d_castneg='" + perl_d_castneg + "'"
2704 $ WC "castflags='" + perl_castflags + "'"
2705 $ WC "d_chsize='" + perl_d_chsize + "'"
2706 $ WC "d_const='" + perl_d_const + "'"
2707 $ WC "d_crypt='" + perl_d_crypt + "'"
2708 $ WC "byteorder='" + perl_byteorder + "'"
2709 $ WC "full_csh='" + perl_full_csh + "'"
2710 $ WC "d_csh='" + perl_d_csh + "'"
2711 $ WC "d_dup2='" + perl_d_dup2 + "'"
2712 $ WC "d_fchmod='" + perl_d_fchmod + "'"
2713 $ WC "d_fchown='" + perl_d_fchown + "'"
2714 $ WC "d_fcntl='" + perl_d_fcntl + "'"
2715 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
2716 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
2717 $ WC "d_flock='" + perl_d_flock + "'"
2718 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
2719 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
2720 $ WC "d_getgrps='" + perl_d_getgrps + "'"
2721 $ WC "d_setgrps='" + perl_d_setgrps + "'"
2722 $ WC "d_uname='" + perl_d_uname + "'"
2723 $ WC "d_getprior='" + perl_d_getprior + "'"
2724 $ WC "d_killpg='" + perl_d_killpg + "'"
2725 $ WC "d_link='" + perl_d_link + "'"
2726 $ WC "d_lstat='" + perl_d_lstat + "'"
2727 $ WC "d_lockf='" + perl_d_lockf + "'"
2728 $ WC "d_memcmp='" + perl_d_memcmp + "'"
2729 $ WC "d_memcpy='" + perl_d_memcpy + "'"
2730 $ WC "d_memmove='" + perl_d_memmove + "'"
2731 $ WC "d_memset='" + perl_d_memset + "'"
2732 $ WC "d_mkdir='" + perl_d_mkdir + "'"
2733 $ WC "d_msg='" + perl_d_msg + "'"
2734 $ WC "d_open3='" + perl_d_open3 + "'"
2735 $ WC "d_poll='" + perl_d_poll + "'"
2736 $ WC "d_readdir='" + perl_d_readdir + "'"
2737 $ WC "d_seekdir='" + perl_d_seekdir + "'"
2738 $ WC "d_telldir='" + perl_d_telldir + "'"
2739 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
2740 $ WC "d_rename='" + perl_d_rename + "'"
2741 $ WC "d_rmdir='" + perl_d_rmdir + "'"
2742 $ WC "d_sem='" + perl_d_sem + "'"
2743 $ WC "d_setegid='" + perl_d_setegid + "'"
2744 $ WC "d_seteuid='" + perl_d_seteuid + "'"
2745 $ WC "d_setprior='" + perl_d_setprior + "'"
2746 $ WC "d_setregid='" + perl_d_setregid + "'"
2747 $ WC "d_setresgid='" + perl_d_setresgid + "'"
2748 $ WC "d_setreuid='" + perl_d_setreuid + "'"
2749 $ WC "d_setresuid='" + perl_d_setresuid + "'"
2750 $ WC "d_setrgid='" + perl_d_setrgid + "'"
2751 $ WC "d_setruid='" + perl_d_setruid + "'"
2752 $ WC "d_setsid='" + perl_d_setsid + "'"
2753 $ WC "d_shm='" + perl_d_shm + "'"
2754 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
2755 $ WC "d_sigaction='" + perl_d_sigaction + "'"
2756 $ WC "d_statblks='" + perl_d_statblks + "'"
2757 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
2758 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
2759 $ WC "stdio_base='" + perl_stdio_base + "'"
2760 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
2761 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
2762 $ WC "d_strerror='" + perl_d_strerror + "'"
2763 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
2764 $ WC "d_strerrm='" + perl_d_strerrm + "'"
2765 $ WC "d_symlink='" + perl_d_symlink + "'"
2766 $ WC "d_syscall='" + perl_d_syscall + "'"
2767 $ WC "d_system='" + perl_d_system + "'"
2768 $ WC "timetype='" + perl_timetype + "'"
2769 $ WC "d_truncate='" + perl_d_truncate + "'"
2770 $ WC "d_vfork='" + perl_d_vfork + "'"
2771 $ WC "signal_t='" + perl_signal_t + "'"
2772 $ WC "d_volatile='" + perl_d_volatile + "'"
2773 $ WC "d_vprintf='" + perl_d_vprintf + "'"
2774 $ WC "d_charvspr='" + perl_d_charvspr + "'"
2775 $ WC "d_wait4='" + perl_d_wait4 + "'"
2776 $ WC "d_waitpid='" + perl_d_waitpid + "'"
2777 $ WC "i_dirent='" + perl_i_dirent + "'"
2778 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
2779 $ WC "direntrytype='" + perl_direntrytype + "'"
2780 $ WC "i_fcntl='" + perl_i_fcntl + "'"
2781 $ WC "i_grp='" + perl_i_grp + "'"
2782 $ WC "i_limits='" + perl_i_limits + "'"
2783 $ WC "i_memory='" + perl_i_memory + "'"
2784 $ WC "i_ndbm='" + perl_i_ndbm + "'"
2785 $ WC "i_stdarg='" + perl_i_stdarg + "'"
2786 $ WC "i_pwd='" + perl_i_pwd + "'"
2787 $ WC "d_pwquota='" + perl_d_pwquota + "'"
2788 $ WC "d_pwage='" + perl_d_pwage + "'"
2789 $ WC "d_pwchange='" + perl_d_pwchange + "'"
2790 $ WC "d_pwclass='" + perl_d_pwclass + "'"
2791 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
2792 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
2793 $ WC "i_stddef='" + perl_i_stddef + "'"
2794 $ WC "i_stdlib='" + perl_i_stdlib + "'"
2795 $ WC "i_string='" + perl_i_string + "'"
2796 $ WC "i_sysdir='" + perl_i_sysdir + "'"
2797 $ WC "i_sysfile='" + perl_i_sysfile + "'"
2798 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
2799 $ WC "i_sysndir='" + perl_i_sysndir + "'"
2800 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
2801 $ WC "i_sysselct='" + perl_i_sysselct + "'"
2802 $ WC "i_dbm='" + perl_i_dbm + "'"
2803 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
2804 $ WC "i_sfio='" + perl_i_sfio + "'"
2805 $ WC "i_sysstat='" + perl_i_sysstat + "'"
2806 $ WC "i_systimes='" + perl_i_systimes + "'"
2807 $ WC "i_systypes='" + perl_i_systypes + "'"
2808 $ WC "i_sysun='" + perl_i_sysun + "'"
2809 $ WC "i_syswait='" + perl_i_syswait + "'"
2810 $ WC "i_termio='" + perl_i_termio + "'"
2811 $ WC "i_sgtty='" + perl_i_sgtty + "'"
2812 $ WC "i_termios='" + perl_i_termios + "'"
2813 $ WC "i_time='" + perl_i_time + "'"
2814 $ WC "i_systime='" + perl_i_systime + "'"
2815 $ WC "i_systimek='" + perl_i_systimek + "'"
2816 $ WC "i_unistd='" + perl_i_unistd + "'"
2817 $ WC "i_utime='" + perl_i_utime + "'"
2818 $ WC "i_varargs='" + perl_i_varargs + "'"
2819 $ WC "i_vfork='" + perl_i_vfork + "'"
2820 $ WC "prototype='" + perl_prototype + "'"
2821 $ WC "randbits='" + perl_randbits +"'"
2822 $ WC "selecttype='" + perl_selecttype + "'"
2823 $ WC "stdchar='" + perl_stdchar + "'"
2824 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
2825 $ WC "full_sed='" + perl_full_sed + "'"
2826 $ WC "bin='" + perl_bin + "'"
2827 $ WC "binexp='" + perl_binexp + "'"
2828 $ WC "d_alarm='" + perl_d_alarm + "'"
2829 $ WC "d_casti32='" + perl_d_casti32 + "'"
2830 $ WC "d_chown='" + perl_d_chown + "'"
2831 $ WC "d_chroot='" + perl_d_chroot + "'"
2832 $ WC "d_cuserid='" + perl_d_cuserid + "'"
2833 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
2834 $ WC "d_difftime='" + perl_d_difftime + "'"
2835 $ WC "d_fork='" + perl_d_fork + "'"
2836 $ WC "d_getlogin='" + perl_d_getlogin + "'"
2837 $ WC "d_getppid='" + perl_d_getppid + "'"
2838 $ WC "d_htonl='" + perl_d_htonl + "'"
2839 $ WC "d_nice='" + perl_d_nice + "'"
2840 $ WC "d_pause='" + perl_d_pause + "'"
2841 $ WC "d_pipe='" + perl_d_pipe + "'"
2842 $ WC "d_readlink='" + perl_d_readlink + "'"
2843 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
2844 $ WC "d_strchr='" + perl_d_strchr + "'"
2845 $ WC "d_index='" + perl_d_index + "'"
2846 $ WC "d_strtod='" + perl_d_strtod + "'"
2847 $ WC "d_strtol='" + perl_d_strtol + "'"
2848 $ WC "d_strtoul='" + perl_d_strtoul + "'"
2849 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
2850 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
2851 $ WC "d_times='" + perl_d_times + "'"
2852 $ WC "d_tzname='" + perl_d_tzname + "'"
2853 $ WC "d_umask='" + perl_d_umask + "'"
2854 $ WC "fpostype='" + perl_fpostype + "'"
2855 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
2856 $ WC "i_float='" + perl_i_float + "'"
2857 $ WC "i_math='" + perl_i_math + "'"
2858 $ WC "intsize='" + perl_intsize + "'"
2859 $ WC "longsize='" + perl_longsize + "'"
2860 $ WC "shortsize='" + perl_shortsize + "'"
2861 $ WC "lseektype='" + perl_lseektype + "'"
2862 $ WC "i_values='" + perl_i_values + "'"
2863 $ WC "malloctype='" + perl_malloctype + "'"
2864 $ WC "freetype='" + perl_freetype + "'"
2865 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
2866 $ WC "sh='" + perl_sh + "'"
2867 $ WC "sig_name='" + perl_sig_name + "'"
2868 $ WC "sig_num='" + perl_sig_num + "'"
2869 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
2871 $ WC "modetype='" + perl_modetype + "'"
2872 $ WC "ssizetype='" + perl_ssizetype + "'"
2873 $ WC "o_nonblock='" + perl_o_nonblock + "'"
2874 $ WC "eagain='" + perl_eagain + "'"
2875 $ WC "rd_nodata='" + perl_rd_nodata + "'"
2876 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
2877 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
2878 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
2879 $ WC "oldarchlib='" + perl_oldarchlib + "'"
2880 $ WC "privlibexp='" + perl_privlibexp + "'"
2881 $ WC "privlib='" + perl_privlib + "'"
2882 $ WC "sitelibexp='" + perl_sitelibexp + "'"
2883 $ WC "sitelib='" + perl_sitelib + "'"
2884 $ WC "sitearchexp='" + perl_sitearchexp + "'"
2885 $ WC "sitearch='" + perl_sitearch + "'"
2886 $ WC "sizetype='" + perl_sizetype + "'"
2887 $ WC "i_sysparam='" + perl_i_sysparam + "'"
2888 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
2889 $ WC "d_dlerror='" + perl_d_dlerror + "'"
2890 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
2891 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
2892 $ WC "d_dosuid='" + perl_d_dosuid + "'"
2893 $ WC "d_inetaton='" + perl_d_inetaton + "'"
2894 $ WC "d_isascii='" + perl_d_isascii + "'"
2895 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
2896 $ WC "d_pathconf='" + perl_d_pathconf + "'"
2897 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
2898 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
2899 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
2900 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
2901 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
2902 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
2903 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
2904 $ WC "d_setpgid='" + perl_d_setpgid + "'"
2905 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
2906 $ WC "d_sysconf='" + perl_d_sysconf + "'"
2907 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
2908 $ WC "d_getpgid='" + perl_d_getpgid + "'"
2909 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
2910 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
2911 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
2912 $ WC "d_sfio='" + perl_d_sfio + "'"
2913 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
2914 $ WC "usedl='" + perl_usedl + "'"
2915 $ WC "startperl=" + perl_startperl ! This one's special--no enclosing single quotes
2916 $ WC "db_hashtype='" + perl_db_hashtype + "'"
2917 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
2918 $ WC "useperlio='" + perl_useperlio + "'"
2919 $ WC "defvoidused='" + perl_defvoidused + "'"
2920 $ WC "voidflags='" + perl_voidflags + "'"
2921 $ WC "d_eunice='" + perl_d_eunice + "'"
2922 $ WC "libs='" + perl_libs + "'"
2923 $ WC "libc='" + perl_libc + "'"
2924 $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
2926 $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
2928 $ WC "pager='" + perl_pager + "'"
2929 $ WC "uidtype='" + perl_uidtype + "'"
2930 $ WC "gidtype='" + perl_gidtype + "'"
2931 $ WC "usethreads='" + perl_usethreads + "'"
2932 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
2933 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
2934 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
2935 $ WC "i_netdb='" + perl_i_netdb + "'"
2936 $ WC "pidtype='" + perl_pidtype + "'"
2937 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
2938 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
2939 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
2940 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
2941 $ WC "baserev='" + perl_baserev + "'"
2942 $ WC "doublesize='" + perl_doublesize + "'"
2943 $ WC "ptrsize='" + perl_ptrsize + "'"
2944 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
2945 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
2946 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
2947 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
2948 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
2949 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
2950 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
2951 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
2952 $ WC "d_sethent='" + perl_d_sethent + "'"
2953 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
2954 $ WC "d_longdbl='" + perl_d_longdbl + "'"
2955 $ WC "longdblsize='" + perl_longdblsize + "'"
2956 $ WC "d_longlong='" + perl_d_longlong + "'"
2957 $ WC "longlongsize='" + perl_longlongsize + "'"
2958 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
2959 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
2960 $ WC "d_endhent='" + perl_d_endhent + "'"
2961 $ WC "d_endnent='" + perl_d_endsent + "'"
2962 $ WC "d_endpent='" + perl_d_endpent + "'"
2963 $ WC "d_endsent='" + perl_d_endsent + "'"
2964 $ WC "d_gethent='" + perl_d_gethent + "'"
2965 $ WC "d_getnent='" + perl_d_getsent + "'"
2966 $ WC "d_getpent='" + perl_d_getpent + "'"
2967 $ WC "d_getsent='" + perl_d_getsent + "'"
2968 $ WC "d_sethent='" + perl_d_sethent + "'"
2969 $ WC "d_setnent='" + perl_d_setsent + "'"
2970 $ WC "d_setpent='" + perl_d_setpent + "'"
2971 $ WC "ebcdic='" + perl_ebcdic + "'"
2972 $ WC "d_setsent='" + perl_d_setsent + "'"
2973 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
2974 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
2975 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
2976 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
2977 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
2978 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
2979 $ WC "d_lchown='" + perl_d_lchown + "'"
2980 $ WC "d_union_semun='" + perl_d_union_semun + "'"
2981 $ WC "i_arpainet='" + perl_i_arpainet + "'"
2982 $ WC "d_grpasswd='" + perl_d_grpasswd + "'"
2983 $ WC "d_setgrent='" + perl_d_setgrent + "'"
2984 $ WC "d_getgrent='" + perl_d_getgrent + "'"
2985 $ WC "d_endgrent='" + perl_d_endgrent + "'"
2986 $ WC "d_pwpasswd='" + perl_d_pwpasswd + "'"
2987 $ WC "d_setpwent='" + perl_d_setpwent + "'"
2988 $ WC "d_getpwent='" + perl_d_getpwent + "'"
2989 $ WC "d_endpwent='" + perl_d_endpwent + "'"
2990 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
2991 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
2992 $ WC "extensions='" + perl_extensions + "'"
2993 $ WC "d_mknod='" + perl_d_mknod + "'"
2994 $ WC "devtype='" + perl_devtype + "'"
2995 $ WC "d_gethname='" + perl_d_gethname + "'"
2996 $ WC "d_phostname='" + perl_d_phostname + "'"
2997 $ WC "d_accessx='" + perl_d_accessx + "'"
2998 $ WC "d_eaccess='" + perl_d_eaccess + "'"
2999 $ WC "i_sysaccess='" + perl_i_sysaccess + "'"
3000 $ WC "i_syssecrt='" + perl_i_syssecrt + "'"
3001 $ WC "d_fd_set='" + perl_d_fd_set + "'"
3002 $ WC "d_access='" + perl_d_access + "'"
3003 $ WC "d_msg_ctrunc='" + perl_d_msg_ctrunc + "'"
3004 $ WC "d_msg_dontroute='" + perl_d_msg_dontroute + "'"
3005 $ WC "d_msg_oob='" + perl_d_msg_oob + "'"
3006 $ WC "d_msg_peek='" + perl_d_msg_peek + "'"
3007 $ WC "d_msg_proxy='" + perl_d_msg_proxy + "'"
3008 $ WC "d_scm_rights='" + perl_d_scm_rights + "'"
3009 $ WC "d_sendmsg='" + perl_d_sendmsg + "'"
3010 $ WC "d_recvmsg='" + perl_d_recvmsg + "'"
3011 $ WC "d_msghdr_s='" + perl_d_msghdr_s + "'"
3012 $ WC "d_cmsghdr_s='" + perl_d_cmsghdr_s + "'"
3013 $ WC "i_sysuio='" + perl_i_sysuio + "'"
3014 $ WC "d_fseeko='" + perl_d_fseeko + "'"
3015 $ WC "d_ftello='" + perl_d_ftello + "'"
3016 $ WC "d_readv='" + perl_d_readv + "'"
3017 $ WC "d_writev='" + perl_d_writev + "'"
3018 $ WC "i_machcthr='" + perl_i_machcthr + "'"
3019 $ WC "usemultiplicity='" + perl_usemultiplicity + "'"
3020 $ WC "d_dbminit64='" + perl_d_dbminit64 + "'"
3021 $ WC "d_dbmclose64='" + perl_d_dbmclose64 + "'"
3022 $ WC "d_fetch64='" + perl_d_fetch64 + "'"
3023 $ WC "d_store64='" + perl_d_store64 + "'"
3024 $ WC "d_delete64='" + perl_d_delete64 + "'"
3025 $ WC "d_firstkey64='" + perl_d_firstkey64 + "'"
3026 $ WC "d_nextkey64='" + perl_d_nextkey64 + "'"
3027 $ WC "i_poll='" + perl_i_poll + "'"
3028 $ WC "i_inttypes='" + perl_i_inttypes + "'"
3029 $ WC "d_int64t='" + perl_d_int64t + "'"
3030 $ WC "d_off64t='" + perl_d_off64t + "'"
3031 $ WC "d_fstat64='" + perl_d_fstat64 + "'"
3032 $ WC "d_ftruncate64='" + perl_d_ftruncate64 + "'"
3033 $ WC "d_lseek64='" + perl_d_lseek64 + "'"
3034 $ WC "d_lstat64='" + perl_d_lstat64 + "'"
3035 $ WC "d_open64='" + perl_d_open64 + "'"
3036 $ WC "d_opendir64='" + perl_d_opendir64 + "'"
3037 $ WC "d_readdir64='" + perl_d_readdir64 + "'"
3038 $ WC "d_seekdir64='" + perl_d_seekdir64 + "'"
3039 $ WC "d_stat64='" + perl_d_stat64 + "'"
3040 $ WC "d_telldir64='" + perl_d_telldir64 + "'"
3041 $ WC "d_truncate64='" + perl_d_truncate64 + "'"
3042 $ WC "d_dirent64_s='" + perl_d_dirent64_s + "'"
3043 $ WC "use64bits='" + perl_use64bits + "'"
3044 $ WC "d_fgetpos64='" + perl_d_fgetpos64 + "'"
3045 $ WC "d_fopen64='" + perl_d_fopen64 + "'"
3046 $ WC "d_freopen64='" + perl_d_freopen64 + "'"
3047 $ WC "d_fseek64='" + perl_d_fseek64 + "'"
3048 $ WC "d_fseeko64='" + perl_d_fseeko64 + "'"
3049 $ WC "d_fsetpos64='" + perl_d_fsetpos64 + "'"
3050 $ WC "d_ftell64='" + perl_d_ftell64 + "'"
3051 $ WC "d_ftello64='" + perl_d_ftello64 + "'"
3052 $ WC "d_tmpfile64='" + perl_d_tmpfile64 + "'"
3053 $ WC "d_drand48proto='" + perl_d_drand48proto + "'"
3054 $ WC "d_pthread_create_joinable='" + perl_d_pthread_create_joinable + "'"
3055 $ WC "pthread_create_joinable='" + perl_pthread_create_joinable + "'"
3056 $ WC "drand01='" + perl_drand01 + "'"
3057 $ WC "randseedtype='" + perl_randseedtype + "'"
3058 $ WC "seedfunc='" + perl_seedfunc + "'"
3059 $ WC "sig_num_init='" + perl_sig_num_with_commas + "'"
3060 $ WC "i_sysmount='" + perl_i_sysmount + "'"
3061 $ WC "d_fstatfs='" + perl_d_fstatfs + "'"
3062 $ WC "d_statfsflags='" + perl_d_statfsflags + "'"
3063 $ WC "i_sysstatvfs='" + perl_i_sysstatvfs + "'"
3064 $ WC "d_fstatvfs='" + perl_d_fstatvfs + "'"
3065 $ WC "i_mntent='" + perl_i_mntent + "'"
3066 $ WC "d_getmntent='" + perl_d_getmntent + "'"
3067 $ WC "d_hasmntopt='" + perl_d_hasmntopt + "'"
3068 $ WC "d_telldirproto='" + perl_d_telldirproto + "'"
3070 $! ##WRITE NEW CONSTANTS HERE##
3074 $! Okay, we've gotten here. Build munchconfig and run it
3075 $ 'Perl_CC' munchconfig.c
3076 $ If (Needs_Opt.eqs."Yes")
3078 $ open/write OPTCHAN []munchconfig.opt
3079 $ IF ("''using_gnu_c'".eqs."Yes")
3081 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
3083 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
3085 $ link munchconfig.obj,munchconfig.opt/opt
3086 $ delete munchconfig.opt;*
3088 $ link munchconfig.obj
3090 $ WRITE_RESULT "Writing config.h"
3092 $ ! we need an fdl file
3093 $ CREATE [-]CONFIG.FDL
3096 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
3097 $ ! First spit out the header info with the local defines (to get
3098 $ ! around the 255 character command line limit)
3099 $ OPEN/APPEND CONFIG [-]config.local
3100 $ if use_debugging_perl.eqs."Y"
3102 $ WRITE CONFIG "#define DEBUGGING"
3104 $ if preload_env.eqs."Y"
3106 $ WRITE CONFIG "#define PRIME_ENV_AT_STARTUP"
3108 $ if use_two_pot_malloc.eqs."Y"
3110 $ WRITE CONFIG "#define TWO_POT_OPTIMIZE"
3112 $ if mymalloc.eqs."Y"
3114 $ WRITE CONFIG "#define EMBEDMYMALLOC"
3116 $ if use_pack_malloc.eqs."Y"
3118 $ WRITE CONFIG "#define PACK_MALLOC"
3120 $ if use_debugmalloc.eqs."Y"
3122 $ write config "#define DEBUGGING_MSTATS"
3124 $ if "''Using_Gnu_C'" .eqs."Yes"
3126 $ WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
3128 $ if "''Has_Dec_C_Sockets'".eqs."T"
3130 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
3131 $ WRITE CONFIG "#define DECCRTL_SOCKETS"
3133 $ if "''Has_Socketshr'".eqs."T"
3135 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
3139 $! Now build the normal config.h
3140 $ define/user sys$output [-]config.main
3141 $ mcr []munchconfig [-]config.sh [-]config_h.sh
3142 $ ! Concatenate them together
3143 $ copy [-]config.local,[-]config.main [-]config.h
3145 $ DELETE/NOLOG [-]CONFIG.MAIN;*
3146 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
3147 $ DELETE/NOLOG [-]CONFIG.FDL;*
3149 $ if "''Using_Dec_C'" .eqs."Yes"
3151 $ DECC_REPLACE = "DECC=decc=1"
3153 $ DECC_REPLACE = "DECC="
3155 $ if "''Using_Gnu_C'" .eqs."Yes"
3157 $ GNUC_REPLACE = "GNUC=gnuc=1"
3159 $ GNUC_REPLACE = "GNUC="
3161 $ if "''Has_Dec_C_Sockets'" .eqs."T"
3163 $ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
3165 $ if "''Has_Socketshr'" .eqs."T"
3167 $ SOCKET_REPLACE = "SOCKET=SOCKETSHR_SOCKETS=1"
3169 $ SOCKET_REPLACE = "SOCKET="
3172 $ IF ("''Use_Threads'".eqs."T")
3174 $ if ("''VMS_VER'".LES."6.2")
3176 $ THREAD_REPLACE = "THREAD=OLDTHREADED=1"
3178 $ THREAD_REPLACE = "THREAD=THREADED=1"
3181 $ THREAD_REPLACE = "THREAD="
3183 $ if mymalloc.eqs."Y"
3185 $ MALLOC_REPLACE = "MALLOC=MALLOC=1"
3187 $ MALLOC_REPLACE = "MALLOC="
3189 $ if f$getsyi("HW_MODEL").ge.1024
3191 $ ARCH_TYPE = "ARCH-TYPE=__AXP__"
3193 $ ARCH_TYPE = "ARCH-TYPE=__VAX__"
3195 $ WRITE_RESULT "Writing DESCRIP.MMS"
3197 $ define/user sys$output [-]descrip.mms
3198 $ 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'"
3201 $! Clean up after ourselves
3202 $ delete/nolog munchconfig.exe;*
3203 $ delete/nolog munchconfig.obj;*