1 $! SUBCONFIGURE.COM - build a config.sh for VMS Perl.
3 $! Note for folks from other platforms changing things in here:
4 $! Fancy changes (based on compiler capabilities or VMS version or
5 $! whatever) are tricky, so go ahead and punt on those.
7 $! Simple changes, though (say, always setting something to 1, or undef,
8 $! or something like that) are straightforward. Adding a new item for the
9 $! ultimately created config.sh requires adding two lines to this file.
11 $! First, a line in the format:
13 $! after the line tagged ##ADD NEW CONSTANTS HERE##. Replace foo with the
14 $! variable name as it appears in config.sh.
16 $! Second, add a line in the format:
17 $! $ WC "foo='" + perl_foo + "'"
18 $! after the line tagged ##WRITE NEW CONSTANTS HERE##. Careful of the
19 $! quoting, as it can be tricky.
21 $! This .COM file expects to be called by configure.com, and thus expects
22 $! a few symbols in the environment. Notably:
24 $! One of: Using_Dec_C, Using_Vax_C, Using_Gnu_C set to "YES"
25 $! Dec_C_Version set to the Dec C version (defaults to 0 if not specified)
26 $! Has_Socketshr set to "T" if using socketshr
27 $! Has_Dec_C_Sockets set to "T" if using Dec C sockets
28 $! Use_Threads set to "T" if they're using threads
29 $! C_Compiler_Invoke is the command needed to invoke the C compiler
31 $! Set Dec_C_Version to something
32 $ WRITE_RESULT := "WRITE SYS$OUTPUT ""%CONFIG-I-RESULT "" + "
33 $ Dec_C_Version := "''Dec_C_Version'"
34 $ Dec_C_Version = Dec_C_Version + 0
35 $ Vms_Ver := "''f$extract(1,3, f$getsyi(""version""))'"
36 $ perl_extensions := "''extensions'"
37 $ if f$length(Mcc) .eq. 0 then Mcc := "cc"
38 $ MCC = f$edit(mcc, "UPCASE")
41 $ C_Compiler_Replace := "CC="
43 $ C_Compiler_Replace := "CC=CC=''Mcc'"
45 $ if "''Using_Dec_C'" .eqs. "Yes"
47 $ Checkcc := "''Mcc'/prefix=all"
52 $! Some constant defaults.
54 $ hwname = f$getsyi("HW_NAME")
56 $ if "''myname'" .eqs. "" THEN myname = f$trnlnm("SYS$NODE")
58 $! ##ADD NEW CONSTANTS HERE##
59 $ perl_package="''package'"
60 $ perl_baserev = "''baserev'"
63 $ perl_i_netdb="undef"
64 $ perl_d_gnulibc="undef"
65 $ perl_cf_by="unknown"
69 $ perl_libpth="/sys$share /sys$library"
71 $ perl_lddlflags="/Share"
76 $ perl_i_arpainet="undef"
77 $ perl_d_grpasswd="undef"
78 $ perl_d_setgrent="undef"
79 $ perl_d_getgrent="define"
80 $ perl_d_endgrent="define"
81 $ perl_d_pwpasswd="define"
82 $ perl_d_setpwent="define"
83 $ perl_d_getpwent="define"
84 $ perl_d_endpwent="define"
87 $ perl_shrplib="define"
88 $ perl_usemymalloc=mymalloc
89 $ perl_usevfork="true"
90 $ perl_useposix="false"
91 $ perl_spitshell="write sys$output "
92 $ perl_dlsrc="dl_vms.c"
95 $ perl_prefix="perl_root"
96 $ perl_binexp="''perl_prefix':[000000]"
97 $ perl_builddir="''perl_prefix':[000000]"
98 $ perl_installbin="''perl_prefix':[000000]"
99 $ perl_installscript="''perl_prefix':[000000]"
100 $ perl_installman1dir="''perl_prefix':[man.man1]"
101 $ perl_installman3dir="''perl_prefix':[man.man3]"
102 $ perl_installprivlib="''perl_prefix':[lib]"
103 $ perl_installsitelib="''perl_prefix':[lib.site_perl]"
106 $ perl_d_sockpair="undef"
107 $ perl_i_neterrno="define"
108 $ perl_ldflags="/NoTrace/NoMap"
109 $ perl_d_lchown="undef"
110 $ perl_d_mknod="undef"
111 $ perl_d_union_semun="undef"
112 $ perl_d_semctl_semun="undef"
113 $ perl_d_semctl_semid_ds="undef"
114 $ IF (sharedperl.EQS."Y")
116 $ perl_obj_ext=".abj"
119 $ perl_exe_ext=".axe"
120 $ perl_lib_ext=".alb"
122 $ perl_obj_ext=".obj"
125 $ perl_exe_ext=".exe"
126 $ perl_lib_ext=".olb"
128 $ perl_dlobj="dl_vms''perl_obj_ext'"
130 $ perl_d_archlib="define"
131 $ perl_d_bincompat3="undef"
132 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
134 $ perl_d_castneg="define"
136 $ perl_d_chsize="undef"
137 $ perl_d_const="define"
138 $ perl_d_crypt="define"
139 $ perl_byteorder="1234"
142 $ perl_d_dup2="define"
143 $ perl_d_fchmod="undef"
144 $ perl_d_fchown="undef"
145 $ perl_d_fcntl="undef"
146 $ perl_d_fgetpos="define"
147 $ perl_d_flexfnam="define"
148 $ perl_d_flock="undef"
149 $ perl_d_fsetpos="define"
150 $ perl_d_getgrps="undef"
151 $ perl_d_setgrps="undef"
152 $ perl_d_getprior="undef"
153 $ perl_d_killpg="undef"
154 $ perl_d_link="undef"
155 $ perl_d_lstat="undef"
156 $ perl_d_lockf="undef"
157 $ perl_d_memcmp="define"
158 $ perl_d_memcpy="define"
159 $ perl_d_memmove="define"
160 $ perl_d_memset="define"
161 $ perl_d_mkdir="define"
163 $ perl_d_open3="define"
164 $ perl_d_poll="undef"
165 $ perl_d_readdir="define"
166 $ perl_d_seekdir="define"
167 $ perl_d_telldir="define"
168 $ perl_d_rewinddir="define"
169 $ perl_d_rename="define"
170 $ perl_d_rmdir="define"
172 $ perl_d_setegid="undef"
173 $ perl_d_seteuid="undef"
174 $ perl_d_setprior="undef"
175 $ perl_d_setregid="undef"
176 $ perl_d_setresgid="undef"
177 $ perl_d_setreuid="undef"
178 $ perl_d_setresuid="undef"
179 $ perl_d_setrgid="undef"
180 $ perl_d_setruid="undef"
181 $ perl_d_setsid="undef"
183 $ perl_d_shmatprototype="undef"
184 $ perl_d_statblks="undef"
185 $ perl_stdio_ptr="((*fp)->_ptr)"
186 $ perl_stdio_cnt="((*fp)->_cnt)"
187 $ perl_stdio_base="((*fp)->_base)"
188 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
189 $ perl_d_strctcpy="define"
190 $ perl_d_strerror="define"
191 $ perl_d_syserrlst="undef"
192 $ perl_d_strerrm="strerror((e),vaxc$errno)"
193 $ perl_d_symlink="undef"
194 $ perl_d_syscall="undef"
195 $ perl_d_system="define"
196 $ perl_timetype="time_t"
197 $ perl_d_vfork="define"
198 $ perl_signal_t="void"
199 $ perl_d_volatile="define"
200 $ perl_d_vprintf="define"
201 $ perl_d_charvspr="undef"
202 $ perl_d_waitpid="define"
203 $ perl_i_dirent="undef"
204 $ perl_d_dirnamlen="define"
205 $ perl_direntrytype="struct dirent"
206 $ perl_i_fcntl="undef"
208 $ perl_i_limits="define"
209 $ perl_i_memory="undef"
210 $ perl_i_ndbm="undef"
211 $ perl_i_stdarg="define"
213 $ perl_d_pwquota="undef"
214 $ perl_d_pwage="undef"
215 $ perl_d_pwchange="undef"
216 $ perl_d_pwclass="undef"
217 $ perl_d_pwexpire="undef"
218 $ perl_d_pwcomment="define"
219 $ perl_i_stddef="define"
220 $ perl_i_stdlib="define"
221 $ perl_i_string="define"
222 $ perl_i_sysdir="undef"
223 $ perl_i_sysfile="undef"
224 $ perl_i_sysioctl="undef"
225 $ perl_i_sysndir="undef"
226 $ perl_i_sysresrc="undef"
227 $ perl_i_sysselct="undef"
229 $ perl_i_rpcsvcdbm="undef"
230 $ perl_i_sfio="undef"
231 $ perl_i_sysstat="define"
232 $ perl_i_systimes="undef"
233 $ perl_i_systypes="define"
234 $ perl_i_sysun="undef"
235 $ perl_i_syswait="undef"
236 $ perl_i_termio="undef"
237 $ perl_i_sgtty="undef"
238 $ perl_i_termios="undef"
239 $ perl_i_time="define"
240 $ perl_i_systime="undef"
241 $ perl_i_systimek="undef"
242 $! perl_i_unistd="undef"
243 $ perl_i_utime="undef"
244 $ perl_i_varargs="undef"
245 $ perl_i_vfork="undef"
246 $ perl_prototype="define"
248 $ perl_stdchar="char"
249 $ perl_d_unlink_all_versions="undef"
250 $ perl_full_sed="_NLA0:"
251 $ perl_bin="/''perl_prefix'/000000"
252 $ perl_binexp="''perl_prefix':[000000]"
253 $ perl_d_alarm="define"
254 $ perl_d_casti32="define"
255 $ perl_d_chown="define"
256 $ perl_d_chroot="undef"
257 $ perl_d_cuserid="define"
258 $ perl_d_dbl_dig="define"
259 $ perl_d_difftime="define"
260 $ perl_d_fork="undef"
261 $ perl_d_getlogin="define"
262 $ perl_d_getppid="undef"
263 $ perl_d_nice="define"
264 $ perl_d_pause="define"
265 $ perl_d_pipe="define"
266 $ perl_d_readlink="undef"
267 $ perl_d_setlinebuf="undef"
268 $ perl_d_strchr="define"
269 $ perl_d_strtod="define"
270 $ perl_d_strtol="define"
271 $ perl_d_strtoul="define"
272 $ perl_d_tcgetpgrp="undef"
273 $ perl_d_tcsetpgrp="undef"
274 $ perl_d_times="define"
275 $ perl_d_tzname="undef"
276 $ perl_d_umask="define"
277 $ perl_fpostype="fpos_t"
278 $ perl_i_dlfcn="undef"
279 $ perl_i_float="define"
280 $ perl_i_math="define"
281 $ perl_lseektype="int"
282 $ perl_i_values="undef"
283 $ perl_malloctype="void *"
284 $ perl_freetype="void"
285 $ if "''mymalloc'".eqs."Y"
287 $ perl_d_mymalloc="define"
289 $ perl_d_mymalloc="undef"
292 $ perl_modetype="unsigned int"
293 $ perl_ssizetype="int"
297 $ perl_d_eofnblk="undef"
298 $ perl_d_oldarchlib="define"
299 $ perl_privlibexp="''perl_prefix':[lib]"
300 $ perl_privlib="''perl_prefix':[lib]"
301 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
302 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
303 $ perl_sizetype="size_t"
304 $ perl_i_sysparam="undef"
305 $ perl_d_void_closedir="define"
306 $ perl_d_dlerror="undef"
307 $ perl_d_dlsymun="undef"
308 $ perl_d_suidsafe="undef"
309 $ perl_d_dosuid="undef"
310 $ perl_d_inetaton="undef"
311 $ perl_d_isascii="define"
312 $ perl_d_mkfifo="undef"
313 $ perl_d_safebcpy="undef"
314 $ perl_d_safemcpy="define"
315 $ perl_d_sanemcmp="define"
316 $ perl_d_setpgrp="undef"
317 $ perl_d_bsdsetpgrp="undef"
318 $ perl_d_bsdpgrp="undef"
319 $ perl_d_setpgid="undef"
320 $ perl_d_setpgrp2="undef"
321 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
322 $ perl_d_getpgid="undef"
323 $ perl_d_getpgrp="undef"
324 $ perl_d_bsdgetpgrp="undef"
325 $ perl_d_getpgrp2="undef"
326 $ perl_d_sfio="undef"
327 $ perl_usedl="define"
328 $ perl_startperl="""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ + ++$status != 0 and $exit = $status = undef;"""
329 $ perl_db_hashtype=""
330 $ perl_db_prefixtype=""
331 $ perl_useperlio="undef"
332 $ perl_defvoidused="15"
333 $ perl_voidflags="15"
334 $ perl_d_eunice="undef"
335 $ perl_d_pwgecos="define"
336 $ IF ("''Use_Threads'".eqs."T").and.("''VMS_VER'".LES."6.2")
338 $ 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"
342 $ IF ("''Using_Dec_C'".eqs."Yes")
344 $ perl_libc="(DECCRTL)"
348 $ perl_PATCHLEVEL="''patchlevel'"
349 $ perl_SUBVERSION="''subversion'"
353 $! Now some that we build up
355 $ LocalTime = f$time()
356 $ perl_cf_time= f$extract(0, 3, f$cvtime(LocalTime,, "WEEKDAY")) + " " + -
357 f$edit(f$cvtime(LocalTime, "ABSOLUTE", "MONTH"), "LOWERCASE") + -
358 " " + f$cvtime(LocalTime,, "DAY") + " " + f$cvtime(LocalTime,, "TIME") + -
359 " " + f$cvtime(LocalTime,, "YEAR")
360 $ if f$getsyi("HW_MODEL").ge.1024
362 $ perl_arch="VMS_AXP"
363 $ perl_archname="VMS_AXP"
364 $ perl_alignbytes="8"
366 $ perl_arch="VMS_VAX"
367 $ perl_archname="VMS_VAX"
368 $ perl_alignbytes="8"
370 $ if ("''Use_Threads'".eqs."T")
372 $ perl_arch = "''perl_arch'-thread"
373 $ perl_archname = "''perl_archname'-thread"
375 $ perl_osvers=f$edit(osvers, "TRIM")
376 $ if (perl_subversion + 0).eq.0
378 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL
380 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion
383 $! Some that we need to invoke the compiler for
384 $ OS := "open/write SOURCECHAN []temp.c"
385 $ WS := "write SOURCECHAN"
386 $ CS := "close SOURCECHAN"
387 $ DS := "delete/nolog []temp.*;*"
389 $ if ("''using_vax_c'".eqs."Yes").or.("''using_gnu_c'".eqs."Yes")
391 $ open/write OPTCHAN []temp.opt
392 $ IF ("''using_gnu_c'".eqs."Yes")
394 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
396 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
401 $! Check for __STDC__
405 $ WS "#include <stdlib.h>
407 $ WS "#include <stdio.h>
410 $ WS "#ifdef __STDC__
411 $ WS "printf(""42\n"");
413 $ WS "printf(""1\n"");
418 $ DEFINE SYS$ERROR _NLA0:
419 $ DEFINE SYS$OUTPUT _NLA0:
420 $ ON ERROR THEN CONTINUE
421 $ ON WARNING THEN CONTINUE
423 $ If (Needs_Opt.eqs."Yes")
425 $ link temp.obj,temp.opt/opt
429 $ DEASSIGN SYS$OUTPUT
431 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
432 $ DEFINE SYS$ERROR TEMPOUT
433 $ DEFINE SYS$OUTPUT TEMPOUT
436 $ DEASSIGN SYS$OUTPUT
438 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
442 $ perl_cpp_stuff=line
443 $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
445 $! Check for double size
449 $ WS "#include <stdlib.h>
451 $ WS "#include <stdio.h>
455 $ WS "foo = sizeof(double);
456 $ WS "printf(""%d\n"", foo);
460 $ DEFINE SYS$ERROR _NLA0:
461 $ DEFINE SYS$OUTPUT _NLA0:
462 $ ON ERROR THEN CONTINUE
463 $ ON WARNING THEN CONTINUE
465 $ If (Needs_Opt.eqs."Yes")
467 $ link temp.obj,temp.opt/opt
472 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
473 $ DEASSIGN SYS$OUTPUT
475 $ DEFINE SYS$ERROR TEMPOUT
476 $ DEFINE SYS$OUTPUT TEMPOUT
479 $ DEASSIGN SYS$OUTPUT
481 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
485 $ perl_doublesize=line
486 $ WRITE_RESULT "doublesize is ''perl_doublesize'"
488 $! Check for long double size
492 $ WS "#include <stdlib.h>
494 $ WS "#include <stdio.h>
497 $ WS "printf(""%d\n"", sizeof(long double));
501 $ DEFINE SYS$ERROR _NLA0:
502 $ DEFINE SYS$OUTPUT _NLA0:
503 $ ON ERROR THEN CONTINUE
504 $ ON WARNING THEN CONTINUE
506 $ teststatus = f$extract(9,1,$status)
507 $ if (teststatus.nes."1")
509 $ perl_longdblsize="0"
510 $ perl_d_longdbl="undef"
512 $ ON ERROR THEN CONTINUE
513 $ ON WARNING THEN CONTINUE
514 $ If (Needs_Opt.eqs."Yes")
516 $ link temp.obj,temp.opt/opt
520 $ teststatus = f$extract(9,1,$status)
521 $ DEASSIGN SYS$OUTPUT
523 $ if (teststatus.nes."1")
525 $ perl_longdblsize="0"
526 $ perl_d_longdbl="undef"
528 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
529 $ DEFINE SYS$ERROR TEMPOUT
530 $ DEFINE SYS$OUTPUT TEMPOUT
533 $ DEASSIGN SYS$OUTPUT
535 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
539 $ perl_longdblsize=line
540 $ perl_d_longdbl="define"
543 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
544 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
546 $! Check for long long existance and size
550 $ WS "#include <stdlib.h>
552 $ WS "#include <stdio.h>
555 $ WS "printf(""%d\n"", sizeof(long long));
559 $ DEFINE SYS$ERROR _NLA0:
560 $ DEFINE SYS$OUTPUT _NLA0:
561 $ on error then continue
562 $ on warning then continue
564 $ If (Needs_Opt.eqs."Yes")
566 $ link temp.obj,temp.opt/opt
570 $ teststatus = f$extract(9,1,$status)
571 $ DEASSIGN SYS$OUTPUT
573 $ if (teststatus.nes."1")
575 $ perl_longlongsize="0"
576 $ perl_d_longlong="undef"
578 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
579 $ DEFINE SYS$ERROR TEMPOUT
580 $ DEFINE SYS$OUTPUT TEMPOUT
583 $ DEASSIGN SYS$OUTPUT
585 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
589 $ perl_longlongsize=line
590 $ perl_d_longlong="define"
592 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
593 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
595 $! Check for int size
599 $ WS "#include <stdlib.h>
601 $ WS "#include <stdio.h>
604 $ WS "printf(""%d\n"", sizeof(int));
608 $ DEFINE SYS$ERROR _NLA0:
609 $ DEFINE SYS$OUTPUT _NLA0:
610 $ on error then continue
611 $ on warning then continue
613 $ If (Needs_Opt.eqs."Yes")
615 $ link temp.obj,temp.opt/opt
619 $ If (Needs_Opt.eqs."Yes")
621 $ link temp.obj,temp.opt/opt
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
639 $ WRITE_RESULT "intsize is ''perl_intsize'"
641 $! Check for short size
645 $ WS "#include <stdlib.h>
647 $ WS "#include <stdio.h>
650 $ WS "printf(""%d\n"", sizeof(short));
654 $ DEFINE SYS$ERROR _NLA0:
655 $ DEFINE SYS$OUTPUT _NLA0:
656 $ on error then continue
657 $ on warning then continue
659 $ If (Needs_Opt.eqs."Yes")
661 $ link temp.obj,temp.opt/opt
665 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
666 $ DEASSIGN SYS$OUTPUT
668 $ DEFINE SYS$ERROR TEMPOUT
669 $ DEFINE SYS$OUTPUT TEMPOUT
672 $ DEASSIGN SYS$OUTPUT
674 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
678 $ perl_shortsize=line
679 $ WRITE_RESULT "shortsize is ''perl_shortsize'"
681 $! Check for long size
685 $ WS "#include <stdlib.h>
687 $ WS "#include <stdio.h>
691 $ WS "foo = sizeof(long);
692 $ WS "printf(""%d\n"", foo);
696 $ DEFINE SYS$ERROR _NLA0:
697 $ DEFINE SYS$OUTPUT _NLA0:
698 $ on error then continue
699 $ on warning then continue
701 $ If (Needs_Opt.eqs."Yes")
703 $ link temp.obj,temp.opt/opt
707 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
708 $ DEASSIGN SYS$OUTPUT
710 $ DEFINE SYS$ERROR TEMPOUT
711 $ DEFINE SYS$OUTPUT TEMPOUT
714 $ DEASSIGN SYS$OUTPUT
716 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
721 $ WRITE_RESULT "longsize is ''perl_longsize'"
723 $! Check the prototype for getgid
727 $ WS "#include <stdlib.h>
729 $ WS "#include <stdio.h>
730 $ WS "#include <types.h>
731 $ WS "#include <unistd.h>
738 $ DEFINE SYS$ERROR _NLA0:
739 $ DEFINE SYS$OUTPUT _NLA0:
740 $ on error then continue
741 $ on warning then continue
743 $ teststatus = f$extract(9,1,$status)
744 $ DEASSIGN SYS$OUTPUT
746 $ if (teststatus.nes."1")
748 $! Okay, gid_t failed. Must be unsigned int
749 $ perl_gidtype = "unsigned int"
751 $ perl_gidtype = "gid_t"
753 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
755 $! Check to see if we've got dev_t
759 $ WS "#include <stdlib.h>
761 $ WS "#include <stdio.h>
762 $ WS "#include <types.h>
763 $ WS "#include <unistd.h>
770 $ DEFINE SYS$ERROR _NLA0:
771 $ DEFINE SYS$OUTPUT _NLA0:
772 $ on error then continue
773 $ on warning then continue
775 $ teststatus = f$extract(9,1,$status)
776 $ DEASSIGN SYS$OUTPUT
778 $ if (teststatus.nes."1")
780 $! Okay, dev_t failed. Must be unsigned int
781 $ perl_devtype = "unsigned int"
783 $ perl_devtype = "dev_t"
785 $ WRITE_RESULT "Dev_t is ''perl_devtype'"
787 $! Check to see if we've got unistd.h (which we ought to, but you never know)
791 $ WS "#include <stdlib.h>
793 $ WS "#include <unistd.h>
799 $ DEFINE SYS$ERROR _NLA0:
800 $ DEFINE SYS$OUTPUT _NLA0:
801 $ on error then continue
802 $ on warning then continue
804 $ teststatus = f$extract(9,1,$status)
805 $ DEASSIGN SYS$OUTPUT
807 $ if (teststatus.nes."1")
809 $! Okay, failed. Must not have it
810 $ perl_i_unistd = "undef"
812 $ perl_i_unistd = "define"
815 $ WRITE_RESULT "i_unistd is ''perl_i_unistd'"
817 $! Check the prototype for select
819 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
823 $ WS "#include <stdlib.h>
825 $ WS "#include <stdio.h>
826 $ WS "#include <types.h>
827 $ WS "#include <unistd.h>
828 $ if ("''Has_Socketshr'".eqs."T")
830 $ WS "#include <socketshr.h>"
832 $ WS "#include <time.h>
833 $ WS "#include <socket.h>
840 $ WS "bar = select(2, foo, foo, foo, NULL);
844 $ DEFINE SYS$ERROR _NLA0:
845 $ DEFINE SYS$OUTPUT _NLA0:
846 $ on error then continue
847 $ on warning then continue
849 $ teststatus = f$extract(9,1,$status)
850 $ DEASSIGN SYS$OUTPUT
852 $ if (teststatus.nes."1")
854 $! Okay, fd_set failed. Must be an int
855 $ perl_selecttype = "int *"
857 $ perl_selecttype="fd_set *"
860 $ ! No sockets, so stick in an int *
861 $ perl_selecttype = "int *"
863 $ WRITE_RESULT "selectype is ''perl_selecttype'"
869 $ WS "#include <stdlib.h>
871 $ WS "#include <stdio.h>
872 $ WS "#include <strings.h>
876 $ WS "bzero(foo, 10);
880 $ DEFINE SYS$ERROR _NLA0:
881 $ DEFINE SYS$OUTPUT _NLA0:
882 $ on error then continue
883 $ on warning then continue
885 $ savedstatus = $status
886 $ teststatus = f$extract(9,1,savedstatus)
887 $ if (teststatus.nes."1")
889 $ perl_d_bzero="undef"
890 $ DEASSIGN SYS$OUTPUT
893 $ If (Needs_Opt.eqs."Yes")
895 $ link temp.obj,temp.opt/opt
899 $ savedstatus = $status
900 $ teststatus = f$extract(9,1,savedstatus)
901 $ DEASSIGN SYS$OUTPUT
903 $ if (teststatus.nes."1")
905 $ perl_d_bzero="undef"
907 $ perl_d_bzero="define"
910 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
916 $ WS "#include <stdlib.h>
918 $ WS "#include <stdio.h>
919 $ WS "#include <strings.h>
922 $ WS "char foo[10], bar[10];
923 $ WS "bcopy(""foo"", bar, 3);
927 $ DEFINE SYS$ERROR _NLA0:
928 $ DEFINE SYS$OUTPUT _NLA0:
929 $ on error then continue
930 $ on warning then continue
932 $ savedstatus = $status
933 $ teststatus = f$extract(9,1,savedstatus)
934 $ if (teststatus.nes."1")
936 $ perl_d_bcopy="undef"
937 $ DEASSIGN SYS$OUTPUT
940 $ If (Needs_Opt.eqs."Yes")
942 $ link temp.obj,temp.opt/opt
946 $ savedstatus = $status
947 $ teststatus = f$extract(9,1,savedstatus)
948 $ DEASSIGN SYS$OUTPUT
950 $ if (teststatus.nes."1")
952 $ perl_d_bcopy="undef"
954 $ perl_d_bcopy="define"
957 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
963 $ WS "#include <stdlib.h>
965 $ WS "#include <stdio.h>
968 $ WS "mkstemp(""foo"");
972 $ DEFINE SYS$ERROR _NLA0:
973 $ DEFINE SYS$OUTPUT _NLA0:
974 $ on error then continue
975 $ on warning then continue
977 $ If (Needs_Opt.eqs."Yes")
979 $ link temp.obj,temp.opt/opt
983 $ savedstatus = $status
984 $ teststatus = f$extract(9,1,savedstatus)
985 $ DEASSIGN SYS$OUTPUT
987 $ if (teststatus.nes."1")
989 $ perl_d_mkstemp="undef"
991 $ perl_d_mkstemp="define"
993 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
999 $ WS "#include <stdlib.h>
1001 $ WS "#include <stdio.h>
1005 $ WS "char Buffer[99];
1006 $ WS "foo = fopen(""foo"", ""r"");
1007 $ WS "setvbuf(foo, Buffer, 0, 0);
1011 $ DEFINE SYS$ERROR _NLA0:
1012 $ DEFINE SYS$OUTPUT _NLA0:
1013 $ on error then continue
1014 $ on warning then continue
1016 $ If (Needs_Opt.eqs."Yes")
1018 $ link temp.obj,temp.opt/opt
1022 $ teststatus = f$extract(9,1,$status)
1023 $ DEASSIGN SYS$OUTPUT
1024 $ DEASSIGN SYS$ERROR
1025 $ if (teststatus.nes."1")
1027 $ perl_d_setvbuf="undef"
1029 $ perl_d_setvbuf="define"
1031 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
1033 $! Check for <netinet/in.h>
1035 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1039 $ WS "#include <stdlib.h>
1041 $ WS "#include <stdio.h>
1042 $ if ("''Has_Socketshr'".eqs."T")
1044 $ WS "#include <socketshr.h>"
1046 $ WS "#include <netdb.h>
1048 $ WS "#include <netinet/in.h>"
1054 $ DEFINE SYS$ERROR _NLA0:
1055 $ DEFINE SYS$OUTPUT _NLA0:
1056 $ on error then continue
1057 $ on warning then continue
1059 $ If (Needs_Opt.eqs."Yes")
1061 $ link temp.obj,temp.opt/opt
1065 $ teststatus = f$extract(9,1,$status)
1066 $ DEASSIGN SYS$OUTPUT
1067 $ DEASSIGN SYS$ERROR
1068 $ if (teststatus.nes."1")
1070 $ perl_i_niin="undef"
1072 $ perl_i_niin="define"
1075 $ perl_i_niin="undef"
1077 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
1079 $! Check for endhostent
1081 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1085 $ WS "#include <stdlib.h>
1087 $ WS "#include <stdio.h>
1088 $ if ("''Has_Socketshr'".eqs."T")
1090 $ WS "#include <socketshr.h>"
1092 $ WS "#include <netdb.h>
1100 $ DEFINE SYS$ERROR _NLA0:
1101 $ DEFINE SYS$OUTPUT _NLA0:
1102 $ on error then continue
1103 $ on warning then continue
1105 $ If (Needs_Opt.eqs."Yes")
1107 $ link temp.obj,temp.opt/opt
1111 $ teststatus = f$extract(9,1,$status)
1112 $ DEASSIGN SYS$OUTPUT
1113 $ DEASSIGN SYS$ERROR
1114 $ if (teststatus.nes."1")
1116 $ perl_d_endhent="undef"
1118 $ perl_d_endhent="define"
1121 $ perl_d_endhent="undef"
1123 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
1125 $! Check for endnetent
1127 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1131 $ WS "#include <stdlib.h>
1133 $ WS "#include <stdio.h>
1134 $ if ("''Has_Socketshr'".eqs."T")
1136 $ WS "#include <socketshr.h>"
1138 $ WS "#include <netdb.h>
1146 $ DEFINE SYS$ERROR _NLA0:
1147 $ DEFINE SYS$OUTPUT _NLA0:
1148 $ on error then continue
1149 $ on warning then continue
1151 $ If (Needs_Opt.eqs."Yes")
1153 $ link temp.obj,temp.opt/opt
1157 $ teststatus = f$extract(9,1,$status)
1158 $ DEASSIGN SYS$OUTPUT
1159 $ DEASSIGN SYS$ERROR
1160 $ if (teststatus.nes."1")
1162 $ perl_d_endnent="undef"
1164 $ perl_d_endnent="define"
1167 $ perl_d_endnent="undef"
1169 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
1171 $! Check for endprotoent
1173 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1177 $ WS "#include <stdlib.h>
1179 $ WS "#include <stdio.h>
1180 $ if ("''Has_Socketshr'".eqs."T")
1182 $ WS "#include <socketshr.h>"
1184 $ WS "#include <netdb.h>
1188 $ WS "endprotoent();
1192 $ DEFINE SYS$ERROR _NLA0:
1193 $ DEFINE SYS$OUTPUT _NLA0:
1194 $ on error then continue
1195 $ on warning then continue
1197 $ If (Needs_Opt.eqs."Yes")
1199 $ link temp.obj,temp.opt/opt
1203 $ teststatus = f$extract(9,1,$status)
1204 $ DEASSIGN SYS$OUTPUT
1205 $ DEASSIGN SYS$ERROR
1206 $ if (teststatus.nes."1")
1208 $ perl_d_endpent="undef"
1210 $ perl_d_endpent="define"
1213 $ perl_d_endpent="undef"
1215 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
1217 $! Check for endservent
1219 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1223 $ WS "#include <stdlib.h>
1225 $ WS "#include <stdio.h>
1226 $ if ("''Has_Socketshr'".eqs."T")
1228 $ WS "#include <socketshr.h>"
1230 $ WS "#include <netdb.h>
1238 $ DEFINE SYS$ERROR _NLA0:
1239 $ DEFINE SYS$OUTPUT _NLA0:
1240 $ on error then continue
1241 $ on warning then continue
1243 $ If (Needs_Opt.eqs."Yes")
1245 $ link temp.obj,temp.opt/opt
1249 $ teststatus = f$extract(9,1,$status)
1250 $ DEASSIGN SYS$OUTPUT
1251 $ DEASSIGN SYS$ERROR
1252 $ if (teststatus.nes."1")
1254 $ perl_d_endsent="undef"
1256 $ perl_d_endsent="define"
1259 $ perl_d_endsent="undef"
1261 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
1263 $! Check for sethostent
1265 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1269 $ WS "#include <stdlib.h>
1271 $ WS "#include <stdio.h>
1272 $ if ("''Has_Socketshr'".eqs."T")
1274 $ WS "#include <socketshr.h>"
1276 $ WS "#include <netdb.h>
1280 $ WS "sethostent(1);
1284 $ DEFINE SYS$ERROR _NLA0:
1285 $ DEFINE SYS$OUTPUT _NLA0:
1286 $ on error then continue
1287 $ on warning then continue
1289 $ If (Needs_Opt.eqs."Yes")
1291 $ link temp.obj,temp.opt/opt
1295 $ teststatus = f$extract(9,1,$status)
1296 $ DEASSIGN SYS$OUTPUT
1297 $ DEASSIGN SYS$ERROR
1298 $ if (teststatus.nes."1")
1300 $ perl_d_sethent="undef"
1302 $ perl_d_sethent="define"
1305 $ perl_d_sethent="undef"
1307 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
1309 $! Check for setnetent
1311 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1315 $ WS "#include <stdlib.h>
1317 $ WS "#include <stdio.h>
1318 $ if ("''Has_Socketshr'".eqs."T")
1320 $ WS "#include <socketshr.h>"
1322 $ WS "#include <netdb.h>
1330 $ DEFINE SYS$ERROR _NLA0:
1331 $ DEFINE SYS$OUTPUT _NLA0:
1332 $ on error then continue
1333 $ on warning then continue
1335 $ If (Needs_Opt.eqs."Yes")
1337 $ link temp.obj,temp.opt/opt
1341 $ teststatus = f$extract(9,1,$status)
1342 $ DEASSIGN SYS$OUTPUT
1343 $ DEASSIGN SYS$ERROR
1344 $ if (teststatus.nes."1")
1346 $ perl_d_setnent="undef"
1348 $ perl_d_setnent="define"
1351 $ perl_d_setnent="undef"
1353 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
1355 $! Check for setprotoent
1357 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1361 $ WS "#include <stdlib.h>
1363 $ WS "#include <stdio.h>
1364 $ if ("''Has_Socketshr'".eqs."T")
1366 $ WS "#include <socketshr.h>"
1368 $ WS "#include <netdb.h>
1372 $ WS "setprotoent(1);
1376 $ DEFINE SYS$ERROR _NLA0:
1377 $ DEFINE SYS$OUTPUT _NLA0:
1378 $ on error then continue
1379 $ on warning then continue
1381 $ If (Needs_Opt.eqs."Yes")
1383 $ link temp.obj,temp.opt/opt
1387 $ teststatus = f$extract(9,1,$status)
1388 $ DEASSIGN SYS$OUTPUT
1389 $ DEASSIGN SYS$ERROR
1390 $ if (teststatus.nes."1")
1392 $ perl_d_setpent="undef"
1394 $ perl_d_setpent="define"
1397 $ perl_d_setpent="undef"
1399 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
1401 $! Check for setservent
1403 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1407 $ WS "#include <stdlib.h>
1409 $ WS "#include <stdio.h>
1410 $ if ("''Has_Socketshr'".eqs."T")
1412 $ WS "#include <socketshr.h>"
1414 $ WS "#include <netdb.h>
1418 $ WS "setservent(1);
1422 $ DEFINE SYS$ERROR _NLA0:
1423 $ DEFINE SYS$OUTPUT _NLA0:
1424 $ on error then continue
1425 $ on warning then continue
1427 $ If (Needs_Opt.eqs."Yes")
1429 $ link temp.obj,temp.opt/opt
1433 $ teststatus = f$extract(9,1,$status)
1434 $ DEASSIGN SYS$OUTPUT
1435 $ DEASSIGN SYS$ERROR
1436 $ if (teststatus.nes."1")
1438 $ perl_d_setsent="undef"
1440 $ perl_d_setsent="define"
1443 $ perl_d_setsent="undef"
1445 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
1447 $! Check for gethostent
1449 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1453 $ WS "#include <stdlib.h>
1455 $ WS "#include <stdio.h>
1456 $ if ("''Has_Socketshr'".eqs."T")
1458 $ WS "#include <socketshr.h>"
1460 $ WS "#include <netdb.h>
1468 $ DEFINE SYS$ERROR _NLA0:
1469 $ DEFINE SYS$OUTPUT _NLA0:
1470 $ on error then continue
1471 $ on warning then continue
1473 $ If (Needs_Opt.eqs."Yes")
1475 $ link temp.obj,temp.opt/opt
1479 $ teststatus = f$extract(9,1,$status)
1480 $ DEASSIGN SYS$OUTPUT
1481 $ DEASSIGN SYS$ERROR
1482 $ if (teststatus.nes."1")
1484 $ perl_d_gethent="undef"
1486 $ perl_d_gethent="define"
1489 $ perl_d_gethent="undef"
1491 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
1493 $! Check for getnetent
1495 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1499 $ WS "#include <stdlib.h>
1501 $ WS "#include <stdio.h>
1502 $ if ("''Has_Socketshr'".eqs."T")
1504 $ WS "#include <socketshr.h>"
1506 $ WS "#include <netdb.h>
1514 $ DEFINE SYS$ERROR _NLA0:
1515 $ DEFINE SYS$OUTPUT _NLA0:
1516 $ on error then continue
1517 $ on warning then continue
1519 $ If (Needs_Opt.eqs."Yes")
1521 $ link temp.obj,temp.opt/opt
1525 $ teststatus = f$extract(9,1,$status)
1526 $ DEASSIGN SYS$OUTPUT
1527 $ DEASSIGN SYS$ERROR
1528 $ if (teststatus.nes."1")
1530 $ perl_d_getnent="undef"
1532 $ perl_d_getnent="define"
1535 $ perl_d_getnent="undef"
1537 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
1539 $! Check for getprotoent
1541 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1545 $ WS "#include <stdlib.h>
1547 $ WS "#include <stdio.h>
1548 $ if ("''Has_Socketshr'".eqs."T")
1550 $ WS "#include <socketshr.h>"
1552 $ WS "#include <netdb.h>
1556 $ WS "getprotoent();
1560 $ DEFINE SYS$ERROR _NLA0:
1561 $ DEFINE SYS$OUTPUT _NLA0:
1562 $ on error then continue
1563 $ on warning then continue
1565 $ If (Needs_Opt.eqs."Yes")
1567 $ link temp.obj,temp.opt/opt
1571 $ teststatus = f$extract(9,1,$status)
1572 $ DEASSIGN SYS$OUTPUT
1573 $ DEASSIGN SYS$ERROR
1574 $ if (teststatus.nes."1")
1576 $ perl_d_getpent="undef"
1578 $ perl_d_getpent="define"
1581 $ perl_d_getpent="undef"
1583 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
1585 $! Check for getservent
1587 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1591 $ WS "#include <stdlib.h>
1593 $ WS "#include <stdio.h>
1594 $ if ("''Has_Socketshr'".eqs."T")
1596 $ WS "#include <socketshr.h>"
1598 $ WS "#include <netdb.h>
1606 $ DEFINE SYS$ERROR _NLA0:
1607 $ DEFINE SYS$OUTPUT _NLA0:
1608 $ on error then continue
1609 $ on warning then continue
1611 $ If (Needs_Opt.eqs."Yes")
1613 $ link temp.obj,temp.opt/opt
1617 $ teststatus = f$extract(9,1,$status)
1618 $ DEASSIGN SYS$OUTPUT
1619 $ DEASSIGN SYS$ERROR
1620 $ if (teststatus.nes."1")
1622 $ perl_d_getsent="undef"
1624 $ perl_d_getsent="define"
1627 $ perl_d_getsent="undef"
1629 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
1631 $! Check for pthread_yield
1633 $ if ("''use_threads'".eqs."T")
1637 $ WS "#include <stdlib.h>
1639 $ WS "#include <pthread.h>
1640 $ WS "#include <stdio.h>
1643 $ WS "pthread_yield();
1647 $ DEFINE SYS$ERROR _NLA0:
1648 $ DEFINE SYS$OUTPUT _NLA0:
1649 $ on error then continue
1650 $ on warning then continue
1652 $ teststatus = f$extract(9,1,$status)
1653 $ DEASSIGN SYS$OUTPUT
1654 $ DEASSIGN SYS$ERROR
1655 $ if (teststatus.nes."1")
1657 $ perl_d_pthread_yield="undef"
1659 $ perl_d_pthread_yield="define"
1662 $ perl_d_pthread_yield="undef"
1664 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
1666 $! Check for sched_yield
1668 $ if ("''use_threads'".eqs."T")
1672 $ WS "#include <stdlib.h>
1674 $ WS "#include <pthread.h>
1675 $ WS "#include <stdio.h>
1678 $ WS "sched_yield();
1682 $ DEFINE SYS$ERROR _NLA0:
1683 $ DEFINE SYS$OUTPUT _NLA0:
1684 $ on error then continue
1685 $ on warning then continue
1687 $ teststatus = f$extract(9,1,$status)
1688 $ DEASSIGN SYS$OUTPUT
1689 $ DEASSIGN SYS$ERROR
1690 $ if (teststatus.nes."1")
1692 $ perl_d_sched_yield="undef"
1694 $ perl_d_sched_yield="define"
1697 $ perl_d_sched_yield="undef"
1699 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
1701 $! Check for generic pointer size
1705 $ WS "#include <stdlib.h>
1707 $ WS "#include <stdio.h>
1711 $ WS "foo = sizeof(char *);
1712 $ WS "printf(""%d\n"", foo);
1716 $! copy temp.c sys$output
1718 $ DEFINE SYS$ERROR _NLA0:
1719 $ DEFINE SYS$OUTPUT _NLA0:
1720 $ ON ERROR THEN CONTINUE
1721 $ ON WARNING THEN CONTINUE
1723 $ If (Needs_Opt.eqs."Yes")
1725 $ link temp.obj,temp.opt/opt
1729 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
1730 $ DEASSIGN SYS$OUTPUT
1731 $ DEASSIGN SYS$ERROR
1732 $ DEFINE SYS$ERROR TEMPOUT
1733 $ DEFINE SYS$OUTPUT TEMPOUT
1736 $ DEASSIGN SYS$OUTPUT
1737 $ DEASSIGN SYS$ERROR
1738 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
1743 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
1746 $! Done with compiler checks. Clean up.
1747 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
1748 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
1749 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
1750 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
1753 $! Some that are compiler or VMS version sensitive
1756 $ IF "''Using_Gnu_C'".EQS."Yes"
1758 $ perl_d_attribut="define"
1759 $ perl_vms_cc_type="gcc"
1761 $ perl_d_attribut="undef"
1764 $! Dec C >= 5.2 and VMS ver >= 7.0
1765 $ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
1767 $ perl_d_bcmp="define"
1768 $ perl_d_gettimeod="define"
1769 $ perl_d_uname="define"
1770 $ perl_d_sigaction="define"
1771 $ perl_d_truncate="define"
1772 $ perl_d_wait4="define"
1773 $ perl_d_index="define"
1774 $ perl_pidtype="pid_t"
1775 $ 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"
1776 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
1777 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
1778 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
1779 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
1780 $ 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"
1781 $ perl_sig_num_with_commas=perl_sig_num
1782 $ perl_uidtype="uid_t"
1783 $ perl_d_pathconf="define"
1784 $ perl_d_fpathconf="define"
1785 $ perl_d_sysconf="define"
1786 $ perl_d_sigsetjmp="define"
1788 $ perl_pidtype="unsigned int"
1789 $ perl_d_gettimeod="undef"
1790 $ perl_d_bcmp="undef"
1791 $ perl_d_uname="undef"
1792 $ perl_d_sigaction="undef"
1793 $ perl_d_truncate="undef"
1794 $ perl_d_wait4="undef"
1795 $ perl_d_index="undef"
1796 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
1797 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
1798 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
1799 $ perl_sig_name_with_commas = psnwc1 + psnwc2
1800 $ perl_sig_num="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
1801 $ perl_sig_num_with_commas=perl_sig_num
1802 $ perl_uidtype="unsigned int"
1803 $ perl_d_pathconf="undef"
1804 $ perl_d_fpathconf="undef"
1805 $ perl_d_sysconf="undef"
1806 $ perl_d_sigsetjmp="undef"
1810 $ IF ("''Using_Dec_C'".EQS."Yes")
1812 $ perl_d_mbstowcs="define"
1813 $ perl_d_mbtowc="define"
1814 $ perl_d_stdiobase="define"
1815 $ perl_d_stdio_ptr_lval="define"
1816 $ perl_d_stdio_cnt_lval="define"
1817 $ perl_d_stdstdio="define"
1818 $ perl_d_wcstombs="define"
1819 $ perl_d_mblen="define"
1820 $ perl_d_mktime="define"
1821 $ perl_d_strcoll="define"
1822 $ perl_d_strxfrm="define"
1823 $ perl_d_wctomb="define"
1824 $ perl_i_locale="define"
1825 $ perl_d_locconv="define"
1826 $ perl_d_setlocale="define"
1827 $ perl_vms_cc_type="decc"
1829 $ perl_d_mbstowcs="undef"
1830 $ perl_d_mbtowc="undef"
1831 $ perl_d_stdiobase="undef"
1832 $ perl_d_stdio_ptr_lval="undef"
1833 $ perl_d_stdio_cnt_lval="undef"
1834 $ perl_d_stdstdio="undef"
1835 $ perl_d_wcstombs="undef"
1836 $ perl_d_mblen="undef"
1837 $ perl_d_mktime="undef"
1838 $ perl_d_strcoll="undef"
1839 $ perl_d_strxfrm="undef"
1840 $ perl_d_wctomb="undef"
1841 $ perl_i_locale="undef"
1842 $ perl_d_locconv="undef"
1843 $ perl_d_setlocale="undef"
1847 $ if ("''Using_Vax_C'".EQS."Yes")
1849 $ perl_vms_cc_type="vaxc"
1854 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
1856 $ perl_d_vms_do_sockets="define"
1857 $ perl_d_htonl="define"
1858 $ perl_d_socket="define"
1859 $ perl_d_select="define"
1860 $ perl_netdb_host_type="char *"
1861 $ perl_netdb_hlen_type="int"
1862 $ perl_netdb_name_type="char *"
1863 $ perl_netdb_net_type="long"
1864 $ perl_d_gethbyaddr="define"
1865 $ perl_d_gethbyname="define"
1866 $ perl_d_getnbyaddr="define"
1867 $ perl_d_getnbyname="define"
1868 $ perl_d_getpbynumber="define"
1869 $ perl_d_getpbyname="define"
1870 $ perl_d_getsbyport="define"
1871 $ perl_d_getsbyname="define"
1872 $ perl_d_gethostprotos="define"
1873 $ perl_d_getnetprotos="define"
1874 $ perl_d_getprotoprotos="define"
1875 $ perl_d_getservprotos="define"
1877 $ perl_d_vms_do_sockets="undef"
1878 $ perl_d_htonl="undef"
1879 $ perl_d_socket="undef"
1880 $ perl_d_select="undef"
1881 $ perl_netdb_host_type="char *"
1882 $ perl_netdb_hlen_type="int"
1883 $ perl_netdb_name_type="char *"
1884 $ perl_netdb_net_type="long"
1885 $ perl_d_gethbyaddr="undef"
1886 $ perl_d_gethbyname="undef"
1887 $ perl_d_getnbyaddr="undef"
1888 $ perl_d_getnbyname="undef"
1889 $ perl_d_getpbynumber="undef"
1890 $ perl_d_getpbyname="undef"
1891 $ perl_d_getsbyport="undef"
1892 $ perl_d_getsbyname="undef"
1893 $ perl_d_gethostprotos="undef"
1894 $ perl_d_getnetprotos="undef"
1895 $ perl_d_getprotoprotos="undef"
1896 $ perl_d_getservprotos="undef"
1899 $ if ("''use_threads'".eqs."T")
1901 $ perl_usethreads="define"
1902 $ perl_d_pthreads_created_joinable="define"
1903 $ if ("''VMS_VER'".ges."7.0")
1905 $ perl_d_oldpthreads="undef"
1907 $ perl_d_oldpthreads="define"
1910 $ perl_d_oldpthreads="undef"
1911 $ perl_usethreads="undef"
1913 $ perl_d_pthreads_created_joinable="undef"
1917 $! Finally the composite ones. All config
1918 $ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
1919 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
1920 $ perl_myhostname="''myhostname'"
1921 $ perl_mydomain="''mydomain'"
1922 $ perl_perladmin="''perladmin'"
1923 $ perl_cf_email="''cf_email'"
1924 $ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
1925 $ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
1926 $ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
1927 $ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
1928 $ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
1929 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
1930 $ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
1931 $ if "''Using_Dec_C'" .eqs. "Yes"
1933 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
1935 $ IF "''Using_Vax_C'" .eqs. "Yes"
1937 $ perl_ccflags="/Include=[]/Obj=''perl_obj_ext'/NoList''cc_flags'"
1941 $! Finally clean off any leading zeros from the patchlevel or subversion
1942 $ perl_patchlevel = perl_patchlevel + 0
1943 $ perl_subversion = perl_subversion + 0
1945 $! Okay, we've got everything configured. Now go write out a config.sh.
1946 $ open/write CONFIGSH [-]config.sh
1947 $ WC := "write CONFIGSH"
1949 $ WC "# This file generated by Configure.COM on a VMS system."
1950 $ WC "# Time: " + perl_cf_time
1952 $ WC "package='" + perl_package + "'"
1953 $ WC "CONFIG='" + perl_config + "'"
1954 $ WC "cf_time='" + perl_cf_time + "'"
1955 $ WC "cf_by='" + perl_cf_by+ "'"
1956 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
1957 $ WC "ccdlflags='" + perl_ccdlflags + "'"
1958 $ WC "cccdlflags='" + perl_cccdlflags + "'"
1959 $ WC "mab='" + perl_mab + "'"
1960 $ WC "libpth='" + perl_libpth + "'"
1961 $ WC "ld='" + perl_ld + "'"
1962 $ WC "lddlflags='" + perl_lddlflags + "'"
1963 $ WC "ranlib='" + perl_ranlib + "'"
1964 $ WC "ar='" + perl_ar + "'"
1965 $ WC "eunicefix='" + perl_eunicefix + "'"
1966 $ WC "hint='" + perl_hint +"'"
1967 $ WC "hintfile='" + perl_hintfile + "'"
1968 $ WC "shrplib='" + perl_shrplib + "'"
1969 $ WC "usemymalloc='" + perl_usemymalloc + "'"
1970 $ WC "usevfork='" + perl_usevfork + "'"
1971 $ WC "useposix='false'"
1972 $ WC "spitshell='write sys$output '"
1973 $ WC "dlsrc='dl_vms.c'"
1974 $ WC "binexp='" + perl_binexp + "'"
1975 $ WC "man1ext='" + perl_man1ext + "'"
1976 $ WC "man3ext='" + perl_man3ext + "'"
1977 $ WC "arch='" + perl_arch + "'"
1978 $ WC "archname='" + perl_archname + "'"
1979 $ WC "osvers='" + perl_osvers + "'"
1980 $ WC "prefix='" + perl_prefix + "'"
1981 $ WC "builddir='" + perl_builddir + "'"
1982 $ WC "installbin='" + perl_installbin + "'"
1983 $ WC "installscript='" + perl_installscript + "'"
1984 $ WC "installman1dir='" + perl_installman1dir + "'"
1985 $ WC "installman3dir='" + perl_installman3dir + "'"
1986 $ WC "installprivlib='" + perl_installprivlib + "'"
1987 $ WC "installarchlib='" + perl_installarchlib + "'"
1988 $ WC "installsitelib='" + perl_installsitelib + "'"
1989 $ WC "installsitearch='" + perl_installsitearch + "'"
1990 $ WC "path_sep='" + perl_path_sep + "'"
1991 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
1992 $ WC "d_attribut='" + perl_d_attribut + "'"
1993 $ WC "cc='" + perl_cc + "'"
1994 $ WC "ccflags='" + perl_ccflags + "'"
1995 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
1996 $ WC "d_socket='" + perl_d_socket + "'"
1997 $ WC "d_sockpair='" + perl_d_sockpair + "'"
1998 $ WC "d_gethent='" + perl_d_gethent + "'"
1999 $ WC "d_getsent='" + perl_d_getsent + "'"
2000 $ WC "d_select='" + perl_d_select + "'"
2001 $ WC "i_niin='" + perl_i_niin + "'"
2002 $ WC "i_neterrno='" + perl_i_neterrno + "'"
2003 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
2004 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
2005 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
2006 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
2007 $ WC "d_locconv='" + perl_d_locconv + "'"
2008 $ WC "d_setlocale='" + perl_d_setlocale + "'"
2009 $ WC "i_locale='" + perl_i_locale + "'"
2010 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
2011 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
2012 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
2013 $ WC "d_wctomb='" + perl_d_wctomb + "'"
2014 $ WC "d_mblen='" + perl_d_mblen + "'"
2015 $ WC "d_mktime='" + perl_d_mktime + "'"
2016 $ WC "d_strcoll='" + perl_d_strcoll + "'"
2017 $ WC "d_strxfrm='" + perl_d_strxfrm + "'"
2018 $ WC "ldflags='" + perl_ldflags + "'"
2019 $ WC "dlobj='" + perl_dlobj + "'"
2020 $ WC "obj_ext='" + perl_obj_ext + "'"
2021 $ WC "so='" + perl_so + "'"
2022 $ WC "dlext='" + perl_dlext + "'"
2023 $ WC "exe_ext='" + perl_exe_ext + "'"
2024 $ WC "lib_ext='" + perl_lib_ext + "'"
2025 $ WC "myhostname='" + perl_myhostname + "'"
2026 $ WC "mydomain='" + perl_mydomain + "'"
2027 $ WC "perladmin='" + perl_perladmin + "'"
2028 $ WC "cf_email='" + perl_cf_email + "'"
2029 $ WC "myuname='" + perl_myuname + "'"
2030 $ WC "alignbytes='" + perl_alignbytes + "'"
2031 $ WC "osname='" + perl_osname + "'"
2032 $ WC "d_archlib='" + perl_d_archlib + "'"
2033 $ WC "archlibexp='" + perl_archlibexp + "'"
2034 $ WC "archlib='" + perl_archlib + "'"
2035 $ WC "archname='" + perl_archname + "'"
2036 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
2037 $ WC "cppstdin='" + perl_cppstdin + "'"
2038 $ WC "cppminus='" + perl_cppminus + "'"
2039 $ WC "d_bcmp='" + perl_d_bcmp + "'"
2040 $ WC "d_bcopy='" + perl_d_bcopy + "'"
2041 $ WC "d_bzero='" + perl_d_bzero + "'"
2042 $ WC "d_castneg='" + perl_d_castneg + "'"
2043 $ WC "castflags='" + perl_castflags + "'"
2044 $ WC "d_chsize='" + perl_d_chsize + "'"
2045 $ WC "d_const='" + perl_d_const + "'"
2046 $ WC "d_crypt='" + perl_d_crypt + "'"
2047 $ WC "byteorder='" + perl_byteorder + "'"
2048 $ WC "full_csh='" + perl_full_csh + "'"
2049 $ WC "d_csh='" + perl_d_csh + "'"
2050 $ WC "d_dup2='" + perl_d_dup2 + "'"
2051 $ WC "d_fchmod='" + perl_d_fchmod + "'"
2052 $ WC "d_fchown='" + perl_d_fchown + "'"
2053 $ WC "d_fcntl='" + perl_d_fcntl + "'"
2054 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
2055 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
2056 $ WC "d_flock='" + perl_d_flock + "'"
2057 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
2058 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
2059 $ WC "d_getgrps='" + perl_d_getgrps + "'"
2060 $ WC "d_setgrps='" + perl_d_setgrps + "'"
2061 $ WC "d_uname='" + perl_d_uname + "'"
2062 $ WC "d_getprior='" + perl_d_getprior + "'"
2063 $ WC "d_killpg='" + perl_d_killpg + "'"
2064 $ WC "d_link='" + perl_d_link + "'"
2065 $ WC "d_lstat='" + perl_d_lstat + "'"
2066 $ WC "d_lockf='" + perl_d_lockf + "'"
2067 $ WC "d_memcmp='" + perl_d_memcmp + "'"
2068 $ WC "d_memcpy='" + perl_d_memcpy + "'"
2069 $ WC "d_memmove='" + perl_d_memmove + "'"
2070 $ WC "d_memset='" + perl_d_memset + "'"
2071 $ WC "d_mkdir='" + perl_d_mkdir + "'"
2072 $ WC "d_msg='" + perl_d_msg + "'"
2073 $ WC "d_open3='" + perl_d_open3 + "'"
2074 $ WC "d_poll='" + perl_d_poll + "'"
2075 $ WC "d_readdir='" + perl_d_readdir + "'"
2076 $ WC "d_seekdir='" + perl_d_seekdir + "'"
2077 $ WC "d_telldir='" + perl_d_telldir + "'"
2078 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
2079 $ WC "d_rename='" + perl_d_rename + "'"
2080 $ WC "d_rmdir='" + perl_d_rmdir + "'"
2081 $ WC "d_sem='" + perl_d_sem + "'"
2082 $ WC "d_setegid='" + perl_d_setegid + "'"
2083 $ WC "d_seteuid='" + perl_d_seteuid + "'"
2084 $ WC "d_setprior='" + perl_d_setprior + "'"
2085 $ WC "d_setregid='" + perl_d_setregid + "'"
2086 $ WC "d_setresgid='" + perl_d_setresgid + "'"
2087 $ WC "d_setreuid='" + perl_d_setreuid + "'"
2088 $ WC "d_setresuid='" + perl_d_setresuid + "'"
2089 $ WC "d_setrgid='" + perl_d_setrgid + "'"
2090 $ WC "d_setruid='" + perl_d_setruid + "'"
2091 $ WC "d_setsid='" + perl_d_setsid + "'"
2092 $ WC "d_shm='" + perl_d_shm + "'"
2093 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
2094 $ WC "d_sigaction='" + perl_d_sigaction + "'"
2095 $ WC "d_statblks='" + perl_d_statblks + "'"
2096 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
2097 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
2098 $ WC "stdio_base='" + perl_stdio_base + "'"
2099 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
2100 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
2101 $ WC "d_strerror='" + perl_d_strerror + "'"
2102 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
2103 $ WC "d_strerrm='" + perl_d_strerrm + "'"
2104 $ WC "d_symlink='" + perl_d_symlink + "'"
2105 $ WC "d_syscall='" + perl_d_syscall + "'"
2106 $ WC "d_system='" + perl_d_system + "'"
2107 $ WC "timetype='" + perl_timetype + "'"
2108 $ WC "d_truncate='" + perl_d_truncate + "'"
2109 $ WC "d_vfork='" + perl_d_vfork + "'"
2110 $ WC "signal_t='" + perl_signal_t + "'"
2111 $ WC "d_volatile='" + perl_d_volatile + "'"
2112 $ WC "d_vprintf='" + perl_d_vprintf + "'"
2113 $ WC "d_charvspr='" + perl_d_charvspr + "'"
2114 $ WC "d_wait4='" + perl_d_wait4 + "'"
2115 $ WC "d_waitpid='" + perl_d_waitpid + "'"
2116 $ WC "i_dirent='" + perl_i_dirent + "'"
2117 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
2118 $ WC "direntrytype='" + perl_direntrytype + "'"
2119 $ WC "i_fcntl='" + perl_i_fcntl + "'"
2120 $ WC "i_grp='" + perl_i_grp + "'"
2121 $ WC "i_limits='" + perl_i_limits + "'"
2122 $ WC "i_memory='" + perl_i_memory + "'"
2123 $ WC "i_ndbm='" + perl_i_ndbm + "'"
2124 $ WC "i_stdarg='" + perl_i_stdarg + "'"
2125 $ WC "i_pwd='" + perl_i_pwd + "'"
2126 $ WC "d_pwquota='" + perl_d_pwquota + "'"
2127 $ WC "d_pwage='" + perl_d_pwage + "'"
2128 $ WC "d_pwchange='" + perl_d_pwchange + "'"
2129 $ WC "d_pwclass='" + perl_d_pwclass + "'"
2130 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
2131 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
2132 $ WC "i_stddef='" + perl_i_stddef + "'"
2133 $ WC "i_stdlib='" + perl_i_stdlib + "'"
2134 $ WC "i_string='" + perl_i_string + "'"
2135 $ WC "i_sysdir='" + perl_i_sysdir + "'"
2136 $ WC "i_sysfile='" + perl_i_sysfile + "'"
2137 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
2138 $ WC "i_sysndir='" + perl_i_sysndir + "'"
2139 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
2140 $ WC "i_sysselct='" + perl_i_sysselct + "'"
2141 $ WC "i_dbm='" + perl_i_dbm + "'"
2142 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
2143 $ WC "i_sfio='" + perl_i_sfio + "'"
2144 $ WC "i_sysstat='" + perl_i_sysstat + "'"
2145 $ WC "i_systimes='" + perl_i_systimes + "'"
2146 $ WC "i_systypes='" + perl_i_systypes + "'"
2147 $ WC "i_sysun='" + perl_i_sysun + "'"
2148 $ WC "i_syswait='" + perl_i_syswait + "'"
2149 $ WC "i_termio='" + perl_i_termio + "'"
2150 $ WC "i_sgtty='" + perl_i_sgtty + "'"
2151 $ WC "i_termios='" + perl_i_termios + "'"
2152 $ WC "i_time='" + perl_i_time + "'"
2153 $ WC "i_systime='" + perl_i_systime + "'"
2154 $ WC "i_systimek='" + perl_i_systimek + "'"
2155 $ WC "i_unistd='" + perl_i_unistd + "'"
2156 $ WC "i_utime='" + perl_i_utime + "'"
2157 $ WC "i_varargs='" + perl_i_varargs + "'"
2158 $ WC "i_vfork='" + perl_i_vfork + "'"
2159 $ WC "prototype='" + perl_prototype + "'"
2160 $ WC "randbits='" + perl_randbits +"'"
2161 $ WC "selecttype='" + perl_selecttype + "'"
2162 $ WC "stdchar='" + perl_stdchar + "'"
2163 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
2164 $ WC "full_sed='" + perl_full_sed + "'"
2165 $ WC "bin='" + perl_bin + "'"
2166 $ WC "binexp='" + perl_binexp + "'"
2167 $ WC "d_alarm='" + perl_d_alarm + "'"
2168 $ WC "d_casti32='" + perl_d_casti32 + "'"
2169 $ WC "d_chown='" + perl_d_chown + "'"
2170 $ WC "d_chroot='" + perl_d_chroot + "'"
2171 $ WC "d_cuserid='" + perl_d_cuserid + "'"
2172 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
2173 $ WC "d_difftime='" + perl_d_difftime + "'"
2174 $ WC "d_fork='" + perl_d_fork + "'"
2175 $ WC "d_getlogin='" + perl_d_getlogin + "'"
2176 $ WC "d_getppid='" + perl_d_getppid + "'"
2177 $ WC "d_htonl='" + perl_d_htonl + "'"
2178 $ WC "d_nice='" + perl_d_nice + "'"
2179 $ WC "d_pause='" + perl_d_pause + "'"
2180 $ WC "d_pipe='" + perl_d_pipe + "'"
2181 $ WC "d_readlink='" + perl_d_readlink + "'"
2182 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
2183 $ WC "d_strchr='" + perl_d_strchr + "'"
2184 $ WC "d_index='" + perl_d_index + "'"
2185 $ WC "d_strtod='" + perl_d_strtod + "'"
2186 $ WC "d_strtol='" + perl_d_strtol + "'"
2187 $ WC "d_strtoul='" + perl_d_strtoul + "'"
2188 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
2189 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
2190 $ WC "d_times='" + perl_d_times + "'"
2191 $ WC "d_tzname='" + perl_d_tzname + "'"
2192 $ WC "d_umask='" + perl_d_umask + "'"
2193 $ WC "fpostype='" + perl_fpostype + "'"
2194 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
2195 $ WC "i_float='" + perl_i_float + "'"
2196 $ WC "i_math='" + perl_i_math + "'"
2197 $ WC "intsize='" + perl_intsize + "'"
2198 $ WC "longsize='" + perl_longsize + "'"
2199 $ WC "shortsize='" + perl_shortsize + "'"
2200 $ WC "lseektype='" + perl_lseektype + "'"
2201 $ WC "i_values='" + perl_i_values + "'"
2202 $ WC "malloctype='" + perl_malloctype + "'"
2203 $ WC "freetype='" + perl_freetype + "'"
2204 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
2205 $ WC "sh='" + perl_sh + "'"
2206 $ WC "sig_name='" + perl_sig_name + "'"
2207 $ WC "sig_num='" + perl_sig_num + "'"
2208 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
2210 $ WC "modetype='" + perl_modetype + "'"
2211 $ WC "ssizetype='" + perl_ssizetype + "'"
2212 $ WC "o_nonblock='" + perl_o_nonblock + "'"
2213 $ WC "eagain='" + perl_eagain + "'"
2214 $ WC "rd_nodata='" + perl_rd_nodata + "'"
2215 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
2216 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
2217 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
2218 $ WC "oldarchlib='" + perl_oldarchlib + "'"
2219 $ WC "privlibexp='" + perl_privlibexp + "'"
2220 $ WC "privlib='" + perl_privlib + "'"
2221 $ WC "sitelibexp='" + perl_sitelibexp + "'"
2222 $ WC "sitelib='" + perl_sitelib + "'"
2223 $ WC "sitearchexp='" + perl_sitearchexp + "'"
2224 $ WC "sitearch='" + perl_sitearch + "'"
2225 $ WC "sizetype='" + perl_sizetype + "'"
2226 $ WC "i_sysparam='" + perl_i_sysparam + "'"
2227 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
2228 $ WC "d_dlerror='" + perl_d_dlerror + "'"
2229 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
2230 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
2231 $ WC "d_dosuid='" + perl_d_dosuid + "'"
2232 $ WC "d_inetaton='" + perl_d_inetaton + "'"
2233 $ WC "d_isascii='" + perl_d_isascii + "'"
2234 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
2235 $ WC "d_pathconf='" + perl_d_pathconf + "'"
2236 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
2237 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
2238 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
2239 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
2240 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
2241 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
2242 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
2243 $ WC "d_setpgid='" + perl_d_setpgid + "'"
2244 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
2245 $ WC "d_sysconf='" + perl_d_sysconf + "'"
2246 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
2247 $ WC "d_getpgid='" + perl_d_getpgid + "'"
2248 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
2249 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
2250 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
2251 $ WC "d_sfio='" + perl_d_sfio + "'"
2252 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
2253 $ WC "usedl='" + perl_usedl + "'"
2254 $ WC "startperl=" + perl_startperl ! This one's special--no enclosing single quotes
2255 $ WC "db_hashtype='" + perl_db_hashtype + "'"
2256 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
2257 $ WC "useperlio='" + perl_useperlio + "'"
2258 $ WC "defvoidused='" + perl_defvoidused + "'"
2259 $ WC "voidflags='" + perl_voidflags + "'"
2260 $ WC "d_eunice='" + perl_d_eunice + "'"
2261 $ WC "libs='" + perl_libs + "'"
2262 $ WC "libc='" + perl_libc + "'"
2263 $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
2265 $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
2267 $ WC "pager='" + perl_pager + "'"
2268 $ WC "uidtype='" + perl_uidtype + "'"
2269 $ WC "gidtype='" + perl_gidtype + "'"
2270 $ WC "usethreads='" + perl_usethreads + "'"
2271 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
2272 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
2273 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
2274 $ WC "i_netdb='" + perl_i_netdb + "'"
2275 $ WC "pidtype='" + perl_pidtype + "'"
2276 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
2277 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
2278 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
2279 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
2280 $ WC "baserev='" + perl_baserev + "'"
2281 $ WC "doublesize='" + perl_doublesize + "'"
2282 $ WC "ptrsize='" + perl_ptrsize + "'"
2283 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
2284 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
2285 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
2286 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
2287 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
2288 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
2289 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
2290 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
2291 $ WC "d_sethent='" + perl_d_sethent + "'"
2292 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
2293 $ WC "d_longdbl='" + perl_d_longdbl + "'"
2294 $ WC "longdblsize='" + perl_longdblsize + "'"
2295 $ WC "d_longlong='" + perl_d_longlong + "'"
2296 $ WC "longlongsize='" + perl_longlongsize + "'"
2297 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
2298 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
2299 $ WC "d_endhent='" + perl_d_endhent + "'"
2300 $ WC "d_endnent='" + perl_d_endsent + "'"
2301 $ WC "d_endpent='" + perl_d_endpent + "'"
2302 $ WC "d_endsent='" + perl_d_endsent + "'"
2303 $ WC "d_gethent='" + perl_d_gethent + "'"
2304 $ WC "d_getnent='" + perl_d_getsent + "'"
2305 $ WC "d_getpent='" + perl_d_getpent + "'"
2306 $ WC "d_getsent='" + perl_d_getsent + "'"
2307 $ WC "d_sethent='" + perl_d_sethent + "'"
2308 $ WC "d_setnent='" + perl_d_setsent + "'"
2309 $ WC "d_setpent='" + perl_d_setpent + "'"
2310 $ WC "ebcdic='" + perl_ebcdic + "'"
2311 $ WC "d_setsent='" + perl_d_setsent + "'"
2312 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
2313 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
2314 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
2315 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
2316 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
2317 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
2318 $ WC "d_lchown='" + perl_d_lchown + "'"
2319 $ WC "d_union_semun='" + perl_d_union_semun + "'"
2320 $ WC "i_arpainet='" + perl_i_arpainet + "'"
2321 $ WC "d_grpasswd='" + perl_d_grpasswd + "'"
2322 $ WC "d_setgrent='" + perl_d_setgrent + "'"
2323 $ WC "d_getgrent='" + perl_d_getgrent + "'"
2324 $ WC "d_endgrent='" + perl_d_endgrent + "'"
2325 $ WC "d_pwpasswd='" + perl_d_pwpasswd + "'"
2326 $ WC "d_setpwent='" + perl_d_setpwent + "'"
2327 $ WC "d_getpwent='" + perl_d_getpwent + "'"
2328 $ WC "d_endpwent='" + perl_d_endpwent + "'"
2329 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
2330 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
2331 $ WC "extensions='" + perl_extensions + "'"
2332 $ WC "d_mknod='" + perl_d_mknod + "'"
2333 $ WC "devtype='" + perl_devtype + "'"
2335 $! ##WRITE NEW CONSTANTS HERE##
2339 $! Okay, we've gotten here. Build munchconfig and run it
2340 $ 'Perl_CC' munchconfig.c
2341 $ If (Needs_Opt.eqs."Yes")
2343 $ open/write OPTCHAN []munchconfig.opt
2344 $ IF ("''using_gnu_c'".eqs."Yes")
2346 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
2348 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
2350 $ link munchconfig.obj,munchconfig.opt/opt
2351 $ delete munchconfig.opt;*
2353 $ link munchconfig.obj
2355 $ WRITE_RESULT "Writing config.h"
2357 $ ! we need an fdl file
2358 $ CREATE [-]CONFIG.FDL
2361 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
2362 $ ! First spit out the header info with the local defines (to get
2363 $ ! around the 255 character command line limit)
2364 $ OPEN/APPEND CONFIG [-]config.local
2365 $ if use_debugging_perl.eqs."Y"
2367 $ WRITE CONFIG "#define DEBUGGING"
2369 $ if preload_env.eqs."Y"
2371 $ WRITE CONFIG "#define PRIME_ENV_AT_STARTUP"
2373 $ if use_two_pot_malloc.eqs."Y"
2375 $ WRITE CONFIG "#define TWO_POT_OPTIMIZE"
2377 $ if mymalloc.eqs."Y"
2379 $ WRITE CONFIG "#define EMBEDMYMALLOC"
2381 $ if use_pack_malloc.eqs."Y"
2383 $ WRITE CONFIG "#define PACK_MALLOC"
2385 $ if use_debugmalloc.eqs."Y"
2387 $ write config "#define DEBUGGING_MSTATS"
2389 $ if "''Using_Gnu_C'" .eqs."Yes"
2391 $ WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
2393 $ if "''Has_Dec_C_Sockets'".eqs."T"
2395 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
2396 $ WRITE CONFIG "#define DECCRTL_SOCKETS"
2398 $ if "''Has_Socketshr'".eqs."T"
2400 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
2404 $! Now build the normal config.h
2405 $ define/user sys$output [-]config.main
2406 $ mcr []munchconfig [-]config.sh [-]config_h.sh
2407 $ ! Concatenate them together
2408 $ copy [-]config.local,[-]config.main [-]config.h
2410 $ DELETE/NOLOG [-]CONFIG.MAIN;*
2411 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
2412 $ DELETE/NOLOG [-]CONFIG.FDL;*
2414 $ if "''Using_Dec_C'" .eqs."Yes"
2416 $ DECC_REPLACE = "DECC=decc=1"
2418 $ DECC_REPLACE = "DECC="
2420 $ if "''Using_Gnu_C'" .eqs."Yes"
2422 $ GNUC_REPLACE = "GNUC=gnuc=1"
2424 $ GNUC_REPLACE = "GNUC="
2426 $ if "''Has_Dec_C_Sockets'" .eqs."T"
2428 $ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
2430 $ if "''Has_Socketshr'" .eqs."T"
2432 $ SOCKET_REPLACE = "SOCKET=SOCKETSHRSOCKETS=1"
2434 $ SOCKET_REPLACE = "SOCKET="
2437 $ IF ("''Use_Threads'".eqs."T")
2439 $ if ("''VMS_VER'".LES."6.2")
2441 $ THREAD_REPLACE = "THREAD=OLDTHREADED=1"
2443 $ THREAD_REPLACE = "THREAD=THREADED=1"
2446 $ THREAD_REPLACE = "THREAD="
2448 $ if mymalloc.eqs."Y"
2450 $ MALLOC_REPLACE = "MALLOC=MALLOC=1"
2452 $ MALLOC_REPLACE = "MALLOC="
2454 $ if f$getsyi("HW_MODEL").ge.1024
2456 $ ARCH_TYPE = "ARCH-TYPE=__AXP__"
2458 $ ARCH_TYPE = "ARCH-TYPE=__VAX__"
2460 $ WRITE_RESULT "Writing DESCRIP.MMS"
2462 $ define/user sys$output [-]descrip.mms
2463 $ 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'" "PV=''LocalPerlVer'"
2466 $! Clean up after ourselves
2467 $ delete/nolog munchconfig.exe;*
2468 $ delete/nolog munchconfig.obj;*