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 the prototype for getgid
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 the prototype for select
749 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
753 $ WS "#include <stdlib.h>
755 $ WS "#include <stdio.h>
756 $ WS "#include <types.h>
757 $ WS "#include <unistd.h>
758 $ if ("''Has_Socketshr'".eqs."T")
760 $ WS "#include <socketshr.h>"
762 $ WS "#include <time.h>
763 $ WS "#include <socket.h>
770 $ WS "bar = select(2, foo, foo, foo, NULL);
774 $ DEFINE SYS$ERROR _NLA0:
775 $ DEFINE SYS$OUTPUT _NLA0:
776 $ on error then continue
777 $ on warning then continue
779 $ teststatus = f$extract(9,1,$status)
780 $ DEASSIGN SYS$OUTPUT
782 $ if (teststatus.nes."1")
784 $! Okay, fd_set failed. Must be an int
785 $ perl_selecttype = "int *"
787 $ perl_selecttype="fd_set *"
790 $ ! No sockets, so stick in an int *
791 $ perl_selecttype = "int *"
793 $ WRITE_RESULT "selectype is ''perl_selecttype'"
799 $ WS "#include <stdlib.h>
801 $ WS "#include <stdio.h>
802 $ WS "#include <strings.h>
806 $ WS "bzero(foo, 10);
810 $ DEFINE SYS$ERROR _NLA0:
811 $ DEFINE SYS$OUTPUT _NLA0:
812 $ on error then continue
813 $ on warning then continue
815 $ savedstatus = $status
816 $ teststatus = f$extract(9,1,savedstatus)
817 $ if (teststatus.nes."1")
819 $ perl_d_bzero="undef"
820 $ DEASSIGN SYS$OUTPUT
823 $ If (Needs_Opt.eqs."Yes")
829 $ savedstatus = $status
830 $ teststatus = f$extract(9,1,savedstatus)
831 $ DEASSIGN SYS$OUTPUT
833 $ if (teststatus.nes."1")
835 $ perl_d_bzero="undef"
837 $ perl_d_bzero="define"
840 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
846 $ WS "#include <stdlib.h>
848 $ WS "#include <stdio.h>
849 $ WS "#include <strings.h>
852 $ WS "char foo[10], bar[10];
853 $ WS "bcopy(""foo"", bar, 3);
857 $ DEFINE SYS$ERROR _NLA0:
858 $ DEFINE SYS$OUTPUT _NLA0:
859 $ on error then continue
860 $ on warning then continue
862 $ savedstatus = $status
863 $ teststatus = f$extract(9,1,savedstatus)
864 $ if (teststatus.nes."1")
866 $ perl_d_bcopy="undef"
867 $ DEASSIGN SYS$OUTPUT
870 $ If (Needs_Opt.eqs."Yes")
876 $ savedstatus = $status
877 $ teststatus = f$extract(9,1,savedstatus)
878 $ DEASSIGN SYS$OUTPUT
880 $ if (teststatus.nes."1")
882 $ perl_d_bcopy="undef"
884 $ perl_d_bcopy="define"
887 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
893 $ WS "#include <stdlib.h>
895 $ WS "#include <stdio.h>
898 $ WS "mkstemp(""foo"");
902 $ DEFINE SYS$ERROR _NLA0:
903 $ DEFINE SYS$OUTPUT _NLA0:
904 $ on error then continue
905 $ on warning then continue
907 $ If (Needs_Opt.eqs."Yes")
913 $ savedstatus = $status
914 $ teststatus = f$extract(9,1,savedstatus)
915 $ DEASSIGN SYS$OUTPUT
917 $ if (teststatus.nes."1")
919 $ perl_d_mkstemp="undef"
921 $ perl_d_mkstemp="define"
923 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
929 $ WS "#include <stdlib.h>
931 $ WS "#include <stdio.h>
935 $ WS "char Buffer[99];
936 $ WS "foo = fopen(""foo"", ""r"");
937 $ WS "setvbuf(foo, Buffer, 0, 0);
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 $ teststatus = f$extract(9,1,$status)
953 $ DEASSIGN SYS$OUTPUT
955 $ if (teststatus.nes."1")
957 $ perl_d_setvbuf="undef"
959 $ perl_d_setvbuf="define"
961 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
963 $! Check for <netinet/in.h>
965 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
969 $ WS "#include <stdlib.h>
971 $ WS "#include <stdio.h>
972 $ if ("''Has_Socketshr'".eqs."T")
974 $ WS "#include <socketshr.h>"
976 $ WS "#include <netdb.h>
978 $ WS "#include <netinet/in.h>"
984 $ DEFINE SYS$ERROR _NLA0:
985 $ DEFINE SYS$OUTPUT _NLA0:
986 $ on error then continue
987 $ on warning then continue
989 $ If (Needs_Opt.eqs."Yes")
995 $ teststatus = f$extract(9,1,$status)
996 $ DEASSIGN SYS$OUTPUT
998 $ if (teststatus.nes."1")
1000 $ perl_i_niin="undef"
1002 $ perl_i_niin="define"
1005 $ perl_i_niin="undef"
1007 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
1009 $! Check for endhostent
1011 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1015 $ WS "#include <stdlib.h>
1017 $ WS "#include <stdio.h>
1018 $ if ("''Has_Socketshr'".eqs."T")
1020 $ WS "#include <socketshr.h>"
1022 $ WS "#include <netdb.h>
1030 $ DEFINE SYS$ERROR _NLA0:
1031 $ DEFINE SYS$OUTPUT _NLA0:
1032 $ on error then continue
1033 $ on warning then continue
1035 $ If (Needs_Opt.eqs."Yes")
1037 $ link temp,temp/opt
1041 $ teststatus = f$extract(9,1,$status)
1042 $ DEASSIGN SYS$OUTPUT
1043 $ DEASSIGN SYS$ERROR
1044 $ if (teststatus.nes."1")
1046 $ perl_d_endhent="undef"
1048 $ perl_d_endhent="define"
1051 $ perl_d_endhent="undef"
1053 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
1055 $! Check for endnetent
1057 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1061 $ WS "#include <stdlib.h>
1063 $ WS "#include <stdio.h>
1064 $ if ("''Has_Socketshr'".eqs."T")
1066 $ WS "#include <socketshr.h>"
1068 $ WS "#include <netdb.h>
1076 $ DEFINE SYS$ERROR _NLA0:
1077 $ DEFINE SYS$OUTPUT _NLA0:
1078 $ on error then continue
1079 $ on warning then continue
1081 $ If (Needs_Opt.eqs."Yes")
1083 $ link temp,temp/opt
1087 $ teststatus = f$extract(9,1,$status)
1088 $ DEASSIGN SYS$OUTPUT
1089 $ DEASSIGN SYS$ERROR
1090 $ if (teststatus.nes."1")
1092 $ perl_d_endnent="undef"
1094 $ perl_d_endnent="define"
1097 $ perl_d_endnent="undef"
1099 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
1101 $! Check for endprotoent
1103 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1107 $ WS "#include <stdlib.h>
1109 $ WS "#include <stdio.h>
1110 $ if ("''Has_Socketshr'".eqs."T")
1112 $ WS "#include <socketshr.h>"
1114 $ WS "#include <netdb.h>
1118 $ WS "endprotoent();
1122 $ DEFINE SYS$ERROR _NLA0:
1123 $ DEFINE SYS$OUTPUT _NLA0:
1124 $ on error then continue
1125 $ on warning then continue
1127 $ If (Needs_Opt.eqs."Yes")
1129 $ link temp,temp/opt
1133 $ teststatus = f$extract(9,1,$status)
1134 $ DEASSIGN SYS$OUTPUT
1135 $ DEASSIGN SYS$ERROR
1136 $ if (teststatus.nes."1")
1138 $ perl_d_endpent="undef"
1140 $ perl_d_endpent="define"
1143 $ perl_d_endpent="undef"
1145 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
1147 $! Check for endservent
1149 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1153 $ WS "#include <stdlib.h>
1155 $ WS "#include <stdio.h>
1156 $ if ("''Has_Socketshr'".eqs."T")
1158 $ WS "#include <socketshr.h>"
1160 $ WS "#include <netdb.h>
1168 $ DEFINE SYS$ERROR _NLA0:
1169 $ DEFINE SYS$OUTPUT _NLA0:
1170 $ on error then continue
1171 $ on warning then continue
1173 $ If (Needs_Opt.eqs."Yes")
1175 $ link temp,temp/opt
1179 $ teststatus = f$extract(9,1,$status)
1180 $ DEASSIGN SYS$OUTPUT
1181 $ DEASSIGN SYS$ERROR
1182 $ if (teststatus.nes."1")
1184 $ perl_d_endsent="undef"
1186 $ perl_d_endsent="define"
1189 $ perl_d_endsent="undef"
1191 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
1193 $! Check for sethostent
1195 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1199 $ WS "#include <stdlib.h>
1201 $ WS "#include <stdio.h>
1202 $ if ("''Has_Socketshr'".eqs."T")
1204 $ WS "#include <socketshr.h>"
1206 $ WS "#include <netdb.h>
1210 $ WS "sethostent(1);
1214 $ DEFINE SYS$ERROR _NLA0:
1215 $ DEFINE SYS$OUTPUT _NLA0:
1216 $ on error then continue
1217 $ on warning then continue
1219 $ If (Needs_Opt.eqs."Yes")
1221 $ link temp,temp/opt
1225 $ teststatus = f$extract(9,1,$status)
1226 $ DEASSIGN SYS$OUTPUT
1227 $ DEASSIGN SYS$ERROR
1228 $ if (teststatus.nes."1")
1230 $ perl_d_sethent="undef"
1232 $ perl_d_sethent="define"
1235 $ perl_d_sethent="undef"
1237 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
1239 $! Check for setnetent
1241 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1245 $ WS "#include <stdlib.h>
1247 $ WS "#include <stdio.h>
1248 $ if ("''Has_Socketshr'".eqs."T")
1250 $ WS "#include <socketshr.h>"
1252 $ WS "#include <netdb.h>
1260 $ DEFINE SYS$ERROR _NLA0:
1261 $ DEFINE SYS$OUTPUT _NLA0:
1262 $ on error then continue
1263 $ on warning then continue
1265 $ If (Needs_Opt.eqs."Yes")
1267 $ link temp,temp/opt
1271 $ teststatus = f$extract(9,1,$status)
1272 $ DEASSIGN SYS$OUTPUT
1273 $ DEASSIGN SYS$ERROR
1274 $ if (teststatus.nes."1")
1276 $ perl_d_setnent="undef"
1278 $ perl_d_setnent="define"
1281 $ perl_d_setnent="undef"
1283 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
1285 $! Check for setprotoent
1287 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1291 $ WS "#include <stdlib.h>
1293 $ WS "#include <stdio.h>
1294 $ if ("''Has_Socketshr'".eqs."T")
1296 $ WS "#include <socketshr.h>"
1298 $ WS "#include <netdb.h>
1302 $ WS "setprotoent(1);
1306 $ DEFINE SYS$ERROR _NLA0:
1307 $ DEFINE SYS$OUTPUT _NLA0:
1308 $ on error then continue
1309 $ on warning then continue
1311 $ If (Needs_Opt.eqs."Yes")
1313 $ link temp,temp/opt
1317 $ teststatus = f$extract(9,1,$status)
1318 $ DEASSIGN SYS$OUTPUT
1319 $ DEASSIGN SYS$ERROR
1320 $ if (teststatus.nes."1")
1322 $ perl_d_setpent="undef"
1324 $ perl_d_setpent="define"
1327 $ perl_d_setpent="undef"
1329 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
1331 $! Check for setservent
1333 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1337 $ WS "#include <stdlib.h>
1339 $ WS "#include <stdio.h>
1340 $ if ("''Has_Socketshr'".eqs."T")
1342 $ WS "#include <socketshr.h>"
1344 $ WS "#include <netdb.h>
1348 $ WS "setservent(1);
1352 $ DEFINE SYS$ERROR _NLA0:
1353 $ DEFINE SYS$OUTPUT _NLA0:
1354 $ on error then continue
1355 $ on warning then continue
1357 $ If (Needs_Opt.eqs."Yes")
1359 $ link temp,temp/opt
1363 $ teststatus = f$extract(9,1,$status)
1364 $ DEASSIGN SYS$OUTPUT
1365 $ DEASSIGN SYS$ERROR
1366 $ if (teststatus.nes."1")
1368 $ perl_d_setsent="undef"
1370 $ perl_d_setsent="define"
1373 $ perl_d_setsent="undef"
1375 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
1377 $! Check for gethostent
1379 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1383 $ WS "#include <stdlib.h>
1385 $ WS "#include <stdio.h>
1386 $ if ("''Has_Socketshr'".eqs."T")
1388 $ WS "#include <socketshr.h>"
1390 $ WS "#include <netdb.h>
1398 $ DEFINE SYS$ERROR _NLA0:
1399 $ DEFINE SYS$OUTPUT _NLA0:
1400 $ on error then continue
1401 $ on warning then continue
1403 $ If (Needs_Opt.eqs."Yes")
1405 $ link temp,temp/opt
1409 $ teststatus = f$extract(9,1,$status)
1410 $ DEASSIGN SYS$OUTPUT
1411 $ DEASSIGN SYS$ERROR
1412 $ if (teststatus.nes."1")
1414 $ perl_d_gethent="undef"
1416 $ perl_d_gethent="define"
1419 $ perl_d_gethent="undef"
1421 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
1423 $! Check for getnetent
1425 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1429 $ WS "#include <stdlib.h>
1431 $ WS "#include <stdio.h>
1432 $ if ("''Has_Socketshr'".eqs."T")
1434 $ WS "#include <socketshr.h>"
1436 $ WS "#include <netdb.h>
1444 $ DEFINE SYS$ERROR _NLA0:
1445 $ DEFINE SYS$OUTPUT _NLA0:
1446 $ on error then continue
1447 $ on warning then continue
1449 $ If (Needs_Opt.eqs."Yes")
1451 $ link temp,temp/opt
1455 $ teststatus = f$extract(9,1,$status)
1456 $ DEASSIGN SYS$OUTPUT
1457 $ DEASSIGN SYS$ERROR
1458 $ if (teststatus.nes."1")
1460 $ perl_d_getnent="undef"
1462 $ perl_d_getnent="define"
1465 $ perl_d_getnent="undef"
1467 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
1469 $! Check for getprotoent
1471 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1475 $ WS "#include <stdlib.h>
1477 $ WS "#include <stdio.h>
1478 $ if ("''Has_Socketshr'".eqs."T")
1480 $ WS "#include <socketshr.h>"
1482 $ WS "#include <netdb.h>
1486 $ WS "getprotoent();
1490 $ DEFINE SYS$ERROR _NLA0:
1491 $ DEFINE SYS$OUTPUT _NLA0:
1492 $ on error then continue
1493 $ on warning then continue
1495 $ If (Needs_Opt.eqs."Yes")
1497 $ link temp,temp/opt
1501 $ teststatus = f$extract(9,1,$status)
1502 $ DEASSIGN SYS$OUTPUT
1503 $ DEASSIGN SYS$ERROR
1504 $ if (teststatus.nes."1")
1506 $ perl_d_getpent="undef"
1508 $ perl_d_getpent="define"
1511 $ perl_d_getpent="undef"
1513 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
1515 $! Check for getservent
1517 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1521 $ WS "#include <stdlib.h>
1523 $ WS "#include <stdio.h>
1524 $ if ("''Has_Socketshr'".eqs."T")
1526 $ WS "#include <socketshr.h>"
1528 $ WS "#include <netdb.h>
1536 $ DEFINE SYS$ERROR _NLA0:
1537 $ DEFINE SYS$OUTPUT _NLA0:
1538 $ on error then continue
1539 $ on warning then continue
1541 $ If (Needs_Opt.eqs."Yes")
1543 $ link temp,temp/opt
1547 $ teststatus = f$extract(9,1,$status)
1548 $ DEASSIGN SYS$OUTPUT
1549 $ DEASSIGN SYS$ERROR
1550 $ if (teststatus.nes."1")
1552 $ perl_d_getsent="undef"
1554 $ perl_d_getsent="define"
1557 $ perl_d_getsent="undef"
1559 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
1561 $! Check for pthread_yield
1563 $ if ("''use_threads'".eqs."T")
1567 $ WS "#include <stdlib.h>
1569 $ WS "#include <pthread.h>
1570 $ WS "#include <stdio.h>
1573 $ WS "pthread_yield();
1577 $ DEFINE SYS$ERROR _NLA0:
1578 $ DEFINE SYS$OUTPUT _NLA0:
1579 $ on error then continue
1580 $ on warning then continue
1582 $ teststatus = f$extract(9,1,$status)
1583 $ DEASSIGN SYS$OUTPUT
1584 $ DEASSIGN SYS$ERROR
1585 $ if (teststatus.nes."1")
1587 $ perl_d_pthread_yield="undef"
1589 $ perl_d_pthread_yield="define"
1592 $ perl_d_pthread_yield="undef"
1594 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
1596 $! Check for sched_yield
1598 $ if ("''use_threads'".eqs."T")
1602 $ WS "#include <stdlib.h>
1604 $ WS "#include <pthread.h>
1605 $ WS "#include <stdio.h>
1608 $ WS "sched_yield();
1612 $ DEFINE SYS$ERROR _NLA0:
1613 $ DEFINE SYS$OUTPUT _NLA0:
1614 $ on error then continue
1615 $ on warning then continue
1617 $ teststatus = f$extract(9,1,$status)
1618 $ DEASSIGN SYS$OUTPUT
1619 $ DEASSIGN SYS$ERROR
1620 $ if (teststatus.nes."1")
1622 $ perl_d_sched_yield="undef"
1624 $ perl_d_sched_yield="define"
1627 $ perl_d_sched_yield="undef"
1629 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
1631 $! Check for generic pointer size
1635 $ WS "#include <stdlib.h>
1637 $ WS "#include <stdio.h>
1641 $ WS "foo = sizeof(char *);
1642 $ WS "printf(""%d\n"", foo);
1646 $! copy temp.c sys$output
1648 $ DEFINE SYS$ERROR _NLA0:
1649 $ DEFINE SYS$OUTPUT _NLA0:
1650 $ ON ERROR THEN CONTINUE
1651 $ ON WARNING THEN CONTINUE
1653 $ If (Needs_Opt.eqs."Yes")
1655 $ link temp,temp/opt
1659 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
1660 $ DEASSIGN SYS$OUTPUT
1661 $ DEASSIGN SYS$ERROR
1662 $ DEFINE SYS$ERROR TEMPOUT
1663 $ DEFINE SYS$OUTPUT TEMPOUT
1666 $ DEASSIGN SYS$OUTPUT
1667 $ DEASSIGN SYS$ERROR
1668 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
1673 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
1676 $! Done with compiler checks. Clean up.
1677 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
1678 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
1679 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
1680 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
1683 $! Some that are compiler or VMS version sensitive
1686 $ IF "''Using_Gnu_C'".EQS."Yes"
1688 $ perl_d_attribut="define"
1689 $ perl_vms_cc_type="gcc"
1691 $ perl_d_attribut="undef"
1694 $! Dec C >= 5.2 and VMS ver >= 7.0
1695 $ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
1697 $ perl_d_bcmp="define"
1698 $ perl_d_gettimeod="define"
1699 $ perl_d_uname="define"
1700 $ perl_d_sigaction="define"
1701 $ perl_d_truncate="define"
1702 $ perl_d_wait4="define"
1703 $ perl_d_index="define"
1704 $ perl_pidtype="pid_t"
1705 $ 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"
1706 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
1707 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
1708 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
1709 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
1710 $ 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"
1711 $ perl_sig_num_with_commas=perl_sig_num
1712 $ perl_uidtype="uid_t"
1713 $ perl_d_pathconf="define"
1714 $ perl_d_fpathconf="define"
1715 $ perl_d_sysconf="define"
1716 $ perl_d_sigsetjmp="define"
1718 $ perl_pidtype="unsigned int"
1719 $ perl_d_gettimeod="undef"
1720 $ perl_d_bcmp="undef"
1721 $ perl_d_uname="undef"
1722 $ perl_d_sigaction="undef"
1723 $ perl_d_truncate="undef"
1724 $ perl_d_wait4="undef"
1725 $ perl_d_index="undef"
1726 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
1727 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
1728 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
1729 $ perl_sig_name_with_commas = psnwc1 + psnwc2
1730 $ perl_sig_num="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
1731 $ perl_sig_num_with_commas=perl_sig_num
1732 $ perl_uidtype="unsigned int"
1733 $ perl_d_pathconf="undef"
1734 $ perl_d_fpathconf="undef"
1735 $ perl_d_sysconf="undef"
1736 $ perl_d_sigsetjmp="undef"
1740 $ IF ("''Using_Dec_C'".EQS."Yes")
1742 $ perl_d_mbstowcs="define"
1743 $ perl_d_mbtowc="define"
1744 $ perl_d_stdiobase="define"
1745 $ perl_d_stdio_ptr_lval="define"
1746 $ perl_d_stdio_cnt_lval="define"
1747 $ perl_d_stdstdio="define"
1748 $ perl_d_wcstombs="define"
1749 $ perl_d_mblen="define"
1750 $ perl_d_mktime="define"
1751 $ perl_d_strcoll="define"
1752 $ perl_d_strxfrm="define"
1753 $ perl_d_wctomb="define"
1754 $ perl_i_locale="define"
1755 $ perl_d_locconv="define"
1756 $ perl_d_setlocale="define"
1757 $ perl_vms_cc_type="decc"
1759 $ perl_d_mbstowcs="undef"
1760 $ perl_d_mbtowc="undef"
1761 $ perl_d_stdiobase="undef"
1762 $ perl_d_stdio_ptr_lval="undef"
1763 $ perl_d_stdio_cnt_lval="undef"
1764 $ perl_d_stdstdio="undef"
1765 $ perl_d_wcstombs="undef"
1766 $ perl_d_mblen="undef"
1767 $ perl_d_mktime="undef"
1768 $ perl_d_strcoll="undef"
1769 $ perl_d_strxfrm="undef"
1770 $ perl_d_wctomb="undef"
1771 $ perl_i_locale="undef"
1772 $ perl_d_locconv="undef"
1773 $ perl_d_setlocale="undef"
1777 $ if ("''Using_Vax_C'".EQS."Yes")
1779 $ perl_vms_cc_type="vaxc"
1784 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
1786 $ perl_d_vms_do_sockets="define"
1787 $ perl_d_htonl="define"
1788 $ perl_d_socket="define"
1789 $ perl_d_select="define"
1790 $ perl_netdb_host_type="char *"
1791 $ perl_netdb_hlen_type="int"
1792 $ perl_netdb_name_type="char *"
1793 $ perl_netdb_net_type="long"
1794 $ perl_d_gethbyaddr="define"
1795 $ perl_d_gethbyname="define"
1796 $ perl_d_getnbyaddr="define"
1797 $ perl_d_getnbyname="define"
1798 $ perl_d_getpbynumber="define"
1799 $ perl_d_getpbyname="define"
1800 $ perl_d_getsbyport="define"
1801 $ perl_d_getsbyname="define"
1802 $ perl_d_gethostprotos="define"
1803 $ perl_d_getnetprotos="define"
1804 $ perl_d_getprotoprotos="define"
1805 $ perl_d_getservprotos="define"
1807 $ perl_d_vms_do_sockets="undef"
1808 $ perl_d_htonl="undef"
1809 $ perl_d_socket="undef"
1810 $ perl_d_select="undef"
1811 $ perl_netdb_host_type="char *"
1812 $ perl_netdb_hlen_type="int"
1813 $ perl_netdb_name_type="char *"
1814 $ perl_netdb_net_type="long"
1815 $ perl_d_gethbyaddr="undef"
1816 $ perl_d_gethbyname="undef"
1817 $ perl_d_getnbyaddr="undef"
1818 $ perl_d_getnbyname="undef"
1819 $ perl_d_getpbynumber="undef"
1820 $ perl_d_getpbyname="undef"
1821 $ perl_d_getsbyport="undef"
1822 $ perl_d_getsbyname="undef"
1823 $ perl_d_gethostprotos="undef"
1824 $ perl_d_getnetprotos="undef"
1825 $ perl_d_getprotoprotos="undef"
1826 $ perl_d_getservprotos="undef"
1829 $ if ("''use_threads'".eqs."T")
1831 $ perl_usethreads="define"
1832 $ perl_d_pthreads_created_joinable="define"
1833 $ if ("''VMS_VER'".ges."7.0")
1835 $ perl_d_oldpthreads="undef"
1837 $ perl_d_oldpthreads="define"
1840 $ perl_d_oldpthreads="undef"
1841 $ perl_usethreads="undef"
1843 $ perl_d_pthreads_created_joinable="undef"
1847 $! Finally the composite ones. All config
1848 $ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
1849 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
1850 $ perl_myhostname="''myhostname'"
1851 $ perl_mydomain="''mydomain'"
1852 $ perl_perladmin="''perladmin'"
1853 $ perl_cf_email="''cf_email'"
1854 $ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
1855 $ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
1856 $ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
1857 $ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
1858 $ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
1859 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
1860 $ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
1861 $ if "''Using_Dec_C'" .eqs. "Yes"
1863 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
1865 $ IF "''Using_Vax_C'" .eqs. "Yes"
1867 $ perl_ccflags="/Include=[]/Obj=''perl_obj_ext'/NoList''cc_flags'"
1871 $! Finally clean off any leading zeros from the patchlevel or subversion
1872 $ perl_patchlevel = perl_patchlevel + 0
1873 $ perl_subversion = perl_subversion + 0
1875 $! Okay, we've got everything configured. Now go write out a config.sh.
1876 $ open/write CONFIGSH [-]config.sh
1877 $ WC := "write CONFIGSH"
1879 $ WC "# This file generated by Configure.COM on a VMS system."
1880 $ WC "# Time: " + perl_cf_time
1882 $ WC "package='" + perl_package + "'"
1883 $ WC "CONFIG='" + perl_config + "'"
1884 $ WC "cf_time='" + perl_cf_time + "'"
1885 $ WC "cf_by='" + perl_cf_by+ "'"
1886 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
1887 $ WC "ccdlflags='" + perl_ccdlflags + "'"
1888 $ WC "cccdlflags='" + perl_cccdlflags + "'"
1889 $ WC "mab='" + perl_mab + "'"
1890 $ WC "libpth='" + perl_libpth + "'"
1891 $ WC "ld='" + perl_ld + "'"
1892 $ WC "lddlflags='" + perl_lddlflags + "'"
1893 $ WC "ranlib='" + perl_ranlib + "'"
1894 $ WC "ar='" + perl_ar + "'"
1895 $ WC "eunicefix='" + perl_eunicefix + "'"
1896 $ WC "hint='" + perl_hint +"'"
1897 $ WC "hintfile='" + perl_hintfile + "'"
1898 $ WC "shrplib='" + perl_shrplib + "'"
1899 $ WC "usemymalloc='" + perl_usemymalloc + "'"
1900 $ WC "usevfork='" + perl_usevfork + "'"
1901 $ WC "useposix='false'"
1902 $ WC "spitshell='write sys$output '"
1903 $ WC "dlsrc='dl_vms.c'"
1904 $ WC "binexp='" + perl_binexp + "'"
1905 $ WC "man1ext='" + perl_man1ext + "'"
1906 $ WC "man3ext='" + perl_man3ext + "'"
1907 $ WC "arch='" + perl_arch + "'"
1908 $ WC "archname='" + perl_archname + "'"
1909 $ WC "osvers='" + perl_osvers + "'"
1910 $ WC "prefix='" + perl_prefix + "'"
1911 $ WC "builddir='" + perl_builddir + "'"
1912 $ WC "installbin='" + perl_installbin + "'"
1913 $ WC "installscript='" + perl_installscript + "'"
1914 $ WC "installman1dir='" + perl_installman1dir + "'"
1915 $ WC "installman3dir='" + perl_installman3dir + "'"
1916 $ WC "installprivlib='" + perl_installprivlib + "'"
1917 $ WC "installarchlib='" + perl_installarchlib + "'"
1918 $ WC "installsitelib='" + perl_installsitelib + "'"
1919 $ WC "installsitearch='" + perl_installsitearch + "'"
1920 $ WC "path_sep='" + perl_path_sep + "'"
1921 $ WC "startperl='$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ perl_ + ++$status != 0 and $exit = $status = undef;'"
1922 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
1923 $ WC "d_attribut='" + perl_d_attribut + "'"
1924 $ WC "cc='" + perl_cc + "'"
1925 $ WC "ccflags='" + perl_ccflags + "'"
1926 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
1927 $ WC "d_socket='" + perl_d_socket + "'"
1928 $ WC "d_sockpair='" + perl_d_sockpair + "'"
1929 $ WC "d_gethent='" + perl_d_gethent + "'"
1930 $ WC "d_getsent='" + perl_d_getsent + "'"
1931 $ WC "d_select='" + perl_d_select + "'"
1932 $ WC "i_niin='" + perl_i_niin + "'"
1933 $ WC "i_neterrno='" + perl_i_neterrno + "'"
1934 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
1935 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
1936 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
1937 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
1938 $ WC "d_locconv='" + perl_d_locconv + "'"
1939 $ WC "d_setlocale='" + perl_d_setlocale + "'"
1940 $ WC "i_locale='" + perl_i_locale + "'"
1941 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
1942 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
1943 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
1944 $ WC "d_wctomb='" + perl_d_wctomb + "'"
1945 $ WC "d_mblen='" + perl_d_mblen + "'"
1946 $ WC "d_mktime='" + perl_d_mktime + "'"
1947 $ WC "d_strcoll='" + perl_d_strcoll + "'"
1948 $ WC "d_strxfrm='" + perl_d_strxfrm + "'"
1949 $ WC "ldflags='" + perl_ldflags + "'"
1950 $ WC "dlobj='" + perl_dlobj + "'"
1951 $ WC "obj_ext='" + perl_obj_ext + "'"
1952 $ WC "so='" + perl_so + "'"
1953 $ WC "dlext='" + perl_dlext + "'"
1954 $ WC "exe_ext='" + perl_exe_ext + "'"
1955 $ WC "lib_ext='" + perl_lib_ext + "'"
1956 $ WC "myhostname='" + perl_myhostname + "'"
1957 $ WC "mydomain='" + perl_mydomain + "'"
1958 $ WC "perladmin='" + perl_perladmin + "'"
1959 $ WC "cf_email='" + perl_cf_email + "'"
1960 $ WC "myuname='" + perl_myuname + "'"
1961 $ WC "alignbytes='" + perl_alignbytes + "'"
1962 $ WC "osname='" + perl_osname + "'"
1963 $ WC "d_archlib='" + perl_d_archlib + "'"
1964 $ WC "archlibexp='" + perl_archlibexp + "'"
1965 $ WC "archlib='" + perl_archlib + "'"
1966 $ WC "archname='" + perl_archname + "'"
1967 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
1968 $ WC "cppstdin='" + perl_cppstdin + "'"
1969 $ WC "cppminus='" + perl_cppminus + "'"
1970 $ WC "d_bcmp='" + perl_d_bcmp + "'"
1971 $ WC "d_bcopy='" + perl_d_bcopy + "'"
1972 $ WC "d_bzero='" + perl_d_bzero + "'"
1973 $ WC "d_castneg='" + perl_d_castneg + "'"
1974 $ WC "castflags='" + perl_castflags + "'"
1975 $ WC "d_chsize='" + perl_d_chsize + "'"
1976 $ WC "d_const='" + perl_d_const + "'"
1977 $ WC "d_crypt='" + perl_d_crypt + "'"
1978 $ WC "byteorder='" + perl_byteorder + "'"
1979 $ WC "full_csh='" + perl_full_csh + "'"
1980 $ WC "d_csh='" + perl_d_csh + "'"
1981 $ WC "d_dup2='" + perl_d_dup2 + "'"
1982 $ WC "d_fchmod='" + perl_d_fchmod + "'"
1983 $ WC "d_fchown='" + perl_d_fchown + "'"
1984 $ WC "d_fcntl='" + perl_d_fcntl + "'"
1985 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
1986 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
1987 $ WC "d_flock='" + perl_d_flock + "'"
1988 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
1989 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
1990 $ WC "d_getgrps='" + perl_d_getgrps + "'"
1991 $ WC "d_setgrps='" + perl_d_setgrps + "'"
1992 $ WC "d_uname='" + perl_d_uname + "'"
1993 $ WC "d_getprior='" + perl_d_getprior + "'"
1994 $ WC "d_killpg='" + perl_d_killpg + "'"
1995 $ WC "d_link='" + perl_d_link + "'"
1996 $ WC "d_lstat='" + perl_d_lstat + "'"
1997 $ WC "d_lockf='" + perl_d_lockf + "'"
1998 $ WC "d_memcmp='" + perl_d_memcmp + "'"
1999 $ WC "d_memcpy='" + perl_d_memcpy + "'"
2000 $ WC "d_memmove='" + perl_d_memmove + "'"
2001 $ WC "d_memset='" + perl_d_memset + "'"
2002 $ WC "d_mkdir='" + perl_d_mkdir + "'"
2003 $ WC "d_msg='" + perl_d_msg + "'"
2004 $ WC "d_open3='" + perl_d_open3 + "'"
2005 $ WC "d_poll='" + perl_d_poll + "'"
2006 $ WC "d_readdir='" + perl_d_readdir + "'"
2007 $ WC "d_seekdir='" + perl_d_seekdir + "'"
2008 $ WC "d_telldir='" + perl_d_telldir + "'"
2009 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
2010 $ WC "d_rename='" + perl_d_rename + "'"
2011 $ WC "d_rmdir='" + perl_d_rmdir + "'"
2012 $ WC "d_sem='" + perl_d_sem + "'"
2013 $ WC "d_setegid='" + perl_d_setegid + "'"
2014 $ WC "d_seteuid='" + perl_d_seteuid + "'"
2015 $ WC "d_setprior='" + perl_d_setprior + "'"
2016 $ WC "d_setregid='" + perl_d_setregid + "'"
2017 $ WC "d_setresgid='" + perl_d_setresgid + "'"
2018 $ WC "d_setreuid='" + perl_d_setreuid + "'"
2019 $ WC "d_setresuid='" + perl_d_setresuid + "'"
2020 $ WC "d_setrgid='" + perl_d_setrgid + "'"
2021 $ WC "d_setruid='" + perl_d_setruid + "'"
2022 $ WC "d_setsid='" + perl_d_setsid + "'"
2023 $ WC "d_shm='" + perl_d_shm + "'"
2024 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
2025 $ WC "d_sigaction='" + perl_d_sigaction + "'"
2026 $ WC "d_statblks='" + perl_d_statblks + "'"
2027 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
2028 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
2029 $ WC "stdio_base='" + perl_stdio_base + "'"
2030 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
2031 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
2032 $ WC "d_strerror='" + perl_d_strerror + "'"
2033 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
2034 $ WC "d_strerrm='" + perl_d_strerrm + "'"
2035 $ WC "d_symlink='" + perl_d_symlink + "'"
2036 $ WC "d_syscall='" + perl_d_syscall + "'"
2037 $ WC "d_system='" + perl_d_system + "'"
2038 $ WC "timetype='" + perl_timetype + "'"
2039 $ WC "d_truncate='" + perl_d_truncate + "'"
2040 $ WC "d_vfork='" + perl_d_vfork + "'"
2041 $ WC "signal_t='" + perl_signal_t + "'"
2042 $ WC "d_volatile='" + perl_d_volatile + "'"
2043 $ WC "d_vprintf='" + perl_d_vprintf + "'"
2044 $ WC "d_charvspr='" + perl_d_charvspr + "'"
2045 $ WC "d_wait4='" + perl_d_wait4 + "'"
2046 $ WC "d_waitpid='" + perl_d_waitpid + "'"
2047 $ WC "i_dirent='" + perl_i_dirent + "'"
2048 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
2049 $ WC "direntrytype='" + perl_direntrytype + "'"
2050 $ WC "i_fcntl='" + perl_i_fcntl + "'"
2051 $ WC "i_grp='" + perl_i_grp + "'"
2052 $ WC "i_limits='" + perl_i_limits + "'"
2053 $ WC "i_memory='" + perl_i_memory + "'"
2054 $ WC "i_ndbm='" + perl_i_ndbm + "'"
2055 $ WC "i_stdarg='" + perl_i_stdarg + "'"
2056 $ WC "i_pwd='" + perl_i_pwd + "'"
2057 $ WC "d_pwquota='" + perl_d_pwquota + "'"
2058 $ WC "d_pwage='" + perl_d_pwage + "'"
2059 $ WC "d_pwchange='" + perl_d_pwchange + "'"
2060 $ WC "d_pwclass='" + perl_d_pwclass + "'"
2061 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
2062 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
2063 $ WC "i_stddef='" + perl_i_stddef + "'"
2064 $ WC "i_stdlib='" + perl_i_stdlib + "'"
2065 $ WC "i_string='" + perl_i_string + "'"
2066 $ WC "i_sysdir='" + perl_i_sysdir + "'"
2067 $ WC "i_sysfile='" + perl_i_sysfile + "'"
2068 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
2069 $ WC "i_sysndir='" + perl_i_sysndir + "'"
2070 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
2071 $ WC "i_sysselct='" + perl_i_sysselct + "'"
2072 $ WC "i_dbm='" + perl_i_dbm + "'"
2073 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
2074 $ WC "i_sfio='" + perl_i_sfio + "'"
2075 $ WC "i_sysstat='" + perl_i_sysstat + "'"
2076 $ WC "i_systimes='" + perl_i_systimes + "'"
2077 $ WC "i_systypes='" + perl_i_systypes + "'"
2078 $ WC "i_sysun='" + perl_i_sysun + "'"
2079 $ WC "i_syswait='" + perl_i_syswait + "'"
2080 $ WC "i_termio='" + perl_i_termio + "'"
2081 $ WC "i_sgtty='" + perl_i_sgtty + "'"
2082 $ WC "i_termios='" + perl_i_termios + "'"
2083 $ WC "i_time='" + perl_i_time + "'"
2084 $ WC "i_systime='" + perl_i_systime + "'"
2085 $ WC "i_systimek='" + perl_i_systimek + "'"
2086 $ WC "i_unistd='" + perl_i_unistd + "'"
2087 $ WC "i_utime='" + perl_i_utime + "'"
2088 $ WC "i_varargs='" + perl_i_varargs + "'"
2089 $ WC "i_vfork='" + perl_i_vfork + "'"
2090 $ WC "prototype='" + perl_prototype + "'"
2091 $ WC "randbits='" + perl_randbits +"'"
2092 $ WC "selecttype='" + perl_selecttype + "'"
2093 $ WC "stdchar='" + perl_stdchar + "'"
2094 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
2095 $ WC "full_sed='" + perl_full_sed + "'"
2096 $ WC "bin='" + perl_bin + "'"
2097 $ WC "binexp='" + perl_binexp + "'"
2098 $ WC "d_alarm='" + perl_d_alarm + "'"
2099 $ WC "d_casti32='" + perl_d_casti32 + "'"
2100 $ WC "d_chown='" + perl_d_chown + "'"
2101 $ WC "d_chroot='" + perl_d_chroot + "'"
2102 $ WC "d_cuserid='" + perl_d_cuserid + "'"
2103 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
2104 $ WC "d_difftime='" + perl_d_difftime + "'"
2105 $ WC "d_fork='" + perl_d_fork + "'"
2106 $ WC "d_getlogin='" + perl_d_getlogin + "'"
2107 $ WC "d_getppid='" + perl_d_getppid + "'"
2108 $ WC "d_htonl='" + perl_d_htonl + "'"
2109 $ WC "d_nice='" + perl_d_nice + "'"
2110 $ WC "d_pause='" + perl_d_pause + "'"
2111 $ WC "d_pipe='" + perl_d_pipe + "'"
2112 $ WC "d_readlink='" + perl_d_readlink + "'"
2113 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
2114 $ WC "d_strchr='" + perl_d_strchr + "'"
2115 $ WC "d_index='" + perl_d_index + "'"
2116 $ WC "d_strtod='" + perl_d_strtod + "'"
2117 $ WC "d_strtol='" + perl_d_strtol + "'"
2118 $ WC "d_strtoul='" + perl_d_strtoul + "'"
2119 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
2120 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
2121 $ WC "d_times='" + perl_d_times + "'"
2122 $ WC "d_tzname='" + perl_d_tzname + "'"
2123 $ WC "d_umask='" + perl_d_umask + "'"
2124 $ WC "fpostype='" + perl_fpostype + "'"
2125 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
2126 $ WC "i_float='" + perl_i_float + "'"
2127 $ WC "i_math='" + perl_i_math + "'"
2128 $ WC "intsize='" + perl_intsize + "'"
2129 $ WC "longsize='" + perl_longsize + "'"
2130 $ WC "shortsize='" + perl_shortsize + "'"
2131 $ WC "lseektype='" + perl_lseektype + "'"
2132 $ WC "i_values='" + perl_i_values + "'"
2133 $ WC "malloctype='" + perl_malloctype + "'"
2134 $ WC "freetype='" + perl_freetype + "'"
2135 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
2136 $ WC "sh='" + perl_sh + "'"
2137 $ WC "sig_name='" + perl_sig_name + "'"
2138 $ WC "sig_num='" + perl_sig_num + "'"
2139 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
2141 $ WC "modetype='" + perl_modetype + "'"
2142 $ WC "ssizetype='" + perl_ssizetype + "'"
2143 $ WC "o_nonblock='" + perl_o_nonblock + "'"
2144 $ WC "eagain='" + perl_eagain + "'"
2145 $ WC "rd_nodata='" + perl_rd_nodata + "'"
2146 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
2147 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
2148 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
2149 $ WC "oldarchlib='" + perl_oldarchlib + "'"
2150 $ WC "privlibexp='" + perl_privlibexp + "'"
2151 $ WC "privlib='" + perl_privlib + "'"
2152 $ WC "sitelibexp='" + perl_sitelibexp + "'"
2153 $ WC "sitelib='" + perl_sitelib + "'"
2154 $ WC "sitearchexp='" + perl_sitearchexp + "'"
2155 $ WC "sitearch='" + perl_sitearch + "'"
2156 $ WC "sizetype='" + perl_sizetype + "'"
2157 $ WC "i_sysparam='" + perl_i_sysparam + "'"
2158 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
2159 $ WC "d_dlerror='" + perl_d_dlerror + "'"
2160 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
2161 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
2162 $ WC "d_dosuid='" + perl_d_dosuid + "'"
2163 $ WC "d_inetaton='" + perl_d_inetaton + "'"
2164 $ WC "d_isascii='" + perl_d_isascii + "'"
2165 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
2166 $ WC "d_pathconf='" + perl_d_pathconf + "'"
2167 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
2168 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
2169 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
2170 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
2171 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
2172 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
2173 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
2174 $ WC "d_setpgid='" + perl_d_setpgid + "'"
2175 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
2176 $ WC "d_sysconf='" + perl_d_sysconf + "'"
2177 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
2178 $ WC "d_getpgid='" + perl_d_getpgid + "'"
2179 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
2180 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
2181 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
2182 $ WC "d_sfio='" + perl_d_sfio + "'"
2183 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
2184 $ WC "usedl='" + perl_usedl + "'"
2185 $ WC "startperl='" + perl_startperl + "'"
2186 $ WC "db_hashtype='" + perl_db_hashtype + "'"
2187 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
2188 $ WC "useperlio='" + perl_useperlio + "'"
2189 $ WC "defvoidused='" + perl_defvoidused + "'"
2190 $ WC "voidflags='" + perl_voidflags + "'"
2191 $ WC "d_eunice='" + perl_d_eunice + "'"
2192 $ WC "libs='" + perl_libs + "'"
2193 $ WC "libc='" + perl_libc + "'"
2194 $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
2196 $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
2198 $ WC "pager='" + perl_pager + "'"
2199 $ WC "uidtype='" + perl_uidtype + "'"
2200 $ WC "gidtype='" + perl_gidtype + "'"
2201 $ WC "usethreads='" + perl_usethreads + "'"
2202 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
2203 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
2204 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
2205 $ WC "i_netdb='" + perl_i_netdb + "'"
2206 $ WC "pidtype='" + perl_pidtype + "'"
2207 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
2208 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
2209 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
2210 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
2211 $ WC "baserev='" + perl_baserev + "'"
2212 $ WC "doublesize='" + perl_doublesize + "'"
2213 $ WC "ptrsize='" + perl_ptrsize + "'"
2214 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
2215 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
2216 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
2217 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
2218 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
2219 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
2220 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
2221 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
2222 $ WC "d_sethent='" + perl_d_sethent + "'"
2223 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
2224 $ WC "d_longdbl='" + perl_d_longdbl + "'"
2225 $ WC "longdblsize='" + perl_longdblsize + "'"
2226 $ WC "d_longlong='" + perl_d_longlong + "'"
2227 $ WC "longlongsize='" + perl_longlongsize + "'"
2228 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
2229 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
2230 $ WC "d_endhent='" + perl_d_endhent + "'"
2231 $ WC "d_endnent='" + perl_d_endsent + "'"
2232 $ WC "d_endpent='" + perl_d_endpent + "'"
2233 $ WC "d_endsent='" + perl_d_endsent + "'"
2234 $ WC "d_gethent='" + perl_d_gethent + "'"
2235 $ WC "d_getnent='" + perl_d_getsent + "'"
2236 $ WC "d_getpent='" + perl_d_getpent + "'"
2237 $ WC "d_getsent='" + perl_d_getsent + "'"
2238 $ WC "d_sethent='" + perl_d_sethent + "'"
2239 $ WC "d_setnent='" + perl_d_setsent + "'"
2240 $ WC "d_setpent='" + perl_d_setpent + "'"
2241 $ WC "d_setsent='" + perl_d_setsent + "'"
2242 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
2243 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
2244 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
2245 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
2246 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
2247 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
2248 $ WC "d_lchown='" + perl_d_lchown + "'"
2249 $ WC "d_union_semun='" + perl_d_union_semun + "'"
2250 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
2251 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
2252 $ WC "extensions='" + perl_extensions + "'"
2253 $ WC "d_mknod='" + perl_d_mknod + "'"
2254 $ WC "devtype='" + perl_devtype + "'"
2258 $! Okay, we've gotten here. Build munchconfig and run it
2259 $ 'Perl_CC' munchconfig
2260 $ If (Needs_Opt.eqs."Yes")
2262 $ open/write OPTCHAN []munchconfig.opt
2263 $ IF ("''using_gnu_c'".eqs."Yes")
2265 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
2267 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
2269 $ link munchconfig,munchconfig/opt
2270 $ delete munchconfig.opt;*
2274 $ WRITE_RESULT "Writing config.h"
2276 $ ! we need an fdl file
2277 $ CREATE [-]CONFIG.FDL
2280 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
2281 $ ! First spit out the header info with the local defines (to get
2282 $ ! around the 255 character command line limit)
2283 $ OPEN/APPEND CONFIG [-]config.local
2284 $ if use_debugging_perl.eqs."Y"
2286 $ WRITE CONFIG "#define DEBUGGING"
2288 $ if preload_env.eqs."Y"
2290 $ WRITE CONFIG "#define PRIME_ENV_AT_STARTUP"
2292 $ if use_two_pot_malloc.eqs."Y"
2294 $ WRITE CONFIG "#define TWO_POT_OPTIMIZE"
2296 $ if mymalloc.eqs."Y"
2298 $ WRITE CONFIG "#define EMBEDMYMALLOC"
2300 $ if use_pack_malloc.eqs."Y"
2302 $ WRITE CONFIG "#define PACK_MALLOC"
2304 $ if use_debugmalloc.eqs."Y"
2306 $ write config "#define DEBUGGING_MSTATS"
2308 $ if "''Using_Gnu_C'" .eqs."Yes"
2310 $ WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
2312 $ if "''Has_Dec_C_Sockets'".eqs."T"
2314 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
2315 $ WRITE CONFIG "#define DECCRTL_SOCKETS"
2317 $ if "''Has_Socketshr'".eqs."T"
2319 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
2323 $! Now build the normal config.h
2324 $ define/user sys$output [-]config.main
2325 $ mcr []munchconfig [-]config.sh [-]config_h.sh
2326 $ ! Concatenate them together
2327 $ copy [-]config.local,[-]config.main [-]config.h
2329 $ DELETE/NOLOG [-]CONFIG.MAIN;*
2330 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
2331 $ DELETE/NOLOG [-]CONFIG.FDL;*
2333 $ if "''Using_Dec_C'" .eqs."Yes"
2335 $ DECC_REPLACE = "DECC=decc=1"
2337 $ DECC_REPLACE = "DECC="
2339 $ if "''Using_Gnu_C'" .eqs."Yes"
2341 $ GNUC_REPLACE = "GNUC=gnuc=1"
2343 $ GNUC_REPLACE = "GNUC="
2345 $ if "''Has_Dec_C_Sockets'" .eqs."T"
2347 $ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
2349 $ if "''Has_Socketshr'" .eqs."T"
2351 $ SOCKET_REPLACE = "SOCKET=SOCKETSHRSOCKETS=1"
2353 $ SOCKET_REPLACE = "SOCKET="
2356 $ IF ("''Use_Threads'".eqs."T")
2358 $ if ("''VMS_VER'".LES."6.2")
2360 $ THREAD_REPLACE = "THREAD=OLDTHREADED=1"
2362 $ THREAD_REPLACE = "THREAD=THREADED=1"
2365 $ THREAD_REPLACE = "THREAD="
2367 $ if mymalloc.eqs."Y"
2369 $ MALLOC_REPLACE = "MALLOC=MALLOC=1"
2371 $ MALLOC_REPLACE = "MALLOC="
2373 $ if f$getsyi("HW_MODEL").ge.1024
2375 $ ARCH_TYPE = "ARCH-TYPE=__AXP__"
2377 $ ARCH_TYPE = "ARCH-TYPE=__VAX__"
2379 $ WRITE_RESULT "Writing DESCRIP.MMS"
2381 $ define/user sys$output [-]descrip.mms
2382 $ 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'"
2385 $! Clean up after ourselves
2386 $ delete/nolog munchconfig.exe;*
2387 $ delete/nolog munchconfig.obj;*