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 f$length(Mcc) .eq. 0 then Mcc := "cc"
20 $ MCC = f$edit(mcc, "UPCASE")
23 $ C_Compiler_Replace := "CC="
25 $ C_Compiler_Replace := "CC=CC=''Mcc'"
27 $ if "''Using_Dec_C'" .eqs. "Yes"
29 $ Checkcc := "''Mcc'/prefix=all"
34 $! Some constant defaults.
36 $ hwname = f$getsyi("HW_NAME")
38 $ if "''myname'" .eqs. "" THEN myname = f$trnlnm("SYS$NODE")
39 $ perl_package="''package'"
40 $ perl_baserev = "''baserev'"
43 $ perl_i_netdb="undef"
44 $ perl_d_gnulibc="undef"
45 $ perl_cf_by="unknown"
49 $ perl_libpth="/sys$share /sys$library"
51 $ perl_lddlflags="/Share"
57 $ perl_shrplib="define"
58 $ perl_usemymalloc=mymalloc
59 $ perl_usevfork="true"
60 $ perl_useposix="false"
61 $ perl_spitshell="write sys$output "
62 $ perl_dlsrc="dl_vms.c"
65 $ perl_prefix="perl_root"
66 $ perl_binexp="''perl_prefix':[000000]"
67 $ perl_builddir="''perl_prefix':[000000]"
68 $ perl_installbin="''perl_prefix':[000000]"
69 $ perl_installscript="''perl_prefix':[000000]"
70 $ perl_installman1dir="''perl_prefix':[man.man1]"
71 $ perl_installman3dir="''perl_prefix':[man.man3]"
72 $ perl_installprivlib="''perl_prefix':[lib]"
73 $ perl_installsitelib="''perl_prefix':[lib.site_perl]"
76 $ perl_d_sockpair="undef"
77 $ perl_i_neterrno="define"
78 $ perl_ldflags="/NoTrace/NoMap"
79 $ perl_d_lchown="undef"
80 $ perl_d_union_semun="undef"
81 $ perl_d_semctl_semun="undef"
82 $ perl_d_semctl_semid_ds="undef"
83 $ IF (sharedperl.EQS."Y")
97 $ perl_dlobj="dl_vms''perl_obj_ext'"
99 $ perl_d_archlib="define"
100 $ perl_d_bincompat3="undef"
101 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
103 $ perl_d_castneg="define"
105 $ perl_d_chsize="undef"
106 $ perl_d_const="define"
107 $ perl_d_crypt="define"
108 $ perl_byteorder="1234"
111 $ perl_d_dup2="define"
112 $ perl_d_fchmod="undef"
113 $ perl_d_fchown="undef"
114 $ perl_d_fcntl="undef"
115 $ perl_d_fgetpos="define"
116 $ perl_d_flexfnam="define"
117 $ perl_d_flock="undef"
118 $ perl_d_fsetpos="define"
119 $ perl_d_getgrps="undef"
120 $ perl_d_setgrps="undef"
121 $ perl_d_getprior="undef"
122 $ perl_d_killpg="undef"
123 $ perl_d_link="undef"
124 $ perl_d_lstat="undef"
125 $ perl_d_lockf="undef"
126 $ perl_d_memcmp="define"
127 $ perl_d_memcpy="define"
128 $ perl_d_memmove="define"
129 $ perl_d_memset="define"
130 $ perl_d_mkdir="define"
132 $ perl_d_open3="define"
133 $ perl_d_poll="undef"
134 $ perl_d_readdir="define"
135 $ perl_d_seekdir="define"
136 $ perl_d_telldir="define"
137 $ perl_d_rewinddir="define"
138 $ perl_d_rename="define"
139 $ perl_d_rmdir="define"
141 $ perl_d_setegid="undef"
142 $ perl_d_seteuid="undef"
143 $ perl_d_setprior="undef"
144 $ perl_d_setregid="undef"
145 $ perl_d_setresgid="undef"
146 $ perl_d_setreuid="undef"
147 $ perl_d_setresuid="undef"
148 $ perl_d_setrgid="undef"
149 $ perl_d_setruid="undef"
150 $ perl_d_setsid="undef"
152 $ perl_d_shmatprototype="undef"
153 $ perl_d_statblks="undef"
154 $ perl_stdio_ptr="((*fp)->_ptr)"
155 $ perl_stdio_cnt="((*fp)->_cnt)"
156 $ perl_stdio_base="((*fp)->_base)"
157 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
158 $ perl_d_strctcpy="define"
159 $ perl_d_strerror="define"
160 $ perl_d_syserrlst="undef"
161 $ perl_d_strerrm="strerror((e),vaxc$errno)"
162 $ perl_d_symlink="undef"
163 $ perl_d_syscall="undef"
164 $ perl_d_system="define"
165 $ perl_timetype="time_t"
166 $ perl_d_vfork="define"
167 $ perl_signal_t="void"
168 $ perl_d_volatile="define"
169 $ perl_d_vprintf="define"
170 $ perl_d_charvspr="undef"
171 $ perl_d_waitpid="define"
172 $ perl_i_dirent="undef"
173 $ perl_d_dirnamlen="define"
174 $ perl_direntrytype="struct dirent"
175 $ perl_i_fcntl="undef"
177 $ perl_i_limits="define"
178 $ perl_i_memory="undef"
179 $ perl_i_ndbm="undef"
180 $ perl_i_stdarg="define"
182 $ perl_d_pwquota="undef"
183 $ perl_d_pwage="undef"
184 $ perl_d_pwchange="undef"
185 $ perl_d_pwclass="undef"
186 $ perl_d_pwexpire="undef"
187 $ perl_d_pwcomment="define"
188 $ perl_i_stddef="define"
189 $ perl_i_stdlib="define"
190 $ perl_i_string="define"
191 $ perl_i_sysdir="undef"
192 $ perl_i_sysfile="undef"
193 $ perl_i_sysioctl="undef"
194 $ perl_i_sysndir="undef"
195 $ perl_i_sysresrc="undef"
196 $ perl_i_sysselct="undef"
198 $ perl_i_rpcsvcdbm="undef"
199 $ perl_i_sfio="undef"
200 $ perl_i_sysstat="define"
201 $ perl_i_systimes="undef"
202 $ perl_i_systypes="define"
203 $ perl_i_sysun="undef"
204 $ perl_i_syswait="undef"
205 $ perl_i_termio="undef"
206 $ perl_i_sgtty="undef"
207 $ perl_i_termios="undef"
208 $ perl_i_time="define"
209 $ perl_i_systime="undef"
210 $ perl_i_systimek="undef"
211 $ perl_i_unistd="undef"
212 $ perl_i_utime="undef"
213 $ perl_i_varargs="undef"
214 $ perl_i_vfork="undef"
215 $ perl_prototype="define"
217 $ perl_stdchar="char"
218 $ perl_d_unlink_all_versions="undef"
219 $ perl_full_sed="_NLA0:"
220 $ perl_bin="/''perl_prefix'/000000"
221 $ perl_binexp="''perl_prefix':[000000]"
222 $ perl_d_alarm="define"
223 $ perl_d_casti32="define"
224 $ perl_d_chown="define"
225 $ perl_d_chroot="undef"
226 $ perl_d_cuserid="define"
227 $ perl_d_dbl_dig="define"
228 $ perl_d_difftime="define"
229 $ perl_d_fork="undef"
230 $ perl_d_getlogin="define"
231 $ perl_d_getppid="undef"
232 $ perl_d_nice="define"
233 $ perl_d_pause="define"
234 $ perl_d_pipe="define"
235 $ perl_d_readlink="undef"
236 $ perl_d_setlinebuf="undef"
237 $ perl_d_strchr="define"
238 $ perl_d_strtod="define"
239 $ perl_d_strtol="define"
240 $ perl_d_strtoul="define"
241 $ perl_d_tcgetpgrp="undef"
242 $ perl_d_tcsetpgrp="undef"
243 $ perl_d_times="define"
244 $ perl_d_tzname="undef"
245 $ perl_d_umask="define"
246 $ perl_fpostype="fpos_t"
247 $ perl_i_dlfcn="undef"
248 $ perl_i_float="define"
249 $ perl_i_math="define"
250 $ perl_lseektype="int"
251 $ perl_i_values="undef"
252 $ perl_malloctype="void *"
253 $ perl_freetype="void"
254 $ if "''mymalloc'".eqs."Y"
256 $ perl_d_mymalloc="define"
258 $ perl_d_mymalloc="undef"
261 $ perl_modetype="unsigned int"
262 $ perl_ssizetype="int"
266 $ perl_d_eofnblk="undef"
267 $ perl_d_oldarchlib="define"
268 $ perl_privlibexp="''perl_prefix':[lib]"
269 $ perl_privlib="''perl_prefix':[lib]"
270 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
271 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
272 $ perl_sizetype="size_t"
273 $ perl_i_sysparam="undef"
274 $ perl_d_void_closedir="define"
275 $ perl_d_dlerror="undef"
276 $ perl_d_dlsymun="undef"
277 $ perl_d_suidsafe="undef"
278 $ perl_d_dosuid="undef"
279 $ perl_d_inetaton="undef"
280 $ perl_d_isascii="define"
281 $ perl_d_mkfifo="undef"
282 $ perl_d_safebcpy="undef"
283 $ perl_d_safemcpy="define"
284 $ perl_d_sanemcmp="define"
285 $ perl_d_setpgrp="undef"
286 $ perl_d_bsdsetpgrp="undef"
287 $ perl_d_bsdpgrp="undef"
288 $ perl_d_setpgid="undef"
289 $ perl_d_setpgrp2="undef"
290 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
291 $ perl_d_getpgid="undef"
292 $ perl_d_getpgrp="undef"
293 $ perl_d_bsdgetpgrp="undef"
294 $ perl_d_getpgrp2="undef"
295 $ perl_d_sfio="undef"
296 $ perl_usedl="define"
298 $ perl_db_hashtype=""
299 $ perl_db_prefixtype=""
300 $ perl_useperlio="undef"
301 $ perl_defvoidused="15"
302 $ perl_voidflags="15"
303 $ perl_d_eunice="undef"
304 $ perl_d_pwgecos="define"
305 $ IF ("''Use_Threads'".eqs."T").and.("''VMS_VER'".LES."6.2")
307 $ 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"
311 $ IF ("''Using_Dec_C'".eqs."Yes")
313 $ perl_libc="(DECCRTL)"
317 $ perl_PATCHLEVEL="''patchlevel'"
318 $ perl_SUBVERSION="''subversion'"
322 $! Now some that we build up
324 $ LocalTime = f$time()
325 $ perl_cf_time= f$extract(0, 3, f$cvtime(LocalTime,, "WEEKDAY")) + " " + -
326 f$edit(f$cvtime(LocalTime, "ABSOLUTE", "MONTH"), "LOWERCASE") + -
327 " " + f$cvtime(LocalTime,, "DAY") + " " + f$cvtime(LocalTime,, "TIME") + -
328 " " + f$cvtime(LocalTime,, "YEAR")
329 $ if f$getsyi("HW_MODEL").ge.1024
331 $ perl_arch="VMS_AXP"
332 $ perl_archname="VMS_AXP"
333 $ perl_alignbytes="8"
335 $ perl_arch="VMS_VAX"
336 $ perl_archname="VMS_VAX"
337 $ perl_alignbytes="8"
339 $ perl_osvers=f$edit(osvers, "TRIM")
340 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion
342 $! Some that we need to invoke the compiler for
343 $ OS := "open/write SOURCECHAN []temp.c"
344 $ WS := "write SOURCECHAN"
345 $ CS := "close SOURCECHAN"
346 $ DS := "delete/nolog []temp.*;*"
348 $ if ("''using_vax_c'".eqs."Yes").or.("''using_gnu_c'".eqs."Yes")
350 $ open/write OPTCHAN []temp.opt
351 $ IF ("''using_gnu_c'".eqs."Yes")
353 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
355 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
360 $! Check for __STDC__
364 $ WS "#include <stdlib.h>
366 $ WS "#include <stdio.h>
369 $ WS "#ifdef __STDC__
370 $ WS "printf(""42\n"");
372 $ WS "printf(""1\n"");
377 $ DEFINE SYS$ERROR _NLA0:
378 $ DEFINE SYS$OUTPUT _NLA0:
379 $ ON ERROR THEN CONTINUE
380 $ ON WARNING THEN CONTINUE
382 $ If (Needs_Opt.eqs."Yes")
388 $ DEASSIGN SYS$OUTPUT
390 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
391 $ DEFINE SYS$ERROR TEMPOUT
392 $ DEFINE SYS$OUTPUT TEMPOUT
395 $ DEASSIGN SYS$OUTPUT
397 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
401 $ perl_cpp_stuff=line
402 $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
404 $! Check for double size
408 $ WS "#include <stdlib.h>
410 $ WS "#include <stdio.h>
414 $ WS "foo = sizeof(double);
415 $ WS "printf(""%d\n"", foo);
419 $ DEFINE SYS$ERROR _NLA0:
420 $ DEFINE SYS$OUTPUT _NLA0:
421 $ ON ERROR THEN CONTINUE
422 $ ON WARNING THEN CONTINUE
424 $ If (Needs_Opt.eqs."Yes")
431 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
432 $ DEASSIGN SYS$OUTPUT
434 $ DEFINE SYS$ERROR TEMPOUT
435 $ DEFINE SYS$OUTPUT TEMPOUT
438 $ DEASSIGN SYS$OUTPUT
440 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
444 $ perl_doublesize=line
445 $ WRITE_RESULT "doublesize is ''perl_doublesize'"
447 $! Check for long double size
451 $ WS "#include <stdlib.h>
453 $ WS "#include <stdio.h>
456 $ WS "printf(""%d\n"", sizeof(long double));
460 $ DEFINE SYS$ERROR _NLA0:
461 $ DEFINE SYS$OUTPUT _NLA0:
462 $ ON ERROR THEN CONTINUE
463 $ ON WARNING THEN CONTINUE
465 $ teststatus = f$extract(9,1,$status)
466 $ if (teststatus.nes."1")
468 $ perl_longdblsize="0"
469 $ perl_d_longdbl="undef"
471 $ ON ERROR THEN CONTINUE
472 $ ON WARNING THEN CONTINUE
473 $ If (Needs_Opt.eqs."Yes")
479 $ teststatus = f$extract(9,1,$status)
480 $ DEASSIGN SYS$OUTPUT
482 $ if (teststatus.nes."1")
484 $ perl_longdblsize="0"
485 $ perl_d_longdbl="undef"
487 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
488 $ DEFINE SYS$ERROR TEMPOUT
489 $ DEFINE SYS$OUTPUT TEMPOUT
492 $ DEASSIGN SYS$OUTPUT
494 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
498 $ perl_longdblsize=line
499 $ perl_d_longdbl="define"
502 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
503 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
505 $! Check for long long existance and size
509 $ WS "#include <stdlib.h>
511 $ WS "#include <stdio.h>
514 $ WS "printf(""%d\n"", sizeof(long long));
518 $ DEFINE SYS$ERROR _NLA0:
519 $ DEFINE SYS$OUTPUT _NLA0:
520 $ on error then continue
521 $ on warning then continue
523 $ If (Needs_Opt.eqs."Yes")
529 $ teststatus = f$extract(9,1,$status)
530 $ DEASSIGN SYS$OUTPUT
532 $ if (teststatus.nes."1")
534 $ perl_longlongsize="0"
535 $ perl_d_longlong="undef"
537 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
538 $ DEFINE SYS$ERROR TEMPOUT
539 $ DEFINE SYS$OUTPUT TEMPOUT
542 $ DEASSIGN SYS$OUTPUT
544 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
548 $ perl_longlongsize=line
549 $ perl_d_longlong="define"
551 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
552 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
554 $! Check for int size
558 $ WS "#include <stdlib.h>
560 $ WS "#include <stdio.h>
563 $ WS "printf(""%d\n"", sizeof(int));
567 $ DEFINE SYS$ERROR _NLA0:
568 $ DEFINE SYS$OUTPUT _NLA0:
569 $ on error then continue
570 $ on warning then continue
572 $ If (Needs_Opt.eqs."Yes")
578 $ If (Needs_Opt.eqs."Yes")
584 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
585 $ DEASSIGN SYS$OUTPUT
587 $ DEFINE SYS$ERROR TEMPOUT
588 $ DEFINE SYS$OUTPUT TEMPOUT
591 $ DEASSIGN SYS$OUTPUT
593 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
598 $ WRITE_RESULT "intsize is ''perl_intsize'"
600 $! Check for short size
604 $ WS "#include <stdlib.h>
606 $ WS "#include <stdio.h>
609 $ WS "printf(""%d\n"", sizeof(short));
613 $ DEFINE SYS$ERROR _NLA0:
614 $ DEFINE SYS$OUTPUT _NLA0:
615 $ on error then continue
616 $ on warning then continue
618 $ If (Needs_Opt.eqs."Yes")
624 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
625 $ DEASSIGN SYS$OUTPUT
627 $ DEFINE SYS$ERROR TEMPOUT
628 $ DEFINE SYS$OUTPUT TEMPOUT
631 $ DEASSIGN SYS$OUTPUT
633 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
637 $ perl_shortsize=line
638 $ WRITE_RESULT "shortsize is ''perl_shortsize'"
640 $! Check for long size
644 $ WS "#include <stdlib.h>
646 $ WS "#include <stdio.h>
650 $ WS "foo = sizeof(long);
651 $ WS "printf(""%d\n"", foo);
655 $ DEFINE SYS$ERROR _NLA0:
656 $ DEFINE SYS$OUTPUT _NLA0:
657 $ on error then continue
658 $ on warning then continue
660 $ If (Needs_Opt.eqs."Yes")
666 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
667 $ DEASSIGN SYS$OUTPUT
669 $ DEFINE SYS$ERROR TEMPOUT
670 $ DEFINE SYS$OUTPUT TEMPOUT
673 $ DEASSIGN SYS$OUTPUT
675 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
680 $ WRITE_RESULT "longsize is ''perl_longsize'"
682 $! Check the prototype for getgid
686 $ WS "#include <stdlib.h>
688 $ WS "#include <stdio.h>
689 $ WS "#include <types.h>
690 $ WS "#include <unistd.h>
697 $ DEFINE SYS$ERROR _NLA0:
698 $ DEFINE SYS$OUTPUT _NLA0:
699 $ on error then continue
700 $ on warning then continue
702 $ teststatus = f$extract(9,1,$status)
703 $ DEASSIGN SYS$OUTPUT
705 $ if (teststatus.nes."1")
707 $! Okay, gid_t failed. Must be unsigned int
708 $ perl_gidtype = "unsigned int"
710 $ perl_gidtype = "gid_t"
712 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
714 $! Check the prototype for select
716 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
720 $ WS "#include <stdlib.h>
722 $ WS "#include <stdio.h>
723 $ WS "#include <types.h>
724 $ WS "#include <unistd.h>
725 $ if ("''Has_Socketshr'".eqs."T")
727 $ WS "#include <socketshr.h>"
729 $ WS "#include <time.h>
730 $ WS "#include <socket.h>
737 $ WS "bar = select(2, foo, foo, foo, NULL);
741 $ DEFINE SYS$ERROR _NLA0:
742 $ DEFINE SYS$OUTPUT _NLA0:
743 $ on error then continue
744 $ on warning then continue
746 $ teststatus = f$extract(9,1,$status)
747 $ DEASSIGN SYS$OUTPUT
749 $ if (teststatus.nes."1")
751 $! Okay, fd_set failed. Must be an int
752 $ perl_selecttype = "int *"
754 $ perl_selecttype="fd_set *"
757 $ ! No sockets, so stick in an int *
758 $ perl_selecttype = "int *"
760 $ WRITE_RESULT "selectype is ''perl_selecttype'"
766 $ WS "#include <stdlib.h>
768 $ WS "#include <stdio.h>
769 $ WS "#include <strings.h>
773 $ WS "bzero(foo, 10);
777 $ DEFINE SYS$ERROR _NLA0:
778 $ DEFINE SYS$OUTPUT _NLA0:
779 $ on error then continue
780 $ on warning then continue
782 $ savedstatus = $status
783 $ teststatus = f$extract(9,1,savedstatus)
784 $ if (teststatus.nes."1")
786 $ perl_d_bzero="undef"
787 $ DEASSIGN SYS$OUTPUT
790 $ If (Needs_Opt.eqs."Yes")
796 $ savedstatus = $status
797 $ teststatus = f$extract(9,1,savedstatus)
798 $ DEASSIGN SYS$OUTPUT
800 $ if (teststatus.nes."1")
802 $ perl_d_bzero="undef"
804 $ perl_d_bzero="define"
807 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
813 $ WS "#include <stdlib.h>
815 $ WS "#include <stdio.h>
816 $ WS "#include <strings.h>
819 $ WS "char foo[10], bar[10];
820 $ WS "bcopy(""foo"", bar, 3);
824 $ DEFINE SYS$ERROR _NLA0:
825 $ DEFINE SYS$OUTPUT _NLA0:
826 $ on error then continue
827 $ on warning then continue
829 $ savedstatus = $status
830 $ teststatus = f$extract(9,1,savedstatus)
831 $ if (teststatus.nes."1")
833 $ perl_d_bcopy="undef"
834 $ DEASSIGN SYS$OUTPUT
837 $ If (Needs_Opt.eqs."Yes")
843 $ savedstatus = $status
844 $ teststatus = f$extract(9,1,savedstatus)
845 $ DEASSIGN SYS$OUTPUT
847 $ if (teststatus.nes."1")
849 $ perl_d_bcopy="undef"
851 $ perl_d_bcopy="define"
854 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
860 $ WS "#include <stdlib.h>
862 $ WS "#include <stdio.h>
865 $ WS "mkstemp(""foo"");
869 $ DEFINE SYS$ERROR _NLA0:
870 $ DEFINE SYS$OUTPUT _NLA0:
871 $ on error then continue
872 $ on warning then continue
874 $ If (Needs_Opt.eqs."Yes")
880 $ savedstatus = $status
881 $ teststatus = f$extract(9,1,savedstatus)
882 $ DEASSIGN SYS$OUTPUT
884 $ if (teststatus.nes."1")
886 $ perl_d_mkstemp="undef"
888 $ perl_d_mkstemp="define"
890 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
896 $ WS "#include <stdlib.h>
898 $ WS "#include <stdio.h>
902 $ WS "char Buffer[99];
903 $ WS "foo = fopen(""foo"", ""r"");
904 $ WS "setvbuf(foo, Buffer, 0, 0);
908 $ DEFINE SYS$ERROR _NLA0:
909 $ DEFINE SYS$OUTPUT _NLA0:
910 $ on error then continue
911 $ on warning then continue
913 $ If (Needs_Opt.eqs."Yes")
919 $ teststatus = f$extract(9,1,$status)
920 $ DEASSIGN SYS$OUTPUT
922 $ if (teststatus.nes."1")
924 $ perl_d_setvbuf="undef"
926 $ perl_d_setvbuf="define"
928 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
930 $! Check for <netinet/in.h>
932 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
936 $ WS "#include <stdlib.h>
938 $ WS "#include <stdio.h>
939 $ if ("''Has_Socketshr'".eqs."T")
941 $ WS "#include <socketshr.h>"
943 $ WS "#include <netdb.h>
945 $ WS "#include <netinet/in.h>"
951 $ DEFINE SYS$ERROR _NLA0:
952 $ DEFINE SYS$OUTPUT _NLA0:
953 $ on error then continue
954 $ on warning then continue
956 $ If (Needs_Opt.eqs."Yes")
962 $ teststatus = f$extract(9,1,$status)
963 $ DEASSIGN SYS$OUTPUT
965 $ if (teststatus.nes."1")
967 $ perl_i_niin="undef"
969 $ perl_i_niin="define"
972 $ perl_i_niin="undef"
974 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
976 $! Check for endhostent
978 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
982 $ WS "#include <stdlib.h>
984 $ WS "#include <stdio.h>
985 $ if ("''Has_Socketshr'".eqs."T")
987 $ WS "#include <socketshr.h>"
989 $ WS "#include <netdb.h>
997 $ DEFINE SYS$ERROR _NLA0:
998 $ DEFINE SYS$OUTPUT _NLA0:
999 $ on error then continue
1000 $ on warning then continue
1002 $ If (Needs_Opt.eqs."Yes")
1004 $ link temp,temp/opt
1008 $ teststatus = f$extract(9,1,$status)
1009 $ DEASSIGN SYS$OUTPUT
1010 $ DEASSIGN SYS$ERROR
1011 $ if (teststatus.nes."1")
1013 $ perl_d_endhent="undef"
1015 $ perl_d_endhent="define"
1018 $ perl_d_endhent="undef"
1020 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
1022 $! Check for endnetent
1024 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1028 $ WS "#include <stdlib.h>
1030 $ WS "#include <stdio.h>
1031 $ if ("''Has_Socketshr'".eqs."T")
1033 $ WS "#include <socketshr.h>"
1035 $ WS "#include <netdb.h>
1043 $ DEFINE SYS$ERROR _NLA0:
1044 $ DEFINE SYS$OUTPUT _NLA0:
1045 $ on error then continue
1046 $ on warning then continue
1048 $ If (Needs_Opt.eqs."Yes")
1050 $ link temp,temp/opt
1054 $ teststatus = f$extract(9,1,$status)
1055 $ DEASSIGN SYS$OUTPUT
1056 $ DEASSIGN SYS$ERROR
1057 $ if (teststatus.nes."1")
1059 $ perl_d_endnent="undef"
1061 $ perl_d_endnent="define"
1064 $ perl_d_endnent="undef"
1066 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
1068 $! Check for endprotoent
1070 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1074 $ WS "#include <stdlib.h>
1076 $ WS "#include <stdio.h>
1077 $ if ("''Has_Socketshr'".eqs."T")
1079 $ WS "#include <socketshr.h>"
1081 $ WS "#include <netdb.h>
1085 $ WS "endprotoent();
1089 $ DEFINE SYS$ERROR _NLA0:
1090 $ DEFINE SYS$OUTPUT _NLA0:
1091 $ on error then continue
1092 $ on warning then continue
1094 $ If (Needs_Opt.eqs."Yes")
1096 $ link temp,temp/opt
1100 $ teststatus = f$extract(9,1,$status)
1101 $ DEASSIGN SYS$OUTPUT
1102 $ DEASSIGN SYS$ERROR
1103 $ if (teststatus.nes."1")
1105 $ perl_d_endpent="undef"
1107 $ perl_d_endpent="define"
1110 $ perl_d_endpent="undef"
1112 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
1114 $! Check for endservent
1116 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1120 $ WS "#include <stdlib.h>
1122 $ WS "#include <stdio.h>
1123 $ if ("''Has_Socketshr'".eqs."T")
1125 $ WS "#include <socketshr.h>"
1127 $ WS "#include <netdb.h>
1135 $ DEFINE SYS$ERROR _NLA0:
1136 $ DEFINE SYS$OUTPUT _NLA0:
1137 $ on error then continue
1138 $ on warning then continue
1140 $ If (Needs_Opt.eqs."Yes")
1142 $ link temp,temp/opt
1146 $ teststatus = f$extract(9,1,$status)
1147 $ DEASSIGN SYS$OUTPUT
1148 $ DEASSIGN SYS$ERROR
1149 $ if (teststatus.nes."1")
1151 $ perl_d_endsent="undef"
1153 $ perl_d_endsent="define"
1156 $ perl_d_endsent="undef"
1158 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
1160 $! Check for sethostent
1162 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1166 $ WS "#include <stdlib.h>
1168 $ WS "#include <stdio.h>
1169 $ if ("''Has_Socketshr'".eqs."T")
1171 $ WS "#include <socketshr.h>"
1173 $ WS "#include <netdb.h>
1177 $ WS "sethostent(1);
1181 $ DEFINE SYS$ERROR _NLA0:
1182 $ DEFINE SYS$OUTPUT _NLA0:
1183 $ on error then continue
1184 $ on warning then continue
1186 $ If (Needs_Opt.eqs."Yes")
1188 $ link temp,temp/opt
1192 $ teststatus = f$extract(9,1,$status)
1193 $ DEASSIGN SYS$OUTPUT
1194 $ DEASSIGN SYS$ERROR
1195 $ if (teststatus.nes."1")
1197 $ perl_d_sethent="undef"
1199 $ perl_d_sethent="define"
1202 $ perl_d_sethent="undef"
1204 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
1206 $! Check for setnetent
1208 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1212 $ WS "#include <stdlib.h>
1214 $ WS "#include <stdio.h>
1215 $ if ("''Has_Socketshr'".eqs."T")
1217 $ WS "#include <socketshr.h>"
1219 $ WS "#include <netdb.h>
1227 $ DEFINE SYS$ERROR _NLA0:
1228 $ DEFINE SYS$OUTPUT _NLA0:
1229 $ on error then continue
1230 $ on warning then continue
1232 $ If (Needs_Opt.eqs."Yes")
1234 $ link temp,temp/opt
1238 $ teststatus = f$extract(9,1,$status)
1239 $ DEASSIGN SYS$OUTPUT
1240 $ DEASSIGN SYS$ERROR
1241 $ if (teststatus.nes."1")
1243 $ perl_d_setnent="undef"
1245 $ perl_d_setnent="define"
1248 $ perl_d_setnent="undef"
1250 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
1252 $! Check for setprotoent
1254 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1258 $ WS "#include <stdlib.h>
1260 $ WS "#include <stdio.h>
1261 $ if ("''Has_Socketshr'".eqs."T")
1263 $ WS "#include <socketshr.h>"
1265 $ WS "#include <netdb.h>
1269 $ WS "setprotoent(1);
1273 $ DEFINE SYS$ERROR _NLA0:
1274 $ DEFINE SYS$OUTPUT _NLA0:
1275 $ on error then continue
1276 $ on warning then continue
1278 $ If (Needs_Opt.eqs."Yes")
1280 $ link temp,temp/opt
1284 $ teststatus = f$extract(9,1,$status)
1285 $ DEASSIGN SYS$OUTPUT
1286 $ DEASSIGN SYS$ERROR
1287 $ if (teststatus.nes."1")
1289 $ perl_d_setpent="undef"
1291 $ perl_d_setpent="define"
1294 $ perl_d_setpent="undef"
1296 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
1298 $! Check for setservent
1300 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1304 $ WS "#include <stdlib.h>
1306 $ WS "#include <stdio.h>
1307 $ if ("''Has_Socketshr'".eqs."T")
1309 $ WS "#include <socketshr.h>"
1311 $ WS "#include <netdb.h>
1315 $ WS "setservent(1);
1319 $ DEFINE SYS$ERROR _NLA0:
1320 $ DEFINE SYS$OUTPUT _NLA0:
1321 $ on error then continue
1322 $ on warning then continue
1324 $ If (Needs_Opt.eqs."Yes")
1326 $ link temp,temp/opt
1330 $ teststatus = f$extract(9,1,$status)
1331 $ DEASSIGN SYS$OUTPUT
1332 $ DEASSIGN SYS$ERROR
1333 $ if (teststatus.nes."1")
1335 $ perl_d_setsent="undef"
1337 $ perl_d_setsent="define"
1340 $ perl_d_setsent="undef"
1342 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
1344 $! Check for gethostent
1346 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1350 $ WS "#include <stdlib.h>
1352 $ WS "#include <stdio.h>
1353 $ if ("''Has_Socketshr'".eqs."T")
1355 $ WS "#include <socketshr.h>"
1357 $ WS "#include <netdb.h>
1365 $ DEFINE SYS$ERROR _NLA0:
1366 $ DEFINE SYS$OUTPUT _NLA0:
1367 $ on error then continue
1368 $ on warning then continue
1370 $ If (Needs_Opt.eqs."Yes")
1372 $ link temp,temp/opt
1376 $ teststatus = f$extract(9,1,$status)
1377 $ DEASSIGN SYS$OUTPUT
1378 $ DEASSIGN SYS$ERROR
1379 $ if (teststatus.nes."1")
1381 $ perl_d_gethent="undef"
1383 $ perl_d_gethent="define"
1386 $ perl_d_gethent="undef"
1388 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
1390 $! Check for getnetent
1392 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1396 $ WS "#include <stdlib.h>
1398 $ WS "#include <stdio.h>
1399 $ if ("''Has_Socketshr'".eqs."T")
1401 $ WS "#include <socketshr.h>"
1403 $ WS "#include <netdb.h>
1411 $ DEFINE SYS$ERROR _NLA0:
1412 $ DEFINE SYS$OUTPUT _NLA0:
1413 $ on error then continue
1414 $ on warning then continue
1416 $ If (Needs_Opt.eqs."Yes")
1418 $ link temp,temp/opt
1422 $ teststatus = f$extract(9,1,$status)
1423 $ DEASSIGN SYS$OUTPUT
1424 $ DEASSIGN SYS$ERROR
1425 $ if (teststatus.nes."1")
1427 $ perl_d_getnent="undef"
1429 $ perl_d_getnent="define"
1432 $ perl_d_getnent="undef"
1434 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
1436 $! Check for getprotoent
1438 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1442 $ WS "#include <stdlib.h>
1444 $ WS "#include <stdio.h>
1445 $ if ("''Has_Socketshr'".eqs."T")
1447 $ WS "#include <socketshr.h>"
1449 $ WS "#include <netdb.h>
1453 $ WS "getprotoent();
1457 $ DEFINE SYS$ERROR _NLA0:
1458 $ DEFINE SYS$OUTPUT _NLA0:
1459 $ on error then continue
1460 $ on warning then continue
1462 $ If (Needs_Opt.eqs."Yes")
1464 $ link temp,temp/opt
1468 $ teststatus = f$extract(9,1,$status)
1469 $ DEASSIGN SYS$OUTPUT
1470 $ DEASSIGN SYS$ERROR
1471 $ if (teststatus.nes."1")
1473 $ perl_d_getpent="undef"
1475 $ perl_d_getpent="define"
1478 $ perl_d_getpent="undef"
1480 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
1482 $! Check for getservent
1484 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1488 $ WS "#include <stdlib.h>
1490 $ WS "#include <stdio.h>
1491 $ if ("''Has_Socketshr'".eqs."T")
1493 $ WS "#include <socketshr.h>"
1495 $ WS "#include <netdb.h>
1503 $ DEFINE SYS$ERROR _NLA0:
1504 $ DEFINE SYS$OUTPUT _NLA0:
1505 $ on error then continue
1506 $ on warning then continue
1508 $ If (Needs_Opt.eqs."Yes")
1510 $ link temp,temp/opt
1514 $ teststatus = f$extract(9,1,$status)
1515 $ DEASSIGN SYS$OUTPUT
1516 $ DEASSIGN SYS$ERROR
1517 $ if (teststatus.nes."1")
1519 $ perl_d_getsent="undef"
1521 $ perl_d_getsent="define"
1524 $ perl_d_getsent="undef"
1526 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
1528 $! Check for pthread_yield
1530 $ if ("''use_threads'".eqs."T")
1534 $ WS "#include <stdlib.h>
1536 $ WS "#include <pthread.h>
1537 $ WS "#include <stdio.h>
1540 $ WS "pthread_yield();
1544 $ DEFINE SYS$ERROR _NLA0:
1545 $ DEFINE SYS$OUTPUT _NLA0:
1546 $ on error then continue
1547 $ on warning then continue
1549 $ teststatus = f$extract(9,1,$status)
1550 $ DEASSIGN SYS$OUTPUT
1551 $ DEASSIGN SYS$ERROR
1552 $ if (teststatus.nes."1")
1554 $ perl_d_pthread_yield="undef"
1556 $ perl_d_pthread_yield="define"
1559 $ perl_d_pthread_yield="undef"
1561 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
1563 $! Check for sched_yield
1565 $ if ("''use_threads'".eqs."T")
1569 $ WS "#include <stdlib.h>
1571 $ WS "#include <pthread.h>
1572 $ WS "#include <stdio.h>
1575 $ WS "sched_yield();
1579 $ DEFINE SYS$ERROR _NLA0:
1580 $ DEFINE SYS$OUTPUT _NLA0:
1581 $ on error then continue
1582 $ on warning then continue
1584 $ teststatus = f$extract(9,1,$status)
1585 $ DEASSIGN SYS$OUTPUT
1586 $ DEASSIGN SYS$ERROR
1587 $ if (teststatus.nes."1")
1589 $ perl_d_sched_yield="undef"
1591 $ perl_d_sched_yield="define"
1594 $ perl_d_sched_yield="undef"
1596 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
1598 $! Check for generic pointer size
1602 $ WS "#include <stdlib.h>
1604 $ WS "#include <stdio.h>
1608 $ WS "foo = sizeof(char *);
1609 $ WS "printf(""%d\n"", foo);
1613 $! copy temp.c sys$output
1615 $ DEFINE SYS$ERROR _NLA0:
1616 $ DEFINE SYS$OUTPUT _NLA0:
1617 $ ON ERROR THEN CONTINUE
1618 $ ON WARNING THEN CONTINUE
1620 $ If (Needs_Opt.eqs."Yes")
1622 $ link temp,temp/opt
1626 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
1627 $ DEASSIGN SYS$OUTPUT
1628 $ DEASSIGN SYS$ERROR
1629 $ DEFINE SYS$ERROR TEMPOUT
1630 $ DEFINE SYS$OUTPUT TEMPOUT
1633 $ DEASSIGN SYS$OUTPUT
1634 $ DEASSIGN SYS$ERROR
1635 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
1640 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
1643 $! Done with compiler checks. Clean up.
1644 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
1645 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
1646 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
1647 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
1650 $! Some that are compiler or VMS version sensitive
1653 $ IF "''Using_Gnu_C'".EQS."Yes"
1655 $ perl_d_attribut="define"
1656 $ perl_vms_cc_type="gcc"
1658 $ perl_d_attribut="undef"
1661 $! Dec C >= 5.2 and VMS ver >= 7.0
1662 $ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
1664 $ perl_d_bcmp="define"
1665 $ perl_d_gettimeod="define"
1666 $ perl_d_uname="define"
1667 $ perl_d_sigaction="define"
1668 $ perl_d_truncate="define"
1669 $ perl_d_wait4="define"
1670 $ perl_d_index="define"
1671 $ perl_pidtype="pid_t"
1672 $ 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"
1673 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
1674 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
1675 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
1676 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
1677 $ 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"
1678 $ perl_sig_num_with_commas=perl_sig_num
1679 $ perl_uidtype="uid_t"
1680 $ perl_d_pathconf="define"
1681 $ perl_d_fpathconf="define"
1682 $ perl_d_sysconf="define"
1683 $ perl_d_sigsetjmp="define"
1685 $ perl_pidtype="unsigned int"
1686 $ perl_d_gettimeod="undef"
1687 $ perl_d_bcmp="undef"
1688 $ perl_d_uname="undef"
1689 $ perl_d_sigaction="undef"
1690 $ perl_d_truncate="undef"
1691 $ perl_d_wait4="undef"
1692 $ perl_d_index="undef"
1693 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
1694 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
1695 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
1696 $ perl_sig_name_with_commas = psnwc1 + psnwc2
1697 $ perl_sig_num="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
1698 $ perl_sig_num_with_commas=perl_sig_num
1699 $ perl_uidtype="unsigned int"
1700 $ perl_d_pathconf="undef"
1701 $ perl_d_fpathconf="undef"
1702 $ perl_d_sysconf="undef"
1703 $ perl_d_sigsetjmp="undef"
1707 $ IF ("''Using_Dec_C'".EQS."Yes")
1709 $ perl_d_mbstowcs="define"
1710 $ perl_d_mbtowc="define"
1711 $ perl_d_stdiobase="define"
1712 $ perl_d_stdio_ptr_lval="define"
1713 $ perl_d_stdio_cnt_lval="define"
1714 $ perl_d_stdstdio="define"
1715 $ perl_d_wcstombs="define"
1716 $ perl_d_mblen="define"
1717 $ perl_d_mktime="define"
1718 $ perl_d_strcoll="define"
1719 $ perl_d_strxfrm="define"
1720 $ perl_d_wctomb="define"
1721 $ perl_i_locale="define"
1722 $ perl_d_locconv="define"
1723 $ perl_d_setlocale="define"
1724 $ perl_vms_cc_type="decc"
1726 $ perl_d_mbstowcs="undef"
1727 $ perl_d_mbtowc="undef"
1728 $ perl_d_stdiobase="undef"
1729 $ perl_d_stdio_ptr_lval="undef"
1730 $ perl_d_stdio_cnt_lval="undef"
1731 $ perl_d_stdstdio="undef"
1732 $ perl_d_wcstombs="undef"
1733 $ perl_d_mblen="undef"
1734 $ perl_d_mktime="undef"
1735 $ perl_d_strcoll="undef"
1736 $ perl_d_strxfrm="undef"
1737 $ perl_d_wctomb="undef"
1738 $ perl_i_locale="undef"
1739 $ perl_d_locconv="undef"
1740 $ perl_d_setlocale="undef"
1744 $ if ("''Using_Vax_C'".EQS."Yes")
1746 $ perl_vms_cc_type="vaxc"
1751 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
1753 $ perl_d_vms_do_sockets="define"
1754 $ perl_d_htonl="define"
1755 $ perl_d_socket="define"
1756 $ perl_d_select="define"
1757 $ perl_netdb_host_type="char *"
1758 $ perl_netdb_hlen_type="int"
1759 $ perl_netdb_name_type="char *"
1760 $ perl_netdb_net_type="long"
1761 $ perl_d_gethbyaddr="define"
1762 $ perl_d_gethbyname="define"
1763 $ perl_d_getnbyaddr="define"
1764 $ perl_d_getnbyname="define"
1765 $ perl_d_getpbynumber="define"
1766 $ perl_d_getpbyname="define"
1767 $ perl_d_getsbyport="define"
1768 $ perl_d_getsbyname="define"
1769 $ perl_d_gethostprotos="define"
1770 $ perl_d_getnetprotos="define"
1771 $ perl_d_getprotoprotos="define"
1772 $ perl_d_getservprotos="define"
1774 $ perl_d_vms_do_sockets="undef"
1775 $ perl_d_htonl="undef"
1776 $ perl_d_socket="undef"
1777 $ perl_d_select="undef"
1778 $ perl_netdb_host_type="char *"
1779 $ perl_netdb_hlen_type="int"
1780 $ perl_netdb_name_type="char *"
1781 $ perl_netdb_net_type="long"
1782 $ perl_d_gethbyaddr="undef"
1783 $ perl_d_gethbyname="undef"
1784 $ perl_d_getnbyaddr="undef"
1785 $ perl_d_getnbyname="undef"
1786 $ perl_d_getpbynumber="undef"
1787 $ perl_d_getpbyname="undef"
1788 $ perl_d_getsbyport="undef"
1789 $ perl_d_getsbyname="undef"
1790 $ perl_d_gethostprotos="undef"
1791 $ perl_d_getnetprotos="undef"
1792 $ perl_d_getprotoprotos="undef"
1793 $ perl_d_getservprotos="undef"
1796 $ if ("''use_threads'".eqs."T")
1798 $ perl_usethreads="define"
1799 $ perl_d_pthreads_created_joinable="define"
1800 $ if ("''VMS_VER'".ges."7.0")
1802 $ perl_d_oldpthreads="undef"
1804 $ perl_d_oldpthreads="define"
1807 $ perl_d_oldpthreads="undef"
1808 $ perl_usethreads="undef"
1810 $ perl_d_pthreads_created_joinable="undef"
1814 $! Finally the composite ones. All config
1815 $ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
1816 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
1817 $ perl_myhostname="''myhostname'"
1818 $ perl_mydomain="''mydomain'"
1819 $ perl_perladmin="''perladmin'"
1820 $ perl_cf_email="''cf_email'"
1821 $ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
1822 $ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
1823 $ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
1824 $ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
1825 $ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
1826 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
1827 $ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
1828 $ if "''Using_Dec_C'" .eqs. "Yes"
1830 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
1832 $ IF "''Using_Vax_C'" .eqs. "Yes"
1834 $ perl_ccflags="/Include=[]/Obj=''perl_obj_ext'/NoList''cc_flags'"
1838 $! Finally clean off any leading zeros from the patchlevel or subversion
1839 $ perl_patchlevel = perl_patchlevel + 0
1840 $ perl_subversion = perl_subversion + 0
1842 $! Okay, we've got everything configured. Now go write out a config.sh.
1843 $ open/write CONFIGSH [-]config.sh
1844 $ WC := "write CONFIGSH"
1846 $ WC "# This file generated by Configure.COM on a VMS system."
1847 $ WC "# Time: " + perl_cf_time
1849 $ WC "package='" + perl_package + "'"
1850 $ WC "CONFIG='" + perl_config + "'"
1851 $ WC "cf_time='" + perl_cf_time + "'"
1852 $ WC "cf_by='" + perl_cf_by+ "'"
1853 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
1854 $ WC "ccdlflags='" + perl_ccdlflags + "'"
1855 $ WC "cccdlflags='" + perl_cccdlflags + "'"
1856 $ WC "mab='" + perl_mab + "'"
1857 $ WC "libpth='" + perl_libpth + "'"
1858 $ WC "ld='" + perl_ld + "'"
1859 $ WC "lddlflags='" + perl_lddlflags + "'"
1860 $ WC "ranlib='" + perl_ranlib + "'"
1861 $ WC "ar='" + perl_ar + "'"
1862 $ WC "eunicefix='" + perl_eunicefix + "'"
1863 $ WC "hint='" + perl_hint +"'"
1864 $ WC "hintfile='" + perl_hintfile + "'"
1865 $ WC "shrplib='" + perl_shrplib + "'"
1866 $ WC "usemymalloc='" + perl_usemymalloc + "'"
1867 $ WC "usevfork='" + perl_usevfork + "'"
1868 $ WC "useposix='false'"
1869 $ WC "spitshell='write sys$output '"
1870 $ WC "dlsrc='dl_vms.c'"
1871 $ WC "binexp='" + perl_binexp + "'"
1872 $ WC "man1ext='" + perl_man1ext + "'"
1873 $ WC "man3ext='" + perl_man3ext + "'"
1874 $ WC "arch='" + perl_arch + "'"
1875 $ WC "archname='" + perl_archname + "'"
1876 $ WC "osvers='" + perl_osvers + "'"
1877 $ WC "prefix='" + perl_prefix + "'"
1878 $ WC "builddir='" + perl_builddir + "'"
1879 $ WC "installbin='" + perl_installbin + "'"
1880 $ WC "installscript='" + perl_installscript + "'"
1881 $ WC "installman1dir='" + perl_installman1dir + "'"
1882 $ WC "installman3dir='" + perl_installman3dir + "'"
1883 $ WC "installprivlib='" + perl_installprivlib + "'"
1884 $ WC "installarchlib='" + perl_installarchlib + "'"
1885 $ WC "installsitelib='" + perl_installsitelib + "'"
1886 $ WC "installsitearch='" + perl_installsitearch + "'"
1887 $ WC "path_sep='" + perl_path_sep + "'"
1888 $ WC "startperl='$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ perl_ + ++$status != 0 and $exit = $status = undef;'"
1889 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
1890 $ WC "d_attribut='" + perl_d_attribut + "'"
1891 $ WC "cc='" + perl_cc + "'"
1892 $ WC "ccflags='" + perl_ccflags + "'"
1893 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
1894 $ WC "d_socket='" + perl_d_socket + "'"
1895 $ WC "d_sockpair='" + perl_d_sockpair + "'"
1896 $ WC "d_gethent='" + perl_d_gethent + "'"
1897 $ WC "d_getsent='" + perl_d_getsent + "'"
1898 $ WC "d_select='" + perl_d_select + "'"
1899 $ WC "i_niin='" + perl_i_niin + "'"
1900 $ WC "i_neterrno='" + perl_i_neterrno + "'"
1901 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
1902 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
1903 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
1904 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
1905 $ WC "d_locconv='" + perl_d_locconv + "'"
1906 $ WC "d_setlocale='" + perl_d_setlocale + "'"
1907 $ WC "i_locale='" + perl_i_locale + "'"
1908 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
1909 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
1910 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
1911 $ WC "d_wctomb='" + perl_d_wctomb + "'"
1912 $ WC "d_mblen='" + perl_d_mblen + "'"
1913 $ WC "d_mktime='" + perl_d_mktime + "'"
1914 $ WC "d_strcoll='" + perl_d_strcoll + "'"
1915 $ WC "d_strxfrm='" + perl_d_strxfrm + "'"
1916 $ WC "ldflags='" + perl_ldflags + "'"
1917 $ WC "dlobj='" + perl_dlobj + "'"
1918 $ WC "obj_ext='" + perl_obj_ext + "'"
1919 $ WC "so='" + perl_so + "'"
1920 $ WC "dlext='" + perl_dlext + "'"
1921 $ WC "exe_ext='" + perl_exe_ext + "'"
1922 $ WC "lib_ext='" + perl_lib_ext + "'"
1923 $ WC "myhostname='" + perl_myhostname + "'"
1924 $ WC "mydomain='" + perl_mydomain + "'"
1925 $ WC "perladmin='" + perl_perladmin + "'"
1926 $ WC "cf_email='" + perl_cf_email + "'"
1927 $ WC "myuname='" + perl_myuname + "'"
1928 $ WC "alignbytes='" + perl_alignbytes + "'"
1929 $ WC "osname='" + perl_osname + "'"
1930 $ WC "d_archlib='" + perl_d_archlib + "'"
1931 $ WC "archlibexp='" + perl_archlibexp + "'"
1932 $ WC "archlib='" + perl_archlib + "'"
1933 $ WC "archname='" + perl_archname + "'"
1934 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
1935 $ WC "cppstdin='" + perl_cppstdin + "'"
1936 $ WC "cppminus='" + perl_cppminus + "'"
1937 $ WC "d_bcmp='" + perl_d_bcmp + "'"
1938 $ WC "d_bcopy='" + perl_d_bcopy + "'"
1939 $ WC "d_bzero='" + perl_d_bzero + "'"
1940 $ WC "d_castneg='" + perl_d_castneg + "'"
1941 $ WC "castflags='" + perl_castflags + "'"
1942 $ WC "d_chsize='" + perl_d_chsize + "'"
1943 $ WC "d_const='" + perl_d_const + "'"
1944 $ WC "d_crypt='" + perl_d_crypt + "'"
1945 $ WC "byteorder='" + perl_byteorder + "'"
1946 $ WC "full_csh='" + perl_full_csh + "'"
1947 $ WC "d_csh='" + perl_d_csh + "'"
1948 $ WC "d_dup2='" + perl_d_dup2 + "'"
1949 $ WC "d_fchmod='" + perl_d_fchmod + "'"
1950 $ WC "d_fchown='" + perl_d_fchown + "'"
1951 $ WC "d_fcntl='" + perl_d_fcntl + "'"
1952 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
1953 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
1954 $ WC "d_flock='" + perl_d_flock + "'"
1955 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
1956 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
1957 $ WC "d_getgrps='" + perl_d_getgrps + "'"
1958 $ WC "d_setgrps='" + perl_d_setgrps + "'"
1959 $ WC "d_uname='" + perl_d_uname + "'"
1960 $ WC "d_getprior='" + perl_d_getprior + "'"
1961 $ WC "d_killpg='" + perl_d_killpg + "'"
1962 $ WC "d_link='" + perl_d_link + "'"
1963 $ WC "d_lstat='" + perl_d_lstat + "'"
1964 $ WC "d_lockf='" + perl_d_lockf + "'"
1965 $ WC "d_memcmp='" + perl_d_memcmp + "'"
1966 $ WC "d_memcpy='" + perl_d_memcpy + "'"
1967 $ WC "d_memmove='" + perl_d_memmove + "'"
1968 $ WC "d_memset='" + perl_d_memset + "'"
1969 $ WC "d_mkdir='" + perl_d_mkdir + "'"
1970 $ WC "d_msg='" + perl_d_msg + "'"
1971 $ WC "d_open3='" + perl_d_open3 + "'"
1972 $ WC "d_poll='" + perl_d_poll + "'"
1973 $ WC "d_readdir='" + perl_d_readdir + "'"
1974 $ WC "d_seekdir='" + perl_d_seekdir + "'"
1975 $ WC "d_telldir='" + perl_d_telldir + "'"
1976 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
1977 $ WC "d_rename='" + perl_d_rename + "'"
1978 $ WC "d_rmdir='" + perl_d_rmdir + "'"
1979 $ WC "d_sem='" + perl_d_sem + "'"
1980 $ WC "d_setegid='" + perl_d_setegid + "'"
1981 $ WC "d_seteuid='" + perl_d_seteuid + "'"
1982 $ WC "d_setprior='" + perl_d_setprior + "'"
1983 $ WC "d_setregid='" + perl_d_setregid + "'"
1984 $ WC "d_setresgid='" + perl_d_setresgid + "'"
1985 $ WC "d_setreuid='" + perl_d_setreuid + "'"
1986 $ WC "d_setresuid='" + perl_d_setresuid + "'"
1987 $ WC "d_setrgid='" + perl_d_setrgid + "'"
1988 $ WC "d_setruid='" + perl_d_setruid + "'"
1989 $ WC "d_setsid='" + perl_d_setsid + "'"
1990 $ WC "d_shm='" + perl_d_shm + "'"
1991 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
1992 $ WC "d_sigaction='" + perl_d_sigaction + "'"
1993 $ WC "d_statblks='" + perl_d_statblks + "'"
1994 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
1995 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
1996 $ WC "stdio_base='" + perl_stdio_base + "'"
1997 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
1998 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
1999 $ WC "d_strerror='" + perl_d_strerror + "'"
2000 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
2001 $ WC "d_strerrm='" + perl_d_strerrm + "'"
2002 $ WC "d_symlink='" + perl_d_symlink + "'"
2003 $ WC "d_syscall='" + perl_d_syscall + "'"
2004 $ WC "d_system='" + perl_d_system + "'"
2005 $ WC "timetype='" + perl_timetype + "'"
2006 $ WC "d_truncate='" + perl_d_truncate + "'"
2007 $ WC "d_vfork='" + perl_d_vfork + "'"
2008 $ WC "signal_t='" + perl_signal_t + "'"
2009 $ WC "d_volatile='" + perl_d_volatile + "'"
2010 $ WC "d_vprintf='" + perl_d_vprintf + "'"
2011 $ WC "d_charvspr='" + perl_d_charvspr + "'"
2012 $ WC "d_wait4='" + perl_d_wait4 + "'"
2013 $ WC "d_waitpid='" + perl_d_waitpid + "'"
2014 $ WC "i_dirent='" + perl_i_dirent + "'"
2015 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
2016 $ WC "direntrytype='" + perl_direntrytype + "'"
2017 $ WC "i_fcntl='" + perl_i_fcntl + "'"
2018 $ WC "i_grp='" + perl_i_grp + "'"
2019 $ WC "i_limits='" + perl_i_limits + "'"
2020 $ WC "i_memory='" + perl_i_memory + "'"
2021 $ WC "i_ndbm='" + perl_i_ndbm + "'"
2022 $ WC "i_stdarg='" + perl_i_stdarg + "'"
2023 $ WC "i_pwd='" + perl_i_pwd + "'"
2024 $ WC "d_pwquota='" + perl_d_pwquota + "'"
2025 $ WC "d_pwage='" + perl_d_pwage + "'"
2026 $ WC "d_pwchange='" + perl_d_pwchange + "'"
2027 $ WC "d_pwclass='" + perl_d_pwclass + "'"
2028 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
2029 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
2030 $ WC "i_stddef='" + perl_i_stddef + "'"
2031 $ WC "i_stdlib='" + perl_i_stdlib + "'"
2032 $ WC "i_string='" + perl_i_string + "'"
2033 $ WC "i_sysdir='" + perl_i_sysdir + "'"
2034 $ WC "i_sysfile='" + perl_i_sysfile + "'"
2035 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
2036 $ WC "i_sysndir='" + perl_i_sysndir + "'"
2037 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
2038 $ WC "i_sysselct='" + perl_i_sysselct + "'"
2039 $ WC "i_dbm='" + perl_i_dbm + "'"
2040 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
2041 $ WC "i_sfio='" + perl_i_sfio + "'"
2042 $ WC "i_sysstat='" + perl_i_sysstat + "'"
2043 $ WC "i_systimes='" + perl_i_systimes + "'"
2044 $ WC "i_systypes='" + perl_i_systypes + "'"
2045 $ WC "i_sysun='" + perl_i_sysun + "'"
2046 $ WC "i_syswait='" + perl_i_syswait + "'"
2047 $ WC "i_termio='" + perl_i_termio + "'"
2048 $ WC "i_sgtty='" + perl_i_sgtty + "'"
2049 $ WC "i_termios='" + perl_i_termios + "'"
2050 $ WC "i_time='" + perl_i_time + "'"
2051 $ WC "i_systime='" + perl_i_systime + "'"
2052 $ WC "i_systimek='" + perl_i_systimek + "'"
2053 $ WC "i_unistd='" + perl_i_unistd + "'"
2054 $ WC "i_utime='" + perl_i_utime + "'"
2055 $ WC "i_varargs='" + perl_i_varargs + "'"
2056 $ WC "i_vfork='" + perl_i_vfork + "'"
2057 $ WC "prototype='" + perl_prototype + "'"
2058 $ WC "randbits='" + perl_randbits +"'"
2059 $ WC "selecttype='" + perl_selecttype + "'"
2060 $ WC "stdchar='" + perl_stdchar + "'"
2061 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
2062 $ WC "full_sed='" + perl_full_sed + "'"
2063 $ WC "bin='" + perl_bin + "'"
2064 $ WC "binexp='" + perl_binexp + "'"
2065 $ WC "d_alarm='" + perl_d_alarm + "'"
2066 $ WC "d_casti32='" + perl_d_casti32 + "'"
2067 $ WC "d_chown='" + perl_d_chown + "'"
2068 $ WC "d_chroot='" + perl_d_chroot + "'"
2069 $ WC "d_cuserid='" + perl_d_cuserid + "'"
2070 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
2071 $ WC "d_difftime='" + perl_d_difftime + "'"
2072 $ WC "d_fork='" + perl_d_fork + "'"
2073 $ WC "d_getlogin='" + perl_d_getlogin + "'"
2074 $ WC "d_getppid='" + perl_d_getppid + "'"
2075 $ WC "d_htonl='" + perl_d_htonl + "'"
2076 $ WC "d_nice='" + perl_d_nice + "'"
2077 $ WC "d_pause='" + perl_d_pause + "'"
2078 $ WC "d_pipe='" + perl_d_pipe + "'"
2079 $ WC "d_readlink='" + perl_d_readlink + "'"
2080 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
2081 $ WC "d_strchr='" + perl_d_strchr + "'"
2082 $ WC "d_index='" + perl_d_index + "'"
2083 $ WC "d_strtod='" + perl_d_strtod + "'"
2084 $ WC "d_strtol='" + perl_d_strtol + "'"
2085 $ WC "d_strtoul='" + perl_d_strtoul + "'"
2086 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
2087 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
2088 $ WC "d_times='" + perl_d_times + "'"
2089 $ WC "d_tzname='" + perl_d_tzname + "'"
2090 $ WC "d_umask='" + perl_d_umask + "'"
2091 $ WC "fpostype='" + perl_fpostype + "'"
2092 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
2093 $ WC "i_float='" + perl_i_float + "'"
2094 $ WC "i_math='" + perl_i_math + "'"
2095 $ WC "intsize='" + perl_intsize + "'"
2096 $ WC "longsize='" + perl_longsize + "'"
2097 $ WC "shortsize='" + perl_shortsize + "'"
2098 $ WC "lseektype='" + perl_lseektype + "'"
2099 $ WC "i_values='" + perl_i_values + "'"
2100 $ WC "malloctype='" + perl_malloctype + "'"
2101 $ WC "freetype='" + perl_freetype + "'"
2102 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
2103 $ WC "sh='" + perl_sh + "'"
2104 $ WC "sig_name='" + perl_sig_name + "'"
2105 $ WC "sig_num='" + perl_sig_num + "'"
2106 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
2108 $ WC "modetype='" + perl_modetype + "'"
2109 $ WC "ssizetype='" + perl_ssizetype + "'"
2110 $ WC "o_nonblock='" + perl_o_nonblock + "'"
2111 $ WC "eagain='" + perl_eagain + "'"
2112 $ WC "rd_nodata='" + perl_rd_nodata + "'"
2113 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
2114 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
2115 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
2116 $ WC "oldarchlib='" + perl_oldarchlib + "'"
2117 $ WC "privlibexp='" + perl_privlibexp + "'"
2118 $ WC "privlib='" + perl_privlib + "'"
2119 $ WC "sitelibexp='" + perl_sitelibexp + "'"
2120 $ WC "sitelib='" + perl_sitelib + "'"
2121 $ WC "sitearchexp='" + perl_sitearchexp + "'"
2122 $ WC "sitearch='" + perl_sitearch + "'"
2123 $ WC "sizetype='" + perl_sizetype + "'"
2124 $ WC "i_sysparam='" + perl_i_sysparam + "'"
2125 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
2126 $ WC "d_dlerror='" + perl_d_dlerror + "'"
2127 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
2128 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
2129 $ WC "d_dosuid='" + perl_d_dosuid + "'"
2130 $ WC "d_inetaton='" + perl_d_inetaton + "'"
2131 $ WC "d_isascii='" + perl_d_isascii + "'"
2132 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
2133 $ WC "d_pathconf='" + perl_d_pathconf + "'"
2134 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
2135 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
2136 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
2137 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
2138 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
2139 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
2140 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
2141 $ WC "d_setpgid='" + perl_d_setpgid + "'"
2142 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
2143 $ WC "d_sysconf='" + perl_d_sysconf + "'"
2144 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
2145 $ WC "d_getpgid='" + perl_d_getpgid + "'"
2146 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
2147 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
2148 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
2149 $ WC "d_sfio='" + perl_d_sfio + "'"
2150 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
2151 $ WC "usedl='" + perl_usedl + "'"
2152 $ WC "startperl='" + perl_startperl + "'"
2153 $ WC "db_hashtype='" + perl_db_hashtype + "'"
2154 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
2155 $ WC "useperlio='" + perl_useperlio + "'"
2156 $ WC "defvoidused='" + perl_defvoidused + "'"
2157 $ WC "voidflags='" + perl_voidflags + "'"
2158 $ WC "d_eunice='" + perl_d_eunice + "'"
2159 $ WC "libs='" + perl_libs + "'"
2160 $ WC "libc='" + perl_libc + "'"
2161 $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
2163 $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
2165 $ WC "pager='" + perl_pager + "'"
2166 $ WC "uidtype='" + perl_uidtype + "'"
2167 $ WC "gidtype='" + perl_gidtype + "'"
2168 $ WC "usethreads='" + perl_usethreads + "'"
2169 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
2170 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
2171 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
2172 $ WC "i_netdb='" + perl_i_netdb + "'"
2173 $ WC "pidtype='" + perl_pidtype + "'"
2174 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
2175 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
2176 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
2177 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
2178 $ WC "baserev='" + perl_baserev + "'"
2179 $ WC "doublesize='" + perl_doublesize + "'"
2180 $ WC "ptrsize='" + perl_ptrsize + "'"
2181 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
2182 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
2183 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
2184 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
2185 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
2186 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
2187 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
2188 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
2189 $ WC "d_sethent='" + perl_d_sethent + "'"
2190 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
2191 $ WC "d_longdbl='" + perl_d_longdbl + "'"
2192 $ WC "longdblsize='" + perl_longdblsize + "'"
2193 $ WC "d_longlong='" + perl_d_longlong + "'"
2194 $ WC "longlongsize='" + perl_longlongsize + "'"
2195 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
2196 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
2197 $ WC "d_endhent='" + perl_d_endhent + "'"
2198 $ WC "d_endnent='" + perl_d_endsent + "'"
2199 $ WC "d_endpent='" + perl_d_endpent + "'"
2200 $ WC "d_endsent='" + perl_d_endsent + "'"
2201 $ WC "d_gethent='" + perl_d_gethent + "'"
2202 $ WC "d_getnent='" + perl_d_getsent + "'"
2203 $ WC "d_getpent='" + perl_d_getpent + "'"
2204 $ WC "d_getsent='" + perl_d_getsent + "'"
2205 $ WC "d_sethent='" + perl_d_sethent + "'"
2206 $ WC "d_setnent='" + perl_d_setsent + "'"
2207 $ WC "d_setpent='" + perl_d_setpent + "'"
2208 $ WC "d_setsent='" + perl_d_setsent + "'"
2209 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
2210 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
2211 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
2212 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
2213 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
2214 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
2215 $ WC "d_lchown='" + perl_d_lchown + "'"
2216 $ WC "d_union_semun='" + perl_d_union_semun + "'"
2217 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
2218 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
2219 $ WC "extensions='" + perl_extensions + "'"
2223 $! Okay, we've gotten here. Build munchconfig and run it
2224 $ 'Perl_CC' munchconfig
2225 $ If (Needs_Opt.eqs."Yes")
2227 $ open/write OPTCHAN []munchconfig.opt
2228 $ IF ("''using_gnu_c'".eqs."Yes")
2230 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
2232 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
2234 $ link munchconfig,munchconfig/opt
2235 $ delete munchconfig.opt;*
2239 $ WRITE_RESULT "Writing config.h"
2241 $ ! we need an fdl file
2242 $ CREATE [-]CONFIG.FDL
2245 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
2246 $ ! First spit out the header info with the local defines (to get
2247 $ ! around the 255 character command line limit)
2248 $ OPEN/APPEND CONFIG [-]config.local
2249 $ if use_debugging_perl.eqs."Y"
2251 $ WRITE CONFIG "#define DEBUGGING"
2253 $ if preload_env.eqs."Y"
2255 $ WRITE CONFIG "#define PRIME_ENV_AT_STARTUP"
2257 $ if use_two_pot_malloc.eqs."Y"
2259 $ WRITE CONFIG "#define TWO_POT_OPTIMIZE"
2261 $ if mymalloc.eqs."Y"
2263 $ WRITE CONFIG "#define EMBEDMYMALLOC"
2265 $ if use_pack_malloc.eqs."Y"
2267 $ WRITE CONFIG "#define PACK_MALLOC"
2269 $ if use_debugmalloc.eqs."Y"
2271 $ write config "#define DEBUGGING_MSTATS"
2273 $ if "''Using_Gnu_C'" .eqs."Yes"
2275 $ WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
2277 $ if "''Has_Dec_C_Sockets'".eqs."T"
2279 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
2280 $ WRITE CONFIG "#define DECCRTL_SOCKETS"
2282 $ if "''Has_Socketshr'".eqs."T"
2284 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
2288 $! Now build the normal config.h
2289 $ define/user sys$output [-]config.main
2290 $ mcr []munchconfig [-]config.sh [-]config_h.sh
2291 $ ! Concatenate them together
2292 $ copy [-]config.local,[-]config.main [-]config.h
2294 $ DELETE/NOLOG [-]CONFIG.MAIN;*
2295 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
2296 $ DELETE/NOLOG [-]CONFIG.FDL;*
2298 $ if "''Using_Dec_C'" .eqs."Yes"
2300 $ DECC_REPLACE = "DECC=decc=1"
2302 $ DECC_REPLACE = "DECC="
2304 $ if "''Using_Gnu_C'" .eqs."Yes"
2306 $ GNUC_REPLACE = "GNUC=gnuc=1"
2308 $ GNUC_REPLACE = "GNUC="
2310 $ if "''Has_Dec_C_Sockets'" .eqs."T"
2312 $ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
2314 $ if "''Has_Socketshr'" .eqs."T"
2316 $ SOCKET_REPLACE = "SOCKET=SOCKETSHRSOCKETS=1"
2318 $ SOCKET_REPLACE = "SOCKET="
2321 $ IF ("''Use_Threads'".eqs."T")
2323 $ if ("''VMS_VER'".LES."6.2")
2325 $ THREAD_REPLACE = "THREAD=OLDTHREADED=1"
2327 $ THREAD_REPLACE = "THREAD=THREADED=1"
2330 $ THREAD_REPLACE = "THREAD="
2332 $ if mymalloc.eqs."Y"
2334 $ MALLOC_REPLACE = "MALLOC=MALLOC=1"
2336 $ MALLOC_REPLACE = "MALLOC="
2338 $ if f$getsyi("HW_MODEL").ge.1024
2340 $ ARCH_TYPE = "ARCH-TYPE=__AXP__"
2342 $ ARCH_TYPE = "ARCH-TYPE=__VAX__"
2344 $ WRITE_RESULT "Writing DESCRIP.MMS"
2346 $ define/user sys$output [-]descrip.mms
2347 $ 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'"
2350 $! Clean up after ourselves
2351 $ delete/nolog munchconfig.exe;*
2352 $ delete/nolog munchconfig.obj;*