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':[utils]"
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'"
865 $! Check for sys/file.h
869 $ WS "#include <stdlib.h>
871 $ WS "#include <stdio.h>
872 $ WS "#include <unistd.h>
873 $ WS "#include <sys/file.h>
879 $ DEFINE SYS$ERROR _NLA0:
880 $ DEFINE SYS$OUTPUT _NLA0:
881 $ on error then continue
882 $ on warning then continue
884 $ savedstatus = $status
885 $ teststatus = f$extract(9,1,savedstatus)
886 $ if (teststatus.nes."1")
888 $ perl_i_sysfile="undef"
889 $ DEASSIGN SYS$OUTPUT
892 $ If (Needs_Opt.eqs."Yes")
894 $ link temp.obj,temp.opt/opt
898 $ savedstatus = $status
899 $ teststatus = f$extract(9,1,savedstatus)
900 $ DEASSIGN SYS$OUTPUT
902 $ if (teststatus.nes."1")
904 $ perl_i_sysfile="undef"
906 $ perl_i_sysfile="define"
909 $ WRITE_RESULT "i_sysfile is ''perl_i_sysfile'"
915 $ WS "#include <stdlib.h>
917 $ WS "#include <stdio.h>
918 $ WS "#include <unistd.h>
919 $ WS "#include <fcntl.h>
925 $ DEFINE SYS$ERROR _NLA0:
926 $ DEFINE SYS$OUTPUT _NLA0:
927 $ on error then continue
928 $ on warning then continue
930 $ savedstatus = $status
931 $ teststatus = f$extract(9,1,savedstatus)
932 $ if (teststatus.nes."1")
934 $ perl_i_fcntl="undef"
935 $ DEASSIGN SYS$OUTPUT
938 $ If (Needs_Opt.eqs."Yes")
940 $ link temp.obj,temp.opt/opt
944 $ savedstatus = $status
945 $ teststatus = f$extract(9,1,savedstatus)
946 $ DEASSIGN SYS$OUTPUT
948 $ if (teststatus.nes."1")
950 $ perl_i_fcntl="undef"
952 $ perl_i_fcntl="define"
955 $ WRITE_RESULT "i_fcntl is ''perl_i_fcntl'"
961 $ WS "#include <stdlib.h>
963 $ WS "#include <stdio.h>
964 $ WS "#include <unistd.h>
965 $ WS "#include <fcntl.h>
972 $ DEFINE SYS$ERROR _NLA0:
973 $ DEFINE SYS$OUTPUT _NLA0:
974 $ on error then continue
975 $ on warning then continue
977 $ savedstatus = $status
978 $ teststatus = f$extract(9,1,savedstatus)
979 $ if (teststatus.nes."1")
981 $ perl_d_fcntl="undef"
982 $ DEASSIGN SYS$OUTPUT
985 $ If (Needs_Opt.eqs."Yes")
987 $ link temp.obj,temp.opt/opt
991 $ savedstatus = $status
992 $ teststatus = f$extract(9,1,savedstatus)
993 $ DEASSIGN SYS$OUTPUT
995 $ if (teststatus.nes."1")
997 $ perl_d_fcntl="undef"
999 $ perl_d_fcntl="define"
1002 $ WRITE_RESULT "d_fcntl is ''perl_d_fcntl'"
1008 $ WS "#include <stdlib.h>
1010 $ WS "#include <stdio.h>
1011 $ WS "#include <strings.h>
1015 $ WS "bzero(foo, 10);
1019 $ DEFINE SYS$ERROR _NLA0:
1020 $ DEFINE SYS$OUTPUT _NLA0:
1021 $ on error then continue
1022 $ on warning then continue
1024 $ savedstatus = $status
1025 $ teststatus = f$extract(9,1,savedstatus)
1026 $ if (teststatus.nes."1")
1028 $ perl_d_bzero="undef"
1029 $ DEASSIGN SYS$OUTPUT
1030 $ DEASSIGN SYS$ERROR
1032 $ If (Needs_Opt.eqs."Yes")
1034 $ link temp.obj,temp.opt/opt
1038 $ savedstatus = $status
1039 $ teststatus = f$extract(9,1,savedstatus)
1040 $ DEASSIGN SYS$OUTPUT
1041 $ DEASSIGN SYS$ERROR
1042 $ if (teststatus.nes."1")
1044 $ perl_d_bzero="undef"
1046 $ perl_d_bzero="define"
1049 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
1055 $ WS "#include <stdlib.h>
1057 $ WS "#include <stdio.h>
1058 $ WS "#include <strings.h>
1061 $ WS "char foo[10], bar[10];
1062 $ WS "bcopy(""foo"", bar, 3);
1066 $ DEFINE SYS$ERROR _NLA0:
1067 $ DEFINE SYS$OUTPUT _NLA0:
1068 $ on error then continue
1069 $ on warning then continue
1071 $ savedstatus = $status
1072 $ teststatus = f$extract(9,1,savedstatus)
1073 $ if (teststatus.nes."1")
1075 $ perl_d_bcopy="undef"
1076 $ DEASSIGN SYS$OUTPUT
1077 $ DEASSIGN SYS$ERROR
1079 $ If (Needs_Opt.eqs."Yes")
1081 $ link temp.obj,temp.opt/opt
1085 $ savedstatus = $status
1086 $ teststatus = f$extract(9,1,savedstatus)
1087 $ DEASSIGN SYS$OUTPUT
1088 $ DEASSIGN SYS$ERROR
1089 $ if (teststatus.nes."1")
1091 $ perl_d_bcopy="undef"
1093 $ perl_d_bcopy="define"
1096 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
1098 $! Check for mkstemp
1102 $ WS "#include <stdlib.h>
1104 $ WS "#include <stdio.h>
1107 $ WS "mkstemp(""foo"");
1111 $ DEFINE SYS$ERROR _NLA0:
1112 $ DEFINE SYS$OUTPUT _NLA0:
1113 $ on error then continue
1114 $ on warning then continue
1116 $ If (Needs_Opt.eqs."Yes")
1118 $ link temp.obj,temp.opt/opt
1122 $ savedstatus = $status
1123 $ teststatus = f$extract(9,1,savedstatus)
1124 $ DEASSIGN SYS$OUTPUT
1125 $ DEASSIGN SYS$ERROR
1126 $ if (teststatus.nes."1")
1128 $ perl_d_mkstemp="undef"
1130 $ perl_d_mkstemp="define"
1132 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
1134 $! Check for setvbuf
1138 $ WS "#include <stdlib.h>
1140 $ WS "#include <stdio.h>
1144 $ WS "char Buffer[99];
1145 $ WS "foo = fopen(""foo"", ""r"");
1146 $ WS "setvbuf(foo, Buffer, 0, 0);
1150 $ DEFINE SYS$ERROR _NLA0:
1151 $ DEFINE SYS$OUTPUT _NLA0:
1152 $ on error then continue
1153 $ on warning then continue
1155 $ If (Needs_Opt.eqs."Yes")
1157 $ link temp.obj,temp.opt/opt
1161 $ teststatus = f$extract(9,1,$status)
1162 $ DEASSIGN SYS$OUTPUT
1163 $ DEASSIGN SYS$ERROR
1164 $ if (teststatus.nes."1")
1166 $ perl_d_setvbuf="undef"
1168 $ perl_d_setvbuf="define"
1170 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
1172 $! Check for <netinet/in.h>
1174 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1178 $ WS "#include <stdlib.h>
1180 $ WS "#include <stdio.h>
1181 $ if ("''Has_Socketshr'".eqs."T")
1183 $ WS "#include <socketshr.h>"
1185 $ WS "#include <netdb.h>
1187 $ WS "#include <netinet/in.h>"
1193 $ DEFINE SYS$ERROR _NLA0:
1194 $ DEFINE SYS$OUTPUT _NLA0:
1195 $ on error then continue
1196 $ on warning then continue
1198 $ If (Needs_Opt.eqs."Yes")
1200 $ link temp.obj,temp.opt/opt
1204 $ teststatus = f$extract(9,1,$status)
1205 $ DEASSIGN SYS$OUTPUT
1206 $ DEASSIGN SYS$ERROR
1207 $ if (teststatus.nes."1")
1209 $ perl_i_niin="undef"
1211 $ perl_i_niin="define"
1214 $ perl_i_niin="undef"
1216 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
1218 $! Check for endhostent
1220 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1224 $ WS "#include <stdlib.h>
1226 $ WS "#include <stdio.h>
1227 $ if ("''Has_Socketshr'".eqs."T")
1229 $ WS "#include <socketshr.h>"
1231 $ WS "#include <netdb.h>
1239 $ DEFINE SYS$ERROR _NLA0:
1240 $ DEFINE SYS$OUTPUT _NLA0:
1241 $ on error then continue
1242 $ on warning then continue
1244 $ If (Needs_Opt.eqs."Yes")
1246 $ link temp.obj,temp.opt/opt
1250 $ teststatus = f$extract(9,1,$status)
1251 $ DEASSIGN SYS$OUTPUT
1252 $ DEASSIGN SYS$ERROR
1253 $ if (teststatus.nes."1")
1255 $ perl_d_endhent="undef"
1257 $ perl_d_endhent="define"
1260 $ perl_d_endhent="undef"
1262 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
1264 $! Check for endnetent
1266 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1270 $ WS "#include <stdlib.h>
1272 $ WS "#include <stdio.h>
1273 $ if ("''Has_Socketshr'".eqs."T")
1275 $ WS "#include <socketshr.h>"
1277 $ WS "#include <netdb.h>
1285 $ DEFINE SYS$ERROR _NLA0:
1286 $ DEFINE SYS$OUTPUT _NLA0:
1287 $ on error then continue
1288 $ on warning then continue
1290 $ If (Needs_Opt.eqs."Yes")
1292 $ link temp.obj,temp.opt/opt
1296 $ teststatus = f$extract(9,1,$status)
1297 $ DEASSIGN SYS$OUTPUT
1298 $ DEASSIGN SYS$ERROR
1299 $ if (teststatus.nes."1")
1301 $ perl_d_endnent="undef"
1303 $ perl_d_endnent="define"
1306 $ perl_d_endnent="undef"
1308 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
1310 $! Check for endprotoent
1312 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1316 $ WS "#include <stdlib.h>
1318 $ WS "#include <stdio.h>
1319 $ if ("''Has_Socketshr'".eqs."T")
1321 $ WS "#include <socketshr.h>"
1323 $ WS "#include <netdb.h>
1327 $ WS "endprotoent();
1331 $ DEFINE SYS$ERROR _NLA0:
1332 $ DEFINE SYS$OUTPUT _NLA0:
1333 $ on error then continue
1334 $ on warning then continue
1336 $ If (Needs_Opt.eqs."Yes")
1338 $ link temp.obj,temp.opt/opt
1342 $ teststatus = f$extract(9,1,$status)
1343 $ DEASSIGN SYS$OUTPUT
1344 $ DEASSIGN SYS$ERROR
1345 $ if (teststatus.nes."1")
1347 $ perl_d_endpent="undef"
1349 $ perl_d_endpent="define"
1352 $ perl_d_endpent="undef"
1354 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
1356 $! Check for endservent
1358 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1362 $ WS "#include <stdlib.h>
1364 $ WS "#include <stdio.h>
1365 $ if ("''Has_Socketshr'".eqs."T")
1367 $ WS "#include <socketshr.h>"
1369 $ WS "#include <netdb.h>
1377 $ DEFINE SYS$ERROR _NLA0:
1378 $ DEFINE SYS$OUTPUT _NLA0:
1379 $ on error then continue
1380 $ on warning then continue
1382 $ If (Needs_Opt.eqs."Yes")
1384 $ link temp.obj,temp.opt/opt
1388 $ teststatus = f$extract(9,1,$status)
1389 $ DEASSIGN SYS$OUTPUT
1390 $ DEASSIGN SYS$ERROR
1391 $ if (teststatus.nes."1")
1393 $ perl_d_endsent="undef"
1395 $ perl_d_endsent="define"
1398 $ perl_d_endsent="undef"
1400 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
1402 $! Check for sethostent
1404 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1408 $ WS "#include <stdlib.h>
1410 $ WS "#include <stdio.h>
1411 $ if ("''Has_Socketshr'".eqs."T")
1413 $ WS "#include <socketshr.h>"
1415 $ WS "#include <netdb.h>
1419 $ WS "sethostent(1);
1423 $ DEFINE SYS$ERROR _NLA0:
1424 $ DEFINE SYS$OUTPUT _NLA0:
1425 $ on error then continue
1426 $ on warning then continue
1428 $ If (Needs_Opt.eqs."Yes")
1430 $ link temp.obj,temp.opt/opt
1434 $ teststatus = f$extract(9,1,$status)
1435 $ DEASSIGN SYS$OUTPUT
1436 $ DEASSIGN SYS$ERROR
1437 $ if (teststatus.nes."1")
1439 $ perl_d_sethent="undef"
1441 $ perl_d_sethent="define"
1444 $ perl_d_sethent="undef"
1446 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
1448 $! Check for setnetent
1450 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1454 $ WS "#include <stdlib.h>
1456 $ WS "#include <stdio.h>
1457 $ if ("''Has_Socketshr'".eqs."T")
1459 $ WS "#include <socketshr.h>"
1461 $ WS "#include <netdb.h>
1469 $ DEFINE SYS$ERROR _NLA0:
1470 $ DEFINE SYS$OUTPUT _NLA0:
1471 $ on error then continue
1472 $ on warning then continue
1474 $ If (Needs_Opt.eqs."Yes")
1476 $ link temp.obj,temp.opt/opt
1480 $ teststatus = f$extract(9,1,$status)
1481 $ DEASSIGN SYS$OUTPUT
1482 $ DEASSIGN SYS$ERROR
1483 $ if (teststatus.nes."1")
1485 $ perl_d_setnent="undef"
1487 $ perl_d_setnent="define"
1490 $ perl_d_setnent="undef"
1492 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
1494 $! Check for setprotoent
1496 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1500 $ WS "#include <stdlib.h>
1502 $ WS "#include <stdio.h>
1503 $ if ("''Has_Socketshr'".eqs."T")
1505 $ WS "#include <socketshr.h>"
1507 $ WS "#include <netdb.h>
1511 $ WS "setprotoent(1);
1515 $ DEFINE SYS$ERROR _NLA0:
1516 $ DEFINE SYS$OUTPUT _NLA0:
1517 $ on error then continue
1518 $ on warning then continue
1520 $ If (Needs_Opt.eqs."Yes")
1522 $ link temp.obj,temp.opt/opt
1526 $ teststatus = f$extract(9,1,$status)
1527 $ DEASSIGN SYS$OUTPUT
1528 $ DEASSIGN SYS$ERROR
1529 $ if (teststatus.nes."1")
1531 $ perl_d_setpent="undef"
1533 $ perl_d_setpent="define"
1536 $ perl_d_setpent="undef"
1538 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
1540 $! Check for setservent
1542 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1546 $ WS "#include <stdlib.h>
1548 $ WS "#include <stdio.h>
1549 $ if ("''Has_Socketshr'".eqs."T")
1551 $ WS "#include <socketshr.h>"
1553 $ WS "#include <netdb.h>
1557 $ WS "setservent(1);
1561 $ DEFINE SYS$ERROR _NLA0:
1562 $ DEFINE SYS$OUTPUT _NLA0:
1563 $ on error then continue
1564 $ on warning then continue
1566 $ If (Needs_Opt.eqs."Yes")
1568 $ link temp.obj,temp.opt/opt
1572 $ teststatus = f$extract(9,1,$status)
1573 $ DEASSIGN SYS$OUTPUT
1574 $ DEASSIGN SYS$ERROR
1575 $ if (teststatus.nes."1")
1577 $ perl_d_setsent="undef"
1579 $ perl_d_setsent="define"
1582 $ perl_d_setsent="undef"
1584 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
1586 $! Check for gethostent
1588 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1592 $ WS "#include <stdlib.h>
1594 $ WS "#include <stdio.h>
1595 $ if ("''Has_Socketshr'".eqs."T")
1597 $ WS "#include <socketshr.h>"
1599 $ WS "#include <netdb.h>
1607 $ DEFINE SYS$ERROR _NLA0:
1608 $ DEFINE SYS$OUTPUT _NLA0:
1609 $ on error then continue
1610 $ on warning then continue
1612 $ If (Needs_Opt.eqs."Yes")
1614 $ link temp.obj,temp.opt/opt
1618 $ teststatus = f$extract(9,1,$status)
1619 $ DEASSIGN SYS$OUTPUT
1620 $ DEASSIGN SYS$ERROR
1621 $ if (teststatus.nes."1")
1623 $ perl_d_gethent="undef"
1625 $ perl_d_gethent="define"
1628 $ perl_d_gethent="undef"
1630 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
1632 $! Check for getnetent
1634 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1638 $ WS "#include <stdlib.h>
1640 $ WS "#include <stdio.h>
1641 $ if ("''Has_Socketshr'".eqs."T")
1643 $ WS "#include <socketshr.h>"
1645 $ WS "#include <netdb.h>
1653 $ DEFINE SYS$ERROR _NLA0:
1654 $ DEFINE SYS$OUTPUT _NLA0:
1655 $ on error then continue
1656 $ on warning then continue
1658 $ If (Needs_Opt.eqs."Yes")
1660 $ link temp.obj,temp.opt/opt
1664 $ teststatus = f$extract(9,1,$status)
1665 $ DEASSIGN SYS$OUTPUT
1666 $ DEASSIGN SYS$ERROR
1667 $ if (teststatus.nes."1")
1669 $ perl_d_getnent="undef"
1671 $ perl_d_getnent="define"
1674 $ perl_d_getnent="undef"
1676 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
1678 $! Check for getprotoent
1680 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1684 $ WS "#include <stdlib.h>
1686 $ WS "#include <stdio.h>
1687 $ if ("''Has_Socketshr'".eqs."T")
1689 $ WS "#include <socketshr.h>"
1691 $ WS "#include <netdb.h>
1695 $ WS "getprotoent();
1699 $ DEFINE SYS$ERROR _NLA0:
1700 $ DEFINE SYS$OUTPUT _NLA0:
1701 $ on error then continue
1702 $ on warning then continue
1704 $ If (Needs_Opt.eqs."Yes")
1706 $ link temp.obj,temp.opt/opt
1710 $ teststatus = f$extract(9,1,$status)
1711 $ DEASSIGN SYS$OUTPUT
1712 $ DEASSIGN SYS$ERROR
1713 $ if (teststatus.nes."1")
1715 $ perl_d_getpent="undef"
1717 $ perl_d_getpent="define"
1720 $ perl_d_getpent="undef"
1722 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
1724 $! Check for getservent
1726 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1730 $ WS "#include <stdlib.h>
1732 $ WS "#include <stdio.h>
1733 $ if ("''Has_Socketshr'".eqs."T")
1735 $ WS "#include <socketshr.h>"
1737 $ WS "#include <netdb.h>
1745 $ DEFINE SYS$ERROR _NLA0:
1746 $ DEFINE SYS$OUTPUT _NLA0:
1747 $ on error then continue
1748 $ on warning then continue
1750 $ If (Needs_Opt.eqs."Yes")
1752 $ link temp.obj,temp.opt/opt
1756 $ teststatus = f$extract(9,1,$status)
1757 $ DEASSIGN SYS$OUTPUT
1758 $ DEASSIGN SYS$ERROR
1759 $ if (teststatus.nes."1")
1761 $ perl_d_getsent="undef"
1763 $ perl_d_getsent="define"
1766 $ perl_d_getsent="undef"
1768 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
1770 $! Check for pthread_yield
1772 $ if ("''use_threads'".eqs."T")
1776 $ WS "#include <stdlib.h>
1778 $ WS "#include <pthread.h>
1779 $ WS "#include <stdio.h>
1782 $ WS "pthread_yield();
1786 $ DEFINE SYS$ERROR _NLA0:
1787 $ DEFINE SYS$OUTPUT _NLA0:
1788 $ on error then continue
1789 $ on warning then continue
1791 $ teststatus = f$extract(9,1,$status)
1792 $ DEASSIGN SYS$OUTPUT
1793 $ DEASSIGN SYS$ERROR
1794 $ if (teststatus.nes."1")
1796 $ perl_d_pthread_yield="undef"
1798 $ perl_d_pthread_yield="define"
1801 $ perl_d_pthread_yield="undef"
1803 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
1805 $! Check for sched_yield
1807 $ if ("''use_threads'".eqs."T")
1811 $ WS "#include <stdlib.h>
1813 $ WS "#include <pthread.h>
1814 $ WS "#include <stdio.h>
1817 $ WS "sched_yield();
1821 $ DEFINE SYS$ERROR _NLA0:
1822 $ DEFINE SYS$OUTPUT _NLA0:
1823 $ on error then continue
1824 $ on warning then continue
1826 $ teststatus = f$extract(9,1,$status)
1827 $ DEASSIGN SYS$OUTPUT
1828 $ DEASSIGN SYS$ERROR
1829 $ if (teststatus.nes."1")
1831 $ perl_d_sched_yield="undef"
1833 $ perl_d_sched_yield="define"
1836 $ perl_d_sched_yield="undef"
1838 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
1840 $! Check for generic pointer size
1844 $ WS "#include <stdlib.h>
1846 $ WS "#include <stdio.h>
1850 $ WS "foo = sizeof(char *);
1851 $ WS "printf(""%d\n"", foo);
1855 $! copy temp.c sys$output
1857 $ DEFINE SYS$ERROR _NLA0:
1858 $ DEFINE SYS$OUTPUT _NLA0:
1859 $ ON ERROR THEN CONTINUE
1860 $ ON WARNING THEN CONTINUE
1862 $ If (Needs_Opt.eqs."Yes")
1864 $ link temp.obj,temp.opt/opt
1868 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
1869 $ DEASSIGN SYS$OUTPUT
1870 $ DEASSIGN SYS$ERROR
1871 $ DEFINE SYS$ERROR TEMPOUT
1872 $ DEFINE SYS$OUTPUT TEMPOUT
1875 $ DEASSIGN SYS$OUTPUT
1876 $ DEASSIGN SYS$ERROR
1877 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
1882 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
1885 $! Done with compiler checks. Clean up.
1886 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
1887 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
1888 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
1889 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
1892 $! Some that are compiler or VMS version sensitive
1895 $ IF "''Using_Gnu_C'".EQS."Yes"
1897 $ perl_d_attribut="define"
1898 $ perl_vms_cc_type="gcc"
1900 $ perl_d_attribut="undef"
1903 $! Dec C >= 5.2 and VMS ver >= 7.0
1904 $ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
1906 $ perl_d_bcmp="define"
1907 $ perl_d_gettimeod="define"
1908 $ perl_d_uname="define"
1909 $ perl_d_sigaction="define"
1910 $ perl_d_truncate="define"
1911 $ perl_d_wait4="define"
1912 $ perl_d_index="define"
1913 $ perl_pidtype="pid_t"
1914 $ 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"
1915 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
1916 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
1917 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
1918 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
1919 $ 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"
1920 $ perl_sig_num_init="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"
1921 $ perl_sig_num_with_commas=perl_sig_num_init
1922 $ perl_uidtype="uid_t"
1923 $ perl_d_pathconf="define"
1924 $ perl_d_fpathconf="define"
1925 $ perl_d_sysconf="define"
1926 $ perl_d_sigsetjmp="define"
1928 $ perl_pidtype="unsigned int"
1929 $ perl_d_gettimeod="undef"
1930 $ perl_d_bcmp="undef"
1931 $ perl_d_uname="undef"
1932 $ perl_d_sigaction="undef"
1933 $ perl_d_truncate="undef"
1934 $ perl_d_wait4="undef"
1935 $ perl_d_index="undef"
1936 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
1937 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
1938 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
1939 $ perl_sig_name_with_commas = psnwc1 + psnwc2
1940 $ perl_sig_num="0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 6 16 17"",0"
1941 $ perl_sig_num_init="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
1942 $ perl_sig_num_with_commas=perl_sig_num_init
1943 $ perl_uidtype="unsigned int"
1944 $ perl_d_pathconf="undef"
1945 $ perl_d_fpathconf="undef"
1946 $ perl_d_sysconf="undef"
1947 $ perl_d_sigsetjmp="undef"
1951 $ IF ("''Using_Dec_C'".EQS."Yes")
1953 $ perl_d_mbstowcs="define"
1954 $ perl_d_mbtowc="define"
1955 $ perl_d_stdiobase="define"
1956 $ perl_d_stdio_ptr_lval="define"
1957 $ perl_d_stdio_cnt_lval="define"
1958 $ perl_d_stdstdio="define"
1959 $ perl_d_wcstombs="define"
1960 $ perl_d_mblen="define"
1961 $ perl_d_mktime="define"
1962 $ perl_d_strcoll="define"
1963 $ perl_d_strxfrm="define"
1964 $ perl_d_wctomb="define"
1965 $ perl_i_locale="define"
1966 $ perl_d_locconv="define"
1967 $ perl_d_setlocale="define"
1968 $ perl_vms_cc_type="decc"
1970 $ perl_d_mbstowcs="undef"
1971 $ perl_d_mbtowc="undef"
1972 $ perl_d_stdiobase="undef"
1973 $ perl_d_stdio_ptr_lval="undef"
1974 $ perl_d_stdio_cnt_lval="undef"
1975 $ perl_d_stdstdio="undef"
1976 $ perl_d_wcstombs="undef"
1977 $ perl_d_mblen="undef"
1978 $ perl_d_mktime="undef"
1979 $ perl_d_strcoll="undef"
1980 $ perl_d_strxfrm="undef"
1981 $ perl_d_wctomb="undef"
1982 $ perl_i_locale="undef"
1983 $ perl_d_locconv="undef"
1984 $ perl_d_setlocale="undef"
1988 $ if ("''Using_Vax_C'".EQS."Yes")
1990 $ perl_vms_cc_type="vaxc"
1995 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
1997 $ perl_d_vms_do_sockets="define"
1998 $ perl_d_htonl="define"
1999 $ perl_d_socket="define"
2000 $ perl_d_select="define"
2001 $ perl_netdb_host_type="char *"
2002 $ perl_netdb_hlen_type="int"
2003 $ perl_netdb_name_type="char *"
2004 $ perl_netdb_net_type="long"
2005 $ perl_d_gethbyaddr="define"
2006 $ perl_d_gethbyname="define"
2007 $ perl_d_getnbyaddr="define"
2008 $ perl_d_getnbyname="define"
2009 $ perl_d_getpbynumber="define"
2010 $ perl_d_getpbyname="define"
2011 $ perl_d_getsbyport="define"
2012 $ perl_d_getsbyname="define"
2013 $ perl_d_gethostprotos="define"
2014 $ perl_d_getnetprotos="define"
2015 $ perl_d_getprotoprotos="define"
2016 $ perl_d_getservprotos="define"
2018 $ perl_d_vms_do_sockets="undef"
2019 $ perl_d_htonl="undef"
2020 $ perl_d_socket="undef"
2021 $ perl_d_select="undef"
2022 $ perl_netdb_host_type="char *"
2023 $ perl_netdb_hlen_type="int"
2024 $ perl_netdb_name_type="char *"
2025 $ perl_netdb_net_type="long"
2026 $ perl_d_gethbyaddr="undef"
2027 $ perl_d_gethbyname="undef"
2028 $ perl_d_getnbyaddr="undef"
2029 $ perl_d_getnbyname="undef"
2030 $ perl_d_getpbynumber="undef"
2031 $ perl_d_getpbyname="undef"
2032 $ perl_d_getsbyport="undef"
2033 $ perl_d_getsbyname="undef"
2034 $ perl_d_gethostprotos="undef"
2035 $ perl_d_getnetprotos="undef"
2036 $ perl_d_getprotoprotos="undef"
2037 $ perl_d_getservprotos="undef"
2040 $ if ("''use_threads'".eqs."T")
2042 $ perl_usethreads="define"
2043 $ perl_d_pthreads_created_joinable="define"
2044 $ if ("''VMS_VER'".ges."7.0")
2046 $ perl_d_oldpthreads="undef"
2048 $ perl_d_oldpthreads="define"
2051 $ perl_d_oldpthreads="undef"
2052 $ perl_usethreads="undef"
2054 $ perl_d_pthreads_created_joinable="undef"
2058 $! Finally the composite ones. All config
2059 $ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
2060 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
2061 $ perl_myhostname="''myhostname'"
2062 $ perl_mydomain="''mydomain'"
2063 $ perl_perladmin="''perladmin'"
2064 $ perl_cf_email="''cf_email'"
2065 $ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
2066 $ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
2067 $ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
2068 $ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
2069 $ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
2070 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
2071 $ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
2072 $ if "''Using_Dec_C'" .eqs. "Yes"
2074 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
2076 $ IF "''Using_Vax_C'" .eqs. "Yes"
2078 $ perl_ccflags="/Include=[]/Obj=''perl_obj_ext'/NoList''cc_flags'"
2082 $! Finally clean off any leading zeros from the patchlevel or subversion
2083 $ perl_patchlevel = perl_patchlevel + 0
2084 $ perl_subversion = perl_subversion + 0
2086 $! Okay, we've got everything configured. Now go write out a config.sh.
2087 $ open/write CONFIGSH [-]config.sh
2088 $ WC := "write CONFIGSH"
2090 $ WC "# This file generated by Configure.COM on a VMS system."
2091 $ WC "# Time: " + perl_cf_time
2093 $ WC "package='" + perl_package + "'"
2094 $ WC "CONFIG='" + perl_config + "'"
2095 $ WC "cf_time='" + perl_cf_time + "'"
2096 $ WC "cf_by='" + perl_cf_by+ "'"
2097 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
2098 $ WC "ccdlflags='" + perl_ccdlflags + "'"
2099 $ WC "cccdlflags='" + perl_cccdlflags + "'"
2100 $ WC "mab='" + perl_mab + "'"
2101 $ WC "libpth='" + perl_libpth + "'"
2102 $ WC "ld='" + perl_ld + "'"
2103 $ WC "lddlflags='" + perl_lddlflags + "'"
2104 $ WC "ranlib='" + perl_ranlib + "'"
2105 $ WC "ar='" + perl_ar + "'"
2106 $ WC "eunicefix='" + perl_eunicefix + "'"
2107 $ WC "hint='" + perl_hint +"'"
2108 $ WC "hintfile='" + perl_hintfile + "'"
2109 $ WC "shrplib='" + perl_shrplib + "'"
2110 $ WC "usemymalloc='" + perl_usemymalloc + "'"
2111 $ WC "usevfork='" + perl_usevfork + "'"
2112 $ WC "useposix='false'"
2113 $ WC "spitshell='write sys$output '"
2114 $ WC "dlsrc='dl_vms.c'"
2115 $ WC "binexp='" + perl_binexp + "'"
2116 $ WC "man1ext='" + perl_man1ext + "'"
2117 $ WC "man3ext='" + perl_man3ext + "'"
2118 $ WC "arch='" + perl_arch + "'"
2119 $ WC "archname='" + perl_archname + "'"
2120 $ WC "osvers='" + perl_osvers + "'"
2121 $ WC "prefix='" + perl_prefix + "'"
2122 $ WC "builddir='" + perl_builddir + "'"
2123 $ WC "installbin='" + perl_installbin + "'"
2124 $ WC "installscript='" + perl_installscript + "'"
2125 $ WC "installman1dir='" + perl_installman1dir + "'"
2126 $ WC "installman3dir='" + perl_installman3dir + "'"
2127 $ WC "installprivlib='" + perl_installprivlib + "'"
2128 $ WC "installarchlib='" + perl_installarchlib + "'"
2129 $ WC "installsitelib='" + perl_installsitelib + "'"
2130 $ WC "installsitearch='" + perl_installsitearch + "'"
2131 $ WC "path_sep='" + perl_path_sep + "'"
2132 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
2133 $ WC "d_attribut='" + perl_d_attribut + "'"
2134 $ WC "cc='" + perl_cc + "'"
2135 $ WC "ccflags='" + perl_ccflags + "'"
2136 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
2137 $ WC "d_socket='" + perl_d_socket + "'"
2138 $ WC "d_sockpair='" + perl_d_sockpair + "'"
2139 $ WC "d_gethent='" + perl_d_gethent + "'"
2140 $ WC "d_getsent='" + perl_d_getsent + "'"
2141 $ WC "d_select='" + perl_d_select + "'"
2142 $ WC "i_niin='" + perl_i_niin + "'"
2143 $ WC "i_neterrno='" + perl_i_neterrno + "'"
2144 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
2145 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
2146 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
2147 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
2148 $ WC "d_locconv='" + perl_d_locconv + "'"
2149 $ WC "d_setlocale='" + perl_d_setlocale + "'"
2150 $ WC "i_locale='" + perl_i_locale + "'"
2151 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
2152 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
2153 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
2154 $ WC "d_wctomb='" + perl_d_wctomb + "'"
2155 $ WC "d_mblen='" + perl_d_mblen + "'"
2156 $ WC "d_mktime='" + perl_d_mktime + "'"
2157 $ WC "d_strcoll='" + perl_d_strcoll + "'"
2158 $ WC "d_strxfrm='" + perl_d_strxfrm + "'"
2159 $ WC "ldflags='" + perl_ldflags + "'"
2160 $ WC "dlobj='" + perl_dlobj + "'"
2161 $ WC "obj_ext='" + perl_obj_ext + "'"
2162 $ WC "so='" + perl_so + "'"
2163 $ WC "dlext='" + perl_dlext + "'"
2164 $ WC "exe_ext='" + perl_exe_ext + "'"
2165 $ WC "lib_ext='" + perl_lib_ext + "'"
2166 $ WC "myhostname='" + perl_myhostname + "'"
2167 $ WC "mydomain='" + perl_mydomain + "'"
2168 $ WC "perladmin='" + perl_perladmin + "'"
2169 $ WC "cf_email='" + perl_cf_email + "'"
2170 $ WC "myuname='" + perl_myuname + "'"
2171 $ WC "alignbytes='" + perl_alignbytes + "'"
2172 $ WC "osname='" + perl_osname + "'"
2173 $ WC "d_archlib='" + perl_d_archlib + "'"
2174 $ WC "archlibexp='" + perl_archlibexp + "'"
2175 $ WC "archlib='" + perl_archlib + "'"
2176 $ WC "archname='" + perl_archname + "'"
2177 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
2178 $ WC "cppstdin='" + perl_cppstdin + "'"
2179 $ WC "cppminus='" + perl_cppminus + "'"
2180 $ WC "d_bcmp='" + perl_d_bcmp + "'"
2181 $ WC "d_bcopy='" + perl_d_bcopy + "'"
2182 $ WC "d_bzero='" + perl_d_bzero + "'"
2183 $ WC "d_castneg='" + perl_d_castneg + "'"
2184 $ WC "castflags='" + perl_castflags + "'"
2185 $ WC "d_chsize='" + perl_d_chsize + "'"
2186 $ WC "d_const='" + perl_d_const + "'"
2187 $ WC "d_crypt='" + perl_d_crypt + "'"
2188 $ WC "byteorder='" + perl_byteorder + "'"
2189 $ WC "full_csh='" + perl_full_csh + "'"
2190 $ WC "d_csh='" + perl_d_csh + "'"
2191 $ WC "d_dup2='" + perl_d_dup2 + "'"
2192 $ WC "d_fchmod='" + perl_d_fchmod + "'"
2193 $ WC "d_fchown='" + perl_d_fchown + "'"
2194 $ WC "d_fcntl='" + perl_d_fcntl + "'"
2195 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
2196 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
2197 $ WC "d_flock='" + perl_d_flock + "'"
2198 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
2199 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
2200 $ WC "d_getgrps='" + perl_d_getgrps + "'"
2201 $ WC "d_setgrps='" + perl_d_setgrps + "'"
2202 $ WC "d_uname='" + perl_d_uname + "'"
2203 $ WC "d_getprior='" + perl_d_getprior + "'"
2204 $ WC "d_killpg='" + perl_d_killpg + "'"
2205 $ WC "d_link='" + perl_d_link + "'"
2206 $ WC "d_lstat='" + perl_d_lstat + "'"
2207 $ WC "d_lockf='" + perl_d_lockf + "'"
2208 $ WC "d_memcmp='" + perl_d_memcmp + "'"
2209 $ WC "d_memcpy='" + perl_d_memcpy + "'"
2210 $ WC "d_memmove='" + perl_d_memmove + "'"
2211 $ WC "d_memset='" + perl_d_memset + "'"
2212 $ WC "d_mkdir='" + perl_d_mkdir + "'"
2213 $ WC "d_msg='" + perl_d_msg + "'"
2214 $ WC "d_open3='" + perl_d_open3 + "'"
2215 $ WC "d_poll='" + perl_d_poll + "'"
2216 $ WC "d_readdir='" + perl_d_readdir + "'"
2217 $ WC "d_seekdir='" + perl_d_seekdir + "'"
2218 $ WC "d_telldir='" + perl_d_telldir + "'"
2219 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
2220 $ WC "d_rename='" + perl_d_rename + "'"
2221 $ WC "d_rmdir='" + perl_d_rmdir + "'"
2222 $ WC "d_sem='" + perl_d_sem + "'"
2223 $ WC "d_setegid='" + perl_d_setegid + "'"
2224 $ WC "d_seteuid='" + perl_d_seteuid + "'"
2225 $ WC "d_setprior='" + perl_d_setprior + "'"
2226 $ WC "d_setregid='" + perl_d_setregid + "'"
2227 $ WC "d_setresgid='" + perl_d_setresgid + "'"
2228 $ WC "d_setreuid='" + perl_d_setreuid + "'"
2229 $ WC "d_setresuid='" + perl_d_setresuid + "'"
2230 $ WC "d_setrgid='" + perl_d_setrgid + "'"
2231 $ WC "d_setruid='" + perl_d_setruid + "'"
2232 $ WC "d_setsid='" + perl_d_setsid + "'"
2233 $ WC "d_shm='" + perl_d_shm + "'"
2234 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
2235 $ WC "d_sigaction='" + perl_d_sigaction + "'"
2236 $ WC "d_statblks='" + perl_d_statblks + "'"
2237 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
2238 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
2239 $ WC "stdio_base='" + perl_stdio_base + "'"
2240 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
2241 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
2242 $ WC "d_strerror='" + perl_d_strerror + "'"
2243 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
2244 $ WC "d_strerrm='" + perl_d_strerrm + "'"
2245 $ WC "d_symlink='" + perl_d_symlink + "'"
2246 $ WC "d_syscall='" + perl_d_syscall + "'"
2247 $ WC "d_system='" + perl_d_system + "'"
2248 $ WC "timetype='" + perl_timetype + "'"
2249 $ WC "d_truncate='" + perl_d_truncate + "'"
2250 $ WC "d_vfork='" + perl_d_vfork + "'"
2251 $ WC "signal_t='" + perl_signal_t + "'"
2252 $ WC "d_volatile='" + perl_d_volatile + "'"
2253 $ WC "d_vprintf='" + perl_d_vprintf + "'"
2254 $ WC "d_charvspr='" + perl_d_charvspr + "'"
2255 $ WC "d_wait4='" + perl_d_wait4 + "'"
2256 $ WC "d_waitpid='" + perl_d_waitpid + "'"
2257 $ WC "i_dirent='" + perl_i_dirent + "'"
2258 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
2259 $ WC "direntrytype='" + perl_direntrytype + "'"
2260 $ WC "i_fcntl='" + perl_i_fcntl + "'"
2261 $ WC "i_grp='" + perl_i_grp + "'"
2262 $ WC "i_limits='" + perl_i_limits + "'"
2263 $ WC "i_memory='" + perl_i_memory + "'"
2264 $ WC "i_ndbm='" + perl_i_ndbm + "'"
2265 $ WC "i_stdarg='" + perl_i_stdarg + "'"
2266 $ WC "i_pwd='" + perl_i_pwd + "'"
2267 $ WC "d_pwquota='" + perl_d_pwquota + "'"
2268 $ WC "d_pwage='" + perl_d_pwage + "'"
2269 $ WC "d_pwchange='" + perl_d_pwchange + "'"
2270 $ WC "d_pwclass='" + perl_d_pwclass + "'"
2271 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
2272 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
2273 $ WC "i_stddef='" + perl_i_stddef + "'"
2274 $ WC "i_stdlib='" + perl_i_stdlib + "'"
2275 $ WC "i_string='" + perl_i_string + "'"
2276 $ WC "i_sysdir='" + perl_i_sysdir + "'"
2277 $ WC "i_sysfile='" + perl_i_sysfile + "'"
2278 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
2279 $ WC "i_sysndir='" + perl_i_sysndir + "'"
2280 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
2281 $ WC "i_sysselct='" + perl_i_sysselct + "'"
2282 $ WC "i_dbm='" + perl_i_dbm + "'"
2283 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
2284 $ WC "i_sfio='" + perl_i_sfio + "'"
2285 $ WC "i_sysstat='" + perl_i_sysstat + "'"
2286 $ WC "i_systimes='" + perl_i_systimes + "'"
2287 $ WC "i_systypes='" + perl_i_systypes + "'"
2288 $ WC "i_sysun='" + perl_i_sysun + "'"
2289 $ WC "i_syswait='" + perl_i_syswait + "'"
2290 $ WC "i_termio='" + perl_i_termio + "'"
2291 $ WC "i_sgtty='" + perl_i_sgtty + "'"
2292 $ WC "i_termios='" + perl_i_termios + "'"
2293 $ WC "i_time='" + perl_i_time + "'"
2294 $ WC "i_systime='" + perl_i_systime + "'"
2295 $ WC "i_systimek='" + perl_i_systimek + "'"
2296 $ WC "i_unistd='" + perl_i_unistd + "'"
2297 $ WC "i_utime='" + perl_i_utime + "'"
2298 $ WC "i_varargs='" + perl_i_varargs + "'"
2299 $ WC "i_vfork='" + perl_i_vfork + "'"
2300 $ WC "prototype='" + perl_prototype + "'"
2301 $ WC "randbits='" + perl_randbits +"'"
2302 $ WC "selecttype='" + perl_selecttype + "'"
2303 $ WC "stdchar='" + perl_stdchar + "'"
2304 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
2305 $ WC "full_sed='" + perl_full_sed + "'"
2306 $ WC "bin='" + perl_bin + "'"
2307 $ WC "binexp='" + perl_binexp + "'"
2308 $ WC "d_alarm='" + perl_d_alarm + "'"
2309 $ WC "d_casti32='" + perl_d_casti32 + "'"
2310 $ WC "d_chown='" + perl_d_chown + "'"
2311 $ WC "d_chroot='" + perl_d_chroot + "'"
2312 $ WC "d_cuserid='" + perl_d_cuserid + "'"
2313 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
2314 $ WC "d_difftime='" + perl_d_difftime + "'"
2315 $ WC "d_fork='" + perl_d_fork + "'"
2316 $ WC "d_getlogin='" + perl_d_getlogin + "'"
2317 $ WC "d_getppid='" + perl_d_getppid + "'"
2318 $ WC "d_htonl='" + perl_d_htonl + "'"
2319 $ WC "d_nice='" + perl_d_nice + "'"
2320 $ WC "d_pause='" + perl_d_pause + "'"
2321 $ WC "d_pipe='" + perl_d_pipe + "'"
2322 $ WC "d_readlink='" + perl_d_readlink + "'"
2323 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
2324 $ WC "d_strchr='" + perl_d_strchr + "'"
2325 $ WC "d_index='" + perl_d_index + "'"
2326 $ WC "d_strtod='" + perl_d_strtod + "'"
2327 $ WC "d_strtol='" + perl_d_strtol + "'"
2328 $ WC "d_strtoul='" + perl_d_strtoul + "'"
2329 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
2330 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
2331 $ WC "d_times='" + perl_d_times + "'"
2332 $ WC "d_tzname='" + perl_d_tzname + "'"
2333 $ WC "d_umask='" + perl_d_umask + "'"
2334 $ WC "fpostype='" + perl_fpostype + "'"
2335 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
2336 $ WC "i_float='" + perl_i_float + "'"
2337 $ WC "i_math='" + perl_i_math + "'"
2338 $ WC "intsize='" + perl_intsize + "'"
2339 $ WC "longsize='" + perl_longsize + "'"
2340 $ WC "shortsize='" + perl_shortsize + "'"
2341 $ WC "lseektype='" + perl_lseektype + "'"
2342 $ WC "i_values='" + perl_i_values + "'"
2343 $ WC "malloctype='" + perl_malloctype + "'"
2344 $ WC "freetype='" + perl_freetype + "'"
2345 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
2346 $ WC "sh='" + perl_sh + "'"
2347 $ WC "sig_name='" + perl_sig_name + "'"
2348 $ WC "sig_num='" + perl_sig_num + "'"
2349 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
2351 $ WC "modetype='" + perl_modetype + "'"
2352 $ WC "ssizetype='" + perl_ssizetype + "'"
2353 $ WC "o_nonblock='" + perl_o_nonblock + "'"
2354 $ WC "eagain='" + perl_eagain + "'"
2355 $ WC "rd_nodata='" + perl_rd_nodata + "'"
2356 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
2357 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
2358 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
2359 $ WC "oldarchlib='" + perl_oldarchlib + "'"
2360 $ WC "privlibexp='" + perl_privlibexp + "'"
2361 $ WC "privlib='" + perl_privlib + "'"
2362 $ WC "sitelibexp='" + perl_sitelibexp + "'"
2363 $ WC "sitelib='" + perl_sitelib + "'"
2364 $ WC "sitearchexp='" + perl_sitearchexp + "'"
2365 $ WC "sitearch='" + perl_sitearch + "'"
2366 $ WC "sizetype='" + perl_sizetype + "'"
2367 $ WC "i_sysparam='" + perl_i_sysparam + "'"
2368 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
2369 $ WC "d_dlerror='" + perl_d_dlerror + "'"
2370 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
2371 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
2372 $ WC "d_dosuid='" + perl_d_dosuid + "'"
2373 $ WC "d_inetaton='" + perl_d_inetaton + "'"
2374 $ WC "d_isascii='" + perl_d_isascii + "'"
2375 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
2376 $ WC "d_pathconf='" + perl_d_pathconf + "'"
2377 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
2378 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
2379 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
2380 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
2381 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
2382 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
2383 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
2384 $ WC "d_setpgid='" + perl_d_setpgid + "'"
2385 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
2386 $ WC "d_sysconf='" + perl_d_sysconf + "'"
2387 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
2388 $ WC "d_getpgid='" + perl_d_getpgid + "'"
2389 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
2390 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
2391 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
2392 $ WC "d_sfio='" + perl_d_sfio + "'"
2393 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
2394 $ WC "usedl='" + perl_usedl + "'"
2395 $ WC "startperl=" + perl_startperl ! This one's special--no enclosing single quotes
2396 $ WC "db_hashtype='" + perl_db_hashtype + "'"
2397 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
2398 $ WC "useperlio='" + perl_useperlio + "'"
2399 $ WC "defvoidused='" + perl_defvoidused + "'"
2400 $ WC "voidflags='" + perl_voidflags + "'"
2401 $ WC "d_eunice='" + perl_d_eunice + "'"
2402 $ WC "libs='" + perl_libs + "'"
2403 $ WC "libc='" + perl_libc + "'"
2404 $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
2406 $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
2408 $ WC "pager='" + perl_pager + "'"
2409 $ WC "uidtype='" + perl_uidtype + "'"
2410 $ WC "gidtype='" + perl_gidtype + "'"
2411 $ WC "usethreads='" + perl_usethreads + "'"
2412 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
2413 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
2414 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
2415 $ WC "i_netdb='" + perl_i_netdb + "'"
2416 $ WC "pidtype='" + perl_pidtype + "'"
2417 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
2418 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
2419 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
2420 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
2421 $ WC "baserev='" + perl_baserev + "'"
2422 $ WC "doublesize='" + perl_doublesize + "'"
2423 $ WC "ptrsize='" + perl_ptrsize + "'"
2424 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
2425 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
2426 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
2427 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
2428 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
2429 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
2430 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
2431 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
2432 $ WC "d_sethent='" + perl_d_sethent + "'"
2433 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
2434 $ WC "d_longdbl='" + perl_d_longdbl + "'"
2435 $ WC "longdblsize='" + perl_longdblsize + "'"
2436 $ WC "d_longlong='" + perl_d_longlong + "'"
2437 $ WC "longlongsize='" + perl_longlongsize + "'"
2438 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
2439 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
2440 $ WC "d_endhent='" + perl_d_endhent + "'"
2441 $ WC "d_endnent='" + perl_d_endsent + "'"
2442 $ WC "d_endpent='" + perl_d_endpent + "'"
2443 $ WC "d_endsent='" + perl_d_endsent + "'"
2444 $ WC "d_gethent='" + perl_d_gethent + "'"
2445 $ WC "d_getnent='" + perl_d_getsent + "'"
2446 $ WC "d_getpent='" + perl_d_getpent + "'"
2447 $ WC "d_getsent='" + perl_d_getsent + "'"
2448 $ WC "d_sethent='" + perl_d_sethent + "'"
2449 $ WC "d_setnent='" + perl_d_setsent + "'"
2450 $ WC "d_setpent='" + perl_d_setpent + "'"
2451 $ WC "ebcdic='" + perl_ebcdic + "'"
2452 $ WC "d_setsent='" + perl_d_setsent + "'"
2453 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
2454 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
2455 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
2456 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
2457 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
2458 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
2459 $ WC "d_lchown='" + perl_d_lchown + "'"
2460 $ WC "d_union_semun='" + perl_d_union_semun + "'"
2461 $ WC "i_arpainet='" + perl_i_arpainet + "'"
2462 $ WC "d_grpasswd='" + perl_d_grpasswd + "'"
2463 $ WC "d_setgrent='" + perl_d_setgrent + "'"
2464 $ WC "d_getgrent='" + perl_d_getgrent + "'"
2465 $ WC "d_endgrent='" + perl_d_endgrent + "'"
2466 $ WC "d_pwpasswd='" + perl_d_pwpasswd + "'"
2467 $ WC "d_setpwent='" + perl_d_setpwent + "'"
2468 $ WC "d_getpwent='" + perl_d_getpwent + "'"
2469 $ WC "d_endpwent='" + perl_d_endpwent + "'"
2470 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
2471 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
2472 $ WC "extensions='" + perl_extensions + "'"
2473 $ WC "d_mknod='" + perl_d_mknod + "'"
2474 $ WC "devtype='" + perl_devtype + "'"
2476 $! ##WRITE NEW CONSTANTS HERE##
2480 $! Okay, we've gotten here. Build munchconfig and run it
2481 $ 'Perl_CC' munchconfig.c
2482 $ If (Needs_Opt.eqs."Yes")
2484 $ open/write OPTCHAN []munchconfig.opt
2485 $ IF ("''using_gnu_c'".eqs."Yes")
2487 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
2489 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
2491 $ link munchconfig.obj,munchconfig.opt/opt
2492 $ delete munchconfig.opt;*
2494 $ link munchconfig.obj
2496 $ WRITE_RESULT "Writing config.h"
2498 $ ! we need an fdl file
2499 $ CREATE [-]CONFIG.FDL
2502 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
2503 $ ! First spit out the header info with the local defines (to get
2504 $ ! around the 255 character command line limit)
2505 $ OPEN/APPEND CONFIG [-]config.local
2506 $ if use_debugging_perl.eqs."Y"
2508 $ WRITE CONFIG "#define DEBUGGING"
2510 $ if preload_env.eqs."Y"
2512 $ WRITE CONFIG "#define PRIME_ENV_AT_STARTUP"
2514 $ if use_two_pot_malloc.eqs."Y"
2516 $ WRITE CONFIG "#define TWO_POT_OPTIMIZE"
2518 $ if mymalloc.eqs."Y"
2520 $ WRITE CONFIG "#define EMBEDMYMALLOC"
2522 $ if use_pack_malloc.eqs."Y"
2524 $ WRITE CONFIG "#define PACK_MALLOC"
2526 $ if use_debugmalloc.eqs."Y"
2528 $ write config "#define DEBUGGING_MSTATS"
2530 $ if "''Using_Gnu_C'" .eqs."Yes"
2532 $ WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
2534 $ if "''Has_Dec_C_Sockets'".eqs."T"
2536 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
2537 $ WRITE CONFIG "#define DECCRTL_SOCKETS"
2539 $ if "''Has_Socketshr'".eqs."T"
2541 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
2545 $! Now build the normal config.h
2546 $ define/user sys$output [-]config.main
2547 $ mcr []munchconfig [-]config.sh [-]config_h.sh
2548 $ ! Concatenate them together
2549 $ copy [-]config.local,[-]config.main [-]config.h
2551 $ DELETE/NOLOG [-]CONFIG.MAIN;*
2552 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
2553 $ DELETE/NOLOG [-]CONFIG.FDL;*
2555 $ if "''Using_Dec_C'" .eqs."Yes"
2557 $ DECC_REPLACE = "DECC=decc=1"
2559 $ DECC_REPLACE = "DECC="
2561 $ if "''Using_Gnu_C'" .eqs."Yes"
2563 $ GNUC_REPLACE = "GNUC=gnuc=1"
2565 $ GNUC_REPLACE = "GNUC="
2567 $ if "''Has_Dec_C_Sockets'" .eqs."T"
2569 $ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
2571 $ if "''Has_Socketshr'" .eqs."T"
2573 $ SOCKET_REPLACE = "SOCKET=SOCKETSHR_SOCKETS=1"
2575 $ SOCKET_REPLACE = "SOCKET="
2578 $ IF ("''Use_Threads'".eqs."T")
2580 $ if ("''VMS_VER'".LES."6.2")
2582 $ THREAD_REPLACE = "THREAD=OLDTHREADED=1"
2584 $ THREAD_REPLACE = "THREAD=THREADED=1"
2587 $ THREAD_REPLACE = "THREAD="
2589 $ if mymalloc.eqs."Y"
2591 $ MALLOC_REPLACE = "MALLOC=MALLOC=1"
2593 $ MALLOC_REPLACE = "MALLOC="
2595 $ if f$getsyi("HW_MODEL").ge.1024
2597 $ ARCH_TYPE = "ARCH-TYPE=__AXP__"
2599 $ ARCH_TYPE = "ARCH-TYPE=__VAX__"
2601 $ WRITE_RESULT "Writing DESCRIP.MMS"
2603 $ define/user sys$output [-]descrip.mms
2604 $ 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'"
2607 $! Clean up after ourselves
2608 $ delete/nolog munchconfig.exe;*
2609 $ delete/nolog munchconfig.obj;*