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"
56 $ perl_i_arpainet="undef"
57 $ perl_d_grpasswd="undef"
58 $ perl_d_setgrent="undef"
59 $ perl_d_getgrent="define"
60 $ perl_d_endgrent="define"
61 $ perl_d_pwpasswd="define"
62 $ perl_d_setpwent="define"
63 $ perl_d_getpwent="define"
64 $ perl_d_endpwent="define"
66 $ perl_shrplib="define"
67 $ perl_usemymalloc=mymalloc
68 $ perl_usevfork="true"
69 $ perl_useposix="false"
70 $ perl_spitshell="write sys$output "
71 $ perl_dlsrc="dl_vms.c"
74 $ perl_prefix="perl_root"
75 $ perl_binexp="''perl_prefix':[000000]"
76 $ perl_builddir="''perl_prefix':[000000]"
77 $ perl_installbin="''perl_prefix':[000000]"
78 $ perl_installscript="''perl_prefix':[000000]"
79 $ perl_installman1dir="''perl_prefix':[man.man1]"
80 $ perl_installman3dir="''perl_prefix':[man.man3]"
81 $ perl_installprivlib="''perl_prefix':[lib]"
82 $ perl_installsitelib="''perl_prefix':[lib.site_perl]"
85 $ perl_d_sockpair="undef"
86 $ perl_i_neterrno="define"
87 $ perl_ldflags="/NoTrace/NoMap"
88 $ perl_d_lchown="undef"
89 $ perl_d_mknod="undef"
90 $ perl_d_union_semun="undef"
91 $ perl_d_semctl_semun="undef"
92 $ perl_d_semctl_semid_ds="undef"
93 $ IF (sharedperl.EQS."Y")
101 $ perl_obj_ext=".obj"
104 $ perl_exe_ext=".exe"
105 $ perl_lib_ext=".olb"
107 $ perl_dlobj="dl_vms''perl_obj_ext'"
109 $ perl_d_archlib="define"
110 $ perl_d_bincompat3="undef"
111 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
113 $ perl_d_castneg="define"
115 $ perl_d_chsize="undef"
116 $ perl_d_const="define"
117 $ perl_d_crypt="define"
118 $ perl_byteorder="1234"
121 $ perl_d_dup2="define"
122 $ perl_d_fchmod="undef"
123 $ perl_d_fchown="undef"
124 $ perl_d_fcntl="undef"
125 $ perl_d_fgetpos="define"
126 $ perl_d_flexfnam="define"
127 $ perl_d_flock="undef"
128 $ perl_d_fsetpos="define"
129 $ perl_d_getgrps="undef"
130 $ perl_d_setgrps="undef"
131 $ perl_d_getprior="undef"
132 $ perl_d_killpg="undef"
133 $ perl_d_link="undef"
134 $ perl_d_lstat="undef"
135 $ perl_d_lockf="undef"
136 $ perl_d_memcmp="define"
137 $ perl_d_memcpy="define"
138 $ perl_d_memmove="define"
139 $ perl_d_memset="define"
140 $ perl_d_mkdir="define"
142 $ perl_d_open3="define"
143 $ perl_d_poll="undef"
144 $ perl_d_readdir="define"
145 $ perl_d_seekdir="define"
146 $ perl_d_telldir="define"
147 $ perl_d_rewinddir="define"
148 $ perl_d_rename="define"
149 $ perl_d_rmdir="define"
151 $ perl_d_setegid="undef"
152 $ perl_d_seteuid="undef"
153 $ perl_d_setprior="undef"
154 $ perl_d_setregid="undef"
155 $ perl_d_setresgid="undef"
156 $ perl_d_setreuid="undef"
157 $ perl_d_setresuid="undef"
158 $ perl_d_setrgid="undef"
159 $ perl_d_setruid="undef"
160 $ perl_d_setsid="undef"
162 $ perl_d_shmatprototype="undef"
163 $ perl_d_statblks="undef"
164 $ perl_stdio_ptr="((*fp)->_ptr)"
165 $ perl_stdio_cnt="((*fp)->_cnt)"
166 $ perl_stdio_base="((*fp)->_base)"
167 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
168 $ perl_d_strctcpy="define"
169 $ perl_d_strerror="define"
170 $ perl_d_syserrlst="undef"
171 $ perl_d_strerrm="strerror((e),vaxc$errno)"
172 $ perl_d_symlink="undef"
173 $ perl_d_syscall="undef"
174 $ perl_d_system="define"
175 $ perl_timetype="time_t"
176 $ perl_d_vfork="define"
177 $ perl_signal_t="void"
178 $ perl_d_volatile="define"
179 $ perl_d_vprintf="define"
180 $ perl_d_charvspr="undef"
181 $ perl_d_waitpid="define"
182 $ perl_i_dirent="undef"
183 $ perl_d_dirnamlen="define"
184 $ perl_direntrytype="struct dirent"
185 $ perl_i_fcntl="undef"
187 $ perl_i_limits="define"
188 $ perl_i_memory="undef"
189 $ perl_i_ndbm="undef"
190 $ perl_i_stdarg="define"
192 $ perl_d_pwquota="undef"
193 $ perl_d_pwage="undef"
194 $ perl_d_pwchange="undef"
195 $ perl_d_pwclass="undef"
196 $ perl_d_pwexpire="undef"
197 $ perl_d_pwcomment="define"
198 $ perl_i_stddef="define"
199 $ perl_i_stdlib="define"
200 $ perl_i_string="define"
201 $ perl_i_sysdir="undef"
202 $ perl_i_sysfile="undef"
203 $ perl_i_sysioctl="undef"
204 $ perl_i_sysndir="undef"
205 $ perl_i_sysresrc="undef"
206 $ perl_i_sysselct="undef"
208 $ perl_i_rpcsvcdbm="undef"
209 $ perl_i_sfio="undef"
210 $ perl_i_sysstat="define"
211 $ perl_i_systimes="undef"
212 $ perl_i_systypes="define"
213 $ perl_i_sysun="undef"
214 $ perl_i_syswait="undef"
215 $ perl_i_termio="undef"
216 $ perl_i_sgtty="undef"
217 $ perl_i_termios="undef"
218 $ perl_i_time="define"
219 $ perl_i_systime="undef"
220 $ perl_i_systimek="undef"
221 $! perl_i_unistd="undef"
222 $ perl_i_utime="undef"
223 $ perl_i_varargs="undef"
224 $ perl_i_vfork="undef"
225 $ perl_prototype="define"
227 $ perl_stdchar="char"
228 $ perl_d_unlink_all_versions="undef"
229 $ perl_full_sed="_NLA0:"
230 $ perl_bin="/''perl_prefix'/000000"
231 $ perl_binexp="''perl_prefix':[000000]"
232 $ perl_d_alarm="define"
233 $ perl_d_casti32="define"
234 $ perl_d_chown="define"
235 $ perl_d_chroot="undef"
236 $ perl_d_cuserid="define"
237 $ perl_d_dbl_dig="define"
238 $ perl_d_difftime="define"
239 $ perl_d_fork="undef"
240 $ perl_d_getlogin="define"
241 $ perl_d_getppid="undef"
242 $ perl_d_nice="define"
243 $ perl_d_pause="define"
244 $ perl_d_pipe="define"
245 $ perl_d_readlink="undef"
246 $ perl_d_setlinebuf="undef"
247 $ perl_d_strchr="define"
248 $ perl_d_strtod="define"
249 $ perl_d_strtol="define"
250 $ perl_d_strtoul="define"
251 $ perl_d_tcgetpgrp="undef"
252 $ perl_d_tcsetpgrp="undef"
253 $ perl_d_times="define"
254 $ perl_d_tzname="undef"
255 $ perl_d_umask="define"
256 $ perl_fpostype="fpos_t"
257 $ perl_i_dlfcn="undef"
258 $ perl_i_float="define"
259 $ perl_i_math="define"
260 $ perl_lseektype="int"
261 $ perl_i_values="undef"
262 $ perl_malloctype="void *"
263 $ perl_freetype="void"
264 $ if "''mymalloc'".eqs."Y"
266 $ perl_d_mymalloc="define"
268 $ perl_d_mymalloc="undef"
271 $ perl_modetype="unsigned int"
272 $ perl_ssizetype="int"
276 $ perl_d_eofnblk="undef"
277 $ perl_d_oldarchlib="define"
278 $ perl_privlibexp="''perl_prefix':[lib]"
279 $ perl_privlib="''perl_prefix':[lib]"
280 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
281 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
282 $ perl_sizetype="size_t"
283 $ perl_i_sysparam="undef"
284 $ perl_d_void_closedir="define"
285 $ perl_d_dlerror="undef"
286 $ perl_d_dlsymun="undef"
287 $ perl_d_suidsafe="undef"
288 $ perl_d_dosuid="undef"
289 $ perl_d_inetaton="undef"
290 $ perl_d_isascii="define"
291 $ perl_d_mkfifo="undef"
292 $ perl_d_safebcpy="undef"
293 $ perl_d_safemcpy="define"
294 $ perl_d_sanemcmp="define"
295 $ perl_d_setpgrp="undef"
296 $ perl_d_bsdsetpgrp="undef"
297 $ perl_d_bsdpgrp="undef"
298 $ perl_d_setpgid="undef"
299 $ perl_d_setpgrp2="undef"
300 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
301 $ perl_d_getpgid="undef"
302 $ perl_d_getpgrp="undef"
303 $ perl_d_bsdgetpgrp="undef"
304 $ perl_d_getpgrp2="undef"
305 $ perl_d_sfio="undef"
306 $ perl_usedl="define"
307 $ perl_startperl="""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ + ++$status != 0 and $exit = $status = undef;"""
308 $ perl_db_hashtype=""
309 $ perl_db_prefixtype=""
310 $ perl_useperlio="undef"
311 $ perl_defvoidused="15"
312 $ perl_voidflags="15"
313 $ perl_d_eunice="undef"
314 $ perl_d_pwgecos="define"
315 $ IF ("''Use_Threads'".eqs."T").and.("''VMS_VER'".LES."6.2")
317 $ 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"
321 $ IF ("''Using_Dec_C'".eqs."Yes")
323 $ perl_libc="(DECCRTL)"
327 $ perl_PATCHLEVEL="''patchlevel'"
328 $ perl_SUBVERSION="''subversion'"
332 $! Now some that we build up
334 $ LocalTime = f$time()
335 $ perl_cf_time= f$extract(0, 3, f$cvtime(LocalTime,, "WEEKDAY")) + " " + -
336 f$edit(f$cvtime(LocalTime, "ABSOLUTE", "MONTH"), "LOWERCASE") + -
337 " " + f$cvtime(LocalTime,, "DAY") + " " + f$cvtime(LocalTime,, "TIME") + -
338 " " + f$cvtime(LocalTime,, "YEAR")
339 $ if f$getsyi("HW_MODEL").ge.1024
341 $ perl_arch="VMS_AXP"
342 $ perl_archname="VMS_AXP"
343 $ perl_alignbytes="8"
345 $ perl_arch="VMS_VAX"
346 $ perl_archname="VMS_VAX"
347 $ perl_alignbytes="8"
349 $ perl_osvers=f$edit(osvers, "TRIM")
350 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion
352 $! Some that we need to invoke the compiler for
353 $ OS := "open/write SOURCECHAN []temp.c"
354 $ WS := "write SOURCECHAN"
355 $ CS := "close SOURCECHAN"
356 $ DS := "delete/nolog []temp.*;*"
358 $ if ("''using_vax_c'".eqs."Yes").or.("''using_gnu_c'".eqs."Yes")
360 $ open/write OPTCHAN []temp.opt
361 $ IF ("''using_gnu_c'".eqs."Yes")
363 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
365 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
370 $! Check for __STDC__
374 $ WS "#include <stdlib.h>
376 $ WS "#include <stdio.h>
379 $ WS "#ifdef __STDC__
380 $ WS "printf(""42\n"");
382 $ WS "printf(""1\n"");
387 $ DEFINE SYS$ERROR _NLA0:
388 $ DEFINE SYS$OUTPUT _NLA0:
389 $ ON ERROR THEN CONTINUE
390 $ ON WARNING THEN CONTINUE
392 $ If (Needs_Opt.eqs."Yes")
398 $ DEASSIGN SYS$OUTPUT
400 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
401 $ DEFINE SYS$ERROR TEMPOUT
402 $ DEFINE SYS$OUTPUT TEMPOUT
405 $ DEASSIGN SYS$OUTPUT
407 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
411 $ perl_cpp_stuff=line
412 $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
414 $! Check for double size
418 $ WS "#include <stdlib.h>
420 $ WS "#include <stdio.h>
424 $ WS "foo = sizeof(double);
425 $ WS "printf(""%d\n"", foo);
429 $ DEFINE SYS$ERROR _NLA0:
430 $ DEFINE SYS$OUTPUT _NLA0:
431 $ ON ERROR THEN CONTINUE
432 $ ON WARNING THEN CONTINUE
434 $ If (Needs_Opt.eqs."Yes")
441 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
442 $ DEASSIGN SYS$OUTPUT
444 $ DEFINE SYS$ERROR TEMPOUT
445 $ DEFINE SYS$OUTPUT TEMPOUT
448 $ DEASSIGN SYS$OUTPUT
450 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
454 $ perl_doublesize=line
455 $ WRITE_RESULT "doublesize is ''perl_doublesize'"
457 $! Check for long double size
461 $ WS "#include <stdlib.h>
463 $ WS "#include <stdio.h>
466 $ WS "printf(""%d\n"", sizeof(long double));
470 $ DEFINE SYS$ERROR _NLA0:
471 $ DEFINE SYS$OUTPUT _NLA0:
472 $ ON ERROR THEN CONTINUE
473 $ ON WARNING THEN CONTINUE
475 $ teststatus = f$extract(9,1,$status)
476 $ if (teststatus.nes."1")
478 $ perl_longdblsize="0"
479 $ perl_d_longdbl="undef"
481 $ ON ERROR THEN CONTINUE
482 $ ON WARNING THEN CONTINUE
483 $ If (Needs_Opt.eqs."Yes")
489 $ teststatus = f$extract(9,1,$status)
490 $ DEASSIGN SYS$OUTPUT
492 $ if (teststatus.nes."1")
494 $ perl_longdblsize="0"
495 $ perl_d_longdbl="undef"
497 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
498 $ DEFINE SYS$ERROR TEMPOUT
499 $ DEFINE SYS$OUTPUT TEMPOUT
502 $ DEASSIGN SYS$OUTPUT
504 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
508 $ perl_longdblsize=line
509 $ perl_d_longdbl="define"
512 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
513 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
515 $! Check for long long existance and size
519 $ WS "#include <stdlib.h>
521 $ WS "#include <stdio.h>
524 $ WS "printf(""%d\n"", sizeof(long long));
528 $ DEFINE SYS$ERROR _NLA0:
529 $ DEFINE SYS$OUTPUT _NLA0:
530 $ on error then continue
531 $ on warning then continue
533 $ If (Needs_Opt.eqs."Yes")
539 $ teststatus = f$extract(9,1,$status)
540 $ DEASSIGN SYS$OUTPUT
542 $ if (teststatus.nes."1")
544 $ perl_longlongsize="0"
545 $ perl_d_longlong="undef"
547 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
548 $ DEFINE SYS$ERROR TEMPOUT
549 $ DEFINE SYS$OUTPUT TEMPOUT
552 $ DEASSIGN SYS$OUTPUT
554 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
558 $ perl_longlongsize=line
559 $ perl_d_longlong="define"
561 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
562 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
564 $! Check for int size
568 $ WS "#include <stdlib.h>
570 $ WS "#include <stdio.h>
573 $ WS "printf(""%d\n"", sizeof(int));
577 $ DEFINE SYS$ERROR _NLA0:
578 $ DEFINE SYS$OUTPUT _NLA0:
579 $ on error then continue
580 $ on warning then continue
582 $ If (Needs_Opt.eqs."Yes")
588 $ If (Needs_Opt.eqs."Yes")
594 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
595 $ DEASSIGN SYS$OUTPUT
597 $ DEFINE SYS$ERROR TEMPOUT
598 $ DEFINE SYS$OUTPUT TEMPOUT
601 $ DEASSIGN SYS$OUTPUT
603 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
608 $ WRITE_RESULT "intsize is ''perl_intsize'"
610 $! Check for short size
614 $ WS "#include <stdlib.h>
616 $ WS "#include <stdio.h>
619 $ WS "printf(""%d\n"", sizeof(short));
623 $ DEFINE SYS$ERROR _NLA0:
624 $ DEFINE SYS$OUTPUT _NLA0:
625 $ on error then continue
626 $ on warning then continue
628 $ If (Needs_Opt.eqs."Yes")
634 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
635 $ DEASSIGN SYS$OUTPUT
637 $ DEFINE SYS$ERROR TEMPOUT
638 $ DEFINE SYS$OUTPUT TEMPOUT
641 $ DEASSIGN SYS$OUTPUT
643 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
647 $ perl_shortsize=line
648 $ WRITE_RESULT "shortsize is ''perl_shortsize'"
650 $! Check for long size
654 $ WS "#include <stdlib.h>
656 $ WS "#include <stdio.h>
660 $ WS "foo = sizeof(long);
661 $ WS "printf(""%d\n"", foo);
665 $ DEFINE SYS$ERROR _NLA0:
666 $ DEFINE SYS$OUTPUT _NLA0:
667 $ on error then continue
668 $ on warning then continue
670 $ If (Needs_Opt.eqs."Yes")
676 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
677 $ DEASSIGN SYS$OUTPUT
679 $ DEFINE SYS$ERROR TEMPOUT
680 $ DEFINE SYS$OUTPUT TEMPOUT
683 $ DEASSIGN SYS$OUTPUT
685 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
690 $ WRITE_RESULT "longsize is ''perl_longsize'"
692 $! Check the prototype for getgid
696 $ WS "#include <stdlib.h>
698 $ WS "#include <stdio.h>
699 $ WS "#include <types.h>
700 $ WS "#include <unistd.h>
707 $ DEFINE SYS$ERROR _NLA0:
708 $ DEFINE SYS$OUTPUT _NLA0:
709 $ on error then continue
710 $ on warning then continue
712 $ teststatus = f$extract(9,1,$status)
713 $ DEASSIGN SYS$OUTPUT
715 $ if (teststatus.nes."1")
717 $! Okay, gid_t failed. Must be unsigned int
718 $ perl_gidtype = "unsigned int"
720 $ perl_gidtype = "gid_t"
722 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
724 $! Check to see if we've got dev_t
728 $ WS "#include <stdlib.h>
730 $ WS "#include <stdio.h>
731 $ WS "#include <types.h>
732 $ WS "#include <unistd.h>
739 $ DEFINE SYS$ERROR _NLA0:
740 $ DEFINE SYS$OUTPUT _NLA0:
741 $ on error then continue
742 $ on warning then continue
744 $ teststatus = f$extract(9,1,$status)
745 $ DEASSIGN SYS$OUTPUT
747 $ if (teststatus.nes."1")
749 $! Okay, dev_t failed. Must be unsigned int
750 $ perl_devtype = "unsigned int"
752 $ perl_devtype = "dev_t"
754 $ WRITE_RESULT "Dev_t is ''perl_devtype'"
756 $! Check to see if we've got unistd.h (which we ought to, but you never know)
760 $ WS "#include <stdlib.h>
762 $ WS "#include <unistd.h>
768 $ DEFINE SYS$ERROR _NLA0:
769 $ DEFINE SYS$OUTPUT _NLA0:
770 $ on error then continue
771 $ on warning then continue
773 $ teststatus = f$extract(9,1,$status)
774 $ DEASSIGN SYS$OUTPUT
776 $ if (teststatus.nes."1")
778 $! Okay, failed. Must not have it
779 $ perl_i_unistd = "undef"
781 $ perl_i_unistd = "define"
784 $ WRITE_RESULT "i_unistd is ''perl_i_unistd'"
786 $! Check the prototype for select
788 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
792 $ WS "#include <stdlib.h>
794 $ WS "#include <stdio.h>
795 $ WS "#include <types.h>
796 $ WS "#include <unistd.h>
797 $ if ("''Has_Socketshr'".eqs."T")
799 $ WS "#include <socketshr.h>"
801 $ WS "#include <time.h>
802 $ WS "#include <socket.h>
809 $ WS "bar = select(2, foo, foo, foo, NULL);
813 $ DEFINE SYS$ERROR _NLA0:
814 $ DEFINE SYS$OUTPUT _NLA0:
815 $ on error then continue
816 $ on warning then continue
818 $ teststatus = f$extract(9,1,$status)
819 $ DEASSIGN SYS$OUTPUT
821 $ if (teststatus.nes."1")
823 $! Okay, fd_set failed. Must be an int
824 $ perl_selecttype = "int *"
826 $ perl_selecttype="fd_set *"
829 $ ! No sockets, so stick in an int *
830 $ perl_selecttype = "int *"
832 $ WRITE_RESULT "selectype is ''perl_selecttype'"
838 $ WS "#include <stdlib.h>
840 $ WS "#include <stdio.h>
841 $ WS "#include <strings.h>
845 $ WS "bzero(foo, 10);
849 $ DEFINE SYS$ERROR _NLA0:
850 $ DEFINE SYS$OUTPUT _NLA0:
851 $ on error then continue
852 $ on warning then continue
854 $ savedstatus = $status
855 $ teststatus = f$extract(9,1,savedstatus)
856 $ if (teststatus.nes."1")
858 $ perl_d_bzero="undef"
859 $ DEASSIGN SYS$OUTPUT
862 $ If (Needs_Opt.eqs."Yes")
868 $ savedstatus = $status
869 $ teststatus = f$extract(9,1,savedstatus)
870 $ DEASSIGN SYS$OUTPUT
872 $ if (teststatus.nes."1")
874 $ perl_d_bzero="undef"
876 $ perl_d_bzero="define"
879 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
885 $ WS "#include <stdlib.h>
887 $ WS "#include <stdio.h>
888 $ WS "#include <strings.h>
891 $ WS "char foo[10], bar[10];
892 $ WS "bcopy(""foo"", bar, 3);
896 $ DEFINE SYS$ERROR _NLA0:
897 $ DEFINE SYS$OUTPUT _NLA0:
898 $ on error then continue
899 $ on warning then continue
901 $ savedstatus = $status
902 $ teststatus = f$extract(9,1,savedstatus)
903 $ if (teststatus.nes."1")
905 $ perl_d_bcopy="undef"
906 $ DEASSIGN SYS$OUTPUT
909 $ If (Needs_Opt.eqs."Yes")
915 $ savedstatus = $status
916 $ teststatus = f$extract(9,1,savedstatus)
917 $ DEASSIGN SYS$OUTPUT
919 $ if (teststatus.nes."1")
921 $ perl_d_bcopy="undef"
923 $ perl_d_bcopy="define"
926 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
932 $ WS "#include <stdlib.h>
934 $ WS "#include <stdio.h>
937 $ WS "mkstemp(""foo"");
941 $ DEFINE SYS$ERROR _NLA0:
942 $ DEFINE SYS$OUTPUT _NLA0:
943 $ on error then continue
944 $ on warning then continue
946 $ If (Needs_Opt.eqs."Yes")
952 $ savedstatus = $status
953 $ teststatus = f$extract(9,1,savedstatus)
954 $ DEASSIGN SYS$OUTPUT
956 $ if (teststatus.nes."1")
958 $ perl_d_mkstemp="undef"
960 $ perl_d_mkstemp="define"
962 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
968 $ WS "#include <stdlib.h>
970 $ WS "#include <stdio.h>
974 $ WS "char Buffer[99];
975 $ WS "foo = fopen(""foo"", ""r"");
976 $ WS "setvbuf(foo, Buffer, 0, 0);
980 $ DEFINE SYS$ERROR _NLA0:
981 $ DEFINE SYS$OUTPUT _NLA0:
982 $ on error then continue
983 $ on warning then continue
985 $ If (Needs_Opt.eqs."Yes")
991 $ teststatus = f$extract(9,1,$status)
992 $ DEASSIGN SYS$OUTPUT
994 $ if (teststatus.nes."1")
996 $ perl_d_setvbuf="undef"
998 $ perl_d_setvbuf="define"
1000 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
1002 $! Check for <netinet/in.h>
1004 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1008 $ WS "#include <stdlib.h>
1010 $ WS "#include <stdio.h>
1011 $ if ("''Has_Socketshr'".eqs."T")
1013 $ WS "#include <socketshr.h>"
1015 $ WS "#include <netdb.h>
1017 $ WS "#include <netinet/in.h>"
1023 $ DEFINE SYS$ERROR _NLA0:
1024 $ DEFINE SYS$OUTPUT _NLA0:
1025 $ on error then continue
1026 $ on warning then continue
1028 $ If (Needs_Opt.eqs."Yes")
1030 $ link temp,temp/opt
1034 $ teststatus = f$extract(9,1,$status)
1035 $ DEASSIGN SYS$OUTPUT
1036 $ DEASSIGN SYS$ERROR
1037 $ if (teststatus.nes."1")
1039 $ perl_i_niin="undef"
1041 $ perl_i_niin="define"
1044 $ perl_i_niin="undef"
1046 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
1048 $! Check for endhostent
1050 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1054 $ WS "#include <stdlib.h>
1056 $ WS "#include <stdio.h>
1057 $ if ("''Has_Socketshr'".eqs."T")
1059 $ WS "#include <socketshr.h>"
1061 $ WS "#include <netdb.h>
1069 $ DEFINE SYS$ERROR _NLA0:
1070 $ DEFINE SYS$OUTPUT _NLA0:
1071 $ on error then continue
1072 $ on warning then continue
1074 $ If (Needs_Opt.eqs."Yes")
1076 $ link temp,temp/opt
1080 $ teststatus = f$extract(9,1,$status)
1081 $ DEASSIGN SYS$OUTPUT
1082 $ DEASSIGN SYS$ERROR
1083 $ if (teststatus.nes."1")
1085 $ perl_d_endhent="undef"
1087 $ perl_d_endhent="define"
1090 $ perl_d_endhent="undef"
1092 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
1094 $! Check for endnetent
1096 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1100 $ WS "#include <stdlib.h>
1102 $ WS "#include <stdio.h>
1103 $ if ("''Has_Socketshr'".eqs."T")
1105 $ WS "#include <socketshr.h>"
1107 $ WS "#include <netdb.h>
1115 $ DEFINE SYS$ERROR _NLA0:
1116 $ DEFINE SYS$OUTPUT _NLA0:
1117 $ on error then continue
1118 $ on warning then continue
1120 $ If (Needs_Opt.eqs."Yes")
1122 $ link temp,temp/opt
1126 $ teststatus = f$extract(9,1,$status)
1127 $ DEASSIGN SYS$OUTPUT
1128 $ DEASSIGN SYS$ERROR
1129 $ if (teststatus.nes."1")
1131 $ perl_d_endnent="undef"
1133 $ perl_d_endnent="define"
1136 $ perl_d_endnent="undef"
1138 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
1140 $! Check for endprotoent
1142 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1146 $ WS "#include <stdlib.h>
1148 $ WS "#include <stdio.h>
1149 $ if ("''Has_Socketshr'".eqs."T")
1151 $ WS "#include <socketshr.h>"
1153 $ WS "#include <netdb.h>
1157 $ WS "endprotoent();
1161 $ DEFINE SYS$ERROR _NLA0:
1162 $ DEFINE SYS$OUTPUT _NLA0:
1163 $ on error then continue
1164 $ on warning then continue
1166 $ If (Needs_Opt.eqs."Yes")
1168 $ link temp,temp/opt
1172 $ teststatus = f$extract(9,1,$status)
1173 $ DEASSIGN SYS$OUTPUT
1174 $ DEASSIGN SYS$ERROR
1175 $ if (teststatus.nes."1")
1177 $ perl_d_endpent="undef"
1179 $ perl_d_endpent="define"
1182 $ perl_d_endpent="undef"
1184 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
1186 $! Check for endservent
1188 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1192 $ WS "#include <stdlib.h>
1194 $ WS "#include <stdio.h>
1195 $ if ("''Has_Socketshr'".eqs."T")
1197 $ WS "#include <socketshr.h>"
1199 $ WS "#include <netdb.h>
1207 $ DEFINE SYS$ERROR _NLA0:
1208 $ DEFINE SYS$OUTPUT _NLA0:
1209 $ on error then continue
1210 $ on warning then continue
1212 $ If (Needs_Opt.eqs."Yes")
1214 $ link temp,temp/opt
1218 $ teststatus = f$extract(9,1,$status)
1219 $ DEASSIGN SYS$OUTPUT
1220 $ DEASSIGN SYS$ERROR
1221 $ if (teststatus.nes."1")
1223 $ perl_d_endsent="undef"
1225 $ perl_d_endsent="define"
1228 $ perl_d_endsent="undef"
1230 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
1232 $! Check for sethostent
1234 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1238 $ WS "#include <stdlib.h>
1240 $ WS "#include <stdio.h>
1241 $ if ("''Has_Socketshr'".eqs."T")
1243 $ WS "#include <socketshr.h>"
1245 $ WS "#include <netdb.h>
1249 $ WS "sethostent(1);
1253 $ DEFINE SYS$ERROR _NLA0:
1254 $ DEFINE SYS$OUTPUT _NLA0:
1255 $ on error then continue
1256 $ on warning then continue
1258 $ If (Needs_Opt.eqs."Yes")
1260 $ link temp,temp/opt
1264 $ teststatus = f$extract(9,1,$status)
1265 $ DEASSIGN SYS$OUTPUT
1266 $ DEASSIGN SYS$ERROR
1267 $ if (teststatus.nes."1")
1269 $ perl_d_sethent="undef"
1271 $ perl_d_sethent="define"
1274 $ perl_d_sethent="undef"
1276 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
1278 $! Check for setnetent
1280 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1284 $ WS "#include <stdlib.h>
1286 $ WS "#include <stdio.h>
1287 $ if ("''Has_Socketshr'".eqs."T")
1289 $ WS "#include <socketshr.h>"
1291 $ WS "#include <netdb.h>
1299 $ DEFINE SYS$ERROR _NLA0:
1300 $ DEFINE SYS$OUTPUT _NLA0:
1301 $ on error then continue
1302 $ on warning then continue
1304 $ If (Needs_Opt.eqs."Yes")
1306 $ link temp,temp/opt
1310 $ teststatus = f$extract(9,1,$status)
1311 $ DEASSIGN SYS$OUTPUT
1312 $ DEASSIGN SYS$ERROR
1313 $ if (teststatus.nes."1")
1315 $ perl_d_setnent="undef"
1317 $ perl_d_setnent="define"
1320 $ perl_d_setnent="undef"
1322 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
1324 $! Check for setprotoent
1326 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1330 $ WS "#include <stdlib.h>
1332 $ WS "#include <stdio.h>
1333 $ if ("''Has_Socketshr'".eqs."T")
1335 $ WS "#include <socketshr.h>"
1337 $ WS "#include <netdb.h>
1341 $ WS "setprotoent(1);
1345 $ DEFINE SYS$ERROR _NLA0:
1346 $ DEFINE SYS$OUTPUT _NLA0:
1347 $ on error then continue
1348 $ on warning then continue
1350 $ If (Needs_Opt.eqs."Yes")
1352 $ link temp,temp/opt
1356 $ teststatus = f$extract(9,1,$status)
1357 $ DEASSIGN SYS$OUTPUT
1358 $ DEASSIGN SYS$ERROR
1359 $ if (teststatus.nes."1")
1361 $ perl_d_setpent="undef"
1363 $ perl_d_setpent="define"
1366 $ perl_d_setpent="undef"
1368 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
1370 $! Check for setservent
1372 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1376 $ WS "#include <stdlib.h>
1378 $ WS "#include <stdio.h>
1379 $ if ("''Has_Socketshr'".eqs."T")
1381 $ WS "#include <socketshr.h>"
1383 $ WS "#include <netdb.h>
1387 $ WS "setservent(1);
1391 $ DEFINE SYS$ERROR _NLA0:
1392 $ DEFINE SYS$OUTPUT _NLA0:
1393 $ on error then continue
1394 $ on warning then continue
1396 $ If (Needs_Opt.eqs."Yes")
1398 $ link temp,temp/opt
1402 $ teststatus = f$extract(9,1,$status)
1403 $ DEASSIGN SYS$OUTPUT
1404 $ DEASSIGN SYS$ERROR
1405 $ if (teststatus.nes."1")
1407 $ perl_d_setsent="undef"
1409 $ perl_d_setsent="define"
1412 $ perl_d_setsent="undef"
1414 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
1416 $! Check for gethostent
1418 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1422 $ WS "#include <stdlib.h>
1424 $ WS "#include <stdio.h>
1425 $ if ("''Has_Socketshr'".eqs."T")
1427 $ WS "#include <socketshr.h>"
1429 $ WS "#include <netdb.h>
1437 $ DEFINE SYS$ERROR _NLA0:
1438 $ DEFINE SYS$OUTPUT _NLA0:
1439 $ on error then continue
1440 $ on warning then continue
1442 $ If (Needs_Opt.eqs."Yes")
1444 $ link temp,temp/opt
1448 $ teststatus = f$extract(9,1,$status)
1449 $ DEASSIGN SYS$OUTPUT
1450 $ DEASSIGN SYS$ERROR
1451 $ if (teststatus.nes."1")
1453 $ perl_d_gethent="undef"
1455 $ perl_d_gethent="define"
1458 $ perl_d_gethent="undef"
1460 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
1462 $! Check for getnetent
1464 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1468 $ WS "#include <stdlib.h>
1470 $ WS "#include <stdio.h>
1471 $ if ("''Has_Socketshr'".eqs."T")
1473 $ WS "#include <socketshr.h>"
1475 $ WS "#include <netdb.h>
1483 $ DEFINE SYS$ERROR _NLA0:
1484 $ DEFINE SYS$OUTPUT _NLA0:
1485 $ on error then continue
1486 $ on warning then continue
1488 $ If (Needs_Opt.eqs."Yes")
1490 $ link temp,temp/opt
1494 $ teststatus = f$extract(9,1,$status)
1495 $ DEASSIGN SYS$OUTPUT
1496 $ DEASSIGN SYS$ERROR
1497 $ if (teststatus.nes."1")
1499 $ perl_d_getnent="undef"
1501 $ perl_d_getnent="define"
1504 $ perl_d_getnent="undef"
1506 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
1508 $! Check for getprotoent
1510 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1514 $ WS "#include <stdlib.h>
1516 $ WS "#include <stdio.h>
1517 $ if ("''Has_Socketshr'".eqs."T")
1519 $ WS "#include <socketshr.h>"
1521 $ WS "#include <netdb.h>
1525 $ WS "getprotoent();
1529 $ DEFINE SYS$ERROR _NLA0:
1530 $ DEFINE SYS$OUTPUT _NLA0:
1531 $ on error then continue
1532 $ on warning then continue
1534 $ If (Needs_Opt.eqs."Yes")
1536 $ link temp,temp/opt
1540 $ teststatus = f$extract(9,1,$status)
1541 $ DEASSIGN SYS$OUTPUT
1542 $ DEASSIGN SYS$ERROR
1543 $ if (teststatus.nes."1")
1545 $ perl_d_getpent="undef"
1547 $ perl_d_getpent="define"
1550 $ perl_d_getpent="undef"
1552 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
1554 $! Check for getservent
1556 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1560 $ WS "#include <stdlib.h>
1562 $ WS "#include <stdio.h>
1563 $ if ("''Has_Socketshr'".eqs."T")
1565 $ WS "#include <socketshr.h>"
1567 $ WS "#include <netdb.h>
1575 $ DEFINE SYS$ERROR _NLA0:
1576 $ DEFINE SYS$OUTPUT _NLA0:
1577 $ on error then continue
1578 $ on warning then continue
1580 $ If (Needs_Opt.eqs."Yes")
1582 $ link temp,temp/opt
1586 $ teststatus = f$extract(9,1,$status)
1587 $ DEASSIGN SYS$OUTPUT
1588 $ DEASSIGN SYS$ERROR
1589 $ if (teststatus.nes."1")
1591 $ perl_d_getsent="undef"
1593 $ perl_d_getsent="define"
1596 $ perl_d_getsent="undef"
1598 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
1600 $! Check for pthread_yield
1602 $ if ("''use_threads'".eqs."T")
1606 $ WS "#include <stdlib.h>
1608 $ WS "#include <pthread.h>
1609 $ WS "#include <stdio.h>
1612 $ WS "pthread_yield();
1616 $ DEFINE SYS$ERROR _NLA0:
1617 $ DEFINE SYS$OUTPUT _NLA0:
1618 $ on error then continue
1619 $ on warning then continue
1621 $ teststatus = f$extract(9,1,$status)
1622 $ DEASSIGN SYS$OUTPUT
1623 $ DEASSIGN SYS$ERROR
1624 $ if (teststatus.nes."1")
1626 $ perl_d_pthread_yield="undef"
1628 $ perl_d_pthread_yield="define"
1631 $ perl_d_pthread_yield="undef"
1633 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
1635 $! Check for sched_yield
1637 $ if ("''use_threads'".eqs."T")
1641 $ WS "#include <stdlib.h>
1643 $ WS "#include <pthread.h>
1644 $ WS "#include <stdio.h>
1647 $ WS "sched_yield();
1651 $ DEFINE SYS$ERROR _NLA0:
1652 $ DEFINE SYS$OUTPUT _NLA0:
1653 $ on error then continue
1654 $ on warning then continue
1656 $ teststatus = f$extract(9,1,$status)
1657 $ DEASSIGN SYS$OUTPUT
1658 $ DEASSIGN SYS$ERROR
1659 $ if (teststatus.nes."1")
1661 $ perl_d_sched_yield="undef"
1663 $ perl_d_sched_yield="define"
1666 $ perl_d_sched_yield="undef"
1668 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
1670 $! Check for generic pointer size
1674 $ WS "#include <stdlib.h>
1676 $ WS "#include <stdio.h>
1680 $ WS "foo = sizeof(char *);
1681 $ WS "printf(""%d\n"", foo);
1685 $! copy temp.c sys$output
1687 $ DEFINE SYS$ERROR _NLA0:
1688 $ DEFINE SYS$OUTPUT _NLA0:
1689 $ ON ERROR THEN CONTINUE
1690 $ ON WARNING THEN CONTINUE
1692 $ If (Needs_Opt.eqs."Yes")
1694 $ link temp,temp/opt
1698 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
1699 $ DEASSIGN SYS$OUTPUT
1700 $ DEASSIGN SYS$ERROR
1701 $ DEFINE SYS$ERROR TEMPOUT
1702 $ DEFINE SYS$OUTPUT TEMPOUT
1705 $ DEASSIGN SYS$OUTPUT
1706 $ DEASSIGN SYS$ERROR
1707 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
1712 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
1715 $! Done with compiler checks. Clean up.
1716 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
1717 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
1718 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
1719 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
1722 $! Some that are compiler or VMS version sensitive
1725 $ IF "''Using_Gnu_C'".EQS."Yes"
1727 $ perl_d_attribut="define"
1728 $ perl_vms_cc_type="gcc"
1730 $ perl_d_attribut="undef"
1733 $! Dec C >= 5.2 and VMS ver >= 7.0
1734 $ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
1736 $ perl_d_bcmp="define"
1737 $ perl_d_gettimeod="define"
1738 $ perl_d_uname="define"
1739 $ perl_d_sigaction="define"
1740 $ perl_d_truncate="define"
1741 $ perl_d_wait4="define"
1742 $ perl_d_index="define"
1743 $ perl_pidtype="pid_t"
1744 $ 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"
1745 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
1746 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
1747 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
1748 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
1749 $ 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"
1750 $ perl_sig_num_with_commas=perl_sig_num
1751 $ perl_uidtype="uid_t"
1752 $ perl_d_pathconf="define"
1753 $ perl_d_fpathconf="define"
1754 $ perl_d_sysconf="define"
1755 $ perl_d_sigsetjmp="define"
1757 $ perl_pidtype="unsigned int"
1758 $ perl_d_gettimeod="undef"
1759 $ perl_d_bcmp="undef"
1760 $ perl_d_uname="undef"
1761 $ perl_d_sigaction="undef"
1762 $ perl_d_truncate="undef"
1763 $ perl_d_wait4="undef"
1764 $ perl_d_index="undef"
1765 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
1766 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
1767 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
1768 $ perl_sig_name_with_commas = psnwc1 + psnwc2
1769 $ perl_sig_num="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
1770 $ perl_sig_num_with_commas=perl_sig_num
1771 $ perl_uidtype="unsigned int"
1772 $ perl_d_pathconf="undef"
1773 $ perl_d_fpathconf="undef"
1774 $ perl_d_sysconf="undef"
1775 $ perl_d_sigsetjmp="undef"
1779 $ IF ("''Using_Dec_C'".EQS."Yes")
1781 $ perl_d_mbstowcs="define"
1782 $ perl_d_mbtowc="define"
1783 $ perl_d_stdiobase="define"
1784 $ perl_d_stdio_ptr_lval="define"
1785 $ perl_d_stdio_cnt_lval="define"
1786 $ perl_d_stdstdio="define"
1787 $ perl_d_wcstombs="define"
1788 $ perl_d_mblen="define"
1789 $ perl_d_mktime="define"
1790 $ perl_d_strcoll="define"
1791 $ perl_d_strxfrm="define"
1792 $ perl_d_wctomb="define"
1793 $ perl_i_locale="define"
1794 $ perl_d_locconv="define"
1795 $ perl_d_setlocale="define"
1796 $ perl_vms_cc_type="decc"
1798 $ perl_d_mbstowcs="undef"
1799 $ perl_d_mbtowc="undef"
1800 $ perl_d_stdiobase="undef"
1801 $ perl_d_stdio_ptr_lval="undef"
1802 $ perl_d_stdio_cnt_lval="undef"
1803 $ perl_d_stdstdio="undef"
1804 $ perl_d_wcstombs="undef"
1805 $ perl_d_mblen="undef"
1806 $ perl_d_mktime="undef"
1807 $ perl_d_strcoll="undef"
1808 $ perl_d_strxfrm="undef"
1809 $ perl_d_wctomb="undef"
1810 $ perl_i_locale="undef"
1811 $ perl_d_locconv="undef"
1812 $ perl_d_setlocale="undef"
1816 $ if ("''Using_Vax_C'".EQS."Yes")
1818 $ perl_vms_cc_type="vaxc"
1823 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
1825 $ perl_d_vms_do_sockets="define"
1826 $ perl_d_htonl="define"
1827 $ perl_d_socket="define"
1828 $ perl_d_select="define"
1829 $ perl_netdb_host_type="char *"
1830 $ perl_netdb_hlen_type="int"
1831 $ perl_netdb_name_type="char *"
1832 $ perl_netdb_net_type="long"
1833 $ perl_d_gethbyaddr="define"
1834 $ perl_d_gethbyname="define"
1835 $ perl_d_getnbyaddr="define"
1836 $ perl_d_getnbyname="define"
1837 $ perl_d_getpbynumber="define"
1838 $ perl_d_getpbyname="define"
1839 $ perl_d_getsbyport="define"
1840 $ perl_d_getsbyname="define"
1841 $ perl_d_gethostprotos="define"
1842 $ perl_d_getnetprotos="define"
1843 $ perl_d_getprotoprotos="define"
1844 $ perl_d_getservprotos="define"
1846 $ perl_d_vms_do_sockets="undef"
1847 $ perl_d_htonl="undef"
1848 $ perl_d_socket="undef"
1849 $ perl_d_select="undef"
1850 $ perl_netdb_host_type="char *"
1851 $ perl_netdb_hlen_type="int"
1852 $ perl_netdb_name_type="char *"
1853 $ perl_netdb_net_type="long"
1854 $ perl_d_gethbyaddr="undef"
1855 $ perl_d_gethbyname="undef"
1856 $ perl_d_getnbyaddr="undef"
1857 $ perl_d_getnbyname="undef"
1858 $ perl_d_getpbynumber="undef"
1859 $ perl_d_getpbyname="undef"
1860 $ perl_d_getsbyport="undef"
1861 $ perl_d_getsbyname="undef"
1862 $ perl_d_gethostprotos="undef"
1863 $ perl_d_getnetprotos="undef"
1864 $ perl_d_getprotoprotos="undef"
1865 $ perl_d_getservprotos="undef"
1868 $ if ("''use_threads'".eqs."T")
1870 $ perl_usethreads="define"
1871 $ perl_d_pthreads_created_joinable="define"
1872 $ if ("''VMS_VER'".ges."7.0")
1874 $ perl_d_oldpthreads="undef"
1876 $ perl_d_oldpthreads="define"
1879 $ perl_d_oldpthreads="undef"
1880 $ perl_usethreads="undef"
1882 $ perl_d_pthreads_created_joinable="undef"
1886 $! Finally the composite ones. All config
1887 $ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
1888 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
1889 $ perl_myhostname="''myhostname'"
1890 $ perl_mydomain="''mydomain'"
1891 $ perl_perladmin="''perladmin'"
1892 $ perl_cf_email="''cf_email'"
1893 $ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
1894 $ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
1895 $ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
1896 $ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
1897 $ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
1898 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
1899 $ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
1900 $ if "''Using_Dec_C'" .eqs. "Yes"
1902 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
1904 $ IF "''Using_Vax_C'" .eqs. "Yes"
1906 $ perl_ccflags="/Include=[]/Obj=''perl_obj_ext'/NoList''cc_flags'"
1910 $! Finally clean off any leading zeros from the patchlevel or subversion
1911 $ perl_patchlevel = perl_patchlevel + 0
1912 $ perl_subversion = perl_subversion + 0
1914 $! Okay, we've got everything configured. Now go write out a config.sh.
1915 $ open/write CONFIGSH [-]config.sh
1916 $ WC := "write CONFIGSH"
1918 $ WC "# This file generated by Configure.COM on a VMS system."
1919 $ WC "# Time: " + perl_cf_time
1921 $ WC "package='" + perl_package + "'"
1922 $ WC "CONFIG='" + perl_config + "'"
1923 $ WC "cf_time='" + perl_cf_time + "'"
1924 $ WC "cf_by='" + perl_cf_by+ "'"
1925 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
1926 $ WC "ccdlflags='" + perl_ccdlflags + "'"
1927 $ WC "cccdlflags='" + perl_cccdlflags + "'"
1928 $ WC "mab='" + perl_mab + "'"
1929 $ WC "libpth='" + perl_libpth + "'"
1930 $ WC "ld='" + perl_ld + "'"
1931 $ WC "lddlflags='" + perl_lddlflags + "'"
1932 $ WC "ranlib='" + perl_ranlib + "'"
1933 $ WC "ar='" + perl_ar + "'"
1934 $ WC "eunicefix='" + perl_eunicefix + "'"
1935 $ WC "hint='" + perl_hint +"'"
1936 $ WC "hintfile='" + perl_hintfile + "'"
1937 $ WC "shrplib='" + perl_shrplib + "'"
1938 $ WC "usemymalloc='" + perl_usemymalloc + "'"
1939 $ WC "usevfork='" + perl_usevfork + "'"
1940 $ WC "useposix='false'"
1941 $ WC "spitshell='write sys$output '"
1942 $ WC "dlsrc='dl_vms.c'"
1943 $ WC "binexp='" + perl_binexp + "'"
1944 $ WC "man1ext='" + perl_man1ext + "'"
1945 $ WC "man3ext='" + perl_man3ext + "'"
1946 $ WC "arch='" + perl_arch + "'"
1947 $ WC "archname='" + perl_archname + "'"
1948 $ WC "osvers='" + perl_osvers + "'"
1949 $ WC "prefix='" + perl_prefix + "'"
1950 $ WC "builddir='" + perl_builddir + "'"
1951 $ WC "installbin='" + perl_installbin + "'"
1952 $ WC "installscript='" + perl_installscript + "'"
1953 $ WC "installman1dir='" + perl_installman1dir + "'"
1954 $ WC "installman3dir='" + perl_installman3dir + "'"
1955 $ WC "installprivlib='" + perl_installprivlib + "'"
1956 $ WC "installarchlib='" + perl_installarchlib + "'"
1957 $ WC "installsitelib='" + perl_installsitelib + "'"
1958 $ WC "installsitearch='" + perl_installsitearch + "'"
1959 $ WC "path_sep='" + perl_path_sep + "'"
1960 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
1961 $ WC "d_attribut='" + perl_d_attribut + "'"
1962 $ WC "cc='" + perl_cc + "'"
1963 $ WC "ccflags='" + perl_ccflags + "'"
1964 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
1965 $ WC "d_socket='" + perl_d_socket + "'"
1966 $ WC "d_sockpair='" + perl_d_sockpair + "'"
1967 $ WC "d_gethent='" + perl_d_gethent + "'"
1968 $ WC "d_getsent='" + perl_d_getsent + "'"
1969 $ WC "d_select='" + perl_d_select + "'"
1970 $ WC "i_niin='" + perl_i_niin + "'"
1971 $ WC "i_neterrno='" + perl_i_neterrno + "'"
1972 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
1973 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
1974 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
1975 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
1976 $ WC "d_locconv='" + perl_d_locconv + "'"
1977 $ WC "d_setlocale='" + perl_d_setlocale + "'"
1978 $ WC "i_locale='" + perl_i_locale + "'"
1979 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
1980 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
1981 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
1982 $ WC "d_wctomb='" + perl_d_wctomb + "'"
1983 $ WC "d_mblen='" + perl_d_mblen + "'"
1984 $ WC "d_mktime='" + perl_d_mktime + "'"
1985 $ WC "d_strcoll='" + perl_d_strcoll + "'"
1986 $ WC "d_strxfrm='" + perl_d_strxfrm + "'"
1987 $ WC "ldflags='" + perl_ldflags + "'"
1988 $ WC "dlobj='" + perl_dlobj + "'"
1989 $ WC "obj_ext='" + perl_obj_ext + "'"
1990 $ WC "so='" + perl_so + "'"
1991 $ WC "dlext='" + perl_dlext + "'"
1992 $ WC "exe_ext='" + perl_exe_ext + "'"
1993 $ WC "lib_ext='" + perl_lib_ext + "'"
1994 $ WC "myhostname='" + perl_myhostname + "'"
1995 $ WC "mydomain='" + perl_mydomain + "'"
1996 $ WC "perladmin='" + perl_perladmin + "'"
1997 $ WC "cf_email='" + perl_cf_email + "'"
1998 $ WC "myuname='" + perl_myuname + "'"
1999 $ WC "alignbytes='" + perl_alignbytes + "'"
2000 $ WC "osname='" + perl_osname + "'"
2001 $ WC "d_archlib='" + perl_d_archlib + "'"
2002 $ WC "archlibexp='" + perl_archlibexp + "'"
2003 $ WC "archlib='" + perl_archlib + "'"
2004 $ WC "archname='" + perl_archname + "'"
2005 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
2006 $ WC "cppstdin='" + perl_cppstdin + "'"
2007 $ WC "cppminus='" + perl_cppminus + "'"
2008 $ WC "d_bcmp='" + perl_d_bcmp + "'"
2009 $ WC "d_bcopy='" + perl_d_bcopy + "'"
2010 $ WC "d_bzero='" + perl_d_bzero + "'"
2011 $ WC "d_castneg='" + perl_d_castneg + "'"
2012 $ WC "castflags='" + perl_castflags + "'"
2013 $ WC "d_chsize='" + perl_d_chsize + "'"
2014 $ WC "d_const='" + perl_d_const + "'"
2015 $ WC "d_crypt='" + perl_d_crypt + "'"
2016 $ WC "byteorder='" + perl_byteorder + "'"
2017 $ WC "full_csh='" + perl_full_csh + "'"
2018 $ WC "d_csh='" + perl_d_csh + "'"
2019 $ WC "d_dup2='" + perl_d_dup2 + "'"
2020 $ WC "d_fchmod='" + perl_d_fchmod + "'"
2021 $ WC "d_fchown='" + perl_d_fchown + "'"
2022 $ WC "d_fcntl='" + perl_d_fcntl + "'"
2023 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
2024 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
2025 $ WC "d_flock='" + perl_d_flock + "'"
2026 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
2027 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
2028 $ WC "d_getgrps='" + perl_d_getgrps + "'"
2029 $ WC "d_setgrps='" + perl_d_setgrps + "'"
2030 $ WC "d_uname='" + perl_d_uname + "'"
2031 $ WC "d_getprior='" + perl_d_getprior + "'"
2032 $ WC "d_killpg='" + perl_d_killpg + "'"
2033 $ WC "d_link='" + perl_d_link + "'"
2034 $ WC "d_lstat='" + perl_d_lstat + "'"
2035 $ WC "d_lockf='" + perl_d_lockf + "'"
2036 $ WC "d_memcmp='" + perl_d_memcmp + "'"
2037 $ WC "d_memcpy='" + perl_d_memcpy + "'"
2038 $ WC "d_memmove='" + perl_d_memmove + "'"
2039 $ WC "d_memset='" + perl_d_memset + "'"
2040 $ WC "d_mkdir='" + perl_d_mkdir + "'"
2041 $ WC "d_msg='" + perl_d_msg + "'"
2042 $ WC "d_open3='" + perl_d_open3 + "'"
2043 $ WC "d_poll='" + perl_d_poll + "'"
2044 $ WC "d_readdir='" + perl_d_readdir + "'"
2045 $ WC "d_seekdir='" + perl_d_seekdir + "'"
2046 $ WC "d_telldir='" + perl_d_telldir + "'"
2047 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
2048 $ WC "d_rename='" + perl_d_rename + "'"
2049 $ WC "d_rmdir='" + perl_d_rmdir + "'"
2050 $ WC "d_sem='" + perl_d_sem + "'"
2051 $ WC "d_setegid='" + perl_d_setegid + "'"
2052 $ WC "d_seteuid='" + perl_d_seteuid + "'"
2053 $ WC "d_setprior='" + perl_d_setprior + "'"
2054 $ WC "d_setregid='" + perl_d_setregid + "'"
2055 $ WC "d_setresgid='" + perl_d_setresgid + "'"
2056 $ WC "d_setreuid='" + perl_d_setreuid + "'"
2057 $ WC "d_setresuid='" + perl_d_setresuid + "'"
2058 $ WC "d_setrgid='" + perl_d_setrgid + "'"
2059 $ WC "d_setruid='" + perl_d_setruid + "'"
2060 $ WC "d_setsid='" + perl_d_setsid + "'"
2061 $ WC "d_shm='" + perl_d_shm + "'"
2062 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
2063 $ WC "d_sigaction='" + perl_d_sigaction + "'"
2064 $ WC "d_statblks='" + perl_d_statblks + "'"
2065 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
2066 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
2067 $ WC "stdio_base='" + perl_stdio_base + "'"
2068 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
2069 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
2070 $ WC "d_strerror='" + perl_d_strerror + "'"
2071 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
2072 $ WC "d_strerrm='" + perl_d_strerrm + "'"
2073 $ WC "d_symlink='" + perl_d_symlink + "'"
2074 $ WC "d_syscall='" + perl_d_syscall + "'"
2075 $ WC "d_system='" + perl_d_system + "'"
2076 $ WC "timetype='" + perl_timetype + "'"
2077 $ WC "d_truncate='" + perl_d_truncate + "'"
2078 $ WC "d_vfork='" + perl_d_vfork + "'"
2079 $ WC "signal_t='" + perl_signal_t + "'"
2080 $ WC "d_volatile='" + perl_d_volatile + "'"
2081 $ WC "d_vprintf='" + perl_d_vprintf + "'"
2082 $ WC "d_charvspr='" + perl_d_charvspr + "'"
2083 $ WC "d_wait4='" + perl_d_wait4 + "'"
2084 $ WC "d_waitpid='" + perl_d_waitpid + "'"
2085 $ WC "i_dirent='" + perl_i_dirent + "'"
2086 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
2087 $ WC "direntrytype='" + perl_direntrytype + "'"
2088 $ WC "i_fcntl='" + perl_i_fcntl + "'"
2089 $ WC "i_grp='" + perl_i_grp + "'"
2090 $ WC "i_limits='" + perl_i_limits + "'"
2091 $ WC "i_memory='" + perl_i_memory + "'"
2092 $ WC "i_ndbm='" + perl_i_ndbm + "'"
2093 $ WC "i_stdarg='" + perl_i_stdarg + "'"
2094 $ WC "i_pwd='" + perl_i_pwd + "'"
2095 $ WC "d_pwquota='" + perl_d_pwquota + "'"
2096 $ WC "d_pwage='" + perl_d_pwage + "'"
2097 $ WC "d_pwchange='" + perl_d_pwchange + "'"
2098 $ WC "d_pwclass='" + perl_d_pwclass + "'"
2099 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
2100 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
2101 $ WC "i_stddef='" + perl_i_stddef + "'"
2102 $ WC "i_stdlib='" + perl_i_stdlib + "'"
2103 $ WC "i_string='" + perl_i_string + "'"
2104 $ WC "i_sysdir='" + perl_i_sysdir + "'"
2105 $ WC "i_sysfile='" + perl_i_sysfile + "'"
2106 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
2107 $ WC "i_sysndir='" + perl_i_sysndir + "'"
2108 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
2109 $ WC "i_sysselct='" + perl_i_sysselct + "'"
2110 $ WC "i_dbm='" + perl_i_dbm + "'"
2111 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
2112 $ WC "i_sfio='" + perl_i_sfio + "'"
2113 $ WC "i_sysstat='" + perl_i_sysstat + "'"
2114 $ WC "i_systimes='" + perl_i_systimes + "'"
2115 $ WC "i_systypes='" + perl_i_systypes + "'"
2116 $ WC "i_sysun='" + perl_i_sysun + "'"
2117 $ WC "i_syswait='" + perl_i_syswait + "'"
2118 $ WC "i_termio='" + perl_i_termio + "'"
2119 $ WC "i_sgtty='" + perl_i_sgtty + "'"
2120 $ WC "i_termios='" + perl_i_termios + "'"
2121 $ WC "i_time='" + perl_i_time + "'"
2122 $ WC "i_systime='" + perl_i_systime + "'"
2123 $ WC "i_systimek='" + perl_i_systimek + "'"
2124 $ WC "i_unistd='" + perl_i_unistd + "'"
2125 $ WC "i_utime='" + perl_i_utime + "'"
2126 $ WC "i_varargs='" + perl_i_varargs + "'"
2127 $ WC "i_vfork='" + perl_i_vfork + "'"
2128 $ WC "prototype='" + perl_prototype + "'"
2129 $ WC "randbits='" + perl_randbits +"'"
2130 $ WC "selecttype='" + perl_selecttype + "'"
2131 $ WC "stdchar='" + perl_stdchar + "'"
2132 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
2133 $ WC "full_sed='" + perl_full_sed + "'"
2134 $ WC "bin='" + perl_bin + "'"
2135 $ WC "binexp='" + perl_binexp + "'"
2136 $ WC "d_alarm='" + perl_d_alarm + "'"
2137 $ WC "d_casti32='" + perl_d_casti32 + "'"
2138 $ WC "d_chown='" + perl_d_chown + "'"
2139 $ WC "d_chroot='" + perl_d_chroot + "'"
2140 $ WC "d_cuserid='" + perl_d_cuserid + "'"
2141 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
2142 $ WC "d_difftime='" + perl_d_difftime + "'"
2143 $ WC "d_fork='" + perl_d_fork + "'"
2144 $ WC "d_getlogin='" + perl_d_getlogin + "'"
2145 $ WC "d_getppid='" + perl_d_getppid + "'"
2146 $ WC "d_htonl='" + perl_d_htonl + "'"
2147 $ WC "d_nice='" + perl_d_nice + "'"
2148 $ WC "d_pause='" + perl_d_pause + "'"
2149 $ WC "d_pipe='" + perl_d_pipe + "'"
2150 $ WC "d_readlink='" + perl_d_readlink + "'"
2151 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
2152 $ WC "d_strchr='" + perl_d_strchr + "'"
2153 $ WC "d_index='" + perl_d_index + "'"
2154 $ WC "d_strtod='" + perl_d_strtod + "'"
2155 $ WC "d_strtol='" + perl_d_strtol + "'"
2156 $ WC "d_strtoul='" + perl_d_strtoul + "'"
2157 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
2158 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
2159 $ WC "d_times='" + perl_d_times + "'"
2160 $ WC "d_tzname='" + perl_d_tzname + "'"
2161 $ WC "d_umask='" + perl_d_umask + "'"
2162 $ WC "fpostype='" + perl_fpostype + "'"
2163 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
2164 $ WC "i_float='" + perl_i_float + "'"
2165 $ WC "i_math='" + perl_i_math + "'"
2166 $ WC "intsize='" + perl_intsize + "'"
2167 $ WC "longsize='" + perl_longsize + "'"
2168 $ WC "shortsize='" + perl_shortsize + "'"
2169 $ WC "lseektype='" + perl_lseektype + "'"
2170 $ WC "i_values='" + perl_i_values + "'"
2171 $ WC "malloctype='" + perl_malloctype + "'"
2172 $ WC "freetype='" + perl_freetype + "'"
2173 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
2174 $ WC "sh='" + perl_sh + "'"
2175 $ WC "sig_name='" + perl_sig_name + "'"
2176 $ WC "sig_num='" + perl_sig_num + "'"
2177 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
2179 $ WC "modetype='" + perl_modetype + "'"
2180 $ WC "ssizetype='" + perl_ssizetype + "'"
2181 $ WC "o_nonblock='" + perl_o_nonblock + "'"
2182 $ WC "eagain='" + perl_eagain + "'"
2183 $ WC "rd_nodata='" + perl_rd_nodata + "'"
2184 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
2185 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
2186 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
2187 $ WC "oldarchlib='" + perl_oldarchlib + "'"
2188 $ WC "privlibexp='" + perl_privlibexp + "'"
2189 $ WC "privlib='" + perl_privlib + "'"
2190 $ WC "sitelibexp='" + perl_sitelibexp + "'"
2191 $ WC "sitelib='" + perl_sitelib + "'"
2192 $ WC "sitearchexp='" + perl_sitearchexp + "'"
2193 $ WC "sitearch='" + perl_sitearch + "'"
2194 $ WC "sizetype='" + perl_sizetype + "'"
2195 $ WC "i_sysparam='" + perl_i_sysparam + "'"
2196 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
2197 $ WC "d_dlerror='" + perl_d_dlerror + "'"
2198 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
2199 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
2200 $ WC "d_dosuid='" + perl_d_dosuid + "'"
2201 $ WC "d_inetaton='" + perl_d_inetaton + "'"
2202 $ WC "d_isascii='" + perl_d_isascii + "'"
2203 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
2204 $ WC "d_pathconf='" + perl_d_pathconf + "'"
2205 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
2206 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
2207 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
2208 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
2209 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
2210 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
2211 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
2212 $ WC "d_setpgid='" + perl_d_setpgid + "'"
2213 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
2214 $ WC "d_sysconf='" + perl_d_sysconf + "'"
2215 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
2216 $ WC "d_getpgid='" + perl_d_getpgid + "'"
2217 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
2218 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
2219 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
2220 $ WC "d_sfio='" + perl_d_sfio + "'"
2221 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
2222 $ WC "usedl='" + perl_usedl + "'"
2223 $ WC "startperl=" + perl_startperl ! This one's special--no enclosing single quotes
2224 $ WC "db_hashtype='" + perl_db_hashtype + "'"
2225 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
2226 $ WC "useperlio='" + perl_useperlio + "'"
2227 $ WC "defvoidused='" + perl_defvoidused + "'"
2228 $ WC "voidflags='" + perl_voidflags + "'"
2229 $ WC "d_eunice='" + perl_d_eunice + "'"
2230 $ WC "libs='" + perl_libs + "'"
2231 $ WC "libc='" + perl_libc + "'"
2232 $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
2234 $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
2236 $ WC "pager='" + perl_pager + "'"
2237 $ WC "uidtype='" + perl_uidtype + "'"
2238 $ WC "gidtype='" + perl_gidtype + "'"
2239 $ WC "usethreads='" + perl_usethreads + "'"
2240 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
2241 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
2242 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
2243 $ WC "i_netdb='" + perl_i_netdb + "'"
2244 $ WC "pidtype='" + perl_pidtype + "'"
2245 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
2246 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
2247 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
2248 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
2249 $ WC "baserev='" + perl_baserev + "'"
2250 $ WC "doublesize='" + perl_doublesize + "'"
2251 $ WC "ptrsize='" + perl_ptrsize + "'"
2252 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
2253 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
2254 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
2255 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
2256 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
2257 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
2258 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
2259 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
2260 $ WC "d_sethent='" + perl_d_sethent + "'"
2261 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
2262 $ WC "d_longdbl='" + perl_d_longdbl + "'"
2263 $ WC "longdblsize='" + perl_longdblsize + "'"
2264 $ WC "d_longlong='" + perl_d_longlong + "'"
2265 $ WC "longlongsize='" + perl_longlongsize + "'"
2266 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
2267 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
2268 $ WC "d_endhent='" + perl_d_endhent + "'"
2269 $ WC "d_endnent='" + perl_d_endsent + "'"
2270 $ WC "d_endpent='" + perl_d_endpent + "'"
2271 $ WC "d_endsent='" + perl_d_endsent + "'"
2272 $ WC "d_gethent='" + perl_d_gethent + "'"
2273 $ WC "d_getnent='" + perl_d_getsent + "'"
2274 $ WC "d_getpent='" + perl_d_getpent + "'"
2275 $ WC "d_getsent='" + perl_d_getsent + "'"
2276 $ WC "d_sethent='" + perl_d_sethent + "'"
2277 $ WC "d_setnent='" + perl_d_setsent + "'"
2278 $ WC "d_setpent='" + perl_d_setpent + "'"
2279 $ WC "d_setsent='" + perl_d_setsent + "'"
2280 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
2281 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
2282 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
2283 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
2284 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
2285 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
2286 $ WC "d_lchown='" + perl_d_lchown + "'"
2287 $ WC "d_union_semun='" + perl_d_union_semun + "'"
2288 $ WC "i_arpainet='" + perl_i_arpainet + "'"
2289 $ WC "d_grpasswd='" + perl_d_grpasswd + "'"
2290 $ WC "d_setgrent='" + perl_d_setgrent + "'"
2291 $ WC "d_getgrent='" + perl_d_getgrent + "'"
2292 $ WC "d_endgrent='" + perl_d_endgrent + "'"
2293 $ WC "d_pwpasswd='" + perl_d_pwpasswd + "'"
2294 $ WC "d_setpwent='" + perl_d_setpwent + "'"
2295 $ WC "d_getpwent='" + perl_d_getpwent + "'"
2296 $ WC "d_endpwent='" + perl_d_endpwent + "'"
2297 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
2298 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
2299 $ WC "extensions='" + perl_extensions + "'"
2300 $ WC "d_mknod='" + perl_d_mknod + "'"
2301 $ WC "devtype='" + perl_devtype + "'"
2305 $! Okay, we've gotten here. Build munchconfig and run it
2306 $ 'Perl_CC' munchconfig
2307 $ If (Needs_Opt.eqs."Yes")
2309 $ open/write OPTCHAN []munchconfig.opt
2310 $ IF ("''using_gnu_c'".eqs."Yes")
2312 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
2314 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
2316 $ link munchconfig,munchconfig/opt
2317 $ delete munchconfig.opt;*
2321 $ WRITE_RESULT "Writing config.h"
2323 $ ! we need an fdl file
2324 $ CREATE [-]CONFIG.FDL
2327 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
2328 $ ! First spit out the header info with the local defines (to get
2329 $ ! around the 255 character command line limit)
2330 $ OPEN/APPEND CONFIG [-]config.local
2331 $ if use_debugging_perl.eqs."Y"
2333 $ WRITE CONFIG "#define DEBUGGING"
2335 $ if preload_env.eqs."Y"
2337 $ WRITE CONFIG "#define PRIME_ENV_AT_STARTUP"
2339 $ if use_two_pot_malloc.eqs."Y"
2341 $ WRITE CONFIG "#define TWO_POT_OPTIMIZE"
2343 $ if mymalloc.eqs."Y"
2345 $ WRITE CONFIG "#define EMBEDMYMALLOC"
2347 $ if use_pack_malloc.eqs."Y"
2349 $ WRITE CONFIG "#define PACK_MALLOC"
2351 $ if use_debugmalloc.eqs."Y"
2353 $ write config "#define DEBUGGING_MSTATS"
2355 $ if "''Using_Gnu_C'" .eqs."Yes"
2357 $ WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
2359 $ if "''Has_Dec_C_Sockets'".eqs."T"
2361 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
2362 $ WRITE CONFIG "#define DECCRTL_SOCKETS"
2364 $ if "''Has_Socketshr'".eqs."T"
2366 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
2370 $! Now build the normal config.h
2371 $ define/user sys$output [-]config.main
2372 $ mcr []munchconfig [-]config.sh [-]config_h.sh
2373 $ ! Concatenate them together
2374 $ copy [-]config.local,[-]config.main [-]config.h
2376 $ DELETE/NOLOG [-]CONFIG.MAIN;*
2377 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
2378 $ DELETE/NOLOG [-]CONFIG.FDL;*
2380 $ if "''Using_Dec_C'" .eqs."Yes"
2382 $ DECC_REPLACE = "DECC=decc=1"
2384 $ DECC_REPLACE = "DECC="
2386 $ if "''Using_Gnu_C'" .eqs."Yes"
2388 $ GNUC_REPLACE = "GNUC=gnuc=1"
2390 $ GNUC_REPLACE = "GNUC="
2392 $ if "''Has_Dec_C_Sockets'" .eqs."T"
2394 $ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
2396 $ if "''Has_Socketshr'" .eqs."T"
2398 $ SOCKET_REPLACE = "SOCKET=SOCKETSHRSOCKETS=1"
2400 $ SOCKET_REPLACE = "SOCKET="
2403 $ IF ("''Use_Threads'".eqs."T")
2405 $ if ("''VMS_VER'".LES."6.2")
2407 $ THREAD_REPLACE = "THREAD=OLDTHREADED=1"
2409 $ THREAD_REPLACE = "THREAD=THREADED=1"
2412 $ THREAD_REPLACE = "THREAD="
2414 $ if mymalloc.eqs."Y"
2416 $ MALLOC_REPLACE = "MALLOC=MALLOC=1"
2418 $ MALLOC_REPLACE = "MALLOC="
2420 $ if f$getsyi("HW_MODEL").ge.1024
2422 $ ARCH_TYPE = "ARCH-TYPE=__AXP__"
2424 $ ARCH_TYPE = "ARCH-TYPE=__VAX__"
2426 $ WRITE_RESULT "Writing DESCRIP.MMS"
2428 $ define/user sys$output [-]descrip.mms
2429 $ 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'"
2432 $! Clean up after ourselves
2433 $ delete/nolog munchconfig.exe;*
2434 $ delete/nolog munchconfig.obj;*