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")
40 $ C_Compiler_Replace := "CC=CC=''Mcc'''CC_flags'"
41 $ if "''Using_Dec_C'" .eqs. "Yes"
43 $ Checkcc := "''Mcc'/prefix=all"
48 $ if use_multiplicity .eqs. "Y"
50 $ perl_usemultiplicity = "define"
52 $ perl_usemultiplicity = "undef"
54 $! Some constant defaults.
56 $ hwname = f$getsyi("HW_NAME")
58 $ if "''myname'" .eqs. "" THEN myname = f$trnlnm("SYS$NODE")
60 $! ##ADD NEW CONSTANTS HERE##
61 $ perl_d_getcwd = "undef"
62 $ perl_d_nv_preserves_uv = "define"
63 $ perl_d_fs_data_s = "undef"
64 $ perl_d_getmnt = "undef"
65 $ perl_d_sqrtl = "define"
66 $ perl_d_statfs_f_flags = "undef"
67 $ perl_d_statfs_s = "undef"
68 $ perl_d_ustat = "undef"
69 $ perl_i_sysstatfs = "undef"
70 $ perl_i_sysvfs = "undef"
71 $ perl_i_ustat = "undef"
72 $ perl_d_llseek="undef"
73 $ perl_d_iconv="undef"
74 $ perl_d_madvise="undef"
75 $ perl_selectminbits=32
76 $ perl_d_msync="undef"
77 $ perl_d_mprotect="undef"
78 $ perl_d_munmap="undef"
79 $ perl_crosscompile="undef"
80 $ perl_multiarch="undef"
82 $ perl_i_sysmman="undef"
83 $ perl_d_telldirproto="define"
84 $ perl_i_sysmount="undef"
85 $ perl_d_bincompat="undef"
86 $ perl_d_endspent="undef
87 $ perl_d_getspent="undef
88 $ perl_d_getspnam="undef
89 $ perl_d_setspent="undef
90 $ perl_d_fstatfs="undef"
91 $ perl_d_getfsstat="undef"
92 $ perl_i_machcthreads="undef"
93 $ perl_i_pthread="define"
94 $ perl_d_fstatvfs="undef"
95 $ perl_usesocks="undef"
96 $ perl_d_vendorlib="undef"
97 $ perl_vendorlibexp=""
98 $ perl_d_statfsflags="undef"
99 $ perl_i_sysstatvfs="undef"
100 $ perl_i_mntent="undef"
101 $ perl_d_getmntent="undef"
102 $ perl_d_hasmntopt="undef"
103 $ perl_package="''package'"
104 $ perl_baserev = "''baserev'"
106 $ perl_installusrbinperl="undef"
108 $ perl_d_fseeko="undef"
109 $ perl_d_ftello="undef"
110 $ perl_d_readv="undef"
111 $ perl_d_writev="undef"
112 $ perl_i_machcthr="undef"
113 $ perl_i_netdb="undef"
114 $ perl_d_gnulibc="undef"
115 $ perl_cf_by="unknown"
119 $ perl_drand01 = "drand48()"
120 $ perl_randseedtype = "long int"
121 $ perl_seedfunc = "srand48"
122 $ perl_d_msg_ctrunc = "undef"
123 $ perl_d_msg_dontroute = "undef"
124 $ perl_d_msg_oob = "undef"
125 $ perl_d_msg_peek = "undef"
126 $ perl_d_msg_proxy = "undef"
127 $ perl_d_scm_rights = "undef"
128 $ perl_d_sendmsg = "undef"
129 $ perl_d_recvmsg = "undef"
130 $ perl_d_msghdr_s = "undef"
131 $ perl_d_cmsghdr_s = "undef"
132 $ IF use_64bitint .eqs. "Y"
134 $ perl_use64bitint = "define"
135 $ perl_uselargefiles = "define"
136 $ perl_uselongdouble = "define"
137 $ perl_usemorebits = "define"
139 $ perl_use64bitint = "undef"
140 $ perl_uselargefiles = "undef"
141 $ perl_uselongdouble = "undef"
142 $ perl_usemorebits = "undef"
144 $ use_64bitall = use_64bitint ! until configure.com question is reworded?
145 $ IF use_64bitall .eqs. "Y"
147 $ perl_use64bitall = "define"
149 $ perl_use64bitall = "undef"
151 $ perl_d_drand48proto = "define"
152 $ perl_d_lseekproto = "define"
153 $ perl_libpth="/sys$share /sys$library"
155 $ perl_lddlflags="/Share"
161 $ perl_i_arpainet="undef"
162 $ perl_d_grpasswd="undef"
163 $ perl_d_setgrent="undef"
164 $ perl_d_getgrent="define"
165 $ perl_d_endgrent="define"
166 $ perl_d_pwpasswd="define"
167 $ perl_d_setpwent="define"
168 $ perl_d_getpwent="define"
169 $ perl_d_endpwent="define"
170 $ perl_d_phostname="undef"
171 $ perl_d_accessx="undef"
172 $ perl_d_eaccess="undef"
173 $ perl_ebcdic="undef"
175 $ perl_shrplib="define"
176 $ perl_usemymalloc=mymalloc
177 $ perl_usevfork="true"
178 $ perl_useposix="false"
179 $ perl_spitshell="write sys$output "
180 $ perl_dlsrc="dl_vms.c"
183 $ perl_prefix="perl_root"
184 $ perl_binexp="''perl_prefix':[000000]"
185 $ perl_builddir="''perl_prefix':[000000]"
186 $ perl_installbin="''perl_prefix':[000000]"
187 $ perl_installscript="''perl_prefix':[utils]"
188 $ perl_installman1dir="''perl_prefix':[man.man1]"
189 $ perl_installman3dir="''perl_prefix':[man.man3]"
190 $ perl_installprivlib="''perl_prefix':[lib]"
191 $ perl_installsitelib="''perl_prefix':[lib.site_perl]"
194 $ perl_d_sockpair="undef"
195 $ perl_i_neterrno="define"
196 $ perl_ldflags="/NoTrace/NoMap"
197 $ perl_d_lchown="undef"
198 $ perl_d_mknod="undef"
199 $ perl_d_union_semun="undef"
200 $ perl_d_semctl_semun="undef"
201 $ perl_d_semctl_semid_ds="undef"
202 $ IF (sharedperl.EQS."Y" .AND. F$GETSYI("HW_MODEL").GE.1024)
204 $ perl_obj_ext=".abj"
207 $ perl_exe_ext=".axe"
208 $ perl_lib_ext=".alb"
210 $ perl_obj_ext=".obj"
213 $ perl_exe_ext=".exe"
214 $ perl_lib_ext=".olb"
216 $ perl_dlobj="dl_vms''perl_obj_ext'"
218 $ perl_d_archlib="define"
219 $ perl_d_bincompat3="undef"
220 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
222 $ perl_d_castneg="define"
224 $ perl_d_chsize="undef"
225 $ perl_d_const="define"
226 $ perl_d_crypt="define"
227 $ perl_byteorder="1234"
230 $ perl_d_dup2="define"
231 $ perl_d_fchmod="undef"
232 $ perl_d_fchown="undef"
233 $ perl_d_fcntl="undef"
234 $ perl_d_fgetpos="define"
235 $ perl_d_flexfnam="define"
236 $ perl_d_flock="undef"
237 $ perl_d_fsetpos="define"
238 $ perl_d_getgrps="undef"
239 $ perl_d_setgrps="undef"
240 $ perl_d_getprior="undef"
241 $ perl_d_killpg="undef"
242 $ perl_d_link="undef"
243 $ perl_d_lstat="undef"
244 $ perl_d_lockf="undef"
245 $ perl_d_memcmp="define"
246 $ perl_d_memcpy="define"
247 $ perl_d_memmove="define"
248 $ perl_d_memset="define"
249 $ perl_d_mkdir="define"
251 $ perl_d_open3="define"
252 $ perl_d_poll="undef"
253 $ perl_d_readdir="define"
254 $ perl_d_seekdir="define"
255 $ perl_d_telldir="define"
256 $ perl_d_rewinddir="define"
257 $ perl_d_rename="define"
258 $ perl_d_rmdir="define"
260 $ perl_d_setegid="undef"
261 $ perl_d_seteuid="undef"
262 $ perl_d_setprior="undef"
263 $ perl_d_setregid="undef"
264 $ perl_d_setresgid="undef"
265 $ perl_d_setreuid="undef"
266 $ perl_d_setresuid="undef"
267 $ perl_d_setrgid="undef"
268 $ perl_d_setruid="undef"
269 $ perl_d_setsid="undef"
271 $ perl_d_shmatprototype="undef"
272 $ perl_d_statblks="undef"
273 $ perl_stdio_ptr="((*fp)->_ptr)"
274 $ perl_stdio_cnt="((*fp)->_cnt)"
275 $ perl_stdio_base="((*fp)->_base)"
276 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
277 $ perl_d_strctcpy="define"
278 $ perl_d_strerror="define"
279 $ perl_d_syserrlst="undef"
280 $ perl_d_strerrm="strerror((e),vaxc$errno)"
281 $ perl_d_symlink="undef"
282 $ perl_d_syscall="undef"
283 $ perl_d_system="define"
284 $ perl_timetype="time_t"
285 $ perl_d_vfork="define"
286 $ perl_signal_t="void"
287 $ perl_d_volatile="define"
288 $ perl_d_vprintf="define"
289 $ perl_d_charvspr="undef"
290 $ perl_d_waitpid="define"
291 $ perl_i_dirent="undef"
292 $ perl_d_dirnamlen="define"
293 $ perl_direntrytype="struct dirent"
294 $ perl_i_fcntl="undef"
296 $ perl_i_limits="define"
297 $ perl_i_memory="undef"
298 $ perl_i_ndbm="undef"
299 $ perl_i_stdarg="define"
301 $ perl_d_pwquota="undef"
302 $ perl_d_pwage="undef"
303 $ perl_d_pwchange="undef"
304 $ perl_d_pwclass="undef"
305 $ perl_d_pwexpire="undef"
306 $ perl_d_pwcomment="define"
307 $ perl_i_stddef="define"
308 $ perl_i_stdlib="define"
309 $ perl_i_string="define"
310 $ perl_i_sysdir="undef"
311 $ perl_i_sysfile="undef"
312 $ perl_i_sysioctl="undef"
313 $ perl_i_sysndir="undef"
314 $ perl_i_sysresrc="undef"
315 $ perl_i_sysselct="undef"
317 $ perl_i_rpcsvcdbm="undef"
318 $ perl_i_sfio="undef"
319 $ perl_i_sysstat="define"
320 $ perl_i_systimes="undef"
321 $ perl_i_systypes="define"
322 $ perl_i_sysun="undef"
323 $ perl_i_syswait="undef"
324 $ perl_i_termio="undef"
325 $ perl_i_sgtty="undef"
326 $ perl_i_termios="undef"
327 $ perl_i_time="define"
328 $ perl_i_systime="undef"
329 $ perl_i_systimek="undef"
330 $! perl_i_unistd="undef"
331 $ perl_i_utime="undef"
332 $ perl_i_varargs="undef"
333 $ perl_i_vfork="undef"
334 $ perl_prototype="define"
336 $ perl_stdchar="char"
337 $ perl_d_unlink_all_versions="undef"
338 $ perl_full_sed="_NLA0:"
339 $ perl_bin="/''perl_prefix'/000000"
340 $ perl_binexp="''perl_prefix':[000000]"
341 $ perl_d_alarm="define"
342 $ perl_d_casti32="define"
343 $ perl_d_chown="define"
344 $ perl_d_chroot="undef"
345 $ perl_d_cuserid="define"
346 $ perl_d_dbl_dig="define"
347 $ perl_d_ldbl_dig="define"
348 $ perl_d_difftime="define"
349 $ perl_d_fork="undef"
350 $ perl_d_getlogin="define"
351 $ perl_d_getppid="undef"
352 $ perl_d_nice="define"
353 $ perl_d_pause="define"
354 $ perl_d_pipe="define"
355 $ perl_d_readlink="undef"
356 $ perl_d_setlinebuf="undef"
357 $ perl_d_strchr="define"
358 $ perl_d_strtod="define"
359 $ perl_d_strtol="define"
360 $ perl_d_strtoul="define"
361 $ perl_d_tcgetpgrp="undef"
362 $ perl_d_tcsetpgrp="undef"
363 $ perl_d_times="define"
364 $ perl_d_tzname="undef"
365 $ perl_d_umask="define"
366 $ perl_fpostype="fpos_t"
367 $ perl_i_dlfcn="undef"
368 $ perl_i_float="define"
369 $ perl_i_math="define"
370 $ perl_lseektype="int"
371 $ perl_i_values="undef"
372 $ perl_malloctype="void *"
373 $ perl_freetype="void"
374 $ if "''mymalloc'".eqs."Y"
376 $ perl_d_mymalloc="define"
378 $ perl_d_mymalloc="undef"
381 $ perl_modetype="unsigned int"
382 $ perl_ssizetype="int"
383 $ perl_o_nonblock=" "
386 $ perl_d_eofnblk="undef"
387 $ perl_d_oldarchlib="define"
388 $ perl_privlibexp="''perl_prefix':[lib]"
389 $ perl_privlib="''perl_prefix':[lib]"
390 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
391 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
392 $ perl_sizetype="size_t"
393 $ perl_i_sysparam="undef"
394 $ perl_d_void_closedir="define"
395 $ perl_d_dlerror="undef"
396 $ perl_d_dlsymun="undef"
397 $ perl_d_suidsafe="undef"
398 $ perl_d_dosuid="undef"
399 $ perl_d_inetaton="undef"
400 $ perl_d_isascii="define"
401 $ perl_d_mkfifo="undef"
402 $ perl_d_safebcpy="undef"
403 $ perl_d_safemcpy="define"
404 $ perl_d_sanemcmp="define"
405 $ perl_d_setpgrp="undef"
406 $ perl_d_bsdsetpgrp="undef"
407 $ perl_d_bsdpgrp="undef"
408 $ perl_d_setpgid="undef"
409 $ perl_d_setpgrp2="undef"
410 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
411 $ perl_d_getpgid="undef"
412 $ perl_d_getpgrp="undef"
413 $ perl_d_bsdgetpgrp="undef"
414 $ perl_d_getpgrp2="undef"
415 $ perl_d_sfio="undef"
416 $ perl_usedl="define"
417 $ perl_startperl="""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ + ++$status != 0 and $exit = $status = undef;"""
418 $ perl_db_hashtype=" "
419 $ perl_db_prefixtype=" "
420 $ perl_useperlio="undef"
421 $ perl_defvoidused="15"
422 $ perl_voidflags="15"
423 $ perl_d_eunice="undef"
424 $ perl_d_pwgecos="define"
425 $ IF ("''Use_Threads'".eqs."T").and.("''VMS_VER'".LES."6.2")
427 $ 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"
431 $ IF ("''Using_Dec_C'".eqs."Yes")
433 $ perl_libc="(DECCRTL)"
437 $ perl_PATCHLEVEL="''patchlevel'"
438 $ perl_SUBVERSION="''subversion'"
443 $ if (use_64bitint .eqs. "Y")
445 $ perl_d_PRIfldbl = "define"
446 $ perl_d_PRIgldbl = "define"
447 $ perl_d_PRId64 = "define"
448 $ perl_d_PRIu64 = "define"
449 $ perl_d_PRIo64 = "define"
450 $ perl_d_PRIx64 = "define"
451 $ perl_sPRIfldbl = """Lf"""
452 $ perl_sPRIgldbl = """Lg"""
453 $ perl_sPRId64 = """Ld"""
454 $ perl_sPRIu64 = """Lu"""
455 $ perl_sPRIo64 = """Lo"""
456 $ perl_sPRIx64 = """Lx"""
457 $ perl_d_quad = "define"
458 $ perl_quadtype = "long long"
459 $ perl_uquadtype = "unsigned long long"
461 $ perl_d_PRIfldbl = "undef"
462 $ perl_d_PRIgldbl = "undef"
463 $ perl_d_PRId64 = "undef"
464 $ perl_d_PRIu64 = "undef"
465 $ perl_d_PRIo64 = "undef"
466 $ perl_d_PRIx64 = "undef"
467 $ perl_sPRIfldbl = ""
468 $ perl_sPRIgldbl = ""
473 $ perl_d_quad = "undef"
476 $! Now some that we build up
478 $ LocalTime = f$time()
479 $ perl_cf_time= f$extract(0, 3, f$cvtime(LocalTime,, "WEEKDAY")) + " " + -
480 f$edit(f$cvtime(LocalTime, "ABSOLUTE", "MONTH"), "LOWERCASE") + -
481 " " + f$cvtime(LocalTime,, "DAY") + " " + f$cvtime(LocalTime,, "TIME") + -
482 " " + f$cvtime(LocalTime,, "YEAR")
483 $ if f$getsyi("HW_MODEL").ge.1024
485 $ perl_arch="VMS_AXP"
486 $ perl_archname="VMS_AXP"
487 $ perl_alignbytes="8"
489 $ perl_arch="VMS_VAX"
490 $ perl_archname="VMS_VAX"
491 $ perl_alignbytes="8"
493 $ if ("''Use_Threads'".eqs."T")
495 $ perl_arch = "''perl_arch'-thread"
496 $ perl_archname = "''perl_archname'-thread"
497 $ perl_d_old_pthread_create_joinable = "undef"
498 $ perl_old_pthread_create_joinable = " "
499 $ perl_use5005threads = "define"
501 $ perl_d_old_pthread_create_joinable = "undef"
502 $ perl_old_pthread_create_joinable = " "
503 $ perl_use5005threads = "undef"
505 $ perl_useithreads = "undef"
506 $ perl_osvers=f$edit(osvers, "TRIM")
507 $ if (perl_subversion + 0).eq.0
509 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL
511 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion
514 $! Some that we need to invoke the compiler for
515 $ OS := "open/write SOURCECHAN []temp.c"
516 $ WS := "write SOURCECHAN"
517 $ CS := "close SOURCECHAN"
518 $ DS := "delete/nolog []temp.*;*"
520 $ if ("''using_vax_c'".eqs."Yes").or.("''using_gnu_c'".eqs."Yes")
522 $ open/write OPTCHAN []temp.opt
523 $ IF ("''using_gnu_c'".eqs."Yes")
525 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
527 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
532 $! Check for __STDC__
536 $ WS "#include <stdlib.h>
538 $ WS "#include <stdio.h>
541 $ WS "#ifdef __STDC__
542 $ WS "printf(""42\n"");
544 $ WS "printf(""1\n"");
549 $ DEFINE SYS$ERROR _NLA0:
550 $ DEFINE SYS$OUTPUT _NLA0:
551 $ ON ERROR THEN CONTINUE
552 $ ON WARNING THEN CONTINUE
554 $ If (Needs_Opt.eqs."Yes")
556 $ link temp.obj,temp.opt/opt
560 $ DEASSIGN SYS$OUTPUT
562 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
563 $ DEFINE SYS$ERROR TEMPOUT
564 $ DEFINE SYS$OUTPUT TEMPOUT
567 $ DEASSIGN SYS$OUTPUT
569 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
572 $ DELETE/NOLOG [-.uu]tempout.lis;
574 $ perl_cpp_stuff=line
575 $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
577 $! Check for double size
581 $ WS "#include <stdlib.h>
583 $ WS "#include <stdio.h>
587 $ WS "foo = sizeof(double);
588 $ WS "printf(""%d\n"", foo);
592 $ DEFINE SYS$ERROR _NLA0:
593 $ DEFINE SYS$OUTPUT _NLA0:
594 $ ON ERROR THEN CONTINUE
595 $ ON WARNING THEN CONTINUE
597 $ If (Needs_Opt.eqs."Yes")
599 $ link temp.obj,temp.opt/opt
603 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
604 $ DEASSIGN SYS$OUTPUT
606 $ DEFINE SYS$ERROR TEMPOUT
607 $ DEFINE SYS$OUTPUT TEMPOUT
610 $ DEASSIGN SYS$OUTPUT
612 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
615 $ DELETE/NOLOG [-.uu]tempout.lis;
617 $ perl_doublesize=line
618 $ WRITE_RESULT "doublesize is ''perl_doublesize'"
620 $! Check for long double size
624 $ WS "#include <stdlib.h>
626 $ WS "#include <stdio.h>
629 $ WS "printf(""%d\n"", sizeof(long double));
633 $ DEFINE SYS$ERROR _NLA0:
634 $ DEFINE SYS$OUTPUT _NLA0:
635 $ ON ERROR THEN CONTINUE
636 $ ON WARNING THEN CONTINUE
638 $ teststatus = f$extract(9,1,$status)
639 $ if (teststatus.nes."1")
641 $ perl_longdblsize="0"
642 $ perl_d_longdbl="undef"
644 $ ON ERROR THEN CONTINUE
645 $ ON WARNING THEN CONTINUE
646 $ If (Needs_Opt.eqs."Yes")
648 $ link temp.obj,temp.opt/opt
652 $ teststatus = f$extract(9,1,$status)
653 $ DEASSIGN SYS$OUTPUT
655 $ if (teststatus.nes."1")
657 $ perl_longdblsize="0"
658 $ perl_d_longdbl="undef"
660 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
661 $ DEFINE SYS$ERROR TEMPOUT
662 $ DEFINE SYS$OUTPUT TEMPOUT
665 $ DEASSIGN SYS$OUTPUT
667 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
670 $ DELETE/NOLOG [-.uu]tempout.lis;
672 $ perl_longdblsize=line
673 $ perl_d_longdbl="define"
676 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
677 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
679 $! Check for long long existance and size
683 $ WS "#include <stdlib.h>
685 $ WS "#include <stdio.h>
688 $ WS "printf(""%d\n"", sizeof(long long));
692 $ DEFINE SYS$ERROR _NLA0:
693 $ DEFINE SYS$OUTPUT _NLA0:
694 $ on error then continue
695 $ on warning then continue
697 $ If (Needs_Opt.eqs."Yes")
699 $ link temp.obj,temp.opt/opt
703 $ teststatus = f$extract(9,1,$status)
704 $ DEASSIGN SYS$OUTPUT
706 $ if (teststatus.nes."1")
708 $ perl_longlongsize="0"
709 $ perl_d_longlong="undef"
711 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
712 $ DEFINE SYS$ERROR TEMPOUT
713 $ DEFINE SYS$OUTPUT TEMPOUT
716 $ DEASSIGN SYS$OUTPUT
718 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
721 $ DELETE/NOLOG [-.uu]tempout.lis;
722 $ perl_longlongsize=line
723 $ perl_d_longlong="define"
725 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
726 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
728 $! Check the prototype for getgid
732 $ WS "#include <stdlib.h>
734 $ WS "#include <stdio.h>
735 $ WS "#include <types.h>
736 $ WS "#include <unistd.h>
743 $ DEFINE SYS$ERROR _NLA0:
744 $ DEFINE SYS$OUTPUT _NLA0:
745 $ on error then continue
746 $ on warning then continue
748 $ teststatus = f$extract(9,1,$status)
749 $ DEASSIGN SYS$OUTPUT
751 $ if (teststatus.nes."1")
753 $! Okay, gid_t failed. Must be unsigned int
754 $ perl_gidtype = "unsigned int"
756 $ perl_gidtype = "gid_t"
758 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
760 $! Check to see if we've got dev_t
764 $ WS "#include <stdlib.h>
766 $ WS "#include <stdio.h>
767 $ WS "#include <types.h>
768 $ WS "#include <unistd.h>
775 $ DEFINE SYS$ERROR _NLA0:
776 $ DEFINE SYS$OUTPUT _NLA0:
777 $ on error then continue
778 $ on warning then continue
780 $ teststatus = f$extract(9,1,$status)
781 $ DEASSIGN SYS$OUTPUT
783 $ if (teststatus.nes."1")
785 $! Okay, dev_t failed. Must be unsigned int
786 $ perl_devtype = "unsigned int"
788 $ perl_devtype = "dev_t"
790 $ WRITE_RESULT "Dev_t is ''perl_devtype'"
792 $! Check to see if we've got unistd.h (which we ought to, but you never know)
796 $ WS "#include <stdlib.h>
798 $ WS "#include <unistd.h>
804 $ DEFINE SYS$ERROR _NLA0:
805 $ DEFINE SYS$OUTPUT _NLA0:
806 $ on error then continue
807 $ on warning then continue
809 $ teststatus = f$extract(9,1,$status)
810 $ DEASSIGN SYS$OUTPUT
812 $ if (teststatus.nes."1")
814 $! Okay, failed. Must not have it
815 $ perl_i_unistd = "undef"
817 $ perl_i_unistd = "define"
820 $ WRITE_RESULT "i_unistd is ''perl_i_unistd'"
822 $! Check to see if we've got shadow.h (probably not, but...)
826 $ WS "#include <stdlib.h>
828 $ WS "#include <shadow.h>
834 $ DEFINE SYS$ERROR _NLA0:
835 $ DEFINE SYS$OUTPUT _NLA0:
836 $ on error then continue
837 $ on warning then continue
839 $ teststatus = f$extract(9,1,$status)
840 $ DEASSIGN SYS$OUTPUT
842 $ if (teststatus.nes."1")
844 $! Okay, failed. Must not have it
845 $ perl_i_shadow = "undef"
847 $ perl_i_shadow = "define"
850 $ WRITE_RESULT "i_shadow is ''perl_i_shadow'"
852 $! Check to see if we've got socks.h (probably not, but...)
856 $ WS "#include <stdlib.h>
858 $ WS "#include <socks.h>
864 $ DEFINE SYS$ERROR _NLA0:
865 $ DEFINE SYS$OUTPUT _NLA0:
866 $ on error then continue
867 $ on warning then continue
869 $ teststatus = f$extract(9,1,$status)
870 $ DEASSIGN SYS$OUTPUT
872 $ if (teststatus.nes."1")
874 $! Okay, failed. Must not have it
875 $ perl_i_socks = "undef"
877 $ perl_i_socks = "define"
880 $ WRITE_RESULT "i_socks is ''perl_i_socks'"
882 $! Check the prototype for select
884 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
888 $ WS "#include <stdlib.h>
890 $ WS "#include <stdio.h>
891 $ WS "#include <types.h>
892 $ WS "#include <unistd.h>
893 $ if ("''Has_Socketshr'".eqs."T")
895 $ WS "#include <socketshr.h>"
897 $ WS "#include <time.h>
898 $ WS "#include <socket.h>
905 $ WS "bar = select(2, foo, foo, foo, NULL);
909 $ DEFINE SYS$ERROR _NLA0:
910 $ DEFINE SYS$OUTPUT _NLA0:
911 $ on error then continue
912 $ on warning then continue
914 $ teststatus = f$extract(9,1,$status)
915 $ DEASSIGN SYS$OUTPUT
917 $ if (teststatus.nes."1")
919 $! Okay, fd_set failed. Must be an int
920 $ perl_selecttype = "int *"
922 $ perl_selecttype="fd_set *"
925 $ ! No sockets, so stick in an int *
926 $ perl_selecttype = "int *"
928 $ WRITE_RESULT "selectype is ''perl_selecttype'"
930 $! Check to see if fd_set exists
934 $ WS "#include <stdlib.h>
936 $ WS "#include <stdio.h>
937 $ WS "#include <types.h>
938 $ WS "#include <unistd.h>
939 $ if ("''Has_Socketshr'".eqs."T")
941 $ WS "#include <socketshr.h>"
943 $ IF ("''Has_Dec_C_Sockets'".eqs."T")
945 $ WS "#include <time.h>
946 $ WS "#include <socket.h>
955 $ DEFINE SYS$ERROR _NLA0:
956 $ DEFINE SYS$OUTPUT _NLA0:
957 $ on error then continue
958 $ on warning then continue
960 $ teststatus = f$extract(9,1,$status)
961 $ DEASSIGN SYS$OUTPUT
963 $ if (teststatus.nes."1")
965 $! Okay, fd_set failed. Must not exist
966 $ perl_d_fd_set = "undef"
968 $ perl_d_fd_set="define"
970 $ WRITE_RESULT "d_fd_set is ''perl_d_fd_set'"
972 $! Check for inttypes.h
976 $ WS "#include <stdlib.h>
978 $ WS "#include <stdio.h>
979 $ WS "#include <unistd.h>
980 $ WS "#include <inttypes.h>
986 $ DEFINE SYS$ERROR _NLA0:
987 $ DEFINE SYS$OUTPUT _NLA0:
988 $ on error then continue
989 $ on warning then continue
991 $ savedstatus = $status
992 $ teststatus = f$extract(9,1,savedstatus)
993 $ if (teststatus.nes."1")
995 $ perl_i_inttypes="undef"
996 $ DEASSIGN SYS$OUTPUT
999 $ If (Needs_Opt.eqs."Yes")
1001 $ link temp.obj,temp.opt/opt
1005 $ savedstatus = $status
1006 $ teststatus = f$extract(9,1,savedstatus)
1007 $ DEASSIGN SYS$OUTPUT
1008 $ DEASSIGN SYS$ERROR
1009 $ if (teststatus.nes."1")
1011 $ perl_i_inttypes="undef"
1013 $ perl_i_inttypes="define"
1016 $ WRITE_RESULT "i_inttypes is ''perl_i_inttypes'"
1018 $! Check to see if int64_t exists
1022 $ WS "#include <stdlib.h>
1024 $ WS "#include <stdio.h>
1025 $ WS "#include <types.h>
1026 $ WS "#''perl_i_inttypes IIH
1028 $ WS "#include <inttypes.h>
1030 $ WS "#include <unistd.h>
1037 $ DEFINE SYS$ERROR _NLA0:
1038 $ DEFINE SYS$OUTPUT _NLA0:
1039 $ on error then continue
1040 $ on warning then continue
1042 $ teststatus = f$extract(9,1,$status)
1043 $ DEASSIGN SYS$OUTPUT
1044 $ DEASSIGN SYS$ERROR
1045 $ if (teststatus.nes."1")
1047 $! Okay, int64_t failed. Must not exist
1048 $ perl_d_int64_t = "undef"
1050 $ perl_d_int64_t="define"
1052 $ WRITE_RESULT "d_int64_t is ''perl_d_int64_t'"
1054 $! Check to see if off64_t exists
1058 $ WS "#include <stdlib.h>
1060 $ WS "#include <stdio.h>
1061 $ WS "#include <types.h>
1062 $ WS "#''perl_i_inttypes IIH
1064 $ WS "#include <inttypes.h>
1066 $ WS "#include <unistd.h>
1073 $ DEFINE SYS$ERROR _NLA0:
1074 $ DEFINE SYS$OUTPUT _NLA0:
1075 $ on error then continue
1076 $ on warning then continue
1078 $ teststatus = f$extract(9,1,$status)
1079 $ DEASSIGN SYS$OUTPUT
1080 $ DEASSIGN SYS$ERROR
1081 $ if (teststatus.nes."1")
1083 $! Okay, off64_t failed. Must not exist
1084 $ perl_d_off64_t = "undef"
1086 $ perl_d_off64_t="define"
1088 $ WRITE_RESULT "d_off64_t is ''perl_d_off64_t'"
1090 $! Check to see if fpos64_t exists
1094 $ WS "#include <stdlib.h>
1096 $ WS "#include <stdio.h>
1097 $ WS "#include <types.h>
1098 $ WS "#''perl_i_inttypes IIH
1100 $ WS "#include <inttypes.h>
1102 $ WS "#include <unistd.h>
1109 $ DEFINE SYS$ERROR _NLA0:
1110 $ DEFINE SYS$OUTPUT _NLA0:
1111 $ on error then continue
1112 $ on warning then continue
1114 $ teststatus = f$extract(9,1,$status)
1115 $ DEASSIGN SYS$OUTPUT
1116 $ DEASSIGN SYS$ERROR
1117 $ if (teststatus.nes."1")
1119 $! Okay, fpos64_t failed. Must not exist
1120 $ perl_d_fpos64_t = "undef"
1122 $ perl_d_fpos64_t="define"
1124 $ WRITE_RESULT "d_fpos64_t is ''perl_d_fpos64_t'"
1126 $! Check to see if gethostname exists
1128 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1132 $ WS "#include <stdlib.h>
1134 $ WS "#include <stdio.h>
1135 $ WS "#include <types.h>
1136 $ WS "#include <unistd.h>
1137 $ if ("''Has_Socketshr'".eqs."T")
1139 $ WS "#include <socketshr.h>"
1141 $ WS "#include <time.h>
1142 $ WS "#include <socket.h>
1146 $ WS "char name[100];
1149 $ WS "baz = gethostname(name, bar);
1153 $ DEFINE SYS$ERROR _NLA0:
1154 $ DEFINE SYS$OUTPUT _NLA0:
1155 $ on error then continue
1156 $ on warning then continue
1158 $ teststatus = f$extract(9,1,$status)
1159 $ DEASSIGN SYS$OUTPUT
1160 $ DEASSIGN SYS$ERROR
1161 $ if (teststatus.nes."1")
1163 $! Okay, compile failed. Must not have it
1164 $ perl_dgethname = "undef"
1166 $ If (Needs_Opt.eqs."Yes")
1168 $ link temp.obj,temp.opt/opt
1172 $ savedstatus = $status
1173 $ teststatus = f$extract(9,1,savedstatus)
1174 $ if (teststatus.nes."1")
1176 $ perl_d_gethname="undef"
1178 $ perl_d_gethname="define"
1182 $ ! No sockets, so no gethname
1183 $ perl_d_gethname = "undef"
1185 $ WRITE_RESULT "d_gethname is ''perl_d_gethname'"
1187 $! Check for sys/file.h
1191 $ WS "#include <stdlib.h>
1193 $ WS "#include <stdio.h>
1194 $ WS "#include <unistd.h>
1195 $ WS "#include <sys/file.h>
1201 $ DEFINE SYS$ERROR _NLA0:
1202 $ DEFINE SYS$OUTPUT _NLA0:
1203 $ on error then continue
1204 $ on warning then continue
1206 $ savedstatus = $status
1207 $ teststatus = f$extract(9,1,savedstatus)
1208 $ if (teststatus.nes."1")
1210 $ perl_i_sysfile="undef"
1211 $ DEASSIGN SYS$OUTPUT
1212 $ DEASSIGN SYS$ERROR
1214 $ If (Needs_Opt.eqs."Yes")
1216 $ link temp.obj,temp.opt/opt
1220 $ savedstatus = $status
1221 $ teststatus = f$extract(9,1,savedstatus)
1222 $ DEASSIGN SYS$OUTPUT
1223 $ DEASSIGN SYS$ERROR
1224 $ if (teststatus.nes."1")
1226 $ perl_i_sysfile="undef"
1228 $ perl_i_sysfile="define"
1231 $ WRITE_RESULT "i_sysfile is ''perl_i_sysfile'"
1233 $! Check for sys/utsname.h
1237 $ WS "#include <stdlib.h>
1239 $ WS "#include <stdio.h>
1240 $ WS "#include <unistd.h>
1241 $ WS "#include <sys/utsname.h>
1247 $ DEFINE SYS$ERROR _NLA0:
1248 $ DEFINE SYS$OUTPUT _NLA0:
1249 $ on error then continue
1250 $ on warning then continue
1252 $ savedstatus = $status
1253 $ teststatus = f$extract(9,1,savedstatus)
1254 $ if (teststatus.nes."1")
1256 $ perl_i_sysutsname="undef"
1257 $ DEASSIGN SYS$OUTPUT
1258 $ DEASSIGN SYS$ERROR
1260 $ If (Needs_Opt.eqs."Yes")
1262 $ link temp.obj,temp.opt/opt
1266 $ savedstatus = $status
1267 $ teststatus = f$extract(9,1,savedstatus)
1268 $ DEASSIGN SYS$OUTPUT
1269 $ DEASSIGN SYS$ERROR
1270 $ if (teststatus.nes."1")
1272 $ perl_i_sysutsname="undef"
1274 $ perl_i_sysutsname="define"
1277 $ WRITE_RESULT "i_sysutsname is ''perl_i_sysutsname'"
1279 $! Check for syslog.h
1283 $ WS "#include <stdlib.h>
1285 $ WS "#include <stdio.h>
1286 $ WS "#include <unistd.h>
1287 $ WS "#include <syslog.h>
1293 $ DEFINE SYS$ERROR _NLA0:
1294 $ DEFINE SYS$OUTPUT _NLA0:
1295 $ on error then continue
1296 $ on warning then continue
1298 $ savedstatus = $status
1299 $ teststatus = f$extract(9,1,savedstatus)
1300 $ if (teststatus.nes."1")
1302 $ perl_i_syslog="undef"
1303 $ DEASSIGN SYS$OUTPUT
1304 $ DEASSIGN SYS$ERROR
1306 $ If (Needs_Opt.eqs."Yes")
1308 $ link temp.obj,temp.opt/opt
1312 $ savedstatus = $status
1313 $ teststatus = f$extract(9,1,savedstatus)
1314 $ DEASSIGN SYS$OUTPUT
1315 $ DEASSIGN SYS$ERROR
1316 $ if (teststatus.nes."1")
1318 $ perl_i_syslog="undef"
1320 $ perl_i_syslog="define"
1323 $ WRITE_RESULT "i_syslog is ''perl_i_syslog'"
1329 $ WS "#include <stdlib.h>
1331 $ WS "#include <stdio.h>
1332 $ WS "#include <unistd.h>
1333 $ WS "#include <poll.h>
1339 $ DEFINE SYS$ERROR _NLA0:
1340 $ DEFINE SYS$OUTPUT _NLA0:
1341 $ on error then continue
1342 $ on warning then continue
1344 $ savedstatus = $status
1345 $ teststatus = f$extract(9,1,savedstatus)
1346 $ if (teststatus.nes."1")
1348 $ perl_i_poll="undef"
1349 $ DEASSIGN SYS$OUTPUT
1350 $ DEASSIGN SYS$ERROR
1352 $ If (Needs_Opt.eqs."Yes")
1354 $ link temp.obj,temp.opt/opt
1358 $ savedstatus = $status
1359 $ teststatus = f$extract(9,1,savedstatus)
1360 $ DEASSIGN SYS$OUTPUT
1361 $ DEASSIGN SYS$ERROR
1362 $ if (teststatus.nes."1")
1364 $ perl_i_poll="undef"
1366 $ perl_i_poll="define"
1369 $ WRITE_RESULT "i_poll is ''perl_i_poll'"
1371 $! Check for sys/uio.h
1375 $ WS "#include <stdlib.h>
1377 $ WS "#include <stdio.h>
1378 $ WS "#include <unistd.h>
1379 $ WS "#include <sys/uio.h>
1385 $ DEFINE SYS$ERROR _NLA0:
1386 $ DEFINE SYS$OUTPUT _NLA0:
1387 $ on error then continue
1388 $ on warning then continue
1390 $ savedstatus = $status
1391 $ teststatus = f$extract(9,1,savedstatus)
1392 $ if (teststatus.nes."1")
1394 $ perl_i_sysuio="undef"
1395 $ DEASSIGN SYS$OUTPUT
1396 $ DEASSIGN SYS$ERROR
1398 $ If (Needs_Opt.eqs."Yes")
1400 $ link temp.obj,temp.opt/opt
1404 $ savedstatus = $status
1405 $ teststatus = f$extract(9,1,savedstatus)
1406 $ DEASSIGN SYS$OUTPUT
1407 $ DEASSIGN SYS$ERROR
1408 $ if (teststatus.nes."1")
1410 $ perl_i_sysuio="undef"
1412 $ perl_i_sysuio="define"
1415 $ WRITE_RESULT "i_sysuio is ''perl_i_sysuio'"
1417 $! Check for sys/mode.h
1421 $ WS "#include <stdlib.h>
1423 $ WS "#include <stdio.h>
1424 $ WS "#include <unistd.h>
1425 $ WS "#include <sys/mode.h>
1431 $ DEFINE SYS$ERROR _NLA0:
1432 $ DEFINE SYS$OUTPUT _NLA0:
1433 $ on error then continue
1434 $ on warning then continue
1436 $ savedstatus = $status
1437 $ teststatus = f$extract(9,1,savedstatus)
1438 $ if (teststatus.nes."1")
1440 $ perl_i_sysmode="undef"
1441 $ DEASSIGN SYS$OUTPUT
1442 $ DEASSIGN SYS$ERROR
1444 $ If (Needs_Opt.eqs."Yes")
1446 $ link temp.obj,temp.opt/opt
1450 $ savedstatus = $status
1451 $ teststatus = f$extract(9,1,savedstatus)
1452 $ DEASSIGN SYS$OUTPUT
1453 $ DEASSIGN SYS$ERROR
1454 $ if (teststatus.nes."1")
1456 $ perl_i_sysmode="undef"
1458 $ perl_i_sysmode="define"
1461 $ WRITE_RESULT "i_sysmode is ''perl_i_sysmode'"
1463 $! Check for sys/access.h
1467 $ WS "#include <stdlib.h>
1469 $ WS "#include <stdio.h>
1470 $ WS "#include <unistd.h>
1471 $ WS "#include <sys/access.h>
1477 $ DEFINE SYS$ERROR _NLA0:
1478 $ DEFINE SYS$OUTPUT _NLA0:
1479 $ on error then continue
1480 $ on warning then continue
1482 $ savedstatus = $status
1483 $ teststatus = f$extract(9,1,savedstatus)
1484 $ if (teststatus.nes."1")
1486 $ perl_i_sysaccess="undef"
1487 $ DEASSIGN SYS$OUTPUT
1488 $ DEASSIGN SYS$ERROR
1490 $ If (Needs_Opt.eqs."Yes")
1492 $ link temp.obj,temp.opt/opt
1496 $ savedstatus = $status
1497 $ teststatus = f$extract(9,1,savedstatus)
1498 $ DEASSIGN SYS$OUTPUT
1499 $ DEASSIGN SYS$ERROR
1500 $ if (teststatus.nes."1")
1502 $ perl_i_sysaccess="undef"
1504 $ perl_i_sysaccess="define"
1507 $ WRITE_RESULT "i_sysaccess is ''perl_i_sysaccess'"
1509 $! Check for sys/security.h
1513 $ WS "#include <stdlib.h>
1515 $ WS "#include <stdio.h>
1516 $ WS "#include <unistd.h>
1517 $ WS "#include <sys/security.h>
1523 $ DEFINE SYS$ERROR _NLA0:
1524 $ DEFINE SYS$OUTPUT _NLA0:
1525 $ on error then continue
1526 $ on warning then continue
1528 $ savedstatus = $status
1529 $ teststatus = f$extract(9,1,savedstatus)
1530 $ if (teststatus.nes."1")
1532 $ perl_i_syssecrt="undef"
1533 $ DEASSIGN SYS$OUTPUT
1534 $ DEASSIGN SYS$ERROR
1536 $ If (Needs_Opt.eqs."Yes")
1538 $ link temp.obj,temp.opt/opt
1542 $ savedstatus = $status
1543 $ teststatus = f$extract(9,1,savedstatus)
1544 $ DEASSIGN SYS$OUTPUT
1545 $ DEASSIGN SYS$ERROR
1546 $ if (teststatus.nes."1")
1548 $ perl_i_syssecrt="undef"
1550 $ perl_i_syssecrt="define"
1553 $ WRITE_RESULT "i_syssecrt is ''perl_i_syssecrt'"
1555 $! Check for fcntl.h
1559 $ WS "#include <stdlib.h>
1561 $ WS "#include <stdio.h>
1562 $ WS "#include <unistd.h>
1563 $ WS "#include <fcntl.h>
1569 $ DEFINE SYS$ERROR _NLA0:
1570 $ DEFINE SYS$OUTPUT _NLA0:
1571 $ on error then continue
1572 $ on warning then continue
1574 $ savedstatus = $status
1575 $ teststatus = f$extract(9,1,savedstatus)
1576 $ if (teststatus.nes."1")
1578 $ perl_i_fcntl="undef"
1579 $ DEASSIGN SYS$OUTPUT
1580 $ DEASSIGN SYS$ERROR
1582 $ If (Needs_Opt.eqs."Yes")
1584 $ link temp.obj,temp.opt/opt
1588 $ savedstatus = $status
1589 $ teststatus = f$extract(9,1,savedstatus)
1590 $ DEASSIGN SYS$OUTPUT
1591 $ DEASSIGN SYS$ERROR
1592 $ if (teststatus.nes."1")
1594 $ perl_i_fcntl="undef"
1596 $ perl_i_fcntl="define"
1599 $ WRITE_RESULT "i_fcntl is ''perl_i_fcntl'"
1605 $ WS "#include <stdlib.h>
1607 $ WS "#include <stdio.h>
1608 $ WS "#include <unistd.h>
1609 $ WS "#include <fcntl.h>
1616 $ DEFINE SYS$ERROR _NLA0:
1617 $ DEFINE SYS$OUTPUT _NLA0:
1618 $ on error then continue
1619 $ on warning then continue
1621 $ savedstatus = $status
1622 $ teststatus = f$extract(9,1,savedstatus)
1623 $ if (teststatus.nes."1")
1625 $ perl_d_fcntl="undef"
1626 $ DEASSIGN SYS$OUTPUT
1627 $ DEASSIGN SYS$ERROR
1629 $ If (Needs_Opt.eqs."Yes")
1631 $ link temp.obj,temp.opt/opt
1635 $ savedstatus = $status
1636 $ teststatus = f$extract(9,1,savedstatus)
1637 $ DEASSIGN SYS$OUTPUT
1638 $ DEASSIGN SYS$ERROR
1639 $ if (teststatus.nes."1")
1641 $ perl_d_fcntl="undef"
1643 $ perl_d_fcntl="define"
1646 $ WRITE_RESULT "d_fcntl is ''perl_d_fcntl'"
1652 $ WS "#include <stdlib.h>
1654 $ WS "#include <string.h>
1658 $ WS "place = memchr(""foo"", 47, 3)
1662 $ DEFINE SYS$ERROR _NLA0:
1663 $ DEFINE SYS$OUTPUT _NLA0:
1664 $ on error then continue
1665 $ on warning then continue
1667 $ savedstatus = $status
1668 $ teststatus = f$extract(9,1,savedstatus)
1669 $ if (teststatus.nes."1")
1671 $ perl_d_memchr="undef"
1672 $ DEASSIGN SYS$OUTPUT
1673 $ DEASSIGN SYS$ERROR
1675 $ If (Needs_Opt.eqs."Yes")
1677 $ link temp.obj,temp.opt/opt
1681 $ savedstatus = $status
1682 $ teststatus = f$extract(9,1,savedstatus)
1683 $ DEASSIGN SYS$OUTPUT
1684 $ DEASSIGN SYS$ERROR
1685 $ if (teststatus.nes."1")
1687 $ perl_d_memchr="undef"
1689 $ perl_d_memchr="define"
1692 $ WRITE_RESULT "d_memchr is ''perl_d_memchr'"
1694 $! Check for strtoull
1698 $ WS "#include <stdlib.h>
1700 $ WS "#include <string.h>
1703 $ WS "unsigned __int64 result;
1704 $ WS "result = strtoull(""123123"", NULL, 10);
1708 $ DEFINE SYS$ERROR _NLA0:
1709 $ DEFINE SYS$OUTPUT _NLA0:
1710 $ on error then continue
1711 $ on warning then continue
1713 $ savedstatus = $status
1714 $ teststatus = f$extract(9,1,savedstatus)
1715 $ if (teststatus.nes."1")
1717 $ perl_d_strtoull="undef"
1718 $ DEASSIGN SYS$OUTPUT
1719 $ DEASSIGN SYS$ERROR
1721 $ If (Needs_Opt.eqs."Yes")
1723 $ link temp.obj,temp.opt/opt
1727 $ savedstatus = $status
1728 $ teststatus = f$extract(9,1,savedstatus)
1729 $ DEASSIGN SYS$OUTPUT
1730 $ DEASSIGN SYS$ERROR
1731 $ if (teststatus.nes."1")
1733 $ perl_d_strtoull="undef"
1735 $ perl_d_strtoull="define"
1738 $ WRITE_RESULT "d_strtoull is ''perl_d_strtoull'"
1740 $! Check for strtouq
1744 $ WS "#include <stdlib.h>
1746 $ WS "#include <string.h>
1749 $ WS "unsigned __int64 result;
1750 $ WS "result = strtouq(""123123"", NULL, 10);
1754 $ DEFINE SYS$ERROR _NLA0:
1755 $ DEFINE SYS$OUTPUT _NLA0:
1756 $ on error then continue
1757 $ on warning then continue
1759 $ savedstatus = $status
1760 $ teststatus = f$extract(9,1,savedstatus)
1761 $ if (teststatus.nes."1")
1763 $ perl_d_strtouq="undef"
1764 $ DEASSIGN SYS$OUTPUT
1765 $ DEASSIGN SYS$ERROR
1767 $ If (Needs_Opt.eqs."Yes")
1769 $ link temp.obj,temp.opt/opt
1773 $ savedstatus = $status
1774 $ teststatus = f$extract(9,1,savedstatus)
1775 $ DEASSIGN SYS$OUTPUT
1776 $ DEASSIGN SYS$ERROR
1777 $ if (teststatus.nes."1")
1779 $ perl_d_strtouq="undef"
1781 $ perl_d_strtouq="define"
1784 $ WRITE_RESULT "d_strtouq is ''perl_d_strtouq'"
1786 $! Check for strtoll
1790 $ WS "#include <stdlib.h>
1792 $ WS "#include <string.h>
1795 $ WS "__int64 result;
1796 $ WS "result = strtoll(""123123"", NULL, 10);
1800 $ DEFINE SYS$ERROR _NLA0:
1801 $ DEFINE SYS$OUTPUT _NLA0:
1802 $ on error then continue
1803 $ on warning then continue
1805 $ savedstatus = $status
1806 $ teststatus = f$extract(9,1,savedstatus)
1807 $ if (teststatus.nes."1")
1809 $ perl_d_strtoll="undef"
1810 $ DEASSIGN SYS$OUTPUT
1811 $ DEASSIGN SYS$ERROR
1813 $ If (Needs_Opt.eqs."Yes")
1815 $ link temp.obj,temp.opt/opt
1819 $ savedstatus = $status
1820 $ teststatus = f$extract(9,1,savedstatus)
1821 $ DEASSIGN SYS$OUTPUT
1822 $ DEASSIGN SYS$ERROR
1823 $ if (teststatus.nes."1")
1825 $ perl_d_strtoll="undef"
1827 $ perl_d_strtoll="define"
1830 $ WRITE_RESULT "d_strtoll is ''perl_d_strtoll'"
1832 $! Check for strtold
1836 $ WS "#include <stdlib.h>
1838 $ WS "#include <string.h>
1841 $ WS "long double result;
1842 $ WS "result = strtold(""123123"", NULL, 10);
1846 $ DEFINE SYS$ERROR _NLA0:
1847 $ DEFINE SYS$OUTPUT _NLA0:
1848 $ on error then continue
1849 $ on warning then continue
1851 $ savedstatus = $status
1852 $ teststatus = f$extract(9,1,savedstatus)
1853 $ if (teststatus.nes."1")
1855 $ perl_d_strtold="undef"
1856 $ DEASSIGN SYS$OUTPUT
1857 $ DEASSIGN SYS$ERROR
1859 $ If (Needs_Opt.eqs."Yes")
1861 $ link temp.obj,temp.opt/opt
1865 $ savedstatus = $status
1866 $ teststatus = f$extract(9,1,savedstatus)
1867 $ DEASSIGN SYS$OUTPUT
1868 $ DEASSIGN SYS$ERROR
1869 $ if (teststatus.nes."1")
1871 $ perl_d_strtold="undef"
1873 $ perl_d_strtold="define"
1876 $ WRITE_RESULT "d_strtold is ''perl_d_strtold'"
1882 $ WS "#include <stdlib.h>
1884 $ WS "#include <string.h>
1887 $ WS " __int64 result;
1888 $ WS "result = atoll(""123123"");
1892 $ DEFINE SYS$ERROR _NLA0:
1893 $ DEFINE SYS$OUTPUT _NLA0:
1894 $ on error then continue
1895 $ on warning then continue
1897 $ savedstatus = $status
1898 $ teststatus = f$extract(9,1,savedstatus)
1899 $ if (teststatus.nes."1")
1901 $ perl_d_atoll="undef"
1902 $ DEASSIGN SYS$OUTPUT
1903 $ DEASSIGN SYS$ERROR
1905 $ If (Needs_Opt.eqs."Yes")
1907 $ link temp.obj,temp.opt/opt
1911 $ savedstatus = $status
1912 $ teststatus = f$extract(9,1,savedstatus)
1913 $ DEASSIGN SYS$OUTPUT
1914 $ DEASSIGN SYS$ERROR
1915 $ if (teststatus.nes."1")
1917 $ perl_d_atoll="undef"
1919 $ perl_d_atoll="define"
1922 $ WRITE_RESULT "d_atoll is ''perl_d_atoll'"
1928 $ WS "#include <stdlib.h>
1930 $ WS "#include <string.h>
1934 $ WS "result = atolf(""123123"");
1938 $ DEFINE SYS$ERROR _NLA0:
1939 $ DEFINE SYS$OUTPUT _NLA0:
1940 $ on error then continue
1941 $ on warning then continue
1943 $ savedstatus = $status
1944 $ teststatus = f$extract(9,1,savedstatus)
1945 $ if (teststatus.nes."1")
1947 $ perl_d_atolf="undef"
1948 $ DEASSIGN SYS$OUTPUT
1949 $ DEASSIGN SYS$ERROR
1951 $ If (Needs_Opt.eqs."Yes")
1953 $ link temp.obj,temp.opt/opt
1957 $ savedstatus = $status
1958 $ teststatus = f$extract(9,1,savedstatus)
1959 $ DEASSIGN SYS$OUTPUT
1960 $ DEASSIGN SYS$ERROR
1961 $ if (teststatus.nes."1")
1963 $ perl_d_atolf="undef"
1965 $ perl_d_atolf="define"
1968 $ WRITE_RESULT "d_atolf is ''perl_d_atolf'"
1974 $ WS "#include <stdlib.h>
1976 $ WS "#include <stdio.h>
1977 $ WS "#include <unistd.h>
1980 $ WS "access("foo", F_OK);
1984 $ DEFINE SYS$ERROR _NLA0:
1985 $ DEFINE SYS$OUTPUT _NLA0:
1986 $ on error then continue
1987 $ on warning then continue
1989 $ savedstatus = $status
1990 $ teststatus = f$extract(9,1,savedstatus)
1991 $ if (teststatus.nes."1")
1993 $ perl_d_access="undef"
1994 $ DEASSIGN SYS$OUTPUT
1995 $ DEASSIGN SYS$ERROR
1997 $ If (Needs_Opt.eqs."Yes")
1999 $ link temp.obj,temp.opt/opt
2003 $ savedstatus = $status
2004 $ teststatus = f$extract(9,1,savedstatus)
2005 $ DEASSIGN SYS$OUTPUT
2006 $ DEASSIGN SYS$ERROR
2007 $ if (teststatus.nes."1")
2009 $ perl_d_access="undef"
2011 $ perl_d_access="define"
2014 $ WRITE_RESULT "d_access is ''perl_d_access'"
2020 $ WS "#include <stdlib.h>
2022 $ WS "#include <stdio.h>
2023 $ WS "#include <strings.h>
2027 $ WS "bzero(foo, 10);
2031 $ DEFINE SYS$ERROR _NLA0:
2032 $ DEFINE SYS$OUTPUT _NLA0:
2033 $ on error then continue
2034 $ on warning then continue
2036 $ savedstatus = $status
2037 $ teststatus = f$extract(9,1,savedstatus)
2038 $ if (teststatus.nes."1")
2040 $ perl_d_bzero="undef"
2041 $ DEASSIGN SYS$OUTPUT
2042 $ DEASSIGN SYS$ERROR
2044 $ If (Needs_Opt.eqs."Yes")
2046 $ link temp.obj,temp.opt/opt
2050 $ savedstatus = $status
2051 $ teststatus = f$extract(9,1,savedstatus)
2052 $ DEASSIGN SYS$OUTPUT
2053 $ DEASSIGN SYS$ERROR
2054 $ if (teststatus.nes."1")
2056 $ perl_d_bzero="undef"
2058 $ perl_d_bzero="define"
2061 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
2067 $ WS "#include <stdlib.h>
2069 $ WS "#include <stdio.h>
2070 $ WS "#include <strings.h>
2073 $ WS "char foo[10], bar[10];
2074 $ WS "bcopy(""foo"", bar, 3);
2078 $ DEFINE SYS$ERROR _NLA0:
2079 $ DEFINE SYS$OUTPUT _NLA0:
2080 $ on error then continue
2081 $ on warning then continue
2083 $ savedstatus = $status
2084 $ teststatus = f$extract(9,1,savedstatus)
2085 $ if (teststatus.nes."1")
2087 $ perl_d_bcopy="undef"
2088 $ DEASSIGN SYS$OUTPUT
2089 $ DEASSIGN SYS$ERROR
2091 $ If (Needs_Opt.eqs."Yes")
2093 $ link temp.obj,temp.opt/opt
2097 $ savedstatus = $status
2098 $ teststatus = f$extract(9,1,savedstatus)
2099 $ DEASSIGN SYS$OUTPUT
2100 $ DEASSIGN SYS$ERROR
2101 $ if (teststatus.nes."1")
2103 $ perl_d_bcopy="undef"
2105 $ perl_d_bcopy="define"
2108 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
2110 $! Check for mkstemp
2114 $ WS "#include <stdlib.h>
2116 $ WS "#include <stdio.h>
2119 $ WS "mkstemp(""foo"");
2123 $ DEFINE SYS$ERROR _NLA0:
2124 $ DEFINE SYS$OUTPUT _NLA0:
2125 $ on error then continue
2126 $ on warning then continue
2128 $ If (Needs_Opt.eqs."Yes")
2130 $ link temp.obj,temp.opt/opt
2134 $ savedstatus = $status
2135 $ teststatus = f$extract(9,1,savedstatus)
2136 $ DEASSIGN SYS$OUTPUT
2137 $ DEASSIGN SYS$ERROR
2138 $ if (teststatus.nes."1")
2140 $ perl_d_mkstemp="undef"
2142 $ perl_d_mkstemp="define"
2144 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
2146 $! Check for mkstemps
2150 $ WS "#include <stdlib.h>
2152 $ WS "#include <stdio.h>
2155 $ WS "mkstemps(""foo"", 1);
2159 $ DEFINE SYS$ERROR _NLA0:
2160 $ DEFINE SYS$OUTPUT _NLA0:
2161 $ on error then continue
2162 $ on warning then continue
2164 $ If (Needs_Opt.eqs."Yes")
2166 $ link temp.obj,temp.opt/opt
2170 $ savedstatus = $status
2171 $ teststatus = f$extract(9,1,savedstatus)
2172 $ DEASSIGN SYS$OUTPUT
2173 $ DEASSIGN SYS$ERROR
2174 $ if (teststatus.nes."1")
2176 $ perl_d_mkstemps="undef"
2178 $ perl_d_mkstemps="define"
2180 $ WRITE_RESULT "d_mkstemps is ''perl_d_mkstemps'"
2186 $ WS "#include <stdlib.h>
2188 $ WS "#include <stdio.h>
2189 $ WS "#include <iconv.h>
2193 $ WS " char *inbuf, *outbuf;"
2194 $ WS " size_t inleft, outleft;"
2195 $ WS " iconv(cd, &inbuf, &inleft, &outbuf, &outleft);"
2199 $ DEFINE SYS$ERROR _NLA0:
2200 $ DEFINE SYS$OUTPUT _NLA0:
2201 $ on error then continue
2202 $ on warning then continue
2204 $ savedstatus = $status
2205 $ teststatus = f$extract(9,1,savedstatus)
2206 $ if (teststatus.nes."1")
2208 $ perl_d_iconv="undef"
2209 $ perl_i_iconv="undef"
2210 $ DEASSIGN SYS$OUTPUT
2211 $ DEASSIGN SYS$ERROR
2213 $ If (Needs_Opt.eqs."Yes")
2215 $ link temp.obj,temp.opt/opt
2219 $ savedstatus = $status
2220 $ teststatus = f$extract(9,1,savedstatus)
2221 $ DEASSIGN SYS$OUTPUT
2222 $ DEASSIGN SYS$ERROR
2223 $ if (teststatus.nes."1")
2225 $ perl_d_iconv="undef"
2226 $ perl_i_iconv="undef"
2228 $ perl_d_iconv="define"
2229 $ perl_i_iconv="define"
2232 $ WRITE_RESULT "d_iconv is ''perl_d_iconv'"
2233 $ WRITE_RESULT "i_iconv is ''perl_i_iconv'"
2235 $! Check for mkdtemp
2239 $ WS "#include <stdlib.h>
2241 $ WS "#include <stdio.h>
2244 $ WS "mkdtemp(""foo"");
2248 $ DEFINE SYS$ERROR _NLA0:
2249 $ DEFINE SYS$OUTPUT _NLA0:
2250 $ on error then continue
2251 $ on warning then continue
2253 $ If (Needs_Opt.eqs."Yes")
2255 $ link temp.obj,temp.opt/opt
2259 $ savedstatus = $status
2260 $ teststatus = f$extract(9,1,savedstatus)
2261 $ DEASSIGN SYS$OUTPUT
2262 $ DEASSIGN SYS$ERROR
2263 $ if (teststatus.nes."1")
2265 $ perl_d_mkdtemp="undef"
2267 $ perl_d_mkdtemp="define"
2269 $ WRITE_RESULT "d_mkdtemp is ''perl_d_mkdtemp'"
2271 $! Check for setvbuf
2275 $ WS "#include <stdlib.h>
2277 $ WS "#include <stdio.h>
2281 $ WS "char Buffer[99];
2282 $ WS "foo = fopen(""foo"", ""r"");
2283 $ WS "setvbuf(foo, Buffer, 0, 0);
2287 $ DEFINE SYS$ERROR _NLA0:
2288 $ DEFINE SYS$OUTPUT _NLA0:
2289 $ on error then continue
2290 $ on warning then continue
2292 $ If (Needs_Opt.eqs."Yes")
2294 $ link temp.obj,temp.opt/opt
2298 $ teststatus = f$extract(9,1,$status)
2299 $ DEASSIGN SYS$OUTPUT
2300 $ DEASSIGN SYS$ERROR
2301 $ if (teststatus.nes."1")
2303 $ perl_d_setvbuf="undef"
2305 $ perl_d_setvbuf="define"
2307 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
2313 $ WS "#include <stdlib.h>
2315 $ WS "#include <stdio.h>
2318 $ WS "setenv(""FOO"", ""BAR"", 0);
2322 $ DEFINE SYS$ERROR _NLA0:
2323 $ DEFINE SYS$OUTPUT _NLA0:
2324 $ on error then continue
2325 $ on warning then continue
2327 $ If (Needs_Opt.eqs."Yes")
2329 $ link temp,temp/opt
2333 $ teststatus = f$extract(9,1,$status)
2334 $ DEASSIGN SYS$OUTPUT
2335 $ DEASSIGN SYS$ERROR
2336 $ if (teststatus.nes."1")
2338 $ perl_d_setenv="undef"
2340 $ perl_d_setenv="define"
2342 $ WRITE_RESULT "d_setenv is ''perl_d_setenv'"
2344 $! Check for <netinet/in.h>
2346 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2350 $ WS "#include <stdlib.h>
2352 $ WS "#include <stdio.h>
2353 $ if ("''Has_Socketshr'".eqs."T")
2355 $ WS "#include <socketshr.h>"
2357 $ WS "#include <netdb.h>
2359 $ WS "#include <netinet/in.h>"
2365 $ DEFINE SYS$ERROR _NLA0:
2366 $ DEFINE SYS$OUTPUT _NLA0:
2367 $ on error then continue
2368 $ on warning then continue
2370 $ If (Needs_Opt.eqs."Yes")
2372 $ link temp.obj,temp.opt/opt
2376 $ teststatus = f$extract(9,1,$status)
2377 $ DEASSIGN SYS$OUTPUT
2378 $ DEASSIGN SYS$ERROR
2379 $ if (teststatus.nes."1")
2381 $ perl_i_niin="undef"
2383 $ perl_i_niin="define"
2386 $ perl_i_niin="undef"
2388 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
2390 $! Check for <netinet/tcp.h>
2392 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2396 $ WS "#include <stdlib.h>
2398 $ WS "#include <stdio.h>
2399 $ if ("''Has_Socketshr'".eqs."T")
2401 $ WS "#include <socketshr.h>"
2403 $ WS "#include <netdb.h>
2405 $ WS "#include <netinet/tcp.h>"
2411 $ DEFINE SYS$ERROR _NLA0:
2412 $ DEFINE SYS$OUTPUT _NLA0:
2413 $ on error then continue
2414 $ on warning then continue
2416 $ If (Needs_Opt.eqs."Yes")
2418 $ link temp.obj,temp.opt/opt
2422 $ teststatus = f$extract(9,1,$status)
2423 $ DEASSIGN SYS$OUTPUT
2424 $ DEASSIGN SYS$ERROR
2425 $ if (teststatus.nes."1")
2427 $ perl_i_netinettcp="undef"
2429 $ perl_i_netinettcp="define"
2432 $ perl_i_netinettcp="undef"
2434 $ WRITE_RESULT "i_netinettcp is ''perl_i_netinettcp'"
2436 $! Check for endhostent
2438 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2442 $ WS "#include <stdlib.h>
2444 $ WS "#include <stdio.h>
2445 $ if ("''Has_Socketshr'".eqs."T")
2447 $ WS "#include <socketshr.h>"
2449 $ WS "#include <netdb.h>
2457 $ DEFINE SYS$ERROR _NLA0:
2458 $ DEFINE SYS$OUTPUT _NLA0:
2459 $ on error then continue
2460 $ on warning then continue
2462 $ If (Needs_Opt.eqs."Yes")
2464 $ link temp.obj,temp.opt/opt
2468 $ teststatus = f$extract(9,1,$status)
2469 $ DEASSIGN SYS$OUTPUT
2470 $ DEASSIGN SYS$ERROR
2471 $ if (teststatus.nes."1")
2473 $ perl_d_endhent="undef"
2475 $ perl_d_endhent="define"
2478 $ perl_d_endhent="undef"
2480 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
2482 $! Check for endnetent
2484 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2488 $ WS "#include <stdlib.h>
2490 $ WS "#include <stdio.h>
2491 $ if ("''Has_Socketshr'".eqs."T")
2493 $ WS "#include <socketshr.h>"
2495 $ WS "#include <netdb.h>
2503 $ DEFINE SYS$ERROR _NLA0:
2504 $ DEFINE SYS$OUTPUT _NLA0:
2505 $ on error then continue
2506 $ on warning then continue
2508 $ If (Needs_Opt.eqs."Yes")
2510 $ link temp.obj,temp.opt/opt
2514 $ teststatus = f$extract(9,1,$status)
2515 $ DEASSIGN SYS$OUTPUT
2516 $ DEASSIGN SYS$ERROR
2517 $ if (teststatus.nes."1")
2519 $ perl_d_endnent="undef"
2521 $ perl_d_endnent="define"
2524 $ perl_d_endnent="undef"
2526 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
2528 $! Check for endprotoent
2530 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2534 $ WS "#include <stdlib.h>
2536 $ WS "#include <stdio.h>
2537 $ if ("''Has_Socketshr'".eqs."T")
2539 $ WS "#include <socketshr.h>"
2541 $ WS "#include <netdb.h>
2545 $ WS "endprotoent();
2549 $ DEFINE SYS$ERROR _NLA0:
2550 $ DEFINE SYS$OUTPUT _NLA0:
2551 $ on error then continue
2552 $ on warning then continue
2554 $ If (Needs_Opt.eqs."Yes")
2556 $ link temp.obj,temp.opt/opt
2560 $ teststatus = f$extract(9,1,$status)
2561 $ DEASSIGN SYS$OUTPUT
2562 $ DEASSIGN SYS$ERROR
2563 $ if (teststatus.nes."1")
2565 $ perl_d_endpent="undef"
2567 $ perl_d_endpent="define"
2570 $ perl_d_endpent="undef"
2572 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
2574 $! Check for endservent
2576 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2580 $ WS "#include <stdlib.h>
2582 $ WS "#include <stdio.h>
2583 $ if ("''Has_Socketshr'".eqs."T")
2585 $ WS "#include <socketshr.h>"
2587 $ WS "#include <netdb.h>
2595 $ DEFINE SYS$ERROR _NLA0:
2596 $ DEFINE SYS$OUTPUT _NLA0:
2597 $ on error then continue
2598 $ on warning then continue
2600 $ If (Needs_Opt.eqs."Yes")
2602 $ link temp.obj,temp.opt/opt
2606 $ teststatus = f$extract(9,1,$status)
2607 $ DEASSIGN SYS$OUTPUT
2608 $ DEASSIGN SYS$ERROR
2609 $ if (teststatus.nes."1")
2611 $ perl_d_endsent="undef"
2613 $ perl_d_endsent="define"
2616 $ perl_d_endsent="undef"
2618 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
2620 $! Check for sethostent
2622 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2626 $ WS "#include <stdlib.h>
2628 $ WS "#include <stdio.h>
2629 $ if ("''Has_Socketshr'".eqs."T")
2631 $ WS "#include <socketshr.h>"
2633 $ WS "#include <netdb.h>
2637 $ WS "sethostent(1);
2641 $ DEFINE SYS$ERROR _NLA0:
2642 $ DEFINE SYS$OUTPUT _NLA0:
2643 $ on error then continue
2644 $ on warning then continue
2646 $ If (Needs_Opt.eqs."Yes")
2648 $ link temp.obj,temp.opt/opt
2652 $ teststatus = f$extract(9,1,$status)
2653 $ DEASSIGN SYS$OUTPUT
2654 $ DEASSIGN SYS$ERROR
2655 $ if (teststatus.nes."1")
2657 $ perl_d_sethent="undef"
2659 $ perl_d_sethent="define"
2662 $ perl_d_sethent="undef"
2664 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
2666 $! Check for setnetent
2668 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2672 $ WS "#include <stdlib.h>
2674 $ WS "#include <stdio.h>
2675 $ if ("''Has_Socketshr'".eqs."T")
2677 $ WS "#include <socketshr.h>"
2679 $ WS "#include <netdb.h>
2687 $ DEFINE SYS$ERROR _NLA0:
2688 $ DEFINE SYS$OUTPUT _NLA0:
2689 $ on error then continue
2690 $ on warning then continue
2692 $ If (Needs_Opt.eqs."Yes")
2694 $ link temp.obj,temp.opt/opt
2698 $ teststatus = f$extract(9,1,$status)
2699 $ DEASSIGN SYS$OUTPUT
2700 $ DEASSIGN SYS$ERROR
2701 $ if (teststatus.nes."1")
2703 $ perl_d_setnent="undef"
2705 $ perl_d_setnent="define"
2708 $ perl_d_setnent="undef"
2710 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
2712 $! Check for setprotoent
2714 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2718 $ WS "#include <stdlib.h>
2720 $ WS "#include <stdio.h>
2721 $ if ("''Has_Socketshr'".eqs."T")
2723 $ WS "#include <socketshr.h>"
2725 $ WS "#include <netdb.h>
2729 $ WS "setprotoent(1);
2733 $ DEFINE SYS$ERROR _NLA0:
2734 $ DEFINE SYS$OUTPUT _NLA0:
2735 $ on error then continue
2736 $ on warning then continue
2738 $ If (Needs_Opt.eqs."Yes")
2740 $ link temp.obj,temp.opt/opt
2744 $ teststatus = f$extract(9,1,$status)
2745 $ DEASSIGN SYS$OUTPUT
2746 $ DEASSIGN SYS$ERROR
2747 $ if (teststatus.nes."1")
2749 $ perl_d_setpent="undef"
2751 $ perl_d_setpent="define"
2754 $ perl_d_setpent="undef"
2756 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
2758 $! Check for setservent
2760 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2764 $ WS "#include <stdlib.h>
2766 $ WS "#include <stdio.h>
2767 $ if ("''Has_Socketshr'".eqs."T")
2769 $ WS "#include <socketshr.h>"
2771 $ WS "#include <netdb.h>
2775 $ WS "setservent(1);
2779 $ DEFINE SYS$ERROR _NLA0:
2780 $ DEFINE SYS$OUTPUT _NLA0:
2781 $ on error then continue
2782 $ on warning then continue
2784 $ If (Needs_Opt.eqs."Yes")
2786 $ link temp.obj,temp.opt/opt
2790 $ teststatus = f$extract(9,1,$status)
2791 $ DEASSIGN SYS$OUTPUT
2792 $ DEASSIGN SYS$ERROR
2793 $ if (teststatus.nes."1")
2795 $ perl_d_setsent="undef"
2797 $ perl_d_setsent="define"
2800 $ perl_d_setsent="undef"
2802 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
2804 $! Check for gethostent
2806 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2810 $ WS "#include <stdlib.h>
2812 $ WS "#include <stdio.h>
2813 $ if ("''Has_Socketshr'".eqs."T")
2815 $ WS "#include <socketshr.h>"
2817 $ WS "#include <netdb.h>
2825 $ DEFINE SYS$ERROR _NLA0:
2826 $ DEFINE SYS$OUTPUT _NLA0:
2827 $ on error then continue
2828 $ on warning then continue
2830 $ If (Needs_Opt.eqs."Yes")
2832 $ link temp.obj,temp.opt/opt
2836 $ teststatus = f$extract(9,1,$status)
2837 $ DEASSIGN SYS$OUTPUT
2838 $ DEASSIGN SYS$ERROR
2839 $ if (teststatus.nes."1")
2841 $ perl_d_gethent="undef"
2843 $ perl_d_gethent="define"
2846 $ perl_d_gethent="undef"
2848 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
2850 $! Check for getnetent
2852 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2856 $ WS "#include <stdlib.h>
2858 $ WS "#include <stdio.h>
2859 $ if ("''Has_Socketshr'".eqs."T")
2861 $ WS "#include <socketshr.h>"
2863 $ WS "#include <netdb.h>
2871 $ DEFINE SYS$ERROR _NLA0:
2872 $ DEFINE SYS$OUTPUT _NLA0:
2873 $ on error then continue
2874 $ on warning then continue
2876 $ If (Needs_Opt.eqs."Yes")
2878 $ link temp.obj,temp.opt/opt
2882 $ teststatus = f$extract(9,1,$status)
2883 $ DEASSIGN SYS$OUTPUT
2884 $ DEASSIGN SYS$ERROR
2885 $ if (teststatus.nes."1")
2887 $ perl_d_getnent="undef"
2889 $ perl_d_getnent="define"
2892 $ perl_d_getnent="undef"
2894 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
2896 $! Check for getprotoent
2898 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2902 $ WS "#include <stdlib.h>
2904 $ WS "#include <stdio.h>
2905 $ if ("''Has_Socketshr'".eqs."T")
2907 $ WS "#include <socketshr.h>"
2909 $ WS "#include <netdb.h>
2913 $ WS "getprotoent();
2917 $ DEFINE SYS$ERROR _NLA0:
2918 $ DEFINE SYS$OUTPUT _NLA0:
2919 $ on error then continue
2920 $ on warning then continue
2922 $ If (Needs_Opt.eqs."Yes")
2924 $ link temp.obj,temp.opt/opt
2928 $ teststatus = f$extract(9,1,$status)
2929 $ DEASSIGN SYS$OUTPUT
2930 $ DEASSIGN SYS$ERROR
2931 $ if (teststatus.nes."1")
2933 $ perl_d_getpent="undef"
2935 $ perl_d_getpent="define"
2938 $ perl_d_getpent="undef"
2940 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
2942 $! Check for getservent
2944 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2948 $ WS "#include <stdlib.h>
2950 $ WS "#include <stdio.h>
2951 $ if ("''Has_Socketshr'".eqs."T")
2953 $ WS "#include <socketshr.h>"
2955 $ WS "#include <netdb.h>
2963 $ DEFINE SYS$ERROR _NLA0:
2964 $ DEFINE SYS$OUTPUT _NLA0:
2965 $ on error then continue
2966 $ on warning then continue
2968 $ If (Needs_Opt.eqs."Yes")
2970 $ link temp.obj,temp.opt/opt
2974 $ teststatus = f$extract(9,1,$status)
2975 $ DEASSIGN SYS$OUTPUT
2976 $ DEASSIGN SYS$ERROR
2977 $ if (teststatus.nes."1")
2979 $ perl_d_getsent="undef"
2981 $ perl_d_getsent="define"
2984 $ perl_d_getsent="undef"
2986 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
2988 $! Check for socklen_t
2990 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2994 $ WS "#include <stdlib.h>
2996 $ WS "#include <stdio.h>
2997 $ IF ("''Has_Socketshr'".eqs."T")
2999 $ WS "#include <socketshr.h>"
3001 $ WS "#include <netdb.h>
3005 $ WS "socklen_t x = 16;
3009 $ DEFINE SYS$ERROR _NLA0:
3010 $ DEFINE SYS$OUTPUT _NLA0:
3011 $ on error then continue
3012 $ on warning then continue
3014 $ If (Needs_Opt.eqs."Yes")
3016 $ link temp.obj,temp.opt/opt
3020 $ teststatus = f$extract(9,1,$status)
3021 $ DEASSIGN SYS$OUTPUT
3022 $ DEASSIGN SYS$ERROR
3023 $ if (teststatus.nes."1")
3025 $ perl_d_socklen_t="undef"
3027 $ perl_d_socklen_t="define"
3030 $ perl_d_socklen_t="undef"
3032 $ WRITE_RESULT "d_socklen_t is ''perl_d_socklen_t'"
3034 $! Check for pthread_yield
3036 $ if ("''use_threads'".eqs."T")
3040 $ WS "#include <stdlib.h>
3042 $ WS "#include <pthread.h>
3043 $ WS "#include <stdio.h>
3046 $ WS "pthread_yield();
3050 $ DEFINE SYS$ERROR _NLA0:
3051 $ DEFINE SYS$OUTPUT _NLA0:
3052 $ on error then continue
3053 $ on warning then continue
3055 $ teststatus = f$extract(9,1,$status)
3056 $ DEASSIGN SYS$OUTPUT
3057 $ DEASSIGN SYS$ERROR
3058 $ if (teststatus.nes."1")
3060 $ perl_d_pthread_yield="undef"
3062 $ perl_d_pthread_yield="define"
3065 $ perl_d_pthread_yield="undef"
3067 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
3069 $! Check for sched_yield
3071 $ if ("''use_threads'".eqs."T")
3075 $ WS "#include <stdlib.h>
3077 $ WS "#include <pthread.h>
3078 $ WS "#include <stdio.h>
3081 $ WS "sched_yield();
3085 $ DEFINE SYS$ERROR _NLA0:
3086 $ DEFINE SYS$OUTPUT _NLA0:
3087 $ on error then continue
3088 $ on warning then continue
3090 $ teststatus = f$extract(9,1,$status)
3091 $ DEASSIGN SYS$OUTPUT
3092 $ DEASSIGN SYS$ERROR
3093 $ if (teststatus.nes."1")
3095 $ perl_d_sched_yield="undef"
3096 $ perl_sched_yield = " "
3098 $ perl_d_sched_yield="define"
3099 $ perl_sched_yield = "sched_yield"
3102 $ perl_d_sched_yield="undef"
3103 $ perl_sched_yield = " "
3105 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
3106 $ WRITE_RESULT "sched_yield is ''perl_sched_yield'"
3108 $! Check for generic pointer size
3112 $ WS "#include <stdlib.h>
3114 $ WS "#include <stdio.h>
3118 $ WS "foo = sizeof(char *);
3119 $ WS "printf(""%d\n"", foo);
3123 $ DEFINE SYS$ERROR _NLA0:
3124 $ DEFINE SYS$OUTPUT _NLA0:
3125 $ ON ERROR THEN CONTINUE
3126 $ ON WARNING THEN CONTINUE
3128 $ If (Needs_Opt.eqs."Yes")
3130 $ link temp.obj,temp.opt/opt
3134 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3135 $ DEASSIGN SYS$OUTPUT
3136 $ DEASSIGN SYS$ERROR
3137 $ DEFINE SYS$ERROR TEMPOUT
3138 $ DEFINE SYS$OUTPUT TEMPOUT
3141 $ DEASSIGN SYS$OUTPUT
3142 $ DEASSIGN SYS$ERROR
3143 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3146 $ DELETE/NOLOG [-.uu]tempout.lis;
3149 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
3151 $! Check rand48 and its ilk
3155 $ WS "#include <stdlib.h>
3157 $ WS "#include <stdio.h>
3160 $ WS "srand48(12L);"
3165 $ DEFINE SYS$ERROR _NLA0:
3166 $ DEFINE SYS$OUTPUT _NLA0:
3167 $ ON ERROR THEN CONTINUE
3168 $ ON WARNING THEN CONTINUE
3170 $ If (Needs_Opt.eqs."Yes")
3172 $ link temp,temp.opt/opt
3176 $ teststatus = f$extract(9,1,$status)
3177 $ DEASSIGN SYS$OUTPUT
3178 $ DEASSIGN SYS$ERROR
3179 $ if (teststatus.nes."1")
3181 $ perl_drand01="random()"
3182 $ perl_randseedtype = "unsigned"
3183 $ perl_seedfunc = "srandom"
3187 $ WS "#include <stdlib.h>
3189 $ WS "#include <stdio.h>
3196 $! copy temp.c sys$output
3198 $ DEFINE SYS$ERROR _NLA0:
3199 $ DEFINE SYS$OUTPUT _NLA0:
3200 $ ON ERROR THEN CONTINUE
3201 $ ON WARNING THEN CONTINUE
3203 $ If (Needs_Opt.eqs."Yes")
3205 $ link temp,temp.opt/opt
3209 $ teststatus = f$extract(9,1,$status)
3210 $ DEASSIGN SYS$OUTPUT
3211 $ DEASSIGN SYS$ERROR
3212 $ if (teststatus.nes."1")
3214 $ perl_drand01="(((float)rand())/((float)RAND_MAX))"
3215 $ perl_randseedtype = "unsigned"
3216 $ perl_seedfunc = "srand"
3218 $ WRITE_RESULT "drand01 is ''perl_drand01'"
3221 $! Done with compiler checks. Clean up.
3222 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
3223 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
3224 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
3225 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
3228 $! Some that are compiler or VMS version sensitive
3231 $ IF "''Using_Gnu_C'".EQS."Yes"
3233 $ perl_d_attribut="define"
3234 $ perl_vms_cc_type="gcc"
3236 $ perl_vms_cc_type="cc"
3237 $ perl_d_attribut="undef"
3240 $! Dec C >= 5.2 and VMS ver >= 7.0
3241 $ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
3243 $ perl_d_bcmp="define"
3244 $ perl_d_gettimeod="define"
3245 $ perl_d_uname="define"
3246 $ perl_d_sigaction="define"
3247 $ perl_d_truncate="define"
3248 $ perl_d_wait4="define"
3249 $ perl_d_index="define"
3250 $ perl_pidtype="pid_t"
3251 $ 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"
3252 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3253 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
3254 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
3255 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
3256 $ 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"
3257 $ 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"
3258 $ perl_sig_num_with_commas=perl_sig_num_init
3259 $ perl_uidtype="uid_t"
3260 $ perl_d_pathconf="define"
3261 $ perl_d_fpathconf="define"
3262 $ perl_d_sysconf="define"
3263 $ perl_d_sigsetjmp="define"
3265 $ perl_pidtype="unsigned int"
3266 $ perl_d_gettimeod="undef"
3267 $ perl_d_bcmp="undef"
3268 $ perl_d_uname="undef"
3269 $ perl_d_sigaction="undef"
3270 $ perl_d_truncate="undef"
3271 $ perl_d_wait4="undef"
3272 $ perl_d_index="undef"
3273 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
3274 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3275 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
3276 $ perl_sig_name_with_commas = psnwc1 + psnwc2
3277 $ perl_sig_num="0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 6 16 17"",0"
3278 $ perl_sig_num_init="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
3279 $ perl_sig_num_with_commas=perl_sig_num_init
3280 $ perl_uidtype="unsigned int"
3281 $ perl_d_pathconf="undef"
3282 $ perl_d_fpathconf="undef"
3283 $ perl_d_sysconf="undef"
3284 $ perl_d_sigsetjmp="undef"
3288 $ IF ("''Using_Dec_C'".EQS."Yes")
3290 $ perl_d_mbstowcs="define"
3291 $ perl_d_mbtowc="define"
3292 $ perl_d_stdiobase="define"
3293 $ perl_d_stdio_ptr_lval="define"
3294 $ perl_d_stdio_cnt_lval="define"
3295 $ perl_d_stdstdio="define"
3296 $ perl_d_wcstombs="define"
3297 $ perl_d_mblen="define"
3298 $ perl_d_mktime="define"
3299 $ perl_d_strcoll="define"
3300 $ perl_d_strxfrm="define"
3301 $ perl_d_wctomb="define"
3302 $ perl_i_locale="define"
3303 $ perl_d_locconv="define"
3304 $ perl_d_setlocale="define"
3305 $ perl_vms_cc_type="decc"
3307 $ perl_d_mbstowcs="undef"
3308 $ perl_d_mbtowc="undef"
3309 $ perl_d_stdiobase="undef"
3310 $ perl_d_stdio_ptr_lval="undef"
3311 $ perl_d_stdio_cnt_lval="undef"
3312 $ perl_d_stdstdio="undef"
3313 $ perl_d_wcstombs="undef"
3314 $ perl_d_mblen="undef"
3315 $ perl_d_mktime="undef"
3316 $ perl_d_strcoll="undef"
3317 $ perl_d_strxfrm="undef"
3318 $ perl_d_wctomb="undef"
3319 $ perl_i_locale="undef"
3320 $ perl_d_locconv="undef"
3321 $ perl_d_setlocale="undef"
3325 $ if ("''Using_Vax_C'".EQS."Yes")
3327 $ perl_vms_cc_type="vaxc"
3331 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
3333 $ perl_d_vms_do_sockets="define"
3334 $ perl_d_htonl="define"
3335 $ perl_d_socket="define"
3336 $ perl_d_select="define"
3337 $ perl_netdb_host_type="char *"
3338 $ perl_netdb_hlen_type="int"
3339 $ perl_netdb_name_type="char *"
3340 $ perl_netdb_net_type="long"
3341 $ perl_d_gethbyaddr="define"
3342 $ perl_d_gethbyname="define"
3343 $ perl_d_getnbyaddr="define"
3344 $ perl_d_getnbyname="define"
3345 $ perl_d_getpbynumber="define"
3346 $ perl_d_getpbyname="define"
3347 $ perl_d_getsbyport="define"
3348 $ perl_d_getsbyname="define"
3349 $ perl_d_gethostprotos="define"
3350 $ perl_d_getnetprotos="define"
3351 $ perl_d_getprotoprotos="define"
3352 $ perl_d_getservprotos="define"
3353 $ IF ("''Using_Dec_C'".EQS."Yes")
3355 $ perl_socksizetype="unsigned int"
3357 $ perl_socksizetype="int *"
3360 $ perl_d_vms_do_sockets="undef"
3361 $ perl_d_htonl="undef"
3362 $ perl_d_socket="undef"
3363 $ perl_d_select="undef"
3364 $ perl_netdb_host_type="char *"
3365 $ perl_netdb_hlen_type="int"
3366 $ perl_netdb_name_type="char *"
3367 $ perl_netdb_net_type="long"
3368 $ perl_d_gethbyaddr="undef"
3369 $ perl_d_gethbyname="undef"
3370 $ perl_d_getnbyaddr="undef"
3371 $ perl_d_getnbyname="undef"
3372 $ perl_d_getpbynumber="undef"
3373 $ perl_d_getpbyname="undef"
3374 $ perl_d_getsbyport="undef"
3375 $ perl_d_getsbyname="undef"
3376 $ perl_d_gethostprotos="undef"
3377 $ perl_d_getnetprotos="undef"
3378 $ perl_d_getprotoprotos="undef"
3379 $ perl_d_getservprotos="undef"
3380 $ perl_socksizetype="undef"
3383 $ if ("''use_threads'".eqs."T")
3385 $ perl_usethreads="define"
3386 $ perl_d_pthreads_created_joinable="define"
3387 $ if ("''VMS_VER'".ges."7.0")
3389 $ perl_d_oldpthreads="undef"
3391 $ perl_d_oldpthreads="define"
3394 $ perl_d_oldpthreads="undef"
3395 $ perl_usethreads="undef"
3397 $ perl_d_pthreads_created_joinable="undef"
3400 $! new (5.005_62++) typedefs for primitives
3402 $ perl_ivtype="long"
3403 $ perl_uvtype="unsigned long"
3404 $ perl_i8type="char"
3405 $ perl_u8type="unsigned char"
3406 $ perl_i16type="short"
3407 $ perl_u16type="unsigned short"
3408 $ perl_i32type="int"
3409 $ perl_u32type="unsigned int"
3410 $ perl_i64type="long long"
3411 $ perl_u64type="unsigned long long"
3412 $ perl_nvtype="double"
3414 $ GOTO beyond_type_size_check
3418 $! Check for type sizes
3422 $ WS "#include <stdlib.h>
3424 $ WS "#include <stdio.h>
3427 $ WS "printf(""%d\n"", sizeof(''type'));"
3431 $ DEFINE SYS$ERROR _NLA0:
3432 $ DEFINE SYS$OUTPUT _NLA0:
3433 $ ON ERROR THEN CONTINUE
3434 $ ON WARNING THEN CONTINUE
3436 $ If (Needs_Opt.eqs."Yes")
3438 $ link temp.obj,temp.opt/opt
3442 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3443 $ DEASSIGN SYS$OUTPUT
3444 $ DEASSIGN SYS$ERROR
3445 $ DEFINE SYS$ERROR TEMPOUT
3446 $ DEFINE SYS$OUTPUT TEMPOUT
3449 $ DEASSIGN SYS$OUTPUT
3450 $ DEASSIGN SYS$ERROR
3451 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3454 $ DELETE/NOLOG [-.uu]tempout.lis;
3455 $ WRITE_RESULT "''size_name' is ''line'"
3459 $beyond_type_size_check:
3462 $ type = "''perl_ivtype'"
3463 $ size_name = "ivsize"
3464 $ gosub type_size_check
3465 $ perl_ivsize="''line'"
3466 $ IF type .eqs. "long"
3467 $ THEN perl_longsize = "''line'"
3470 $ size_name = "longsize"
3471 $ gosub type_size_check
3472 $ perl_longsize="''line'"
3475 $ type = "''perl_uvtype'"
3476 $ size_name = "uvsize"
3477 $ gosub type_size_check
3478 $ perl_uvsize="''line'"
3480 $ type = "''perl_i8type'"
3481 $ size_name = "i8size"
3482 $ gosub type_size_check
3483 $ perl_i8size="''line'"
3485 $ type = "''perl_u8type'"
3486 $ size_name = "u8size"
3487 $ gosub type_size_check
3488 $ perl_u8size="''line'"
3490 $ type = "''perl_i16type'"
3491 $ size_name = "i16size"
3492 $ gosub type_size_check
3493 $ perl_i16size="''line'"
3494 $ IF type .eqs. "short"
3495 $ THEN perl_shortsize="''line'"
3497 $ type = "''perl_i16type'"
3498 $ size_name = "shortsize"
3499 $ gosub type_size_check
3500 $ perl_shortsize="''line'"
3503 $ type = "''perl_u16type'"
3504 $ size_name = "u16size"
3505 $ gosub type_size_check
3506 $ perl_u16size="''line'"
3508 $ type = "''perl_i32type'"
3509 $ size_name = "i32size"
3510 $ gosub type_size_check
3511 $ perl_i32size="''line'"
3512 $ IF type .eqs. "int"
3513 $ THEN perl_intsize="''perl_i32size'"
3516 $ size_name = "intsize"
3517 $ gosub type_size_check
3518 $ perl_intsize="''line'"
3521 $ type = "''perl_u32type'"
3522 $ size_name = "u32size"
3523 $ gosub type_size_check
3524 $ perl_u32size="''line'"
3526 $ type = "''perl_i64type'"
3527 $ size_name = "i64size"
3528 $ gosub type_size_check
3529 $ perl_i64size="''line'"
3531 $ type = "''perl_u64type'"
3532 $ size_name = "u64size"
3533 $ gosub type_size_check
3534 $ perl_u64size="''line'"
3536 $ perl_ivdformat="""ld"""
3537 $ perl_uvuformat="""lu"""
3538 $ perl_uvoformat="""lo"""
3539 $ perl_uvxformat="""lx"""
3541 $! Finally the composite ones. All config
3542 $ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3543 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3544 $ perl_myhostname="''myhostname'"
3545 $ perl_mydomain="''mydomain'"
3546 $ perl_perladmin="''perladmin'"
3547 $ perl_cf_email="''cf_email'"
3548 $ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
3549 $ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3550 $ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
3551 $ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
3552 $ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
3553 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
3554 $ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3555 $ if "''Using_Dec_C'" .eqs. "Yes"
3557 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
3559 $ IF "''Using_Vax_C'" .eqs. "Yes"
3561 $ perl_ccflags="/Include=[]/Obj=''perl_obj_ext'/NoList''cc_flags'"
3564 $ if use_vmsdebug_perl .eqs. "Y"
3566 $ perl_optimize="/Debug/NoOpt"
3567 $ perl_dbgprefix = "DBG"
3570 $ perl_dbgprefix = ""
3573 $! Finally clean off any leading zeros from the patchlevel or subversion
3574 $ perl_patchlevel = perl_patchlevel + 0
3575 $ perl_subversion = perl_subversion + 0
3577 $! Okay, we've got everything configured. Now go write out a config.sh.
3578 $ open/write CONFIGSH [-]config.sh
3579 $ WC := "write CONFIGSH"
3581 $ WC "# This file generated by Configure.COM on a VMS system."
3582 $ WC "# Time: " + perl_cf_time
3584 $ WC "CONFIGDOTSH=true"
3585 $ WC "package='" + perl_package + "'"
3586 $ WC "d_nv_preserves_uv='" + perl_d_nv_preserves_uv + "'"
3587 $ WC "use5005threads='" + perl_use5005threads + "'"
3588 $ WC "useithreads='" + perl_useithreads + "'"
3589 $ WC "CONFIG='" + perl_config + "'"
3590 $ WC "cf_time='" + perl_cf_time + "'"
3591 $ WC "cf_by='" + perl_cf_by+ "'"
3592 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
3593 $ WC "ccdlflags='" + perl_ccdlflags + "'"
3594 $ WC "cccdlflags='" + perl_cccdlflags + "'"
3595 $ WC "mab='" + perl_mab + "'"
3596 $ WC "libpth='" + perl_libpth + "'"
3597 $ WC "ld='" + perl_ld + "'"
3598 $ WC "lddlflags='" + perl_lddlflags + "'"
3599 $ WC "ranlib='" + perl_ranlib + "'"
3600 $ WC "ar='" + perl_ar + "'"
3601 $ WC "full_ar='" + perl_full_ar + "'"
3602 $ WC "eunicefix='" + perl_eunicefix + "'"
3603 $ WC "hint='" + perl_hint +"'"
3604 $ WC "hintfile='" + perl_hintfile + "'"
3605 $ WC "shrplib='" + perl_shrplib + "'"
3606 $ WC "usemymalloc='" + perl_usemymalloc + "'"
3607 $ WC "usevfork='" + perl_usevfork + "'"
3608 $ WC "useposix='false'"
3609 $ WC "spitshell='write sys$output '"
3610 $ WC "dlsrc='dl_vms.c'"
3611 $ WC "binexp='" + perl_binexp + "'"
3612 $ WC "man1ext='" + perl_man1ext + "'"
3613 $ WC "man3ext='" + perl_man3ext + "'"
3614 $ WC "arch='" + perl_arch + "'"
3615 $ WC "archname='" + perl_archname + "'"
3616 $ WC "osvers='" + perl_osvers + "'"
3617 $ WC "prefix='" + perl_prefix + "'"
3618 $ WC "builddir='" + perl_builddir + "'"
3619 $ WC "installbin='" + perl_installbin + "'"
3620 $ WC "installscript='" + perl_installscript + "'"
3621 $ WC "installman1dir='" + perl_installman1dir + "'"
3622 $ WC "installman3dir='" + perl_installman3dir + "'"
3623 $ WC "installprivlib='" + perl_installprivlib + "'"
3624 $ WC "installarchlib='" + perl_installarchlib + "'"
3625 $ WC "installsitelib='" + perl_installsitelib + "'"
3626 $ WC "installsitearch='" + perl_installsitearch + "'"
3627 $ WC "path_sep='" + perl_path_sep + "'"
3628 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
3629 $ WC "d_attribut='" + perl_d_attribut + "'"
3630 $ WC "cc='" + perl_cc + "'"
3631 $ WC "ccflags='" + perl_ccflags + "'"
3632 $ WC "optimize='" + perl_optimize + "'"
3633 $ WC "dbgprefix='" + perl_dbgprefix + "'"
3634 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
3635 $ WC "d_socket='" + perl_d_socket + "'"
3636 $ WC "d_sockpair='" + perl_d_sockpair + "'"
3637 $ WC "d_gethent='" + perl_d_gethent + "'"
3638 $ WC "d_getsent='" + perl_d_getsent + "'"
3639 $ WC "d_socklen_t='" + perl_d_socklen_t + "'"
3640 $ WC "d_select='" + perl_d_select + "'"
3641 $ WC "i_niin='" + perl_i_niin + "'"
3642 $ WC "i_netinettcp='" + perl_i_netinettcp + "'"
3643 $ WC "i_neterrno='" + perl_i_neterrno + "'"
3644 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
3645 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
3646 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
3647 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
3648 $ WC "d_locconv='" + perl_d_locconv + "'"
3649 $ WC "d_setlocale='" + perl_d_setlocale + "'"
3650 $ WC "i_locale='" + perl_i_locale + "'"
3651 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
3652 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
3653 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
3654 $ WC "d_wctomb='" + perl_d_wctomb + "'"
3655 $ WC "d_mblen='" + perl_d_mblen + "'"
3656 $ WC "d_mktime='" + perl_d_mktime + "'"
3657 $ WC "d_strcoll='" + perl_d_strcoll + "'"
3658 $ WC "d_strxfrm='" + perl_d_strxfrm + "'"
3659 $ WC "ldflags='" + perl_ldflags + "'"
3660 $ WC "dlobj='" + perl_dlobj + "'"
3661 $ WC "obj_ext='" + perl_obj_ext + "'"
3662 $ WC "so='" + perl_so + "'"
3663 $ WC "dlext='" + perl_dlext + "'"
3664 $ WC "exe_ext='" + perl_exe_ext + "'"
3665 $ WC "lib_ext='" + perl_lib_ext + "'"
3666 $ WC "myhostname='" + perl_myhostname + "'"
3667 $ WC "mydomain='" + perl_mydomain + "'"
3668 $ WC "perladmin='" + perl_perladmin + "'"
3669 $ WC "cf_email='" + perl_cf_email + "'"
3670 $ WC "myuname='" + perl_myuname + "'"
3671 $ WC "alignbytes='" + perl_alignbytes + "'"
3672 $ WC "osname='" + perl_osname + "'"
3673 $ WC "d_archlib='" + perl_d_archlib + "'"
3674 $ WC "archlibexp='" + perl_archlibexp + "'"
3675 $ WC "archlib='" + perl_archlib + "'"
3676 $ WC "archname='" + perl_archname + "'"
3677 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
3678 $ WC "cppstdin='" + perl_cppstdin + "'"
3679 $ WC "cppminus='" + perl_cppminus + "'"
3680 $ WC "d_bcmp='" + perl_d_bcmp + "'"
3681 $ WC "d_bcopy='" + perl_d_bcopy + "'"
3682 $ WC "d_bzero='" + perl_d_bzero + "'"
3683 $ WC "d_castneg='" + perl_d_castneg + "'"
3684 $ WC "castflags='" + perl_castflags + "'"
3685 $ WC "d_chsize='" + perl_d_chsize + "'"
3686 $ WC "d_const='" + perl_d_const + "'"
3687 $ WC "d_crypt='" + perl_d_crypt + "'"
3688 $ WC "byteorder='" + perl_byteorder + "'"
3689 $ WC "full_csh='" + perl_full_csh + "'"
3690 $ WC "d_csh='" + perl_d_csh + "'"
3691 $ WC "d_dup2='" + perl_d_dup2 + "'"
3692 $ WC "d_fchmod='" + perl_d_fchmod + "'"
3693 $ WC "d_fchown='" + perl_d_fchown + "'"
3694 $ WC "d_fcntl='" + perl_d_fcntl + "'"
3695 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
3696 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
3697 $ WC "d_flock='" + perl_d_flock + "'"
3698 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
3699 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
3700 $ WC "d_getgrps='" + perl_d_getgrps + "'"
3701 $ WC "d_setgrps='" + perl_d_setgrps + "'"
3702 $ WC "d_uname='" + perl_d_uname + "'"
3703 $ WC "d_getprior='" + perl_d_getprior + "'"
3704 $ WC "d_killpg='" + perl_d_killpg + "'"
3705 $ WC "d_link='" + perl_d_link + "'"
3706 $ WC "d_lstat='" + perl_d_lstat + "'"
3707 $ WC "d_lockf='" + perl_d_lockf + "'"
3708 $ WC "d_memcmp='" + perl_d_memcmp + "'"
3709 $ WC "d_memcpy='" + perl_d_memcpy + "'"
3710 $ WC "d_memmove='" + perl_d_memmove + "'"
3711 $ WC "d_memset='" + perl_d_memset + "'"
3712 $ WC "d_mkdir='" + perl_d_mkdir + "'"
3713 $ WC "d_msg='" + perl_d_msg + "'"
3714 $ WC "d_open3='" + perl_d_open3 + "'"
3715 $ WC "d_poll='" + perl_d_poll + "'"
3716 $ WC "d_readdir='" + perl_d_readdir + "'"
3717 $ WC "d_seekdir='" + perl_d_seekdir + "'"
3718 $ WC "d_telldir='" + perl_d_telldir + "'"
3719 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
3720 $ WC "d_rename='" + perl_d_rename + "'"
3721 $ WC "d_rmdir='" + perl_d_rmdir + "'"
3722 $ WC "d_sem='" + perl_d_sem + "'"
3723 $ WC "d_setegid='" + perl_d_setegid + "'"
3724 $ WC "d_seteuid='" + perl_d_seteuid + "'"
3725 $ WC "d_setprior='" + perl_d_setprior + "'"
3726 $ WC "d_setregid='" + perl_d_setregid + "'"
3727 $ WC "d_setresgid='" + perl_d_setresgid + "'"
3728 $ WC "d_setreuid='" + perl_d_setreuid + "'"
3729 $ WC "d_setresuid='" + perl_d_setresuid + "'"
3730 $ WC "d_setrgid='" + perl_d_setrgid + "'"
3731 $ WC "d_setruid='" + perl_d_setruid + "'"
3732 $ WC "d_setsid='" + perl_d_setsid + "'"
3733 $ WC "d_shm='" + perl_d_shm + "'"
3734 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
3735 $ WC "d_sigaction='" + perl_d_sigaction + "'"
3736 $ WC "d_statblks='" + perl_d_statblks + "'"
3737 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
3738 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
3739 $ WC "stdio_base='" + perl_stdio_base + "'"
3740 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
3741 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
3742 $ WC "d_strerror='" + perl_d_strerror + "'"
3743 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
3744 $ WC "d_strerrm='" + perl_d_strerrm + "'"
3745 $ WC "d_symlink='" + perl_d_symlink + "'"
3746 $ WC "d_syscall='" + perl_d_syscall + "'"
3747 $ WC "d_system='" + perl_d_system + "'"
3748 $ WC "timetype='" + perl_timetype + "'"
3749 $ WC "d_truncate='" + perl_d_truncate + "'"
3750 $ WC "d_vfork='" + perl_d_vfork + "'"
3751 $ WC "signal_t='" + perl_signal_t + "'"
3752 $ WC "d_volatile='" + perl_d_volatile + "'"
3753 $ WC "d_vprintf='" + perl_d_vprintf + "'"
3754 $ WC "d_charvspr='" + perl_d_charvspr + "'"
3755 $ WC "d_wait4='" + perl_d_wait4 + "'"
3756 $ WC "d_waitpid='" + perl_d_waitpid + "'"
3757 $ WC "i_dirent='" + perl_i_dirent + "'"
3758 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
3759 $ WC "direntrytype='" + perl_direntrytype + "'"
3760 $ WC "i_fcntl='" + perl_i_fcntl + "'"
3761 $ WC "i_grp='" + perl_i_grp + "'"
3762 $ WC "i_limits='" + perl_i_limits + "'"
3763 $ WC "i_memory='" + perl_i_memory + "'"
3764 $ WC "i_ndbm='" + perl_i_ndbm + "'"
3765 $ WC "i_stdarg='" + perl_i_stdarg + "'"
3766 $ WC "i_pwd='" + perl_i_pwd + "'"
3767 $ WC "d_pwquota='" + perl_d_pwquota + "'"
3768 $ WC "d_pwage='" + perl_d_pwage + "'"
3769 $ WC "d_pwchange='" + perl_d_pwchange + "'"
3770 $ WC "d_pwclass='" + perl_d_pwclass + "'"
3771 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
3772 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
3773 $ WC "i_stddef='" + perl_i_stddef + "'"
3774 $ WC "i_stdlib='" + perl_i_stdlib + "'"
3775 $ WC "i_string='" + perl_i_string + "'"
3776 $ WC "i_sysdir='" + perl_i_sysdir + "'"
3777 $ WC "i_sysfile='" + perl_i_sysfile + "'"
3778 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
3779 $ WC "i_sysndir='" + perl_i_sysndir + "'"
3780 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
3781 $ WC "i_sysselct='" + perl_i_sysselct + "'"
3782 $ WC "i_dbm='" + perl_i_dbm + "'"
3783 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
3784 $ WC "i_sfio='" + perl_i_sfio + "'"
3785 $ WC "i_sysstat='" + perl_i_sysstat + "'"
3786 $ WC "i_systimes='" + perl_i_systimes + "'"
3787 $ WC "i_systypes='" + perl_i_systypes + "'"
3788 $ WC "i_sysun='" + perl_i_sysun + "'"
3789 $ WC "i_syswait='" + perl_i_syswait + "'"
3790 $ WC "i_termio='" + perl_i_termio + "'"
3791 $ WC "i_sgtty='" + perl_i_sgtty + "'"
3792 $ WC "i_termios='" + perl_i_termios + "'"
3793 $ WC "i_time='" + perl_i_time + "'"
3794 $ WC "i_systime='" + perl_i_systime + "'"
3795 $ WC "i_systimek='" + perl_i_systimek + "'"
3796 $ WC "i_unistd='" + perl_i_unistd + "'"
3797 $ WC "i_utime='" + perl_i_utime + "'"
3798 $ WC "i_varargs='" + perl_i_varargs + "'"
3799 $ WC "i_vfork='" + perl_i_vfork + "'"
3800 $ WC "prototype='" + perl_prototype + "'"
3801 $ WC "randbits='" + perl_randbits +"'"
3802 $ WC "selecttype='" + perl_selecttype + "'"
3803 $ WC "stdchar='" + perl_stdchar + "'"
3804 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
3805 $ WC "full_sed='" + perl_full_sed + "'"
3806 $ WC "bin='" + perl_bin + "'"
3807 $ WC "binexp='" + perl_binexp + "'"
3808 $ WC "d_alarm='" + perl_d_alarm + "'"
3809 $ WC "d_casti32='" + perl_d_casti32 + "'"
3810 $ WC "d_chown='" + perl_d_chown + "'"
3811 $ WC "d_chroot='" + perl_d_chroot + "'"
3812 $ WC "d_cuserid='" + perl_d_cuserid + "'"
3813 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
3814 $ WC "d_ldbl_dig='" + perl_d_ldbl_dig + "'"
3815 $ WC "d_difftime='" + perl_d_difftime + "'"
3816 $ WC "d_fork='" + perl_d_fork + "'"
3817 $ WC "d_getlogin='" + perl_d_getlogin + "'"
3818 $ WC "d_getppid='" + perl_d_getppid + "'"
3819 $ WC "d_htonl='" + perl_d_htonl + "'"
3820 $ WC "d_nice='" + perl_d_nice + "'"
3821 $ WC "d_pause='" + perl_d_pause + "'"
3822 $ WC "d_pipe='" + perl_d_pipe + "'"
3823 $ WC "d_readlink='" + perl_d_readlink + "'"
3824 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
3825 $ WC "d_strchr='" + perl_d_strchr + "'"
3826 $ WC "d_index='" + perl_d_index + "'"
3827 $ WC "d_strtod='" + perl_d_strtod + "'"
3828 $ WC "d_strtol='" + perl_d_strtol + "'"
3829 $ WC "d_strtoul='" + perl_d_strtoul + "'"
3830 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
3831 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
3832 $ WC "d_times='" + perl_d_times + "'"
3833 $ WC "d_tzname='" + perl_d_tzname + "'"
3834 $ WC "d_umask='" + perl_d_umask + "'"
3835 $ WC "fpostype='" + perl_fpostype + "'"
3836 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
3837 $ WC "i_float='" + perl_i_float + "'"
3838 $ WC "i_math='" + perl_i_math + "'"
3839 $ WC "intsize='" + perl_intsize + "'"
3840 $ WC "longsize='" + perl_longsize + "'"
3841 $ WC "shortsize='" + perl_shortsize + "'"
3842 $ WC "lseektype='" + perl_lseektype + "'"
3843 $ WC "lseeksize='4'"
3844 $ WC "i_values='" + perl_i_values + "'"
3845 $ WC "malloctype='" + perl_malloctype + "'"
3846 $ WC "freetype='" + perl_freetype + "'"
3847 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
3848 $ WC "sh='" + perl_sh + "'"
3849 $ WC "sig_name='" + perl_sig_name + "'"
3850 $ WC "sig_num='" + perl_sig_num + "'"
3851 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
3853 $ WC "modetype='" + perl_modetype + "'"
3854 $ WC "ssizetype='" + perl_ssizetype + "'"
3855 $ WC "o_nonblock='" + perl_o_nonblock + "'"
3856 $ WC "eagain='" + perl_eagain + "'"
3857 $ WC "rd_nodata='" + perl_rd_nodata + "'"
3858 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
3859 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
3860 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
3861 $ WC "oldarchlib='" + perl_oldarchlib + "'"
3862 $ WC "privlibexp='" + perl_privlibexp + "'"
3863 $ WC "privlib='" + perl_privlib + "'"
3864 $ WC "sitelibexp='" + perl_sitelibexp + "'"
3865 $ WC "sitelib='" + perl_sitelib + "'"
3866 $ WC "sitearchexp='" + perl_sitearchexp + "'"
3867 $ WC "sitearch='" + perl_sitearch + "'"
3868 $ WC "sizetype='" + perl_sizetype + "'"
3869 $ WC "i_sysparam='" + perl_i_sysparam + "'"
3870 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
3871 $ WC "d_dlerror='" + perl_d_dlerror + "'"
3872 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
3873 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
3874 $ WC "d_dosuid='" + perl_d_dosuid + "'"
3875 $ WC "d_inetaton='" + perl_d_inetaton + "'"
3876 $ WC "d_int64_t='" + perl_d_int64_t + "'"
3877 $ WC "d_isascii='" + perl_d_isascii + "'"
3878 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
3879 $ WC "d_pathconf='" + perl_d_pathconf + "'"
3880 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
3881 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
3882 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
3883 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
3884 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
3885 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
3886 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
3887 $ WC "d_setpgid='" + perl_d_setpgid + "'"
3888 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
3889 $ WC "d_sysconf='" + perl_d_sysconf + "'"
3890 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
3891 $ WC "d_getpgid='" + perl_d_getpgid + "'"
3892 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
3893 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
3894 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
3895 $ WC "d_sfio='" + perl_d_sfio + "'"
3896 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
3897 $ WC "usedl='" + perl_usedl + "'"
3898 $ WC "startperl=" + perl_startperl ! This one's special--no enclosing single quotes
3899 $ WC "db_hashtype='" + perl_db_hashtype + "'"
3900 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
3901 $ WC "useperlio='" + perl_useperlio + "'"
3902 $ WC "defvoidused='" + perl_defvoidused + "'"
3903 $ WC "voidflags='" + perl_voidflags + "'"
3904 $ WC "d_eunice='" + perl_d_eunice + "'"
3905 $ WC "libs='" + perl_libs + "'"
3906 $ WC "libc='" + perl_libc + "'"
3907 $ tempstring = "PERL_VERSION='" + "''perl_patchlevel'" + "'"
3909 $ tempstring = "PERL_SUBVERSION='" + "''perl_patchlevel'" + "'"
3911 $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
3913 $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
3915 $ WC "pager='" + perl_pager + "'"
3916 $ WC "uidtype='" + perl_uidtype + "'"
3917 $ WC "gidtype='" + perl_gidtype + "'"
3918 $ WC "usethreads='" + perl_usethreads + "'"
3919 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
3920 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
3921 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
3922 $ WC "i_netdb='" + perl_i_netdb + "'"
3923 $ WC "pidtype='" + perl_pidtype + "'"
3924 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
3925 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
3926 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
3927 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
3928 $ WC "socksizetype='" + perl_socksizetype + "'"
3929 $ WC "baserev='" + perl_baserev + "'"
3930 $ WC "doublesize='" + perl_doublesize + "'"
3931 $ WC "ptrsize='" + perl_ptrsize + "'"
3932 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
3933 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
3934 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
3935 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
3936 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
3937 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
3938 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
3939 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
3940 $ WC "d_sethent='" + perl_d_sethent + "'"
3941 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
3942 $ WC "d_longdbl='" + perl_d_longdbl + "'"
3943 $ WC "longdblsize='" + perl_longdblsize + "'"
3944 $ WC "d_longlong='" + perl_d_longlong + "'"
3945 $ WC "longlongsize='" + perl_longlongsize + "'"
3946 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
3947 $ WC "d_mkstemps='" + perl_d_mkstemps + "'"
3948 $ WC "d_mkdtemp='" + perl_d_mkdtemp + "'"
3949 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
3950 $ WC "d_setenv='" + perl_d_setenv + "'"
3951 $ WC "d_endhent='" + perl_d_endhent + "'"
3952 $ WC "d_endnent='" + perl_d_endsent + "'"
3953 $ WC "d_endpent='" + perl_d_endpent + "'"
3954 $ WC "d_endsent='" + perl_d_endsent + "'"
3955 $ WC "d_gethent='" + perl_d_gethent + "'"
3956 $ WC "d_getnent='" + perl_d_getsent + "'"
3957 $ WC "d_getpent='" + perl_d_getpent + "'"
3958 $ WC "d_getsent='" + perl_d_getsent + "'"
3959 $ WC "d_sethent='" + perl_d_sethent + "'"
3960 $ WC "d_setnent='" + perl_d_setsent + "'"
3961 $ WC "d_setpent='" + perl_d_setpent + "'"
3962 $ WC "ebcdic='" + perl_ebcdic + "'"
3963 $ WC "d_setsent='" + perl_d_setsent + "'"
3964 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
3965 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
3966 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
3967 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
3968 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
3969 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
3970 $ WC "d_lchown='" + perl_d_lchown + "'"
3971 $ WC "d_union_semun='" + perl_d_union_semun + "'"
3972 $ WC "i_arpainet='" + perl_i_arpainet + "'"
3973 $ WC "d_grpasswd='" + perl_d_grpasswd + "'"
3974 $ WC "d_setgrent='" + perl_d_setgrent + "'"
3975 $ WC "d_getgrent='" + perl_d_getgrent + "'"
3976 $ WC "d_endgrent='" + perl_d_endgrent + "'"
3977 $ WC "d_pwpasswd='" + perl_d_pwpasswd + "'"
3978 $ WC "d_setpwent='" + perl_d_setpwent + "'"
3979 $ WC "d_getpwent='" + perl_d_getpwent + "'"
3980 $ WC "d_endpwent='" + perl_d_endpwent + "'"
3981 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
3982 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
3983 $ WC "extensions='" + perl_extensions + "'"
3984 $ WC "known_extensions='" + perl_known_extensions + "'"
3985 $ WC "static_ext='" + "'"
3986 $ WC "dynamic_ext='" + perl_extensions + "'"
3987 $ WC "d_mknod='" + perl_d_mknod + "'"
3988 $ WC "devtype='" + perl_devtype + "'"
3989 $ WC "d_gethname='" + perl_d_gethname + "'"
3990 $ WC "d_phostname='" + perl_d_phostname + "'"
3991 $ WC "d_accessx='" + perl_d_accessx + "'"
3992 $ WC "d_eaccess='" + perl_d_eaccess + "'"
3993 $ WC "i_sysaccess='" + perl_i_sysaccess + "'"
3994 $ WC "i_syssecrt='" + perl_i_syssecrt + "'"
3995 $ WC "d_fd_set='" + perl_d_fd_set + "'"
3996 $ WC "d_access='" + perl_d_access + "'"
3997 $ WC "d_msg_ctrunc='" + perl_d_msg_ctrunc + "'"
3998 $ WC "d_msg_dontroute='" + perl_d_msg_dontroute + "'"
3999 $ WC "d_msg_oob='" + perl_d_msg_oob + "'"
4000 $ WC "d_msg_peek='" + perl_d_msg_peek + "'"
4001 $ WC "d_msg_proxy='" + perl_d_msg_proxy + "'"
4002 $ WC "d_scm_rights='" + perl_d_scm_rights + "'"
4003 $ WC "d_sendmsg='" + perl_d_sendmsg + "'"
4004 $ WC "d_recvmsg='" + perl_d_recvmsg + "'"
4005 $ WC "d_msghdr_s='" + perl_d_msghdr_s + "'"
4006 $ WC "d_cmsghdr_s='" + perl_d_cmsghdr_s + "'"
4007 $ WC "i_sysuio='" + perl_i_sysuio + "'"
4008 $ WC "d_fseeko='" + perl_d_fseeko + "'"
4009 $ WC "d_ftello='" + perl_d_ftello + "'"
4010 $ WC "d_readv='" + perl_d_readv + "'"
4011 $ WC "d_writev='" + perl_d_writev + "'"
4012 $ WC "i_machcthr='" + perl_i_machcthr + "'"
4013 $ WC "usemultiplicity='" + perl_usemultiplicity + "'"
4014 $ WC "i_poll='" + perl_i_poll + "'"
4015 $ WC "i_inttypes='" + perl_i_inttypes + "'"
4016 $ WC "d_off64_t='" + perl_d_off64_t + "'"
4017 $ WC "d_fpos64_t='" + perl_d_fpos64_t + "'"
4018 $ WC "use64bitall='" + perl_use64bitall + "'"
4019 $ WC "use64bitint='" + perl_use64bitint + "'"
4020 $ WC "d_drand48proto='" + perl_d_drand48proto + "'"
4021 $ WC "d_lseekproto='" + perl_d_drand48proto + "'"
4022 $ WC "d_old_pthread_create_joinable='" + perl_d_old_pthread_create_joinable + "'"
4023 $ WC "old_pthread_create_joinable='" + perl_old_pthread_create_joinable + "'"
4024 $ WC "drand01='" + perl_drand01 + "'"
4025 $ WC "randseedtype='" + perl_randseedtype + "'"
4026 $ WC "seedfunc='" + perl_seedfunc + "'"
4027 $ WC "sig_num_init='" + perl_sig_num_with_commas + "'"
4028 $ WC "i_sysmount='" + perl_i_sysmount + "'"
4029 $ WC "d_fstatfs='" + perl_d_fstatfs + "'"
4030 $ WC "d_getfsstat='" + perl_d_getfsstat + "'"
4031 $ WC "d_memchr='" + perl_d_memchr + "'"
4032 $ WC "d_statfsflags='" + perl_d_statfsflags + "'"
4033 $ WC "fflushNULL='define'"
4034 $ WC "fflushall='undef'"
4035 $ WC "d_stdio_stream_array='undef'"
4036 $ WC "i_sysstatvfs='" + perl_i_sysstatvfs + "'"
4037 $ WC "i_syslog='" + perl_i_syslog + "'"
4038 $ WC "i_sysmode='" + perl_i_sysmode + "'"
4039 $ WC "i_sysutsname='" + perl_i_sysutsname + "'"
4040 $ WC "i_machcthreads='" + perl_i_machcthreads + "'"
4041 $ WC "i_pthread='" + perl_i_pthread + "'"
4042 $ WC "d_fstatvfs='" + perl_d_fstatvfs + "'"
4043 $ WC "i_mntent='" + perl_i_mntent + "'"
4044 $ WC "d_getmntent='" + perl_d_getmntent + "'"
4045 $ WC "d_hasmntopt='" + perl_d_hasmntopt + "'"
4046 $ WC "d_telldirproto='" + perl_d_telldirproto + "'"
4047 $ WC "d_madvise='" + perl_d_madvise + "'"
4048 $ WC "d_msync='" + perl_d_msync + "'"
4049 $ WC "d_mprotect='" + perl_d_mprotect + "'"
4050 $ WC "d_munmap='" + perl_d_munmap + "'"
4051 $ WC "d_mmap='" + perl_d_mmap + "'"
4052 $ WC "i_sysmman='" + perl_i_sysmman + "'"
4053 $ WC "installusrbinperl='" + perl_installusrbinperl + "'"
4054 $! WC "selectminbits='" + perl_selectminbits + "'"
4055 $ WC "crosscompile='" + perl_crosscompile + "'"
4056 $ WC "multiarch='" + perl_multiarch + "'"
4057 $ WC "sched_yield='" + perl_sched_yield + "'"
4058 $ WC "d_strtoull='" + perl_d_strtoull + "'"
4059 $ WC "d_strtouq='" + perl_d_strtouq + "'"
4060 $ WC "d_strtoll='" + perl_d_strtoll + "'"
4061 $ WC "d_strtold='" + perl_d_strtold + "'"
4062 $ WC "usesocks='" + perl_usesocks + "'"
4063 $ WC "d_vendorlib='" + perl_d_vendorlib + "'"
4064 $ WC "vendorlibexp='" + perl_vendorlibexp + "'"
4065 $ WC "d_atolf='" + perl_d_atolf + "'"
4066 $ WC "d_atoll='" + perl_d_atoll + "'"
4067 $ WC "d_bincompat5005='" + perl_d_bincompat + "'"
4068 $ WC "d_endspent='" + perl_d_endspent + "'"
4069 $ WC "d_getspent='" + perl_d_getspent + "'"
4070 $ WC "d_getspnam='" + perl_d_getspnam + "'"
4071 $ WC "d_setspent='" + perl_d_setspent + "'"
4072 $ WC "i_shadow='" + perl_i_shadow + "'"
4073 $ WC "i_socks='" + perl_i_socks + "'"
4074 $ WC "d_PRIfldbl='" + perl_d_PRIfldbl + "'"
4075 $ WC "d_PRIgldbl='" + perl_d_PRIgldbl + "'"
4076 $ WC "d_PRId64='" + perl_d_PRId64 + "'"
4077 $ WC "d_PRIu64='" + perl_d_PRIu64 + "'"
4078 $ WC "d_PRIo64='" + perl_d_PRIo64 + "'"
4079 $ WC "d_PRIx64='" + perl_d_PRIx64 + "'"
4080 $ WC "sPRIfldbl='" + perl_sPRIfldbl + "'"
4081 $ WC "sPRIgldbl='" + perl_sPRIgldbl + "'"
4082 $ WC "sPRId64='" + perl_sPRId64 + "'"
4083 $ WC "sPRIu64='" + perl_sPRIu64 + "'"
4084 $ WC "sPRIo64='" + perl_sPRIo64 + "'"
4085 $ WC "sPRIx64='" + perl_sPRIx64 + "'"
4086 $ WC "d_llseek='" + perl_d_llseek + "'"
4087 $ WC "d_iconv='" + perl_d_iconv +"'"
4088 $ WC "i_iconv='" + perl_i_iconv +"'"
4089 $ WC "inc_version_list_init='""""'"
4090 $ WC "uselargefiles='" + perl_uselargefiles + "'"
4091 $ WC "uselongdouble='" + perl_uselongdouble + "'"
4092 $ WC "usemorebits='" + perl_usemorebits + "'"
4093 $ WC "d_quad='" + perl_d_quad + "'"
4094 $ if (use_64bitint .eqs. "Y")
4096 $ WC "quadtype='" + perl_quadtype + "'"
4097 $ WC "uquadtype='" + perl_uquadtype + "'"
4099 $ WC "d_fs_data_s='" + perl_d_fs_data_s + "'"
4100 $ WC "d_getcwd='" + perl_d_getcwd + "'"
4101 $ WC "d_getmnt='" + perl_d_getmnt + "'"
4102 $ WC "d_sqrtl='" + perl_d_sqrtl + "'"
4103 $ WC "d_statfs_f_flags='" + perl_d_statfs_f_flags + "'"
4104 $ WC "d_statfs_s='" + perl_d_statfs_s + "'"
4105 $ WC "d_ustat='" + perl_d_ustat + "'"
4106 $ WC "i_sysstatfs='" + perl_i_sysstatfs + "'"
4107 $ WC "i_sysvfs='" + perl_i_sysvfs + "'"
4108 $ WC "i_ustat='" + perl_i_ustat + "'"
4109 $ WC "ivtype='" + perl_ivtype + "'"
4110 $ WC "uvtype='" + perl_uvtype + "'"
4111 $ WC "i8type='" + perl_i8type + "'"
4112 $ WC "i16type='" + perl_i16type + "'"
4113 $ WC "u8type='" + perl_u8type + "'"
4114 $ WC "u16type='" + perl_u16type + "'"
4115 $ WC "i32type='" + perl_i32type + "'"
4116 $ WC "u32type='" + perl_u32type + "'"
4117 $ WC "i64type='" + perl_i64type + "'"
4118 $ WC "u64type='" + perl_u64type + "'"
4119 $ WC "nvtype='" + perl_nvtype + "'"
4120 $ WC "ivsize='" + perl_ivsize + "'"
4121 $ WC "uvsize='" + perl_uvsize + "'"
4122 $ WC "i8size='" + perl_i8size + "'"
4123 $ WC "u8size='" + perl_u8size + "'"
4124 $ WC "i16size='" + perl_i16size + "'"
4125 $ WC "u16size='" + perl_u16size + "'"
4126 $ WC "i32size='" + perl_i32size + "'"
4127 $ WC "u32size='" + perl_u32size + "'"
4128 $ WC "i64size='" + perl_i64size + "'"
4129 $ WC "u64size='" + perl_u64size + "'"
4130 $ WC "ivdformat='" + perl_ivdformat + "'"
4131 $ WC "uvuformat='" + perl_uvuformat + "'"
4132 $ WC "uvoformat='" + perl_uvoformat + "'"
4133 $ WC "uvxformat='" + perl_uvxformat + "'"
4135 $! ##WRITE NEW CONSTANTS HERE##
4139 $! Okay, we've gotten here. Build munchconfig and run it
4140 $ 'Perl_CC' munchconfig.c
4141 $ If (Needs_Opt.eqs."Yes")
4143 $ open/write OPTCHAN []munchconfig.opt
4144 $ IF ("''using_gnu_c'".eqs."Yes")
4146 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
4148 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
4150 $ link munchconfig.obj,munchconfig.opt/opt
4151 $ delete munchconfig.opt;*
4153 $ link munchconfig.obj
4156 $ echo "Writing config.h"
4158 $ ! we need an fdl file
4159 $ CREATE [-]CONFIG.FDL
4162 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
4163 $ ! First spit out the header info with the local defines (to get
4164 $ ! around the 255 character command line limit)
4165 $ OPEN/APPEND CONFIG [-]config.local
4166 $ if use_debugging_perl.eqs."Y"
4168 $ WRITE CONFIG "#define DEBUGGING"
4170 $ if use_two_pot_malloc.eqs."Y"
4172 $ WRITE CONFIG "#define TWO_POT_OPTIMIZE"
4174 $ if mymalloc.eqs."Y"
4176 $ WRITE CONFIG "#define EMBEDMYMALLOC"
4178 $ if use_pack_malloc.eqs."Y"
4180 $ WRITE CONFIG "#define PACK_MALLOC"
4182 $ if use_debugmalloc.eqs."Y"
4184 $ write config "#define DEBUGGING_MSTATS"
4186 $ if "''Using_Gnu_C'" .eqs."Yes"
4188 $ WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
4190 $ if "''Has_Dec_C_Sockets'".eqs."T"
4192 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
4193 $ WRITE CONFIG "#define DECCRTL_SOCKETS"
4195 $ if "''Has_Socketshr'".eqs."T"
4197 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
4199 $! This is VMS-specific for now
4200 $ WRITE CONFIG "#''perl_d_setenv' HAS_SETENV"
4201 $ if d_alwdeftype.eqs."Y"
4203 $ WRITE CONFIG "#define SECURE_INTERNAL_GETENV"
4205 $ WRITE CONFIG "#undef SECURE_INTERNAL_GETENV"
4207 $ if d_secintgenv.eqs."Y"
4209 $ WRITE CONFIG "#define ALWAYS_DEFTYPES"
4211 $ WRITE CONFIG "#undef ALWAYS_DEFTYPES"
4213 $ if use_64bitint.eqs."Y"
4215 $ WRITE CONFIG "#define USE_64_BIT_INT"
4216 $ WRITE CONFIG "#define USE_LONG_DOUBLE"
4218 $ if use_64bitall.eqs."Y"
4220 $ WRITE CONFIG "#define USE_64_BIT_ALL"
4222 $ WRITE CONFIG "#define HAS_ENVGETENV"
4223 $ WRITE CONFIG "#define PERL_EXTERNAL_GLOB"
4226 $! Now build the normal config.h
4227 $ define/user sys$output [-]config.main
4228 $ mcr []munchconfig [-]config.sh [-]config_h.sh
4229 $ ! Concatenate them together
4230 $ copy [-]config.local,[-]config.main [-]config.h
4232 $ DELETE/NOLOG [-]CONFIG.MAIN;*
4233 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
4234 $ DELETE/NOLOG [-]CONFIG.FDL;*
4236 $ if "''Using_Dec_C'" .eqs."Yes"
4238 $ DECC_REPLACE = "DECC=decc=1"
4240 $ DECC_REPLACE = "DECC="
4242 $ if "''Using_Gnu_C'" .eqs."Yes"
4244 $ GNUC_REPLACE = "GNUC=gnuc=1"
4246 $ GNUC_REPLACE = "GNUC="
4248 $ if "''Has_Dec_C_Sockets'" .eqs."T"
4250 $ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
4252 $ if "''Has_Socketshr'" .eqs."T"
4254 $ SOCKET_REPLACE = "SOCKET=SOCKETSHR_SOCKETS=1"
4256 $ SOCKET_REPLACE = "SOCKET="
4259 $ IF ("''Use_Threads'".eqs."T")
4261 $ if ("''VMS_VER'".LES."6.2")
4263 $ THREAD_REPLACE = "THREAD=OLDTHREADED=1"
4265 $ THREAD_REPLACE = "THREAD=THREADED=1"
4268 $ THREAD_REPLACE = "THREAD="
4270 $ if mymalloc.eqs."Y"
4272 $ MALLOC_REPLACE = "MALLOC=MALLOC=1"
4274 $ MALLOC_REPLACE = "MALLOC="
4276 $ if f$getsyi("HW_MODEL").ge.1024
4278 $ ARCH_TYPE = "ARCH-TYPE=__AXP__"
4280 $ ARCH_TYPE = "ARCH-TYPE=__VAX__"
4282 $ echo "Writing DESCRIP.MMS"
4284 $ define/user sys$output [-]descrip.mms
4285 $ 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'"
4286 $ echo "Extracting Build_Ext.Com"
4287 $ Create Sys$Disk:[-]Build_Ext.Com
4288 $ Deck/Dollar="$EndOfTpl$"
4290 $! NOTE: This file is extracted as part of the VMS configuration process.
4291 $! Any changes made to it directly will be lost. If you need to make any
4292 $! changes, please edit the template in [.vms]SubConfigure.Com instead.
4293 $ def = F$Environment("Default")
4294 $ exts1 = F$Edit(p1,"Compress")
4295 $ p2 = F$Edit(p2,"Upcase,Compress,Trim")
4296 $ If F$Locate("MCR ",p2).eq.0 Then p2 = F$Extract(3,255,p2)
4297 $ miniperl = "$" + F$Search(F$Parse(p2,".Exe"))
4299 $ if f$type('p3') .nes. "" then makeutil = 'p3'
4300 $ targ = F$Edit(p4,"Lowercase")
4303 $ ext = F$Element(i," ",p1)
4304 $ If ext .eqs. " " Then Goto done
4305 $ Define/User Perl_Env_Tables CLISYM_LOCAL
4307 ($extdir = $ENV{'ext'}) =~ s/::/./g;
4308 if ($extdir =~ /^vms/i) { $extdir =~ s/vms/.vms.ext/i; }
4309 else { $extdir = ".ext.$extdir"; }
4310 ($ENV{'extdir'} = "[$extdir]");
4311 ($ENV{'up'} = ('-') x ($extdir =~ tr/././));
4312 $ Set Default &extdir
4314 $ If F$Locate("clean",targ) .eqs. F$Length(targ)
4316 $ Write Sys$Output "Building ''ext' . . ."
4317 $ On Error Then Goto done
4318 $ If F$Search("Descrip.MMS") .eqs. ""
4322 $ If F$CvTime(F$File("Descrip.MMS","rdt")) .lts. -
4323 F$CvTime(F$File("Makefile.PL","rdt")) Then redesc = 1
4326 $ Write Sys$Output "''targ'ing ''ext' . . ."
4327 $ On Error Then Continue
4330 miniperl "-I[''up'.lib]" Makefile.PL "INST_LIB=[''up'.lib]" "INST_ARCHLIB=[''up'.lib]"
4344 $! Clean up after ourselves
4345 $ delete/nolog munchconfig.exe;*
4346 $ delete/nolog munchconfig.obj;*