1 $! SUBCONFIGURE.COM - build a config.sh for VMS Perl.
3 $! This .COM file expects to be called by configure.com, and thus expects
4 $! a few symbols in the environment. Notably:
6 $! One of: Using_Dec_C, Using_Vax_C, Using_Gnu_C set to "YES"
7 $! Dec_C_Version set to the Dec C version (defaults to 0 if not specified)
8 $! Has_Socketshr set to "T" if using socketshr
9 $! Has_Dec_C_Sockets set to "T" if using Dec C sockets
10 $! Use_Threads set to "T" if they're using threads
11 $! C_Compiler_Invoke is the command needed to invoke the C compiler
13 $! Set Dec_C_Version to something
14 $ WRITE_RESULT := "WRITE SYS$OUTPUT ""%CONFIG-I-RESULT "" + "
15 $ Dec_C_Version := "''Dec_C_Version'"
16 $ Dec_C_Version = Dec_C_Version + 0
17 $ Vms_Ver := "''f$extract(1,3, f$getsyi(""version""))'"
18 $ perl_extensions := "''extensions'"
19 $ if "''Using_Dec_C'" .eqs. "Yes"
21 $ Checkcc := "''Mcc'/prefix=all"
26 $ if f$length(Mcc) .eq. 0 then Mcc := "cc"
27 $! Some constant defaults.
29 $ hwname = f$getsyi("HW_NAME")
31 $ if "''myname'" .eqs. "" THEN myname = f$trnlnm("SYS$NODE")
32 $ perl_package="''package'"
33 $ perl_baserev = "''baserev'"
34 $ cc_defines="DEBUGGING"
35 $ IF ("''Has_Socketshr'".eqs."T") .or. ("''Has_Dec_C_Sockets'".eqs."T") THEN cc_defines = cc_defines + ",VMS_DO_SOCKETS"
36 $ if ("''Has_Dec_C_Sockets'".eqs."T") then cc_defines = cc_defines + ",DECCRTL_SOCKETS"
37 $! if ("''Use_Threads'".eqs."T")
39 $! cc_defines = cc_defines + ",MULTIPLICITY"
42 $ perl_i_netdb="undef"
43 $ perl_d_gnulibc="undef"
44 $ perl_cf_by="unknown"
48 $ perl_libpth="/sys$share /sys$library"
50 $ perl_lddlflags="/Share"
56 $ perl_shrplib="define"
57 $ perl_usemymalloc=mymalloc
58 $ perl_usevfork="true"
59 $ perl_useposix="false"
60 $ perl_spitshell="write sys$output "
61 $ perl_dlsrc="dl_vms.c"
64 $ perl_prefix="perl_root"
65 $ perl_binexp="''perl_prefix':[000000]"
66 $ perl_builddir="''perl_prefix':[000000]"
67 $ perl_installbin="''perl_prefix':[000000]"
68 $ perl_installscript="''perl_prefix':[000000]"
69 $ perl_installman1dir="''perl_prefix':[man.man1]"
70 $ perl_installman3dir="''perl_prefix':[man.man3]"
71 $ perl_installprivlib="''perl_prefix':[lib]"
72 $ perl_installsitelib="''perl_prefix':[lib.site_perl]"
75 $ perl_d_sockpair="undef"
76 $ perl_i_neterrno="define"
77 $ perl_ldflags="/NoTrace/NoMap"
78 $ perl_d_lchown="undef"
79 $ perl_d_union_semun="undef"
80 $ perl_d_semctl_semun="undef"
81 $ perl_d_semctl_semid_ds="undef"
82 $ IF (sharedperl.EQS."Y")
96 $ perl_dlobj="dl_vms''perl_obj_ext'"
98 $ perl_d_archlib="define"
99 $ perl_d_bincompat3="undef"
100 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
102 $ perl_d_castneg="define"
104 $ perl_d_chsize="undef"
105 $ perl_d_const="define"
106 $ perl_d_crypt="define"
107 $ perl_byteorder="1234"
110 $ perl_d_dup2="define"
111 $ perl_d_fchmod="undef"
112 $ perl_d_fchown="undef"
113 $ perl_d_fcntl="undef"
114 $ perl_d_fgetpos="define"
115 $ perl_d_flexfnam="define"
116 $ perl_d_flock="undef"
117 $ perl_d_fsetpos="define"
118 $ perl_d_getgrps="undef"
119 $ perl_d_setgrps="undef"
120 $ perl_d_getprior="undef"
121 $ perl_d_killpg="undef"
122 $ perl_d_link="undef"
123 $ perl_d_lstat="undef"
124 $ perl_d_lockf="undef"
125 $ perl_d_memcmp="define"
126 $ perl_d_memcpy="define"
127 $ perl_d_memmove="define"
128 $ perl_d_memset="define"
129 $ perl_d_mkdir="define"
131 $ perl_d_open3="define"
132 $ perl_d_poll="undef"
133 $ perl_d_readdir="define"
134 $ perl_d_seekdir="define"
135 $ perl_d_telldir="define"
136 $ perl_d_rewinddir="define"
137 $ perl_d_rename="define"
138 $ perl_d_rmdir="define"
140 $ perl_d_setegid="undef"
141 $ perl_d_seteuid="undef"
142 $ perl_d_setprior="undef"
143 $ perl_d_setregid="undef"
144 $ perl_d_setresgid="undef"
145 $ perl_d_setreuid="undef"
146 $ perl_d_setresuid="undef"
147 $ perl_d_setrgid="undef"
148 $ perl_d_setruid="undef"
149 $ perl_d_setsid="undef"
151 $ perl_d_shmatprototype="undef"
152 $ perl_d_statblks="undef"
153 $ perl_stdio_ptr="((*fp)->_ptr)"
154 $ perl_stdio_cnt="((*fp)->_cnt)"
155 $ perl_stdio_base="((*fp)->_base)"
156 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
157 $ perl_d_strctcpy="define"
158 $ perl_d_strerror="define"
159 $ perl_d_syserrlst="undef"
160 $ perl_d_strerrm="strerror((e),vaxc$errno)"
161 $ perl_d_symlink="undef"
162 $ perl_d_syscall="undef"
163 $ perl_d_system="define"
164 $ perl_timetype="time_t"
165 $ perl_d_vfork="define"
166 $ perl_signal_t="void"
167 $ perl_d_volatile="define"
168 $ perl_d_vprintf="define"
169 $ perl_d_charvspr="undef"
170 $ perl_d_waitpid="define"
171 $ perl_i_dirent="undef"
172 $ perl_d_dirnamlen="define"
173 $ perl_direntrytype="struct dirent"
174 $ perl_i_fcntl="undef"
176 $ perl_i_limits="define"
177 $ perl_i_memory="undef"
178 $ perl_i_ndbm="undef"
179 $ perl_i_stdarg="define"
181 $ perl_d_pwquota="undef"
182 $ perl_d_pwage="undef"
183 $ perl_d_pwchange="undef"
184 $ perl_d_pwclass="undef"
185 $ perl_d_pwexpire="undef"
186 $ perl_d_pwcomment="define"
187 $ perl_i_stddef="define"
188 $ perl_i_stdlib="define"
189 $ perl_i_string="define"
190 $ perl_i_sysdir="undef"
191 $ perl_i_sysfile="undef"
192 $ perl_i_sysioctl="undef"
193 $ perl_i_sysndir="undef"
194 $ perl_i_sysresrc="undef"
195 $ perl_i_sysselct="undef"
197 $ perl_i_rpcsvcdbm="undef"
198 $ perl_i_sfio="undef"
199 $ perl_i_sysstat="define"
200 $ perl_i_systimes="undef"
201 $ perl_i_systypes="define"
202 $ perl_i_sysun="undef"
203 $ perl_i_syswait="undef"
204 $ perl_i_termio="undef"
205 $ perl_i_sgtty="undef"
206 $ perl_i_termios="undef"
207 $ perl_i_time="define"
208 $ perl_i_systime="undef"
209 $ perl_i_systimek="undef"
210 $ perl_i_unistd="undef"
211 $ perl_i_utime="undef"
212 $ perl_i_varargs="undef"
213 $ perl_i_vfork="undef"
214 $ perl_prototype="define"
216 $ perl_stdchar="char"
217 $ perl_d_unlink_all_versions="undef"
218 $ perl_full_sed="_NLA0:"
219 $ perl_bin="/''perl_prefix'/000000"
220 $ perl_binexp="''perl_prefix':[000000]"
221 $ perl_d_alarm="define"
222 $ perl_d_casti32="define"
223 $ perl_d_chown="define"
224 $ perl_d_chroot="undef"
225 $ perl_d_cuserid="define"
226 $ perl_d_dbl_dig="define"
227 $ perl_d_difftime="define"
228 $ perl_d_fork="undef"
229 $ perl_d_getlogin="define"
230 $ perl_d_getppid="undef"
231 $ perl_d_nice="define"
232 $ perl_d_pause="define"
233 $ perl_d_pipe="define"
234 $ perl_d_readlink="undef"
235 $ perl_d_setlinebuf="undef"
236 $ perl_d_strchr="define"
237 $ perl_d_strtod="define"
238 $ perl_d_strtol="define"
239 $ perl_d_strtoul="define"
240 $ perl_d_tcgetpgrp="undef"
241 $ perl_d_tcsetpgrp="undef"
242 $ perl_d_times="define"
243 $ perl_d_tzname="undef"
244 $ perl_d_umask="define"
245 $ perl_fpostype="fpos_t"
246 $ perl_i_dlfcn="undef"
247 $ perl_i_float="define"
248 $ perl_i_math="define"
249 $ perl_lseektype="int"
250 $ perl_i_values="undef"
251 $ perl_malloctype="void *"
252 $ perl_freetype="void"
253 $ if "''mymalloc'".eqs."Y"
255 $ perl_d_mymalloc="define"
257 $ perl_d_mymalloc="undef"
260 $ perl_modetype="unsigned int"
261 $ perl_ssizetype="int"
265 $ perl_d_eofnblk="undef"
266 $ perl_d_oldarchlib="define"
267 $ perl_privlibexp="''perl_prefix':[lib]"
268 $ perl_privlib="''perl_prefix':[lib]"
269 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
270 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
271 $ perl_sizetype="size_t"
272 $ perl_i_sysparam="undef"
273 $ perl_d_void_closedir="define"
274 $ perl_d_dlerror="undef"
275 $ perl_d_dlsymun="undef"
276 $ perl_d_suidsafe="undef"
277 $ perl_d_dosuid="undef"
278 $ perl_d_inetaton="undef"
279 $ perl_d_isascii="define"
280 $ perl_d_mkfifo="undef"
281 $ perl_d_safebcpy="undef"
282 $ perl_d_safemcpy="define"
283 $ perl_d_sanemcmp="define"
284 $ perl_d_setpgrp="undef"
285 $ perl_d_bsdsetpgrp="undef"
286 $ perl_d_bsdpgrp="undef"
287 $ perl_d_setpgid="undef"
288 $ perl_d_setpgrp2="undef"
289 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
290 $ perl_d_getpgid="undef"
291 $ perl_d_getpgrp="undef"
292 $ perl_d_bsdgetpgrp="undef"
293 $ perl_d_getpgrp2="undef"
294 $ perl_d_sfio="undef"
295 $ perl_usedl="define"
297 $ perl_db_hashtype=""
298 $ perl_db_prefixtype=""
299 $ perl_useperlio="undef"
300 $ perl_defvoidused="15"
301 $ perl_voidflags="15"
302 $ perl_d_eunice="undef"
303 $ perl_d_pwgecos="define"
304 $ IF ("''Use_Threads'".eqs."T").and.("''VMS_VER'".LES."6.2")
306 $ 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"
310 $ IF ("''Using_Dec_C'".eqs."Yes")
312 $ perl_libc="(DECCRTL)"
316 $ perl_PATCHLEVEL="''patchlevel'"
317 $ perl_SUBVERSION="''subversion'"
321 $! Now some that we build up
323 $ LocalTime = f$time()
324 $ perl_cf_time= f$extract(0, 3, f$cvtime(LocalTime,, "WEEKDAY")) + " " + -
325 f$edit(f$cvtime(LocalTime, "ABSOLUTE", "MONTH"), "LOWERCASE") + -
326 " " + f$cvtime(LocalTime,, "DAY") + " " + f$cvtime(LocalTime,, "TIME") + -
327 " " + f$cvtime(LocalTime,, "YEAR")
328 $ if f$getsyi("HW_MODEL").ge.1024
330 $ perl_arch="VMS_AXP"
331 $ perl_archname="VMS_AXP"
332 $ perl_alignbytes="8"
334 $ perl_arch="VMS_VAX"
335 $ perl_archname="VMS_VAX"
336 $ perl_alignbytes="8"
338 $ perl_osvers=f$edit(osvers, "TRIM")
339 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion
341 $! Some that we need to invoke the compiler for
342 $ OS := "open/write SOURCECHAN []temp.c"
343 $ WS := "write SOURCECHAN"
344 $ CS := "close SOURCECHAN"
345 $ DS := "delete/nolog []temp.*;*"
347 $ if ("''using_vax_c'".eqs."Yes").or.("''using_gnu_c'".eqs."Yes")
349 $ open/write OPTCHAN []temp.opt
350 $ IF ("''using_gnu_c'".eqs."Yes")
352 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
354 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
359 $! Check for __STDC__
363 $ WS "#include <stdlib.h>
365 $ WS "#include <stdio.h>
368 $ WS "#ifdef __STDC__
369 $ WS "printf(""42\n"");
371 $ WS "printf(""1\n"");
376 $ DEFINE SYS$ERROR _NLA0:
377 $ DEFINE SYS$OUTPUT _NLA0:
378 $ ON ERROR THEN CONTINUE
379 $ ON WARNING THEN CONTINUE
381 $ If (Needs_Opt.eqs."Yes")
387 $ DEASSIGN SYS$OUTPUT
389 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
390 $ DEFINE SYS$ERROR TEMPOUT
391 $ DEFINE SYS$OUTPUT TEMPOUT
394 $ DEASSIGN SYS$OUTPUT
396 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
400 $ perl_cpp_stuff=line
401 $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
403 $! Check for double size
407 $ WS "#include <stdlib.h>
409 $ WS "#include <stdio.h>
412 $ WS "printf(""%i\n"", sizeof(double));
416 $ DEFINE SYS$ERROR _NLA0:
417 $ DEFINE SYS$OUTPUT _NLA0:
418 $ ON ERROR THEN CONTINUE
419 $ ON WARNING THEN CONTINUE
421 $ If (Needs_Opt.eqs."Yes")
428 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
429 $ DEASSIGN SYS$OUTPUT
431 $ DEFINE SYS$ERROR TEMPOUT
432 $ DEFINE SYS$OUTPUT TEMPOUT
435 $ DEASSIGN SYS$OUTPUT
437 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
441 $ perl_doublesize=line
442 $ WRITE_RESULT "doublesize is ''perl_doublesize'"
444 $! Check for long double size
448 $ WS "#include <stdlib.h>
450 $ WS "#include <stdio.h>
453 $ WS "printf(""%i\n"", sizeof(long double));
457 $ DEFINE SYS$ERROR _NLA0:
458 $ DEFINE SYS$OUTPUT _NLA0:
459 $ ON ERROR THEN CONTINUE
460 $ ON WARNING THEN CONTINUE
462 $ teststatus = f$extract(9,1,$status)
463 $ if (teststatus.nes."1")
465 $ perl_longdblsize="0"
466 $ perl_d_longdbl="undef"
468 $ ON ERROR THEN CONTINUE
469 $ ON WARNING THEN CONTINUE
470 $ If (Needs_Opt.eqs."Yes")
476 $ teststatus = f$extract(9,1,$status)
477 $ DEASSIGN SYS$OUTPUT
479 $ if (teststatus.nes."1")
481 $ perl_longdblsize="0"
482 $ perl_d_longdbl="undef"
484 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
485 $ DEFINE SYS$ERROR TEMPOUT
486 $ DEFINE SYS$OUTPUT TEMPOUT
489 $ DEASSIGN SYS$OUTPUT
491 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
495 $ perl_longdblsize=line
496 $ perl_d_longdbl="define"
499 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
500 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
502 $! Check for long long existance and size
506 $ WS "#include <stdlib.h>
508 $ WS "#include <stdio.h>
511 $ WS "printf(""%i\n"", sizeof(long long));
515 $ DEFINE SYS$ERROR _NLA0:
516 $ DEFINE SYS$OUTPUT _NLA0:
517 $ on error then continue
518 $ on warning then continue
520 $ If (Needs_Opt.eqs."Yes")
526 $ teststatus = f$extract(9,1,$status)
527 $ DEASSIGN SYS$OUTPUT
529 $ if (teststatus.nes."1")
531 $ perl_longlongsize="0"
532 $ perl_d_longlong="undef"
534 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
535 $ DEFINE SYS$ERROR TEMPOUT
536 $ DEFINE SYS$OUTPUT TEMPOUT
539 $ DEASSIGN SYS$OUTPUT
541 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
545 $ perl_longlongsize=line
546 $ perl_d_longlong="define"
548 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
549 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
551 $! Check for int size
555 $ WS "#include <stdlib.h>
557 $ WS "#include <stdio.h>
560 $ WS "printf(""%i\n"", sizeof(int));
564 $ DEFINE SYS$ERROR _NLA0:
565 $ DEFINE SYS$OUTPUT _NLA0:
566 $ on error then continue
567 $ on warning then continue
569 $ If (Needs_Opt.eqs."Yes")
575 $ If (Needs_Opt.eqs."Yes")
581 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
582 $ DEASSIGN SYS$OUTPUT
584 $ DEFINE SYS$ERROR TEMPOUT
585 $ DEFINE SYS$OUTPUT TEMPOUT
588 $ DEASSIGN SYS$OUTPUT
590 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
595 $ WRITE_RESULT "intsize is ''perl_intsize'"
597 $! Check for short size
601 $ WS "#include <stdlib.h>
603 $ WS "#include <stdio.h>
606 $ WS "printf(""%i\n"", sizeof(short));
610 $ DEFINE SYS$ERROR _NLA0:
611 $ DEFINE SYS$OUTPUT _NLA0:
612 $ on error then continue
613 $ on warning then continue
615 $ If (Needs_Opt.eqs."Yes")
621 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
622 $ DEASSIGN SYS$OUTPUT
624 $ DEFINE SYS$ERROR TEMPOUT
625 $ DEFINE SYS$OUTPUT TEMPOUT
628 $ DEASSIGN SYS$OUTPUT
630 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
634 $ perl_shortsize=line
635 $ WRITE_RESULT "shortsize is ''perl_shortsize'"
637 $! Check for long size
641 $ WS "#include <stdlib.h>
643 $ WS "#include <stdio.h>
646 $ WS "printf(""%i\n"", sizeof(long));
650 $ DEFINE SYS$ERROR _NLA0:
651 $ DEFINE SYS$OUTPUT _NLA0:
652 $ on error then continue
653 $ on warning then continue
655 $ If (Needs_Opt.eqs."Yes")
661 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
662 $ DEASSIGN SYS$OUTPUT
664 $ DEFINE SYS$ERROR TEMPOUT
665 $ DEFINE SYS$OUTPUT TEMPOUT
668 $ DEASSIGN SYS$OUTPUT
670 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
675 $ WRITE_RESULT "longsize is ''perl_longsize'"
677 $! Check the prototype for getgid
681 $ WS "#include <stdlib.h>
683 $ WS "#include <stdio.h>
684 $ WS "#include <types.h>
685 $ WS "#include <unistd.h>
692 $ DEFINE SYS$ERROR _NLA0:
693 $ DEFINE SYS$OUTPUT _NLA0:
694 $ on error then continue
695 $ on warning then continue
697 $ teststatus = f$extract(9,1,$status)
698 $ DEASSIGN SYS$OUTPUT
700 $ if (teststatus.nes."1")
702 $! Okay, gid_t failed. Must be unsigned int
703 $ perl_gidtype = "unsigned int"
705 $ perl_gidtype = "gid_t"
707 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
709 $! Check the prototype for select
711 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
715 $ WS "#include <stdlib.h>
717 $ WS "#include <stdio.h>
718 $ WS "#include <types.h>
719 $ WS "#include <unistd.h>
720 $ if ("''Has_Socketshr'".eqs."T")
722 $ WS "#include <socketshr.h>"
724 $ WS "#include <time.h>
725 $ WS "#include <socket.h>
732 $ WS "bar = select(2, foo, foo, foo, NULL);
736 $ DEFINE SYS$ERROR _NLA0:
737 $ DEFINE SYS$OUTPUT _NLA0:
738 $ on error then continue
739 $ on warning then continue
741 $ teststatus = f$extract(9,1,$status)
742 $ DEASSIGN SYS$OUTPUT
744 $ if (teststatus.nes."1")
746 $! Okay, fd_set failed. Must be an int
747 $ perl_selecttype = "int *"
749 $ perl_selecttype="fd_set *"
752 $ ! No sockets, so stick in an int *
753 $ perl_selecttype = "int *"
755 $ WRITE_RESULT "selectype is ''perl_selecttype'"
761 $ WS "#include <stdlib.h>
763 $ WS "#include <stdio.h>
764 $ WS "#include <strings.h>
768 $ WS "bzero(foo, 10);
772 $ DEFINE SYS$ERROR _NLA0:
773 $ DEFINE SYS$OUTPUT _NLA0:
774 $ on error then continue
775 $ on warning then continue
777 $ savedstatus = $status
778 $ teststatus = f$extract(9,1,savedstatus)
779 $ if (teststatus.nes."1")
781 $ perl_d_bzero="undef"
782 $ DEASSIGN SYS$OUTPUT
785 $ If (Needs_Opt.eqs."Yes")
791 $ savedstatus = $status
792 $ teststatus = f$extract(9,1,savedstatus)
793 $ DEASSIGN SYS$OUTPUT
795 $ if (teststatus.nes."1")
797 $ perl_d_bzero="undef"
799 $ perl_d_bzero="define"
802 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
808 $ WS "#include <stdlib.h>
810 $ WS "#include <stdio.h>
811 $ WS "#include <strings.h>
814 $ WS "char foo[10], bar[10];
815 $ WS "bcopy(""foo"", bar, 3);
819 $ DEFINE SYS$ERROR _NLA0:
820 $ DEFINE SYS$OUTPUT _NLA0:
821 $ on error then continue
822 $ on warning then continue
824 $ savedstatus = $status
825 $ teststatus = f$extract(9,1,savedstatus)
826 $ if (teststatus.nes."1")
828 $ perl_d_bcopy="undef"
829 $ DEASSIGN SYS$OUTPUT
832 $ If (Needs_Opt.eqs."Yes")
838 $ savedstatus = $status
839 $ teststatus = f$extract(9,1,savedstatus)
840 $ DEASSIGN SYS$OUTPUT
842 $ if (teststatus.nes."1")
844 $ perl_d_bcopy="undef"
846 $ perl_d_bcopy="define"
849 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
855 $ WS "#include <stdlib.h>
857 $ WS "#include <stdio.h>
860 $ WS "mkstemp(""foo"");
864 $ DEFINE SYS$ERROR _NLA0:
865 $ DEFINE SYS$OUTPUT _NLA0:
866 $ on error then continue
867 $ on warning then continue
869 $ If (Needs_Opt.eqs."Yes")
875 $ savedstatus = $status
876 $ teststatus = f$extract(9,1,savedstatus)
877 $ DEASSIGN SYS$OUTPUT
879 $ if (teststatus.nes."1")
881 $ perl_d_mkstemp="undef"
883 $ perl_d_mkstemp="define"
885 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
891 $ WS "#include <stdlib.h>
893 $ WS "#include <stdio.h>
897 $ WS "char Buffer[99];
898 $ WS "foo = fopen(""foo"", ""r"");
899 $ WS "setvbuf(foo, Buffer, 0, 0);
903 $ DEFINE SYS$ERROR _NLA0:
904 $ DEFINE SYS$OUTPUT _NLA0:
905 $ on error then continue
906 $ on warning then continue
908 $ If (Needs_Opt.eqs."Yes")
914 $ teststatus = f$extract(9,1,$status)
915 $ DEASSIGN SYS$OUTPUT
917 $ if (teststatus.nes."1")
919 $ perl_d_setvbuf="undef"
921 $ perl_d_setvbuf="define"
923 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
925 $! Check for <netinet/in.h>
927 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
931 $ WS "#include <stdlib.h>
933 $ WS "#include <stdio.h>
934 $ if ("''Has_Socketshr'".eqs."T")
936 $ WS "#include <socketshr.h>"
938 $ WS "#include <netdb.h>
940 $ WS "#include <netinet/in.h>"
946 $ DEFINE SYS$ERROR _NLA0:
947 $ DEFINE SYS$OUTPUT _NLA0:
948 $ on error then continue
949 $ on warning then continue
951 $ If (Needs_Opt.eqs."Yes")
957 $ teststatus = f$extract(9,1,$status)
958 $ DEASSIGN SYS$OUTPUT
960 $ if (teststatus.nes."1")
962 $ perl_i_niin="undef"
964 $ perl_i_niin="define"
967 $ perl_i_niin="undef"
969 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
971 $! Check for endhostent
973 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
977 $ WS "#include <stdlib.h>
979 $ WS "#include <stdio.h>
980 $ if ("''Has_Socketshr'".eqs."T")
982 $ WS "#include <socketshr.h>"
984 $ WS "#include <netdb.h>
992 $ DEFINE SYS$ERROR _NLA0:
993 $ DEFINE SYS$OUTPUT _NLA0:
994 $ on error then continue
995 $ on warning then continue
997 $ If (Needs_Opt.eqs."Yes")
1003 $ teststatus = f$extract(9,1,$status)
1004 $ DEASSIGN SYS$OUTPUT
1005 $ DEASSIGN SYS$ERROR
1006 $ if (teststatus.nes."1")
1008 $ perl_d_endhent="undef"
1010 $ perl_d_endhent="define"
1013 $ perl_d_endhent="undef"
1015 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
1017 $! Check for endnetent
1019 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1023 $ WS "#include <stdlib.h>
1025 $ WS "#include <stdio.h>
1026 $ if ("''Has_Socketshr'".eqs."T")
1028 $ WS "#include <socketshr.h>"
1030 $ WS "#include <netdb.h>
1038 $ DEFINE SYS$ERROR _NLA0:
1039 $ DEFINE SYS$OUTPUT _NLA0:
1040 $ on error then continue
1041 $ on warning then continue
1043 $ If (Needs_Opt.eqs."Yes")
1045 $ link temp,temp/opt
1049 $ teststatus = f$extract(9,1,$status)
1050 $ DEASSIGN SYS$OUTPUT
1051 $ DEASSIGN SYS$ERROR
1052 $ if (teststatus.nes."1")
1054 $ perl_d_endnent="undef"
1056 $ perl_d_endnent="define"
1059 $ perl_d_endnent="undef"
1061 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
1063 $! Check for endprotoent
1065 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1069 $ WS "#include <stdlib.h>
1071 $ WS "#include <stdio.h>
1072 $ if ("''Has_Socketshr'".eqs."T")
1074 $ WS "#include <socketshr.h>"
1076 $ WS "#include <netdb.h>
1080 $ WS "endprotoent();
1084 $ DEFINE SYS$ERROR _NLA0:
1085 $ DEFINE SYS$OUTPUT _NLA0:
1086 $ on error then continue
1087 $ on warning then continue
1089 $ If (Needs_Opt.eqs."Yes")
1091 $ link temp,temp/opt
1095 $ teststatus = f$extract(9,1,$status)
1096 $ DEASSIGN SYS$OUTPUT
1097 $ DEASSIGN SYS$ERROR
1098 $ if (teststatus.nes."1")
1100 $ perl_d_endpent="undef"
1102 $ perl_d_endpent="define"
1105 $ perl_d_endpent="undef"
1107 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
1109 $! Check for endservent
1111 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1115 $ WS "#include <stdlib.h>
1117 $ WS "#include <stdio.h>
1118 $ if ("''Has_Socketshr'".eqs."T")
1120 $ WS "#include <socketshr.h>"
1122 $ WS "#include <netdb.h>
1130 $ DEFINE SYS$ERROR _NLA0:
1131 $ DEFINE SYS$OUTPUT _NLA0:
1132 $ on error then continue
1133 $ on warning then continue
1135 $ If (Needs_Opt.eqs."Yes")
1137 $ link temp,temp/opt
1141 $ teststatus = f$extract(9,1,$status)
1142 $ DEASSIGN SYS$OUTPUT
1143 $ DEASSIGN SYS$ERROR
1144 $ if (teststatus.nes."1")
1146 $ perl_d_endsent="undef"
1148 $ perl_d_endsent="define"
1151 $ perl_d_endsent="undef"
1153 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
1155 $! Check for sethostent
1157 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1161 $ WS "#include <stdlib.h>
1163 $ WS "#include <stdio.h>
1164 $ if ("''Has_Socketshr'".eqs."T")
1166 $ WS "#include <socketshr.h>"
1168 $ WS "#include <netdb.h>
1172 $ WS "sethostent(1);
1176 $ DEFINE SYS$ERROR _NLA0:
1177 $ DEFINE SYS$OUTPUT _NLA0:
1178 $ on error then continue
1179 $ on warning then continue
1181 $ If (Needs_Opt.eqs."Yes")
1183 $ link temp,temp/opt
1187 $ teststatus = f$extract(9,1,$status)
1188 $ DEASSIGN SYS$OUTPUT
1189 $ DEASSIGN SYS$ERROR
1190 $ if (teststatus.nes."1")
1192 $ perl_d_sethent="undef"
1194 $ perl_d_sethent="define"
1197 $ perl_d_sethent="undef"
1199 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
1201 $! Check for setnetent
1203 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1207 $ WS "#include <stdlib.h>
1209 $ WS "#include <stdio.h>
1210 $ if ("''Has_Socketshr'".eqs."T")
1212 $ WS "#include <socketshr.h>"
1214 $ WS "#include <netdb.h>
1222 $ DEFINE SYS$ERROR _NLA0:
1223 $ DEFINE SYS$OUTPUT _NLA0:
1224 $ on error then continue
1225 $ on warning then continue
1227 $ If (Needs_Opt.eqs."Yes")
1229 $ link temp,temp/opt
1233 $ teststatus = f$extract(9,1,$status)
1234 $ DEASSIGN SYS$OUTPUT
1235 $ DEASSIGN SYS$ERROR
1236 $ if (teststatus.nes."1")
1238 $ perl_d_setnent="undef"
1240 $ perl_d_setnent="define"
1243 $ perl_d_setnent="undef"
1245 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
1247 $! Check for setprotoent
1249 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1253 $ WS "#include <stdlib.h>
1255 $ WS "#include <stdio.h>
1256 $ if ("''Has_Socketshr'".eqs."T")
1258 $ WS "#include <socketshr.h>"
1260 $ WS "#include <netdb.h>
1264 $ WS "setprotoent(1);
1268 $ DEFINE SYS$ERROR _NLA0:
1269 $ DEFINE SYS$OUTPUT _NLA0:
1270 $ on error then continue
1271 $ on warning then continue
1273 $ If (Needs_Opt.eqs."Yes")
1275 $ link temp,temp/opt
1279 $ teststatus = f$extract(9,1,$status)
1280 $ DEASSIGN SYS$OUTPUT
1281 $ DEASSIGN SYS$ERROR
1282 $ if (teststatus.nes."1")
1284 $ perl_d_setpent="undef"
1286 $ perl_d_setpent="define"
1289 $ perl_d_setpent="undef"
1291 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
1293 $! Check for setservent
1295 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1299 $ WS "#include <stdlib.h>
1301 $ WS "#include <stdio.h>
1302 $ if ("''Has_Socketshr'".eqs."T")
1304 $ WS "#include <socketshr.h>"
1306 $ WS "#include <netdb.h>
1310 $ WS "setservent(1);
1314 $ DEFINE SYS$ERROR _NLA0:
1315 $ DEFINE SYS$OUTPUT _NLA0:
1316 $ on error then continue
1317 $ on warning then continue
1319 $ If (Needs_Opt.eqs."Yes")
1321 $ link temp,temp/opt
1325 $ teststatus = f$extract(9,1,$status)
1326 $ DEASSIGN SYS$OUTPUT
1327 $ DEASSIGN SYS$ERROR
1328 $ if (teststatus.nes."1")
1330 $ perl_d_setsent="undef"
1332 $ perl_d_setsent="define"
1335 $ perl_d_setsent="undef"
1337 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
1339 $! Check for gethostent
1341 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1345 $ WS "#include <stdlib.h>
1347 $ WS "#include <stdio.h>
1348 $ if ("''Has_Socketshr'".eqs."T")
1350 $ WS "#include <socketshr.h>"
1352 $ WS "#include <netdb.h>
1360 $ DEFINE SYS$ERROR _NLA0:
1361 $ DEFINE SYS$OUTPUT _NLA0:
1362 $ on error then continue
1363 $ on warning then continue
1365 $ If (Needs_Opt.eqs."Yes")
1367 $ link temp,temp/opt
1371 $ teststatus = f$extract(9,1,$status)
1372 $ DEASSIGN SYS$OUTPUT
1373 $ DEASSIGN SYS$ERROR
1374 $ if (teststatus.nes."1")
1376 $ perl_d_gethent="undef"
1378 $ perl_d_gethent="define"
1381 $ perl_d_gethent="undef"
1383 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
1385 $! Check for getnetent
1387 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1391 $ WS "#include <stdlib.h>
1393 $ WS "#include <stdio.h>
1394 $ if ("''Has_Socketshr'".eqs."T")
1396 $ WS "#include <socketshr.h>"
1398 $ WS "#include <netdb.h>
1406 $ DEFINE SYS$ERROR _NLA0:
1407 $ DEFINE SYS$OUTPUT _NLA0:
1408 $ on error then continue
1409 $ on warning then continue
1411 $ If (Needs_Opt.eqs."Yes")
1413 $ link temp,temp/opt
1417 $ teststatus = f$extract(9,1,$status)
1418 $ DEASSIGN SYS$OUTPUT
1419 $ DEASSIGN SYS$ERROR
1420 $ if (teststatus.nes."1")
1422 $ perl_d_getnent="undef"
1424 $ perl_d_getnent="define"
1427 $ perl_d_getnent="undef"
1429 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
1431 $! Check for getprotoent
1433 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1437 $ WS "#include <stdlib.h>
1439 $ WS "#include <stdio.h>
1440 $ if ("''Has_Socketshr'".eqs."T")
1442 $ WS "#include <socketshr.h>"
1444 $ WS "#include <netdb.h>
1448 $ WS "getprotoent();
1452 $ DEFINE SYS$ERROR _NLA0:
1453 $ DEFINE SYS$OUTPUT _NLA0:
1454 $ on error then continue
1455 $ on warning then continue
1457 $ If (Needs_Opt.eqs."Yes")
1459 $ link temp,temp/opt
1463 $ teststatus = f$extract(9,1,$status)
1464 $ DEASSIGN SYS$OUTPUT
1465 $ DEASSIGN SYS$ERROR
1466 $ if (teststatus.nes."1")
1468 $ perl_d_getpent="undef"
1470 $ perl_d_getpent="define"
1473 $ perl_d_getpent="undef"
1475 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
1477 $! Check for getservent
1479 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1483 $ WS "#include <stdlib.h>
1485 $ WS "#include <stdio.h>
1486 $ if ("''Has_Socketshr'".eqs."T")
1488 $ WS "#include <socketshr.h>"
1490 $ WS "#include <netdb.h>
1498 $ DEFINE SYS$ERROR _NLA0:
1499 $ DEFINE SYS$OUTPUT _NLA0:
1500 $ on error then continue
1501 $ on warning then continue
1503 $ If (Needs_Opt.eqs."Yes")
1505 $ link temp,temp/opt
1509 $ teststatus = f$extract(9,1,$status)
1510 $ DEASSIGN SYS$OUTPUT
1511 $ DEASSIGN SYS$ERROR
1512 $ if (teststatus.nes."1")
1514 $ perl_d_getsent="undef"
1516 $ perl_d_getsent="define"
1519 $ perl_d_getsent="undef"
1521 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
1523 $! Check for pthread_yield
1525 $ if ("''use_threads'".eqs."T")
1529 $ WS "#include <stdlib.h>
1531 $ WS "#include <pthread.h>
1532 $ WS "#include <stdio.h>
1535 $ WS "pthread_yield();
1539 $ DEFINE SYS$ERROR _NLA0:
1540 $ DEFINE SYS$OUTPUT _NLA0:
1541 $ on error then continue
1542 $ on warning then continue
1544 $ teststatus = f$extract(9,1,$status)
1545 $ DEASSIGN SYS$OUTPUT
1546 $ DEASSIGN SYS$ERROR
1547 $ if (teststatus.nes."1")
1549 $ perl_d_pthread_yield="undef"
1551 $ perl_d_pthread_yield="define"
1554 $ perl_d_pthread_yield="undef"
1556 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
1558 $! Check for sched_yield
1560 $ if ("''use_threads'".eqs."T")
1564 $ WS "#include <stdlib.h>
1566 $ WS "#include <pthread.h>
1567 $ WS "#include <stdio.h>
1570 $ WS "sched_yield();
1574 $ DEFINE SYS$ERROR _NLA0:
1575 $ DEFINE SYS$OUTPUT _NLA0:
1576 $ on error then continue
1577 $ on warning then continue
1579 $ teststatus = f$extract(9,1,$status)
1580 $ DEASSIGN SYS$OUTPUT
1581 $ DEASSIGN SYS$ERROR
1582 $ if (teststatus.nes."1")
1584 $ perl_d_sched_yield="undef"
1586 $ perl_d_sched_yield="define"
1589 $ perl_d_sched_yield="undef"
1591 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
1593 $! Check for generic pointer size
1597 $ WS "#include <stdlib.h>
1599 $ WS "#include <stdio.h>
1602 $ WS "printf(""%i\n"", sizeof(void *));
1606 $ DEFINE SYS$ERROR _NLA0:
1607 $ DEFINE SYS$OUTPUT _NLA0:
1608 $ ON ERROR THEN CONTINUE
1609 $ ON WARNING THEN CONTINUE
1611 $ If (Needs_Opt.eqs."Yes")
1613 $ link temp,temp/opt
1617 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
1618 $ DEASSIGN SYS$OUTPUT
1619 $ DEASSIGN SYS$ERROR
1620 $ DEFINE SYS$ERROR TEMPOUT
1621 $ DEFINE SYS$OUTPUT TEMPOUT
1624 $ DEASSIGN SYS$OUTPUT
1625 $ DEASSIGN SYS$ERROR
1626 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
1631 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
1634 $! Done with compiler checks. Clean up.
1635 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
1636 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
1637 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
1638 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
1641 $! Some that are compiler or VMS version sensitive
1644 $ IF "''Using_Gnu_C'".EQS."Yes"
1646 $ perl_d_attribut="define"
1647 $ perl_vms_cc_type="gcc"
1649 $ perl_d_attribut="undef"
1652 $! Dec C >= 5.2 and VMS ver >= 7.0
1653 $ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
1655 $ perl_d_bcmp="define"
1656 $ perl_d_gettimeod="define"
1657 $ perl_d_uname="define"
1658 $ perl_d_sigaction="define"
1659 $ perl_d_truncate="define"
1660 $ perl_d_wait4="define"
1661 $ perl_d_index="define"
1662 $ perl_pidtype="pid_t"
1663 $ 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"
1664 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
1665 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
1666 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
1667 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
1668 $ 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"
1669 $ perl_sig_num_with_commas=perl_sig_num
1670 $ perl_uidtype="uid_t"
1671 $ perl_d_pathconf="define"
1672 $ perl_d_fpathconf="define"
1673 $ perl_d_sysconf="define"
1674 $ perl_d_sigsetjmp="define"
1676 $ perl_pidtype="unsigned int"
1677 $ perl_d_gettimeod="undef"
1678 $ perl_d_bcmp="undef"
1679 $ perl_d_uname="undef"
1680 $ perl_d_sigaction="undef"
1681 $ perl_d_truncate="undef"
1682 $ perl_d_wait4="undef"
1683 $ perl_d_index="undef"
1684 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
1685 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
1686 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
1687 $ perl_sig_name_with_commas = psnwc1 + psnwc2
1688 $ perl_sig_num="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
1689 $ perl_sig_num_with_commas=perl_sig_num
1690 $ perl_uidtype="unsigned int"
1691 $ perl_d_pathconf="undef"
1692 $ perl_d_fpathconf="undef"
1693 $ perl_d_sysconf="undef"
1694 $ perl_d_sigsetjmp="undef"
1698 $ IF ("''Using_Dec_C'".EQS."Yes")
1700 $ perl_d_mbstowcs="define"
1701 $ perl_d_mbtowc="define"
1702 $ perl_d_stdiobase="define"
1703 $ perl_d_stdio_ptr_lval="define"
1704 $ perl_d_stdio_cnt_lval="define"
1705 $ perl_d_stdstdio="define"
1706 $ perl_d_wcstombs="define"
1707 $ perl_d_mblen="define"
1708 $ perl_d_mktime="define"
1709 $ perl_d_strcoll="define"
1710 $ perl_d_strxfrm="define"
1711 $ perl_d_wctomb="define"
1712 $ perl_i_locale="define"
1713 $ perl_d_locconv="define"
1714 $ perl_d_setlocale="define"
1715 $ perl_vms_cc_type="decc"
1717 $ perl_d_mbstowcs="undef"
1718 $ perl_d_mbtowc="undef"
1719 $ perl_d_stdiobase="undef"
1720 $ perl_d_stdio_ptr_lval="undef"
1721 $ perl_d_stdio_cnt_lval="undef"
1722 $ perl_d_stdstdio="undef"
1723 $ perl_d_wcstombs="undef"
1724 $ perl_d_mblen="undef"
1725 $ perl_d_mktime="undef"
1726 $ perl_d_strcoll="undef"
1727 $ perl_d_strxfrm="undef"
1728 $ perl_d_wctomb="undef"
1729 $ perl_i_locale="undef"
1730 $ perl_d_locconv="undef"
1731 $ perl_d_setlocale="undef"
1735 $ if ("''Using_Vax_C'".EQS."Yes")
1737 $ perl_vms_cc_type="vaxc"
1742 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
1744 $ perl_d_vms_do_sockets="define"
1745 $ perl_d_htonl="define"
1746 $ perl_d_socket="define"
1747 $ perl_d_select="define"
1748 $ perl_netdb_host_type="char *"
1749 $ perl_netdb_hlen_type="int"
1750 $ perl_netdb_name_type="char *"
1751 $ perl_netdb_net_type="long"
1752 $ perl_d_gethbyaddr="define"
1753 $ perl_d_gethbyname="define"
1754 $ perl_d_getnbyaddr="define"
1755 $ perl_d_getnbyname="define"
1756 $ perl_d_getpbynumber="define"
1757 $ perl_d_getpbyname="define"
1758 $ perl_d_getsbyport="define"
1759 $ perl_d_getsbyname="define"
1760 $ perl_d_gethostprotos="define"
1761 $ perl_d_getnetprotos="define"
1762 $ perl_d_getprotoprotos="define"
1763 $ perl_d_getservprotos="define"
1765 $ perl_d_vms_do_sockets="undef"
1766 $ perl_d_htonl="undef"
1767 $ perl_d_socket="undef"
1768 $ perl_d_select="undef"
1769 $ perl_netdb_host_type="char *"
1770 $ perl_netdb_hlen_type="int"
1771 $ perl_netdb_name_type="char *"
1772 $ perl_netdb_net_type="long"
1773 $ perl_d_gethbyaddr="undef"
1774 $ perl_d_gethbyname="undef"
1775 $ perl_d_getnbyaddr="undef"
1776 $ perl_d_getnbyname="undef"
1777 $ perl_d_getpbynumber="undef"
1778 $ perl_d_getpbyname="undef"
1779 $ perl_d_getsbyport="undef"
1780 $ perl_d_getsbyname="undef"
1781 $ perl_d_gethostprotos="undef"
1782 $ perl_d_getnetprotos="undef"
1783 $ perl_d_getprotoprotos="undef"
1784 $ perl_d_getservprotos="undef"
1787 $ if ("''use_threads'".eqs."T")
1789 $ perl_usethreads="define"
1790 $ perl_d_pthreads_created_joinable="define"
1791 $ if ("''VMS_VER'".ges."7.0")
1793 $ perl_d_oldpthreads="undef"
1795 $ perl_d_oldpthreads="define"
1798 $ perl_d_oldpthreads="undef"
1799 $ perl_usethreads="undef"
1801 $ perl_d_pthreads_created_joinable="undef"
1805 $! Finally the composite ones. All config
1806 $ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
1807 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
1808 $ perl_myhostname="''myhostname'"
1809 $ perl_mydomain="''mydomain'"
1810 $ perl_perladmin="''perladmin'"
1811 $ perl_cf_email="''cf_email'"
1812 $ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
1813 $ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
1814 $ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
1815 $ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
1816 $ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
1817 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
1818 $ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
1819 $ if "''Using_Dec_C'" .eqs. "Yes"
1821 $ perl_ccflags="/Define=(''cc_defines')/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
1823 $ IF "''Using_Vax_C'" .eqs. "Yes"
1825 $ perl_ccflags="/Define=(''cc_defines')/Include=[]/Obj=''perl_obj_ext'/NoList''cc_flags'"
1829 $! Finally clean off any leading zeros from the patchlevel or subversion
1830 $ perl_patchlevel = perl_patchlevel + 0
1831 $ perl_subversion = perl_subversion + 0
1833 $! Okay, we've got everything configured. Now go write out a config.sh.
1834 $ open/write CONFIGSH [-]config.sh
1835 $ WC := "write CONFIGSH"
1837 $ WC "# This file generated by Configure.COM on a VMS system."
1838 $ WC "# Time: " + perl_cf_time
1840 $ WC "package='" + perl_package + "'"
1841 $ WC "CONFIG='" + perl_config + "'"
1842 $ WC "cf_time='" + perl_cf_time + "'"
1843 $ WC "cf_by='" + perl_cf_by+ "'"
1844 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
1845 $ WC "ccdlflags='" + perl_ccdlflags + "'"
1846 $ WC "cccdlflags='" + perl_cccdlflags + "'"
1847 $ WC "mab='" + perl_mab + "'"
1848 $ WC "libpth='" + perl_libpth + "'"
1849 $ WC "ld='" + perl_ld + "'"
1850 $ WC "lddlflags='" + perl_lddlflags + "'"
1851 $ WC "ranlib='" + perl_ranlib + "'"
1852 $ WC "ar='" + perl_ar + "'"
1853 $ WC "eunicefix='" + perl_eunicefix + "'"
1854 $ WC "hint='" + perl_hint +"'"
1855 $ WC "hintfile='" + perl_hintfile + "'"
1856 $ WC "shrplib='" + perl_shrplib + "'"
1857 $ WC "usemymalloc='" + perl_usemymalloc + "'"
1858 $ WC "usevfork='" + perl_usevfork + "'"
1859 $ WC "useposix='false'"
1860 $ WC "spitshell='write sys$output '"
1861 $ WC "dlsrc='dl_vms.c'"
1862 $ WC "binexp='" + perl_binexp + "'"
1863 $ WC "man1ext='" + perl_man1ext + "'"
1864 $ WC "man3ext='" + perl_man3ext + "'"
1865 $ WC "arch='" + perl_arch + "'"
1866 $ WC "archname='" + perl_archname + "'"
1867 $ WC "osvers='" + perl_osvers + "'"
1868 $ WC "prefix='" + perl_prefix + "'"
1869 $ WC "builddir='" + perl_builddir + "'"
1870 $ WC "installbin='" + perl_installbin + "'"
1871 $ WC "installscript='" + perl_installscript + "'"
1872 $ WC "installman1dir='" + perl_installman1dir + "'"
1873 $ WC "installman3dir='" + perl_installman3dir + "'"
1874 $ WC "installprivlib='" + perl_installprivlib + "'"
1875 $ WC "installarchlib='" + perl_installarchlib + "'"
1876 $ WC "installsitelib='" + perl_installsitelib + "'"
1877 $ WC "installsitearch='" + perl_installsitearch + "'"
1878 $ WC "path_sep='" + perl_path_sep + "'"
1879 $ WC "startperl='$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ perl_ + ++$status != 0 and $exit = $status = undef;'"
1880 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
1881 $ WC "d_attribut='" + perl_d_attribut + "'"
1882 $ WC "cc='" + perl_cc + "'"
1883 $ WC "ccflags='" + perl_ccflags + "'"
1884 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
1885 $ WC "d_socket='" + perl_d_socket + "'"
1886 $ WC "d_sockpair='" + perl_d_sockpair + "'"
1887 $ WC "d_gethent='" + perl_d_gethent + "'"
1888 $ WC "d_getsent='" + perl_d_getsent + "'"
1889 $ WC "d_select='" + perl_d_select + "'"
1890 $ WC "i_niin='" + perl_i_niin + "'"
1891 $ WC "i_neterrno='" + perl_i_neterrno + "'"
1892 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
1893 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
1894 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
1895 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
1896 $ WC "d_locconv='" + perl_d_locconv + "'"
1897 $ WC "d_setlocale='" + perl_d_setlocale + "'"
1898 $ WC "i_locale='" + perl_i_locale + "'"
1899 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
1900 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
1901 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
1902 $ WC "d_wctomb='" + perl_d_wctomb + "'"
1903 $ WC "d_mblen='" + perl_d_mblen + "'"
1904 $ WC "d_mktime='" + perl_d_mktime + "'"
1905 $ WC "d_strcoll='" + perl_d_strcoll + "'"
1906 $ WC "d_strxfrm='" + perl_d_strxfrm + "'"
1907 $ WC "ldflags='" + perl_ldflags + "'"
1908 $ WC "dlobj='" + perl_dlobj + "'"
1909 $ WC "obj_ext='" + perl_obj_ext + "'"
1910 $ WC "so='" + perl_so + "'"
1911 $ WC "dlext='" + perl_dlext + "'"
1912 $ WC "exe_ext='" + perl_exe_ext + "'"
1913 $ WC "lib_ext='" + perl_lib_ext + "'"
1914 $ WC "myhostname='" + perl_myhostname + "'"
1915 $ WC "mydomain='" + perl_mydomain + "'"
1916 $ WC "perladmin='" + perl_perladmin + "'"
1917 $ WC "cf_email='" + perl_cf_email + "'"
1918 $ WC "myuname='" + perl_myuname + "'"
1919 $ WC "alignbytes='" + perl_alignbytes + "'"
1920 $ WC "osname='" + perl_osname + "'"
1921 $ WC "d_archlib='" + perl_d_archlib + "'"
1922 $ WC "archlibexp='" + perl_archlibexp + "'"
1923 $ WC "archlib='" + perl_archlib + "'"
1924 $ WC "archname='" + perl_archname + "'"
1925 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
1926 $ WC "cppstdin='" + perl_cppstdin + "'"
1927 $ WC "cppminus='" + perl_cppminus + "'"
1928 $ WC "d_bcmp='" + perl_d_bcmp + "'"
1929 $ WC "d_bcopy='" + perl_d_bcopy + "'"
1930 $ WC "d_bzero='" + perl_d_bzero + "'"
1931 $ WC "d_castneg='" + perl_d_castneg + "'"
1932 $ WC "castflags='" + perl_castflags + "'"
1933 $ WC "d_chsize='" + perl_d_chsize + "'"
1934 $ WC "d_const='" + perl_d_const + "'"
1935 $ WC "d_crypt='" + perl_d_crypt + "'"
1936 $ WC "byteorder='" + perl_byteorder + "'"
1937 $ WC "full_csh='" + perl_full_csh + "'"
1938 $ WC "d_csh='" + perl_d_csh + "'"
1939 $ WC "d_dup2='" + perl_d_dup2 + "'"
1940 $ WC "d_fchmod='" + perl_d_fchmod + "'"
1941 $ WC "d_fchown='" + perl_d_fchown + "'"
1942 $ WC "d_fcntl='" + perl_d_fcntl + "'"
1943 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
1944 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
1945 $ WC "d_flock='" + perl_d_flock + "'"
1946 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
1947 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
1948 $ WC "d_getgrps='" + perl_d_getgrps + "'"
1949 $ WC "d_setgrps='" + perl_d_setgrps + "'"
1950 $ WC "d_uname='" + perl_d_uname + "'"
1951 $ WC "d_getprior='" + perl_d_getprior + "'"
1952 $ WC "d_killpg='" + perl_d_killpg + "'"
1953 $ WC "d_link='" + perl_d_link + "'"
1954 $ WC "d_lstat='" + perl_d_lstat + "'"
1955 $ WC "d_lockf='" + perl_d_lockf + "'"
1956 $ WC "d_memcmp='" + perl_d_memcmp + "'"
1957 $ WC "d_memcpy='" + perl_d_memcpy + "'"
1958 $ WC "d_memmove='" + perl_d_memmove + "'"
1959 $ WC "d_memset='" + perl_d_memset + "'"
1960 $ WC "d_mkdir='" + perl_d_mkdir + "'"
1961 $ WC "d_msg='" + perl_d_msg + "'"
1962 $ WC "d_open3='" + perl_d_open3 + "'"
1963 $ WC "d_poll='" + perl_d_poll + "'"
1964 $ WC "d_readdir='" + perl_d_readdir + "'"
1965 $ WC "d_seekdir='" + perl_d_seekdir + "'"
1966 $ WC "d_telldir='" + perl_d_telldir + "'"
1967 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
1968 $ WC "d_rename='" + perl_d_rename + "'"
1969 $ WC "d_rmdir='" + perl_d_rmdir + "'"
1970 $ WC "d_sem='" + perl_d_sem + "'"
1971 $ WC "d_setegid='" + perl_d_setegid + "'"
1972 $ WC "d_seteuid='" + perl_d_seteuid + "'"
1973 $ WC "d_setprior='" + perl_d_setprior + "'"
1974 $ WC "d_setregid='" + perl_d_setregid + "'"
1975 $ WC "d_setresgid='" + perl_d_setresgid + "'"
1976 $ WC "d_setreuid='" + perl_d_setreuid + "'"
1977 $ WC "d_setresuid='" + perl_d_setresuid + "'"
1978 $ WC "d_setrgid='" + perl_d_setrgid + "'"
1979 $ WC "d_setruid='" + perl_d_setruid + "'"
1980 $ WC "d_setsid='" + perl_d_setsid + "'"
1981 $ WC "d_shm='" + perl_d_shm + "'"
1982 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
1983 $ WC "d_sigaction='" + perl_d_sigaction + "'"
1984 $ WC "d_statblks='" + perl_d_statblks + "'"
1985 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
1986 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
1987 $ WC "stdio_base='" + perl_stdio_base + "'"
1988 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
1989 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
1990 $ WC "d_strerror='" + perl_d_strerror + "'"
1991 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
1992 $ WC "d_strerrm='" + perl_d_strerrm + "'"
1993 $ WC "d_symlink='" + perl_d_symlink + "'"
1994 $ WC "d_syscall='" + perl_d_syscall + "'"
1995 $ WC "d_system='" + perl_d_system + "'"
1996 $ WC "timetype='" + perl_timetype + "'"
1997 $ WC "d_truncate='" + perl_d_truncate + "'"
1998 $ WC "d_vfork='" + perl_d_vfork + "'"
1999 $ WC "signal_t='" + perl_signal_t + "'"
2000 $ WC "d_volatile='" + perl_d_volatile + "'"
2001 $ WC "d_vprintf='" + perl_d_vprintf + "'"
2002 $ WC "d_charvspr='" + perl_d_charvspr + "'"
2003 $ WC "d_wait4='" + perl_d_wait4 + "'"
2004 $ WC "d_waitpid='" + perl_d_waitpid + "'"
2005 $ WC "i_dirent='" + perl_i_dirent + "'"
2006 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
2007 $ WC "direntrytype='" + perl_direntrytype + "'"
2008 $ WC "i_fcntl='" + perl_i_fcntl + "'"
2009 $ WC "i_grp='" + perl_i_grp + "'"
2010 $ WC "i_limits='" + perl_i_limits + "'"
2011 $ WC "i_memory='" + perl_i_memory + "'"
2012 $ WC "i_ndbm='" + perl_i_ndbm + "'"
2013 $ WC "i_stdarg='" + perl_i_stdarg + "'"
2014 $ WC "i_pwd='" + perl_i_pwd + "'"
2015 $ WC "d_pwquota='" + perl_d_pwquota + "'"
2016 $ WC "d_pwage='" + perl_d_pwage + "'"
2017 $ WC "d_pwchange='" + perl_d_pwchange + "'"
2018 $ WC "d_pwclass='" + perl_d_pwclass + "'"
2019 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
2020 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
2021 $ WC "i_stddef='" + perl_i_stddef + "'"
2022 $ WC "i_stdlib='" + perl_i_stdlib + "'"
2023 $ WC "i_string='" + perl_i_string + "'"
2024 $ WC "i_sysdir='" + perl_i_sysdir + "'"
2025 $ WC "i_sysfile='" + perl_i_sysfile + "'"
2026 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
2027 $ WC "i_sysndir='" + perl_i_sysndir + "'"
2028 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
2029 $ WC "i_sysselct='" + perl_i_sysselct + "'"
2030 $ WC "i_dbm='" + perl_i_dbm + "'"
2031 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
2032 $ WC "i_sfio='" + perl_i_sfio + "'"
2033 $ WC "i_sysstat='" + perl_i_sysstat + "'"
2034 $ WC "i_systimes='" + perl_i_systimes + "'"
2035 $ WC "i_systypes='" + perl_i_systypes + "'"
2036 $ WC "i_sysun='" + perl_i_sysun + "'"
2037 $ WC "i_syswait='" + perl_i_syswait + "'"
2038 $ WC "i_termio='" + perl_i_termio + "'"
2039 $ WC "i_sgtty='" + perl_i_sgtty + "'"
2040 $ WC "i_termios='" + perl_i_termios + "'"
2041 $ WC "i_time='" + perl_i_time + "'"
2042 $ WC "i_systime='" + perl_i_systime + "'"
2043 $ WC "i_systimek='" + perl_i_systimek + "'"
2044 $ WC "i_unistd='" + perl_i_unistd + "'"
2045 $ WC "i_utime='" + perl_i_utime + "'"
2046 $ WC "i_varargs='" + perl_i_varargs + "'"
2047 $ WC "i_vfork='" + perl_i_vfork + "'"
2048 $ WC "prototype='" + perl_prototype + "'"
2049 $ WC "randbits='" + perl_randbits +"'"
2050 $ WC "selecttype='" + perl_selecttype + "'"
2051 $ WC "stdchar='" + perl_stdchar + "'"
2052 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
2053 $ WC "full_sed='" + perl_full_sed + "'"
2054 $ WC "bin='" + perl_bin + "'"
2055 $ WC "binexp='" + perl_binexp + "'"
2056 $ WC "d_alarm='" + perl_d_alarm + "'"
2057 $ WC "d_casti32='" + perl_d_casti32 + "'"
2058 $ WC "d_chown='" + perl_d_chown + "'"
2059 $ WC "d_chroot='" + perl_d_chroot + "'"
2060 $ WC "d_cuserid='" + perl_d_cuserid + "'"
2061 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
2062 $ WC "d_difftime='" + perl_d_difftime + "'"
2063 $ WC "d_fork='" + perl_d_fork + "'"
2064 $ WC "d_getlogin='" + perl_d_getlogin + "'"
2065 $ WC "d_getppid='" + perl_d_getppid + "'"
2066 $ WC "d_htonl='" + perl_d_htonl + "'"
2067 $ WC "d_nice='" + perl_d_nice + "'"
2068 $ WC "d_pause='" + perl_d_pause + "'"
2069 $ WC "d_pipe='" + perl_d_pipe + "'"
2070 $ WC "d_readlink='" + perl_d_readlink + "'"
2071 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
2072 $ WC "d_strchr='" + perl_d_strchr + "'"
2073 $ WC "d_index='" + perl_d_index + "'"
2074 $ WC "d_strtod='" + perl_d_strtod + "'"
2075 $ WC "d_strtol='" + perl_d_strtol + "'"
2076 $ WC "d_strtoul='" + perl_d_strtoul + "'"
2077 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
2078 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
2079 $ WC "d_times='" + perl_d_times + "'"
2080 $ WC "d_tzname='" + perl_d_tzname + "'"
2081 $ WC "d_umask='" + perl_d_umask + "'"
2082 $ WC "fpostype='" + perl_fpostype + "'"
2083 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
2084 $ WC "i_float='" + perl_i_float + "'"
2085 $ WC "i_math='" + perl_i_math + "'"
2086 $ WC "intsize='" + perl_intsize + "'"
2087 $ WC "longsize='" + perl_longsize + "'"
2088 $ WC "shortsize='" + perl_shortsize + "'"
2089 $ WC "lseektype='" + perl_lseektype + "'"
2090 $ WC "i_values='" + perl_i_values + "'"
2091 $ WC "malloctype='" + perl_malloctype + "'"
2092 $ WC "freetype='" + perl_freetype + "'"
2093 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
2094 $ WC "sh='" + perl_sh + "'"
2095 $ WC "sig_name='" + perl_sig_name + "'"
2096 $ WC "sig_num='" + perl_sig_num + "'"
2097 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
2099 $ WC "modetype='" + perl_modetype + "'"
2100 $ WC "ssizetype='" + perl_ssizetype + "'"
2101 $ WC "o_nonblock='" + perl_o_nonblock + "'"
2102 $ WC "eagain='" + perl_eagain + "'"
2103 $ WC "rd_nodata='" + perl_rd_nodata + "'"
2104 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
2105 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
2106 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
2107 $ WC "oldarchlib='" + perl_oldarchlib + "'"
2108 $ WC "privlibexp='" + perl_privlibexp + "'"
2109 $ WC "privlib='" + perl_privlib + "'"
2110 $ WC "sitelibexp='" + perl_sitelibexp + "'"
2111 $ WC "sitelib='" + perl_sitelib + "'"
2112 $ WC "sitearchexp='" + perl_sitearchexp + "'"
2113 $ WC "sitearch='" + perl_sitearch + "'"
2114 $ WC "sizetype='" + perl_sizetype + "'"
2115 $ WC "i_sysparam='" + perl_i_sysparam + "'"
2116 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
2117 $ WC "d_dlerror='" + perl_d_dlerror + "'"
2118 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
2119 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
2120 $ WC "d_dosuid='" + perl_d_dosuid + "'"
2121 $ WC "d_inetaton='" + perl_d_inetaton + "'"
2122 $ WC "d_isascii='" + perl_d_isascii + "'"
2123 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
2124 $ WC "d_pathconf='" + perl_d_pathconf + "'"
2125 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
2126 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
2127 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
2128 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
2129 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
2130 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
2131 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
2132 $ WC "d_setpgid='" + perl_d_setpgid + "'"
2133 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
2134 $ WC "d_sysconf='" + perl_d_sysconf + "'"
2135 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
2136 $ WC "d_getpgid='" + perl_d_getpgid + "'"
2137 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
2138 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
2139 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
2140 $ WC "d_sfio='" + perl_d_sfio + "'"
2141 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
2142 $ WC "usedl='" + perl_usedl + "'"
2143 $ WC "startperl='" + perl_startperl + "'"
2144 $ WC "db_hashtype='" + perl_db_hashtype + "'"
2145 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
2146 $ WC "useperlio='" + perl_useperlio + "'"
2147 $ WC "defvoidused='" + perl_defvoidused + "'"
2148 $ WC "voidflags='" + perl_voidflags + "'"
2149 $ WC "d_eunice='" + perl_d_eunice + "'"
2150 $ WC "libs='" + perl_libs + "'"
2151 $ WC "libc='" + perl_libc + "'"
2152 $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
2154 $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
2156 $ WC "pager='" + perl_pager + "'"
2157 $ WC "uidtype='" + perl_uidtype + "'"
2158 $ WC "gidtype='" + perl_gidtype + "'"
2159 $ WC "usethreads='" + perl_usethreads + "'"
2160 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
2161 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
2162 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
2163 $ WC "i_netdb='" + perl_i_netdb + "'"
2164 $ WC "pidtype='" + perl_pidtype + "'"
2165 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
2166 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
2167 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
2168 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
2169 $ WC "baserev='" + perl_baserev + "'"
2170 $ WC "doublesize='" + perl_doublesize + "'"
2171 $ WC "ptrsize='" + perl_ptrsize + "'"
2172 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
2173 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
2174 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
2175 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
2176 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
2177 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
2178 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
2179 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
2180 $ WC "d_sethent='" + perl_d_sethent + "'"
2181 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
2182 $ WC "d_longdbl='" + perl_d_longdbl + "'"
2183 $ WC "longdblsize='" + perl_longdblsize + "'"
2184 $ WC "d_longlong='" + perl_d_longlong + "'"
2185 $ WC "longlongsize='" + perl_longlongsize + "'"
2186 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
2187 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
2188 $ WC "d_endhent='" + perl_d_endhent + "'"
2189 $ WC "d_endnent='" + perl_d_endsent + "'"
2190 $ WC "d_endpent='" + perl_d_endpent + "'"
2191 $ WC "d_endsent='" + perl_d_endsent + "'"
2192 $ WC "d_gethent='" + perl_d_gethent + "'"
2193 $ WC "d_getnent='" + perl_d_getsent + "'"
2194 $ WC "d_getpent='" + perl_d_getpent + "'"
2195 $ WC "d_getsent='" + perl_d_getsent + "'"
2196 $ WC "d_sethent='" + perl_d_sethent + "'"
2197 $ WC "d_setnent='" + perl_d_setsent + "'"
2198 $ WC "d_setpent='" + perl_d_setpent + "'"
2199 $ WC "d_setsent='" + perl_d_setsent + "'"
2200 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
2201 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
2202 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
2203 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
2204 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
2205 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
2206 $ WC "d_lchown='" + perl_d_lchown + "'"
2207 $ WC "d_union_semun='" + perl_d_union_semun + "'"
2208 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
2209 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
2210 $ WC "extensions='" + perl_extensions + "'"
2214 $! Okay, we've gotten here. Build munchconfig and run it
2215 $ 'Perl_CC' munchconfig
2216 $ If (Needs_Opt.eqs."Yes")
2218 $ open/write OPTCHAN []munchconfig.opt
2219 $ IF ("''using_gnu_c'".eqs."Yes")
2221 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
2223 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
2225 $ link munchconfig,munchconfig/opt
2226 $ delete munchconfig.opt;*
2230 $ WRITE_RESULT "Writing config.h"
2231 $ define/user sys$output [-]config.h
2232 $ mcr []munchconfig [-]config.sh [-]config_h.sh
2233 $ if "''Using_Dec_C'" .eqs."Yes"
2235 $ DECC_REPLACE = "DECC=decc=1"
2237 $ DECC_REPLACE = "DECC="
2239 $ if "''Using_Gnu_C'" .eqs."Yes"
2241 $ GNUC_REPLACE = "GNUC=gnuc=1"
2243 $ GNUC_REPLACE = "GNUC="
2245 $ if "''Has_Dec_C_Sockets'" .eqs."T"
2247 $ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
2249 $ if "''Has_Socketshr'" .eqs."T"
2251 $ SOCKET_REPLACE = "SOCKET=SOCKETSHRSOCKETS=1"
2253 $ SOCKET_REPLACE = "SOCKET="
2256 $ IF ("''Use_Threads'".eqs."T")
2258 $ if ("''VMS_VER'".LES."6.2")
2260 $ THREAD_REPLACE = "THREAD=OLDTHREADED=1"
2262 $ THREAD_REPLACE = "THREAD=THREADED=1"
2265 $ if f$getsyi("HW_MODEL").ge.1024
2267 $ ARCH_TYPE = "ARCH-TYPE=__AXP__"
2269 $ ARCH_TYPE = "ARCH-TYPE=__VAX__"
2271 $ WRITE_RESULT "Writing DESCRIP.MMS"
2273 $ define/user sys$output [-]descrip.mms
2274 $ mcr []munchconfig [-]config.sh descrip_mms.template "''DECC_REPLACE'" "''ARCH_TYPE'" "''GNUC_REPLACE'" "''SOCKET_REPLACE'" "''THREAD_REPLACE'" "''C_Compiler_Replace'"
2277 $! Clean up after ourselves
2278 $ delete/nolog munchconfig.exe;*
2279 $ delete/nolog munchconfig.obj;*