2 $! - build a config.sh for VMS Perl.
3 $! - use built config.sh to take config_h.SH -> config.h
4 $! - also take vms/descrip_mms.template -> descrip.mms (VMS Makefile)
6 $! Note for folks from other platforms changing things in here:
7 $! Fancy changes (based on compiler capabilities or VMS version or
8 $! whatever) are tricky, so go ahead and punt on those.
10 $! Simple changes, though (say, always setting something to 1, or undef,
11 $! or something like that) are straightforward. Adding a new item for the
12 $! ultimately created config.sh requires adding two lines to this file.
14 $! First, a line in the format:
16 $! after the line tagged ##ADD NEW CONSTANTS HERE##. Replace foo with the
17 $! variable name as it appears in config.sh.
19 $! Second, add a line in the format:
20 $! $ WC "foo='" + foo + "'"
21 $! after the line tagged ##WRITE NEW CONSTANTS HERE##. Careful of the
22 $! quoting, as it can be tricky.
24 $! This .COM file expects to be called by configure.com, and thus expects
25 $! a few symbols in the environment. Notably:
27 $! One of: Using_Dec_C, Using_Gnu_C set to "YES"
28 $! Dec_C_Version set to the Dec C version (defaults to 0 if not specified)
29 $! Has_Socketshr set to "T" if using socketshr
30 $! Has_Dec_C_Sockets set to "T" if using Dec C sockets
31 $! Use_Threads set to "T" if they're using threads
32 $! C_Compiler_Invoke is the command needed to invoke the C compiler
34 $! We'll be playing with Sys$Output; don't clutter it
37 $! Set Dec_C_Version to something
38 $ WRITE_RESULT := "WRITE SYS$OUTPUT ""%CONFIG-I-RESULT "" + "
39 $ echo = "Write Sys$Output "
40 $ Dec_C_Version := "''Dec_C_Version'"
41 $ Dec_C_Version = Dec_C_Version + 0
42 $ Vms_Ver := "''f$extract(1,3, f$getsyi(""version""))'"
43 $ perl_extensions := "''extensions'"
44 $ IF F$LENGTH(Mcc) .EQ. 0 THEN Mcc := "cc"
45 $ MCC = f$edit(mcc, "UPCASE")
46 $ C_Compiler_Replace := "CC=CC=''Mcc'''CC_flags'"
49 $ Checkcc := "''Mcc'/prefix=all"
53 $ cc_flags = cc_flags + extra_flags
54 $ IF be_case_sensitive
56 $ d_vms_be_case_sensitive = "define"
58 $ d_vms_be_case_sensitive = "undef"
62 $ perl_usemultiplicity = "define"
64 $ perl_usemultiplicity = "undef"
66 $! Some constant defaults.
67 $ hwname = f$getsyi("HW_NAME")
69 $ IF myname .EQS. "" THEN myname = F$TRNLNM("SYS$NODE")
71 $! ##ADD NEW CONSTANTS HERE##
74 $ perl_gidformat = "lu"
76 $ perl_groupstype = "Gid_t"
77 $ perl_stdio_stream_array = ""
78 $ perl_uidformat = "lu"
80 $ perl_d_getcwd = "undef"
81 $ perl_d_nv_preserves_uv = "define"
82 $ perl_d_fs_data_s = "undef"
83 $ perl_d_getmnt = "undef"
84 $ perl_d_sqrtl = "define"
85 $ perl_d_statfs_f_flags = "undef"
86 $ perl_d_statfs_s = "undef"
87 $ perl_d_ustat = "undef"
88 $ perl_i_ieeefp = "undef"
89 $ perl_i_sunmath = "undef"
90 $ perl_i_sysstatfs = "undef"
91 $ perl_i_sysvfs = "undef"
92 $ perl_i_ustat = "undef"
93 $ perl_d_llseek="undef"
94 $ perl_d_iconv="undef"
95 $ perl_d_madvise="undef"
96 $ perl_selectminbits="32"
97 $ perl_d_vendorarch="undef"
98 $ perl_vendorarchexp=""
99 $ perl_d_msync="undef"
100 $ perl_d_mprotect="undef"
101 $ perl_d_munmap="undef"
102 $ perl_crosscompile="undef"
103 $ perl_multiarch="undef"
104 $ perl_d_mmap="undef"
105 $ perl_i_sysmman="undef"
106 $ perl_d_telldirproto="define"
107 $ perl_i_sysmount="undef"
108 $ perl_d_bincompat="undef"
109 $ perl_d_endspent="undef
110 $ perl_d_getspent="undef
111 $ perl_d_getspnam="undef
112 $ perl_d_setspent="undef
113 $ perl_d_fstatfs="undef"
114 $ perl_d_getfsstat="undef"
115 $ perl_i_machcthreads="undef"
116 $ perl_i_pthread="define"
117 $ perl_d_fstatvfs="undef"
118 $ perl_usesocks="undef"
119 $ perl_d_vendorlib="undef"
120 $ perl_vendorlibexp=""
121 $ perl_vendorlib_stem=""
122 $ perl_d_statfsflags="undef"
123 $ perl_i_sysstatvfs="undef"
124 $ perl_i_mntent="undef"
125 $ perl_d_getmntent="undef"
126 $ perl_d_hasmntopt="undef"
127 $ perl_package="''package'"
128 $ perl_baserev = "''baserev'"
130 $ perl_installusrbinperl="undef"
132 $ perl_d_fseeko="undef"
133 $ perl_d_ftello="undef"
134 $ perl_d_qgcvt="undef"
135 $ perl_d_readv="undef"
136 $ perl_d_writev="undef"
137 $ perl_i_machcthr="undef"
138 $ perl_i_netdb="undef"
139 $ perl_d_gnulibc="undef"
143 $ perl_drand01 = "drand48()"
144 $ perl_randseedtype = "long int"
145 $ perl_seedfunc = "srand48"
146 $ perl_d_msg_ctrunc = "undef"
147 $ perl_d_msg_dontroute = "undef"
148 $ perl_d_msg_oob = "undef"
149 $ perl_d_msg_peek = "undef"
150 $ perl_d_msg_proxy = "undef"
151 $ perl_d_scm_rights = "undef"
152 $ perl_d_sendmsg = "undef"
153 $ perl_d_recvmsg = "undef"
154 $ perl_d_msghdr_s = "undef"
155 $ perl_d_cmsghdr_s = "undef"
158 $ perl_use64bitint = "define"
159 $ perl_uselargefiles = "define"
160 $ perl_uselongdouble = "define"
161 $ perl_usemorebits = "define"
163 $ perl_use64bitint = "undef"
164 $ perl_uselargefiles = "undef"
165 $ perl_uselongdouble = "undef"
166 $ perl_usemorebits = "undef"
170 $ perl_use64bitall = "define"
172 $ perl_use64bitall = "undef"
174 $ perl_d_drand48proto = "define"
175 $ perl_d_lseekproto = "define"
176 $ perl_libpth="/sys$share /sys$library"
178 $ perl_lddlflags="/Share"
184 $ perl_i_arpainet="undef"
185 $ perl_d_grpasswd="undef"
186 $ perl_d_setgrent="undef"
187 $ perl_d_getgrent="define"
188 $ perl_d_endgrent="define"
189 $ perl_d_pwpasswd="define"
190 $ perl_d_setpwent="define"
191 $ perl_d_getpwent="define"
192 $ perl_d_endpwent="define"
193 $ perl_d_phostname="undef"
194 $ perl_d_accessx="undef"
195 $ perl_d_eaccess="undef"
196 $ perl_ebcdic="undef"
198 $ perl_shrplib="define"
199 $ perl_usemymalloc=mymalloc
200 $ perl_usevfork="true"
201 $ perl_useposix="false"
202 $ perl_spitshell="write sys$output "
203 $ perl_dlsrc="dl_vms.c"
206 $ perl_prefix="perl_root"
207 $ perl_binexp="''perl_prefix':[000000]"
208 $ perl_builddir="''perl_prefix':[000000]"
209 $ perl_installbin="''perl_prefix':[000000]"
210 $ perl_installscript="''perl_prefix':[utils]"
211 $ perl_installman1dir="''perl_prefix':[man.man1]"
212 $ perl_installman3dir="''perl_prefix':[man.man3]"
213 $ perl_installprivlib="''perl_prefix':[lib]"
214 $ perl_installsitelib="''perl_prefix':[lib.site_perl]"
217 $ perl_d_sockpair="undef"
218 $ perl_i_neterrno="define"
219 $ perl_ldflags="/NoTrace/NoMap"
220 $ perl_d_lchown="undef"
221 $ perl_d_mknod="undef"
222 $ perl_d_union_semun="undef"
223 $ perl_d_semctl_semun="undef"
224 $ perl_d_semctl_semid_ds="undef"
225 $ IF (sharedperl .AND. F$GETSYI("HW_MODEL") .GE. 1024)
227 $ perl_obj_ext=".abj"
230 $ perl_exe_ext=".axe"
231 $ perl_lib_ext=".alb"
233 $ perl_obj_ext=".obj"
236 $ perl_exe_ext=".exe"
237 $ perl_lib_ext=".olb"
239 $ perl_dlobj="dl_vms''perl_obj_ext'"
241 $ perl_d_archlib="define"
242 $ perl_d_bincompat3="undef"
243 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
245 $ perl_cpprun="''Perl_CC'/noobj/preprocess=sys$output sys$input"
248 $ perl_d_castneg="define"
250 $ perl_d_chsize="undef"
251 $ perl_d_const="define"
252 $ perl_d_crypt="define"
253 $ perl_byteorder="1234"
256 $ perl_d_dup2="define"
257 $ perl_d_fchmod="undef"
258 $ perl_d_fchown="undef"
259 $ perl_d_fcntl="undef"
260 $ perl_d_fgetpos="define"
261 $ perl_d_flexfnam="define"
262 $ perl_d_flock="undef"
263 $ perl_d_fsetpos="define"
264 $ perl_d_getgrps="undef"
265 $ perl_d_setgrps="undef"
266 $ perl_d_getprior="undef"
267 $ perl_d_killpg="undef"
268 $ perl_d_link="undef"
269 $ perl_d_lstat="undef"
270 $ perl_d_lockf="undef"
271 $ perl_d_memcmp="define"
272 $ perl_d_memcpy="define"
273 $ perl_d_memmove="define"
274 $ perl_d_memset="define"
275 $ perl_d_mkdir="define"
277 $ perl_d_open3="define"
278 $ perl_d_poll="undef"
279 $ perl_d_readdir="define"
280 $ perl_d_seekdir="define"
281 $ perl_d_telldir="define"
282 $ perl_d_rewinddir="define"
283 $ perl_d_rename="define"
284 $ perl_d_rmdir="define"
286 $ perl_d_setegid="undef"
287 $ perl_d_seteuid="undef"
288 $ perl_d_setprior="undef"
289 $ perl_d_setregid="undef"
290 $ perl_d_setresgid="undef"
291 $ perl_d_setreuid="undef"
292 $ perl_d_setresuid="undef"
293 $ perl_d_setrgid="undef"
294 $ perl_d_setruid="undef"
295 $ perl_d_setsid="undef"
297 $ perl_d_shmatprototype="undef"
298 $ perl_d_statblks="undef"
299 $ perl_stdio_ptr="((*fp)->_ptr)"
300 $ perl_stdio_cnt="((*fp)->_cnt)"
301 $ perl_stdio_base="((*fp)->_base)"
302 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
303 $ perl_d_strctcpy="define"
304 $ perl_d_strerror="define"
305 $ perl_d_syserrlst="undef"
306 $ perl_d_strerrm="strerror((e),vaxc$errno)"
307 $ perl_d_symlink="undef"
308 $ perl_d_syscall="undef"
309 $ perl_d_system="define"
310 $ perl_timetype="time_t"
311 $ perl_d_vfork="define"
312 $ perl_signal_t="void"
313 $ perl_d_volatile="define"
314 $ perl_d_vprintf="define"
315 $ perl_d_charvspr="undef"
316 $ perl_d_waitpid="define"
317 $ perl_i_dirent="undef"
318 $ perl_d_dirnamlen="define"
319 $ perl_direntrytype="struct dirent"
320 $ perl_i_fcntl="undef"
322 $ perl_i_limits="define"
323 $ perl_i_memory="undef"
324 $ perl_i_ndbm="undef"
325 $ perl_i_stdarg="define"
327 $ perl_d_pwquota="undef"
328 $ perl_d_pwage="undef"
329 $ perl_d_pwchange="undef"
330 $ perl_d_pwclass="undef"
331 $ perl_d_pwexpire="undef"
332 $ perl_d_pwcomment="define"
333 $ perl_i_stddef="define"
334 $ perl_i_stdlib="define"
335 $ perl_i_string="define"
336 $ perl_i_sysdir="undef"
337 $ perl_i_sysfile="undef"
338 $ perl_i_sysioctl="undef"
339 $ perl_i_sysndir="undef"
340 $ perl_i_sysresrc="undef"
341 $ perl_i_sysselct="undef"
343 $ perl_i_rpcsvcdbm="undef"
344 $ perl_i_sfio="undef"
345 $ perl_i_sysstat="define"
346 $ perl_i_systimes="undef"
347 $ perl_i_systypes="define"
348 $ perl_i_sysun="undef"
349 $ perl_i_syswait="undef"
350 $ perl_i_termio="undef"
351 $ perl_i_sgtty="undef"
352 $ perl_i_termios="undef"
353 $ perl_i_time="define"
354 $ perl_i_systime="undef"
355 $ perl_i_systimek="undef"
356 $! perl_i_unistd="undef"
357 $ perl_i_utime="undef"
358 $ perl_i_varargs="undef"
359 $ perl_i_vfork="undef"
360 $ perl_prototype="define"
362 $ perl_stdchar="char"
363 $ perl_d_unlink_all_versions="undef"
364 $ perl_full_sed="_NLA0:"
365 $ perl_bin="/''perl_prefix'/000000"
366 $ perl_binexp="''perl_prefix':[000000]"
367 $ perl_d_alarm="define"
368 $ perl_d_casti32="define"
369 $ perl_d_chown="define"
370 $ perl_d_chroot="undef"
371 $ perl_d_cuserid="define"
372 $ perl_d_dbl_dig="define"
373 $ perl_d_ldbl_dig="define"
374 $ perl_d_difftime="define"
375 $ perl_d_fork="undef"
376 $ perl_d_getlogin="define"
377 $ perl_d_getppid="undef"
378 $ perl_d_nice="define"
379 $ perl_d_pause="define"
380 $ perl_d_pipe="define"
381 $ perl_d_readlink="undef"
382 $ perl_d_setlinebuf="undef"
383 $ perl_d_strchr="define"
384 $ perl_d_strtod="define"
385 $ perl_d_strtol="define"
386 $ perl_d_strtoul="define"
387 $ perl_d_tcgetpgrp="undef"
388 $ perl_d_tcsetpgrp="undef"
389 $ perl_d_times="define"
390 $ perl_d_tzname="undef"
391 $ perl_d_umask="define"
392 $ perl_fpostype="fpos_t"
393 $ perl_i_dlfcn="undef"
394 $ perl_i_float="define"
395 $ perl_i_math="define"
396 $ perl_lseektype="int"
397 $ perl_i_values="undef"
398 $ perl_malloctype="void *"
399 $ perl_freetype="void"
402 $ perl_d_mymalloc="define"
404 $ perl_d_mymalloc="undef"
407 $ perl_modetype="unsigned int"
408 $ perl_ssizetype="int"
409 $ perl_o_nonblock=" "
412 $ perl_d_eofnblk="undef"
413 $ perl_d_oldarchlib="define"
414 $ perl_privlibexp="''perl_prefix':[lib]"
415 $ perl_privlib="''perl_prefix':[lib]"
416 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
417 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
418 $ perl_sitelib_stem="''perl_prefix':[lib.site_perl]"
419 $ perl_sizetype="size_t"
420 $ perl_i_sysparam="undef"
421 $ perl_d_void_closedir="define"
422 $ perl_d_dlerror="undef"
423 $ perl_d_dlsymun="undef"
424 $ perl_d_suidsafe="undef"
425 $ perl_d_dosuid="undef"
426 $ perl_d_inetaton="undef"
427 $ perl_d_isascii="define"
428 $ perl_d_mkfifo="undef"
429 $ perl_d_safebcpy="undef"
430 $ perl_d_safemcpy="define"
431 $ perl_d_sanemcmp="define"
432 $ perl_d_setpgrp="undef"
433 $ perl_d_bsdsetpgrp="undef"
434 $ perl_d_bsdpgrp="undef"
435 $ perl_d_setpgid="undef"
436 $ perl_d_setpgrp2="undef"
437 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
438 $ perl_d_getpgid="undef"
439 $ perl_d_getpgrp="undef"
440 $ perl_d_bsdgetpgrp="undef"
441 $ perl_d_getpgrp2="undef"
442 $ perl_d_sfio="undef"
443 $ perl_usedl="define"
444 $ perl_startperl="""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ + ++$status != 0 and $exit = $status = undef;"""
445 $ perl_db_hashtype=" "
446 $ perl_db_prefixtype=" "
447 $ perl_useperlio="undef"
448 $ perl_defvoidused="15"
449 $ perl_voidflags="15"
450 $ perl_d_eunice="undef"
451 $ perl_d_pwgecos="define"
452 $ IF ((Use_Threads) .AND. (VMS_VER .LES. "6.2"))
454 $ 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"
460 $ perl_libc="(DECCRTL)"
470 $ perl_d_PRIfldbl = "define"
471 $ perl_d_PRIgldbl = "define"
472 $ perl_d_PRId64 = "define"
473 $ perl_d_PRIu64 = "define"
474 $ perl_d_PRIo64 = "define"
475 $ perl_d_PRIx64 = "define"
476 $ perl_sPRIfldbl = """Lf"""
477 $ perl_sPRIgldbl = """Lg"""
478 $ perl_sPRId64 = """Ld"""
479 $ perl_sPRIu64 = """Lu"""
480 $ perl_sPRIo64 = """Lo"""
481 $ perl_sPRIx64 = """Lx"""
482 $ perl_d_quad = "define"
483 $ perl_quadtype = "long long"
484 $ perl_uquadtype = "unsigned long long"
485 $ perl_quadkind = "QUAD_IS_LONG_LONG"
487 $ perl_d_PRIfldbl = "undef"
488 $ perl_d_PRIgldbl = "undef"
489 $ perl_d_PRId64 = "undef"
490 $ perl_d_PRIu64 = "undef"
491 $ perl_d_PRIo64 = "undef"
492 $ perl_d_PRIx64 = "undef"
493 $ perl_sPRIfldbl = ""
494 $ perl_sPRIgldbl = ""
499 $ perl_d_quad = "undef"
500 $ perl_quadtype = "long"
501 $ perl_uquadtype = "unsigned long"
502 $ perl_quadkind = "QUAD_IS_LONG"
505 $! Now some that we build up
509 $ if use_5005_threads
511 $ arch = "''arch'-thread"
512 $ archname = "''archname'-thread"
513 $ perl_d_old_pthread_create_joinable = "undef"
514 $ perl_old_pthread_create_joinable = " "
515 $ perl_use5005threads = "define"
516 $ perl_useithreads = "undef"
518 $ arch = "''arch'-ithread"
519 $ archname = "''archname'-ithread"
520 $ perl_d_old_pthread_create_joinable = "undef"
521 $ perl_old_pthread_create_joinable = " "
522 $ perl_use5005threads = "undef"
523 $ perl_useithreads = "define"
526 $ perl_d_old_pthread_create_joinable = "undef"
527 $ perl_old_pthread_create_joinable = " "
528 $ perl_use5005threads = "undef"
529 $ perl_useithreads = "undef"
532 $! Some that we need to invoke the compiler for
533 $ OS := "open/write SOURCECHAN []temp.c"
534 $ WS := "write SOURCECHAN"
535 $ CS := "close SOURCECHAN"
536 $ DS := "delete/nolog []temp.*;*"
540 $ open/write OPTCHAN []temp.opt
541 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
542 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
547 $! Check for __STDC__
551 $ WS "#include <stdlib.h>
553 $ WS "#include <stdio.h>
556 $ WS "#ifdef __STDC__
557 $ WS "printf(""42\n"");
559 $ WS "printf(""1\n"");
564 $ DEFINE SYS$ERROR _NLA0:
565 $ DEFINE SYS$OUTPUT _NLA0:
566 $ ON ERROR THEN CONTINUE
567 $ ON WARNING THEN CONTINUE
571 $ link temp.obj,temp.opt/opt
575 $ DEASSIGN SYS$OUTPUT
577 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
578 $ DEFINE SYS$ERROR TEMPOUT
579 $ DEFINE SYS$OUTPUT TEMPOUT
582 $ DEASSIGN SYS$OUTPUT
584 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
587 $ DELETE/NOLOG [-.uu]tempout.lis;
588 $ perl_cpp_stuff=line
589 $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
591 $! Check for double size
595 $ WS "#include <stdlib.h>
597 $ WS "#include <stdio.h>
601 $ WS "foo = sizeof(double);
602 $ WS "printf(""%d\n"", foo);
606 $ DEFINE SYS$ERROR _NLA0:
607 $ DEFINE SYS$OUTPUT _NLA0:
608 $ ON ERROR THEN CONTINUE
609 $ ON WARNING THEN CONTINUE
613 $ link temp.obj,temp.opt/opt
617 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
618 $ DEASSIGN SYS$OUTPUT
620 $ DEFINE SYS$ERROR TEMPOUT
621 $ DEFINE SYS$OUTPUT TEMPOUT
624 $ DEASSIGN SYS$OUTPUT
626 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
629 $ DELETE/NOLOG [-.uu]tempout.lis;
631 $ perl_doublesize=line
632 $ WRITE_RESULT "doublesize is ''perl_doublesize'"
634 $! Check for long double size
638 $ WS "#include <stdlib.h>
640 $ WS "#include <stdio.h>
643 $ WS "printf(""%d\n"", sizeof(long double));
647 $ DEFINE SYS$ERROR _NLA0:
648 $ DEFINE SYS$OUTPUT _NLA0:
649 $ ON ERROR THEN CONTINUE
650 $ ON WARNING THEN CONTINUE
652 $ teststatus = f$extract(9,1,$status)
653 $ if (teststatus.nes."1")
655 $ perl_longdblsize="0"
656 $ perl_d_longdbl="undef"
658 $ ON ERROR THEN CONTINUE
659 $ ON WARNING THEN CONTINUE
662 $ link temp.obj,temp.opt/opt
666 $ teststatus = f$extract(9,1,$status)
667 $ DEASSIGN SYS$OUTPUT
669 $ IF (teststatus.nes."1")
671 $ perl_longdblsize="0"
672 $ perl_d_longdbl="undef"
674 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
675 $ DEFINE SYS$ERROR TEMPOUT
676 $ DEFINE SYS$OUTPUT TEMPOUT
679 $ DEASSIGN SYS$OUTPUT
681 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
684 $ DELETE/NOLOG [-.uu]tempout.lis;
685 $ perl_longdblsize=line
686 $ perl_d_longdbl="define"
689 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
690 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
692 $! Check for long long existance and size
696 $ WS "#include <stdlib.h>
698 $ WS "#include <stdio.h>
701 $ WS "printf(""%d\n"", sizeof(long long));
705 $ DEFINE SYS$ERROR _NLA0:
706 $ DEFINE SYS$OUTPUT _NLA0:
707 $ on error then continue
708 $ on warning then continue
712 $ link temp.obj,temp.opt/opt
716 $ teststatus = f$extract(9,1,$status)
717 $ DEASSIGN SYS$OUTPUT
719 $ if (teststatus.nes."1")
721 $ perl_longlongsize="0"
722 $ perl_d_longlong="undef"
724 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
725 $ DEFINE SYS$ERROR TEMPOUT
726 $ DEFINE SYS$OUTPUT TEMPOUT
729 $ DEASSIGN SYS$OUTPUT
731 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
734 $ DELETE/NOLOG [-.uu]tempout.lis;
735 $ perl_longlongsize=line
736 $ perl_d_longlong="define"
738 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
739 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
741 $! Check the prototype for getgid
745 $ WS "#include <stdlib.h>
747 $ WS "#include <stdio.h>
748 $ WS "#include <types.h>
749 $ WS "#include <unistd.h>
756 $ DEFINE SYS$ERROR _NLA0:
757 $ DEFINE SYS$OUTPUT _NLA0:
758 $ on error then continue
759 $ on warning then continue
761 $ teststatus = f$extract(9,1,$status)
762 $ DEASSIGN SYS$OUTPUT
764 $ if (teststatus.nes."1")
766 $! Okay, gid_t failed. Must be unsigned int
767 $ perl_gidtype = "unsigned int"
769 $ perl_gidtype = "gid_t"
771 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
773 $! Check to see if we've got dev_t
777 $ WS "#include <stdlib.h>
779 $ WS "#include <stdio.h>
780 $ WS "#include <types.h>
781 $ WS "#include <unistd.h>
788 $ DEFINE SYS$ERROR _NLA0:
789 $ DEFINE SYS$OUTPUT _NLA0:
790 $ on error then continue
791 $ on warning then continue
793 $ teststatus = f$extract(9,1,$status)
794 $ DEASSIGN SYS$OUTPUT
796 $ if (teststatus.nes."1")
798 $! Okay, dev_t failed. Must be unsigned int
799 $ perl_devtype = "unsigned int"
801 $ perl_devtype = "dev_t"
803 $ WRITE_RESULT "Dev_t is ''perl_devtype'"
805 $! Check to see if we've got unistd.h (which we ought to, but you never know)
809 $ WS "#include <stdlib.h>
811 $ WS "#include <unistd.h>
817 $ DEFINE SYS$ERROR _NLA0:
818 $ DEFINE SYS$OUTPUT _NLA0:
819 $ on error then continue
820 $ on warning then continue
822 $ teststatus = f$extract(9,1,$status)
823 $ DEASSIGN SYS$OUTPUT
825 $ if (teststatus.nes."1")
827 $! Okay, failed. Must not have it
828 $ perl_i_unistd = "undef"
830 $ perl_i_unistd = "define"
832 $ WRITE_RESULT "i_unistd is ''perl_i_unistd'"
834 $! Check to see if we've got shadow.h (probably not, but...)
838 $ WS "#include <stdlib.h>
840 $ WS "#include <shadow.h>
846 $ DEFINE SYS$ERROR _NLA0:
847 $ DEFINE SYS$OUTPUT _NLA0:
848 $ on error then continue
849 $ on warning then continue
851 $ teststatus = f$extract(9,1,$status)
852 $ DEASSIGN SYS$OUTPUT
854 $ if (teststatus.nes."1")
856 $! Okay, failed. Must not have it
857 $ perl_i_shadow = "undef"
859 $ perl_i_shadow = "define"
861 $ WRITE_RESULT "i_shadow is ''perl_i_shadow'"
863 $! Check to see if we've got socks.h (probably not, but...)
867 $ WS "#include <stdlib.h>
869 $ WS "#include <socks.h>
875 $ DEFINE SYS$ERROR _NLA0:
876 $ DEFINE SYS$OUTPUT _NLA0:
877 $ on error then continue
878 $ on warning then continue
880 $ teststatus = f$extract(9,1,$status)
881 $ DEASSIGN SYS$OUTPUT
883 $ if (teststatus.nes."1")
885 $! Okay, failed. Must not have it
886 $ perl_i_socks = "undef"
888 $ perl_i_socks = "define"
890 $ WRITE_RESULT "i_socks is ''perl_i_socks'"
892 $! Check the prototype for select
894 $ IF Has_Dec_C_Sockets .OR. Has_Socketshr
898 $ WS "#include <stdlib.h>
900 $ WS "#include <stdio.h>
901 $ WS "#include <types.h>
902 $ WS "#include <unistd.h>
905 $ WS "#include <socketshr.h>"
907 $ WS "#include <time.h>
908 $ WS "#include <socket.h>
915 $ WS "bar = select(2, foo, foo, foo, NULL);
919 $ DEFINE SYS$ERROR _NLA0:
920 $ DEFINE SYS$OUTPUT _NLA0:
921 $ on error then continue
922 $ on warning then continue
924 $ teststatus = f$extract(9,1,$status)
925 $ DEASSIGN SYS$OUTPUT
927 $ if (teststatus.nes."1")
929 $! Okay, fd_set failed. Must be an int
930 $ perl_selecttype = "int *"
932 $ perl_selecttype="fd_set *"
935 $ ! No sockets, so stick in an int *
936 $ perl_selecttype = "int *"
938 $ WRITE_RESULT "selectype is ''perl_selecttype'"
940 $! Check to see if fd_set exists
944 $ WS "#include <stdlib.h>
946 $ WS "#include <stdio.h>
947 $ WS "#include <types.h>
948 $ WS "#include <unistd.h>
951 $ WS "#include <socketshr.h>"
953 $ IF Has_Dec_C_Sockets
955 $ WS "#include <time.h>
956 $ WS "#include <socket.h>
965 $ DEFINE SYS$ERROR _NLA0:
966 $ DEFINE SYS$OUTPUT _NLA0:
967 $ on error then continue
968 $ on warning then continue
970 $ teststatus = f$extract(9,1,$status)
971 $ DEASSIGN SYS$OUTPUT
973 $ if (teststatus.nes."1")
975 $! Okay, fd_set failed. Must not exist
976 $ perl_d_fd_set = "undef"
978 $ perl_d_fd_set="define"
980 $ WRITE_RESULT "d_fd_set is ''perl_d_fd_set'"
982 $! Check for inttypes.h
986 $ WS "#include <stdlib.h>
988 $ WS "#include <stdio.h>
989 $ WS "#include <unistd.h>
990 $ WS "#include <inttypes.h>
996 $ DEFINE SYS$ERROR _NLA0:
997 $ DEFINE SYS$OUTPUT _NLA0:
998 $ on error then continue
999 $ on warning then continue
1001 $ savedstatus = $status
1002 $ teststatus = f$extract(9,1,savedstatus)
1003 $ if (teststatus.nes."1")
1005 $ perl_i_inttypes="undef"
1006 $ DEASSIGN SYS$OUTPUT
1007 $ DEASSIGN SYS$ERROR
1011 $ link temp.obj,temp.opt/opt
1015 $ savedstatus = $status
1016 $ teststatus = f$extract(9,1,savedstatus)
1017 $ DEASSIGN SYS$OUTPUT
1018 $ DEASSIGN SYS$ERROR
1019 $ if (teststatus.nes."1")
1021 $ perl_i_inttypes="undef"
1023 $ perl_i_inttypes="define"
1026 $ WRITE_RESULT "i_inttypes is ''perl_i_inttypes'"
1028 $! Check for h_errno
1032 $ WS "#include <stdlib.h>
1034 $ WS "#include <stdio.h>
1035 $ WS "#include <unistd.h>
1036 $ WS "#include <netdb.h>
1043 $ DEFINE SYS$ERROR _NLA0:
1044 $ DEFINE SYS$OUTPUT _NLA0:
1045 $ on error then continue
1046 $ on warning then continue
1048 $ savedstatus = $status
1049 $ teststatus = f$extract(9,1,savedstatus)
1050 $ if (teststatus.nes."1")
1052 $ perl_d_herrno="undef"
1053 $ DEASSIGN SYS$OUTPUT
1054 $ DEASSIGN SYS$ERROR
1058 $ link temp.obj,temp.opt/opt
1062 $ savedstatus = $status
1063 $ teststatus = f$extract(9,1,savedstatus)
1064 $ DEASSIGN SYS$OUTPUT
1065 $ DEASSIGN SYS$ERROR
1066 $ if (teststatus.nes."1")
1068 $ perl_d_herrno="undef"
1070 $ perl_d_herrno="define"
1073 $ WRITE_RESULT "d_herrno is ''perl_d_herrno'"
1075 $! Check to see if int64_t exists
1079 $ WS "#include <stdlib.h>
1081 $ WS "#include <stdio.h>
1082 $ WS "#include <types.h>
1083 $ WS "#''perl_i_inttypes IIH
1085 $ WS "#include <inttypes.h>
1087 $ WS "#include <unistd.h>
1094 $ DEFINE SYS$ERROR _NLA0:
1095 $ DEFINE SYS$OUTPUT _NLA0:
1096 $ on error then continue
1097 $ on warning then continue
1099 $ teststatus = f$extract(9,1,$status)
1100 $ DEASSIGN SYS$OUTPUT
1101 $ DEASSIGN SYS$ERROR
1102 $ if (teststatus.nes."1")
1104 $! Okay, int64_t failed. Must not exist
1105 $ perl_d_int64_t = "undef"
1107 $ perl_d_int64_t="define"
1109 $ WRITE_RESULT "d_int64_t is ''perl_d_int64_t'"
1111 $! Check to see if off64_t exists
1115 $ WS "#include <stdlib.h>
1117 $ WS "#include <stdio.h>
1118 $ WS "#include <types.h>
1119 $ WS "#''perl_i_inttypes IIH
1121 $ WS "#include <inttypes.h>
1123 $ WS "#include <unistd.h>
1130 $ DEFINE SYS$ERROR _NLA0:
1131 $ DEFINE SYS$OUTPUT _NLA0:
1132 $ on error then continue
1133 $ on warning then continue
1135 $ teststatus = f$extract(9,1,$status)
1136 $ DEASSIGN SYS$OUTPUT
1137 $ DEASSIGN SYS$ERROR
1138 $ if (teststatus.nes."1")
1140 $! Okay, off64_t failed. Must not exist
1141 $ perl_d_off64_t = "undef"
1143 $ perl_d_off64_t="define"
1145 $ WRITE_RESULT "d_off64_t is ''perl_d_off64_t'"
1147 $! Check to see if fpos64_t exists
1151 $ WS "#include <stdlib.h>
1153 $ WS "#include <stdio.h>
1154 $ WS "#include <types.h>
1155 $ WS "#''perl_i_inttypes IIH
1157 $ WS "#include <inttypes.h>
1159 $ WS "#include <unistd.h>
1166 $ DEFINE SYS$ERROR _NLA0:
1167 $ DEFINE SYS$OUTPUT _NLA0:
1168 $ on error then continue
1169 $ on warning then continue
1171 $ teststatus = f$extract(9,1,$status)
1172 $ DEASSIGN SYS$OUTPUT
1173 $ DEASSIGN SYS$ERROR
1174 $ if (teststatus.nes."1")
1176 $! Okay, fpos64_t failed. Must not exist
1177 $ perl_d_fpos64_t = "undef"
1179 $ perl_d_fpos64_t="define"
1181 $ WRITE_RESULT "d_fpos64_t is ''perl_d_fpos64_t'"
1183 $! Check to see if gethostname exists
1185 $ IF (Has_Dec_C_Sockets .OR. Has_Socketshr)
1189 $ WS "#include <stdlib.h>
1191 $ WS "#include <stdio.h>
1192 $ WS "#include <types.h>
1193 $ WS "#include <unistd.h>
1196 $ WS "#include <socketshr.h>"
1198 $ WS "#include <time.h>
1199 $ WS "#include <socket.h>
1203 $ WS "char name[100];
1206 $ WS "baz = gethostname(name, bar);
1210 $ DEFINE SYS$ERROR _NLA0:
1211 $ DEFINE SYS$OUTPUT _NLA0:
1212 $ on error then continue
1213 $ on warning then continue
1215 $ teststatus = f$extract(9,1,$status)
1216 $ DEASSIGN SYS$OUTPUT
1217 $ DEASSIGN SYS$ERROR
1218 $ if (teststatus.nes."1")
1220 $! Okay, compile failed. Must not have it
1221 $ perl_d_gethname = "undef"
1225 $ link temp.obj,temp.opt/opt
1229 $ savedstatus = $status
1230 $ teststatus = f$extract(9,1,savedstatus)
1231 $ if (teststatus.nes."1")
1233 $ perl_d_gethname="undef"
1235 $ perl_d_gethname="define"
1239 $ ! No sockets, so no gethname
1240 $ perl_d_gethname = "undef"
1242 $ WRITE_RESULT "d_gethname is ''perl_d_gethname'"
1244 $! Check for sys/file.h
1248 $ WS "#include <stdlib.h>
1250 $ WS "#include <stdio.h>
1251 $ WS "#include <unistd.h>
1252 $ WS "#include <sys/file.h>
1258 $ DEFINE SYS$ERROR _NLA0:
1259 $ DEFINE SYS$OUTPUT _NLA0:
1260 $ on error then continue
1261 $ on warning then continue
1263 $ savedstatus = $status
1264 $ teststatus = f$extract(9,1,savedstatus)
1265 $ if (teststatus.nes."1")
1267 $ perl_i_sysfile="undef"
1268 $ DEASSIGN SYS$OUTPUT
1269 $ DEASSIGN SYS$ERROR
1273 $ link temp.obj,temp.opt/opt
1277 $ savedstatus = $status
1278 $ teststatus = f$extract(9,1,savedstatus)
1279 $ DEASSIGN SYS$OUTPUT
1280 $ DEASSIGN SYS$ERROR
1281 $ if (teststatus.nes."1")
1283 $ perl_i_sysfile="undef"
1285 $ perl_i_sysfile="define"
1288 $ WRITE_RESULT "i_sysfile is ''perl_i_sysfile'"
1290 $! Check for sys/utsname.h
1294 $ WS "#include <stdlib.h>
1296 $ WS "#include <stdio.h>
1297 $ WS "#include <unistd.h>
1298 $ WS "#include <sys/utsname.h>
1304 $ DEFINE SYS$ERROR _NLA0:
1305 $ DEFINE SYS$OUTPUT _NLA0:
1306 $ on error then continue
1307 $ on warning then continue
1309 $ savedstatus = $status
1310 $ teststatus = f$extract(9,1,savedstatus)
1311 $ if (teststatus.nes."1")
1313 $ perl_i_sysutsname="undef"
1314 $ DEASSIGN SYS$OUTPUT
1315 $ DEASSIGN SYS$ERROR
1319 $ link temp.obj,temp.opt/opt
1323 $ savedstatus = $status
1324 $ teststatus = f$extract(9,1,savedstatus)
1325 $ DEASSIGN SYS$OUTPUT
1326 $ DEASSIGN SYS$ERROR
1327 $ if (teststatus.nes."1")
1329 $ perl_i_sysutsname="undef"
1331 $ perl_i_sysutsname="define"
1334 $ WRITE_RESULT "i_sysutsname is ''perl_i_sysutsname'"
1336 $! Check for syslog.h
1340 $ WS "#include <stdlib.h>
1342 $ WS "#include <stdio.h>
1343 $ WS "#include <unistd.h>
1344 $ WS "#include <syslog.h>
1350 $ DEFINE SYS$ERROR _NLA0:
1351 $ DEFINE SYS$OUTPUT _NLA0:
1352 $ on error then continue
1353 $ on warning then continue
1355 $ savedstatus = $status
1356 $ teststatus = f$extract(9,1,savedstatus)
1357 $ if (teststatus.nes."1")
1359 $ perl_i_syslog="undef"
1360 $ DEASSIGN SYS$OUTPUT
1361 $ DEASSIGN SYS$ERROR
1365 $ link temp.obj,temp.opt/opt
1369 $ savedstatus = $status
1370 $ teststatus = f$extract(9,1,savedstatus)
1371 $ DEASSIGN SYS$OUTPUT
1372 $ DEASSIGN SYS$ERROR
1373 $ if (teststatus.nes."1")
1375 $ perl_i_syslog="undef"
1377 $ perl_i_syslog="define"
1380 $ WRITE_RESULT "i_syslog is ''perl_i_syslog'"
1386 $ WS "#include <stdlib.h>
1388 $ WS "#include <stdio.h>
1389 $ WS "#include <unistd.h>
1390 $ WS "#include <poll.h>
1396 $ DEFINE SYS$ERROR _NLA0:
1397 $ DEFINE SYS$OUTPUT _NLA0:
1398 $ on error then continue
1399 $ on warning then continue
1401 $ savedstatus = $status
1402 $ teststatus = f$extract(9,1,savedstatus)
1403 $ if (teststatus.nes."1")
1405 $ perl_i_poll="undef"
1406 $ DEASSIGN SYS$OUTPUT
1407 $ DEASSIGN SYS$ERROR
1411 $ link temp.obj,temp.opt/opt
1415 $ savedstatus = $status
1416 $ teststatus = f$extract(9,1,savedstatus)
1417 $ DEASSIGN SYS$OUTPUT
1418 $ DEASSIGN SYS$ERROR
1419 $ if (teststatus.nes."1")
1421 $ perl_i_poll="undef"
1423 $ perl_i_poll="define"
1426 $ WRITE_RESULT "i_poll is ''perl_i_poll'"
1428 $! Check for sys/uio.h
1432 $ WS "#include <stdlib.h>
1434 $ WS "#include <stdio.h>
1435 $ WS "#include <unistd.h>
1436 $ WS "#include <sys/uio.h>
1442 $ DEFINE SYS$ERROR _NLA0:
1443 $ DEFINE SYS$OUTPUT _NLA0:
1444 $ on error then continue
1445 $ on warning then continue
1447 $ savedstatus = $status
1448 $ teststatus = f$extract(9,1,savedstatus)
1449 $ if (teststatus.nes."1")
1451 $ perl_i_sysuio="undef"
1452 $ DEASSIGN SYS$OUTPUT
1453 $ DEASSIGN SYS$ERROR
1457 $ link temp.obj,temp.opt/opt
1461 $ savedstatus = $status
1462 $ teststatus = f$extract(9,1,savedstatus)
1463 $ DEASSIGN SYS$OUTPUT
1464 $ DEASSIGN SYS$ERROR
1465 $ if (teststatus.nes."1")
1467 $ perl_i_sysuio="undef"
1469 $ perl_i_sysuio="define"
1472 $ WRITE_RESULT "i_sysuio is ''perl_i_sysuio'"
1474 $! Check for sys/mode.h
1478 $ WS "#include <stdlib.h>
1480 $ WS "#include <stdio.h>
1481 $ WS "#include <unistd.h>
1482 $ WS "#include <sys/mode.h>
1488 $ DEFINE SYS$ERROR _NLA0:
1489 $ DEFINE SYS$OUTPUT _NLA0:
1490 $ on error then continue
1491 $ on warning then continue
1493 $ savedstatus = $status
1494 $ teststatus = f$extract(9,1,savedstatus)
1495 $ if (teststatus.nes."1")
1497 $ perl_i_sysmode="undef"
1498 $ DEASSIGN SYS$OUTPUT
1499 $ DEASSIGN SYS$ERROR
1501 $ If (Needs_Opt.eqs."Yes")
1503 $ link temp.obj,temp.opt/opt
1507 $ savedstatus = $status
1508 $ teststatus = f$extract(9,1,savedstatus)
1509 $ DEASSIGN SYS$OUTPUT
1510 $ DEASSIGN SYS$ERROR
1511 $ if (teststatus.nes."1")
1513 $ perl_i_sysmode="undef"
1515 $ perl_i_sysmode="define"
1518 $ WRITE_RESULT "i_sysmode is ''perl_i_sysmode'"
1520 $! Check for sys/access.h
1524 $ WS "#include <stdlib.h>
1526 $ WS "#include <stdio.h>
1527 $ WS "#include <unistd.h>
1528 $ WS "#include <sys/access.h>
1534 $ DEFINE SYS$ERROR _NLA0:
1535 $ DEFINE SYS$OUTPUT _NLA0:
1536 $ on error then continue
1537 $ on warning then continue
1539 $ savedstatus = $status
1540 $ teststatus = f$extract(9,1,savedstatus)
1541 $ if (teststatus.nes."1")
1543 $ perl_i_sysaccess="undef"
1544 $ DEASSIGN SYS$OUTPUT
1545 $ DEASSIGN SYS$ERROR
1547 $ If (Needs_Opt.eqs."Yes")
1549 $ link temp.obj,temp.opt/opt
1553 $ savedstatus = $status
1554 $ teststatus = f$extract(9,1,savedstatus)
1555 $ DEASSIGN SYS$OUTPUT
1556 $ DEASSIGN SYS$ERROR
1557 $ if (teststatus.nes."1")
1559 $ perl_i_sysaccess="undef"
1561 $ perl_i_sysaccess="define"
1564 $ WRITE_RESULT "i_sysaccess is ''perl_i_sysaccess'"
1566 $! Check for sys/security.h
1570 $ WS "#include <stdlib.h>
1572 $ WS "#include <stdio.h>
1573 $ WS "#include <unistd.h>
1574 $ WS "#include <sys/security.h>
1580 $ DEFINE SYS$ERROR _NLA0:
1581 $ DEFINE SYS$OUTPUT _NLA0:
1582 $ on error then continue
1583 $ on warning then continue
1585 $ savedstatus = $status
1586 $ teststatus = f$extract(9,1,savedstatus)
1587 $ if (teststatus.nes."1")
1589 $ perl_i_syssecrt="undef"
1590 $ DEASSIGN SYS$OUTPUT
1591 $ DEASSIGN SYS$ERROR
1593 $ If (Needs_Opt.eqs."Yes")
1595 $ link temp.obj,temp.opt/opt
1599 $ savedstatus = $status
1600 $ teststatus = f$extract(9,1,savedstatus)
1601 $ DEASSIGN SYS$OUTPUT
1602 $ DEASSIGN SYS$ERROR
1603 $ if (teststatus.nes."1")
1605 $ perl_i_syssecrt="undef"
1607 $ perl_i_syssecrt="define"
1610 $ WRITE_RESULT "i_syssecrt is ''perl_i_syssecrt'"
1612 $! Check for fcntl.h
1616 $ WS "#include <stdlib.h>
1618 $ WS "#include <stdio.h>
1619 $ WS "#include <unistd.h>
1620 $ WS "#include <fcntl.h>
1626 $ DEFINE SYS$ERROR _NLA0:
1627 $ DEFINE SYS$OUTPUT _NLA0:
1628 $ on error then continue
1629 $ on warning then continue
1631 $ savedstatus = $status
1632 $ teststatus = f$extract(9,1,savedstatus)
1633 $ if (teststatus.nes."1")
1635 $ perl_i_fcntl="undef"
1636 $ DEASSIGN SYS$OUTPUT
1637 $ DEASSIGN SYS$ERROR
1639 $ If (Needs_Opt.eqs."Yes")
1641 $ link temp.obj,temp.opt/opt
1645 $ savedstatus = $status
1646 $ teststatus = f$extract(9,1,savedstatus)
1647 $ DEASSIGN SYS$OUTPUT
1648 $ DEASSIGN SYS$ERROR
1649 $ if (teststatus.nes."1")
1651 $ perl_i_fcntl="undef"
1653 $ perl_i_fcntl="define"
1656 $ WRITE_RESULT "i_fcntl is ''perl_i_fcntl'"
1662 $ WS "#include <stdlib.h>
1664 $ WS "#include <stdio.h>
1665 $ WS "#include <unistd.h>
1666 $ WS "#include <fcntl.h>
1673 $ DEFINE SYS$ERROR _NLA0:
1674 $ DEFINE SYS$OUTPUT _NLA0:
1675 $ on error then continue
1676 $ on warning then continue
1678 $ savedstatus = $status
1679 $ teststatus = f$extract(9,1,savedstatus)
1680 $ if (teststatus.nes."1")
1682 $ perl_d_fcntl="undef"
1683 $ DEASSIGN SYS$OUTPUT
1684 $ DEASSIGN SYS$ERROR
1686 $ If (Needs_Opt.eqs."Yes")
1688 $ link temp.obj,temp.opt/opt
1692 $ savedstatus = $status
1693 $ teststatus = f$extract(9,1,savedstatus)
1694 $ DEASSIGN SYS$OUTPUT
1695 $ DEASSIGN SYS$ERROR
1696 $ if (teststatus.nes."1")
1698 $ perl_d_fcntl="undef"
1700 $ perl_d_fcntl="define"
1703 $ WRITE_RESULT "d_fcntl is ''perl_d_fcntl'"
1709 $ WS "#include <stdlib.h>
1711 $ WS "#include <string.h>
1715 $ WS "place = memchr(""foo"", 47, 3)
1719 $ DEFINE SYS$ERROR _NLA0:
1720 $ DEFINE SYS$OUTPUT _NLA0:
1721 $ on error then continue
1722 $ on warning then continue
1724 $ savedstatus = $status
1725 $ teststatus = f$extract(9,1,savedstatus)
1726 $ if (teststatus.nes."1")
1728 $ perl_d_memchr="undef"
1729 $ DEASSIGN SYS$OUTPUT
1730 $ DEASSIGN SYS$ERROR
1732 $ If (Needs_Opt.eqs."Yes")
1734 $ link temp.obj,temp.opt/opt
1738 $ savedstatus = $status
1739 $ teststatus = f$extract(9,1,savedstatus)
1740 $ DEASSIGN SYS$OUTPUT
1741 $ DEASSIGN SYS$ERROR
1742 $ if (teststatus.nes."1")
1744 $ perl_d_memchr="undef"
1746 $ perl_d_memchr="define"
1749 $ WRITE_RESULT "d_memchr is ''perl_d_memchr'"
1751 $! Check for strtoull
1755 $ WS "#include <stdlib.h>
1757 $ WS "#include <string.h>
1760 $ WS "unsigned __int64 result;
1761 $ WS "result = strtoull(""123123"", NULL, 10);
1765 $ DEFINE SYS$ERROR _NLA0:
1766 $ DEFINE SYS$OUTPUT _NLA0:
1767 $ on error then continue
1768 $ on warning then continue
1770 $ savedstatus = $status
1771 $ teststatus = f$extract(9,1,savedstatus)
1772 $ if (teststatus.nes."1")
1774 $ perl_d_strtoull="undef"
1775 $ DEASSIGN SYS$OUTPUT
1776 $ DEASSIGN SYS$ERROR
1778 $ If (Needs_Opt.eqs."Yes")
1780 $ link temp.obj,temp.opt/opt
1784 $ savedstatus = $status
1785 $ teststatus = f$extract(9,1,savedstatus)
1786 $ DEASSIGN SYS$OUTPUT
1787 $ DEASSIGN SYS$ERROR
1788 $ if (teststatus.nes."1")
1790 $ perl_d_strtoull="undef"
1792 $ perl_d_strtoull="define"
1795 $ WRITE_RESULT "d_strtoull is ''perl_d_strtoull'"
1797 $! Check for strtouq
1801 $ WS "#include <stdlib.h>
1803 $ WS "#include <string.h>
1806 $ WS "unsigned __int64 result;
1807 $ WS "result = strtouq(""123123"", NULL, 10);
1811 $ DEFINE SYS$ERROR _NLA0:
1812 $ DEFINE SYS$OUTPUT _NLA0:
1813 $ on error then continue
1814 $ on warning then continue
1816 $ savedstatus = $status
1817 $ teststatus = f$extract(9,1,savedstatus)
1818 $ if (teststatus.nes."1")
1820 $ perl_d_strtouq="undef"
1821 $ DEASSIGN SYS$OUTPUT
1822 $ DEASSIGN SYS$ERROR
1824 $ If (Needs_Opt.eqs."Yes")
1826 $ link temp.obj,temp.opt/opt
1830 $ savedstatus = $status
1831 $ teststatus = f$extract(9,1,savedstatus)
1832 $ DEASSIGN SYS$OUTPUT
1833 $ DEASSIGN SYS$ERROR
1834 $ if (teststatus.nes."1")
1836 $ perl_d_strtouq="undef"
1838 $ perl_d_strtouq="define"
1841 $ WRITE_RESULT "d_strtouq is ''perl_d_strtouq'"
1843 $! Check for strtoll
1847 $ WS "#include <stdlib.h>
1849 $ WS "#include <string.h>
1852 $ WS "__int64 result;
1853 $ WS "result = strtoll(""123123"", NULL, 10);
1857 $ DEFINE SYS$ERROR _NLA0:
1858 $ DEFINE SYS$OUTPUT _NLA0:
1859 $ on error then continue
1860 $ on warning then continue
1862 $ savedstatus = $status
1863 $ teststatus = f$extract(9,1,savedstatus)
1864 $ if (teststatus.nes."1")
1866 $ perl_d_strtoll="undef"
1867 $ DEASSIGN SYS$OUTPUT
1868 $ DEASSIGN SYS$ERROR
1870 $ If (Needs_Opt.eqs."Yes")
1872 $ link temp.obj,temp.opt/opt
1876 $ savedstatus = $status
1877 $ teststatus = f$extract(9,1,savedstatus)
1878 $ DEASSIGN SYS$OUTPUT
1879 $ DEASSIGN SYS$ERROR
1880 $ if (teststatus.nes."1")
1882 $ perl_d_strtoll="undef"
1884 $ perl_d_strtoll="define"
1887 $ WRITE_RESULT "d_strtoll is ''perl_d_strtoll'"
1889 $! Check for strtold
1893 $ WS "#include <stdlib.h>
1895 $ WS "#include <string.h>
1898 $ WS "long double result;
1899 $ WS "result = strtold(""123123"", NULL, 10);
1903 $ DEFINE SYS$ERROR _NLA0:
1904 $ DEFINE SYS$OUTPUT _NLA0:
1905 $ on error then continue
1906 $ on warning then continue
1908 $ savedstatus = $status
1909 $ teststatus = f$extract(9,1,savedstatus)
1910 $ if (teststatus.nes."1")
1912 $ perl_d_strtold="undef"
1913 $ DEASSIGN SYS$OUTPUT
1914 $ DEASSIGN SYS$ERROR
1916 $ If (Needs_Opt.eqs."Yes")
1918 $ link temp.obj,temp.opt/opt
1922 $ savedstatus = $status
1923 $ teststatus = f$extract(9,1,savedstatus)
1924 $ DEASSIGN SYS$OUTPUT
1925 $ DEASSIGN SYS$ERROR
1926 $ if (teststatus.nes."1")
1928 $ perl_d_strtold="undef"
1930 $ perl_d_strtold="define"
1933 $ WRITE_RESULT "d_strtold is ''perl_d_strtold'"
1939 $ WS "#include <stdlib.h>
1941 $ WS "#include <string.h>
1944 $ WS " __int64 result;
1945 $ WS "result = atoll(""123123"");
1949 $ DEFINE SYS$ERROR _NLA0:
1950 $ DEFINE SYS$OUTPUT _NLA0:
1951 $ on error then continue
1952 $ on warning then continue
1954 $ savedstatus = $status
1955 $ teststatus = f$extract(9,1,savedstatus)
1956 $ if (teststatus.nes."1")
1958 $ perl_d_atoll="undef"
1959 $ DEASSIGN SYS$OUTPUT
1960 $ DEASSIGN SYS$ERROR
1962 $ If (Needs_Opt.eqs."Yes")
1964 $ link temp.obj,temp.opt/opt
1968 $ savedstatus = $status
1969 $ teststatus = f$extract(9,1,savedstatus)
1970 $ DEASSIGN SYS$OUTPUT
1971 $ DEASSIGN SYS$ERROR
1972 $ if (teststatus.nes."1")
1974 $ perl_d_atoll="undef"
1976 $ perl_d_atoll="define"
1979 $ WRITE_RESULT "d_atoll is ''perl_d_atoll'"
1985 $ WS "#include <stdlib.h>
1987 $ WS "#include <string.h>
1991 $ WS "result = atolf(""123123"");
1995 $ DEFINE SYS$ERROR _NLA0:
1996 $ DEFINE SYS$OUTPUT _NLA0:
1997 $ on error then continue
1998 $ on warning then continue
2000 $ savedstatus = $status
2001 $ teststatus = f$extract(9,1,savedstatus)
2002 $ if (teststatus.nes."1")
2004 $ perl_d_atolf="undef"
2005 $ DEASSIGN SYS$OUTPUT
2006 $ DEASSIGN SYS$ERROR
2008 $ If (Needs_Opt.eqs."Yes")
2010 $ link temp.obj,temp.opt/opt
2014 $ savedstatus = $status
2015 $ teststatus = f$extract(9,1,savedstatus)
2016 $ DEASSIGN SYS$OUTPUT
2017 $ DEASSIGN SYS$ERROR
2018 $ if (teststatus.nes."1")
2020 $ perl_d_atolf="undef"
2022 $ perl_d_atolf="define"
2025 $ WRITE_RESULT "d_atolf is ''perl_d_atolf'"
2031 $ WS "#include <stdlib.h>
2033 $ WS "#include <stdio.h>
2034 $ WS "#include <unistd.h>
2037 $ WS "access("foo", F_OK);
2041 $ DEFINE SYS$ERROR _NLA0:
2042 $ DEFINE SYS$OUTPUT _NLA0:
2043 $ on error then continue
2044 $ on warning then continue
2046 $ savedstatus = $status
2047 $ teststatus = f$extract(9,1,savedstatus)
2048 $ if (teststatus.nes."1")
2050 $ perl_d_access="undef"
2051 $ DEASSIGN SYS$OUTPUT
2052 $ DEASSIGN SYS$ERROR
2054 $ If (Needs_Opt.eqs."Yes")
2056 $ link temp.obj,temp.opt/opt
2060 $ savedstatus = $status
2061 $ teststatus = f$extract(9,1,savedstatus)
2062 $ DEASSIGN SYS$OUTPUT
2063 $ DEASSIGN SYS$ERROR
2064 $ if (teststatus.nes."1")
2066 $ perl_d_access="undef"
2068 $ perl_d_access="define"
2071 $ WRITE_RESULT "d_access is ''perl_d_access'"
2077 $ WS "#include <stdlib.h>
2079 $ WS "#include <stdio.h>
2080 $ WS "#include <strings.h>
2084 $ WS "bzero(foo, 10);
2088 $ DEFINE SYS$ERROR _NLA0:
2089 $ DEFINE SYS$OUTPUT _NLA0:
2090 $ on error then continue
2091 $ on warning then continue
2093 $ savedstatus = $status
2094 $ teststatus = f$extract(9,1,savedstatus)
2095 $ if (teststatus.nes."1")
2097 $ perl_d_bzero="undef"
2098 $ DEASSIGN SYS$OUTPUT
2099 $ DEASSIGN SYS$ERROR
2101 $ If (Needs_Opt.eqs."Yes")
2103 $ link temp.obj,temp.opt/opt
2107 $ savedstatus = $status
2108 $ teststatus = f$extract(9,1,savedstatus)
2109 $ DEASSIGN SYS$OUTPUT
2110 $ DEASSIGN SYS$ERROR
2111 $ if (teststatus.nes."1")
2113 $ perl_d_bzero="undef"
2115 $ perl_d_bzero="define"
2118 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
2124 $ WS "#include <stdlib.h>
2126 $ WS "#include <stdio.h>
2127 $ WS "#include <strings.h>
2130 $ WS "char foo[10], bar[10];
2131 $ WS "bcopy(""foo"", bar, 3);
2135 $ DEFINE SYS$ERROR _NLA0:
2136 $ DEFINE SYS$OUTPUT _NLA0:
2137 $ on error then continue
2138 $ on warning then continue
2140 $ savedstatus = $status
2141 $ teststatus = f$extract(9,1,savedstatus)
2142 $ if (teststatus.nes."1")
2144 $ perl_d_bcopy="undef"
2145 $ DEASSIGN SYS$OUTPUT
2146 $ DEASSIGN SYS$ERROR
2148 $ If (Needs_Opt.eqs."Yes")
2150 $ link temp.obj,temp.opt/opt
2154 $ savedstatus = $status
2155 $ teststatus = f$extract(9,1,savedstatus)
2156 $ DEASSIGN SYS$OUTPUT
2157 $ DEASSIGN SYS$ERROR
2158 $ if (teststatus.nes."1")
2160 $ perl_d_bcopy="undef"
2162 $ perl_d_bcopy="define"
2165 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
2167 $! Check for mkstemp
2171 $ WS "#include <stdlib.h>
2173 $ WS "#include <stdio.h>
2176 $ WS "mkstemp(""foo"");
2180 $ DEFINE SYS$ERROR _NLA0:
2181 $ DEFINE SYS$OUTPUT _NLA0:
2182 $ on error then continue
2183 $ on warning then continue
2185 $ If (Needs_Opt.eqs."Yes")
2187 $ link temp.obj,temp.opt/opt
2191 $ savedstatus = $status
2192 $ teststatus = f$extract(9,1,savedstatus)
2193 $ DEASSIGN SYS$OUTPUT
2194 $ DEASSIGN SYS$ERROR
2195 $ if (teststatus.nes."1")
2197 $ perl_d_mkstemp="undef"
2199 $ perl_d_mkstemp="define"
2201 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
2203 $! Check for mkstemps
2207 $ WS "#include <stdlib.h>
2209 $ WS "#include <stdio.h>
2212 $ WS "mkstemps(""foo"", 1);
2216 $ DEFINE SYS$ERROR _NLA0:
2217 $ DEFINE SYS$OUTPUT _NLA0:
2218 $ on error then continue
2219 $ on warning then continue
2221 $ If (Needs_Opt.eqs."Yes")
2223 $ link temp.obj,temp.opt/opt
2227 $ savedstatus = $status
2228 $ teststatus = f$extract(9,1,savedstatus)
2229 $ DEASSIGN SYS$OUTPUT
2230 $ DEASSIGN SYS$ERROR
2231 $ if (teststatus.nes."1")
2233 $ perl_d_mkstemps="undef"
2235 $ perl_d_mkstemps="define"
2237 $ WRITE_RESULT "d_mkstemps is ''perl_d_mkstemps'"
2243 $ WS "#include <stdlib.h>
2245 $ WS "#include <stdio.h>
2246 $ WS "#include <iconv.h>
2249 $ WS " iconv_t cd = (iconv_t)0;"
2250 $ WS " char *inbuf, *outbuf;"
2251 $ WS " size_t inleft, outleft;"
2252 $ WS " iconv(cd, &inbuf, &inleft, &outbuf, &outleft);"
2256 $ DEFINE SYS$ERROR _NLA0:
2257 $ DEFINE SYS$OUTPUT _NLA0:
2258 $ on error then continue
2259 $ on warning then continue
2261 $ savedstatus = $status
2262 $ teststatus = f$extract(9,1,savedstatus)
2263 $ if (teststatus.nes."1")
2265 $ perl_d_iconv="undef"
2266 $ perl_i_iconv="undef"
2267 $ DEASSIGN SYS$OUTPUT
2268 $ DEASSIGN SYS$ERROR
2270 $ If (Needs_Opt.eqs."Yes")
2272 $ link temp.obj,temp.opt/opt
2276 $ savedstatus = $status
2277 $ teststatus = f$extract(9,1,savedstatus)
2278 $ DEASSIGN SYS$OUTPUT
2279 $ DEASSIGN SYS$ERROR
2280 $ if (teststatus.nes."1")
2282 $ perl_d_iconv="undef"
2283 $ perl_i_iconv="undef"
2285 $ perl_d_iconv="define"
2286 $ perl_i_iconv="define"
2289 $ WRITE_RESULT "d_iconv is ''perl_d_iconv'"
2290 $ WRITE_RESULT "i_iconv is ''perl_i_iconv'"
2292 $! Check for mkdtemp
2296 $ WS "#include <stdlib.h>
2298 $ WS "#include <stdio.h>
2301 $ WS "mkdtemp(""foo"");
2305 $ DEFINE SYS$ERROR _NLA0:
2306 $ DEFINE SYS$OUTPUT _NLA0:
2307 $ on error then continue
2308 $ on warning then continue
2310 $ If (Needs_Opt.eqs."Yes")
2312 $ link temp.obj,temp.opt/opt
2316 $ savedstatus = $status
2317 $ teststatus = f$extract(9,1,savedstatus)
2318 $ DEASSIGN SYS$OUTPUT
2319 $ DEASSIGN SYS$ERROR
2320 $ if (teststatus.nes."1")
2322 $ perl_d_mkdtemp="undef"
2324 $ perl_d_mkdtemp="define"
2326 $ WRITE_RESULT "d_mkdtemp is ''perl_d_mkdtemp'"
2328 $! Check for setvbuf
2332 $ WS "#include <stdlib.h>
2334 $ WS "#include <stdio.h>
2338 $ WS "char Buffer[99];
2339 $ WS "foo = fopen(""foo"", ""r"");
2340 $ WS "setvbuf(foo, Buffer, 0, 0);
2344 $ DEFINE SYS$ERROR _NLA0:
2345 $ DEFINE SYS$OUTPUT _NLA0:
2346 $ on error then continue
2347 $ on warning then continue
2349 $ If (Needs_Opt.eqs."Yes")
2351 $ link temp.obj,temp.opt/opt
2355 $ teststatus = f$extract(9,1,$status)
2356 $ DEASSIGN SYS$OUTPUT
2357 $ DEASSIGN SYS$ERROR
2358 $ if (teststatus.nes."1")
2360 $ perl_d_setvbuf="undef"
2362 $ perl_d_setvbuf="define"
2364 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
2370 $ WS "#include <stdlib.h>
2372 $ WS "#include <stdio.h>
2375 $ WS "setenv(""FOO"", ""BAR"", 0);
2379 $ DEFINE SYS$ERROR _NLA0:
2380 $ DEFINE SYS$OUTPUT _NLA0:
2381 $ on error then continue
2382 $ on warning then continue
2384 $ If (Needs_Opt.eqs."Yes")
2386 $ link temp,temp/opt
2390 $ teststatus = f$extract(9,1,$status)
2391 $ DEASSIGN SYS$OUTPUT
2392 $ DEASSIGN SYS$ERROR
2393 $ if (teststatus.nes."1")
2395 $ perl_d_setenv="undef"
2397 $ perl_d_setenv="define"
2399 $ WRITE_RESULT "d_setenv is ''perl_d_setenv'"
2401 $! Check for <netinet/in.h>
2403 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2407 $ WS "#include <stdlib.h>
2409 $ WS "#include <stdio.h>
2410 $ if ("''Has_Socketshr'".eqs."T")
2412 $ WS "#include <socketshr.h>"
2414 $ WS "#include <netdb.h>
2416 $ WS "#include <netinet/in.h>"
2422 $ DEFINE SYS$ERROR _NLA0:
2423 $ DEFINE SYS$OUTPUT _NLA0:
2424 $ on error then continue
2425 $ on warning then continue
2427 $ If (Needs_Opt.eqs."Yes")
2429 $ link temp.obj,temp.opt/opt
2433 $ teststatus = f$extract(9,1,$status)
2434 $ DEASSIGN SYS$OUTPUT
2435 $ DEASSIGN SYS$ERROR
2436 $ if (teststatus.nes."1")
2438 $ perl_i_niin="undef"
2440 $ perl_i_niin="define"
2443 $ perl_i_niin="undef"
2445 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
2447 $! Check for <netinet/tcp.h>
2449 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2453 $ WS "#include <stdlib.h>
2455 $ WS "#include <stdio.h>
2456 $ if ("''Has_Socketshr'".eqs."T")
2458 $ WS "#include <socketshr.h>"
2460 $ WS "#include <netdb.h>
2462 $ WS "#include <netinet/tcp.h>"
2468 $ DEFINE SYS$ERROR _NLA0:
2469 $ DEFINE SYS$OUTPUT _NLA0:
2470 $ on error then continue
2471 $ on warning then continue
2473 $ If (Needs_Opt.eqs."Yes")
2475 $ link temp.obj,temp.opt/opt
2479 $ teststatus = f$extract(9,1,$status)
2480 $ DEASSIGN SYS$OUTPUT
2481 $ DEASSIGN SYS$ERROR
2482 $ if (teststatus.nes."1")
2484 $ perl_i_netinettcp="undef"
2486 $ perl_i_netinettcp="define"
2489 $ perl_i_netinettcp="undef"
2491 $ WRITE_RESULT "i_netinettcp is ''perl_i_netinettcp'"
2493 $! Check for endhostent
2495 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2499 $ WS "#include <stdlib.h>
2501 $ WS "#include <stdio.h>
2502 $ if ("''Has_Socketshr'".eqs."T")
2504 $ WS "#include <socketshr.h>"
2506 $ WS "#include <netdb.h>
2514 $ DEFINE SYS$ERROR _NLA0:
2515 $ DEFINE SYS$OUTPUT _NLA0:
2516 $ on error then continue
2517 $ on warning then continue
2519 $ If (Needs_Opt.eqs."Yes")
2521 $ link temp.obj,temp.opt/opt
2525 $ teststatus = f$extract(9,1,$status)
2526 $ DEASSIGN SYS$OUTPUT
2527 $ DEASSIGN SYS$ERROR
2528 $ if (teststatus.nes."1")
2530 $ perl_d_endhent="undef"
2532 $ perl_d_endhent="define"
2535 $ perl_d_endhent="undef"
2537 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
2539 $! Check for endnetent
2541 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2545 $ WS "#include <stdlib.h>
2547 $ WS "#include <stdio.h>
2548 $ if ("''Has_Socketshr'".eqs."T")
2550 $ WS "#include <socketshr.h>"
2552 $ WS "#include <netdb.h>
2560 $ DEFINE SYS$ERROR _NLA0:
2561 $ DEFINE SYS$OUTPUT _NLA0:
2562 $ on error then continue
2563 $ on warning then continue
2565 $ If (Needs_Opt.eqs."Yes")
2567 $ link temp.obj,temp.opt/opt
2571 $ teststatus = f$extract(9,1,$status)
2572 $ DEASSIGN SYS$OUTPUT
2573 $ DEASSIGN SYS$ERROR
2574 $ if (teststatus.nes."1")
2576 $ perl_d_endnent="undef"
2578 $ perl_d_endnent="define"
2581 $ perl_d_endnent="undef"
2583 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
2585 $! Check for endprotoent
2587 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2591 $ WS "#include <stdlib.h>
2593 $ WS "#include <stdio.h>
2594 $ if ("''Has_Socketshr'".eqs."T")
2596 $ WS "#include <socketshr.h>"
2598 $ WS "#include <netdb.h>
2602 $ WS "endprotoent();
2606 $ DEFINE SYS$ERROR _NLA0:
2607 $ DEFINE SYS$OUTPUT _NLA0:
2608 $ on error then continue
2609 $ on warning then continue
2611 $ If (Needs_Opt.eqs."Yes")
2613 $ link temp.obj,temp.opt/opt
2617 $ teststatus = f$extract(9,1,$status)
2618 $ DEASSIGN SYS$OUTPUT
2619 $ DEASSIGN SYS$ERROR
2620 $ if (teststatus.nes."1")
2622 $ perl_d_endpent="undef"
2624 $ perl_d_endpent="define"
2627 $ perl_d_endpent="undef"
2629 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
2631 $! Check for endservent
2633 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2637 $ WS "#include <stdlib.h>
2639 $ WS "#include <stdio.h>
2640 $ if ("''Has_Socketshr'".eqs."T")
2642 $ WS "#include <socketshr.h>"
2644 $ WS "#include <netdb.h>
2652 $ DEFINE SYS$ERROR _NLA0:
2653 $ DEFINE SYS$OUTPUT _NLA0:
2654 $ on error then continue
2655 $ on warning then continue
2657 $ If (Needs_Opt.eqs."Yes")
2659 $ link temp.obj,temp.opt/opt
2663 $ teststatus = f$extract(9,1,$status)
2664 $ DEASSIGN SYS$OUTPUT
2665 $ DEASSIGN SYS$ERROR
2666 $ if (teststatus.nes."1")
2668 $ perl_d_endsent="undef"
2670 $ perl_d_endsent="define"
2673 $ perl_d_endsent="undef"
2675 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
2677 $! Check for sethostent
2679 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2683 $ WS "#include <stdlib.h>
2685 $ WS "#include <stdio.h>
2686 $ if ("''Has_Socketshr'".eqs."T")
2688 $ WS "#include <socketshr.h>"
2690 $ WS "#include <netdb.h>
2694 $ WS "sethostent(1);
2698 $ DEFINE SYS$ERROR _NLA0:
2699 $ DEFINE SYS$OUTPUT _NLA0:
2700 $ on error then continue
2701 $ on warning then continue
2703 $ If (Needs_Opt.eqs."Yes")
2705 $ link temp.obj,temp.opt/opt
2709 $ teststatus = f$extract(9,1,$status)
2710 $ DEASSIGN SYS$OUTPUT
2711 $ DEASSIGN SYS$ERROR
2712 $ if (teststatus.nes."1")
2714 $ perl_d_sethent="undef"
2716 $ perl_d_sethent="define"
2719 $ perl_d_sethent="undef"
2721 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
2723 $! Check for setnetent
2725 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2729 $ WS "#include <stdlib.h>
2731 $ WS "#include <stdio.h>
2732 $ if ("''Has_Socketshr'".eqs."T")
2734 $ WS "#include <socketshr.h>"
2736 $ WS "#include <netdb.h>
2744 $ DEFINE SYS$ERROR _NLA0:
2745 $ DEFINE SYS$OUTPUT _NLA0:
2746 $ on error then continue
2747 $ on warning then continue
2749 $ If (Needs_Opt.eqs."Yes")
2751 $ link temp.obj,temp.opt/opt
2755 $ teststatus = f$extract(9,1,$status)
2756 $ DEASSIGN SYS$OUTPUT
2757 $ DEASSIGN SYS$ERROR
2758 $ if (teststatus.nes."1")
2760 $ perl_d_setnent="undef"
2762 $ perl_d_setnent="define"
2765 $ perl_d_setnent="undef"
2767 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
2769 $! Check for setprotoent
2771 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2775 $ WS "#include <stdlib.h>
2777 $ WS "#include <stdio.h>
2778 $ if ("''Has_Socketshr'".eqs."T")
2780 $ WS "#include <socketshr.h>"
2782 $ WS "#include <netdb.h>
2786 $ WS "setprotoent(1);
2790 $ DEFINE SYS$ERROR _NLA0:
2791 $ DEFINE SYS$OUTPUT _NLA0:
2792 $ on error then continue
2793 $ on warning then continue
2795 $ If (Needs_Opt.eqs."Yes")
2797 $ link temp.obj,temp.opt/opt
2801 $ teststatus = f$extract(9,1,$status)
2802 $ DEASSIGN SYS$OUTPUT
2803 $ DEASSIGN SYS$ERROR
2804 $ if (teststatus.nes."1")
2806 $ perl_d_setpent="undef"
2808 $ perl_d_setpent="define"
2811 $ perl_d_setpent="undef"
2813 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
2815 $! Check for setservent
2817 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2821 $ WS "#include <stdlib.h>
2823 $ WS "#include <stdio.h>
2824 $ if ("''Has_Socketshr'".eqs."T")
2826 $ WS "#include <socketshr.h>"
2828 $ WS "#include <netdb.h>
2832 $ WS "setservent(1);
2836 $ DEFINE SYS$ERROR _NLA0:
2837 $ DEFINE SYS$OUTPUT _NLA0:
2838 $ on error then continue
2839 $ on warning then continue
2841 $ If (Needs_Opt.eqs."Yes")
2843 $ link temp.obj,temp.opt/opt
2847 $ teststatus = f$extract(9,1,$status)
2848 $ DEASSIGN SYS$OUTPUT
2849 $ DEASSIGN SYS$ERROR
2850 $ if (teststatus.nes."1")
2852 $ perl_d_setsent="undef"
2854 $ perl_d_setsent="define"
2857 $ perl_d_setsent="undef"
2859 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
2861 $! Check for gethostent
2863 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2867 $ WS "#include <stdlib.h>
2869 $ WS "#include <stdio.h>
2870 $ if ("''Has_Socketshr'".eqs."T")
2872 $ WS "#include <socketshr.h>"
2874 $ WS "#include <netdb.h>
2882 $ DEFINE SYS$ERROR _NLA0:
2883 $ DEFINE SYS$OUTPUT _NLA0:
2884 $ on error then continue
2885 $ on warning then continue
2887 $ If (Needs_Opt.eqs."Yes")
2889 $ link temp.obj,temp.opt/opt
2893 $ teststatus = f$extract(9,1,$status)
2894 $ DEASSIGN SYS$OUTPUT
2895 $ DEASSIGN SYS$ERROR
2896 $ if (teststatus.nes."1")
2898 $ perl_d_gethent="undef"
2900 $ perl_d_gethent="define"
2903 $ perl_d_gethent="undef"
2905 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
2907 $! Check for getnetent
2909 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2913 $ WS "#include <stdlib.h>
2915 $ WS "#include <stdio.h>
2916 $ if ("''Has_Socketshr'".eqs."T")
2918 $ WS "#include <socketshr.h>"
2920 $ WS "#include <netdb.h>
2928 $ DEFINE SYS$ERROR _NLA0:
2929 $ DEFINE SYS$OUTPUT _NLA0:
2930 $ on error then continue
2931 $ on warning then continue
2933 $ If (Needs_Opt.eqs."Yes")
2935 $ link temp.obj,temp.opt/opt
2939 $ teststatus = f$extract(9,1,$status)
2940 $ DEASSIGN SYS$OUTPUT
2941 $ DEASSIGN SYS$ERROR
2942 $ if (teststatus.nes."1")
2944 $ perl_d_getnent="undef"
2946 $ perl_d_getnent="define"
2949 $ perl_d_getnent="undef"
2951 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
2953 $! Check for getprotoent
2955 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2959 $ WS "#include <stdlib.h>
2961 $ WS "#include <stdio.h>
2962 $ if ("''Has_Socketshr'".eqs."T")
2964 $ WS "#include <socketshr.h>"
2966 $ WS "#include <netdb.h>
2970 $ WS "getprotoent();
2974 $ DEFINE SYS$ERROR _NLA0:
2975 $ DEFINE SYS$OUTPUT _NLA0:
2976 $ on error then continue
2977 $ on warning then continue
2979 $ If (Needs_Opt.eqs."Yes")
2981 $ link temp.obj,temp.opt/opt
2985 $ teststatus = f$extract(9,1,$status)
2986 $ DEASSIGN SYS$OUTPUT
2987 $ DEASSIGN SYS$ERROR
2988 $ if (teststatus.nes."1")
2990 $ perl_d_getpent="undef"
2992 $ perl_d_getpent="define"
2995 $ perl_d_getpent="undef"
2997 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
2999 $! Check for getservent
3001 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
3005 $ WS "#include <stdlib.h>
3007 $ WS "#include <stdio.h>
3008 $ if ("''Has_Socketshr'".eqs."T")
3010 $ WS "#include <socketshr.h>"
3012 $ WS "#include <netdb.h>
3020 $ DEFINE SYS$ERROR _NLA0:
3021 $ DEFINE SYS$OUTPUT _NLA0:
3022 $ on error then continue
3023 $ on warning then continue
3025 $ If (Needs_Opt.eqs."Yes")
3027 $ link temp.obj,temp.opt/opt
3031 $ teststatus = f$extract(9,1,$status)
3032 $ DEASSIGN SYS$OUTPUT
3033 $ DEASSIGN SYS$ERROR
3034 $ if (teststatus.nes."1")
3036 $ perl_d_getsent="undef"
3038 $ perl_d_getsent="define"
3041 $ perl_d_getsent="undef"
3043 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
3045 $! Check for socklen_t
3047 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
3051 $ WS "#include <stdlib.h>
3053 $ WS "#include <stdio.h>
3054 $ IF ("''Has_Socketshr'".eqs."T")
3056 $ WS "#include <socketshr.h>"
3058 $ WS "#include <netdb.h>
3062 $ WS "socklen_t x = 16;
3066 $ DEFINE SYS$ERROR _NLA0:
3067 $ DEFINE SYS$OUTPUT _NLA0:
3068 $ on error then continue
3069 $ on warning then continue
3071 $ If (Needs_Opt.eqs."Yes")
3073 $ link temp.obj,temp.opt/opt
3077 $ teststatus = f$extract(9,1,$status)
3078 $ DEASSIGN SYS$OUTPUT
3079 $ DEASSIGN SYS$ERROR
3080 $ if (teststatus.nes."1")
3082 $ perl_d_socklen_t="undef"
3084 $ perl_d_socklen_t="define"
3087 $ perl_d_socklen_t="undef"
3089 $ WRITE_RESULT "d_socklen_t is ''perl_d_socklen_t'"
3091 $! Check for pthread_yield
3093 $ if ("''use_threads'".eqs."T")
3097 $ WS "#include <stdlib.h>
3099 $ WS "#include <pthread.h>
3100 $ WS "#include <stdio.h>
3103 $ WS "pthread_yield();
3107 $ DEFINE SYS$ERROR _NLA0:
3108 $ DEFINE SYS$OUTPUT _NLA0:
3109 $ on error then continue
3110 $ on warning then continue
3112 $ teststatus = f$extract(9,1,$status)
3113 $ DEASSIGN SYS$OUTPUT
3114 $ DEASSIGN SYS$ERROR
3115 $ if (teststatus.nes."1")
3117 $ perl_d_pthread_yield="undef"
3119 $ perl_d_pthread_yield="define"
3122 $ perl_d_pthread_yield="undef"
3124 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
3126 $! Check for sched_yield
3128 $ if ("''use_threads'".eqs."T")
3132 $ WS "#include <stdlib.h>
3134 $ WS "#include <pthread.h>
3135 $ WS "#include <stdio.h>
3138 $ WS "sched_yield();
3142 $ DEFINE SYS$ERROR _NLA0:
3143 $ DEFINE SYS$OUTPUT _NLA0:
3144 $ on error then continue
3145 $ on warning then continue
3147 $ teststatus = f$extract(9,1,$status)
3148 $ DEASSIGN SYS$OUTPUT
3149 $ DEASSIGN SYS$ERROR
3150 $ if (teststatus.nes."1")
3152 $ perl_d_sched_yield="undef"
3153 $ perl_sched_yield = " "
3155 $ perl_d_sched_yield="define"
3156 $ perl_sched_yield = "sched_yield"
3159 $ perl_d_sched_yield="undef"
3160 $ perl_sched_yield = " "
3162 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
3163 $ WRITE_RESULT "sched_yield is ''perl_sched_yield'"
3165 $! Check for generic pointer size
3169 $ WS "#include <stdlib.h>
3171 $ WS "#include <stdio.h>
3175 $ WS "foo = sizeof(char *);
3176 $ WS "printf(""%d\n"", foo);
3180 $ DEFINE SYS$ERROR _NLA0:
3181 $ DEFINE SYS$OUTPUT _NLA0:
3182 $ ON ERROR THEN CONTINUE
3183 $ ON WARNING THEN CONTINUE
3185 $ If (Needs_Opt.eqs."Yes")
3187 $ link temp.obj,temp.opt/opt
3191 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3192 $ DEASSIGN SYS$OUTPUT
3193 $ DEASSIGN SYS$ERROR
3194 $ DEFINE SYS$ERROR TEMPOUT
3195 $ DEFINE SYS$OUTPUT TEMPOUT
3198 $ DEASSIGN SYS$OUTPUT
3199 $ DEASSIGN SYS$ERROR
3200 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3203 $ DELETE/NOLOG [-.uu]tempout.lis;
3206 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
3208 $! Check rand48 and its ilk
3212 $ WS "#include <stdlib.h>
3214 $ WS "#include <stdio.h>
3217 $ WS "srand48(12L);"
3222 $ DEFINE SYS$ERROR _NLA0:
3223 $ DEFINE SYS$OUTPUT _NLA0:
3224 $ ON ERROR THEN CONTINUE
3225 $ ON WARNING THEN CONTINUE
3227 $ If (Needs_Opt.eqs."Yes")
3229 $ link temp,temp.opt/opt
3233 $ teststatus = f$extract(9,1,$status)
3234 $ DEASSIGN SYS$OUTPUT
3235 $ DEASSIGN SYS$ERROR
3236 $ if (teststatus.nes."1")
3238 $ perl_drand01="random()"
3239 $ perl_randseedtype = "unsigned"
3240 $ perl_seedfunc = "srandom"
3244 $ WS "#include <stdlib.h>
3246 $ WS "#include <stdio.h>
3253 $! copy temp.c sys$output
3255 $ DEFINE SYS$ERROR _NLA0:
3256 $ DEFINE SYS$OUTPUT _NLA0:
3257 $ ON ERROR THEN CONTINUE
3258 $ ON WARNING THEN CONTINUE
3260 $ If (Needs_Opt.eqs."Yes")
3262 $ link temp,temp.opt/opt
3266 $ teststatus = f$extract(9,1,$status)
3267 $ DEASSIGN SYS$OUTPUT
3268 $ DEASSIGN SYS$ERROR
3269 $ if (teststatus.nes."1")
3271 $ perl_drand01="(((float)rand())/((float)RAND_MAX))"
3272 $ perl_randseedtype = "unsigned"
3273 $ perl_seedfunc = "srand"
3275 $ WRITE_RESULT "drand01 is ''perl_drand01'"
3278 $! Done with compiler checks. Clean up.
3279 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
3280 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
3281 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
3282 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
3285 $! Some that are compiler or VMS version sensitive
3288 $ IF "''Using_Gnu_C'".EQS."Yes"
3290 $ perl_d_attribut="define"
3291 $ perl_vms_cc_type="gcc"
3293 $ perl_vms_cc_type="cc"
3294 $ perl_d_attribut="undef"
3297 $! Dec C >= 5.2 and VMS ver >= 7.0
3298 $ IF (Using_Dec_C).AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.(VMS_VER .GES. "7.0")
3300 $ perl_d_bcmp="define"
3301 $ perl_d_gettimeod="define"
3302 $ perl_d_uname="define"
3303 $ perl_d_sigaction="define"
3304 $ perl_d_truncate="define"
3305 $ perl_d_wait4="define"
3306 $ perl_d_index="define"
3307 $ perl_pidtype="pid_t"
3308 $ 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"
3309 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3310 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
3311 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
3312 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
3313 $ 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"
3314 $ 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"
3315 $ perl_sig_num_with_commas=perl_sig_num_init
3316 $ perl_uidtype="uid_t"
3317 $ perl_d_pathconf="define"
3318 $ perl_d_fpathconf="define"
3319 $ perl_d_sysconf="define"
3320 $ perl_d_sigsetjmp="define"
3322 $ perl_pidtype="unsigned int"
3323 $ perl_d_gettimeod="undef"
3324 $ perl_d_bcmp="undef"
3325 $ perl_d_uname="undef"
3326 $ perl_d_sigaction="undef"
3327 $ perl_d_truncate="undef"
3328 $ perl_d_wait4="undef"
3329 $ perl_d_index="undef"
3330 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
3331 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3332 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
3333 $ perl_sig_name_with_commas = psnwc1 + psnwc2
3334 $ perl_sig_num="0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 6 16 17"",0"
3335 $ perl_sig_num_init="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
3336 $ perl_sig_num_with_commas=perl_sig_num_init
3337 $ perl_uidtype="unsigned int"
3338 $ perl_d_pathconf="undef"
3339 $ perl_d_fpathconf="undef"
3340 $ perl_d_sysconf="undef"
3341 $ perl_d_sigsetjmp="undef"
3345 $ IF ("''Using_Dec_C'".EQS."Yes")
3347 $ perl_d_mbstowcs="define"
3348 $ perl_d_mbtowc="define"
3349 $ perl_d_stdiobase="define"
3350 $ perl_d_stdio_ptr_lval="define"
3351 $ perl_d_stdio_cnt_lval="define"
3352 $ perl_d_stdstdio="define"
3353 $ perl_d_wcstombs="define"
3354 $ perl_d_mblen="define"
3355 $ perl_d_mktime="define"
3356 $ perl_d_strcoll="define"
3357 $ perl_d_strxfrm="define"
3358 $ perl_d_wctomb="define"
3359 $ perl_i_locale="define"
3360 $ perl_d_locconv="define"
3361 $ perl_d_setlocale="define"
3362 $ perl_vms_cc_type="decc"
3364 $ perl_d_mbstowcs="undef"
3365 $ perl_d_mbtowc="undef"
3366 $ perl_d_stdiobase="undef"
3367 $ perl_d_stdio_ptr_lval="undef"
3368 $ perl_d_stdio_cnt_lval="undef"
3369 $ perl_d_stdstdio="undef"
3370 $ perl_d_wcstombs="undef"
3371 $ perl_d_mblen="undef"
3372 $ perl_d_mktime="undef"
3373 $ perl_d_strcoll="undef"
3374 $ perl_d_strxfrm="undef"
3375 $ perl_d_wctomb="undef"
3376 $ perl_i_locale="undef"
3377 $ perl_d_locconv="undef"
3378 $ perl_d_setlocale="undef"
3382 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
3384 $ perl_d_vms_do_sockets="define"
3385 $ perl_d_htonl="define"
3386 $ perl_d_socket="define"
3387 $ perl_d_select="define"
3388 $ perl_netdb_host_type="char *"
3389 $ perl_netdb_hlen_type="int"
3390 $ perl_netdb_name_type="char *"
3391 $ perl_netdb_net_type="long"
3392 $ perl_d_gethbyaddr="define"
3393 $ perl_d_gethbyname="define"
3394 $ perl_d_getnbyaddr="define"
3395 $ perl_d_getnbyname="define"
3396 $ perl_d_getpbynumber="define"
3397 $ perl_d_getpbyname="define"
3398 $ perl_d_getsbyport="define"
3399 $ perl_d_getsbyname="define"
3400 $ perl_d_gethostprotos="define"
3401 $ perl_d_getnetprotos="define"
3402 $ perl_d_getprotoprotos="define"
3403 $ perl_d_getservprotos="define"
3404 $ IF ("''Using_Dec_C'".EQS."Yes")
3406 $ perl_socksizetype="unsigned int"
3408 $ perl_socksizetype="int *"
3411 $ perl_d_vms_do_sockets="undef"
3412 $ perl_d_htonl="undef"
3413 $ perl_d_socket="undef"
3414 $ perl_d_select="undef"
3415 $ perl_netdb_host_type="char *"
3416 $ perl_netdb_hlen_type="int"
3417 $ perl_netdb_name_type="char *"
3418 $ perl_netdb_net_type="long"
3419 $ perl_d_gethbyaddr="undef"
3420 $ perl_d_gethbyname="undef"
3421 $ perl_d_getnbyaddr="undef"
3422 $ perl_d_getnbyname="undef"
3423 $ perl_d_getpbynumber="undef"
3424 $ perl_d_getpbyname="undef"
3425 $ perl_d_getsbyport="undef"
3426 $ perl_d_getsbyname="undef"
3427 $ perl_d_gethostprotos="undef"
3428 $ perl_d_getnetprotos="undef"
3429 $ perl_d_getprotoprotos="undef"
3430 $ perl_d_getservprotos="undef"
3431 $ perl_socksizetype="undef"
3436 $ perl_usethreads="define"
3437 $ perl_d_pthreads_created_joinable="define"
3438 $ if (VMS_VER .GES. "7.0")
3440 $ perl_d_oldpthreads="undef"
3442 $ perl_d_oldpthreads="define"
3445 $ perl_d_oldpthreads="undef"
3446 $ perl_usethreads="undef"
3448 $ perl_d_pthreads_created_joinable="undef"
3451 $! new (5.005_62++) typedefs for primitives
3453 $ perl_ivtype="long"
3454 $ perl_uvtype="unsigned long"
3455 $ perl_i8type="char"
3456 $ perl_u8type="unsigned char"
3457 $ perl_i16type="short"
3458 $ perl_u16type="unsigned short"
3459 $ perl_i32type="int"
3460 $ perl_u32type="unsigned int"
3461 $ perl_i64type="long long"
3462 $ perl_u64type="unsigned long long"
3463 $ perl_nvtype="double"
3465 $ GOTO beyond_type_size_check
3469 $! Check for type sizes
3473 $ WS "#include <stdlib.h>
3475 $ WS "#include <stdio.h>
3478 $ WS "printf(""%d\n"", sizeof(''type'));"
3482 $ DEFINE SYS$ERROR _NLA0:
3483 $ DEFINE SYS$OUTPUT _NLA0:
3484 $ ON ERROR THEN CONTINUE
3485 $ ON WARNING THEN CONTINUE
3487 $ If (Needs_Opt.eqs."Yes")
3489 $ link temp.obj,temp.opt/opt
3493 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3494 $ DEASSIGN SYS$OUTPUT
3495 $ DEASSIGN SYS$ERROR
3496 $ DEFINE SYS$ERROR TEMPOUT
3497 $ DEFINE SYS$OUTPUT TEMPOUT
3500 $ DEASSIGN SYS$OUTPUT
3501 $ DEASSIGN SYS$ERROR
3502 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3505 $ DELETE/NOLOG [-.uu]tempout.lis;
3506 $ WRITE_RESULT "''size_name' is ''line'"
3510 $beyond_type_size_check:
3513 $ type = "''perl_ivtype'"
3514 $ size_name = "ivsize"
3515 $ gosub type_size_check
3516 $ perl_ivsize="''line'"
3517 $ IF type .eqs. "long"
3518 $ THEN perl_longsize = "''line'"
3521 $ size_name = "longsize"
3522 $ gosub type_size_check
3523 $ perl_longsize="''line'"
3526 $ type = "''perl_uvtype'"
3527 $ size_name = "uvsize"
3528 $ gosub type_size_check
3529 $ perl_uvsize="''line'"
3531 $ type = "''perl_i8type'"
3532 $ size_name = "i8size"
3533 $ gosub type_size_check
3534 $ perl_i8size="''line'"
3536 $ type = "''perl_u8type'"
3537 $ size_name = "u8size"
3538 $ gosub type_size_check
3539 $ perl_u8size="''line'"
3541 $ type = "''perl_i16type'"
3542 $ size_name = "i16size"
3543 $ gosub type_size_check
3544 $ perl_i16size="''line'"
3545 $ IF type .eqs. "short"
3546 $ THEN perl_shortsize="''line'"
3548 $ type = "''perl_i16type'"
3549 $ size_name = "shortsize"
3550 $ gosub type_size_check
3551 $ perl_shortsize="''line'"
3554 $ type = "''perl_u16type'"
3555 $ size_name = "u16size"
3556 $ gosub type_size_check
3557 $ perl_u16size="''line'"
3559 $ type = "''perl_i32type'"
3560 $ size_name = "i32size"
3561 $ gosub type_size_check
3562 $ perl_i32size="''line'"
3563 $ IF type .eqs. "int"
3564 $ THEN perl_intsize="''perl_i32size'"
3567 $ size_name = "intsize"
3568 $ gosub type_size_check
3569 $ perl_intsize="''line'"
3572 $ type = "''perl_u32type'"
3573 $ size_name = "u32size"
3574 $ gosub type_size_check
3575 $ perl_u32size="''line'"
3579 $ type = "''perl_i64type'"
3580 $ size_name = "i64size"
3581 $ gosub type_size_check
3582 $ perl_i64size="''line'"
3583 $ perl_ivtype="''perl_i64type'"
3585 $ type = "''perl_u64type'"
3586 $ size_name = "u64size"
3587 $ gosub type_size_check
3588 $ perl_u64size="''line'"
3589 $ perl_uvtype="''perl_u64type'"
3590 $ perl_nvtype="long double"
3592 $ perl_i64size="undef"
3593 $ perl_u64size="undef"
3596 $ perl_ivdformat="""ld"""
3597 $ perl_uvuformat="""lu"""
3598 $ perl_uvoformat="""lo"""
3599 $ perl_uvxformat="""lx"""
3601 $! Finally the composite ones. All config
3602 $ perl_installarchlib="''perl_prefix':[lib.''archname'.''version']"
3603 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''archname']"
3604 $ perl_myhostname="''myhostname'"
3605 $ perl_mydomain="''mydomain'"
3606 $ perl_perladmin="''perladmin'"
3607 $ perl_myuname:="''osname' ''myname' ''osvers' ''f$edit(hwname, "TRIM")'"
3608 $ perl_archlibexp="''perl_prefix':[lib.''archname'.''version']"
3609 $ perl_archlib="''perl_prefix':[lib.''archname'.''version']"
3610 $ perl_oldarchlibexp="''perl_prefix':[lib.''archname']"
3611 $ perl_oldarchlib="''perl_prefix':[lib.''archname']"
3612 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''archname']"
3613 $ perl_sitearch="''perl_prefix':[lib.site_perl.''archname']"
3616 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
3618 $ if use_vmsdebug_perl .eqs. "Y"
3620 $ perl_optimize="/Debug/NoOpt"
3621 $ perl_dbgprefix = "DBG"
3624 $ perl_dbgprefix = ""
3627 $! Okay, we've got everything configured. Now go write out a config.sh.
3628 $ echo4 "Creating config.sh..."
3629 $ open/write CONFIG [-]config.sh
3630 $ WC := "write CONFIG"
3632 $ WC "# This file generated by Configure.COM on a VMS system."
3633 $ WC "# Time: " + cf_time
3635 $ WC "CONFIGDOTSH=true"
3636 $ WC "package='" + perl_package + "'"
3637 $ WC "config_args='" + config_args + "'"
3638 $ WC "d_nv_preserves_uv='" + perl_d_nv_preserves_uv + "'"
3639 $ WC "use5005threads='" + perl_use5005threads + "'"
3640 $ WC "useithreads='" + perl_useithreads + "'"
3641 $ WC "CONFIG='" + perl_config + "'"
3642 $ WC "cf_time='" + cf_time + "'"
3643 $ WC "cf_by='" + cf_by + "'"
3644 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
3645 $ WC "ccdlflags='" + perl_ccdlflags + "'"
3646 $ WC "cccdlflags='" + perl_cccdlflags + "'"
3647 $ WC "mab='" + perl_mab + "'"
3648 $ WC "libpth='" + perl_libpth + "'"
3649 $ WC "ld='" + perl_ld + "'"
3650 $ WC "lddlflags='" + perl_lddlflags + "'"
3651 $ WC "ranlib='" + perl_ranlib + "'"
3652 $ WC "ar='" + perl_ar + "'"
3653 $ WC "full_ar='" + perl_full_ar + "'"
3654 $ WC "eunicefix='" + perl_eunicefix + "'"
3655 $ WC "hint='" + perl_hint +"'"
3656 $ WC "hintfile='" + perl_hintfile + "'"
3657 $ WC "shrplib='" + perl_shrplib + "'"
3658 $ WC "usemymalloc='" + perl_usemymalloc + "'"
3659 $ WC "usevfork='" + perl_usevfork + "'"
3660 $ WC "useposix='false'"
3661 $ WC "spitshell='write sys$output '"
3662 $ WC "dlsrc='dl_vms.c'"
3663 $ WC "binexp='" + perl_binexp + "'"
3664 $ WC "man1ext='" + perl_man1ext + "'"
3665 $ WC "man3ext='" + perl_man3ext + "'"
3666 $ WC "archname='" + archname + "'"
3667 $ WC "osvers='" + osvers + "'"
3668 $ WC "prefix='" + perl_prefix + "'"
3669 $ WC "builddir='" + perl_builddir + "'"
3670 $ WC "installbin='" + perl_installbin + "'"
3671 $ WC "installscript='" + perl_installscript + "'"
3672 $ WC "installman1dir='" + perl_installman1dir + "'"
3673 $ WC "installman3dir='" + perl_installman3dir + "'"
3674 $ WC "installprivlib='" + perl_installprivlib + "'"
3675 $ WC "installarchlib='" + perl_installarchlib + "'"
3676 $ WC "installsitelib='" + perl_installsitelib + "'"
3677 $ WC "installsitearch='" + perl_installsitearch + "'"
3678 $ WC "path_sep='" + perl_path_sep + "'"
3679 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
3680 $ WC "d_attribut='" + perl_d_attribut + "'"
3681 $ WC "cc='" + perl_cc + "'"
3682 $ WC "ccflags='" + perl_ccflags + "'"
3683 $ WC "optimize='" + perl_optimize + "'"
3684 $ WC "dbgprefix='" + perl_dbgprefix + "'"
3685 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
3686 $ WC "d_socket='" + perl_d_socket + "'"
3687 $ WC "d_sockpair='" + perl_d_sockpair + "'"
3688 $ WC "d_gethent='" + perl_d_gethent + "'"
3689 $ WC "d_getsent='" + perl_d_getsent + "'"
3690 $ WC "d_socklen_t='" + perl_d_socklen_t + "'"
3691 $ WC "d_select='" + perl_d_select + "'"
3692 $ WC "i_niin='" + perl_i_niin + "'"
3693 $ WC "i_netinettcp='" + perl_i_netinettcp + "'"
3694 $ WC "i_neterrno='" + perl_i_neterrno + "'"
3695 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
3696 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
3697 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
3698 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
3699 $ WC "d_locconv='" + perl_d_locconv + "'"
3700 $ WC "d_setlocale='" + perl_d_setlocale + "'"
3701 $ WC "i_locale='" + perl_i_locale + "'"
3702 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
3703 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
3704 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
3705 $ WC "d_wctomb='" + perl_d_wctomb + "'"
3706 $ WC "d_mblen='" + perl_d_mblen + "'"
3707 $ WC "d_mktime='" + perl_d_mktime + "'"
3708 $ WC "d_strcoll='" + perl_d_strcoll + "'"
3709 $ WC "d_strxfrm='" + perl_d_strxfrm + "'"
3710 $ WC "ldflags='" + perl_ldflags + "'"
3711 $ WC "dlobj='" + perl_dlobj + "'"
3712 $ WC "obj_ext='" + perl_obj_ext + "'"
3713 $ WC "so='" + perl_so + "'"
3714 $ WC "dlext='" + perl_dlext + "'"
3715 $ WC "exe_ext='" + perl_exe_ext + "'"
3716 $ WC "lib_ext='" + perl_lib_ext + "'"
3717 $ WC "myhostname='" + perl_myhostname + "'"
3718 $ WC "mydomain='" + perl_mydomain + "'"
3719 $ WC "perladmin='" + perl_perladmin + "'"
3720 $ WC "cf_email='" + cf_email + "'"
3721 $ WC "myuname='" + perl_myuname + "'"
3722 $ WC "alignbytes='" + alignbytes + "'"
3723 $ WC "osname='" + perl_osname + "'"
3724 $ WC "d_archlib='" + perl_d_archlib + "'"
3725 $ WC "archlibexp='" + perl_archlibexp + "'"
3726 $ WC "archlib='" + perl_archlib + "'"
3727 $ WC "archname='" + archname + "'"
3728 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
3729 $ WC "cppstdin='" + perl_cppstdin + "'"
3730 $ WC "cppminus='" + perl_cppminus + "'"
3731 $ WC "cpprun='" + perl_cpprun + "'"
3732 $ WC "cpplast='" + perl_cpplast + "'"
3733 $ WC "d_bcmp='" + perl_d_bcmp + "'"
3734 $ WC "d_bcopy='" + perl_d_bcopy + "'"
3735 $ WC "d_bzero='" + perl_d_bzero + "'"
3736 $ WC "d_castneg='" + perl_d_castneg + "'"
3737 $ WC "castflags='" + perl_castflags + "'"
3738 $ WC "d_chsize='" + perl_d_chsize + "'"
3739 $ WC "d_const='" + perl_d_const + "'"
3740 $ WC "d_crypt='" + perl_d_crypt + "'"
3741 $ WC "byteorder='" + perl_byteorder + "'"
3742 $ WC "full_csh='" + perl_full_csh + "'"
3743 $ WC "d_csh='" + perl_d_csh + "'"
3744 $ WC "d_dup2='" + perl_d_dup2 + "'"
3745 $ WC "d_fchmod='" + perl_d_fchmod + "'"
3746 $ WC "d_fchown='" + perl_d_fchown + "'"
3747 $ WC "d_fcntl='" + perl_d_fcntl + "'"
3748 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
3749 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
3750 $ WC "d_flock='" + perl_d_flock + "'"
3751 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
3752 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
3753 $ WC "d_getgrps='" + perl_d_getgrps + "'"
3754 $ WC "d_setgrps='" + perl_d_setgrps + "'"
3755 $ WC "groupstype='" + perl_groupstype + "'"
3756 $ WC "d_uname='" + perl_d_uname + "'"
3757 $ WC "d_getprior='" + perl_d_getprior + "'"
3758 $ WC "d_killpg='" + perl_d_killpg + "'"
3759 $ WC "d_link='" + perl_d_link + "'"
3760 $ WC "d_lstat='" + perl_d_lstat + "'"
3761 $ WC "d_lockf='" + perl_d_lockf + "'"
3762 $ WC "d_memcmp='" + perl_d_memcmp + "'"
3763 $ WC "d_memcpy='" + perl_d_memcpy + "'"
3764 $ WC "d_memmove='" + perl_d_memmove + "'"
3765 $ WC "d_memset='" + perl_d_memset + "'"
3766 $ WC "d_mkdir='" + perl_d_mkdir + "'"
3767 $ WC "d_msg='" + perl_d_msg + "'"
3768 $ WC "d_open3='" + perl_d_open3 + "'"
3769 $ WC "d_poll='" + perl_d_poll + "'"
3770 $ WC "d_readdir='" + perl_d_readdir + "'"
3771 $ WC "d_seekdir='" + perl_d_seekdir + "'"
3772 $ WC "d_telldir='" + perl_d_telldir + "'"
3773 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
3774 $ WC "d_rename='" + perl_d_rename + "'"
3775 $ WC "d_rmdir='" + perl_d_rmdir + "'"
3776 $ WC "d_sem='" + perl_d_sem + "'"
3777 $ WC "d_setegid='" + perl_d_setegid + "'"
3778 $ WC "d_seteuid='" + perl_d_seteuid + "'"
3779 $ WC "d_setprior='" + perl_d_setprior + "'"
3780 $ WC "d_setregid='" + perl_d_setregid + "'"
3781 $ WC "d_setresgid='" + perl_d_setresgid + "'"
3782 $ WC "d_setreuid='" + perl_d_setreuid + "'"
3783 $ WC "d_setresuid='" + perl_d_setresuid + "'"
3784 $ WC "d_setrgid='" + perl_d_setrgid + "'"
3785 $ WC "d_setruid='" + perl_d_setruid + "'"
3786 $ WC "d_setsid='" + perl_d_setsid + "'"
3787 $ WC "d_shm='" + perl_d_shm + "'"
3788 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
3789 $ WC "shmattype='" + perl_shmattype + "'"
3790 $ WC "d_sigaction='" + perl_d_sigaction + "'"
3791 $ WC "d_statblks='" + perl_d_statblks + "'"
3792 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
3793 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
3794 $ WC "stdio_base='" + perl_stdio_base + "'"
3795 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
3796 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
3797 $ WC "d_strerror='" + perl_d_strerror + "'"
3798 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
3799 $ WC "d_strerrm='" + perl_d_strerrm + "'"
3800 $ WC "d_symlink='" + perl_d_symlink + "'"
3801 $ WC "d_syscall='" + perl_d_syscall + "'"
3802 $ WC "d_system='" + perl_d_system + "'"
3803 $ WC "timetype='" + perl_timetype + "'"
3804 $ WC "d_truncate='" + perl_d_truncate + "'"
3805 $ WC "d_vfork='" + perl_d_vfork + "'"
3806 $ WC "signal_t='" + perl_signal_t + "'"
3807 $ WC "d_volatile='" + perl_d_volatile + "'"
3808 $ WC "d_vprintf='" + perl_d_vprintf + "'"
3809 $ WC "d_charvspr='" + perl_d_charvspr + "'"
3810 $ WC "d_wait4='" + perl_d_wait4 + "'"
3811 $ WC "d_waitpid='" + perl_d_waitpid + "'"
3812 $ WC "i_dirent='" + perl_i_dirent + "'"
3813 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
3814 $ WC "direntrytype='" + perl_direntrytype + "'"
3815 $ WC "i_fcntl='" + perl_i_fcntl + "'"
3816 $ WC "i_grp='" + perl_i_grp + "'"
3817 $ WC "i_limits='" + perl_i_limits + "'"
3818 $ WC "i_memory='" + perl_i_memory + "'"
3819 $ WC "i_ndbm='" + perl_i_ndbm + "'"
3820 $ WC "i_stdarg='" + perl_i_stdarg + "'"
3821 $ WC "i_pwd='" + perl_i_pwd + "'"
3822 $ WC "d_pwquota='" + perl_d_pwquota + "'"
3823 $ WC "d_pwage='" + perl_d_pwage + "'"
3824 $ WC "d_pwchange='" + perl_d_pwchange + "'"
3825 $ WC "d_pwclass='" + perl_d_pwclass + "'"
3826 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
3827 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
3828 $ WC "i_stddef='" + perl_i_stddef + "'"
3829 $ WC "i_stdlib='" + perl_i_stdlib + "'"
3830 $ WC "i_string='" + perl_i_string + "'"
3831 $ WC "i_sysdir='" + perl_i_sysdir + "'"
3832 $ WC "i_sysfile='" + perl_i_sysfile + "'"
3833 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
3834 $ WC "i_sysndir='" + perl_i_sysndir + "'"
3835 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
3836 $ WC "i_sysselct='" + perl_i_sysselct + "'"
3837 $ WC "i_dbm='" + perl_i_dbm + "'"
3838 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
3839 $ WC "i_sfio='" + perl_i_sfio + "'"
3840 $ WC "i_sysstat='" + perl_i_sysstat + "'"
3841 $ WC "i_systimes='" + perl_i_systimes + "'"
3842 $ WC "i_systypes='" + perl_i_systypes + "'"
3843 $ WC "i_sysun='" + perl_i_sysun + "'"
3844 $ WC "i_syswait='" + perl_i_syswait + "'"
3845 $ WC "i_termio='" + perl_i_termio + "'"
3846 $ WC "i_sgtty='" + perl_i_sgtty + "'"
3847 $ WC "i_termios='" + perl_i_termios + "'"
3848 $ WC "i_time='" + perl_i_time + "'"
3849 $ WC "i_systime='" + perl_i_systime + "'"
3850 $ WC "i_systimek='" + perl_i_systimek + "'"
3851 $ WC "i_unistd='" + perl_i_unistd + "'"
3852 $ WC "i_utime='" + perl_i_utime + "'"
3853 $ WC "i_varargs='" + perl_i_varargs + "'"
3854 $ WC "i_vfork='" + perl_i_vfork + "'"
3855 $ WC "prototype='" + perl_prototype + "'"
3856 $ WC "randbits='" + perl_randbits +"'"
3857 $ WC "selecttype='" + perl_selecttype + "'"
3858 $ WC "selectminbits='" + perl_selectminbits + "'"
3859 $ WC "stdchar='" + perl_stdchar + "'"
3860 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
3861 $ WC "full_sed='" + perl_full_sed + "'"
3862 $ WC "bin='" + perl_bin + "'"
3863 $ WC "binexp='" + perl_binexp + "'"
3864 $ WC "d_alarm='" + perl_d_alarm + "'"
3865 $ WC "d_casti32='" + perl_d_casti32 + "'"
3866 $ WC "d_chown='" + perl_d_chown + "'"
3867 $ WC "d_chroot='" + perl_d_chroot + "'"
3868 $ WC "d_cuserid='" + perl_d_cuserid + "'"
3869 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
3870 $ WC "d_ldbl_dig='" + perl_d_ldbl_dig + "'"
3871 $ WC "d_difftime='" + perl_d_difftime + "'"
3872 $ WC "d_fork='" + perl_d_fork + "'"
3873 $ WC "d_getlogin='" + perl_d_getlogin + "'"
3874 $ WC "d_getppid='" + perl_d_getppid + "'"
3875 $ WC "d_htonl='" + perl_d_htonl + "'"
3876 $ WC "d_nice='" + perl_d_nice + "'"
3877 $ WC "d_pause='" + perl_d_pause + "'"
3878 $ WC "d_pipe='" + perl_d_pipe + "'"
3879 $ WC "d_readlink='" + perl_d_readlink + "'"
3880 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
3881 $ WC "d_strchr='" + perl_d_strchr + "'"
3882 $ WC "d_index='" + perl_d_index + "'"
3883 $ WC "d_strtod='" + perl_d_strtod + "'"
3884 $ WC "d_strtol='" + perl_d_strtol + "'"
3885 $ WC "d_strtoul='" + perl_d_strtoul + "'"
3886 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
3887 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
3888 $ WC "d_times='" + perl_d_times + "'"
3889 $ WC "d_tzname='" + perl_d_tzname + "'"
3890 $ WC "d_umask='" + perl_d_umask + "'"
3891 $ WC "fpostype='" + perl_fpostype + "'"
3892 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
3893 $ WC "i_float='" + perl_i_float + "'"
3894 $ WC "i_math='" + perl_i_math + "'"
3895 $ WC "intsize='" + perl_intsize + "'"
3896 $ WC "longsize='" + perl_longsize + "'"
3897 $ WC "shortsize='" + perl_shortsize + "'"
3898 $ WC "lseektype='" + perl_lseektype + "'"
3899 $ WC "lseeksize='4'"
3900 $ WC "i_values='" + perl_i_values + "'"
3901 $ WC "malloctype='" + perl_malloctype + "'"
3902 $ WC "freetype='" + perl_freetype + "'"
3903 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
3904 $ WC "sh='" + perl_sh + "'"
3905 $ WC "sig_name='" + perl_sig_name + "'"
3906 $ WC "sig_num='" + perl_sig_num + "'"
3907 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
3909 $ WC "modetype='" + perl_modetype + "'"
3910 $ WC "ssizetype='" + perl_ssizetype + "'"
3911 $ WC "o_nonblock='" + perl_o_nonblock + "'"
3912 $ WC "eagain='" + perl_eagain + "'"
3913 $ WC "rd_nodata='" + perl_rd_nodata + "'"
3914 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
3915 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
3916 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
3917 $ WC "oldarchlib='" + perl_oldarchlib + "'"
3918 $ WC "privlibexp='" + perl_privlibexp + "'"
3919 $ WC "privlib='" + perl_privlib + "'"
3920 $ WC "sitelibexp='" + perl_sitelibexp + "'"
3921 $ WC "sitelib='" + perl_sitelib + "'"
3922 $ WC "sitelib_stem='" + perl_sitelib_stem + "'"
3923 $ WC "sitearchexp='" + perl_sitearchexp + "'"
3924 $ WC "sitearch='" + perl_sitearch + "'"
3925 $ WC "sizetype='" + perl_sizetype + "'"
3926 $ WC "i_sysparam='" + perl_i_sysparam + "'"
3927 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
3928 $ WC "d_dlerror='" + perl_d_dlerror + "'"
3929 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
3930 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
3931 $ WC "d_dosuid='" + perl_d_dosuid + "'"
3932 $ WC "d_inetaton='" + perl_d_inetaton + "'"
3933 $ WC "d_int64_t='" + perl_d_int64_t + "'"
3934 $ WC "d_isascii='" + perl_d_isascii + "'"
3935 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
3936 $ WC "d_pathconf='" + perl_d_pathconf + "'"
3937 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
3938 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
3939 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
3940 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
3941 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
3942 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
3943 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
3944 $ WC "d_setpgid='" + perl_d_setpgid + "'"
3945 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
3946 $ WC "d_sysconf='" + perl_d_sysconf + "'"
3947 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
3948 $ WC "d_getpgid='" + perl_d_getpgid + "'"
3949 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
3950 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
3951 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
3952 $ WC "d_sfio='" + perl_d_sfio + "'"
3953 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
3954 $ WC "usedl='" + perl_usedl + "'"
3955 $ WC "startperl=" + perl_startperl ! This one's special--no enclosing single quotes
3956 $ WC "db_hashtype='" + perl_db_hashtype + "'"
3957 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
3958 $ WC "useperlio='" + perl_useperlio + "'"
3959 $ WC "defvoidused='" + perl_defvoidused + "'"
3960 $ WC "voidflags='" + perl_voidflags + "'"
3961 $ WC "d_eunice='" + perl_d_eunice + "'"
3962 $ WC "libs='" + perl_libs + "'"
3963 $ WC "libc='" + perl_libc + "'"
3964 $ WC "xs_apiversion='" + localperlver + "'"
3965 $ WC "pm_apiversion='" + localperlver + "'"
3966 $ WC "pager='" + perl_pager + "'"
3967 $ WC "uidtype='" + perl_uidtype + "'"
3968 $ WC "uidformat='" + perl_uidformat + "'"
3969 $ WC "uidsize='" + perl_uidsize + "'"
3970 $ WC "gidtype='" + perl_gidtype + "'"
3971 $ WC "gidformat='" + perl_gidformat + "'"
3972 $ WC "gidsize='" + perl_gidsize + "'"
3973 $ WC "usethreads='" + perl_usethreads + "'"
3974 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
3975 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
3976 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
3977 $ WC "i_netdb='" + perl_i_netdb + "'"
3978 $ WC "pidtype='" + perl_pidtype + "'"
3979 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
3980 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
3981 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
3982 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
3983 $ WC "socksizetype='" + perl_socksizetype + "'"
3984 $ WC "baserev='" + perl_baserev + "'"
3985 $ WC "doublesize='" + perl_doublesize + "'"
3986 $ WC "ptrsize='" + perl_ptrsize + "'"
3987 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
3988 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
3989 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
3990 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
3991 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
3992 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
3993 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
3994 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
3995 $ WC "d_sethent='" + perl_d_sethent + "'"
3996 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
3997 $ WC "d_longdbl='" + perl_d_longdbl + "'"
3998 $ WC "longdblsize='" + perl_longdblsize + "'"
3999 $ WC "d_longlong='" + perl_d_longlong + "'"
4000 $ WC "longlongsize='" + perl_longlongsize + "'"
4001 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
4002 $ WC "d_mkstemps='" + perl_d_mkstemps + "'"
4003 $ WC "d_mkdtemp='" + perl_d_mkdtemp + "'"
4004 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
4005 $ WC "d_setenv='" + perl_d_setenv + "'"
4006 $ WC "d_endhent='" + perl_d_endhent + "'"
4007 $ WC "d_endnent='" + perl_d_endsent + "'"
4008 $ WC "d_endpent='" + perl_d_endpent + "'"
4009 $ WC "d_endsent='" + perl_d_endsent + "'"
4010 $ WC "d_gethent='" + perl_d_gethent + "'"
4011 $ WC "d_getnent='" + perl_d_getsent + "'"
4012 $ WC "d_getpent='" + perl_d_getpent + "'"
4013 $ WC "d_getsent='" + perl_d_getsent + "'"
4014 $ WC "d_sethent='" + perl_d_sethent + "'"
4015 $ WC "d_setnent='" + perl_d_setsent + "'"
4016 $ WC "d_setpent='" + perl_d_setpent + "'"
4017 $ WC "ebcdic='" + perl_ebcdic + "'"
4018 $ WC "d_setsent='" + perl_d_setsent + "'"
4019 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
4020 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
4021 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
4022 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
4023 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
4024 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
4025 $ WC "d_lchown='" + perl_d_lchown + "'"
4026 $ WC "d_union_semun='" + perl_d_union_semun + "'"
4027 $ WC "i_arpainet='" + perl_i_arpainet + "'"
4028 $ WC "d_grpasswd='" + perl_d_grpasswd + "'"
4029 $ WC "d_setgrent='" + perl_d_setgrent + "'"
4030 $ WC "d_getgrent='" + perl_d_getgrent + "'"
4031 $ WC "d_endgrent='" + perl_d_endgrent + "'"
4032 $ WC "d_pwpasswd='" + perl_d_pwpasswd + "'"
4033 $ WC "d_setpwent='" + perl_d_setpwent + "'"
4034 $ WC "d_getpwent='" + perl_d_getpwent + "'"
4035 $ WC "d_endpwent='" + perl_d_endpwent + "'"
4036 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
4037 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
4038 $ WC "extensions='" + perl_extensions + "'"
4039 $ WC "known_extensions='" + perl_known_extensions + "'"
4040 $ WC "static_ext='" + "'"
4041 $ WC "dynamic_ext='" + perl_extensions + "'"
4042 $ WC "d_mknod='" + perl_d_mknod + "'"
4043 $ WC "devtype='" + perl_devtype + "'"
4044 $ WC "d_gethname='" + perl_d_gethname + "'"
4045 $ WC "d_phostname='" + perl_d_phostname + "'"
4046 $ WC "aphostname='" + perl_aphostname + "'"
4047 $ WC "d_accessx='" + perl_d_accessx + "'"
4048 $ WC "d_eaccess='" + perl_d_eaccess + "'"
4049 $ WC "i_ieeefp='" + perl_i_ieeefp + "'"
4050 $ WC "i_sunmath='" + perl_i_sunmath + "'"
4051 $ WC "i_sysaccess='" + perl_i_sysaccess + "'"
4052 $ WC "i_syssecrt='" + perl_i_syssecrt + "'"
4053 $ WC "d_fd_set='" + perl_d_fd_set + "'"
4054 $ WC "d_access='" + perl_d_access + "'"
4055 $ WC "d_msg_ctrunc='" + perl_d_msg_ctrunc + "'"
4056 $ WC "d_msg_dontroute='" + perl_d_msg_dontroute + "'"
4057 $ WC "d_msg_oob='" + perl_d_msg_oob + "'"
4058 $ WC "d_msg_peek='" + perl_d_msg_peek + "'"
4059 $ WC "d_msg_proxy='" + perl_d_msg_proxy + "'"
4060 $ WC "d_scm_rights='" + perl_d_scm_rights + "'"
4061 $ WC "d_sendmsg='" + perl_d_sendmsg + "'"
4062 $ WC "d_recvmsg='" + perl_d_recvmsg + "'"
4063 $ WC "d_msghdr_s='" + perl_d_msghdr_s + "'"
4064 $ WC "d_cmsghdr_s='" + perl_d_cmsghdr_s + "'"
4065 $ WC "i_sysuio='" + perl_i_sysuio + "'"
4066 $ WC "d_fseeko='" + perl_d_fseeko + "'"
4067 $ WC "d_ftello='" + perl_d_ftello + "'"
4068 $ WC "d_qgcvt='" + perl_d_qgcvt + "'"
4069 $ WC "d_readv='" + perl_d_readv + "'"
4070 $ WC "d_writev='" + perl_d_writev + "'"
4071 $ WC "i_machcthr='" + perl_i_machcthr + "'"
4072 $ WC "usemultiplicity='" + perl_usemultiplicity + "'"
4073 $ WC "i_poll='" + perl_i_poll + "'"
4074 $ WC "i_inttypes='" + perl_i_inttypes + "'"
4075 $ WC "d_off64_t='" + perl_d_off64_t + "'"
4076 $ WC "d_fpos64_t='" + perl_d_fpos64_t + "'"
4077 $ WC "use64bitall='" + perl_use64bitall + "'"
4078 $ WC "use64bitint='" + perl_use64bitint + "'"
4079 $ WC "d_drand48proto='" + perl_d_drand48proto + "'"
4080 $ WC "d_lseekproto='" + perl_d_drand48proto + "'"
4081 $ WC "d_old_pthread_create_joinable='" + perl_d_old_pthread_create_joinable + "'"
4082 $ WC "old_pthread_create_joinable='" + perl_old_pthread_create_joinable + "'"
4083 $ WC "drand01='" + perl_drand01 + "'"
4084 $ WC "randseedtype='" + perl_randseedtype + "'"
4085 $ WC "seedfunc='" + perl_seedfunc + "'"
4086 $ WC "sig_num_init='" + perl_sig_num_with_commas + "'"
4087 $ WC "i_sysmount='" + perl_i_sysmount + "'"
4088 $ WC "d_fstatfs='" + perl_d_fstatfs + "'"
4089 $ WC "d_getfsstat='" + perl_d_getfsstat + "'"
4090 $ WC "d_memchr='" + perl_d_memchr + "'"
4091 $ WC "d_statfsflags='" + perl_d_statfsflags + "'"
4092 $ WC "fflushNULL='define'"
4093 $ WC "fflushall='undef'"
4094 $ WC "d_stdio_stream_array='undef'"
4095 $ WC "stdio_stream_array='" + perl_stdio_stream_array + "'"
4096 $ WC "i_sysstatvfs='" + perl_i_sysstatvfs + "'"
4097 $ WC "i_syslog='" + perl_i_syslog + "'"
4098 $ WC "i_sysmode='" + perl_i_sysmode + "'"
4099 $ WC "i_sysutsname='" + perl_i_sysutsname + "'"
4100 $ WC "i_machcthreads='" + perl_i_machcthreads + "'"
4101 $ WC "i_pthread='" + perl_i_pthread + "'"
4102 $ WC "d_fstatvfs='" + perl_d_fstatvfs + "'"
4103 $ WC "i_mntent='" + perl_i_mntent + "'"
4104 $ WC "d_getmntent='" + perl_d_getmntent + "'"
4105 $ WC "d_hasmntopt='" + perl_d_hasmntopt + "'"
4106 $ WC "d_telldirproto='" + perl_d_telldirproto + "'"
4107 $ WC "d_madvise='" + perl_d_madvise + "'"
4108 $ WC "d_msync='" + perl_d_msync + "'"
4109 $ WC "d_mprotect='" + perl_d_mprotect + "'"
4110 $ WC "d_munmap='" + perl_d_munmap + "'"
4111 $ WC "d_mmap='" + perl_d_mmap + "'"
4112 $ WC "mmaptype='" + perl_mmaptype + "'"
4113 $ WC "i_sysmman='" + perl_i_sysmman + "'"
4114 $ WC "installusrbinperl='" + perl_installusrbinperl + "'"
4115 $! WC "selectminbits='" + perl_selectminbits + "'"
4116 $ WC "crosscompile='" + perl_crosscompile + "'"
4117 $ WC "multiarch='" + perl_multiarch + "'"
4118 $ WC "sched_yield='" + perl_sched_yield + "'"
4119 $ WC "d_strtoull='" + perl_d_strtoull + "'"
4120 $ WC "d_strtouq='" + perl_d_strtouq + "'"
4121 $ WC "d_strtoll='" + perl_d_strtoll + "'"
4122 $ WC "d_strtold='" + perl_d_strtold + "'"
4123 $ WC "usesocks='" + perl_usesocks + "'"
4124 $ WC "d_vendorlib='" + perl_d_vendorlib + "'"
4125 $ WC "vendorlibexp='" + perl_vendorlibexp + "'"
4126 $ WC "vendorlib_stem='" + perl_vendorlib_stem + "'"
4127 $ WC "d_atolf='" + perl_d_atolf + "'"
4128 $ WC "d_atoll='" + perl_d_atoll + "'"
4129 $ WC "d_bincompat5005='" + perl_d_bincompat + "'"
4130 $ WC "d_endspent='" + perl_d_endspent + "'"
4131 $ WC "d_getspent='" + perl_d_getspent + "'"
4132 $ WC "d_getspnam='" + perl_d_getspnam + "'"
4133 $ WC "d_setspent='" + perl_d_setspent + "'"
4134 $ WC "i_shadow='" + perl_i_shadow + "'"
4135 $ WC "i_socks='" + perl_i_socks + "'"
4136 $ WC "d_PRIfldbl='" + perl_d_PRIfldbl + "'"
4137 $ WC "d_PRIgldbl='" + perl_d_PRIgldbl + "'"
4138 $ WC "d_PRId64='" + perl_d_PRId64 + "'"
4139 $ WC "d_PRIu64='" + perl_d_PRIu64 + "'"
4140 $ WC "d_PRIo64='" + perl_d_PRIo64 + "'"
4141 $ WC "d_PRIx64='" + perl_d_PRIx64 + "'"
4142 $ WC "sPRIfldbl='" + perl_sPRIfldbl + "'"
4143 $ WC "sPRIgldbl='" + perl_sPRIgldbl + "'"
4144 $ WC "sPRId64='" + perl_sPRId64 + "'"
4145 $ WC "sPRIu64='" + perl_sPRIu64 + "'"
4146 $ WC "sPRIo64='" + perl_sPRIo64 + "'"
4147 $ WC "sPRIx64='" + perl_sPRIx64 + "'"
4148 $ WC "d_llseek='" + perl_d_llseek + "'"
4149 $ WC "d_iconv='" + perl_d_iconv +"'"
4150 $ WC "i_iconv='" + perl_i_iconv +"'"
4151 $ WC "inc_version_list='0'"
4152 $ WC "inc_version_list_init='0'"
4153 $ WC "uselargefiles='" + perl_uselargefiles + "'"
4154 $ WC "uselongdouble='" + perl_uselongdouble + "'"
4155 $ WC "usemorebits='" + perl_usemorebits + "'"
4156 $ WC "d_quad='" + perl_d_quad + "'"
4157 $ WC "quadtype='" + perl_quadtype + "'"
4158 $ WC "uquadtype='" + perl_uquadtype + "'"
4159 $ WC "quadkind='" + perl_quadkind + "'"
4160 $ WC "d_fs_data_s='" + perl_d_fs_data_s + "'"
4161 $ WC "d_getcwd='" + perl_d_getcwd + "'"
4162 $ WC "d_getmnt='" + perl_d_getmnt + "'"
4163 $ WC "d_sqrtl='" + perl_d_sqrtl + "'"
4164 $ WC "d_statfs_f_flags='" + perl_d_statfs_f_flags + "'"
4165 $ WC "d_statfs_s='" + perl_d_statfs_s + "'"
4166 $ WC "d_ustat='" + perl_d_ustat + "'"
4167 $ WC "d_vendorarch='" + perl_d_vendorarch + "'"
4168 $ WC "vendorarchexp='" + perl_vendorarchexp + "'"
4169 $ WC "i_sysstatfs='" + perl_i_sysstatfs + "'"
4170 $ WC "i_sysvfs='" + perl_i_sysvfs + "'"
4171 $ WC "i_ustat='" + perl_i_ustat + "'"
4172 $ WC "ivtype='" + perl_ivtype + "'"
4173 $ WC "uvtype='" + perl_uvtype + "'"
4174 $ WC "i8type='" + perl_i8type + "'"
4175 $ WC "i16type='" + perl_i16type + "'"
4176 $ WC "u8type='" + perl_u8type + "'"
4177 $ WC "u16type='" + perl_u16type + "'"
4178 $ WC "i32type='" + perl_i32type + "'"
4179 $ WC "u32type='" + perl_u32type + "'"
4180 $ WC "i64type='" + perl_i64type + "'"
4181 $ WC "u64type='" + perl_u64type + "'"
4182 $ WC "nvtype='" + perl_nvtype + "'"
4183 $ WC "ivsize='" + perl_ivsize + "'"
4184 $ WC "uvsize='" + perl_uvsize + "'"
4185 $ WC "i8size='" + perl_i8size + "'"
4186 $ WC "u8size='" + perl_u8size + "'"
4187 $ WC "i16size='" + perl_i16size + "'"
4188 $ WC "u16size='" + perl_u16size + "'"
4189 $ WC "i32size='" + perl_i32size + "'"
4190 $ WC "u32size='" + perl_u32size + "'"
4191 $ WC "i64size='" + perl_i64size + "'"
4192 $ WC "u64size='" + perl_u64size + "'"
4193 $ WC "ivdformat='" + perl_ivdformat + "'"
4194 $ WC "uvuformat='" + perl_uvuformat + "'"
4195 $ WC "uvoformat='" + perl_uvoformat + "'"
4196 $ WC "uvxformat='" + perl_uvxformat + "'"
4197 $ WC "d_vms_case_sensitive_symbols='" + d_vms_be_case_sensitive + "'"
4199 $! ##WRITE NEW CONSTANTS HERE##
4203 $! Okay, we've gotten here. Build munchconfig and run it
4204 $ 'Perl_CC' munchconfig.c
4205 $ If (Needs_Opt.eqs."Yes")
4207 $ open/write OPTCHAN []munchconfig.opt
4208 $ IF ("''using_gnu_c'".eqs."Yes")
4210 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
4212 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
4214 $ link munchconfig.obj,munchconfig.opt/opt
4215 $ delete munchconfig.opt;*
4217 $ link munchconfig.obj
4220 $ echo "Doing variable substitutions on .SH files..."
4221 $ echo "Extracting config.h (with variable substitutions)"
4223 $ ! we need an fdl file
4224 $ CREATE [-]CONFIG.FDL
4227 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
4228 $ ! First spit out the header info with the local defines (to get
4229 $ ! around the 255 character command line limit)
4230 $ OPEN/APPEND CONFIG [-]config.local
4231 $ IF use_debugging_perl THEN WC "#define DEBUGGING"
4232 $ IF use_two_pot_malloc THEN WC "#define TWO_POT_OPTIMIZE"
4233 $ IF mymalloc THEN WC "#define EMBEDMYMALLOC"
4234 $ IF use_pack_malloc THEN WC "#define PACK_MALLOC"
4235 $ IF use_debugmalloc THEN WC "#define DEBUGGING_MSTATS"
4236 $ IF Using_Gnu_C THEN WC "#define GNUC_ATTRIBUTE_CHECK"
4237 $ IF (Has_Dec_C_Sockets)
4239 $ WC "#define VMS_DO_SOCKETS"
4240 $ WC "#define DECCRTL_SOCKETS"
4242 $ IF Has_Socketshr THEN WC "#define VMS_DO_SOCKETS"
4244 $! This is VMS-specific for now
4245 $ WC "#''perl_d_setenv' HAS_SETENV"
4246 $ IF d_secintgenv THEN WC "#define SECURE_INTERNAL_GETENV"
4247 $ if d_alwdeftype THEN WC "#define ALWAYS_DEFTYPES"
4250 $ WC "#define USE_64_BIT_INT"
4251 $ WC "#define USE_LONG_DOUBLE"
4253 $ IF use64bitall THEN WC "#define USE_64_BIT_ALL"
4254 $ IF be_case_sensitive THEN WC "#define VMS_WE_ARE_CASE_SENSITIVE"
4255 $ if perl_d_herrno .eqs. "undef"
4257 $ WC "#define NEED_AN_H_ERRNO"
4259 $ WC "#define HAS_ENVGETENV"
4260 $ WC "#define PERL_EXTERNAL_GLOB"
4263 $! Now build the normal config.h
4264 $ define/user sys$output [-]config.main
4265 $ mcr []munchconfig [-]config.sh [-]config_h.sh
4266 $ ! Concatenate them together
4267 $ copy [-]config.local,[-]config.main [-]config.h
4269 $ DELETE/NOLOG [-]CONFIG.MAIN;*
4270 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
4271 $ DELETE/NOLOG [-]CONFIG.FDL;*
4275 $ DECC_REPLACE = "DECC=decc=1"
4277 $ DECC_REPLACE = "DECC="
4281 $ GNUC_REPLACE = "GNUC=gnuc=1"
4283 $ GNUC_REPLACE = "GNUC="
4285 $ IF Has_Dec_C_Sockets
4287 $ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
4291 $ SOCKET_REPLACE = "SOCKET=SOCKETSHR_SOCKETS=1"
4293 $ SOCKET_REPLACE = "SOCKET="
4298 $ IF (VMS_VER .LES. "6.2")
4300 $ THREAD_REPLACE = "THREAD=OLDTHREADED=1"
4302 $ THREAD_REPLACE = "THREAD=THREADED=1"
4305 $ THREAD_REPLACE = "THREAD="
4309 $ MALLOC_REPLACE = "MALLOC=MALLOC=1"
4311 $ MALLOC_REPLACE = "MALLOC="
4313 $ echo "Extracting ''defmakefile' (with variable substitutions)"
4315 $ define/user sys$output 'UUmakefile
4316 $ mcr []munchconfig [-]config.sh descrip_mms.template "''DECC_REPLACE'" "''ARCH_TYPE'" "''GNUC_REPLACE'" "''SOCKET_REPLACE'" "''THREAD_REPLACE'" -
4317 "''C_Compiler_Replace'" "''MALLOC_REPLACE'" "''Thread_Live_Dangerously'" "PV=''version'" "FLAGS=FLAGS=''extra_flags'"
4318 $ echo "Extracting Build_Ext.Com (without variable substitutions)"
4319 $ Create Sys$Disk:[-]Build_Ext.Com
4320 $ Deck/Dollar="$EndOfTpl$"
4322 $! NOTE: This file is extracted as part of the VMS configuration process.
4323 $! Any changes made to it directly will be lost. If you need to make any
4324 $! changes, please edit the template in [.vms]SubConfigure.Com instead.
4325 $ def = F$Environment("Default")
4326 $ exts1 = F$Edit(p1,"Compress")
4327 $ p2 = F$Edit(p2,"Upcase,Compress,Trim")
4328 $ If F$Locate("MCR ",p2).eq.0 Then p2 = F$Extract(3,255,p2)
4329 $ miniperl = "$" + F$Search(F$Parse(p2,".Exe"))
4331 $ if f$type('p3') .nes. "" then makeutil = 'p3'
4332 $ targ = F$Edit(p4,"Lowercase")
4335 $ ext = F$Element(i," ",p1)
4336 $ If ext .eqs. " " Then Goto done
4337 $ Define/User Perl_Env_Tables CLISYM_LOCAL
4339 ($extdir = $ENV{'ext'}) =~ s/::/./g;
4341 if ($extdir =~ /^vms/i) { $extdir =~ s/vms/.vms.ext/i; }
4342 else { $extdir = ".ext.$extdir"; }
4343 ($ENV{'extdir'} = "[$extdir]");
4344 ($ENV{'up'} = ('-') x ($extdir =~ tr/././));
4345 $ Set Default &extdir
4347 $ If F$Locate("clean",targ) .eqs. F$Length(targ)
4349 $ Write Sys$Output "Building ''ext' . . ."
4350 $ On Error Then Goto done
4351 $ If F$Search("Descrip.MMS") .eqs. ""
4355 $ If F$CvTime(F$File("Descrip.MMS","rdt")) .lts. -
4356 F$CvTime(F$File("Makefile.PL","rdt")) Then redesc = 1
4359 $ Write Sys$Output "''targ'ing ''ext' . . ."
4360 $ On Error Then Continue
4363 miniperl "-I[''up'.lib]" Makefile.PL "INST_LIB=[''up'.lib]" "INST_ARCHLIB=[''up'.lib]"
4377 $! Clean up after ourselves
4378 $ DELETE/NOLOG/NOCONFIRM munchconfig.exe;
4379 $ DELETE/NOLOG/NOCONFIRM munchconfig.obj;