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 $ if use_multiplicity .eqs. "Y"
54 $ perl_usemultiplicity = "define"
56 $ perl_usemultiplicity = "undef"
58 $! Some constant defaults.
60 $ hwname = f$getsyi("HW_NAME")
62 $ if "''myname'" .eqs. "" THEN myname = f$trnlnm("SYS$NODE")
64 $! ##ADD NEW CONSTANTS HERE##
65 $ perl_d_madvise="undef"
66 $ perl_d_msync="undef"
67 $ perl_d_mprotect="undef"
68 $ perl_d_munmap="undef"
69 $ perl_crosscompile="undef"
70 $ perl_multiarch="undef"
72 $ perl_i_sysmman="undef"
73 $ perl_d_telldirproto="define"
74 $ perl_i_sysmount="undef"
75 $ perl_d_fstatfs="undef"
76 $ perl_d_fstatvfs="undef"
77 $ perl_d_statfsflags="undef"
78 $ perl_i_sysstatvfs="undef"
79 $ perl_i_mntent="undef"
80 $ perl_d_getmntent="undef"
81 $ perl_d_hasmntopt="undef"
82 $ perl_package="''package'"
83 $ perl_baserev = "''baserev'"
85 $ perl_installusrbinperl="undef"
87 $ perl_d_fseeko="undef"
88 $ perl_d_ftello="undef"
89 $ perl_d_readv="undef"
90 $ perl_d_writev="undef"
91 $ perl_i_machcthr="undef"
92 $ perl_i_netdb="undef"
93 $ perl_d_gnulibc="undef"
94 $ perl_cf_by="unknown"
98 $ perl_drand01 = "random()"
99 $ perl_randseedtype = "unsigned int"
100 $ perl_seedfunc = "srand"
101 $ perl_d_msg_ctrunc = "undef"
102 $ perl_d_msg_dontroute = "undef"
103 $ perl_d_msg_oob = "undef"
104 $ perl_d_msg_peek = "undef"
105 $ perl_d_msg_proxy = "undef"
106 $ perl_d_scm_rights = "undef"
107 $ perl_d_sendmsg = "undef"
108 $ perl_d_recvmsg = "undef"
109 $ perl_d_msghdr_s = "undef"
110 $ perl_d_cmsghdr_s = "undef"
111 $ perl_d_dbminit64 = "undef"
112 $ perl_d_dbmclose64 = "undef"
113 $ perl_d_fetch64 = "undef"
114 $ perl_d_store64 = "undef"
115 $ perl_d_delete64 = "undef"
116 $ perl_d_firstkey64 = "undef"
117 $ perl_d_nextkey64 = "undef"
118 $ perl_d_fstat64 = "undef"
119 $ perl_d_ftruncate64 = "undef"
120 $ perl_d_lseek64 = "undef"
121 $ perl_d_lstat64 = "undef"
122 $ perl_d_open64 = "undef"
123 $ perl_d_opendir64 = "undef"
124 $ perl_d_readdir64 = "undef"
125 $ perl_d_seekdir64 = "undef"
126 $ perl_d_stat64 = "undef"
127 $ perl_d_telldir64 = "undef"
128 $ perl_d_truncate64 = "undef"
129 $ perl_d_dirent64_s = "undef"
130 $ perl_d_fgetpos64 = "undef"
131 $ perl_d_fopen64 = "undef"
132 $ perl_d_freopen64 = "undef"
133 $ perl_d_fseek64 = "undef"
134 $ perl_d_fseeko64 = "undef"
135 $ perl_d_fsetpos64 = "undef"
136 $ perl_d_ftell64 = "undef"
137 $ perl_d_ftello64 = "undef"
138 $ perl_d_tmpfile64 = "undef"
139 $ perl_use64bits = "undef"
140 $ perl_d_drand48proto = "define"
141 $ perl_libpth="/sys$share /sys$library"
143 $ perl_lddlflags="/Share"
148 $ perl_i_arpainet="undef"
149 $ perl_d_grpasswd="undef"
150 $ perl_d_setgrent="undef"
151 $ perl_d_getgrent="define"
152 $ perl_d_endgrent="define"
153 $ perl_d_pwpasswd="define"
154 $ perl_d_setpwent="define"
155 $ perl_d_getpwent="define"
156 $ perl_d_endpwent="define"
157 $ perl_d_phostname="undef"
158 $ perl_d_accessx="undef"
159 $ perl_d_eaccess="undef"
160 $ perl_ebcdic="undef"
162 $ perl_shrplib="define"
163 $ perl_usemymalloc=mymalloc
164 $ perl_usevfork="true"
165 $ perl_useposix="false"
166 $ perl_spitshell="write sys$output "
167 $ perl_dlsrc="dl_vms.c"
170 $ perl_prefix="perl_root"
171 $ perl_binexp="''perl_prefix':[000000]"
172 $ perl_builddir="''perl_prefix':[000000]"
173 $ perl_installbin="''perl_prefix':[000000]"
174 $ perl_installscript="''perl_prefix':[utils]"
175 $ perl_installman1dir="''perl_prefix':[man.man1]"
176 $ perl_installman3dir="''perl_prefix':[man.man3]"
177 $ perl_installprivlib="''perl_prefix':[lib]"
178 $ perl_installsitelib="''perl_prefix':[lib.site_perl]"
181 $ perl_d_sockpair="undef"
182 $ perl_i_neterrno="define"
183 $ perl_ldflags="/NoTrace/NoMap"
184 $ perl_d_lchown="undef"
185 $ perl_d_mknod="undef"
186 $ perl_d_union_semun="undef"
187 $ perl_d_semctl_semun="undef"
188 $ perl_d_semctl_semid_ds="undef"
189 $ IF (sharedperl.EQS."Y")
191 $ perl_obj_ext=".abj"
194 $ perl_exe_ext=".axe"
195 $ perl_lib_ext=".alb"
197 $ perl_obj_ext=".obj"
200 $ perl_exe_ext=".exe"
201 $ perl_lib_ext=".olb"
203 $ perl_dlobj="dl_vms''perl_obj_ext'"
205 $ perl_d_archlib="define"
206 $ perl_d_bincompat3="undef"
207 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
209 $ perl_d_castneg="define"
211 $ perl_d_chsize="undef"
212 $ perl_d_const="define"
213 $ perl_d_crypt="define"
214 $ perl_byteorder="1234"
217 $ perl_d_dup2="define"
218 $ perl_d_fchmod="undef"
219 $ perl_d_fchown="undef"
220 $ perl_d_fcntl="undef"
221 $ perl_d_fgetpos="define"
222 $ perl_d_flexfnam="define"
223 $ perl_d_flock="undef"
224 $ perl_d_fsetpos="define"
225 $ perl_d_getgrps="undef"
226 $ perl_d_setgrps="undef"
227 $ perl_d_getprior="undef"
228 $ perl_d_killpg="undef"
229 $ perl_d_link="undef"
230 $ perl_d_lstat="undef"
231 $ perl_d_lockf="undef"
232 $ perl_d_memcmp="define"
233 $ perl_d_memcpy="define"
234 $ perl_d_memmove="define"
235 $ perl_d_memset="define"
236 $ perl_d_mkdir="define"
238 $ perl_d_open3="define"
239 $ perl_d_poll="undef"
240 $ perl_d_readdir="define"
241 $ perl_d_seekdir="define"
242 $ perl_d_telldir="define"
243 $ perl_d_rewinddir="define"
244 $ perl_d_rename="define"
245 $ perl_d_rmdir="define"
247 $ perl_d_setegid="undef"
248 $ perl_d_seteuid="undef"
249 $ perl_d_setprior="undef"
250 $ perl_d_setregid="undef"
251 $ perl_d_setresgid="undef"
252 $ perl_d_setreuid="undef"
253 $ perl_d_setresuid="undef"
254 $ perl_d_setrgid="undef"
255 $ perl_d_setruid="undef"
256 $ perl_d_setsid="undef"
258 $ perl_d_shmatprototype="undef"
259 $ perl_d_statblks="undef"
260 $ perl_stdio_ptr="((*fp)->_ptr)"
261 $ perl_stdio_cnt="((*fp)->_cnt)"
262 $ perl_stdio_base="((*fp)->_base)"
263 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
264 $ perl_d_strctcpy="define"
265 $ perl_d_strerror="define"
266 $ perl_d_syserrlst="undef"
267 $ perl_d_strerrm="strerror((e),vaxc$errno)"
268 $ perl_d_symlink="undef"
269 $ perl_d_syscall="undef"
270 $ perl_d_system="define"
271 $ perl_timetype="time_t"
272 $ perl_d_vfork="define"
273 $ perl_signal_t="void"
274 $ perl_d_volatile="define"
275 $ perl_d_vprintf="define"
276 $ perl_d_charvspr="undef"
277 $ perl_d_waitpid="define"
278 $ perl_i_dirent="undef"
279 $ perl_d_dirnamlen="define"
280 $ perl_direntrytype="struct dirent"
281 $ perl_i_fcntl="undef"
283 $ perl_i_limits="define"
284 $ perl_i_memory="undef"
285 $ perl_i_ndbm="undef"
286 $ perl_i_stdarg="define"
288 $ perl_d_pwquota="undef"
289 $ perl_d_pwage="undef"
290 $ perl_d_pwchange="undef"
291 $ perl_d_pwclass="undef"
292 $ perl_d_pwexpire="undef"
293 $ perl_d_pwcomment="define"
294 $ perl_i_stddef="define"
295 $ perl_i_stdlib="define"
296 $ perl_i_string="define"
297 $ perl_i_sysdir="undef"
298 $ perl_i_sysfile="undef"
299 $ perl_i_sysioctl="undef"
300 $ perl_i_sysndir="undef"
301 $ perl_i_sysresrc="undef"
302 $ perl_i_sysselct="undef"
304 $ perl_i_rpcsvcdbm="undef"
305 $ perl_i_sfio="undef"
306 $ perl_i_sysstat="define"
307 $ perl_i_systimes="undef"
308 $ perl_i_systypes="define"
309 $ perl_i_sysun="undef"
310 $ perl_i_syswait="undef"
311 $ perl_i_termio="undef"
312 $ perl_i_sgtty="undef"
313 $ perl_i_termios="undef"
314 $ perl_i_time="define"
315 $ perl_i_systime="undef"
316 $ perl_i_systimek="undef"
317 $! perl_i_unistd="undef"
318 $ perl_i_utime="undef"
319 $ perl_i_varargs="undef"
320 $ perl_i_vfork="undef"
321 $ perl_prototype="define"
323 $ perl_stdchar="char"
324 $ perl_d_unlink_all_versions="undef"
325 $ perl_full_sed="_NLA0:"
326 $ perl_bin="/''perl_prefix'/000000"
327 $ perl_binexp="''perl_prefix':[000000]"
328 $ perl_d_alarm="define"
329 $ perl_d_casti32="define"
330 $ perl_d_chown="define"
331 $ perl_d_chroot="undef"
332 $ perl_d_cuserid="define"
333 $ perl_d_dbl_dig="define"
334 $ perl_d_difftime="define"
335 $ perl_d_fork="undef"
336 $ perl_d_getlogin="define"
337 $ perl_d_getppid="undef"
338 $ perl_d_nice="define"
339 $ perl_d_pause="define"
340 $ perl_d_pipe="define"
341 $ perl_d_readlink="undef"
342 $ perl_d_setlinebuf="undef"
343 $ perl_d_strchr="define"
344 $ perl_d_strtod="define"
345 $ perl_d_strtol="define"
346 $ perl_d_strtoul="define"
347 $ perl_d_tcgetpgrp="undef"
348 $ perl_d_tcsetpgrp="undef"
349 $ perl_d_times="define"
350 $ perl_d_tzname="undef"
351 $ perl_d_umask="define"
352 $ perl_fpostype="fpos_t"
353 $ perl_i_dlfcn="undef"
354 $ perl_i_float="define"
355 $ perl_i_math="define"
356 $ perl_lseektype="int"
357 $ perl_i_values="undef"
358 $ perl_malloctype="void *"
359 $ perl_freetype="void"
360 $ if "''mymalloc'".eqs."Y"
362 $ perl_d_mymalloc="define"
364 $ perl_d_mymalloc="undef"
367 $ perl_modetype="unsigned int"
368 $ perl_ssizetype="int"
369 $ perl_o_nonblock=" "
372 $ perl_d_eofnblk="undef"
373 $ perl_d_oldarchlib="define"
374 $ perl_privlibexp="''perl_prefix':[lib]"
375 $ perl_privlib="''perl_prefix':[lib]"
376 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
377 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
378 $ perl_sizetype="size_t"
379 $ perl_i_sysparam="undef"
380 $ perl_d_void_closedir="define"
381 $ perl_d_dlerror="undef"
382 $ perl_d_dlsymun="undef"
383 $ perl_d_suidsafe="undef"
384 $ perl_d_dosuid="undef"
385 $ perl_d_inetaton="undef"
386 $ perl_d_isascii="define"
387 $ perl_d_mkfifo="undef"
388 $ perl_d_safebcpy="undef"
389 $ perl_d_safemcpy="define"
390 $ perl_d_sanemcmp="define"
391 $ perl_d_setpgrp="undef"
392 $ perl_d_bsdsetpgrp="undef"
393 $ perl_d_bsdpgrp="undef"
394 $ perl_d_setpgid="undef"
395 $ perl_d_setpgrp2="undef"
396 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
397 $ perl_d_getpgid="undef"
398 $ perl_d_getpgrp="undef"
399 $ perl_d_bsdgetpgrp="undef"
400 $ perl_d_getpgrp2="undef"
401 $ perl_d_sfio="undef"
402 $ perl_usedl="define"
403 $ perl_startperl="""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ + ++$status != 0 and $exit = $status = undef;"""
404 $ perl_db_hashtype=" "
405 $ perl_db_prefixtype=" "
406 $ perl_useperlio="undef"
407 $ perl_defvoidused="15"
408 $ perl_voidflags="15"
409 $ perl_d_eunice="undef"
410 $ perl_d_pwgecos="define"
411 $ IF ("''Use_Threads'".eqs."T").and.("''VMS_VER'".LES."6.2")
413 $ 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"
417 $ IF ("''Using_Dec_C'".eqs."Yes")
419 $ perl_libc="(DECCRTL)"
423 $ perl_PATCHLEVEL="''patchlevel'"
424 $ perl_SUBVERSION="''subversion'"
428 $! Now some that we build up
430 $ LocalTime = f$time()
431 $ perl_cf_time= f$extract(0, 3, f$cvtime(LocalTime,, "WEEKDAY")) + " " + -
432 f$edit(f$cvtime(LocalTime, "ABSOLUTE", "MONTH"), "LOWERCASE") + -
433 " " + f$cvtime(LocalTime,, "DAY") + " " + f$cvtime(LocalTime,, "TIME") + -
434 " " + f$cvtime(LocalTime,, "YEAR")
435 $ if f$getsyi("HW_MODEL").ge.1024
437 $ perl_arch="VMS_AXP"
438 $ perl_archname="VMS_AXP"
439 $ perl_alignbytes="8"
441 $ perl_arch="VMS_VAX"
442 $ perl_archname="VMS_VAX"
443 $ perl_alignbytes="8"
445 $ if ("''Use_Threads'".eqs."T")
447 $ perl_arch = "''perl_arch'-thread"
448 $ perl_archname = "''perl_archname'-thread"
450 $ perl_d_pthread_create_joinable = "undef"
451 $ perl_pthread_create_joinable = " "
452 $ perl_d_old_pthread_create_joinable = "undef"
453 $ perl_old_pthread_create_joinable = " "
455 $ perl_osvers=f$edit(osvers, "TRIM")
456 $ if (perl_subversion + 0).eq.0
458 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL
460 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion
463 $! Some that we need to invoke the compiler for
464 $ OS := "open/write SOURCECHAN []temp.c"
465 $ WS := "write SOURCECHAN"
466 $ CS := "close SOURCECHAN"
467 $ DS := "delete/nolog []temp.*;*"
469 $ if ("''using_vax_c'".eqs."Yes").or.("''using_gnu_c'".eqs."Yes")
471 $ open/write OPTCHAN []temp.opt
472 $ IF ("''using_gnu_c'".eqs."Yes")
474 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
476 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
481 $! Check for __STDC__
485 $ WS "#include <stdlib.h>
487 $ WS "#include <stdio.h>
490 $ WS "#ifdef __STDC__
491 $ WS "printf(""42\n"");
493 $ WS "printf(""1\n"");
498 $ DEFINE SYS$ERROR _NLA0:
499 $ DEFINE SYS$OUTPUT _NLA0:
500 $ ON ERROR THEN CONTINUE
501 $ ON WARNING THEN CONTINUE
503 $ If (Needs_Opt.eqs."Yes")
505 $ link temp.obj,temp.opt/opt
509 $ DEASSIGN SYS$OUTPUT
511 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
512 $ DEFINE SYS$ERROR TEMPOUT
513 $ DEFINE SYS$OUTPUT TEMPOUT
516 $ DEASSIGN SYS$OUTPUT
518 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
522 $ perl_cpp_stuff=line
523 $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
525 $! Check for double size
529 $ WS "#include <stdlib.h>
531 $ WS "#include <stdio.h>
535 $ WS "foo = sizeof(double);
536 $ WS "printf(""%d\n"", foo);
540 $ DEFINE SYS$ERROR _NLA0:
541 $ DEFINE SYS$OUTPUT _NLA0:
542 $ ON ERROR THEN CONTINUE
543 $ ON WARNING THEN CONTINUE
545 $ If (Needs_Opt.eqs."Yes")
547 $ link temp.obj,temp.opt/opt
552 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
553 $ DEASSIGN SYS$OUTPUT
555 $ DEFINE SYS$ERROR TEMPOUT
556 $ DEFINE SYS$OUTPUT TEMPOUT
559 $ DEASSIGN SYS$OUTPUT
561 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
565 $ perl_doublesize=line
566 $ WRITE_RESULT "doublesize is ''perl_doublesize'"
568 $! Check for long double size
572 $ WS "#include <stdlib.h>
574 $ WS "#include <stdio.h>
577 $ WS "printf(""%d\n"", sizeof(long double));
581 $ DEFINE SYS$ERROR _NLA0:
582 $ DEFINE SYS$OUTPUT _NLA0:
583 $ ON ERROR THEN CONTINUE
584 $ ON WARNING THEN CONTINUE
586 $ teststatus = f$extract(9,1,$status)
587 $ if (teststatus.nes."1")
589 $ perl_longdblsize="0"
590 $ perl_d_longdbl="undef"
592 $ ON ERROR THEN CONTINUE
593 $ ON WARNING THEN CONTINUE
594 $ If (Needs_Opt.eqs."Yes")
596 $ link temp.obj,temp.opt/opt
600 $ teststatus = f$extract(9,1,$status)
601 $ DEASSIGN SYS$OUTPUT
603 $ if (teststatus.nes."1")
605 $ perl_longdblsize="0"
606 $ perl_d_longdbl="undef"
608 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
609 $ DEFINE SYS$ERROR TEMPOUT
610 $ DEFINE SYS$OUTPUT TEMPOUT
613 $ DEASSIGN SYS$OUTPUT
615 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
619 $ perl_longdblsize=line
620 $ perl_d_longdbl="define"
623 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
624 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
626 $! Check for long long existance and size
630 $ WS "#include <stdlib.h>
632 $ WS "#include <stdio.h>
635 $ WS "printf(""%d\n"", sizeof(long long));
639 $ DEFINE SYS$ERROR _NLA0:
640 $ DEFINE SYS$OUTPUT _NLA0:
641 $ on error then continue
642 $ on warning then continue
644 $ If (Needs_Opt.eqs."Yes")
646 $ link temp.obj,temp.opt/opt
650 $ teststatus = f$extract(9,1,$status)
651 $ DEASSIGN SYS$OUTPUT
653 $ if (teststatus.nes."1")
655 $ perl_longlongsize="0"
656 $ perl_d_longlong="undef"
658 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
659 $ DEFINE SYS$ERROR TEMPOUT
660 $ DEFINE SYS$OUTPUT TEMPOUT
663 $ DEASSIGN SYS$OUTPUT
665 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
669 $ perl_longlongsize=line
670 $ perl_d_longlong="define"
672 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
673 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
675 $! Check for int size
679 $ WS "#include <stdlib.h>
681 $ WS "#include <stdio.h>
684 $ WS "printf(""%d\n"", sizeof(int));
688 $ DEFINE SYS$ERROR _NLA0:
689 $ DEFINE SYS$OUTPUT _NLA0:
690 $ on error then continue
691 $ on warning then continue
693 $ If (Needs_Opt.eqs."Yes")
695 $ link temp.obj,temp.opt/opt
699 $ If (Needs_Opt.eqs."Yes")
701 $ link temp.obj,temp.opt/opt
705 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
706 $ DEASSIGN SYS$OUTPUT
708 $ DEFINE SYS$ERROR TEMPOUT
709 $ DEFINE SYS$OUTPUT TEMPOUT
712 $ DEASSIGN SYS$OUTPUT
714 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
719 $ WRITE_RESULT "intsize is ''perl_intsize'"
721 $! Check for short size
725 $ WS "#include <stdlib.h>
727 $ WS "#include <stdio.h>
730 $ WS "printf(""%d\n"", sizeof(short));
734 $ DEFINE SYS$ERROR _NLA0:
735 $ DEFINE SYS$OUTPUT _NLA0:
736 $ on error then continue
737 $ on warning then continue
739 $ If (Needs_Opt.eqs."Yes")
741 $ link temp.obj,temp.opt/opt
745 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
746 $ DEASSIGN SYS$OUTPUT
748 $ DEFINE SYS$ERROR TEMPOUT
749 $ DEFINE SYS$OUTPUT TEMPOUT
752 $ DEASSIGN SYS$OUTPUT
754 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
758 $ perl_shortsize=line
759 $ WRITE_RESULT "shortsize is ''perl_shortsize'"
761 $! Check for long size
765 $ WS "#include <stdlib.h>
767 $ WS "#include <stdio.h>
771 $ WS "foo = sizeof(long);
772 $ WS "printf(""%d\n"", foo);
776 $ DEFINE SYS$ERROR _NLA0:
777 $ DEFINE SYS$OUTPUT _NLA0:
778 $ on error then continue
779 $ on warning then continue
781 $ If (Needs_Opt.eqs."Yes")
783 $ link temp.obj,temp.opt/opt
787 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
788 $ DEASSIGN SYS$OUTPUT
790 $ DEFINE SYS$ERROR TEMPOUT
791 $ DEFINE SYS$OUTPUT TEMPOUT
794 $ DEASSIGN SYS$OUTPUT
796 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
801 $ WRITE_RESULT "longsize is ''perl_longsize'"
803 $! Check the prototype for getgid
807 $ WS "#include <stdlib.h>
809 $ WS "#include <stdio.h>
810 $ WS "#include <types.h>
811 $ WS "#include <unistd.h>
818 $ DEFINE SYS$ERROR _NLA0:
819 $ DEFINE SYS$OUTPUT _NLA0:
820 $ on error then continue
821 $ on warning then continue
823 $ teststatus = f$extract(9,1,$status)
824 $ DEASSIGN SYS$OUTPUT
826 $ if (teststatus.nes."1")
828 $! Okay, gid_t failed. Must be unsigned int
829 $ perl_gidtype = "unsigned int"
831 $ perl_gidtype = "gid_t"
833 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
835 $! Check to see if we've got dev_t
839 $ WS "#include <stdlib.h>
841 $ WS "#include <stdio.h>
842 $ WS "#include <types.h>
843 $ WS "#include <unistd.h>
850 $ DEFINE SYS$ERROR _NLA0:
851 $ DEFINE SYS$OUTPUT _NLA0:
852 $ on error then continue
853 $ on warning then continue
855 $ teststatus = f$extract(9,1,$status)
856 $ DEASSIGN SYS$OUTPUT
858 $ if (teststatus.nes."1")
860 $! Okay, dev_t failed. Must be unsigned int
861 $ perl_devtype = "unsigned int"
863 $ perl_devtype = "dev_t"
865 $ WRITE_RESULT "Dev_t is ''perl_devtype'"
867 $! Check to see if we've got unistd.h (which we ought to, but you never know)
871 $ WS "#include <stdlib.h>
873 $ WS "#include <unistd.h>
879 $ DEFINE SYS$ERROR _NLA0:
880 $ DEFINE SYS$OUTPUT _NLA0:
881 $ on error then continue
882 $ on warning then continue
884 $ teststatus = f$extract(9,1,$status)
885 $ DEASSIGN SYS$OUTPUT
887 $ if (teststatus.nes."1")
889 $! Okay, failed. Must not have it
890 $ perl_i_unistd = "undef"
892 $ perl_i_unistd = "define"
895 $ WRITE_RESULT "i_unistd is ''perl_i_unistd'"
897 $! Check the prototype for select
899 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
903 $ WS "#include <stdlib.h>
905 $ WS "#include <stdio.h>
906 $ WS "#include <types.h>
907 $ WS "#include <unistd.h>
908 $ if ("''Has_Socketshr'".eqs."T")
910 $ WS "#include <socketshr.h>"
912 $ WS "#include <time.h>
913 $ WS "#include <socket.h>
920 $ WS "bar = select(2, foo, foo, foo, NULL);
924 $ DEFINE SYS$ERROR _NLA0:
925 $ DEFINE SYS$OUTPUT _NLA0:
926 $ on error then continue
927 $ on warning then continue
929 $ teststatus = f$extract(9,1,$status)
930 $ DEASSIGN SYS$OUTPUT
932 $ if (teststatus.nes."1")
934 $! Okay, fd_set failed. Must be an int
935 $ perl_selecttype = "int *"
937 $ perl_selecttype="fd_set *"
940 $ ! No sockets, so stick in an int *
941 $ perl_selecttype = "int *"
943 $ WRITE_RESULT "selectype is ''perl_selecttype'"
945 $! Check to see if fd_set exists
949 $ WS "#include <stdlib.h>
951 $ WS "#include <stdio.h>
952 $ WS "#include <types.h>
953 $ WS "#include <unistd.h>
954 $ if ("''Has_Socketshr'".eqs."T")
956 $ WS "#include <socketshr.h>"
958 $ IF ("''Has_Dec_C_Sockets'".eqs."T")
960 $ WS "#include <time.h>
961 $ WS "#include <socket.h>
970 $ DEFINE SYS$ERROR _NLA0:
971 $ DEFINE SYS$OUTPUT _NLA0:
972 $ on error then continue
973 $ on warning then continue
975 $ teststatus = f$extract(9,1,$status)
976 $ DEASSIGN SYS$OUTPUT
978 $ if (teststatus.nes."1")
980 $! Okay, fd_set failed. Must not exist
981 $ perl_d_fd_set = "undef"
983 $ perl_d_fd_set="define"
985 $ WRITE_RESULT "d_fd_set is ''perl_d_fd_set'"
987 $! Check for inttypes.h
991 $ WS "#include <stdlib.h>
993 $ WS "#include <stdio.h>
994 $ WS "#include <unistd.h>
995 $ WS "#include <inttypes.h>
1001 $ DEFINE SYS$ERROR _NLA0:
1002 $ DEFINE SYS$OUTPUT _NLA0:
1003 $ on error then continue
1004 $ on warning then continue
1006 $ savedstatus = $status
1007 $ teststatus = f$extract(9,1,savedstatus)
1008 $ if (teststatus.nes."1")
1010 $ perl_i_inttypes="undef"
1011 $ DEASSIGN SYS$OUTPUT
1012 $ DEASSIGN SYS$ERROR
1014 $ If (Needs_Opt.eqs."Yes")
1016 $ link temp.obj,temp.opt/opt
1020 $ savedstatus = $status
1021 $ teststatus = f$extract(9,1,savedstatus)
1022 $ DEASSIGN SYS$OUTPUT
1023 $ DEASSIGN SYS$ERROR
1024 $ if (teststatus.nes."1")
1026 $ perl_i_inttypes="undef"
1028 $ perl_i_inttypes="define"
1031 $ WRITE_RESULT "i_inttypes is ''perl_i_inttypes'"
1033 $! Check to see if int64_t exists
1037 $ WS "#include <stdlib.h>
1039 $ WS "#include <stdio.h>
1040 $ WS "#include <types.h>
1041 $ WS "#''perl_i_inttypes IIH
1043 $ WS "#include <inttypes.h>
1045 $ WS "#include <unistd.h>
1052 $ DEFINE SYS$ERROR _NLA0:
1053 $ DEFINE SYS$OUTPUT _NLA0:
1054 $ on error then continue
1055 $ on warning then continue
1057 $ teststatus = f$extract(9,1,$status)
1058 $ DEASSIGN SYS$OUTPUT
1059 $ DEASSIGN SYS$ERROR
1060 $ if (teststatus.nes."1")
1062 $! Okay, int64_t failed. Must not exist
1063 $ perl_d_int64t = "undef"
1065 $ perl_d_int64t="define"
1067 $ WRITE_RESULT "d_int64t is ''perl_d_int64t'"
1069 $! Check to see if off64_t exists
1073 $ WS "#include <stdlib.h>
1075 $ WS "#include <stdio.h>
1076 $ WS "#include <types.h>
1077 $ WS "#''perl_i_inttypes IIH
1079 $ WS "#include <inttypes.h>
1081 $ WS "#include <unistd.h>
1088 $ DEFINE SYS$ERROR _NLA0:
1089 $ DEFINE SYS$OUTPUT _NLA0:
1090 $ on error then continue
1091 $ on warning then continue
1093 $ teststatus = f$extract(9,1,$status)
1094 $ DEASSIGN SYS$OUTPUT
1095 $ DEASSIGN SYS$ERROR
1096 $ if (teststatus.nes."1")
1098 $! Okay, off64_t failed. Must not exist
1099 $ perl_d_off64t = "undef"
1101 $ perl_d_off64t="define"
1103 $ WRITE_RESULT "d_off64t is ''perl_d_off64t'"
1105 $! Check to see if gethostname exists
1107 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1111 $ WS "#include <stdlib.h>
1113 $ WS "#include <stdio.h>
1114 $ WS "#include <types.h>
1115 $ WS "#include <unistd.h>
1116 $ if ("''Has_Socketshr'".eqs."T")
1118 $ WS "#include <socketshr.h>"
1120 $ WS "#include <time.h>
1121 $ WS "#include <socket.h>
1125 $ WS "char name[100];
1128 $ WS "baz = gethostname(name, bar);
1132 $ DEFINE SYS$ERROR _NLA0:
1133 $ DEFINE SYS$OUTPUT _NLA0:
1134 $ on error then continue
1135 $ on warning then continue
1137 $ teststatus = f$extract(9,1,$status)
1138 $ DEASSIGN SYS$OUTPUT
1139 $ DEASSIGN SYS$ERROR
1140 $ if (teststatus.nes."1")
1142 $! Okay, compile failed. Must not have it
1143 $ perl_dgethname = "undef"
1145 $ If (Needs_Opt.eqs."Yes")
1147 $ link temp.obj,temp.opt/opt
1151 $ savedstatus = $status
1152 $ teststatus = f$extract(9,1,savedstatus)
1153 $ if (teststatus.nes."1")
1155 $ perl_d_gethname="undef"
1157 $ perl_d_gethname="define"
1161 $ ! No sockets, so no gethname
1162 $ perl_d_gethname = "undef"
1164 $ WRITE_RESULT "d_gethname is ''perl_d_gethname'"
1166 $! Check for sys/file.h
1170 $ WS "#include <stdlib.h>
1172 $ WS "#include <stdio.h>
1173 $ WS "#include <unistd.h>
1174 $ WS "#include <sys/file.h>
1180 $ DEFINE SYS$ERROR _NLA0:
1181 $ DEFINE SYS$OUTPUT _NLA0:
1182 $ on error then continue
1183 $ on warning then continue
1185 $ savedstatus = $status
1186 $ teststatus = f$extract(9,1,savedstatus)
1187 $ if (teststatus.nes."1")
1189 $ perl_i_sysfile="undef"
1190 $ DEASSIGN SYS$OUTPUT
1191 $ DEASSIGN SYS$ERROR
1193 $ If (Needs_Opt.eqs."Yes")
1195 $ link temp.obj,temp.opt/opt
1199 $ savedstatus = $status
1200 $ teststatus = f$extract(9,1,savedstatus)
1201 $ DEASSIGN SYS$OUTPUT
1202 $ DEASSIGN SYS$ERROR
1203 $ if (teststatus.nes."1")
1205 $ perl_i_sysfile="undef"
1207 $ perl_i_sysfile="define"
1210 $ WRITE_RESULT "i_sysfile is ''perl_i_sysfile'"
1216 $ WS "#include <stdlib.h>
1218 $ WS "#include <stdio.h>
1219 $ WS "#include <unistd.h>
1220 $ WS "#include <poll.h>
1226 $ DEFINE SYS$ERROR _NLA0:
1227 $ DEFINE SYS$OUTPUT _NLA0:
1228 $ on error then continue
1229 $ on warning then continue
1231 $ savedstatus = $status
1232 $ teststatus = f$extract(9,1,savedstatus)
1233 $ if (teststatus.nes."1")
1235 $ perl_i_poll="undef"
1236 $ DEASSIGN SYS$OUTPUT
1237 $ DEASSIGN SYS$ERROR
1239 $ If (Needs_Opt.eqs."Yes")
1241 $ link temp.obj,temp.opt/opt
1245 $ savedstatus = $status
1246 $ teststatus = f$extract(9,1,savedstatus)
1247 $ DEASSIGN SYS$OUTPUT
1248 $ DEASSIGN SYS$ERROR
1249 $ if (teststatus.nes."1")
1251 $ perl_i_poll="undef"
1253 $ perl_i_poll="define"
1256 $ WRITE_RESULT "i_poll is ''perl_i_poll'"
1258 $! Check for sys/uio.h
1262 $ WS "#include <stdlib.h>
1264 $ WS "#include <stdio.h>
1265 $ WS "#include <unistd.h>
1266 $ WS "#include <sys/uio.h>
1272 $ DEFINE SYS$ERROR _NLA0:
1273 $ DEFINE SYS$OUTPUT _NLA0:
1274 $ on error then continue
1275 $ on warning then continue
1277 $ savedstatus = $status
1278 $ teststatus = f$extract(9,1,savedstatus)
1279 $ if (teststatus.nes."1")
1281 $ perl_i_sysuio="undef"
1282 $ DEASSIGN SYS$OUTPUT
1283 $ DEASSIGN SYS$ERROR
1285 $ If (Needs_Opt.eqs."Yes")
1287 $ link temp.obj,temp.opt/opt
1291 $ savedstatus = $status
1292 $ teststatus = f$extract(9,1,savedstatus)
1293 $ DEASSIGN SYS$OUTPUT
1294 $ DEASSIGN SYS$ERROR
1295 $ if (teststatus.nes."1")
1297 $ perl_i_sysuio="undef"
1299 $ perl_i_sysuio="define"
1302 $ WRITE_RESULT "i_sysuio is ''perl_i_sysuio'"
1304 $! Check for sys/access.h
1308 $ WS "#include <stdlib.h>
1310 $ WS "#include <stdio.h>
1311 $ WS "#include <unistd.h>
1312 $ WS "#include <sys/access.h>
1318 $ DEFINE SYS$ERROR _NLA0:
1319 $ DEFINE SYS$OUTPUT _NLA0:
1320 $ on error then continue
1321 $ on warning then continue
1323 $ savedstatus = $status
1324 $ teststatus = f$extract(9,1,savedstatus)
1325 $ if (teststatus.nes."1")
1327 $ perl_i_sysaccess="undef"
1328 $ DEASSIGN SYS$OUTPUT
1329 $ DEASSIGN SYS$ERROR
1331 $ If (Needs_Opt.eqs."Yes")
1333 $ link temp.obj,temp.opt/opt
1337 $ savedstatus = $status
1338 $ teststatus = f$extract(9,1,savedstatus)
1339 $ DEASSIGN SYS$OUTPUT
1340 $ DEASSIGN SYS$ERROR
1341 $ if (teststatus.nes."1")
1343 $ perl_i_sysaccess="undef"
1345 $ perl_i_sysaccess="define"
1348 $ WRITE_RESULT "i_sysaccess is ''perl_i_sysaccess'"
1350 $! Check for sys/security.h
1354 $ WS "#include <stdlib.h>
1356 $ WS "#include <stdio.h>
1357 $ WS "#include <unistd.h>
1358 $ WS "#include <sys/security.h>
1364 $ DEFINE SYS$ERROR _NLA0:
1365 $ DEFINE SYS$OUTPUT _NLA0:
1366 $ on error then continue
1367 $ on warning then continue
1369 $ savedstatus = $status
1370 $ teststatus = f$extract(9,1,savedstatus)
1371 $ if (teststatus.nes."1")
1373 $ perl_i_syssecrt="undef"
1374 $ DEASSIGN SYS$OUTPUT
1375 $ DEASSIGN SYS$ERROR
1377 $ If (Needs_Opt.eqs."Yes")
1379 $ link temp.obj,temp.opt/opt
1383 $ savedstatus = $status
1384 $ teststatus = f$extract(9,1,savedstatus)
1385 $ DEASSIGN SYS$OUTPUT
1386 $ DEASSIGN SYS$ERROR
1387 $ if (teststatus.nes."1")
1389 $ perl_i_syssecrt="undef"
1391 $ perl_i_syssecrt="define"
1394 $ WRITE_RESULT "i_syssecrt is ''perl_i_syssecrt'"
1396 $! Check for fcntl.h
1400 $ WS "#include <stdlib.h>
1402 $ WS "#include <stdio.h>
1403 $ WS "#include <unistd.h>
1404 $ WS "#include <fcntl.h>
1410 $ DEFINE SYS$ERROR _NLA0:
1411 $ DEFINE SYS$OUTPUT _NLA0:
1412 $ on error then continue
1413 $ on warning then continue
1415 $ savedstatus = $status
1416 $ teststatus = f$extract(9,1,savedstatus)
1417 $ if (teststatus.nes."1")
1419 $ perl_i_fcntl="undef"
1420 $ DEASSIGN SYS$OUTPUT
1421 $ DEASSIGN SYS$ERROR
1423 $ If (Needs_Opt.eqs."Yes")
1425 $ link temp.obj,temp.opt/opt
1429 $ savedstatus = $status
1430 $ teststatus = f$extract(9,1,savedstatus)
1431 $ DEASSIGN SYS$OUTPUT
1432 $ DEASSIGN SYS$ERROR
1433 $ if (teststatus.nes."1")
1435 $ perl_i_fcntl="undef"
1437 $ perl_i_fcntl="define"
1440 $ WRITE_RESULT "i_fcntl is ''perl_i_fcntl'"
1446 $ WS "#include <stdlib.h>
1448 $ WS "#include <stdio.h>
1449 $ WS "#include <unistd.h>
1450 $ WS "#include <fcntl.h>
1457 $ DEFINE SYS$ERROR _NLA0:
1458 $ DEFINE SYS$OUTPUT _NLA0:
1459 $ on error then continue
1460 $ on warning then continue
1462 $ savedstatus = $status
1463 $ teststatus = f$extract(9,1,savedstatus)
1464 $ if (teststatus.nes."1")
1466 $ perl_d_fcntl="undef"
1467 $ DEASSIGN SYS$OUTPUT
1468 $ DEASSIGN SYS$ERROR
1470 $ If (Needs_Opt.eqs."Yes")
1472 $ link temp.obj,temp.opt/opt
1476 $ savedstatus = $status
1477 $ teststatus = f$extract(9,1,savedstatus)
1478 $ DEASSIGN SYS$OUTPUT
1479 $ DEASSIGN SYS$ERROR
1480 $ if (teststatus.nes."1")
1482 $ perl_d_fcntl="undef"
1484 $ perl_d_fcntl="define"
1487 $ WRITE_RESULT "d_fcntl is ''perl_d_fcntl'"
1493 $ WS "#include <stdlib.h>
1495 $ WS "#include <stdio.h>
1496 $ WS "#include <unistd.h>
1499 $ WS "access("foo", F_OK);
1503 $ DEFINE SYS$ERROR _NLA0:
1504 $ DEFINE SYS$OUTPUT _NLA0:
1505 $ on error then continue
1506 $ on warning then continue
1508 $ savedstatus = $status
1509 $ teststatus = f$extract(9,1,savedstatus)
1510 $ if (teststatus.nes."1")
1512 $ perl_d_access="undef"
1513 $ DEASSIGN SYS$OUTPUT
1514 $ DEASSIGN SYS$ERROR
1516 $ If (Needs_Opt.eqs."Yes")
1518 $ link temp.obj,temp.opt/opt
1522 $ savedstatus = $status
1523 $ teststatus = f$extract(9,1,savedstatus)
1524 $ DEASSIGN SYS$OUTPUT
1525 $ DEASSIGN SYS$ERROR
1526 $ if (teststatus.nes."1")
1528 $ perl_d_access="undef"
1530 $ perl_d_access="define"
1533 $ WRITE_RESULT "d_access is ''perl_d_access'"
1539 $ WS "#include <stdlib.h>
1541 $ WS "#include <stdio.h>
1542 $ WS "#include <strings.h>
1546 $ WS "bzero(foo, 10);
1550 $ DEFINE SYS$ERROR _NLA0:
1551 $ DEFINE SYS$OUTPUT _NLA0:
1552 $ on error then continue
1553 $ on warning then continue
1555 $ savedstatus = $status
1556 $ teststatus = f$extract(9,1,savedstatus)
1557 $ if (teststatus.nes."1")
1559 $ perl_d_bzero="undef"
1560 $ DEASSIGN SYS$OUTPUT
1561 $ DEASSIGN SYS$ERROR
1563 $ If (Needs_Opt.eqs."Yes")
1565 $ link temp.obj,temp.opt/opt
1569 $ savedstatus = $status
1570 $ teststatus = f$extract(9,1,savedstatus)
1571 $ DEASSIGN SYS$OUTPUT
1572 $ DEASSIGN SYS$ERROR
1573 $ if (teststatus.nes."1")
1575 $ perl_d_bzero="undef"
1577 $ perl_d_bzero="define"
1580 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
1586 $ WS "#include <stdlib.h>
1588 $ WS "#include <stdio.h>
1589 $ WS "#include <strings.h>
1592 $ WS "char foo[10], bar[10];
1593 $ WS "bcopy(""foo"", bar, 3);
1597 $ DEFINE SYS$ERROR _NLA0:
1598 $ DEFINE SYS$OUTPUT _NLA0:
1599 $ on error then continue
1600 $ on warning then continue
1602 $ savedstatus = $status
1603 $ teststatus = f$extract(9,1,savedstatus)
1604 $ if (teststatus.nes."1")
1606 $ perl_d_bcopy="undef"
1607 $ DEASSIGN SYS$OUTPUT
1608 $ DEASSIGN SYS$ERROR
1610 $ If (Needs_Opt.eqs."Yes")
1612 $ link temp.obj,temp.opt/opt
1616 $ savedstatus = $status
1617 $ teststatus = f$extract(9,1,savedstatus)
1618 $ DEASSIGN SYS$OUTPUT
1619 $ DEASSIGN SYS$ERROR
1620 $ if (teststatus.nes."1")
1622 $ perl_d_bcopy="undef"
1624 $ perl_d_bcopy="define"
1627 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
1629 $! Check for mkstemp
1633 $ WS "#include <stdlib.h>
1635 $ WS "#include <stdio.h>
1638 $ WS "mkstemp(""foo"");
1642 $ DEFINE SYS$ERROR _NLA0:
1643 $ DEFINE SYS$OUTPUT _NLA0:
1644 $ on error then continue
1645 $ on warning then continue
1647 $ If (Needs_Opt.eqs."Yes")
1649 $ link temp.obj,temp.opt/opt
1653 $ savedstatus = $status
1654 $ teststatus = f$extract(9,1,savedstatus)
1655 $ DEASSIGN SYS$OUTPUT
1656 $ DEASSIGN SYS$ERROR
1657 $ if (teststatus.nes."1")
1659 $ perl_d_mkstemp="undef"
1661 $ perl_d_mkstemp="define"
1663 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
1665 $! Check for setvbuf
1669 $ WS "#include <stdlib.h>
1671 $ WS "#include <stdio.h>
1675 $ WS "char Buffer[99];
1676 $ WS "foo = fopen(""foo"", ""r"");
1677 $ WS "setvbuf(foo, Buffer, 0, 0);
1681 $ DEFINE SYS$ERROR _NLA0:
1682 $ DEFINE SYS$OUTPUT _NLA0:
1683 $ on error then continue
1684 $ on warning then continue
1686 $ If (Needs_Opt.eqs."Yes")
1688 $ link temp.obj,temp.opt/opt
1692 $ teststatus = f$extract(9,1,$status)
1693 $ DEASSIGN SYS$OUTPUT
1694 $ DEASSIGN SYS$ERROR
1695 $ if (teststatus.nes."1")
1697 $ perl_d_setvbuf="undef"
1699 $ perl_d_setvbuf="define"
1701 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
1703 $! Check for <netinet/in.h>
1705 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1709 $ WS "#include <stdlib.h>
1711 $ WS "#include <stdio.h>
1712 $ if ("''Has_Socketshr'".eqs."T")
1714 $ WS "#include <socketshr.h>"
1716 $ WS "#include <netdb.h>
1718 $ WS "#include <netinet/in.h>"
1724 $ DEFINE SYS$ERROR _NLA0:
1725 $ DEFINE SYS$OUTPUT _NLA0:
1726 $ on error then continue
1727 $ on warning then continue
1729 $ If (Needs_Opt.eqs."Yes")
1731 $ link temp.obj,temp.opt/opt
1735 $ teststatus = f$extract(9,1,$status)
1736 $ DEASSIGN SYS$OUTPUT
1737 $ DEASSIGN SYS$ERROR
1738 $ if (teststatus.nes."1")
1740 $ perl_i_niin="undef"
1742 $ perl_i_niin="define"
1745 $ perl_i_niin="undef"
1747 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
1749 $! Check for endhostent
1751 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1755 $ WS "#include <stdlib.h>
1757 $ WS "#include <stdio.h>
1758 $ if ("''Has_Socketshr'".eqs."T")
1760 $ WS "#include <socketshr.h>"
1762 $ WS "#include <netdb.h>
1770 $ DEFINE SYS$ERROR _NLA0:
1771 $ DEFINE SYS$OUTPUT _NLA0:
1772 $ on error then continue
1773 $ on warning then continue
1775 $ If (Needs_Opt.eqs."Yes")
1777 $ link temp.obj,temp.opt/opt
1781 $ teststatus = f$extract(9,1,$status)
1782 $ DEASSIGN SYS$OUTPUT
1783 $ DEASSIGN SYS$ERROR
1784 $ if (teststatus.nes."1")
1786 $ perl_d_endhent="undef"
1788 $ perl_d_endhent="define"
1791 $ perl_d_endhent="undef"
1793 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
1795 $! Check for endnetent
1797 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1801 $ WS "#include <stdlib.h>
1803 $ WS "#include <stdio.h>
1804 $ if ("''Has_Socketshr'".eqs."T")
1806 $ WS "#include <socketshr.h>"
1808 $ WS "#include <netdb.h>
1816 $ DEFINE SYS$ERROR _NLA0:
1817 $ DEFINE SYS$OUTPUT _NLA0:
1818 $ on error then continue
1819 $ on warning then continue
1821 $ If (Needs_Opt.eqs."Yes")
1823 $ link temp.obj,temp.opt/opt
1827 $ teststatus = f$extract(9,1,$status)
1828 $ DEASSIGN SYS$OUTPUT
1829 $ DEASSIGN SYS$ERROR
1830 $ if (teststatus.nes."1")
1832 $ perl_d_endnent="undef"
1834 $ perl_d_endnent="define"
1837 $ perl_d_endnent="undef"
1839 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
1841 $! Check for endprotoent
1843 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1847 $ WS "#include <stdlib.h>
1849 $ WS "#include <stdio.h>
1850 $ if ("''Has_Socketshr'".eqs."T")
1852 $ WS "#include <socketshr.h>"
1854 $ WS "#include <netdb.h>
1858 $ WS "endprotoent();
1862 $ DEFINE SYS$ERROR _NLA0:
1863 $ DEFINE SYS$OUTPUT _NLA0:
1864 $ on error then continue
1865 $ on warning then continue
1867 $ If (Needs_Opt.eqs."Yes")
1869 $ link temp.obj,temp.opt/opt
1873 $ teststatus = f$extract(9,1,$status)
1874 $ DEASSIGN SYS$OUTPUT
1875 $ DEASSIGN SYS$ERROR
1876 $ if (teststatus.nes."1")
1878 $ perl_d_endpent="undef"
1880 $ perl_d_endpent="define"
1883 $ perl_d_endpent="undef"
1885 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
1887 $! Check for endservent
1889 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1893 $ WS "#include <stdlib.h>
1895 $ WS "#include <stdio.h>
1896 $ if ("''Has_Socketshr'".eqs."T")
1898 $ WS "#include <socketshr.h>"
1900 $ WS "#include <netdb.h>
1908 $ DEFINE SYS$ERROR _NLA0:
1909 $ DEFINE SYS$OUTPUT _NLA0:
1910 $ on error then continue
1911 $ on warning then continue
1913 $ If (Needs_Opt.eqs."Yes")
1915 $ link temp.obj,temp.opt/opt
1919 $ teststatus = f$extract(9,1,$status)
1920 $ DEASSIGN SYS$OUTPUT
1921 $ DEASSIGN SYS$ERROR
1922 $ if (teststatus.nes."1")
1924 $ perl_d_endsent="undef"
1926 $ perl_d_endsent="define"
1929 $ perl_d_endsent="undef"
1931 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
1933 $! Check for sethostent
1935 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1939 $ WS "#include <stdlib.h>
1941 $ WS "#include <stdio.h>
1942 $ if ("''Has_Socketshr'".eqs."T")
1944 $ WS "#include <socketshr.h>"
1946 $ WS "#include <netdb.h>
1950 $ WS "sethostent(1);
1954 $ DEFINE SYS$ERROR _NLA0:
1955 $ DEFINE SYS$OUTPUT _NLA0:
1956 $ on error then continue
1957 $ on warning then continue
1959 $ If (Needs_Opt.eqs."Yes")
1961 $ link temp.obj,temp.opt/opt
1965 $ teststatus = f$extract(9,1,$status)
1966 $ DEASSIGN SYS$OUTPUT
1967 $ DEASSIGN SYS$ERROR
1968 $ if (teststatus.nes."1")
1970 $ perl_d_sethent="undef"
1972 $ perl_d_sethent="define"
1975 $ perl_d_sethent="undef"
1977 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
1979 $! Check for setnetent
1981 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1985 $ WS "#include <stdlib.h>
1987 $ WS "#include <stdio.h>
1988 $ if ("''Has_Socketshr'".eqs."T")
1990 $ WS "#include <socketshr.h>"
1992 $ WS "#include <netdb.h>
2000 $ DEFINE SYS$ERROR _NLA0:
2001 $ DEFINE SYS$OUTPUT _NLA0:
2002 $ on error then continue
2003 $ on warning then continue
2005 $ If (Needs_Opt.eqs."Yes")
2007 $ link temp.obj,temp.opt/opt
2011 $ teststatus = f$extract(9,1,$status)
2012 $ DEASSIGN SYS$OUTPUT
2013 $ DEASSIGN SYS$ERROR
2014 $ if (teststatus.nes."1")
2016 $ perl_d_setnent="undef"
2018 $ perl_d_setnent="define"
2021 $ perl_d_setnent="undef"
2023 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
2025 $! Check for setprotoent
2027 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2031 $ WS "#include <stdlib.h>
2033 $ WS "#include <stdio.h>
2034 $ if ("''Has_Socketshr'".eqs."T")
2036 $ WS "#include <socketshr.h>"
2038 $ WS "#include <netdb.h>
2042 $ WS "setprotoent(1);
2046 $ DEFINE SYS$ERROR _NLA0:
2047 $ DEFINE SYS$OUTPUT _NLA0:
2048 $ on error then continue
2049 $ on warning then continue
2051 $ If (Needs_Opt.eqs."Yes")
2053 $ link temp.obj,temp.opt/opt
2057 $ teststatus = f$extract(9,1,$status)
2058 $ DEASSIGN SYS$OUTPUT
2059 $ DEASSIGN SYS$ERROR
2060 $ if (teststatus.nes."1")
2062 $ perl_d_setpent="undef"
2064 $ perl_d_setpent="define"
2067 $ perl_d_setpent="undef"
2069 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
2071 $! Check for setservent
2073 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2077 $ WS "#include <stdlib.h>
2079 $ WS "#include <stdio.h>
2080 $ if ("''Has_Socketshr'".eqs."T")
2082 $ WS "#include <socketshr.h>"
2084 $ WS "#include <netdb.h>
2088 $ WS "setservent(1);
2092 $ DEFINE SYS$ERROR _NLA0:
2093 $ DEFINE SYS$OUTPUT _NLA0:
2094 $ on error then continue
2095 $ on warning then continue
2097 $ If (Needs_Opt.eqs."Yes")
2099 $ link temp.obj,temp.opt/opt
2103 $ teststatus = f$extract(9,1,$status)
2104 $ DEASSIGN SYS$OUTPUT
2105 $ DEASSIGN SYS$ERROR
2106 $ if (teststatus.nes."1")
2108 $ perl_d_setsent="undef"
2110 $ perl_d_setsent="define"
2113 $ perl_d_setsent="undef"
2115 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
2117 $! Check for gethostent
2119 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2123 $ WS "#include <stdlib.h>
2125 $ WS "#include <stdio.h>
2126 $ if ("''Has_Socketshr'".eqs."T")
2128 $ WS "#include <socketshr.h>"
2130 $ WS "#include <netdb.h>
2138 $ DEFINE SYS$ERROR _NLA0:
2139 $ DEFINE SYS$OUTPUT _NLA0:
2140 $ on error then continue
2141 $ on warning then continue
2143 $ If (Needs_Opt.eqs."Yes")
2145 $ link temp.obj,temp.opt/opt
2149 $ teststatus = f$extract(9,1,$status)
2150 $ DEASSIGN SYS$OUTPUT
2151 $ DEASSIGN SYS$ERROR
2152 $ if (teststatus.nes."1")
2154 $ perl_d_gethent="undef"
2156 $ perl_d_gethent="define"
2159 $ perl_d_gethent="undef"
2161 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
2163 $! Check for getnetent
2165 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2169 $ WS "#include <stdlib.h>
2171 $ WS "#include <stdio.h>
2172 $ if ("''Has_Socketshr'".eqs."T")
2174 $ WS "#include <socketshr.h>"
2176 $ WS "#include <netdb.h>
2184 $ DEFINE SYS$ERROR _NLA0:
2185 $ DEFINE SYS$OUTPUT _NLA0:
2186 $ on error then continue
2187 $ on warning then continue
2189 $ If (Needs_Opt.eqs."Yes")
2191 $ link temp.obj,temp.opt/opt
2195 $ teststatus = f$extract(9,1,$status)
2196 $ DEASSIGN SYS$OUTPUT
2197 $ DEASSIGN SYS$ERROR
2198 $ if (teststatus.nes."1")
2200 $ perl_d_getnent="undef"
2202 $ perl_d_getnent="define"
2205 $ perl_d_getnent="undef"
2207 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
2209 $! Check for getprotoent
2211 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2215 $ WS "#include <stdlib.h>
2217 $ WS "#include <stdio.h>
2218 $ if ("''Has_Socketshr'".eqs."T")
2220 $ WS "#include <socketshr.h>"
2222 $ WS "#include <netdb.h>
2226 $ WS "getprotoent();
2230 $ DEFINE SYS$ERROR _NLA0:
2231 $ DEFINE SYS$OUTPUT _NLA0:
2232 $ on error then continue
2233 $ on warning then continue
2235 $ If (Needs_Opt.eqs."Yes")
2237 $ link temp.obj,temp.opt/opt
2241 $ teststatus = f$extract(9,1,$status)
2242 $ DEASSIGN SYS$OUTPUT
2243 $ DEASSIGN SYS$ERROR
2244 $ if (teststatus.nes."1")
2246 $ perl_d_getpent="undef"
2248 $ perl_d_getpent="define"
2251 $ perl_d_getpent="undef"
2253 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
2255 $! Check for getservent
2257 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2261 $ WS "#include <stdlib.h>
2263 $ WS "#include <stdio.h>
2264 $ if ("''Has_Socketshr'".eqs."T")
2266 $ WS "#include <socketshr.h>"
2268 $ WS "#include <netdb.h>
2276 $ DEFINE SYS$ERROR _NLA0:
2277 $ DEFINE SYS$OUTPUT _NLA0:
2278 $ on error then continue
2279 $ on warning then continue
2281 $ If (Needs_Opt.eqs."Yes")
2283 $ link temp.obj,temp.opt/opt
2287 $ teststatus = f$extract(9,1,$status)
2288 $ DEASSIGN SYS$OUTPUT
2289 $ DEASSIGN SYS$ERROR
2290 $ if (teststatus.nes."1")
2292 $ perl_d_getsent="undef"
2294 $ perl_d_getsent="define"
2297 $ perl_d_getsent="undef"
2299 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
2301 $! Check for pthread_yield
2303 $ if ("''use_threads'".eqs."T")
2307 $ WS "#include <stdlib.h>
2309 $ WS "#include <pthread.h>
2310 $ WS "#include <stdio.h>
2313 $ WS "pthread_yield();
2317 $ DEFINE SYS$ERROR _NLA0:
2318 $ DEFINE SYS$OUTPUT _NLA0:
2319 $ on error then continue
2320 $ on warning then continue
2322 $ teststatus = f$extract(9,1,$status)
2323 $ DEASSIGN SYS$OUTPUT
2324 $ DEASSIGN SYS$ERROR
2325 $ if (teststatus.nes."1")
2327 $ perl_d_pthread_yield="undef"
2329 $ perl_d_pthread_yield="define"
2332 $ perl_d_pthread_yield="undef"
2334 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
2336 $! Check for sched_yield
2338 $ if ("''use_threads'".eqs."T")
2342 $ WS "#include <stdlib.h>
2344 $ WS "#include <pthread.h>
2345 $ WS "#include <stdio.h>
2348 $ WS "sched_yield();
2352 $ DEFINE SYS$ERROR _NLA0:
2353 $ DEFINE SYS$OUTPUT _NLA0:
2354 $ on error then continue
2355 $ on warning then continue
2357 $ teststatus = f$extract(9,1,$status)
2358 $ DEASSIGN SYS$OUTPUT
2359 $ DEASSIGN SYS$ERROR
2360 $ if (teststatus.nes."1")
2362 $ perl_d_sched_yield="undef"
2364 $ perl_d_sched_yield="define"
2367 $ perl_d_sched_yield="undef"
2369 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
2371 $! Check for generic pointer size
2375 $ WS "#include <stdlib.h>
2377 $ WS "#include <stdio.h>
2381 $ WS "foo = sizeof(char *);
2382 $ WS "printf(""%d\n"", foo);
2386 $! copy temp.c sys$output
2388 $ DEFINE SYS$ERROR _NLA0:
2389 $ DEFINE SYS$OUTPUT _NLA0:
2390 $ ON ERROR THEN CONTINUE
2391 $ ON WARNING THEN CONTINUE
2393 $ If (Needs_Opt.eqs."Yes")
2395 $ link temp.obj,temp.opt/opt
2399 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
2400 $ DEASSIGN SYS$OUTPUT
2401 $ DEASSIGN SYS$ERROR
2402 $ DEFINE SYS$ERROR TEMPOUT
2403 $ DEFINE SYS$OUTPUT TEMPOUT
2406 $ DEASSIGN SYS$OUTPUT
2407 $ DEASSIGN SYS$ERROR
2408 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
2413 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
2416 $! Done with compiler checks. Clean up.
2417 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
2418 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
2419 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
2420 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
2423 $! Some that are compiler or VMS version sensitive
2426 $ IF "''Using_Gnu_C'".EQS."Yes"
2428 $ perl_d_attribut="define"
2429 $ perl_vms_cc_type="gcc"
2431 $ perl_d_attribut="undef"
2434 $! Dec C >= 5.2 and VMS ver >= 7.0
2435 $ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
2437 $ perl_d_bcmp="define"
2438 $ perl_d_gettimeod="define"
2439 $ perl_d_uname="define"
2440 $ perl_d_sigaction="define"
2441 $ perl_d_truncate="define"
2442 $ perl_d_wait4="define"
2443 $ perl_d_index="define"
2444 $ perl_pidtype="pid_t"
2445 $ 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"
2446 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
2447 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
2448 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
2449 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
2450 $ 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"
2451 $ 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"
2452 $ perl_sig_num_with_commas=perl_sig_num_init
2453 $ perl_uidtype="uid_t"
2454 $ perl_d_pathconf="define"
2455 $ perl_d_fpathconf="define"
2456 $ perl_d_sysconf="define"
2457 $ perl_d_sigsetjmp="define"
2459 $ perl_pidtype="unsigned int"
2460 $ perl_d_gettimeod="undef"
2461 $ perl_d_bcmp="undef"
2462 $ perl_d_uname="undef"
2463 $ perl_d_sigaction="undef"
2464 $ perl_d_truncate="undef"
2465 $ perl_d_wait4="undef"
2466 $ perl_d_index="undef"
2467 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
2468 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
2469 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
2470 $ perl_sig_name_with_commas = psnwc1 + psnwc2
2471 $ perl_sig_num="0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 6 16 17"",0"
2472 $ perl_sig_num_init="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
2473 $ perl_sig_num_with_commas=perl_sig_num_init
2474 $ perl_uidtype="unsigned int"
2475 $ perl_d_pathconf="undef"
2476 $ perl_d_fpathconf="undef"
2477 $ perl_d_sysconf="undef"
2478 $ perl_d_sigsetjmp="undef"
2482 $ IF ("''Using_Dec_C'".EQS."Yes")
2484 $ perl_d_mbstowcs="define"
2485 $ perl_d_mbtowc="define"
2486 $ perl_d_stdiobase="define"
2487 $ perl_d_stdio_ptr_lval="define"
2488 $ perl_d_stdio_cnt_lval="define"
2489 $ perl_d_stdstdio="define"
2490 $ perl_d_wcstombs="define"
2491 $ perl_d_mblen="define"
2492 $ perl_d_mktime="define"
2493 $ perl_d_strcoll="define"
2494 $ perl_d_strxfrm="define"
2495 $ perl_d_wctomb="define"
2496 $ perl_i_locale="define"
2497 $ perl_d_locconv="define"
2498 $ perl_d_setlocale="define"
2499 $ perl_vms_cc_type="decc"
2501 $ perl_d_mbstowcs="undef"
2502 $ perl_d_mbtowc="undef"
2503 $ perl_d_stdiobase="undef"
2504 $ perl_d_stdio_ptr_lval="undef"
2505 $ perl_d_stdio_cnt_lval="undef"
2506 $ perl_d_stdstdio="undef"
2507 $ perl_d_wcstombs="undef"
2508 $ perl_d_mblen="undef"
2509 $ perl_d_mktime="undef"
2510 $ perl_d_strcoll="undef"
2511 $ perl_d_strxfrm="undef"
2512 $ perl_d_wctomb="undef"
2513 $ perl_i_locale="undef"
2514 $ perl_d_locconv="undef"
2515 $ perl_d_setlocale="undef"
2519 $ if ("''Using_Vax_C'".EQS."Yes")
2521 $ perl_vms_cc_type="vaxc"
2526 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
2528 $ perl_d_vms_do_sockets="define"
2529 $ perl_d_htonl="define"
2530 $ perl_d_socket="define"
2531 $ perl_d_select="define"
2532 $ perl_netdb_host_type="char *"
2533 $ perl_netdb_hlen_type="int"
2534 $ perl_netdb_name_type="char *"
2535 $ perl_netdb_net_type="long"
2536 $ perl_d_gethbyaddr="define"
2537 $ perl_d_gethbyname="define"
2538 $ perl_d_getnbyaddr="define"
2539 $ perl_d_getnbyname="define"
2540 $ perl_d_getpbynumber="define"
2541 $ perl_d_getpbyname="define"
2542 $ perl_d_getsbyport="define"
2543 $ perl_d_getsbyname="define"
2544 $ perl_d_gethostprotos="define"
2545 $ perl_d_getnetprotos="define"
2546 $ perl_d_getprotoprotos="define"
2547 $ perl_d_getservprotos="define"
2549 $ perl_d_vms_do_sockets="undef"
2550 $ perl_d_htonl="undef"
2551 $ perl_d_socket="undef"
2552 $ perl_d_select="undef"
2553 $ perl_netdb_host_type="char *"
2554 $ perl_netdb_hlen_type="int"
2555 $ perl_netdb_name_type="char *"
2556 $ perl_netdb_net_type="long"
2557 $ perl_d_gethbyaddr="undef"
2558 $ perl_d_gethbyname="undef"
2559 $ perl_d_getnbyaddr="undef"
2560 $ perl_d_getnbyname="undef"
2561 $ perl_d_getpbynumber="undef"
2562 $ perl_d_getpbyname="undef"
2563 $ perl_d_getsbyport="undef"
2564 $ perl_d_getsbyname="undef"
2565 $ perl_d_gethostprotos="undef"
2566 $ perl_d_getnetprotos="undef"
2567 $ perl_d_getprotoprotos="undef"
2568 $ perl_d_getservprotos="undef"
2571 $ if ("''use_threads'".eqs."T")
2573 $ perl_usethreads="define"
2574 $ perl_d_pthreads_created_joinable="define"
2575 $ if ("''VMS_VER'".ges."7.0")
2577 $ perl_d_oldpthreads="undef"
2579 $ perl_d_oldpthreads="define"
2582 $ perl_d_oldpthreads="undef"
2583 $ perl_usethreads="undef"
2585 $ perl_d_pthreads_created_joinable="undef"
2589 $! Finally the composite ones. All config
2590 $ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
2591 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
2592 $ perl_myhostname="''myhostname'"
2593 $ perl_mydomain="''mydomain'"
2594 $ perl_perladmin="''perladmin'"
2595 $ perl_cf_email="''cf_email'"
2596 $ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
2597 $ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
2598 $ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
2599 $ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
2600 $ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
2601 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
2602 $ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
2603 $ if "''Using_Dec_C'" .eqs. "Yes"
2605 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
2607 $ IF "''Using_Vax_C'" .eqs. "Yes"
2609 $ perl_ccflags="/Include=[]/Obj=''perl_obj_ext'/NoList''cc_flags'"
2613 $! Finally clean off any leading zeros from the patchlevel or subversion
2614 $ perl_patchlevel = perl_patchlevel + 0
2615 $ perl_subversion = perl_subversion + 0
2617 $! Okay, we've got everything configured. Now go write out a config.sh.
2618 $ open/write CONFIGSH [-]config.sh
2619 $ WC := "write CONFIGSH"
2621 $ WC "# This file generated by Configure.COM on a VMS system."
2622 $ WC "# Time: " + perl_cf_time
2624 $ WC "package='" + perl_package + "'"
2625 $ WC "CONFIG='" + perl_config + "'"
2626 $ WC "cf_time='" + perl_cf_time + "'"
2627 $ WC "cf_by='" + perl_cf_by+ "'"
2628 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
2629 $ WC "ccdlflags='" + perl_ccdlflags + "'"
2630 $ WC "cccdlflags='" + perl_cccdlflags + "'"
2631 $ WC "mab='" + perl_mab + "'"
2632 $ WC "libpth='" + perl_libpth + "'"
2633 $ WC "ld='" + perl_ld + "'"
2634 $ WC "lddlflags='" + perl_lddlflags + "'"
2635 $ WC "ranlib='" + perl_ranlib + "'"
2636 $ WC "ar='" + perl_ar + "'"
2637 $ WC "eunicefix='" + perl_eunicefix + "'"
2638 $ WC "hint='" + perl_hint +"'"
2639 $ WC "hintfile='" + perl_hintfile + "'"
2640 $ WC "shrplib='" + perl_shrplib + "'"
2641 $ WC "usemymalloc='" + perl_usemymalloc + "'"
2642 $ WC "usevfork='" + perl_usevfork + "'"
2643 $ WC "useposix='false'"
2644 $ WC "spitshell='write sys$output '"
2645 $ WC "dlsrc='dl_vms.c'"
2646 $ WC "binexp='" + perl_binexp + "'"
2647 $ WC "man1ext='" + perl_man1ext + "'"
2648 $ WC "man3ext='" + perl_man3ext + "'"
2649 $ WC "arch='" + perl_arch + "'"
2650 $ WC "archname='" + perl_archname + "'"
2651 $ WC "osvers='" + perl_osvers + "'"
2652 $ WC "prefix='" + perl_prefix + "'"
2653 $ WC "builddir='" + perl_builddir + "'"
2654 $ WC "installbin='" + perl_installbin + "'"
2655 $ WC "installscript='" + perl_installscript + "'"
2656 $ WC "installman1dir='" + perl_installman1dir + "'"
2657 $ WC "installman3dir='" + perl_installman3dir + "'"
2658 $ WC "installprivlib='" + perl_installprivlib + "'"
2659 $ WC "installarchlib='" + perl_installarchlib + "'"
2660 $ WC "installsitelib='" + perl_installsitelib + "'"
2661 $ WC "installsitearch='" + perl_installsitearch + "'"
2662 $ WC "path_sep='" + perl_path_sep + "'"
2663 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
2664 $ WC "d_attribut='" + perl_d_attribut + "'"
2665 $ WC "cc='" + perl_cc + "'"
2666 $ WC "ccflags='" + perl_ccflags + "'"
2667 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
2668 $ WC "d_socket='" + perl_d_socket + "'"
2669 $ WC "d_sockpair='" + perl_d_sockpair + "'"
2670 $ WC "d_gethent='" + perl_d_gethent + "'"
2671 $ WC "d_getsent='" + perl_d_getsent + "'"
2672 $ WC "d_select='" + perl_d_select + "'"
2673 $ WC "i_niin='" + perl_i_niin + "'"
2674 $ WC "i_neterrno='" + perl_i_neterrno + "'"
2675 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
2676 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
2677 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
2678 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
2679 $ WC "d_locconv='" + perl_d_locconv + "'"
2680 $ WC "d_setlocale='" + perl_d_setlocale + "'"
2681 $ WC "i_locale='" + perl_i_locale + "'"
2682 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
2683 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
2684 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
2685 $ WC "d_wctomb='" + perl_d_wctomb + "'"
2686 $ WC "d_mblen='" + perl_d_mblen + "'"
2687 $ WC "d_mktime='" + perl_d_mktime + "'"
2688 $ WC "d_strcoll='" + perl_d_strcoll + "'"
2689 $ WC "d_strxfrm='" + perl_d_strxfrm + "'"
2690 $ WC "ldflags='" + perl_ldflags + "'"
2691 $ WC "dlobj='" + perl_dlobj + "'"
2692 $ WC "obj_ext='" + perl_obj_ext + "'"
2693 $ WC "so='" + perl_so + "'"
2694 $ WC "dlext='" + perl_dlext + "'"
2695 $ WC "exe_ext='" + perl_exe_ext + "'"
2696 $ WC "lib_ext='" + perl_lib_ext + "'"
2697 $ WC "myhostname='" + perl_myhostname + "'"
2698 $ WC "mydomain='" + perl_mydomain + "'"
2699 $ WC "perladmin='" + perl_perladmin + "'"
2700 $ WC "cf_email='" + perl_cf_email + "'"
2701 $ WC "myuname='" + perl_myuname + "'"
2702 $ WC "alignbytes='" + perl_alignbytes + "'"
2703 $ WC "osname='" + perl_osname + "'"
2704 $ WC "d_archlib='" + perl_d_archlib + "'"
2705 $ WC "archlibexp='" + perl_archlibexp + "'"
2706 $ WC "archlib='" + perl_archlib + "'"
2707 $ WC "archname='" + perl_archname + "'"
2708 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
2709 $ WC "cppstdin='" + perl_cppstdin + "'"
2710 $ WC "cppminus='" + perl_cppminus + "'"
2711 $ WC "d_bcmp='" + perl_d_bcmp + "'"
2712 $ WC "d_bcopy='" + perl_d_bcopy + "'"
2713 $ WC "d_bzero='" + perl_d_bzero + "'"
2714 $ WC "d_castneg='" + perl_d_castneg + "'"
2715 $ WC "castflags='" + perl_castflags + "'"
2716 $ WC "d_chsize='" + perl_d_chsize + "'"
2717 $ WC "d_const='" + perl_d_const + "'"
2718 $ WC "d_crypt='" + perl_d_crypt + "'"
2719 $ WC "byteorder='" + perl_byteorder + "'"
2720 $ WC "full_csh='" + perl_full_csh + "'"
2721 $ WC "d_csh='" + perl_d_csh + "'"
2722 $ WC "d_dup2='" + perl_d_dup2 + "'"
2723 $ WC "d_fchmod='" + perl_d_fchmod + "'"
2724 $ WC "d_fchown='" + perl_d_fchown + "'"
2725 $ WC "d_fcntl='" + perl_d_fcntl + "'"
2726 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
2727 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
2728 $ WC "d_flock='" + perl_d_flock + "'"
2729 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
2730 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
2731 $ WC "d_getgrps='" + perl_d_getgrps + "'"
2732 $ WC "d_setgrps='" + perl_d_setgrps + "'"
2733 $ WC "d_uname='" + perl_d_uname + "'"
2734 $ WC "d_getprior='" + perl_d_getprior + "'"
2735 $ WC "d_killpg='" + perl_d_killpg + "'"
2736 $ WC "d_link='" + perl_d_link + "'"
2737 $ WC "d_lstat='" + perl_d_lstat + "'"
2738 $ WC "d_lockf='" + perl_d_lockf + "'"
2739 $ WC "d_memcmp='" + perl_d_memcmp + "'"
2740 $ WC "d_memcpy='" + perl_d_memcpy + "'"
2741 $ WC "d_memmove='" + perl_d_memmove + "'"
2742 $ WC "d_memset='" + perl_d_memset + "'"
2743 $ WC "d_mkdir='" + perl_d_mkdir + "'"
2744 $ WC "d_msg='" + perl_d_msg + "'"
2745 $ WC "d_open3='" + perl_d_open3 + "'"
2746 $ WC "d_poll='" + perl_d_poll + "'"
2747 $ WC "d_readdir='" + perl_d_readdir + "'"
2748 $ WC "d_seekdir='" + perl_d_seekdir + "'"
2749 $ WC "d_telldir='" + perl_d_telldir + "'"
2750 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
2751 $ WC "d_rename='" + perl_d_rename + "'"
2752 $ WC "d_rmdir='" + perl_d_rmdir + "'"
2753 $ WC "d_sem='" + perl_d_sem + "'"
2754 $ WC "d_setegid='" + perl_d_setegid + "'"
2755 $ WC "d_seteuid='" + perl_d_seteuid + "'"
2756 $ WC "d_setprior='" + perl_d_setprior + "'"
2757 $ WC "d_setregid='" + perl_d_setregid + "'"
2758 $ WC "d_setresgid='" + perl_d_setresgid + "'"
2759 $ WC "d_setreuid='" + perl_d_setreuid + "'"
2760 $ WC "d_setresuid='" + perl_d_setresuid + "'"
2761 $ WC "d_setrgid='" + perl_d_setrgid + "'"
2762 $ WC "d_setruid='" + perl_d_setruid + "'"
2763 $ WC "d_setsid='" + perl_d_setsid + "'"
2764 $ WC "d_shm='" + perl_d_shm + "'"
2765 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
2766 $ WC "d_sigaction='" + perl_d_sigaction + "'"
2767 $ WC "d_statblks='" + perl_d_statblks + "'"
2768 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
2769 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
2770 $ WC "stdio_base='" + perl_stdio_base + "'"
2771 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
2772 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
2773 $ WC "d_strerror='" + perl_d_strerror + "'"
2774 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
2775 $ WC "d_strerrm='" + perl_d_strerrm + "'"
2776 $ WC "d_symlink='" + perl_d_symlink + "'"
2777 $ WC "d_syscall='" + perl_d_syscall + "'"
2778 $ WC "d_system='" + perl_d_system + "'"
2779 $ WC "timetype='" + perl_timetype + "'"
2780 $ WC "d_truncate='" + perl_d_truncate + "'"
2781 $ WC "d_vfork='" + perl_d_vfork + "'"
2782 $ WC "signal_t='" + perl_signal_t + "'"
2783 $ WC "d_volatile='" + perl_d_volatile + "'"
2784 $ WC "d_vprintf='" + perl_d_vprintf + "'"
2785 $ WC "d_charvspr='" + perl_d_charvspr + "'"
2786 $ WC "d_wait4='" + perl_d_wait4 + "'"
2787 $ WC "d_waitpid='" + perl_d_waitpid + "'"
2788 $ WC "i_dirent='" + perl_i_dirent + "'"
2789 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
2790 $ WC "direntrytype='" + perl_direntrytype + "'"
2791 $ WC "i_fcntl='" + perl_i_fcntl + "'"
2792 $ WC "i_grp='" + perl_i_grp + "'"
2793 $ WC "i_limits='" + perl_i_limits + "'"
2794 $ WC "i_memory='" + perl_i_memory + "'"
2795 $ WC "i_ndbm='" + perl_i_ndbm + "'"
2796 $ WC "i_stdarg='" + perl_i_stdarg + "'"
2797 $ WC "i_pwd='" + perl_i_pwd + "'"
2798 $ WC "d_pwquota='" + perl_d_pwquota + "'"
2799 $ WC "d_pwage='" + perl_d_pwage + "'"
2800 $ WC "d_pwchange='" + perl_d_pwchange + "'"
2801 $ WC "d_pwclass='" + perl_d_pwclass + "'"
2802 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
2803 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
2804 $ WC "i_stddef='" + perl_i_stddef + "'"
2805 $ WC "i_stdlib='" + perl_i_stdlib + "'"
2806 $ WC "i_string='" + perl_i_string + "'"
2807 $ WC "i_sysdir='" + perl_i_sysdir + "'"
2808 $ WC "i_sysfile='" + perl_i_sysfile + "'"
2809 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
2810 $ WC "i_sysndir='" + perl_i_sysndir + "'"
2811 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
2812 $ WC "i_sysselct='" + perl_i_sysselct + "'"
2813 $ WC "i_dbm='" + perl_i_dbm + "'"
2814 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
2815 $ WC "i_sfio='" + perl_i_sfio + "'"
2816 $ WC "i_sysstat='" + perl_i_sysstat + "'"
2817 $ WC "i_systimes='" + perl_i_systimes + "'"
2818 $ WC "i_systypes='" + perl_i_systypes + "'"
2819 $ WC "i_sysun='" + perl_i_sysun + "'"
2820 $ WC "i_syswait='" + perl_i_syswait + "'"
2821 $ WC "i_termio='" + perl_i_termio + "'"
2822 $ WC "i_sgtty='" + perl_i_sgtty + "'"
2823 $ WC "i_termios='" + perl_i_termios + "'"
2824 $ WC "i_time='" + perl_i_time + "'"
2825 $ WC "i_systime='" + perl_i_systime + "'"
2826 $ WC "i_systimek='" + perl_i_systimek + "'"
2827 $ WC "i_unistd='" + perl_i_unistd + "'"
2828 $ WC "i_utime='" + perl_i_utime + "'"
2829 $ WC "i_varargs='" + perl_i_varargs + "'"
2830 $ WC "i_vfork='" + perl_i_vfork + "'"
2831 $ WC "prototype='" + perl_prototype + "'"
2832 $ WC "randbits='" + perl_randbits +"'"
2833 $ WC "selecttype='" + perl_selecttype + "'"
2834 $ WC "stdchar='" + perl_stdchar + "'"
2835 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
2836 $ WC "full_sed='" + perl_full_sed + "'"
2837 $ WC "bin='" + perl_bin + "'"
2838 $ WC "binexp='" + perl_binexp + "'"
2839 $ WC "d_alarm='" + perl_d_alarm + "'"
2840 $ WC "d_casti32='" + perl_d_casti32 + "'"
2841 $ WC "d_chown='" + perl_d_chown + "'"
2842 $ WC "d_chroot='" + perl_d_chroot + "'"
2843 $ WC "d_cuserid='" + perl_d_cuserid + "'"
2844 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
2845 $ WC "d_difftime='" + perl_d_difftime + "'"
2846 $ WC "d_fork='" + perl_d_fork + "'"
2847 $ WC "d_getlogin='" + perl_d_getlogin + "'"
2848 $ WC "d_getppid='" + perl_d_getppid + "'"
2849 $ WC "d_htonl='" + perl_d_htonl + "'"
2850 $ WC "d_nice='" + perl_d_nice + "'"
2851 $ WC "d_pause='" + perl_d_pause + "'"
2852 $ WC "d_pipe='" + perl_d_pipe + "'"
2853 $ WC "d_readlink='" + perl_d_readlink + "'"
2854 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
2855 $ WC "d_strchr='" + perl_d_strchr + "'"
2856 $ WC "d_index='" + perl_d_index + "'"
2857 $ WC "d_strtod='" + perl_d_strtod + "'"
2858 $ WC "d_strtol='" + perl_d_strtol + "'"
2859 $ WC "d_strtoul='" + perl_d_strtoul + "'"
2860 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
2861 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
2862 $ WC "d_times='" + perl_d_times + "'"
2863 $ WC "d_tzname='" + perl_d_tzname + "'"
2864 $ WC "d_umask='" + perl_d_umask + "'"
2865 $ WC "fpostype='" + perl_fpostype + "'"
2866 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
2867 $ WC "i_float='" + perl_i_float + "'"
2868 $ WC "i_math='" + perl_i_math + "'"
2869 $ WC "intsize='" + perl_intsize + "'"
2870 $ WC "longsize='" + perl_longsize + "'"
2871 $ WC "shortsize='" + perl_shortsize + "'"
2872 $ WC "lseektype='" + perl_lseektype + "'"
2873 $ WC "i_values='" + perl_i_values + "'"
2874 $ WC "malloctype='" + perl_malloctype + "'"
2875 $ WC "freetype='" + perl_freetype + "'"
2876 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
2877 $ WC "sh='" + perl_sh + "'"
2878 $ WC "sig_name='" + perl_sig_name + "'"
2879 $ WC "sig_num='" + perl_sig_num + "'"
2880 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
2882 $ WC "modetype='" + perl_modetype + "'"
2883 $ WC "ssizetype='" + perl_ssizetype + "'"
2884 $ WC "o_nonblock='" + perl_o_nonblock + "'"
2885 $ WC "eagain='" + perl_eagain + "'"
2886 $ WC "rd_nodata='" + perl_rd_nodata + "'"
2887 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
2888 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
2889 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
2890 $ WC "oldarchlib='" + perl_oldarchlib + "'"
2891 $ WC "privlibexp='" + perl_privlibexp + "'"
2892 $ WC "privlib='" + perl_privlib + "'"
2893 $ WC "sitelibexp='" + perl_sitelibexp + "'"
2894 $ WC "sitelib='" + perl_sitelib + "'"
2895 $ WC "sitearchexp='" + perl_sitearchexp + "'"
2896 $ WC "sitearch='" + perl_sitearch + "'"
2897 $ WC "sizetype='" + perl_sizetype + "'"
2898 $ WC "i_sysparam='" + perl_i_sysparam + "'"
2899 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
2900 $ WC "d_dlerror='" + perl_d_dlerror + "'"
2901 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
2902 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
2903 $ WC "d_dosuid='" + perl_d_dosuid + "'"
2904 $ WC "d_inetaton='" + perl_d_inetaton + "'"
2905 $ WC "d_isascii='" + perl_d_isascii + "'"
2906 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
2907 $ WC "d_pathconf='" + perl_d_pathconf + "'"
2908 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
2909 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
2910 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
2911 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
2912 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
2913 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
2914 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
2915 $ WC "d_setpgid='" + perl_d_setpgid + "'"
2916 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
2917 $ WC "d_sysconf='" + perl_d_sysconf + "'"
2918 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
2919 $ WC "d_getpgid='" + perl_d_getpgid + "'"
2920 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
2921 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
2922 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
2923 $ WC "d_sfio='" + perl_d_sfio + "'"
2924 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
2925 $ WC "usedl='" + perl_usedl + "'"
2926 $ WC "startperl=" + perl_startperl ! This one's special--no enclosing single quotes
2927 $ WC "db_hashtype='" + perl_db_hashtype + "'"
2928 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
2929 $ WC "useperlio='" + perl_useperlio + "'"
2930 $ WC "defvoidused='" + perl_defvoidused + "'"
2931 $ WC "voidflags='" + perl_voidflags + "'"
2932 $ WC "d_eunice='" + perl_d_eunice + "'"
2933 $ WC "libs='" + perl_libs + "'"
2934 $ WC "libc='" + perl_libc + "'"
2935 $ tempstring = "PERL_VERSION='" + "''perl_patchlevel'" + "'"
2937 $ tempstring = "PERL_SUBVERSION='" + "''perl_patchlevel'" + "'"
2939 $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
2941 $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
2943 $ WC "pager='" + perl_pager + "'"
2944 $ WC "uidtype='" + perl_uidtype + "'"
2945 $ WC "gidtype='" + perl_gidtype + "'"
2946 $ WC "usethreads='" + perl_usethreads + "'"
2947 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
2948 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
2949 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
2950 $ WC "i_netdb='" + perl_i_netdb + "'"
2951 $ WC "pidtype='" + perl_pidtype + "'"
2952 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
2953 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
2954 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
2955 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
2956 $ WC "baserev='" + perl_baserev + "'"
2957 $ WC "doublesize='" + perl_doublesize + "'"
2958 $ WC "ptrsize='" + perl_ptrsize + "'"
2959 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
2960 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
2961 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
2962 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
2963 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
2964 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
2965 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
2966 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
2967 $ WC "d_sethent='" + perl_d_sethent + "'"
2968 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
2969 $ WC "d_longdbl='" + perl_d_longdbl + "'"
2970 $ WC "longdblsize='" + perl_longdblsize + "'"
2971 $ WC "d_longlong='" + perl_d_longlong + "'"
2972 $ WC "longlongsize='" + perl_longlongsize + "'"
2973 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
2974 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
2975 $ WC "d_endhent='" + perl_d_endhent + "'"
2976 $ WC "d_endnent='" + perl_d_endsent + "'"
2977 $ WC "d_endpent='" + perl_d_endpent + "'"
2978 $ WC "d_endsent='" + perl_d_endsent + "'"
2979 $ WC "d_gethent='" + perl_d_gethent + "'"
2980 $ WC "d_getnent='" + perl_d_getsent + "'"
2981 $ WC "d_getpent='" + perl_d_getpent + "'"
2982 $ WC "d_getsent='" + perl_d_getsent + "'"
2983 $ WC "d_sethent='" + perl_d_sethent + "'"
2984 $ WC "d_setnent='" + perl_d_setsent + "'"
2985 $ WC "d_setpent='" + perl_d_setpent + "'"
2986 $ WC "ebcdic='" + perl_ebcdic + "'"
2987 $ WC "d_setsent='" + perl_d_setsent + "'"
2988 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
2989 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
2990 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
2991 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
2992 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
2993 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
2994 $ WC "d_lchown='" + perl_d_lchown + "'"
2995 $ WC "d_union_semun='" + perl_d_union_semun + "'"
2996 $ WC "i_arpainet='" + perl_i_arpainet + "'"
2997 $ WC "d_grpasswd='" + perl_d_grpasswd + "'"
2998 $ WC "d_setgrent='" + perl_d_setgrent + "'"
2999 $ WC "d_getgrent='" + perl_d_getgrent + "'"
3000 $ WC "d_endgrent='" + perl_d_endgrent + "'"
3001 $ WC "d_pwpasswd='" + perl_d_pwpasswd + "'"
3002 $ WC "d_setpwent='" + perl_d_setpwent + "'"
3003 $ WC "d_getpwent='" + perl_d_getpwent + "'"
3004 $ WC "d_endpwent='" + perl_d_endpwent + "'"
3005 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
3006 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
3007 $ WC "extensions='" + perl_extensions + "'"
3008 $ WC "d_mknod='" + perl_d_mknod + "'"
3009 $ WC "devtype='" + perl_devtype + "'"
3010 $ WC "d_gethname='" + perl_d_gethname + "'"
3011 $ WC "d_phostname='" + perl_d_phostname + "'"
3012 $ WC "d_accessx='" + perl_d_accessx + "'"
3013 $ WC "d_eaccess='" + perl_d_eaccess + "'"
3014 $ WC "i_sysaccess='" + perl_i_sysaccess + "'"
3015 $ WC "i_syssecrt='" + perl_i_syssecrt + "'"
3016 $ WC "d_fd_set='" + perl_d_fd_set + "'"
3017 $ WC "d_access='" + perl_d_access + "'"
3018 $ WC "d_msg_ctrunc='" + perl_d_msg_ctrunc + "'"
3019 $ WC "d_msg_dontroute='" + perl_d_msg_dontroute + "'"
3020 $ WC "d_msg_oob='" + perl_d_msg_oob + "'"
3021 $ WC "d_msg_peek='" + perl_d_msg_peek + "'"
3022 $ WC "d_msg_proxy='" + perl_d_msg_proxy + "'"
3023 $ WC "d_scm_rights='" + perl_d_scm_rights + "'"
3024 $ WC "d_sendmsg='" + perl_d_sendmsg + "'"
3025 $ WC "d_recvmsg='" + perl_d_recvmsg + "'"
3026 $ WC "d_msghdr_s='" + perl_d_msghdr_s + "'"
3027 $ WC "d_cmsghdr_s='" + perl_d_cmsghdr_s + "'"
3028 $ WC "i_sysuio='" + perl_i_sysuio + "'"
3029 $ WC "d_fseeko='" + perl_d_fseeko + "'"
3030 $ WC "d_ftello='" + perl_d_ftello + "'"
3031 $ WC "d_readv='" + perl_d_readv + "'"
3032 $ WC "d_writev='" + perl_d_writev + "'"
3033 $ WC "i_machcthr='" + perl_i_machcthr + "'"
3034 $ WC "usemultiplicity='" + perl_usemultiplicity + "'"
3035 $ WC "d_dbminit64='" + perl_d_dbminit64 + "'"
3036 $ WC "d_dbmclose64='" + perl_d_dbmclose64 + "'"
3037 $ WC "d_fetch64='" + perl_d_fetch64 + "'"
3038 $ WC "d_store64='" + perl_d_store64 + "'"
3039 $ WC "d_delete64='" + perl_d_delete64 + "'"
3040 $ WC "d_firstkey64='" + perl_d_firstkey64 + "'"
3041 $ WC "d_nextkey64='" + perl_d_nextkey64 + "'"
3042 $ WC "i_poll='" + perl_i_poll + "'"
3043 $ WC "i_inttypes='" + perl_i_inttypes + "'"
3044 $ WC "d_int64t='" + perl_d_int64t + "'"
3045 $ WC "d_off64t='" + perl_d_off64t + "'"
3046 $ WC "d_fstat64='" + perl_d_fstat64 + "'"
3047 $ WC "d_ftruncate64='" + perl_d_ftruncate64 + "'"
3048 $ WC "d_lseek64='" + perl_d_lseek64 + "'"
3049 $ WC "d_lstat64='" + perl_d_lstat64 + "'"
3050 $ WC "d_open64='" + perl_d_open64 + "'"
3051 $ WC "d_opendir64='" + perl_d_opendir64 + "'"
3052 $ WC "d_readdir64='" + perl_d_readdir64 + "'"
3053 $ WC "d_seekdir64='" + perl_d_seekdir64 + "'"
3054 $ WC "d_stat64='" + perl_d_stat64 + "'"
3055 $ WC "d_telldir64='" + perl_d_telldir64 + "'"
3056 $ WC "d_truncate64='" + perl_d_truncate64 + "'"
3057 $ WC "d_dirent64_s='" + perl_d_dirent64_s + "'"
3058 $ WC "use64bits='" + perl_use64bits + "'"
3059 $ WC "d_fgetpos64='" + perl_d_fgetpos64 + "'"
3060 $ WC "d_fopen64='" + perl_d_fopen64 + "'"
3061 $ WC "d_freopen64='" + perl_d_freopen64 + "'"
3062 $ WC "d_fseek64='" + perl_d_fseek64 + "'"
3063 $ WC "d_fseeko64='" + perl_d_fseeko64 + "'"
3064 $ WC "d_fsetpos64='" + perl_d_fsetpos64 + "'"
3065 $ WC "d_ftell64='" + perl_d_ftell64 + "'"
3066 $ WC "d_ftello64='" + perl_d_ftello64 + "'"
3067 $ WC "d_tmpfile64='" + perl_d_tmpfile64 + "'"
3068 $ WC "d_drand48proto='" + perl_d_drand48proto + "'"
3069 $ WC "d_pthread_create_joinable='" + perl_d_pthread_create_joinable + "'"
3070 $ WC "pthread_create_joinable='" + perl_pthread_create_joinable + "'"
3071 $ WC "d_old_pthread_create_joinable='" + perl_d_old_pthread_create_joinable + "'"
3072 $ WC "old_pthread_create_joinable='" + perl_old_pthread_create_joinable + "'"
3073 $ WC "drand01='" + perl_drand01 + "'"
3074 $ WC "randseedtype='" + perl_randseedtype + "'"
3075 $ WC "seedfunc='" + perl_seedfunc + "'"
3076 $ WC "sig_num_init='" + perl_sig_num_with_commas + "'"
3077 $ WC "i_sysmount='" + perl_i_sysmount + "'"
3078 $ WC "d_fstatfs='" + perl_d_fstatfs + "'"
3079 $ WC "d_statfsflags='" + perl_d_statfsflags + "'"
3080 $ WC "i_sysstatvfs='" + perl_i_sysstatvfs + "'"
3081 $ WC "d_fstatvfs='" + perl_d_fstatvfs + "'"
3082 $ WC "i_mntent='" + perl_i_mntent + "'"
3083 $ WC "d_getmntent='" + perl_d_getmntent + "'"
3084 $ WC "d_hasmntopt='" + perl_d_hasmntopt + "'"
3085 $ WC "d_telldirproto='" + perl_d_telldirproto + "'"
3086 $ WC "d_madvise='" + perl_d_madvise + "'"
3087 $ WC "d_msync='" + perl_d_msync + "'"
3088 $ WC "d_mprotect='" + perl_d_mprotect + "'"
3089 $ WC "d_munmap='" + perl_d_munmap + "'"
3090 $ WC "d_mmap='" + perl_d_mmap + "'"
3091 $ WC "i_sysmman='" + perl_i_sysmman + "'"
3092 $ WC "installusrbinperl='" + perl_installusrbinperl + "'"
3093 $ WC "crosscompile='" + perl_crosscompile + "'"
3094 $ WC "multiarch='" + perl_multiarch + "'"
3096 $! ##WRITE NEW CONSTANTS HERE##
3100 $! Okay, we've gotten here. Build munchconfig and run it
3101 $ 'Perl_CC' munchconfig.c
3102 $ If (Needs_Opt.eqs."Yes")
3104 $ open/write OPTCHAN []munchconfig.opt
3105 $ IF ("''using_gnu_c'".eqs."Yes")
3107 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
3109 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
3111 $ link munchconfig.obj,munchconfig.opt/opt
3112 $ delete munchconfig.opt;*
3114 $ link munchconfig.obj
3116 $ WRITE_RESULT "Writing config.h"
3118 $ ! we need an fdl file
3119 $ CREATE [-]CONFIG.FDL
3122 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
3123 $ ! First spit out the header info with the local defines (to get
3124 $ ! around the 255 character command line limit)
3125 $ OPEN/APPEND CONFIG [-]config.local
3126 $ if use_debugging_perl.eqs."Y"
3128 $ WRITE CONFIG "#define DEBUGGING"
3130 $ if preload_env.eqs."Y"
3132 $ WRITE CONFIG "#define PRIME_ENV_AT_STARTUP"
3134 $ if use_two_pot_malloc.eqs."Y"
3136 $ WRITE CONFIG "#define TWO_POT_OPTIMIZE"
3138 $ if mymalloc.eqs."Y"
3140 $ WRITE CONFIG "#define EMBEDMYMALLOC"
3142 $ if use_pack_malloc.eqs."Y"
3144 $ WRITE CONFIG "#define PACK_MALLOC"
3146 $ if use_debugmalloc.eqs."Y"
3148 $ write config "#define DEBUGGING_MSTATS"
3150 $ if "''Using_Gnu_C'" .eqs."Yes"
3152 $ WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
3154 $ if "''Has_Dec_C_Sockets'".eqs."T"
3156 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
3157 $ WRITE CONFIG "#define DECCRTL_SOCKETS"
3159 $ if "''Has_Socketshr'".eqs."T"
3161 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
3165 $! Now build the normal config.h
3166 $ define/user sys$output [-]config.main
3167 $ mcr []munchconfig [-]config.sh [-]config_h.sh
3168 $ ! Concatenate them together
3169 $ copy [-]config.local,[-]config.main [-]config.h
3171 $ DELETE/NOLOG [-]CONFIG.MAIN;*
3172 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
3173 $ DELETE/NOLOG [-]CONFIG.FDL;*
3175 $ if "''Using_Dec_C'" .eqs."Yes"
3177 $ DECC_REPLACE = "DECC=decc=1"
3179 $ DECC_REPLACE = "DECC="
3181 $ if "''Using_Gnu_C'" .eqs."Yes"
3183 $ GNUC_REPLACE = "GNUC=gnuc=1"
3185 $ GNUC_REPLACE = "GNUC="
3187 $ if "''Has_Dec_C_Sockets'" .eqs."T"
3189 $ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
3191 $ if "''Has_Socketshr'" .eqs."T"
3193 $ SOCKET_REPLACE = "SOCKET=SOCKETSHR_SOCKETS=1"
3195 $ SOCKET_REPLACE = "SOCKET="
3198 $ IF ("''Use_Threads'".eqs."T")
3200 $ if ("''VMS_VER'".LES."6.2")
3202 $ THREAD_REPLACE = "THREAD=OLDTHREADED=1"
3204 $ THREAD_REPLACE = "THREAD=THREADED=1"
3207 $ THREAD_REPLACE = "THREAD="
3209 $ if mymalloc.eqs."Y"
3211 $ MALLOC_REPLACE = "MALLOC=MALLOC=1"
3213 $ MALLOC_REPLACE = "MALLOC="
3215 $ if f$getsyi("HW_MODEL").ge.1024
3217 $ ARCH_TYPE = "ARCH-TYPE=__AXP__"
3219 $ ARCH_TYPE = "ARCH-TYPE=__VAX__"
3221 $ WRITE_RESULT "Writing DESCRIP.MMS"
3223 $ define/user sys$output [-]descrip.mms
3224 $ 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'"
3227 $! Clean up after ourselves
3228 $ delete/nolog munchconfig.exe;*
3229 $ delete/nolog munchconfig.obj;*