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_i_machcthreads="undef"
92 $ perl_i_pthread="define"
93 $ perl_d_fstatvfs="undef"
94 $ perl_usesocks="undef"
95 $ perl_d_vendorlib="undef"
96 $ perl_vendorlibexp=""
97 $ perl_d_statfsflags="undef"
98 $ perl_i_sysstatvfs="undef"
99 $ perl_i_mntent="undef"
100 $ perl_d_getmntent="undef"
101 $ perl_d_hasmntopt="undef"
102 $ perl_package="''package'"
103 $ perl_baserev = "''baserev'"
105 $ perl_installusrbinperl="undef"
107 $ perl_d_fseeko="undef"
108 $ perl_d_ftello="undef"
109 $ perl_d_readv="undef"
110 $ perl_d_writev="undef"
111 $ perl_i_machcthr="undef"
112 $ perl_i_netdb="undef"
113 $ perl_d_gnulibc="undef"
114 $ perl_cf_by="unknown"
118 $ perl_drand01 = "drand48()"
119 $ perl_randseedtype = "long int"
120 $ perl_seedfunc = "srand48"
121 $ perl_d_msg_ctrunc = "undef"
122 $ perl_d_msg_dontroute = "undef"
123 $ perl_d_msg_oob = "undef"
124 $ perl_d_msg_peek = "undef"
125 $ perl_d_msg_proxy = "undef"
126 $ perl_d_scm_rights = "undef"
127 $ perl_d_sendmsg = "undef"
128 $ perl_d_recvmsg = "undef"
129 $ perl_d_msghdr_s = "undef"
130 $ perl_d_cmsghdr_s = "undef"
131 $ IF use_64bit .eqs. "Y"
133 $ perl_use64bits = "define"
134 $ perl_uselargefiles = "define"
135 $ perl_uselongdouble = "define"
136 $ perl_usemorebits = "define"
138 $ perl_use64bits = "undef"
139 $ perl_uselargefiles = "undef"
140 $ perl_uselongdouble = "undef"
141 $ perl_usemorebits = "undef"
143 $ perl_d_drand48proto = "define"
144 $ perl_libpth="/sys$share /sys$library"
146 $ perl_lddlflags="/Share"
151 $ perl_i_arpainet="undef"
152 $ perl_d_grpasswd="undef"
153 $ perl_d_setgrent="undef"
154 $ perl_d_getgrent="define"
155 $ perl_d_endgrent="define"
156 $ perl_d_pwpasswd="define"
157 $ perl_d_setpwent="define"
158 $ perl_d_getpwent="define"
159 $ perl_d_endpwent="define"
160 $ perl_d_phostname="undef"
161 $ perl_d_accessx="undef"
162 $ perl_d_eaccess="undef"
163 $ perl_ebcdic="undef"
165 $ perl_shrplib="define"
166 $ perl_usemymalloc=mymalloc
167 $ perl_usevfork="true"
168 $ perl_useposix="false"
169 $ perl_spitshell="write sys$output "
170 $ perl_dlsrc="dl_vms.c"
173 $ perl_prefix="perl_root"
174 $ perl_binexp="''perl_prefix':[000000]"
175 $ perl_builddir="''perl_prefix':[000000]"
176 $ perl_installbin="''perl_prefix':[000000]"
177 $ perl_installscript="''perl_prefix':[utils]"
178 $ perl_installman1dir="''perl_prefix':[man.man1]"
179 $ perl_installman3dir="''perl_prefix':[man.man3]"
180 $ perl_installprivlib="''perl_prefix':[lib]"
181 $ perl_installsitelib="''perl_prefix':[lib.site_perl]"
184 $ perl_d_sockpair="undef"
185 $ perl_i_neterrno="define"
186 $ perl_ldflags="/NoTrace/NoMap"
187 $ perl_d_lchown="undef"
188 $ perl_d_mknod="undef"
189 $ perl_d_union_semun="undef"
190 $ perl_d_semctl_semun="undef"
191 $ perl_d_semctl_semid_ds="undef"
192 $ IF (sharedperl.EQS."Y" .AND. F$GETSYI("HW_MODEL").GE.1024)
194 $ perl_obj_ext=".abj"
197 $ perl_exe_ext=".axe"
198 $ perl_lib_ext=".alb"
200 $ perl_obj_ext=".obj"
203 $ perl_exe_ext=".exe"
204 $ perl_lib_ext=".olb"
206 $ perl_dlobj="dl_vms''perl_obj_ext'"
208 $ perl_d_archlib="define"
209 $ perl_d_bincompat3="undef"
210 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
212 $ perl_d_castneg="define"
214 $ perl_d_chsize="undef"
215 $ perl_d_const="define"
216 $ perl_d_crypt="define"
217 $ perl_byteorder="1234"
220 $ perl_d_dup2="define"
221 $ perl_d_fchmod="undef"
222 $ perl_d_fchown="undef"
223 $ perl_d_fcntl="undef"
224 $ perl_d_fgetpos="define"
225 $ perl_d_flexfnam="define"
226 $ perl_d_flock="undef"
227 $ perl_d_fsetpos="define"
228 $ perl_d_getgrps="undef"
229 $ perl_d_setgrps="undef"
230 $ perl_d_getprior="undef"
231 $ perl_d_killpg="undef"
232 $ perl_d_link="undef"
233 $ perl_d_lstat="undef"
234 $ perl_d_lockf="undef"
235 $ perl_d_memcmp="define"
236 $ perl_d_memcpy="define"
237 $ perl_d_memmove="define"
238 $ perl_d_memset="define"
239 $ perl_d_mkdir="define"
241 $ perl_d_open3="define"
242 $ perl_d_poll="undef"
243 $ perl_d_readdir="define"
244 $ perl_d_seekdir="define"
245 $ perl_d_telldir="define"
246 $ perl_d_rewinddir="define"
247 $ perl_d_rename="define"
248 $ perl_d_rmdir="define"
250 $ perl_d_setegid="undef"
251 $ perl_d_seteuid="undef"
252 $ perl_d_setprior="undef"
253 $ perl_d_setregid="undef"
254 $ perl_d_setresgid="undef"
255 $ perl_d_setreuid="undef"
256 $ perl_d_setresuid="undef"
257 $ perl_d_setrgid="undef"
258 $ perl_d_setruid="undef"
259 $ perl_d_setsid="undef"
261 $ perl_d_shmatprototype="undef"
262 $ perl_d_statblks="undef"
263 $ perl_stdio_ptr="((*fp)->_ptr)"
264 $ perl_stdio_cnt="((*fp)->_cnt)"
265 $ perl_stdio_base="((*fp)->_base)"
266 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
267 $ perl_d_strctcpy="define"
268 $ perl_d_strerror="define"
269 $ perl_d_syserrlst="undef"
270 $ perl_d_strerrm="strerror((e),vaxc$errno)"
271 $ perl_d_symlink="undef"
272 $ perl_d_syscall="undef"
273 $ perl_d_system="define"
274 $ perl_timetype="time_t"
275 $ perl_d_vfork="define"
276 $ perl_signal_t="void"
277 $ perl_d_volatile="define"
278 $ perl_d_vprintf="define"
279 $ perl_d_charvspr="undef"
280 $ perl_d_waitpid="define"
281 $ perl_i_dirent="undef"
282 $ perl_d_dirnamlen="define"
283 $ perl_direntrytype="struct dirent"
284 $ perl_i_fcntl="undef"
286 $ perl_i_limits="define"
287 $ perl_i_memory="undef"
288 $ perl_i_ndbm="undef"
289 $ perl_i_stdarg="define"
291 $ perl_d_pwquota="undef"
292 $ perl_d_pwage="undef"
293 $ perl_d_pwchange="undef"
294 $ perl_d_pwclass="undef"
295 $ perl_d_pwexpire="undef"
296 $ perl_d_pwcomment="define"
297 $ perl_i_stddef="define"
298 $ perl_i_stdlib="define"
299 $ perl_i_string="define"
300 $ perl_i_sysdir="undef"
301 $ perl_i_sysfile="undef"
302 $ perl_i_sysioctl="undef"
303 $ perl_i_sysndir="undef"
304 $ perl_i_sysresrc="undef"
305 $ perl_i_sysselct="undef"
307 $ perl_i_rpcsvcdbm="undef"
308 $ perl_i_sfio="undef"
309 $ perl_i_sysstat="define"
310 $ perl_i_systimes="undef"
311 $ perl_i_systypes="define"
312 $ perl_i_sysun="undef"
313 $ perl_i_syswait="undef"
314 $ perl_i_termio="undef"
315 $ perl_i_sgtty="undef"
316 $ perl_i_termios="undef"
317 $ perl_i_time="define"
318 $ perl_i_systime="undef"
319 $ perl_i_systimek="undef"
320 $! perl_i_unistd="undef"
321 $ perl_i_utime="undef"
322 $ perl_i_varargs="undef"
323 $ perl_i_vfork="undef"
324 $ perl_prototype="define"
326 $ perl_stdchar="char"
327 $ perl_d_unlink_all_versions="undef"
328 $ perl_full_sed="_NLA0:"
329 $ perl_bin="/''perl_prefix'/000000"
330 $ perl_binexp="''perl_prefix':[000000]"
331 $ perl_d_alarm="define"
332 $ perl_d_casti32="define"
333 $ perl_d_chown="define"
334 $ perl_d_chroot="undef"
335 $ perl_d_cuserid="define"
336 $ perl_d_dbl_dig="define"
337 $ perl_d_ldbl_dig="define"
338 $ perl_d_difftime="define"
339 $ perl_d_fork="undef"
340 $ perl_d_getlogin="define"
341 $ perl_d_getppid="undef"
342 $ perl_d_nice="define"
343 $ perl_d_pause="define"
344 $ perl_d_pipe="define"
345 $ perl_d_readlink="undef"
346 $ perl_d_setlinebuf="undef"
347 $ perl_d_strchr="define"
348 $ perl_d_strtod="define"
349 $ perl_d_strtol="define"
350 $ perl_d_strtoul="define"
351 $ perl_d_tcgetpgrp="undef"
352 $ perl_d_tcsetpgrp="undef"
353 $ perl_d_times="define"
354 $ perl_d_tzname="undef"
355 $ perl_d_umask="define"
356 $ perl_fpostype="fpos_t"
357 $ perl_i_dlfcn="undef"
358 $ perl_i_float="define"
359 $ perl_i_math="define"
360 $ perl_lseektype="int"
361 $ perl_i_values="undef"
362 $ perl_malloctype="void *"
363 $ perl_freetype="void"
364 $ if "''mymalloc'".eqs."Y"
366 $ perl_d_mymalloc="define"
368 $ perl_d_mymalloc="undef"
371 $ perl_modetype="unsigned int"
372 $ perl_ssizetype="int"
373 $ perl_o_nonblock=" "
376 $ perl_d_eofnblk="undef"
377 $ perl_d_oldarchlib="define"
378 $ perl_privlibexp="''perl_prefix':[lib]"
379 $ perl_privlib="''perl_prefix':[lib]"
380 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
381 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
382 $ perl_sizetype="size_t"
383 $ perl_i_sysparam="undef"
384 $ perl_d_void_closedir="define"
385 $ perl_d_dlerror="undef"
386 $ perl_d_dlsymun="undef"
387 $ perl_d_suidsafe="undef"
388 $ perl_d_dosuid="undef"
389 $ perl_d_inetaton="undef"
390 $ perl_d_isascii="define"
391 $ perl_d_mkfifo="undef"
392 $ perl_d_safebcpy="undef"
393 $ perl_d_safemcpy="define"
394 $ perl_d_sanemcmp="define"
395 $ perl_d_setpgrp="undef"
396 $ perl_d_bsdsetpgrp="undef"
397 $ perl_d_bsdpgrp="undef"
398 $ perl_d_setpgid="undef"
399 $ perl_d_setpgrp2="undef"
400 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
401 $ perl_d_getpgid="undef"
402 $ perl_d_getpgrp="undef"
403 $ perl_d_bsdgetpgrp="undef"
404 $ perl_d_getpgrp2="undef"
405 $ perl_d_sfio="undef"
406 $ perl_usedl="define"
407 $ perl_startperl="""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ + ++$status != 0 and $exit = $status = undef;"""
408 $ perl_db_hashtype=" "
409 $ perl_db_prefixtype=" "
410 $ perl_useperlio="undef"
411 $ perl_defvoidused="15"
412 $ perl_voidflags="15"
413 $ perl_d_eunice="undef"
414 $ perl_d_pwgecos="define"
415 $ IF ("''Use_Threads'".eqs."T").and.("''VMS_VER'".LES."6.2")
417 $ 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"
421 $ IF ("''Using_Dec_C'".eqs."Yes")
423 $ perl_libc="(DECCRTL)"
427 $ perl_PATCHLEVEL="''patchlevel'"
428 $ perl_SUBVERSION="''subversion'"
433 $ if (use_64bit .eqs. "Y")
435 $ perl_d_PRIfldbl = "define"
436 $ perl_d_PRIgldbl = "define"
437 $ perl_d_PRId64 = "define"
438 $ perl_d_PRIu64 = "define"
439 $ perl_d_PRIo64 = "define"
440 $ perl_d_PRIx64 = "define"
441 $ perl_sPRIfldbl = """Lf"""
442 $ perl_sPRIgldbl = """Lg"""
443 $ perl_sPRId64 = """Ld"""
444 $ perl_sPRIu64 = """Lu"""
445 $ perl_sPRIo64 = """Lo"""
446 $ perl_sPRIx64 = """Lx"""
447 $ perl_d_quad = "define"
448 $ perl_quadtype = "long long"
449 $ perl_uquadtype = "unsigned long long"
451 $ perl_d_PRIfldbl = "undef"
452 $ perl_d_PRIgldbl = "undef"
453 $ perl_d_PRId64 = "undef"
454 $ perl_d_PRIu64 = "undef"
455 $ perl_d_PRIo64 = "undef"
456 $ perl_d_PRIx64 = "undef"
457 $ perl_sPRIfldbl = ""
458 $ perl_sPRIgldbl = ""
463 $ perl_d_quad = "undef"
466 $! Now some that we build up
468 $ LocalTime = f$time()
469 $ perl_cf_time= f$extract(0, 3, f$cvtime(LocalTime,, "WEEKDAY")) + " " + -
470 f$edit(f$cvtime(LocalTime, "ABSOLUTE", "MONTH"), "LOWERCASE") + -
471 " " + f$cvtime(LocalTime,, "DAY") + " " + f$cvtime(LocalTime,, "TIME") + -
472 " " + f$cvtime(LocalTime,, "YEAR")
473 $ if f$getsyi("HW_MODEL").ge.1024
475 $ perl_arch="VMS_AXP"
476 $ perl_archname="VMS_AXP"
477 $ perl_alignbytes="8"
479 $ perl_arch="VMS_VAX"
480 $ perl_archname="VMS_VAX"
481 $ perl_alignbytes="8"
483 $ if ("''Use_Threads'".eqs."T")
485 $ perl_arch = "''perl_arch'-thread"
486 $ perl_archname = "''perl_archname'-thread"
487 $ perl_d_old_pthread_create_joinable = "undef"
488 $ perl_old_pthread_create_joinable = " "
489 $ perl_use5005threads = "define"
491 $ perl_d_old_pthread_create_joinable = "undef"
492 $ perl_old_pthread_create_joinable = " "
493 $ perl_use5005threads = "undef"
495 $ perl_useithreads = "undef"
496 $ perl_osvers=f$edit(osvers, "TRIM")
497 $ if (perl_subversion + 0).eq.0
499 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL
501 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion
504 $! Some that we need to invoke the compiler for
505 $ OS := "open/write SOURCECHAN []temp.c"
506 $ WS := "write SOURCECHAN"
507 $ CS := "close SOURCECHAN"
508 $ DS := "delete/nolog []temp.*;*"
510 $ if ("''using_vax_c'".eqs."Yes").or.("''using_gnu_c'".eqs."Yes")
512 $ open/write OPTCHAN []temp.opt
513 $ IF ("''using_gnu_c'".eqs."Yes")
515 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
517 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
522 $! Check for __STDC__
526 $ WS "#include <stdlib.h>
528 $ WS "#include <stdio.h>
531 $ WS "#ifdef __STDC__
532 $ WS "printf(""42\n"");
534 $ WS "printf(""1\n"");
539 $ DEFINE SYS$ERROR _NLA0:
540 $ DEFINE SYS$OUTPUT _NLA0:
541 $ ON ERROR THEN CONTINUE
542 $ ON WARNING THEN CONTINUE
544 $ If (Needs_Opt.eqs."Yes")
546 $ link temp.obj,temp.opt/opt
550 $ DEASSIGN SYS$OUTPUT
552 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
553 $ DEFINE SYS$ERROR TEMPOUT
554 $ DEFINE SYS$OUTPUT TEMPOUT
557 $ DEASSIGN SYS$OUTPUT
559 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
562 $ DELETE/NOLOG [-.uu]tempout.lis;
564 $ perl_cpp_stuff=line
565 $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
567 $! Check for double size
571 $ WS "#include <stdlib.h>
573 $ WS "#include <stdio.h>
577 $ WS "foo = sizeof(double);
578 $ WS "printf(""%d\n"", foo);
582 $ DEFINE SYS$ERROR _NLA0:
583 $ DEFINE SYS$OUTPUT _NLA0:
584 $ ON ERROR THEN CONTINUE
585 $ ON WARNING THEN CONTINUE
587 $ If (Needs_Opt.eqs."Yes")
589 $ link temp.obj,temp.opt/opt
593 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
594 $ DEASSIGN SYS$OUTPUT
596 $ DEFINE SYS$ERROR TEMPOUT
597 $ DEFINE SYS$OUTPUT TEMPOUT
600 $ DEASSIGN SYS$OUTPUT
602 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
605 $ DELETE/NOLOG [-.uu]tempout.lis;
607 $ perl_doublesize=line
608 $ WRITE_RESULT "doublesize is ''perl_doublesize'"
610 $! Check for long double size
614 $ WS "#include <stdlib.h>
616 $ WS "#include <stdio.h>
619 $ WS "printf(""%d\n"", sizeof(long double));
623 $ DEFINE SYS$ERROR _NLA0:
624 $ DEFINE SYS$OUTPUT _NLA0:
625 $ ON ERROR THEN CONTINUE
626 $ ON WARNING THEN CONTINUE
628 $ teststatus = f$extract(9,1,$status)
629 $ if (teststatus.nes."1")
631 $ perl_longdblsize="0"
632 $ perl_d_longdbl="undef"
634 $ ON ERROR THEN CONTINUE
635 $ ON WARNING THEN CONTINUE
636 $ If (Needs_Opt.eqs."Yes")
638 $ link temp.obj,temp.opt/opt
642 $ teststatus = f$extract(9,1,$status)
643 $ DEASSIGN SYS$OUTPUT
645 $ if (teststatus.nes."1")
647 $ perl_longdblsize="0"
648 $ perl_d_longdbl="undef"
650 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
651 $ DEFINE SYS$ERROR TEMPOUT
652 $ DEFINE SYS$OUTPUT TEMPOUT
655 $ DEASSIGN SYS$OUTPUT
657 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
660 $ DELETE/NOLOG [-.uu]tempout.lis;
662 $ perl_longdblsize=line
663 $ perl_d_longdbl="define"
666 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
667 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
669 $! Check for long long existance and size
673 $ WS "#include <stdlib.h>
675 $ WS "#include <stdio.h>
678 $ WS "printf(""%d\n"", sizeof(long long));
682 $ DEFINE SYS$ERROR _NLA0:
683 $ DEFINE SYS$OUTPUT _NLA0:
684 $ on error then continue
685 $ on warning then continue
687 $ If (Needs_Opt.eqs."Yes")
689 $ link temp.obj,temp.opt/opt
693 $ teststatus = f$extract(9,1,$status)
694 $ DEASSIGN SYS$OUTPUT
696 $ if (teststatus.nes."1")
698 $ perl_longlongsize="0"
699 $ perl_d_longlong="undef"
701 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
702 $ DEFINE SYS$ERROR TEMPOUT
703 $ DEFINE SYS$OUTPUT TEMPOUT
706 $ DEASSIGN SYS$OUTPUT
708 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
711 $ DELETE/NOLOG [-.uu]tempout.lis;
712 $ perl_longlongsize=line
713 $ perl_d_longlong="define"
715 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
716 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
718 $! Check the prototype for getgid
722 $ WS "#include <stdlib.h>
724 $ WS "#include <stdio.h>
725 $ WS "#include <types.h>
726 $ WS "#include <unistd.h>
733 $ DEFINE SYS$ERROR _NLA0:
734 $ DEFINE SYS$OUTPUT _NLA0:
735 $ on error then continue
736 $ on warning then continue
738 $ teststatus = f$extract(9,1,$status)
739 $ DEASSIGN SYS$OUTPUT
741 $ if (teststatus.nes."1")
743 $! Okay, gid_t failed. Must be unsigned int
744 $ perl_gidtype = "unsigned int"
746 $ perl_gidtype = "gid_t"
748 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
750 $! Check to see if we've got dev_t
754 $ WS "#include <stdlib.h>
756 $ WS "#include <stdio.h>
757 $ WS "#include <types.h>
758 $ WS "#include <unistd.h>
765 $ DEFINE SYS$ERROR _NLA0:
766 $ DEFINE SYS$OUTPUT _NLA0:
767 $ on error then continue
768 $ on warning then continue
770 $ teststatus = f$extract(9,1,$status)
771 $ DEASSIGN SYS$OUTPUT
773 $ if (teststatus.nes."1")
775 $! Okay, dev_t failed. Must be unsigned int
776 $ perl_devtype = "unsigned int"
778 $ perl_devtype = "dev_t"
780 $ WRITE_RESULT "Dev_t is ''perl_devtype'"
782 $! Check to see if we've got unistd.h (which we ought to, but you never know)
786 $ WS "#include <stdlib.h>
788 $ WS "#include <unistd.h>
794 $ DEFINE SYS$ERROR _NLA0:
795 $ DEFINE SYS$OUTPUT _NLA0:
796 $ on error then continue
797 $ on warning then continue
799 $ teststatus = f$extract(9,1,$status)
800 $ DEASSIGN SYS$OUTPUT
802 $ if (teststatus.nes."1")
804 $! Okay, failed. Must not have it
805 $ perl_i_unistd = "undef"
807 $ perl_i_unistd = "define"
810 $ WRITE_RESULT "i_unistd is ''perl_i_unistd'"
812 $! Check to see if we've got shadow.h (probably not, but...)
816 $ WS "#include <stdlib.h>
818 $ WS "#include <shadow.h>
824 $ DEFINE SYS$ERROR _NLA0:
825 $ DEFINE SYS$OUTPUT _NLA0:
826 $ on error then continue
827 $ on warning then continue
829 $ teststatus = f$extract(9,1,$status)
830 $ DEASSIGN SYS$OUTPUT
832 $ if (teststatus.nes."1")
834 $! Okay, failed. Must not have it
835 $ perl_i_shadow = "undef"
837 $ perl_i_shadow = "define"
840 $ WRITE_RESULT "i_shadow is ''perl_i_shadow'"
842 $! Check to see if we've got socks.h (probably not, but...)
846 $ WS "#include <stdlib.h>
848 $ WS "#include <socks.h>
854 $ DEFINE SYS$ERROR _NLA0:
855 $ DEFINE SYS$OUTPUT _NLA0:
856 $ on error then continue
857 $ on warning then continue
859 $ teststatus = f$extract(9,1,$status)
860 $ DEASSIGN SYS$OUTPUT
862 $ if (teststatus.nes."1")
864 $! Okay, failed. Must not have it
865 $ perl_i_socks = "undef"
867 $ perl_i_socks = "define"
870 $ WRITE_RESULT "i_socks is ''perl_i_socks'"
872 $! Check the prototype for select
874 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
878 $ WS "#include <stdlib.h>
880 $ WS "#include <stdio.h>
881 $ WS "#include <types.h>
882 $ WS "#include <unistd.h>
883 $ if ("''Has_Socketshr'".eqs."T")
885 $ WS "#include <socketshr.h>"
887 $ WS "#include <time.h>
888 $ WS "#include <socket.h>
895 $ WS "bar = select(2, foo, foo, foo, NULL);
899 $ DEFINE SYS$ERROR _NLA0:
900 $ DEFINE SYS$OUTPUT _NLA0:
901 $ on error then continue
902 $ on warning then continue
904 $ teststatus = f$extract(9,1,$status)
905 $ DEASSIGN SYS$OUTPUT
907 $ if (teststatus.nes."1")
909 $! Okay, fd_set failed. Must be an int
910 $ perl_selecttype = "int *"
912 $ perl_selecttype="fd_set *"
915 $ ! No sockets, so stick in an int *
916 $ perl_selecttype = "int *"
918 $ WRITE_RESULT "selectype is ''perl_selecttype'"
920 $! Check to see if fd_set exists
924 $ WS "#include <stdlib.h>
926 $ WS "#include <stdio.h>
927 $ WS "#include <types.h>
928 $ WS "#include <unistd.h>
929 $ if ("''Has_Socketshr'".eqs."T")
931 $ WS "#include <socketshr.h>"
933 $ IF ("''Has_Dec_C_Sockets'".eqs."T")
935 $ WS "#include <time.h>
936 $ WS "#include <socket.h>
945 $ DEFINE SYS$ERROR _NLA0:
946 $ DEFINE SYS$OUTPUT _NLA0:
947 $ on error then continue
948 $ on warning then continue
950 $ teststatus = f$extract(9,1,$status)
951 $ DEASSIGN SYS$OUTPUT
953 $ if (teststatus.nes."1")
955 $! Okay, fd_set failed. Must not exist
956 $ perl_d_fd_set = "undef"
958 $ perl_d_fd_set="define"
960 $ WRITE_RESULT "d_fd_set is ''perl_d_fd_set'"
962 $! Check for inttypes.h
966 $ WS "#include <stdlib.h>
968 $ WS "#include <stdio.h>
969 $ WS "#include <unistd.h>
970 $ WS "#include <inttypes.h>
976 $ DEFINE SYS$ERROR _NLA0:
977 $ DEFINE SYS$OUTPUT _NLA0:
978 $ on error then continue
979 $ on warning then continue
981 $ savedstatus = $status
982 $ teststatus = f$extract(9,1,savedstatus)
983 $ if (teststatus.nes."1")
985 $ perl_i_inttypes="undef"
986 $ DEASSIGN SYS$OUTPUT
989 $ If (Needs_Opt.eqs."Yes")
991 $ link temp.obj,temp.opt/opt
995 $ savedstatus = $status
996 $ teststatus = f$extract(9,1,savedstatus)
997 $ DEASSIGN SYS$OUTPUT
999 $ if (teststatus.nes."1")
1001 $ perl_i_inttypes="undef"
1003 $ perl_i_inttypes="define"
1006 $ WRITE_RESULT "i_inttypes is ''perl_i_inttypes'"
1008 $! Check to see if int64_t exists
1012 $ WS "#include <stdlib.h>
1014 $ WS "#include <stdio.h>
1015 $ WS "#include <types.h>
1016 $ WS "#''perl_i_inttypes IIH
1018 $ WS "#include <inttypes.h>
1020 $ WS "#include <unistd.h>
1027 $ DEFINE SYS$ERROR _NLA0:
1028 $ DEFINE SYS$OUTPUT _NLA0:
1029 $ on error then continue
1030 $ on warning then continue
1032 $ teststatus = f$extract(9,1,$status)
1033 $ DEASSIGN SYS$OUTPUT
1034 $ DEASSIGN SYS$ERROR
1035 $ if (teststatus.nes."1")
1037 $! Okay, int64_t failed. Must not exist
1038 $ perl_d_int64_t = "undef"
1040 $ perl_d_int64_t="define"
1042 $ WRITE_RESULT "d_int64_t is ''perl_d_int64_t'"
1044 $! Check to see if off64_t exists
1048 $ WS "#include <stdlib.h>
1050 $ WS "#include <stdio.h>
1051 $ WS "#include <types.h>
1052 $ WS "#''perl_i_inttypes IIH
1054 $ WS "#include <inttypes.h>
1056 $ WS "#include <unistd.h>
1063 $ DEFINE SYS$ERROR _NLA0:
1064 $ DEFINE SYS$OUTPUT _NLA0:
1065 $ on error then continue
1066 $ on warning then continue
1068 $ teststatus = f$extract(9,1,$status)
1069 $ DEASSIGN SYS$OUTPUT
1070 $ DEASSIGN SYS$ERROR
1071 $ if (teststatus.nes."1")
1073 $! Okay, off64_t failed. Must not exist
1074 $ perl_d_off64_t = "undef"
1076 $ perl_d_off64_t="define"
1078 $ WRITE_RESULT "d_off64_t is ''perl_d_off64_t'"
1080 $! Check to see if fpos64_t exists
1084 $ WS "#include <stdlib.h>
1086 $ WS "#include <stdio.h>
1087 $ WS "#include <types.h>
1088 $ WS "#''perl_i_inttypes IIH
1090 $ WS "#include <inttypes.h>
1092 $ WS "#include <unistd.h>
1099 $ DEFINE SYS$ERROR _NLA0:
1100 $ DEFINE SYS$OUTPUT _NLA0:
1101 $ on error then continue
1102 $ on warning then continue
1104 $ teststatus = f$extract(9,1,$status)
1105 $ DEASSIGN SYS$OUTPUT
1106 $ DEASSIGN SYS$ERROR
1107 $ if (teststatus.nes."1")
1109 $! Okay, fpos64_t failed. Must not exist
1110 $ perl_d_fpos64_t = "undef"
1112 $ perl_d_fpos64_t="define"
1114 $ WRITE_RESULT "d_fpos64_t is ''perl_d_fpos64_t'"
1116 $! Check to see if gethostname exists
1118 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1122 $ WS "#include <stdlib.h>
1124 $ WS "#include <stdio.h>
1125 $ WS "#include <types.h>
1126 $ WS "#include <unistd.h>
1127 $ if ("''Has_Socketshr'".eqs."T")
1129 $ WS "#include <socketshr.h>"
1131 $ WS "#include <time.h>
1132 $ WS "#include <socket.h>
1136 $ WS "char name[100];
1139 $ WS "baz = gethostname(name, bar);
1143 $ DEFINE SYS$ERROR _NLA0:
1144 $ DEFINE SYS$OUTPUT _NLA0:
1145 $ on error then continue
1146 $ on warning then continue
1148 $ teststatus = f$extract(9,1,$status)
1149 $ DEASSIGN SYS$OUTPUT
1150 $ DEASSIGN SYS$ERROR
1151 $ if (teststatus.nes."1")
1153 $! Okay, compile failed. Must not have it
1154 $ perl_dgethname = "undef"
1156 $ If (Needs_Opt.eqs."Yes")
1158 $ link temp.obj,temp.opt/opt
1162 $ savedstatus = $status
1163 $ teststatus = f$extract(9,1,savedstatus)
1164 $ if (teststatus.nes."1")
1166 $ perl_d_gethname="undef"
1168 $ perl_d_gethname="define"
1172 $ ! No sockets, so no gethname
1173 $ perl_d_gethname = "undef"
1175 $ WRITE_RESULT "d_gethname is ''perl_d_gethname'"
1177 $! Check for sys/file.h
1181 $ WS "#include <stdlib.h>
1183 $ WS "#include <stdio.h>
1184 $ WS "#include <unistd.h>
1185 $ WS "#include <sys/file.h>
1191 $ DEFINE SYS$ERROR _NLA0:
1192 $ DEFINE SYS$OUTPUT _NLA0:
1193 $ on error then continue
1194 $ on warning then continue
1196 $ savedstatus = $status
1197 $ teststatus = f$extract(9,1,savedstatus)
1198 $ if (teststatus.nes."1")
1200 $ perl_i_sysfile="undef"
1201 $ DEASSIGN SYS$OUTPUT
1202 $ DEASSIGN SYS$ERROR
1204 $ If (Needs_Opt.eqs."Yes")
1206 $ link temp.obj,temp.opt/opt
1210 $ savedstatus = $status
1211 $ teststatus = f$extract(9,1,savedstatus)
1212 $ DEASSIGN SYS$OUTPUT
1213 $ DEASSIGN SYS$ERROR
1214 $ if (teststatus.nes."1")
1216 $ perl_i_sysfile="undef"
1218 $ perl_i_sysfile="define"
1221 $ WRITE_RESULT "i_sysfile is ''perl_i_sysfile'"
1223 $! Check for sys/utsname.h
1227 $ WS "#include <stdlib.h>
1229 $ WS "#include <stdio.h>
1230 $ WS "#include <unistd.h>
1231 $ WS "#include <sys/utsname.h>
1237 $ DEFINE SYS$ERROR _NLA0:
1238 $ DEFINE SYS$OUTPUT _NLA0:
1239 $ on error then continue
1240 $ on warning then continue
1242 $ savedstatus = $status
1243 $ teststatus = f$extract(9,1,savedstatus)
1244 $ if (teststatus.nes."1")
1246 $ perl_i_sysutsname="undef"
1247 $ DEASSIGN SYS$OUTPUT
1248 $ DEASSIGN SYS$ERROR
1250 $ If (Needs_Opt.eqs."Yes")
1252 $ link temp.obj,temp.opt/opt
1256 $ savedstatus = $status
1257 $ teststatus = f$extract(9,1,savedstatus)
1258 $ DEASSIGN SYS$OUTPUT
1259 $ DEASSIGN SYS$ERROR
1260 $ if (teststatus.nes."1")
1262 $ perl_i_sysutsname="undef"
1264 $ perl_i_sysutsname="define"
1267 $ WRITE_RESULT "i_sysutsname is ''perl_i_sysutsname'"
1269 $! Check for syslog.h
1273 $ WS "#include <stdlib.h>
1275 $ WS "#include <stdio.h>
1276 $ WS "#include <unistd.h>
1277 $ WS "#include <syslog.h>
1283 $ DEFINE SYS$ERROR _NLA0:
1284 $ DEFINE SYS$OUTPUT _NLA0:
1285 $ on error then continue
1286 $ on warning then continue
1288 $ savedstatus = $status
1289 $ teststatus = f$extract(9,1,savedstatus)
1290 $ if (teststatus.nes."1")
1292 $ perl_i_syslog="undef"
1293 $ DEASSIGN SYS$OUTPUT
1294 $ DEASSIGN SYS$ERROR
1296 $ If (Needs_Opt.eqs."Yes")
1298 $ link temp.obj,temp.opt/opt
1302 $ savedstatus = $status
1303 $ teststatus = f$extract(9,1,savedstatus)
1304 $ DEASSIGN SYS$OUTPUT
1305 $ DEASSIGN SYS$ERROR
1306 $ if (teststatus.nes."1")
1308 $ perl_i_syslog="undef"
1310 $ perl_i_syslog="define"
1313 $ WRITE_RESULT "i_syslog is ''perl_i_syslog'"
1319 $ WS "#include <stdlib.h>
1321 $ WS "#include <stdio.h>
1322 $ WS "#include <unistd.h>
1323 $ WS "#include <poll.h>
1329 $ DEFINE SYS$ERROR _NLA0:
1330 $ DEFINE SYS$OUTPUT _NLA0:
1331 $ on error then continue
1332 $ on warning then continue
1334 $ savedstatus = $status
1335 $ teststatus = f$extract(9,1,savedstatus)
1336 $ if (teststatus.nes."1")
1338 $ perl_i_poll="undef"
1339 $ DEASSIGN SYS$OUTPUT
1340 $ DEASSIGN SYS$ERROR
1342 $ If (Needs_Opt.eqs."Yes")
1344 $ link temp.obj,temp.opt/opt
1348 $ savedstatus = $status
1349 $ teststatus = f$extract(9,1,savedstatus)
1350 $ DEASSIGN SYS$OUTPUT
1351 $ DEASSIGN SYS$ERROR
1352 $ if (teststatus.nes."1")
1354 $ perl_i_poll="undef"
1356 $ perl_i_poll="define"
1359 $ WRITE_RESULT "i_poll is ''perl_i_poll'"
1361 $! Check for sys/uio.h
1365 $ WS "#include <stdlib.h>
1367 $ WS "#include <stdio.h>
1368 $ WS "#include <unistd.h>
1369 $ WS "#include <sys/uio.h>
1375 $ DEFINE SYS$ERROR _NLA0:
1376 $ DEFINE SYS$OUTPUT _NLA0:
1377 $ on error then continue
1378 $ on warning then continue
1380 $ savedstatus = $status
1381 $ teststatus = f$extract(9,1,savedstatus)
1382 $ if (teststatus.nes."1")
1384 $ perl_i_sysuio="undef"
1385 $ DEASSIGN SYS$OUTPUT
1386 $ DEASSIGN SYS$ERROR
1388 $ If (Needs_Opt.eqs."Yes")
1390 $ link temp.obj,temp.opt/opt
1394 $ savedstatus = $status
1395 $ teststatus = f$extract(9,1,savedstatus)
1396 $ DEASSIGN SYS$OUTPUT
1397 $ DEASSIGN SYS$ERROR
1398 $ if (teststatus.nes."1")
1400 $ perl_i_sysuio="undef"
1402 $ perl_i_sysuio="define"
1405 $ WRITE_RESULT "i_sysuio is ''perl_i_sysuio'"
1407 $! Check for sys/mode.h
1411 $ WS "#include <stdlib.h>
1413 $ WS "#include <stdio.h>
1414 $ WS "#include <unistd.h>
1415 $ WS "#include <sys/mode.h>
1421 $ DEFINE SYS$ERROR _NLA0:
1422 $ DEFINE SYS$OUTPUT _NLA0:
1423 $ on error then continue
1424 $ on warning then continue
1426 $ savedstatus = $status
1427 $ teststatus = f$extract(9,1,savedstatus)
1428 $ if (teststatus.nes."1")
1430 $ perl_i_sysmode="undef"
1431 $ DEASSIGN SYS$OUTPUT
1432 $ DEASSIGN SYS$ERROR
1434 $ If (Needs_Opt.eqs."Yes")
1436 $ link temp.obj,temp.opt/opt
1440 $ savedstatus = $status
1441 $ teststatus = f$extract(9,1,savedstatus)
1442 $ DEASSIGN SYS$OUTPUT
1443 $ DEASSIGN SYS$ERROR
1444 $ if (teststatus.nes."1")
1446 $ perl_i_sysmode="undef"
1448 $ perl_i_sysmode="define"
1451 $ WRITE_RESULT "i_sysmode is ''perl_i_sysmode'"
1453 $! Check for sys/access.h
1457 $ WS "#include <stdlib.h>
1459 $ WS "#include <stdio.h>
1460 $ WS "#include <unistd.h>
1461 $ WS "#include <sys/access.h>
1467 $ DEFINE SYS$ERROR _NLA0:
1468 $ DEFINE SYS$OUTPUT _NLA0:
1469 $ on error then continue
1470 $ on warning then continue
1472 $ savedstatus = $status
1473 $ teststatus = f$extract(9,1,savedstatus)
1474 $ if (teststatus.nes."1")
1476 $ perl_i_sysaccess="undef"
1477 $ DEASSIGN SYS$OUTPUT
1478 $ DEASSIGN SYS$ERROR
1480 $ If (Needs_Opt.eqs."Yes")
1482 $ link temp.obj,temp.opt/opt
1486 $ savedstatus = $status
1487 $ teststatus = f$extract(9,1,savedstatus)
1488 $ DEASSIGN SYS$OUTPUT
1489 $ DEASSIGN SYS$ERROR
1490 $ if (teststatus.nes."1")
1492 $ perl_i_sysaccess="undef"
1494 $ perl_i_sysaccess="define"
1497 $ WRITE_RESULT "i_sysaccess is ''perl_i_sysaccess'"
1499 $! Check for sys/security.h
1503 $ WS "#include <stdlib.h>
1505 $ WS "#include <stdio.h>
1506 $ WS "#include <unistd.h>
1507 $ WS "#include <sys/security.h>
1513 $ DEFINE SYS$ERROR _NLA0:
1514 $ DEFINE SYS$OUTPUT _NLA0:
1515 $ on error then continue
1516 $ on warning then continue
1518 $ savedstatus = $status
1519 $ teststatus = f$extract(9,1,savedstatus)
1520 $ if (teststatus.nes."1")
1522 $ perl_i_syssecrt="undef"
1523 $ DEASSIGN SYS$OUTPUT
1524 $ DEASSIGN SYS$ERROR
1526 $ If (Needs_Opt.eqs."Yes")
1528 $ link temp.obj,temp.opt/opt
1532 $ savedstatus = $status
1533 $ teststatus = f$extract(9,1,savedstatus)
1534 $ DEASSIGN SYS$OUTPUT
1535 $ DEASSIGN SYS$ERROR
1536 $ if (teststatus.nes."1")
1538 $ perl_i_syssecrt="undef"
1540 $ perl_i_syssecrt="define"
1543 $ WRITE_RESULT "i_syssecrt is ''perl_i_syssecrt'"
1545 $! Check for fcntl.h
1549 $ WS "#include <stdlib.h>
1551 $ WS "#include <stdio.h>
1552 $ WS "#include <unistd.h>
1553 $ WS "#include <fcntl.h>
1559 $ DEFINE SYS$ERROR _NLA0:
1560 $ DEFINE SYS$OUTPUT _NLA0:
1561 $ on error then continue
1562 $ on warning then continue
1564 $ savedstatus = $status
1565 $ teststatus = f$extract(9,1,savedstatus)
1566 $ if (teststatus.nes."1")
1568 $ perl_i_fcntl="undef"
1569 $ DEASSIGN SYS$OUTPUT
1570 $ DEASSIGN SYS$ERROR
1572 $ If (Needs_Opt.eqs."Yes")
1574 $ link temp.obj,temp.opt/opt
1578 $ savedstatus = $status
1579 $ teststatus = f$extract(9,1,savedstatus)
1580 $ DEASSIGN SYS$OUTPUT
1581 $ DEASSIGN SYS$ERROR
1582 $ if (teststatus.nes."1")
1584 $ perl_i_fcntl="undef"
1586 $ perl_i_fcntl="define"
1589 $ WRITE_RESULT "i_fcntl is ''perl_i_fcntl'"
1595 $ WS "#include <stdlib.h>
1597 $ WS "#include <stdio.h>
1598 $ WS "#include <unistd.h>
1599 $ WS "#include <fcntl.h>
1606 $ DEFINE SYS$ERROR _NLA0:
1607 $ DEFINE SYS$OUTPUT _NLA0:
1608 $ on error then continue
1609 $ on warning then continue
1611 $ savedstatus = $status
1612 $ teststatus = f$extract(9,1,savedstatus)
1613 $ if (teststatus.nes."1")
1615 $ perl_d_fcntl="undef"
1616 $ DEASSIGN SYS$OUTPUT
1617 $ DEASSIGN SYS$ERROR
1619 $ If (Needs_Opt.eqs."Yes")
1621 $ link temp.obj,temp.opt/opt
1625 $ savedstatus = $status
1626 $ teststatus = f$extract(9,1,savedstatus)
1627 $ DEASSIGN SYS$OUTPUT
1628 $ DEASSIGN SYS$ERROR
1629 $ if (teststatus.nes."1")
1631 $ perl_d_fcntl="undef"
1633 $ perl_d_fcntl="define"
1636 $ WRITE_RESULT "d_fcntl is ''perl_d_fcntl'"
1642 $ WS "#include <stdlib.h>
1644 $ WS "#include <string.h>
1648 $ WS "place = memchr(""foo"", 47, 3)
1652 $ DEFINE SYS$ERROR _NLA0:
1653 $ DEFINE SYS$OUTPUT _NLA0:
1654 $ on error then continue
1655 $ on warning then continue
1657 $ savedstatus = $status
1658 $ teststatus = f$extract(9,1,savedstatus)
1659 $ if (teststatus.nes."1")
1661 $ perl_d_memchr="undef"
1662 $ DEASSIGN SYS$OUTPUT
1663 $ DEASSIGN SYS$ERROR
1665 $ If (Needs_Opt.eqs."Yes")
1667 $ link temp.obj,temp.opt/opt
1671 $ savedstatus = $status
1672 $ teststatus = f$extract(9,1,savedstatus)
1673 $ DEASSIGN SYS$OUTPUT
1674 $ DEASSIGN SYS$ERROR
1675 $ if (teststatus.nes."1")
1677 $ perl_d_memchr="undef"
1679 $ perl_d_memchr="define"
1682 $ WRITE_RESULT "d_memchr is ''perl_d_memchr'"
1684 $! Check for strtoull
1688 $ WS "#include <stdlib.h>
1690 $ WS "#include <string.h>
1693 $ WS "unsigned __int64 result;
1694 $ WS "result = strtoull(""123123"", NULL, 10);
1698 $ DEFINE SYS$ERROR _NLA0:
1699 $ DEFINE SYS$OUTPUT _NLA0:
1700 $ on error then continue
1701 $ on warning then continue
1703 $ savedstatus = $status
1704 $ teststatus = f$extract(9,1,savedstatus)
1705 $ if (teststatus.nes."1")
1707 $ perl_d_strtoull="undef"
1708 $ DEASSIGN SYS$OUTPUT
1709 $ DEASSIGN SYS$ERROR
1711 $ If (Needs_Opt.eqs."Yes")
1713 $ link temp.obj,temp.opt/opt
1717 $ savedstatus = $status
1718 $ teststatus = f$extract(9,1,savedstatus)
1719 $ DEASSIGN SYS$OUTPUT
1720 $ DEASSIGN SYS$ERROR
1721 $ if (teststatus.nes."1")
1723 $ perl_d_strtoull="undef"
1725 $ perl_d_strtoull="define"
1728 $ WRITE_RESULT "d_strtoull is ''perl_d_strtoull'"
1730 $! Check for strtouq
1734 $ WS "#include <stdlib.h>
1736 $ WS "#include <string.h>
1739 $ WS "unsigned __int64 result;
1740 $ WS "result = strtouq(""123123"", NULL, 10);
1744 $ DEFINE SYS$ERROR _NLA0:
1745 $ DEFINE SYS$OUTPUT _NLA0:
1746 $ on error then continue
1747 $ on warning then continue
1749 $ savedstatus = $status
1750 $ teststatus = f$extract(9,1,savedstatus)
1751 $ if (teststatus.nes."1")
1753 $ perl_d_strtouq="undef"
1754 $ DEASSIGN SYS$OUTPUT
1755 $ DEASSIGN SYS$ERROR
1757 $ If (Needs_Opt.eqs."Yes")
1759 $ link temp.obj,temp.opt/opt
1763 $ savedstatus = $status
1764 $ teststatus = f$extract(9,1,savedstatus)
1765 $ DEASSIGN SYS$OUTPUT
1766 $ DEASSIGN SYS$ERROR
1767 $ if (teststatus.nes."1")
1769 $ perl_d_strtouq="undef"
1771 $ perl_d_strtouq="define"
1774 $ WRITE_RESULT "d_strtouq is ''perl_d_strtouq'"
1776 $! Check for strtoll
1780 $ WS "#include <stdlib.h>
1782 $ WS "#include <string.h>
1785 $ WS "__int64 result;
1786 $ WS "result = strtoll(""123123"", NULL, 10);
1790 $ DEFINE SYS$ERROR _NLA0:
1791 $ DEFINE SYS$OUTPUT _NLA0:
1792 $ on error then continue
1793 $ on warning then continue
1795 $ savedstatus = $status
1796 $ teststatus = f$extract(9,1,savedstatus)
1797 $ if (teststatus.nes."1")
1799 $ perl_d_strtoll="undef"
1800 $ DEASSIGN SYS$OUTPUT
1801 $ DEASSIGN SYS$ERROR
1803 $ If (Needs_Opt.eqs."Yes")
1805 $ link temp.obj,temp.opt/opt
1809 $ savedstatus = $status
1810 $ teststatus = f$extract(9,1,savedstatus)
1811 $ DEASSIGN SYS$OUTPUT
1812 $ DEASSIGN SYS$ERROR
1813 $ if (teststatus.nes."1")
1815 $ perl_d_strtoll="undef"
1817 $ perl_d_strtoll="define"
1820 $ WRITE_RESULT "d_strtoll is ''perl_d_strtoll'"
1822 $! Check for strtold
1826 $ WS "#include <stdlib.h>
1828 $ WS "#include <string.h>
1831 $ WS "long double result;
1832 $ WS "result = strtold(""123123"", NULL, 10);
1836 $ DEFINE SYS$ERROR _NLA0:
1837 $ DEFINE SYS$OUTPUT _NLA0:
1838 $ on error then continue
1839 $ on warning then continue
1841 $ savedstatus = $status
1842 $ teststatus = f$extract(9,1,savedstatus)
1843 $ if (teststatus.nes."1")
1845 $ perl_d_strtold="undef"
1846 $ DEASSIGN SYS$OUTPUT
1847 $ DEASSIGN SYS$ERROR
1849 $ If (Needs_Opt.eqs."Yes")
1851 $ link temp.obj,temp.opt/opt
1855 $ savedstatus = $status
1856 $ teststatus = f$extract(9,1,savedstatus)
1857 $ DEASSIGN SYS$OUTPUT
1858 $ DEASSIGN SYS$ERROR
1859 $ if (teststatus.nes."1")
1861 $ perl_d_strtold="undef"
1863 $ perl_d_strtold="define"
1866 $ WRITE_RESULT "d_strtold is ''perl_d_strtold'"
1872 $ WS "#include <stdlib.h>
1874 $ WS "#include <string.h>
1877 $ WS " __int64 result;
1878 $ WS "result = atoll(""123123"");
1882 $ DEFINE SYS$ERROR _NLA0:
1883 $ DEFINE SYS$OUTPUT _NLA0:
1884 $ on error then continue
1885 $ on warning then continue
1887 $ savedstatus = $status
1888 $ teststatus = f$extract(9,1,savedstatus)
1889 $ if (teststatus.nes."1")
1891 $ perl_d_atoll="undef"
1892 $ DEASSIGN SYS$OUTPUT
1893 $ DEASSIGN SYS$ERROR
1895 $ If (Needs_Opt.eqs."Yes")
1897 $ link temp.obj,temp.opt/opt
1901 $ savedstatus = $status
1902 $ teststatus = f$extract(9,1,savedstatus)
1903 $ DEASSIGN SYS$OUTPUT
1904 $ DEASSIGN SYS$ERROR
1905 $ if (teststatus.nes."1")
1907 $ perl_d_atoll="undef"
1909 $ perl_d_atoll="define"
1912 $ WRITE_RESULT "d_atoll is ''perl_d_atoll'"
1918 $ WS "#include <stdlib.h>
1920 $ WS "#include <string.h>
1924 $ WS "result = atolf(""123123"");
1928 $ DEFINE SYS$ERROR _NLA0:
1929 $ DEFINE SYS$OUTPUT _NLA0:
1930 $ on error then continue
1931 $ on warning then continue
1933 $ savedstatus = $status
1934 $ teststatus = f$extract(9,1,savedstatus)
1935 $ if (teststatus.nes."1")
1937 $ perl_d_atolf="undef"
1938 $ DEASSIGN SYS$OUTPUT
1939 $ DEASSIGN SYS$ERROR
1941 $ If (Needs_Opt.eqs."Yes")
1943 $ link temp.obj,temp.opt/opt
1947 $ savedstatus = $status
1948 $ teststatus = f$extract(9,1,savedstatus)
1949 $ DEASSIGN SYS$OUTPUT
1950 $ DEASSIGN SYS$ERROR
1951 $ if (teststatus.nes."1")
1953 $ perl_d_atolf="undef"
1955 $ perl_d_atolf="define"
1958 $ WRITE_RESULT "d_atolf is ''perl_d_atolf'"
1964 $ WS "#include <stdlib.h>
1966 $ WS "#include <stdio.h>
1967 $ WS "#include <unistd.h>
1970 $ WS "access("foo", F_OK);
1974 $ DEFINE SYS$ERROR _NLA0:
1975 $ DEFINE SYS$OUTPUT _NLA0:
1976 $ on error then continue
1977 $ on warning then continue
1979 $ savedstatus = $status
1980 $ teststatus = f$extract(9,1,savedstatus)
1981 $ if (teststatus.nes."1")
1983 $ perl_d_access="undef"
1984 $ DEASSIGN SYS$OUTPUT
1985 $ DEASSIGN SYS$ERROR
1987 $ If (Needs_Opt.eqs."Yes")
1989 $ link temp.obj,temp.opt/opt
1993 $ savedstatus = $status
1994 $ teststatus = f$extract(9,1,savedstatus)
1995 $ DEASSIGN SYS$OUTPUT
1996 $ DEASSIGN SYS$ERROR
1997 $ if (teststatus.nes."1")
1999 $ perl_d_access="undef"
2001 $ perl_d_access="define"
2004 $ WRITE_RESULT "d_access is ''perl_d_access'"
2010 $ WS "#include <stdlib.h>
2012 $ WS "#include <stdio.h>
2013 $ WS "#include <strings.h>
2017 $ WS "bzero(foo, 10);
2021 $ DEFINE SYS$ERROR _NLA0:
2022 $ DEFINE SYS$OUTPUT _NLA0:
2023 $ on error then continue
2024 $ on warning then continue
2026 $ savedstatus = $status
2027 $ teststatus = f$extract(9,1,savedstatus)
2028 $ if (teststatus.nes."1")
2030 $ perl_d_bzero="undef"
2031 $ DEASSIGN SYS$OUTPUT
2032 $ DEASSIGN SYS$ERROR
2034 $ If (Needs_Opt.eqs."Yes")
2036 $ link temp.obj,temp.opt/opt
2040 $ savedstatus = $status
2041 $ teststatus = f$extract(9,1,savedstatus)
2042 $ DEASSIGN SYS$OUTPUT
2043 $ DEASSIGN SYS$ERROR
2044 $ if (teststatus.nes."1")
2046 $ perl_d_bzero="undef"
2048 $ perl_d_bzero="define"
2051 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
2057 $ WS "#include <stdlib.h>
2059 $ WS "#include <stdio.h>
2060 $ WS "#include <strings.h>
2063 $ WS "char foo[10], bar[10];
2064 $ WS "bcopy(""foo"", bar, 3);
2068 $ DEFINE SYS$ERROR _NLA0:
2069 $ DEFINE SYS$OUTPUT _NLA0:
2070 $ on error then continue
2071 $ on warning then continue
2073 $ savedstatus = $status
2074 $ teststatus = f$extract(9,1,savedstatus)
2075 $ if (teststatus.nes."1")
2077 $ perl_d_bcopy="undef"
2078 $ DEASSIGN SYS$OUTPUT
2079 $ DEASSIGN SYS$ERROR
2081 $ If (Needs_Opt.eqs."Yes")
2083 $ link temp.obj,temp.opt/opt
2087 $ savedstatus = $status
2088 $ teststatus = f$extract(9,1,savedstatus)
2089 $ DEASSIGN SYS$OUTPUT
2090 $ DEASSIGN SYS$ERROR
2091 $ if (teststatus.nes."1")
2093 $ perl_d_bcopy="undef"
2095 $ perl_d_bcopy="define"
2098 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
2100 $! Check for mkstemp
2104 $ WS "#include <stdlib.h>
2106 $ WS "#include <stdio.h>
2109 $ WS "mkstemp(""foo"");
2113 $ DEFINE SYS$ERROR _NLA0:
2114 $ DEFINE SYS$OUTPUT _NLA0:
2115 $ on error then continue
2116 $ on warning then continue
2118 $ If (Needs_Opt.eqs."Yes")
2120 $ link temp.obj,temp.opt/opt
2124 $ savedstatus = $status
2125 $ teststatus = f$extract(9,1,savedstatus)
2126 $ DEASSIGN SYS$OUTPUT
2127 $ DEASSIGN SYS$ERROR
2128 $ if (teststatus.nes."1")
2130 $ perl_d_mkstemp="undef"
2132 $ perl_d_mkstemp="define"
2134 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
2136 $! Check for mkstemps
2140 $ WS "#include <stdlib.h>
2142 $ WS "#include <stdio.h>
2145 $ WS "mkstemps(""foo"", 1);
2149 $ DEFINE SYS$ERROR _NLA0:
2150 $ DEFINE SYS$OUTPUT _NLA0:
2151 $ on error then continue
2152 $ on warning then continue
2154 $ If (Needs_Opt.eqs."Yes")
2156 $ link temp.obj,temp.opt/opt
2160 $ savedstatus = $status
2161 $ teststatus = f$extract(9,1,savedstatus)
2162 $ DEASSIGN SYS$OUTPUT
2163 $ DEASSIGN SYS$ERROR
2164 $ if (teststatus.nes."1")
2166 $ perl_d_mkstemps="undef"
2168 $ perl_d_mkstemps="define"
2170 $ WRITE_RESULT "d_mkstemps is ''perl_d_mkstemps'"
2176 $ WS "#include <stdlib.h>
2178 $ WS "#include <stdio.h>
2179 $ WS "#include <iconv.h>
2183 $ WS " char *inbuf, *outbuf;"
2184 $ WS " size_t inleft, outleft;"
2185 $ WS " iconv(cd, &inbuf, &inleft, &outbuf, &outleft);"
2189 $ DEFINE SYS$ERROR _NLA0:
2190 $ DEFINE SYS$OUTPUT _NLA0:
2191 $ on error then continue
2192 $ on warning then continue
2194 $ savedstatus = $status
2195 $ teststatus = f$extract(9,1,savedstatus)
2196 $ if (teststatus.nes."1")
2198 $ perl_d_iconv="undef"
2199 $ perl_i_iconv="undef"
2200 $ DEASSIGN SYS$OUTPUT
2201 $ DEASSIGN SYS$ERROR
2203 $ If (Needs_Opt.eqs."Yes")
2205 $ link temp.obj,temp.opt/opt
2209 $ savedstatus = $status
2210 $ teststatus = f$extract(9,1,savedstatus)
2211 $ DEASSIGN SYS$OUTPUT
2212 $ DEASSIGN SYS$ERROR
2213 $ if (teststatus.nes."1")
2215 $ perl_d_iconv="undef"
2216 $ perl_i_iconv="undef"
2218 $ perl_d_iconv="define"
2219 $ perl_i_iconv="define"
2222 $ WRITE_RESULT "d_iconv is ''perl_d_iconv'"
2223 $ WRITE_RESULT "i_iconv is ''perl_i_iconv'"
2225 $! Check for mkdtemp
2229 $ WS "#include <stdlib.h>
2231 $ WS "#include <stdio.h>
2234 $ WS "mkdtemp(""foo"");
2238 $ DEFINE SYS$ERROR _NLA0:
2239 $ DEFINE SYS$OUTPUT _NLA0:
2240 $ on error then continue
2241 $ on warning then continue
2243 $ If (Needs_Opt.eqs."Yes")
2245 $ link temp.obj,temp.opt/opt
2249 $ savedstatus = $status
2250 $ teststatus = f$extract(9,1,savedstatus)
2251 $ DEASSIGN SYS$OUTPUT
2252 $ DEASSIGN SYS$ERROR
2253 $ if (teststatus.nes."1")
2255 $ perl_d_mkdtemp="undef"
2257 $ perl_d_mkdtemp="define"
2259 $ WRITE_RESULT "d_mkdtemp is ''perl_d_mkdtemp'"
2261 $! Check for setvbuf
2265 $ WS "#include <stdlib.h>
2267 $ WS "#include <stdio.h>
2271 $ WS "char Buffer[99];
2272 $ WS "foo = fopen(""foo"", ""r"");
2273 $ WS "setvbuf(foo, Buffer, 0, 0);
2277 $ DEFINE SYS$ERROR _NLA0:
2278 $ DEFINE SYS$OUTPUT _NLA0:
2279 $ on error then continue
2280 $ on warning then continue
2282 $ If (Needs_Opt.eqs."Yes")
2284 $ link temp.obj,temp.opt/opt
2288 $ teststatus = f$extract(9,1,$status)
2289 $ DEASSIGN SYS$OUTPUT
2290 $ DEASSIGN SYS$ERROR
2291 $ if (teststatus.nes."1")
2293 $ perl_d_setvbuf="undef"
2295 $ perl_d_setvbuf="define"
2297 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
2303 $ WS "#include <stdlib.h>
2305 $ WS "#include <stdio.h>
2308 $ WS "setenv(""FOO"", ""BAR"", 0);
2312 $ DEFINE SYS$ERROR _NLA0:
2313 $ DEFINE SYS$OUTPUT _NLA0:
2314 $ on error then continue
2315 $ on warning then continue
2317 $ If (Needs_Opt.eqs."Yes")
2319 $ link temp,temp/opt
2323 $ teststatus = f$extract(9,1,$status)
2324 $ DEASSIGN SYS$OUTPUT
2325 $ DEASSIGN SYS$ERROR
2326 $ if (teststatus.nes."1")
2328 $ perl_d_setenv="undef"
2330 $ perl_d_setenv="define"
2332 $ WRITE_RESULT "d_setenv is ''perl_d_setenv'"
2334 $! Check for <netinet/in.h>
2336 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2340 $ WS "#include <stdlib.h>
2342 $ WS "#include <stdio.h>
2343 $ if ("''Has_Socketshr'".eqs."T")
2345 $ WS "#include <socketshr.h>"
2347 $ WS "#include <netdb.h>
2349 $ WS "#include <netinet/in.h>"
2355 $ DEFINE SYS$ERROR _NLA0:
2356 $ DEFINE SYS$OUTPUT _NLA0:
2357 $ on error then continue
2358 $ on warning then continue
2360 $ If (Needs_Opt.eqs."Yes")
2362 $ link temp.obj,temp.opt/opt
2366 $ teststatus = f$extract(9,1,$status)
2367 $ DEASSIGN SYS$OUTPUT
2368 $ DEASSIGN SYS$ERROR
2369 $ if (teststatus.nes."1")
2371 $ perl_i_niin="undef"
2373 $ perl_i_niin="define"
2376 $ perl_i_niin="undef"
2378 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
2380 $! Check for <netinet/tcp.h>
2382 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2386 $ WS "#include <stdlib.h>
2388 $ WS "#include <stdio.h>
2389 $ if ("''Has_Socketshr'".eqs."T")
2391 $ WS "#include <socketshr.h>"
2393 $ WS "#include <netdb.h>
2395 $ WS "#include <netinet/tcp.h>"
2401 $ DEFINE SYS$ERROR _NLA0:
2402 $ DEFINE SYS$OUTPUT _NLA0:
2403 $ on error then continue
2404 $ on warning then continue
2406 $ If (Needs_Opt.eqs."Yes")
2408 $ link temp.obj,temp.opt/opt
2412 $ teststatus = f$extract(9,1,$status)
2413 $ DEASSIGN SYS$OUTPUT
2414 $ DEASSIGN SYS$ERROR
2415 $ if (teststatus.nes."1")
2417 $ perl_i_netinettcp="undef"
2419 $ perl_i_netinettcp="define"
2422 $ perl_i_netinettcp="undef"
2424 $ WRITE_RESULT "i_netinettcp is ''perl_i_netinettcp'"
2426 $! Check for endhostent
2428 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2432 $ WS "#include <stdlib.h>
2434 $ WS "#include <stdio.h>
2435 $ if ("''Has_Socketshr'".eqs."T")
2437 $ WS "#include <socketshr.h>"
2439 $ WS "#include <netdb.h>
2447 $ DEFINE SYS$ERROR _NLA0:
2448 $ DEFINE SYS$OUTPUT _NLA0:
2449 $ on error then continue
2450 $ on warning then continue
2452 $ If (Needs_Opt.eqs."Yes")
2454 $ link temp.obj,temp.opt/opt
2458 $ teststatus = f$extract(9,1,$status)
2459 $ DEASSIGN SYS$OUTPUT
2460 $ DEASSIGN SYS$ERROR
2461 $ if (teststatus.nes."1")
2463 $ perl_d_endhent="undef"
2465 $ perl_d_endhent="define"
2468 $ perl_d_endhent="undef"
2470 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
2472 $! Check for endnetent
2474 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2478 $ WS "#include <stdlib.h>
2480 $ WS "#include <stdio.h>
2481 $ if ("''Has_Socketshr'".eqs."T")
2483 $ WS "#include <socketshr.h>"
2485 $ WS "#include <netdb.h>
2493 $ DEFINE SYS$ERROR _NLA0:
2494 $ DEFINE SYS$OUTPUT _NLA0:
2495 $ on error then continue
2496 $ on warning then continue
2498 $ If (Needs_Opt.eqs."Yes")
2500 $ link temp.obj,temp.opt/opt
2504 $ teststatus = f$extract(9,1,$status)
2505 $ DEASSIGN SYS$OUTPUT
2506 $ DEASSIGN SYS$ERROR
2507 $ if (teststatus.nes."1")
2509 $ perl_d_endnent="undef"
2511 $ perl_d_endnent="define"
2514 $ perl_d_endnent="undef"
2516 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
2518 $! Check for endprotoent
2520 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2524 $ WS "#include <stdlib.h>
2526 $ WS "#include <stdio.h>
2527 $ if ("''Has_Socketshr'".eqs."T")
2529 $ WS "#include <socketshr.h>"
2531 $ WS "#include <netdb.h>
2535 $ WS "endprotoent();
2539 $ DEFINE SYS$ERROR _NLA0:
2540 $ DEFINE SYS$OUTPUT _NLA0:
2541 $ on error then continue
2542 $ on warning then continue
2544 $ If (Needs_Opt.eqs."Yes")
2546 $ link temp.obj,temp.opt/opt
2550 $ teststatus = f$extract(9,1,$status)
2551 $ DEASSIGN SYS$OUTPUT
2552 $ DEASSIGN SYS$ERROR
2553 $ if (teststatus.nes."1")
2555 $ perl_d_endpent="undef"
2557 $ perl_d_endpent="define"
2560 $ perl_d_endpent="undef"
2562 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
2564 $! Check for endservent
2566 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2570 $ WS "#include <stdlib.h>
2572 $ WS "#include <stdio.h>
2573 $ if ("''Has_Socketshr'".eqs."T")
2575 $ WS "#include <socketshr.h>"
2577 $ WS "#include <netdb.h>
2585 $ DEFINE SYS$ERROR _NLA0:
2586 $ DEFINE SYS$OUTPUT _NLA0:
2587 $ on error then continue
2588 $ on warning then continue
2590 $ If (Needs_Opt.eqs."Yes")
2592 $ link temp.obj,temp.opt/opt
2596 $ teststatus = f$extract(9,1,$status)
2597 $ DEASSIGN SYS$OUTPUT
2598 $ DEASSIGN SYS$ERROR
2599 $ if (teststatus.nes."1")
2601 $ perl_d_endsent="undef"
2603 $ perl_d_endsent="define"
2606 $ perl_d_endsent="undef"
2608 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
2610 $! Check for sethostent
2612 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2616 $ WS "#include <stdlib.h>
2618 $ WS "#include <stdio.h>
2619 $ if ("''Has_Socketshr'".eqs."T")
2621 $ WS "#include <socketshr.h>"
2623 $ WS "#include <netdb.h>
2627 $ WS "sethostent(1);
2631 $ DEFINE SYS$ERROR _NLA0:
2632 $ DEFINE SYS$OUTPUT _NLA0:
2633 $ on error then continue
2634 $ on warning then continue
2636 $ If (Needs_Opt.eqs."Yes")
2638 $ link temp.obj,temp.opt/opt
2642 $ teststatus = f$extract(9,1,$status)
2643 $ DEASSIGN SYS$OUTPUT
2644 $ DEASSIGN SYS$ERROR
2645 $ if (teststatus.nes."1")
2647 $ perl_d_sethent="undef"
2649 $ perl_d_sethent="define"
2652 $ perl_d_sethent="undef"
2654 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
2656 $! Check for setnetent
2658 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2662 $ WS "#include <stdlib.h>
2664 $ WS "#include <stdio.h>
2665 $ if ("''Has_Socketshr'".eqs."T")
2667 $ WS "#include <socketshr.h>"
2669 $ WS "#include <netdb.h>
2677 $ DEFINE SYS$ERROR _NLA0:
2678 $ DEFINE SYS$OUTPUT _NLA0:
2679 $ on error then continue
2680 $ on warning then continue
2682 $ If (Needs_Opt.eqs."Yes")
2684 $ link temp.obj,temp.opt/opt
2688 $ teststatus = f$extract(9,1,$status)
2689 $ DEASSIGN SYS$OUTPUT
2690 $ DEASSIGN SYS$ERROR
2691 $ if (teststatus.nes."1")
2693 $ perl_d_setnent="undef"
2695 $ perl_d_setnent="define"
2698 $ perl_d_setnent="undef"
2700 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
2702 $! Check for setprotoent
2704 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2708 $ WS "#include <stdlib.h>
2710 $ WS "#include <stdio.h>
2711 $ if ("''Has_Socketshr'".eqs."T")
2713 $ WS "#include <socketshr.h>"
2715 $ WS "#include <netdb.h>
2719 $ WS "setprotoent(1);
2723 $ DEFINE SYS$ERROR _NLA0:
2724 $ DEFINE SYS$OUTPUT _NLA0:
2725 $ on error then continue
2726 $ on warning then continue
2728 $ If (Needs_Opt.eqs."Yes")
2730 $ link temp.obj,temp.opt/opt
2734 $ teststatus = f$extract(9,1,$status)
2735 $ DEASSIGN SYS$OUTPUT
2736 $ DEASSIGN SYS$ERROR
2737 $ if (teststatus.nes."1")
2739 $ perl_d_setpent="undef"
2741 $ perl_d_setpent="define"
2744 $ perl_d_setpent="undef"
2746 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
2748 $! Check for setservent
2750 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2754 $ WS "#include <stdlib.h>
2756 $ WS "#include <stdio.h>
2757 $ if ("''Has_Socketshr'".eqs."T")
2759 $ WS "#include <socketshr.h>"
2761 $ WS "#include <netdb.h>
2765 $ WS "setservent(1);
2769 $ DEFINE SYS$ERROR _NLA0:
2770 $ DEFINE SYS$OUTPUT _NLA0:
2771 $ on error then continue
2772 $ on warning then continue
2774 $ If (Needs_Opt.eqs."Yes")
2776 $ link temp.obj,temp.opt/opt
2780 $ teststatus = f$extract(9,1,$status)
2781 $ DEASSIGN SYS$OUTPUT
2782 $ DEASSIGN SYS$ERROR
2783 $ if (teststatus.nes."1")
2785 $ perl_d_setsent="undef"
2787 $ perl_d_setsent="define"
2790 $ perl_d_setsent="undef"
2792 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
2794 $! Check for gethostent
2796 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2800 $ WS "#include <stdlib.h>
2802 $ WS "#include <stdio.h>
2803 $ if ("''Has_Socketshr'".eqs."T")
2805 $ WS "#include <socketshr.h>"
2807 $ WS "#include <netdb.h>
2815 $ DEFINE SYS$ERROR _NLA0:
2816 $ DEFINE SYS$OUTPUT _NLA0:
2817 $ on error then continue
2818 $ on warning then continue
2820 $ If (Needs_Opt.eqs."Yes")
2822 $ link temp.obj,temp.opt/opt
2826 $ teststatus = f$extract(9,1,$status)
2827 $ DEASSIGN SYS$OUTPUT
2828 $ DEASSIGN SYS$ERROR
2829 $ if (teststatus.nes."1")
2831 $ perl_d_gethent="undef"
2833 $ perl_d_gethent="define"
2836 $ perl_d_gethent="undef"
2838 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
2840 $! Check for getnetent
2842 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2846 $ WS "#include <stdlib.h>
2848 $ WS "#include <stdio.h>
2849 $ if ("''Has_Socketshr'".eqs."T")
2851 $ WS "#include <socketshr.h>"
2853 $ WS "#include <netdb.h>
2861 $ DEFINE SYS$ERROR _NLA0:
2862 $ DEFINE SYS$OUTPUT _NLA0:
2863 $ on error then continue
2864 $ on warning then continue
2866 $ If (Needs_Opt.eqs."Yes")
2868 $ link temp.obj,temp.opt/opt
2872 $ teststatus = f$extract(9,1,$status)
2873 $ DEASSIGN SYS$OUTPUT
2874 $ DEASSIGN SYS$ERROR
2875 $ if (teststatus.nes."1")
2877 $ perl_d_getnent="undef"
2879 $ perl_d_getnent="define"
2882 $ perl_d_getnent="undef"
2884 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
2886 $! Check for getprotoent
2888 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2892 $ WS "#include <stdlib.h>
2894 $ WS "#include <stdio.h>
2895 $ if ("''Has_Socketshr'".eqs."T")
2897 $ WS "#include <socketshr.h>"
2899 $ WS "#include <netdb.h>
2903 $ WS "getprotoent();
2907 $ DEFINE SYS$ERROR _NLA0:
2908 $ DEFINE SYS$OUTPUT _NLA0:
2909 $ on error then continue
2910 $ on warning then continue
2912 $ If (Needs_Opt.eqs."Yes")
2914 $ link temp.obj,temp.opt/opt
2918 $ teststatus = f$extract(9,1,$status)
2919 $ DEASSIGN SYS$OUTPUT
2920 $ DEASSIGN SYS$ERROR
2921 $ if (teststatus.nes."1")
2923 $ perl_d_getpent="undef"
2925 $ perl_d_getpent="define"
2928 $ perl_d_getpent="undef"
2930 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
2932 $! Check for getservent
2934 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2938 $ WS "#include <stdlib.h>
2940 $ WS "#include <stdio.h>
2941 $ if ("''Has_Socketshr'".eqs."T")
2943 $ WS "#include <socketshr.h>"
2945 $ WS "#include <netdb.h>
2953 $ DEFINE SYS$ERROR _NLA0:
2954 $ DEFINE SYS$OUTPUT _NLA0:
2955 $ on error then continue
2956 $ on warning then continue
2958 $ If (Needs_Opt.eqs."Yes")
2960 $ link temp.obj,temp.opt/opt
2964 $ teststatus = f$extract(9,1,$status)
2965 $ DEASSIGN SYS$OUTPUT
2966 $ DEASSIGN SYS$ERROR
2967 $ if (teststatus.nes."1")
2969 $ perl_d_getsent="undef"
2971 $ perl_d_getsent="define"
2974 $ perl_d_getsent="undef"
2976 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
2978 $! Check for socklen_t
2980 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2984 $ WS "#include <stdlib.h>
2986 $ WS "#include <stdio.h>
2987 $ IF ("''Has_Socketshr'".eqs."T")
2989 $ WS "#include <socketshr.h>"
2991 $ WS "#include <netdb.h>
2995 $ WS "socklen_t x = 16;
2999 $ DEFINE SYS$ERROR _NLA0:
3000 $ DEFINE SYS$OUTPUT _NLA0:
3001 $ on error then continue
3002 $ on warning then continue
3004 $ If (Needs_Opt.eqs."Yes")
3006 $ link temp.obj,temp.opt/opt
3010 $ teststatus = f$extract(9,1,$status)
3011 $ DEASSIGN SYS$OUTPUT
3012 $ DEASSIGN SYS$ERROR
3013 $ if (teststatus.nes."1")
3015 $ perl_d_socklen_t="undef"
3017 $ perl_d_socklen_t="define"
3020 $ perl_d_socklen_t="undef"
3022 $ WRITE_RESULT "d_socklen_t is ''perl_d_socklen_t'"
3024 $! Check for pthread_yield
3026 $ if ("''use_threads'".eqs."T")
3030 $ WS "#include <stdlib.h>
3032 $ WS "#include <pthread.h>
3033 $ WS "#include <stdio.h>
3036 $ WS "pthread_yield();
3040 $ DEFINE SYS$ERROR _NLA0:
3041 $ DEFINE SYS$OUTPUT _NLA0:
3042 $ on error then continue
3043 $ on warning then continue
3045 $ teststatus = f$extract(9,1,$status)
3046 $ DEASSIGN SYS$OUTPUT
3047 $ DEASSIGN SYS$ERROR
3048 $ if (teststatus.nes."1")
3050 $ perl_d_pthread_yield="undef"
3052 $ perl_d_pthread_yield="define"
3055 $ perl_d_pthread_yield="undef"
3057 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
3059 $! Check for sched_yield
3061 $ if ("''use_threads'".eqs."T")
3065 $ WS "#include <stdlib.h>
3067 $ WS "#include <pthread.h>
3068 $ WS "#include <stdio.h>
3071 $ WS "sched_yield();
3075 $ DEFINE SYS$ERROR _NLA0:
3076 $ DEFINE SYS$OUTPUT _NLA0:
3077 $ on error then continue
3078 $ on warning then continue
3080 $ teststatus = f$extract(9,1,$status)
3081 $ DEASSIGN SYS$OUTPUT
3082 $ DEASSIGN SYS$ERROR
3083 $ if (teststatus.nes."1")
3085 $ perl_d_sched_yield="undef"
3086 $ perl_sched_yield = " "
3088 $ perl_d_sched_yield="define"
3089 $ perl_sched_yield = "sched_yield"
3092 $ perl_d_sched_yield="undef"
3093 $ perl_sched_yield = " "
3095 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
3096 $ WRITE_RESULT "sched_yield is ''perl_sched_yield'"
3098 $! Check for generic pointer size
3102 $ WS "#include <stdlib.h>
3104 $ WS "#include <stdio.h>
3108 $ WS "foo = sizeof(char *);
3109 $ WS "printf(""%d\n"", foo);
3113 $ DEFINE SYS$ERROR _NLA0:
3114 $ DEFINE SYS$OUTPUT _NLA0:
3115 $ ON ERROR THEN CONTINUE
3116 $ ON WARNING THEN CONTINUE
3118 $ If (Needs_Opt.eqs."Yes")
3120 $ link temp.obj,temp.opt/opt
3124 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3125 $ DEASSIGN SYS$OUTPUT
3126 $ DEASSIGN SYS$ERROR
3127 $ DEFINE SYS$ERROR TEMPOUT
3128 $ DEFINE SYS$OUTPUT TEMPOUT
3131 $ DEASSIGN SYS$OUTPUT
3132 $ DEASSIGN SYS$ERROR
3133 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3136 $ DELETE/NOLOG [-.uu]tempout.lis;
3139 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
3141 $! Check rand48 and its ilk
3145 $ WS "#include <stdlib.h>
3147 $ WS "#include <stdio.h>
3150 $ WS "srand48(12L);"
3155 $ DEFINE SYS$ERROR _NLA0:
3156 $ DEFINE SYS$OUTPUT _NLA0:
3157 $ ON ERROR THEN CONTINUE
3158 $ ON WARNING THEN CONTINUE
3160 $ If (Needs_Opt.eqs."Yes")
3162 $ link temp,temp.opt/opt
3166 $ teststatus = f$extract(9,1,$status)
3167 $ DEASSIGN SYS$OUTPUT
3168 $ DEASSIGN SYS$ERROR
3169 $ if (teststatus.nes."1")
3171 $ perl_drand01="random()"
3172 $ perl_randseedtype = "unsigned"
3173 $ perl_seedfunc = "srandom"
3177 $ WS "#include <stdlib.h>
3179 $ WS "#include <stdio.h>
3186 $! copy temp.c sys$output
3188 $ DEFINE SYS$ERROR _NLA0:
3189 $ DEFINE SYS$OUTPUT _NLA0:
3190 $ ON ERROR THEN CONTINUE
3191 $ ON WARNING THEN CONTINUE
3193 $ If (Needs_Opt.eqs."Yes")
3195 $ link temp,temp.opt/opt
3199 $ teststatus = f$extract(9,1,$status)
3200 $ DEASSIGN SYS$OUTPUT
3201 $ DEASSIGN SYS$ERROR
3202 $ if (teststatus.nes."1")
3204 $ perl_drand01="(((float)rand())/((float)RAND_MAX))"
3205 $ perl_randseedtype = "unsigned"
3206 $ perl_seedfunc = "srand"
3208 $ WRITE_RESULT "drand01 is ''perl_drand01'"
3211 $! Done with compiler checks. Clean up.
3212 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
3213 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
3214 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
3215 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
3218 $! Some that are compiler or VMS version sensitive
3221 $ IF "''Using_Gnu_C'".EQS."Yes"
3223 $ perl_d_attribut="define"
3224 $ perl_vms_cc_type="gcc"
3226 $ perl_vms_cc_type="cc"
3227 $ perl_d_attribut="undef"
3230 $! Dec C >= 5.2 and VMS ver >= 7.0
3231 $ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
3233 $ perl_d_bcmp="define"
3234 $ perl_d_gettimeod="define"
3235 $ perl_d_uname="define"
3236 $ perl_d_sigaction="define"
3237 $ perl_d_truncate="define"
3238 $ perl_d_wait4="define"
3239 $ perl_d_index="define"
3240 $ perl_pidtype="pid_t"
3241 $ 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"
3242 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3243 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
3244 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
3245 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
3246 $ 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"
3247 $ 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"
3248 $ perl_sig_num_with_commas=perl_sig_num_init
3249 $ perl_uidtype="uid_t"
3250 $ perl_d_pathconf="define"
3251 $ perl_d_fpathconf="define"
3252 $ perl_d_sysconf="define"
3253 $ perl_d_sigsetjmp="define"
3255 $ perl_pidtype="unsigned int"
3256 $ perl_d_gettimeod="undef"
3257 $ perl_d_bcmp="undef"
3258 $ perl_d_uname="undef"
3259 $ perl_d_sigaction="undef"
3260 $ perl_d_truncate="undef"
3261 $ perl_d_wait4="undef"
3262 $ perl_d_index="undef"
3263 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
3264 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3265 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
3266 $ perl_sig_name_with_commas = psnwc1 + psnwc2
3267 $ perl_sig_num="0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 6 16 17"",0"
3268 $ perl_sig_num_init="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
3269 $ perl_sig_num_with_commas=perl_sig_num_init
3270 $ perl_uidtype="unsigned int"
3271 $ perl_d_pathconf="undef"
3272 $ perl_d_fpathconf="undef"
3273 $ perl_d_sysconf="undef"
3274 $ perl_d_sigsetjmp="undef"
3278 $ IF ("''Using_Dec_C'".EQS."Yes")
3280 $ perl_d_mbstowcs="define"
3281 $ perl_d_mbtowc="define"
3282 $ perl_d_stdiobase="define"
3283 $ perl_d_stdio_ptr_lval="define"
3284 $ perl_d_stdio_cnt_lval="define"
3285 $ perl_d_stdstdio="define"
3286 $ perl_d_wcstombs="define"
3287 $ perl_d_mblen="define"
3288 $ perl_d_mktime="define"
3289 $ perl_d_strcoll="define"
3290 $ perl_d_strxfrm="define"
3291 $ perl_d_wctomb="define"
3292 $ perl_i_locale="define"
3293 $ perl_d_locconv="define"
3294 $ perl_d_setlocale="define"
3295 $ perl_vms_cc_type="decc"
3297 $ perl_d_mbstowcs="undef"
3298 $ perl_d_mbtowc="undef"
3299 $ perl_d_stdiobase="undef"
3300 $ perl_d_stdio_ptr_lval="undef"
3301 $ perl_d_stdio_cnt_lval="undef"
3302 $ perl_d_stdstdio="undef"
3303 $ perl_d_wcstombs="undef"
3304 $ perl_d_mblen="undef"
3305 $ perl_d_mktime="undef"
3306 $ perl_d_strcoll="undef"
3307 $ perl_d_strxfrm="undef"
3308 $ perl_d_wctomb="undef"
3309 $ perl_i_locale="undef"
3310 $ perl_d_locconv="undef"
3311 $ perl_d_setlocale="undef"
3315 $ if ("''Using_Vax_C'".EQS."Yes")
3317 $ perl_vms_cc_type="vaxc"
3321 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
3323 $ perl_d_vms_do_sockets="define"
3324 $ perl_d_htonl="define"
3325 $ perl_d_socket="define"
3326 $ perl_d_select="define"
3327 $ perl_netdb_host_type="char *"
3328 $ perl_netdb_hlen_type="int"
3329 $ perl_netdb_name_type="char *"
3330 $ perl_netdb_net_type="long"
3331 $ perl_d_gethbyaddr="define"
3332 $ perl_d_gethbyname="define"
3333 $ perl_d_getnbyaddr="define"
3334 $ perl_d_getnbyname="define"
3335 $ perl_d_getpbynumber="define"
3336 $ perl_d_getpbyname="define"
3337 $ perl_d_getsbyport="define"
3338 $ perl_d_getsbyname="define"
3339 $ perl_d_gethostprotos="define"
3340 $ perl_d_getnetprotos="define"
3341 $ perl_d_getprotoprotos="define"
3342 $ perl_d_getservprotos="define"
3344 $ perl_d_vms_do_sockets="undef"
3345 $ perl_d_htonl="undef"
3346 $ perl_d_socket="undef"
3347 $ perl_d_select="undef"
3348 $ perl_netdb_host_type="char *"
3349 $ perl_netdb_hlen_type="int"
3350 $ perl_netdb_name_type="char *"
3351 $ perl_netdb_net_type="long"
3352 $ perl_d_gethbyaddr="undef"
3353 $ perl_d_gethbyname="undef"
3354 $ perl_d_getnbyaddr="undef"
3355 $ perl_d_getnbyname="undef"
3356 $ perl_d_getpbynumber="undef"
3357 $ perl_d_getpbyname="undef"
3358 $ perl_d_getsbyport="undef"
3359 $ perl_d_getsbyname="undef"
3360 $ perl_d_gethostprotos="undef"
3361 $ perl_d_getnetprotos="undef"
3362 $ perl_d_getprotoprotos="undef"
3363 $ perl_d_getservprotos="undef"
3366 $ if ("''use_threads'".eqs."T")
3368 $ perl_usethreads="define"
3369 $ perl_d_pthreads_created_joinable="define"
3370 $ if ("''VMS_VER'".ges."7.0")
3372 $ perl_d_oldpthreads="undef"
3374 $ perl_d_oldpthreads="define"
3377 $ perl_d_oldpthreads="undef"
3378 $ perl_usethreads="undef"
3380 $ perl_d_pthreads_created_joinable="undef"
3383 $! new (5.005_62++) typedefs for primitives
3385 $ perl_ivtype="long"
3386 $ perl_uvtype="unsigned long"
3387 $ perl_i8type="char"
3388 $ perl_u8type="unsigned char"
3389 $ perl_i16type="short"
3390 $ perl_u16type="unsigned short"
3391 $ perl_i32type="int"
3392 $ perl_u32type="unsigned int"
3393 $ perl_i64type="long long"
3394 $ perl_u64type="unsigned long long"
3395 $ perl_nvtype="double"
3397 $ GOTO beyond_type_size_check
3401 $! Check for type sizes
3405 $ WS "#include <stdlib.h>
3407 $ WS "#include <stdio.h>
3410 $ WS "printf(""%d\n"", sizeof(''type'));"
3414 $ DEFINE SYS$ERROR _NLA0:
3415 $ DEFINE SYS$OUTPUT _NLA0:
3416 $ ON ERROR THEN CONTINUE
3417 $ ON WARNING THEN CONTINUE
3419 $ If (Needs_Opt.eqs."Yes")
3421 $ link temp.obj,temp.opt/opt
3425 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3426 $ DEASSIGN SYS$OUTPUT
3427 $ DEASSIGN SYS$ERROR
3428 $ DEFINE SYS$ERROR TEMPOUT
3429 $ DEFINE SYS$OUTPUT TEMPOUT
3432 $ DEASSIGN SYS$OUTPUT
3433 $ DEASSIGN SYS$ERROR
3434 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3437 $ DELETE/NOLOG [-.uu]tempout.lis;
3438 $ WRITE_RESULT "''size_name' is ''line'"
3442 $beyond_type_size_check:
3445 $ type = "''perl_ivtype'"
3446 $ size_name = "ivsize"
3447 $ gosub type_size_check
3448 $ perl_ivsize="''line'"
3449 $ IF type .eqs. "long"
3450 $ THEN perl_longsize = "''line'"
3453 $ size_name = "longsize"
3454 $ gosub type_size_check
3455 $ perl_longsize="''line'"
3458 $ type = "''perl_uvtype'"
3459 $ size_name = "uvsize"
3460 $ gosub type_size_check
3461 $ perl_uvsize="''line'"
3463 $ type = "''perl_i8type'"
3464 $ size_name = "i8size"
3465 $ gosub type_size_check
3466 $ perl_i8size="''line'"
3468 $ type = "''perl_u8type'"
3469 $ size_name = "u8size"
3470 $ gosub type_size_check
3471 $ perl_u8size="''line'"
3473 $ type = "''perl_i16type'"
3474 $ size_name = "i16size"
3475 $ gosub type_size_check
3476 $ perl_i16size="''line'"
3477 $ IF type .eqs. "short"
3478 $ THEN perl_shortsize="''line'"
3480 $ type = "''perl_i16type'"
3481 $ size_name = "shortsize"
3482 $ gosub type_size_check
3483 $ perl_shortsize="''line'"
3486 $ type = "''perl_u16type'"
3487 $ size_name = "u16size"
3488 $ gosub type_size_check
3489 $ perl_u16size="''line'"
3491 $ type = "''perl_i32type'"
3492 $ size_name = "i32size"
3493 $ gosub type_size_check
3494 $ perl_i32size="''line'"
3495 $ IF type .eqs. "int"
3496 $ THEN perl_intsize="''perl_i32size'"
3499 $ size_name = "intsize"
3500 $ gosub type_size_check
3501 $ perl_intsize="''line'"
3504 $ type = "''perl_u32type'"
3505 $ size_name = "u32size"
3506 $ gosub type_size_check
3507 $ perl_u32size="''line'"
3509 $ type = "''perl_i64type'"
3510 $ size_name = "i64size"
3511 $ gosub type_size_check
3512 $ perl_i64size="''line'"
3514 $ type = "''perl_u64type'"
3515 $ size_name = "u64size"
3516 $ gosub type_size_check
3517 $ perl_u64size="''line'"
3519 $ perl_ivdformat="""ld"""
3520 $ perl_uvuformat="""lu"""
3521 $ perl_uvoformat="""lo"""
3522 $ perl_uvxformat="""lx"""
3524 $! Finally the composite ones. All config
3525 $ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3526 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3527 $ perl_myhostname="''myhostname'"
3528 $ perl_mydomain="''mydomain'"
3529 $ perl_perladmin="''perladmin'"
3530 $ perl_cf_email="''cf_email'"
3531 $ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
3532 $ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3533 $ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
3534 $ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
3535 $ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
3536 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
3537 $ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3538 $ if "''Using_Dec_C'" .eqs. "Yes"
3540 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
3542 $ IF "''Using_Vax_C'" .eqs. "Yes"
3544 $ perl_ccflags="/Include=[]/Obj=''perl_obj_ext'/NoList''cc_flags'"
3547 $ if use_vmsdebug_perl .eqs. "Y"
3549 $ perl_optimize="/Debug/NoOpt"
3550 $ perl_dbgprefix = "DBG"
3553 $ perl_dbgprefix = ""
3556 $! Finally clean off any leading zeros from the patchlevel or subversion
3557 $ perl_patchlevel = perl_patchlevel + 0
3558 $ perl_subversion = perl_subversion + 0
3560 $! Okay, we've got everything configured. Now go write out a config.sh.
3561 $ open/write CONFIGSH [-]config.sh
3562 $ WC := "write CONFIGSH"
3564 $ WC "# This file generated by Configure.COM on a VMS system."
3565 $ WC "# Time: " + perl_cf_time
3567 $ WC "CONFIGDOTSH=true"
3568 $ WC "package='" + perl_package + "'"
3569 $ WC "d_nv_preserves_uv='" + perl_d_nv_preserves_uv + "'"
3570 $ WC "use5005threads='" + perl_use5005threads + "'"
3571 $ WC "useithreads='" + perl_useithreads + "'"
3572 $ WC "CONFIG='" + perl_config + "'"
3573 $ WC "cf_time='" + perl_cf_time + "'"
3574 $ WC "cf_by='" + perl_cf_by+ "'"
3575 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
3576 $ WC "ccdlflags='" + perl_ccdlflags + "'"
3577 $ WC "cccdlflags='" + perl_cccdlflags + "'"
3578 $ WC "mab='" + perl_mab + "'"
3579 $ WC "libpth='" + perl_libpth + "'"
3580 $ WC "ld='" + perl_ld + "'"
3581 $ WC "lddlflags='" + perl_lddlflags + "'"
3582 $ WC "ranlib='" + perl_ranlib + "'"
3583 $ WC "ar='" + perl_ar + "'"
3584 $ WC "eunicefix='" + perl_eunicefix + "'"
3585 $ WC "hint='" + perl_hint +"'"
3586 $ WC "hintfile='" + perl_hintfile + "'"
3587 $ WC "shrplib='" + perl_shrplib + "'"
3588 $ WC "usemymalloc='" + perl_usemymalloc + "'"
3589 $ WC "usevfork='" + perl_usevfork + "'"
3590 $ WC "useposix='false'"
3591 $ WC "spitshell='write sys$output '"
3592 $ WC "dlsrc='dl_vms.c'"
3593 $ WC "binexp='" + perl_binexp + "'"
3594 $ WC "man1ext='" + perl_man1ext + "'"
3595 $ WC "man3ext='" + perl_man3ext + "'"
3596 $ WC "arch='" + perl_arch + "'"
3597 $ WC "archname='" + perl_archname + "'"
3598 $ WC "osvers='" + perl_osvers + "'"
3599 $ WC "prefix='" + perl_prefix + "'"
3600 $ WC "builddir='" + perl_builddir + "'"
3601 $ WC "installbin='" + perl_installbin + "'"
3602 $ WC "installscript='" + perl_installscript + "'"
3603 $ WC "installman1dir='" + perl_installman1dir + "'"
3604 $ WC "installman3dir='" + perl_installman3dir + "'"
3605 $ WC "installprivlib='" + perl_installprivlib + "'"
3606 $ WC "installarchlib='" + perl_installarchlib + "'"
3607 $ WC "installsitelib='" + perl_installsitelib + "'"
3608 $ WC "installsitearch='" + perl_installsitearch + "'"
3609 $ WC "path_sep='" + perl_path_sep + "'"
3610 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
3611 $ WC "d_attribut='" + perl_d_attribut + "'"
3612 $ WC "cc='" + perl_cc + "'"
3613 $ WC "ccflags='" + perl_ccflags + "'"
3614 $ WC "optimize='" + perl_optimize + "'"
3615 $ WC "dbgprefix='" + perl_dbgprefix + "'"
3616 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
3617 $ WC "d_socket='" + perl_d_socket + "'"
3618 $ WC "d_sockpair='" + perl_d_sockpair + "'"
3619 $ WC "d_gethent='" + perl_d_gethent + "'"
3620 $ WC "d_getsent='" + perl_d_getsent + "'"
3621 $ WC "d_socklen_t='" + perl_d_socklen_t + "'"
3622 $ WC "d_select='" + perl_d_select + "'"
3623 $ WC "i_niin='" + perl_i_niin + "'"
3624 $ WC "i_netinettcp='" + perl_i_netinettcp + "'"
3625 $ WC "i_neterrno='" + perl_i_neterrno + "'"
3626 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
3627 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
3628 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
3629 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
3630 $ WC "d_locconv='" + perl_d_locconv + "'"
3631 $ WC "d_setlocale='" + perl_d_setlocale + "'"
3632 $ WC "i_locale='" + perl_i_locale + "'"
3633 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
3634 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
3635 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
3636 $ WC "d_wctomb='" + perl_d_wctomb + "'"
3637 $ WC "d_mblen='" + perl_d_mblen + "'"
3638 $ WC "d_mktime='" + perl_d_mktime + "'"
3639 $ WC "d_strcoll='" + perl_d_strcoll + "'"
3640 $ WC "d_strxfrm='" + perl_d_strxfrm + "'"
3641 $ WC "ldflags='" + perl_ldflags + "'"
3642 $ WC "dlobj='" + perl_dlobj + "'"
3643 $ WC "obj_ext='" + perl_obj_ext + "'"
3644 $ WC "so='" + perl_so + "'"
3645 $ WC "dlext='" + perl_dlext + "'"
3646 $ WC "exe_ext='" + perl_exe_ext + "'"
3647 $ WC "lib_ext='" + perl_lib_ext + "'"
3648 $ WC "myhostname='" + perl_myhostname + "'"
3649 $ WC "mydomain='" + perl_mydomain + "'"
3650 $ WC "perladmin='" + perl_perladmin + "'"
3651 $ WC "cf_email='" + perl_cf_email + "'"
3652 $ WC "myuname='" + perl_myuname + "'"
3653 $ WC "alignbytes='" + perl_alignbytes + "'"
3654 $ WC "osname='" + perl_osname + "'"
3655 $ WC "d_archlib='" + perl_d_archlib + "'"
3656 $ WC "archlibexp='" + perl_archlibexp + "'"
3657 $ WC "archlib='" + perl_archlib + "'"
3658 $ WC "archname='" + perl_archname + "'"
3659 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
3660 $ WC "cppstdin='" + perl_cppstdin + "'"
3661 $ WC "cppminus='" + perl_cppminus + "'"
3662 $ WC "d_bcmp='" + perl_d_bcmp + "'"
3663 $ WC "d_bcopy='" + perl_d_bcopy + "'"
3664 $ WC "d_bzero='" + perl_d_bzero + "'"
3665 $ WC "d_castneg='" + perl_d_castneg + "'"
3666 $ WC "castflags='" + perl_castflags + "'"
3667 $ WC "d_chsize='" + perl_d_chsize + "'"
3668 $ WC "d_const='" + perl_d_const + "'"
3669 $ WC "d_crypt='" + perl_d_crypt + "'"
3670 $ WC "byteorder='" + perl_byteorder + "'"
3671 $ WC "full_csh='" + perl_full_csh + "'"
3672 $ WC "d_csh='" + perl_d_csh + "'"
3673 $ WC "d_dup2='" + perl_d_dup2 + "'"
3674 $ WC "d_fchmod='" + perl_d_fchmod + "'"
3675 $ WC "d_fchown='" + perl_d_fchown + "'"
3676 $ WC "d_fcntl='" + perl_d_fcntl + "'"
3677 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
3678 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
3679 $ WC "d_flock='" + perl_d_flock + "'"
3680 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
3681 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
3682 $ WC "d_getgrps='" + perl_d_getgrps + "'"
3683 $ WC "d_setgrps='" + perl_d_setgrps + "'"
3684 $ WC "d_uname='" + perl_d_uname + "'"
3685 $ WC "d_getprior='" + perl_d_getprior + "'"
3686 $ WC "d_killpg='" + perl_d_killpg + "'"
3687 $ WC "d_link='" + perl_d_link + "'"
3688 $ WC "d_lstat='" + perl_d_lstat + "'"
3689 $ WC "d_lockf='" + perl_d_lockf + "'"
3690 $ WC "d_memcmp='" + perl_d_memcmp + "'"
3691 $ WC "d_memcpy='" + perl_d_memcpy + "'"
3692 $ WC "d_memmove='" + perl_d_memmove + "'"
3693 $ WC "d_memset='" + perl_d_memset + "'"
3694 $ WC "d_mkdir='" + perl_d_mkdir + "'"
3695 $ WC "d_msg='" + perl_d_msg + "'"
3696 $ WC "d_open3='" + perl_d_open3 + "'"
3697 $ WC "d_poll='" + perl_d_poll + "'"
3698 $ WC "d_readdir='" + perl_d_readdir + "'"
3699 $ WC "d_seekdir='" + perl_d_seekdir + "'"
3700 $ WC "d_telldir='" + perl_d_telldir + "'"
3701 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
3702 $ WC "d_rename='" + perl_d_rename + "'"
3703 $ WC "d_rmdir='" + perl_d_rmdir + "'"
3704 $ WC "d_sem='" + perl_d_sem + "'"
3705 $ WC "d_setegid='" + perl_d_setegid + "'"
3706 $ WC "d_seteuid='" + perl_d_seteuid + "'"
3707 $ WC "d_setprior='" + perl_d_setprior + "'"
3708 $ WC "d_setregid='" + perl_d_setregid + "'"
3709 $ WC "d_setresgid='" + perl_d_setresgid + "'"
3710 $ WC "d_setreuid='" + perl_d_setreuid + "'"
3711 $ WC "d_setresuid='" + perl_d_setresuid + "'"
3712 $ WC "d_setrgid='" + perl_d_setrgid + "'"
3713 $ WC "d_setruid='" + perl_d_setruid + "'"
3714 $ WC "d_setsid='" + perl_d_setsid + "'"
3715 $ WC "d_shm='" + perl_d_shm + "'"
3716 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
3717 $ WC "d_sigaction='" + perl_d_sigaction + "'"
3718 $ WC "d_statblks='" + perl_d_statblks + "'"
3719 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
3720 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
3721 $ WC "stdio_base='" + perl_stdio_base + "'"
3722 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
3723 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
3724 $ WC "d_strerror='" + perl_d_strerror + "'"
3725 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
3726 $ WC "d_strerrm='" + perl_d_strerrm + "'"
3727 $ WC "d_symlink='" + perl_d_symlink + "'"
3728 $ WC "d_syscall='" + perl_d_syscall + "'"
3729 $ WC "d_system='" + perl_d_system + "'"
3730 $ WC "timetype='" + perl_timetype + "'"
3731 $ WC "d_truncate='" + perl_d_truncate + "'"
3732 $ WC "d_vfork='" + perl_d_vfork + "'"
3733 $ WC "signal_t='" + perl_signal_t + "'"
3734 $ WC "d_volatile='" + perl_d_volatile + "'"
3735 $ WC "d_vprintf='" + perl_d_vprintf + "'"
3736 $ WC "d_charvspr='" + perl_d_charvspr + "'"
3737 $ WC "d_wait4='" + perl_d_wait4 + "'"
3738 $ WC "d_waitpid='" + perl_d_waitpid + "'"
3739 $ WC "i_dirent='" + perl_i_dirent + "'"
3740 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
3741 $ WC "direntrytype='" + perl_direntrytype + "'"
3742 $ WC "i_fcntl='" + perl_i_fcntl + "'"
3743 $ WC "i_grp='" + perl_i_grp + "'"
3744 $ WC "i_limits='" + perl_i_limits + "'"
3745 $ WC "i_memory='" + perl_i_memory + "'"
3746 $ WC "i_ndbm='" + perl_i_ndbm + "'"
3747 $ WC "i_stdarg='" + perl_i_stdarg + "'"
3748 $ WC "i_pwd='" + perl_i_pwd + "'"
3749 $ WC "d_pwquota='" + perl_d_pwquota + "'"
3750 $ WC "d_pwage='" + perl_d_pwage + "'"
3751 $ WC "d_pwchange='" + perl_d_pwchange + "'"
3752 $ WC "d_pwclass='" + perl_d_pwclass + "'"
3753 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
3754 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
3755 $ WC "i_stddef='" + perl_i_stddef + "'"
3756 $ WC "i_stdlib='" + perl_i_stdlib + "'"
3757 $ WC "i_string='" + perl_i_string + "'"
3758 $ WC "i_sysdir='" + perl_i_sysdir + "'"
3759 $ WC "i_sysfile='" + perl_i_sysfile + "'"
3760 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
3761 $ WC "i_sysndir='" + perl_i_sysndir + "'"
3762 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
3763 $ WC "i_sysselct='" + perl_i_sysselct + "'"
3764 $ WC "i_dbm='" + perl_i_dbm + "'"
3765 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
3766 $ WC "i_sfio='" + perl_i_sfio + "'"
3767 $ WC "i_sysstat='" + perl_i_sysstat + "'"
3768 $ WC "i_systimes='" + perl_i_systimes + "'"
3769 $ WC "i_systypes='" + perl_i_systypes + "'"
3770 $ WC "i_sysun='" + perl_i_sysun + "'"
3771 $ WC "i_syswait='" + perl_i_syswait + "'"
3772 $ WC "i_termio='" + perl_i_termio + "'"
3773 $ WC "i_sgtty='" + perl_i_sgtty + "'"
3774 $ WC "i_termios='" + perl_i_termios + "'"
3775 $ WC "i_time='" + perl_i_time + "'"
3776 $ WC "i_systime='" + perl_i_systime + "'"
3777 $ WC "i_systimek='" + perl_i_systimek + "'"
3778 $ WC "i_unistd='" + perl_i_unistd + "'"
3779 $ WC "i_utime='" + perl_i_utime + "'"
3780 $ WC "i_varargs='" + perl_i_varargs + "'"
3781 $ WC "i_vfork='" + perl_i_vfork + "'"
3782 $ WC "prototype='" + perl_prototype + "'"
3783 $ WC "randbits='" + perl_randbits +"'"
3784 $ WC "selecttype='" + perl_selecttype + "'"
3785 $ WC "stdchar='" + perl_stdchar + "'"
3786 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
3787 $ WC "full_sed='" + perl_full_sed + "'"
3788 $ WC "bin='" + perl_bin + "'"
3789 $ WC "binexp='" + perl_binexp + "'"
3790 $ WC "d_alarm='" + perl_d_alarm + "'"
3791 $ WC "d_casti32='" + perl_d_casti32 + "'"
3792 $ WC "d_chown='" + perl_d_chown + "'"
3793 $ WC "d_chroot='" + perl_d_chroot + "'"
3794 $ WC "d_cuserid='" + perl_d_cuserid + "'"
3795 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
3796 $ WC "d_ldbl_dig='" + perl_d_ldbl_dig + "'"
3797 $ WC "d_difftime='" + perl_d_difftime + "'"
3798 $ WC "d_fork='" + perl_d_fork + "'"
3799 $ WC "d_getlogin='" + perl_d_getlogin + "'"
3800 $ WC "d_getppid='" + perl_d_getppid + "'"
3801 $ WC "d_htonl='" + perl_d_htonl + "'"
3802 $ WC "d_nice='" + perl_d_nice + "'"
3803 $ WC "d_pause='" + perl_d_pause + "'"
3804 $ WC "d_pipe='" + perl_d_pipe + "'"
3805 $ WC "d_readlink='" + perl_d_readlink + "'"
3806 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
3807 $ WC "d_strchr='" + perl_d_strchr + "'"
3808 $ WC "d_index='" + perl_d_index + "'"
3809 $ WC "d_strtod='" + perl_d_strtod + "'"
3810 $ WC "d_strtol='" + perl_d_strtol + "'"
3811 $ WC "d_strtoul='" + perl_d_strtoul + "'"
3812 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
3813 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
3814 $ WC "d_times='" + perl_d_times + "'"
3815 $ WC "d_tzname='" + perl_d_tzname + "'"
3816 $ WC "d_umask='" + perl_d_umask + "'"
3817 $ WC "fpostype='" + perl_fpostype + "'"
3818 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
3819 $ WC "i_float='" + perl_i_float + "'"
3820 $ WC "i_math='" + perl_i_math + "'"
3821 $ WC "intsize='" + perl_intsize + "'"
3822 $ WC "longsize='" + perl_longsize + "'"
3823 $ WC "shortsize='" + perl_shortsize + "'"
3824 $ WC "lseektype='" + perl_lseektype + "'"
3825 $ WC "lseeksize='4'"
3826 $ WC "i_values='" + perl_i_values + "'"
3827 $ WC "malloctype='" + perl_malloctype + "'"
3828 $ WC "freetype='" + perl_freetype + "'"
3829 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
3830 $ WC "sh='" + perl_sh + "'"
3831 $ WC "sig_name='" + perl_sig_name + "'"
3832 $ WC "sig_num='" + perl_sig_num + "'"
3833 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
3835 $ WC "modetype='" + perl_modetype + "'"
3836 $ WC "ssizetype='" + perl_ssizetype + "'"
3837 $ WC "o_nonblock='" + perl_o_nonblock + "'"
3838 $ WC "eagain='" + perl_eagain + "'"
3839 $ WC "rd_nodata='" + perl_rd_nodata + "'"
3840 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
3841 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
3842 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
3843 $ WC "oldarchlib='" + perl_oldarchlib + "'"
3844 $ WC "privlibexp='" + perl_privlibexp + "'"
3845 $ WC "privlib='" + perl_privlib + "'"
3846 $ WC "sitelibexp='" + perl_sitelibexp + "'"
3847 $ WC "sitelib='" + perl_sitelib + "'"
3848 $ WC "sitearchexp='" + perl_sitearchexp + "'"
3849 $ WC "sitearch='" + perl_sitearch + "'"
3850 $ WC "sizetype='" + perl_sizetype + "'"
3851 $ WC "i_sysparam='" + perl_i_sysparam + "'"
3852 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
3853 $ WC "d_dlerror='" + perl_d_dlerror + "'"
3854 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
3855 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
3856 $ WC "d_dosuid='" + perl_d_dosuid + "'"
3857 $ WC "d_inetaton='" + perl_d_inetaton + "'"
3858 $ WC "d_int64_t='" + perl_d_int64_t + "'"
3859 $ WC "d_isascii='" + perl_d_isascii + "'"
3860 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
3861 $ WC "d_pathconf='" + perl_d_pathconf + "'"
3862 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
3863 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
3864 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
3865 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
3866 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
3867 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
3868 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
3869 $ WC "d_setpgid='" + perl_d_setpgid + "'"
3870 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
3871 $ WC "d_sysconf='" + perl_d_sysconf + "'"
3872 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
3873 $ WC "d_getpgid='" + perl_d_getpgid + "'"
3874 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
3875 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
3876 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
3877 $ WC "d_sfio='" + perl_d_sfio + "'"
3878 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
3879 $ WC "usedl='" + perl_usedl + "'"
3880 $ WC "startperl=" + perl_startperl ! This one's special--no enclosing single quotes
3881 $ WC "db_hashtype='" + perl_db_hashtype + "'"
3882 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
3883 $ WC "useperlio='" + perl_useperlio + "'"
3884 $ WC "defvoidused='" + perl_defvoidused + "'"
3885 $ WC "voidflags='" + perl_voidflags + "'"
3886 $ WC "d_eunice='" + perl_d_eunice + "'"
3887 $ WC "libs='" + perl_libs + "'"
3888 $ WC "libc='" + perl_libc + "'"
3889 $ tempstring = "PERL_VERSION='" + "''perl_patchlevel'" + "'"
3891 $ tempstring = "PERL_SUBVERSION='" + "''perl_patchlevel'" + "'"
3893 $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
3895 $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
3897 $ WC "pager='" + perl_pager + "'"
3898 $ WC "uidtype='" + perl_uidtype + "'"
3899 $ WC "gidtype='" + perl_gidtype + "'"
3900 $ WC "usethreads='" + perl_usethreads + "'"
3901 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
3902 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
3903 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
3904 $ WC "i_netdb='" + perl_i_netdb + "'"
3905 $ WC "pidtype='" + perl_pidtype + "'"
3906 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
3907 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
3908 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
3909 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
3910 $ WC "baserev='" + perl_baserev + "'"
3911 $ WC "doublesize='" + perl_doublesize + "'"
3912 $ WC "ptrsize='" + perl_ptrsize + "'"
3913 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
3914 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
3915 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
3916 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
3917 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
3918 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
3919 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
3920 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
3921 $ WC "d_sethent='" + perl_d_sethent + "'"
3922 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
3923 $ WC "d_longdbl='" + perl_d_longdbl + "'"
3924 $ WC "longdblsize='" + perl_longdblsize + "'"
3925 $ WC "d_longlong='" + perl_d_longlong + "'"
3926 $ WC "longlongsize='" + perl_longlongsize + "'"
3927 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
3928 $ WC "d_mkstemps='" + perl_d_mkstemps + "'"
3929 $ WC "d_mkdtemp='" + perl_d_mkdtemp + "'"
3930 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
3931 $ WC "d_setenv='" + perl_d_setenv + "'"
3932 $ WC "d_endhent='" + perl_d_endhent + "'"
3933 $ WC "d_endnent='" + perl_d_endsent + "'"
3934 $ WC "d_endpent='" + perl_d_endpent + "'"
3935 $ WC "d_endsent='" + perl_d_endsent + "'"
3936 $ WC "d_gethent='" + perl_d_gethent + "'"
3937 $ WC "d_getnent='" + perl_d_getsent + "'"
3938 $ WC "d_getpent='" + perl_d_getpent + "'"
3939 $ WC "d_getsent='" + perl_d_getsent + "'"
3940 $ WC "d_sethent='" + perl_d_sethent + "'"
3941 $ WC "d_setnent='" + perl_d_setsent + "'"
3942 $ WC "d_setpent='" + perl_d_setpent + "'"
3943 $ WC "ebcdic='" + perl_ebcdic + "'"
3944 $ WC "d_setsent='" + perl_d_setsent + "'"
3945 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
3946 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
3947 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
3948 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
3949 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
3950 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
3951 $ WC "d_lchown='" + perl_d_lchown + "'"
3952 $ WC "d_union_semun='" + perl_d_union_semun + "'"
3953 $ WC "i_arpainet='" + perl_i_arpainet + "'"
3954 $ WC "d_grpasswd='" + perl_d_grpasswd + "'"
3955 $ WC "d_setgrent='" + perl_d_setgrent + "'"
3956 $ WC "d_getgrent='" + perl_d_getgrent + "'"
3957 $ WC "d_endgrent='" + perl_d_endgrent + "'"
3958 $ WC "d_pwpasswd='" + perl_d_pwpasswd + "'"
3959 $ WC "d_setpwent='" + perl_d_setpwent + "'"
3960 $ WC "d_getpwent='" + perl_d_getpwent + "'"
3961 $ WC "d_endpwent='" + perl_d_endpwent + "'"
3962 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
3963 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
3964 $ WC "extensions='" + perl_extensions + "'"
3965 $ WC "d_mknod='" + perl_d_mknod + "'"
3966 $ WC "devtype='" + perl_devtype + "'"
3967 $ WC "d_gethname='" + perl_d_gethname + "'"
3968 $ WC "d_phostname='" + perl_d_phostname + "'"
3969 $ WC "d_accessx='" + perl_d_accessx + "'"
3970 $ WC "d_eaccess='" + perl_d_eaccess + "'"
3971 $ WC "i_sysaccess='" + perl_i_sysaccess + "'"
3972 $ WC "i_syssecrt='" + perl_i_syssecrt + "'"
3973 $ WC "d_fd_set='" + perl_d_fd_set + "'"
3974 $ WC "d_access='" + perl_d_access + "'"
3975 $ WC "d_msg_ctrunc='" + perl_d_msg_ctrunc + "'"
3976 $ WC "d_msg_dontroute='" + perl_d_msg_dontroute + "'"
3977 $ WC "d_msg_oob='" + perl_d_msg_oob + "'"
3978 $ WC "d_msg_peek='" + perl_d_msg_peek + "'"
3979 $ WC "d_msg_proxy='" + perl_d_msg_proxy + "'"
3980 $ WC "d_scm_rights='" + perl_d_scm_rights + "'"
3981 $ WC "d_sendmsg='" + perl_d_sendmsg + "'"
3982 $ WC "d_recvmsg='" + perl_d_recvmsg + "'"
3983 $ WC "d_msghdr_s='" + perl_d_msghdr_s + "'"
3984 $ WC "d_cmsghdr_s='" + perl_d_cmsghdr_s + "'"
3985 $ WC "i_sysuio='" + perl_i_sysuio + "'"
3986 $ WC "d_fseeko='" + perl_d_fseeko + "'"
3987 $ WC "d_ftello='" + perl_d_ftello + "'"
3988 $ WC "d_readv='" + perl_d_readv + "'"
3989 $ WC "d_writev='" + perl_d_writev + "'"
3990 $ WC "i_machcthr='" + perl_i_machcthr + "'"
3991 $ WC "usemultiplicity='" + perl_usemultiplicity + "'"
3992 $ WC "i_poll='" + perl_i_poll + "'"
3993 $ WC "i_inttypes='" + perl_i_inttypes + "'"
3994 $ WC "d_off64_t='" + perl_d_off64_t + "'"
3995 $ WC "d_fpos64_t='" + perl_d_fpos64_t + "'"
3996 $ WC "use64bits='" + perl_use64bits + "'"
3997 $ WC "d_drand48proto='" + perl_d_drand48proto + "'"
3998 $ WC "d_old_pthread_create_joinable='" + perl_d_old_pthread_create_joinable + "'"
3999 $ WC "old_pthread_create_joinable='" + perl_old_pthread_create_joinable + "'"
4000 $ WC "drand01='" + perl_drand01 + "'"
4001 $ WC "randseedtype='" + perl_randseedtype + "'"
4002 $ WC "seedfunc='" + perl_seedfunc + "'"
4003 $ WC "sig_num_init='" + perl_sig_num_with_commas + "'"
4004 $ WC "i_sysmount='" + perl_i_sysmount + "'"
4005 $ WC "d_fstatfs='" + perl_d_fstatfs + "'"
4006 $ WC "d_memchr='" + perl_d_memchr + "'"
4007 $ WC "d_statfsflags='" + perl_d_statfsflags + "'"
4008 $ WC "fflushNULL='define'"
4009 $ WC "fflushall='undef'"
4010 $ WC "d_stdio_stream_array='undef'"
4011 $ WC "i_sysstatvfs='" + perl_i_sysstatvfs + "'"
4012 $ WC "i_syslog='" + perl_i_syslog + "'"
4013 $ WC "i_sysmode='" + perl_i_sysmode + "'"
4014 $ WC "i_sysutsname='" + perl_i_sysutsname + "'"
4015 $ WC "i_machcthreads='" + perl_i_machcthreads + "'"
4016 $ WC "i_pthread='" + perl_i_pthread + "'"
4017 $ WC "d_fstatvfs='" + perl_d_fstatvfs + "'"
4018 $ WC "i_mntent='" + perl_i_mntent + "'"
4019 $ WC "d_getmntent='" + perl_d_getmntent + "'"
4020 $ WC "d_hasmntopt='" + perl_d_hasmntopt + "'"
4021 $ WC "d_telldirproto='" + perl_d_telldirproto + "'"
4022 $ WC "d_madvise='" + perl_d_madvise + "'"
4023 $ WC "d_msync='" + perl_d_msync + "'"
4024 $ WC "d_mprotect='" + perl_d_mprotect + "'"
4025 $ WC "d_munmap='" + perl_d_munmap + "'"
4026 $ WC "d_mmap='" + perl_d_mmap + "'"
4027 $ WC "i_sysmman='" + perl_i_sysmman + "'"
4028 $ WC "installusrbinperl='" + perl_installusrbinperl + "'"
4029 $! WC "selectminbits='" + perl_selectminbits + "'"
4030 $ WC "crosscompile='" + perl_crosscompile + "'"
4031 $ WC "multiarch='" + perl_multiarch + "'"
4032 $ WC "sched_yield='" + perl_sched_yield + "'"
4033 $ WC "d_strtoull='" + perl_d_strtoull + "'"
4034 $ WC "d_strtouq='" + perl_d_strtouq + "'"
4035 $ WC "d_strtoll='" + perl_d_strtoll + "'"
4036 $ WC "d_strtold='" + perl_d_strtold + "'"
4037 $ WC "usesocks='" + perl_usesocks + "'"
4038 $ WC "d_vendorlib='" + perl_d_vendorlib + "'"
4039 $ WC "vendorlibexp='" + perl_vendorlibexp + "'"
4040 $ WC "d_atolf='" + perl_d_atolf + "'"
4041 $ WC "d_atoll='" + perl_d_atoll + "'"
4042 $ WC "d_bincompat5005='" + perl_d_bincompat + "'"
4043 $ WC "d_endspent='" + perl_d_endspent + "'"
4044 $ WC "d_getspent='" + perl_d_getspent + "'"
4045 $ WC "d_getspnam='" + perl_d_getspnam + "'"
4046 $ WC "d_setspent='" + perl_d_setspent + "'"
4047 $ WC "i_shadow='" + perl_i_shadow + "'"
4048 $ WC "i_socks='" + perl_i_socks + "'"
4049 $ WC "d_PRIfldbl='" + perl_d_PRIfldbl + "'"
4050 $ WC "d_PRIgldbl='" + perl_d_PRIgldbl + "'"
4051 $ WC "d_PRId64='" + perl_d_PRId64 + "'"
4052 $ WC "d_PRIu64='" + perl_d_PRIu64 + "'"
4053 $ WC "d_PRIo64='" + perl_d_PRIo64 + "'"
4054 $ WC "d_PRIx64='" + perl_d_PRIx64 + "'"
4055 $ WC "sPRIfldbl='" + perl_sPRIfldbl + "'"
4056 $ WC "sPRIgldbl='" + perl_sPRIgldbl + "'"
4057 $ WC "sPRId64='" + perl_sPRId64 + "'"
4058 $ WC "sPRIu64='" + perl_sPRIu64 + "'"
4059 $ WC "sPRIo64='" + perl_sPRIo64 + "'"
4060 $ WC "sPRIx64='" + perl_sPRIx64 + "'"
4061 $ WC "d_llseek='" + perl_d_llseek + "'"
4062 $ WC "d_iconv='" + perl_d_iconv +"'"
4063 $ WC "i_iconv='" + perl_i_iconv +"'"
4064 $ WC "inc_version_list_init='""""'"
4065 $ WC "uselargefiles='" + perl_uselargefiles + "'"
4066 $ WC "uselongdouble='" + perl_uselongdouble + "'"
4067 $ WC "usemorebits='" + perl_usemorebits + "'"
4068 $ WC "d_quad='" + perl_d_quad + "'"
4069 $ if (use_64bit .eqs. "Y")
4071 $ WC "quadtype='" + perl_quadtype + "'"
4072 $ WC "uquadtype='" + perl_uquadtype + "'"
4074 $ WC "d_fs_data_s='" + perl_d_fs_data_s + "'"
4075 $ WC "d_getcwd='" + perl_d_getcwd + "'"
4076 $ WC "d_getmnt='" + perl_d_getmnt + "'"
4077 $ WC "d_sqrtl='" + perl_d_sqrtl + "'"
4078 $ WC "d_statfs_f_flags='" + perl_d_statfs_f_flags + "'"
4079 $ WC "d_statfs_s='" + perl_d_statfs_s + "'"
4080 $ WC "d_ustat='" + perl_d_ustat + "'"
4081 $ WC "i_sysstatfs='" + perl_i_sysstatfs + "'"
4082 $ WC "i_sysvfs='" + perl_i_sysvfs + "'"
4083 $ WC "i_ustat='" + perl_i_ustat + "'"
4084 $ WC "ivtype='" + perl_ivtype + "'"
4085 $ WC "uvtype='" + perl_uvtype + "'"
4086 $ WC "i8type='" + perl_i8type + "'"
4087 $ WC "i16type='" + perl_i16type + "'"
4088 $ WC "u8type='" + perl_u8type + "'"
4089 $ WC "u16type='" + perl_u16type + "'"
4090 $ WC "i32type='" + perl_i32type + "'"
4091 $ WC "u32type='" + perl_u32type + "'"
4092 $ WC "i64type='" + perl_i64type + "'"
4093 $ WC "u64type='" + perl_u64type + "'"
4094 $ WC "nvtype='" + perl_nvtype + "'"
4095 $ WC "ivsize='" + perl_ivsize + "'"
4096 $ WC "uvsize='" + perl_uvsize + "'"
4097 $ WC "i8size='" + perl_i8size + "'"
4098 $ WC "u8size='" + perl_u8size + "'"
4099 $ WC "i16size='" + perl_i16size + "'"
4100 $ WC "u16size='" + perl_u16size + "'"
4101 $ WC "i32size='" + perl_i32size + "'"
4102 $ WC "u32size='" + perl_u32size + "'"
4103 $ WC "i64size='" + perl_i64size + "'"
4104 $ WC "u64size='" + perl_u64size + "'"
4105 $ WC "ivdformat='" + perl_ivdformat + "'"
4106 $ WC "uvuformat='" + perl_uvuformat + "'"
4107 $ WC "uvoformat='" + perl_uvoformat + "'"
4108 $ WC "uvxformat='" + perl_uvxformat + "'"
4110 $! ##WRITE NEW CONSTANTS HERE##
4114 $! Okay, we've gotten here. Build munchconfig and run it
4115 $ 'Perl_CC' munchconfig.c
4116 $ If (Needs_Opt.eqs."Yes")
4118 $ open/write OPTCHAN []munchconfig.opt
4119 $ IF ("''using_gnu_c'".eqs."Yes")
4121 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
4123 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
4125 $ link munchconfig.obj,munchconfig.opt/opt
4126 $ delete munchconfig.opt;*
4128 $ link munchconfig.obj
4131 $ echo "Writing config.h"
4133 $ ! we need an fdl file
4134 $ CREATE [-]CONFIG.FDL
4137 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
4138 $ ! First spit out the header info with the local defines (to get
4139 $ ! around the 255 character command line limit)
4140 $ OPEN/APPEND CONFIG [-]config.local
4141 $ if use_debugging_perl.eqs."Y"
4143 $ WRITE CONFIG "#define DEBUGGING"
4145 $ if use_two_pot_malloc.eqs."Y"
4147 $ WRITE CONFIG "#define TWO_POT_OPTIMIZE"
4149 $ if mymalloc.eqs."Y"
4151 $ WRITE CONFIG "#define EMBEDMYMALLOC"
4153 $ if use_pack_malloc.eqs."Y"
4155 $ WRITE CONFIG "#define PACK_MALLOC"
4157 $ if use_debugmalloc.eqs."Y"
4159 $ write config "#define DEBUGGING_MSTATS"
4161 $ if "''Using_Gnu_C'" .eqs."Yes"
4163 $ WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
4165 $ if "''Has_Dec_C_Sockets'".eqs."T"
4167 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
4168 $ WRITE CONFIG "#define DECCRTL_SOCKETS"
4170 $ if "''Has_Socketshr'".eqs."T"
4172 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
4174 $! This is VMS-specific for now
4175 $ WRITE CONFIG "#''perl_d_setenv' HAS_SETENV"
4176 $ if d_alwdeftype.eqs."Y"
4178 $ WRITE CONFIG "#define SECURE_INTERNAL_GETENV"
4180 $ WRITE CONFIG "#undef SECURE_INTERNAL_GETENV"
4182 $ if d_secintgenv.eqs."Y"
4184 $ WRITE CONFIG "#define ALWAYS_DEFTYPES"
4186 $ WRITE CONFIG "#undef ALWAYS_DEFTYPES"
4188 $ if use_64bit.eqs."Y"
4190 $ WRITE CONFIG "#define USE_64_BITS"
4191 $ WRITE CONFIG "#define USE_LONG_DOUBLE"
4193 $ WRITE CONFIG "#define HAS_ENVGETENV"
4194 $ WRITE CONFIG "#define PERL_EXTERNAL_GLOB"
4197 $! Now build the normal config.h
4198 $ define/user sys$output [-]config.main
4199 $ mcr []munchconfig [-]config.sh [-]config_h.sh
4200 $ ! Concatenate them together
4201 $ copy [-]config.local,[-]config.main [-]config.h
4203 $ DELETE/NOLOG [-]CONFIG.MAIN;*
4204 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
4205 $ DELETE/NOLOG [-]CONFIG.FDL;*
4207 $ if "''Using_Dec_C'" .eqs."Yes"
4209 $ DECC_REPLACE = "DECC=decc=1"
4211 $ DECC_REPLACE = "DECC="
4213 $ if "''Using_Gnu_C'" .eqs."Yes"
4215 $ GNUC_REPLACE = "GNUC=gnuc=1"
4217 $ GNUC_REPLACE = "GNUC="
4219 $ if "''Has_Dec_C_Sockets'" .eqs."T"
4221 $ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
4223 $ if "''Has_Socketshr'" .eqs."T"
4225 $ SOCKET_REPLACE = "SOCKET=SOCKETSHR_SOCKETS=1"
4227 $ SOCKET_REPLACE = "SOCKET="
4230 $ IF ("''Use_Threads'".eqs."T")
4232 $ if ("''VMS_VER'".LES."6.2")
4234 $ THREAD_REPLACE = "THREAD=OLDTHREADED=1"
4236 $ THREAD_REPLACE = "THREAD=THREADED=1"
4239 $ THREAD_REPLACE = "THREAD="
4241 $ if mymalloc.eqs."Y"
4243 $ MALLOC_REPLACE = "MALLOC=MALLOC=1"
4245 $ MALLOC_REPLACE = "MALLOC="
4247 $ if f$getsyi("HW_MODEL").ge.1024
4249 $ ARCH_TYPE = "ARCH-TYPE=__AXP__"
4251 $ ARCH_TYPE = "ARCH-TYPE=__VAX__"
4253 $ echo "Writing DESCRIP.MMS"
4255 $ define/user sys$output [-]descrip.mms
4256 $ 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'"
4257 $ echo "Extracting Build_Ext.Com"
4258 $ Create Sys$Disk:[-]Build_Ext.Com
4259 $ Deck/Dollar="$EndOfTpl$"
4261 $! NOTE: This file is extracted as part of the VMS configuration process.
4262 $! Any changes made to it directly will be lost. If you need to make any
4263 $! changes, please edit the template in [.vms]SubConfigure.Com instead.
4264 $ def = F$Environment("Default")
4265 $ exts1 = F$Edit(p1,"Compress")
4266 $ p2 = F$Edit(p2,"Upcase,Compress,Trim")
4267 $ If F$Locate("MCR ",p2).eq.0 Then p2 = F$Extract(3,255,p2)
4268 $ miniperl = "$" + F$Search(F$Parse(p2,".Exe"))
4270 $ if f$type('p3') .nes. "" then makeutil = 'p3'
4271 $ targ = F$Edit(p4,"Lowercase")
4274 $ ext = F$Element(i," ",p1)
4275 $ If ext .eqs. " " Then Goto done
4276 $ Define/User Perl_Env_Tables CLISYM_LOCAL
4278 ($extdir = $ENV{'ext'}) =~ s/::/./g;
4279 if ($extdir =~ /^vms/i) { $extdir =~ s/vms/.vms.ext/i; }
4280 else { $extdir = ".ext.$extdir"; }
4281 ($ENV{'extdir'} = "[$extdir]");
4282 ($ENV{'up'} = ('-') x ($extdir =~ tr/././));
4283 $ Set Default &extdir
4285 $ If F$Locate("clean",targ) .eqs. F$Length(targ)
4287 $ Write Sys$Output "Building ''ext' . . ."
4288 $ On Error Then Goto done
4289 $ If F$Search("Descrip.MMS") .eqs. ""
4293 $ If F$CvTime(F$File("Descrip.MMS","rdt")) .lts. -
4294 F$CvTime(F$File("Makefile.PL","rdt")) Then redesc = 1
4297 $ Write Sys$Output "''targ'ing ''ext' . . ."
4298 $ On Error Then Continue
4301 miniperl "-I[''up'.lib]" Makefile.PL "INST_LIB=[''up'.lib]" "INST_ARCHLIB=[''up'.lib]"
4315 $! Clean up after ourselves
4316 $ delete/nolog munchconfig.exe;*
4317 $ delete/nolog munchconfig.obj;*