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_mknod="undef"
81 $ perl_d_union_semun="undef"
82 $ perl_d_semctl_semun="undef"
83 $ perl_d_semctl_semid_ds="undef"
84 $ IF (sharedperl.EQS."Y")
98 $ perl_dlobj="dl_vms''perl_obj_ext'"
100 $ perl_d_archlib="define"
101 $ perl_d_bincompat3="undef"
102 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
104 $ perl_d_castneg="define"
106 $ perl_d_chsize="undef"
107 $ perl_d_const="define"
108 $ perl_d_crypt="define"
109 $ perl_byteorder="1234"
112 $ perl_d_dup2="define"
113 $ perl_d_fchmod="undef"
114 $ perl_d_fchown="undef"
115 $ perl_d_fcntl="undef"
116 $ perl_d_fgetpos="define"
117 $ perl_d_flexfnam="define"
118 $ perl_d_flock="undef"
119 $ perl_d_fsetpos="define"
120 $ perl_d_getgrps="undef"
121 $ perl_d_setgrps="undef"
122 $ perl_d_getprior="undef"
123 $ perl_d_killpg="undef"
124 $ perl_d_link="undef"
125 $ perl_d_lstat="undef"
126 $ perl_d_lockf="undef"
127 $ perl_d_memcmp="define"
128 $ perl_d_memcpy="define"
129 $ perl_d_memmove="define"
130 $ perl_d_memset="define"
131 $ perl_d_mkdir="define"
133 $ perl_d_open3="define"
134 $ perl_d_poll="undef"
135 $ perl_d_readdir="define"
136 $ perl_d_seekdir="define"
137 $ perl_d_telldir="define"
138 $ perl_d_rewinddir="define"
139 $ perl_d_rename="define"
140 $ perl_d_rmdir="define"
142 $ perl_d_setegid="undef"
143 $ perl_d_seteuid="undef"
144 $ perl_d_setprior="undef"
145 $ perl_d_setregid="undef"
146 $ perl_d_setresgid="undef"
147 $ perl_d_setreuid="undef"
148 $ perl_d_setresuid="undef"
149 $ perl_d_setrgid="undef"
150 $ perl_d_setruid="undef"
151 $ perl_d_setsid="undef"
153 $ perl_d_shmatprototype="undef"
154 $ perl_d_statblks="undef"
155 $ perl_stdio_ptr="((*fp)->_ptr)"
156 $ perl_stdio_cnt="((*fp)->_cnt)"
157 $ perl_stdio_base="((*fp)->_base)"
158 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
159 $ perl_d_strctcpy="define"
160 $ perl_d_strerror="define"
161 $ perl_d_syserrlst="undef"
162 $ perl_d_strerrm="strerror((e),vaxc$errno)"
163 $ perl_d_symlink="undef"
164 $ perl_d_syscall="undef"
165 $ perl_d_system="define"
166 $ perl_timetype="time_t"
167 $ perl_d_vfork="define"
168 $ perl_signal_t="void"
169 $ perl_d_volatile="define"
170 $ perl_d_vprintf="define"
171 $ perl_d_charvspr="undef"
172 $ perl_d_waitpid="define"
173 $ perl_i_dirent="undef"
174 $ perl_d_dirnamlen="define"
175 $ perl_direntrytype="struct dirent"
176 $ perl_i_fcntl="undef"
178 $ perl_i_limits="define"
179 $ perl_i_memory="undef"
180 $ perl_i_ndbm="undef"
181 $ perl_i_stdarg="define"
183 $ perl_d_pwquota="undef"
184 $ perl_d_pwage="undef"
185 $ perl_d_pwchange="undef"
186 $ perl_d_pwclass="undef"
187 $ perl_d_pwexpire="undef"
188 $ perl_d_pwcomment="define"
189 $ perl_i_stddef="define"
190 $ perl_i_stdlib="define"
191 $ perl_i_string="define"
192 $ perl_i_sysdir="undef"
193 $ perl_i_sysfile="undef"
194 $ perl_i_sysioctl="undef"
195 $ perl_i_sysndir="undef"
196 $ perl_i_sysresrc="undef"
197 $ perl_i_sysselct="undef"
199 $ perl_i_rpcsvcdbm="undef"
200 $ perl_i_sfio="undef"
201 $ perl_i_sysstat="define"
202 $ perl_i_systimes="undef"
203 $ perl_i_systypes="define"
204 $ perl_i_sysun="undef"
205 $ perl_i_syswait="undef"
206 $ perl_i_termio="undef"
207 $ perl_i_sgtty="undef"
208 $ perl_i_termios="undef"
209 $ perl_i_time="define"
210 $ perl_i_systime="undef"
211 $ perl_i_systimek="undef"
212 $! perl_i_unistd="undef"
213 $ perl_i_utime="undef"
214 $ perl_i_varargs="undef"
215 $ perl_i_vfork="undef"
216 $ perl_prototype="define"
218 $ perl_stdchar="char"
219 $ perl_d_unlink_all_versions="undef"
220 $ perl_full_sed="_NLA0:"
221 $ perl_bin="/''perl_prefix'/000000"
222 $ perl_binexp="''perl_prefix':[000000]"
223 $ perl_d_alarm="define"
224 $ perl_d_casti32="define"
225 $ perl_d_chown="define"
226 $ perl_d_chroot="undef"
227 $ perl_d_cuserid="define"
228 $ perl_d_dbl_dig="define"
229 $ perl_d_difftime="define"
230 $ perl_d_fork="undef"
231 $ perl_d_getlogin="define"
232 $ perl_d_getppid="undef"
233 $ perl_d_nice="define"
234 $ perl_d_pause="define"
235 $ perl_d_pipe="define"
236 $ perl_d_readlink="undef"
237 $ perl_d_setlinebuf="undef"
238 $ perl_d_strchr="define"
239 $ perl_d_strtod="define"
240 $ perl_d_strtol="define"
241 $ perl_d_strtoul="define"
242 $ perl_d_tcgetpgrp="undef"
243 $ perl_d_tcsetpgrp="undef"
244 $ perl_d_times="define"
245 $ perl_d_tzname="undef"
246 $ perl_d_umask="define"
247 $ perl_fpostype="fpos_t"
248 $ perl_i_dlfcn="undef"
249 $ perl_i_float="define"
250 $ perl_i_math="define"
251 $ perl_lseektype="int"
252 $ perl_i_values="undef"
253 $ perl_malloctype="void *"
254 $ perl_freetype="void"
255 $ if "''mymalloc'".eqs."Y"
257 $ perl_d_mymalloc="define"
259 $ perl_d_mymalloc="undef"
262 $ perl_modetype="unsigned int"
263 $ perl_ssizetype="int"
267 $ perl_d_eofnblk="undef"
268 $ perl_d_oldarchlib="define"
269 $ perl_privlibexp="''perl_prefix':[lib]"
270 $ perl_privlib="''perl_prefix':[lib]"
271 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
272 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
273 $ perl_sizetype="size_t"
274 $ perl_i_sysparam="undef"
275 $ perl_d_void_closedir="define"
276 $ perl_d_dlerror="undef"
277 $ perl_d_dlsymun="undef"
278 $ perl_d_suidsafe="undef"
279 $ perl_d_dosuid="undef"
280 $ perl_d_inetaton="undef"
281 $ perl_d_isascii="define"
282 $ perl_d_mkfifo="undef"
283 $ perl_d_safebcpy="undef"
284 $ perl_d_safemcpy="define"
285 $ perl_d_sanemcmp="define"
286 $ perl_d_setpgrp="undef"
287 $ perl_d_bsdsetpgrp="undef"
288 $ perl_d_bsdpgrp="undef"
289 $ perl_d_setpgid="undef"
290 $ perl_d_setpgrp2="undef"
291 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
292 $ perl_d_getpgid="undef"
293 $ perl_d_getpgrp="undef"
294 $ perl_d_bsdgetpgrp="undef"
295 $ perl_d_getpgrp2="undef"
296 $ perl_d_sfio="undef"
297 $ perl_usedl="define"
299 $ perl_db_hashtype=""
300 $ perl_db_prefixtype=""
301 $ perl_useperlio="undef"
302 $ perl_defvoidused="15"
303 $ perl_voidflags="15"
304 $ perl_d_eunice="undef"
305 $ perl_d_pwgecos="define"
306 $ IF ("''Use_Threads'".eqs."T").and.("''VMS_VER'".LES."6.2")
308 $ 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"
312 $ IF ("''Using_Dec_C'".eqs."Yes")
314 $ perl_libc="(DECCRTL)"
318 $ perl_PATCHLEVEL="''patchlevel'"
319 $ perl_SUBVERSION="''subversion'"
323 $! Now some that we build up
325 $ LocalTime = f$time()
326 $ perl_cf_time= f$extract(0, 3, f$cvtime(LocalTime,, "WEEKDAY")) + " " + -
327 f$edit(f$cvtime(LocalTime, "ABSOLUTE", "MONTH"), "LOWERCASE") + -
328 " " + f$cvtime(LocalTime,, "DAY") + " " + f$cvtime(LocalTime,, "TIME") + -
329 " " + f$cvtime(LocalTime,, "YEAR")
330 $ if f$getsyi("HW_MODEL").ge.1024
332 $ perl_arch="VMS_AXP"
333 $ perl_archname="VMS_AXP"
334 $ perl_alignbytes="8"
336 $ perl_arch="VMS_VAX"
337 $ perl_archname="VMS_VAX"
338 $ perl_alignbytes="8"
340 $ perl_osvers=f$edit(osvers, "TRIM")
341 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion
343 $! Some that we need to invoke the compiler for
344 $ OS := "open/write SOURCECHAN []temp.c"
345 $ WS := "write SOURCECHAN"
346 $ CS := "close SOURCECHAN"
347 $ DS := "delete/nolog []temp.*;*"
349 $ if ("''using_vax_c'".eqs."Yes").or.("''using_gnu_c'".eqs."Yes")
351 $ open/write OPTCHAN []temp.opt
352 $ IF ("''using_gnu_c'".eqs."Yes")
354 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
356 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
361 $! Check for __STDC__
365 $ WS "#include <stdlib.h>
367 $ WS "#include <stdio.h>
370 $ WS "#ifdef __STDC__
371 $ WS "printf(""42\n"");
373 $ WS "printf(""1\n"");
378 $ DEFINE SYS$ERROR _NLA0:
379 $ DEFINE SYS$OUTPUT _NLA0:
380 $ ON ERROR THEN CONTINUE
381 $ ON WARNING THEN CONTINUE
383 $ If (Needs_Opt.eqs."Yes")
389 $ DEASSIGN SYS$OUTPUT
391 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
392 $ DEFINE SYS$ERROR TEMPOUT
393 $ DEFINE SYS$OUTPUT TEMPOUT
396 $ DEASSIGN SYS$OUTPUT
398 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
402 $ perl_cpp_stuff=line
403 $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
405 $! Check for double size
409 $ WS "#include <stdlib.h>
411 $ WS "#include <stdio.h>
415 $ WS "foo = sizeof(double);
416 $ WS "printf(""%d\n"", foo);
420 $ DEFINE SYS$ERROR _NLA0:
421 $ DEFINE SYS$OUTPUT _NLA0:
422 $ ON ERROR THEN CONTINUE
423 $ ON WARNING THEN CONTINUE
425 $ If (Needs_Opt.eqs."Yes")
432 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
433 $ DEASSIGN SYS$OUTPUT
435 $ DEFINE SYS$ERROR TEMPOUT
436 $ DEFINE SYS$OUTPUT TEMPOUT
439 $ DEASSIGN SYS$OUTPUT
441 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
445 $ perl_doublesize=line
446 $ WRITE_RESULT "doublesize is ''perl_doublesize'"
448 $! Check for long double size
452 $ WS "#include <stdlib.h>
454 $ WS "#include <stdio.h>
457 $ WS "printf(""%d\n"", sizeof(long double));
461 $ DEFINE SYS$ERROR _NLA0:
462 $ DEFINE SYS$OUTPUT _NLA0:
463 $ ON ERROR THEN CONTINUE
464 $ ON WARNING THEN CONTINUE
466 $ teststatus = f$extract(9,1,$status)
467 $ if (teststatus.nes."1")
469 $ perl_longdblsize="0"
470 $ perl_d_longdbl="undef"
472 $ ON ERROR THEN CONTINUE
473 $ ON WARNING THEN CONTINUE
474 $ If (Needs_Opt.eqs."Yes")
480 $ teststatus = f$extract(9,1,$status)
481 $ DEASSIGN SYS$OUTPUT
483 $ if (teststatus.nes."1")
485 $ perl_longdblsize="0"
486 $ perl_d_longdbl="undef"
488 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
489 $ DEFINE SYS$ERROR TEMPOUT
490 $ DEFINE SYS$OUTPUT TEMPOUT
493 $ DEASSIGN SYS$OUTPUT
495 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
499 $ perl_longdblsize=line
500 $ perl_d_longdbl="define"
503 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
504 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
506 $! Check for long long existance and size
510 $ WS "#include <stdlib.h>
512 $ WS "#include <stdio.h>
515 $ WS "printf(""%d\n"", sizeof(long long));
519 $ DEFINE SYS$ERROR _NLA0:
520 $ DEFINE SYS$OUTPUT _NLA0:
521 $ on error then continue
522 $ on warning then continue
524 $ If (Needs_Opt.eqs."Yes")
530 $ teststatus = f$extract(9,1,$status)
531 $ DEASSIGN SYS$OUTPUT
533 $ if (teststatus.nes."1")
535 $ perl_longlongsize="0"
536 $ perl_d_longlong="undef"
538 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
539 $ DEFINE SYS$ERROR TEMPOUT
540 $ DEFINE SYS$OUTPUT TEMPOUT
543 $ DEASSIGN SYS$OUTPUT
545 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
549 $ perl_longlongsize=line
550 $ perl_d_longlong="define"
552 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
553 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
555 $! Check for int size
559 $ WS "#include <stdlib.h>
561 $ WS "#include <stdio.h>
564 $ WS "printf(""%d\n"", sizeof(int));
568 $ DEFINE SYS$ERROR _NLA0:
569 $ DEFINE SYS$OUTPUT _NLA0:
570 $ on error then continue
571 $ on warning then continue
573 $ If (Needs_Opt.eqs."Yes")
579 $ If (Needs_Opt.eqs."Yes")
585 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
586 $ DEASSIGN SYS$OUTPUT
588 $ DEFINE SYS$ERROR TEMPOUT
589 $ DEFINE SYS$OUTPUT TEMPOUT
592 $ DEASSIGN SYS$OUTPUT
594 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
599 $ WRITE_RESULT "intsize is ''perl_intsize'"
601 $! Check for short size
605 $ WS "#include <stdlib.h>
607 $ WS "#include <stdio.h>
610 $ WS "printf(""%d\n"", sizeof(short));
614 $ DEFINE SYS$ERROR _NLA0:
615 $ DEFINE SYS$OUTPUT _NLA0:
616 $ on error then continue
617 $ on warning then continue
619 $ If (Needs_Opt.eqs."Yes")
625 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
626 $ DEASSIGN SYS$OUTPUT
628 $ DEFINE SYS$ERROR TEMPOUT
629 $ DEFINE SYS$OUTPUT TEMPOUT
632 $ DEASSIGN SYS$OUTPUT
634 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
638 $ perl_shortsize=line
639 $ WRITE_RESULT "shortsize is ''perl_shortsize'"
641 $! Check for long size
645 $ WS "#include <stdlib.h>
647 $ WS "#include <stdio.h>
651 $ WS "foo = sizeof(long);
652 $ WS "printf(""%d\n"", foo);
656 $ DEFINE SYS$ERROR _NLA0:
657 $ DEFINE SYS$OUTPUT _NLA0:
658 $ on error then continue
659 $ on warning then continue
661 $ If (Needs_Opt.eqs."Yes")
667 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
668 $ DEASSIGN SYS$OUTPUT
670 $ DEFINE SYS$ERROR TEMPOUT
671 $ DEFINE SYS$OUTPUT TEMPOUT
674 $ DEASSIGN SYS$OUTPUT
676 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
681 $ WRITE_RESULT "longsize is ''perl_longsize'"
683 $! Check the prototype for getgid
687 $ WS "#include <stdlib.h>
689 $ WS "#include <stdio.h>
690 $ WS "#include <types.h>
691 $ WS "#include <unistd.h>
698 $ DEFINE SYS$ERROR _NLA0:
699 $ DEFINE SYS$OUTPUT _NLA0:
700 $ on error then continue
701 $ on warning then continue
703 $ teststatus = f$extract(9,1,$status)
704 $ DEASSIGN SYS$OUTPUT
706 $ if (teststatus.nes."1")
708 $! Okay, gid_t failed. Must be unsigned int
709 $ perl_gidtype = "unsigned int"
711 $ perl_gidtype = "gid_t"
713 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
715 $! Check to see if we've got dev_t
719 $ WS "#include <stdlib.h>
721 $ WS "#include <stdio.h>
722 $ WS "#include <types.h>
723 $ WS "#include <unistd.h>
730 $ DEFINE SYS$ERROR _NLA0:
731 $ DEFINE SYS$OUTPUT _NLA0:
732 $ on error then continue
733 $ on warning then continue
735 $ teststatus = f$extract(9,1,$status)
736 $ DEASSIGN SYS$OUTPUT
738 $ if (teststatus.nes."1")
740 $! Okay, dev_t failed. Must be unsigned int
741 $ perl_devtype = "unsigned int"
743 $ perl_devtype = "dev_t"
745 $ WRITE_RESULT "Dev_t is ''perl_devtype'"
747 $! Check to see if we've got unistd.h (which we ought to, but you never know)
751 $ WS "#include <stdlib.h>
753 $ WS "#include <unistd.h>
759 $ DEFINE SYS$ERROR _NLA0:
760 $ DEFINE SYS$OUTPUT _NLA0:
761 $ on error then continue
762 $ on warning then continue
764 $ teststatus = f$extract(9,1,$status)
765 $ DEASSIGN SYS$OUTPUT
767 $ if (teststatus.nes."1")
769 $! Okay, failed. Must not have it
770 $ perl_i_unistd = "undef"
772 $ perl_i_unistd = "define"
775 $ WRITE_RESULT "i_unistd is ''perl_i_unistd'"
777 $! Check the prototype for select
779 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
783 $ WS "#include <stdlib.h>
785 $ WS "#include <stdio.h>
786 $ WS "#include <types.h>
787 $ WS "#include <unistd.h>
788 $ if ("''Has_Socketshr'".eqs."T")
790 $ WS "#include <socketshr.h>"
792 $ WS "#include <time.h>
793 $ WS "#include <socket.h>
800 $ WS "bar = select(2, foo, foo, foo, NULL);
804 $ DEFINE SYS$ERROR _NLA0:
805 $ DEFINE SYS$OUTPUT _NLA0:
806 $ on error then continue
807 $ on warning then continue
809 $ teststatus = f$extract(9,1,$status)
810 $ DEASSIGN SYS$OUTPUT
812 $ if (teststatus.nes."1")
814 $! Okay, fd_set failed. Must be an int
815 $ perl_selecttype = "int *"
817 $ perl_selecttype="fd_set *"
820 $ ! No sockets, so stick in an int *
821 $ perl_selecttype = "int *"
823 $ WRITE_RESULT "selectype is ''perl_selecttype'"
829 $ WS "#include <stdlib.h>
831 $ WS "#include <stdio.h>
832 $ WS "#include <strings.h>
836 $ WS "bzero(foo, 10);
840 $ DEFINE SYS$ERROR _NLA0:
841 $ DEFINE SYS$OUTPUT _NLA0:
842 $ on error then continue
843 $ on warning then continue
845 $ savedstatus = $status
846 $ teststatus = f$extract(9,1,savedstatus)
847 $ if (teststatus.nes."1")
849 $ perl_d_bzero="undef"
850 $ DEASSIGN SYS$OUTPUT
853 $ If (Needs_Opt.eqs."Yes")
859 $ savedstatus = $status
860 $ teststatus = f$extract(9,1,savedstatus)
861 $ DEASSIGN SYS$OUTPUT
863 $ if (teststatus.nes."1")
865 $ perl_d_bzero="undef"
867 $ perl_d_bzero="define"
870 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
876 $ WS "#include <stdlib.h>
878 $ WS "#include <stdio.h>
879 $ WS "#include <strings.h>
882 $ WS "char foo[10], bar[10];
883 $ WS "bcopy(""foo"", bar, 3);
887 $ DEFINE SYS$ERROR _NLA0:
888 $ DEFINE SYS$OUTPUT _NLA0:
889 $ on error then continue
890 $ on warning then continue
892 $ savedstatus = $status
893 $ teststatus = f$extract(9,1,savedstatus)
894 $ if (teststatus.nes."1")
896 $ perl_d_bcopy="undef"
897 $ DEASSIGN SYS$OUTPUT
900 $ If (Needs_Opt.eqs."Yes")
906 $ savedstatus = $status
907 $ teststatus = f$extract(9,1,savedstatus)
908 $ DEASSIGN SYS$OUTPUT
910 $ if (teststatus.nes."1")
912 $ perl_d_bcopy="undef"
914 $ perl_d_bcopy="define"
917 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
923 $ WS "#include <stdlib.h>
925 $ WS "#include <stdio.h>
928 $ WS "mkstemp(""foo"");
932 $ DEFINE SYS$ERROR _NLA0:
933 $ DEFINE SYS$OUTPUT _NLA0:
934 $ on error then continue
935 $ on warning then continue
937 $ If (Needs_Opt.eqs."Yes")
943 $ savedstatus = $status
944 $ teststatus = f$extract(9,1,savedstatus)
945 $ DEASSIGN SYS$OUTPUT
947 $ if (teststatus.nes."1")
949 $ perl_d_mkstemp="undef"
951 $ perl_d_mkstemp="define"
953 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
959 $ WS "#include <stdlib.h>
961 $ WS "#include <stdio.h>
965 $ WS "char Buffer[99];
966 $ WS "foo = fopen(""foo"", ""r"");
967 $ WS "setvbuf(foo, Buffer, 0, 0);
971 $ DEFINE SYS$ERROR _NLA0:
972 $ DEFINE SYS$OUTPUT _NLA0:
973 $ on error then continue
974 $ on warning then continue
976 $ If (Needs_Opt.eqs."Yes")
982 $ teststatus = f$extract(9,1,$status)
983 $ DEASSIGN SYS$OUTPUT
985 $ if (teststatus.nes."1")
987 $ perl_d_setvbuf="undef"
989 $ perl_d_setvbuf="define"
991 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
993 $! Check for <netinet/in.h>
995 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
999 $ WS "#include <stdlib.h>
1001 $ WS "#include <stdio.h>
1002 $ if ("''Has_Socketshr'".eqs."T")
1004 $ WS "#include <socketshr.h>"
1006 $ WS "#include <netdb.h>
1008 $ WS "#include <netinet/in.h>"
1014 $ DEFINE SYS$ERROR _NLA0:
1015 $ DEFINE SYS$OUTPUT _NLA0:
1016 $ on error then continue
1017 $ on warning then continue
1019 $ If (Needs_Opt.eqs."Yes")
1021 $ link temp,temp/opt
1025 $ teststatus = f$extract(9,1,$status)
1026 $ DEASSIGN SYS$OUTPUT
1027 $ DEASSIGN SYS$ERROR
1028 $ if (teststatus.nes."1")
1030 $ perl_i_niin="undef"
1032 $ perl_i_niin="define"
1035 $ perl_i_niin="undef"
1037 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
1039 $! Check for endhostent
1041 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1045 $ WS "#include <stdlib.h>
1047 $ WS "#include <stdio.h>
1048 $ if ("''Has_Socketshr'".eqs."T")
1050 $ WS "#include <socketshr.h>"
1052 $ WS "#include <netdb.h>
1060 $ DEFINE SYS$ERROR _NLA0:
1061 $ DEFINE SYS$OUTPUT _NLA0:
1062 $ on error then continue
1063 $ on warning then continue
1065 $ If (Needs_Opt.eqs."Yes")
1067 $ link temp,temp/opt
1071 $ teststatus = f$extract(9,1,$status)
1072 $ DEASSIGN SYS$OUTPUT
1073 $ DEASSIGN SYS$ERROR
1074 $ if (teststatus.nes."1")
1076 $ perl_d_endhent="undef"
1078 $ perl_d_endhent="define"
1081 $ perl_d_endhent="undef"
1083 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
1085 $! Check for endnetent
1087 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1091 $ WS "#include <stdlib.h>
1093 $ WS "#include <stdio.h>
1094 $ if ("''Has_Socketshr'".eqs."T")
1096 $ WS "#include <socketshr.h>"
1098 $ WS "#include <netdb.h>
1106 $ DEFINE SYS$ERROR _NLA0:
1107 $ DEFINE SYS$OUTPUT _NLA0:
1108 $ on error then continue
1109 $ on warning then continue
1111 $ If (Needs_Opt.eqs."Yes")
1113 $ link temp,temp/opt
1117 $ teststatus = f$extract(9,1,$status)
1118 $ DEASSIGN SYS$OUTPUT
1119 $ DEASSIGN SYS$ERROR
1120 $ if (teststatus.nes."1")
1122 $ perl_d_endnent="undef"
1124 $ perl_d_endnent="define"
1127 $ perl_d_endnent="undef"
1129 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
1131 $! Check for endprotoent
1133 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1137 $ WS "#include <stdlib.h>
1139 $ WS "#include <stdio.h>
1140 $ if ("''Has_Socketshr'".eqs."T")
1142 $ WS "#include <socketshr.h>"
1144 $ WS "#include <netdb.h>
1148 $ WS "endprotoent();
1152 $ DEFINE SYS$ERROR _NLA0:
1153 $ DEFINE SYS$OUTPUT _NLA0:
1154 $ on error then continue
1155 $ on warning then continue
1157 $ If (Needs_Opt.eqs."Yes")
1159 $ link temp,temp/opt
1163 $ teststatus = f$extract(9,1,$status)
1164 $ DEASSIGN SYS$OUTPUT
1165 $ DEASSIGN SYS$ERROR
1166 $ if (teststatus.nes."1")
1168 $ perl_d_endpent="undef"
1170 $ perl_d_endpent="define"
1173 $ perl_d_endpent="undef"
1175 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
1177 $! Check for endservent
1179 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1183 $ WS "#include <stdlib.h>
1185 $ WS "#include <stdio.h>
1186 $ if ("''Has_Socketshr'".eqs."T")
1188 $ WS "#include <socketshr.h>"
1190 $ WS "#include <netdb.h>
1198 $ DEFINE SYS$ERROR _NLA0:
1199 $ DEFINE SYS$OUTPUT _NLA0:
1200 $ on error then continue
1201 $ on warning then continue
1203 $ If (Needs_Opt.eqs."Yes")
1205 $ link temp,temp/opt
1209 $ teststatus = f$extract(9,1,$status)
1210 $ DEASSIGN SYS$OUTPUT
1211 $ DEASSIGN SYS$ERROR
1212 $ if (teststatus.nes."1")
1214 $ perl_d_endsent="undef"
1216 $ perl_d_endsent="define"
1219 $ perl_d_endsent="undef"
1221 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
1223 $! Check for sethostent
1225 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1229 $ WS "#include <stdlib.h>
1231 $ WS "#include <stdio.h>
1232 $ if ("''Has_Socketshr'".eqs."T")
1234 $ WS "#include <socketshr.h>"
1236 $ WS "#include <netdb.h>
1240 $ WS "sethostent(1);
1244 $ DEFINE SYS$ERROR _NLA0:
1245 $ DEFINE SYS$OUTPUT _NLA0:
1246 $ on error then continue
1247 $ on warning then continue
1249 $ If (Needs_Opt.eqs."Yes")
1251 $ link temp,temp/opt
1255 $ teststatus = f$extract(9,1,$status)
1256 $ DEASSIGN SYS$OUTPUT
1257 $ DEASSIGN SYS$ERROR
1258 $ if (teststatus.nes."1")
1260 $ perl_d_sethent="undef"
1262 $ perl_d_sethent="define"
1265 $ perl_d_sethent="undef"
1267 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
1269 $! Check for setnetent
1271 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1275 $ WS "#include <stdlib.h>
1277 $ WS "#include <stdio.h>
1278 $ if ("''Has_Socketshr'".eqs."T")
1280 $ WS "#include <socketshr.h>"
1282 $ WS "#include <netdb.h>
1290 $ DEFINE SYS$ERROR _NLA0:
1291 $ DEFINE SYS$OUTPUT _NLA0:
1292 $ on error then continue
1293 $ on warning then continue
1295 $ If (Needs_Opt.eqs."Yes")
1297 $ link temp,temp/opt
1301 $ teststatus = f$extract(9,1,$status)
1302 $ DEASSIGN SYS$OUTPUT
1303 $ DEASSIGN SYS$ERROR
1304 $ if (teststatus.nes."1")
1306 $ perl_d_setnent="undef"
1308 $ perl_d_setnent="define"
1311 $ perl_d_setnent="undef"
1313 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
1315 $! Check for setprotoent
1317 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1321 $ WS "#include <stdlib.h>
1323 $ WS "#include <stdio.h>
1324 $ if ("''Has_Socketshr'".eqs."T")
1326 $ WS "#include <socketshr.h>"
1328 $ WS "#include <netdb.h>
1332 $ WS "setprotoent(1);
1336 $ DEFINE SYS$ERROR _NLA0:
1337 $ DEFINE SYS$OUTPUT _NLA0:
1338 $ on error then continue
1339 $ on warning then continue
1341 $ If (Needs_Opt.eqs."Yes")
1343 $ link temp,temp/opt
1347 $ teststatus = f$extract(9,1,$status)
1348 $ DEASSIGN SYS$OUTPUT
1349 $ DEASSIGN SYS$ERROR
1350 $ if (teststatus.nes."1")
1352 $ perl_d_setpent="undef"
1354 $ perl_d_setpent="define"
1357 $ perl_d_setpent="undef"
1359 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
1361 $! Check for setservent
1363 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1367 $ WS "#include <stdlib.h>
1369 $ WS "#include <stdio.h>
1370 $ if ("''Has_Socketshr'".eqs."T")
1372 $ WS "#include <socketshr.h>"
1374 $ WS "#include <netdb.h>
1378 $ WS "setservent(1);
1382 $ DEFINE SYS$ERROR _NLA0:
1383 $ DEFINE SYS$OUTPUT _NLA0:
1384 $ on error then continue
1385 $ on warning then continue
1387 $ If (Needs_Opt.eqs."Yes")
1389 $ link temp,temp/opt
1393 $ teststatus = f$extract(9,1,$status)
1394 $ DEASSIGN SYS$OUTPUT
1395 $ DEASSIGN SYS$ERROR
1396 $ if (teststatus.nes."1")
1398 $ perl_d_setsent="undef"
1400 $ perl_d_setsent="define"
1403 $ perl_d_setsent="undef"
1405 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
1407 $! Check for gethostent
1409 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1413 $ WS "#include <stdlib.h>
1415 $ WS "#include <stdio.h>
1416 $ if ("''Has_Socketshr'".eqs."T")
1418 $ WS "#include <socketshr.h>"
1420 $ WS "#include <netdb.h>
1428 $ DEFINE SYS$ERROR _NLA0:
1429 $ DEFINE SYS$OUTPUT _NLA0:
1430 $ on error then continue
1431 $ on warning then continue
1433 $ If (Needs_Opt.eqs."Yes")
1435 $ link temp,temp/opt
1439 $ teststatus = f$extract(9,1,$status)
1440 $ DEASSIGN SYS$OUTPUT
1441 $ DEASSIGN SYS$ERROR
1442 $ if (teststatus.nes."1")
1444 $ perl_d_gethent="undef"
1446 $ perl_d_gethent="define"
1449 $ perl_d_gethent="undef"
1451 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
1453 $! Check for getnetent
1455 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1459 $ WS "#include <stdlib.h>
1461 $ WS "#include <stdio.h>
1462 $ if ("''Has_Socketshr'".eqs."T")
1464 $ WS "#include <socketshr.h>"
1466 $ WS "#include <netdb.h>
1474 $ DEFINE SYS$ERROR _NLA0:
1475 $ DEFINE SYS$OUTPUT _NLA0:
1476 $ on error then continue
1477 $ on warning then continue
1479 $ If (Needs_Opt.eqs."Yes")
1481 $ link temp,temp/opt
1485 $ teststatus = f$extract(9,1,$status)
1486 $ DEASSIGN SYS$OUTPUT
1487 $ DEASSIGN SYS$ERROR
1488 $ if (teststatus.nes."1")
1490 $ perl_d_getnent="undef"
1492 $ perl_d_getnent="define"
1495 $ perl_d_getnent="undef"
1497 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
1499 $! Check for getprotoent
1501 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1505 $ WS "#include <stdlib.h>
1507 $ WS "#include <stdio.h>
1508 $ if ("''Has_Socketshr'".eqs."T")
1510 $ WS "#include <socketshr.h>"
1512 $ WS "#include <netdb.h>
1516 $ WS "getprotoent();
1520 $ DEFINE SYS$ERROR _NLA0:
1521 $ DEFINE SYS$OUTPUT _NLA0:
1522 $ on error then continue
1523 $ on warning then continue
1525 $ If (Needs_Opt.eqs."Yes")
1527 $ link temp,temp/opt
1531 $ teststatus = f$extract(9,1,$status)
1532 $ DEASSIGN SYS$OUTPUT
1533 $ DEASSIGN SYS$ERROR
1534 $ if (teststatus.nes."1")
1536 $ perl_d_getpent="undef"
1538 $ perl_d_getpent="define"
1541 $ perl_d_getpent="undef"
1543 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
1545 $! Check for getservent
1547 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1551 $ WS "#include <stdlib.h>
1553 $ WS "#include <stdio.h>
1554 $ if ("''Has_Socketshr'".eqs."T")
1556 $ WS "#include <socketshr.h>"
1558 $ WS "#include <netdb.h>
1566 $ DEFINE SYS$ERROR _NLA0:
1567 $ DEFINE SYS$OUTPUT _NLA0:
1568 $ on error then continue
1569 $ on warning then continue
1571 $ If (Needs_Opt.eqs."Yes")
1573 $ link temp,temp/opt
1577 $ teststatus = f$extract(9,1,$status)
1578 $ DEASSIGN SYS$OUTPUT
1579 $ DEASSIGN SYS$ERROR
1580 $ if (teststatus.nes."1")
1582 $ perl_d_getsent="undef"
1584 $ perl_d_getsent="define"
1587 $ perl_d_getsent="undef"
1589 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
1591 $! Check for pthread_yield
1593 $ if ("''use_threads'".eqs."T")
1597 $ WS "#include <stdlib.h>
1599 $ WS "#include <pthread.h>
1600 $ WS "#include <stdio.h>
1603 $ WS "pthread_yield();
1607 $ DEFINE SYS$ERROR _NLA0:
1608 $ DEFINE SYS$OUTPUT _NLA0:
1609 $ on error then continue
1610 $ on warning then continue
1612 $ teststatus = f$extract(9,1,$status)
1613 $ DEASSIGN SYS$OUTPUT
1614 $ DEASSIGN SYS$ERROR
1615 $ if (teststatus.nes."1")
1617 $ perl_d_pthread_yield="undef"
1619 $ perl_d_pthread_yield="define"
1622 $ perl_d_pthread_yield="undef"
1624 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
1626 $! Check for sched_yield
1628 $ if ("''use_threads'".eqs."T")
1632 $ WS "#include <stdlib.h>
1634 $ WS "#include <pthread.h>
1635 $ WS "#include <stdio.h>
1638 $ WS "sched_yield();
1642 $ DEFINE SYS$ERROR _NLA0:
1643 $ DEFINE SYS$OUTPUT _NLA0:
1644 $ on error then continue
1645 $ on warning then continue
1647 $ teststatus = f$extract(9,1,$status)
1648 $ DEASSIGN SYS$OUTPUT
1649 $ DEASSIGN SYS$ERROR
1650 $ if (teststatus.nes."1")
1652 $ perl_d_sched_yield="undef"
1654 $ perl_d_sched_yield="define"
1657 $ perl_d_sched_yield="undef"
1659 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
1661 $! Check for generic pointer size
1665 $ WS "#include <stdlib.h>
1667 $ WS "#include <stdio.h>
1671 $ WS "foo = sizeof(char *);
1672 $ WS "printf(""%d\n"", foo);
1676 $! copy temp.c sys$output
1678 $ DEFINE SYS$ERROR _NLA0:
1679 $ DEFINE SYS$OUTPUT _NLA0:
1680 $ ON ERROR THEN CONTINUE
1681 $ ON WARNING THEN CONTINUE
1683 $ If (Needs_Opt.eqs."Yes")
1685 $ link temp,temp/opt
1689 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
1690 $ DEASSIGN SYS$OUTPUT
1691 $ DEASSIGN SYS$ERROR
1692 $ DEFINE SYS$ERROR TEMPOUT
1693 $ DEFINE SYS$OUTPUT TEMPOUT
1696 $ DEASSIGN SYS$OUTPUT
1697 $ DEASSIGN SYS$ERROR
1698 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
1703 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
1706 $! Done with compiler checks. Clean up.
1707 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
1708 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
1709 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
1710 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
1713 $! Some that are compiler or VMS version sensitive
1716 $ IF "''Using_Gnu_C'".EQS."Yes"
1718 $ perl_d_attribut="define"
1719 $ perl_vms_cc_type="gcc"
1721 $ perl_d_attribut="undef"
1724 $! Dec C >= 5.2 and VMS ver >= 7.0
1725 $ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
1727 $ perl_d_bcmp="define"
1728 $ perl_d_gettimeod="define"
1729 $ perl_d_uname="define"
1730 $ perl_d_sigaction="define"
1731 $ perl_d_truncate="define"
1732 $ perl_d_wait4="define"
1733 $ perl_d_index="define"
1734 $ perl_pidtype="pid_t"
1735 $ 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"
1736 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
1737 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
1738 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
1739 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
1740 $ 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"
1741 $ perl_sig_num_with_commas=perl_sig_num
1742 $ perl_uidtype="uid_t"
1743 $ perl_d_pathconf="define"
1744 $ perl_d_fpathconf="define"
1745 $ perl_d_sysconf="define"
1746 $ perl_d_sigsetjmp="define"
1748 $ perl_pidtype="unsigned int"
1749 $ perl_d_gettimeod="undef"
1750 $ perl_d_bcmp="undef"
1751 $ perl_d_uname="undef"
1752 $ perl_d_sigaction="undef"
1753 $ perl_d_truncate="undef"
1754 $ perl_d_wait4="undef"
1755 $ perl_d_index="undef"
1756 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
1757 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
1758 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
1759 $ perl_sig_name_with_commas = psnwc1 + psnwc2
1760 $ perl_sig_num="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
1761 $ perl_sig_num_with_commas=perl_sig_num
1762 $ perl_uidtype="unsigned int"
1763 $ perl_d_pathconf="undef"
1764 $ perl_d_fpathconf="undef"
1765 $ perl_d_sysconf="undef"
1766 $ perl_d_sigsetjmp="undef"
1770 $ IF ("''Using_Dec_C'".EQS."Yes")
1772 $ perl_d_mbstowcs="define"
1773 $ perl_d_mbtowc="define"
1774 $ perl_d_stdiobase="define"
1775 $ perl_d_stdio_ptr_lval="define"
1776 $ perl_d_stdio_cnt_lval="define"
1777 $ perl_d_stdstdio="define"
1778 $ perl_d_wcstombs="define"
1779 $ perl_d_mblen="define"
1780 $ perl_d_mktime="define"
1781 $ perl_d_strcoll="define"
1782 $ perl_d_strxfrm="define"
1783 $ perl_d_wctomb="define"
1784 $ perl_i_locale="define"
1785 $ perl_d_locconv="define"
1786 $ perl_d_setlocale="define"
1787 $ perl_vms_cc_type="decc"
1789 $ perl_d_mbstowcs="undef"
1790 $ perl_d_mbtowc="undef"
1791 $ perl_d_stdiobase="undef"
1792 $ perl_d_stdio_ptr_lval="undef"
1793 $ perl_d_stdio_cnt_lval="undef"
1794 $ perl_d_stdstdio="undef"
1795 $ perl_d_wcstombs="undef"
1796 $ perl_d_mblen="undef"
1797 $ perl_d_mktime="undef"
1798 $ perl_d_strcoll="undef"
1799 $ perl_d_strxfrm="undef"
1800 $ perl_d_wctomb="undef"
1801 $ perl_i_locale="undef"
1802 $ perl_d_locconv="undef"
1803 $ perl_d_setlocale="undef"
1807 $ if ("''Using_Vax_C'".EQS."Yes")
1809 $ perl_vms_cc_type="vaxc"
1814 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
1816 $ perl_d_vms_do_sockets="define"
1817 $ perl_d_htonl="define"
1818 $ perl_d_socket="define"
1819 $ perl_d_select="define"
1820 $ perl_netdb_host_type="char *"
1821 $ perl_netdb_hlen_type="int"
1822 $ perl_netdb_name_type="char *"
1823 $ perl_netdb_net_type="long"
1824 $ perl_d_gethbyaddr="define"
1825 $ perl_d_gethbyname="define"
1826 $ perl_d_getnbyaddr="define"
1827 $ perl_d_getnbyname="define"
1828 $ perl_d_getpbynumber="define"
1829 $ perl_d_getpbyname="define"
1830 $ perl_d_getsbyport="define"
1831 $ perl_d_getsbyname="define"
1832 $ perl_d_gethostprotos="define"
1833 $ perl_d_getnetprotos="define"
1834 $ perl_d_getprotoprotos="define"
1835 $ perl_d_getservprotos="define"
1837 $ perl_d_vms_do_sockets="undef"
1838 $ perl_d_htonl="undef"
1839 $ perl_d_socket="undef"
1840 $ perl_d_select="undef"
1841 $ perl_netdb_host_type="char *"
1842 $ perl_netdb_hlen_type="int"
1843 $ perl_netdb_name_type="char *"
1844 $ perl_netdb_net_type="long"
1845 $ perl_d_gethbyaddr="undef"
1846 $ perl_d_gethbyname="undef"
1847 $ perl_d_getnbyaddr="undef"
1848 $ perl_d_getnbyname="undef"
1849 $ perl_d_getpbynumber="undef"
1850 $ perl_d_getpbyname="undef"
1851 $ perl_d_getsbyport="undef"
1852 $ perl_d_getsbyname="undef"
1853 $ perl_d_gethostprotos="undef"
1854 $ perl_d_getnetprotos="undef"
1855 $ perl_d_getprotoprotos="undef"
1856 $ perl_d_getservprotos="undef"
1859 $ if ("''use_threads'".eqs."T")
1861 $ perl_usethreads="define"
1862 $ perl_d_pthreads_created_joinable="define"
1863 $ if ("''VMS_VER'".ges."7.0")
1865 $ perl_d_oldpthreads="undef"
1867 $ perl_d_oldpthreads="define"
1870 $ perl_d_oldpthreads="undef"
1871 $ perl_usethreads="undef"
1873 $ perl_d_pthreads_created_joinable="undef"
1877 $! Finally the composite ones. All config
1878 $ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
1879 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
1880 $ perl_myhostname="''myhostname'"
1881 $ perl_mydomain="''mydomain'"
1882 $ perl_perladmin="''perladmin'"
1883 $ perl_cf_email="''cf_email'"
1884 $ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
1885 $ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
1886 $ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
1887 $ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
1888 $ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
1889 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
1890 $ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
1891 $ if "''Using_Dec_C'" .eqs. "Yes"
1893 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
1895 $ IF "''Using_Vax_C'" .eqs. "Yes"
1897 $ perl_ccflags="/Include=[]/Obj=''perl_obj_ext'/NoList''cc_flags'"
1901 $! Finally clean off any leading zeros from the patchlevel or subversion
1902 $ perl_patchlevel = perl_patchlevel + 0
1903 $ perl_subversion = perl_subversion + 0
1905 $! Okay, we've got everything configured. Now go write out a config.sh.
1906 $ open/write CONFIGSH [-]config.sh
1907 $ WC := "write CONFIGSH"
1909 $ WC "# This file generated by Configure.COM on a VMS system."
1910 $ WC "# Time: " + perl_cf_time
1912 $ WC "package='" + perl_package + "'"
1913 $ WC "CONFIG='" + perl_config + "'"
1914 $ WC "cf_time='" + perl_cf_time + "'"
1915 $ WC "cf_by='" + perl_cf_by+ "'"
1916 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
1917 $ WC "ccdlflags='" + perl_ccdlflags + "'"
1918 $ WC "cccdlflags='" + perl_cccdlflags + "'"
1919 $ WC "mab='" + perl_mab + "'"
1920 $ WC "libpth='" + perl_libpth + "'"
1921 $ WC "ld='" + perl_ld + "'"
1922 $ WC "lddlflags='" + perl_lddlflags + "'"
1923 $ WC "ranlib='" + perl_ranlib + "'"
1924 $ WC "ar='" + perl_ar + "'"
1925 $ WC "eunicefix='" + perl_eunicefix + "'"
1926 $ WC "hint='" + perl_hint +"'"
1927 $ WC "hintfile='" + perl_hintfile + "'"
1928 $ WC "shrplib='" + perl_shrplib + "'"
1929 $ WC "usemymalloc='" + perl_usemymalloc + "'"
1930 $ WC "usevfork='" + perl_usevfork + "'"
1931 $ WC "useposix='false'"
1932 $ WC "spitshell='write sys$output '"
1933 $ WC "dlsrc='dl_vms.c'"
1934 $ WC "binexp='" + perl_binexp + "'"
1935 $ WC "man1ext='" + perl_man1ext + "'"
1936 $ WC "man3ext='" + perl_man3ext + "'"
1937 $ WC "arch='" + perl_arch + "'"
1938 $ WC "archname='" + perl_archname + "'"
1939 $ WC "osvers='" + perl_osvers + "'"
1940 $ WC "prefix='" + perl_prefix + "'"
1941 $ WC "builddir='" + perl_builddir + "'"
1942 $ WC "installbin='" + perl_installbin + "'"
1943 $ WC "installscript='" + perl_installscript + "'"
1944 $ WC "installman1dir='" + perl_installman1dir + "'"
1945 $ WC "installman3dir='" + perl_installman3dir + "'"
1946 $ WC "installprivlib='" + perl_installprivlib + "'"
1947 $ WC "installarchlib='" + perl_installarchlib + "'"
1948 $ WC "installsitelib='" + perl_installsitelib + "'"
1949 $ WC "installsitearch='" + perl_installsitearch + "'"
1950 $ WC "path_sep='" + perl_path_sep + "'"
1951 $ WC "startperl=""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ perl_ + ++$status != 0 and $exit = $status = undef;"""
1952 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
1953 $ WC "d_attribut='" + perl_d_attribut + "'"
1954 $ WC "cc='" + perl_cc + "'"
1955 $ WC "ccflags='" + perl_ccflags + "'"
1956 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
1957 $ WC "d_socket='" + perl_d_socket + "'"
1958 $ WC "d_sockpair='" + perl_d_sockpair + "'"
1959 $ WC "d_gethent='" + perl_d_gethent + "'"
1960 $ WC "d_getsent='" + perl_d_getsent + "'"
1961 $ WC "d_select='" + perl_d_select + "'"
1962 $ WC "i_niin='" + perl_i_niin + "'"
1963 $ WC "i_neterrno='" + perl_i_neterrno + "'"
1964 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
1965 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
1966 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
1967 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
1968 $ WC "d_locconv='" + perl_d_locconv + "'"
1969 $ WC "d_setlocale='" + perl_d_setlocale + "'"
1970 $ WC "i_locale='" + perl_i_locale + "'"
1971 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
1972 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
1973 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
1974 $ WC "d_wctomb='" + perl_d_wctomb + "'"
1975 $ WC "d_mblen='" + perl_d_mblen + "'"
1976 $ WC "d_mktime='" + perl_d_mktime + "'"
1977 $ WC "d_strcoll='" + perl_d_strcoll + "'"
1978 $ WC "d_strxfrm='" + perl_d_strxfrm + "'"
1979 $ WC "ldflags='" + perl_ldflags + "'"
1980 $ WC "dlobj='" + perl_dlobj + "'"
1981 $ WC "obj_ext='" + perl_obj_ext + "'"
1982 $ WC "so='" + perl_so + "'"
1983 $ WC "dlext='" + perl_dlext + "'"
1984 $ WC "exe_ext='" + perl_exe_ext + "'"
1985 $ WC "lib_ext='" + perl_lib_ext + "'"
1986 $ WC "myhostname='" + perl_myhostname + "'"
1987 $ WC "mydomain='" + perl_mydomain + "'"
1988 $ WC "perladmin='" + perl_perladmin + "'"
1989 $ WC "cf_email='" + perl_cf_email + "'"
1990 $ WC "myuname='" + perl_myuname + "'"
1991 $ WC "alignbytes='" + perl_alignbytes + "'"
1992 $ WC "osname='" + perl_osname + "'"
1993 $ WC "d_archlib='" + perl_d_archlib + "'"
1994 $ WC "archlibexp='" + perl_archlibexp + "'"
1995 $ WC "archlib='" + perl_archlib + "'"
1996 $ WC "archname='" + perl_archname + "'"
1997 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
1998 $ WC "cppstdin='" + perl_cppstdin + "'"
1999 $ WC "cppminus='" + perl_cppminus + "'"
2000 $ WC "d_bcmp='" + perl_d_bcmp + "'"
2001 $ WC "d_bcopy='" + perl_d_bcopy + "'"
2002 $ WC "d_bzero='" + perl_d_bzero + "'"
2003 $ WC "d_castneg='" + perl_d_castneg + "'"
2004 $ WC "castflags='" + perl_castflags + "'"
2005 $ WC "d_chsize='" + perl_d_chsize + "'"
2006 $ WC "d_const='" + perl_d_const + "'"
2007 $ WC "d_crypt='" + perl_d_crypt + "'"
2008 $ WC "byteorder='" + perl_byteorder + "'"
2009 $ WC "full_csh='" + perl_full_csh + "'"
2010 $ WC "d_csh='" + perl_d_csh + "'"
2011 $ WC "d_dup2='" + perl_d_dup2 + "'"
2012 $ WC "d_fchmod='" + perl_d_fchmod + "'"
2013 $ WC "d_fchown='" + perl_d_fchown + "'"
2014 $ WC "d_fcntl='" + perl_d_fcntl + "'"
2015 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
2016 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
2017 $ WC "d_flock='" + perl_d_flock + "'"
2018 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
2019 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
2020 $ WC "d_getgrps='" + perl_d_getgrps + "'"
2021 $ WC "d_setgrps='" + perl_d_setgrps + "'"
2022 $ WC "d_uname='" + perl_d_uname + "'"
2023 $ WC "d_getprior='" + perl_d_getprior + "'"
2024 $ WC "d_killpg='" + perl_d_killpg + "'"
2025 $ WC "d_link='" + perl_d_link + "'"
2026 $ WC "d_lstat='" + perl_d_lstat + "'"
2027 $ WC "d_lockf='" + perl_d_lockf + "'"
2028 $ WC "d_memcmp='" + perl_d_memcmp + "'"
2029 $ WC "d_memcpy='" + perl_d_memcpy + "'"
2030 $ WC "d_memmove='" + perl_d_memmove + "'"
2031 $ WC "d_memset='" + perl_d_memset + "'"
2032 $ WC "d_mkdir='" + perl_d_mkdir + "'"
2033 $ WC "d_msg='" + perl_d_msg + "'"
2034 $ WC "d_open3='" + perl_d_open3 + "'"
2035 $ WC "d_poll='" + perl_d_poll + "'"
2036 $ WC "d_readdir='" + perl_d_readdir + "'"
2037 $ WC "d_seekdir='" + perl_d_seekdir + "'"
2038 $ WC "d_telldir='" + perl_d_telldir + "'"
2039 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
2040 $ WC "d_rename='" + perl_d_rename + "'"
2041 $ WC "d_rmdir='" + perl_d_rmdir + "'"
2042 $ WC "d_sem='" + perl_d_sem + "'"
2043 $ WC "d_setegid='" + perl_d_setegid + "'"
2044 $ WC "d_seteuid='" + perl_d_seteuid + "'"
2045 $ WC "d_setprior='" + perl_d_setprior + "'"
2046 $ WC "d_setregid='" + perl_d_setregid + "'"
2047 $ WC "d_setresgid='" + perl_d_setresgid + "'"
2048 $ WC "d_setreuid='" + perl_d_setreuid + "'"
2049 $ WC "d_setresuid='" + perl_d_setresuid + "'"
2050 $ WC "d_setrgid='" + perl_d_setrgid + "'"
2051 $ WC "d_setruid='" + perl_d_setruid + "'"
2052 $ WC "d_setsid='" + perl_d_setsid + "'"
2053 $ WC "d_shm='" + perl_d_shm + "'"
2054 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
2055 $ WC "d_sigaction='" + perl_d_sigaction + "'"
2056 $ WC "d_statblks='" + perl_d_statblks + "'"
2057 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
2058 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
2059 $ WC "stdio_base='" + perl_stdio_base + "'"
2060 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
2061 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
2062 $ WC "d_strerror='" + perl_d_strerror + "'"
2063 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
2064 $ WC "d_strerrm='" + perl_d_strerrm + "'"
2065 $ WC "d_symlink='" + perl_d_symlink + "'"
2066 $ WC "d_syscall='" + perl_d_syscall + "'"
2067 $ WC "d_system='" + perl_d_system + "'"
2068 $ WC "timetype='" + perl_timetype + "'"
2069 $ WC "d_truncate='" + perl_d_truncate + "'"
2070 $ WC "d_vfork='" + perl_d_vfork + "'"
2071 $ WC "signal_t='" + perl_signal_t + "'"
2072 $ WC "d_volatile='" + perl_d_volatile + "'"
2073 $ WC "d_vprintf='" + perl_d_vprintf + "'"
2074 $ WC "d_charvspr='" + perl_d_charvspr + "'"
2075 $ WC "d_wait4='" + perl_d_wait4 + "'"
2076 $ WC "d_waitpid='" + perl_d_waitpid + "'"
2077 $ WC "i_dirent='" + perl_i_dirent + "'"
2078 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
2079 $ WC "direntrytype='" + perl_direntrytype + "'"
2080 $ WC "i_fcntl='" + perl_i_fcntl + "'"
2081 $ WC "i_grp='" + perl_i_grp + "'"
2082 $ WC "i_limits='" + perl_i_limits + "'"
2083 $ WC "i_memory='" + perl_i_memory + "'"
2084 $ WC "i_ndbm='" + perl_i_ndbm + "'"
2085 $ WC "i_stdarg='" + perl_i_stdarg + "'"
2086 $ WC "i_pwd='" + perl_i_pwd + "'"
2087 $ WC "d_pwquota='" + perl_d_pwquota + "'"
2088 $ WC "d_pwage='" + perl_d_pwage + "'"
2089 $ WC "d_pwchange='" + perl_d_pwchange + "'"
2090 $ WC "d_pwclass='" + perl_d_pwclass + "'"
2091 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
2092 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
2093 $ WC "i_stddef='" + perl_i_stddef + "'"
2094 $ WC "i_stdlib='" + perl_i_stdlib + "'"
2095 $ WC "i_string='" + perl_i_string + "'"
2096 $ WC "i_sysdir='" + perl_i_sysdir + "'"
2097 $ WC "i_sysfile='" + perl_i_sysfile + "'"
2098 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
2099 $ WC "i_sysndir='" + perl_i_sysndir + "'"
2100 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
2101 $ WC "i_sysselct='" + perl_i_sysselct + "'"
2102 $ WC "i_dbm='" + perl_i_dbm + "'"
2103 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
2104 $ WC "i_sfio='" + perl_i_sfio + "'"
2105 $ WC "i_sysstat='" + perl_i_sysstat + "'"
2106 $ WC "i_systimes='" + perl_i_systimes + "'"
2107 $ WC "i_systypes='" + perl_i_systypes + "'"
2108 $ WC "i_sysun='" + perl_i_sysun + "'"
2109 $ WC "i_syswait='" + perl_i_syswait + "'"
2110 $ WC "i_termio='" + perl_i_termio + "'"
2111 $ WC "i_sgtty='" + perl_i_sgtty + "'"
2112 $ WC "i_termios='" + perl_i_termios + "'"
2113 $ WC "i_time='" + perl_i_time + "'"
2114 $ WC "i_systime='" + perl_i_systime + "'"
2115 $ WC "i_systimek='" + perl_i_systimek + "'"
2116 $ WC "i_unistd='" + perl_i_unistd + "'"
2117 $ WC "i_utime='" + perl_i_utime + "'"
2118 $ WC "i_varargs='" + perl_i_varargs + "'"
2119 $ WC "i_vfork='" + perl_i_vfork + "'"
2120 $ WC "prototype='" + perl_prototype + "'"
2121 $ WC "randbits='" + perl_randbits +"'"
2122 $ WC "selecttype='" + perl_selecttype + "'"
2123 $ WC "stdchar='" + perl_stdchar + "'"
2124 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
2125 $ WC "full_sed='" + perl_full_sed + "'"
2126 $ WC "bin='" + perl_bin + "'"
2127 $ WC "binexp='" + perl_binexp + "'"
2128 $ WC "d_alarm='" + perl_d_alarm + "'"
2129 $ WC "d_casti32='" + perl_d_casti32 + "'"
2130 $ WC "d_chown='" + perl_d_chown + "'"
2131 $ WC "d_chroot='" + perl_d_chroot + "'"
2132 $ WC "d_cuserid='" + perl_d_cuserid + "'"
2133 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
2134 $ WC "d_difftime='" + perl_d_difftime + "'"
2135 $ WC "d_fork='" + perl_d_fork + "'"
2136 $ WC "d_getlogin='" + perl_d_getlogin + "'"
2137 $ WC "d_getppid='" + perl_d_getppid + "'"
2138 $ WC "d_htonl='" + perl_d_htonl + "'"
2139 $ WC "d_nice='" + perl_d_nice + "'"
2140 $ WC "d_pause='" + perl_d_pause + "'"
2141 $ WC "d_pipe='" + perl_d_pipe + "'"
2142 $ WC "d_readlink='" + perl_d_readlink + "'"
2143 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
2144 $ WC "d_strchr='" + perl_d_strchr + "'"
2145 $ WC "d_index='" + perl_d_index + "'"
2146 $ WC "d_strtod='" + perl_d_strtod + "'"
2147 $ WC "d_strtol='" + perl_d_strtol + "'"
2148 $ WC "d_strtoul='" + perl_d_strtoul + "'"
2149 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
2150 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
2151 $ WC "d_times='" + perl_d_times + "'"
2152 $ WC "d_tzname='" + perl_d_tzname + "'"
2153 $ WC "d_umask='" + perl_d_umask + "'"
2154 $ WC "fpostype='" + perl_fpostype + "'"
2155 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
2156 $ WC "i_float='" + perl_i_float + "'"
2157 $ WC "i_math='" + perl_i_math + "'"
2158 $ WC "intsize='" + perl_intsize + "'"
2159 $ WC "longsize='" + perl_longsize + "'"
2160 $ WC "shortsize='" + perl_shortsize + "'"
2161 $ WC "lseektype='" + perl_lseektype + "'"
2162 $ WC "i_values='" + perl_i_values + "'"
2163 $ WC "malloctype='" + perl_malloctype + "'"
2164 $ WC "freetype='" + perl_freetype + "'"
2165 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
2166 $ WC "sh='" + perl_sh + "'"
2167 $ WC "sig_name='" + perl_sig_name + "'"
2168 $ WC "sig_num='" + perl_sig_num + "'"
2169 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
2171 $ WC "modetype='" + perl_modetype + "'"
2172 $ WC "ssizetype='" + perl_ssizetype + "'"
2173 $ WC "o_nonblock='" + perl_o_nonblock + "'"
2174 $ WC "eagain='" + perl_eagain + "'"
2175 $ WC "rd_nodata='" + perl_rd_nodata + "'"
2176 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
2177 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
2178 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
2179 $ WC "oldarchlib='" + perl_oldarchlib + "'"
2180 $ WC "privlibexp='" + perl_privlibexp + "'"
2181 $ WC "privlib='" + perl_privlib + "'"
2182 $ WC "sitelibexp='" + perl_sitelibexp + "'"
2183 $ WC "sitelib='" + perl_sitelib + "'"
2184 $ WC "sitearchexp='" + perl_sitearchexp + "'"
2185 $ WC "sitearch='" + perl_sitearch + "'"
2186 $ WC "sizetype='" + perl_sizetype + "'"
2187 $ WC "i_sysparam='" + perl_i_sysparam + "'"
2188 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
2189 $ WC "d_dlerror='" + perl_d_dlerror + "'"
2190 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
2191 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
2192 $ WC "d_dosuid='" + perl_d_dosuid + "'"
2193 $ WC "d_inetaton='" + perl_d_inetaton + "'"
2194 $ WC "d_isascii='" + perl_d_isascii + "'"
2195 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
2196 $ WC "d_pathconf='" + perl_d_pathconf + "'"
2197 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
2198 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
2199 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
2200 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
2201 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
2202 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
2203 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
2204 $ WC "d_setpgid='" + perl_d_setpgid + "'"
2205 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
2206 $ WC "d_sysconf='" + perl_d_sysconf + "'"
2207 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
2208 $ WC "d_getpgid='" + perl_d_getpgid + "'"
2209 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
2210 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
2211 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
2212 $ WC "d_sfio='" + perl_d_sfio + "'"
2213 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
2214 $ WC "usedl='" + perl_usedl + "'"
2215 $ WC "startperl='" + perl_startperl + "'"
2216 $ WC "db_hashtype='" + perl_db_hashtype + "'"
2217 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
2218 $ WC "useperlio='" + perl_useperlio + "'"
2219 $ WC "defvoidused='" + perl_defvoidused + "'"
2220 $ WC "voidflags='" + perl_voidflags + "'"
2221 $ WC "d_eunice='" + perl_d_eunice + "'"
2222 $ WC "libs='" + perl_libs + "'"
2223 $ WC "libc='" + perl_libc + "'"
2224 $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
2226 $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
2228 $ WC "pager='" + perl_pager + "'"
2229 $ WC "uidtype='" + perl_uidtype + "'"
2230 $ WC "gidtype='" + perl_gidtype + "'"
2231 $ WC "usethreads='" + perl_usethreads + "'"
2232 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
2233 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
2234 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
2235 $ WC "i_netdb='" + perl_i_netdb + "'"
2236 $ WC "pidtype='" + perl_pidtype + "'"
2237 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
2238 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
2239 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
2240 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
2241 $ WC "baserev='" + perl_baserev + "'"
2242 $ WC "doublesize='" + perl_doublesize + "'"
2243 $ WC "ptrsize='" + perl_ptrsize + "'"
2244 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
2245 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
2246 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
2247 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
2248 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
2249 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
2250 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
2251 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
2252 $ WC "d_sethent='" + perl_d_sethent + "'"
2253 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
2254 $ WC "d_longdbl='" + perl_d_longdbl + "'"
2255 $ WC "longdblsize='" + perl_longdblsize + "'"
2256 $ WC "d_longlong='" + perl_d_longlong + "'"
2257 $ WC "longlongsize='" + perl_longlongsize + "'"
2258 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
2259 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
2260 $ WC "d_endhent='" + perl_d_endhent + "'"
2261 $ WC "d_endnent='" + perl_d_endsent + "'"
2262 $ WC "d_endpent='" + perl_d_endpent + "'"
2263 $ WC "d_endsent='" + perl_d_endsent + "'"
2264 $ WC "d_gethent='" + perl_d_gethent + "'"
2265 $ WC "d_getnent='" + perl_d_getsent + "'"
2266 $ WC "d_getpent='" + perl_d_getpent + "'"
2267 $ WC "d_getsent='" + perl_d_getsent + "'"
2268 $ WC "d_sethent='" + perl_d_sethent + "'"
2269 $ WC "d_setnent='" + perl_d_setsent + "'"
2270 $ WC "d_setpent='" + perl_d_setpent + "'"
2271 $ WC "d_setsent='" + perl_d_setsent + "'"
2272 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
2273 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
2274 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
2275 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
2276 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
2277 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
2278 $ WC "d_lchown='" + perl_d_lchown + "'"
2279 $ WC "d_union_semun='" + perl_d_union_semun + "'"
2280 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
2281 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
2282 $ WC "extensions='" + perl_extensions + "'"
2283 $ WC "d_mknod='" + perl_d_mknod + "'"
2284 $ WC "devtype='" + perl_devtype + "'"
2288 $! Okay, we've gotten here. Build munchconfig and run it
2289 $ 'Perl_CC' munchconfig
2290 $ If (Needs_Opt.eqs."Yes")
2292 $ open/write OPTCHAN []munchconfig.opt
2293 $ IF ("''using_gnu_c'".eqs."Yes")
2295 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
2297 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
2299 $ link munchconfig,munchconfig/opt
2300 $ delete munchconfig.opt;*
2304 $ WRITE_RESULT "Writing config.h"
2306 $ ! we need an fdl file
2307 $ CREATE [-]CONFIG.FDL
2310 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
2311 $ ! First spit out the header info with the local defines (to get
2312 $ ! around the 255 character command line limit)
2313 $ OPEN/APPEND CONFIG [-]config.local
2314 $ if use_debugging_perl.eqs."Y"
2316 $ WRITE CONFIG "#define DEBUGGING"
2318 $ if preload_env.eqs."Y"
2320 $ WRITE CONFIG "#define PRIME_ENV_AT_STARTUP"
2322 $ if use_two_pot_malloc.eqs."Y"
2324 $ WRITE CONFIG "#define TWO_POT_OPTIMIZE"
2326 $ if mymalloc.eqs."Y"
2328 $ WRITE CONFIG "#define EMBEDMYMALLOC"
2330 $ if use_pack_malloc.eqs."Y"
2332 $ WRITE CONFIG "#define PACK_MALLOC"
2334 $ if use_debugmalloc.eqs."Y"
2336 $ write config "#define DEBUGGING_MSTATS"
2338 $ if "''Using_Gnu_C'" .eqs."Yes"
2340 $ WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
2342 $ if "''Has_Dec_C_Sockets'".eqs."T"
2344 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
2345 $ WRITE CONFIG "#define DECCRTL_SOCKETS"
2347 $ if "''Has_Socketshr'".eqs."T"
2349 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
2353 $! Now build the normal config.h
2354 $ define/user sys$output [-]config.main
2355 $ mcr []munchconfig [-]config.sh [-]config_h.sh
2356 $ ! Concatenate them together
2357 $ copy [-]config.local,[-]config.main [-]config.h
2359 $ DELETE/NOLOG [-]CONFIG.MAIN;*
2360 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
2361 $ DELETE/NOLOG [-]CONFIG.FDL;*
2363 $ if "''Using_Dec_C'" .eqs."Yes"
2365 $ DECC_REPLACE = "DECC=decc=1"
2367 $ DECC_REPLACE = "DECC="
2369 $ if "''Using_Gnu_C'" .eqs."Yes"
2371 $ GNUC_REPLACE = "GNUC=gnuc=1"
2373 $ GNUC_REPLACE = "GNUC="
2375 $ if "''Has_Dec_C_Sockets'" .eqs."T"
2377 $ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
2379 $ if "''Has_Socketshr'" .eqs."T"
2381 $ SOCKET_REPLACE = "SOCKET=SOCKETSHRSOCKETS=1"
2383 $ SOCKET_REPLACE = "SOCKET="
2386 $ IF ("''Use_Threads'".eqs."T")
2388 $ if ("''VMS_VER'".LES."6.2")
2390 $ THREAD_REPLACE = "THREAD=OLDTHREADED=1"
2392 $ THREAD_REPLACE = "THREAD=THREADED=1"
2395 $ THREAD_REPLACE = "THREAD="
2397 $ if mymalloc.eqs."Y"
2399 $ MALLOC_REPLACE = "MALLOC=MALLOC=1"
2401 $ MALLOC_REPLACE = "MALLOC="
2403 $ if f$getsyi("HW_MODEL").ge.1024
2405 $ ARCH_TYPE = "ARCH-TYPE=__AXP__"
2407 $ ARCH_TYPE = "ARCH-TYPE=__VAX__"
2409 $ WRITE_RESULT "Writing DESCRIP.MMS"
2411 $ define/user sys$output [-]descrip.mms
2412 $ 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'"
2415 $! Clean up after ourselves
2416 $ delete/nolog munchconfig.exe;*
2417 $ delete/nolog munchconfig.obj;*