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_i_sysmount="undef"
66 $ perl_d_fstatfs="undef"
67 $ perl_d_statfsflags="undef"
68 $ perl_i_sysstatvfs="undef"
69 $ perl_d_fstatfs="undef"
70 $ perl_i_mntent="undef"
71 $ perl_d_getmntent="undef"
72 $ perl_d_hasmntopt="undef"
73 $ perl_package="''package'"
74 $ perl_baserev = "''baserev'"
77 $ perl_d_fseeko="undef"
78 $ perl_d_ftello="undef"
79 $ perl_d_readv="undef"
80 $ perl_d_writev="undef"
81 $ perl_i_machcthr="undef"
82 $ perl_i_netdb="undef"
83 $ perl_d_gnulibc="undef"
84 $ perl_cf_by="unknown"
88 $ perl_drand01 = "random()"
89 $ perl_randseedtype = "unsigned int"
90 $ perl_seedfunc = "srand"
91 $ perl_d_msg_ctrunc = "undef"
92 $ perl_d_msg_dontroute = "undef"
93 $ perl_d_msg_oob = "undef"
94 $ perl_d_msg_peek = "undef"
95 $ perl_d_msg_proxy = "undef"
96 $ perl_d_scm_rights = "undef"
97 $ perl_d_sendmsg = "undef"
98 $ perl_d_recvmsg = "undef"
99 $ perl_d_msghdr_s = "undef"
100 $ perl_d_cmsghdr_s = "undef"
101 $ perl_d_dbminit64 = "undef"
102 $ perl_d_dbmclose64 = "undef"
103 $ perl_d_fetch64 = "undef"
104 $ perl_d_store64 = "undef"
105 $ perl_d_delete64 = "undef"
106 $ perl_d_firstkey64 = "undef"
107 $ perl_d_nextkey64 = "undef"
108 $ perl_d_fstat64 = "undef"
109 $ perl_d_ftruncate64 = "undef"
110 $ perl_d_lseek64 = "undef"
111 $ perl_d_lstat64 = "undef"
112 $ perl_d_open64 = "undef"
113 $ perl_d_opendir64 = "undef"
114 $ perl_d_readdir64 = "undef"
115 $ perl_d_seekdir64 = "undef"
116 $ perl_d_stat64 = "undef"
117 $ perl_d_telldir64 = "undef"
118 $ perl_d_truncate64 = "undef"
119 $ perl_d_dirent64_s = "undef"
120 $ perl_d_fgetpos64 = "undef"
121 $ perl_d_fopen64 = "undef"
122 $ perl_d_freopen64 = "undef"
123 $ perl_d_fseek64 = "undef"
124 $ perl_d_fseeko64 = "undef"
125 $ perl_d_fsetpos64 = "undef"
126 $ perl_d_ftell64 = "undef"
127 $ perl_d_ftello64 = "undef"
128 $ perl_d_tmpfile64 = "undef"
129 $ perl_use64bits = "undef"
130 $ perl_d_drand48proto = "define"
131 $ perl_libpth="/sys$share /sys$library"
133 $ perl_lddlflags="/Share"
138 $ perl_i_arpainet="undef"
139 $ perl_d_grpasswd="undef"
140 $ perl_d_setgrent="undef"
141 $ perl_d_getgrent="define"
142 $ perl_d_endgrent="define"
143 $ perl_d_pwpasswd="define"
144 $ perl_d_setpwent="define"
145 $ perl_d_getpwent="define"
146 $ perl_d_endpwent="define"
147 $ perl_d_phostname="undef"
148 $ perl_d_accessx="undef"
149 $ perl_d_eaccess="undef"
150 $ perl_ebcdic="undef"
152 $ perl_shrplib="define"
153 $ perl_usemymalloc=mymalloc
154 $ perl_usevfork="true"
155 $ perl_useposix="false"
156 $ perl_spitshell="write sys$output "
157 $ perl_dlsrc="dl_vms.c"
160 $ perl_prefix="perl_root"
161 $ perl_binexp="''perl_prefix':[000000]"
162 $ perl_builddir="''perl_prefix':[000000]"
163 $ perl_installbin="''perl_prefix':[000000]"
164 $ perl_installscript="''perl_prefix':[utils]"
165 $ perl_installman1dir="''perl_prefix':[man.man1]"
166 $ perl_installman3dir="''perl_prefix':[man.man3]"
167 $ perl_installprivlib="''perl_prefix':[lib]"
168 $ perl_installsitelib="''perl_prefix':[lib.site_perl]"
171 $ perl_d_sockpair="undef"
172 $ perl_i_neterrno="define"
173 $ perl_ldflags="/NoTrace/NoMap"
174 $ perl_d_lchown="undef"
175 $ perl_d_mknod="undef"
176 $ perl_d_union_semun="undef"
177 $ perl_d_semctl_semun="undef"
178 $ perl_d_semctl_semid_ds="undef"
179 $ IF (sharedperl.EQS."Y")
181 $ perl_obj_ext=".abj"
184 $ perl_exe_ext=".axe"
185 $ perl_lib_ext=".alb"
187 $ perl_obj_ext=".obj"
190 $ perl_exe_ext=".exe"
191 $ perl_lib_ext=".olb"
193 $ perl_dlobj="dl_vms''perl_obj_ext'"
195 $ perl_d_archlib="define"
196 $ perl_d_bincompat3="undef"
197 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
199 $ perl_d_castneg="define"
201 $ perl_d_chsize="undef"
202 $ perl_d_const="define"
203 $ perl_d_crypt="define"
204 $ perl_byteorder="1234"
207 $ perl_d_dup2="define"
208 $ perl_d_fchmod="undef"
209 $ perl_d_fchown="undef"
210 $ perl_d_fcntl="undef"
211 $ perl_d_fgetpos="define"
212 $ perl_d_flexfnam="define"
213 $ perl_d_flock="undef"
214 $ perl_d_fsetpos="define"
215 $ perl_d_getgrps="undef"
216 $ perl_d_setgrps="undef"
217 $ perl_d_getprior="undef"
218 $ perl_d_killpg="undef"
219 $ perl_d_link="undef"
220 $ perl_d_lstat="undef"
221 $ perl_d_lockf="undef"
222 $ perl_d_memcmp="define"
223 $ perl_d_memcpy="define"
224 $ perl_d_memmove="define"
225 $ perl_d_memset="define"
226 $ perl_d_mkdir="define"
228 $ perl_d_open3="define"
229 $ perl_d_poll="undef"
230 $ perl_d_readdir="define"
231 $ perl_d_seekdir="define"
232 $ perl_d_telldir="define"
233 $ perl_d_rewinddir="define"
234 $ perl_d_rename="define"
235 $ perl_d_rmdir="define"
237 $ perl_d_setegid="undef"
238 $ perl_d_seteuid="undef"
239 $ perl_d_setprior="undef"
240 $ perl_d_setregid="undef"
241 $ perl_d_setresgid="undef"
242 $ perl_d_setreuid="undef"
243 $ perl_d_setresuid="undef"
244 $ perl_d_setrgid="undef"
245 $ perl_d_setruid="undef"
246 $ perl_d_setsid="undef"
248 $ perl_d_shmatprototype="undef"
249 $ perl_d_statblks="undef"
250 $ perl_stdio_ptr="((*fp)->_ptr)"
251 $ perl_stdio_cnt="((*fp)->_cnt)"
252 $ perl_stdio_base="((*fp)->_base)"
253 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
254 $ perl_d_strctcpy="define"
255 $ perl_d_strerror="define"
256 $ perl_d_syserrlst="undef"
257 $ perl_d_strerrm="strerror((e),vaxc$errno)"
258 $ perl_d_symlink="undef"
259 $ perl_d_syscall="undef"
260 $ perl_d_system="define"
261 $ perl_timetype="time_t"
262 $ perl_d_vfork="define"
263 $ perl_signal_t="void"
264 $ perl_d_volatile="define"
265 $ perl_d_vprintf="define"
266 $ perl_d_charvspr="undef"
267 $ perl_d_waitpid="define"
268 $ perl_i_dirent="undef"
269 $ perl_d_dirnamlen="define"
270 $ perl_direntrytype="struct dirent"
271 $ perl_i_fcntl="undef"
273 $ perl_i_limits="define"
274 $ perl_i_memory="undef"
275 $ perl_i_ndbm="undef"
276 $ perl_i_stdarg="define"
278 $ perl_d_pwquota="undef"
279 $ perl_d_pwage="undef"
280 $ perl_d_pwchange="undef"
281 $ perl_d_pwclass="undef"
282 $ perl_d_pwexpire="undef"
283 $ perl_d_pwcomment="define"
284 $ perl_i_stddef="define"
285 $ perl_i_stdlib="define"
286 $ perl_i_string="define"
287 $ perl_i_sysdir="undef"
288 $ perl_i_sysfile="undef"
289 $ perl_i_sysioctl="undef"
290 $ perl_i_sysndir="undef"
291 $ perl_i_sysresrc="undef"
292 $ perl_i_sysselct="undef"
294 $ perl_i_rpcsvcdbm="undef"
295 $ perl_i_sfio="undef"
296 $ perl_i_sysstat="define"
297 $ perl_i_systimes="undef"
298 $ perl_i_systypes="define"
299 $ perl_i_sysun="undef"
300 $ perl_i_syswait="undef"
301 $ perl_i_termio="undef"
302 $ perl_i_sgtty="undef"
303 $ perl_i_termios="undef"
304 $ perl_i_time="define"
305 $ perl_i_systime="undef"
306 $ perl_i_systimek="undef"
307 $! perl_i_unistd="undef"
308 $ perl_i_utime="undef"
309 $ perl_i_varargs="undef"
310 $ perl_i_vfork="undef"
311 $ perl_prototype="define"
313 $ perl_stdchar="char"
314 $ perl_d_unlink_all_versions="undef"
315 $ perl_full_sed="_NLA0:"
316 $ perl_bin="/''perl_prefix'/000000"
317 $ perl_binexp="''perl_prefix':[000000]"
318 $ perl_d_alarm="define"
319 $ perl_d_casti32="define"
320 $ perl_d_chown="define"
321 $ perl_d_chroot="undef"
322 $ perl_d_cuserid="define"
323 $ perl_d_dbl_dig="define"
324 $ perl_d_difftime="define"
325 $ perl_d_fork="undef"
326 $ perl_d_getlogin="define"
327 $ perl_d_getppid="undef"
328 $ perl_d_nice="define"
329 $ perl_d_pause="define"
330 $ perl_d_pipe="define"
331 $ perl_d_readlink="undef"
332 $ perl_d_setlinebuf="undef"
333 $ perl_d_strchr="define"
334 $ perl_d_strtod="define"
335 $ perl_d_strtol="define"
336 $ perl_d_strtoul="define"
337 $ perl_d_tcgetpgrp="undef"
338 $ perl_d_tcsetpgrp="undef"
339 $ perl_d_times="define"
340 $ perl_d_tzname="undef"
341 $ perl_d_umask="define"
342 $ perl_fpostype="fpos_t"
343 $ perl_i_dlfcn="undef"
344 $ perl_i_float="define"
345 $ perl_i_math="define"
346 $ perl_lseektype="int"
347 $ perl_i_values="undef"
348 $ perl_malloctype="void *"
349 $ perl_freetype="void"
350 $ if "''mymalloc'".eqs."Y"
352 $ perl_d_mymalloc="define"
354 $ perl_d_mymalloc="undef"
357 $ perl_modetype="unsigned int"
358 $ perl_ssizetype="int"
362 $ perl_d_eofnblk="undef"
363 $ perl_d_oldarchlib="define"
364 $ perl_privlibexp="''perl_prefix':[lib]"
365 $ perl_privlib="''perl_prefix':[lib]"
366 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
367 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
368 $ perl_sizetype="size_t"
369 $ perl_i_sysparam="undef"
370 $ perl_d_void_closedir="define"
371 $ perl_d_dlerror="undef"
372 $ perl_d_dlsymun="undef"
373 $ perl_d_suidsafe="undef"
374 $ perl_d_dosuid="undef"
375 $ perl_d_inetaton="undef"
376 $ perl_d_isascii="define"
377 $ perl_d_mkfifo="undef"
378 $ perl_d_safebcpy="undef"
379 $ perl_d_safemcpy="define"
380 $ perl_d_sanemcmp="define"
381 $ perl_d_setpgrp="undef"
382 $ perl_d_bsdsetpgrp="undef"
383 $ perl_d_bsdpgrp="undef"
384 $ perl_d_setpgid="undef"
385 $ perl_d_setpgrp2="undef"
386 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
387 $ perl_d_getpgid="undef"
388 $ perl_d_getpgrp="undef"
389 $ perl_d_bsdgetpgrp="undef"
390 $ perl_d_getpgrp2="undef"
391 $ perl_d_sfio="undef"
392 $ perl_usedl="define"
393 $ perl_startperl="""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ + ++$status != 0 and $exit = $status = undef;"""
394 $ perl_db_hashtype=""
395 $ perl_db_prefixtype=""
396 $ perl_useperlio="undef"
397 $ perl_defvoidused="15"
398 $ perl_voidflags="15"
399 $ perl_d_eunice="undef"
400 $ perl_d_pwgecos="define"
401 $ IF ("''Use_Threads'".eqs."T").and.("''VMS_VER'".LES."6.2")
403 $ 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"
407 $ IF ("''Using_Dec_C'".eqs."Yes")
409 $ perl_libc="(DECCRTL)"
413 $ perl_PATCHLEVEL="''patchlevel'"
414 $ perl_SUBVERSION="''subversion'"
418 $! Now some that we build up
420 $ LocalTime = f$time()
421 $ perl_cf_time= f$extract(0, 3, f$cvtime(LocalTime,, "WEEKDAY")) + " " + -
422 f$edit(f$cvtime(LocalTime, "ABSOLUTE", "MONTH"), "LOWERCASE") + -
423 " " + f$cvtime(LocalTime,, "DAY") + " " + f$cvtime(LocalTime,, "TIME") + -
424 " " + f$cvtime(LocalTime,, "YEAR")
425 $ if f$getsyi("HW_MODEL").ge.1024
427 $ perl_arch="VMS_AXP"
428 $ perl_archname="VMS_AXP"
429 $ perl_alignbytes="8"
431 $ perl_arch="VMS_VAX"
432 $ perl_archname="VMS_VAX"
433 $ perl_alignbytes="8"
435 $ if ("''Use_Threads'".eqs."T")
437 $ perl_arch = "''perl_arch'-thread"
438 $ perl_archname = "''perl_archname'-thread"
440 $ perl_d_pthread_create_joinable = "undef"
441 $ perl_pthread_create_joinable = ""
443 $ perl_osvers=f$edit(osvers, "TRIM")
444 $ if (perl_subversion + 0).eq.0
446 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL
448 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion
451 $! Some that we need to invoke the compiler for
452 $ OS := "open/write SOURCECHAN []temp.c"
453 $ WS := "write SOURCECHAN"
454 $ CS := "close SOURCECHAN"
455 $ DS := "delete/nolog []temp.*;*"
457 $ if ("''using_vax_c'".eqs."Yes").or.("''using_gnu_c'".eqs."Yes")
459 $ open/write OPTCHAN []temp.opt
460 $ IF ("''using_gnu_c'".eqs."Yes")
462 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
464 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
469 $! Check for __STDC__
473 $ WS "#include <stdlib.h>
475 $ WS "#include <stdio.h>
478 $ WS "#ifdef __STDC__
479 $ WS "printf(""42\n"");
481 $ WS "printf(""1\n"");
486 $ DEFINE SYS$ERROR _NLA0:
487 $ DEFINE SYS$OUTPUT _NLA0:
488 $ ON ERROR THEN CONTINUE
489 $ ON WARNING THEN CONTINUE
491 $ If (Needs_Opt.eqs."Yes")
493 $ link temp.obj,temp.opt/opt
497 $ DEASSIGN SYS$OUTPUT
499 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
500 $ DEFINE SYS$ERROR TEMPOUT
501 $ DEFINE SYS$OUTPUT TEMPOUT
504 $ DEASSIGN SYS$OUTPUT
506 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
510 $ perl_cpp_stuff=line
511 $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
513 $! Check for double size
517 $ WS "#include <stdlib.h>
519 $ WS "#include <stdio.h>
523 $ WS "foo = sizeof(double);
524 $ WS "printf(""%d\n"", foo);
528 $ DEFINE SYS$ERROR _NLA0:
529 $ DEFINE SYS$OUTPUT _NLA0:
530 $ ON ERROR THEN CONTINUE
531 $ ON WARNING THEN CONTINUE
533 $ If (Needs_Opt.eqs."Yes")
535 $ link temp.obj,temp.opt/opt
540 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
541 $ DEASSIGN SYS$OUTPUT
543 $ DEFINE SYS$ERROR TEMPOUT
544 $ DEFINE SYS$OUTPUT TEMPOUT
547 $ DEASSIGN SYS$OUTPUT
549 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
553 $ perl_doublesize=line
554 $ WRITE_RESULT "doublesize is ''perl_doublesize'"
556 $! Check for long double size
560 $ WS "#include <stdlib.h>
562 $ WS "#include <stdio.h>
565 $ WS "printf(""%d\n"", sizeof(long double));
569 $ DEFINE SYS$ERROR _NLA0:
570 $ DEFINE SYS$OUTPUT _NLA0:
571 $ ON ERROR THEN CONTINUE
572 $ ON WARNING THEN CONTINUE
574 $ teststatus = f$extract(9,1,$status)
575 $ if (teststatus.nes."1")
577 $ perl_longdblsize="0"
578 $ perl_d_longdbl="undef"
580 $ ON ERROR THEN CONTINUE
581 $ ON WARNING THEN CONTINUE
582 $ If (Needs_Opt.eqs."Yes")
584 $ link temp.obj,temp.opt/opt
588 $ teststatus = f$extract(9,1,$status)
589 $ DEASSIGN SYS$OUTPUT
591 $ if (teststatus.nes."1")
593 $ perl_longdblsize="0"
594 $ perl_d_longdbl="undef"
596 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
597 $ DEFINE SYS$ERROR TEMPOUT
598 $ DEFINE SYS$OUTPUT TEMPOUT
601 $ DEASSIGN SYS$OUTPUT
603 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
607 $ perl_longdblsize=line
608 $ perl_d_longdbl="define"
611 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
612 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
614 $! Check for long long existance and size
618 $ WS "#include <stdlib.h>
620 $ WS "#include <stdio.h>
623 $ WS "printf(""%d\n"", sizeof(long long));
627 $ DEFINE SYS$ERROR _NLA0:
628 $ DEFINE SYS$OUTPUT _NLA0:
629 $ on error then continue
630 $ on warning then continue
632 $ If (Needs_Opt.eqs."Yes")
634 $ link temp.obj,temp.opt/opt
638 $ teststatus = f$extract(9,1,$status)
639 $ DEASSIGN SYS$OUTPUT
641 $ if (teststatus.nes."1")
643 $ perl_longlongsize="0"
644 $ perl_d_longlong="undef"
646 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
647 $ DEFINE SYS$ERROR TEMPOUT
648 $ DEFINE SYS$OUTPUT TEMPOUT
651 $ DEASSIGN SYS$OUTPUT
653 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
657 $ perl_longlongsize=line
658 $ perl_d_longlong="define"
660 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
661 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
663 $! Check for int size
667 $ WS "#include <stdlib.h>
669 $ WS "#include <stdio.h>
672 $ WS "printf(""%d\n"", sizeof(int));
676 $ DEFINE SYS$ERROR _NLA0:
677 $ DEFINE SYS$OUTPUT _NLA0:
678 $ on error then continue
679 $ on warning then continue
681 $ If (Needs_Opt.eqs."Yes")
683 $ link temp.obj,temp.opt/opt
687 $ If (Needs_Opt.eqs."Yes")
689 $ link temp.obj,temp.opt/opt
693 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
694 $ DEASSIGN SYS$OUTPUT
696 $ DEFINE SYS$ERROR TEMPOUT
697 $ DEFINE SYS$OUTPUT TEMPOUT
700 $ DEASSIGN SYS$OUTPUT
702 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
707 $ WRITE_RESULT "intsize is ''perl_intsize'"
709 $! Check for short size
713 $ WS "#include <stdlib.h>
715 $ WS "#include <stdio.h>
718 $ WS "printf(""%d\n"", sizeof(short));
722 $ DEFINE SYS$ERROR _NLA0:
723 $ DEFINE SYS$OUTPUT _NLA0:
724 $ on error then continue
725 $ on warning then continue
727 $ If (Needs_Opt.eqs."Yes")
729 $ link temp.obj,temp.opt/opt
733 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
734 $ DEASSIGN SYS$OUTPUT
736 $ DEFINE SYS$ERROR TEMPOUT
737 $ DEFINE SYS$OUTPUT TEMPOUT
740 $ DEASSIGN SYS$OUTPUT
742 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
746 $ perl_shortsize=line
747 $ WRITE_RESULT "shortsize is ''perl_shortsize'"
749 $! Check for long size
753 $ WS "#include <stdlib.h>
755 $ WS "#include <stdio.h>
759 $ WS "foo = sizeof(long);
760 $ WS "printf(""%d\n"", foo);
764 $ DEFINE SYS$ERROR _NLA0:
765 $ DEFINE SYS$OUTPUT _NLA0:
766 $ on error then continue
767 $ on warning then continue
769 $ If (Needs_Opt.eqs."Yes")
771 $ link temp.obj,temp.opt/opt
775 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
776 $ DEASSIGN SYS$OUTPUT
778 $ DEFINE SYS$ERROR TEMPOUT
779 $ DEFINE SYS$OUTPUT TEMPOUT
782 $ DEASSIGN SYS$OUTPUT
784 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
789 $ WRITE_RESULT "longsize is ''perl_longsize'"
791 $! Check the prototype for getgid
795 $ WS "#include <stdlib.h>
797 $ WS "#include <stdio.h>
798 $ WS "#include <types.h>
799 $ WS "#include <unistd.h>
806 $ DEFINE SYS$ERROR _NLA0:
807 $ DEFINE SYS$OUTPUT _NLA0:
808 $ on error then continue
809 $ on warning then continue
811 $ teststatus = f$extract(9,1,$status)
812 $ DEASSIGN SYS$OUTPUT
814 $ if (teststatus.nes."1")
816 $! Okay, gid_t failed. Must be unsigned int
817 $ perl_gidtype = "unsigned int"
819 $ perl_gidtype = "gid_t"
821 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
823 $! Check to see if we've got dev_t
827 $ WS "#include <stdlib.h>
829 $ WS "#include <stdio.h>
830 $ WS "#include <types.h>
831 $ WS "#include <unistd.h>
838 $ DEFINE SYS$ERROR _NLA0:
839 $ DEFINE SYS$OUTPUT _NLA0:
840 $ on error then continue
841 $ on warning then continue
843 $ teststatus = f$extract(9,1,$status)
844 $ DEASSIGN SYS$OUTPUT
846 $ if (teststatus.nes."1")
848 $! Okay, dev_t failed. Must be unsigned int
849 $ perl_devtype = "unsigned int"
851 $ perl_devtype = "dev_t"
853 $ WRITE_RESULT "Dev_t is ''perl_devtype'"
855 $! Check to see if we've got unistd.h (which we ought to, but you never know)
859 $ WS "#include <stdlib.h>
861 $ WS "#include <unistd.h>
867 $ DEFINE SYS$ERROR _NLA0:
868 $ DEFINE SYS$OUTPUT _NLA0:
869 $ on error then continue
870 $ on warning then continue
872 $ teststatus = f$extract(9,1,$status)
873 $ DEASSIGN SYS$OUTPUT
875 $ if (teststatus.nes."1")
877 $! Okay, failed. Must not have it
878 $ perl_i_unistd = "undef"
880 $ perl_i_unistd = "define"
883 $ WRITE_RESULT "i_unistd is ''perl_i_unistd'"
885 $! Check the prototype for select
887 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
891 $ WS "#include <stdlib.h>
893 $ WS "#include <stdio.h>
894 $ WS "#include <types.h>
895 $ WS "#include <unistd.h>
896 $ if ("''Has_Socketshr'".eqs."T")
898 $ WS "#include <socketshr.h>"
900 $ WS "#include <time.h>
901 $ WS "#include <socket.h>
908 $ WS "bar = select(2, foo, foo, foo, NULL);
912 $ DEFINE SYS$ERROR _NLA0:
913 $ DEFINE SYS$OUTPUT _NLA0:
914 $ on error then continue
915 $ on warning then continue
917 $ teststatus = f$extract(9,1,$status)
918 $ DEASSIGN SYS$OUTPUT
920 $ if (teststatus.nes."1")
922 $! Okay, fd_set failed. Must be an int
923 $ perl_selecttype = "int *"
925 $ perl_selecttype="fd_set *"
928 $ ! No sockets, so stick in an int *
929 $ perl_selecttype = "int *"
931 $ WRITE_RESULT "selectype is ''perl_selecttype'"
933 $! Check to see if fd_set exists
937 $ WS "#include <stdlib.h>
939 $ WS "#include <stdio.h>
940 $ WS "#include <types.h>
941 $ WS "#include <unistd.h>
942 $ if ("''Has_Socketshr'".eqs."T")
944 $ WS "#include <socketshr.h>"
946 $ IF ("''Has_Dec_C_Sockets'".eqs."T")
948 $ WS "#include <time.h>
949 $ WS "#include <socket.h>
958 $ DEFINE SYS$ERROR _NLA0:
959 $ DEFINE SYS$OUTPUT _NLA0:
960 $ on error then continue
961 $ on warning then continue
963 $ teststatus = f$extract(9,1,$status)
964 $ DEASSIGN SYS$OUTPUT
966 $ if (teststatus.nes."1")
968 $! Okay, fd_set failed. Must not exist
969 $ perl_d_fd_set = "undef"
971 $ perl_d_fd_set="define"
973 $ WRITE_RESULT "d_fd_set is ''perl_d_fd_set'"
975 $! Check for inttypes.h
979 $ WS "#include <stdlib.h>
981 $ WS "#include <stdio.h>
982 $ WS "#include <unistd.h>
983 $ WS "#include <inttypes.h>
989 $ DEFINE SYS$ERROR _NLA0:
990 $ DEFINE SYS$OUTPUT _NLA0:
991 $ on error then continue
992 $ on warning then continue
994 $ savedstatus = $status
995 $ teststatus = f$extract(9,1,savedstatus)
996 $ if (teststatus.nes."1")
998 $ perl_i_inttypes="undef"
999 $ DEASSIGN SYS$OUTPUT
1000 $ DEASSIGN SYS$ERROR
1002 $ If (Needs_Opt.eqs."Yes")
1004 $ link temp.obj,temp.opt/opt
1008 $ savedstatus = $status
1009 $ teststatus = f$extract(9,1,savedstatus)
1010 $ DEASSIGN SYS$OUTPUT
1011 $ DEASSIGN SYS$ERROR
1012 $ if (teststatus.nes."1")
1014 $ perl_i_inttypes="undef"
1016 $ perl_i_inttypes="define"
1019 $ WRITE_RESULT "i_inttypes is ''perl_i_inttypes'"
1021 $! Check to see if int64_t exists
1025 $ WS "#include <stdlib.h>
1027 $ WS "#include <stdio.h>
1028 $ WS "#include <types.h>
1029 $ WS "#''perl_i_inttypes IIH
1031 $ WS "#include <inttypes.h>
1033 $ WS "#include <unistd.h>
1040 $ DEFINE SYS$ERROR _NLA0:
1041 $ DEFINE SYS$OUTPUT _NLA0:
1042 $ on error then continue
1043 $ on warning then continue
1045 $ teststatus = f$extract(9,1,$status)
1046 $ DEASSIGN SYS$OUTPUT
1047 $ DEASSIGN SYS$ERROR
1048 $ if (teststatus.nes."1")
1050 $! Okay, int64_t failed. Must not exist
1051 $ perl_d_int64t = "undef"
1053 $ perl_d_int64t="define"
1055 $ WRITE_RESULT "d_int64t is ''perl_d_int64t'"
1057 $! Check to see if off64_t exists
1061 $ WS "#include <stdlib.h>
1063 $ WS "#include <stdio.h>
1064 $ WS "#include <types.h>
1065 $ WS "#''perl_i_inttypes IIH
1067 $ WS "#include <inttypes.h>
1069 $ WS "#include <unistd.h>
1076 $ DEFINE SYS$ERROR _NLA0:
1077 $ DEFINE SYS$OUTPUT _NLA0:
1078 $ on error then continue
1079 $ on warning then continue
1081 $ teststatus = f$extract(9,1,$status)
1082 $ DEASSIGN SYS$OUTPUT
1083 $ DEASSIGN SYS$ERROR
1084 $ if (teststatus.nes."1")
1086 $! Okay, off64_t failed. Must not exist
1087 $ perl_d_off64t = "undef"
1089 $ perl_d_off64t="define"
1091 $ WRITE_RESULT "d_off64t is ''perl_d_off64t'"
1093 $! Check to see if gethostname exists
1095 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1099 $ WS "#include <stdlib.h>
1101 $ WS "#include <stdio.h>
1102 $ WS "#include <types.h>
1103 $ WS "#include <unistd.h>
1104 $ if ("''Has_Socketshr'".eqs."T")
1106 $ WS "#include <socketshr.h>"
1108 $ WS "#include <time.h>
1109 $ WS "#include <socket.h>
1113 $ WS "char name[100];
1116 $ WS "baz = gethostname(name, bar);
1120 $ DEFINE SYS$ERROR _NLA0:
1121 $ DEFINE SYS$OUTPUT _NLA0:
1122 $ on error then continue
1123 $ on warning then continue
1125 $ teststatus = f$extract(9,1,$status)
1126 $ DEASSIGN SYS$OUTPUT
1127 $ DEASSIGN SYS$ERROR
1128 $ if (teststatus.nes."1")
1130 $! Okay, compile failed. Must not have it
1131 $ perl_dgethname = "undef"
1133 $ If (Needs_Opt.eqs."Yes")
1135 $ link temp.obj,temp.opt/opt
1139 $ savedstatus = $status
1140 $ teststatus = f$extract(9,1,savedstatus)
1141 $ if (teststatus.nes."1")
1143 $ perl_d_gethname="undef"
1145 $ perl_d_gethname="define"
1149 $ ! No sockets, so no gethname
1150 $ perl_d_gethname = "undef"
1152 $ WRITE_RESULT "d_gethname is ''perl_d_gethname'"
1154 $! Check for sys/file.h
1158 $ WS "#include <stdlib.h>
1160 $ WS "#include <stdio.h>
1161 $ WS "#include <unistd.h>
1162 $ WS "#include <sys/file.h>
1168 $ DEFINE SYS$ERROR _NLA0:
1169 $ DEFINE SYS$OUTPUT _NLA0:
1170 $ on error then continue
1171 $ on warning then continue
1173 $ savedstatus = $status
1174 $ teststatus = f$extract(9,1,savedstatus)
1175 $ if (teststatus.nes."1")
1177 $ perl_i_sysfile="undef"
1178 $ DEASSIGN SYS$OUTPUT
1179 $ DEASSIGN SYS$ERROR
1181 $ If (Needs_Opt.eqs."Yes")
1183 $ link temp.obj,temp.opt/opt
1187 $ savedstatus = $status
1188 $ teststatus = f$extract(9,1,savedstatus)
1189 $ DEASSIGN SYS$OUTPUT
1190 $ DEASSIGN SYS$ERROR
1191 $ if (teststatus.nes."1")
1193 $ perl_i_sysfile="undef"
1195 $ perl_i_sysfile="define"
1198 $ WRITE_RESULT "i_sysfile is ''perl_i_sysfile'"
1204 $ WS "#include <stdlib.h>
1206 $ WS "#include <stdio.h>
1207 $ WS "#include <unistd.h>
1208 $ WS "#include <poll.h>
1214 $ DEFINE SYS$ERROR _NLA0:
1215 $ DEFINE SYS$OUTPUT _NLA0:
1216 $ on error then continue
1217 $ on warning then continue
1219 $ savedstatus = $status
1220 $ teststatus = f$extract(9,1,savedstatus)
1221 $ if (teststatus.nes."1")
1223 $ perl_i_poll="undef"
1224 $ DEASSIGN SYS$OUTPUT
1225 $ DEASSIGN SYS$ERROR
1227 $ If (Needs_Opt.eqs."Yes")
1229 $ link temp.obj,temp.opt/opt
1233 $ savedstatus = $status
1234 $ teststatus = f$extract(9,1,savedstatus)
1235 $ DEASSIGN SYS$OUTPUT
1236 $ DEASSIGN SYS$ERROR
1237 $ if (teststatus.nes."1")
1239 $ perl_i_poll="undef"
1241 $ perl_i_poll="define"
1244 $ WRITE_RESULT "i_poll is ''perl_i_poll'"
1246 $! Check for sys/uio.h
1250 $ WS "#include <stdlib.h>
1252 $ WS "#include <stdio.h>
1253 $ WS "#include <unistd.h>
1254 $ WS "#include <sys/uio.h>
1260 $ DEFINE SYS$ERROR _NLA0:
1261 $ DEFINE SYS$OUTPUT _NLA0:
1262 $ on error then continue
1263 $ on warning then continue
1265 $ savedstatus = $status
1266 $ teststatus = f$extract(9,1,savedstatus)
1267 $ if (teststatus.nes."1")
1269 $ perl_i_sysuio="undef"
1270 $ DEASSIGN SYS$OUTPUT
1271 $ DEASSIGN SYS$ERROR
1273 $ If (Needs_Opt.eqs."Yes")
1275 $ link temp.obj,temp.opt/opt
1279 $ savedstatus = $status
1280 $ teststatus = f$extract(9,1,savedstatus)
1281 $ DEASSIGN SYS$OUTPUT
1282 $ DEASSIGN SYS$ERROR
1283 $ if (teststatus.nes."1")
1285 $ perl_i_sysuio="undef"
1287 $ perl_i_sysuio="define"
1290 $ WRITE_RESULT "i_sysuio is ''perl_i_sysuio'"
1292 $! Check for sys/access.h
1296 $ WS "#include <stdlib.h>
1298 $ WS "#include <stdio.h>
1299 $ WS "#include <unistd.h>
1300 $ WS "#include <sys/access.h>
1306 $ DEFINE SYS$ERROR _NLA0:
1307 $ DEFINE SYS$OUTPUT _NLA0:
1308 $ on error then continue
1309 $ on warning then continue
1311 $ savedstatus = $status
1312 $ teststatus = f$extract(9,1,savedstatus)
1313 $ if (teststatus.nes."1")
1315 $ perl_i_sysaccess="undef"
1316 $ DEASSIGN SYS$OUTPUT
1317 $ DEASSIGN SYS$ERROR
1319 $ If (Needs_Opt.eqs."Yes")
1321 $ link temp.obj,temp.opt/opt
1325 $ savedstatus = $status
1326 $ teststatus = f$extract(9,1,savedstatus)
1327 $ DEASSIGN SYS$OUTPUT
1328 $ DEASSIGN SYS$ERROR
1329 $ if (teststatus.nes."1")
1331 $ perl_i_sysaccess="undef"
1333 $ perl_i_sysaccess="define"
1336 $ WRITE_RESULT "i_sysaccess is ''perl_i_sysaccess'"
1338 $! Check for sys/security.h
1342 $ WS "#include <stdlib.h>
1344 $ WS "#include <stdio.h>
1345 $ WS "#include <unistd.h>
1346 $ WS "#include <sys/security.h>
1352 $ DEFINE SYS$ERROR _NLA0:
1353 $ DEFINE SYS$OUTPUT _NLA0:
1354 $ on error then continue
1355 $ on warning then continue
1357 $ savedstatus = $status
1358 $ teststatus = f$extract(9,1,savedstatus)
1359 $ if (teststatus.nes."1")
1361 $ perl_i_syssecrt="undef"
1362 $ DEASSIGN SYS$OUTPUT
1363 $ DEASSIGN SYS$ERROR
1365 $ If (Needs_Opt.eqs."Yes")
1367 $ link temp.obj,temp.opt/opt
1371 $ savedstatus = $status
1372 $ teststatus = f$extract(9,1,savedstatus)
1373 $ DEASSIGN SYS$OUTPUT
1374 $ DEASSIGN SYS$ERROR
1375 $ if (teststatus.nes."1")
1377 $ perl_i_syssecrt="undef"
1379 $ perl_i_syssecrt="define"
1382 $ WRITE_RESULT "i_syssecrt is ''perl_i_syssecrt'"
1384 $! Check for fcntl.h
1388 $ WS "#include <stdlib.h>
1390 $ WS "#include <stdio.h>
1391 $ WS "#include <unistd.h>
1392 $ WS "#include <fcntl.h>
1398 $ DEFINE SYS$ERROR _NLA0:
1399 $ DEFINE SYS$OUTPUT _NLA0:
1400 $ on error then continue
1401 $ on warning then continue
1403 $ savedstatus = $status
1404 $ teststatus = f$extract(9,1,savedstatus)
1405 $ if (teststatus.nes."1")
1407 $ perl_i_fcntl="undef"
1408 $ DEASSIGN SYS$OUTPUT
1409 $ DEASSIGN SYS$ERROR
1411 $ If (Needs_Opt.eqs."Yes")
1413 $ link temp.obj,temp.opt/opt
1417 $ savedstatus = $status
1418 $ teststatus = f$extract(9,1,savedstatus)
1419 $ DEASSIGN SYS$OUTPUT
1420 $ DEASSIGN SYS$ERROR
1421 $ if (teststatus.nes."1")
1423 $ perl_i_fcntl="undef"
1425 $ perl_i_fcntl="define"
1428 $ WRITE_RESULT "i_fcntl is ''perl_i_fcntl'"
1434 $ WS "#include <stdlib.h>
1436 $ WS "#include <stdio.h>
1437 $ WS "#include <unistd.h>
1438 $ WS "#include <fcntl.h>
1445 $ DEFINE SYS$ERROR _NLA0:
1446 $ DEFINE SYS$OUTPUT _NLA0:
1447 $ on error then continue
1448 $ on warning then continue
1450 $ savedstatus = $status
1451 $ teststatus = f$extract(9,1,savedstatus)
1452 $ if (teststatus.nes."1")
1454 $ perl_d_fcntl="undef"
1455 $ DEASSIGN SYS$OUTPUT
1456 $ DEASSIGN SYS$ERROR
1458 $ If (Needs_Opt.eqs."Yes")
1460 $ link temp.obj,temp.opt/opt
1464 $ savedstatus = $status
1465 $ teststatus = f$extract(9,1,savedstatus)
1466 $ DEASSIGN SYS$OUTPUT
1467 $ DEASSIGN SYS$ERROR
1468 $ if (teststatus.nes."1")
1470 $ perl_d_fcntl="undef"
1472 $ perl_d_fcntl="define"
1475 $ WRITE_RESULT "d_fcntl is ''perl_d_fcntl'"
1481 $ WS "#include <stdlib.h>
1483 $ WS "#include <stdio.h>
1484 $ WS "#include <unistd.h>
1487 $ WS "access("foo", F_OK);
1491 $ DEFINE SYS$ERROR _NLA0:
1492 $ DEFINE SYS$OUTPUT _NLA0:
1493 $ on error then continue
1494 $ on warning then continue
1496 $ savedstatus = $status
1497 $ teststatus = f$extract(9,1,savedstatus)
1498 $ if (teststatus.nes."1")
1500 $ perl_d_access="undef"
1501 $ DEASSIGN SYS$OUTPUT
1502 $ DEASSIGN SYS$ERROR
1504 $ If (Needs_Opt.eqs."Yes")
1506 $ link temp.obj,temp.opt/opt
1510 $ savedstatus = $status
1511 $ teststatus = f$extract(9,1,savedstatus)
1512 $ DEASSIGN SYS$OUTPUT
1513 $ DEASSIGN SYS$ERROR
1514 $ if (teststatus.nes."1")
1516 $ perl_d_access="undef"
1518 $ perl_d_access="define"
1521 $ WRITE_RESULT "d_access is ''perl_d_access'"
1527 $ WS "#include <stdlib.h>
1529 $ WS "#include <stdio.h>
1530 $ WS "#include <strings.h>
1534 $ WS "bzero(foo, 10);
1538 $ DEFINE SYS$ERROR _NLA0:
1539 $ DEFINE SYS$OUTPUT _NLA0:
1540 $ on error then continue
1541 $ on warning then continue
1543 $ savedstatus = $status
1544 $ teststatus = f$extract(9,1,savedstatus)
1545 $ if (teststatus.nes."1")
1547 $ perl_d_bzero="undef"
1548 $ DEASSIGN SYS$OUTPUT
1549 $ DEASSIGN SYS$ERROR
1551 $ If (Needs_Opt.eqs."Yes")
1553 $ link temp.obj,temp.opt/opt
1557 $ savedstatus = $status
1558 $ teststatus = f$extract(9,1,savedstatus)
1559 $ DEASSIGN SYS$OUTPUT
1560 $ DEASSIGN SYS$ERROR
1561 $ if (teststatus.nes."1")
1563 $ perl_d_bzero="undef"
1565 $ perl_d_bzero="define"
1568 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
1574 $ WS "#include <stdlib.h>
1576 $ WS "#include <stdio.h>
1577 $ WS "#include <strings.h>
1580 $ WS "char foo[10], bar[10];
1581 $ WS "bcopy(""foo"", bar, 3);
1585 $ DEFINE SYS$ERROR _NLA0:
1586 $ DEFINE SYS$OUTPUT _NLA0:
1587 $ on error then continue
1588 $ on warning then continue
1590 $ savedstatus = $status
1591 $ teststatus = f$extract(9,1,savedstatus)
1592 $ if (teststatus.nes."1")
1594 $ perl_d_bcopy="undef"
1595 $ DEASSIGN SYS$OUTPUT
1596 $ DEASSIGN SYS$ERROR
1598 $ If (Needs_Opt.eqs."Yes")
1600 $ link temp.obj,temp.opt/opt
1604 $ savedstatus = $status
1605 $ teststatus = f$extract(9,1,savedstatus)
1606 $ DEASSIGN SYS$OUTPUT
1607 $ DEASSIGN SYS$ERROR
1608 $ if (teststatus.nes."1")
1610 $ perl_d_bcopy="undef"
1612 $ perl_d_bcopy="define"
1615 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
1617 $! Check for mkstemp
1621 $ WS "#include <stdlib.h>
1623 $ WS "#include <stdio.h>
1626 $ WS "mkstemp(""foo"");
1630 $ DEFINE SYS$ERROR _NLA0:
1631 $ DEFINE SYS$OUTPUT _NLA0:
1632 $ on error then continue
1633 $ on warning then continue
1635 $ If (Needs_Opt.eqs."Yes")
1637 $ link temp.obj,temp.opt/opt
1641 $ savedstatus = $status
1642 $ teststatus = f$extract(9,1,savedstatus)
1643 $ DEASSIGN SYS$OUTPUT
1644 $ DEASSIGN SYS$ERROR
1645 $ if (teststatus.nes."1")
1647 $ perl_d_mkstemp="undef"
1649 $ perl_d_mkstemp="define"
1651 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
1653 $! Check for setvbuf
1657 $ WS "#include <stdlib.h>
1659 $ WS "#include <stdio.h>
1663 $ WS "char Buffer[99];
1664 $ WS "foo = fopen(""foo"", ""r"");
1665 $ WS "setvbuf(foo, Buffer, 0, 0);
1669 $ DEFINE SYS$ERROR _NLA0:
1670 $ DEFINE SYS$OUTPUT _NLA0:
1671 $ on error then continue
1672 $ on warning then continue
1674 $ If (Needs_Opt.eqs."Yes")
1676 $ link temp.obj,temp.opt/opt
1680 $ teststatus = f$extract(9,1,$status)
1681 $ DEASSIGN SYS$OUTPUT
1682 $ DEASSIGN SYS$ERROR
1683 $ if (teststatus.nes."1")
1685 $ perl_d_setvbuf="undef"
1687 $ perl_d_setvbuf="define"
1689 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
1691 $! Check for <netinet/in.h>
1693 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1697 $ WS "#include <stdlib.h>
1699 $ WS "#include <stdio.h>
1700 $ if ("''Has_Socketshr'".eqs."T")
1702 $ WS "#include <socketshr.h>"
1704 $ WS "#include <netdb.h>
1706 $ WS "#include <netinet/in.h>"
1712 $ DEFINE SYS$ERROR _NLA0:
1713 $ DEFINE SYS$OUTPUT _NLA0:
1714 $ on error then continue
1715 $ on warning then continue
1717 $ If (Needs_Opt.eqs."Yes")
1719 $ link temp.obj,temp.opt/opt
1723 $ teststatus = f$extract(9,1,$status)
1724 $ DEASSIGN SYS$OUTPUT
1725 $ DEASSIGN SYS$ERROR
1726 $ if (teststatus.nes."1")
1728 $ perl_i_niin="undef"
1730 $ perl_i_niin="define"
1733 $ perl_i_niin="undef"
1735 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
1737 $! Check for endhostent
1739 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1743 $ WS "#include <stdlib.h>
1745 $ WS "#include <stdio.h>
1746 $ if ("''Has_Socketshr'".eqs."T")
1748 $ WS "#include <socketshr.h>"
1750 $ WS "#include <netdb.h>
1758 $ DEFINE SYS$ERROR _NLA0:
1759 $ DEFINE SYS$OUTPUT _NLA0:
1760 $ on error then continue
1761 $ on warning then continue
1763 $ If (Needs_Opt.eqs."Yes")
1765 $ link temp.obj,temp.opt/opt
1769 $ teststatus = f$extract(9,1,$status)
1770 $ DEASSIGN SYS$OUTPUT
1771 $ DEASSIGN SYS$ERROR
1772 $ if (teststatus.nes."1")
1774 $ perl_d_endhent="undef"
1776 $ perl_d_endhent="define"
1779 $ perl_d_endhent="undef"
1781 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
1783 $! Check for endnetent
1785 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1789 $ WS "#include <stdlib.h>
1791 $ WS "#include <stdio.h>
1792 $ if ("''Has_Socketshr'".eqs."T")
1794 $ WS "#include <socketshr.h>"
1796 $ WS "#include <netdb.h>
1804 $ DEFINE SYS$ERROR _NLA0:
1805 $ DEFINE SYS$OUTPUT _NLA0:
1806 $ on error then continue
1807 $ on warning then continue
1809 $ If (Needs_Opt.eqs."Yes")
1811 $ link temp.obj,temp.opt/opt
1815 $ teststatus = f$extract(9,1,$status)
1816 $ DEASSIGN SYS$OUTPUT
1817 $ DEASSIGN SYS$ERROR
1818 $ if (teststatus.nes."1")
1820 $ perl_d_endnent="undef"
1822 $ perl_d_endnent="define"
1825 $ perl_d_endnent="undef"
1827 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
1829 $! Check for endprotoent
1831 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1835 $ WS "#include <stdlib.h>
1837 $ WS "#include <stdio.h>
1838 $ if ("''Has_Socketshr'".eqs."T")
1840 $ WS "#include <socketshr.h>"
1842 $ WS "#include <netdb.h>
1846 $ WS "endprotoent();
1850 $ DEFINE SYS$ERROR _NLA0:
1851 $ DEFINE SYS$OUTPUT _NLA0:
1852 $ on error then continue
1853 $ on warning then continue
1855 $ If (Needs_Opt.eqs."Yes")
1857 $ link temp.obj,temp.opt/opt
1861 $ teststatus = f$extract(9,1,$status)
1862 $ DEASSIGN SYS$OUTPUT
1863 $ DEASSIGN SYS$ERROR
1864 $ if (teststatus.nes."1")
1866 $ perl_d_endpent="undef"
1868 $ perl_d_endpent="define"
1871 $ perl_d_endpent="undef"
1873 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
1875 $! Check for endservent
1877 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1881 $ WS "#include <stdlib.h>
1883 $ WS "#include <stdio.h>
1884 $ if ("''Has_Socketshr'".eqs."T")
1886 $ WS "#include <socketshr.h>"
1888 $ WS "#include <netdb.h>
1896 $ DEFINE SYS$ERROR _NLA0:
1897 $ DEFINE SYS$OUTPUT _NLA0:
1898 $ on error then continue
1899 $ on warning then continue
1901 $ If (Needs_Opt.eqs."Yes")
1903 $ link temp.obj,temp.opt/opt
1907 $ teststatus = f$extract(9,1,$status)
1908 $ DEASSIGN SYS$OUTPUT
1909 $ DEASSIGN SYS$ERROR
1910 $ if (teststatus.nes."1")
1912 $ perl_d_endsent="undef"
1914 $ perl_d_endsent="define"
1917 $ perl_d_endsent="undef"
1919 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
1921 $! Check for sethostent
1923 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1927 $ WS "#include <stdlib.h>
1929 $ WS "#include <stdio.h>
1930 $ if ("''Has_Socketshr'".eqs."T")
1932 $ WS "#include <socketshr.h>"
1934 $ WS "#include <netdb.h>
1938 $ WS "sethostent(1);
1942 $ DEFINE SYS$ERROR _NLA0:
1943 $ DEFINE SYS$OUTPUT _NLA0:
1944 $ on error then continue
1945 $ on warning then continue
1947 $ If (Needs_Opt.eqs."Yes")
1949 $ link temp.obj,temp.opt/opt
1953 $ teststatus = f$extract(9,1,$status)
1954 $ DEASSIGN SYS$OUTPUT
1955 $ DEASSIGN SYS$ERROR
1956 $ if (teststatus.nes."1")
1958 $ perl_d_sethent="undef"
1960 $ perl_d_sethent="define"
1963 $ perl_d_sethent="undef"
1965 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
1967 $! Check for setnetent
1969 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1973 $ WS "#include <stdlib.h>
1975 $ WS "#include <stdio.h>
1976 $ if ("''Has_Socketshr'".eqs."T")
1978 $ WS "#include <socketshr.h>"
1980 $ WS "#include <netdb.h>
1988 $ DEFINE SYS$ERROR _NLA0:
1989 $ DEFINE SYS$OUTPUT _NLA0:
1990 $ on error then continue
1991 $ on warning then continue
1993 $ If (Needs_Opt.eqs."Yes")
1995 $ link temp.obj,temp.opt/opt
1999 $ teststatus = f$extract(9,1,$status)
2000 $ DEASSIGN SYS$OUTPUT
2001 $ DEASSIGN SYS$ERROR
2002 $ if (teststatus.nes."1")
2004 $ perl_d_setnent="undef"
2006 $ perl_d_setnent="define"
2009 $ perl_d_setnent="undef"
2011 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
2013 $! Check for setprotoent
2015 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2019 $ WS "#include <stdlib.h>
2021 $ WS "#include <stdio.h>
2022 $ if ("''Has_Socketshr'".eqs."T")
2024 $ WS "#include <socketshr.h>"
2026 $ WS "#include <netdb.h>
2030 $ WS "setprotoent(1);
2034 $ DEFINE SYS$ERROR _NLA0:
2035 $ DEFINE SYS$OUTPUT _NLA0:
2036 $ on error then continue
2037 $ on warning then continue
2039 $ If (Needs_Opt.eqs."Yes")
2041 $ link temp.obj,temp.opt/opt
2045 $ teststatus = f$extract(9,1,$status)
2046 $ DEASSIGN SYS$OUTPUT
2047 $ DEASSIGN SYS$ERROR
2048 $ if (teststatus.nes."1")
2050 $ perl_d_setpent="undef"
2052 $ perl_d_setpent="define"
2055 $ perl_d_setpent="undef"
2057 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
2059 $! Check for setservent
2061 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2065 $ WS "#include <stdlib.h>
2067 $ WS "#include <stdio.h>
2068 $ if ("''Has_Socketshr'".eqs."T")
2070 $ WS "#include <socketshr.h>"
2072 $ WS "#include <netdb.h>
2076 $ WS "setservent(1);
2080 $ DEFINE SYS$ERROR _NLA0:
2081 $ DEFINE SYS$OUTPUT _NLA0:
2082 $ on error then continue
2083 $ on warning then continue
2085 $ If (Needs_Opt.eqs."Yes")
2087 $ link temp.obj,temp.opt/opt
2091 $ teststatus = f$extract(9,1,$status)
2092 $ DEASSIGN SYS$OUTPUT
2093 $ DEASSIGN SYS$ERROR
2094 $ if (teststatus.nes."1")
2096 $ perl_d_setsent="undef"
2098 $ perl_d_setsent="define"
2101 $ perl_d_setsent="undef"
2103 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
2105 $! Check for gethostent
2107 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2111 $ WS "#include <stdlib.h>
2113 $ WS "#include <stdio.h>
2114 $ if ("''Has_Socketshr'".eqs."T")
2116 $ WS "#include <socketshr.h>"
2118 $ WS "#include <netdb.h>
2126 $ DEFINE SYS$ERROR _NLA0:
2127 $ DEFINE SYS$OUTPUT _NLA0:
2128 $ on error then continue
2129 $ on warning then continue
2131 $ If (Needs_Opt.eqs."Yes")
2133 $ link temp.obj,temp.opt/opt
2137 $ teststatus = f$extract(9,1,$status)
2138 $ DEASSIGN SYS$OUTPUT
2139 $ DEASSIGN SYS$ERROR
2140 $ if (teststatus.nes."1")
2142 $ perl_d_gethent="undef"
2144 $ perl_d_gethent="define"
2147 $ perl_d_gethent="undef"
2149 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
2151 $! Check for getnetent
2153 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2157 $ WS "#include <stdlib.h>
2159 $ WS "#include <stdio.h>
2160 $ if ("''Has_Socketshr'".eqs."T")
2162 $ WS "#include <socketshr.h>"
2164 $ WS "#include <netdb.h>
2172 $ DEFINE SYS$ERROR _NLA0:
2173 $ DEFINE SYS$OUTPUT _NLA0:
2174 $ on error then continue
2175 $ on warning then continue
2177 $ If (Needs_Opt.eqs."Yes")
2179 $ link temp.obj,temp.opt/opt
2183 $ teststatus = f$extract(9,1,$status)
2184 $ DEASSIGN SYS$OUTPUT
2185 $ DEASSIGN SYS$ERROR
2186 $ if (teststatus.nes."1")
2188 $ perl_d_getnent="undef"
2190 $ perl_d_getnent="define"
2193 $ perl_d_getnent="undef"
2195 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
2197 $! Check for getprotoent
2199 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2203 $ WS "#include <stdlib.h>
2205 $ WS "#include <stdio.h>
2206 $ if ("''Has_Socketshr'".eqs."T")
2208 $ WS "#include <socketshr.h>"
2210 $ WS "#include <netdb.h>
2214 $ WS "getprotoent();
2218 $ DEFINE SYS$ERROR _NLA0:
2219 $ DEFINE SYS$OUTPUT _NLA0:
2220 $ on error then continue
2221 $ on warning then continue
2223 $ If (Needs_Opt.eqs."Yes")
2225 $ link temp.obj,temp.opt/opt
2229 $ teststatus = f$extract(9,1,$status)
2230 $ DEASSIGN SYS$OUTPUT
2231 $ DEASSIGN SYS$ERROR
2232 $ if (teststatus.nes."1")
2234 $ perl_d_getpent="undef"
2236 $ perl_d_getpent="define"
2239 $ perl_d_getpent="undef"
2241 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
2243 $! Check for getservent
2245 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2249 $ WS "#include <stdlib.h>
2251 $ WS "#include <stdio.h>
2252 $ if ("''Has_Socketshr'".eqs."T")
2254 $ WS "#include <socketshr.h>"
2256 $ WS "#include <netdb.h>
2264 $ DEFINE SYS$ERROR _NLA0:
2265 $ DEFINE SYS$OUTPUT _NLA0:
2266 $ on error then continue
2267 $ on warning then continue
2269 $ If (Needs_Opt.eqs."Yes")
2271 $ link temp.obj,temp.opt/opt
2275 $ teststatus = f$extract(9,1,$status)
2276 $ DEASSIGN SYS$OUTPUT
2277 $ DEASSIGN SYS$ERROR
2278 $ if (teststatus.nes."1")
2280 $ perl_d_getsent="undef"
2282 $ perl_d_getsent="define"
2285 $ perl_d_getsent="undef"
2287 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
2289 $! Check for pthread_yield
2291 $ if ("''use_threads'".eqs."T")
2295 $ WS "#include <stdlib.h>
2297 $ WS "#include <pthread.h>
2298 $ WS "#include <stdio.h>
2301 $ WS "pthread_yield();
2305 $ DEFINE SYS$ERROR _NLA0:
2306 $ DEFINE SYS$OUTPUT _NLA0:
2307 $ on error then continue
2308 $ on warning then continue
2310 $ teststatus = f$extract(9,1,$status)
2311 $ DEASSIGN SYS$OUTPUT
2312 $ DEASSIGN SYS$ERROR
2313 $ if (teststatus.nes."1")
2315 $ perl_d_pthread_yield="undef"
2317 $ perl_d_pthread_yield="define"
2320 $ perl_d_pthread_yield="undef"
2322 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
2324 $! Check for sched_yield
2326 $ if ("''use_threads'".eqs."T")
2330 $ WS "#include <stdlib.h>
2332 $ WS "#include <pthread.h>
2333 $ WS "#include <stdio.h>
2336 $ WS "sched_yield();
2340 $ DEFINE SYS$ERROR _NLA0:
2341 $ DEFINE SYS$OUTPUT _NLA0:
2342 $ on error then continue
2343 $ on warning then continue
2345 $ teststatus = f$extract(9,1,$status)
2346 $ DEASSIGN SYS$OUTPUT
2347 $ DEASSIGN SYS$ERROR
2348 $ if (teststatus.nes."1")
2350 $ perl_d_sched_yield="undef"
2352 $ perl_d_sched_yield="define"
2355 $ perl_d_sched_yield="undef"
2357 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
2359 $! Check for generic pointer size
2363 $ WS "#include <stdlib.h>
2365 $ WS "#include <stdio.h>
2369 $ WS "foo = sizeof(char *);
2370 $ WS "printf(""%d\n"", foo);
2374 $! copy temp.c sys$output
2376 $ DEFINE SYS$ERROR _NLA0:
2377 $ DEFINE SYS$OUTPUT _NLA0:
2378 $ ON ERROR THEN CONTINUE
2379 $ ON WARNING THEN CONTINUE
2381 $ If (Needs_Opt.eqs."Yes")
2383 $ link temp.obj,temp.opt/opt
2387 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
2388 $ DEASSIGN SYS$OUTPUT
2389 $ DEASSIGN SYS$ERROR
2390 $ DEFINE SYS$ERROR TEMPOUT
2391 $ DEFINE SYS$OUTPUT TEMPOUT
2394 $ DEASSIGN SYS$OUTPUT
2395 $ DEASSIGN SYS$ERROR
2396 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
2401 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
2404 $! Done with compiler checks. Clean up.
2405 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
2406 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
2407 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
2408 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
2411 $! Some that are compiler or VMS version sensitive
2414 $ IF "''Using_Gnu_C'".EQS."Yes"
2416 $ perl_d_attribut="define"
2417 $ perl_vms_cc_type="gcc"
2419 $ perl_d_attribut="undef"
2422 $! Dec C >= 5.2 and VMS ver >= 7.0
2423 $ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
2425 $ perl_d_bcmp="define"
2426 $ perl_d_gettimeod="define"
2427 $ perl_d_uname="define"
2428 $ perl_d_sigaction="define"
2429 $ perl_d_truncate="define"
2430 $ perl_d_wait4="define"
2431 $ perl_d_index="define"
2432 $ perl_pidtype="pid_t"
2433 $ 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"
2434 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
2435 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
2436 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
2437 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
2438 $ 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"
2439 $ 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"
2440 $ perl_sig_num_with_commas=perl_sig_num_init
2441 $ perl_uidtype="uid_t"
2442 $ perl_d_pathconf="define"
2443 $ perl_d_fpathconf="define"
2444 $ perl_d_sysconf="define"
2445 $ perl_d_sigsetjmp="define"
2447 $ perl_pidtype="unsigned int"
2448 $ perl_d_gettimeod="undef"
2449 $ perl_d_bcmp="undef"
2450 $ perl_d_uname="undef"
2451 $ perl_d_sigaction="undef"
2452 $ perl_d_truncate="undef"
2453 $ perl_d_wait4="undef"
2454 $ perl_d_index="undef"
2455 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
2456 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
2457 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
2458 $ perl_sig_name_with_commas = psnwc1 + psnwc2
2459 $ perl_sig_num="0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 6 16 17"",0"
2460 $ perl_sig_num_init="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
2461 $ perl_sig_num_with_commas=perl_sig_num_init
2462 $ perl_uidtype="unsigned int"
2463 $ perl_d_pathconf="undef"
2464 $ perl_d_fpathconf="undef"
2465 $ perl_d_sysconf="undef"
2466 $ perl_d_sigsetjmp="undef"
2470 $ IF ("''Using_Dec_C'".EQS."Yes")
2472 $ perl_d_mbstowcs="define"
2473 $ perl_d_mbtowc="define"
2474 $ perl_d_stdiobase="define"
2475 $ perl_d_stdio_ptr_lval="define"
2476 $ perl_d_stdio_cnt_lval="define"
2477 $ perl_d_stdstdio="define"
2478 $ perl_d_wcstombs="define"
2479 $ perl_d_mblen="define"
2480 $ perl_d_mktime="define"
2481 $ perl_d_strcoll="define"
2482 $ perl_d_strxfrm="define"
2483 $ perl_d_wctomb="define"
2484 $ perl_i_locale="define"
2485 $ perl_d_locconv="define"
2486 $ perl_d_setlocale="define"
2487 $ perl_vms_cc_type="decc"
2489 $ perl_d_mbstowcs="undef"
2490 $ perl_d_mbtowc="undef"
2491 $ perl_d_stdiobase="undef"
2492 $ perl_d_stdio_ptr_lval="undef"
2493 $ perl_d_stdio_cnt_lval="undef"
2494 $ perl_d_stdstdio="undef"
2495 $ perl_d_wcstombs="undef"
2496 $ perl_d_mblen="undef"
2497 $ perl_d_mktime="undef"
2498 $ perl_d_strcoll="undef"
2499 $ perl_d_strxfrm="undef"
2500 $ perl_d_wctomb="undef"
2501 $ perl_i_locale="undef"
2502 $ perl_d_locconv="undef"
2503 $ perl_d_setlocale="undef"
2507 $ if ("''Using_Vax_C'".EQS."Yes")
2509 $ perl_vms_cc_type="vaxc"
2514 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
2516 $ perl_d_vms_do_sockets="define"
2517 $ perl_d_htonl="define"
2518 $ perl_d_socket="define"
2519 $ perl_d_select="define"
2520 $ perl_netdb_host_type="char *"
2521 $ perl_netdb_hlen_type="int"
2522 $ perl_netdb_name_type="char *"
2523 $ perl_netdb_net_type="long"
2524 $ perl_d_gethbyaddr="define"
2525 $ perl_d_gethbyname="define"
2526 $ perl_d_getnbyaddr="define"
2527 $ perl_d_getnbyname="define"
2528 $ perl_d_getpbynumber="define"
2529 $ perl_d_getpbyname="define"
2530 $ perl_d_getsbyport="define"
2531 $ perl_d_getsbyname="define"
2532 $ perl_d_gethostprotos="define"
2533 $ perl_d_getnetprotos="define"
2534 $ perl_d_getprotoprotos="define"
2535 $ perl_d_getservprotos="define"
2537 $ perl_d_vms_do_sockets="undef"
2538 $ perl_d_htonl="undef"
2539 $ perl_d_socket="undef"
2540 $ perl_d_select="undef"
2541 $ perl_netdb_host_type="char *"
2542 $ perl_netdb_hlen_type="int"
2543 $ perl_netdb_name_type="char *"
2544 $ perl_netdb_net_type="long"
2545 $ perl_d_gethbyaddr="undef"
2546 $ perl_d_gethbyname="undef"
2547 $ perl_d_getnbyaddr="undef"
2548 $ perl_d_getnbyname="undef"
2549 $ perl_d_getpbynumber="undef"
2550 $ perl_d_getpbyname="undef"
2551 $ perl_d_getsbyport="undef"
2552 $ perl_d_getsbyname="undef"
2553 $ perl_d_gethostprotos="undef"
2554 $ perl_d_getnetprotos="undef"
2555 $ perl_d_getprotoprotos="undef"
2556 $ perl_d_getservprotos="undef"
2559 $ if ("''use_threads'".eqs."T")
2561 $ perl_usethreads="define"
2562 $ perl_d_pthreads_created_joinable="define"
2563 $ if ("''VMS_VER'".ges."7.0")
2565 $ perl_d_oldpthreads="undef"
2567 $ perl_d_oldpthreads="define"
2570 $ perl_d_oldpthreads="undef"
2571 $ perl_usethreads="undef"
2573 $ perl_d_pthreads_created_joinable="undef"
2577 $! Finally the composite ones. All config
2578 $ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
2579 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
2580 $ perl_myhostname="''myhostname'"
2581 $ perl_mydomain="''mydomain'"
2582 $ perl_perladmin="''perladmin'"
2583 $ perl_cf_email="''cf_email'"
2584 $ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
2585 $ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
2586 $ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
2587 $ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
2588 $ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
2589 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
2590 $ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
2591 $ if "''Using_Dec_C'" .eqs. "Yes"
2593 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
2595 $ IF "''Using_Vax_C'" .eqs. "Yes"
2597 $ perl_ccflags="/Include=[]/Obj=''perl_obj_ext'/NoList''cc_flags'"
2601 $! Finally clean off any leading zeros from the patchlevel or subversion
2602 $ perl_patchlevel = perl_patchlevel + 0
2603 $ perl_subversion = perl_subversion + 0
2605 $! Okay, we've got everything configured. Now go write out a config.sh.
2606 $ open/write CONFIGSH [-]config.sh
2607 $ WC := "write CONFIGSH"
2609 $ WC "# This file generated by Configure.COM on a VMS system."
2610 $ WC "# Time: " + perl_cf_time
2612 $ WC "package='" + perl_package + "'"
2613 $ WC "CONFIG='" + perl_config + "'"
2614 $ WC "cf_time='" + perl_cf_time + "'"
2615 $ WC "cf_by='" + perl_cf_by+ "'"
2616 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
2617 $ WC "ccdlflags='" + perl_ccdlflags + "'"
2618 $ WC "cccdlflags='" + perl_cccdlflags + "'"
2619 $ WC "mab='" + perl_mab + "'"
2620 $ WC "libpth='" + perl_libpth + "'"
2621 $ WC "ld='" + perl_ld + "'"
2622 $ WC "lddlflags='" + perl_lddlflags + "'"
2623 $ WC "ranlib='" + perl_ranlib + "'"
2624 $ WC "ar='" + perl_ar + "'"
2625 $ WC "eunicefix='" + perl_eunicefix + "'"
2626 $ WC "hint='" + perl_hint +"'"
2627 $ WC "hintfile='" + perl_hintfile + "'"
2628 $ WC "shrplib='" + perl_shrplib + "'"
2629 $ WC "usemymalloc='" + perl_usemymalloc + "'"
2630 $ WC "usevfork='" + perl_usevfork + "'"
2631 $ WC "useposix='false'"
2632 $ WC "spitshell='write sys$output '"
2633 $ WC "dlsrc='dl_vms.c'"
2634 $ WC "binexp='" + perl_binexp + "'"
2635 $ WC "man1ext='" + perl_man1ext + "'"
2636 $ WC "man3ext='" + perl_man3ext + "'"
2637 $ WC "arch='" + perl_arch + "'"
2638 $ WC "archname='" + perl_archname + "'"
2639 $ WC "osvers='" + perl_osvers + "'"
2640 $ WC "prefix='" + perl_prefix + "'"
2641 $ WC "builddir='" + perl_builddir + "'"
2642 $ WC "installbin='" + perl_installbin + "'"
2643 $ WC "installscript='" + perl_installscript + "'"
2644 $ WC "installman1dir='" + perl_installman1dir + "'"
2645 $ WC "installman3dir='" + perl_installman3dir + "'"
2646 $ WC "installprivlib='" + perl_installprivlib + "'"
2647 $ WC "installarchlib='" + perl_installarchlib + "'"
2648 $ WC "installsitelib='" + perl_installsitelib + "'"
2649 $ WC "installsitearch='" + perl_installsitearch + "'"
2650 $ WC "path_sep='" + perl_path_sep + "'"
2651 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
2652 $ WC "d_attribut='" + perl_d_attribut + "'"
2653 $ WC "cc='" + perl_cc + "'"
2654 $ WC "ccflags='" + perl_ccflags + "'"
2655 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
2656 $ WC "d_socket='" + perl_d_socket + "'"
2657 $ WC "d_sockpair='" + perl_d_sockpair + "'"
2658 $ WC "d_gethent='" + perl_d_gethent + "'"
2659 $ WC "d_getsent='" + perl_d_getsent + "'"
2660 $ WC "d_select='" + perl_d_select + "'"
2661 $ WC "i_niin='" + perl_i_niin + "'"
2662 $ WC "i_neterrno='" + perl_i_neterrno + "'"
2663 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
2664 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
2665 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
2666 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
2667 $ WC "d_locconv='" + perl_d_locconv + "'"
2668 $ WC "d_setlocale='" + perl_d_setlocale + "'"
2669 $ WC "i_locale='" + perl_i_locale + "'"
2670 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
2671 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
2672 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
2673 $ WC "d_wctomb='" + perl_d_wctomb + "'"
2674 $ WC "d_mblen='" + perl_d_mblen + "'"
2675 $ WC "d_mktime='" + perl_d_mktime + "'"
2676 $ WC "d_strcoll='" + perl_d_strcoll + "'"
2677 $ WC "d_strxfrm='" + perl_d_strxfrm + "'"
2678 $ WC "ldflags='" + perl_ldflags + "'"
2679 $ WC "dlobj='" + perl_dlobj + "'"
2680 $ WC "obj_ext='" + perl_obj_ext + "'"
2681 $ WC "so='" + perl_so + "'"
2682 $ WC "dlext='" + perl_dlext + "'"
2683 $ WC "exe_ext='" + perl_exe_ext + "'"
2684 $ WC "lib_ext='" + perl_lib_ext + "'"
2685 $ WC "myhostname='" + perl_myhostname + "'"
2686 $ WC "mydomain='" + perl_mydomain + "'"
2687 $ WC "perladmin='" + perl_perladmin + "'"
2688 $ WC "cf_email='" + perl_cf_email + "'"
2689 $ WC "myuname='" + perl_myuname + "'"
2690 $ WC "alignbytes='" + perl_alignbytes + "'"
2691 $ WC "osname='" + perl_osname + "'"
2692 $ WC "d_archlib='" + perl_d_archlib + "'"
2693 $ WC "archlibexp='" + perl_archlibexp + "'"
2694 $ WC "archlib='" + perl_archlib + "'"
2695 $ WC "archname='" + perl_archname + "'"
2696 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
2697 $ WC "cppstdin='" + perl_cppstdin + "'"
2698 $ WC "cppminus='" + perl_cppminus + "'"
2699 $ WC "d_bcmp='" + perl_d_bcmp + "'"
2700 $ WC "d_bcopy='" + perl_d_bcopy + "'"
2701 $ WC "d_bzero='" + perl_d_bzero + "'"
2702 $ WC "d_castneg='" + perl_d_castneg + "'"
2703 $ WC "castflags='" + perl_castflags + "'"
2704 $ WC "d_chsize='" + perl_d_chsize + "'"
2705 $ WC "d_const='" + perl_d_const + "'"
2706 $ WC "d_crypt='" + perl_d_crypt + "'"
2707 $ WC "byteorder='" + perl_byteorder + "'"
2708 $ WC "full_csh='" + perl_full_csh + "'"
2709 $ WC "d_csh='" + perl_d_csh + "'"
2710 $ WC "d_dup2='" + perl_d_dup2 + "'"
2711 $ WC "d_fchmod='" + perl_d_fchmod + "'"
2712 $ WC "d_fchown='" + perl_d_fchown + "'"
2713 $ WC "d_fcntl='" + perl_d_fcntl + "'"
2714 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
2715 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
2716 $ WC "d_flock='" + perl_d_flock + "'"
2717 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
2718 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
2719 $ WC "d_getgrps='" + perl_d_getgrps + "'"
2720 $ WC "d_setgrps='" + perl_d_setgrps + "'"
2721 $ WC "d_uname='" + perl_d_uname + "'"
2722 $ WC "d_getprior='" + perl_d_getprior + "'"
2723 $ WC "d_killpg='" + perl_d_killpg + "'"
2724 $ WC "d_link='" + perl_d_link + "'"
2725 $ WC "d_lstat='" + perl_d_lstat + "'"
2726 $ WC "d_lockf='" + perl_d_lockf + "'"
2727 $ WC "d_memcmp='" + perl_d_memcmp + "'"
2728 $ WC "d_memcpy='" + perl_d_memcpy + "'"
2729 $ WC "d_memmove='" + perl_d_memmove + "'"
2730 $ WC "d_memset='" + perl_d_memset + "'"
2731 $ WC "d_mkdir='" + perl_d_mkdir + "'"
2732 $ WC "d_msg='" + perl_d_msg + "'"
2733 $ WC "d_open3='" + perl_d_open3 + "'"
2734 $ WC "d_poll='" + perl_d_poll + "'"
2735 $ WC "d_readdir='" + perl_d_readdir + "'"
2736 $ WC "d_seekdir='" + perl_d_seekdir + "'"
2737 $ WC "d_telldir='" + perl_d_telldir + "'"
2738 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
2739 $ WC "d_rename='" + perl_d_rename + "'"
2740 $ WC "d_rmdir='" + perl_d_rmdir + "'"
2741 $ WC "d_sem='" + perl_d_sem + "'"
2742 $ WC "d_setegid='" + perl_d_setegid + "'"
2743 $ WC "d_seteuid='" + perl_d_seteuid + "'"
2744 $ WC "d_setprior='" + perl_d_setprior + "'"
2745 $ WC "d_setregid='" + perl_d_setregid + "'"
2746 $ WC "d_setresgid='" + perl_d_setresgid + "'"
2747 $ WC "d_setreuid='" + perl_d_setreuid + "'"
2748 $ WC "d_setresuid='" + perl_d_setresuid + "'"
2749 $ WC "d_setrgid='" + perl_d_setrgid + "'"
2750 $ WC "d_setruid='" + perl_d_setruid + "'"
2751 $ WC "d_setsid='" + perl_d_setsid + "'"
2752 $ WC "d_shm='" + perl_d_shm + "'"
2753 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
2754 $ WC "d_sigaction='" + perl_d_sigaction + "'"
2755 $ WC "d_statblks='" + perl_d_statblks + "'"
2756 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
2757 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
2758 $ WC "stdio_base='" + perl_stdio_base + "'"
2759 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
2760 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
2761 $ WC "d_strerror='" + perl_d_strerror + "'"
2762 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
2763 $ WC "d_strerrm='" + perl_d_strerrm + "'"
2764 $ WC "d_symlink='" + perl_d_symlink + "'"
2765 $ WC "d_syscall='" + perl_d_syscall + "'"
2766 $ WC "d_system='" + perl_d_system + "'"
2767 $ WC "timetype='" + perl_timetype + "'"
2768 $ WC "d_truncate='" + perl_d_truncate + "'"
2769 $ WC "d_vfork='" + perl_d_vfork + "'"
2770 $ WC "signal_t='" + perl_signal_t + "'"
2771 $ WC "d_volatile='" + perl_d_volatile + "'"
2772 $ WC "d_vprintf='" + perl_d_vprintf + "'"
2773 $ WC "d_charvspr='" + perl_d_charvspr + "'"
2774 $ WC "d_wait4='" + perl_d_wait4 + "'"
2775 $ WC "d_waitpid='" + perl_d_waitpid + "'"
2776 $ WC "i_dirent='" + perl_i_dirent + "'"
2777 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
2778 $ WC "direntrytype='" + perl_direntrytype + "'"
2779 $ WC "i_fcntl='" + perl_i_fcntl + "'"
2780 $ WC "i_grp='" + perl_i_grp + "'"
2781 $ WC "i_limits='" + perl_i_limits + "'"
2782 $ WC "i_memory='" + perl_i_memory + "'"
2783 $ WC "i_ndbm='" + perl_i_ndbm + "'"
2784 $ WC "i_stdarg='" + perl_i_stdarg + "'"
2785 $ WC "i_pwd='" + perl_i_pwd + "'"
2786 $ WC "d_pwquota='" + perl_d_pwquota + "'"
2787 $ WC "d_pwage='" + perl_d_pwage + "'"
2788 $ WC "d_pwchange='" + perl_d_pwchange + "'"
2789 $ WC "d_pwclass='" + perl_d_pwclass + "'"
2790 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
2791 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
2792 $ WC "i_stddef='" + perl_i_stddef + "'"
2793 $ WC "i_stdlib='" + perl_i_stdlib + "'"
2794 $ WC "i_string='" + perl_i_string + "'"
2795 $ WC "i_sysdir='" + perl_i_sysdir + "'"
2796 $ WC "i_sysfile='" + perl_i_sysfile + "'"
2797 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
2798 $ WC "i_sysndir='" + perl_i_sysndir + "'"
2799 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
2800 $ WC "i_sysselct='" + perl_i_sysselct + "'"
2801 $ WC "i_dbm='" + perl_i_dbm + "'"
2802 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
2803 $ WC "i_sfio='" + perl_i_sfio + "'"
2804 $ WC "i_sysstat='" + perl_i_sysstat + "'"
2805 $ WC "i_systimes='" + perl_i_systimes + "'"
2806 $ WC "i_systypes='" + perl_i_systypes + "'"
2807 $ WC "i_sysun='" + perl_i_sysun + "'"
2808 $ WC "i_syswait='" + perl_i_syswait + "'"
2809 $ WC "i_termio='" + perl_i_termio + "'"
2810 $ WC "i_sgtty='" + perl_i_sgtty + "'"
2811 $ WC "i_termios='" + perl_i_termios + "'"
2812 $ WC "i_time='" + perl_i_time + "'"
2813 $ WC "i_systime='" + perl_i_systime + "'"
2814 $ WC "i_systimek='" + perl_i_systimek + "'"
2815 $ WC "i_unistd='" + perl_i_unistd + "'"
2816 $ WC "i_utime='" + perl_i_utime + "'"
2817 $ WC "i_varargs='" + perl_i_varargs + "'"
2818 $ WC "i_vfork='" + perl_i_vfork + "'"
2819 $ WC "prototype='" + perl_prototype + "'"
2820 $ WC "randbits='" + perl_randbits +"'"
2821 $ WC "selecttype='" + perl_selecttype + "'"
2822 $ WC "stdchar='" + perl_stdchar + "'"
2823 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
2824 $ WC "full_sed='" + perl_full_sed + "'"
2825 $ WC "bin='" + perl_bin + "'"
2826 $ WC "binexp='" + perl_binexp + "'"
2827 $ WC "d_alarm='" + perl_d_alarm + "'"
2828 $ WC "d_casti32='" + perl_d_casti32 + "'"
2829 $ WC "d_chown='" + perl_d_chown + "'"
2830 $ WC "d_chroot='" + perl_d_chroot + "'"
2831 $ WC "d_cuserid='" + perl_d_cuserid + "'"
2832 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
2833 $ WC "d_difftime='" + perl_d_difftime + "'"
2834 $ WC "d_fork='" + perl_d_fork + "'"
2835 $ WC "d_getlogin='" + perl_d_getlogin + "'"
2836 $ WC "d_getppid='" + perl_d_getppid + "'"
2837 $ WC "d_htonl='" + perl_d_htonl + "'"
2838 $ WC "d_nice='" + perl_d_nice + "'"
2839 $ WC "d_pause='" + perl_d_pause + "'"
2840 $ WC "d_pipe='" + perl_d_pipe + "'"
2841 $ WC "d_readlink='" + perl_d_readlink + "'"
2842 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
2843 $ WC "d_strchr='" + perl_d_strchr + "'"
2844 $ WC "d_index='" + perl_d_index + "'"
2845 $ WC "d_strtod='" + perl_d_strtod + "'"
2846 $ WC "d_strtol='" + perl_d_strtol + "'"
2847 $ WC "d_strtoul='" + perl_d_strtoul + "'"
2848 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
2849 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
2850 $ WC "d_times='" + perl_d_times + "'"
2851 $ WC "d_tzname='" + perl_d_tzname + "'"
2852 $ WC "d_umask='" + perl_d_umask + "'"
2853 $ WC "fpostype='" + perl_fpostype + "'"
2854 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
2855 $ WC "i_float='" + perl_i_float + "'"
2856 $ WC "i_math='" + perl_i_math + "'"
2857 $ WC "intsize='" + perl_intsize + "'"
2858 $ WC "longsize='" + perl_longsize + "'"
2859 $ WC "shortsize='" + perl_shortsize + "'"
2860 $ WC "lseektype='" + perl_lseektype + "'"
2861 $ WC "i_values='" + perl_i_values + "'"
2862 $ WC "malloctype='" + perl_malloctype + "'"
2863 $ WC "freetype='" + perl_freetype + "'"
2864 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
2865 $ WC "sh='" + perl_sh + "'"
2866 $ WC "sig_name='" + perl_sig_name + "'"
2867 $ WC "sig_num='" + perl_sig_num + "'"
2868 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
2870 $ WC "modetype='" + perl_modetype + "'"
2871 $ WC "ssizetype='" + perl_ssizetype + "'"
2872 $ WC "o_nonblock='" + perl_o_nonblock + "'"
2873 $ WC "eagain='" + perl_eagain + "'"
2874 $ WC "rd_nodata='" + perl_rd_nodata + "'"
2875 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
2876 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
2877 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
2878 $ WC "oldarchlib='" + perl_oldarchlib + "'"
2879 $ WC "privlibexp='" + perl_privlibexp + "'"
2880 $ WC "privlib='" + perl_privlib + "'"
2881 $ WC "sitelibexp='" + perl_sitelibexp + "'"
2882 $ WC "sitelib='" + perl_sitelib + "'"
2883 $ WC "sitearchexp='" + perl_sitearchexp + "'"
2884 $ WC "sitearch='" + perl_sitearch + "'"
2885 $ WC "sizetype='" + perl_sizetype + "'"
2886 $ WC "i_sysparam='" + perl_i_sysparam + "'"
2887 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
2888 $ WC "d_dlerror='" + perl_d_dlerror + "'"
2889 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
2890 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
2891 $ WC "d_dosuid='" + perl_d_dosuid + "'"
2892 $ WC "d_inetaton='" + perl_d_inetaton + "'"
2893 $ WC "d_isascii='" + perl_d_isascii + "'"
2894 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
2895 $ WC "d_pathconf='" + perl_d_pathconf + "'"
2896 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
2897 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
2898 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
2899 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
2900 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
2901 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
2902 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
2903 $ WC "d_setpgid='" + perl_d_setpgid + "'"
2904 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
2905 $ WC "d_sysconf='" + perl_d_sysconf + "'"
2906 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
2907 $ WC "d_getpgid='" + perl_d_getpgid + "'"
2908 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
2909 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
2910 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
2911 $ WC "d_sfio='" + perl_d_sfio + "'"
2912 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
2913 $ WC "usedl='" + perl_usedl + "'"
2914 $ WC "startperl=" + perl_startperl ! This one's special--no enclosing single quotes
2915 $ WC "db_hashtype='" + perl_db_hashtype + "'"
2916 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
2917 $ WC "useperlio='" + perl_useperlio + "'"
2918 $ WC "defvoidused='" + perl_defvoidused + "'"
2919 $ WC "voidflags='" + perl_voidflags + "'"
2920 $ WC "d_eunice='" + perl_d_eunice + "'"
2921 $ WC "libs='" + perl_libs + "'"
2922 $ WC "libc='" + perl_libc + "'"
2923 $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
2925 $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
2927 $ WC "pager='" + perl_pager + "'"
2928 $ WC "uidtype='" + perl_uidtype + "'"
2929 $ WC "gidtype='" + perl_gidtype + "'"
2930 $ WC "usethreads='" + perl_usethreads + "'"
2931 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
2932 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
2933 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
2934 $ WC "i_netdb='" + perl_i_netdb + "'"
2935 $ WC "pidtype='" + perl_pidtype + "'"
2936 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
2937 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
2938 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
2939 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
2940 $ WC "baserev='" + perl_baserev + "'"
2941 $ WC "doublesize='" + perl_doublesize + "'"
2942 $ WC "ptrsize='" + perl_ptrsize + "'"
2943 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
2944 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
2945 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
2946 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
2947 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
2948 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
2949 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
2950 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
2951 $ WC "d_sethent='" + perl_d_sethent + "'"
2952 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
2953 $ WC "d_longdbl='" + perl_d_longdbl + "'"
2954 $ WC "longdblsize='" + perl_longdblsize + "'"
2955 $ WC "d_longlong='" + perl_d_longlong + "'"
2956 $ WC "longlongsize='" + perl_longlongsize + "'"
2957 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
2958 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
2959 $ WC "d_endhent='" + perl_d_endhent + "'"
2960 $ WC "d_endnent='" + perl_d_endsent + "'"
2961 $ WC "d_endpent='" + perl_d_endpent + "'"
2962 $ WC "d_endsent='" + perl_d_endsent + "'"
2963 $ WC "d_gethent='" + perl_d_gethent + "'"
2964 $ WC "d_getnent='" + perl_d_getsent + "'"
2965 $ WC "d_getpent='" + perl_d_getpent + "'"
2966 $ WC "d_getsent='" + perl_d_getsent + "'"
2967 $ WC "d_sethent='" + perl_d_sethent + "'"
2968 $ WC "d_setnent='" + perl_d_setsent + "'"
2969 $ WC "d_setpent='" + perl_d_setpent + "'"
2970 $ WC "ebcdic='" + perl_ebcdic + "'"
2971 $ WC "d_setsent='" + perl_d_setsent + "'"
2972 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
2973 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
2974 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
2975 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
2976 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
2977 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
2978 $ WC "d_lchown='" + perl_d_lchown + "'"
2979 $ WC "d_union_semun='" + perl_d_union_semun + "'"
2980 $ WC "i_arpainet='" + perl_i_arpainet + "'"
2981 $ WC "d_grpasswd='" + perl_d_grpasswd + "'"
2982 $ WC "d_setgrent='" + perl_d_setgrent + "'"
2983 $ WC "d_getgrent='" + perl_d_getgrent + "'"
2984 $ WC "d_endgrent='" + perl_d_endgrent + "'"
2985 $ WC "d_pwpasswd='" + perl_d_pwpasswd + "'"
2986 $ WC "d_setpwent='" + perl_d_setpwent + "'"
2987 $ WC "d_getpwent='" + perl_d_getpwent + "'"
2988 $ WC "d_endpwent='" + perl_d_endpwent + "'"
2989 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
2990 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
2991 $ WC "extensions='" + perl_extensions + "'"
2992 $ WC "d_mknod='" + perl_d_mknod + "'"
2993 $ WC "devtype='" + perl_devtype + "'"
2994 $ WC "d_gethname='" + perl_d_gethname + "'"
2995 $ WC "d_phostname='" + perl_d_phostname + "'"
2996 $ WC "d_accessx='" + perl_d_accessx + "'"
2997 $ WC "d_eaccess='" + perl_d_eaccess + "'"
2998 $ WC "i_sysaccess='" + perl_i_sysaccess + "'"
2999 $ WC "i_syssecrt='" + perl_i_syssecrt + "'"
3000 $ WC "d_fd_set='" + perl_d_fd_set + "'"
3001 $ WC "d_access='" + perl_d_access + "'"
3002 $ WC "d_msg_ctrunc='" + perl_d_msg_ctrunc + "'"
3003 $ WC "d_msg_dontroute='" + perl_d_msg_dontroute + "'"
3004 $ WC "d_msg_oob='" + perl_d_msg_oob + "'"
3005 $ WC "d_msg_peek='" + perl_d_msg_peek + "'"
3006 $ WC "d_msg_proxy='" + perl_d_msg_proxy + "'"
3007 $ WC "d_scm_rights='" + perl_d_scm_rights + "'"
3008 $ WC "d_sendmsg='" + perl_d_sendmsg + "'"
3009 $ WC "d_recvmsg='" + perl_d_recvmsg + "'"
3010 $ WC "d_msghdr_s='" + perl_d_msghdr_s + "'"
3011 $ WC "d_cmsghdr_s='" + perl_d_cmsghdr_s + "'"
3012 $ WC "i_sysuio='" + perl_i_sysuio + "'"
3013 $ WC "d_fseeko='" + perl_d_fseeko + "'"
3014 $ WC "d_ftello='" + perl_d_ftello + "'"
3015 $ WC "d_readv='" + perl_d_readv + "'"
3016 $ WC "d_writev='" + perl_d_writev + "'"
3017 $ WC "i_machcthr='" + perl_i_machcthr + "'"
3018 $ WC "usemultiplicity='" + perl_usemultiplicity + "'"
3019 $ WC "d_dbminit64='" + perl_d_dbminit64 + "'"
3020 $ WC "d_dbmclose64='" + perl_d_dbmclose64 + "'"
3021 $ WC "d_fetch64='" + perl_d_fetch64 + "'"
3022 $ WC "d_store64='" + perl_d_store64 + "'"
3023 $ WC "d_delete64='" + perl_d_delete64 + "'"
3024 $ WC "d_firstkey64='" + perl_d_firstkey64 + "'"
3025 $ WC "d_nextkey64='" + perl_d_nextkey64 + "'"
3026 $ WC "i_poll='" + perl_i_poll + "'"
3027 $ WC "i_inttypes='" + perl_i_inttypes + "'"
3028 $ WC "d_int64t='" + perl_d_int64t + "'"
3029 $ WC "d_off64t='" + perl_d_off64t + "'"
3030 $ WC "d_fstat64='" + perl_d_fstat64 + "'"
3031 $ WC "d_ftruncate64='" + perl_d_ftruncate64 + "'"
3032 $ WC "d_lseek64='" + perl_d_lseek64 + "'"
3033 $ WC "d_lstat64='" + perl_d_lstat64 + "'"
3034 $ WC "d_open64='" + perl_d_open64 + "'"
3035 $ WC "d_opendir64='" + perl_d_opendir64 + "'"
3036 $ WC "d_readdir64='" + perl_d_readdir64 + "'"
3037 $ WC "d_seekdir64='" + perl_d_seekdir64 + "'"
3038 $ WC "d_stat64='" + perl_d_stat64 + "'"
3039 $ WC "d_telldir64='" + perl_d_telldir64 + "'"
3040 $ WC "d_truncate64='" + perl_d_truncate64 + "'"
3041 $ WC "d_dirent64_s='" + perl_d_dirent64_s + "'"
3042 $ WC "use64bits='" + perl_use64bits + "'"
3043 $ WC "d_fgetpos64='" + perl_d_fgetpos64 + "'"
3044 $ WC "d_fopen64='" + perl_d_fopen64 + "'"
3045 $ WC "d_freopen64='" + perl_d_freopen64 + "'"
3046 $ WC "d_fseek64='" + perl_d_fseek64 + "'"
3047 $ WC "d_fseeko64='" + perl_d_fseeko64 + "'"
3048 $ WC "d_fsetpos64='" + perl_d_fsetpos64 + "'"
3049 $ WC "d_ftell64='" + perl_d_ftell64 + "'"
3050 $ WC "d_ftello64='" + perl_d_ftello64 + "'"
3051 $ WC "d_tmpfile64='" + perl_d_tmpfile64 + "'"
3052 $ WC "d_drand48proto='" + perl_d_drand48proto + "'"
3053 $ WC "d_pthread_create_joinable='" + perl_d_pthread_create_joinable + "'"
3054 $ WC "pthread_create_joinable='" + perl_pthread_create_joinable + "'"
3055 $ WC "drand01='" + perl_drand01 + "'"
3056 $ WC "randseedtype='" + perl_randseedtype + "'"
3057 $ WC "seedfunc='" + perl_seedfunc + "'"
3058 $ WC "sig_num_init='" + perl_sig_num_with_commas + "'"
3059 $ WC "i_sysmount='" + perl_i_sysmount + "'"
3060 $ WC "d_fstatfs='" + perl_d_fstatfs + "'"
3061 $ WC "d_statfsflags='" + perl_d_statfsflags + "'"
3062 $ WC "i_sysstatvfs='" + perl_i_sysstatvfs + "'"
3063 $ WC "d_fstatfs='" + perl_d_fstatfs + "'"
3064 $ WC "i_mntent='" + perl_i_mntent + "'"
3065 $ WC "d_getmntent='" + perl_d_getmntent + "'"
3066 $ WC "d_hasmntopt='" + perl_d_hasmntopt + "'"
3068 $! ##WRITE NEW CONSTANTS HERE##
3072 $! Okay, we've gotten here. Build munchconfig and run it
3073 $ 'Perl_CC' munchconfig.c
3074 $ If (Needs_Opt.eqs."Yes")
3076 $ open/write OPTCHAN []munchconfig.opt
3077 $ IF ("''using_gnu_c'".eqs."Yes")
3079 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
3081 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
3083 $ link munchconfig.obj,munchconfig.opt/opt
3084 $ delete munchconfig.opt;*
3086 $ link munchconfig.obj
3088 $ WRITE_RESULT "Writing config.h"
3090 $ ! we need an fdl file
3091 $ CREATE [-]CONFIG.FDL
3094 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
3095 $ ! First spit out the header info with the local defines (to get
3096 $ ! around the 255 character command line limit)
3097 $ OPEN/APPEND CONFIG [-]config.local
3098 $ if use_debugging_perl.eqs."Y"
3100 $ WRITE CONFIG "#define DEBUGGING"
3102 $ if preload_env.eqs."Y"
3104 $ WRITE CONFIG "#define PRIME_ENV_AT_STARTUP"
3106 $ if use_two_pot_malloc.eqs."Y"
3108 $ WRITE CONFIG "#define TWO_POT_OPTIMIZE"
3110 $ if mymalloc.eqs."Y"
3112 $ WRITE CONFIG "#define EMBEDMYMALLOC"
3114 $ if use_pack_malloc.eqs."Y"
3116 $ WRITE CONFIG "#define PACK_MALLOC"
3118 $ if use_debugmalloc.eqs."Y"
3120 $ write config "#define DEBUGGING_MSTATS"
3122 $ if "''Using_Gnu_C'" .eqs."Yes"
3124 $ WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
3126 $ if "''Has_Dec_C_Sockets'".eqs."T"
3128 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
3129 $ WRITE CONFIG "#define DECCRTL_SOCKETS"
3131 $ if "''Has_Socketshr'".eqs."T"
3133 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
3137 $! Now build the normal config.h
3138 $ define/user sys$output [-]config.main
3139 $ mcr []munchconfig [-]config.sh [-]config_h.sh
3140 $ ! Concatenate them together
3141 $ copy [-]config.local,[-]config.main [-]config.h
3143 $ DELETE/NOLOG [-]CONFIG.MAIN;*
3144 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
3145 $ DELETE/NOLOG [-]CONFIG.FDL;*
3147 $ if "''Using_Dec_C'" .eqs."Yes"
3149 $ DECC_REPLACE = "DECC=decc=1"
3151 $ DECC_REPLACE = "DECC="
3153 $ if "''Using_Gnu_C'" .eqs."Yes"
3155 $ GNUC_REPLACE = "GNUC=gnuc=1"
3157 $ GNUC_REPLACE = "GNUC="
3159 $ if "''Has_Dec_C_Sockets'" .eqs."T"
3161 $ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
3163 $ if "''Has_Socketshr'" .eqs."T"
3165 $ SOCKET_REPLACE = "SOCKET=SOCKETSHR_SOCKETS=1"
3167 $ SOCKET_REPLACE = "SOCKET="
3170 $ IF ("''Use_Threads'".eqs."T")
3172 $ if ("''VMS_VER'".LES."6.2")
3174 $ THREAD_REPLACE = "THREAD=OLDTHREADED=1"
3176 $ THREAD_REPLACE = "THREAD=THREADED=1"
3179 $ THREAD_REPLACE = "THREAD="
3181 $ if mymalloc.eqs."Y"
3183 $ MALLOC_REPLACE = "MALLOC=MALLOC=1"
3185 $ MALLOC_REPLACE = "MALLOC="
3187 $ if f$getsyi("HW_MODEL").ge.1024
3189 $ ARCH_TYPE = "ARCH-TYPE=__AXP__"
3191 $ ARCH_TYPE = "ARCH-TYPE=__VAX__"
3193 $ WRITE_RESULT "Writing DESCRIP.MMS"
3195 $ define/user sys$output [-]descrip.mms
3196 $ 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'"
3199 $! Clean up after ourselves
3200 $ delete/nolog munchconfig.exe;*
3201 $ delete/nolog munchconfig.obj;*