1 $! SUBCONFIGURE.COM - build a config.sh for VMS Perl.
3 $! Note for folks from other platforms changing things in here:
4 $! Fancy changes (based on compiler capabilities or VMS version or
5 $! whatever) are tricky, so go ahead and punt on those.
7 $! Simple changes, though (say, always setting something to 1, or undef,
8 $! or something like that) are straightforward. Adding a new item for the
9 $! ultimately created config.sh requires adding two lines to this file.
11 $! First, a line in the format:
13 $! after the line tagged ##ADD NEW CONSTANTS HERE##. Replace foo with the
14 $! variable name as it appears in config.sh.
16 $! Second, add a line in the format:
17 $! $ WC "foo='" + perl_foo + "'"
18 $! after the line tagged ##WRITE NEW CONSTANTS HERE##. Careful of the
19 $! quoting, as it can be tricky.
21 $! This .COM file expects to be called by configure.com, and thus expects
22 $! a few symbols in the environment. Notably:
24 $! One of: Using_Dec_C, Using_Vax_C, Using_Gnu_C set to "YES"
25 $! Dec_C_Version set to the Dec C version (defaults to 0 if not specified)
26 $! Has_Socketshr set to "T" if using socketshr
27 $! Has_Dec_C_Sockets set to "T" if using Dec C sockets
28 $! Use_Threads set to "T" if they're using threads
29 $! C_Compiler_Invoke is the command needed to invoke the C compiler
31 $! Set Dec_C_Version to something
32 $ WRITE_RESULT := "WRITE SYS$OUTPUT ""%CONFIG-I-RESULT "" + "
33 $ echo = "Write Sys$Output "
34 $ Dec_C_Version := "''Dec_C_Version'"
35 $ Dec_C_Version = Dec_C_Version + 0
36 $ Vms_Ver := "''f$extract(1,3, f$getsyi(""version""))'"
37 $ perl_extensions := "''extensions'"
38 $ if f$length(Mcc) .eq. 0 then Mcc := "cc"
39 $ MCC = f$edit(mcc, "UPCASE")
40 $ C_Compiler_Replace := "CC=CC=''Mcc'''CC_flags'"
41 $ if "''Using_Dec_C'" .eqs. "Yes"
43 $ Checkcc := "''Mcc'/prefix=all"
48 $ if use_multiplicity .eqs. "Y"
50 $ perl_usemultiplicity = "define"
52 $ perl_usemultiplicity = "undef"
54 $! Some constant defaults.
56 $ hwname = f$getsyi("HW_NAME")
58 $ if "''myname'" .eqs. "" THEN myname = f$trnlnm("SYS$NODE")
60 $! ##ADD NEW CONSTANTS HERE##
61 $ perl_d_getcwd = "undef"
62 $ perl_d_nv_preserves_uv = "define"
63 $ perl_d_fs_data_s = "undef"
64 $ perl_d_getmnt = "undef"
65 $ perl_d_sqrtl = "define"
66 $ perl_d_statfs_f_flags = "undef"
67 $ perl_d_statfs_s = "undef"
68 $ perl_d_ustat = "undef"
69 $ perl_i_sysstatfs = "undef"
70 $ perl_i_sysvfs = "undef"
71 $ perl_i_ustat = "undef"
72 $ perl_d_llseek="undef"
73 $ perl_d_iconv="undef"
74 $ perl_d_madvise="undef"
75 $ perl_selectminbits=32
76 $ perl_d_msync="undef"
77 $ perl_d_mprotect="undef"
78 $ perl_d_munmap="undef"
79 $ perl_crosscompile="undef"
80 $ perl_multiarch="undef"
82 $ perl_i_sysmman="undef"
83 $ perl_d_telldirproto="define"
84 $ perl_i_sysmount="undef"
85 $ perl_d_bincompat="undef"
86 $ perl_d_endspent="undef
87 $ perl_d_getspent="undef
88 $ perl_d_getspnam="undef
89 $ perl_d_setspent="undef
90 $ perl_d_fstatfs="undef"
91 $ perl_d_getfsstat="undef"
92 $ perl_i_machcthreads="undef"
93 $ perl_i_pthread="define"
94 $ perl_d_fstatvfs="undef"
95 $ perl_usesocks="undef"
96 $ perl_d_vendorlib="undef"
97 $ perl_vendorlibexp=""
98 $ perl_d_statfsflags="undef"
99 $ perl_i_sysstatvfs="undef"
100 $ perl_i_mntent="undef"
101 $ perl_d_getmntent="undef"
102 $ perl_d_hasmntopt="undef"
103 $ perl_package="''package'"
104 $ perl_baserev = "''baserev'"
106 $ perl_installusrbinperl="undef"
108 $ perl_d_fseeko="undef"
109 $ perl_d_ftello="undef"
110 $ perl_d_readv="undef"
111 $ perl_d_writev="undef"
112 $ perl_i_machcthr="undef"
113 $ perl_i_netdb="undef"
114 $ perl_d_gnulibc="undef"
115 $ perl_cf_by="unknown"
119 $ perl_drand01 = "drand48()"
120 $ perl_randseedtype = "long int"
121 $ perl_seedfunc = "srand48"
122 $ perl_d_msg_ctrunc = "undef"
123 $ perl_d_msg_dontroute = "undef"
124 $ perl_d_msg_oob = "undef"
125 $ perl_d_msg_peek = "undef"
126 $ perl_d_msg_proxy = "undef"
127 $ perl_d_scm_rights = "undef"
128 $ perl_d_sendmsg = "undef"
129 $ perl_d_recvmsg = "undef"
130 $ perl_d_msghdr_s = "undef"
131 $ perl_d_cmsghdr_s = "undef"
132 $ IF use_64bit .eqs. "Y"
134 $ perl_use64bits = "define"
135 $ perl_uselargefiles = "define"
136 $ perl_uselongdouble = "define"
137 $ perl_usemorebits = "define"
139 $ perl_use64bits = "undef"
140 $ perl_uselargefiles = "undef"
141 $ perl_uselongdouble = "undef"
142 $ perl_usemorebits = "undef"
144 $ IF use_full64bit .eqs. "Y"
146 $ perl_usefull64bits = "define"
148 $ perl_usefull64bits = "undef"
150 $ perl_d_drand48proto = "define"
151 $ perl_d_lseekproto = "define"
152 $ perl_libpth="/sys$share /sys$library"
154 $ perl_lddlflags="/Share"
160 $ perl_i_arpainet="undef"
161 $ perl_d_grpasswd="undef"
162 $ perl_d_setgrent="undef"
163 $ perl_d_getgrent="define"
164 $ perl_d_endgrent="define"
165 $ perl_d_pwpasswd="define"
166 $ perl_d_setpwent="define"
167 $ perl_d_getpwent="define"
168 $ perl_d_endpwent="define"
169 $ perl_d_phostname="undef"
170 $ perl_d_accessx="undef"
171 $ perl_d_eaccess="undef"
172 $ perl_ebcdic="undef"
174 $ perl_shrplib="define"
175 $ perl_usemymalloc=mymalloc
176 $ perl_usevfork="true"
177 $ perl_useposix="false"
178 $ perl_spitshell="write sys$output "
179 $ perl_dlsrc="dl_vms.c"
182 $ perl_prefix="perl_root"
183 $ perl_binexp="''perl_prefix':[000000]"
184 $ perl_builddir="''perl_prefix':[000000]"
185 $ perl_installbin="''perl_prefix':[000000]"
186 $ perl_installscript="''perl_prefix':[utils]"
187 $ perl_installman1dir="''perl_prefix':[man.man1]"
188 $ perl_installman3dir="''perl_prefix':[man.man3]"
189 $ perl_installprivlib="''perl_prefix':[lib]"
190 $ perl_installsitelib="''perl_prefix':[lib.site_perl]"
193 $ perl_d_sockpair="undef"
194 $ perl_i_neterrno="define"
195 $ perl_ldflags="/NoTrace/NoMap"
196 $ perl_d_lchown="undef"
197 $ perl_d_mknod="undef"
198 $ perl_d_union_semun="undef"
199 $ perl_d_semctl_semun="undef"
200 $ perl_d_semctl_semid_ds="undef"
201 $ IF (sharedperl.EQS."Y" .AND. F$GETSYI("HW_MODEL").GE.1024)
203 $ perl_obj_ext=".abj"
206 $ perl_exe_ext=".axe"
207 $ perl_lib_ext=".alb"
209 $ perl_obj_ext=".obj"
212 $ perl_exe_ext=".exe"
213 $ perl_lib_ext=".olb"
215 $ perl_dlobj="dl_vms''perl_obj_ext'"
217 $ perl_d_archlib="define"
218 $ perl_d_bincompat3="undef"
219 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
221 $ perl_d_castneg="define"
223 $ perl_d_chsize="undef"
224 $ perl_d_const="define"
225 $ perl_d_crypt="define"
226 $ perl_byteorder="1234"
229 $ perl_d_dup2="define"
230 $ perl_d_fchmod="undef"
231 $ perl_d_fchown="undef"
232 $ perl_d_fcntl="undef"
233 $ perl_d_fgetpos="define"
234 $ perl_d_flexfnam="define"
235 $ perl_d_flock="undef"
236 $ perl_d_fsetpos="define"
237 $ perl_d_getgrps="undef"
238 $ perl_d_setgrps="undef"
239 $ perl_d_getprior="undef"
240 $ perl_d_killpg="undef"
241 $ perl_d_link="undef"
242 $ perl_d_lstat="undef"
243 $ perl_d_lockf="undef"
244 $ perl_d_memcmp="define"
245 $ perl_d_memcpy="define"
246 $ perl_d_memmove="define"
247 $ perl_d_memset="define"
248 $ perl_d_mkdir="define"
250 $ perl_d_open3="define"
251 $ perl_d_poll="undef"
252 $ perl_d_readdir="define"
253 $ perl_d_seekdir="define"
254 $ perl_d_telldir="define"
255 $ perl_d_rewinddir="define"
256 $ perl_d_rename="define"
257 $ perl_d_rmdir="define"
259 $ perl_d_setegid="undef"
260 $ perl_d_seteuid="undef"
261 $ perl_d_setprior="undef"
262 $ perl_d_setregid="undef"
263 $ perl_d_setresgid="undef"
264 $ perl_d_setreuid="undef"
265 $ perl_d_setresuid="undef"
266 $ perl_d_setrgid="undef"
267 $ perl_d_setruid="undef"
268 $ perl_d_setsid="undef"
270 $ perl_d_shmatprototype="undef"
271 $ perl_d_statblks="undef"
272 $ perl_stdio_ptr="((*fp)->_ptr)"
273 $ perl_stdio_cnt="((*fp)->_cnt)"
274 $ perl_stdio_base="((*fp)->_base)"
275 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
276 $ perl_d_strctcpy="define"
277 $ perl_d_strerror="define"
278 $ perl_d_syserrlst="undef"
279 $ perl_d_strerrm="strerror((e),vaxc$errno)"
280 $ perl_d_symlink="undef"
281 $ perl_d_syscall="undef"
282 $ perl_d_system="define"
283 $ perl_timetype="time_t"
284 $ perl_d_vfork="define"
285 $ perl_signal_t="void"
286 $ perl_d_volatile="define"
287 $ perl_d_vprintf="define"
288 $ perl_d_charvspr="undef"
289 $ perl_d_waitpid="define"
290 $ perl_i_dirent="undef"
291 $ perl_d_dirnamlen="define"
292 $ perl_direntrytype="struct dirent"
293 $ perl_i_fcntl="undef"
295 $ perl_i_limits="define"
296 $ perl_i_memory="undef"
297 $ perl_i_ndbm="undef"
298 $ perl_i_stdarg="define"
300 $ perl_d_pwquota="undef"
301 $ perl_d_pwage="undef"
302 $ perl_d_pwchange="undef"
303 $ perl_d_pwclass="undef"
304 $ perl_d_pwexpire="undef"
305 $ perl_d_pwcomment="define"
306 $ perl_i_stddef="define"
307 $ perl_i_stdlib="define"
308 $ perl_i_string="define"
309 $ perl_i_sysdir="undef"
310 $ perl_i_sysfile="undef"
311 $ perl_i_sysioctl="undef"
312 $ perl_i_sysndir="undef"
313 $ perl_i_sysresrc="undef"
314 $ perl_i_sysselct="undef"
316 $ perl_i_rpcsvcdbm="undef"
317 $ perl_i_sfio="undef"
318 $ perl_i_sysstat="define"
319 $ perl_i_systimes="undef"
320 $ perl_i_systypes="define"
321 $ perl_i_sysun="undef"
322 $ perl_i_syswait="undef"
323 $ perl_i_termio="undef"
324 $ perl_i_sgtty="undef"
325 $ perl_i_termios="undef"
326 $ perl_i_time="define"
327 $ perl_i_systime="undef"
328 $ perl_i_systimek="undef"
329 $! perl_i_unistd="undef"
330 $ perl_i_utime="undef"
331 $ perl_i_varargs="undef"
332 $ perl_i_vfork="undef"
333 $ perl_prototype="define"
335 $ perl_stdchar="char"
336 $ perl_d_unlink_all_versions="undef"
337 $ perl_full_sed="_NLA0:"
338 $ perl_bin="/''perl_prefix'/000000"
339 $ perl_binexp="''perl_prefix':[000000]"
340 $ perl_d_alarm="define"
341 $ perl_d_casti32="define"
342 $ perl_d_chown="define"
343 $ perl_d_chroot="undef"
344 $ perl_d_cuserid="define"
345 $ perl_d_dbl_dig="define"
346 $ perl_d_ldbl_dig="define"
347 $ perl_d_difftime="define"
348 $ perl_d_fork="undef"
349 $ perl_d_getlogin="define"
350 $ perl_d_getppid="undef"
351 $ perl_d_nice="define"
352 $ perl_d_pause="define"
353 $ perl_d_pipe="define"
354 $ perl_d_readlink="undef"
355 $ perl_d_setlinebuf="undef"
356 $ perl_d_strchr="define"
357 $ perl_d_strtod="define"
358 $ perl_d_strtol="define"
359 $ perl_d_strtoul="define"
360 $ perl_d_tcgetpgrp="undef"
361 $ perl_d_tcsetpgrp="undef"
362 $ perl_d_times="define"
363 $ perl_d_tzname="undef"
364 $ perl_d_umask="define"
365 $ perl_fpostype="fpos_t"
366 $ perl_i_dlfcn="undef"
367 $ perl_i_float="define"
368 $ perl_i_math="define"
369 $ perl_lseektype="int"
370 $ perl_i_values="undef"
371 $ perl_malloctype="void *"
372 $ perl_freetype="void"
373 $ if "''mymalloc'".eqs."Y"
375 $ perl_d_mymalloc="define"
377 $ perl_d_mymalloc="undef"
380 $ perl_modetype="unsigned int"
381 $ perl_ssizetype="int"
382 $ perl_o_nonblock=" "
385 $ perl_d_eofnblk="undef"
386 $ perl_d_oldarchlib="define"
387 $ perl_privlibexp="''perl_prefix':[lib]"
388 $ perl_privlib="''perl_prefix':[lib]"
389 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
390 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
391 $ perl_sizetype="size_t"
392 $ perl_i_sysparam="undef"
393 $ perl_d_void_closedir="define"
394 $ perl_d_dlerror="undef"
395 $ perl_d_dlsymun="undef"
396 $ perl_d_suidsafe="undef"
397 $ perl_d_dosuid="undef"
398 $ perl_d_inetaton="undef"
399 $ perl_d_isascii="define"
400 $ perl_d_mkfifo="undef"
401 $ perl_d_safebcpy="undef"
402 $ perl_d_safemcpy="define"
403 $ perl_d_sanemcmp="define"
404 $ perl_d_setpgrp="undef"
405 $ perl_d_bsdsetpgrp="undef"
406 $ perl_d_bsdpgrp="undef"
407 $ perl_d_setpgid="undef"
408 $ perl_d_setpgrp2="undef"
409 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
410 $ perl_d_getpgid="undef"
411 $ perl_d_getpgrp="undef"
412 $ perl_d_bsdgetpgrp="undef"
413 $ perl_d_getpgrp2="undef"
414 $ perl_d_sfio="undef"
415 $ perl_usedl="define"
416 $ perl_startperl="""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ + ++$status != 0 and $exit = $status = undef;"""
417 $ perl_db_hashtype=" "
418 $ perl_db_prefixtype=" "
419 $ perl_useperlio="undef"
420 $ perl_defvoidused="15"
421 $ perl_voidflags="15"
422 $ perl_d_eunice="undef"
423 $ perl_d_pwgecos="define"
424 $ IF ("''Use_Threads'".eqs."T").and.("''VMS_VER'".LES."6.2")
426 $ 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"
430 $ IF ("''Using_Dec_C'".eqs."Yes")
432 $ perl_libc="(DECCRTL)"
436 $ perl_PATCHLEVEL="''patchlevel'"
437 $ perl_SUBVERSION="''subversion'"
442 $ if (use_64bit .eqs. "Y")
444 $ perl_d_PRIfldbl = "define"
445 $ perl_d_PRIgldbl = "define"
446 $ perl_d_PRId64 = "define"
447 $ perl_d_PRIu64 = "define"
448 $ perl_d_PRIo64 = "define"
449 $ perl_d_PRIx64 = "define"
450 $ perl_sPRIfldbl = """Lf"""
451 $ perl_sPRIgldbl = """Lg"""
452 $ perl_sPRId64 = """Ld"""
453 $ perl_sPRIu64 = """Lu"""
454 $ perl_sPRIo64 = """Lo"""
455 $ perl_sPRIx64 = """Lx"""
456 $ perl_d_quad = "define"
457 $ perl_quadtype = "long long"
458 $ perl_uquadtype = "unsigned long long"
460 $ perl_d_PRIfldbl = "undef"
461 $ perl_d_PRIgldbl = "undef"
462 $ perl_d_PRId64 = "undef"
463 $ perl_d_PRIu64 = "undef"
464 $ perl_d_PRIo64 = "undef"
465 $ perl_d_PRIx64 = "undef"
466 $ perl_sPRIfldbl = ""
467 $ perl_sPRIgldbl = ""
472 $ perl_d_quad = "undef"
475 $! Now some that we build up
477 $ LocalTime = f$time()
478 $ perl_cf_time= f$extract(0, 3, f$cvtime(LocalTime,, "WEEKDAY")) + " " + -
479 f$edit(f$cvtime(LocalTime, "ABSOLUTE", "MONTH"), "LOWERCASE") + -
480 " " + f$cvtime(LocalTime,, "DAY") + " " + f$cvtime(LocalTime,, "TIME") + -
481 " " + f$cvtime(LocalTime,, "YEAR")
482 $ if f$getsyi("HW_MODEL").ge.1024
484 $ perl_arch="VMS_AXP"
485 $ perl_archname="VMS_AXP"
486 $ perl_alignbytes="8"
488 $ perl_arch="VMS_VAX"
489 $ perl_archname="VMS_VAX"
490 $ perl_alignbytes="8"
492 $ if ("''Use_Threads'".eqs."T")
494 $ perl_arch = "''perl_arch'-thread"
495 $ perl_archname = "''perl_archname'-thread"
496 $ perl_d_old_pthread_create_joinable = "undef"
497 $ perl_old_pthread_create_joinable = " "
498 $ perl_use5005threads = "define"
500 $ perl_d_old_pthread_create_joinable = "undef"
501 $ perl_old_pthread_create_joinable = " "
502 $ perl_use5005threads = "undef"
504 $ perl_useithreads = "undef"
505 $ perl_osvers=f$edit(osvers, "TRIM")
506 $ if (perl_subversion + 0).eq.0
508 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL
510 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion
513 $! Some that we need to invoke the compiler for
514 $ OS := "open/write SOURCECHAN []temp.c"
515 $ WS := "write SOURCECHAN"
516 $ CS := "close SOURCECHAN"
517 $ DS := "delete/nolog []temp.*;*"
519 $ if ("''using_vax_c'".eqs."Yes").or.("''using_gnu_c'".eqs."Yes")
521 $ open/write OPTCHAN []temp.opt
522 $ IF ("''using_gnu_c'".eqs."Yes")
524 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
526 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
531 $! Check for __STDC__
535 $ WS "#include <stdlib.h>
537 $ WS "#include <stdio.h>
540 $ WS "#ifdef __STDC__
541 $ WS "printf(""42\n"");
543 $ WS "printf(""1\n"");
548 $ DEFINE SYS$ERROR _NLA0:
549 $ DEFINE SYS$OUTPUT _NLA0:
550 $ ON ERROR THEN CONTINUE
551 $ ON WARNING THEN CONTINUE
553 $ If (Needs_Opt.eqs."Yes")
555 $ link temp.obj,temp.opt/opt
559 $ DEASSIGN SYS$OUTPUT
561 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
562 $ DEFINE SYS$ERROR TEMPOUT
563 $ DEFINE SYS$OUTPUT TEMPOUT
566 $ DEASSIGN SYS$OUTPUT
568 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
571 $ DELETE/NOLOG [-.uu]tempout.lis;
573 $ perl_cpp_stuff=line
574 $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
576 $! Check for double size
580 $ WS "#include <stdlib.h>
582 $ WS "#include <stdio.h>
586 $ WS "foo = sizeof(double);
587 $ WS "printf(""%d\n"", foo);
591 $ DEFINE SYS$ERROR _NLA0:
592 $ DEFINE SYS$OUTPUT _NLA0:
593 $ ON ERROR THEN CONTINUE
594 $ ON WARNING THEN CONTINUE
596 $ If (Needs_Opt.eqs."Yes")
598 $ link temp.obj,temp.opt/opt
602 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
603 $ DEASSIGN SYS$OUTPUT
605 $ DEFINE SYS$ERROR TEMPOUT
606 $ DEFINE SYS$OUTPUT TEMPOUT
609 $ DEASSIGN SYS$OUTPUT
611 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
614 $ DELETE/NOLOG [-.uu]tempout.lis;
616 $ perl_doublesize=line
617 $ WRITE_RESULT "doublesize is ''perl_doublesize'"
619 $! Check for long double size
623 $ WS "#include <stdlib.h>
625 $ WS "#include <stdio.h>
628 $ WS "printf(""%d\n"", sizeof(long double));
632 $ DEFINE SYS$ERROR _NLA0:
633 $ DEFINE SYS$OUTPUT _NLA0:
634 $ ON ERROR THEN CONTINUE
635 $ ON WARNING THEN CONTINUE
637 $ teststatus = f$extract(9,1,$status)
638 $ if (teststatus.nes."1")
640 $ perl_longdblsize="0"
641 $ perl_d_longdbl="undef"
643 $ ON ERROR THEN CONTINUE
644 $ ON WARNING THEN CONTINUE
645 $ If (Needs_Opt.eqs."Yes")
647 $ link temp.obj,temp.opt/opt
651 $ teststatus = f$extract(9,1,$status)
652 $ DEASSIGN SYS$OUTPUT
654 $ if (teststatus.nes."1")
656 $ perl_longdblsize="0"
657 $ perl_d_longdbl="undef"
659 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
660 $ DEFINE SYS$ERROR TEMPOUT
661 $ DEFINE SYS$OUTPUT TEMPOUT
664 $ DEASSIGN SYS$OUTPUT
666 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
669 $ DELETE/NOLOG [-.uu]tempout.lis;
671 $ perl_longdblsize=line
672 $ perl_d_longdbl="define"
675 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
676 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
678 $! Check for long long existance and size
682 $ WS "#include <stdlib.h>
684 $ WS "#include <stdio.h>
687 $ WS "printf(""%d\n"", sizeof(long long));
691 $ DEFINE SYS$ERROR _NLA0:
692 $ DEFINE SYS$OUTPUT _NLA0:
693 $ on error then continue
694 $ on warning then continue
696 $ If (Needs_Opt.eqs."Yes")
698 $ link temp.obj,temp.opt/opt
702 $ teststatus = f$extract(9,1,$status)
703 $ DEASSIGN SYS$OUTPUT
705 $ if (teststatus.nes."1")
707 $ perl_longlongsize="0"
708 $ perl_d_longlong="undef"
710 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
711 $ DEFINE SYS$ERROR TEMPOUT
712 $ DEFINE SYS$OUTPUT TEMPOUT
715 $ DEASSIGN SYS$OUTPUT
717 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
720 $ DELETE/NOLOG [-.uu]tempout.lis;
721 $ perl_longlongsize=line
722 $ perl_d_longlong="define"
724 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
725 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
727 $! Check the prototype for getgid
731 $ WS "#include <stdlib.h>
733 $ WS "#include <stdio.h>
734 $ WS "#include <types.h>
735 $ WS "#include <unistd.h>
742 $ DEFINE SYS$ERROR _NLA0:
743 $ DEFINE SYS$OUTPUT _NLA0:
744 $ on error then continue
745 $ on warning then continue
747 $ teststatus = f$extract(9,1,$status)
748 $ DEASSIGN SYS$OUTPUT
750 $ if (teststatus.nes."1")
752 $! Okay, gid_t failed. Must be unsigned int
753 $ perl_gidtype = "unsigned int"
755 $ perl_gidtype = "gid_t"
757 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
759 $! Check to see if we've got dev_t
763 $ WS "#include <stdlib.h>
765 $ WS "#include <stdio.h>
766 $ WS "#include <types.h>
767 $ WS "#include <unistd.h>
774 $ DEFINE SYS$ERROR _NLA0:
775 $ DEFINE SYS$OUTPUT _NLA0:
776 $ on error then continue
777 $ on warning then continue
779 $ teststatus = f$extract(9,1,$status)
780 $ DEASSIGN SYS$OUTPUT
782 $ if (teststatus.nes."1")
784 $! Okay, dev_t failed. Must be unsigned int
785 $ perl_devtype = "unsigned int"
787 $ perl_devtype = "dev_t"
789 $ WRITE_RESULT "Dev_t is ''perl_devtype'"
791 $! Check to see if we've got unistd.h (which we ought to, but you never know)
795 $ WS "#include <stdlib.h>
797 $ WS "#include <unistd.h>
803 $ DEFINE SYS$ERROR _NLA0:
804 $ DEFINE SYS$OUTPUT _NLA0:
805 $ on error then continue
806 $ on warning then continue
808 $ teststatus = f$extract(9,1,$status)
809 $ DEASSIGN SYS$OUTPUT
811 $ if (teststatus.nes."1")
813 $! Okay, failed. Must not have it
814 $ perl_i_unistd = "undef"
816 $ perl_i_unistd = "define"
819 $ WRITE_RESULT "i_unistd is ''perl_i_unistd'"
821 $! Check to see if we've got shadow.h (probably not, but...)
825 $ WS "#include <stdlib.h>
827 $ WS "#include <shadow.h>
833 $ DEFINE SYS$ERROR _NLA0:
834 $ DEFINE SYS$OUTPUT _NLA0:
835 $ on error then continue
836 $ on warning then continue
838 $ teststatus = f$extract(9,1,$status)
839 $ DEASSIGN SYS$OUTPUT
841 $ if (teststatus.nes."1")
843 $! Okay, failed. Must not have it
844 $ perl_i_shadow = "undef"
846 $ perl_i_shadow = "define"
849 $ WRITE_RESULT "i_shadow is ''perl_i_shadow'"
851 $! Check to see if we've got socks.h (probably not, but...)
855 $ WS "#include <stdlib.h>
857 $ WS "#include <socks.h>
863 $ DEFINE SYS$ERROR _NLA0:
864 $ DEFINE SYS$OUTPUT _NLA0:
865 $ on error then continue
866 $ on warning then continue
868 $ teststatus = f$extract(9,1,$status)
869 $ DEASSIGN SYS$OUTPUT
871 $ if (teststatus.nes."1")
873 $! Okay, failed. Must not have it
874 $ perl_i_socks = "undef"
876 $ perl_i_socks = "define"
879 $ WRITE_RESULT "i_socks is ''perl_i_socks'"
881 $! Check the prototype for select
883 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
887 $ WS "#include <stdlib.h>
889 $ WS "#include <stdio.h>
890 $ WS "#include <types.h>
891 $ WS "#include <unistd.h>
892 $ if ("''Has_Socketshr'".eqs."T")
894 $ WS "#include <socketshr.h>"
896 $ WS "#include <time.h>
897 $ WS "#include <socket.h>
904 $ WS "bar = select(2, foo, foo, foo, NULL);
908 $ DEFINE SYS$ERROR _NLA0:
909 $ DEFINE SYS$OUTPUT _NLA0:
910 $ on error then continue
911 $ on warning then continue
913 $ teststatus = f$extract(9,1,$status)
914 $ DEASSIGN SYS$OUTPUT
916 $ if (teststatus.nes."1")
918 $! Okay, fd_set failed. Must be an int
919 $ perl_selecttype = "int *"
921 $ perl_selecttype="fd_set *"
924 $ ! No sockets, so stick in an int *
925 $ perl_selecttype = "int *"
927 $ WRITE_RESULT "selectype is ''perl_selecttype'"
929 $! Check to see if fd_set exists
933 $ WS "#include <stdlib.h>
935 $ WS "#include <stdio.h>
936 $ WS "#include <types.h>
937 $ WS "#include <unistd.h>
938 $ if ("''Has_Socketshr'".eqs."T")
940 $ WS "#include <socketshr.h>"
942 $ IF ("''Has_Dec_C_Sockets'".eqs."T")
944 $ WS "#include <time.h>
945 $ WS "#include <socket.h>
954 $ DEFINE SYS$ERROR _NLA0:
955 $ DEFINE SYS$OUTPUT _NLA0:
956 $ on error then continue
957 $ on warning then continue
959 $ teststatus = f$extract(9,1,$status)
960 $ DEASSIGN SYS$OUTPUT
962 $ if (teststatus.nes."1")
964 $! Okay, fd_set failed. Must not exist
965 $ perl_d_fd_set = "undef"
967 $ perl_d_fd_set="define"
969 $ WRITE_RESULT "d_fd_set is ''perl_d_fd_set'"
971 $! Check for inttypes.h
975 $ WS "#include <stdlib.h>
977 $ WS "#include <stdio.h>
978 $ WS "#include <unistd.h>
979 $ WS "#include <inttypes.h>
985 $ DEFINE SYS$ERROR _NLA0:
986 $ DEFINE SYS$OUTPUT _NLA0:
987 $ on error then continue
988 $ on warning then continue
990 $ savedstatus = $status
991 $ teststatus = f$extract(9,1,savedstatus)
992 $ if (teststatus.nes."1")
994 $ perl_i_inttypes="undef"
995 $ DEASSIGN SYS$OUTPUT
998 $ If (Needs_Opt.eqs."Yes")
1000 $ link temp.obj,temp.opt/opt
1004 $ savedstatus = $status
1005 $ teststatus = f$extract(9,1,savedstatus)
1006 $ DEASSIGN SYS$OUTPUT
1007 $ DEASSIGN SYS$ERROR
1008 $ if (teststatus.nes."1")
1010 $ perl_i_inttypes="undef"
1012 $ perl_i_inttypes="define"
1015 $ WRITE_RESULT "i_inttypes is ''perl_i_inttypes'"
1017 $! Check to see if int64_t exists
1021 $ WS "#include <stdlib.h>
1023 $ WS "#include <stdio.h>
1024 $ WS "#include <types.h>
1025 $ WS "#''perl_i_inttypes IIH
1027 $ WS "#include <inttypes.h>
1029 $ WS "#include <unistd.h>
1036 $ DEFINE SYS$ERROR _NLA0:
1037 $ DEFINE SYS$OUTPUT _NLA0:
1038 $ on error then continue
1039 $ on warning then continue
1041 $ teststatus = f$extract(9,1,$status)
1042 $ DEASSIGN SYS$OUTPUT
1043 $ DEASSIGN SYS$ERROR
1044 $ if (teststatus.nes."1")
1046 $! Okay, int64_t failed. Must not exist
1047 $ perl_d_int64_t = "undef"
1049 $ perl_d_int64_t="define"
1051 $ WRITE_RESULT "d_int64_t is ''perl_d_int64_t'"
1053 $! Check to see if off64_t exists
1057 $ WS "#include <stdlib.h>
1059 $ WS "#include <stdio.h>
1060 $ WS "#include <types.h>
1061 $ WS "#''perl_i_inttypes IIH
1063 $ WS "#include <inttypes.h>
1065 $ WS "#include <unistd.h>
1072 $ DEFINE SYS$ERROR _NLA0:
1073 $ DEFINE SYS$OUTPUT _NLA0:
1074 $ on error then continue
1075 $ on warning then continue
1077 $ teststatus = f$extract(9,1,$status)
1078 $ DEASSIGN SYS$OUTPUT
1079 $ DEASSIGN SYS$ERROR
1080 $ if (teststatus.nes."1")
1082 $! Okay, off64_t failed. Must not exist
1083 $ perl_d_off64_t = "undef"
1085 $ perl_d_off64_t="define"
1087 $ WRITE_RESULT "d_off64_t is ''perl_d_off64_t'"
1089 $! Check to see if fpos64_t exists
1093 $ WS "#include <stdlib.h>
1095 $ WS "#include <stdio.h>
1096 $ WS "#include <types.h>
1097 $ WS "#''perl_i_inttypes IIH
1099 $ WS "#include <inttypes.h>
1101 $ WS "#include <unistd.h>
1108 $ DEFINE SYS$ERROR _NLA0:
1109 $ DEFINE SYS$OUTPUT _NLA0:
1110 $ on error then continue
1111 $ on warning then continue
1113 $ teststatus = f$extract(9,1,$status)
1114 $ DEASSIGN SYS$OUTPUT
1115 $ DEASSIGN SYS$ERROR
1116 $ if (teststatus.nes."1")
1118 $! Okay, fpos64_t failed. Must not exist
1119 $ perl_d_fpos64_t = "undef"
1121 $ perl_d_fpos64_t="define"
1123 $ WRITE_RESULT "d_fpos64_t is ''perl_d_fpos64_t'"
1125 $! Check to see if gethostname exists
1127 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1131 $ WS "#include <stdlib.h>
1133 $ WS "#include <stdio.h>
1134 $ WS "#include <types.h>
1135 $ WS "#include <unistd.h>
1136 $ if ("''Has_Socketshr'".eqs."T")
1138 $ WS "#include <socketshr.h>"
1140 $ WS "#include <time.h>
1141 $ WS "#include <socket.h>
1145 $ WS "char name[100];
1148 $ WS "baz = gethostname(name, bar);
1152 $ DEFINE SYS$ERROR _NLA0:
1153 $ DEFINE SYS$OUTPUT _NLA0:
1154 $ on error then continue
1155 $ on warning then continue
1157 $ teststatus = f$extract(9,1,$status)
1158 $ DEASSIGN SYS$OUTPUT
1159 $ DEASSIGN SYS$ERROR
1160 $ if (teststatus.nes."1")
1162 $! Okay, compile failed. Must not have it
1163 $ perl_dgethname = "undef"
1165 $ If (Needs_Opt.eqs."Yes")
1167 $ link temp.obj,temp.opt/opt
1171 $ savedstatus = $status
1172 $ teststatus = f$extract(9,1,savedstatus)
1173 $ if (teststatus.nes."1")
1175 $ perl_d_gethname="undef"
1177 $ perl_d_gethname="define"
1181 $ ! No sockets, so no gethname
1182 $ perl_d_gethname = "undef"
1184 $ WRITE_RESULT "d_gethname is ''perl_d_gethname'"
1186 $! Check for sys/file.h
1190 $ WS "#include <stdlib.h>
1192 $ WS "#include <stdio.h>
1193 $ WS "#include <unistd.h>
1194 $ WS "#include <sys/file.h>
1200 $ DEFINE SYS$ERROR _NLA0:
1201 $ DEFINE SYS$OUTPUT _NLA0:
1202 $ on error then continue
1203 $ on warning then continue
1205 $ savedstatus = $status
1206 $ teststatus = f$extract(9,1,savedstatus)
1207 $ if (teststatus.nes."1")
1209 $ perl_i_sysfile="undef"
1210 $ DEASSIGN SYS$OUTPUT
1211 $ DEASSIGN SYS$ERROR
1213 $ If (Needs_Opt.eqs."Yes")
1215 $ link temp.obj,temp.opt/opt
1219 $ savedstatus = $status
1220 $ teststatus = f$extract(9,1,savedstatus)
1221 $ DEASSIGN SYS$OUTPUT
1222 $ DEASSIGN SYS$ERROR
1223 $ if (teststatus.nes."1")
1225 $ perl_i_sysfile="undef"
1227 $ perl_i_sysfile="define"
1230 $ WRITE_RESULT "i_sysfile is ''perl_i_sysfile'"
1232 $! Check for sys/utsname.h
1236 $ WS "#include <stdlib.h>
1238 $ WS "#include <stdio.h>
1239 $ WS "#include <unistd.h>
1240 $ WS "#include <sys/utsname.h>
1246 $ DEFINE SYS$ERROR _NLA0:
1247 $ DEFINE SYS$OUTPUT _NLA0:
1248 $ on error then continue
1249 $ on warning then continue
1251 $ savedstatus = $status
1252 $ teststatus = f$extract(9,1,savedstatus)
1253 $ if (teststatus.nes."1")
1255 $ perl_i_sysutsname="undef"
1256 $ DEASSIGN SYS$OUTPUT
1257 $ DEASSIGN SYS$ERROR
1259 $ If (Needs_Opt.eqs."Yes")
1261 $ link temp.obj,temp.opt/opt
1265 $ savedstatus = $status
1266 $ teststatus = f$extract(9,1,savedstatus)
1267 $ DEASSIGN SYS$OUTPUT
1268 $ DEASSIGN SYS$ERROR
1269 $ if (teststatus.nes."1")
1271 $ perl_i_sysutsname="undef"
1273 $ perl_i_sysutsname="define"
1276 $ WRITE_RESULT "i_sysutsname is ''perl_i_sysutsname'"
1278 $! Check for syslog.h
1282 $ WS "#include <stdlib.h>
1284 $ WS "#include <stdio.h>
1285 $ WS "#include <unistd.h>
1286 $ WS "#include <syslog.h>
1292 $ DEFINE SYS$ERROR _NLA0:
1293 $ DEFINE SYS$OUTPUT _NLA0:
1294 $ on error then continue
1295 $ on warning then continue
1297 $ savedstatus = $status
1298 $ teststatus = f$extract(9,1,savedstatus)
1299 $ if (teststatus.nes."1")
1301 $ perl_i_syslog="undef"
1302 $ DEASSIGN SYS$OUTPUT
1303 $ DEASSIGN SYS$ERROR
1305 $ If (Needs_Opt.eqs."Yes")
1307 $ link temp.obj,temp.opt/opt
1311 $ savedstatus = $status
1312 $ teststatus = f$extract(9,1,savedstatus)
1313 $ DEASSIGN SYS$OUTPUT
1314 $ DEASSIGN SYS$ERROR
1315 $ if (teststatus.nes."1")
1317 $ perl_i_syslog="undef"
1319 $ perl_i_syslog="define"
1322 $ WRITE_RESULT "i_syslog is ''perl_i_syslog'"
1328 $ WS "#include <stdlib.h>
1330 $ WS "#include <stdio.h>
1331 $ WS "#include <unistd.h>
1332 $ WS "#include <poll.h>
1338 $ DEFINE SYS$ERROR _NLA0:
1339 $ DEFINE SYS$OUTPUT _NLA0:
1340 $ on error then continue
1341 $ on warning then continue
1343 $ savedstatus = $status
1344 $ teststatus = f$extract(9,1,savedstatus)
1345 $ if (teststatus.nes."1")
1347 $ perl_i_poll="undef"
1348 $ DEASSIGN SYS$OUTPUT
1349 $ DEASSIGN SYS$ERROR
1351 $ If (Needs_Opt.eqs."Yes")
1353 $ link temp.obj,temp.opt/opt
1357 $ savedstatus = $status
1358 $ teststatus = f$extract(9,1,savedstatus)
1359 $ DEASSIGN SYS$OUTPUT
1360 $ DEASSIGN SYS$ERROR
1361 $ if (teststatus.nes."1")
1363 $ perl_i_poll="undef"
1365 $ perl_i_poll="define"
1368 $ WRITE_RESULT "i_poll is ''perl_i_poll'"
1370 $! Check for sys/uio.h
1374 $ WS "#include <stdlib.h>
1376 $ WS "#include <stdio.h>
1377 $ WS "#include <unistd.h>
1378 $ WS "#include <sys/uio.h>
1384 $ DEFINE SYS$ERROR _NLA0:
1385 $ DEFINE SYS$OUTPUT _NLA0:
1386 $ on error then continue
1387 $ on warning then continue
1389 $ savedstatus = $status
1390 $ teststatus = f$extract(9,1,savedstatus)
1391 $ if (teststatus.nes."1")
1393 $ perl_i_sysuio="undef"
1394 $ DEASSIGN SYS$OUTPUT
1395 $ DEASSIGN SYS$ERROR
1397 $ If (Needs_Opt.eqs."Yes")
1399 $ link temp.obj,temp.opt/opt
1403 $ savedstatus = $status
1404 $ teststatus = f$extract(9,1,savedstatus)
1405 $ DEASSIGN SYS$OUTPUT
1406 $ DEASSIGN SYS$ERROR
1407 $ if (teststatus.nes."1")
1409 $ perl_i_sysuio="undef"
1411 $ perl_i_sysuio="define"
1414 $ WRITE_RESULT "i_sysuio is ''perl_i_sysuio'"
1416 $! Check for sys/mode.h
1420 $ WS "#include <stdlib.h>
1422 $ WS "#include <stdio.h>
1423 $ WS "#include <unistd.h>
1424 $ WS "#include <sys/mode.h>
1430 $ DEFINE SYS$ERROR _NLA0:
1431 $ DEFINE SYS$OUTPUT _NLA0:
1432 $ on error then continue
1433 $ on warning then continue
1435 $ savedstatus = $status
1436 $ teststatus = f$extract(9,1,savedstatus)
1437 $ if (teststatus.nes."1")
1439 $ perl_i_sysmode="undef"
1440 $ DEASSIGN SYS$OUTPUT
1441 $ DEASSIGN SYS$ERROR
1443 $ If (Needs_Opt.eqs."Yes")
1445 $ link temp.obj,temp.opt/opt
1449 $ savedstatus = $status
1450 $ teststatus = f$extract(9,1,savedstatus)
1451 $ DEASSIGN SYS$OUTPUT
1452 $ DEASSIGN SYS$ERROR
1453 $ if (teststatus.nes."1")
1455 $ perl_i_sysmode="undef"
1457 $ perl_i_sysmode="define"
1460 $ WRITE_RESULT "i_sysmode is ''perl_i_sysmode'"
1462 $! Check for sys/access.h
1466 $ WS "#include <stdlib.h>
1468 $ WS "#include <stdio.h>
1469 $ WS "#include <unistd.h>
1470 $ WS "#include <sys/access.h>
1476 $ DEFINE SYS$ERROR _NLA0:
1477 $ DEFINE SYS$OUTPUT _NLA0:
1478 $ on error then continue
1479 $ on warning then continue
1481 $ savedstatus = $status
1482 $ teststatus = f$extract(9,1,savedstatus)
1483 $ if (teststatus.nes."1")
1485 $ perl_i_sysaccess="undef"
1486 $ DEASSIGN SYS$OUTPUT
1487 $ DEASSIGN SYS$ERROR
1489 $ If (Needs_Opt.eqs."Yes")
1491 $ link temp.obj,temp.opt/opt
1495 $ savedstatus = $status
1496 $ teststatus = f$extract(9,1,savedstatus)
1497 $ DEASSIGN SYS$OUTPUT
1498 $ DEASSIGN SYS$ERROR
1499 $ if (teststatus.nes."1")
1501 $ perl_i_sysaccess="undef"
1503 $ perl_i_sysaccess="define"
1506 $ WRITE_RESULT "i_sysaccess is ''perl_i_sysaccess'"
1508 $! Check for sys/security.h
1512 $ WS "#include <stdlib.h>
1514 $ WS "#include <stdio.h>
1515 $ WS "#include <unistd.h>
1516 $ WS "#include <sys/security.h>
1522 $ DEFINE SYS$ERROR _NLA0:
1523 $ DEFINE SYS$OUTPUT _NLA0:
1524 $ on error then continue
1525 $ on warning then continue
1527 $ savedstatus = $status
1528 $ teststatus = f$extract(9,1,savedstatus)
1529 $ if (teststatus.nes."1")
1531 $ perl_i_syssecrt="undef"
1532 $ DEASSIGN SYS$OUTPUT
1533 $ DEASSIGN SYS$ERROR
1535 $ If (Needs_Opt.eqs."Yes")
1537 $ link temp.obj,temp.opt/opt
1541 $ savedstatus = $status
1542 $ teststatus = f$extract(9,1,savedstatus)
1543 $ DEASSIGN SYS$OUTPUT
1544 $ DEASSIGN SYS$ERROR
1545 $ if (teststatus.nes."1")
1547 $ perl_i_syssecrt="undef"
1549 $ perl_i_syssecrt="define"
1552 $ WRITE_RESULT "i_syssecrt is ''perl_i_syssecrt'"
1554 $! Check for fcntl.h
1558 $ WS "#include <stdlib.h>
1560 $ WS "#include <stdio.h>
1561 $ WS "#include <unistd.h>
1562 $ WS "#include <fcntl.h>
1568 $ DEFINE SYS$ERROR _NLA0:
1569 $ DEFINE SYS$OUTPUT _NLA0:
1570 $ on error then continue
1571 $ on warning then continue
1573 $ savedstatus = $status
1574 $ teststatus = f$extract(9,1,savedstatus)
1575 $ if (teststatus.nes."1")
1577 $ perl_i_fcntl="undef"
1578 $ DEASSIGN SYS$OUTPUT
1579 $ DEASSIGN SYS$ERROR
1581 $ If (Needs_Opt.eqs."Yes")
1583 $ link temp.obj,temp.opt/opt
1587 $ savedstatus = $status
1588 $ teststatus = f$extract(9,1,savedstatus)
1589 $ DEASSIGN SYS$OUTPUT
1590 $ DEASSIGN SYS$ERROR
1591 $ if (teststatus.nes."1")
1593 $ perl_i_fcntl="undef"
1595 $ perl_i_fcntl="define"
1598 $ WRITE_RESULT "i_fcntl is ''perl_i_fcntl'"
1604 $ WS "#include <stdlib.h>
1606 $ WS "#include <stdio.h>
1607 $ WS "#include <unistd.h>
1608 $ WS "#include <fcntl.h>
1615 $ DEFINE SYS$ERROR _NLA0:
1616 $ DEFINE SYS$OUTPUT _NLA0:
1617 $ on error then continue
1618 $ on warning then continue
1620 $ savedstatus = $status
1621 $ teststatus = f$extract(9,1,savedstatus)
1622 $ if (teststatus.nes."1")
1624 $ perl_d_fcntl="undef"
1625 $ DEASSIGN SYS$OUTPUT
1626 $ DEASSIGN SYS$ERROR
1628 $ If (Needs_Opt.eqs."Yes")
1630 $ link temp.obj,temp.opt/opt
1634 $ savedstatus = $status
1635 $ teststatus = f$extract(9,1,savedstatus)
1636 $ DEASSIGN SYS$OUTPUT
1637 $ DEASSIGN SYS$ERROR
1638 $ if (teststatus.nes."1")
1640 $ perl_d_fcntl="undef"
1642 $ perl_d_fcntl="define"
1645 $ WRITE_RESULT "d_fcntl is ''perl_d_fcntl'"
1651 $ WS "#include <stdlib.h>
1653 $ WS "#include <string.h>
1657 $ WS "place = memchr(""foo"", 47, 3)
1661 $ DEFINE SYS$ERROR _NLA0:
1662 $ DEFINE SYS$OUTPUT _NLA0:
1663 $ on error then continue
1664 $ on warning then continue
1666 $ savedstatus = $status
1667 $ teststatus = f$extract(9,1,savedstatus)
1668 $ if (teststatus.nes."1")
1670 $ perl_d_memchr="undef"
1671 $ DEASSIGN SYS$OUTPUT
1672 $ DEASSIGN SYS$ERROR
1674 $ If (Needs_Opt.eqs."Yes")
1676 $ link temp.obj,temp.opt/opt
1680 $ savedstatus = $status
1681 $ teststatus = f$extract(9,1,savedstatus)
1682 $ DEASSIGN SYS$OUTPUT
1683 $ DEASSIGN SYS$ERROR
1684 $ if (teststatus.nes."1")
1686 $ perl_d_memchr="undef"
1688 $ perl_d_memchr="define"
1691 $ WRITE_RESULT "d_memchr is ''perl_d_memchr'"
1693 $! Check for strtoull
1697 $ WS "#include <stdlib.h>
1699 $ WS "#include <string.h>
1702 $ WS "unsigned __int64 result;
1703 $ WS "result = strtoull(""123123"", NULL, 10);
1707 $ DEFINE SYS$ERROR _NLA0:
1708 $ DEFINE SYS$OUTPUT _NLA0:
1709 $ on error then continue
1710 $ on warning then continue
1712 $ savedstatus = $status
1713 $ teststatus = f$extract(9,1,savedstatus)
1714 $ if (teststatus.nes."1")
1716 $ perl_d_strtoull="undef"
1717 $ DEASSIGN SYS$OUTPUT
1718 $ DEASSIGN SYS$ERROR
1720 $ If (Needs_Opt.eqs."Yes")
1722 $ link temp.obj,temp.opt/opt
1726 $ savedstatus = $status
1727 $ teststatus = f$extract(9,1,savedstatus)
1728 $ DEASSIGN SYS$OUTPUT
1729 $ DEASSIGN SYS$ERROR
1730 $ if (teststatus.nes."1")
1732 $ perl_d_strtoull="undef"
1734 $ perl_d_strtoull="define"
1737 $ WRITE_RESULT "d_strtoull is ''perl_d_strtoull'"
1739 $! Check for strtouq
1743 $ WS "#include <stdlib.h>
1745 $ WS "#include <string.h>
1748 $ WS "unsigned __int64 result;
1749 $ WS "result = strtouq(""123123"", NULL, 10);
1753 $ DEFINE SYS$ERROR _NLA0:
1754 $ DEFINE SYS$OUTPUT _NLA0:
1755 $ on error then continue
1756 $ on warning then continue
1758 $ savedstatus = $status
1759 $ teststatus = f$extract(9,1,savedstatus)
1760 $ if (teststatus.nes."1")
1762 $ perl_d_strtouq="undef"
1763 $ DEASSIGN SYS$OUTPUT
1764 $ DEASSIGN SYS$ERROR
1766 $ If (Needs_Opt.eqs."Yes")
1768 $ link temp.obj,temp.opt/opt
1772 $ savedstatus = $status
1773 $ teststatus = f$extract(9,1,savedstatus)
1774 $ DEASSIGN SYS$OUTPUT
1775 $ DEASSIGN SYS$ERROR
1776 $ if (teststatus.nes."1")
1778 $ perl_d_strtouq="undef"
1780 $ perl_d_strtouq="define"
1783 $ WRITE_RESULT "d_strtouq is ''perl_d_strtouq'"
1785 $! Check for strtoll
1789 $ WS "#include <stdlib.h>
1791 $ WS "#include <string.h>
1794 $ WS "__int64 result;
1795 $ WS "result = strtoll(""123123"", NULL, 10);
1799 $ DEFINE SYS$ERROR _NLA0:
1800 $ DEFINE SYS$OUTPUT _NLA0:
1801 $ on error then continue
1802 $ on warning then continue
1804 $ savedstatus = $status
1805 $ teststatus = f$extract(9,1,savedstatus)
1806 $ if (teststatus.nes."1")
1808 $ perl_d_strtoll="undef"
1809 $ DEASSIGN SYS$OUTPUT
1810 $ DEASSIGN SYS$ERROR
1812 $ If (Needs_Opt.eqs."Yes")
1814 $ link temp.obj,temp.opt/opt
1818 $ savedstatus = $status
1819 $ teststatus = f$extract(9,1,savedstatus)
1820 $ DEASSIGN SYS$OUTPUT
1821 $ DEASSIGN SYS$ERROR
1822 $ if (teststatus.nes."1")
1824 $ perl_d_strtoll="undef"
1826 $ perl_d_strtoll="define"
1829 $ WRITE_RESULT "d_strtoll is ''perl_d_strtoll'"
1831 $! Check for strtold
1835 $ WS "#include <stdlib.h>
1837 $ WS "#include <string.h>
1840 $ WS "long double result;
1841 $ WS "result = strtold(""123123"", NULL, 10);
1845 $ DEFINE SYS$ERROR _NLA0:
1846 $ DEFINE SYS$OUTPUT _NLA0:
1847 $ on error then continue
1848 $ on warning then continue
1850 $ savedstatus = $status
1851 $ teststatus = f$extract(9,1,savedstatus)
1852 $ if (teststatus.nes."1")
1854 $ perl_d_strtold="undef"
1855 $ DEASSIGN SYS$OUTPUT
1856 $ DEASSIGN SYS$ERROR
1858 $ If (Needs_Opt.eqs."Yes")
1860 $ link temp.obj,temp.opt/opt
1864 $ savedstatus = $status
1865 $ teststatus = f$extract(9,1,savedstatus)
1866 $ DEASSIGN SYS$OUTPUT
1867 $ DEASSIGN SYS$ERROR
1868 $ if (teststatus.nes."1")
1870 $ perl_d_strtold="undef"
1872 $ perl_d_strtold="define"
1875 $ WRITE_RESULT "d_strtold is ''perl_d_strtold'"
1881 $ WS "#include <stdlib.h>
1883 $ WS "#include <string.h>
1886 $ WS " __int64 result;
1887 $ WS "result = atoll(""123123"");
1891 $ DEFINE SYS$ERROR _NLA0:
1892 $ DEFINE SYS$OUTPUT _NLA0:
1893 $ on error then continue
1894 $ on warning then continue
1896 $ savedstatus = $status
1897 $ teststatus = f$extract(9,1,savedstatus)
1898 $ if (teststatus.nes."1")
1900 $ perl_d_atoll="undef"
1901 $ DEASSIGN SYS$OUTPUT
1902 $ DEASSIGN SYS$ERROR
1904 $ If (Needs_Opt.eqs."Yes")
1906 $ link temp.obj,temp.opt/opt
1910 $ savedstatus = $status
1911 $ teststatus = f$extract(9,1,savedstatus)
1912 $ DEASSIGN SYS$OUTPUT
1913 $ DEASSIGN SYS$ERROR
1914 $ if (teststatus.nes."1")
1916 $ perl_d_atoll="undef"
1918 $ perl_d_atoll="define"
1921 $ WRITE_RESULT "d_atoll is ''perl_d_atoll'"
1927 $ WS "#include <stdlib.h>
1929 $ WS "#include <string.h>
1933 $ WS "result = atolf(""123123"");
1937 $ DEFINE SYS$ERROR _NLA0:
1938 $ DEFINE SYS$OUTPUT _NLA0:
1939 $ on error then continue
1940 $ on warning then continue
1942 $ savedstatus = $status
1943 $ teststatus = f$extract(9,1,savedstatus)
1944 $ if (teststatus.nes."1")
1946 $ perl_d_atolf="undef"
1947 $ DEASSIGN SYS$OUTPUT
1948 $ DEASSIGN SYS$ERROR
1950 $ If (Needs_Opt.eqs."Yes")
1952 $ link temp.obj,temp.opt/opt
1956 $ savedstatus = $status
1957 $ teststatus = f$extract(9,1,savedstatus)
1958 $ DEASSIGN SYS$OUTPUT
1959 $ DEASSIGN SYS$ERROR
1960 $ if (teststatus.nes."1")
1962 $ perl_d_atolf="undef"
1964 $ perl_d_atolf="define"
1967 $ WRITE_RESULT "d_atolf is ''perl_d_atolf'"
1973 $ WS "#include <stdlib.h>
1975 $ WS "#include <stdio.h>
1976 $ WS "#include <unistd.h>
1979 $ WS "access("foo", F_OK);
1983 $ DEFINE SYS$ERROR _NLA0:
1984 $ DEFINE SYS$OUTPUT _NLA0:
1985 $ on error then continue
1986 $ on warning then continue
1988 $ savedstatus = $status
1989 $ teststatus = f$extract(9,1,savedstatus)
1990 $ if (teststatus.nes."1")
1992 $ perl_d_access="undef"
1993 $ DEASSIGN SYS$OUTPUT
1994 $ DEASSIGN SYS$ERROR
1996 $ If (Needs_Opt.eqs."Yes")
1998 $ link temp.obj,temp.opt/opt
2002 $ savedstatus = $status
2003 $ teststatus = f$extract(9,1,savedstatus)
2004 $ DEASSIGN SYS$OUTPUT
2005 $ DEASSIGN SYS$ERROR
2006 $ if (teststatus.nes."1")
2008 $ perl_d_access="undef"
2010 $ perl_d_access="define"
2013 $ WRITE_RESULT "d_access is ''perl_d_access'"
2019 $ WS "#include <stdlib.h>
2021 $ WS "#include <stdio.h>
2022 $ WS "#include <strings.h>
2026 $ WS "bzero(foo, 10);
2030 $ DEFINE SYS$ERROR _NLA0:
2031 $ DEFINE SYS$OUTPUT _NLA0:
2032 $ on error then continue
2033 $ on warning then continue
2035 $ savedstatus = $status
2036 $ teststatus = f$extract(9,1,savedstatus)
2037 $ if (teststatus.nes."1")
2039 $ perl_d_bzero="undef"
2040 $ DEASSIGN SYS$OUTPUT
2041 $ DEASSIGN SYS$ERROR
2043 $ If (Needs_Opt.eqs."Yes")
2045 $ link temp.obj,temp.opt/opt
2049 $ savedstatus = $status
2050 $ teststatus = f$extract(9,1,savedstatus)
2051 $ DEASSIGN SYS$OUTPUT
2052 $ DEASSIGN SYS$ERROR
2053 $ if (teststatus.nes."1")
2055 $ perl_d_bzero="undef"
2057 $ perl_d_bzero="define"
2060 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
2066 $ WS "#include <stdlib.h>
2068 $ WS "#include <stdio.h>
2069 $ WS "#include <strings.h>
2072 $ WS "char foo[10], bar[10];
2073 $ WS "bcopy(""foo"", bar, 3);
2077 $ DEFINE SYS$ERROR _NLA0:
2078 $ DEFINE SYS$OUTPUT _NLA0:
2079 $ on error then continue
2080 $ on warning then continue
2082 $ savedstatus = $status
2083 $ teststatus = f$extract(9,1,savedstatus)
2084 $ if (teststatus.nes."1")
2086 $ perl_d_bcopy="undef"
2087 $ DEASSIGN SYS$OUTPUT
2088 $ DEASSIGN SYS$ERROR
2090 $ If (Needs_Opt.eqs."Yes")
2092 $ link temp.obj,temp.opt/opt
2096 $ savedstatus = $status
2097 $ teststatus = f$extract(9,1,savedstatus)
2098 $ DEASSIGN SYS$OUTPUT
2099 $ DEASSIGN SYS$ERROR
2100 $ if (teststatus.nes."1")
2102 $ perl_d_bcopy="undef"
2104 $ perl_d_bcopy="define"
2107 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
2109 $! Check for mkstemp
2113 $ WS "#include <stdlib.h>
2115 $ WS "#include <stdio.h>
2118 $ WS "mkstemp(""foo"");
2122 $ DEFINE SYS$ERROR _NLA0:
2123 $ DEFINE SYS$OUTPUT _NLA0:
2124 $ on error then continue
2125 $ on warning then continue
2127 $ If (Needs_Opt.eqs."Yes")
2129 $ link temp.obj,temp.opt/opt
2133 $ savedstatus = $status
2134 $ teststatus = f$extract(9,1,savedstatus)
2135 $ DEASSIGN SYS$OUTPUT
2136 $ DEASSIGN SYS$ERROR
2137 $ if (teststatus.nes."1")
2139 $ perl_d_mkstemp="undef"
2141 $ perl_d_mkstemp="define"
2143 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
2145 $! Check for mkstemps
2149 $ WS "#include <stdlib.h>
2151 $ WS "#include <stdio.h>
2154 $ WS "mkstemps(""foo"", 1);
2158 $ DEFINE SYS$ERROR _NLA0:
2159 $ DEFINE SYS$OUTPUT _NLA0:
2160 $ on error then continue
2161 $ on warning then continue
2163 $ If (Needs_Opt.eqs."Yes")
2165 $ link temp.obj,temp.opt/opt
2169 $ savedstatus = $status
2170 $ teststatus = f$extract(9,1,savedstatus)
2171 $ DEASSIGN SYS$OUTPUT
2172 $ DEASSIGN SYS$ERROR
2173 $ if (teststatus.nes."1")
2175 $ perl_d_mkstemps="undef"
2177 $ perl_d_mkstemps="define"
2179 $ WRITE_RESULT "d_mkstemps is ''perl_d_mkstemps'"
2185 $ WS "#include <stdlib.h>
2187 $ WS "#include <stdio.h>
2188 $ WS "#include <iconv.h>
2192 $ WS " char *inbuf, *outbuf;"
2193 $ WS " size_t inleft, outleft;"
2194 $ WS " iconv(cd, &inbuf, &inleft, &outbuf, &outleft);"
2198 $ DEFINE SYS$ERROR _NLA0:
2199 $ DEFINE SYS$OUTPUT _NLA0:
2200 $ on error then continue
2201 $ on warning then continue
2203 $ savedstatus = $status
2204 $ teststatus = f$extract(9,1,savedstatus)
2205 $ if (teststatus.nes."1")
2207 $ perl_d_iconv="undef"
2208 $ perl_i_iconv="undef"
2209 $ DEASSIGN SYS$OUTPUT
2210 $ DEASSIGN SYS$ERROR
2212 $ If (Needs_Opt.eqs."Yes")
2214 $ link temp.obj,temp.opt/opt
2218 $ savedstatus = $status
2219 $ teststatus = f$extract(9,1,savedstatus)
2220 $ DEASSIGN SYS$OUTPUT
2221 $ DEASSIGN SYS$ERROR
2222 $ if (teststatus.nes."1")
2224 $ perl_d_iconv="undef"
2225 $ perl_i_iconv="undef"
2227 $ perl_d_iconv="define"
2228 $ perl_i_iconv="define"
2231 $ WRITE_RESULT "d_iconv is ''perl_d_iconv'"
2232 $ WRITE_RESULT "i_iconv is ''perl_i_iconv'"
2234 $! Check for mkdtemp
2238 $ WS "#include <stdlib.h>
2240 $ WS "#include <stdio.h>
2243 $ WS "mkdtemp(""foo"");
2247 $ DEFINE SYS$ERROR _NLA0:
2248 $ DEFINE SYS$OUTPUT _NLA0:
2249 $ on error then continue
2250 $ on warning then continue
2252 $ If (Needs_Opt.eqs."Yes")
2254 $ link temp.obj,temp.opt/opt
2258 $ savedstatus = $status
2259 $ teststatus = f$extract(9,1,savedstatus)
2260 $ DEASSIGN SYS$OUTPUT
2261 $ DEASSIGN SYS$ERROR
2262 $ if (teststatus.nes."1")
2264 $ perl_d_mkdtemp="undef"
2266 $ perl_d_mkdtemp="define"
2268 $ WRITE_RESULT "d_mkdtemp is ''perl_d_mkdtemp'"
2270 $! Check for setvbuf
2274 $ WS "#include <stdlib.h>
2276 $ WS "#include <stdio.h>
2280 $ WS "char Buffer[99];
2281 $ WS "foo = fopen(""foo"", ""r"");
2282 $ WS "setvbuf(foo, Buffer, 0, 0);
2286 $ DEFINE SYS$ERROR _NLA0:
2287 $ DEFINE SYS$OUTPUT _NLA0:
2288 $ on error then continue
2289 $ on warning then continue
2291 $ If (Needs_Opt.eqs."Yes")
2293 $ link temp.obj,temp.opt/opt
2297 $ teststatus = f$extract(9,1,$status)
2298 $ DEASSIGN SYS$OUTPUT
2299 $ DEASSIGN SYS$ERROR
2300 $ if (teststatus.nes."1")
2302 $ perl_d_setvbuf="undef"
2304 $ perl_d_setvbuf="define"
2306 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
2312 $ WS "#include <stdlib.h>
2314 $ WS "#include <stdio.h>
2317 $ WS "setenv(""FOO"", ""BAR"", 0);
2321 $ DEFINE SYS$ERROR _NLA0:
2322 $ DEFINE SYS$OUTPUT _NLA0:
2323 $ on error then continue
2324 $ on warning then continue
2326 $ If (Needs_Opt.eqs."Yes")
2328 $ link temp,temp/opt
2332 $ teststatus = f$extract(9,1,$status)
2333 $ DEASSIGN SYS$OUTPUT
2334 $ DEASSIGN SYS$ERROR
2335 $ if (teststatus.nes."1")
2337 $ perl_d_setenv="undef"
2339 $ perl_d_setenv="define"
2341 $ WRITE_RESULT "d_setenv is ''perl_d_setenv'"
2343 $! Check for <netinet/in.h>
2345 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2349 $ WS "#include <stdlib.h>
2351 $ WS "#include <stdio.h>
2352 $ if ("''Has_Socketshr'".eqs."T")
2354 $ WS "#include <socketshr.h>"
2356 $ WS "#include <netdb.h>
2358 $ WS "#include <netinet/in.h>"
2364 $ DEFINE SYS$ERROR _NLA0:
2365 $ DEFINE SYS$OUTPUT _NLA0:
2366 $ on error then continue
2367 $ on warning then continue
2369 $ If (Needs_Opt.eqs."Yes")
2371 $ link temp.obj,temp.opt/opt
2375 $ teststatus = f$extract(9,1,$status)
2376 $ DEASSIGN SYS$OUTPUT
2377 $ DEASSIGN SYS$ERROR
2378 $ if (teststatus.nes."1")
2380 $ perl_i_niin="undef"
2382 $ perl_i_niin="define"
2385 $ perl_i_niin="undef"
2387 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
2389 $! Check for <netinet/tcp.h>
2391 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2395 $ WS "#include <stdlib.h>
2397 $ WS "#include <stdio.h>
2398 $ if ("''Has_Socketshr'".eqs."T")
2400 $ WS "#include <socketshr.h>"
2402 $ WS "#include <netdb.h>
2404 $ WS "#include <netinet/tcp.h>"
2410 $ DEFINE SYS$ERROR _NLA0:
2411 $ DEFINE SYS$OUTPUT _NLA0:
2412 $ on error then continue
2413 $ on warning then continue
2415 $ If (Needs_Opt.eqs."Yes")
2417 $ link temp.obj,temp.opt/opt
2421 $ teststatus = f$extract(9,1,$status)
2422 $ DEASSIGN SYS$OUTPUT
2423 $ DEASSIGN SYS$ERROR
2424 $ if (teststatus.nes."1")
2426 $ perl_i_netinettcp="undef"
2428 $ perl_i_netinettcp="define"
2431 $ perl_i_netinettcp="undef"
2433 $ WRITE_RESULT "i_netinettcp is ''perl_i_netinettcp'"
2435 $! Check for endhostent
2437 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2441 $ WS "#include <stdlib.h>
2443 $ WS "#include <stdio.h>
2444 $ if ("''Has_Socketshr'".eqs."T")
2446 $ WS "#include <socketshr.h>"
2448 $ WS "#include <netdb.h>
2456 $ DEFINE SYS$ERROR _NLA0:
2457 $ DEFINE SYS$OUTPUT _NLA0:
2458 $ on error then continue
2459 $ on warning then continue
2461 $ If (Needs_Opt.eqs."Yes")
2463 $ link temp.obj,temp.opt/opt
2467 $ teststatus = f$extract(9,1,$status)
2468 $ DEASSIGN SYS$OUTPUT
2469 $ DEASSIGN SYS$ERROR
2470 $ if (teststatus.nes."1")
2472 $ perl_d_endhent="undef"
2474 $ perl_d_endhent="define"
2477 $ perl_d_endhent="undef"
2479 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
2481 $! Check for endnetent
2483 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2487 $ WS "#include <stdlib.h>
2489 $ WS "#include <stdio.h>
2490 $ if ("''Has_Socketshr'".eqs."T")
2492 $ WS "#include <socketshr.h>"
2494 $ WS "#include <netdb.h>
2502 $ DEFINE SYS$ERROR _NLA0:
2503 $ DEFINE SYS$OUTPUT _NLA0:
2504 $ on error then continue
2505 $ on warning then continue
2507 $ If (Needs_Opt.eqs."Yes")
2509 $ link temp.obj,temp.opt/opt
2513 $ teststatus = f$extract(9,1,$status)
2514 $ DEASSIGN SYS$OUTPUT
2515 $ DEASSIGN SYS$ERROR
2516 $ if (teststatus.nes."1")
2518 $ perl_d_endnent="undef"
2520 $ perl_d_endnent="define"
2523 $ perl_d_endnent="undef"
2525 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
2527 $! Check for endprotoent
2529 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2533 $ WS "#include <stdlib.h>
2535 $ WS "#include <stdio.h>
2536 $ if ("''Has_Socketshr'".eqs."T")
2538 $ WS "#include <socketshr.h>"
2540 $ WS "#include <netdb.h>
2544 $ WS "endprotoent();
2548 $ DEFINE SYS$ERROR _NLA0:
2549 $ DEFINE SYS$OUTPUT _NLA0:
2550 $ on error then continue
2551 $ on warning then continue
2553 $ If (Needs_Opt.eqs."Yes")
2555 $ link temp.obj,temp.opt/opt
2559 $ teststatus = f$extract(9,1,$status)
2560 $ DEASSIGN SYS$OUTPUT
2561 $ DEASSIGN SYS$ERROR
2562 $ if (teststatus.nes."1")
2564 $ perl_d_endpent="undef"
2566 $ perl_d_endpent="define"
2569 $ perl_d_endpent="undef"
2571 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
2573 $! Check for endservent
2575 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2579 $ WS "#include <stdlib.h>
2581 $ WS "#include <stdio.h>
2582 $ if ("''Has_Socketshr'".eqs."T")
2584 $ WS "#include <socketshr.h>"
2586 $ WS "#include <netdb.h>
2594 $ DEFINE SYS$ERROR _NLA0:
2595 $ DEFINE SYS$OUTPUT _NLA0:
2596 $ on error then continue
2597 $ on warning then continue
2599 $ If (Needs_Opt.eqs."Yes")
2601 $ link temp.obj,temp.opt/opt
2605 $ teststatus = f$extract(9,1,$status)
2606 $ DEASSIGN SYS$OUTPUT
2607 $ DEASSIGN SYS$ERROR
2608 $ if (teststatus.nes."1")
2610 $ perl_d_endsent="undef"
2612 $ perl_d_endsent="define"
2615 $ perl_d_endsent="undef"
2617 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
2619 $! Check for sethostent
2621 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2625 $ WS "#include <stdlib.h>
2627 $ WS "#include <stdio.h>
2628 $ if ("''Has_Socketshr'".eqs."T")
2630 $ WS "#include <socketshr.h>"
2632 $ WS "#include <netdb.h>
2636 $ WS "sethostent(1);
2640 $ DEFINE SYS$ERROR _NLA0:
2641 $ DEFINE SYS$OUTPUT _NLA0:
2642 $ on error then continue
2643 $ on warning then continue
2645 $ If (Needs_Opt.eqs."Yes")
2647 $ link temp.obj,temp.opt/opt
2651 $ teststatus = f$extract(9,1,$status)
2652 $ DEASSIGN SYS$OUTPUT
2653 $ DEASSIGN SYS$ERROR
2654 $ if (teststatus.nes."1")
2656 $ perl_d_sethent="undef"
2658 $ perl_d_sethent="define"
2661 $ perl_d_sethent="undef"
2663 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
2665 $! Check for setnetent
2667 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2671 $ WS "#include <stdlib.h>
2673 $ WS "#include <stdio.h>
2674 $ if ("''Has_Socketshr'".eqs."T")
2676 $ WS "#include <socketshr.h>"
2678 $ WS "#include <netdb.h>
2686 $ DEFINE SYS$ERROR _NLA0:
2687 $ DEFINE SYS$OUTPUT _NLA0:
2688 $ on error then continue
2689 $ on warning then continue
2691 $ If (Needs_Opt.eqs."Yes")
2693 $ link temp.obj,temp.opt/opt
2697 $ teststatus = f$extract(9,1,$status)
2698 $ DEASSIGN SYS$OUTPUT
2699 $ DEASSIGN SYS$ERROR
2700 $ if (teststatus.nes."1")
2702 $ perl_d_setnent="undef"
2704 $ perl_d_setnent="define"
2707 $ perl_d_setnent="undef"
2709 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
2711 $! Check for setprotoent
2713 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2717 $ WS "#include <stdlib.h>
2719 $ WS "#include <stdio.h>
2720 $ if ("''Has_Socketshr'".eqs."T")
2722 $ WS "#include <socketshr.h>"
2724 $ WS "#include <netdb.h>
2728 $ WS "setprotoent(1);
2732 $ DEFINE SYS$ERROR _NLA0:
2733 $ DEFINE SYS$OUTPUT _NLA0:
2734 $ on error then continue
2735 $ on warning then continue
2737 $ If (Needs_Opt.eqs."Yes")
2739 $ link temp.obj,temp.opt/opt
2743 $ teststatus = f$extract(9,1,$status)
2744 $ DEASSIGN SYS$OUTPUT
2745 $ DEASSIGN SYS$ERROR
2746 $ if (teststatus.nes."1")
2748 $ perl_d_setpent="undef"
2750 $ perl_d_setpent="define"
2753 $ perl_d_setpent="undef"
2755 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
2757 $! Check for setservent
2759 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2763 $ WS "#include <stdlib.h>
2765 $ WS "#include <stdio.h>
2766 $ if ("''Has_Socketshr'".eqs."T")
2768 $ WS "#include <socketshr.h>"
2770 $ WS "#include <netdb.h>
2774 $ WS "setservent(1);
2778 $ DEFINE SYS$ERROR _NLA0:
2779 $ DEFINE SYS$OUTPUT _NLA0:
2780 $ on error then continue
2781 $ on warning then continue
2783 $ If (Needs_Opt.eqs."Yes")
2785 $ link temp.obj,temp.opt/opt
2789 $ teststatus = f$extract(9,1,$status)
2790 $ DEASSIGN SYS$OUTPUT
2791 $ DEASSIGN SYS$ERROR
2792 $ if (teststatus.nes."1")
2794 $ perl_d_setsent="undef"
2796 $ perl_d_setsent="define"
2799 $ perl_d_setsent="undef"
2801 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
2803 $! Check for gethostent
2805 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2809 $ WS "#include <stdlib.h>
2811 $ WS "#include <stdio.h>
2812 $ if ("''Has_Socketshr'".eqs."T")
2814 $ WS "#include <socketshr.h>"
2816 $ WS "#include <netdb.h>
2824 $ DEFINE SYS$ERROR _NLA0:
2825 $ DEFINE SYS$OUTPUT _NLA0:
2826 $ on error then continue
2827 $ on warning then continue
2829 $ If (Needs_Opt.eqs."Yes")
2831 $ link temp.obj,temp.opt/opt
2835 $ teststatus = f$extract(9,1,$status)
2836 $ DEASSIGN SYS$OUTPUT
2837 $ DEASSIGN SYS$ERROR
2838 $ if (teststatus.nes."1")
2840 $ perl_d_gethent="undef"
2842 $ perl_d_gethent="define"
2845 $ perl_d_gethent="undef"
2847 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
2849 $! Check for getnetent
2851 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2855 $ WS "#include <stdlib.h>
2857 $ WS "#include <stdio.h>
2858 $ if ("''Has_Socketshr'".eqs."T")
2860 $ WS "#include <socketshr.h>"
2862 $ WS "#include <netdb.h>
2870 $ DEFINE SYS$ERROR _NLA0:
2871 $ DEFINE SYS$OUTPUT _NLA0:
2872 $ on error then continue
2873 $ on warning then continue
2875 $ If (Needs_Opt.eqs."Yes")
2877 $ link temp.obj,temp.opt/opt
2881 $ teststatus = f$extract(9,1,$status)
2882 $ DEASSIGN SYS$OUTPUT
2883 $ DEASSIGN SYS$ERROR
2884 $ if (teststatus.nes."1")
2886 $ perl_d_getnent="undef"
2888 $ perl_d_getnent="define"
2891 $ perl_d_getnent="undef"
2893 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
2895 $! Check for getprotoent
2897 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2901 $ WS "#include <stdlib.h>
2903 $ WS "#include <stdio.h>
2904 $ if ("''Has_Socketshr'".eqs."T")
2906 $ WS "#include <socketshr.h>"
2908 $ WS "#include <netdb.h>
2912 $ WS "getprotoent();
2916 $ DEFINE SYS$ERROR _NLA0:
2917 $ DEFINE SYS$OUTPUT _NLA0:
2918 $ on error then continue
2919 $ on warning then continue
2921 $ If (Needs_Opt.eqs."Yes")
2923 $ link temp.obj,temp.opt/opt
2927 $ teststatus = f$extract(9,1,$status)
2928 $ DEASSIGN SYS$OUTPUT
2929 $ DEASSIGN SYS$ERROR
2930 $ if (teststatus.nes."1")
2932 $ perl_d_getpent="undef"
2934 $ perl_d_getpent="define"
2937 $ perl_d_getpent="undef"
2939 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
2941 $! Check for getservent
2943 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2947 $ WS "#include <stdlib.h>
2949 $ WS "#include <stdio.h>
2950 $ if ("''Has_Socketshr'".eqs."T")
2952 $ WS "#include <socketshr.h>"
2954 $ WS "#include <netdb.h>
2962 $ DEFINE SYS$ERROR _NLA0:
2963 $ DEFINE SYS$OUTPUT _NLA0:
2964 $ on error then continue
2965 $ on warning then continue
2967 $ If (Needs_Opt.eqs."Yes")
2969 $ link temp.obj,temp.opt/opt
2973 $ teststatus = f$extract(9,1,$status)
2974 $ DEASSIGN SYS$OUTPUT
2975 $ DEASSIGN SYS$ERROR
2976 $ if (teststatus.nes."1")
2978 $ perl_d_getsent="undef"
2980 $ perl_d_getsent="define"
2983 $ perl_d_getsent="undef"
2985 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
2987 $! Check for socklen_t
2989 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2993 $ WS "#include <stdlib.h>
2995 $ WS "#include <stdio.h>
2996 $ IF ("''Has_Socketshr'".eqs."T")
2998 $ WS "#include <socketshr.h>"
3000 $ WS "#include <netdb.h>
3004 $ WS "socklen_t x = 16;
3008 $ DEFINE SYS$ERROR _NLA0:
3009 $ DEFINE SYS$OUTPUT _NLA0:
3010 $ on error then continue
3011 $ on warning then continue
3013 $ If (Needs_Opt.eqs."Yes")
3015 $ link temp.obj,temp.opt/opt
3019 $ teststatus = f$extract(9,1,$status)
3020 $ DEASSIGN SYS$OUTPUT
3021 $ DEASSIGN SYS$ERROR
3022 $ if (teststatus.nes."1")
3024 $ perl_d_socklen_t="undef"
3026 $ perl_d_socklen_t="define"
3029 $ perl_d_socklen_t="undef"
3031 $ WRITE_RESULT "d_socklen_t is ''perl_d_socklen_t'"
3033 $! Check for pthread_yield
3035 $ if ("''use_threads'".eqs."T")
3039 $ WS "#include <stdlib.h>
3041 $ WS "#include <pthread.h>
3042 $ WS "#include <stdio.h>
3045 $ WS "pthread_yield();
3049 $ DEFINE SYS$ERROR _NLA0:
3050 $ DEFINE SYS$OUTPUT _NLA0:
3051 $ on error then continue
3052 $ on warning then continue
3054 $ teststatus = f$extract(9,1,$status)
3055 $ DEASSIGN SYS$OUTPUT
3056 $ DEASSIGN SYS$ERROR
3057 $ if (teststatus.nes."1")
3059 $ perl_d_pthread_yield="undef"
3061 $ perl_d_pthread_yield="define"
3064 $ perl_d_pthread_yield="undef"
3066 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
3068 $! Check for sched_yield
3070 $ if ("''use_threads'".eqs."T")
3074 $ WS "#include <stdlib.h>
3076 $ WS "#include <pthread.h>
3077 $ WS "#include <stdio.h>
3080 $ WS "sched_yield();
3084 $ DEFINE SYS$ERROR _NLA0:
3085 $ DEFINE SYS$OUTPUT _NLA0:
3086 $ on error then continue
3087 $ on warning then continue
3089 $ teststatus = f$extract(9,1,$status)
3090 $ DEASSIGN SYS$OUTPUT
3091 $ DEASSIGN SYS$ERROR
3092 $ if (teststatus.nes."1")
3094 $ perl_d_sched_yield="undef"
3095 $ perl_sched_yield = " "
3097 $ perl_d_sched_yield="define"
3098 $ perl_sched_yield = "sched_yield"
3101 $ perl_d_sched_yield="undef"
3102 $ perl_sched_yield = " "
3104 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
3105 $ WRITE_RESULT "sched_yield is ''perl_sched_yield'"
3107 $! Check for generic pointer size
3111 $ WS "#include <stdlib.h>
3113 $ WS "#include <stdio.h>
3117 $ WS "foo = sizeof(char *);
3118 $ WS "printf(""%d\n"", foo);
3122 $ DEFINE SYS$ERROR _NLA0:
3123 $ DEFINE SYS$OUTPUT _NLA0:
3124 $ ON ERROR THEN CONTINUE
3125 $ ON WARNING THEN CONTINUE
3127 $ If (Needs_Opt.eqs."Yes")
3129 $ link temp.obj,temp.opt/opt
3133 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3134 $ DEASSIGN SYS$OUTPUT
3135 $ DEASSIGN SYS$ERROR
3136 $ DEFINE SYS$ERROR TEMPOUT
3137 $ DEFINE SYS$OUTPUT TEMPOUT
3140 $ DEASSIGN SYS$OUTPUT
3141 $ DEASSIGN SYS$ERROR
3142 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3145 $ DELETE/NOLOG [-.uu]tempout.lis;
3148 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
3150 $! Check rand48 and its ilk
3154 $ WS "#include <stdlib.h>
3156 $ WS "#include <stdio.h>
3159 $ WS "srand48(12L);"
3164 $ DEFINE SYS$ERROR _NLA0:
3165 $ DEFINE SYS$OUTPUT _NLA0:
3166 $ ON ERROR THEN CONTINUE
3167 $ ON WARNING THEN CONTINUE
3169 $ If (Needs_Opt.eqs."Yes")
3171 $ link temp,temp.opt/opt
3175 $ teststatus = f$extract(9,1,$status)
3176 $ DEASSIGN SYS$OUTPUT
3177 $ DEASSIGN SYS$ERROR
3178 $ if (teststatus.nes."1")
3180 $ perl_drand01="random()"
3181 $ perl_randseedtype = "unsigned"
3182 $ perl_seedfunc = "srandom"
3186 $ WS "#include <stdlib.h>
3188 $ WS "#include <stdio.h>
3195 $! copy temp.c sys$output
3197 $ DEFINE SYS$ERROR _NLA0:
3198 $ DEFINE SYS$OUTPUT _NLA0:
3199 $ ON ERROR THEN CONTINUE
3200 $ ON WARNING THEN CONTINUE
3202 $ If (Needs_Opt.eqs."Yes")
3204 $ link temp,temp.opt/opt
3208 $ teststatus = f$extract(9,1,$status)
3209 $ DEASSIGN SYS$OUTPUT
3210 $ DEASSIGN SYS$ERROR
3211 $ if (teststatus.nes."1")
3213 $ perl_drand01="(((float)rand())/((float)RAND_MAX))"
3214 $ perl_randseedtype = "unsigned"
3215 $ perl_seedfunc = "srand"
3217 $ WRITE_RESULT "drand01 is ''perl_drand01'"
3220 $! Done with compiler checks. Clean up.
3221 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
3222 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
3223 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
3224 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
3227 $! Some that are compiler or VMS version sensitive
3230 $ IF "''Using_Gnu_C'".EQS."Yes"
3232 $ perl_d_attribut="define"
3233 $ perl_vms_cc_type="gcc"
3235 $ perl_vms_cc_type="cc"
3236 $ perl_d_attribut="undef"
3239 $! Dec C >= 5.2 and VMS ver >= 7.0
3240 $ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
3242 $ perl_d_bcmp="define"
3243 $ perl_d_gettimeod="define"
3244 $ perl_d_uname="define"
3245 $ perl_d_sigaction="define"
3246 $ perl_d_truncate="define"
3247 $ perl_d_wait4="define"
3248 $ perl_d_index="define"
3249 $ perl_pidtype="pid_t"
3250 $ 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"
3251 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3252 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
3253 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
3254 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
3255 $ 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"
3256 $ 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"
3257 $ perl_sig_num_with_commas=perl_sig_num_init
3258 $ perl_uidtype="uid_t"
3259 $ perl_d_pathconf="define"
3260 $ perl_d_fpathconf="define"
3261 $ perl_d_sysconf="define"
3262 $ perl_d_sigsetjmp="define"
3264 $ perl_pidtype="unsigned int"
3265 $ perl_d_gettimeod="undef"
3266 $ perl_d_bcmp="undef"
3267 $ perl_d_uname="undef"
3268 $ perl_d_sigaction="undef"
3269 $ perl_d_truncate="undef"
3270 $ perl_d_wait4="undef"
3271 $ perl_d_index="undef"
3272 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
3273 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3274 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
3275 $ perl_sig_name_with_commas = psnwc1 + psnwc2
3276 $ perl_sig_num="0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 6 16 17"",0"
3277 $ perl_sig_num_init="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
3278 $ perl_sig_num_with_commas=perl_sig_num_init
3279 $ perl_uidtype="unsigned int"
3280 $ perl_d_pathconf="undef"
3281 $ perl_d_fpathconf="undef"
3282 $ perl_d_sysconf="undef"
3283 $ perl_d_sigsetjmp="undef"
3287 $ IF ("''Using_Dec_C'".EQS."Yes")
3289 $ perl_d_mbstowcs="define"
3290 $ perl_d_mbtowc="define"
3291 $ perl_d_stdiobase="define"
3292 $ perl_d_stdio_ptr_lval="define"
3293 $ perl_d_stdio_cnt_lval="define"
3294 $ perl_d_stdstdio="define"
3295 $ perl_d_wcstombs="define"
3296 $ perl_d_mblen="define"
3297 $ perl_d_mktime="define"
3298 $ perl_d_strcoll="define"
3299 $ perl_d_strxfrm="define"
3300 $ perl_d_wctomb="define"
3301 $ perl_i_locale="define"
3302 $ perl_d_locconv="define"
3303 $ perl_d_setlocale="define"
3304 $ perl_vms_cc_type="decc"
3306 $ perl_d_mbstowcs="undef"
3307 $ perl_d_mbtowc="undef"
3308 $ perl_d_stdiobase="undef"
3309 $ perl_d_stdio_ptr_lval="undef"
3310 $ perl_d_stdio_cnt_lval="undef"
3311 $ perl_d_stdstdio="undef"
3312 $ perl_d_wcstombs="undef"
3313 $ perl_d_mblen="undef"
3314 $ perl_d_mktime="undef"
3315 $ perl_d_strcoll="undef"
3316 $ perl_d_strxfrm="undef"
3317 $ perl_d_wctomb="undef"
3318 $ perl_i_locale="undef"
3319 $ perl_d_locconv="undef"
3320 $ perl_d_setlocale="undef"
3324 $ if ("''Using_Vax_C'".EQS."Yes")
3326 $ perl_vms_cc_type="vaxc"
3330 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
3332 $ perl_d_vms_do_sockets="define"
3333 $ perl_d_htonl="define"
3334 $ perl_d_socket="define"
3335 $ perl_d_select="define"
3336 $ perl_netdb_host_type="char *"
3337 $ perl_netdb_hlen_type="int"
3338 $ perl_netdb_name_type="char *"
3339 $ perl_netdb_net_type="long"
3340 $ perl_d_gethbyaddr="define"
3341 $ perl_d_gethbyname="define"
3342 $ perl_d_getnbyaddr="define"
3343 $ perl_d_getnbyname="define"
3344 $ perl_d_getpbynumber="define"
3345 $ perl_d_getpbyname="define"
3346 $ perl_d_getsbyport="define"
3347 $ perl_d_getsbyname="define"
3348 $ perl_d_gethostprotos="define"
3349 $ perl_d_getnetprotos="define"
3350 $ perl_d_getprotoprotos="define"
3351 $ perl_d_getservprotos="define"
3352 $ perl_sock_size_type="int *"
3354 $ perl_d_vms_do_sockets="undef"
3355 $ perl_d_htonl="undef"
3356 $ perl_d_socket="undef"
3357 $ perl_d_select="undef"
3358 $ perl_netdb_host_type="char *"
3359 $ perl_netdb_hlen_type="int"
3360 $ perl_netdb_name_type="char *"
3361 $ perl_netdb_net_type="long"
3362 $ perl_d_gethbyaddr="undef"
3363 $ perl_d_gethbyname="undef"
3364 $ perl_d_getnbyaddr="undef"
3365 $ perl_d_getnbyname="undef"
3366 $ perl_d_getpbynumber="undef"
3367 $ perl_d_getpbyname="undef"
3368 $ perl_d_getsbyport="undef"
3369 $ perl_d_getsbyname="undef"
3370 $ perl_d_gethostprotos="undef"
3371 $ perl_d_getnetprotos="undef"
3372 $ perl_d_getprotoprotos="undef"
3373 $ perl_d_getservprotos="undef"
3374 $ perl_sock_size_type="undef"
3377 $ if ("''use_threads'".eqs."T")
3379 $ perl_usethreads="define"
3380 $ perl_d_pthreads_created_joinable="define"
3381 $ if ("''VMS_VER'".ges."7.0")
3383 $ perl_d_oldpthreads="undef"
3385 $ perl_d_oldpthreads="define"
3388 $ perl_d_oldpthreads="undef"
3389 $ perl_usethreads="undef"
3391 $ perl_d_pthreads_created_joinable="undef"
3394 $! new (5.005_62++) typedefs for primitives
3396 $ perl_ivtype="long"
3397 $ perl_uvtype="unsigned long"
3398 $ perl_i8type="char"
3399 $ perl_u8type="unsigned char"
3400 $ perl_i16type="short"
3401 $ perl_u16type="unsigned short"
3402 $ perl_i32type="int"
3403 $ perl_u32type="unsigned int"
3404 $ perl_i64type="long long"
3405 $ perl_u64type="unsigned long long"
3406 $ perl_nvtype="double"
3408 $ GOTO beyond_type_size_check
3412 $! Check for type sizes
3416 $ WS "#include <stdlib.h>
3418 $ WS "#include <stdio.h>
3421 $ WS "printf(""%d\n"", sizeof(''type'));"
3425 $ DEFINE SYS$ERROR _NLA0:
3426 $ DEFINE SYS$OUTPUT _NLA0:
3427 $ ON ERROR THEN CONTINUE
3428 $ ON WARNING THEN CONTINUE
3430 $ If (Needs_Opt.eqs."Yes")
3432 $ link temp.obj,temp.opt/opt
3436 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3437 $ DEASSIGN SYS$OUTPUT
3438 $ DEASSIGN SYS$ERROR
3439 $ DEFINE SYS$ERROR TEMPOUT
3440 $ DEFINE SYS$OUTPUT TEMPOUT
3443 $ DEASSIGN SYS$OUTPUT
3444 $ DEASSIGN SYS$ERROR
3445 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3448 $ DELETE/NOLOG [-.uu]tempout.lis;
3449 $ WRITE_RESULT "''size_name' is ''line'"
3453 $beyond_type_size_check:
3456 $ type = "''perl_ivtype'"
3457 $ size_name = "ivsize"
3458 $ gosub type_size_check
3459 $ perl_ivsize="''line'"
3460 $ IF type .eqs. "long"
3461 $ THEN perl_longsize = "''line'"
3464 $ size_name = "longsize"
3465 $ gosub type_size_check
3466 $ perl_longsize="''line'"
3469 $ type = "''perl_uvtype'"
3470 $ size_name = "uvsize"
3471 $ gosub type_size_check
3472 $ perl_uvsize="''line'"
3474 $ type = "''perl_i8type'"
3475 $ size_name = "i8size"
3476 $ gosub type_size_check
3477 $ perl_i8size="''line'"
3479 $ type = "''perl_u8type'"
3480 $ size_name = "u8size"
3481 $ gosub type_size_check
3482 $ perl_u8size="''line'"
3484 $ type = "''perl_i16type'"
3485 $ size_name = "i16size"
3486 $ gosub type_size_check
3487 $ perl_i16size="''line'"
3488 $ IF type .eqs. "short"
3489 $ THEN perl_shortsize="''line'"
3491 $ type = "''perl_i16type'"
3492 $ size_name = "shortsize"
3493 $ gosub type_size_check
3494 $ perl_shortsize="''line'"
3497 $ type = "''perl_u16type'"
3498 $ size_name = "u16size"
3499 $ gosub type_size_check
3500 $ perl_u16size="''line'"
3502 $ type = "''perl_i32type'"
3503 $ size_name = "i32size"
3504 $ gosub type_size_check
3505 $ perl_i32size="''line'"
3506 $ IF type .eqs. "int"
3507 $ THEN perl_intsize="''perl_i32size'"
3510 $ size_name = "intsize"
3511 $ gosub type_size_check
3512 $ perl_intsize="''line'"
3515 $ type = "''perl_u32type'"
3516 $ size_name = "u32size"
3517 $ gosub type_size_check
3518 $ perl_u32size="''line'"
3520 $ type = "''perl_i64type'"
3521 $ size_name = "i64size"
3522 $ gosub type_size_check
3523 $ perl_i64size="''line'"
3525 $ type = "''perl_u64type'"
3526 $ size_name = "u64size"
3527 $ gosub type_size_check
3528 $ perl_u64size="''line'"
3530 $ perl_ivdformat="""ld"""
3531 $ perl_uvuformat="""lu"""
3532 $ perl_uvoformat="""lo"""
3533 $ perl_uvxformat="""lx"""
3535 $! Finally the composite ones. All config
3536 $ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3537 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3538 $ perl_myhostname="''myhostname'"
3539 $ perl_mydomain="''mydomain'"
3540 $ perl_perladmin="''perladmin'"
3541 $ perl_cf_email="''cf_email'"
3542 $ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
3543 $ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3544 $ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
3545 $ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
3546 $ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
3547 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
3548 $ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3549 $ if "''Using_Dec_C'" .eqs. "Yes"
3551 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
3553 $ IF "''Using_Vax_C'" .eqs. "Yes"
3555 $ perl_ccflags="/Include=[]/Obj=''perl_obj_ext'/NoList''cc_flags'"
3558 $ if use_vmsdebug_perl .eqs. "Y"
3560 $ perl_optimize="/Debug/NoOpt"
3561 $ perl_dbgprefix = "DBG"
3564 $ perl_dbgprefix = ""
3567 $! Finally clean off any leading zeros from the patchlevel or subversion
3568 $ perl_patchlevel = perl_patchlevel + 0
3569 $ perl_subversion = perl_subversion + 0
3571 $! Okay, we've got everything configured. Now go write out a config.sh.
3572 $ open/write CONFIGSH [-]config.sh
3573 $ WC := "write CONFIGSH"
3575 $ WC "# This file generated by Configure.COM on a VMS system."
3576 $ WC "# Time: " + perl_cf_time
3578 $ WC "CONFIGDOTSH=true"
3579 $ WC "package='" + perl_package + "'"
3580 $ WC "d_nv_preserves_uv='" + perl_d_nv_preserves_uv + "'"
3581 $ WC "use5005threads='" + perl_use5005threads + "'"
3582 $ WC "useithreads='" + perl_useithreads + "'"
3583 $ WC "CONFIG='" + perl_config + "'"
3584 $ WC "cf_time='" + perl_cf_time + "'"
3585 $ WC "cf_by='" + perl_cf_by+ "'"
3586 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
3587 $ WC "ccdlflags='" + perl_ccdlflags + "'"
3588 $ WC "cccdlflags='" + perl_cccdlflags + "'"
3589 $ WC "mab='" + perl_mab + "'"
3590 $ WC "libpth='" + perl_libpth + "'"
3591 $ WC "ld='" + perl_ld + "'"
3592 $ WC "lddlflags='" + perl_lddlflags + "'"
3593 $ WC "ranlib='" + perl_ranlib + "'"
3594 $ WC "ar='" + perl_ar + "'"
3595 $ WC "full_ar='" + perl_full_ar + "'"
3596 $ WC "eunicefix='" + perl_eunicefix + "'"
3597 $ WC "hint='" + perl_hint +"'"
3598 $ WC "hintfile='" + perl_hintfile + "'"
3599 $ WC "shrplib='" + perl_shrplib + "'"
3600 $ WC "usemymalloc='" + perl_usemymalloc + "'"
3601 $ WC "usevfork='" + perl_usevfork + "'"
3602 $ WC "useposix='false'"
3603 $ WC "spitshell='write sys$output '"
3604 $ WC "dlsrc='dl_vms.c'"
3605 $ WC "binexp='" + perl_binexp + "'"
3606 $ WC "man1ext='" + perl_man1ext + "'"
3607 $ WC "man3ext='" + perl_man3ext + "'"
3608 $ WC "arch='" + perl_arch + "'"
3609 $ WC "archname='" + perl_archname + "'"
3610 $ WC "osvers='" + perl_osvers + "'"
3611 $ WC "prefix='" + perl_prefix + "'"
3612 $ WC "builddir='" + perl_builddir + "'"
3613 $ WC "installbin='" + perl_installbin + "'"
3614 $ WC "installscript='" + perl_installscript + "'"
3615 $ WC "installman1dir='" + perl_installman1dir + "'"
3616 $ WC "installman3dir='" + perl_installman3dir + "'"
3617 $ WC "installprivlib='" + perl_installprivlib + "'"
3618 $ WC "installarchlib='" + perl_installarchlib + "'"
3619 $ WC "installsitelib='" + perl_installsitelib + "'"
3620 $ WC "installsitearch='" + perl_installsitearch + "'"
3621 $ WC "path_sep='" + perl_path_sep + "'"
3622 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
3623 $ WC "d_attribut='" + perl_d_attribut + "'"
3624 $ WC "cc='" + perl_cc + "'"
3625 $ WC "ccflags='" + perl_ccflags + "'"
3626 $ WC "optimize='" + perl_optimize + "'"
3627 $ WC "dbgprefix='" + perl_dbgprefix + "'"
3628 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
3629 $ WC "d_socket='" + perl_d_socket + "'"
3630 $ WC "d_sockpair='" + perl_d_sockpair + "'"
3631 $ WC "d_gethent='" + perl_d_gethent + "'"
3632 $ WC "d_getsent='" + perl_d_getsent + "'"
3633 $ WC "d_socklen_t='" + perl_d_socklen_t + "'"
3634 $ WC "d_select='" + perl_d_select + "'"
3635 $ WC "i_niin='" + perl_i_niin + "'"
3636 $ WC "i_netinettcp='" + perl_i_netinettcp + "'"
3637 $ WC "i_neterrno='" + perl_i_neterrno + "'"
3638 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
3639 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
3640 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
3641 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
3642 $ WC "d_locconv='" + perl_d_locconv + "'"
3643 $ WC "d_setlocale='" + perl_d_setlocale + "'"
3644 $ WC "i_locale='" + perl_i_locale + "'"
3645 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
3646 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
3647 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
3648 $ WC "d_wctomb='" + perl_d_wctomb + "'"
3649 $ WC "d_mblen='" + perl_d_mblen + "'"
3650 $ WC "d_mktime='" + perl_d_mktime + "'"
3651 $ WC "d_strcoll='" + perl_d_strcoll + "'"
3652 $ WC "d_strxfrm='" + perl_d_strxfrm + "'"
3653 $ WC "ldflags='" + perl_ldflags + "'"
3654 $ WC "dlobj='" + perl_dlobj + "'"
3655 $ WC "obj_ext='" + perl_obj_ext + "'"
3656 $ WC "so='" + perl_so + "'"
3657 $ WC "dlext='" + perl_dlext + "'"
3658 $ WC "exe_ext='" + perl_exe_ext + "'"
3659 $ WC "lib_ext='" + perl_lib_ext + "'"
3660 $ WC "myhostname='" + perl_myhostname + "'"
3661 $ WC "mydomain='" + perl_mydomain + "'"
3662 $ WC "perladmin='" + perl_perladmin + "'"
3663 $ WC "cf_email='" + perl_cf_email + "'"
3664 $ WC "myuname='" + perl_myuname + "'"
3665 $ WC "alignbytes='" + perl_alignbytes + "'"
3666 $ WC "osname='" + perl_osname + "'"
3667 $ WC "d_archlib='" + perl_d_archlib + "'"
3668 $ WC "archlibexp='" + perl_archlibexp + "'"
3669 $ WC "archlib='" + perl_archlib + "'"
3670 $ WC "archname='" + perl_archname + "'"
3671 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
3672 $ WC "cppstdin='" + perl_cppstdin + "'"
3673 $ WC "cppminus='" + perl_cppminus + "'"
3674 $ WC "d_bcmp='" + perl_d_bcmp + "'"
3675 $ WC "d_bcopy='" + perl_d_bcopy + "'"
3676 $ WC "d_bzero='" + perl_d_bzero + "'"
3677 $ WC "d_castneg='" + perl_d_castneg + "'"
3678 $ WC "castflags='" + perl_castflags + "'"
3679 $ WC "d_chsize='" + perl_d_chsize + "'"
3680 $ WC "d_const='" + perl_d_const + "'"
3681 $ WC "d_crypt='" + perl_d_crypt + "'"
3682 $ WC "byteorder='" + perl_byteorder + "'"
3683 $ WC "full_csh='" + perl_full_csh + "'"
3684 $ WC "d_csh='" + perl_d_csh + "'"
3685 $ WC "d_dup2='" + perl_d_dup2 + "'"
3686 $ WC "d_fchmod='" + perl_d_fchmod + "'"
3687 $ WC "d_fchown='" + perl_d_fchown + "'"
3688 $ WC "d_fcntl='" + perl_d_fcntl + "'"
3689 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
3690 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
3691 $ WC "d_flock='" + perl_d_flock + "'"
3692 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
3693 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
3694 $ WC "d_getgrps='" + perl_d_getgrps + "'"
3695 $ WC "d_setgrps='" + perl_d_setgrps + "'"
3696 $ WC "d_uname='" + perl_d_uname + "'"
3697 $ WC "d_getprior='" + perl_d_getprior + "'"
3698 $ WC "d_killpg='" + perl_d_killpg + "'"
3699 $ WC "d_link='" + perl_d_link + "'"
3700 $ WC "d_lstat='" + perl_d_lstat + "'"
3701 $ WC "d_lockf='" + perl_d_lockf + "'"
3702 $ WC "d_memcmp='" + perl_d_memcmp + "'"
3703 $ WC "d_memcpy='" + perl_d_memcpy + "'"
3704 $ WC "d_memmove='" + perl_d_memmove + "'"
3705 $ WC "d_memset='" + perl_d_memset + "'"
3706 $ WC "d_mkdir='" + perl_d_mkdir + "'"
3707 $ WC "d_msg='" + perl_d_msg + "'"
3708 $ WC "d_open3='" + perl_d_open3 + "'"
3709 $ WC "d_poll='" + perl_d_poll + "'"
3710 $ WC "d_readdir='" + perl_d_readdir + "'"
3711 $ WC "d_seekdir='" + perl_d_seekdir + "'"
3712 $ WC "d_telldir='" + perl_d_telldir + "'"
3713 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
3714 $ WC "d_rename='" + perl_d_rename + "'"
3715 $ WC "d_rmdir='" + perl_d_rmdir + "'"
3716 $ WC "d_sem='" + perl_d_sem + "'"
3717 $ WC "d_setegid='" + perl_d_setegid + "'"
3718 $ WC "d_seteuid='" + perl_d_seteuid + "'"
3719 $ WC "d_setprior='" + perl_d_setprior + "'"
3720 $ WC "d_setregid='" + perl_d_setregid + "'"
3721 $ WC "d_setresgid='" + perl_d_setresgid + "'"
3722 $ WC "d_setreuid='" + perl_d_setreuid + "'"
3723 $ WC "d_setresuid='" + perl_d_setresuid + "'"
3724 $ WC "d_setrgid='" + perl_d_setrgid + "'"
3725 $ WC "d_setruid='" + perl_d_setruid + "'"
3726 $ WC "d_setsid='" + perl_d_setsid + "'"
3727 $ WC "d_shm='" + perl_d_shm + "'"
3728 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
3729 $ WC "d_sigaction='" + perl_d_sigaction + "'"
3730 $ WC "d_statblks='" + perl_d_statblks + "'"
3731 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
3732 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
3733 $ WC "stdio_base='" + perl_stdio_base + "'"
3734 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
3735 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
3736 $ WC "d_strerror='" + perl_d_strerror + "'"
3737 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
3738 $ WC "d_strerrm='" + perl_d_strerrm + "'"
3739 $ WC "d_symlink='" + perl_d_symlink + "'"
3740 $ WC "d_syscall='" + perl_d_syscall + "'"
3741 $ WC "d_system='" + perl_d_system + "'"
3742 $ WC "timetype='" + perl_timetype + "'"
3743 $ WC "d_truncate='" + perl_d_truncate + "'"
3744 $ WC "d_vfork='" + perl_d_vfork + "'"
3745 $ WC "signal_t='" + perl_signal_t + "'"
3746 $ WC "d_volatile='" + perl_d_volatile + "'"
3747 $ WC "d_vprintf='" + perl_d_vprintf + "'"
3748 $ WC "d_charvspr='" + perl_d_charvspr + "'"
3749 $ WC "d_wait4='" + perl_d_wait4 + "'"
3750 $ WC "d_waitpid='" + perl_d_waitpid + "'"
3751 $ WC "i_dirent='" + perl_i_dirent + "'"
3752 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
3753 $ WC "direntrytype='" + perl_direntrytype + "'"
3754 $ WC "i_fcntl='" + perl_i_fcntl + "'"
3755 $ WC "i_grp='" + perl_i_grp + "'"
3756 $ WC "i_limits='" + perl_i_limits + "'"
3757 $ WC "i_memory='" + perl_i_memory + "'"
3758 $ WC "i_ndbm='" + perl_i_ndbm + "'"
3759 $ WC "i_stdarg='" + perl_i_stdarg + "'"
3760 $ WC "i_pwd='" + perl_i_pwd + "'"
3761 $ WC "d_pwquota='" + perl_d_pwquota + "'"
3762 $ WC "d_pwage='" + perl_d_pwage + "'"
3763 $ WC "d_pwchange='" + perl_d_pwchange + "'"
3764 $ WC "d_pwclass='" + perl_d_pwclass + "'"
3765 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
3766 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
3767 $ WC "i_stddef='" + perl_i_stddef + "'"
3768 $ WC "i_stdlib='" + perl_i_stdlib + "'"
3769 $ WC "i_string='" + perl_i_string + "'"
3770 $ WC "i_sysdir='" + perl_i_sysdir + "'"
3771 $ WC "i_sysfile='" + perl_i_sysfile + "'"
3772 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
3773 $ WC "i_sysndir='" + perl_i_sysndir + "'"
3774 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
3775 $ WC "i_sysselct='" + perl_i_sysselct + "'"
3776 $ WC "i_dbm='" + perl_i_dbm + "'"
3777 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
3778 $ WC "i_sfio='" + perl_i_sfio + "'"
3779 $ WC "i_sysstat='" + perl_i_sysstat + "'"
3780 $ WC "i_systimes='" + perl_i_systimes + "'"
3781 $ WC "i_systypes='" + perl_i_systypes + "'"
3782 $ WC "i_sysun='" + perl_i_sysun + "'"
3783 $ WC "i_syswait='" + perl_i_syswait + "'"
3784 $ WC "i_termio='" + perl_i_termio + "'"
3785 $ WC "i_sgtty='" + perl_i_sgtty + "'"
3786 $ WC "i_termios='" + perl_i_termios + "'"
3787 $ WC "i_time='" + perl_i_time + "'"
3788 $ WC "i_systime='" + perl_i_systime + "'"
3789 $ WC "i_systimek='" + perl_i_systimek + "'"
3790 $ WC "i_unistd='" + perl_i_unistd + "'"
3791 $ WC "i_utime='" + perl_i_utime + "'"
3792 $ WC "i_varargs='" + perl_i_varargs + "'"
3793 $ WC "i_vfork='" + perl_i_vfork + "'"
3794 $ WC "prototype='" + perl_prototype + "'"
3795 $ WC "randbits='" + perl_randbits +"'"
3796 $ WC "selecttype='" + perl_selecttype + "'"
3797 $ WC "stdchar='" + perl_stdchar + "'"
3798 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
3799 $ WC "full_sed='" + perl_full_sed + "'"
3800 $ WC "bin='" + perl_bin + "'"
3801 $ WC "binexp='" + perl_binexp + "'"
3802 $ WC "d_alarm='" + perl_d_alarm + "'"
3803 $ WC "d_casti32='" + perl_d_casti32 + "'"
3804 $ WC "d_chown='" + perl_d_chown + "'"
3805 $ WC "d_chroot='" + perl_d_chroot + "'"
3806 $ WC "d_cuserid='" + perl_d_cuserid + "'"
3807 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
3808 $ WC "d_ldbl_dig='" + perl_d_ldbl_dig + "'"
3809 $ WC "d_difftime='" + perl_d_difftime + "'"
3810 $ WC "d_fork='" + perl_d_fork + "'"
3811 $ WC "d_getlogin='" + perl_d_getlogin + "'"
3812 $ WC "d_getppid='" + perl_d_getppid + "'"
3813 $ WC "d_htonl='" + perl_d_htonl + "'"
3814 $ WC "d_nice='" + perl_d_nice + "'"
3815 $ WC "d_pause='" + perl_d_pause + "'"
3816 $ WC "d_pipe='" + perl_d_pipe + "'"
3817 $ WC "d_readlink='" + perl_d_readlink + "'"
3818 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
3819 $ WC "d_strchr='" + perl_d_strchr + "'"
3820 $ WC "d_index='" + perl_d_index + "'"
3821 $ WC "d_strtod='" + perl_d_strtod + "'"
3822 $ WC "d_strtol='" + perl_d_strtol + "'"
3823 $ WC "d_strtoul='" + perl_d_strtoul + "'"
3824 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
3825 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
3826 $ WC "d_times='" + perl_d_times + "'"
3827 $ WC "d_tzname='" + perl_d_tzname + "'"
3828 $ WC "d_umask='" + perl_d_umask + "'"
3829 $ WC "fpostype='" + perl_fpostype + "'"
3830 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
3831 $ WC "i_float='" + perl_i_float + "'"
3832 $ WC "i_math='" + perl_i_math + "'"
3833 $ WC "intsize='" + perl_intsize + "'"
3834 $ WC "longsize='" + perl_longsize + "'"
3835 $ WC "shortsize='" + perl_shortsize + "'"
3836 $ WC "lseektype='" + perl_lseektype + "'"
3837 $ WC "lseeksize='4'"
3838 $ WC "i_values='" + perl_i_values + "'"
3839 $ WC "malloctype='" + perl_malloctype + "'"
3840 $ WC "freetype='" + perl_freetype + "'"
3841 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
3842 $ WC "sh='" + perl_sh + "'"
3843 $ WC "sig_name='" + perl_sig_name + "'"
3844 $ WC "sig_num='" + perl_sig_num + "'"
3845 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
3847 $ WC "modetype='" + perl_modetype + "'"
3848 $ WC "ssizetype='" + perl_ssizetype + "'"
3849 $ WC "o_nonblock='" + perl_o_nonblock + "'"
3850 $ WC "eagain='" + perl_eagain + "'"
3851 $ WC "rd_nodata='" + perl_rd_nodata + "'"
3852 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
3853 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
3854 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
3855 $ WC "oldarchlib='" + perl_oldarchlib + "'"
3856 $ WC "privlibexp='" + perl_privlibexp + "'"
3857 $ WC "privlib='" + perl_privlib + "'"
3858 $ WC "sitelibexp='" + perl_sitelibexp + "'"
3859 $ WC "sitelib='" + perl_sitelib + "'"
3860 $ WC "sitearchexp='" + perl_sitearchexp + "'"
3861 $ WC "sitearch='" + perl_sitearch + "'"
3862 $ WC "sizetype='" + perl_sizetype + "'"
3863 $ WC "i_sysparam='" + perl_i_sysparam + "'"
3864 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
3865 $ WC "d_dlerror='" + perl_d_dlerror + "'"
3866 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
3867 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
3868 $ WC "d_dosuid='" + perl_d_dosuid + "'"
3869 $ WC "d_inetaton='" + perl_d_inetaton + "'"
3870 $ WC "d_int64_t='" + perl_d_int64_t + "'"
3871 $ WC "d_isascii='" + perl_d_isascii + "'"
3872 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
3873 $ WC "d_pathconf='" + perl_d_pathconf + "'"
3874 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
3875 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
3876 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
3877 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
3878 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
3879 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
3880 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
3881 $ WC "d_setpgid='" + perl_d_setpgid + "'"
3882 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
3883 $ WC "d_sysconf='" + perl_d_sysconf + "'"
3884 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
3885 $ WC "d_getpgid='" + perl_d_getpgid + "'"
3886 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
3887 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
3888 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
3889 $ WC "d_sfio='" + perl_d_sfio + "'"
3890 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
3891 $ WC "usedl='" + perl_usedl + "'"
3892 $ WC "startperl=" + perl_startperl ! This one's special--no enclosing single quotes
3893 $ WC "db_hashtype='" + perl_db_hashtype + "'"
3894 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
3895 $ WC "useperlio='" + perl_useperlio + "'"
3896 $ WC "defvoidused='" + perl_defvoidused + "'"
3897 $ WC "voidflags='" + perl_voidflags + "'"
3898 $ WC "d_eunice='" + perl_d_eunice + "'"
3899 $ WC "libs='" + perl_libs + "'"
3900 $ WC "libc='" + perl_libc + "'"
3901 $ tempstring = "PERL_VERSION='" + "''perl_patchlevel'" + "'"
3903 $ tempstring = "PERL_SUBVERSION='" + "''perl_patchlevel'" + "'"
3905 $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
3907 $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
3909 $ WC "pager='" + perl_pager + "'"
3910 $ WC "uidtype='" + perl_uidtype + "'"
3911 $ WC "gidtype='" + perl_gidtype + "'"
3912 $ WC "usethreads='" + perl_usethreads + "'"
3913 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
3914 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
3915 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
3916 $ WC "i_netdb='" + perl_i_netdb + "'"
3917 $ WC "pidtype='" + perl_pidtype + "'"
3918 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
3919 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
3920 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
3921 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
3922 $ WC "sock_size_type='" + perl_sock_size_type + "'"
3923 $ WC "baserev='" + perl_baserev + "'"
3924 $ WC "doublesize='" + perl_doublesize + "'"
3925 $ WC "ptrsize='" + perl_ptrsize + "'"
3926 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
3927 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
3928 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
3929 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
3930 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
3931 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
3932 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
3933 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
3934 $ WC "d_sethent='" + perl_d_sethent + "'"
3935 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
3936 $ WC "d_longdbl='" + perl_d_longdbl + "'"
3937 $ WC "longdblsize='" + perl_longdblsize + "'"
3938 $ WC "d_longlong='" + perl_d_longlong + "'"
3939 $ WC "longlongsize='" + perl_longlongsize + "'"
3940 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
3941 $ WC "d_mkstemps='" + perl_d_mkstemps + "'"
3942 $ WC "d_mkdtemp='" + perl_d_mkdtemp + "'"
3943 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
3944 $ WC "d_setenv='" + perl_d_setenv + "'"
3945 $ WC "d_endhent='" + perl_d_endhent + "'"
3946 $ WC "d_endnent='" + perl_d_endsent + "'"
3947 $ WC "d_endpent='" + perl_d_endpent + "'"
3948 $ WC "d_endsent='" + perl_d_endsent + "'"
3949 $ WC "d_gethent='" + perl_d_gethent + "'"
3950 $ WC "d_getnent='" + perl_d_getsent + "'"
3951 $ WC "d_getpent='" + perl_d_getpent + "'"
3952 $ WC "d_getsent='" + perl_d_getsent + "'"
3953 $ WC "d_sethent='" + perl_d_sethent + "'"
3954 $ WC "d_setnent='" + perl_d_setsent + "'"
3955 $ WC "d_setpent='" + perl_d_setpent + "'"
3956 $ WC "ebcdic='" + perl_ebcdic + "'"
3957 $ WC "d_setsent='" + perl_d_setsent + "'"
3958 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
3959 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
3960 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
3961 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
3962 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
3963 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
3964 $ WC "d_lchown='" + perl_d_lchown + "'"
3965 $ WC "d_union_semun='" + perl_d_union_semun + "'"
3966 $ WC "i_arpainet='" + perl_i_arpainet + "'"
3967 $ WC "d_grpasswd='" + perl_d_grpasswd + "'"
3968 $ WC "d_setgrent='" + perl_d_setgrent + "'"
3969 $ WC "d_getgrent='" + perl_d_getgrent + "'"
3970 $ WC "d_endgrent='" + perl_d_endgrent + "'"
3971 $ WC "d_pwpasswd='" + perl_d_pwpasswd + "'"
3972 $ WC "d_setpwent='" + perl_d_setpwent + "'"
3973 $ WC "d_getpwent='" + perl_d_getpwent + "'"
3974 $ WC "d_endpwent='" + perl_d_endpwent + "'"
3975 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
3976 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
3977 $ WC "extensions='" + perl_extensions + "'"
3978 $ WC "known_extensions='" + perl_known_extensions + "'"
3979 $ WC "static_ext='" + "'"
3980 $ WC "dynamic_ext='" + perl_extensions + "'"
3981 $ WC "d_mknod='" + perl_d_mknod + "'"
3982 $ WC "devtype='" + perl_devtype + "'"
3983 $ WC "d_gethname='" + perl_d_gethname + "'"
3984 $ WC "d_phostname='" + perl_d_phostname + "'"
3985 $ WC "d_accessx='" + perl_d_accessx + "'"
3986 $ WC "d_eaccess='" + perl_d_eaccess + "'"
3987 $ WC "i_sysaccess='" + perl_i_sysaccess + "'"
3988 $ WC "i_syssecrt='" + perl_i_syssecrt + "'"
3989 $ WC "d_fd_set='" + perl_d_fd_set + "'"
3990 $ WC "d_access='" + perl_d_access + "'"
3991 $ WC "d_msg_ctrunc='" + perl_d_msg_ctrunc + "'"
3992 $ WC "d_msg_dontroute='" + perl_d_msg_dontroute + "'"
3993 $ WC "d_msg_oob='" + perl_d_msg_oob + "'"
3994 $ WC "d_msg_peek='" + perl_d_msg_peek + "'"
3995 $ WC "d_msg_proxy='" + perl_d_msg_proxy + "'"
3996 $ WC "d_scm_rights='" + perl_d_scm_rights + "'"
3997 $ WC "d_sendmsg='" + perl_d_sendmsg + "'"
3998 $ WC "d_recvmsg='" + perl_d_recvmsg + "'"
3999 $ WC "d_msghdr_s='" + perl_d_msghdr_s + "'"
4000 $ WC "d_cmsghdr_s='" + perl_d_cmsghdr_s + "'"
4001 $ WC "i_sysuio='" + perl_i_sysuio + "'"
4002 $ WC "d_fseeko='" + perl_d_fseeko + "'"
4003 $ WC "d_ftello='" + perl_d_ftello + "'"
4004 $ WC "d_readv='" + perl_d_readv + "'"
4005 $ WC "d_writev='" + perl_d_writev + "'"
4006 $ WC "i_machcthr='" + perl_i_machcthr + "'"
4007 $ WC "usemultiplicity='" + perl_usemultiplicity + "'"
4008 $ WC "i_poll='" + perl_i_poll + "'"
4009 $ WC "i_inttypes='" + perl_i_inttypes + "'"
4010 $ WC "d_off64_t='" + perl_d_off64_t + "'"
4011 $ WC "d_fpos64_t='" + perl_d_fpos64_t + "'"
4012 $ WC "use64bits='" + perl_use64bits + "'"
4013 $ WC "usefull64bits='" + perl_usefull64bits + "'"
4014 $ WC "d_drand48proto='" + perl_d_drand48proto + "'"
4015 $ WC "d_lseekproto='" + perl_d_drand48proto + "'"
4016 $ WC "d_old_pthread_create_joinable='" + perl_d_old_pthread_create_joinable + "'"
4017 $ WC "old_pthread_create_joinable='" + perl_old_pthread_create_joinable + "'"
4018 $ WC "drand01='" + perl_drand01 + "'"
4019 $ WC "randseedtype='" + perl_randseedtype + "'"
4020 $ WC "seedfunc='" + perl_seedfunc + "'"
4021 $ WC "sig_num_init='" + perl_sig_num_with_commas + "'"
4022 $ WC "i_sysmount='" + perl_i_sysmount + "'"
4023 $ WC "d_fstatfs='" + perl_d_fstatfs + "'"
4024 $ WC "d_getfsstat='" + perl_d_getfsstat + "'"
4025 $ WC "d_memchr='" + perl_d_memchr + "'"
4026 $ WC "d_statfsflags='" + perl_d_statfsflags + "'"
4027 $ WC "fflushNULL='define'"
4028 $ WC "fflushall='undef'"
4029 $ WC "d_stdio_stream_array='undef'"
4030 $ WC "i_sysstatvfs='" + perl_i_sysstatvfs + "'"
4031 $ WC "i_syslog='" + perl_i_syslog + "'"
4032 $ WC "i_sysmode='" + perl_i_sysmode + "'"
4033 $ WC "i_sysutsname='" + perl_i_sysutsname + "'"
4034 $ WC "i_machcthreads='" + perl_i_machcthreads + "'"
4035 $ WC "i_pthread='" + perl_i_pthread + "'"
4036 $ WC "d_fstatvfs='" + perl_d_fstatvfs + "'"
4037 $ WC "i_mntent='" + perl_i_mntent + "'"
4038 $ WC "d_getmntent='" + perl_d_getmntent + "'"
4039 $ WC "d_hasmntopt='" + perl_d_hasmntopt + "'"
4040 $ WC "d_telldirproto='" + perl_d_telldirproto + "'"
4041 $ WC "d_madvise='" + perl_d_madvise + "'"
4042 $ WC "d_msync='" + perl_d_msync + "'"
4043 $ WC "d_mprotect='" + perl_d_mprotect + "'"
4044 $ WC "d_munmap='" + perl_d_munmap + "'"
4045 $ WC "d_mmap='" + perl_d_mmap + "'"
4046 $ WC "i_sysmman='" + perl_i_sysmman + "'"
4047 $ WC "installusrbinperl='" + perl_installusrbinperl + "'"
4048 $! WC "selectminbits='" + perl_selectminbits + "'"
4049 $ WC "crosscompile='" + perl_crosscompile + "'"
4050 $ WC "multiarch='" + perl_multiarch + "'"
4051 $ WC "sched_yield='" + perl_sched_yield + "'"
4052 $ WC "d_strtoull='" + perl_d_strtoull + "'"
4053 $ WC "d_strtouq='" + perl_d_strtouq + "'"
4054 $ WC "d_strtoll='" + perl_d_strtoll + "'"
4055 $ WC "d_strtold='" + perl_d_strtold + "'"
4056 $ WC "usesocks='" + perl_usesocks + "'"
4057 $ WC "d_vendorlib='" + perl_d_vendorlib + "'"
4058 $ WC "vendorlibexp='" + perl_vendorlibexp + "'"
4059 $ WC "d_atolf='" + perl_d_atolf + "'"
4060 $ WC "d_atoll='" + perl_d_atoll + "'"
4061 $ WC "d_bincompat5005='" + perl_d_bincompat + "'"
4062 $ WC "d_endspent='" + perl_d_endspent + "'"
4063 $ WC "d_getspent='" + perl_d_getspent + "'"
4064 $ WC "d_getspnam='" + perl_d_getspnam + "'"
4065 $ WC "d_setspent='" + perl_d_setspent + "'"
4066 $ WC "i_shadow='" + perl_i_shadow + "'"
4067 $ WC "i_socks='" + perl_i_socks + "'"
4068 $ WC "d_PRIfldbl='" + perl_d_PRIfldbl + "'"
4069 $ WC "d_PRIgldbl='" + perl_d_PRIgldbl + "'"
4070 $ WC "d_PRId64='" + perl_d_PRId64 + "'"
4071 $ WC "d_PRIu64='" + perl_d_PRIu64 + "'"
4072 $ WC "d_PRIo64='" + perl_d_PRIo64 + "'"
4073 $ WC "d_PRIx64='" + perl_d_PRIx64 + "'"
4074 $ WC "sPRIfldbl='" + perl_sPRIfldbl + "'"
4075 $ WC "sPRIgldbl='" + perl_sPRIgldbl + "'"
4076 $ WC "sPRId64='" + perl_sPRId64 + "'"
4077 $ WC "sPRIu64='" + perl_sPRIu64 + "'"
4078 $ WC "sPRIo64='" + perl_sPRIo64 + "'"
4079 $ WC "sPRIx64='" + perl_sPRIx64 + "'"
4080 $ WC "d_llseek='" + perl_d_llseek + "'"
4081 $ WC "d_iconv='" + perl_d_iconv +"'"
4082 $ WC "i_iconv='" + perl_i_iconv +"'"
4083 $ WC "inc_version_list_init='""""'"
4084 $ WC "uselargefiles='" + perl_uselargefiles + "'"
4085 $ WC "uselongdouble='" + perl_uselongdouble + "'"
4086 $ WC "usemorebits='" + perl_usemorebits + "'"
4087 $ WC "d_quad='" + perl_d_quad + "'"
4088 $ if (use_64bit .eqs. "Y")
4090 $ WC "quadtype='" + perl_quadtype + "'"
4091 $ WC "uquadtype='" + perl_uquadtype + "'"
4093 $ WC "d_fs_data_s='" + perl_d_fs_data_s + "'"
4094 $ WC "d_getcwd='" + perl_d_getcwd + "'"
4095 $ WC "d_getmnt='" + perl_d_getmnt + "'"
4096 $ WC "d_sqrtl='" + perl_d_sqrtl + "'"
4097 $ WC "d_statfs_f_flags='" + perl_d_statfs_f_flags + "'"
4098 $ WC "d_statfs_s='" + perl_d_statfs_s + "'"
4099 $ WC "d_ustat='" + perl_d_ustat + "'"
4100 $ WC "i_sysstatfs='" + perl_i_sysstatfs + "'"
4101 $ WC "i_sysvfs='" + perl_i_sysvfs + "'"
4102 $ WC "i_ustat='" + perl_i_ustat + "'"
4103 $ WC "ivtype='" + perl_ivtype + "'"
4104 $ WC "uvtype='" + perl_uvtype + "'"
4105 $ WC "i8type='" + perl_i8type + "'"
4106 $ WC "i16type='" + perl_i16type + "'"
4107 $ WC "u8type='" + perl_u8type + "'"
4108 $ WC "u16type='" + perl_u16type + "'"
4109 $ WC "i32type='" + perl_i32type + "'"
4110 $ WC "u32type='" + perl_u32type + "'"
4111 $ WC "i64type='" + perl_i64type + "'"
4112 $ WC "u64type='" + perl_u64type + "'"
4113 $ WC "nvtype='" + perl_nvtype + "'"
4114 $ WC "ivsize='" + perl_ivsize + "'"
4115 $ WC "uvsize='" + perl_uvsize + "'"
4116 $ WC "i8size='" + perl_i8size + "'"
4117 $ WC "u8size='" + perl_u8size + "'"
4118 $ WC "i16size='" + perl_i16size + "'"
4119 $ WC "u16size='" + perl_u16size + "'"
4120 $ WC "i32size='" + perl_i32size + "'"
4121 $ WC "u32size='" + perl_u32size + "'"
4122 $ WC "i64size='" + perl_i64size + "'"
4123 $ WC "u64size='" + perl_u64size + "'"
4124 $ WC "ivdformat='" + perl_ivdformat + "'"
4125 $ WC "uvuformat='" + perl_uvuformat + "'"
4126 $ WC "uvoformat='" + perl_uvoformat + "'"
4127 $ WC "uvxformat='" + perl_uvxformat + "'"
4129 $! ##WRITE NEW CONSTANTS HERE##
4133 $! Okay, we've gotten here. Build munchconfig and run it
4134 $ 'Perl_CC' munchconfig.c
4135 $ If (Needs_Opt.eqs."Yes")
4137 $ open/write OPTCHAN []munchconfig.opt
4138 $ IF ("''using_gnu_c'".eqs."Yes")
4140 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
4142 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
4144 $ link munchconfig.obj,munchconfig.opt/opt
4145 $ delete munchconfig.opt;*
4147 $ link munchconfig.obj
4150 $ echo "Writing config.h"
4152 $ ! we need an fdl file
4153 $ CREATE [-]CONFIG.FDL
4156 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
4157 $ ! First spit out the header info with the local defines (to get
4158 $ ! around the 255 character command line limit)
4159 $ OPEN/APPEND CONFIG [-]config.local
4160 $ if use_debugging_perl.eqs."Y"
4162 $ WRITE CONFIG "#define DEBUGGING"
4164 $ if use_two_pot_malloc.eqs."Y"
4166 $ WRITE CONFIG "#define TWO_POT_OPTIMIZE"
4168 $ if mymalloc.eqs."Y"
4170 $ WRITE CONFIG "#define EMBEDMYMALLOC"
4172 $ if use_pack_malloc.eqs."Y"
4174 $ WRITE CONFIG "#define PACK_MALLOC"
4176 $ if use_debugmalloc.eqs."Y"
4178 $ write config "#define DEBUGGING_MSTATS"
4180 $ if "''Using_Gnu_C'" .eqs."Yes"
4182 $ WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
4184 $ if "''Has_Dec_C_Sockets'".eqs."T"
4186 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
4187 $ WRITE CONFIG "#define DECCRTL_SOCKETS"
4189 $ if "''Has_Socketshr'".eqs."T"
4191 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
4193 $! This is VMS-specific for now
4194 $ WRITE CONFIG "#''perl_d_setenv' HAS_SETENV"
4195 $ if d_alwdeftype.eqs."Y"
4197 $ WRITE CONFIG "#define SECURE_INTERNAL_GETENV"
4199 $ WRITE CONFIG "#undef SECURE_INTERNAL_GETENV"
4201 $ if d_secintgenv.eqs."Y"
4203 $ WRITE CONFIG "#define ALWAYS_DEFTYPES"
4205 $ WRITE CONFIG "#undef ALWAYS_DEFTYPES"
4207 $ if use_64bit.eqs."Y"
4209 $ WRITE CONFIG "#define USE_64_BITS"
4210 $ WRITE CONFIG "#define USE_LONG_DOUBLE"
4212 $ if use_full64bit.eqs."Y"
4214 $ WRITE CONFIG "#define USE_FULL_64_BITS"
4216 $ WRITE CONFIG "#define HAS_ENVGETENV"
4217 $ WRITE CONFIG "#define PERL_EXTERNAL_GLOB"
4220 $! Now build the normal config.h
4221 $ define/user sys$output [-]config.main
4222 $ mcr []munchconfig [-]config.sh [-]config_h.sh
4223 $ ! Concatenate them together
4224 $ copy [-]config.local,[-]config.main [-]config.h
4226 $ DELETE/NOLOG [-]CONFIG.MAIN;*
4227 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
4228 $ DELETE/NOLOG [-]CONFIG.FDL;*
4230 $ if "''Using_Dec_C'" .eqs."Yes"
4232 $ DECC_REPLACE = "DECC=decc=1"
4234 $ DECC_REPLACE = "DECC="
4236 $ if "''Using_Gnu_C'" .eqs."Yes"
4238 $ GNUC_REPLACE = "GNUC=gnuc=1"
4240 $ GNUC_REPLACE = "GNUC="
4242 $ if "''Has_Dec_C_Sockets'" .eqs."T"
4244 $ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
4246 $ if "''Has_Socketshr'" .eqs."T"
4248 $ SOCKET_REPLACE = "SOCKET=SOCKETSHR_SOCKETS=1"
4250 $ SOCKET_REPLACE = "SOCKET="
4253 $ IF ("''Use_Threads'".eqs."T")
4255 $ if ("''VMS_VER'".LES."6.2")
4257 $ THREAD_REPLACE = "THREAD=OLDTHREADED=1"
4259 $ THREAD_REPLACE = "THREAD=THREADED=1"
4262 $ THREAD_REPLACE = "THREAD="
4264 $ if mymalloc.eqs."Y"
4266 $ MALLOC_REPLACE = "MALLOC=MALLOC=1"
4268 $ MALLOC_REPLACE = "MALLOC="
4270 $ if f$getsyi("HW_MODEL").ge.1024
4272 $ ARCH_TYPE = "ARCH-TYPE=__AXP__"
4274 $ ARCH_TYPE = "ARCH-TYPE=__VAX__"
4276 $ echo "Writing DESCRIP.MMS"
4278 $ define/user sys$output [-]descrip.mms
4279 $ 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'"
4280 $ echo "Extracting Build_Ext.Com"
4281 $ Create Sys$Disk:[-]Build_Ext.Com
4282 $ Deck/Dollar="$EndOfTpl$"
4284 $! NOTE: This file is extracted as part of the VMS configuration process.
4285 $! Any changes made to it directly will be lost. If you need to make any
4286 $! changes, please edit the template in [.vms]SubConfigure.Com instead.
4287 $ def = F$Environment("Default")
4288 $ exts1 = F$Edit(p1,"Compress")
4289 $ p2 = F$Edit(p2,"Upcase,Compress,Trim")
4290 $ If F$Locate("MCR ",p2).eq.0 Then p2 = F$Extract(3,255,p2)
4291 $ miniperl = "$" + F$Search(F$Parse(p2,".Exe"))
4293 $ if f$type('p3') .nes. "" then makeutil = 'p3'
4294 $ targ = F$Edit(p4,"Lowercase")
4297 $ ext = F$Element(i," ",p1)
4298 $ If ext .eqs. " " Then Goto done
4299 $ Define/User Perl_Env_Tables CLISYM_LOCAL
4301 ($extdir = $ENV{'ext'}) =~ s/::/./g;
4302 if ($extdir =~ /^vms/i) { $extdir =~ s/vms/.vms.ext/i; }
4303 else { $extdir = ".ext.$extdir"; }
4304 ($ENV{'extdir'} = "[$extdir]");
4305 ($ENV{'up'} = ('-') x ($extdir =~ tr/././));
4306 $ Set Default &extdir
4308 $ If F$Locate("clean",targ) .eqs. F$Length(targ)
4310 $ Write Sys$Output "Building ''ext' . . ."
4311 $ On Error Then Goto done
4312 $ If F$Search("Descrip.MMS") .eqs. ""
4316 $ If F$CvTime(F$File("Descrip.MMS","rdt")) .lts. -
4317 F$CvTime(F$File("Makefile.PL","rdt")) Then redesc = 1
4320 $ Write Sys$Output "''targ'ing ''ext' . . ."
4321 $ On Error Then Continue
4324 miniperl "-I[''up'.lib]" Makefile.PL "INST_LIB=[''up'.lib]" "INST_ARCHLIB=[''up'.lib]"
4338 $! Clean up after ourselves
4339 $ delete/nolog munchconfig.exe;*
4340 $ delete/nolog munchconfig.obj;*