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"
152 $ perl_i_arpainet="undef"
153 $ perl_d_grpasswd="undef"
154 $ perl_d_setgrent="undef"
155 $ perl_d_getgrent="define"
156 $ perl_d_endgrent="define"
157 $ perl_d_pwpasswd="define"
158 $ perl_d_setpwent="define"
159 $ perl_d_getpwent="define"
160 $ perl_d_endpwent="define"
161 $ perl_d_phostname="undef"
162 $ perl_d_accessx="undef"
163 $ perl_d_eaccess="undef"
164 $ perl_ebcdic="undef"
166 $ perl_shrplib="define"
167 $ perl_usemymalloc=mymalloc
168 $ perl_usevfork="true"
169 $ perl_useposix="false"
170 $ perl_spitshell="write sys$output "
171 $ perl_dlsrc="dl_vms.c"
174 $ perl_prefix="perl_root"
175 $ perl_binexp="''perl_prefix':[000000]"
176 $ perl_builddir="''perl_prefix':[000000]"
177 $ perl_installbin="''perl_prefix':[000000]"
178 $ perl_installscript="''perl_prefix':[utils]"
179 $ perl_installman1dir="''perl_prefix':[man.man1]"
180 $ perl_installman3dir="''perl_prefix':[man.man3]"
181 $ perl_installprivlib="''perl_prefix':[lib]"
182 $ perl_installsitelib="''perl_prefix':[lib.site_perl]"
185 $ perl_d_sockpair="undef"
186 $ perl_i_neterrno="define"
187 $ perl_ldflags="/NoTrace/NoMap"
188 $ perl_d_lchown="undef"
189 $ perl_d_mknod="undef"
190 $ perl_d_union_semun="undef"
191 $ perl_d_semctl_semun="undef"
192 $ perl_d_semctl_semid_ds="undef"
193 $ IF (sharedperl.EQS."Y" .AND. F$GETSYI("HW_MODEL").GE.1024)
195 $ perl_obj_ext=".abj"
198 $ perl_exe_ext=".axe"
199 $ perl_lib_ext=".alb"
201 $ perl_obj_ext=".obj"
204 $ perl_exe_ext=".exe"
205 $ perl_lib_ext=".olb"
207 $ perl_dlobj="dl_vms''perl_obj_ext'"
209 $ perl_d_archlib="define"
210 $ perl_d_bincompat3="undef"
211 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
213 $ perl_d_castneg="define"
215 $ perl_d_chsize="undef"
216 $ perl_d_const="define"
217 $ perl_d_crypt="define"
218 $ perl_byteorder="1234"
221 $ perl_d_dup2="define"
222 $ perl_d_fchmod="undef"
223 $ perl_d_fchown="undef"
224 $ perl_d_fcntl="undef"
225 $ perl_d_fgetpos="define"
226 $ perl_d_flexfnam="define"
227 $ perl_d_flock="undef"
228 $ perl_d_fsetpos="define"
229 $ perl_d_getgrps="undef"
230 $ perl_d_setgrps="undef"
231 $ perl_d_getprior="undef"
232 $ perl_d_killpg="undef"
233 $ perl_d_link="undef"
234 $ perl_d_lstat="undef"
235 $ perl_d_lockf="undef"
236 $ perl_d_memcmp="define"
237 $ perl_d_memcpy="define"
238 $ perl_d_memmove="define"
239 $ perl_d_memset="define"
240 $ perl_d_mkdir="define"
242 $ perl_d_open3="define"
243 $ perl_d_poll="undef"
244 $ perl_d_readdir="define"
245 $ perl_d_seekdir="define"
246 $ perl_d_telldir="define"
247 $ perl_d_rewinddir="define"
248 $ perl_d_rename="define"
249 $ perl_d_rmdir="define"
251 $ perl_d_setegid="undef"
252 $ perl_d_seteuid="undef"
253 $ perl_d_setprior="undef"
254 $ perl_d_setregid="undef"
255 $ perl_d_setresgid="undef"
256 $ perl_d_setreuid="undef"
257 $ perl_d_setresuid="undef"
258 $ perl_d_setrgid="undef"
259 $ perl_d_setruid="undef"
260 $ perl_d_setsid="undef"
262 $ perl_d_shmatprototype="undef"
263 $ perl_d_statblks="undef"
264 $ perl_stdio_ptr="((*fp)->_ptr)"
265 $ perl_stdio_cnt="((*fp)->_cnt)"
266 $ perl_stdio_base="((*fp)->_base)"
267 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
268 $ perl_d_strctcpy="define"
269 $ perl_d_strerror="define"
270 $ perl_d_syserrlst="undef"
271 $ perl_d_strerrm="strerror((e),vaxc$errno)"
272 $ perl_d_symlink="undef"
273 $ perl_d_syscall="undef"
274 $ perl_d_system="define"
275 $ perl_timetype="time_t"
276 $ perl_d_vfork="define"
277 $ perl_signal_t="void"
278 $ perl_d_volatile="define"
279 $ perl_d_vprintf="define"
280 $ perl_d_charvspr="undef"
281 $ perl_d_waitpid="define"
282 $ perl_i_dirent="undef"
283 $ perl_d_dirnamlen="define"
284 $ perl_direntrytype="struct dirent"
285 $ perl_i_fcntl="undef"
287 $ perl_i_limits="define"
288 $ perl_i_memory="undef"
289 $ perl_i_ndbm="undef"
290 $ perl_i_stdarg="define"
292 $ perl_d_pwquota="undef"
293 $ perl_d_pwage="undef"
294 $ perl_d_pwchange="undef"
295 $ perl_d_pwclass="undef"
296 $ perl_d_pwexpire="undef"
297 $ perl_d_pwcomment="define"
298 $ perl_i_stddef="define"
299 $ perl_i_stdlib="define"
300 $ perl_i_string="define"
301 $ perl_i_sysdir="undef"
302 $ perl_i_sysfile="undef"
303 $ perl_i_sysioctl="undef"
304 $ perl_i_sysndir="undef"
305 $ perl_i_sysresrc="undef"
306 $ perl_i_sysselct="undef"
308 $ perl_i_rpcsvcdbm="undef"
309 $ perl_i_sfio="undef"
310 $ perl_i_sysstat="define"
311 $ perl_i_systimes="undef"
312 $ perl_i_systypes="define"
313 $ perl_i_sysun="undef"
314 $ perl_i_syswait="undef"
315 $ perl_i_termio="undef"
316 $ perl_i_sgtty="undef"
317 $ perl_i_termios="undef"
318 $ perl_i_time="define"
319 $ perl_i_systime="undef"
320 $ perl_i_systimek="undef"
321 $! perl_i_unistd="undef"
322 $ perl_i_utime="undef"
323 $ perl_i_varargs="undef"
324 $ perl_i_vfork="undef"
325 $ perl_prototype="define"
327 $ perl_stdchar="char"
328 $ perl_d_unlink_all_versions="undef"
329 $ perl_full_sed="_NLA0:"
330 $ perl_bin="/''perl_prefix'/000000"
331 $ perl_binexp="''perl_prefix':[000000]"
332 $ perl_d_alarm="define"
333 $ perl_d_casti32="define"
334 $ perl_d_chown="define"
335 $ perl_d_chroot="undef"
336 $ perl_d_cuserid="define"
337 $ perl_d_dbl_dig="define"
338 $ perl_d_ldbl_dig="define"
339 $ perl_d_difftime="define"
340 $ perl_d_fork="undef"
341 $ perl_d_getlogin="define"
342 $ perl_d_getppid="undef"
343 $ perl_d_nice="define"
344 $ perl_d_pause="define"
345 $ perl_d_pipe="define"
346 $ perl_d_readlink="undef"
347 $ perl_d_setlinebuf="undef"
348 $ perl_d_strchr="define"
349 $ perl_d_strtod="define"
350 $ perl_d_strtol="define"
351 $ perl_d_strtoul="define"
352 $ perl_d_tcgetpgrp="undef"
353 $ perl_d_tcsetpgrp="undef"
354 $ perl_d_times="define"
355 $ perl_d_tzname="undef"
356 $ perl_d_umask="define"
357 $ perl_fpostype="fpos_t"
358 $ perl_i_dlfcn="undef"
359 $ perl_i_float="define"
360 $ perl_i_math="define"
361 $ perl_lseektype="int"
362 $ perl_i_values="undef"
363 $ perl_malloctype="void *"
364 $ perl_freetype="void"
365 $ if "''mymalloc'".eqs."Y"
367 $ perl_d_mymalloc="define"
369 $ perl_d_mymalloc="undef"
372 $ perl_modetype="unsigned int"
373 $ perl_ssizetype="int"
374 $ perl_o_nonblock=" "
377 $ perl_d_eofnblk="undef"
378 $ perl_d_oldarchlib="define"
379 $ perl_privlibexp="''perl_prefix':[lib]"
380 $ perl_privlib="''perl_prefix':[lib]"
381 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
382 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
383 $ perl_sizetype="size_t"
384 $ perl_i_sysparam="undef"
385 $ perl_d_void_closedir="define"
386 $ perl_d_dlerror="undef"
387 $ perl_d_dlsymun="undef"
388 $ perl_d_suidsafe="undef"
389 $ perl_d_dosuid="undef"
390 $ perl_d_inetaton="undef"
391 $ perl_d_isascii="define"
392 $ perl_d_mkfifo="undef"
393 $ perl_d_safebcpy="undef"
394 $ perl_d_safemcpy="define"
395 $ perl_d_sanemcmp="define"
396 $ perl_d_setpgrp="undef"
397 $ perl_d_bsdsetpgrp="undef"
398 $ perl_d_bsdpgrp="undef"
399 $ perl_d_setpgid="undef"
400 $ perl_d_setpgrp2="undef"
401 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
402 $ perl_d_getpgid="undef"
403 $ perl_d_getpgrp="undef"
404 $ perl_d_bsdgetpgrp="undef"
405 $ perl_d_getpgrp2="undef"
406 $ perl_d_sfio="undef"
407 $ perl_usedl="define"
408 $ perl_startperl="""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ + ++$status != 0 and $exit = $status = undef;"""
409 $ perl_db_hashtype=" "
410 $ perl_db_prefixtype=" "
411 $ perl_useperlio="undef"
412 $ perl_defvoidused="15"
413 $ perl_voidflags="15"
414 $ perl_d_eunice="undef"
415 $ perl_d_pwgecos="define"
416 $ IF ("''Use_Threads'".eqs."T").and.("''VMS_VER'".LES."6.2")
418 $ 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"
422 $ IF ("''Using_Dec_C'".eqs."Yes")
424 $ perl_libc="(DECCRTL)"
428 $ perl_PATCHLEVEL="''patchlevel'"
429 $ perl_SUBVERSION="''subversion'"
434 $ if (use_64bit .eqs. "Y")
436 $ perl_d_PRIfldbl = "define"
437 $ perl_d_PRIgldbl = "define"
438 $ perl_d_PRId64 = "define"
439 $ perl_d_PRIu64 = "define"
440 $ perl_d_PRIo64 = "define"
441 $ perl_d_PRIx64 = "define"
442 $ perl_sPRIfldbl = """Lf"""
443 $ perl_sPRIgldbl = """Lg"""
444 $ perl_sPRId64 = """Ld"""
445 $ perl_sPRIu64 = """Lu"""
446 $ perl_sPRIo64 = """Lo"""
447 $ perl_sPRIx64 = """Lx"""
448 $ perl_d_quad = "define"
449 $ perl_quadtype = "long long"
450 $ perl_uquadtype = "unsigned long long"
452 $ perl_d_PRIfldbl = "undef"
453 $ perl_d_PRIgldbl = "undef"
454 $ perl_d_PRId64 = "undef"
455 $ perl_d_PRIu64 = "undef"
456 $ perl_d_PRIo64 = "undef"
457 $ perl_d_PRIx64 = "undef"
458 $ perl_sPRIfldbl = ""
459 $ perl_sPRIgldbl = ""
464 $ perl_d_quad = "undef"
467 $! Now some that we build up
469 $ LocalTime = f$time()
470 $ perl_cf_time= f$extract(0, 3, f$cvtime(LocalTime,, "WEEKDAY")) + " " + -
471 f$edit(f$cvtime(LocalTime, "ABSOLUTE", "MONTH"), "LOWERCASE") + -
472 " " + f$cvtime(LocalTime,, "DAY") + " " + f$cvtime(LocalTime,, "TIME") + -
473 " " + f$cvtime(LocalTime,, "YEAR")
474 $ if f$getsyi("HW_MODEL").ge.1024
476 $ perl_arch="VMS_AXP"
477 $ perl_archname="VMS_AXP"
478 $ perl_alignbytes="8"
480 $ perl_arch="VMS_VAX"
481 $ perl_archname="VMS_VAX"
482 $ perl_alignbytes="8"
484 $ if ("''Use_Threads'".eqs."T")
486 $ perl_arch = "''perl_arch'-thread"
487 $ perl_archname = "''perl_archname'-thread"
488 $ perl_d_old_pthread_create_joinable = "undef"
489 $ perl_old_pthread_create_joinable = " "
490 $ perl_use5005threads = "define"
492 $ perl_d_old_pthread_create_joinable = "undef"
493 $ perl_old_pthread_create_joinable = " "
494 $ perl_use5005threads = "undef"
496 $ perl_useithreads = "undef"
497 $ perl_osvers=f$edit(osvers, "TRIM")
498 $ if (perl_subversion + 0).eq.0
500 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL
502 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion
505 $! Some that we need to invoke the compiler for
506 $ OS := "open/write SOURCECHAN []temp.c"
507 $ WS := "write SOURCECHAN"
508 $ CS := "close SOURCECHAN"
509 $ DS := "delete/nolog []temp.*;*"
511 $ if ("''using_vax_c'".eqs."Yes").or.("''using_gnu_c'".eqs."Yes")
513 $ open/write OPTCHAN []temp.opt
514 $ IF ("''using_gnu_c'".eqs."Yes")
516 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
518 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
523 $! Check for __STDC__
527 $ WS "#include <stdlib.h>
529 $ WS "#include <stdio.h>
532 $ WS "#ifdef __STDC__
533 $ WS "printf(""42\n"");
535 $ WS "printf(""1\n"");
540 $ DEFINE SYS$ERROR _NLA0:
541 $ DEFINE SYS$OUTPUT _NLA0:
542 $ ON ERROR THEN CONTINUE
543 $ ON WARNING THEN CONTINUE
545 $ If (Needs_Opt.eqs."Yes")
547 $ link temp.obj,temp.opt/opt
551 $ DEASSIGN SYS$OUTPUT
553 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
554 $ DEFINE SYS$ERROR TEMPOUT
555 $ DEFINE SYS$OUTPUT TEMPOUT
558 $ DEASSIGN SYS$OUTPUT
560 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
563 $ DELETE/NOLOG [-.uu]tempout.lis;
565 $ perl_cpp_stuff=line
566 $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
568 $! Check for double size
572 $ WS "#include <stdlib.h>
574 $ WS "#include <stdio.h>
578 $ WS "foo = sizeof(double);
579 $ WS "printf(""%d\n"", foo);
583 $ DEFINE SYS$ERROR _NLA0:
584 $ DEFINE SYS$OUTPUT _NLA0:
585 $ ON ERROR THEN CONTINUE
586 $ ON WARNING THEN CONTINUE
588 $ If (Needs_Opt.eqs."Yes")
590 $ link temp.obj,temp.opt/opt
594 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
595 $ DEASSIGN SYS$OUTPUT
597 $ DEFINE SYS$ERROR TEMPOUT
598 $ DEFINE SYS$OUTPUT TEMPOUT
601 $ DEASSIGN SYS$OUTPUT
603 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
606 $ DELETE/NOLOG [-.uu]tempout.lis;
608 $ perl_doublesize=line
609 $ WRITE_RESULT "doublesize is ''perl_doublesize'"
611 $! Check for long double size
615 $ WS "#include <stdlib.h>
617 $ WS "#include <stdio.h>
620 $ WS "printf(""%d\n"", sizeof(long double));
624 $ DEFINE SYS$ERROR _NLA0:
625 $ DEFINE SYS$OUTPUT _NLA0:
626 $ ON ERROR THEN CONTINUE
627 $ ON WARNING THEN CONTINUE
629 $ teststatus = f$extract(9,1,$status)
630 $ if (teststatus.nes."1")
632 $ perl_longdblsize="0"
633 $ perl_d_longdbl="undef"
635 $ ON ERROR THEN CONTINUE
636 $ ON WARNING THEN CONTINUE
637 $ If (Needs_Opt.eqs."Yes")
639 $ link temp.obj,temp.opt/opt
643 $ teststatus = f$extract(9,1,$status)
644 $ DEASSIGN SYS$OUTPUT
646 $ if (teststatus.nes."1")
648 $ perl_longdblsize="0"
649 $ perl_d_longdbl="undef"
651 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
652 $ DEFINE SYS$ERROR TEMPOUT
653 $ DEFINE SYS$OUTPUT TEMPOUT
656 $ DEASSIGN SYS$OUTPUT
658 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
661 $ DELETE/NOLOG [-.uu]tempout.lis;
663 $ perl_longdblsize=line
664 $ perl_d_longdbl="define"
667 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
668 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
670 $! Check for long long existance and size
674 $ WS "#include <stdlib.h>
676 $ WS "#include <stdio.h>
679 $ WS "printf(""%d\n"", sizeof(long long));
683 $ DEFINE SYS$ERROR _NLA0:
684 $ DEFINE SYS$OUTPUT _NLA0:
685 $ on error then continue
686 $ on warning then continue
688 $ If (Needs_Opt.eqs."Yes")
690 $ link temp.obj,temp.opt/opt
694 $ teststatus = f$extract(9,1,$status)
695 $ DEASSIGN SYS$OUTPUT
697 $ if (teststatus.nes."1")
699 $ perl_longlongsize="0"
700 $ perl_d_longlong="undef"
702 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
703 $ DEFINE SYS$ERROR TEMPOUT
704 $ DEFINE SYS$OUTPUT TEMPOUT
707 $ DEASSIGN SYS$OUTPUT
709 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
712 $ DELETE/NOLOG [-.uu]tempout.lis;
713 $ perl_longlongsize=line
714 $ perl_d_longlong="define"
716 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
717 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
719 $! Check the prototype for getgid
723 $ WS "#include <stdlib.h>
725 $ WS "#include <stdio.h>
726 $ WS "#include <types.h>
727 $ WS "#include <unistd.h>
734 $ DEFINE SYS$ERROR _NLA0:
735 $ DEFINE SYS$OUTPUT _NLA0:
736 $ on error then continue
737 $ on warning then continue
739 $ teststatus = f$extract(9,1,$status)
740 $ DEASSIGN SYS$OUTPUT
742 $ if (teststatus.nes."1")
744 $! Okay, gid_t failed. Must be unsigned int
745 $ perl_gidtype = "unsigned int"
747 $ perl_gidtype = "gid_t"
749 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
751 $! Check to see if we've got dev_t
755 $ WS "#include <stdlib.h>
757 $ WS "#include <stdio.h>
758 $ WS "#include <types.h>
759 $ WS "#include <unistd.h>
766 $ DEFINE SYS$ERROR _NLA0:
767 $ DEFINE SYS$OUTPUT _NLA0:
768 $ on error then continue
769 $ on warning then continue
771 $ teststatus = f$extract(9,1,$status)
772 $ DEASSIGN SYS$OUTPUT
774 $ if (teststatus.nes."1")
776 $! Okay, dev_t failed. Must be unsigned int
777 $ perl_devtype = "unsigned int"
779 $ perl_devtype = "dev_t"
781 $ WRITE_RESULT "Dev_t is ''perl_devtype'"
783 $! Check to see if we've got unistd.h (which we ought to, but you never know)
787 $ WS "#include <stdlib.h>
789 $ WS "#include <unistd.h>
795 $ DEFINE SYS$ERROR _NLA0:
796 $ DEFINE SYS$OUTPUT _NLA0:
797 $ on error then continue
798 $ on warning then continue
800 $ teststatus = f$extract(9,1,$status)
801 $ DEASSIGN SYS$OUTPUT
803 $ if (teststatus.nes."1")
805 $! Okay, failed. Must not have it
806 $ perl_i_unistd = "undef"
808 $ perl_i_unistd = "define"
811 $ WRITE_RESULT "i_unistd is ''perl_i_unistd'"
813 $! Check to see if we've got shadow.h (probably not, but...)
817 $ WS "#include <stdlib.h>
819 $ WS "#include <shadow.h>
825 $ DEFINE SYS$ERROR _NLA0:
826 $ DEFINE SYS$OUTPUT _NLA0:
827 $ on error then continue
828 $ on warning then continue
830 $ teststatus = f$extract(9,1,$status)
831 $ DEASSIGN SYS$OUTPUT
833 $ if (teststatus.nes."1")
835 $! Okay, failed. Must not have it
836 $ perl_i_shadow = "undef"
838 $ perl_i_shadow = "define"
841 $ WRITE_RESULT "i_shadow is ''perl_i_shadow'"
843 $! Check to see if we've got socks.h (probably not, but...)
847 $ WS "#include <stdlib.h>
849 $ WS "#include <socks.h>
855 $ DEFINE SYS$ERROR _NLA0:
856 $ DEFINE SYS$OUTPUT _NLA0:
857 $ on error then continue
858 $ on warning then continue
860 $ teststatus = f$extract(9,1,$status)
861 $ DEASSIGN SYS$OUTPUT
863 $ if (teststatus.nes."1")
865 $! Okay, failed. Must not have it
866 $ perl_i_socks = "undef"
868 $ perl_i_socks = "define"
871 $ WRITE_RESULT "i_socks is ''perl_i_socks'"
873 $! Check the prototype for select
875 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
879 $ WS "#include <stdlib.h>
881 $ WS "#include <stdio.h>
882 $ WS "#include <types.h>
883 $ WS "#include <unistd.h>
884 $ if ("''Has_Socketshr'".eqs."T")
886 $ WS "#include <socketshr.h>"
888 $ WS "#include <time.h>
889 $ WS "#include <socket.h>
896 $ WS "bar = select(2, foo, foo, foo, NULL);
900 $ DEFINE SYS$ERROR _NLA0:
901 $ DEFINE SYS$OUTPUT _NLA0:
902 $ on error then continue
903 $ on warning then continue
905 $ teststatus = f$extract(9,1,$status)
906 $ DEASSIGN SYS$OUTPUT
908 $ if (teststatus.nes."1")
910 $! Okay, fd_set failed. Must be an int
911 $ perl_selecttype = "int *"
913 $ perl_selecttype="fd_set *"
916 $ ! No sockets, so stick in an int *
917 $ perl_selecttype = "int *"
919 $ WRITE_RESULT "selectype is ''perl_selecttype'"
921 $! Check to see if fd_set exists
925 $ WS "#include <stdlib.h>
927 $ WS "#include <stdio.h>
928 $ WS "#include <types.h>
929 $ WS "#include <unistd.h>
930 $ if ("''Has_Socketshr'".eqs."T")
932 $ WS "#include <socketshr.h>"
934 $ IF ("''Has_Dec_C_Sockets'".eqs."T")
936 $ WS "#include <time.h>
937 $ WS "#include <socket.h>
946 $ DEFINE SYS$ERROR _NLA0:
947 $ DEFINE SYS$OUTPUT _NLA0:
948 $ on error then continue
949 $ on warning then continue
951 $ teststatus = f$extract(9,1,$status)
952 $ DEASSIGN SYS$OUTPUT
954 $ if (teststatus.nes."1")
956 $! Okay, fd_set failed. Must not exist
957 $ perl_d_fd_set = "undef"
959 $ perl_d_fd_set="define"
961 $ WRITE_RESULT "d_fd_set is ''perl_d_fd_set'"
963 $! Check for inttypes.h
967 $ WS "#include <stdlib.h>
969 $ WS "#include <stdio.h>
970 $ WS "#include <unistd.h>
971 $ WS "#include <inttypes.h>
977 $ DEFINE SYS$ERROR _NLA0:
978 $ DEFINE SYS$OUTPUT _NLA0:
979 $ on error then continue
980 $ on warning then continue
982 $ savedstatus = $status
983 $ teststatus = f$extract(9,1,savedstatus)
984 $ if (teststatus.nes."1")
986 $ perl_i_inttypes="undef"
987 $ DEASSIGN SYS$OUTPUT
990 $ If (Needs_Opt.eqs."Yes")
992 $ link temp.obj,temp.opt/opt
996 $ savedstatus = $status
997 $ teststatus = f$extract(9,1,savedstatus)
998 $ DEASSIGN SYS$OUTPUT
1000 $ if (teststatus.nes."1")
1002 $ perl_i_inttypes="undef"
1004 $ perl_i_inttypes="define"
1007 $ WRITE_RESULT "i_inttypes is ''perl_i_inttypes'"
1009 $! Check to see if int64_t exists
1013 $ WS "#include <stdlib.h>
1015 $ WS "#include <stdio.h>
1016 $ WS "#include <types.h>
1017 $ WS "#''perl_i_inttypes IIH
1019 $ WS "#include <inttypes.h>
1021 $ WS "#include <unistd.h>
1028 $ DEFINE SYS$ERROR _NLA0:
1029 $ DEFINE SYS$OUTPUT _NLA0:
1030 $ on error then continue
1031 $ on warning then continue
1033 $ teststatus = f$extract(9,1,$status)
1034 $ DEASSIGN SYS$OUTPUT
1035 $ DEASSIGN SYS$ERROR
1036 $ if (teststatus.nes."1")
1038 $! Okay, int64_t failed. Must not exist
1039 $ perl_d_int64_t = "undef"
1041 $ perl_d_int64_t="define"
1043 $ WRITE_RESULT "d_int64_t is ''perl_d_int64_t'"
1045 $! Check to see if off64_t exists
1049 $ WS "#include <stdlib.h>
1051 $ WS "#include <stdio.h>
1052 $ WS "#include <types.h>
1053 $ WS "#''perl_i_inttypes IIH
1055 $ WS "#include <inttypes.h>
1057 $ WS "#include <unistd.h>
1064 $ DEFINE SYS$ERROR _NLA0:
1065 $ DEFINE SYS$OUTPUT _NLA0:
1066 $ on error then continue
1067 $ on warning then continue
1069 $ teststatus = f$extract(9,1,$status)
1070 $ DEASSIGN SYS$OUTPUT
1071 $ DEASSIGN SYS$ERROR
1072 $ if (teststatus.nes."1")
1074 $! Okay, off64_t failed. Must not exist
1075 $ perl_d_off64_t = "undef"
1077 $ perl_d_off64_t="define"
1079 $ WRITE_RESULT "d_off64_t is ''perl_d_off64_t'"
1081 $! Check to see if fpos64_t exists
1085 $ WS "#include <stdlib.h>
1087 $ WS "#include <stdio.h>
1088 $ WS "#include <types.h>
1089 $ WS "#''perl_i_inttypes IIH
1091 $ WS "#include <inttypes.h>
1093 $ WS "#include <unistd.h>
1100 $ DEFINE SYS$ERROR _NLA0:
1101 $ DEFINE SYS$OUTPUT _NLA0:
1102 $ on error then continue
1103 $ on warning then continue
1105 $ teststatus = f$extract(9,1,$status)
1106 $ DEASSIGN SYS$OUTPUT
1107 $ DEASSIGN SYS$ERROR
1108 $ if (teststatus.nes."1")
1110 $! Okay, fpos64_t failed. Must not exist
1111 $ perl_d_fpos64_t = "undef"
1113 $ perl_d_fpos64_t="define"
1115 $ WRITE_RESULT "d_fpos64_t is ''perl_d_fpos64_t'"
1117 $! Check to see if gethostname exists
1119 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1123 $ WS "#include <stdlib.h>
1125 $ WS "#include <stdio.h>
1126 $ WS "#include <types.h>
1127 $ WS "#include <unistd.h>
1128 $ if ("''Has_Socketshr'".eqs."T")
1130 $ WS "#include <socketshr.h>"
1132 $ WS "#include <time.h>
1133 $ WS "#include <socket.h>
1137 $ WS "char name[100];
1140 $ WS "baz = gethostname(name, bar);
1144 $ DEFINE SYS$ERROR _NLA0:
1145 $ DEFINE SYS$OUTPUT _NLA0:
1146 $ on error then continue
1147 $ on warning then continue
1149 $ teststatus = f$extract(9,1,$status)
1150 $ DEASSIGN SYS$OUTPUT
1151 $ DEASSIGN SYS$ERROR
1152 $ if (teststatus.nes."1")
1154 $! Okay, compile failed. Must not have it
1155 $ perl_dgethname = "undef"
1157 $ If (Needs_Opt.eqs."Yes")
1159 $ link temp.obj,temp.opt/opt
1163 $ savedstatus = $status
1164 $ teststatus = f$extract(9,1,savedstatus)
1165 $ if (teststatus.nes."1")
1167 $ perl_d_gethname="undef"
1169 $ perl_d_gethname="define"
1173 $ ! No sockets, so no gethname
1174 $ perl_d_gethname = "undef"
1176 $ WRITE_RESULT "d_gethname is ''perl_d_gethname'"
1178 $! Check for sys/file.h
1182 $ WS "#include <stdlib.h>
1184 $ WS "#include <stdio.h>
1185 $ WS "#include <unistd.h>
1186 $ WS "#include <sys/file.h>
1192 $ DEFINE SYS$ERROR _NLA0:
1193 $ DEFINE SYS$OUTPUT _NLA0:
1194 $ on error then continue
1195 $ on warning then continue
1197 $ savedstatus = $status
1198 $ teststatus = f$extract(9,1,savedstatus)
1199 $ if (teststatus.nes."1")
1201 $ perl_i_sysfile="undef"
1202 $ DEASSIGN SYS$OUTPUT
1203 $ DEASSIGN SYS$ERROR
1205 $ If (Needs_Opt.eqs."Yes")
1207 $ link temp.obj,temp.opt/opt
1211 $ savedstatus = $status
1212 $ teststatus = f$extract(9,1,savedstatus)
1213 $ DEASSIGN SYS$OUTPUT
1214 $ DEASSIGN SYS$ERROR
1215 $ if (teststatus.nes."1")
1217 $ perl_i_sysfile="undef"
1219 $ perl_i_sysfile="define"
1222 $ WRITE_RESULT "i_sysfile is ''perl_i_sysfile'"
1224 $! Check for sys/utsname.h
1228 $ WS "#include <stdlib.h>
1230 $ WS "#include <stdio.h>
1231 $ WS "#include <unistd.h>
1232 $ WS "#include <sys/utsname.h>
1238 $ DEFINE SYS$ERROR _NLA0:
1239 $ DEFINE SYS$OUTPUT _NLA0:
1240 $ on error then continue
1241 $ on warning then continue
1243 $ savedstatus = $status
1244 $ teststatus = f$extract(9,1,savedstatus)
1245 $ if (teststatus.nes."1")
1247 $ perl_i_sysutsname="undef"
1248 $ DEASSIGN SYS$OUTPUT
1249 $ DEASSIGN SYS$ERROR
1251 $ If (Needs_Opt.eqs."Yes")
1253 $ link temp.obj,temp.opt/opt
1257 $ savedstatus = $status
1258 $ teststatus = f$extract(9,1,savedstatus)
1259 $ DEASSIGN SYS$OUTPUT
1260 $ DEASSIGN SYS$ERROR
1261 $ if (teststatus.nes."1")
1263 $ perl_i_sysutsname="undef"
1265 $ perl_i_sysutsname="define"
1268 $ WRITE_RESULT "i_sysutsname is ''perl_i_sysutsname'"
1270 $! Check for syslog.h
1274 $ WS "#include <stdlib.h>
1276 $ WS "#include <stdio.h>
1277 $ WS "#include <unistd.h>
1278 $ WS "#include <syslog.h>
1284 $ DEFINE SYS$ERROR _NLA0:
1285 $ DEFINE SYS$OUTPUT _NLA0:
1286 $ on error then continue
1287 $ on warning then continue
1289 $ savedstatus = $status
1290 $ teststatus = f$extract(9,1,savedstatus)
1291 $ if (teststatus.nes."1")
1293 $ perl_i_syslog="undef"
1294 $ DEASSIGN SYS$OUTPUT
1295 $ DEASSIGN SYS$ERROR
1297 $ If (Needs_Opt.eqs."Yes")
1299 $ link temp.obj,temp.opt/opt
1303 $ savedstatus = $status
1304 $ teststatus = f$extract(9,1,savedstatus)
1305 $ DEASSIGN SYS$OUTPUT
1306 $ DEASSIGN SYS$ERROR
1307 $ if (teststatus.nes."1")
1309 $ perl_i_syslog="undef"
1311 $ perl_i_syslog="define"
1314 $ WRITE_RESULT "i_syslog is ''perl_i_syslog'"
1320 $ WS "#include <stdlib.h>
1322 $ WS "#include <stdio.h>
1323 $ WS "#include <unistd.h>
1324 $ WS "#include <poll.h>
1330 $ DEFINE SYS$ERROR _NLA0:
1331 $ DEFINE SYS$OUTPUT _NLA0:
1332 $ on error then continue
1333 $ on warning then continue
1335 $ savedstatus = $status
1336 $ teststatus = f$extract(9,1,savedstatus)
1337 $ if (teststatus.nes."1")
1339 $ perl_i_poll="undef"
1340 $ DEASSIGN SYS$OUTPUT
1341 $ DEASSIGN SYS$ERROR
1343 $ If (Needs_Opt.eqs."Yes")
1345 $ link temp.obj,temp.opt/opt
1349 $ savedstatus = $status
1350 $ teststatus = f$extract(9,1,savedstatus)
1351 $ DEASSIGN SYS$OUTPUT
1352 $ DEASSIGN SYS$ERROR
1353 $ if (teststatus.nes."1")
1355 $ perl_i_poll="undef"
1357 $ perl_i_poll="define"
1360 $ WRITE_RESULT "i_poll is ''perl_i_poll'"
1362 $! Check for sys/uio.h
1366 $ WS "#include <stdlib.h>
1368 $ WS "#include <stdio.h>
1369 $ WS "#include <unistd.h>
1370 $ WS "#include <sys/uio.h>
1376 $ DEFINE SYS$ERROR _NLA0:
1377 $ DEFINE SYS$OUTPUT _NLA0:
1378 $ on error then continue
1379 $ on warning then continue
1381 $ savedstatus = $status
1382 $ teststatus = f$extract(9,1,savedstatus)
1383 $ if (teststatus.nes."1")
1385 $ perl_i_sysuio="undef"
1386 $ DEASSIGN SYS$OUTPUT
1387 $ DEASSIGN SYS$ERROR
1389 $ If (Needs_Opt.eqs."Yes")
1391 $ link temp.obj,temp.opt/opt
1395 $ savedstatus = $status
1396 $ teststatus = f$extract(9,1,savedstatus)
1397 $ DEASSIGN SYS$OUTPUT
1398 $ DEASSIGN SYS$ERROR
1399 $ if (teststatus.nes."1")
1401 $ perl_i_sysuio="undef"
1403 $ perl_i_sysuio="define"
1406 $ WRITE_RESULT "i_sysuio is ''perl_i_sysuio'"
1408 $! Check for sys/mode.h
1412 $ WS "#include <stdlib.h>
1414 $ WS "#include <stdio.h>
1415 $ WS "#include <unistd.h>
1416 $ WS "#include <sys/mode.h>
1422 $ DEFINE SYS$ERROR _NLA0:
1423 $ DEFINE SYS$OUTPUT _NLA0:
1424 $ on error then continue
1425 $ on warning then continue
1427 $ savedstatus = $status
1428 $ teststatus = f$extract(9,1,savedstatus)
1429 $ if (teststatus.nes."1")
1431 $ perl_i_sysmode="undef"
1432 $ DEASSIGN SYS$OUTPUT
1433 $ DEASSIGN SYS$ERROR
1435 $ If (Needs_Opt.eqs."Yes")
1437 $ link temp.obj,temp.opt/opt
1441 $ savedstatus = $status
1442 $ teststatus = f$extract(9,1,savedstatus)
1443 $ DEASSIGN SYS$OUTPUT
1444 $ DEASSIGN SYS$ERROR
1445 $ if (teststatus.nes."1")
1447 $ perl_i_sysmode="undef"
1449 $ perl_i_sysmode="define"
1452 $ WRITE_RESULT "i_sysmode is ''perl_i_sysmode'"
1454 $! Check for sys/access.h
1458 $ WS "#include <stdlib.h>
1460 $ WS "#include <stdio.h>
1461 $ WS "#include <unistd.h>
1462 $ WS "#include <sys/access.h>
1468 $ DEFINE SYS$ERROR _NLA0:
1469 $ DEFINE SYS$OUTPUT _NLA0:
1470 $ on error then continue
1471 $ on warning then continue
1473 $ savedstatus = $status
1474 $ teststatus = f$extract(9,1,savedstatus)
1475 $ if (teststatus.nes."1")
1477 $ perl_i_sysaccess="undef"
1478 $ DEASSIGN SYS$OUTPUT
1479 $ DEASSIGN SYS$ERROR
1481 $ If (Needs_Opt.eqs."Yes")
1483 $ link temp.obj,temp.opt/opt
1487 $ savedstatus = $status
1488 $ teststatus = f$extract(9,1,savedstatus)
1489 $ DEASSIGN SYS$OUTPUT
1490 $ DEASSIGN SYS$ERROR
1491 $ if (teststatus.nes."1")
1493 $ perl_i_sysaccess="undef"
1495 $ perl_i_sysaccess="define"
1498 $ WRITE_RESULT "i_sysaccess is ''perl_i_sysaccess'"
1500 $! Check for sys/security.h
1504 $ WS "#include <stdlib.h>
1506 $ WS "#include <stdio.h>
1507 $ WS "#include <unistd.h>
1508 $ WS "#include <sys/security.h>
1514 $ DEFINE SYS$ERROR _NLA0:
1515 $ DEFINE SYS$OUTPUT _NLA0:
1516 $ on error then continue
1517 $ on warning then continue
1519 $ savedstatus = $status
1520 $ teststatus = f$extract(9,1,savedstatus)
1521 $ if (teststatus.nes."1")
1523 $ perl_i_syssecrt="undef"
1524 $ DEASSIGN SYS$OUTPUT
1525 $ DEASSIGN SYS$ERROR
1527 $ If (Needs_Opt.eqs."Yes")
1529 $ link temp.obj,temp.opt/opt
1533 $ savedstatus = $status
1534 $ teststatus = f$extract(9,1,savedstatus)
1535 $ DEASSIGN SYS$OUTPUT
1536 $ DEASSIGN SYS$ERROR
1537 $ if (teststatus.nes."1")
1539 $ perl_i_syssecrt="undef"
1541 $ perl_i_syssecrt="define"
1544 $ WRITE_RESULT "i_syssecrt is ''perl_i_syssecrt'"
1546 $! Check for fcntl.h
1550 $ WS "#include <stdlib.h>
1552 $ WS "#include <stdio.h>
1553 $ WS "#include <unistd.h>
1554 $ WS "#include <fcntl.h>
1560 $ DEFINE SYS$ERROR _NLA0:
1561 $ DEFINE SYS$OUTPUT _NLA0:
1562 $ on error then continue
1563 $ on warning then continue
1565 $ savedstatus = $status
1566 $ teststatus = f$extract(9,1,savedstatus)
1567 $ if (teststatus.nes."1")
1569 $ perl_i_fcntl="undef"
1570 $ DEASSIGN SYS$OUTPUT
1571 $ DEASSIGN SYS$ERROR
1573 $ If (Needs_Opt.eqs."Yes")
1575 $ link temp.obj,temp.opt/opt
1579 $ savedstatus = $status
1580 $ teststatus = f$extract(9,1,savedstatus)
1581 $ DEASSIGN SYS$OUTPUT
1582 $ DEASSIGN SYS$ERROR
1583 $ if (teststatus.nes."1")
1585 $ perl_i_fcntl="undef"
1587 $ perl_i_fcntl="define"
1590 $ WRITE_RESULT "i_fcntl is ''perl_i_fcntl'"
1596 $ WS "#include <stdlib.h>
1598 $ WS "#include <stdio.h>
1599 $ WS "#include <unistd.h>
1600 $ WS "#include <fcntl.h>
1607 $ DEFINE SYS$ERROR _NLA0:
1608 $ DEFINE SYS$OUTPUT _NLA0:
1609 $ on error then continue
1610 $ on warning then continue
1612 $ savedstatus = $status
1613 $ teststatus = f$extract(9,1,savedstatus)
1614 $ if (teststatus.nes."1")
1616 $ perl_d_fcntl="undef"
1617 $ DEASSIGN SYS$OUTPUT
1618 $ DEASSIGN SYS$ERROR
1620 $ If (Needs_Opt.eqs."Yes")
1622 $ link temp.obj,temp.opt/opt
1626 $ savedstatus = $status
1627 $ teststatus = f$extract(9,1,savedstatus)
1628 $ DEASSIGN SYS$OUTPUT
1629 $ DEASSIGN SYS$ERROR
1630 $ if (teststatus.nes."1")
1632 $ perl_d_fcntl="undef"
1634 $ perl_d_fcntl="define"
1637 $ WRITE_RESULT "d_fcntl is ''perl_d_fcntl'"
1643 $ WS "#include <stdlib.h>
1645 $ WS "#include <string.h>
1649 $ WS "place = memchr(""foo"", 47, 3)
1653 $ DEFINE SYS$ERROR _NLA0:
1654 $ DEFINE SYS$OUTPUT _NLA0:
1655 $ on error then continue
1656 $ on warning then continue
1658 $ savedstatus = $status
1659 $ teststatus = f$extract(9,1,savedstatus)
1660 $ if (teststatus.nes."1")
1662 $ perl_d_memchr="undef"
1663 $ DEASSIGN SYS$OUTPUT
1664 $ DEASSIGN SYS$ERROR
1666 $ If (Needs_Opt.eqs."Yes")
1668 $ link temp.obj,temp.opt/opt
1672 $ savedstatus = $status
1673 $ teststatus = f$extract(9,1,savedstatus)
1674 $ DEASSIGN SYS$OUTPUT
1675 $ DEASSIGN SYS$ERROR
1676 $ if (teststatus.nes."1")
1678 $ perl_d_memchr="undef"
1680 $ perl_d_memchr="define"
1683 $ WRITE_RESULT "d_memchr is ''perl_d_memchr'"
1685 $! Check for strtoull
1689 $ WS "#include <stdlib.h>
1691 $ WS "#include <string.h>
1694 $ WS "unsigned __int64 result;
1695 $ WS "result = strtoull(""123123"", NULL, 10);
1699 $ DEFINE SYS$ERROR _NLA0:
1700 $ DEFINE SYS$OUTPUT _NLA0:
1701 $ on error then continue
1702 $ on warning then continue
1704 $ savedstatus = $status
1705 $ teststatus = f$extract(9,1,savedstatus)
1706 $ if (teststatus.nes."1")
1708 $ perl_d_strtoull="undef"
1709 $ DEASSIGN SYS$OUTPUT
1710 $ DEASSIGN SYS$ERROR
1712 $ If (Needs_Opt.eqs."Yes")
1714 $ link temp.obj,temp.opt/opt
1718 $ savedstatus = $status
1719 $ teststatus = f$extract(9,1,savedstatus)
1720 $ DEASSIGN SYS$OUTPUT
1721 $ DEASSIGN SYS$ERROR
1722 $ if (teststatus.nes."1")
1724 $ perl_d_strtoull="undef"
1726 $ perl_d_strtoull="define"
1729 $ WRITE_RESULT "d_strtoull is ''perl_d_strtoull'"
1731 $! Check for strtouq
1735 $ WS "#include <stdlib.h>
1737 $ WS "#include <string.h>
1740 $ WS "unsigned __int64 result;
1741 $ WS "result = strtouq(""123123"", NULL, 10);
1745 $ DEFINE SYS$ERROR _NLA0:
1746 $ DEFINE SYS$OUTPUT _NLA0:
1747 $ on error then continue
1748 $ on warning then continue
1750 $ savedstatus = $status
1751 $ teststatus = f$extract(9,1,savedstatus)
1752 $ if (teststatus.nes."1")
1754 $ perl_d_strtouq="undef"
1755 $ DEASSIGN SYS$OUTPUT
1756 $ DEASSIGN SYS$ERROR
1758 $ If (Needs_Opt.eqs."Yes")
1760 $ link temp.obj,temp.opt/opt
1764 $ savedstatus = $status
1765 $ teststatus = f$extract(9,1,savedstatus)
1766 $ DEASSIGN SYS$OUTPUT
1767 $ DEASSIGN SYS$ERROR
1768 $ if (teststatus.nes."1")
1770 $ perl_d_strtouq="undef"
1772 $ perl_d_strtouq="define"
1775 $ WRITE_RESULT "d_strtouq is ''perl_d_strtouq'"
1777 $! Check for strtoll
1781 $ WS "#include <stdlib.h>
1783 $ WS "#include <string.h>
1786 $ WS "__int64 result;
1787 $ WS "result = strtoll(""123123"", NULL, 10);
1791 $ DEFINE SYS$ERROR _NLA0:
1792 $ DEFINE SYS$OUTPUT _NLA0:
1793 $ on error then continue
1794 $ on warning then continue
1796 $ savedstatus = $status
1797 $ teststatus = f$extract(9,1,savedstatus)
1798 $ if (teststatus.nes."1")
1800 $ perl_d_strtoll="undef"
1801 $ DEASSIGN SYS$OUTPUT
1802 $ DEASSIGN SYS$ERROR
1804 $ If (Needs_Opt.eqs."Yes")
1806 $ link temp.obj,temp.opt/opt
1810 $ savedstatus = $status
1811 $ teststatus = f$extract(9,1,savedstatus)
1812 $ DEASSIGN SYS$OUTPUT
1813 $ DEASSIGN SYS$ERROR
1814 $ if (teststatus.nes."1")
1816 $ perl_d_strtoll="undef"
1818 $ perl_d_strtoll="define"
1821 $ WRITE_RESULT "d_strtoll is ''perl_d_strtoll'"
1823 $! Check for strtold
1827 $ WS "#include <stdlib.h>
1829 $ WS "#include <string.h>
1832 $ WS "long double result;
1833 $ WS "result = strtold(""123123"", NULL, 10);
1837 $ DEFINE SYS$ERROR _NLA0:
1838 $ DEFINE SYS$OUTPUT _NLA0:
1839 $ on error then continue
1840 $ on warning then continue
1842 $ savedstatus = $status
1843 $ teststatus = f$extract(9,1,savedstatus)
1844 $ if (teststatus.nes."1")
1846 $ perl_d_strtold="undef"
1847 $ DEASSIGN SYS$OUTPUT
1848 $ DEASSIGN SYS$ERROR
1850 $ If (Needs_Opt.eqs."Yes")
1852 $ link temp.obj,temp.opt/opt
1856 $ savedstatus = $status
1857 $ teststatus = f$extract(9,1,savedstatus)
1858 $ DEASSIGN SYS$OUTPUT
1859 $ DEASSIGN SYS$ERROR
1860 $ if (teststatus.nes."1")
1862 $ perl_d_strtold="undef"
1864 $ perl_d_strtold="define"
1867 $ WRITE_RESULT "d_strtold is ''perl_d_strtold'"
1873 $ WS "#include <stdlib.h>
1875 $ WS "#include <string.h>
1878 $ WS " __int64 result;
1879 $ WS "result = atoll(""123123"");
1883 $ DEFINE SYS$ERROR _NLA0:
1884 $ DEFINE SYS$OUTPUT _NLA0:
1885 $ on error then continue
1886 $ on warning then continue
1888 $ savedstatus = $status
1889 $ teststatus = f$extract(9,1,savedstatus)
1890 $ if (teststatus.nes."1")
1892 $ perl_d_atoll="undef"
1893 $ DEASSIGN SYS$OUTPUT
1894 $ DEASSIGN SYS$ERROR
1896 $ If (Needs_Opt.eqs."Yes")
1898 $ link temp.obj,temp.opt/opt
1902 $ savedstatus = $status
1903 $ teststatus = f$extract(9,1,savedstatus)
1904 $ DEASSIGN SYS$OUTPUT
1905 $ DEASSIGN SYS$ERROR
1906 $ if (teststatus.nes."1")
1908 $ perl_d_atoll="undef"
1910 $ perl_d_atoll="define"
1913 $ WRITE_RESULT "d_atoll is ''perl_d_atoll'"
1919 $ WS "#include <stdlib.h>
1921 $ WS "#include <string.h>
1925 $ WS "result = atolf(""123123"");
1929 $ DEFINE SYS$ERROR _NLA0:
1930 $ DEFINE SYS$OUTPUT _NLA0:
1931 $ on error then continue
1932 $ on warning then continue
1934 $ savedstatus = $status
1935 $ teststatus = f$extract(9,1,savedstatus)
1936 $ if (teststatus.nes."1")
1938 $ perl_d_atolf="undef"
1939 $ DEASSIGN SYS$OUTPUT
1940 $ DEASSIGN SYS$ERROR
1942 $ If (Needs_Opt.eqs."Yes")
1944 $ link temp.obj,temp.opt/opt
1948 $ savedstatus = $status
1949 $ teststatus = f$extract(9,1,savedstatus)
1950 $ DEASSIGN SYS$OUTPUT
1951 $ DEASSIGN SYS$ERROR
1952 $ if (teststatus.nes."1")
1954 $ perl_d_atolf="undef"
1956 $ perl_d_atolf="define"
1959 $ WRITE_RESULT "d_atolf is ''perl_d_atolf'"
1965 $ WS "#include <stdlib.h>
1967 $ WS "#include <stdio.h>
1968 $ WS "#include <unistd.h>
1971 $ WS "access("foo", F_OK);
1975 $ DEFINE SYS$ERROR _NLA0:
1976 $ DEFINE SYS$OUTPUT _NLA0:
1977 $ on error then continue
1978 $ on warning then continue
1980 $ savedstatus = $status
1981 $ teststatus = f$extract(9,1,savedstatus)
1982 $ if (teststatus.nes."1")
1984 $ perl_d_access="undef"
1985 $ DEASSIGN SYS$OUTPUT
1986 $ DEASSIGN SYS$ERROR
1988 $ If (Needs_Opt.eqs."Yes")
1990 $ link temp.obj,temp.opt/opt
1994 $ savedstatus = $status
1995 $ teststatus = f$extract(9,1,savedstatus)
1996 $ DEASSIGN SYS$OUTPUT
1997 $ DEASSIGN SYS$ERROR
1998 $ if (teststatus.nes."1")
2000 $ perl_d_access="undef"
2002 $ perl_d_access="define"
2005 $ WRITE_RESULT "d_access is ''perl_d_access'"
2011 $ WS "#include <stdlib.h>
2013 $ WS "#include <stdio.h>
2014 $ WS "#include <strings.h>
2018 $ WS "bzero(foo, 10);
2022 $ DEFINE SYS$ERROR _NLA0:
2023 $ DEFINE SYS$OUTPUT _NLA0:
2024 $ on error then continue
2025 $ on warning then continue
2027 $ savedstatus = $status
2028 $ teststatus = f$extract(9,1,savedstatus)
2029 $ if (teststatus.nes."1")
2031 $ perl_d_bzero="undef"
2032 $ DEASSIGN SYS$OUTPUT
2033 $ DEASSIGN SYS$ERROR
2035 $ If (Needs_Opt.eqs."Yes")
2037 $ link temp.obj,temp.opt/opt
2041 $ savedstatus = $status
2042 $ teststatus = f$extract(9,1,savedstatus)
2043 $ DEASSIGN SYS$OUTPUT
2044 $ DEASSIGN SYS$ERROR
2045 $ if (teststatus.nes."1")
2047 $ perl_d_bzero="undef"
2049 $ perl_d_bzero="define"
2052 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
2058 $ WS "#include <stdlib.h>
2060 $ WS "#include <stdio.h>
2061 $ WS "#include <strings.h>
2064 $ WS "char foo[10], bar[10];
2065 $ WS "bcopy(""foo"", bar, 3);
2069 $ DEFINE SYS$ERROR _NLA0:
2070 $ DEFINE SYS$OUTPUT _NLA0:
2071 $ on error then continue
2072 $ on warning then continue
2074 $ savedstatus = $status
2075 $ teststatus = f$extract(9,1,savedstatus)
2076 $ if (teststatus.nes."1")
2078 $ perl_d_bcopy="undef"
2079 $ DEASSIGN SYS$OUTPUT
2080 $ DEASSIGN SYS$ERROR
2082 $ If (Needs_Opt.eqs."Yes")
2084 $ link temp.obj,temp.opt/opt
2088 $ savedstatus = $status
2089 $ teststatus = f$extract(9,1,savedstatus)
2090 $ DEASSIGN SYS$OUTPUT
2091 $ DEASSIGN SYS$ERROR
2092 $ if (teststatus.nes."1")
2094 $ perl_d_bcopy="undef"
2096 $ perl_d_bcopy="define"
2099 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
2101 $! Check for mkstemp
2105 $ WS "#include <stdlib.h>
2107 $ WS "#include <stdio.h>
2110 $ WS "mkstemp(""foo"");
2114 $ DEFINE SYS$ERROR _NLA0:
2115 $ DEFINE SYS$OUTPUT _NLA0:
2116 $ on error then continue
2117 $ on warning then continue
2119 $ If (Needs_Opt.eqs."Yes")
2121 $ link temp.obj,temp.opt/opt
2125 $ savedstatus = $status
2126 $ teststatus = f$extract(9,1,savedstatus)
2127 $ DEASSIGN SYS$OUTPUT
2128 $ DEASSIGN SYS$ERROR
2129 $ if (teststatus.nes."1")
2131 $ perl_d_mkstemp="undef"
2133 $ perl_d_mkstemp="define"
2135 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
2137 $! Check for mkstemps
2141 $ WS "#include <stdlib.h>
2143 $ WS "#include <stdio.h>
2146 $ WS "mkstemps(""foo"", 1);
2150 $ DEFINE SYS$ERROR _NLA0:
2151 $ DEFINE SYS$OUTPUT _NLA0:
2152 $ on error then continue
2153 $ on warning then continue
2155 $ If (Needs_Opt.eqs."Yes")
2157 $ link temp.obj,temp.opt/opt
2161 $ savedstatus = $status
2162 $ teststatus = f$extract(9,1,savedstatus)
2163 $ DEASSIGN SYS$OUTPUT
2164 $ DEASSIGN SYS$ERROR
2165 $ if (teststatus.nes."1")
2167 $ perl_d_mkstemps="undef"
2169 $ perl_d_mkstemps="define"
2171 $ WRITE_RESULT "d_mkstemps is ''perl_d_mkstemps'"
2177 $ WS "#include <stdlib.h>
2179 $ WS "#include <stdio.h>
2180 $ WS "#include <iconv.h>
2184 $ WS " char *inbuf, *outbuf;"
2185 $ WS " size_t inleft, outleft;"
2186 $ WS " iconv(cd, &inbuf, &inleft, &outbuf, &outleft);"
2190 $ DEFINE SYS$ERROR _NLA0:
2191 $ DEFINE SYS$OUTPUT _NLA0:
2192 $ on error then continue
2193 $ on warning then continue
2195 $ savedstatus = $status
2196 $ teststatus = f$extract(9,1,savedstatus)
2197 $ if (teststatus.nes."1")
2199 $ perl_d_iconv="undef"
2200 $ perl_i_iconv="undef"
2201 $ DEASSIGN SYS$OUTPUT
2202 $ DEASSIGN SYS$ERROR
2204 $ If (Needs_Opt.eqs."Yes")
2206 $ link temp.obj,temp.opt/opt
2210 $ savedstatus = $status
2211 $ teststatus = f$extract(9,1,savedstatus)
2212 $ DEASSIGN SYS$OUTPUT
2213 $ DEASSIGN SYS$ERROR
2214 $ if (teststatus.nes."1")
2216 $ perl_d_iconv="undef"
2217 $ perl_i_iconv="undef"
2219 $ perl_d_iconv="define"
2220 $ perl_i_iconv="define"
2223 $ WRITE_RESULT "d_iconv is ''perl_d_iconv'"
2224 $ WRITE_RESULT "i_iconv is ''perl_i_iconv'"
2226 $! Check for mkdtemp
2230 $ WS "#include <stdlib.h>
2232 $ WS "#include <stdio.h>
2235 $ WS "mkdtemp(""foo"");
2239 $ DEFINE SYS$ERROR _NLA0:
2240 $ DEFINE SYS$OUTPUT _NLA0:
2241 $ on error then continue
2242 $ on warning then continue
2244 $ If (Needs_Opt.eqs."Yes")
2246 $ link temp.obj,temp.opt/opt
2250 $ savedstatus = $status
2251 $ teststatus = f$extract(9,1,savedstatus)
2252 $ DEASSIGN SYS$OUTPUT
2253 $ DEASSIGN SYS$ERROR
2254 $ if (teststatus.nes."1")
2256 $ perl_d_mkdtemp="undef"
2258 $ perl_d_mkdtemp="define"
2260 $ WRITE_RESULT "d_mkdtemp is ''perl_d_mkdtemp'"
2262 $! Check for setvbuf
2266 $ WS "#include <stdlib.h>
2268 $ WS "#include <stdio.h>
2272 $ WS "char Buffer[99];
2273 $ WS "foo = fopen(""foo"", ""r"");
2274 $ WS "setvbuf(foo, Buffer, 0, 0);
2278 $ DEFINE SYS$ERROR _NLA0:
2279 $ DEFINE SYS$OUTPUT _NLA0:
2280 $ on error then continue
2281 $ on warning then continue
2283 $ If (Needs_Opt.eqs."Yes")
2285 $ link temp.obj,temp.opt/opt
2289 $ teststatus = f$extract(9,1,$status)
2290 $ DEASSIGN SYS$OUTPUT
2291 $ DEASSIGN SYS$ERROR
2292 $ if (teststatus.nes."1")
2294 $ perl_d_setvbuf="undef"
2296 $ perl_d_setvbuf="define"
2298 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
2304 $ WS "#include <stdlib.h>
2306 $ WS "#include <stdio.h>
2309 $ WS "setenv(""FOO"", ""BAR"", 0);
2313 $ DEFINE SYS$ERROR _NLA0:
2314 $ DEFINE SYS$OUTPUT _NLA0:
2315 $ on error then continue
2316 $ on warning then continue
2318 $ If (Needs_Opt.eqs."Yes")
2320 $ link temp,temp/opt
2324 $ teststatus = f$extract(9,1,$status)
2325 $ DEASSIGN SYS$OUTPUT
2326 $ DEASSIGN SYS$ERROR
2327 $ if (teststatus.nes."1")
2329 $ perl_d_setenv="undef"
2331 $ perl_d_setenv="define"
2333 $ WRITE_RESULT "d_setenv is ''perl_d_setenv'"
2335 $! Check for <netinet/in.h>
2337 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2341 $ WS "#include <stdlib.h>
2343 $ WS "#include <stdio.h>
2344 $ if ("''Has_Socketshr'".eqs."T")
2346 $ WS "#include <socketshr.h>"
2348 $ WS "#include <netdb.h>
2350 $ WS "#include <netinet/in.h>"
2356 $ DEFINE SYS$ERROR _NLA0:
2357 $ DEFINE SYS$OUTPUT _NLA0:
2358 $ on error then continue
2359 $ on warning then continue
2361 $ If (Needs_Opt.eqs."Yes")
2363 $ link temp.obj,temp.opt/opt
2367 $ teststatus = f$extract(9,1,$status)
2368 $ DEASSIGN SYS$OUTPUT
2369 $ DEASSIGN SYS$ERROR
2370 $ if (teststatus.nes."1")
2372 $ perl_i_niin="undef"
2374 $ perl_i_niin="define"
2377 $ perl_i_niin="undef"
2379 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
2381 $! Check for <netinet/tcp.h>
2383 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2387 $ WS "#include <stdlib.h>
2389 $ WS "#include <stdio.h>
2390 $ if ("''Has_Socketshr'".eqs."T")
2392 $ WS "#include <socketshr.h>"
2394 $ WS "#include <netdb.h>
2396 $ WS "#include <netinet/tcp.h>"
2402 $ DEFINE SYS$ERROR _NLA0:
2403 $ DEFINE SYS$OUTPUT _NLA0:
2404 $ on error then continue
2405 $ on warning then continue
2407 $ If (Needs_Opt.eqs."Yes")
2409 $ link temp.obj,temp.opt/opt
2413 $ teststatus = f$extract(9,1,$status)
2414 $ DEASSIGN SYS$OUTPUT
2415 $ DEASSIGN SYS$ERROR
2416 $ if (teststatus.nes."1")
2418 $ perl_i_netinettcp="undef"
2420 $ perl_i_netinettcp="define"
2423 $ perl_i_netinettcp="undef"
2425 $ WRITE_RESULT "i_netinettcp is ''perl_i_netinettcp'"
2427 $! Check for endhostent
2429 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2433 $ WS "#include <stdlib.h>
2435 $ WS "#include <stdio.h>
2436 $ if ("''Has_Socketshr'".eqs."T")
2438 $ WS "#include <socketshr.h>"
2440 $ WS "#include <netdb.h>
2448 $ DEFINE SYS$ERROR _NLA0:
2449 $ DEFINE SYS$OUTPUT _NLA0:
2450 $ on error then continue
2451 $ on warning then continue
2453 $ If (Needs_Opt.eqs."Yes")
2455 $ link temp.obj,temp.opt/opt
2459 $ teststatus = f$extract(9,1,$status)
2460 $ DEASSIGN SYS$OUTPUT
2461 $ DEASSIGN SYS$ERROR
2462 $ if (teststatus.nes."1")
2464 $ perl_d_endhent="undef"
2466 $ perl_d_endhent="define"
2469 $ perl_d_endhent="undef"
2471 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
2473 $! Check for endnetent
2475 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2479 $ WS "#include <stdlib.h>
2481 $ WS "#include <stdio.h>
2482 $ if ("''Has_Socketshr'".eqs."T")
2484 $ WS "#include <socketshr.h>"
2486 $ WS "#include <netdb.h>
2494 $ DEFINE SYS$ERROR _NLA0:
2495 $ DEFINE SYS$OUTPUT _NLA0:
2496 $ on error then continue
2497 $ on warning then continue
2499 $ If (Needs_Opt.eqs."Yes")
2501 $ link temp.obj,temp.opt/opt
2505 $ teststatus = f$extract(9,1,$status)
2506 $ DEASSIGN SYS$OUTPUT
2507 $ DEASSIGN SYS$ERROR
2508 $ if (teststatus.nes."1")
2510 $ perl_d_endnent="undef"
2512 $ perl_d_endnent="define"
2515 $ perl_d_endnent="undef"
2517 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
2519 $! Check for endprotoent
2521 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2525 $ WS "#include <stdlib.h>
2527 $ WS "#include <stdio.h>
2528 $ if ("''Has_Socketshr'".eqs."T")
2530 $ WS "#include <socketshr.h>"
2532 $ WS "#include <netdb.h>
2536 $ WS "endprotoent();
2540 $ DEFINE SYS$ERROR _NLA0:
2541 $ DEFINE SYS$OUTPUT _NLA0:
2542 $ on error then continue
2543 $ on warning then continue
2545 $ If (Needs_Opt.eqs."Yes")
2547 $ link temp.obj,temp.opt/opt
2551 $ teststatus = f$extract(9,1,$status)
2552 $ DEASSIGN SYS$OUTPUT
2553 $ DEASSIGN SYS$ERROR
2554 $ if (teststatus.nes."1")
2556 $ perl_d_endpent="undef"
2558 $ perl_d_endpent="define"
2561 $ perl_d_endpent="undef"
2563 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
2565 $! Check for endservent
2567 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2571 $ WS "#include <stdlib.h>
2573 $ WS "#include <stdio.h>
2574 $ if ("''Has_Socketshr'".eqs."T")
2576 $ WS "#include <socketshr.h>"
2578 $ WS "#include <netdb.h>
2586 $ DEFINE SYS$ERROR _NLA0:
2587 $ DEFINE SYS$OUTPUT _NLA0:
2588 $ on error then continue
2589 $ on warning then continue
2591 $ If (Needs_Opt.eqs."Yes")
2593 $ link temp.obj,temp.opt/opt
2597 $ teststatus = f$extract(9,1,$status)
2598 $ DEASSIGN SYS$OUTPUT
2599 $ DEASSIGN SYS$ERROR
2600 $ if (teststatus.nes."1")
2602 $ perl_d_endsent="undef"
2604 $ perl_d_endsent="define"
2607 $ perl_d_endsent="undef"
2609 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
2611 $! Check for sethostent
2613 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2617 $ WS "#include <stdlib.h>
2619 $ WS "#include <stdio.h>
2620 $ if ("''Has_Socketshr'".eqs."T")
2622 $ WS "#include <socketshr.h>"
2624 $ WS "#include <netdb.h>
2628 $ WS "sethostent(1);
2632 $ DEFINE SYS$ERROR _NLA0:
2633 $ DEFINE SYS$OUTPUT _NLA0:
2634 $ on error then continue
2635 $ on warning then continue
2637 $ If (Needs_Opt.eqs."Yes")
2639 $ link temp.obj,temp.opt/opt
2643 $ teststatus = f$extract(9,1,$status)
2644 $ DEASSIGN SYS$OUTPUT
2645 $ DEASSIGN SYS$ERROR
2646 $ if (teststatus.nes."1")
2648 $ perl_d_sethent="undef"
2650 $ perl_d_sethent="define"
2653 $ perl_d_sethent="undef"
2655 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
2657 $! Check for setnetent
2659 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2663 $ WS "#include <stdlib.h>
2665 $ WS "#include <stdio.h>
2666 $ if ("''Has_Socketshr'".eqs."T")
2668 $ WS "#include <socketshr.h>"
2670 $ WS "#include <netdb.h>
2678 $ DEFINE SYS$ERROR _NLA0:
2679 $ DEFINE SYS$OUTPUT _NLA0:
2680 $ on error then continue
2681 $ on warning then continue
2683 $ If (Needs_Opt.eqs."Yes")
2685 $ link temp.obj,temp.opt/opt
2689 $ teststatus = f$extract(9,1,$status)
2690 $ DEASSIGN SYS$OUTPUT
2691 $ DEASSIGN SYS$ERROR
2692 $ if (teststatus.nes."1")
2694 $ perl_d_setnent="undef"
2696 $ perl_d_setnent="define"
2699 $ perl_d_setnent="undef"
2701 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
2703 $! Check for setprotoent
2705 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2709 $ WS "#include <stdlib.h>
2711 $ WS "#include <stdio.h>
2712 $ if ("''Has_Socketshr'".eqs."T")
2714 $ WS "#include <socketshr.h>"
2716 $ WS "#include <netdb.h>
2720 $ WS "setprotoent(1);
2724 $ DEFINE SYS$ERROR _NLA0:
2725 $ DEFINE SYS$OUTPUT _NLA0:
2726 $ on error then continue
2727 $ on warning then continue
2729 $ If (Needs_Opt.eqs."Yes")
2731 $ link temp.obj,temp.opt/opt
2735 $ teststatus = f$extract(9,1,$status)
2736 $ DEASSIGN SYS$OUTPUT
2737 $ DEASSIGN SYS$ERROR
2738 $ if (teststatus.nes."1")
2740 $ perl_d_setpent="undef"
2742 $ perl_d_setpent="define"
2745 $ perl_d_setpent="undef"
2747 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
2749 $! Check for setservent
2751 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2755 $ WS "#include <stdlib.h>
2757 $ WS "#include <stdio.h>
2758 $ if ("''Has_Socketshr'".eqs."T")
2760 $ WS "#include <socketshr.h>"
2762 $ WS "#include <netdb.h>
2766 $ WS "setservent(1);
2770 $ DEFINE SYS$ERROR _NLA0:
2771 $ DEFINE SYS$OUTPUT _NLA0:
2772 $ on error then continue
2773 $ on warning then continue
2775 $ If (Needs_Opt.eqs."Yes")
2777 $ link temp.obj,temp.opt/opt
2781 $ teststatus = f$extract(9,1,$status)
2782 $ DEASSIGN SYS$OUTPUT
2783 $ DEASSIGN SYS$ERROR
2784 $ if (teststatus.nes."1")
2786 $ perl_d_setsent="undef"
2788 $ perl_d_setsent="define"
2791 $ perl_d_setsent="undef"
2793 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
2795 $! Check for gethostent
2797 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2801 $ WS "#include <stdlib.h>
2803 $ WS "#include <stdio.h>
2804 $ if ("''Has_Socketshr'".eqs."T")
2806 $ WS "#include <socketshr.h>"
2808 $ WS "#include <netdb.h>
2816 $ DEFINE SYS$ERROR _NLA0:
2817 $ DEFINE SYS$OUTPUT _NLA0:
2818 $ on error then continue
2819 $ on warning then continue
2821 $ If (Needs_Opt.eqs."Yes")
2823 $ link temp.obj,temp.opt/opt
2827 $ teststatus = f$extract(9,1,$status)
2828 $ DEASSIGN SYS$OUTPUT
2829 $ DEASSIGN SYS$ERROR
2830 $ if (teststatus.nes."1")
2832 $ perl_d_gethent="undef"
2834 $ perl_d_gethent="define"
2837 $ perl_d_gethent="undef"
2839 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
2841 $! Check for getnetent
2843 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2847 $ WS "#include <stdlib.h>
2849 $ WS "#include <stdio.h>
2850 $ if ("''Has_Socketshr'".eqs."T")
2852 $ WS "#include <socketshr.h>"
2854 $ WS "#include <netdb.h>
2862 $ DEFINE SYS$ERROR _NLA0:
2863 $ DEFINE SYS$OUTPUT _NLA0:
2864 $ on error then continue
2865 $ on warning then continue
2867 $ If (Needs_Opt.eqs."Yes")
2869 $ link temp.obj,temp.opt/opt
2873 $ teststatus = f$extract(9,1,$status)
2874 $ DEASSIGN SYS$OUTPUT
2875 $ DEASSIGN SYS$ERROR
2876 $ if (teststatus.nes."1")
2878 $ perl_d_getnent="undef"
2880 $ perl_d_getnent="define"
2883 $ perl_d_getnent="undef"
2885 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
2887 $! Check for getprotoent
2889 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2893 $ WS "#include <stdlib.h>
2895 $ WS "#include <stdio.h>
2896 $ if ("''Has_Socketshr'".eqs."T")
2898 $ WS "#include <socketshr.h>"
2900 $ WS "#include <netdb.h>
2904 $ WS "getprotoent();
2908 $ DEFINE SYS$ERROR _NLA0:
2909 $ DEFINE SYS$OUTPUT _NLA0:
2910 $ on error then continue
2911 $ on warning then continue
2913 $ If (Needs_Opt.eqs."Yes")
2915 $ link temp.obj,temp.opt/opt
2919 $ teststatus = f$extract(9,1,$status)
2920 $ DEASSIGN SYS$OUTPUT
2921 $ DEASSIGN SYS$ERROR
2922 $ if (teststatus.nes."1")
2924 $ perl_d_getpent="undef"
2926 $ perl_d_getpent="define"
2929 $ perl_d_getpent="undef"
2931 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
2933 $! Check for getservent
2935 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2939 $ WS "#include <stdlib.h>
2941 $ WS "#include <stdio.h>
2942 $ if ("''Has_Socketshr'".eqs."T")
2944 $ WS "#include <socketshr.h>"
2946 $ WS "#include <netdb.h>
2954 $ DEFINE SYS$ERROR _NLA0:
2955 $ DEFINE SYS$OUTPUT _NLA0:
2956 $ on error then continue
2957 $ on warning then continue
2959 $ If (Needs_Opt.eqs."Yes")
2961 $ link temp.obj,temp.opt/opt
2965 $ teststatus = f$extract(9,1,$status)
2966 $ DEASSIGN SYS$OUTPUT
2967 $ DEASSIGN SYS$ERROR
2968 $ if (teststatus.nes."1")
2970 $ perl_d_getsent="undef"
2972 $ perl_d_getsent="define"
2975 $ perl_d_getsent="undef"
2977 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
2979 $! Check for socklen_t
2981 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2985 $ WS "#include <stdlib.h>
2987 $ WS "#include <stdio.h>
2988 $ IF ("''Has_Socketshr'".eqs."T")
2990 $ WS "#include <socketshr.h>"
2992 $ WS "#include <netdb.h>
2996 $ WS "socklen_t x = 16;
3000 $ DEFINE SYS$ERROR _NLA0:
3001 $ DEFINE SYS$OUTPUT _NLA0:
3002 $ on error then continue
3003 $ on warning then continue
3005 $ If (Needs_Opt.eqs."Yes")
3007 $ link temp.obj,temp.opt/opt
3011 $ teststatus = f$extract(9,1,$status)
3012 $ DEASSIGN SYS$OUTPUT
3013 $ DEASSIGN SYS$ERROR
3014 $ if (teststatus.nes."1")
3016 $ perl_d_socklen_t="undef"
3018 $ perl_d_socklen_t="define"
3021 $ perl_d_socklen_t="undef"
3023 $ WRITE_RESULT "d_socklen_t is ''perl_d_socklen_t'"
3025 $! Check for pthread_yield
3027 $ if ("''use_threads'".eqs."T")
3031 $ WS "#include <stdlib.h>
3033 $ WS "#include <pthread.h>
3034 $ WS "#include <stdio.h>
3037 $ WS "pthread_yield();
3041 $ DEFINE SYS$ERROR _NLA0:
3042 $ DEFINE SYS$OUTPUT _NLA0:
3043 $ on error then continue
3044 $ on warning then continue
3046 $ teststatus = f$extract(9,1,$status)
3047 $ DEASSIGN SYS$OUTPUT
3048 $ DEASSIGN SYS$ERROR
3049 $ if (teststatus.nes."1")
3051 $ perl_d_pthread_yield="undef"
3053 $ perl_d_pthread_yield="define"
3056 $ perl_d_pthread_yield="undef"
3058 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
3060 $! Check for sched_yield
3062 $ if ("''use_threads'".eqs."T")
3066 $ WS "#include <stdlib.h>
3068 $ WS "#include <pthread.h>
3069 $ WS "#include <stdio.h>
3072 $ WS "sched_yield();
3076 $ DEFINE SYS$ERROR _NLA0:
3077 $ DEFINE SYS$OUTPUT _NLA0:
3078 $ on error then continue
3079 $ on warning then continue
3081 $ teststatus = f$extract(9,1,$status)
3082 $ DEASSIGN SYS$OUTPUT
3083 $ DEASSIGN SYS$ERROR
3084 $ if (teststatus.nes."1")
3086 $ perl_d_sched_yield="undef"
3087 $ perl_sched_yield = " "
3089 $ perl_d_sched_yield="define"
3090 $ perl_sched_yield = "sched_yield"
3093 $ perl_d_sched_yield="undef"
3094 $ perl_sched_yield = " "
3096 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
3097 $ WRITE_RESULT "sched_yield is ''perl_sched_yield'"
3099 $! Check for generic pointer size
3103 $ WS "#include <stdlib.h>
3105 $ WS "#include <stdio.h>
3109 $ WS "foo = sizeof(char *);
3110 $ WS "printf(""%d\n"", foo);
3114 $ DEFINE SYS$ERROR _NLA0:
3115 $ DEFINE SYS$OUTPUT _NLA0:
3116 $ ON ERROR THEN CONTINUE
3117 $ ON WARNING THEN CONTINUE
3119 $ If (Needs_Opt.eqs."Yes")
3121 $ link temp.obj,temp.opt/opt
3125 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3126 $ DEASSIGN SYS$OUTPUT
3127 $ DEASSIGN SYS$ERROR
3128 $ DEFINE SYS$ERROR TEMPOUT
3129 $ DEFINE SYS$OUTPUT TEMPOUT
3132 $ DEASSIGN SYS$OUTPUT
3133 $ DEASSIGN SYS$ERROR
3134 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3137 $ DELETE/NOLOG [-.uu]tempout.lis;
3140 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
3142 $! Check rand48 and its ilk
3146 $ WS "#include <stdlib.h>
3148 $ WS "#include <stdio.h>
3151 $ WS "srand48(12L);"
3156 $ DEFINE SYS$ERROR _NLA0:
3157 $ DEFINE SYS$OUTPUT _NLA0:
3158 $ ON ERROR THEN CONTINUE
3159 $ ON WARNING THEN CONTINUE
3161 $ If (Needs_Opt.eqs."Yes")
3163 $ link temp,temp.opt/opt
3167 $ teststatus = f$extract(9,1,$status)
3168 $ DEASSIGN SYS$OUTPUT
3169 $ DEASSIGN SYS$ERROR
3170 $ if (teststatus.nes."1")
3172 $ perl_drand01="random()"
3173 $ perl_randseedtype = "unsigned"
3174 $ perl_seedfunc = "srandom"
3178 $ WS "#include <stdlib.h>
3180 $ WS "#include <stdio.h>
3187 $! copy temp.c sys$output
3189 $ DEFINE SYS$ERROR _NLA0:
3190 $ DEFINE SYS$OUTPUT _NLA0:
3191 $ ON ERROR THEN CONTINUE
3192 $ ON WARNING THEN CONTINUE
3194 $ If (Needs_Opt.eqs."Yes")
3196 $ link temp,temp.opt/opt
3200 $ teststatus = f$extract(9,1,$status)
3201 $ DEASSIGN SYS$OUTPUT
3202 $ DEASSIGN SYS$ERROR
3203 $ if (teststatus.nes."1")
3205 $ perl_drand01="(((float)rand())/((float)RAND_MAX))"
3206 $ perl_randseedtype = "unsigned"
3207 $ perl_seedfunc = "srand"
3209 $ WRITE_RESULT "drand01 is ''perl_drand01'"
3212 $! Done with compiler checks. Clean up.
3213 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
3214 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
3215 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
3216 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
3219 $! Some that are compiler or VMS version sensitive
3222 $ IF "''Using_Gnu_C'".EQS."Yes"
3224 $ perl_d_attribut="define"
3225 $ perl_vms_cc_type="gcc"
3227 $ perl_vms_cc_type="cc"
3228 $ perl_d_attribut="undef"
3231 $! Dec C >= 5.2 and VMS ver >= 7.0
3232 $ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
3234 $ perl_d_bcmp="define"
3235 $ perl_d_gettimeod="define"
3236 $ perl_d_uname="define"
3237 $ perl_d_sigaction="define"
3238 $ perl_d_truncate="define"
3239 $ perl_d_wait4="define"
3240 $ perl_d_index="define"
3241 $ perl_pidtype="pid_t"
3242 $ 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"
3243 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3244 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
3245 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
3246 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
3247 $ 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"
3248 $ 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"
3249 $ perl_sig_num_with_commas=perl_sig_num_init
3250 $ perl_uidtype="uid_t"
3251 $ perl_d_pathconf="define"
3252 $ perl_d_fpathconf="define"
3253 $ perl_d_sysconf="define"
3254 $ perl_d_sigsetjmp="define"
3256 $ perl_pidtype="unsigned int"
3257 $ perl_d_gettimeod="undef"
3258 $ perl_d_bcmp="undef"
3259 $ perl_d_uname="undef"
3260 $ perl_d_sigaction="undef"
3261 $ perl_d_truncate="undef"
3262 $ perl_d_wait4="undef"
3263 $ perl_d_index="undef"
3264 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
3265 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3266 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
3267 $ perl_sig_name_with_commas = psnwc1 + psnwc2
3268 $ perl_sig_num="0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 6 16 17"",0"
3269 $ perl_sig_num_init="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
3270 $ perl_sig_num_with_commas=perl_sig_num_init
3271 $ perl_uidtype="unsigned int"
3272 $ perl_d_pathconf="undef"
3273 $ perl_d_fpathconf="undef"
3274 $ perl_d_sysconf="undef"
3275 $ perl_d_sigsetjmp="undef"
3279 $ IF ("''Using_Dec_C'".EQS."Yes")
3281 $ perl_d_mbstowcs="define"
3282 $ perl_d_mbtowc="define"
3283 $ perl_d_stdiobase="define"
3284 $ perl_d_stdio_ptr_lval="define"
3285 $ perl_d_stdio_cnt_lval="define"
3286 $ perl_d_stdstdio="define"
3287 $ perl_d_wcstombs="define"
3288 $ perl_d_mblen="define"
3289 $ perl_d_mktime="define"
3290 $ perl_d_strcoll="define"
3291 $ perl_d_strxfrm="define"
3292 $ perl_d_wctomb="define"
3293 $ perl_i_locale="define"
3294 $ perl_d_locconv="define"
3295 $ perl_d_setlocale="define"
3296 $ perl_vms_cc_type="decc"
3298 $ perl_d_mbstowcs="undef"
3299 $ perl_d_mbtowc="undef"
3300 $ perl_d_stdiobase="undef"
3301 $ perl_d_stdio_ptr_lval="undef"
3302 $ perl_d_stdio_cnt_lval="undef"
3303 $ perl_d_stdstdio="undef"
3304 $ perl_d_wcstombs="undef"
3305 $ perl_d_mblen="undef"
3306 $ perl_d_mktime="undef"
3307 $ perl_d_strcoll="undef"
3308 $ perl_d_strxfrm="undef"
3309 $ perl_d_wctomb="undef"
3310 $ perl_i_locale="undef"
3311 $ perl_d_locconv="undef"
3312 $ perl_d_setlocale="undef"
3316 $ if ("''Using_Vax_C'".EQS."Yes")
3318 $ perl_vms_cc_type="vaxc"
3322 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
3324 $ perl_d_vms_do_sockets="define"
3325 $ perl_d_htonl="define"
3326 $ perl_d_socket="define"
3327 $ perl_d_select="define"
3328 $ perl_netdb_host_type="char *"
3329 $ perl_netdb_hlen_type="int"
3330 $ perl_netdb_name_type="char *"
3331 $ perl_netdb_net_type="long"
3332 $ perl_d_gethbyaddr="define"
3333 $ perl_d_gethbyname="define"
3334 $ perl_d_getnbyaddr="define"
3335 $ perl_d_getnbyname="define"
3336 $ perl_d_getpbynumber="define"
3337 $ perl_d_getpbyname="define"
3338 $ perl_d_getsbyport="define"
3339 $ perl_d_getsbyname="define"
3340 $ perl_d_gethostprotos="define"
3341 $ perl_d_getnetprotos="define"
3342 $ perl_d_getprotoprotos="define"
3343 $ perl_d_getservprotos="define"
3345 $ perl_d_vms_do_sockets="undef"
3346 $ perl_d_htonl="undef"
3347 $ perl_d_socket="undef"
3348 $ perl_d_select="undef"
3349 $ perl_netdb_host_type="char *"
3350 $ perl_netdb_hlen_type="int"
3351 $ perl_netdb_name_type="char *"
3352 $ perl_netdb_net_type="long"
3353 $ perl_d_gethbyaddr="undef"
3354 $ perl_d_gethbyname="undef"
3355 $ perl_d_getnbyaddr="undef"
3356 $ perl_d_getnbyname="undef"
3357 $ perl_d_getpbynumber="undef"
3358 $ perl_d_getpbyname="undef"
3359 $ perl_d_getsbyport="undef"
3360 $ perl_d_getsbyname="undef"
3361 $ perl_d_gethostprotos="undef"
3362 $ perl_d_getnetprotos="undef"
3363 $ perl_d_getprotoprotos="undef"
3364 $ perl_d_getservprotos="undef"
3367 $ if ("''use_threads'".eqs."T")
3369 $ perl_usethreads="define"
3370 $ perl_d_pthreads_created_joinable="define"
3371 $ if ("''VMS_VER'".ges."7.0")
3373 $ perl_d_oldpthreads="undef"
3375 $ perl_d_oldpthreads="define"
3378 $ perl_d_oldpthreads="undef"
3379 $ perl_usethreads="undef"
3381 $ perl_d_pthreads_created_joinable="undef"
3384 $! new (5.005_62++) typedefs for primitives
3386 $ perl_ivtype="long"
3387 $ perl_uvtype="unsigned long"
3388 $ perl_i8type="char"
3389 $ perl_u8type="unsigned char"
3390 $ perl_i16type="short"
3391 $ perl_u16type="unsigned short"
3392 $ perl_i32type="int"
3393 $ perl_u32type="unsigned int"
3394 $ perl_i64type="long long"
3395 $ perl_u64type="unsigned long long"
3396 $ perl_nvtype="double"
3398 $ GOTO beyond_type_size_check
3402 $! Check for type sizes
3406 $ WS "#include <stdlib.h>
3408 $ WS "#include <stdio.h>
3411 $ WS "printf(""%d\n"", sizeof(''type'));"
3415 $ DEFINE SYS$ERROR _NLA0:
3416 $ DEFINE SYS$OUTPUT _NLA0:
3417 $ ON ERROR THEN CONTINUE
3418 $ ON WARNING THEN CONTINUE
3420 $ If (Needs_Opt.eqs."Yes")
3422 $ link temp.obj,temp.opt/opt
3426 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3427 $ DEASSIGN SYS$OUTPUT
3428 $ DEASSIGN SYS$ERROR
3429 $ DEFINE SYS$ERROR TEMPOUT
3430 $ DEFINE SYS$OUTPUT TEMPOUT
3433 $ DEASSIGN SYS$OUTPUT
3434 $ DEASSIGN SYS$ERROR
3435 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3438 $ DELETE/NOLOG [-.uu]tempout.lis;
3439 $ WRITE_RESULT "''size_name' is ''line'"
3443 $beyond_type_size_check:
3446 $ type = "''perl_ivtype'"
3447 $ size_name = "ivsize"
3448 $ gosub type_size_check
3449 $ perl_ivsize="''line'"
3450 $ IF type .eqs. "long"
3451 $ THEN perl_longsize = "''line'"
3454 $ size_name = "longsize"
3455 $ gosub type_size_check
3456 $ perl_longsize="''line'"
3459 $ type = "''perl_uvtype'"
3460 $ size_name = "uvsize"
3461 $ gosub type_size_check
3462 $ perl_uvsize="''line'"
3464 $ type = "''perl_i8type'"
3465 $ size_name = "i8size"
3466 $ gosub type_size_check
3467 $ perl_i8size="''line'"
3469 $ type = "''perl_u8type'"
3470 $ size_name = "u8size"
3471 $ gosub type_size_check
3472 $ perl_u8size="''line'"
3474 $ type = "''perl_i16type'"
3475 $ size_name = "i16size"
3476 $ gosub type_size_check
3477 $ perl_i16size="''line'"
3478 $ IF type .eqs. "short"
3479 $ THEN perl_shortsize="''line'"
3481 $ type = "''perl_i16type'"
3482 $ size_name = "shortsize"
3483 $ gosub type_size_check
3484 $ perl_shortsize="''line'"
3487 $ type = "''perl_u16type'"
3488 $ size_name = "u16size"
3489 $ gosub type_size_check
3490 $ perl_u16size="''line'"
3492 $ type = "''perl_i32type'"
3493 $ size_name = "i32size"
3494 $ gosub type_size_check
3495 $ perl_i32size="''line'"
3496 $ IF type .eqs. "int"
3497 $ THEN perl_intsize="''perl_i32size'"
3500 $ size_name = "intsize"
3501 $ gosub type_size_check
3502 $ perl_intsize="''line'"
3505 $ type = "''perl_u32type'"
3506 $ size_name = "u32size"
3507 $ gosub type_size_check
3508 $ perl_u32size="''line'"
3510 $ type = "''perl_i64type'"
3511 $ size_name = "i64size"
3512 $ gosub type_size_check
3513 $ perl_i64size="''line'"
3515 $ type = "''perl_u64type'"
3516 $ size_name = "u64size"
3517 $ gosub type_size_check
3518 $ perl_u64size="''line'"
3520 $ perl_ivdformat="""ld"""
3521 $ perl_uvuformat="""lu"""
3522 $ perl_uvoformat="""lo"""
3523 $ perl_uvxformat="""lx"""
3525 $! Finally the composite ones. All config
3526 $ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3527 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3528 $ perl_myhostname="''myhostname'"
3529 $ perl_mydomain="''mydomain'"
3530 $ perl_perladmin="''perladmin'"
3531 $ perl_cf_email="''cf_email'"
3532 $ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
3533 $ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3534 $ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
3535 $ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
3536 $ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
3537 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
3538 $ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3539 $ if "''Using_Dec_C'" .eqs. "Yes"
3541 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
3543 $ IF "''Using_Vax_C'" .eqs. "Yes"
3545 $ perl_ccflags="/Include=[]/Obj=''perl_obj_ext'/NoList''cc_flags'"
3548 $ if use_vmsdebug_perl .eqs. "Y"
3550 $ perl_optimize="/Debug/NoOpt"
3551 $ perl_dbgprefix = "DBG"
3554 $ perl_dbgprefix = ""
3557 $! Finally clean off any leading zeros from the patchlevel or subversion
3558 $ perl_patchlevel = perl_patchlevel + 0
3559 $ perl_subversion = perl_subversion + 0
3561 $! Okay, we've got everything configured. Now go write out a config.sh.
3562 $ open/write CONFIGSH [-]config.sh
3563 $ WC := "write CONFIGSH"
3565 $ WC "# This file generated by Configure.COM on a VMS system."
3566 $ WC "# Time: " + perl_cf_time
3568 $ WC "CONFIGDOTSH=true"
3569 $ WC "package='" + perl_package + "'"
3570 $ WC "d_nv_preserves_uv='" + perl_d_nv_preserves_uv + "'"
3571 $ WC "use5005threads='" + perl_use5005threads + "'"
3572 $ WC "useithreads='" + perl_useithreads + "'"
3573 $ WC "CONFIG='" + perl_config + "'"
3574 $ WC "cf_time='" + perl_cf_time + "'"
3575 $ WC "cf_by='" + perl_cf_by+ "'"
3576 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
3577 $ WC "ccdlflags='" + perl_ccdlflags + "'"
3578 $ WC "cccdlflags='" + perl_cccdlflags + "'"
3579 $ WC "mab='" + perl_mab + "'"
3580 $ WC "libpth='" + perl_libpth + "'"
3581 $ WC "ld='" + perl_ld + "'"
3582 $ WC "lddlflags='" + perl_lddlflags + "'"
3583 $ WC "ranlib='" + perl_ranlib + "'"
3584 $ WC "ar='" + perl_ar + "'"
3585 $ WC "full_ar='" + perl_full_ar + "'"
3586 $ WC "eunicefix='" + perl_eunicefix + "'"
3587 $ WC "hint='" + perl_hint +"'"
3588 $ WC "hintfile='" + perl_hintfile + "'"
3589 $ WC "shrplib='" + perl_shrplib + "'"
3590 $ WC "usemymalloc='" + perl_usemymalloc + "'"
3591 $ WC "usevfork='" + perl_usevfork + "'"
3592 $ WC "useposix='false'"
3593 $ WC "spitshell='write sys$output '"
3594 $ WC "dlsrc='dl_vms.c'"
3595 $ WC "binexp='" + perl_binexp + "'"
3596 $ WC "man1ext='" + perl_man1ext + "'"
3597 $ WC "man3ext='" + perl_man3ext + "'"
3598 $ WC "arch='" + perl_arch + "'"
3599 $ WC "archname='" + perl_archname + "'"
3600 $ WC "osvers='" + perl_osvers + "'"
3601 $ WC "prefix='" + perl_prefix + "'"
3602 $ WC "builddir='" + perl_builddir + "'"
3603 $ WC "installbin='" + perl_installbin + "'"
3604 $ WC "installscript='" + perl_installscript + "'"
3605 $ WC "installman1dir='" + perl_installman1dir + "'"
3606 $ WC "installman3dir='" + perl_installman3dir + "'"
3607 $ WC "installprivlib='" + perl_installprivlib + "'"
3608 $ WC "installarchlib='" + perl_installarchlib + "'"
3609 $ WC "installsitelib='" + perl_installsitelib + "'"
3610 $ WC "installsitearch='" + perl_installsitearch + "'"
3611 $ WC "path_sep='" + perl_path_sep + "'"
3612 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
3613 $ WC "d_attribut='" + perl_d_attribut + "'"
3614 $ WC "cc='" + perl_cc + "'"
3615 $ WC "ccflags='" + perl_ccflags + "'"
3616 $ WC "optimize='" + perl_optimize + "'"
3617 $ WC "dbgprefix='" + perl_dbgprefix + "'"
3618 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
3619 $ WC "d_socket='" + perl_d_socket + "'"
3620 $ WC "d_sockpair='" + perl_d_sockpair + "'"
3621 $ WC "d_gethent='" + perl_d_gethent + "'"
3622 $ WC "d_getsent='" + perl_d_getsent + "'"
3623 $ WC "d_socklen_t='" + perl_d_socklen_t + "'"
3624 $ WC "d_select='" + perl_d_select + "'"
3625 $ WC "i_niin='" + perl_i_niin + "'"
3626 $ WC "i_netinettcp='" + perl_i_netinettcp + "'"
3627 $ WC "i_neterrno='" + perl_i_neterrno + "'"
3628 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
3629 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
3630 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
3631 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
3632 $ WC "d_locconv='" + perl_d_locconv + "'"
3633 $ WC "d_setlocale='" + perl_d_setlocale + "'"
3634 $ WC "i_locale='" + perl_i_locale + "'"
3635 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
3636 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
3637 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
3638 $ WC "d_wctomb='" + perl_d_wctomb + "'"
3639 $ WC "d_mblen='" + perl_d_mblen + "'"
3640 $ WC "d_mktime='" + perl_d_mktime + "'"
3641 $ WC "d_strcoll='" + perl_d_strcoll + "'"
3642 $ WC "d_strxfrm='" + perl_d_strxfrm + "'"
3643 $ WC "ldflags='" + perl_ldflags + "'"
3644 $ WC "dlobj='" + perl_dlobj + "'"
3645 $ WC "obj_ext='" + perl_obj_ext + "'"
3646 $ WC "so='" + perl_so + "'"
3647 $ WC "dlext='" + perl_dlext + "'"
3648 $ WC "exe_ext='" + perl_exe_ext + "'"
3649 $ WC "lib_ext='" + perl_lib_ext + "'"
3650 $ WC "myhostname='" + perl_myhostname + "'"
3651 $ WC "mydomain='" + perl_mydomain + "'"
3652 $ WC "perladmin='" + perl_perladmin + "'"
3653 $ WC "cf_email='" + perl_cf_email + "'"
3654 $ WC "myuname='" + perl_myuname + "'"
3655 $ WC "alignbytes='" + perl_alignbytes + "'"
3656 $ WC "osname='" + perl_osname + "'"
3657 $ WC "d_archlib='" + perl_d_archlib + "'"
3658 $ WC "archlibexp='" + perl_archlibexp + "'"
3659 $ WC "archlib='" + perl_archlib + "'"
3660 $ WC "archname='" + perl_archname + "'"
3661 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
3662 $ WC "cppstdin='" + perl_cppstdin + "'"
3663 $ WC "cppminus='" + perl_cppminus + "'"
3664 $ WC "d_bcmp='" + perl_d_bcmp + "'"
3665 $ WC "d_bcopy='" + perl_d_bcopy + "'"
3666 $ WC "d_bzero='" + perl_d_bzero + "'"
3667 $ WC "d_castneg='" + perl_d_castneg + "'"
3668 $ WC "castflags='" + perl_castflags + "'"
3669 $ WC "d_chsize='" + perl_d_chsize + "'"
3670 $ WC "d_const='" + perl_d_const + "'"
3671 $ WC "d_crypt='" + perl_d_crypt + "'"
3672 $ WC "byteorder='" + perl_byteorder + "'"
3673 $ WC "full_csh='" + perl_full_csh + "'"
3674 $ WC "d_csh='" + perl_d_csh + "'"
3675 $ WC "d_dup2='" + perl_d_dup2 + "'"
3676 $ WC "d_fchmod='" + perl_d_fchmod + "'"
3677 $ WC "d_fchown='" + perl_d_fchown + "'"
3678 $ WC "d_fcntl='" + perl_d_fcntl + "'"
3679 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
3680 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
3681 $ WC "d_flock='" + perl_d_flock + "'"
3682 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
3683 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
3684 $ WC "d_getgrps='" + perl_d_getgrps + "'"
3685 $ WC "d_setgrps='" + perl_d_setgrps + "'"
3686 $ WC "d_uname='" + perl_d_uname + "'"
3687 $ WC "d_getprior='" + perl_d_getprior + "'"
3688 $ WC "d_killpg='" + perl_d_killpg + "'"
3689 $ WC "d_link='" + perl_d_link + "'"
3690 $ WC "d_lstat='" + perl_d_lstat + "'"
3691 $ WC "d_lockf='" + perl_d_lockf + "'"
3692 $ WC "d_memcmp='" + perl_d_memcmp + "'"
3693 $ WC "d_memcpy='" + perl_d_memcpy + "'"
3694 $ WC "d_memmove='" + perl_d_memmove + "'"
3695 $ WC "d_memset='" + perl_d_memset + "'"
3696 $ WC "d_mkdir='" + perl_d_mkdir + "'"
3697 $ WC "d_msg='" + perl_d_msg + "'"
3698 $ WC "d_open3='" + perl_d_open3 + "'"
3699 $ WC "d_poll='" + perl_d_poll + "'"
3700 $ WC "d_readdir='" + perl_d_readdir + "'"
3701 $ WC "d_seekdir='" + perl_d_seekdir + "'"
3702 $ WC "d_telldir='" + perl_d_telldir + "'"
3703 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
3704 $ WC "d_rename='" + perl_d_rename + "'"
3705 $ WC "d_rmdir='" + perl_d_rmdir + "'"
3706 $ WC "d_sem='" + perl_d_sem + "'"
3707 $ WC "d_setegid='" + perl_d_setegid + "'"
3708 $ WC "d_seteuid='" + perl_d_seteuid + "'"
3709 $ WC "d_setprior='" + perl_d_setprior + "'"
3710 $ WC "d_setregid='" + perl_d_setregid + "'"
3711 $ WC "d_setresgid='" + perl_d_setresgid + "'"
3712 $ WC "d_setreuid='" + perl_d_setreuid + "'"
3713 $ WC "d_setresuid='" + perl_d_setresuid + "'"
3714 $ WC "d_setrgid='" + perl_d_setrgid + "'"
3715 $ WC "d_setruid='" + perl_d_setruid + "'"
3716 $ WC "d_setsid='" + perl_d_setsid + "'"
3717 $ WC "d_shm='" + perl_d_shm + "'"
3718 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
3719 $ WC "d_sigaction='" + perl_d_sigaction + "'"
3720 $ WC "d_statblks='" + perl_d_statblks + "'"
3721 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
3722 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
3723 $ WC "stdio_base='" + perl_stdio_base + "'"
3724 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
3725 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
3726 $ WC "d_strerror='" + perl_d_strerror + "'"
3727 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
3728 $ WC "d_strerrm='" + perl_d_strerrm + "'"
3729 $ WC "d_symlink='" + perl_d_symlink + "'"
3730 $ WC "d_syscall='" + perl_d_syscall + "'"
3731 $ WC "d_system='" + perl_d_system + "'"
3732 $ WC "timetype='" + perl_timetype + "'"
3733 $ WC "d_truncate='" + perl_d_truncate + "'"
3734 $ WC "d_vfork='" + perl_d_vfork + "'"
3735 $ WC "signal_t='" + perl_signal_t + "'"
3736 $ WC "d_volatile='" + perl_d_volatile + "'"
3737 $ WC "d_vprintf='" + perl_d_vprintf + "'"
3738 $ WC "d_charvspr='" + perl_d_charvspr + "'"
3739 $ WC "d_wait4='" + perl_d_wait4 + "'"
3740 $ WC "d_waitpid='" + perl_d_waitpid + "'"
3741 $ WC "i_dirent='" + perl_i_dirent + "'"
3742 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
3743 $ WC "direntrytype='" + perl_direntrytype + "'"
3744 $ WC "i_fcntl='" + perl_i_fcntl + "'"
3745 $ WC "i_grp='" + perl_i_grp + "'"
3746 $ WC "i_limits='" + perl_i_limits + "'"
3747 $ WC "i_memory='" + perl_i_memory + "'"
3748 $ WC "i_ndbm='" + perl_i_ndbm + "'"
3749 $ WC "i_stdarg='" + perl_i_stdarg + "'"
3750 $ WC "i_pwd='" + perl_i_pwd + "'"
3751 $ WC "d_pwquota='" + perl_d_pwquota + "'"
3752 $ WC "d_pwage='" + perl_d_pwage + "'"
3753 $ WC "d_pwchange='" + perl_d_pwchange + "'"
3754 $ WC "d_pwclass='" + perl_d_pwclass + "'"
3755 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
3756 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
3757 $ WC "i_stddef='" + perl_i_stddef + "'"
3758 $ WC "i_stdlib='" + perl_i_stdlib + "'"
3759 $ WC "i_string='" + perl_i_string + "'"
3760 $ WC "i_sysdir='" + perl_i_sysdir + "'"
3761 $ WC "i_sysfile='" + perl_i_sysfile + "'"
3762 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
3763 $ WC "i_sysndir='" + perl_i_sysndir + "'"
3764 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
3765 $ WC "i_sysselct='" + perl_i_sysselct + "'"
3766 $ WC "i_dbm='" + perl_i_dbm + "'"
3767 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
3768 $ WC "i_sfio='" + perl_i_sfio + "'"
3769 $ WC "i_sysstat='" + perl_i_sysstat + "'"
3770 $ WC "i_systimes='" + perl_i_systimes + "'"
3771 $ WC "i_systypes='" + perl_i_systypes + "'"
3772 $ WC "i_sysun='" + perl_i_sysun + "'"
3773 $ WC "i_syswait='" + perl_i_syswait + "'"
3774 $ WC "i_termio='" + perl_i_termio + "'"
3775 $ WC "i_sgtty='" + perl_i_sgtty + "'"
3776 $ WC "i_termios='" + perl_i_termios + "'"
3777 $ WC "i_time='" + perl_i_time + "'"
3778 $ WC "i_systime='" + perl_i_systime + "'"
3779 $ WC "i_systimek='" + perl_i_systimek + "'"
3780 $ WC "i_unistd='" + perl_i_unistd + "'"
3781 $ WC "i_utime='" + perl_i_utime + "'"
3782 $ WC "i_varargs='" + perl_i_varargs + "'"
3783 $ WC "i_vfork='" + perl_i_vfork + "'"
3784 $ WC "prototype='" + perl_prototype + "'"
3785 $ WC "randbits='" + perl_randbits +"'"
3786 $ WC "selecttype='" + perl_selecttype + "'"
3787 $ WC "stdchar='" + perl_stdchar + "'"
3788 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
3789 $ WC "full_sed='" + perl_full_sed + "'"
3790 $ WC "bin='" + perl_bin + "'"
3791 $ WC "binexp='" + perl_binexp + "'"
3792 $ WC "d_alarm='" + perl_d_alarm + "'"
3793 $ WC "d_casti32='" + perl_d_casti32 + "'"
3794 $ WC "d_chown='" + perl_d_chown + "'"
3795 $ WC "d_chroot='" + perl_d_chroot + "'"
3796 $ WC "d_cuserid='" + perl_d_cuserid + "'"
3797 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
3798 $ WC "d_ldbl_dig='" + perl_d_ldbl_dig + "'"
3799 $ WC "d_difftime='" + perl_d_difftime + "'"
3800 $ WC "d_fork='" + perl_d_fork + "'"
3801 $ WC "d_getlogin='" + perl_d_getlogin + "'"
3802 $ WC "d_getppid='" + perl_d_getppid + "'"
3803 $ WC "d_htonl='" + perl_d_htonl + "'"
3804 $ WC "d_nice='" + perl_d_nice + "'"
3805 $ WC "d_pause='" + perl_d_pause + "'"
3806 $ WC "d_pipe='" + perl_d_pipe + "'"
3807 $ WC "d_readlink='" + perl_d_readlink + "'"
3808 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
3809 $ WC "d_strchr='" + perl_d_strchr + "'"
3810 $ WC "d_index='" + perl_d_index + "'"
3811 $ WC "d_strtod='" + perl_d_strtod + "'"
3812 $ WC "d_strtol='" + perl_d_strtol + "'"
3813 $ WC "d_strtoul='" + perl_d_strtoul + "'"
3814 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
3815 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
3816 $ WC "d_times='" + perl_d_times + "'"
3817 $ WC "d_tzname='" + perl_d_tzname + "'"
3818 $ WC "d_umask='" + perl_d_umask + "'"
3819 $ WC "fpostype='" + perl_fpostype + "'"
3820 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
3821 $ WC "i_float='" + perl_i_float + "'"
3822 $ WC "i_math='" + perl_i_math + "'"
3823 $ WC "intsize='" + perl_intsize + "'"
3824 $ WC "longsize='" + perl_longsize + "'"
3825 $ WC "shortsize='" + perl_shortsize + "'"
3826 $ WC "lseektype='" + perl_lseektype + "'"
3827 $ WC "lseeksize='4'"
3828 $ WC "i_values='" + perl_i_values + "'"
3829 $ WC "malloctype='" + perl_malloctype + "'"
3830 $ WC "freetype='" + perl_freetype + "'"
3831 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
3832 $ WC "sh='" + perl_sh + "'"
3833 $ WC "sig_name='" + perl_sig_name + "'"
3834 $ WC "sig_num='" + perl_sig_num + "'"
3835 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
3837 $ WC "modetype='" + perl_modetype + "'"
3838 $ WC "ssizetype='" + perl_ssizetype + "'"
3839 $ WC "o_nonblock='" + perl_o_nonblock + "'"
3840 $ WC "eagain='" + perl_eagain + "'"
3841 $ WC "rd_nodata='" + perl_rd_nodata + "'"
3842 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
3843 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
3844 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
3845 $ WC "oldarchlib='" + perl_oldarchlib + "'"
3846 $ WC "privlibexp='" + perl_privlibexp + "'"
3847 $ WC "privlib='" + perl_privlib + "'"
3848 $ WC "sitelibexp='" + perl_sitelibexp + "'"
3849 $ WC "sitelib='" + perl_sitelib + "'"
3850 $ WC "sitearchexp='" + perl_sitearchexp + "'"
3851 $ WC "sitearch='" + perl_sitearch + "'"
3852 $ WC "sizetype='" + perl_sizetype + "'"
3853 $ WC "i_sysparam='" + perl_i_sysparam + "'"
3854 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
3855 $ WC "d_dlerror='" + perl_d_dlerror + "'"
3856 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
3857 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
3858 $ WC "d_dosuid='" + perl_d_dosuid + "'"
3859 $ WC "d_inetaton='" + perl_d_inetaton + "'"
3860 $ WC "d_int64_t='" + perl_d_int64_t + "'"
3861 $ WC "d_isascii='" + perl_d_isascii + "'"
3862 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
3863 $ WC "d_pathconf='" + perl_d_pathconf + "'"
3864 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
3865 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
3866 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
3867 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
3868 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
3869 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
3870 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
3871 $ WC "d_setpgid='" + perl_d_setpgid + "'"
3872 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
3873 $ WC "d_sysconf='" + perl_d_sysconf + "'"
3874 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
3875 $ WC "d_getpgid='" + perl_d_getpgid + "'"
3876 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
3877 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
3878 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
3879 $ WC "d_sfio='" + perl_d_sfio + "'"
3880 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
3881 $ WC "usedl='" + perl_usedl + "'"
3882 $ WC "startperl=" + perl_startperl ! This one's special--no enclosing single quotes
3883 $ WC "db_hashtype='" + perl_db_hashtype + "'"
3884 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
3885 $ WC "useperlio='" + perl_useperlio + "'"
3886 $ WC "defvoidused='" + perl_defvoidused + "'"
3887 $ WC "voidflags='" + perl_voidflags + "'"
3888 $ WC "d_eunice='" + perl_d_eunice + "'"
3889 $ WC "libs='" + perl_libs + "'"
3890 $ WC "libc='" + perl_libc + "'"
3891 $ tempstring = "PERL_VERSION='" + "''perl_patchlevel'" + "'"
3893 $ tempstring = "PERL_SUBVERSION='" + "''perl_patchlevel'" + "'"
3895 $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
3897 $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
3899 $ WC "pager='" + perl_pager + "'"
3900 $ WC "uidtype='" + perl_uidtype + "'"
3901 $ WC "gidtype='" + perl_gidtype + "'"
3902 $ WC "usethreads='" + perl_usethreads + "'"
3903 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
3904 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
3905 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
3906 $ WC "i_netdb='" + perl_i_netdb + "'"
3907 $ WC "pidtype='" + perl_pidtype + "'"
3908 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
3909 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
3910 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
3911 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
3912 $ WC "baserev='" + perl_baserev + "'"
3913 $ WC "doublesize='" + perl_doublesize + "'"
3914 $ WC "ptrsize='" + perl_ptrsize + "'"
3915 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
3916 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
3917 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
3918 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
3919 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
3920 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
3921 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
3922 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
3923 $ WC "d_sethent='" + perl_d_sethent + "'"
3924 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
3925 $ WC "d_longdbl='" + perl_d_longdbl + "'"
3926 $ WC "longdblsize='" + perl_longdblsize + "'"
3927 $ WC "d_longlong='" + perl_d_longlong + "'"
3928 $ WC "longlongsize='" + perl_longlongsize + "'"
3929 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
3930 $ WC "d_mkstemps='" + perl_d_mkstemps + "'"
3931 $ WC "d_mkdtemp='" + perl_d_mkdtemp + "'"
3932 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
3933 $ WC "d_setenv='" + perl_d_setenv + "'"
3934 $ WC "d_endhent='" + perl_d_endhent + "'"
3935 $ WC "d_endnent='" + perl_d_endsent + "'"
3936 $ WC "d_endpent='" + perl_d_endpent + "'"
3937 $ WC "d_endsent='" + perl_d_endsent + "'"
3938 $ WC "d_gethent='" + perl_d_gethent + "'"
3939 $ WC "d_getnent='" + perl_d_getsent + "'"
3940 $ WC "d_getpent='" + perl_d_getpent + "'"
3941 $ WC "d_getsent='" + perl_d_getsent + "'"
3942 $ WC "d_sethent='" + perl_d_sethent + "'"
3943 $ WC "d_setnent='" + perl_d_setsent + "'"
3944 $ WC "d_setpent='" + perl_d_setpent + "'"
3945 $ WC "ebcdic='" + perl_ebcdic + "'"
3946 $ WC "d_setsent='" + perl_d_setsent + "'"
3947 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
3948 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
3949 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
3950 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
3951 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
3952 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
3953 $ WC "d_lchown='" + perl_d_lchown + "'"
3954 $ WC "d_union_semun='" + perl_d_union_semun + "'"
3955 $ WC "i_arpainet='" + perl_i_arpainet + "'"
3956 $ WC "d_grpasswd='" + perl_d_grpasswd + "'"
3957 $ WC "d_setgrent='" + perl_d_setgrent + "'"
3958 $ WC "d_getgrent='" + perl_d_getgrent + "'"
3959 $ WC "d_endgrent='" + perl_d_endgrent + "'"
3960 $ WC "d_pwpasswd='" + perl_d_pwpasswd + "'"
3961 $ WC "d_setpwent='" + perl_d_setpwent + "'"
3962 $ WC "d_getpwent='" + perl_d_getpwent + "'"
3963 $ WC "d_endpwent='" + perl_d_endpwent + "'"
3964 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
3965 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
3966 $ WC "extensions='" + perl_extensions + "'"
3967 $ WC "known_extensions='" + perl_known_extensions + "'"
3968 $ WC "static_ext='" + "'"
3969 $ WC "dynamic_ext='" + perl_extensions + "'"
3970 $ WC "d_mknod='" + perl_d_mknod + "'"
3971 $ WC "devtype='" + perl_devtype + "'"
3972 $ WC "d_gethname='" + perl_d_gethname + "'"
3973 $ WC "d_phostname='" + perl_d_phostname + "'"
3974 $ WC "d_accessx='" + perl_d_accessx + "'"
3975 $ WC "d_eaccess='" + perl_d_eaccess + "'"
3976 $ WC "i_sysaccess='" + perl_i_sysaccess + "'"
3977 $ WC "i_syssecrt='" + perl_i_syssecrt + "'"
3978 $ WC "d_fd_set='" + perl_d_fd_set + "'"
3979 $ WC "d_access='" + perl_d_access + "'"
3980 $ WC "d_msg_ctrunc='" + perl_d_msg_ctrunc + "'"
3981 $ WC "d_msg_dontroute='" + perl_d_msg_dontroute + "'"
3982 $ WC "d_msg_oob='" + perl_d_msg_oob + "'"
3983 $ WC "d_msg_peek='" + perl_d_msg_peek + "'"
3984 $ WC "d_msg_proxy='" + perl_d_msg_proxy + "'"
3985 $ WC "d_scm_rights='" + perl_d_scm_rights + "'"
3986 $ WC "d_sendmsg='" + perl_d_sendmsg + "'"
3987 $ WC "d_recvmsg='" + perl_d_recvmsg + "'"
3988 $ WC "d_msghdr_s='" + perl_d_msghdr_s + "'"
3989 $ WC "d_cmsghdr_s='" + perl_d_cmsghdr_s + "'"
3990 $ WC "i_sysuio='" + perl_i_sysuio + "'"
3991 $ WC "d_fseeko='" + perl_d_fseeko + "'"
3992 $ WC "d_ftello='" + perl_d_ftello + "'"
3993 $ WC "d_readv='" + perl_d_readv + "'"
3994 $ WC "d_writev='" + perl_d_writev + "'"
3995 $ WC "i_machcthr='" + perl_i_machcthr + "'"
3996 $ WC "usemultiplicity='" + perl_usemultiplicity + "'"
3997 $ WC "i_poll='" + perl_i_poll + "'"
3998 $ WC "i_inttypes='" + perl_i_inttypes + "'"
3999 $ WC "d_off64_t='" + perl_d_off64_t + "'"
4000 $ WC "d_fpos64_t='" + perl_d_fpos64_t + "'"
4001 $ WC "use64bits='" + perl_use64bits + "'"
4002 $ WC "d_drand48proto='" + perl_d_drand48proto + "'"
4003 $ WC "d_old_pthread_create_joinable='" + perl_d_old_pthread_create_joinable + "'"
4004 $ WC "old_pthread_create_joinable='" + perl_old_pthread_create_joinable + "'"
4005 $ WC "drand01='" + perl_drand01 + "'"
4006 $ WC "randseedtype='" + perl_randseedtype + "'"
4007 $ WC "seedfunc='" + perl_seedfunc + "'"
4008 $ WC "sig_num_init='" + perl_sig_num_with_commas + "'"
4009 $ WC "i_sysmount='" + perl_i_sysmount + "'"
4010 $ WC "d_fstatfs='" + perl_d_fstatfs + "'"
4011 $ WC "d_memchr='" + perl_d_memchr + "'"
4012 $ WC "d_statfsflags='" + perl_d_statfsflags + "'"
4013 $ WC "fflushNULL='define'"
4014 $ WC "fflushall='undef'"
4015 $ WC "d_stdio_stream_array='undef'"
4016 $ WC "i_sysstatvfs='" + perl_i_sysstatvfs + "'"
4017 $ WC "i_syslog='" + perl_i_syslog + "'"
4018 $ WC "i_sysmode='" + perl_i_sysmode + "'"
4019 $ WC "i_sysutsname='" + perl_i_sysutsname + "'"
4020 $ WC "i_machcthreads='" + perl_i_machcthreads + "'"
4021 $ WC "i_pthread='" + perl_i_pthread + "'"
4022 $ WC "d_fstatvfs='" + perl_d_fstatvfs + "'"
4023 $ WC "i_mntent='" + perl_i_mntent + "'"
4024 $ WC "d_getmntent='" + perl_d_getmntent + "'"
4025 $ WC "d_hasmntopt='" + perl_d_hasmntopt + "'"
4026 $ WC "d_telldirproto='" + perl_d_telldirproto + "'"
4027 $ WC "d_madvise='" + perl_d_madvise + "'"
4028 $ WC "d_msync='" + perl_d_msync + "'"
4029 $ WC "d_mprotect='" + perl_d_mprotect + "'"
4030 $ WC "d_munmap='" + perl_d_munmap + "'"
4031 $ WC "d_mmap='" + perl_d_mmap + "'"
4032 $ WC "i_sysmman='" + perl_i_sysmman + "'"
4033 $ WC "installusrbinperl='" + perl_installusrbinperl + "'"
4034 $! WC "selectminbits='" + perl_selectminbits + "'"
4035 $ WC "crosscompile='" + perl_crosscompile + "'"
4036 $ WC "multiarch='" + perl_multiarch + "'"
4037 $ WC "sched_yield='" + perl_sched_yield + "'"
4038 $ WC "d_strtoull='" + perl_d_strtoull + "'"
4039 $ WC "d_strtouq='" + perl_d_strtouq + "'"
4040 $ WC "d_strtoll='" + perl_d_strtoll + "'"
4041 $ WC "d_strtold='" + perl_d_strtold + "'"
4042 $ WC "usesocks='" + perl_usesocks + "'"
4043 $ WC "d_vendorlib='" + perl_d_vendorlib + "'"
4044 $ WC "vendorlibexp='" + perl_vendorlibexp + "'"
4045 $ WC "d_atolf='" + perl_d_atolf + "'"
4046 $ WC "d_atoll='" + perl_d_atoll + "'"
4047 $ WC "d_bincompat5005='" + perl_d_bincompat + "'"
4048 $ WC "d_endspent='" + perl_d_endspent + "'"
4049 $ WC "d_getspent='" + perl_d_getspent + "'"
4050 $ WC "d_getspnam='" + perl_d_getspnam + "'"
4051 $ WC "d_setspent='" + perl_d_setspent + "'"
4052 $ WC "i_shadow='" + perl_i_shadow + "'"
4053 $ WC "i_socks='" + perl_i_socks + "'"
4054 $ WC "d_PRIfldbl='" + perl_d_PRIfldbl + "'"
4055 $ WC "d_PRIgldbl='" + perl_d_PRIgldbl + "'"
4056 $ WC "d_PRId64='" + perl_d_PRId64 + "'"
4057 $ WC "d_PRIu64='" + perl_d_PRIu64 + "'"
4058 $ WC "d_PRIo64='" + perl_d_PRIo64 + "'"
4059 $ WC "d_PRIx64='" + perl_d_PRIx64 + "'"
4060 $ WC "sPRIfldbl='" + perl_sPRIfldbl + "'"
4061 $ WC "sPRIgldbl='" + perl_sPRIgldbl + "'"
4062 $ WC "sPRId64='" + perl_sPRId64 + "'"
4063 $ WC "sPRIu64='" + perl_sPRIu64 + "'"
4064 $ WC "sPRIo64='" + perl_sPRIo64 + "'"
4065 $ WC "sPRIx64='" + perl_sPRIx64 + "'"
4066 $ WC "d_llseek='" + perl_d_llseek + "'"
4067 $ WC "d_iconv='" + perl_d_iconv +"'"
4068 $ WC "i_iconv='" + perl_i_iconv +"'"
4069 $ WC "inc_version_list_init='""""'"
4070 $ WC "uselargefiles='" + perl_uselargefiles + "'"
4071 $ WC "uselongdouble='" + perl_uselongdouble + "'"
4072 $ WC "usemorebits='" + perl_usemorebits + "'"
4073 $ WC "d_quad='" + perl_d_quad + "'"
4074 $ if (use_64bit .eqs. "Y")
4076 $ WC "quadtype='" + perl_quadtype + "'"
4077 $ WC "uquadtype='" + perl_uquadtype + "'"
4079 $ WC "d_fs_data_s='" + perl_d_fs_data_s + "'"
4080 $ WC "d_getcwd='" + perl_d_getcwd + "'"
4081 $ WC "d_getmnt='" + perl_d_getmnt + "'"
4082 $ WC "d_sqrtl='" + perl_d_sqrtl + "'"
4083 $ WC "d_statfs_f_flags='" + perl_d_statfs_f_flags + "'"
4084 $ WC "d_statfs_s='" + perl_d_statfs_s + "'"
4085 $ WC "d_ustat='" + perl_d_ustat + "'"
4086 $ WC "i_sysstatfs='" + perl_i_sysstatfs + "'"
4087 $ WC "i_sysvfs='" + perl_i_sysvfs + "'"
4088 $ WC "i_ustat='" + perl_i_ustat + "'"
4089 $ WC "ivtype='" + perl_ivtype + "'"
4090 $ WC "uvtype='" + perl_uvtype + "'"
4091 $ WC "i8type='" + perl_i8type + "'"
4092 $ WC "i16type='" + perl_i16type + "'"
4093 $ WC "u8type='" + perl_u8type + "'"
4094 $ WC "u16type='" + perl_u16type + "'"
4095 $ WC "i32type='" + perl_i32type + "'"
4096 $ WC "u32type='" + perl_u32type + "'"
4097 $ WC "i64type='" + perl_i64type + "'"
4098 $ WC "u64type='" + perl_u64type + "'"
4099 $ WC "nvtype='" + perl_nvtype + "'"
4100 $ WC "ivsize='" + perl_ivsize + "'"
4101 $ WC "uvsize='" + perl_uvsize + "'"
4102 $ WC "i8size='" + perl_i8size + "'"
4103 $ WC "u8size='" + perl_u8size + "'"
4104 $ WC "i16size='" + perl_i16size + "'"
4105 $ WC "u16size='" + perl_u16size + "'"
4106 $ WC "i32size='" + perl_i32size + "'"
4107 $ WC "u32size='" + perl_u32size + "'"
4108 $ WC "i64size='" + perl_i64size + "'"
4109 $ WC "u64size='" + perl_u64size + "'"
4110 $ WC "ivdformat='" + perl_ivdformat + "'"
4111 $ WC "uvuformat='" + perl_uvuformat + "'"
4112 $ WC "uvoformat='" + perl_uvoformat + "'"
4113 $ WC "uvxformat='" + perl_uvxformat + "'"
4115 $! ##WRITE NEW CONSTANTS HERE##
4119 $! Okay, we've gotten here. Build munchconfig and run it
4120 $ 'Perl_CC' munchconfig.c
4121 $ If (Needs_Opt.eqs."Yes")
4123 $ open/write OPTCHAN []munchconfig.opt
4124 $ IF ("''using_gnu_c'".eqs."Yes")
4126 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
4128 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
4130 $ link munchconfig.obj,munchconfig.opt/opt
4131 $ delete munchconfig.opt;*
4133 $ link munchconfig.obj
4136 $ echo "Writing config.h"
4138 $ ! we need an fdl file
4139 $ CREATE [-]CONFIG.FDL
4142 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
4143 $ ! First spit out the header info with the local defines (to get
4144 $ ! around the 255 character command line limit)
4145 $ OPEN/APPEND CONFIG [-]config.local
4146 $ if use_debugging_perl.eqs."Y"
4148 $ WRITE CONFIG "#define DEBUGGING"
4150 $ if use_two_pot_malloc.eqs."Y"
4152 $ WRITE CONFIG "#define TWO_POT_OPTIMIZE"
4154 $ if mymalloc.eqs."Y"
4156 $ WRITE CONFIG "#define EMBEDMYMALLOC"
4158 $ if use_pack_malloc.eqs."Y"
4160 $ WRITE CONFIG "#define PACK_MALLOC"
4162 $ if use_debugmalloc.eqs."Y"
4164 $ write config "#define DEBUGGING_MSTATS"
4166 $ if "''Using_Gnu_C'" .eqs."Yes"
4168 $ WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
4170 $ if "''Has_Dec_C_Sockets'".eqs."T"
4172 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
4173 $ WRITE CONFIG "#define DECCRTL_SOCKETS"
4175 $ if "''Has_Socketshr'".eqs."T"
4177 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
4179 $! This is VMS-specific for now
4180 $ WRITE CONFIG "#''perl_d_setenv' HAS_SETENV"
4181 $ if d_alwdeftype.eqs."Y"
4183 $ WRITE CONFIG "#define SECURE_INTERNAL_GETENV"
4185 $ WRITE CONFIG "#undef SECURE_INTERNAL_GETENV"
4187 $ if d_secintgenv.eqs."Y"
4189 $ WRITE CONFIG "#define ALWAYS_DEFTYPES"
4191 $ WRITE CONFIG "#undef ALWAYS_DEFTYPES"
4193 $ if use_64bit.eqs."Y"
4195 $ WRITE CONFIG "#define USE_64_BITS"
4196 $ WRITE CONFIG "#define USE_LONG_DOUBLE"
4198 $ WRITE CONFIG "#define HAS_ENVGETENV"
4199 $ WRITE CONFIG "#define PERL_EXTERNAL_GLOB"
4202 $! Now build the normal config.h
4203 $ define/user sys$output [-]config.main
4204 $ mcr []munchconfig [-]config.sh [-]config_h.sh
4205 $ ! Concatenate them together
4206 $ copy [-]config.local,[-]config.main [-]config.h
4208 $ DELETE/NOLOG [-]CONFIG.MAIN;*
4209 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
4210 $ DELETE/NOLOG [-]CONFIG.FDL;*
4212 $ if "''Using_Dec_C'" .eqs."Yes"
4214 $ DECC_REPLACE = "DECC=decc=1"
4216 $ DECC_REPLACE = "DECC="
4218 $ if "''Using_Gnu_C'" .eqs."Yes"
4220 $ GNUC_REPLACE = "GNUC=gnuc=1"
4222 $ GNUC_REPLACE = "GNUC="
4224 $ if "''Has_Dec_C_Sockets'" .eqs."T"
4226 $ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
4228 $ if "''Has_Socketshr'" .eqs."T"
4230 $ SOCKET_REPLACE = "SOCKET=SOCKETSHR_SOCKETS=1"
4232 $ SOCKET_REPLACE = "SOCKET="
4235 $ IF ("''Use_Threads'".eqs."T")
4237 $ if ("''VMS_VER'".LES."6.2")
4239 $ THREAD_REPLACE = "THREAD=OLDTHREADED=1"
4241 $ THREAD_REPLACE = "THREAD=THREADED=1"
4244 $ THREAD_REPLACE = "THREAD="
4246 $ if mymalloc.eqs."Y"
4248 $ MALLOC_REPLACE = "MALLOC=MALLOC=1"
4250 $ MALLOC_REPLACE = "MALLOC="
4252 $ if f$getsyi("HW_MODEL").ge.1024
4254 $ ARCH_TYPE = "ARCH-TYPE=__AXP__"
4256 $ ARCH_TYPE = "ARCH-TYPE=__VAX__"
4258 $ echo "Writing DESCRIP.MMS"
4260 $ define/user sys$output [-]descrip.mms
4261 $ 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'"
4262 $ echo "Extracting Build_Ext.Com"
4263 $ Create Sys$Disk:[-]Build_Ext.Com
4264 $ Deck/Dollar="$EndOfTpl$"
4266 $! NOTE: This file is extracted as part of the VMS configuration process.
4267 $! Any changes made to it directly will be lost. If you need to make any
4268 $! changes, please edit the template in [.vms]SubConfigure.Com instead.
4269 $ def = F$Environment("Default")
4270 $ exts1 = F$Edit(p1,"Compress")
4271 $ p2 = F$Edit(p2,"Upcase,Compress,Trim")
4272 $ If F$Locate("MCR ",p2).eq.0 Then p2 = F$Extract(3,255,p2)
4273 $ miniperl = "$" + F$Search(F$Parse(p2,".Exe"))
4275 $ if f$type('p3') .nes. "" then makeutil = 'p3'
4276 $ targ = F$Edit(p4,"Lowercase")
4279 $ ext = F$Element(i," ",p1)
4280 $ If ext .eqs. " " Then Goto done
4281 $ Define/User Perl_Env_Tables CLISYM_LOCAL
4283 ($extdir = $ENV{'ext'}) =~ s/::/./g;
4284 if ($extdir =~ /^vms/i) { $extdir =~ s/vms/.vms.ext/i; }
4285 else { $extdir = ".ext.$extdir"; }
4286 ($ENV{'extdir'} = "[$extdir]");
4287 ($ENV{'up'} = ('-') x ($extdir =~ tr/././));
4288 $ Set Default &extdir
4290 $ If F$Locate("clean",targ) .eqs. F$Length(targ)
4292 $ Write Sys$Output "Building ''ext' . . ."
4293 $ On Error Then Goto done
4294 $ If F$Search("Descrip.MMS") .eqs. ""
4298 $ If F$CvTime(F$File("Descrip.MMS","rdt")) .lts. -
4299 F$CvTime(F$File("Makefile.PL","rdt")) Then redesc = 1
4302 $ Write Sys$Output "''targ'ing ''ext' . . ."
4303 $ On Error Then Continue
4306 miniperl "-I[''up'.lib]" Makefile.PL "INST_LIB=[''up'.lib]" "INST_ARCHLIB=[''up'.lib]"
4320 $! Clean up after ourselves
4321 $ delete/nolog munchconfig.exe;*
4322 $ delete/nolog munchconfig.obj;*