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 $ echo = "Write Sys$Output "
34 $ Dec_C_Version := "''Dec_C_Version'"
35 $ Dec_C_Version = Dec_C_Version + 0
36 $ Vms_Ver := "''f$extract(1,3, f$getsyi(""version""))'"
37 $ perl_extensions := "''extensions'"
38 $ if f$length(Mcc) .eq. 0 then Mcc := "cc"
39 $ MCC = f$edit(mcc, "UPCASE")
42 $ C_Compiler_Replace := "CC="
44 $ C_Compiler_Replace := "CC=CC=''Mcc'"
46 $ if "''Using_Dec_C'" .eqs. "Yes"
48 $ Checkcc := "''Mcc'/prefix=all"
53 $ if use_multiplicity .eqs. "Y"
55 $ perl_usemultiplicity = "define"
57 $ perl_usemultiplicity = "undef"
59 $! Some constant defaults.
61 $ hwname = f$getsyi("HW_NAME")
63 $ if "''myname'" .eqs. "" THEN myname = f$trnlnm("SYS$NODE")
65 $! ##ADD NEW CONSTANTS HERE##
66 $ perl_d_madvise="undef"
67 $ perl_d_msync="undef"
68 $ perl_d_mprotect="undef"
69 $ perl_d_munmap="undef"
70 $ perl_crosscompile="undef"
71 $ perl_multiarch="undef"
73 $ perl_i_sysmman="undef"
74 $ perl_d_telldirproto="define"
75 $ perl_i_sysmount="undef"
76 $ perl_d_fstatfs="undef"
77 $ perl_i_machcthreads="undef"
78 $ perl_i_pthread="define"
79 $ perl_d_fstatvfs="undef"
80 $ perl_d_statfsflags="undef"
81 $ perl_i_sysstatvfs="undef"
82 $ perl_i_mntent="undef"
83 $ perl_d_getmntent="undef"
84 $ perl_d_hasmntopt="undef"
85 $ perl_package="''package'"
86 $ perl_baserev = "''baserev'"
88 $ perl_installusrbinperl="undef"
90 $ perl_d_fseeko="undef"
91 $ perl_d_ftello="undef"
92 $ perl_d_readv="undef"
93 $ perl_d_writev="undef"
94 $ perl_i_machcthr="undef"
95 $ perl_i_netdb="undef"
96 $ perl_d_gnulibc="undef"
97 $ perl_cf_by="unknown"
101 $ perl_drand01 = "drand48()"
102 $ perl_randseedtype = "long int"
103 $ perl_seedfunc = "srand48"
104 $ perl_d_msg_ctrunc = "undef"
105 $ perl_d_msg_dontroute = "undef"
106 $ perl_d_msg_oob = "undef"
107 $ perl_d_msg_peek = "undef"
108 $ perl_d_msg_proxy = "undef"
109 $ perl_d_scm_rights = "undef"
110 $ perl_d_sendmsg = "undef"
111 $ perl_d_recvmsg = "undef"
112 $ perl_d_msghdr_s = "undef"
113 $ perl_d_cmsghdr_s = "undef"
114 $ perl_d_dbminit64 = "undef"
115 $ perl_d_dbmclose64 = "undef"
116 $ perl_d_fetch64 = "undef"
117 $ perl_d_store64 = "undef"
118 $ perl_d_delete64 = "undef"
119 $ perl_d_firstkey64 = "undef"
120 $ perl_d_nextkey64 = "undef"
121 $ perl_d_fstat64 = "undef"
122 $ perl_d_ftruncate64 = "undef"
123 $ perl_d_lseek64 = "undef"
124 $ perl_d_lstat64 = "undef"
125 $ perl_d_open64 = "undef"
126 $ perl_d_opendir64 = "undef"
127 $ perl_d_readdir64 = "undef"
128 $ perl_d_seekdir64 = "undef"
129 $ perl_d_stat64 = "undef"
130 $ perl_d_telldir64 = "undef"
131 $ perl_d_truncate64 = "undef"
132 $ perl_d_dirent64_s = "undef"
133 $ perl_d_fgetpos64 = "undef"
134 $ perl_d_fopen64 = "undef"
135 $ perl_d_freopen64 = "undef"
136 $ perl_d_fseek64 = "undef"
137 $ perl_d_fseeko64 = "undef"
138 $ perl_d_fsetpos64 = "undef"
139 $ perl_d_ftell64 = "undef"
140 $ perl_d_ftello64 = "undef"
141 $ perl_d_tmpfile64 = "undef"
142 $ perl_use64bits = "undef"
143 $ perl_d_drand48proto = "define"
144 $ perl_libpth="/sys$share /sys$library"
146 $ perl_lddlflags="/Share"
151 $ perl_i_arpainet="undef"
152 $ perl_d_grpasswd="undef"
153 $ perl_d_setgrent="undef"
154 $ perl_d_getgrent="define"
155 $ perl_d_endgrent="define"
156 $ perl_d_pwpasswd="define"
157 $ perl_d_setpwent="define"
158 $ perl_d_getpwent="define"
159 $ perl_d_endpwent="define"
160 $ perl_d_phostname="undef"
161 $ perl_d_accessx="undef"
162 $ perl_d_eaccess="undef"
163 $ perl_ebcdic="undef"
165 $ perl_shrplib="define"
166 $ perl_usemymalloc=mymalloc
167 $ perl_usevfork="true"
168 $ perl_useposix="false"
169 $ perl_spitshell="write sys$output "
170 $ perl_dlsrc="dl_vms.c"
173 $ perl_prefix="perl_root"
174 $ perl_binexp="''perl_prefix':[000000]"
175 $ perl_builddir="''perl_prefix':[000000]"
176 $ perl_installbin="''perl_prefix':[000000]"
177 $ perl_installscript="''perl_prefix':[utils]"
178 $ perl_installman1dir="''perl_prefix':[man.man1]"
179 $ perl_installman3dir="''perl_prefix':[man.man3]"
180 $ perl_installprivlib="''perl_prefix':[lib]"
181 $ perl_installsitelib="''perl_prefix':[lib.site_perl]"
184 $ perl_d_sockpair="undef"
185 $ perl_i_neterrno="define"
186 $ perl_ldflags="/NoTrace/NoMap"
187 $ perl_d_lchown="undef"
188 $ perl_d_mknod="undef"
189 $ perl_d_union_semun="undef"
190 $ perl_d_semctl_semun="undef"
191 $ perl_d_semctl_semid_ds="undef"
192 $ IF (sharedperl.EQS."Y")
194 $ perl_obj_ext=".abj"
197 $ perl_exe_ext=".axe"
198 $ perl_lib_ext=".alb"
200 $ perl_obj_ext=".obj"
203 $ perl_exe_ext=".exe"
204 $ perl_lib_ext=".olb"
206 $ perl_dlobj="dl_vms''perl_obj_ext'"
208 $ perl_d_archlib="define"
209 $ perl_d_bincompat3="undef"
210 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
212 $ perl_d_castneg="define"
214 $ perl_d_chsize="undef"
215 $ perl_d_const="define"
216 $ perl_d_crypt="define"
217 $ perl_byteorder="1234"
220 $ perl_d_dup2="define"
221 $ perl_d_fchmod="undef"
222 $ perl_d_fchown="undef"
223 $ perl_d_fcntl="undef"
224 $ perl_d_fgetpos="define"
225 $ perl_d_flexfnam="define"
226 $ perl_d_flock="undef"
227 $ perl_d_fsetpos="define"
228 $ perl_d_getgrps="undef"
229 $ perl_d_setgrps="undef"
230 $ perl_d_getprior="undef"
231 $ perl_d_killpg="undef"
232 $ perl_d_link="undef"
233 $ perl_d_lstat="undef"
234 $ perl_d_lockf="undef"
235 $ perl_d_memcmp="define"
236 $ perl_d_memcpy="define"
237 $ perl_d_memmove="define"
238 $ perl_d_memset="define"
239 $ perl_d_mkdir="define"
241 $ perl_d_open3="define"
242 $ perl_d_poll="undef"
243 $ perl_d_readdir="define"
244 $ perl_d_seekdir="define"
245 $ perl_d_telldir="define"
246 $ perl_d_rewinddir="define"
247 $ perl_d_rename="define"
248 $ perl_d_rmdir="define"
250 $ perl_d_setegid="undef"
251 $ perl_d_seteuid="undef"
252 $ perl_d_setprior="undef"
253 $ perl_d_setregid="undef"
254 $ perl_d_setresgid="undef"
255 $ perl_d_setreuid="undef"
256 $ perl_d_setresuid="undef"
257 $ perl_d_setrgid="undef"
258 $ perl_d_setruid="undef"
259 $ perl_d_setsid="undef"
261 $ perl_d_shmatprototype="undef"
262 $ perl_d_statblks="undef"
263 $ perl_stdio_ptr="((*fp)->_ptr)"
264 $ perl_stdio_cnt="((*fp)->_cnt)"
265 $ perl_stdio_base="((*fp)->_base)"
266 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
267 $ perl_d_strctcpy="define"
268 $ perl_d_strerror="define"
269 $ perl_d_syserrlst="undef"
270 $ perl_d_strerrm="strerror((e),vaxc$errno)"
271 $ perl_d_symlink="undef"
272 $ perl_d_syscall="undef"
273 $ perl_d_system="define"
274 $ perl_timetype="time_t"
275 $ perl_d_vfork="define"
276 $ perl_signal_t="void"
277 $ perl_d_volatile="define"
278 $ perl_d_vprintf="define"
279 $ perl_d_charvspr="undef"
280 $ perl_d_waitpid="define"
281 $ perl_i_dirent="undef"
282 $ perl_d_dirnamlen="define"
283 $ perl_direntrytype="struct dirent"
284 $ perl_i_fcntl="undef"
286 $ perl_i_limits="define"
287 $ perl_i_memory="undef"
288 $ perl_i_ndbm="undef"
289 $ perl_i_stdarg="define"
291 $ perl_d_pwquota="undef"
292 $ perl_d_pwage="undef"
293 $ perl_d_pwchange="undef"
294 $ perl_d_pwclass="undef"
295 $ perl_d_pwexpire="undef"
296 $ perl_d_pwcomment="define"
297 $ perl_i_stddef="define"
298 $ perl_i_stdlib="define"
299 $ perl_i_string="define"
300 $ perl_i_sysdir="undef"
301 $ perl_i_sysfile="undef"
302 $ perl_i_sysioctl="undef"
303 $ perl_i_sysndir="undef"
304 $ perl_i_sysresrc="undef"
305 $ perl_i_sysselct="undef"
307 $ perl_i_rpcsvcdbm="undef"
308 $ perl_i_sfio="undef"
309 $ perl_i_sysstat="define"
310 $ perl_i_systimes="undef"
311 $ perl_i_systypes="define"
312 $ perl_i_sysun="undef"
313 $ perl_i_syswait="undef"
314 $ perl_i_termio="undef"
315 $ perl_i_sgtty="undef"
316 $ perl_i_termios="undef"
317 $ perl_i_time="define"
318 $ perl_i_systime="undef"
319 $ perl_i_systimek="undef"
320 $! perl_i_unistd="undef"
321 $ perl_i_utime="undef"
322 $ perl_i_varargs="undef"
323 $ perl_i_vfork="undef"
324 $ perl_prototype="define"
326 $ perl_stdchar="char"
327 $ perl_d_unlink_all_versions="undef"
328 $ perl_full_sed="_NLA0:"
329 $ perl_bin="/''perl_prefix'/000000"
330 $ perl_binexp="''perl_prefix':[000000]"
331 $ perl_d_alarm="define"
332 $ perl_d_casti32="define"
333 $ perl_d_chown="define"
334 $ perl_d_chroot="undef"
335 $ perl_d_cuserid="define"
336 $ perl_d_dbl_dig="define"
337 $ perl_d_difftime="define"
338 $ perl_d_fork="undef"
339 $ perl_d_getlogin="define"
340 $ perl_d_getppid="undef"
341 $ perl_d_nice="define"
342 $ perl_d_pause="define"
343 $ perl_d_pipe="define"
344 $ perl_d_readlink="undef"
345 $ perl_d_setlinebuf="undef"
346 $ perl_d_strchr="define"
347 $ perl_d_strtod="define"
348 $ perl_d_strtol="define"
349 $ perl_d_strtoul="define"
350 $ perl_d_tcgetpgrp="undef"
351 $ perl_d_tcsetpgrp="undef"
352 $ perl_d_times="define"
353 $ perl_d_tzname="undef"
354 $ perl_d_umask="define"
355 $ perl_fpostype="fpos_t"
356 $ perl_i_dlfcn="undef"
357 $ perl_i_float="define"
358 $ perl_i_math="define"
359 $ perl_lseektype="int"
360 $ perl_i_values="undef"
361 $ perl_malloctype="void *"
362 $ perl_freetype="void"
363 $ if "''mymalloc'".eqs."Y"
365 $ perl_d_mymalloc="define"
367 $ perl_d_mymalloc="undef"
370 $ perl_modetype="unsigned int"
371 $ perl_ssizetype="int"
372 $ perl_o_nonblock=" "
375 $ perl_d_eofnblk="undef"
376 $ perl_d_oldarchlib="define"
377 $ perl_privlibexp="''perl_prefix':[lib]"
378 $ perl_privlib="''perl_prefix':[lib]"
379 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
380 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
381 $ perl_sizetype="size_t"
382 $ perl_i_sysparam="undef"
383 $ perl_d_void_closedir="define"
384 $ perl_d_dlerror="undef"
385 $ perl_d_dlsymun="undef"
386 $ perl_d_suidsafe="undef"
387 $ perl_d_dosuid="undef"
388 $ perl_d_inetaton="undef"
389 $ perl_d_isascii="define"
390 $ perl_d_mkfifo="undef"
391 $ perl_d_safebcpy="undef"
392 $ perl_d_safemcpy="define"
393 $ perl_d_sanemcmp="define"
394 $ perl_d_setpgrp="undef"
395 $ perl_d_bsdsetpgrp="undef"
396 $ perl_d_bsdpgrp="undef"
397 $ perl_d_setpgid="undef"
398 $ perl_d_setpgrp2="undef"
399 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
400 $ perl_d_getpgid="undef"
401 $ perl_d_getpgrp="undef"
402 $ perl_d_bsdgetpgrp="undef"
403 $ perl_d_getpgrp2="undef"
404 $ perl_d_sfio="undef"
405 $ perl_usedl="define"
406 $ perl_startperl="""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ + ++$status != 0 and $exit = $status = undef;"""
407 $ perl_db_hashtype=" "
408 $ perl_db_prefixtype=" "
409 $ perl_useperlio="undef"
410 $ perl_defvoidused="15"
411 $ perl_voidflags="15"
412 $ perl_d_eunice="undef"
413 $ perl_d_pwgecos="define"
414 $ IF ("''Use_Threads'".eqs."T").and.("''VMS_VER'".LES."6.2")
416 $ 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"
420 $ IF ("''Using_Dec_C'".eqs."Yes")
422 $ perl_libc="(DECCRTL)"
426 $ perl_PATCHLEVEL="''patchlevel'"
427 $ perl_SUBVERSION="''subversion'"
431 $! Now some that we build up
433 $ LocalTime = f$time()
434 $ perl_cf_time= f$extract(0, 3, f$cvtime(LocalTime,, "WEEKDAY")) + " " + -
435 f$edit(f$cvtime(LocalTime, "ABSOLUTE", "MONTH"), "LOWERCASE") + -
436 " " + f$cvtime(LocalTime,, "DAY") + " " + f$cvtime(LocalTime,, "TIME") + -
437 " " + f$cvtime(LocalTime,, "YEAR")
438 $ if f$getsyi("HW_MODEL").ge.1024
440 $ perl_arch="VMS_AXP"
441 $ perl_archname="VMS_AXP"
442 $ perl_alignbytes="8"
444 $ perl_arch="VMS_VAX"
445 $ perl_archname="VMS_VAX"
446 $ perl_alignbytes="8"
448 $ if ("''Use_Threads'".eqs."T")
450 $ perl_arch = "''perl_arch'-thread"
451 $ perl_archname = "''perl_archname'-thread"
453 $ perl_d_old_pthread_create_joinable = "undef"
454 $ perl_old_pthread_create_joinable = " "
456 $ perl_osvers=f$edit(osvers, "TRIM")
457 $ if (perl_subversion + 0).eq.0
459 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL
461 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion
464 $! Some that we need to invoke the compiler for
465 $ OS := "open/write SOURCECHAN []temp.c"
466 $ WS := "write SOURCECHAN"
467 $ CS := "close SOURCECHAN"
468 $ DS := "delete/nolog []temp.*;*"
470 $ if ("''using_vax_c'".eqs."Yes").or.("''using_gnu_c'".eqs."Yes")
472 $ open/write OPTCHAN []temp.opt
473 $ IF ("''using_gnu_c'".eqs."Yes")
475 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
477 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
482 $! Check for __STDC__
486 $ WS "#include <stdlib.h>
488 $ WS "#include <stdio.h>
491 $ WS "#ifdef __STDC__
492 $ WS "printf(""42\n"");
494 $ WS "printf(""1\n"");
499 $ DEFINE SYS$ERROR _NLA0:
500 $ DEFINE SYS$OUTPUT _NLA0:
501 $ ON ERROR THEN CONTINUE
502 $ ON WARNING THEN CONTINUE
504 $ If (Needs_Opt.eqs."Yes")
506 $ link temp.obj,temp.opt/opt
510 $ DEASSIGN SYS$OUTPUT
512 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
513 $ DEFINE SYS$ERROR TEMPOUT
514 $ DEFINE SYS$OUTPUT TEMPOUT
517 $ DEASSIGN SYS$OUTPUT
519 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
523 $ perl_cpp_stuff=line
524 $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
526 $! Check for double size
530 $ WS "#include <stdlib.h>
532 $ WS "#include <stdio.h>
536 $ WS "foo = sizeof(double);
537 $ WS "printf(""%d\n"", foo);
541 $ DEFINE SYS$ERROR _NLA0:
542 $ DEFINE SYS$OUTPUT _NLA0:
543 $ ON ERROR THEN CONTINUE
544 $ ON WARNING THEN CONTINUE
546 $ If (Needs_Opt.eqs."Yes")
548 $ link temp.obj,temp.opt/opt
553 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
554 $ DEASSIGN SYS$OUTPUT
556 $ DEFINE SYS$ERROR TEMPOUT
557 $ DEFINE SYS$OUTPUT TEMPOUT
560 $ DEASSIGN SYS$OUTPUT
562 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
566 $ perl_doublesize=line
567 $ WRITE_RESULT "doublesize is ''perl_doublesize'"
569 $! Check for long double size
573 $ WS "#include <stdlib.h>
575 $ WS "#include <stdio.h>
578 $ WS "printf(""%d\n"", sizeof(long double));
582 $ DEFINE SYS$ERROR _NLA0:
583 $ DEFINE SYS$OUTPUT _NLA0:
584 $ ON ERROR THEN CONTINUE
585 $ ON WARNING THEN CONTINUE
587 $ teststatus = f$extract(9,1,$status)
588 $ if (teststatus.nes."1")
590 $ perl_longdblsize="0"
591 $ perl_d_longdbl="undef"
593 $ ON ERROR THEN CONTINUE
594 $ ON WARNING THEN CONTINUE
595 $ If (Needs_Opt.eqs."Yes")
597 $ link temp.obj,temp.opt/opt
601 $ teststatus = f$extract(9,1,$status)
602 $ DEASSIGN SYS$OUTPUT
604 $ if (teststatus.nes."1")
606 $ perl_longdblsize="0"
607 $ perl_d_longdbl="undef"
609 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
610 $ DEFINE SYS$ERROR TEMPOUT
611 $ DEFINE SYS$OUTPUT TEMPOUT
614 $ DEASSIGN SYS$OUTPUT
616 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
620 $ perl_longdblsize=line
621 $ perl_d_longdbl="define"
624 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
625 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
627 $! Check for long long existance and size
631 $ WS "#include <stdlib.h>
633 $ WS "#include <stdio.h>
636 $ WS "printf(""%d\n"", sizeof(long long));
640 $ DEFINE SYS$ERROR _NLA0:
641 $ DEFINE SYS$OUTPUT _NLA0:
642 $ on error then continue
643 $ on warning then continue
645 $ If (Needs_Opt.eqs."Yes")
647 $ link temp.obj,temp.opt/opt
651 $ teststatus = f$extract(9,1,$status)
652 $ DEASSIGN SYS$OUTPUT
654 $ if (teststatus.nes."1")
656 $ perl_longlongsize="0"
657 $ perl_d_longlong="undef"
659 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
660 $ DEFINE SYS$ERROR TEMPOUT
661 $ DEFINE SYS$OUTPUT TEMPOUT
664 $ DEASSIGN SYS$OUTPUT
666 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
670 $ perl_longlongsize=line
671 $ perl_d_longlong="define"
673 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
674 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
676 $! Check for int size
680 $ WS "#include <stdlib.h>
682 $ WS "#include <stdio.h>
685 $ WS "printf(""%d\n"", sizeof(int));
689 $ DEFINE SYS$ERROR _NLA0:
690 $ DEFINE SYS$OUTPUT _NLA0:
691 $ on error then continue
692 $ on warning then continue
694 $ If (Needs_Opt.eqs."Yes")
696 $ link temp.obj,temp.opt/opt
700 $ If (Needs_Opt.eqs."Yes")
702 $ link temp.obj,temp.opt/opt
706 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
707 $ DEASSIGN SYS$OUTPUT
709 $ DEFINE SYS$ERROR TEMPOUT
710 $ DEFINE SYS$OUTPUT TEMPOUT
713 $ DEASSIGN SYS$OUTPUT
715 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
720 $ WRITE_RESULT "intsize is ''perl_intsize'"
722 $! Check for short size
726 $ WS "#include <stdlib.h>
728 $ WS "#include <stdio.h>
731 $ WS "printf(""%d\n"", sizeof(short));
735 $ DEFINE SYS$ERROR _NLA0:
736 $ DEFINE SYS$OUTPUT _NLA0:
737 $ on error then continue
738 $ on warning then continue
740 $ If (Needs_Opt.eqs."Yes")
742 $ link temp.obj,temp.opt/opt
746 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
747 $ DEASSIGN SYS$OUTPUT
749 $ DEFINE SYS$ERROR TEMPOUT
750 $ DEFINE SYS$OUTPUT TEMPOUT
753 $ DEASSIGN SYS$OUTPUT
755 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
759 $ perl_shortsize=line
760 $ WRITE_RESULT "shortsize is ''perl_shortsize'"
762 $! Check for long size
766 $ WS "#include <stdlib.h>
768 $ WS "#include <stdio.h>
772 $ WS "foo = sizeof(long);
773 $ WS "printf(""%d\n"", foo);
777 $ DEFINE SYS$ERROR _NLA0:
778 $ DEFINE SYS$OUTPUT _NLA0:
779 $ on error then continue
780 $ on warning then continue
782 $ If (Needs_Opt.eqs."Yes")
784 $ link temp.obj,temp.opt/opt
788 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
789 $ DEASSIGN SYS$OUTPUT
791 $ DEFINE SYS$ERROR TEMPOUT
792 $ DEFINE SYS$OUTPUT TEMPOUT
795 $ DEASSIGN SYS$OUTPUT
797 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
802 $ WRITE_RESULT "longsize is ''perl_longsize'"
804 $! Check the prototype for getgid
808 $ WS "#include <stdlib.h>
810 $ WS "#include <stdio.h>
811 $ WS "#include <types.h>
812 $ WS "#include <unistd.h>
819 $ DEFINE SYS$ERROR _NLA0:
820 $ DEFINE SYS$OUTPUT _NLA0:
821 $ on error then continue
822 $ on warning then continue
824 $ teststatus = f$extract(9,1,$status)
825 $ DEASSIGN SYS$OUTPUT
827 $ if (teststatus.nes."1")
829 $! Okay, gid_t failed. Must be unsigned int
830 $ perl_gidtype = "unsigned int"
832 $ perl_gidtype = "gid_t"
834 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
836 $! Check to see if we've got dev_t
840 $ WS "#include <stdlib.h>
842 $ WS "#include <stdio.h>
843 $ WS "#include <types.h>
844 $ WS "#include <unistd.h>
851 $ DEFINE SYS$ERROR _NLA0:
852 $ DEFINE SYS$OUTPUT _NLA0:
853 $ on error then continue
854 $ on warning then continue
856 $ teststatus = f$extract(9,1,$status)
857 $ DEASSIGN SYS$OUTPUT
859 $ if (teststatus.nes."1")
861 $! Okay, dev_t failed. Must be unsigned int
862 $ perl_devtype = "unsigned int"
864 $ perl_devtype = "dev_t"
866 $ WRITE_RESULT "Dev_t is ''perl_devtype'"
868 $! Check to see if we've got unistd.h (which we ought to, but you never know)
872 $ WS "#include <stdlib.h>
874 $ WS "#include <unistd.h>
880 $ DEFINE SYS$ERROR _NLA0:
881 $ DEFINE SYS$OUTPUT _NLA0:
882 $ on error then continue
883 $ on warning then continue
885 $ teststatus = f$extract(9,1,$status)
886 $ DEASSIGN SYS$OUTPUT
888 $ if (teststatus.nes."1")
890 $! Okay, failed. Must not have it
891 $ perl_i_unistd = "undef"
893 $ perl_i_unistd = "define"
896 $ WRITE_RESULT "i_unistd is ''perl_i_unistd'"
898 $! Check the prototype for select
900 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
904 $ WS "#include <stdlib.h>
906 $ WS "#include <stdio.h>
907 $ WS "#include <types.h>
908 $ WS "#include <unistd.h>
909 $ if ("''Has_Socketshr'".eqs."T")
911 $ WS "#include <socketshr.h>"
913 $ WS "#include <time.h>
914 $ WS "#include <socket.h>
921 $ WS "bar = select(2, foo, foo, foo, NULL);
925 $ DEFINE SYS$ERROR _NLA0:
926 $ DEFINE SYS$OUTPUT _NLA0:
927 $ on error then continue
928 $ on warning then continue
930 $ teststatus = f$extract(9,1,$status)
931 $ DEASSIGN SYS$OUTPUT
933 $ if (teststatus.nes."1")
935 $! Okay, fd_set failed. Must be an int
936 $ perl_selecttype = "int *"
938 $ perl_selecttype="fd_set *"
941 $ ! No sockets, so stick in an int *
942 $ perl_selecttype = "int *"
944 $ WRITE_RESULT "selectype is ''perl_selecttype'"
946 $! Check to see if fd_set exists
950 $ WS "#include <stdlib.h>
952 $ WS "#include <stdio.h>
953 $ WS "#include <types.h>
954 $ WS "#include <unistd.h>
955 $ if ("''Has_Socketshr'".eqs."T")
957 $ WS "#include <socketshr.h>"
959 $ IF ("''Has_Dec_C_Sockets'".eqs."T")
961 $ WS "#include <time.h>
962 $ WS "#include <socket.h>
971 $ DEFINE SYS$ERROR _NLA0:
972 $ DEFINE SYS$OUTPUT _NLA0:
973 $ on error then continue
974 $ on warning then continue
976 $ teststatus = f$extract(9,1,$status)
977 $ DEASSIGN SYS$OUTPUT
979 $ if (teststatus.nes."1")
981 $! Okay, fd_set failed. Must not exist
982 $ perl_d_fd_set = "undef"
984 $ perl_d_fd_set="define"
986 $ WRITE_RESULT "d_fd_set is ''perl_d_fd_set'"
988 $! Check for inttypes.h
992 $ WS "#include <stdlib.h>
994 $ WS "#include <stdio.h>
995 $ WS "#include <unistd.h>
996 $ WS "#include <inttypes.h>
1002 $ DEFINE SYS$ERROR _NLA0:
1003 $ DEFINE SYS$OUTPUT _NLA0:
1004 $ on error then continue
1005 $ on warning then continue
1007 $ savedstatus = $status
1008 $ teststatus = f$extract(9,1,savedstatus)
1009 $ if (teststatus.nes."1")
1011 $ perl_i_inttypes="undef"
1012 $ DEASSIGN SYS$OUTPUT
1013 $ DEASSIGN SYS$ERROR
1015 $ If (Needs_Opt.eqs."Yes")
1017 $ link temp.obj,temp.opt/opt
1021 $ savedstatus = $status
1022 $ teststatus = f$extract(9,1,savedstatus)
1023 $ DEASSIGN SYS$OUTPUT
1024 $ DEASSIGN SYS$ERROR
1025 $ if (teststatus.nes."1")
1027 $ perl_i_inttypes="undef"
1029 $ perl_i_inttypes="define"
1032 $ WRITE_RESULT "i_inttypes is ''perl_i_inttypes'"
1034 $! Check to see if int64_t exists
1038 $ WS "#include <stdlib.h>
1040 $ WS "#include <stdio.h>
1041 $ WS "#include <types.h>
1042 $ WS "#''perl_i_inttypes IIH
1044 $ WS "#include <inttypes.h>
1046 $ WS "#include <unistd.h>
1053 $ DEFINE SYS$ERROR _NLA0:
1054 $ DEFINE SYS$OUTPUT _NLA0:
1055 $ on error then continue
1056 $ on warning then continue
1058 $ teststatus = f$extract(9,1,$status)
1059 $ DEASSIGN SYS$OUTPUT
1060 $ DEASSIGN SYS$ERROR
1061 $ if (teststatus.nes."1")
1063 $! Okay, int64_t failed. Must not exist
1064 $ perl_d_int64t = "undef"
1066 $ perl_d_int64t="define"
1068 $ WRITE_RESULT "d_int64t is ''perl_d_int64t'"
1070 $! Check to see if off64_t exists
1074 $ WS "#include <stdlib.h>
1076 $ WS "#include <stdio.h>
1077 $ WS "#include <types.h>
1078 $ WS "#''perl_i_inttypes IIH
1080 $ WS "#include <inttypes.h>
1082 $ WS "#include <unistd.h>
1089 $ DEFINE SYS$ERROR _NLA0:
1090 $ DEFINE SYS$OUTPUT _NLA0:
1091 $ on error then continue
1092 $ on warning then continue
1094 $ teststatus = f$extract(9,1,$status)
1095 $ DEASSIGN SYS$OUTPUT
1096 $ DEASSIGN SYS$ERROR
1097 $ if (teststatus.nes."1")
1099 $! Okay, off64_t failed. Must not exist
1100 $ perl_d_off64t = "undef"
1102 $ perl_d_off64t="define"
1104 $ WRITE_RESULT "d_off64t is ''perl_d_off64t'"
1106 $! Check to see if gethostname exists
1108 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1112 $ WS "#include <stdlib.h>
1114 $ WS "#include <stdio.h>
1115 $ WS "#include <types.h>
1116 $ WS "#include <unistd.h>
1117 $ if ("''Has_Socketshr'".eqs."T")
1119 $ WS "#include <socketshr.h>"
1121 $ WS "#include <time.h>
1122 $ WS "#include <socket.h>
1126 $ WS "char name[100];
1129 $ WS "baz = gethostname(name, bar);
1133 $ DEFINE SYS$ERROR _NLA0:
1134 $ DEFINE SYS$OUTPUT _NLA0:
1135 $ on error then continue
1136 $ on warning then continue
1138 $ teststatus = f$extract(9,1,$status)
1139 $ DEASSIGN SYS$OUTPUT
1140 $ DEASSIGN SYS$ERROR
1141 $ if (teststatus.nes."1")
1143 $! Okay, compile failed. Must not have it
1144 $ perl_dgethname = "undef"
1146 $ If (Needs_Opt.eqs."Yes")
1148 $ link temp.obj,temp.opt/opt
1152 $ savedstatus = $status
1153 $ teststatus = f$extract(9,1,savedstatus)
1154 $ if (teststatus.nes."1")
1156 $ perl_d_gethname="undef"
1158 $ perl_d_gethname="define"
1162 $ ! No sockets, so no gethname
1163 $ perl_d_gethname = "undef"
1165 $ WRITE_RESULT "d_gethname is ''perl_d_gethname'"
1167 $! Check for sys/file.h
1171 $ WS "#include <stdlib.h>
1173 $ WS "#include <stdio.h>
1174 $ WS "#include <unistd.h>
1175 $ WS "#include <sys/file.h>
1181 $ DEFINE SYS$ERROR _NLA0:
1182 $ DEFINE SYS$OUTPUT _NLA0:
1183 $ on error then continue
1184 $ on warning then continue
1186 $ savedstatus = $status
1187 $ teststatus = f$extract(9,1,savedstatus)
1188 $ if (teststatus.nes."1")
1190 $ perl_i_sysfile="undef"
1191 $ DEASSIGN SYS$OUTPUT
1192 $ DEASSIGN SYS$ERROR
1194 $ If (Needs_Opt.eqs."Yes")
1196 $ link temp.obj,temp.opt/opt
1200 $ savedstatus = $status
1201 $ teststatus = f$extract(9,1,savedstatus)
1202 $ DEASSIGN SYS$OUTPUT
1203 $ DEASSIGN SYS$ERROR
1204 $ if (teststatus.nes."1")
1206 $ perl_i_sysfile="undef"
1208 $ perl_i_sysfile="define"
1211 $ WRITE_RESULT "i_sysfile is ''perl_i_sysfile'"
1217 $ WS "#include <stdlib.h>
1219 $ WS "#include <stdio.h>
1220 $ WS "#include <unistd.h>
1221 $ WS "#include <poll.h>
1227 $ DEFINE SYS$ERROR _NLA0:
1228 $ DEFINE SYS$OUTPUT _NLA0:
1229 $ on error then continue
1230 $ on warning then continue
1232 $ savedstatus = $status
1233 $ teststatus = f$extract(9,1,savedstatus)
1234 $ if (teststatus.nes."1")
1236 $ perl_i_poll="undef"
1237 $ DEASSIGN SYS$OUTPUT
1238 $ DEASSIGN SYS$ERROR
1240 $ If (Needs_Opt.eqs."Yes")
1242 $ link temp.obj,temp.opt/opt
1246 $ savedstatus = $status
1247 $ teststatus = f$extract(9,1,savedstatus)
1248 $ DEASSIGN SYS$OUTPUT
1249 $ DEASSIGN SYS$ERROR
1250 $ if (teststatus.nes."1")
1252 $ perl_i_poll="undef"
1254 $ perl_i_poll="define"
1257 $ WRITE_RESULT "i_poll is ''perl_i_poll'"
1259 $! Check for sys/uio.h
1263 $ WS "#include <stdlib.h>
1265 $ WS "#include <stdio.h>
1266 $ WS "#include <unistd.h>
1267 $ WS "#include <sys/uio.h>
1273 $ DEFINE SYS$ERROR _NLA0:
1274 $ DEFINE SYS$OUTPUT _NLA0:
1275 $ on error then continue
1276 $ on warning then continue
1278 $ savedstatus = $status
1279 $ teststatus = f$extract(9,1,savedstatus)
1280 $ if (teststatus.nes."1")
1282 $ perl_i_sysuio="undef"
1283 $ DEASSIGN SYS$OUTPUT
1284 $ DEASSIGN SYS$ERROR
1286 $ If (Needs_Opt.eqs."Yes")
1288 $ link temp.obj,temp.opt/opt
1292 $ savedstatus = $status
1293 $ teststatus = f$extract(9,1,savedstatus)
1294 $ DEASSIGN SYS$OUTPUT
1295 $ DEASSIGN SYS$ERROR
1296 $ if (teststatus.nes."1")
1298 $ perl_i_sysuio="undef"
1300 $ perl_i_sysuio="define"
1303 $ WRITE_RESULT "i_sysuio is ''perl_i_sysuio'"
1305 $! Check for sys/access.h
1309 $ WS "#include <stdlib.h>
1311 $ WS "#include <stdio.h>
1312 $ WS "#include <unistd.h>
1313 $ WS "#include <sys/access.h>
1319 $ DEFINE SYS$ERROR _NLA0:
1320 $ DEFINE SYS$OUTPUT _NLA0:
1321 $ on error then continue
1322 $ on warning then continue
1324 $ savedstatus = $status
1325 $ teststatus = f$extract(9,1,savedstatus)
1326 $ if (teststatus.nes."1")
1328 $ perl_i_sysaccess="undef"
1329 $ DEASSIGN SYS$OUTPUT
1330 $ DEASSIGN SYS$ERROR
1332 $ If (Needs_Opt.eqs."Yes")
1334 $ link temp.obj,temp.opt/opt
1338 $ savedstatus = $status
1339 $ teststatus = f$extract(9,1,savedstatus)
1340 $ DEASSIGN SYS$OUTPUT
1341 $ DEASSIGN SYS$ERROR
1342 $ if (teststatus.nes."1")
1344 $ perl_i_sysaccess="undef"
1346 $ perl_i_sysaccess="define"
1349 $ WRITE_RESULT "i_sysaccess is ''perl_i_sysaccess'"
1351 $! Check for sys/security.h
1355 $ WS "#include <stdlib.h>
1357 $ WS "#include <stdio.h>
1358 $ WS "#include <unistd.h>
1359 $ WS "#include <sys/security.h>
1365 $ DEFINE SYS$ERROR _NLA0:
1366 $ DEFINE SYS$OUTPUT _NLA0:
1367 $ on error then continue
1368 $ on warning then continue
1370 $ savedstatus = $status
1371 $ teststatus = f$extract(9,1,savedstatus)
1372 $ if (teststatus.nes."1")
1374 $ perl_i_syssecrt="undef"
1375 $ DEASSIGN SYS$OUTPUT
1376 $ DEASSIGN SYS$ERROR
1378 $ If (Needs_Opt.eqs."Yes")
1380 $ link temp.obj,temp.opt/opt
1384 $ savedstatus = $status
1385 $ teststatus = f$extract(9,1,savedstatus)
1386 $ DEASSIGN SYS$OUTPUT
1387 $ DEASSIGN SYS$ERROR
1388 $ if (teststatus.nes."1")
1390 $ perl_i_syssecrt="undef"
1392 $ perl_i_syssecrt="define"
1395 $ WRITE_RESULT "i_syssecrt is ''perl_i_syssecrt'"
1397 $! Check for fcntl.h
1401 $ WS "#include <stdlib.h>
1403 $ WS "#include <stdio.h>
1404 $ WS "#include <unistd.h>
1405 $ WS "#include <fcntl.h>
1411 $ DEFINE SYS$ERROR _NLA0:
1412 $ DEFINE SYS$OUTPUT _NLA0:
1413 $ on error then continue
1414 $ on warning then continue
1416 $ savedstatus = $status
1417 $ teststatus = f$extract(9,1,savedstatus)
1418 $ if (teststatus.nes."1")
1420 $ perl_i_fcntl="undef"
1421 $ DEASSIGN SYS$OUTPUT
1422 $ DEASSIGN SYS$ERROR
1424 $ If (Needs_Opt.eqs."Yes")
1426 $ link temp.obj,temp.opt/opt
1430 $ savedstatus = $status
1431 $ teststatus = f$extract(9,1,savedstatus)
1432 $ DEASSIGN SYS$OUTPUT
1433 $ DEASSIGN SYS$ERROR
1434 $ if (teststatus.nes."1")
1436 $ perl_i_fcntl="undef"
1438 $ perl_i_fcntl="define"
1441 $ WRITE_RESULT "i_fcntl is ''perl_i_fcntl'"
1447 $ WS "#include <stdlib.h>
1449 $ WS "#include <stdio.h>
1450 $ WS "#include <unistd.h>
1451 $ WS "#include <fcntl.h>
1458 $ DEFINE SYS$ERROR _NLA0:
1459 $ DEFINE SYS$OUTPUT _NLA0:
1460 $ on error then continue
1461 $ on warning then continue
1463 $ savedstatus = $status
1464 $ teststatus = f$extract(9,1,savedstatus)
1465 $ if (teststatus.nes."1")
1467 $ perl_d_fcntl="undef"
1468 $ DEASSIGN SYS$OUTPUT
1469 $ DEASSIGN SYS$ERROR
1471 $ If (Needs_Opt.eqs."Yes")
1473 $ link temp.obj,temp.opt/opt
1477 $ savedstatus = $status
1478 $ teststatus = f$extract(9,1,savedstatus)
1479 $ DEASSIGN SYS$OUTPUT
1480 $ DEASSIGN SYS$ERROR
1481 $ if (teststatus.nes."1")
1483 $ perl_d_fcntl="undef"
1485 $ perl_d_fcntl="define"
1488 $ WRITE_RESULT "d_fcntl is ''perl_d_fcntl'"
1494 $ WS "#include <stdlib.h>
1496 $ WS "#include <stdio.h>
1497 $ WS "#include <unistd.h>
1500 $ WS "access("foo", F_OK);
1504 $ DEFINE SYS$ERROR _NLA0:
1505 $ DEFINE SYS$OUTPUT _NLA0:
1506 $ on error then continue
1507 $ on warning then continue
1509 $ savedstatus = $status
1510 $ teststatus = f$extract(9,1,savedstatus)
1511 $ if (teststatus.nes."1")
1513 $ perl_d_access="undef"
1514 $ DEASSIGN SYS$OUTPUT
1515 $ DEASSIGN SYS$ERROR
1517 $ If (Needs_Opt.eqs."Yes")
1519 $ link temp.obj,temp.opt/opt
1523 $ savedstatus = $status
1524 $ teststatus = f$extract(9,1,savedstatus)
1525 $ DEASSIGN SYS$OUTPUT
1526 $ DEASSIGN SYS$ERROR
1527 $ if (teststatus.nes."1")
1529 $ perl_d_access="undef"
1531 $ perl_d_access="define"
1534 $ WRITE_RESULT "d_access is ''perl_d_access'"
1540 $ WS "#include <stdlib.h>
1542 $ WS "#include <stdio.h>
1543 $ WS "#include <strings.h>
1547 $ WS "bzero(foo, 10);
1551 $ DEFINE SYS$ERROR _NLA0:
1552 $ DEFINE SYS$OUTPUT _NLA0:
1553 $ on error then continue
1554 $ on warning then continue
1556 $ savedstatus = $status
1557 $ teststatus = f$extract(9,1,savedstatus)
1558 $ if (teststatus.nes."1")
1560 $ perl_d_bzero="undef"
1561 $ DEASSIGN SYS$OUTPUT
1562 $ DEASSIGN SYS$ERROR
1564 $ If (Needs_Opt.eqs."Yes")
1566 $ link temp.obj,temp.opt/opt
1570 $ savedstatus = $status
1571 $ teststatus = f$extract(9,1,savedstatus)
1572 $ DEASSIGN SYS$OUTPUT
1573 $ DEASSIGN SYS$ERROR
1574 $ if (teststatus.nes."1")
1576 $ perl_d_bzero="undef"
1578 $ perl_d_bzero="define"
1581 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
1587 $ WS "#include <stdlib.h>
1589 $ WS "#include <stdio.h>
1590 $ WS "#include <strings.h>
1593 $ WS "char foo[10], bar[10];
1594 $ WS "bcopy(""foo"", bar, 3);
1598 $ DEFINE SYS$ERROR _NLA0:
1599 $ DEFINE SYS$OUTPUT _NLA0:
1600 $ on error then continue
1601 $ on warning then continue
1603 $ savedstatus = $status
1604 $ teststatus = f$extract(9,1,savedstatus)
1605 $ if (teststatus.nes."1")
1607 $ perl_d_bcopy="undef"
1608 $ DEASSIGN SYS$OUTPUT
1609 $ DEASSIGN SYS$ERROR
1611 $ If (Needs_Opt.eqs."Yes")
1613 $ link temp.obj,temp.opt/opt
1617 $ savedstatus = $status
1618 $ teststatus = f$extract(9,1,savedstatus)
1619 $ DEASSIGN SYS$OUTPUT
1620 $ DEASSIGN SYS$ERROR
1621 $ if (teststatus.nes."1")
1623 $ perl_d_bcopy="undef"
1625 $ perl_d_bcopy="define"
1628 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
1630 $! Check for mkstemp
1634 $ WS "#include <stdlib.h>
1636 $ WS "#include <stdio.h>
1639 $ WS "mkstemp(""foo"");
1643 $ DEFINE SYS$ERROR _NLA0:
1644 $ DEFINE SYS$OUTPUT _NLA0:
1645 $ on error then continue
1646 $ on warning then continue
1648 $ If (Needs_Opt.eqs."Yes")
1650 $ link temp.obj,temp.opt/opt
1654 $ savedstatus = $status
1655 $ teststatus = f$extract(9,1,savedstatus)
1656 $ DEASSIGN SYS$OUTPUT
1657 $ DEASSIGN SYS$ERROR
1658 $ if (teststatus.nes."1")
1660 $ perl_d_mkstemp="undef"
1662 $ perl_d_mkstemp="define"
1664 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
1666 $! Check for setvbuf
1670 $ WS "#include <stdlib.h>
1672 $ WS "#include <stdio.h>
1676 $ WS "char Buffer[99];
1677 $ WS "foo = fopen(""foo"", ""r"");
1678 $ WS "setvbuf(foo, Buffer, 0, 0);
1682 $ DEFINE SYS$ERROR _NLA0:
1683 $ DEFINE SYS$OUTPUT _NLA0:
1684 $ on error then continue
1685 $ on warning then continue
1687 $ If (Needs_Opt.eqs."Yes")
1689 $ link temp.obj,temp.opt/opt
1693 $ teststatus = f$extract(9,1,$status)
1694 $ DEASSIGN SYS$OUTPUT
1695 $ DEASSIGN SYS$ERROR
1696 $ if (teststatus.nes."1")
1698 $ perl_d_setvbuf="undef"
1700 $ perl_d_setvbuf="define"
1702 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
1708 $ WS "#include <stdlib.h>
1710 $ WS "#include <stdio.h>
1713 $ WS "setenv(""FOO"", ""BAR"", 0);
1717 $ DEFINE SYS$ERROR _NLA0:
1718 $ DEFINE SYS$OUTPUT _NLA0:
1719 $ on error then continue
1720 $ on warning then continue
1722 $ If (Needs_Opt.eqs."Yes")
1724 $ link temp,temp/opt
1728 $ teststatus = f$extract(9,1,$status)
1729 $ DEASSIGN SYS$OUTPUT
1730 $ DEASSIGN SYS$ERROR
1731 $ if (teststatus.nes."1")
1733 $ perl_d_setenv="undef"
1735 $ perl_d_setenv="define"
1737 $ WRITE_RESULT "d_setenv is ''perl_d_setenv'"
1739 $! Check for <netinet/in.h>
1741 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1745 $ WS "#include <stdlib.h>
1747 $ WS "#include <stdio.h>
1748 $ if ("''Has_Socketshr'".eqs."T")
1750 $ WS "#include <socketshr.h>"
1752 $ WS "#include <netdb.h>
1754 $ WS "#include <netinet/in.h>"
1760 $ DEFINE SYS$ERROR _NLA0:
1761 $ DEFINE SYS$OUTPUT _NLA0:
1762 $ on error then continue
1763 $ on warning then continue
1765 $ If (Needs_Opt.eqs."Yes")
1767 $ link temp.obj,temp.opt/opt
1771 $ teststatus = f$extract(9,1,$status)
1772 $ DEASSIGN SYS$OUTPUT
1773 $ DEASSIGN SYS$ERROR
1774 $ if (teststatus.nes."1")
1776 $ perl_i_niin="undef"
1778 $ perl_i_niin="define"
1781 $ perl_i_niin="undef"
1783 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
1785 $! Check for endhostent
1787 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1791 $ WS "#include <stdlib.h>
1793 $ WS "#include <stdio.h>
1794 $ if ("''Has_Socketshr'".eqs."T")
1796 $ WS "#include <socketshr.h>"
1798 $ WS "#include <netdb.h>
1806 $ DEFINE SYS$ERROR _NLA0:
1807 $ DEFINE SYS$OUTPUT _NLA0:
1808 $ on error then continue
1809 $ on warning then continue
1811 $ If (Needs_Opt.eqs."Yes")
1813 $ link temp.obj,temp.opt/opt
1817 $ teststatus = f$extract(9,1,$status)
1818 $ DEASSIGN SYS$OUTPUT
1819 $ DEASSIGN SYS$ERROR
1820 $ if (teststatus.nes."1")
1822 $ perl_d_endhent="undef"
1824 $ perl_d_endhent="define"
1827 $ perl_d_endhent="undef"
1829 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
1831 $! Check for endnetent
1833 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1837 $ WS "#include <stdlib.h>
1839 $ WS "#include <stdio.h>
1840 $ if ("''Has_Socketshr'".eqs."T")
1842 $ WS "#include <socketshr.h>"
1844 $ WS "#include <netdb.h>
1852 $ DEFINE SYS$ERROR _NLA0:
1853 $ DEFINE SYS$OUTPUT _NLA0:
1854 $ on error then continue
1855 $ on warning then continue
1857 $ If (Needs_Opt.eqs."Yes")
1859 $ link temp.obj,temp.opt/opt
1863 $ teststatus = f$extract(9,1,$status)
1864 $ DEASSIGN SYS$OUTPUT
1865 $ DEASSIGN SYS$ERROR
1866 $ if (teststatus.nes."1")
1868 $ perl_d_endnent="undef"
1870 $ perl_d_endnent="define"
1873 $ perl_d_endnent="undef"
1875 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
1877 $! Check for endprotoent
1879 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1883 $ WS "#include <stdlib.h>
1885 $ WS "#include <stdio.h>
1886 $ if ("''Has_Socketshr'".eqs."T")
1888 $ WS "#include <socketshr.h>"
1890 $ WS "#include <netdb.h>
1894 $ WS "endprotoent();
1898 $ DEFINE SYS$ERROR _NLA0:
1899 $ DEFINE SYS$OUTPUT _NLA0:
1900 $ on error then continue
1901 $ on warning then continue
1903 $ If (Needs_Opt.eqs."Yes")
1905 $ link temp.obj,temp.opt/opt
1909 $ teststatus = f$extract(9,1,$status)
1910 $ DEASSIGN SYS$OUTPUT
1911 $ DEASSIGN SYS$ERROR
1912 $ if (teststatus.nes."1")
1914 $ perl_d_endpent="undef"
1916 $ perl_d_endpent="define"
1919 $ perl_d_endpent="undef"
1921 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
1923 $! Check for endservent
1925 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1929 $ WS "#include <stdlib.h>
1931 $ WS "#include <stdio.h>
1932 $ if ("''Has_Socketshr'".eqs."T")
1934 $ WS "#include <socketshr.h>"
1936 $ WS "#include <netdb.h>
1944 $ DEFINE SYS$ERROR _NLA0:
1945 $ DEFINE SYS$OUTPUT _NLA0:
1946 $ on error then continue
1947 $ on warning then continue
1949 $ If (Needs_Opt.eqs."Yes")
1951 $ link temp.obj,temp.opt/opt
1955 $ teststatus = f$extract(9,1,$status)
1956 $ DEASSIGN SYS$OUTPUT
1957 $ DEASSIGN SYS$ERROR
1958 $ if (teststatus.nes."1")
1960 $ perl_d_endsent="undef"
1962 $ perl_d_endsent="define"
1965 $ perl_d_endsent="undef"
1967 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
1969 $! Check for sethostent
1971 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1975 $ WS "#include <stdlib.h>
1977 $ WS "#include <stdio.h>
1978 $ if ("''Has_Socketshr'".eqs."T")
1980 $ WS "#include <socketshr.h>"
1982 $ WS "#include <netdb.h>
1986 $ WS "sethostent(1);
1990 $ DEFINE SYS$ERROR _NLA0:
1991 $ DEFINE SYS$OUTPUT _NLA0:
1992 $ on error then continue
1993 $ on warning then continue
1995 $ If (Needs_Opt.eqs."Yes")
1997 $ link temp.obj,temp.opt/opt
2001 $ teststatus = f$extract(9,1,$status)
2002 $ DEASSIGN SYS$OUTPUT
2003 $ DEASSIGN SYS$ERROR
2004 $ if (teststatus.nes."1")
2006 $ perl_d_sethent="undef"
2008 $ perl_d_sethent="define"
2011 $ perl_d_sethent="undef"
2013 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
2015 $! Check for setnetent
2017 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2021 $ WS "#include <stdlib.h>
2023 $ WS "#include <stdio.h>
2024 $ if ("''Has_Socketshr'".eqs."T")
2026 $ WS "#include <socketshr.h>"
2028 $ WS "#include <netdb.h>
2036 $ DEFINE SYS$ERROR _NLA0:
2037 $ DEFINE SYS$OUTPUT _NLA0:
2038 $ on error then continue
2039 $ on warning then continue
2041 $ If (Needs_Opt.eqs."Yes")
2043 $ link temp.obj,temp.opt/opt
2047 $ teststatus = f$extract(9,1,$status)
2048 $ DEASSIGN SYS$OUTPUT
2049 $ DEASSIGN SYS$ERROR
2050 $ if (teststatus.nes."1")
2052 $ perl_d_setnent="undef"
2054 $ perl_d_setnent="define"
2057 $ perl_d_setnent="undef"
2059 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
2061 $! Check for setprotoent
2063 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2067 $ WS "#include <stdlib.h>
2069 $ WS "#include <stdio.h>
2070 $ if ("''Has_Socketshr'".eqs."T")
2072 $ WS "#include <socketshr.h>"
2074 $ WS "#include <netdb.h>
2078 $ WS "setprotoent(1);
2082 $ DEFINE SYS$ERROR _NLA0:
2083 $ DEFINE SYS$OUTPUT _NLA0:
2084 $ on error then continue
2085 $ on warning then continue
2087 $ If (Needs_Opt.eqs."Yes")
2089 $ link temp.obj,temp.opt/opt
2093 $ teststatus = f$extract(9,1,$status)
2094 $ DEASSIGN SYS$OUTPUT
2095 $ DEASSIGN SYS$ERROR
2096 $ if (teststatus.nes."1")
2098 $ perl_d_setpent="undef"
2100 $ perl_d_setpent="define"
2103 $ perl_d_setpent="undef"
2105 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
2107 $! Check for setservent
2109 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2113 $ WS "#include <stdlib.h>
2115 $ WS "#include <stdio.h>
2116 $ if ("''Has_Socketshr'".eqs."T")
2118 $ WS "#include <socketshr.h>"
2120 $ WS "#include <netdb.h>
2124 $ WS "setservent(1);
2128 $ DEFINE SYS$ERROR _NLA0:
2129 $ DEFINE SYS$OUTPUT _NLA0:
2130 $ on error then continue
2131 $ on warning then continue
2133 $ If (Needs_Opt.eqs."Yes")
2135 $ link temp.obj,temp.opt/opt
2139 $ teststatus = f$extract(9,1,$status)
2140 $ DEASSIGN SYS$OUTPUT
2141 $ DEASSIGN SYS$ERROR
2142 $ if (teststatus.nes."1")
2144 $ perl_d_setsent="undef"
2146 $ perl_d_setsent="define"
2149 $ perl_d_setsent="undef"
2151 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
2153 $! Check for gethostent
2155 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2159 $ WS "#include <stdlib.h>
2161 $ WS "#include <stdio.h>
2162 $ if ("''Has_Socketshr'".eqs."T")
2164 $ WS "#include <socketshr.h>"
2166 $ WS "#include <netdb.h>
2174 $ DEFINE SYS$ERROR _NLA0:
2175 $ DEFINE SYS$OUTPUT _NLA0:
2176 $ on error then continue
2177 $ on warning then continue
2179 $ If (Needs_Opt.eqs."Yes")
2181 $ link temp.obj,temp.opt/opt
2185 $ teststatus = f$extract(9,1,$status)
2186 $ DEASSIGN SYS$OUTPUT
2187 $ DEASSIGN SYS$ERROR
2188 $ if (teststatus.nes."1")
2190 $ perl_d_gethent="undef"
2192 $ perl_d_gethent="define"
2195 $ perl_d_gethent="undef"
2197 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
2199 $! Check for getnetent
2201 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2205 $ WS "#include <stdlib.h>
2207 $ WS "#include <stdio.h>
2208 $ if ("''Has_Socketshr'".eqs."T")
2210 $ WS "#include <socketshr.h>"
2212 $ WS "#include <netdb.h>
2220 $ DEFINE SYS$ERROR _NLA0:
2221 $ DEFINE SYS$OUTPUT _NLA0:
2222 $ on error then continue
2223 $ on warning then continue
2225 $ If (Needs_Opt.eqs."Yes")
2227 $ link temp.obj,temp.opt/opt
2231 $ teststatus = f$extract(9,1,$status)
2232 $ DEASSIGN SYS$OUTPUT
2233 $ DEASSIGN SYS$ERROR
2234 $ if (teststatus.nes."1")
2236 $ perl_d_getnent="undef"
2238 $ perl_d_getnent="define"
2241 $ perl_d_getnent="undef"
2243 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
2245 $! Check for getprotoent
2247 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2251 $ WS "#include <stdlib.h>
2253 $ WS "#include <stdio.h>
2254 $ if ("''Has_Socketshr'".eqs."T")
2256 $ WS "#include <socketshr.h>"
2258 $ WS "#include <netdb.h>
2262 $ WS "getprotoent();
2266 $ DEFINE SYS$ERROR _NLA0:
2267 $ DEFINE SYS$OUTPUT _NLA0:
2268 $ on error then continue
2269 $ on warning then continue
2271 $ If (Needs_Opt.eqs."Yes")
2273 $ link temp.obj,temp.opt/opt
2277 $ teststatus = f$extract(9,1,$status)
2278 $ DEASSIGN SYS$OUTPUT
2279 $ DEASSIGN SYS$ERROR
2280 $ if (teststatus.nes."1")
2282 $ perl_d_getpent="undef"
2284 $ perl_d_getpent="define"
2287 $ perl_d_getpent="undef"
2289 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
2291 $! Check for getservent
2293 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2297 $ WS "#include <stdlib.h>
2299 $ WS "#include <stdio.h>
2300 $ if ("''Has_Socketshr'".eqs."T")
2302 $ WS "#include <socketshr.h>"
2304 $ WS "#include <netdb.h>
2312 $ DEFINE SYS$ERROR _NLA0:
2313 $ DEFINE SYS$OUTPUT _NLA0:
2314 $ on error then continue
2315 $ on warning then continue
2317 $ If (Needs_Opt.eqs."Yes")
2319 $ link temp.obj,temp.opt/opt
2323 $ teststatus = f$extract(9,1,$status)
2324 $ DEASSIGN SYS$OUTPUT
2325 $ DEASSIGN SYS$ERROR
2326 $ if (teststatus.nes."1")
2328 $ perl_d_getsent="undef"
2330 $ perl_d_getsent="define"
2333 $ perl_d_getsent="undef"
2335 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
2337 $! Check for pthread_yield
2339 $ if ("''use_threads'".eqs."T")
2343 $ WS "#include <stdlib.h>
2345 $ WS "#include <pthread.h>
2346 $ WS "#include <stdio.h>
2349 $ WS "pthread_yield();
2353 $ DEFINE SYS$ERROR _NLA0:
2354 $ DEFINE SYS$OUTPUT _NLA0:
2355 $ on error then continue
2356 $ on warning then continue
2358 $ teststatus = f$extract(9,1,$status)
2359 $ DEASSIGN SYS$OUTPUT
2360 $ DEASSIGN SYS$ERROR
2361 $ if (teststatus.nes."1")
2363 $ perl_d_pthread_yield="undef"
2365 $ perl_d_pthread_yield="define"
2368 $ perl_d_pthread_yield="undef"
2370 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
2372 $! Check for sched_yield
2374 $ if ("''use_threads'".eqs."T")
2378 $ WS "#include <stdlib.h>
2380 $ WS "#include <pthread.h>
2381 $ WS "#include <stdio.h>
2384 $ WS "sched_yield();
2388 $ DEFINE SYS$ERROR _NLA0:
2389 $ DEFINE SYS$OUTPUT _NLA0:
2390 $ on error then continue
2391 $ on warning then continue
2393 $ teststatus = f$extract(9,1,$status)
2394 $ DEASSIGN SYS$OUTPUT
2395 $ DEASSIGN SYS$ERROR
2396 $ if (teststatus.nes."1")
2398 $ perl_d_sched_yield="undef"
2400 $ perl_d_sched_yield="define"
2403 $ perl_d_sched_yield="undef"
2405 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
2407 $! Check for generic pointer size
2411 $ WS "#include <stdlib.h>
2413 $ WS "#include <stdio.h>
2417 $ WS "foo = sizeof(char *);
2418 $ WS "printf(""%d\n"", foo);
2422 $! copy temp.c sys$output
2424 $ DEFINE SYS$ERROR _NLA0:
2425 $ DEFINE SYS$OUTPUT _NLA0:
2426 $ ON ERROR THEN CONTINUE
2427 $ ON WARNING THEN CONTINUE
2429 $ If (Needs_Opt.eqs."Yes")
2431 $ link temp.obj,temp.opt/opt
2435 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
2436 $ DEASSIGN SYS$OUTPUT
2437 $ DEASSIGN SYS$ERROR
2438 $ DEFINE SYS$ERROR TEMPOUT
2439 $ DEFINE SYS$OUTPUT TEMPOUT
2442 $ DEASSIGN SYS$OUTPUT
2443 $ DEASSIGN SYS$ERROR
2444 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
2449 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
2452 $! Check rand48 and its ilk
2456 $ WS "#include <stdlib.h>
2458 $ WS "#include <stdio.h>
2461 $ WS "srand48(12L);"
2465 $! copy temp.c sys$output
2467 $ DEFINE SYS$ERROR _NLA0:
2468 $ DEFINE SYS$OUTPUT _NLA0:
2469 $ ON ERROR THEN CONTINUE
2470 $ ON WARNING THEN CONTINUE
2472 $ If (Needs_Opt.eqs."Yes")
2474 $ link temp,temp.opt/opt
2478 $ teststatus = f$extract(9,1,$status)
2479 $ DEASSIGN SYS$OUTPUT
2480 $ DEASSIGN SYS$ERROR
2481 $ if (teststatus.nes."1")
2483 $ perl_drand01="random()"
2484 $ perl_randseedtype = "unsigned"
2485 $ perl_seedfunc = "srandom"
2489 $ WS "#include <stdlib.h>
2491 $ WS "#include <stdio.h>
2498 $! copy temp.c sys$output
2500 $ DEFINE SYS$ERROR _NLA0:
2501 $ DEFINE SYS$OUTPUT _NLA0:
2502 $ ON ERROR THEN CONTINUE
2503 $ ON WARNING THEN CONTINUE
2505 $ If (Needs_Opt.eqs."Yes")
2507 $ link temp,temp.opt/opt
2511 $ teststatus = f$extract(9,1,$status)
2512 $ DEASSIGN SYS$OUTPUT
2513 $ DEASSIGN SYS$ERROR
2514 $ if (teststatus.nes."1")
2516 $ perl_drand01="(((float)rand())/((float)RAND_MAX))"
2517 $ perl_randseedtype = "unsigned"
2518 $ perl_seedfunc = "srand"
2520 $ WRITE_RESULT "drand01 is ''perl_drand01'"
2523 $! Done with compiler checks. Clean up.
2524 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
2525 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
2526 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
2527 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
2530 $! Some that are compiler or VMS version sensitive
2533 $ IF "''Using_Gnu_C'".EQS."Yes"
2535 $ perl_d_attribut="define"
2536 $ perl_vms_cc_type="gcc"
2538 $ perl_d_attribut="undef"
2541 $! Dec C >= 5.2 and VMS ver >= 7.0
2542 $ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
2544 $ perl_d_bcmp="define"
2545 $ perl_d_gettimeod="define"
2546 $ perl_d_uname="define"
2547 $ perl_d_sigaction="define"
2548 $ perl_d_truncate="define"
2549 $ perl_d_wait4="define"
2550 $ perl_d_index="define"
2551 $ perl_pidtype="pid_t"
2552 $ 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"
2553 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
2554 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
2555 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
2556 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
2557 $ 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"
2558 $ 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"
2559 $ perl_sig_num_with_commas=perl_sig_num_init
2560 $ perl_uidtype="uid_t"
2561 $ perl_d_pathconf="define"
2562 $ perl_d_fpathconf="define"
2563 $ perl_d_sysconf="define"
2564 $ perl_d_sigsetjmp="define"
2566 $ perl_pidtype="unsigned int"
2567 $ perl_d_gettimeod="undef"
2568 $ perl_d_bcmp="undef"
2569 $ perl_d_uname="undef"
2570 $ perl_d_sigaction="undef"
2571 $ perl_d_truncate="undef"
2572 $ perl_d_wait4="undef"
2573 $ perl_d_index="undef"
2574 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
2575 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
2576 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
2577 $ perl_sig_name_with_commas = psnwc1 + psnwc2
2578 $ perl_sig_num="0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 6 16 17"",0"
2579 $ perl_sig_num_init="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
2580 $ perl_sig_num_with_commas=perl_sig_num_init
2581 $ perl_uidtype="unsigned int"
2582 $ perl_d_pathconf="undef"
2583 $ perl_d_fpathconf="undef"
2584 $ perl_d_sysconf="undef"
2585 $ perl_d_sigsetjmp="undef"
2589 $ IF ("''Using_Dec_C'".EQS."Yes")
2591 $ perl_d_mbstowcs="define"
2592 $ perl_d_mbtowc="define"
2593 $ perl_d_stdiobase="define"
2594 $ perl_d_stdio_ptr_lval="define"
2595 $ perl_d_stdio_cnt_lval="define"
2596 $ perl_d_stdstdio="define"
2597 $ perl_d_wcstombs="define"
2598 $ perl_d_mblen="define"
2599 $ perl_d_mktime="define"
2600 $ perl_d_strcoll="define"
2601 $ perl_d_strxfrm="define"
2602 $ perl_d_wctomb="define"
2603 $ perl_i_locale="define"
2604 $ perl_d_locconv="define"
2605 $ perl_d_setlocale="define"
2606 $ perl_vms_cc_type="decc"
2608 $ perl_d_mbstowcs="undef"
2609 $ perl_d_mbtowc="undef"
2610 $ perl_d_stdiobase="undef"
2611 $ perl_d_stdio_ptr_lval="undef"
2612 $ perl_d_stdio_cnt_lval="undef"
2613 $ perl_d_stdstdio="undef"
2614 $ perl_d_wcstombs="undef"
2615 $ perl_d_mblen="undef"
2616 $ perl_d_mktime="undef"
2617 $ perl_d_strcoll="undef"
2618 $ perl_d_strxfrm="undef"
2619 $ perl_d_wctomb="undef"
2620 $ perl_i_locale="undef"
2621 $ perl_d_locconv="undef"
2622 $ perl_d_setlocale="undef"
2626 $ if ("''Using_Vax_C'".EQS."Yes")
2628 $ perl_vms_cc_type="vaxc"
2633 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
2635 $ perl_d_vms_do_sockets="define"
2636 $ perl_d_htonl="define"
2637 $ perl_d_socket="define"
2638 $ perl_d_select="define"
2639 $ perl_netdb_host_type="char *"
2640 $ perl_netdb_hlen_type="int"
2641 $ perl_netdb_name_type="char *"
2642 $ perl_netdb_net_type="long"
2643 $ perl_d_gethbyaddr="define"
2644 $ perl_d_gethbyname="define"
2645 $ perl_d_getnbyaddr="define"
2646 $ perl_d_getnbyname="define"
2647 $ perl_d_getpbynumber="define"
2648 $ perl_d_getpbyname="define"
2649 $ perl_d_getsbyport="define"
2650 $ perl_d_getsbyname="define"
2651 $ perl_d_gethostprotos="define"
2652 $ perl_d_getnetprotos="define"
2653 $ perl_d_getprotoprotos="define"
2654 $ perl_d_getservprotos="define"
2656 $ perl_d_vms_do_sockets="undef"
2657 $ perl_d_htonl="undef"
2658 $ perl_d_socket="undef"
2659 $ perl_d_select="undef"
2660 $ perl_netdb_host_type="char *"
2661 $ perl_netdb_hlen_type="int"
2662 $ perl_netdb_name_type="char *"
2663 $ perl_netdb_net_type="long"
2664 $ perl_d_gethbyaddr="undef"
2665 $ perl_d_gethbyname="undef"
2666 $ perl_d_getnbyaddr="undef"
2667 $ perl_d_getnbyname="undef"
2668 $ perl_d_getpbynumber="undef"
2669 $ perl_d_getpbyname="undef"
2670 $ perl_d_getsbyport="undef"
2671 $ perl_d_getsbyname="undef"
2672 $ perl_d_gethostprotos="undef"
2673 $ perl_d_getnetprotos="undef"
2674 $ perl_d_getprotoprotos="undef"
2675 $ perl_d_getservprotos="undef"
2678 $ if ("''use_threads'".eqs."T")
2680 $ perl_usethreads="define"
2681 $ perl_d_pthreads_created_joinable="define"
2682 $ if ("''VMS_VER'".ges."7.0")
2684 $ perl_d_oldpthreads="undef"
2686 $ perl_d_oldpthreads="define"
2689 $ perl_d_oldpthreads="undef"
2690 $ perl_usethreads="undef"
2692 $ perl_d_pthreads_created_joinable="undef"
2696 $! Finally the composite ones. All config
2697 $ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
2698 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
2699 $ perl_myhostname="''myhostname'"
2700 $ perl_mydomain="''mydomain'"
2701 $ perl_perladmin="''perladmin'"
2702 $ perl_cf_email="''cf_email'"
2703 $ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
2704 $ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
2705 $ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
2706 $ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
2707 $ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
2708 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
2709 $ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
2710 $ if "''Using_Dec_C'" .eqs. "Yes"
2712 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
2714 $ IF "''Using_Vax_C'" .eqs. "Yes"
2716 $ perl_ccflags="/Include=[]/Obj=''perl_obj_ext'/NoList''cc_flags'"
2719 $ if use_vmsdebug_perl .eqs. "Y"
2721 $ perl_optimize="/Debug/NoOpt"
2722 $ perl_dbgprefix = "DBG"
2725 $ perl_dbgprefix = ""
2728 $! Finally clean off any leading zeros from the patchlevel or subversion
2729 $ perl_patchlevel = perl_patchlevel + 0
2730 $ perl_subversion = perl_subversion + 0
2732 $! Okay, we've got everything configured. Now go write out a config.sh.
2733 $ open/write CONFIGSH [-]config.sh
2734 $ WC := "write CONFIGSH"
2736 $ WC "# This file generated by Configure.COM on a VMS system."
2737 $ WC "# Time: " + perl_cf_time
2739 $ WC "package='" + perl_package + "'"
2740 $ WC "CONFIG='" + perl_config + "'"
2741 $ WC "cf_time='" + perl_cf_time + "'"
2742 $ WC "cf_by='" + perl_cf_by+ "'"
2743 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
2744 $ WC "ccdlflags='" + perl_ccdlflags + "'"
2745 $ WC "cccdlflags='" + perl_cccdlflags + "'"
2746 $ WC "mab='" + perl_mab + "'"
2747 $ WC "libpth='" + perl_libpth + "'"
2748 $ WC "ld='" + perl_ld + "'"
2749 $ WC "lddlflags='" + perl_lddlflags + "'"
2750 $ WC "ranlib='" + perl_ranlib + "'"
2751 $ WC "ar='" + perl_ar + "'"
2752 $ WC "eunicefix='" + perl_eunicefix + "'"
2753 $ WC "hint='" + perl_hint +"'"
2754 $ WC "hintfile='" + perl_hintfile + "'"
2755 $ WC "shrplib='" + perl_shrplib + "'"
2756 $ WC "usemymalloc='" + perl_usemymalloc + "'"
2757 $ WC "usevfork='" + perl_usevfork + "'"
2758 $ WC "useposix='false'"
2759 $ WC "spitshell='write sys$output '"
2760 $ WC "dlsrc='dl_vms.c'"
2761 $ WC "binexp='" + perl_binexp + "'"
2762 $ WC "man1ext='" + perl_man1ext + "'"
2763 $ WC "man3ext='" + perl_man3ext + "'"
2764 $ WC "arch='" + perl_arch + "'"
2765 $ WC "archname='" + perl_archname + "'"
2766 $ WC "osvers='" + perl_osvers + "'"
2767 $ WC "prefix='" + perl_prefix + "'"
2768 $ WC "builddir='" + perl_builddir + "'"
2769 $ WC "installbin='" + perl_installbin + "'"
2770 $ WC "installscript='" + perl_installscript + "'"
2771 $ WC "installman1dir='" + perl_installman1dir + "'"
2772 $ WC "installman3dir='" + perl_installman3dir + "'"
2773 $ WC "installprivlib='" + perl_installprivlib + "'"
2774 $ WC "installarchlib='" + perl_installarchlib + "'"
2775 $ WC "installsitelib='" + perl_installsitelib + "'"
2776 $ WC "installsitearch='" + perl_installsitearch + "'"
2777 $ WC "path_sep='" + perl_path_sep + "'"
2778 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
2779 $ WC "d_attribut='" + perl_d_attribut + "'"
2780 $ WC "cc='" + perl_cc + "'"
2781 $ WC "ccflags='" + perl_ccflags + "'"
2782 $ WC "optimize='" + perl_optimize + "'"
2783 $ WC "dbgprefix='" + perl_dbgprefix + "'"
2784 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
2785 $ WC "d_socket='" + perl_d_socket + "'"
2786 $ WC "d_sockpair='" + perl_d_sockpair + "'"
2787 $ WC "d_gethent='" + perl_d_gethent + "'"
2788 $ WC "d_getsent='" + perl_d_getsent + "'"
2789 $ WC "d_select='" + perl_d_select + "'"
2790 $ WC "i_niin='" + perl_i_niin + "'"
2791 $ WC "i_neterrno='" + perl_i_neterrno + "'"
2792 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
2793 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
2794 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
2795 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
2796 $ WC "d_locconv='" + perl_d_locconv + "'"
2797 $ WC "d_setlocale='" + perl_d_setlocale + "'"
2798 $ WC "i_locale='" + perl_i_locale + "'"
2799 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
2800 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
2801 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
2802 $ WC "d_wctomb='" + perl_d_wctomb + "'"
2803 $ WC "d_mblen='" + perl_d_mblen + "'"
2804 $ WC "d_mktime='" + perl_d_mktime + "'"
2805 $ WC "d_strcoll='" + perl_d_strcoll + "'"
2806 $ WC "d_strxfrm='" + perl_d_strxfrm + "'"
2807 $ WC "ldflags='" + perl_ldflags + "'"
2808 $ WC "dlobj='" + perl_dlobj + "'"
2809 $ WC "obj_ext='" + perl_obj_ext + "'"
2810 $ WC "so='" + perl_so + "'"
2811 $ WC "dlext='" + perl_dlext + "'"
2812 $ WC "exe_ext='" + perl_exe_ext + "'"
2813 $ WC "lib_ext='" + perl_lib_ext + "'"
2814 $ WC "myhostname='" + perl_myhostname + "'"
2815 $ WC "mydomain='" + perl_mydomain + "'"
2816 $ WC "perladmin='" + perl_perladmin + "'"
2817 $ WC "cf_email='" + perl_cf_email + "'"
2818 $ WC "myuname='" + perl_myuname + "'"
2819 $ WC "alignbytes='" + perl_alignbytes + "'"
2820 $ WC "osname='" + perl_osname + "'"
2821 $ WC "d_archlib='" + perl_d_archlib + "'"
2822 $ WC "archlibexp='" + perl_archlibexp + "'"
2823 $ WC "archlib='" + perl_archlib + "'"
2824 $ WC "archname='" + perl_archname + "'"
2825 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
2826 $ WC "cppstdin='" + perl_cppstdin + "'"
2827 $ WC "cppminus='" + perl_cppminus + "'"
2828 $ WC "d_bcmp='" + perl_d_bcmp + "'"
2829 $ WC "d_bcopy='" + perl_d_bcopy + "'"
2830 $ WC "d_bzero='" + perl_d_bzero + "'"
2831 $ WC "d_castneg='" + perl_d_castneg + "'"
2832 $ WC "castflags='" + perl_castflags + "'"
2833 $ WC "d_chsize='" + perl_d_chsize + "'"
2834 $ WC "d_const='" + perl_d_const + "'"
2835 $ WC "d_crypt='" + perl_d_crypt + "'"
2836 $ WC "byteorder='" + perl_byteorder + "'"
2837 $ WC "full_csh='" + perl_full_csh + "'"
2838 $ WC "d_csh='" + perl_d_csh + "'"
2839 $ WC "d_dup2='" + perl_d_dup2 + "'"
2840 $ WC "d_fchmod='" + perl_d_fchmod + "'"
2841 $ WC "d_fchown='" + perl_d_fchown + "'"
2842 $ WC "d_fcntl='" + perl_d_fcntl + "'"
2843 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
2844 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
2845 $ WC "d_flock='" + perl_d_flock + "'"
2846 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
2847 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
2848 $ WC "d_getgrps='" + perl_d_getgrps + "'"
2849 $ WC "d_setgrps='" + perl_d_setgrps + "'"
2850 $ WC "d_uname='" + perl_d_uname + "'"
2851 $ WC "d_getprior='" + perl_d_getprior + "'"
2852 $ WC "d_killpg='" + perl_d_killpg + "'"
2853 $ WC "d_link='" + perl_d_link + "'"
2854 $ WC "d_lstat='" + perl_d_lstat + "'"
2855 $ WC "d_lockf='" + perl_d_lockf + "'"
2856 $ WC "d_memcmp='" + perl_d_memcmp + "'"
2857 $ WC "d_memcpy='" + perl_d_memcpy + "'"
2858 $ WC "d_memmove='" + perl_d_memmove + "'"
2859 $ WC "d_memset='" + perl_d_memset + "'"
2860 $ WC "d_mkdir='" + perl_d_mkdir + "'"
2861 $ WC "d_msg='" + perl_d_msg + "'"
2862 $ WC "d_open3='" + perl_d_open3 + "'"
2863 $ WC "d_poll='" + perl_d_poll + "'"
2864 $ WC "d_readdir='" + perl_d_readdir + "'"
2865 $ WC "d_seekdir='" + perl_d_seekdir + "'"
2866 $ WC "d_telldir='" + perl_d_telldir + "'"
2867 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
2868 $ WC "d_rename='" + perl_d_rename + "'"
2869 $ WC "d_rmdir='" + perl_d_rmdir + "'"
2870 $ WC "d_sem='" + perl_d_sem + "'"
2871 $ WC "d_setegid='" + perl_d_setegid + "'"
2872 $ WC "d_seteuid='" + perl_d_seteuid + "'"
2873 $ WC "d_setprior='" + perl_d_setprior + "'"
2874 $ WC "d_setregid='" + perl_d_setregid + "'"
2875 $ WC "d_setresgid='" + perl_d_setresgid + "'"
2876 $ WC "d_setreuid='" + perl_d_setreuid + "'"
2877 $ WC "d_setresuid='" + perl_d_setresuid + "'"
2878 $ WC "d_setrgid='" + perl_d_setrgid + "'"
2879 $ WC "d_setruid='" + perl_d_setruid + "'"
2880 $ WC "d_setsid='" + perl_d_setsid + "'"
2881 $ WC "d_shm='" + perl_d_shm + "'"
2882 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
2883 $ WC "d_sigaction='" + perl_d_sigaction + "'"
2884 $ WC "d_statblks='" + perl_d_statblks + "'"
2885 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
2886 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
2887 $ WC "stdio_base='" + perl_stdio_base + "'"
2888 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
2889 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
2890 $ WC "d_strerror='" + perl_d_strerror + "'"
2891 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
2892 $ WC "d_strerrm='" + perl_d_strerrm + "'"
2893 $ WC "d_symlink='" + perl_d_symlink + "'"
2894 $ WC "d_syscall='" + perl_d_syscall + "'"
2895 $ WC "d_system='" + perl_d_system + "'"
2896 $ WC "timetype='" + perl_timetype + "'"
2897 $ WC "d_truncate='" + perl_d_truncate + "'"
2898 $ WC "d_vfork='" + perl_d_vfork + "'"
2899 $ WC "signal_t='" + perl_signal_t + "'"
2900 $ WC "d_volatile='" + perl_d_volatile + "'"
2901 $ WC "d_vprintf='" + perl_d_vprintf + "'"
2902 $ WC "d_charvspr='" + perl_d_charvspr + "'"
2903 $ WC "d_wait4='" + perl_d_wait4 + "'"
2904 $ WC "d_waitpid='" + perl_d_waitpid + "'"
2905 $ WC "i_dirent='" + perl_i_dirent + "'"
2906 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
2907 $ WC "direntrytype='" + perl_direntrytype + "'"
2908 $ WC "i_fcntl='" + perl_i_fcntl + "'"
2909 $ WC "i_grp='" + perl_i_grp + "'"
2910 $ WC "i_limits='" + perl_i_limits + "'"
2911 $ WC "i_memory='" + perl_i_memory + "'"
2912 $ WC "i_ndbm='" + perl_i_ndbm + "'"
2913 $ WC "i_stdarg='" + perl_i_stdarg + "'"
2914 $ WC "i_pwd='" + perl_i_pwd + "'"
2915 $ WC "d_pwquota='" + perl_d_pwquota + "'"
2916 $ WC "d_pwage='" + perl_d_pwage + "'"
2917 $ WC "d_pwchange='" + perl_d_pwchange + "'"
2918 $ WC "d_pwclass='" + perl_d_pwclass + "'"
2919 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
2920 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
2921 $ WC "i_stddef='" + perl_i_stddef + "'"
2922 $ WC "i_stdlib='" + perl_i_stdlib + "'"
2923 $ WC "i_string='" + perl_i_string + "'"
2924 $ WC "i_sysdir='" + perl_i_sysdir + "'"
2925 $ WC "i_sysfile='" + perl_i_sysfile + "'"
2926 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
2927 $ WC "i_sysndir='" + perl_i_sysndir + "'"
2928 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
2929 $ WC "i_sysselct='" + perl_i_sysselct + "'"
2930 $ WC "i_dbm='" + perl_i_dbm + "'"
2931 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
2932 $ WC "i_sfio='" + perl_i_sfio + "'"
2933 $ WC "i_sysstat='" + perl_i_sysstat + "'"
2934 $ WC "i_systimes='" + perl_i_systimes + "'"
2935 $ WC "i_systypes='" + perl_i_systypes + "'"
2936 $ WC "i_sysun='" + perl_i_sysun + "'"
2937 $ WC "i_syswait='" + perl_i_syswait + "'"
2938 $ WC "i_termio='" + perl_i_termio + "'"
2939 $ WC "i_sgtty='" + perl_i_sgtty + "'"
2940 $ WC "i_termios='" + perl_i_termios + "'"
2941 $ WC "i_time='" + perl_i_time + "'"
2942 $ WC "i_systime='" + perl_i_systime + "'"
2943 $ WC "i_systimek='" + perl_i_systimek + "'"
2944 $ WC "i_unistd='" + perl_i_unistd + "'"
2945 $ WC "i_utime='" + perl_i_utime + "'"
2946 $ WC "i_varargs='" + perl_i_varargs + "'"
2947 $ WC "i_vfork='" + perl_i_vfork + "'"
2948 $ WC "prototype='" + perl_prototype + "'"
2949 $ WC "randbits='" + perl_randbits +"'"
2950 $ WC "selecttype='" + perl_selecttype + "'"
2951 $ WC "stdchar='" + perl_stdchar + "'"
2952 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
2953 $ WC "full_sed='" + perl_full_sed + "'"
2954 $ WC "bin='" + perl_bin + "'"
2955 $ WC "binexp='" + perl_binexp + "'"
2956 $ WC "d_alarm='" + perl_d_alarm + "'"
2957 $ WC "d_casti32='" + perl_d_casti32 + "'"
2958 $ WC "d_chown='" + perl_d_chown + "'"
2959 $ WC "d_chroot='" + perl_d_chroot + "'"
2960 $ WC "d_cuserid='" + perl_d_cuserid + "'"
2961 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
2962 $ WC "d_difftime='" + perl_d_difftime + "'"
2963 $ WC "d_fork='" + perl_d_fork + "'"
2964 $ WC "d_getlogin='" + perl_d_getlogin + "'"
2965 $ WC "d_getppid='" + perl_d_getppid + "'"
2966 $ WC "d_htonl='" + perl_d_htonl + "'"
2967 $ WC "d_nice='" + perl_d_nice + "'"
2968 $ WC "d_pause='" + perl_d_pause + "'"
2969 $ WC "d_pipe='" + perl_d_pipe + "'"
2970 $ WC "d_readlink='" + perl_d_readlink + "'"
2971 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
2972 $ WC "d_strchr='" + perl_d_strchr + "'"
2973 $ WC "d_index='" + perl_d_index + "'"
2974 $ WC "d_strtod='" + perl_d_strtod + "'"
2975 $ WC "d_strtol='" + perl_d_strtol + "'"
2976 $ WC "d_strtoul='" + perl_d_strtoul + "'"
2977 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
2978 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
2979 $ WC "d_times='" + perl_d_times + "'"
2980 $ WC "d_tzname='" + perl_d_tzname + "'"
2981 $ WC "d_umask='" + perl_d_umask + "'"
2982 $ WC "fpostype='" + perl_fpostype + "'"
2983 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
2984 $ WC "i_float='" + perl_i_float + "'"
2985 $ WC "i_math='" + perl_i_math + "'"
2986 $ WC "intsize='" + perl_intsize + "'"
2987 $ WC "longsize='" + perl_longsize + "'"
2988 $ WC "shortsize='" + perl_shortsize + "'"
2989 $ WC "lseektype='" + perl_lseektype + "'"
2990 $ WC "i_values='" + perl_i_values + "'"
2991 $ WC "malloctype='" + perl_malloctype + "'"
2992 $ WC "freetype='" + perl_freetype + "'"
2993 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
2994 $ WC "sh='" + perl_sh + "'"
2995 $ WC "sig_name='" + perl_sig_name + "'"
2996 $ WC "sig_num='" + perl_sig_num + "'"
2997 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
2999 $ WC "modetype='" + perl_modetype + "'"
3000 $ WC "ssizetype='" + perl_ssizetype + "'"
3001 $ WC "o_nonblock='" + perl_o_nonblock + "'"
3002 $ WC "eagain='" + perl_eagain + "'"
3003 $ WC "rd_nodata='" + perl_rd_nodata + "'"
3004 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
3005 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
3006 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
3007 $ WC "oldarchlib='" + perl_oldarchlib + "'"
3008 $ WC "privlibexp='" + perl_privlibexp + "'"
3009 $ WC "privlib='" + perl_privlib + "'"
3010 $ WC "sitelibexp='" + perl_sitelibexp + "'"
3011 $ WC "sitelib='" + perl_sitelib + "'"
3012 $ WC "sitearchexp='" + perl_sitearchexp + "'"
3013 $ WC "sitearch='" + perl_sitearch + "'"
3014 $ WC "sizetype='" + perl_sizetype + "'"
3015 $ WC "i_sysparam='" + perl_i_sysparam + "'"
3016 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
3017 $ WC "d_dlerror='" + perl_d_dlerror + "'"
3018 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
3019 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
3020 $ WC "d_dosuid='" + perl_d_dosuid + "'"
3021 $ WC "d_inetaton='" + perl_d_inetaton + "'"
3022 $ WC "d_isascii='" + perl_d_isascii + "'"
3023 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
3024 $ WC "d_pathconf='" + perl_d_pathconf + "'"
3025 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
3026 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
3027 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
3028 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
3029 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
3030 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
3031 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
3032 $ WC "d_setpgid='" + perl_d_setpgid + "'"
3033 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
3034 $ WC "d_sysconf='" + perl_d_sysconf + "'"
3035 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
3036 $ WC "d_getpgid='" + perl_d_getpgid + "'"
3037 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
3038 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
3039 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
3040 $ WC "d_sfio='" + perl_d_sfio + "'"
3041 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
3042 $ WC "usedl='" + perl_usedl + "'"
3043 $ WC "startperl=" + perl_startperl ! This one's special--no enclosing single quotes
3044 $ WC "db_hashtype='" + perl_db_hashtype + "'"
3045 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
3046 $ WC "useperlio='" + perl_useperlio + "'"
3047 $ WC "defvoidused='" + perl_defvoidused + "'"
3048 $ WC "voidflags='" + perl_voidflags + "'"
3049 $ WC "d_eunice='" + perl_d_eunice + "'"
3050 $ WC "libs='" + perl_libs + "'"
3051 $ WC "libc='" + perl_libc + "'"
3052 $ tempstring = "PERL_VERSION='" + "''perl_patchlevel'" + "'"
3054 $ tempstring = "PERL_SUBVERSION='" + "''perl_patchlevel'" + "'"
3056 $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
3058 $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
3060 $ WC "pager='" + perl_pager + "'"
3061 $ WC "uidtype='" + perl_uidtype + "'"
3062 $ WC "gidtype='" + perl_gidtype + "'"
3063 $ WC "usethreads='" + perl_usethreads + "'"
3064 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
3065 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
3066 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
3067 $ WC "i_netdb='" + perl_i_netdb + "'"
3068 $ WC "pidtype='" + perl_pidtype + "'"
3069 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
3070 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
3071 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
3072 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
3073 $ WC "baserev='" + perl_baserev + "'"
3074 $ WC "doublesize='" + perl_doublesize + "'"
3075 $ WC "ptrsize='" + perl_ptrsize + "'"
3076 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
3077 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
3078 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
3079 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
3080 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
3081 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
3082 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
3083 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
3084 $ WC "d_sethent='" + perl_d_sethent + "'"
3085 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
3086 $ WC "d_longdbl='" + perl_d_longdbl + "'"
3087 $ WC "longdblsize='" + perl_longdblsize + "'"
3088 $ WC "d_longlong='" + perl_d_longlong + "'"
3089 $ WC "longlongsize='" + perl_longlongsize + "'"
3090 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
3091 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
3092 $ WC "d_setenv='" + perl_d_setenv + "'"
3093 $ WC "d_endhent='" + perl_d_endhent + "'"
3094 $ WC "d_endnent='" + perl_d_endsent + "'"
3095 $ WC "d_endpent='" + perl_d_endpent + "'"
3096 $ WC "d_endsent='" + perl_d_endsent + "'"
3097 $ WC "d_gethent='" + perl_d_gethent + "'"
3098 $ WC "d_getnent='" + perl_d_getsent + "'"
3099 $ WC "d_getpent='" + perl_d_getpent + "'"
3100 $ WC "d_getsent='" + perl_d_getsent + "'"
3101 $ WC "d_sethent='" + perl_d_sethent + "'"
3102 $ WC "d_setnent='" + perl_d_setsent + "'"
3103 $ WC "d_setpent='" + perl_d_setpent + "'"
3104 $ WC "ebcdic='" + perl_ebcdic + "'"
3105 $ WC "d_setsent='" + perl_d_setsent + "'"
3106 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
3107 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
3108 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
3109 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
3110 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
3111 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
3112 $ WC "d_lchown='" + perl_d_lchown + "'"
3113 $ WC "d_union_semun='" + perl_d_union_semun + "'"
3114 $ WC "i_arpainet='" + perl_i_arpainet + "'"
3115 $ WC "d_grpasswd='" + perl_d_grpasswd + "'"
3116 $ WC "d_setgrent='" + perl_d_setgrent + "'"
3117 $ WC "d_getgrent='" + perl_d_getgrent + "'"
3118 $ WC "d_endgrent='" + perl_d_endgrent + "'"
3119 $ WC "d_pwpasswd='" + perl_d_pwpasswd + "'"
3120 $ WC "d_setpwent='" + perl_d_setpwent + "'"
3121 $ WC "d_getpwent='" + perl_d_getpwent + "'"
3122 $ WC "d_endpwent='" + perl_d_endpwent + "'"
3123 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
3124 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
3125 $ WC "extensions='" + perl_extensions + "'"
3126 $ WC "d_mknod='" + perl_d_mknod + "'"
3127 $ WC "devtype='" + perl_devtype + "'"
3128 $ WC "d_gethname='" + perl_d_gethname + "'"
3129 $ WC "d_phostname='" + perl_d_phostname + "'"
3130 $ WC "d_accessx='" + perl_d_accessx + "'"
3131 $ WC "d_eaccess='" + perl_d_eaccess + "'"
3132 $ WC "i_sysaccess='" + perl_i_sysaccess + "'"
3133 $ WC "i_syssecrt='" + perl_i_syssecrt + "'"
3134 $ WC "d_fd_set='" + perl_d_fd_set + "'"
3135 $ WC "d_access='" + perl_d_access + "'"
3136 $ WC "d_msg_ctrunc='" + perl_d_msg_ctrunc + "'"
3137 $ WC "d_msg_dontroute='" + perl_d_msg_dontroute + "'"
3138 $ WC "d_msg_oob='" + perl_d_msg_oob + "'"
3139 $ WC "d_msg_peek='" + perl_d_msg_peek + "'"
3140 $ WC "d_msg_proxy='" + perl_d_msg_proxy + "'"
3141 $ WC "d_scm_rights='" + perl_d_scm_rights + "'"
3142 $ WC "d_sendmsg='" + perl_d_sendmsg + "'"
3143 $ WC "d_recvmsg='" + perl_d_recvmsg + "'"
3144 $ WC "d_msghdr_s='" + perl_d_msghdr_s + "'"
3145 $ WC "d_cmsghdr_s='" + perl_d_cmsghdr_s + "'"
3146 $ WC "i_sysuio='" + perl_i_sysuio + "'"
3147 $ WC "d_fseeko='" + perl_d_fseeko + "'"
3148 $ WC "d_ftello='" + perl_d_ftello + "'"
3149 $ WC "d_readv='" + perl_d_readv + "'"
3150 $ WC "d_writev='" + perl_d_writev + "'"
3151 $ WC "i_machcthr='" + perl_i_machcthr + "'"
3152 $ WC "usemultiplicity='" + perl_usemultiplicity + "'"
3153 $ WC "d_dbminit64='" + perl_d_dbminit64 + "'"
3154 $ WC "d_dbmclose64='" + perl_d_dbmclose64 + "'"
3155 $ WC "d_fetch64='" + perl_d_fetch64 + "'"
3156 $ WC "d_store64='" + perl_d_store64 + "'"
3157 $ WC "d_delete64='" + perl_d_delete64 + "'"
3158 $ WC "d_firstkey64='" + perl_d_firstkey64 + "'"
3159 $ WC "d_nextkey64='" + perl_d_nextkey64 + "'"
3160 $ WC "i_poll='" + perl_i_poll + "'"
3161 $ WC "i_inttypes='" + perl_i_inttypes + "'"
3162 $ WC "d_int64t='" + perl_d_int64t + "'"
3163 $ WC "d_off64t='" + perl_d_off64t + "'"
3164 $ WC "d_fstat64='" + perl_d_fstat64 + "'"
3165 $ WC "d_ftruncate64='" + perl_d_ftruncate64 + "'"
3166 $ WC "d_lseek64='" + perl_d_lseek64 + "'"
3167 $ WC "d_lstat64='" + perl_d_lstat64 + "'"
3168 $ WC "d_open64='" + perl_d_open64 + "'"
3169 $ WC "d_opendir64='" + perl_d_opendir64 + "'"
3170 $ WC "d_readdir64='" + perl_d_readdir64 + "'"
3171 $ WC "d_seekdir64='" + perl_d_seekdir64 + "'"
3172 $ WC "d_stat64='" + perl_d_stat64 + "'"
3173 $ WC "d_telldir64='" + perl_d_telldir64 + "'"
3174 $ WC "d_truncate64='" + perl_d_truncate64 + "'"
3175 $ WC "d_dirent64_s='" + perl_d_dirent64_s + "'"
3176 $ WC "use64bits='" + perl_use64bits + "'"
3177 $ WC "d_fgetpos64='" + perl_d_fgetpos64 + "'"
3178 $ WC "d_fopen64='" + perl_d_fopen64 + "'"
3179 $ WC "d_freopen64='" + perl_d_freopen64 + "'"
3180 $ WC "d_fseek64='" + perl_d_fseek64 + "'"
3181 $ WC "d_fseeko64='" + perl_d_fseeko64 + "'"
3182 $ WC "d_fsetpos64='" + perl_d_fsetpos64 + "'"
3183 $ WC "d_ftell64='" + perl_d_ftell64 + "'"
3184 $ WC "d_ftello64='" + perl_d_ftello64 + "'"
3185 $ WC "d_tmpfile64='" + perl_d_tmpfile64 + "'"
3186 $ WC "d_drand48proto='" + perl_d_drand48proto + "'"
3187 $ WC "d_old_pthread_create_joinable='" + perl_d_old_pthread_create_joinable + "'"
3188 $ WC "old_pthread_create_joinable='" + perl_old_pthread_create_joinable + "'"
3189 $ WC "drand01='" + perl_drand01 + "'"
3190 $ WC "randseedtype='" + perl_randseedtype + "'"
3191 $ WC "seedfunc='" + perl_seedfunc + "'"
3192 $ WC "sig_num_init='" + perl_sig_num_with_commas + "'"
3193 $ WC "i_sysmount='" + perl_i_sysmount + "'"
3194 $ WC "d_fstatfs='" + perl_d_fstatfs + "'"
3195 $ WC "d_statfsflags='" + perl_d_statfsflags + "'"
3196 $ WC "i_sysstatvfs='" + perl_i_sysstatvfs + "'"
3197 $ WC "i_machcthreads='" + perl_i_machcthreads + "'"
3198 $ WC "i_pthread='" + perl_i_pthread + "'"
3199 $ WC "d_fstatvfs='" + perl_d_fstatvfs + "'"
3200 $ WC "i_mntent='" + perl_i_mntent + "'"
3201 $ WC "d_getmntent='" + perl_d_getmntent + "'"
3202 $ WC "d_hasmntopt='" + perl_d_hasmntopt + "'"
3203 $ WC "d_telldirproto='" + perl_d_telldirproto + "'"
3204 $ WC "d_madvise='" + perl_d_madvise + "'"
3205 $ WC "d_msync='" + perl_d_msync + "'"
3206 $ WC "d_mprotect='" + perl_d_mprotect + "'"
3207 $ WC "d_munmap='" + perl_d_munmap + "'"
3208 $ WC "d_mmap='" + perl_d_mmap + "'"
3209 $ WC "i_sysmman='" + perl_i_sysmman + "'"
3210 $ WC "installusrbinperl='" + perl_installusrbinperl + "'"
3211 $ WC "crosscompile='" + perl_crosscompile + "'"
3212 $ WC "multiarch='" + perl_multiarch + "'"
3214 $! ##WRITE NEW CONSTANTS HERE##
3218 $! Okay, we've gotten here. Build munchconfig and run it
3219 $ 'Perl_CC' munchconfig.c
3220 $ If (Needs_Opt.eqs."Yes")
3222 $ open/write OPTCHAN []munchconfig.opt
3223 $ IF ("''using_gnu_c'".eqs."Yes")
3225 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
3227 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
3229 $ link munchconfig.obj,munchconfig.opt/opt
3230 $ delete munchconfig.opt;*
3232 $ link munchconfig.obj
3235 $ echo "Writing config.h"
3237 $ ! we need an fdl file
3238 $ CREATE [-]CONFIG.FDL
3241 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
3242 $ ! First spit out the header info with the local defines (to get
3243 $ ! around the 255 character command line limit)
3244 $ OPEN/APPEND CONFIG [-]config.local
3245 $ if use_debugging_perl.eqs."Y"
3247 $ WRITE CONFIG "#define DEBUGGING"
3249 $ if use_two_pot_malloc.eqs."Y"
3251 $ WRITE CONFIG "#define TWO_POT_OPTIMIZE"
3253 $ if mymalloc.eqs."Y"
3255 $ WRITE CONFIG "#define EMBEDMYMALLOC"
3257 $ if use_pack_malloc.eqs."Y"
3259 $ WRITE CONFIG "#define PACK_MALLOC"
3261 $ if use_debugmalloc.eqs."Y"
3263 $ write config "#define DEBUGGING_MSTATS"
3265 $ if "''Using_Gnu_C'" .eqs."Yes"
3267 $ WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
3269 $ if "''Has_Dec_C_Sockets'".eqs."T"
3271 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
3272 $ WRITE CONFIG "#define DECCRTL_SOCKETS"
3274 $ if "''Has_Socketshr'".eqs."T"
3276 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
3278 $! This is VMS-specific for now
3279 $ WRITE CONFIG "#''perl_d_setenv' HAS_SETENV"
3280 $ if d_alwdeftype.eqs."Y"
3282 $ WRITE CONFIG "#define SECURE_INTERNAL_GETENV"
3284 $ WRITE CONFIG "#undef SECURE_INTERNAL_GETENV"
3286 $ if d_secintgenv.eqs."Y"
3288 $ WRITE CONFIG "#define ALWAYS_DEFTYPES"
3290 $ WRITE CONFIG "#undef ALWAYS_DEFTYPES"
3292 $ WRITE CONFIG "#define HAS_ENVGETENV"
3295 $! Now build the normal config.h
3296 $ define/user sys$output [-]config.main
3297 $ mcr []munchconfig [-]config.sh [-]config_h.sh
3298 $ ! Concatenate them together
3299 $ copy [-]config.local,[-]config.main [-]config.h
3301 $ DELETE/NOLOG [-]CONFIG.MAIN;*
3302 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
3303 $ DELETE/NOLOG [-]CONFIG.FDL;*
3305 $ if "''Using_Dec_C'" .eqs."Yes"
3307 $ DECC_REPLACE = "DECC=decc=1"
3309 $ DECC_REPLACE = "DECC="
3311 $ if "''Using_Gnu_C'" .eqs."Yes"
3313 $ GNUC_REPLACE = "GNUC=gnuc=1"
3315 $ GNUC_REPLACE = "GNUC="
3317 $ if "''Has_Dec_C_Sockets'" .eqs."T"
3319 $ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
3321 $ if "''Has_Socketshr'" .eqs."T"
3323 $ SOCKET_REPLACE = "SOCKET=SOCKETSHR_SOCKETS=1"
3325 $ SOCKET_REPLACE = "SOCKET="
3328 $ IF ("''Use_Threads'".eqs."T")
3330 $ if ("''VMS_VER'".LES."6.2")
3332 $ THREAD_REPLACE = "THREAD=OLDTHREADED=1"
3334 $ THREAD_REPLACE = "THREAD=THREADED=1"
3337 $ THREAD_REPLACE = "THREAD="
3339 $ if mymalloc.eqs."Y"
3341 $ MALLOC_REPLACE = "MALLOC=MALLOC=1"
3343 $ MALLOC_REPLACE = "MALLOC="
3345 $ if f$getsyi("HW_MODEL").ge.1024
3347 $ ARCH_TYPE = "ARCH-TYPE=__AXP__"
3349 $ ARCH_TYPE = "ARCH-TYPE=__VAX__"
3351 $ echo "Writing DESCRIP.MMS"
3353 $ define/user sys$output [-]descrip.mms
3354 $ 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'"
3355 $ echo "Extracting Build_Ext.Com"
3356 $ Create Sys$Disk:[-]Build_Ext.Com
3357 $ Deck/Dollar="$EndOfTpl$"
3359 $! NOTE: This files is extracted as part of the VMS configuration process.
3360 $! Any changes made to it directly will be lost. If you need to make any
3361 $! changes, please edit the template in [.vms]SubConfigure.Com instead.
3362 $ def = F$Environment("Default")
3363 $ exts1 = F$Edit(p1,"Compress")
3364 $ p2 = F$Edit(p2,"Upcase,Compress,Trim")
3365 $ If F$Locate("MCR ",p2).eq.0 Then p2 = F$Extract(3,255,p2)
3366 $ miniperl = "$" + F$Search(F$Parse(p2,".Exe"))
3368 $ if f$type('p3') .nes. "" then makeutil = 'p3'
3369 $ targ = F$Edit(p4,"Lowercase")
3372 $ ext = F$Element(i," ",p1)
3373 $ If ext .eqs. " " Then Goto done
3374 $ Define/User Perl_Env_Tables CLISYM_LOCAL
3376 ($extdir = $ENV{'ext'}) =~ s/::/./g;
3377 if ($extdir =~ /^vms/i) { $extdir =~ s/vms/.vms.ext/i; }
3378 else { $extdir = ".ext.$extdir"; }
3379 ($ENV{'extdir'} = "[$extdir]");
3380 ($ENV{'up'} = ('-') x ($extdir =~ tr/././));
3381 $ Set Default &extdir
3383 $ If F$Locate("clean",targ) .eqs. F$Length(targ)
3385 $ Write Sys$Output "Building ''ext' . . ."
3386 $ On Error Then Goto done
3387 $ If F$Search("Descrip.MMS") .eqs. ""
3391 $ If F$CvTime(F$File("Descrip.MMS","rdt")) .lts. -
3392 F$CvTime(F$File("Makefile.PL","rdt")) Then redesc = 1
3395 $ Write Sys$Output "''targ'ing ''ext' . . ."
3396 $ On Error Then Continue
3399 miniperl "-I[''up'.lib]" Makefile.PL "INST_LIB=[''up'.lib]" "INST_ARCHLIB=[''up'.lib]"
3413 $! Clean up after ourselves
3414 $ delete/nolog munchconfig.exe;*
3415 $ delete/nolog munchconfig.obj;*