1 $! SUBCONFIGURE.COM - build a config.sh for VMS Perl.
3 $! Note for folks from other platforms changing things in here:
4 $! Fancy changes (based on compiler capabilities or VMS version or
5 $! whatever) are tricky, so go ahead and punt on those.
7 $! Simple changes, though (say, always setting something to 1, or undef,
8 $! or something like that) are straightforward. Adding a new item for the
9 $! ultimately created config.sh requires adding two lines to this file.
11 $! First, a line in the format:
13 $! after the line tagged ##ADD NEW CONSTANTS HERE##. Replace foo with the
14 $! variable name as it appears in config.sh.
16 $! Second, add a line in the format:
17 $! $ WC "foo='" + perl_foo + "'"
18 $! after the line tagged ##WRITE NEW CONSTANTS HERE##. Careful of the
19 $! quoting, as it can be tricky.
21 $! This .COM file expects to be called by configure.com, and thus expects
22 $! a few symbols in the environment. Notably:
24 $! One of: Using_Dec_C, Using_Gnu_C set to "YES"
25 $! Dec_C_Version set to the Dec C version (defaults to 0 if not specified)
26 $! Has_Socketshr set to "T" if using socketshr
27 $! Has_Dec_C_Sockets set to "T" if using Dec C sockets
28 $! Use_Threads set to "T" if they're using threads
29 $! C_Compiler_Invoke is the command needed to invoke the C compiler
31 $! We'll be playing with Sys$Output; don't clutter it
34 $! Set Dec_C_Version to something
35 $ WRITE_RESULT := "WRITE SYS$OUTPUT ""%CONFIG-I-RESULT "" + "
36 $ echo = "Write Sys$Output "
37 $ Dec_C_Version := "''Dec_C_Version'"
38 $ Dec_C_Version = Dec_C_Version + 0
39 $ Vms_Ver := "''f$extract(1,3, f$getsyi(""version""))'"
40 $ perl_extensions := "''extensions'"
41 $ if f$length(Mcc) .eq. 0 then Mcc := "cc"
42 $ MCC = f$edit(mcc, "UPCASE")
43 $ C_Compiler_Replace := "CC=CC=''Mcc'''CC_flags'"
44 $ if "''Using_Dec_C'" .eqs. "Yes"
46 $ Checkcc := "''Mcc'/prefix=all"
50 $ cc_flags = cc_flags + extra_flags
51 $ if be_case_sensitive
53 $ d_vms_be_case_sensitive = "define"
55 $ d_vms_be_case_sensitive = "undef"
57 $ if use_multiplicity .eqs. "Y"
59 $ perl_usemultiplicity = "define"
61 $ perl_usemultiplicity = "undef"
63 $! Some constant defaults.
65 $ hwname = f$getsyi("HW_NAME")
67 $ if "''myname'" .eqs. "" THEN myname = f$trnlnm("SYS$NODE")
69 $! ##ADD NEW CONSTANTS HERE##
70 $ perl_d_getcwd = "undef"
71 $ perl_d_nv_preserves_uv = "define"
72 $ perl_d_fs_data_s = "undef"
73 $ perl_d_getmnt = "undef"
74 $ perl_d_sqrtl = "define"
75 $ perl_d_statfs_f_flags = "undef"
76 $ perl_d_statfs_s = "undef"
77 $ perl_d_ustat = "undef"
78 $ perl_i_ieeefp = "undef"
79 $ perl_i_sunmath = "undef"
80 $ perl_i_sysstatfs = "undef"
81 $ perl_i_sysvfs = "undef"
82 $ perl_i_ustat = "undef"
83 $ perl_d_llseek="undef"
84 $ perl_d_iconv="undef"
85 $ perl_d_madvise="undef"
86 $ perl_selectminbits=32
87 $ perl_d_msync="undef"
88 $ perl_d_vendorarch="define"
89 $ perl_vendorarchexp=""
90 $ perl_d_mprotect="undef"
91 $ perl_d_munmap="undef"
92 $ perl_crosscompile="undef"
93 $ perl_multiarch="undef"
95 $ perl_i_sysmman="undef"
96 $ perl_d_telldirproto="define"
97 $ perl_i_sysmount="undef"
98 $ perl_d_bincompat="undef"
99 $ perl_d_endspent="undef
100 $ perl_d_getspent="undef
101 $ perl_d_getspnam="undef
102 $ perl_d_setspent="undef
103 $ perl_d_fstatfs="undef"
104 $ perl_d_getfsstat="undef"
105 $ perl_i_machcthreads="undef"
106 $ perl_i_pthread="define"
107 $ perl_d_fstatvfs="undef"
108 $ perl_usesocks="undef"
109 $ perl_d_vendorlib="undef"
110 $ perl_vendorlibexp=""
111 $ perl_d_statfsflags="undef"
112 $ perl_i_sysstatvfs="undef"
113 $ perl_i_mntent="undef"
114 $ perl_d_getmntent="undef"
115 $ perl_d_hasmntopt="undef"
116 $ perl_package="''package'"
117 $ perl_baserev = "''baserev'"
119 $ perl_installusrbinperl="undef"
121 $ perl_d_fseeko="undef"
122 $ perl_d_ftello="undef"
123 $ perl_d_qgcvt="undef"
124 $ perl_d_readv="undef"
125 $ perl_d_writev="undef"
126 $ perl_i_machcthr="undef"
127 $ perl_i_netdb="undef"
128 $ perl_d_gnulibc="undef"
129 $ perl_cf_by="unknown"
133 $ perl_drand01 = "drand48()"
134 $ perl_randseedtype = "long int"
135 $ perl_seedfunc = "srand48"
136 $ perl_d_msg_ctrunc = "undef"
137 $ perl_d_msg_dontroute = "undef"
138 $ perl_d_msg_oob = "undef"
139 $ perl_d_msg_peek = "undef"
140 $ perl_d_msg_proxy = "undef"
141 $ perl_d_scm_rights = "undef"
142 $ perl_d_sendmsg = "undef"
143 $ perl_d_recvmsg = "undef"
144 $ perl_d_msghdr_s = "undef"
145 $ perl_d_cmsghdr_s = "undef"
148 $ perl_use64bitint = "define"
149 $ perl_uselargefiles = "define"
150 $ perl_uselongdouble = "define"
151 $ perl_usemorebits = "define"
153 $ perl_use64bitint = "undef"
154 $ perl_uselargefiles = "undef"
155 $ perl_uselongdouble = "undef"
156 $ perl_usemorebits = "undef"
160 $ perl_use64bitall = "define"
162 $ perl_use64bitall = "undef"
164 $ perl_d_drand48proto = "define"
165 $ perl_d_lseekproto = "define"
166 $ perl_libpth="/sys$share /sys$library"
168 $ perl_lddlflags="/Share"
174 $ perl_i_arpainet="undef"
175 $ perl_d_grpasswd="undef"
176 $ perl_d_setgrent="undef"
177 $ perl_d_getgrent="define"
178 $ perl_d_endgrent="define"
179 $ perl_d_pwpasswd="define"
180 $ perl_d_setpwent="define"
181 $ perl_d_getpwent="define"
182 $ perl_d_endpwent="define"
183 $ perl_d_phostname="undef"
184 $ perl_d_accessx="undef"
185 $ perl_d_eaccess="undef"
186 $ perl_ebcdic="undef"
188 $ perl_shrplib="define"
189 $ perl_usemymalloc=mymalloc
190 $ perl_usevfork="true"
191 $ perl_useposix="false"
192 $ perl_spitshell="write sys$output "
193 $ perl_dlsrc="dl_vms.c"
196 $ perl_prefix="perl_root"
197 $ perl_binexp="''perl_prefix':[000000]"
198 $ perl_builddir="''perl_prefix':[000000]"
199 $ perl_installbin="''perl_prefix':[000000]"
200 $ perl_installscript="''perl_prefix':[utils]"
201 $ perl_installman1dir="''perl_prefix':[man.man1]"
202 $ perl_installman3dir="''perl_prefix':[man.man3]"
203 $ perl_installprivlib="''perl_prefix':[lib]"
204 $ perl_installsitelib="''perl_prefix':[lib.site_perl]"
207 $ perl_d_sockpair="undef"
208 $ perl_i_neterrno="define"
209 $ perl_ldflags="/NoTrace/NoMap"
210 $ perl_d_lchown="undef"
211 $ perl_d_mknod="undef"
212 $ perl_d_union_semun="undef"
213 $ perl_d_semctl_semun="undef"
214 $ perl_d_semctl_semid_ds="undef"
215 $ IF (sharedperl.EQS."Y" .AND. F$GETSYI("HW_MODEL").GE.1024)
217 $ perl_obj_ext=".abj"
220 $ perl_exe_ext=".axe"
221 $ perl_lib_ext=".alb"
223 $ perl_obj_ext=".obj"
226 $ perl_exe_ext=".exe"
227 $ perl_lib_ext=".olb"
229 $ perl_dlobj="dl_vms''perl_obj_ext'"
231 $ perl_d_archlib="define"
232 $ perl_d_bincompat3="undef"
233 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
235 $ perl_d_castneg="define"
237 $ perl_d_chsize="undef"
238 $ perl_d_const="define"
239 $ perl_d_crypt="define"
240 $ perl_byteorder="1234"
243 $ perl_d_dup2="define"
244 $ perl_d_fchmod="undef"
245 $ perl_d_fchown="undef"
246 $ perl_d_fcntl="undef"
247 $ perl_d_fgetpos="define"
248 $ perl_d_flexfnam="define"
249 $ perl_d_flock="undef"
250 $ perl_d_fsetpos="define"
251 $ perl_d_getgrps="undef"
252 $ perl_d_setgrps="undef"
253 $ perl_d_getprior="undef"
254 $ perl_d_killpg="undef"
255 $ perl_d_link="undef"
256 $ perl_d_lstat="undef"
257 $ perl_d_lockf="undef"
258 $ perl_d_memcmp="define"
259 $ perl_d_memcpy="define"
260 $ perl_d_memmove="define"
261 $ perl_d_memset="define"
262 $ perl_d_mkdir="define"
264 $ perl_d_open3="define"
265 $ perl_d_poll="undef"
266 $ perl_d_readdir="define"
267 $ perl_d_seekdir="define"
268 $ perl_d_telldir="define"
269 $ perl_d_rewinddir="define"
270 $ perl_d_rename="define"
271 $ perl_d_rmdir="define"
273 $ perl_d_setegid="undef"
274 $ perl_d_seteuid="undef"
275 $ perl_d_setprior="undef"
276 $ perl_d_setregid="undef"
277 $ perl_d_setresgid="undef"
278 $ perl_d_setreuid="undef"
279 $ perl_d_setresuid="undef"
280 $ perl_d_setrgid="undef"
281 $ perl_d_setruid="undef"
282 $ perl_d_setsid="undef"
284 $ perl_d_shmatprototype="undef"
285 $ perl_d_statblks="undef"
286 $ perl_stdio_ptr="((*fp)->_ptr)"
287 $ perl_stdio_cnt="((*fp)->_cnt)"
288 $ perl_stdio_base="((*fp)->_base)"
289 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
290 $ perl_d_strctcpy="define"
291 $ perl_d_strerror="define"
292 $ perl_d_syserrlst="undef"
293 $ perl_d_strerrm="strerror((e),vaxc$errno)"
294 $ perl_d_symlink="undef"
295 $ perl_d_syscall="undef"
296 $ perl_d_system="define"
297 $ perl_timetype="time_t"
298 $ perl_d_vfork="define"
299 $ perl_signal_t="void"
300 $ perl_d_volatile="define"
301 $ perl_d_vprintf="define"
302 $ perl_d_charvspr="undef"
303 $ perl_d_waitpid="define"
304 $ perl_i_dirent="undef"
305 $ perl_d_dirnamlen="define"
306 $ perl_direntrytype="struct dirent"
307 $ perl_i_fcntl="undef"
309 $ perl_i_limits="define"
310 $ perl_i_memory="undef"
311 $ perl_i_ndbm="undef"
312 $ perl_i_stdarg="define"
314 $ perl_d_pwquota="undef"
315 $ perl_d_pwage="undef"
316 $ perl_d_pwchange="undef"
317 $ perl_d_pwclass="undef"
318 $ perl_d_pwexpire="undef"
319 $ perl_d_pwcomment="define"
320 $ perl_i_stddef="define"
321 $ perl_i_stdlib="define"
322 $ perl_i_string="define"
323 $ perl_i_sysdir="undef"
324 $ perl_i_sysfile="undef"
325 $ perl_i_sysioctl="undef"
326 $ perl_i_sysndir="undef"
327 $ perl_i_sysresrc="undef"
328 $ perl_i_sysselct="undef"
330 $ perl_i_rpcsvcdbm="undef"
331 $ perl_i_sfio="undef"
332 $ perl_i_sysstat="define"
333 $ perl_i_systimes="undef"
334 $ perl_i_systypes="define"
335 $ perl_i_sysun="undef"
336 $ perl_i_syswait="undef"
337 $ perl_i_termio="undef"
338 $ perl_i_sgtty="undef"
339 $ perl_i_termios="undef"
340 $ perl_i_time="define"
341 $ perl_i_systime="undef"
342 $ perl_i_systimek="undef"
343 $! perl_i_unistd="undef"
344 $ perl_i_utime="undef"
345 $ perl_i_varargs="undef"
346 $ perl_i_vfork="undef"
347 $ perl_prototype="define"
349 $ perl_stdchar="char"
350 $ perl_d_unlink_all_versions="undef"
351 $ perl_full_sed="_NLA0:"
352 $ perl_bin="/''perl_prefix'/000000"
353 $ perl_binexp="''perl_prefix':[000000]"
354 $ perl_d_alarm="define"
355 $ perl_d_casti32="define"
356 $ perl_d_chown="define"
357 $ perl_d_chroot="undef"
358 $ perl_d_cuserid="define"
359 $ perl_d_dbl_dig="define"
360 $ perl_d_ldbl_dig="define"
361 $ perl_d_difftime="define"
362 $ perl_d_fork="undef"
363 $ perl_d_getlogin="define"
364 $ perl_d_getppid="undef"
365 $ perl_d_nice="define"
366 $ perl_d_pause="define"
367 $ perl_d_pipe="define"
368 $ perl_d_readlink="undef"
369 $ perl_d_setlinebuf="undef"
370 $ perl_d_strchr="define"
371 $ perl_d_strtod="define"
372 $ perl_d_strtol="define"
373 $ perl_d_strtoul="define"
374 $ perl_d_tcgetpgrp="undef"
375 $ perl_d_tcsetpgrp="undef"
376 $ perl_d_times="define"
377 $ perl_d_tzname="undef"
378 $ perl_d_umask="define"
379 $ perl_fpostype="fpos_t"
380 $ perl_i_dlfcn="undef"
381 $ perl_i_float="define"
382 $ perl_i_math="define"
383 $ perl_lseektype="int"
384 $ perl_i_values="undef"
385 $ perl_malloctype="void *"
386 $ perl_freetype="void"
387 $ if "''mymalloc'".eqs."Y"
389 $ perl_d_mymalloc="define"
391 $ perl_d_mymalloc="undef"
394 $ perl_modetype="unsigned int"
395 $ perl_ssizetype="int"
396 $ perl_o_nonblock=" "
399 $ perl_d_eofnblk="undef"
400 $ perl_d_oldarchlib="define"
401 $ perl_privlibexp="''perl_prefix':[lib]"
402 $ perl_privlib="''perl_prefix':[lib]"
403 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
404 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
405 $ perl_sizetype="size_t"
406 $ perl_i_sysparam="undef"
407 $ perl_d_void_closedir="define"
408 $ perl_d_dlerror="undef"
409 $ perl_d_dlsymun="undef"
410 $ perl_d_suidsafe="undef"
411 $ perl_d_dosuid="undef"
412 $ perl_d_inetaton="undef"
413 $ perl_d_isascii="define"
414 $ perl_d_mkfifo="undef"
415 $ perl_d_safebcpy="undef"
416 $ perl_d_safemcpy="define"
417 $ perl_d_sanemcmp="define"
418 $ perl_d_setpgrp="undef"
419 $ perl_d_bsdsetpgrp="undef"
420 $ perl_d_bsdpgrp="undef"
421 $ perl_d_setpgid="undef"
422 $ perl_d_setpgrp2="undef"
423 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
424 $ perl_d_getpgid="undef"
425 $ perl_d_getpgrp="undef"
426 $ perl_d_bsdgetpgrp="undef"
427 $ perl_d_getpgrp2="undef"
428 $ perl_d_sfio="undef"
429 $ perl_usedl="define"
430 $ perl_startperl="""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ + ++$status != 0 and $exit = $status = undef;"""
431 $ perl_db_hashtype=" "
432 $ perl_db_prefixtype=" "
433 $ perl_useperlio="undef"
434 $ perl_defvoidused="15"
435 $ perl_voidflags="15"
436 $ perl_d_eunice="undef"
437 $ perl_d_pwgecos="define"
438 $ IF ("''Use_Threads'".eqs."T").and.("''VMS_VER'".LES."6.2")
440 $ 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"
444 $ IF ("''Using_Dec_C'".eqs."Yes")
446 $ perl_libc="(DECCRTL)"
450 $ perl_PATCHLEVEL="''patchlevel'"
451 $ perl_SUBVERSION="''subversion'"
458 $ perl_d_PRIfldbl = "define"
459 $ perl_d_PRIgldbl = "define"
460 $ perl_d_PRId64 = "define"
461 $ perl_d_PRIu64 = "define"
462 $ perl_d_PRIo64 = "define"
463 $ perl_d_PRIx64 = "define"
464 $ perl_sPRIfldbl = """Lf"""
465 $ perl_sPRIgldbl = """Lg"""
466 $ perl_sPRId64 = """Ld"""
467 $ perl_sPRIu64 = """Lu"""
468 $ perl_sPRIo64 = """Lo"""
469 $ perl_sPRIx64 = """Lx"""
470 $ perl_d_quad = "define"
471 $ perl_quadtype = "long long"
472 $ perl_uquadtype = "unsigned long long"
474 $ perl_d_PRIfldbl = "undef"
475 $ perl_d_PRIgldbl = "undef"
476 $ perl_d_PRId64 = "undef"
477 $ perl_d_PRIu64 = "undef"
478 $ perl_d_PRIo64 = "undef"
479 $ perl_d_PRIx64 = "undef"
480 $ perl_sPRIfldbl = ""
481 $ perl_sPRIgldbl = ""
486 $ perl_d_quad = "undef"
489 $! Now some that we build up
491 $ LocalTime = f$time()
492 $ perl_cf_time= f$extract(0, 3, f$cvtime(LocalTime,, "WEEKDAY")) + " " + -
493 f$edit(f$cvtime(LocalTime, "ABSOLUTE", "MONTH"), "LOWERCASE") + -
494 " " + f$cvtime(LocalTime,, "DAY") + " " + f$cvtime(LocalTime,, "TIME") + -
495 " " + f$cvtime(LocalTime,, "YEAR")
496 $ if f$getsyi("HW_MODEL").ge.1024
498 $ perl_arch="VMS_AXP"
499 $ perl_archname="VMS_AXP"
500 $ perl_alignbytes="8"
502 $ perl_arch="VMS_VAX"
503 $ perl_archname="VMS_VAX"
504 $ perl_alignbytes="8"
506 $ if ("''Use_Threads'".eqs."T")
508 $ if use_5005_threads
510 $ perl_arch = "''perl_arch'-thread"
511 $ perl_archname = "''perl_archname'-thread"
512 $ perl_d_old_pthread_create_joinable = "undef"
513 $ perl_old_pthread_create_joinable = " "
514 $ perl_use5005threads = "define"
515 $ perl_useithreads = "undef"
517 $ perl_arch = "''perl_arch'-ithread"
518 $ perl_archname = "''perl_archname'-ithread"
519 $ perl_d_old_pthread_create_joinable = "undef"
520 $ perl_old_pthread_create_joinable = " "
521 $ perl_use5005threads = "undef"
522 $ perl_useithreads = "define"
525 $ perl_d_old_pthread_create_joinable = "undef"
526 $ perl_old_pthread_create_joinable = " "
527 $ perl_use5005threads = "undef"
528 $ perl_useithreads = "undef"
530 $ perl_osvers=f$edit(osvers, "TRIM")
531 $ if (perl_subversion + 0).eq.0
533 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL
535 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion
538 $! Some that we need to invoke the compiler for
539 $ OS := "open/write SOURCECHAN []temp.c"
540 $ WS := "write SOURCECHAN"
541 $ CS := "close SOURCECHAN"
542 $ DS := "delete/nolog []temp.*;*"
544 $ if ("''using_gnu_c'".eqs."Yes")
546 $ open/write OPTCHAN []temp.opt
547 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
548 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
553 $! Check for __STDC__
557 $ WS "#include <stdlib.h>
559 $ WS "#include <stdio.h>
562 $ WS "#ifdef __STDC__
563 $ WS "printf(""42\n"");
565 $ WS "printf(""1\n"");
570 $ DEFINE SYS$ERROR _NLA0:
571 $ DEFINE SYS$OUTPUT _NLA0:
572 $ ON ERROR THEN CONTINUE
573 $ ON WARNING THEN CONTINUE
575 $ If (Needs_Opt.eqs."Yes")
577 $ link temp.obj,temp.opt/opt
581 $ DEASSIGN SYS$OUTPUT
583 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
584 $ DEFINE SYS$ERROR TEMPOUT
585 $ DEFINE SYS$OUTPUT TEMPOUT
588 $ DEASSIGN SYS$OUTPUT
590 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
593 $ DELETE/NOLOG [-.uu]tempout.lis;
595 $ perl_cpp_stuff=line
596 $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
598 $! Check for double size
602 $ WS "#include <stdlib.h>
604 $ WS "#include <stdio.h>
608 $ WS "foo = sizeof(double);
609 $ WS "printf(""%d\n"", foo);
613 $ DEFINE SYS$ERROR _NLA0:
614 $ DEFINE SYS$OUTPUT _NLA0:
615 $ ON ERROR THEN CONTINUE
616 $ ON WARNING THEN CONTINUE
618 $ If (Needs_Opt.eqs."Yes")
620 $ link temp.obj,temp.opt/opt
624 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
625 $ DEASSIGN SYS$OUTPUT
627 $ DEFINE SYS$ERROR TEMPOUT
628 $ DEFINE SYS$OUTPUT TEMPOUT
631 $ DEASSIGN SYS$OUTPUT
633 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
636 $ DELETE/NOLOG [-.uu]tempout.lis;
638 $ perl_doublesize=line
639 $ WRITE_RESULT "doublesize is ''perl_doublesize'"
641 $! Check for long double size
645 $ WS "#include <stdlib.h>
647 $ WS "#include <stdio.h>
650 $ WS "printf(""%d\n"", sizeof(long double));
654 $ DEFINE SYS$ERROR _NLA0:
655 $ DEFINE SYS$OUTPUT _NLA0:
656 $ ON ERROR THEN CONTINUE
657 $ ON WARNING THEN CONTINUE
659 $ teststatus = f$extract(9,1,$status)
660 $ if (teststatus.nes."1")
662 $ perl_longdblsize="0"
663 $ perl_d_longdbl="undef"
665 $ ON ERROR THEN CONTINUE
666 $ ON WARNING THEN CONTINUE
667 $ If (Needs_Opt.eqs."Yes")
669 $ link temp.obj,temp.opt/opt
673 $ teststatus = f$extract(9,1,$status)
674 $ DEASSIGN SYS$OUTPUT
676 $ if (teststatus.nes."1")
678 $ perl_longdblsize="0"
679 $ perl_d_longdbl="undef"
681 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
682 $ DEFINE SYS$ERROR TEMPOUT
683 $ DEFINE SYS$OUTPUT TEMPOUT
686 $ DEASSIGN SYS$OUTPUT
688 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
691 $ DELETE/NOLOG [-.uu]tempout.lis;
693 $ perl_longdblsize=line
694 $ perl_d_longdbl="define"
697 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
698 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
700 $! Check for long long existance and size
704 $ WS "#include <stdlib.h>
706 $ WS "#include <stdio.h>
709 $ WS "printf(""%d\n"", sizeof(long long));
713 $ DEFINE SYS$ERROR _NLA0:
714 $ DEFINE SYS$OUTPUT _NLA0:
715 $ on error then continue
716 $ on warning then continue
718 $ If (Needs_Opt.eqs."Yes")
720 $ link temp.obj,temp.opt/opt
724 $ teststatus = f$extract(9,1,$status)
725 $ DEASSIGN SYS$OUTPUT
727 $ if (teststatus.nes."1")
729 $ perl_longlongsize="0"
730 $ perl_d_longlong="undef"
732 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
733 $ DEFINE SYS$ERROR TEMPOUT
734 $ DEFINE SYS$OUTPUT TEMPOUT
737 $ DEASSIGN SYS$OUTPUT
739 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
742 $ DELETE/NOLOG [-.uu]tempout.lis;
743 $ perl_longlongsize=line
744 $ perl_d_longlong="define"
746 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
747 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
749 $! Check the prototype for getgid
753 $ WS "#include <stdlib.h>
755 $ WS "#include <stdio.h>
756 $ WS "#include <types.h>
757 $ WS "#include <unistd.h>
764 $ DEFINE SYS$ERROR _NLA0:
765 $ DEFINE SYS$OUTPUT _NLA0:
766 $ on error then continue
767 $ on warning then continue
769 $ teststatus = f$extract(9,1,$status)
770 $ DEASSIGN SYS$OUTPUT
772 $ if (teststatus.nes."1")
774 $! Okay, gid_t failed. Must be unsigned int
775 $ perl_gidtype = "unsigned int"
777 $ perl_gidtype = "gid_t"
779 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
781 $! Check to see if we've got dev_t
785 $ WS "#include <stdlib.h>
787 $ WS "#include <stdio.h>
788 $ WS "#include <types.h>
789 $ WS "#include <unistd.h>
796 $ DEFINE SYS$ERROR _NLA0:
797 $ DEFINE SYS$OUTPUT _NLA0:
798 $ on error then continue
799 $ on warning then continue
801 $ teststatus = f$extract(9,1,$status)
802 $ DEASSIGN SYS$OUTPUT
804 $ if (teststatus.nes."1")
806 $! Okay, dev_t failed. Must be unsigned int
807 $ perl_devtype = "unsigned int"
809 $ perl_devtype = "dev_t"
811 $ WRITE_RESULT "Dev_t is ''perl_devtype'"
813 $! Check to see if we've got unistd.h (which we ought to, but you never know)
817 $ WS "#include <stdlib.h>
819 $ WS "#include <unistd.h>
825 $ DEFINE SYS$ERROR _NLA0:
826 $ DEFINE SYS$OUTPUT _NLA0:
827 $ on error then continue
828 $ on warning then continue
830 $ teststatus = f$extract(9,1,$status)
831 $ DEASSIGN SYS$OUTPUT
833 $ if (teststatus.nes."1")
835 $! Okay, failed. Must not have it
836 $ perl_i_unistd = "undef"
838 $ perl_i_unistd = "define"
841 $ WRITE_RESULT "i_unistd is ''perl_i_unistd'"
843 $! Check to see if we've got shadow.h (probably not, but...)
847 $ WS "#include <stdlib.h>
849 $ WS "#include <shadow.h>
855 $ DEFINE SYS$ERROR _NLA0:
856 $ DEFINE SYS$OUTPUT _NLA0:
857 $ on error then continue
858 $ on warning then continue
860 $ teststatus = f$extract(9,1,$status)
861 $ DEASSIGN SYS$OUTPUT
863 $ if (teststatus.nes."1")
865 $! Okay, failed. Must not have it
866 $ perl_i_shadow = "undef"
868 $ perl_i_shadow = "define"
871 $ WRITE_RESULT "i_shadow is ''perl_i_shadow'"
873 $! Check to see if we've got socks.h (probably not, but...)
877 $ WS "#include <stdlib.h>
879 $ WS "#include <socks.h>
885 $ DEFINE SYS$ERROR _NLA0:
886 $ DEFINE SYS$OUTPUT _NLA0:
887 $ on error then continue
888 $ on warning then continue
890 $ teststatus = f$extract(9,1,$status)
891 $ DEASSIGN SYS$OUTPUT
893 $ if (teststatus.nes."1")
895 $! Okay, failed. Must not have it
896 $ perl_i_socks = "undef"
898 $ perl_i_socks = "define"
901 $ WRITE_RESULT "i_socks is ''perl_i_socks'"
903 $! Check the prototype for select
905 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
909 $ WS "#include <stdlib.h>
911 $ WS "#include <stdio.h>
912 $ WS "#include <types.h>
913 $ WS "#include <unistd.h>
914 $ if ("''Has_Socketshr'".eqs."T")
916 $ WS "#include <socketshr.h>"
918 $ WS "#include <time.h>
919 $ WS "#include <socket.h>
926 $ WS "bar = select(2, foo, foo, foo, NULL);
930 $ DEFINE SYS$ERROR _NLA0:
931 $ DEFINE SYS$OUTPUT _NLA0:
932 $ on error then continue
933 $ on warning then continue
935 $ teststatus = f$extract(9,1,$status)
936 $ DEASSIGN SYS$OUTPUT
938 $ if (teststatus.nes."1")
940 $! Okay, fd_set failed. Must be an int
941 $ perl_selecttype = "int *"
943 $ perl_selecttype="fd_set *"
946 $ ! No sockets, so stick in an int *
947 $ perl_selecttype = "int *"
949 $ WRITE_RESULT "selectype is ''perl_selecttype'"
951 $! Check to see if fd_set exists
955 $ WS "#include <stdlib.h>
957 $ WS "#include <stdio.h>
958 $ WS "#include <types.h>
959 $ WS "#include <unistd.h>
960 $ if ("''Has_Socketshr'".eqs."T")
962 $ WS "#include <socketshr.h>"
964 $ IF ("''Has_Dec_C_Sockets'".eqs."T")
966 $ WS "#include <time.h>
967 $ WS "#include <socket.h>
976 $ DEFINE SYS$ERROR _NLA0:
977 $ DEFINE SYS$OUTPUT _NLA0:
978 $ on error then continue
979 $ on warning then continue
981 $ teststatus = f$extract(9,1,$status)
982 $ DEASSIGN SYS$OUTPUT
984 $ if (teststatus.nes."1")
986 $! Okay, fd_set failed. Must not exist
987 $ perl_d_fd_set = "undef"
989 $ perl_d_fd_set="define"
991 $ WRITE_RESULT "d_fd_set is ''perl_d_fd_set'"
993 $! Check for inttypes.h
997 $ WS "#include <stdlib.h>
999 $ WS "#include <stdio.h>
1000 $ WS "#include <unistd.h>
1001 $ WS "#include <inttypes.h>
1007 $ DEFINE SYS$ERROR _NLA0:
1008 $ DEFINE SYS$OUTPUT _NLA0:
1009 $ on error then continue
1010 $ on warning then continue
1012 $ savedstatus = $status
1013 $ teststatus = f$extract(9,1,savedstatus)
1014 $ if (teststatus.nes."1")
1016 $ perl_i_inttypes="undef"
1017 $ DEASSIGN SYS$OUTPUT
1018 $ DEASSIGN SYS$ERROR
1020 $ If (Needs_Opt.eqs."Yes")
1022 $ link temp.obj,temp.opt/opt
1026 $ savedstatus = $status
1027 $ teststatus = f$extract(9,1,savedstatus)
1028 $ DEASSIGN SYS$OUTPUT
1029 $ DEASSIGN SYS$ERROR
1030 $ if (teststatus.nes."1")
1032 $ perl_i_inttypes="undef"
1034 $ perl_i_inttypes="define"
1037 $ WRITE_RESULT "i_inttypes is ''perl_i_inttypes'"
1039 $! Check to see if int64_t exists
1043 $ WS "#include <stdlib.h>
1045 $ WS "#include <stdio.h>
1046 $ WS "#include <types.h>
1047 $ WS "#''perl_i_inttypes IIH
1049 $ WS "#include <inttypes.h>
1051 $ WS "#include <unistd.h>
1058 $ DEFINE SYS$ERROR _NLA0:
1059 $ DEFINE SYS$OUTPUT _NLA0:
1060 $ on error then continue
1061 $ on warning then continue
1063 $ teststatus = f$extract(9,1,$status)
1064 $ DEASSIGN SYS$OUTPUT
1065 $ DEASSIGN SYS$ERROR
1066 $ if (teststatus.nes."1")
1068 $! Okay, int64_t failed. Must not exist
1069 $ perl_d_int64_t = "undef"
1071 $ perl_d_int64_t="define"
1073 $ WRITE_RESULT "d_int64_t is ''perl_d_int64_t'"
1075 $! Check to see if off64_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, off64_t failed. Must not exist
1105 $ perl_d_off64_t = "undef"
1107 $ perl_d_off64_t="define"
1109 $ WRITE_RESULT "d_off64_t is ''perl_d_off64_t'"
1111 $! Check to see if fpos64_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, fpos64_t failed. Must not exist
1141 $ perl_d_fpos64_t = "undef"
1143 $ perl_d_fpos64_t="define"
1145 $ WRITE_RESULT "d_fpos64_t is ''perl_d_fpos64_t'"
1147 $! Check to see if gethostname exists
1149 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1153 $ WS "#include <stdlib.h>
1155 $ WS "#include <stdio.h>
1156 $ WS "#include <types.h>
1157 $ WS "#include <unistd.h>
1158 $ if ("''Has_Socketshr'".eqs."T")
1160 $ WS "#include <socketshr.h>"
1162 $ WS "#include <time.h>
1163 $ WS "#include <socket.h>
1167 $ WS "char name[100];
1170 $ WS "baz = gethostname(name, bar);
1174 $ DEFINE SYS$ERROR _NLA0:
1175 $ DEFINE SYS$OUTPUT _NLA0:
1176 $ on error then continue
1177 $ on warning then continue
1179 $ teststatus = f$extract(9,1,$status)
1180 $ DEASSIGN SYS$OUTPUT
1181 $ DEASSIGN SYS$ERROR
1182 $ if (teststatus.nes."1")
1184 $! Okay, compile failed. Must not have it
1185 $ perl_d_gethname = "undef"
1187 $ If (Needs_Opt.eqs."Yes")
1189 $ link temp.obj,temp.opt/opt
1193 $ savedstatus = $status
1194 $ teststatus = f$extract(9,1,savedstatus)
1195 $ if (teststatus.nes."1")
1197 $ perl_d_gethname="undef"
1199 $ perl_d_gethname="define"
1203 $ ! No sockets, so no gethname
1204 $ perl_d_gethname = "undef"
1206 $ WRITE_RESULT "d_gethname is ''perl_d_gethname'"
1208 $! Check for sys/file.h
1212 $ WS "#include <stdlib.h>
1214 $ WS "#include <stdio.h>
1215 $ WS "#include <unistd.h>
1216 $ WS "#include <sys/file.h>
1222 $ DEFINE SYS$ERROR _NLA0:
1223 $ DEFINE SYS$OUTPUT _NLA0:
1224 $ on error then continue
1225 $ on warning then continue
1227 $ savedstatus = $status
1228 $ teststatus = f$extract(9,1,savedstatus)
1229 $ if (teststatus.nes."1")
1231 $ perl_i_sysfile="undef"
1232 $ DEASSIGN SYS$OUTPUT
1233 $ DEASSIGN SYS$ERROR
1235 $ If (Needs_Opt.eqs."Yes")
1237 $ link temp.obj,temp.opt/opt
1241 $ savedstatus = $status
1242 $ teststatus = f$extract(9,1,savedstatus)
1243 $ DEASSIGN SYS$OUTPUT
1244 $ DEASSIGN SYS$ERROR
1245 $ if (teststatus.nes."1")
1247 $ perl_i_sysfile="undef"
1249 $ perl_i_sysfile="define"
1252 $ WRITE_RESULT "i_sysfile is ''perl_i_sysfile'"
1254 $! Check for sys/utsname.h
1258 $ WS "#include <stdlib.h>
1260 $ WS "#include <stdio.h>
1261 $ WS "#include <unistd.h>
1262 $ WS "#include <sys/utsname.h>
1268 $ DEFINE SYS$ERROR _NLA0:
1269 $ DEFINE SYS$OUTPUT _NLA0:
1270 $ on error then continue
1271 $ on warning then continue
1273 $ savedstatus = $status
1274 $ teststatus = f$extract(9,1,savedstatus)
1275 $ if (teststatus.nes."1")
1277 $ perl_i_sysutsname="undef"
1278 $ DEASSIGN SYS$OUTPUT
1279 $ DEASSIGN SYS$ERROR
1281 $ If (Needs_Opt.eqs."Yes")
1283 $ link temp.obj,temp.opt/opt
1287 $ savedstatus = $status
1288 $ teststatus = f$extract(9,1,savedstatus)
1289 $ DEASSIGN SYS$OUTPUT
1290 $ DEASSIGN SYS$ERROR
1291 $ if (teststatus.nes."1")
1293 $ perl_i_sysutsname="undef"
1295 $ perl_i_sysutsname="define"
1298 $ WRITE_RESULT "i_sysutsname is ''perl_i_sysutsname'"
1300 $! Check for syslog.h
1304 $ WS "#include <stdlib.h>
1306 $ WS "#include <stdio.h>
1307 $ WS "#include <unistd.h>
1308 $ WS "#include <syslog.h>
1314 $ DEFINE SYS$ERROR _NLA0:
1315 $ DEFINE SYS$OUTPUT _NLA0:
1316 $ on error then continue
1317 $ on warning then continue
1319 $ savedstatus = $status
1320 $ teststatus = f$extract(9,1,savedstatus)
1321 $ if (teststatus.nes."1")
1323 $ perl_i_syslog="undef"
1324 $ DEASSIGN SYS$OUTPUT
1325 $ DEASSIGN SYS$ERROR
1327 $ If (Needs_Opt.eqs."Yes")
1329 $ link temp.obj,temp.opt/opt
1333 $ savedstatus = $status
1334 $ teststatus = f$extract(9,1,savedstatus)
1335 $ DEASSIGN SYS$OUTPUT
1336 $ DEASSIGN SYS$ERROR
1337 $ if (teststatus.nes."1")
1339 $ perl_i_syslog="undef"
1341 $ perl_i_syslog="define"
1344 $ WRITE_RESULT "i_syslog is ''perl_i_syslog'"
1350 $ WS "#include <stdlib.h>
1352 $ WS "#include <stdio.h>
1353 $ WS "#include <unistd.h>
1354 $ WS "#include <poll.h>
1360 $ DEFINE SYS$ERROR _NLA0:
1361 $ DEFINE SYS$OUTPUT _NLA0:
1362 $ on error then continue
1363 $ on warning then continue
1365 $ savedstatus = $status
1366 $ teststatus = f$extract(9,1,savedstatus)
1367 $ if (teststatus.nes."1")
1369 $ perl_i_poll="undef"
1370 $ DEASSIGN SYS$OUTPUT
1371 $ DEASSIGN SYS$ERROR
1373 $ If (Needs_Opt.eqs."Yes")
1375 $ link temp.obj,temp.opt/opt
1379 $ savedstatus = $status
1380 $ teststatus = f$extract(9,1,savedstatus)
1381 $ DEASSIGN SYS$OUTPUT
1382 $ DEASSIGN SYS$ERROR
1383 $ if (teststatus.nes."1")
1385 $ perl_i_poll="undef"
1387 $ perl_i_poll="define"
1390 $ WRITE_RESULT "i_poll is ''perl_i_poll'"
1392 $! Check for sys/uio.h
1396 $ WS "#include <stdlib.h>
1398 $ WS "#include <stdio.h>
1399 $ WS "#include <unistd.h>
1400 $ WS "#include <sys/uio.h>
1406 $ DEFINE SYS$ERROR _NLA0:
1407 $ DEFINE SYS$OUTPUT _NLA0:
1408 $ on error then continue
1409 $ on warning then continue
1411 $ savedstatus = $status
1412 $ teststatus = f$extract(9,1,savedstatus)
1413 $ if (teststatus.nes."1")
1415 $ perl_i_sysuio="undef"
1416 $ DEASSIGN SYS$OUTPUT
1417 $ DEASSIGN SYS$ERROR
1419 $ If (Needs_Opt.eqs."Yes")
1421 $ link temp.obj,temp.opt/opt
1425 $ savedstatus = $status
1426 $ teststatus = f$extract(9,1,savedstatus)
1427 $ DEASSIGN SYS$OUTPUT
1428 $ DEASSIGN SYS$ERROR
1429 $ if (teststatus.nes."1")
1431 $ perl_i_sysuio="undef"
1433 $ perl_i_sysuio="define"
1436 $ WRITE_RESULT "i_sysuio is ''perl_i_sysuio'"
1438 $! Check for sys/mode.h
1442 $ WS "#include <stdlib.h>
1444 $ WS "#include <stdio.h>
1445 $ WS "#include <unistd.h>
1446 $ WS "#include <sys/mode.h>
1452 $ DEFINE SYS$ERROR _NLA0:
1453 $ DEFINE SYS$OUTPUT _NLA0:
1454 $ on error then continue
1455 $ on warning then continue
1457 $ savedstatus = $status
1458 $ teststatus = f$extract(9,1,savedstatus)
1459 $ if (teststatus.nes."1")
1461 $ perl_i_sysmode="undef"
1462 $ DEASSIGN SYS$OUTPUT
1463 $ DEASSIGN SYS$ERROR
1465 $ If (Needs_Opt.eqs."Yes")
1467 $ link temp.obj,temp.opt/opt
1471 $ savedstatus = $status
1472 $ teststatus = f$extract(9,1,savedstatus)
1473 $ DEASSIGN SYS$OUTPUT
1474 $ DEASSIGN SYS$ERROR
1475 $ if (teststatus.nes."1")
1477 $ perl_i_sysmode="undef"
1479 $ perl_i_sysmode="define"
1482 $ WRITE_RESULT "i_sysmode is ''perl_i_sysmode'"
1484 $! Check for sys/access.h
1488 $ WS "#include <stdlib.h>
1490 $ WS "#include <stdio.h>
1491 $ WS "#include <unistd.h>
1492 $ WS "#include <sys/access.h>
1498 $ DEFINE SYS$ERROR _NLA0:
1499 $ DEFINE SYS$OUTPUT _NLA0:
1500 $ on error then continue
1501 $ on warning then continue
1503 $ savedstatus = $status
1504 $ teststatus = f$extract(9,1,savedstatus)
1505 $ if (teststatus.nes."1")
1507 $ perl_i_sysaccess="undef"
1508 $ DEASSIGN SYS$OUTPUT
1509 $ DEASSIGN SYS$ERROR
1511 $ If (Needs_Opt.eqs."Yes")
1513 $ link temp.obj,temp.opt/opt
1517 $ savedstatus = $status
1518 $ teststatus = f$extract(9,1,savedstatus)
1519 $ DEASSIGN SYS$OUTPUT
1520 $ DEASSIGN SYS$ERROR
1521 $ if (teststatus.nes."1")
1523 $ perl_i_sysaccess="undef"
1525 $ perl_i_sysaccess="define"
1528 $ WRITE_RESULT "i_sysaccess is ''perl_i_sysaccess'"
1530 $! Check for sys/security.h
1534 $ WS "#include <stdlib.h>
1536 $ WS "#include <stdio.h>
1537 $ WS "#include <unistd.h>
1538 $ WS "#include <sys/security.h>
1544 $ DEFINE SYS$ERROR _NLA0:
1545 $ DEFINE SYS$OUTPUT _NLA0:
1546 $ on error then continue
1547 $ on warning then continue
1549 $ savedstatus = $status
1550 $ teststatus = f$extract(9,1,savedstatus)
1551 $ if (teststatus.nes."1")
1553 $ perl_i_syssecrt="undef"
1554 $ DEASSIGN SYS$OUTPUT
1555 $ DEASSIGN SYS$ERROR
1557 $ If (Needs_Opt.eqs."Yes")
1559 $ link temp.obj,temp.opt/opt
1563 $ savedstatus = $status
1564 $ teststatus = f$extract(9,1,savedstatus)
1565 $ DEASSIGN SYS$OUTPUT
1566 $ DEASSIGN SYS$ERROR
1567 $ if (teststatus.nes."1")
1569 $ perl_i_syssecrt="undef"
1571 $ perl_i_syssecrt="define"
1574 $ WRITE_RESULT "i_syssecrt is ''perl_i_syssecrt'"
1576 $! Check for fcntl.h
1580 $ WS "#include <stdlib.h>
1582 $ WS "#include <stdio.h>
1583 $ WS "#include <unistd.h>
1584 $ WS "#include <fcntl.h>
1590 $ DEFINE SYS$ERROR _NLA0:
1591 $ DEFINE SYS$OUTPUT _NLA0:
1592 $ on error then continue
1593 $ on warning then continue
1595 $ savedstatus = $status
1596 $ teststatus = f$extract(9,1,savedstatus)
1597 $ if (teststatus.nes."1")
1599 $ perl_i_fcntl="undef"
1600 $ DEASSIGN SYS$OUTPUT
1601 $ DEASSIGN SYS$ERROR
1603 $ If (Needs_Opt.eqs."Yes")
1605 $ link temp.obj,temp.opt/opt
1609 $ savedstatus = $status
1610 $ teststatus = f$extract(9,1,savedstatus)
1611 $ DEASSIGN SYS$OUTPUT
1612 $ DEASSIGN SYS$ERROR
1613 $ if (teststatus.nes."1")
1615 $ perl_i_fcntl="undef"
1617 $ perl_i_fcntl="define"
1620 $ WRITE_RESULT "i_fcntl is ''perl_i_fcntl'"
1626 $ WS "#include <stdlib.h>
1628 $ WS "#include <stdio.h>
1629 $ WS "#include <unistd.h>
1630 $ WS "#include <fcntl.h>
1637 $ DEFINE SYS$ERROR _NLA0:
1638 $ DEFINE SYS$OUTPUT _NLA0:
1639 $ on error then continue
1640 $ on warning then continue
1642 $ savedstatus = $status
1643 $ teststatus = f$extract(9,1,savedstatus)
1644 $ if (teststatus.nes."1")
1646 $ perl_d_fcntl="undef"
1647 $ DEASSIGN SYS$OUTPUT
1648 $ DEASSIGN SYS$ERROR
1650 $ If (Needs_Opt.eqs."Yes")
1652 $ link temp.obj,temp.opt/opt
1656 $ savedstatus = $status
1657 $ teststatus = f$extract(9,1,savedstatus)
1658 $ DEASSIGN SYS$OUTPUT
1659 $ DEASSIGN SYS$ERROR
1660 $ if (teststatus.nes."1")
1662 $ perl_d_fcntl="undef"
1664 $ perl_d_fcntl="define"
1667 $ WRITE_RESULT "d_fcntl is ''perl_d_fcntl'"
1673 $ WS "#include <stdlib.h>
1675 $ WS "#include <string.h>
1679 $ WS "place = memchr(""foo"", 47, 3)
1683 $ DEFINE SYS$ERROR _NLA0:
1684 $ DEFINE SYS$OUTPUT _NLA0:
1685 $ on error then continue
1686 $ on warning then continue
1688 $ savedstatus = $status
1689 $ teststatus = f$extract(9,1,savedstatus)
1690 $ if (teststatus.nes."1")
1692 $ perl_d_memchr="undef"
1693 $ DEASSIGN SYS$OUTPUT
1694 $ DEASSIGN SYS$ERROR
1696 $ If (Needs_Opt.eqs."Yes")
1698 $ link temp.obj,temp.opt/opt
1702 $ savedstatus = $status
1703 $ teststatus = f$extract(9,1,savedstatus)
1704 $ DEASSIGN SYS$OUTPUT
1705 $ DEASSIGN SYS$ERROR
1706 $ if (teststatus.nes."1")
1708 $ perl_d_memchr="undef"
1710 $ perl_d_memchr="define"
1713 $ WRITE_RESULT "d_memchr is ''perl_d_memchr'"
1715 $! Check for strtoull
1719 $ WS "#include <stdlib.h>
1721 $ WS "#include <string.h>
1724 $ WS "unsigned __int64 result;
1725 $ WS "result = strtoull(""123123"", NULL, 10);
1729 $ DEFINE SYS$ERROR _NLA0:
1730 $ DEFINE SYS$OUTPUT _NLA0:
1731 $ on error then continue
1732 $ on warning then continue
1734 $ savedstatus = $status
1735 $ teststatus = f$extract(9,1,savedstatus)
1736 $ if (teststatus.nes."1")
1738 $ perl_d_strtoull="undef"
1739 $ DEASSIGN SYS$OUTPUT
1740 $ DEASSIGN SYS$ERROR
1742 $ If (Needs_Opt.eqs."Yes")
1744 $ link temp.obj,temp.opt/opt
1748 $ savedstatus = $status
1749 $ teststatus = f$extract(9,1,savedstatus)
1750 $ DEASSIGN SYS$OUTPUT
1751 $ DEASSIGN SYS$ERROR
1752 $ if (teststatus.nes."1")
1754 $ perl_d_strtoull="undef"
1756 $ perl_d_strtoull="define"
1759 $ WRITE_RESULT "d_strtoull is ''perl_d_strtoull'"
1761 $! Check for strtouq
1765 $ WS "#include <stdlib.h>
1767 $ WS "#include <string.h>
1770 $ WS "unsigned __int64 result;
1771 $ WS "result = strtouq(""123123"", NULL, 10);
1775 $ DEFINE SYS$ERROR _NLA0:
1776 $ DEFINE SYS$OUTPUT _NLA0:
1777 $ on error then continue
1778 $ on warning then continue
1780 $ savedstatus = $status
1781 $ teststatus = f$extract(9,1,savedstatus)
1782 $ if (teststatus.nes."1")
1784 $ perl_d_strtouq="undef"
1785 $ DEASSIGN SYS$OUTPUT
1786 $ DEASSIGN SYS$ERROR
1788 $ If (Needs_Opt.eqs."Yes")
1790 $ link temp.obj,temp.opt/opt
1794 $ savedstatus = $status
1795 $ teststatus = f$extract(9,1,savedstatus)
1796 $ DEASSIGN SYS$OUTPUT
1797 $ DEASSIGN SYS$ERROR
1798 $ if (teststatus.nes."1")
1800 $ perl_d_strtouq="undef"
1802 $ perl_d_strtouq="define"
1805 $ WRITE_RESULT "d_strtouq is ''perl_d_strtouq'"
1807 $! Check for strtoll
1811 $ WS "#include <stdlib.h>
1813 $ WS "#include <string.h>
1816 $ WS "__int64 result;
1817 $ WS "result = strtoll(""123123"", NULL, 10);
1821 $ DEFINE SYS$ERROR _NLA0:
1822 $ DEFINE SYS$OUTPUT _NLA0:
1823 $ on error then continue
1824 $ on warning then continue
1826 $ savedstatus = $status
1827 $ teststatus = f$extract(9,1,savedstatus)
1828 $ if (teststatus.nes."1")
1830 $ perl_d_strtoll="undef"
1831 $ DEASSIGN SYS$OUTPUT
1832 $ DEASSIGN SYS$ERROR
1834 $ If (Needs_Opt.eqs."Yes")
1836 $ link temp.obj,temp.opt/opt
1840 $ savedstatus = $status
1841 $ teststatus = f$extract(9,1,savedstatus)
1842 $ DEASSIGN SYS$OUTPUT
1843 $ DEASSIGN SYS$ERROR
1844 $ if (teststatus.nes."1")
1846 $ perl_d_strtoll="undef"
1848 $ perl_d_strtoll="define"
1851 $ WRITE_RESULT "d_strtoll is ''perl_d_strtoll'"
1853 $! Check for strtold
1857 $ WS "#include <stdlib.h>
1859 $ WS "#include <string.h>
1862 $ WS "long double result;
1863 $ WS "result = strtold(""123123"", NULL, 10);
1867 $ DEFINE SYS$ERROR _NLA0:
1868 $ DEFINE SYS$OUTPUT _NLA0:
1869 $ on error then continue
1870 $ on warning then continue
1872 $ savedstatus = $status
1873 $ teststatus = f$extract(9,1,savedstatus)
1874 $ if (teststatus.nes."1")
1876 $ perl_d_strtold="undef"
1877 $ DEASSIGN SYS$OUTPUT
1878 $ DEASSIGN SYS$ERROR
1880 $ If (Needs_Opt.eqs."Yes")
1882 $ link temp.obj,temp.opt/opt
1886 $ savedstatus = $status
1887 $ teststatus = f$extract(9,1,savedstatus)
1888 $ DEASSIGN SYS$OUTPUT
1889 $ DEASSIGN SYS$ERROR
1890 $ if (teststatus.nes."1")
1892 $ perl_d_strtold="undef"
1894 $ perl_d_strtold="define"
1897 $ WRITE_RESULT "d_strtold is ''perl_d_strtold'"
1903 $ WS "#include <stdlib.h>
1905 $ WS "#include <string.h>
1908 $ WS " __int64 result;
1909 $ WS "result = atoll(""123123"");
1913 $ DEFINE SYS$ERROR _NLA0:
1914 $ DEFINE SYS$OUTPUT _NLA0:
1915 $ on error then continue
1916 $ on warning then continue
1918 $ savedstatus = $status
1919 $ teststatus = f$extract(9,1,savedstatus)
1920 $ if (teststatus.nes."1")
1922 $ perl_d_atoll="undef"
1923 $ DEASSIGN SYS$OUTPUT
1924 $ DEASSIGN SYS$ERROR
1926 $ If (Needs_Opt.eqs."Yes")
1928 $ link temp.obj,temp.opt/opt
1932 $ savedstatus = $status
1933 $ teststatus = f$extract(9,1,savedstatus)
1934 $ DEASSIGN SYS$OUTPUT
1935 $ DEASSIGN SYS$ERROR
1936 $ if (teststatus.nes."1")
1938 $ perl_d_atoll="undef"
1940 $ perl_d_atoll="define"
1943 $ WRITE_RESULT "d_atoll is ''perl_d_atoll'"
1949 $ WS "#include <stdlib.h>
1951 $ WS "#include <string.h>
1955 $ WS "result = atolf(""123123"");
1959 $ DEFINE SYS$ERROR _NLA0:
1960 $ DEFINE SYS$OUTPUT _NLA0:
1961 $ on error then continue
1962 $ on warning then continue
1964 $ savedstatus = $status
1965 $ teststatus = f$extract(9,1,savedstatus)
1966 $ if (teststatus.nes."1")
1968 $ perl_d_atolf="undef"
1969 $ DEASSIGN SYS$OUTPUT
1970 $ DEASSIGN SYS$ERROR
1972 $ If (Needs_Opt.eqs."Yes")
1974 $ link temp.obj,temp.opt/opt
1978 $ savedstatus = $status
1979 $ teststatus = f$extract(9,1,savedstatus)
1980 $ DEASSIGN SYS$OUTPUT
1981 $ DEASSIGN SYS$ERROR
1982 $ if (teststatus.nes."1")
1984 $ perl_d_atolf="undef"
1986 $ perl_d_atolf="define"
1989 $ WRITE_RESULT "d_atolf is ''perl_d_atolf'"
1995 $ WS "#include <stdlib.h>
1997 $ WS "#include <stdio.h>
1998 $ WS "#include <unistd.h>
2001 $ WS "access("foo", F_OK);
2005 $ DEFINE SYS$ERROR _NLA0:
2006 $ DEFINE SYS$OUTPUT _NLA0:
2007 $ on error then continue
2008 $ on warning then continue
2010 $ savedstatus = $status
2011 $ teststatus = f$extract(9,1,savedstatus)
2012 $ if (teststatus.nes."1")
2014 $ perl_d_access="undef"
2015 $ DEASSIGN SYS$OUTPUT
2016 $ DEASSIGN SYS$ERROR
2018 $ If (Needs_Opt.eqs."Yes")
2020 $ link temp.obj,temp.opt/opt
2024 $ savedstatus = $status
2025 $ teststatus = f$extract(9,1,savedstatus)
2026 $ DEASSIGN SYS$OUTPUT
2027 $ DEASSIGN SYS$ERROR
2028 $ if (teststatus.nes."1")
2030 $ perl_d_access="undef"
2032 $ perl_d_access="define"
2035 $ WRITE_RESULT "d_access is ''perl_d_access'"
2041 $ WS "#include <stdlib.h>
2043 $ WS "#include <stdio.h>
2044 $ WS "#include <strings.h>
2048 $ WS "bzero(foo, 10);
2052 $ DEFINE SYS$ERROR _NLA0:
2053 $ DEFINE SYS$OUTPUT _NLA0:
2054 $ on error then continue
2055 $ on warning then continue
2057 $ savedstatus = $status
2058 $ teststatus = f$extract(9,1,savedstatus)
2059 $ if (teststatus.nes."1")
2061 $ perl_d_bzero="undef"
2062 $ DEASSIGN SYS$OUTPUT
2063 $ DEASSIGN SYS$ERROR
2065 $ If (Needs_Opt.eqs."Yes")
2067 $ link temp.obj,temp.opt/opt
2071 $ savedstatus = $status
2072 $ teststatus = f$extract(9,1,savedstatus)
2073 $ DEASSIGN SYS$OUTPUT
2074 $ DEASSIGN SYS$ERROR
2075 $ if (teststatus.nes."1")
2077 $ perl_d_bzero="undef"
2079 $ perl_d_bzero="define"
2082 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
2088 $ WS "#include <stdlib.h>
2090 $ WS "#include <stdio.h>
2091 $ WS "#include <strings.h>
2094 $ WS "char foo[10], bar[10];
2095 $ WS "bcopy(""foo"", bar, 3);
2099 $ DEFINE SYS$ERROR _NLA0:
2100 $ DEFINE SYS$OUTPUT _NLA0:
2101 $ on error then continue
2102 $ on warning then continue
2104 $ savedstatus = $status
2105 $ teststatus = f$extract(9,1,savedstatus)
2106 $ if (teststatus.nes."1")
2108 $ perl_d_bcopy="undef"
2109 $ DEASSIGN SYS$OUTPUT
2110 $ DEASSIGN SYS$ERROR
2112 $ If (Needs_Opt.eqs."Yes")
2114 $ link temp.obj,temp.opt/opt
2118 $ savedstatus = $status
2119 $ teststatus = f$extract(9,1,savedstatus)
2120 $ DEASSIGN SYS$OUTPUT
2121 $ DEASSIGN SYS$ERROR
2122 $ if (teststatus.nes."1")
2124 $ perl_d_bcopy="undef"
2126 $ perl_d_bcopy="define"
2129 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
2131 $! Check for mkstemp
2135 $ WS "#include <stdlib.h>
2137 $ WS "#include <stdio.h>
2140 $ WS "mkstemp(""foo"");
2144 $ DEFINE SYS$ERROR _NLA0:
2145 $ DEFINE SYS$OUTPUT _NLA0:
2146 $ on error then continue
2147 $ on warning then continue
2149 $ If (Needs_Opt.eqs."Yes")
2151 $ link temp.obj,temp.opt/opt
2155 $ savedstatus = $status
2156 $ teststatus = f$extract(9,1,savedstatus)
2157 $ DEASSIGN SYS$OUTPUT
2158 $ DEASSIGN SYS$ERROR
2159 $ if (teststatus.nes."1")
2161 $ perl_d_mkstemp="undef"
2163 $ perl_d_mkstemp="define"
2165 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
2167 $! Check for mkstemps
2171 $ WS "#include <stdlib.h>
2173 $ WS "#include <stdio.h>
2176 $ WS "mkstemps(""foo"", 1);
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_mkstemps="undef"
2199 $ perl_d_mkstemps="define"
2201 $ WRITE_RESULT "d_mkstemps is ''perl_d_mkstemps'"
2207 $ WS "#include <stdlib.h>
2209 $ WS "#include <stdio.h>
2210 $ WS "#include <iconv.h>
2213 $ WS " iconv_t cd = (iconv_t)0;"
2214 $ WS " char *inbuf, *outbuf;"
2215 $ WS " size_t inleft, outleft;"
2216 $ WS " iconv(cd, &inbuf, &inleft, &outbuf, &outleft);"
2220 $ DEFINE SYS$ERROR _NLA0:
2221 $ DEFINE SYS$OUTPUT _NLA0:
2222 $ on error then continue
2223 $ on warning then continue
2225 $ savedstatus = $status
2226 $ teststatus = f$extract(9,1,savedstatus)
2227 $ if (teststatus.nes."1")
2229 $ perl_d_iconv="undef"
2230 $ perl_i_iconv="undef"
2231 $ DEASSIGN SYS$OUTPUT
2232 $ DEASSIGN SYS$ERROR
2234 $ If (Needs_Opt.eqs."Yes")
2236 $ link temp.obj,temp.opt/opt
2240 $ savedstatus = $status
2241 $ teststatus = f$extract(9,1,savedstatus)
2242 $ DEASSIGN SYS$OUTPUT
2243 $ DEASSIGN SYS$ERROR
2244 $ if (teststatus.nes."1")
2246 $ perl_d_iconv="undef"
2247 $ perl_i_iconv="undef"
2249 $ perl_d_iconv="define"
2250 $ perl_i_iconv="define"
2253 $ WRITE_RESULT "d_iconv is ''perl_d_iconv'"
2254 $ WRITE_RESULT "i_iconv is ''perl_i_iconv'"
2256 $! Check for mkdtemp
2260 $ WS "#include <stdlib.h>
2262 $ WS "#include <stdio.h>
2265 $ WS "mkdtemp(""foo"");
2269 $ DEFINE SYS$ERROR _NLA0:
2270 $ DEFINE SYS$OUTPUT _NLA0:
2271 $ on error then continue
2272 $ on warning then continue
2274 $ If (Needs_Opt.eqs."Yes")
2276 $ link temp.obj,temp.opt/opt
2280 $ savedstatus = $status
2281 $ teststatus = f$extract(9,1,savedstatus)
2282 $ DEASSIGN SYS$OUTPUT
2283 $ DEASSIGN SYS$ERROR
2284 $ if (teststatus.nes."1")
2286 $ perl_d_mkdtemp="undef"
2288 $ perl_d_mkdtemp="define"
2290 $ WRITE_RESULT "d_mkdtemp is ''perl_d_mkdtemp'"
2292 $! Check for setvbuf
2296 $ WS "#include <stdlib.h>
2298 $ WS "#include <stdio.h>
2302 $ WS "char Buffer[99];
2303 $ WS "foo = fopen(""foo"", ""r"");
2304 $ WS "setvbuf(foo, Buffer, 0, 0);
2308 $ DEFINE SYS$ERROR _NLA0:
2309 $ DEFINE SYS$OUTPUT _NLA0:
2310 $ on error then continue
2311 $ on warning then continue
2313 $ If (Needs_Opt.eqs."Yes")
2315 $ link temp.obj,temp.opt/opt
2319 $ teststatus = f$extract(9,1,$status)
2320 $ DEASSIGN SYS$OUTPUT
2321 $ DEASSIGN SYS$ERROR
2322 $ if (teststatus.nes."1")
2324 $ perl_d_setvbuf="undef"
2326 $ perl_d_setvbuf="define"
2328 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
2334 $ WS "#include <stdlib.h>
2336 $ WS "#include <stdio.h>
2339 $ WS "setenv(""FOO"", ""BAR"", 0);
2343 $ DEFINE SYS$ERROR _NLA0:
2344 $ DEFINE SYS$OUTPUT _NLA0:
2345 $ on error then continue
2346 $ on warning then continue
2348 $ If (Needs_Opt.eqs."Yes")
2350 $ link temp,temp/opt
2354 $ teststatus = f$extract(9,1,$status)
2355 $ DEASSIGN SYS$OUTPUT
2356 $ DEASSIGN SYS$ERROR
2357 $ if (teststatus.nes."1")
2359 $ perl_d_setenv="undef"
2361 $ perl_d_setenv="define"
2363 $ WRITE_RESULT "d_setenv is ''perl_d_setenv'"
2365 $! Check for <netinet/in.h>
2367 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2371 $ WS "#include <stdlib.h>
2373 $ WS "#include <stdio.h>
2374 $ if ("''Has_Socketshr'".eqs."T")
2376 $ WS "#include <socketshr.h>"
2378 $ WS "#include <netdb.h>
2380 $ WS "#include <netinet/in.h>"
2386 $ DEFINE SYS$ERROR _NLA0:
2387 $ DEFINE SYS$OUTPUT _NLA0:
2388 $ on error then continue
2389 $ on warning then continue
2391 $ If (Needs_Opt.eqs."Yes")
2393 $ link temp.obj,temp.opt/opt
2397 $ teststatus = f$extract(9,1,$status)
2398 $ DEASSIGN SYS$OUTPUT
2399 $ DEASSIGN SYS$ERROR
2400 $ if (teststatus.nes."1")
2402 $ perl_i_niin="undef"
2404 $ perl_i_niin="define"
2407 $ perl_i_niin="undef"
2409 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
2411 $! Check for <netinet/tcp.h>
2413 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2417 $ WS "#include <stdlib.h>
2419 $ WS "#include <stdio.h>
2420 $ if ("''Has_Socketshr'".eqs."T")
2422 $ WS "#include <socketshr.h>"
2424 $ WS "#include <netdb.h>
2426 $ WS "#include <netinet/tcp.h>"
2432 $ DEFINE SYS$ERROR _NLA0:
2433 $ DEFINE SYS$OUTPUT _NLA0:
2434 $ on error then continue
2435 $ on warning then continue
2437 $ If (Needs_Opt.eqs."Yes")
2439 $ link temp.obj,temp.opt/opt
2443 $ teststatus = f$extract(9,1,$status)
2444 $ DEASSIGN SYS$OUTPUT
2445 $ DEASSIGN SYS$ERROR
2446 $ if (teststatus.nes."1")
2448 $ perl_i_netinettcp="undef"
2450 $ perl_i_netinettcp="define"
2453 $ perl_i_netinettcp="undef"
2455 $ WRITE_RESULT "i_netinettcp is ''perl_i_netinettcp'"
2457 $! Check for endhostent
2459 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2463 $ WS "#include <stdlib.h>
2465 $ WS "#include <stdio.h>
2466 $ if ("''Has_Socketshr'".eqs."T")
2468 $ WS "#include <socketshr.h>"
2470 $ WS "#include <netdb.h>
2478 $ DEFINE SYS$ERROR _NLA0:
2479 $ DEFINE SYS$OUTPUT _NLA0:
2480 $ on error then continue
2481 $ on warning then continue
2483 $ If (Needs_Opt.eqs."Yes")
2485 $ link temp.obj,temp.opt/opt
2489 $ teststatus = f$extract(9,1,$status)
2490 $ DEASSIGN SYS$OUTPUT
2491 $ DEASSIGN SYS$ERROR
2492 $ if (teststatus.nes."1")
2494 $ perl_d_endhent="undef"
2496 $ perl_d_endhent="define"
2499 $ perl_d_endhent="undef"
2501 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
2503 $! Check for endnetent
2505 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2509 $ WS "#include <stdlib.h>
2511 $ WS "#include <stdio.h>
2512 $ if ("''Has_Socketshr'".eqs."T")
2514 $ WS "#include <socketshr.h>"
2516 $ WS "#include <netdb.h>
2524 $ DEFINE SYS$ERROR _NLA0:
2525 $ DEFINE SYS$OUTPUT _NLA0:
2526 $ on error then continue
2527 $ on warning then continue
2529 $ If (Needs_Opt.eqs."Yes")
2531 $ link temp.obj,temp.opt/opt
2535 $ teststatus = f$extract(9,1,$status)
2536 $ DEASSIGN SYS$OUTPUT
2537 $ DEASSIGN SYS$ERROR
2538 $ if (teststatus.nes."1")
2540 $ perl_d_endnent="undef"
2542 $ perl_d_endnent="define"
2545 $ perl_d_endnent="undef"
2547 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
2549 $! Check for endprotoent
2551 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2555 $ WS "#include <stdlib.h>
2557 $ WS "#include <stdio.h>
2558 $ if ("''Has_Socketshr'".eqs."T")
2560 $ WS "#include <socketshr.h>"
2562 $ WS "#include <netdb.h>
2566 $ WS "endprotoent();
2570 $ DEFINE SYS$ERROR _NLA0:
2571 $ DEFINE SYS$OUTPUT _NLA0:
2572 $ on error then continue
2573 $ on warning then continue
2575 $ If (Needs_Opt.eqs."Yes")
2577 $ link temp.obj,temp.opt/opt
2581 $ teststatus = f$extract(9,1,$status)
2582 $ DEASSIGN SYS$OUTPUT
2583 $ DEASSIGN SYS$ERROR
2584 $ if (teststatus.nes."1")
2586 $ perl_d_endpent="undef"
2588 $ perl_d_endpent="define"
2591 $ perl_d_endpent="undef"
2593 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
2595 $! Check for endservent
2597 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2601 $ WS "#include <stdlib.h>
2603 $ WS "#include <stdio.h>
2604 $ if ("''Has_Socketshr'".eqs."T")
2606 $ WS "#include <socketshr.h>"
2608 $ WS "#include <netdb.h>
2616 $ DEFINE SYS$ERROR _NLA0:
2617 $ DEFINE SYS$OUTPUT _NLA0:
2618 $ on error then continue
2619 $ on warning then continue
2621 $ If (Needs_Opt.eqs."Yes")
2623 $ link temp.obj,temp.opt/opt
2627 $ teststatus = f$extract(9,1,$status)
2628 $ DEASSIGN SYS$OUTPUT
2629 $ DEASSIGN SYS$ERROR
2630 $ if (teststatus.nes."1")
2632 $ perl_d_endsent="undef"
2634 $ perl_d_endsent="define"
2637 $ perl_d_endsent="undef"
2639 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
2641 $! Check for sethostent
2643 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2647 $ WS "#include <stdlib.h>
2649 $ WS "#include <stdio.h>
2650 $ if ("''Has_Socketshr'".eqs."T")
2652 $ WS "#include <socketshr.h>"
2654 $ WS "#include <netdb.h>
2658 $ WS "sethostent(1);
2662 $ DEFINE SYS$ERROR _NLA0:
2663 $ DEFINE SYS$OUTPUT _NLA0:
2664 $ on error then continue
2665 $ on warning then continue
2667 $ If (Needs_Opt.eqs."Yes")
2669 $ link temp.obj,temp.opt/opt
2673 $ teststatus = f$extract(9,1,$status)
2674 $ DEASSIGN SYS$OUTPUT
2675 $ DEASSIGN SYS$ERROR
2676 $ if (teststatus.nes."1")
2678 $ perl_d_sethent="undef"
2680 $ perl_d_sethent="define"
2683 $ perl_d_sethent="undef"
2685 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
2687 $! Check for setnetent
2689 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2693 $ WS "#include <stdlib.h>
2695 $ WS "#include <stdio.h>
2696 $ if ("''Has_Socketshr'".eqs."T")
2698 $ WS "#include <socketshr.h>"
2700 $ WS "#include <netdb.h>
2708 $ DEFINE SYS$ERROR _NLA0:
2709 $ DEFINE SYS$OUTPUT _NLA0:
2710 $ on error then continue
2711 $ on warning then continue
2713 $ If (Needs_Opt.eqs."Yes")
2715 $ link temp.obj,temp.opt/opt
2719 $ teststatus = f$extract(9,1,$status)
2720 $ DEASSIGN SYS$OUTPUT
2721 $ DEASSIGN SYS$ERROR
2722 $ if (teststatus.nes."1")
2724 $ perl_d_setnent="undef"
2726 $ perl_d_setnent="define"
2729 $ perl_d_setnent="undef"
2731 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
2733 $! Check for setprotoent
2735 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2739 $ WS "#include <stdlib.h>
2741 $ WS "#include <stdio.h>
2742 $ if ("''Has_Socketshr'".eqs."T")
2744 $ WS "#include <socketshr.h>"
2746 $ WS "#include <netdb.h>
2750 $ WS "setprotoent(1);
2754 $ DEFINE SYS$ERROR _NLA0:
2755 $ DEFINE SYS$OUTPUT _NLA0:
2756 $ on error then continue
2757 $ on warning then continue
2759 $ If (Needs_Opt.eqs."Yes")
2761 $ link temp.obj,temp.opt/opt
2765 $ teststatus = f$extract(9,1,$status)
2766 $ DEASSIGN SYS$OUTPUT
2767 $ DEASSIGN SYS$ERROR
2768 $ if (teststatus.nes."1")
2770 $ perl_d_setpent="undef"
2772 $ perl_d_setpent="define"
2775 $ perl_d_setpent="undef"
2777 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
2779 $! Check for setservent
2781 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2785 $ WS "#include <stdlib.h>
2787 $ WS "#include <stdio.h>
2788 $ if ("''Has_Socketshr'".eqs."T")
2790 $ WS "#include <socketshr.h>"
2792 $ WS "#include <netdb.h>
2796 $ WS "setservent(1);
2800 $ DEFINE SYS$ERROR _NLA0:
2801 $ DEFINE SYS$OUTPUT _NLA0:
2802 $ on error then continue
2803 $ on warning then continue
2805 $ If (Needs_Opt.eqs."Yes")
2807 $ link temp.obj,temp.opt/opt
2811 $ teststatus = f$extract(9,1,$status)
2812 $ DEASSIGN SYS$OUTPUT
2813 $ DEASSIGN SYS$ERROR
2814 $ if (teststatus.nes."1")
2816 $ perl_d_setsent="undef"
2818 $ perl_d_setsent="define"
2821 $ perl_d_setsent="undef"
2823 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
2825 $! Check for gethostent
2827 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2831 $ WS "#include <stdlib.h>
2833 $ WS "#include <stdio.h>
2834 $ if ("''Has_Socketshr'".eqs."T")
2836 $ WS "#include <socketshr.h>"
2838 $ WS "#include <netdb.h>
2846 $ DEFINE SYS$ERROR _NLA0:
2847 $ DEFINE SYS$OUTPUT _NLA0:
2848 $ on error then continue
2849 $ on warning then continue
2851 $ If (Needs_Opt.eqs."Yes")
2853 $ link temp.obj,temp.opt/opt
2857 $ teststatus = f$extract(9,1,$status)
2858 $ DEASSIGN SYS$OUTPUT
2859 $ DEASSIGN SYS$ERROR
2860 $ if (teststatus.nes."1")
2862 $ perl_d_gethent="undef"
2864 $ perl_d_gethent="define"
2867 $ perl_d_gethent="undef"
2869 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
2871 $! Check for getnetent
2873 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2877 $ WS "#include <stdlib.h>
2879 $ WS "#include <stdio.h>
2880 $ if ("''Has_Socketshr'".eqs."T")
2882 $ WS "#include <socketshr.h>"
2884 $ WS "#include <netdb.h>
2892 $ DEFINE SYS$ERROR _NLA0:
2893 $ DEFINE SYS$OUTPUT _NLA0:
2894 $ on error then continue
2895 $ on warning then continue
2897 $ If (Needs_Opt.eqs."Yes")
2899 $ link temp.obj,temp.opt/opt
2903 $ teststatus = f$extract(9,1,$status)
2904 $ DEASSIGN SYS$OUTPUT
2905 $ DEASSIGN SYS$ERROR
2906 $ if (teststatus.nes."1")
2908 $ perl_d_getnent="undef"
2910 $ perl_d_getnent="define"
2913 $ perl_d_getnent="undef"
2915 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
2917 $! Check for getprotoent
2919 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2923 $ WS "#include <stdlib.h>
2925 $ WS "#include <stdio.h>
2926 $ if ("''Has_Socketshr'".eqs."T")
2928 $ WS "#include <socketshr.h>"
2930 $ WS "#include <netdb.h>
2934 $ WS "getprotoent();
2938 $ DEFINE SYS$ERROR _NLA0:
2939 $ DEFINE SYS$OUTPUT _NLA0:
2940 $ on error then continue
2941 $ on warning then continue
2943 $ If (Needs_Opt.eqs."Yes")
2945 $ link temp.obj,temp.opt/opt
2949 $ teststatus = f$extract(9,1,$status)
2950 $ DEASSIGN SYS$OUTPUT
2951 $ DEASSIGN SYS$ERROR
2952 $ if (teststatus.nes."1")
2954 $ perl_d_getpent="undef"
2956 $ perl_d_getpent="define"
2959 $ perl_d_getpent="undef"
2961 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
2963 $! Check for getservent
2965 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2969 $ WS "#include <stdlib.h>
2971 $ WS "#include <stdio.h>
2972 $ if ("''Has_Socketshr'".eqs."T")
2974 $ WS "#include <socketshr.h>"
2976 $ WS "#include <netdb.h>
2984 $ DEFINE SYS$ERROR _NLA0:
2985 $ DEFINE SYS$OUTPUT _NLA0:
2986 $ on error then continue
2987 $ on warning then continue
2989 $ If (Needs_Opt.eqs."Yes")
2991 $ link temp.obj,temp.opt/opt
2995 $ teststatus = f$extract(9,1,$status)
2996 $ DEASSIGN SYS$OUTPUT
2997 $ DEASSIGN SYS$ERROR
2998 $ if (teststatus.nes."1")
3000 $ perl_d_getsent="undef"
3002 $ perl_d_getsent="define"
3005 $ perl_d_getsent="undef"
3007 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
3009 $! Check for socklen_t
3011 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
3015 $ WS "#include <stdlib.h>
3017 $ WS "#include <stdio.h>
3018 $ IF ("''Has_Socketshr'".eqs."T")
3020 $ WS "#include <socketshr.h>"
3022 $ WS "#include <netdb.h>
3026 $ WS "socklen_t x = 16;
3030 $ DEFINE SYS$ERROR _NLA0:
3031 $ DEFINE SYS$OUTPUT _NLA0:
3032 $ on error then continue
3033 $ on warning then continue
3035 $ If (Needs_Opt.eqs."Yes")
3037 $ link temp.obj,temp.opt/opt
3041 $ teststatus = f$extract(9,1,$status)
3042 $ DEASSIGN SYS$OUTPUT
3043 $ DEASSIGN SYS$ERROR
3044 $ if (teststatus.nes."1")
3046 $ perl_d_socklen_t="undef"
3048 $ perl_d_socklen_t="define"
3051 $ perl_d_socklen_t="undef"
3053 $ WRITE_RESULT "d_socklen_t is ''perl_d_socklen_t'"
3055 $! Check for pthread_yield
3057 $ if ("''use_threads'".eqs."T")
3061 $ WS "#include <stdlib.h>
3063 $ WS "#include <pthread.h>
3064 $ WS "#include <stdio.h>
3067 $ WS "pthread_yield();
3071 $ DEFINE SYS$ERROR _NLA0:
3072 $ DEFINE SYS$OUTPUT _NLA0:
3073 $ on error then continue
3074 $ on warning then continue
3076 $ teststatus = f$extract(9,1,$status)
3077 $ DEASSIGN SYS$OUTPUT
3078 $ DEASSIGN SYS$ERROR
3079 $ if (teststatus.nes."1")
3081 $ perl_d_pthread_yield="undef"
3083 $ perl_d_pthread_yield="define"
3086 $ perl_d_pthread_yield="undef"
3088 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
3090 $! Check for sched_yield
3092 $ if ("''use_threads'".eqs."T")
3096 $ WS "#include <stdlib.h>
3098 $ WS "#include <pthread.h>
3099 $ WS "#include <stdio.h>
3102 $ WS "sched_yield();
3106 $ DEFINE SYS$ERROR _NLA0:
3107 $ DEFINE SYS$OUTPUT _NLA0:
3108 $ on error then continue
3109 $ on warning then continue
3111 $ teststatus = f$extract(9,1,$status)
3112 $ DEASSIGN SYS$OUTPUT
3113 $ DEASSIGN SYS$ERROR
3114 $ if (teststatus.nes."1")
3116 $ perl_d_sched_yield="undef"
3117 $ perl_sched_yield = " "
3119 $ perl_d_sched_yield="define"
3120 $ perl_sched_yield = "sched_yield"
3123 $ perl_d_sched_yield="undef"
3124 $ perl_sched_yield = " "
3126 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
3127 $ WRITE_RESULT "sched_yield is ''perl_sched_yield'"
3129 $! Check for generic pointer size
3133 $ WS "#include <stdlib.h>
3135 $ WS "#include <stdio.h>
3139 $ WS "foo = sizeof(char *);
3140 $ WS "printf(""%d\n"", foo);
3144 $ DEFINE SYS$ERROR _NLA0:
3145 $ DEFINE SYS$OUTPUT _NLA0:
3146 $ ON ERROR THEN CONTINUE
3147 $ ON WARNING THEN CONTINUE
3149 $ If (Needs_Opt.eqs."Yes")
3151 $ link temp.obj,temp.opt/opt
3155 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3156 $ DEASSIGN SYS$OUTPUT
3157 $ DEASSIGN SYS$ERROR
3158 $ DEFINE SYS$ERROR TEMPOUT
3159 $ DEFINE SYS$OUTPUT TEMPOUT
3162 $ DEASSIGN SYS$OUTPUT
3163 $ DEASSIGN SYS$ERROR
3164 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3167 $ DELETE/NOLOG [-.uu]tempout.lis;
3170 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
3172 $! Check rand48 and its ilk
3176 $ WS "#include <stdlib.h>
3178 $ WS "#include <stdio.h>
3181 $ WS "srand48(12L);"
3186 $ DEFINE SYS$ERROR _NLA0:
3187 $ DEFINE SYS$OUTPUT _NLA0:
3188 $ ON ERROR THEN CONTINUE
3189 $ ON WARNING THEN CONTINUE
3191 $ If (Needs_Opt.eqs."Yes")
3193 $ link temp,temp.opt/opt
3197 $ teststatus = f$extract(9,1,$status)
3198 $ DEASSIGN SYS$OUTPUT
3199 $ DEASSIGN SYS$ERROR
3200 $ if (teststatus.nes."1")
3202 $ perl_drand01="random()"
3203 $ perl_randseedtype = "unsigned"
3204 $ perl_seedfunc = "srandom"
3208 $ WS "#include <stdlib.h>
3210 $ WS "#include <stdio.h>
3217 $! copy temp.c sys$output
3219 $ DEFINE SYS$ERROR _NLA0:
3220 $ DEFINE SYS$OUTPUT _NLA0:
3221 $ ON ERROR THEN CONTINUE
3222 $ ON WARNING THEN CONTINUE
3224 $ If (Needs_Opt.eqs."Yes")
3226 $ link temp,temp.opt/opt
3230 $ teststatus = f$extract(9,1,$status)
3231 $ DEASSIGN SYS$OUTPUT
3232 $ DEASSIGN SYS$ERROR
3233 $ if (teststatus.nes."1")
3235 $ perl_drand01="(((float)rand())/((float)RAND_MAX))"
3236 $ perl_randseedtype = "unsigned"
3237 $ perl_seedfunc = "srand"
3239 $ WRITE_RESULT "drand01 is ''perl_drand01'"
3242 $! Done with compiler checks. Clean up.
3243 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
3244 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
3245 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
3246 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
3249 $! Some that are compiler or VMS version sensitive
3252 $ IF "''Using_Gnu_C'".EQS."Yes"
3254 $ perl_d_attribut="define"
3255 $ perl_vms_cc_type="gcc"
3257 $ perl_vms_cc_type="cc"
3258 $ perl_d_attribut="undef"
3261 $! Dec C >= 5.2 and VMS ver >= 7.0
3262 $ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
3264 $ perl_d_bcmp="define"
3265 $ perl_d_gettimeod="define"
3266 $ perl_d_uname="define"
3267 $ perl_d_sigaction="define"
3268 $ perl_d_truncate="define"
3269 $ perl_d_wait4="define"
3270 $ perl_d_index="define"
3271 $ perl_pidtype="pid_t"
3272 $ 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"
3273 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3274 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
3275 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
3276 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
3277 $ 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"
3278 $ 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"
3279 $ perl_sig_num_with_commas=perl_sig_num_init
3280 $ perl_uidtype="uid_t"
3281 $ perl_d_pathconf="define"
3282 $ perl_d_fpathconf="define"
3283 $ perl_d_sysconf="define"
3284 $ perl_d_sigsetjmp="define"
3286 $ perl_pidtype="unsigned int"
3287 $ perl_d_gettimeod="undef"
3288 $ perl_d_bcmp="undef"
3289 $ perl_d_uname="undef"
3290 $ perl_d_sigaction="undef"
3291 $ perl_d_truncate="undef"
3292 $ perl_d_wait4="undef"
3293 $ perl_d_index="undef"
3294 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
3295 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3296 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
3297 $ perl_sig_name_with_commas = psnwc1 + psnwc2
3298 $ perl_sig_num="0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 6 16 17"",0"
3299 $ perl_sig_num_init="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
3300 $ perl_sig_num_with_commas=perl_sig_num_init
3301 $ perl_uidtype="unsigned int"
3302 $ perl_d_pathconf="undef"
3303 $ perl_d_fpathconf="undef"
3304 $ perl_d_sysconf="undef"
3305 $ perl_d_sigsetjmp="undef"
3309 $ IF ("''Using_Dec_C'".EQS."Yes")
3311 $ perl_d_mbstowcs="define"
3312 $ perl_d_mbtowc="define"
3313 $ perl_d_stdiobase="define"
3314 $ perl_d_stdio_ptr_lval="define"
3315 $ perl_d_stdio_cnt_lval="define"
3316 $ perl_d_stdstdio="define"
3317 $ perl_d_wcstombs="define"
3318 $ perl_d_mblen="define"
3319 $ perl_d_mktime="define"
3320 $ perl_d_strcoll="define"
3321 $ perl_d_strxfrm="define"
3322 $ perl_d_wctomb="define"
3323 $ perl_i_locale="define"
3324 $ perl_d_locconv="define"
3325 $ perl_d_setlocale="define"
3326 $ perl_vms_cc_type="decc"
3328 $ perl_d_mbstowcs="undef"
3329 $ perl_d_mbtowc="undef"
3330 $ perl_d_stdiobase="undef"
3331 $ perl_d_stdio_ptr_lval="undef"
3332 $ perl_d_stdio_cnt_lval="undef"
3333 $ perl_d_stdstdio="undef"
3334 $ perl_d_wcstombs="undef"
3335 $ perl_d_mblen="undef"
3336 $ perl_d_mktime="undef"
3337 $ perl_d_strcoll="undef"
3338 $ perl_d_strxfrm="undef"
3339 $ perl_d_wctomb="undef"
3340 $ perl_i_locale="undef"
3341 $ perl_d_locconv="undef"
3342 $ perl_d_setlocale="undef"
3346 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
3348 $ perl_d_vms_do_sockets="define"
3349 $ perl_d_htonl="define"
3350 $ perl_d_socket="define"
3351 $ perl_d_select="define"
3352 $ perl_netdb_host_type="char *"
3353 $ perl_netdb_hlen_type="int"
3354 $ perl_netdb_name_type="char *"
3355 $ perl_netdb_net_type="long"
3356 $ perl_d_gethbyaddr="define"
3357 $ perl_d_gethbyname="define"
3358 $ perl_d_getnbyaddr="define"
3359 $ perl_d_getnbyname="define"
3360 $ perl_d_getpbynumber="define"
3361 $ perl_d_getpbyname="define"
3362 $ perl_d_getsbyport="define"
3363 $ perl_d_getsbyname="define"
3364 $ perl_d_gethostprotos="define"
3365 $ perl_d_getnetprotos="define"
3366 $ perl_d_getprotoprotos="define"
3367 $ perl_d_getservprotos="define"
3368 $ IF ("''Using_Dec_C'".EQS."Yes")
3370 $ perl_socksizetype="unsigned int"
3372 $ perl_socksizetype="int *"
3375 $ perl_d_vms_do_sockets="undef"
3376 $ perl_d_htonl="undef"
3377 $ perl_d_socket="undef"
3378 $ perl_d_select="undef"
3379 $ perl_netdb_host_type="char *"
3380 $ perl_netdb_hlen_type="int"
3381 $ perl_netdb_name_type="char *"
3382 $ perl_netdb_net_type="long"
3383 $ perl_d_gethbyaddr="undef"
3384 $ perl_d_gethbyname="undef"
3385 $ perl_d_getnbyaddr="undef"
3386 $ perl_d_getnbyname="undef"
3387 $ perl_d_getpbynumber="undef"
3388 $ perl_d_getpbyname="undef"
3389 $ perl_d_getsbyport="undef"
3390 $ perl_d_getsbyname="undef"
3391 $ perl_d_gethostprotos="undef"
3392 $ perl_d_getnetprotos="undef"
3393 $ perl_d_getprotoprotos="undef"
3394 $ perl_d_getservprotos="undef"
3395 $ perl_socksizetype="undef"
3398 $ if ("''use_threads'".eqs."T")
3400 $ perl_usethreads="define"
3401 $ perl_d_pthreads_created_joinable="define"
3402 $ if ("''VMS_VER'".ges."7.0")
3404 $ perl_d_oldpthreads="undef"
3406 $ perl_d_oldpthreads="define"
3409 $ perl_d_oldpthreads="undef"
3410 $ perl_usethreads="undef"
3412 $ perl_d_pthreads_created_joinable="undef"
3415 $! new (5.005_62++) typedefs for primitives
3417 $ perl_ivtype="long"
3418 $ perl_uvtype="unsigned long"
3419 $ perl_i8type="char"
3420 $ perl_u8type="unsigned char"
3421 $ perl_i16type="short"
3422 $ perl_u16type="unsigned short"
3423 $ perl_i32type="int"
3424 $ perl_u32type="unsigned int"
3425 $ perl_i64type="long long"
3426 $ perl_u64type="unsigned long long"
3427 $ perl_nvtype="double"
3429 $ GOTO beyond_type_size_check
3433 $! Check for type sizes
3437 $ WS "#include <stdlib.h>
3439 $ WS "#include <stdio.h>
3442 $ WS "printf(""%d\n"", sizeof(''type'));"
3446 $ DEFINE SYS$ERROR _NLA0:
3447 $ DEFINE SYS$OUTPUT _NLA0:
3448 $ ON ERROR THEN CONTINUE
3449 $ ON WARNING THEN CONTINUE
3451 $ If (Needs_Opt.eqs."Yes")
3453 $ link temp.obj,temp.opt/opt
3457 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3458 $ DEASSIGN SYS$OUTPUT
3459 $ DEASSIGN SYS$ERROR
3460 $ DEFINE SYS$ERROR TEMPOUT
3461 $ DEFINE SYS$OUTPUT TEMPOUT
3464 $ DEASSIGN SYS$OUTPUT
3465 $ DEASSIGN SYS$ERROR
3466 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3469 $ DELETE/NOLOG [-.uu]tempout.lis;
3470 $ WRITE_RESULT "''size_name' is ''line'"
3474 $beyond_type_size_check:
3477 $ type = "''perl_ivtype'"
3478 $ size_name = "ivsize"
3479 $ gosub type_size_check
3480 $ perl_ivsize="''line'"
3481 $ IF type .eqs. "long"
3482 $ THEN perl_longsize = "''line'"
3485 $ size_name = "longsize"
3486 $ gosub type_size_check
3487 $ perl_longsize="''line'"
3490 $ type = "''perl_uvtype'"
3491 $ size_name = "uvsize"
3492 $ gosub type_size_check
3493 $ perl_uvsize="''line'"
3495 $ type = "''perl_i8type'"
3496 $ size_name = "i8size"
3497 $ gosub type_size_check
3498 $ perl_i8size="''line'"
3500 $ type = "''perl_u8type'"
3501 $ size_name = "u8size"
3502 $ gosub type_size_check
3503 $ perl_u8size="''line'"
3505 $ type = "''perl_i16type'"
3506 $ size_name = "i16size"
3507 $ gosub type_size_check
3508 $ perl_i16size="''line'"
3509 $ IF type .eqs. "short"
3510 $ THEN perl_shortsize="''line'"
3512 $ type = "''perl_i16type'"
3513 $ size_name = "shortsize"
3514 $ gosub type_size_check
3515 $ perl_shortsize="''line'"
3518 $ type = "''perl_u16type'"
3519 $ size_name = "u16size"
3520 $ gosub type_size_check
3521 $ perl_u16size="''line'"
3523 $ type = "''perl_i32type'"
3524 $ size_name = "i32size"
3525 $ gosub type_size_check
3526 $ perl_i32size="''line'"
3527 $ IF type .eqs. "int"
3528 $ THEN perl_intsize="''perl_i32size'"
3531 $ size_name = "intsize"
3532 $ gosub type_size_check
3533 $ perl_intsize="''line'"
3536 $ type = "''perl_u32type'"
3537 $ size_name = "u32size"
3538 $ gosub type_size_check
3539 $ perl_u32size="''line'"
3543 $ type = "''perl_i64type'"
3544 $ size_name = "i64size"
3545 $ gosub type_size_check
3546 $ perl_i64size="''line'"
3547 $ perl_ivtype="''perl_i64type'"
3549 $ type = "''perl_u64type'"
3550 $ size_name = "u64size"
3551 $ gosub type_size_check
3552 $ perl_u64size="''line'"
3553 $ perl_uvtype="''perl_u64type'"
3554 $ perl_nvtype="long double"
3556 $ perl_i64size="undef"
3557 $ perl_u64size="undef"
3560 $ perl_ivdformat="""ld"""
3561 $ perl_uvuformat="""lu"""
3562 $ perl_uvoformat="""lo"""
3563 $ perl_uvxformat="""lx"""
3565 $! Finally the composite ones. All config
3566 $ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3567 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3568 $ perl_myhostname="''myhostname'"
3569 $ perl_mydomain="''mydomain'"
3570 $ perl_perladmin="''perladmin'"
3571 $ perl_cf_email="''cf_email'"
3572 $ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
3573 $ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3574 $ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
3575 $ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
3576 $ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
3577 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
3578 $ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3579 $ if "''Using_Dec_C'" .eqs. "Yes"
3581 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
3583 $ if use_vmsdebug_perl .eqs. "Y"
3585 $ perl_optimize="/Debug/NoOpt"
3586 $ perl_dbgprefix = "DBG"
3589 $ perl_dbgprefix = ""
3592 $! Finally clean off any leading zeros from the patchlevel or subversion
3593 $ perl_patchlevel = perl_patchlevel + 0
3594 $ perl_subversion = perl_subversion + 0
3596 $! Okay, we've got everything configured. Now go write out a config.sh.
3597 $ open/write CONFIGSH [-]config.sh
3598 $ WC := "write CONFIGSH"
3600 $ WC "# This file generated by Configure.COM on a VMS system."
3601 $ WC "# Time: " + perl_cf_time
3603 $ WC "CONFIGDOTSH=true"
3604 $ WC "package='" + perl_package + "'"
3605 $ WC "d_nv_preserves_uv='" + perl_d_nv_preserves_uv + "'"
3606 $ WC "use5005threads='" + perl_use5005threads + "'"
3607 $ WC "useithreads='" + perl_useithreads + "'"
3608 $ WC "CONFIG='" + perl_config + "'"
3609 $ WC "cf_time='" + perl_cf_time + "'"
3610 $ WC "cf_by='" + perl_cf_by+ "'"
3611 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
3612 $ WC "ccdlflags='" + perl_ccdlflags + "'"
3613 $ WC "cccdlflags='" + perl_cccdlflags + "'"
3614 $ WC "mab='" + perl_mab + "'"
3615 $ WC "libpth='" + perl_libpth + "'"
3616 $ WC "ld='" + perl_ld + "'"
3617 $ WC "lddlflags='" + perl_lddlflags + "'"
3618 $ WC "ranlib='" + perl_ranlib + "'"
3619 $ WC "ar='" + perl_ar + "'"
3620 $ WC "full_ar='" + perl_full_ar + "'"
3621 $ WC "eunicefix='" + perl_eunicefix + "'"
3622 $ WC "hint='" + perl_hint +"'"
3623 $ WC "hintfile='" + perl_hintfile + "'"
3624 $ WC "shrplib='" + perl_shrplib + "'"
3625 $ WC "usemymalloc='" + perl_usemymalloc + "'"
3626 $ WC "usevfork='" + perl_usevfork + "'"
3627 $ WC "useposix='false'"
3628 $ WC "spitshell='write sys$output '"
3629 $ WC "dlsrc='dl_vms.c'"
3630 $ WC "binexp='" + perl_binexp + "'"
3631 $ WC "man1ext='" + perl_man1ext + "'"
3632 $ WC "man3ext='" + perl_man3ext + "'"
3633 $ WC "arch='" + perl_arch + "'"
3634 $ WC "archname='" + perl_archname + "'"
3635 $ WC "osvers='" + perl_osvers + "'"
3636 $ WC "prefix='" + perl_prefix + "'"
3637 $ WC "builddir='" + perl_builddir + "'"
3638 $ WC "installbin='" + perl_installbin + "'"
3639 $ WC "installscript='" + perl_installscript + "'"
3640 $ WC "installman1dir='" + perl_installman1dir + "'"
3641 $ WC "installman3dir='" + perl_installman3dir + "'"
3642 $ WC "installprivlib='" + perl_installprivlib + "'"
3643 $ WC "installarchlib='" + perl_installarchlib + "'"
3644 $ WC "installsitelib='" + perl_installsitelib + "'"
3645 $ WC "installsitearch='" + perl_installsitearch + "'"
3646 $ WC "path_sep='" + perl_path_sep + "'"
3647 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
3648 $ WC "d_attribut='" + perl_d_attribut + "'"
3649 $ WC "cc='" + perl_cc + "'"
3650 $ WC "ccflags='" + perl_ccflags + "'"
3651 $ WC "optimize='" + perl_optimize + "'"
3652 $ WC "dbgprefix='" + perl_dbgprefix + "'"
3653 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
3654 $ WC "d_socket='" + perl_d_socket + "'"
3655 $ WC "d_sockpair='" + perl_d_sockpair + "'"
3656 $ WC "d_gethent='" + perl_d_gethent + "'"
3657 $ WC "d_getsent='" + perl_d_getsent + "'"
3658 $ WC "d_socklen_t='" + perl_d_socklen_t + "'"
3659 $ WC "d_select='" + perl_d_select + "'"
3660 $ WC "i_niin='" + perl_i_niin + "'"
3661 $ WC "i_netinettcp='" + perl_i_netinettcp + "'"
3662 $ WC "i_neterrno='" + perl_i_neterrno + "'"
3663 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
3664 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
3665 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
3666 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
3667 $ WC "d_locconv='" + perl_d_locconv + "'"
3668 $ WC "d_setlocale='" + perl_d_setlocale + "'"
3669 $ WC "i_locale='" + perl_i_locale + "'"
3670 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
3671 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
3672 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
3673 $ WC "d_wctomb='" + perl_d_wctomb + "'"
3674 $ WC "d_mblen='" + perl_d_mblen + "'"
3675 $ WC "d_mktime='" + perl_d_mktime + "'"
3676 $ WC "d_strcoll='" + perl_d_strcoll + "'"
3677 $ WC "d_strxfrm='" + perl_d_strxfrm + "'"
3678 $ WC "ldflags='" + perl_ldflags + "'"
3679 $ WC "dlobj='" + perl_dlobj + "'"
3680 $ WC "obj_ext='" + perl_obj_ext + "'"
3681 $ WC "so='" + perl_so + "'"
3682 $ WC "dlext='" + perl_dlext + "'"
3683 $ WC "exe_ext='" + perl_exe_ext + "'"
3684 $ WC "lib_ext='" + perl_lib_ext + "'"
3685 $ WC "myhostname='" + perl_myhostname + "'"
3686 $ WC "mydomain='" + perl_mydomain + "'"
3687 $ WC "perladmin='" + perl_perladmin + "'"
3688 $ WC "cf_email='" + perl_cf_email + "'"
3689 $ WC "myuname='" + perl_myuname + "'"
3690 $ WC "alignbytes='" + perl_alignbytes + "'"
3691 $ WC "osname='" + perl_osname + "'"
3692 $ WC "d_archlib='" + perl_d_archlib + "'"
3693 $ WC "archlibexp='" + perl_archlibexp + "'"
3694 $ WC "archlib='" + perl_archlib + "'"
3695 $ WC "archname='" + perl_archname + "'"
3696 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
3697 $ WC "cppstdin='" + perl_cppstdin + "'"
3698 $ WC "cppminus='" + perl_cppminus + "'"
3699 $ WC "d_bcmp='" + perl_d_bcmp + "'"
3700 $ WC "d_bcopy='" + perl_d_bcopy + "'"
3701 $ WC "d_bzero='" + perl_d_bzero + "'"
3702 $ WC "d_castneg='" + perl_d_castneg + "'"
3703 $ WC "castflags='" + perl_castflags + "'"
3704 $ WC "d_chsize='" + perl_d_chsize + "'"
3705 $ WC "d_const='" + perl_d_const + "'"
3706 $ WC "d_crypt='" + perl_d_crypt + "'"
3707 $ WC "byteorder='" + perl_byteorder + "'"
3708 $ WC "full_csh='" + perl_full_csh + "'"
3709 $ WC "d_csh='" + perl_d_csh + "'"
3710 $ WC "d_dup2='" + perl_d_dup2 + "'"
3711 $ WC "d_fchmod='" + perl_d_fchmod + "'"
3712 $ WC "d_fchown='" + perl_d_fchown + "'"
3713 $ WC "d_fcntl='" + perl_d_fcntl + "'"
3714 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
3715 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
3716 $ WC "d_flock='" + perl_d_flock + "'"
3717 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
3718 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
3719 $ WC "d_getgrps='" + perl_d_getgrps + "'"
3720 $ WC "d_setgrps='" + perl_d_setgrps + "'"
3721 $ WC "d_uname='" + perl_d_uname + "'"
3722 $ WC "d_getprior='" + perl_d_getprior + "'"
3723 $ WC "d_killpg='" + perl_d_killpg + "'"
3724 $ WC "d_link='" + perl_d_link + "'"
3725 $ WC "d_lstat='" + perl_d_lstat + "'"
3726 $ WC "d_lockf='" + perl_d_lockf + "'"
3727 $ WC "d_memcmp='" + perl_d_memcmp + "'"
3728 $ WC "d_memcpy='" + perl_d_memcpy + "'"
3729 $ WC "d_memmove='" + perl_d_memmove + "'"
3730 $ WC "d_memset='" + perl_d_memset + "'"
3731 $ WC "d_mkdir='" + perl_d_mkdir + "'"
3732 $ WC "d_msg='" + perl_d_msg + "'"
3733 $ WC "d_open3='" + perl_d_open3 + "'"
3734 $ WC "d_poll='" + perl_d_poll + "'"
3735 $ WC "d_readdir='" + perl_d_readdir + "'"
3736 $ WC "d_seekdir='" + perl_d_seekdir + "'"
3737 $ WC "d_telldir='" + perl_d_telldir + "'"
3738 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
3739 $ WC "d_rename='" + perl_d_rename + "'"
3740 $ WC "d_rmdir='" + perl_d_rmdir + "'"
3741 $ WC "d_sem='" + perl_d_sem + "'"
3742 $ WC "d_setegid='" + perl_d_setegid + "'"
3743 $ WC "d_seteuid='" + perl_d_seteuid + "'"
3744 $ WC "d_setprior='" + perl_d_setprior + "'"
3745 $ WC "d_setregid='" + perl_d_setregid + "'"
3746 $ WC "d_setresgid='" + perl_d_setresgid + "'"
3747 $ WC "d_setreuid='" + perl_d_setreuid + "'"
3748 $ WC "d_setresuid='" + perl_d_setresuid + "'"
3749 $ WC "d_setrgid='" + perl_d_setrgid + "'"
3750 $ WC "d_setruid='" + perl_d_setruid + "'"
3751 $ WC "d_setsid='" + perl_d_setsid + "'"
3752 $ WC "d_shm='" + perl_d_shm + "'"
3753 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
3754 $ WC "d_sigaction='" + perl_d_sigaction + "'"
3755 $ WC "d_statblks='" + perl_d_statblks + "'"
3756 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
3757 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
3758 $ WC "stdio_base='" + perl_stdio_base + "'"
3759 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
3760 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
3761 $ WC "d_strerror='" + perl_d_strerror + "'"
3762 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
3763 $ WC "d_strerrm='" + perl_d_strerrm + "'"
3764 $ WC "d_symlink='" + perl_d_symlink + "'"
3765 $ WC "d_syscall='" + perl_d_syscall + "'"
3766 $ WC "d_system='" + perl_d_system + "'"
3767 $ WC "timetype='" + perl_timetype + "'"
3768 $ WC "d_truncate='" + perl_d_truncate + "'"
3769 $ WC "d_vfork='" + perl_d_vfork + "'"
3770 $ WC "signal_t='" + perl_signal_t + "'"
3771 $ WC "d_volatile='" + perl_d_volatile + "'"
3772 $ WC "d_vprintf='" + perl_d_vprintf + "'"
3773 $ WC "d_charvspr='" + perl_d_charvspr + "'"
3774 $ WC "d_wait4='" + perl_d_wait4 + "'"
3775 $ WC "d_waitpid='" + perl_d_waitpid + "'"
3776 $ WC "i_dirent='" + perl_i_dirent + "'"
3777 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
3778 $ WC "direntrytype='" + perl_direntrytype + "'"
3779 $ WC "i_fcntl='" + perl_i_fcntl + "'"
3780 $ WC "i_grp='" + perl_i_grp + "'"
3781 $ WC "i_limits='" + perl_i_limits + "'"
3782 $ WC "i_memory='" + perl_i_memory + "'"
3783 $ WC "i_ndbm='" + perl_i_ndbm + "'"
3784 $ WC "i_stdarg='" + perl_i_stdarg + "'"
3785 $ WC "i_pwd='" + perl_i_pwd + "'"
3786 $ WC "d_pwquota='" + perl_d_pwquota + "'"
3787 $ WC "d_pwage='" + perl_d_pwage + "'"
3788 $ WC "d_pwchange='" + perl_d_pwchange + "'"
3789 $ WC "d_pwclass='" + perl_d_pwclass + "'"
3790 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
3791 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
3792 $ WC "i_stddef='" + perl_i_stddef + "'"
3793 $ WC "i_stdlib='" + perl_i_stdlib + "'"
3794 $ WC "i_string='" + perl_i_string + "'"
3795 $ WC "i_sysdir='" + perl_i_sysdir + "'"
3796 $ WC "i_sysfile='" + perl_i_sysfile + "'"
3797 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
3798 $ WC "i_sysndir='" + perl_i_sysndir + "'"
3799 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
3800 $ WC "i_sysselct='" + perl_i_sysselct + "'"
3801 $ WC "i_dbm='" + perl_i_dbm + "'"
3802 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
3803 $ WC "i_sfio='" + perl_i_sfio + "'"
3804 $ WC "i_sysstat='" + perl_i_sysstat + "'"
3805 $ WC "i_systimes='" + perl_i_systimes + "'"
3806 $ WC "i_systypes='" + perl_i_systypes + "'"
3807 $ WC "i_sysun='" + perl_i_sysun + "'"
3808 $ WC "i_syswait='" + perl_i_syswait + "'"
3809 $ WC "i_termio='" + perl_i_termio + "'"
3810 $ WC "i_sgtty='" + perl_i_sgtty + "'"
3811 $ WC "i_termios='" + perl_i_termios + "'"
3812 $ WC "i_time='" + perl_i_time + "'"
3813 $ WC "i_systime='" + perl_i_systime + "'"
3814 $ WC "i_systimek='" + perl_i_systimek + "'"
3815 $ WC "i_unistd='" + perl_i_unistd + "'"
3816 $ WC "i_utime='" + perl_i_utime + "'"
3817 $ WC "i_varargs='" + perl_i_varargs + "'"
3818 $ WC "i_vfork='" + perl_i_vfork + "'"
3819 $ WC "prototype='" + perl_prototype + "'"
3820 $ WC "randbits='" + perl_randbits +"'"
3821 $ WC "selecttype='" + perl_selecttype + "'"
3822 $ WC "stdchar='" + perl_stdchar + "'"
3823 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
3824 $ WC "full_sed='" + perl_full_sed + "'"
3825 $ WC "bin='" + perl_bin + "'"
3826 $ WC "binexp='" + perl_binexp + "'"
3827 $ WC "d_alarm='" + perl_d_alarm + "'"
3828 $ WC "d_casti32='" + perl_d_casti32 + "'"
3829 $ WC "d_chown='" + perl_d_chown + "'"
3830 $ WC "d_chroot='" + perl_d_chroot + "'"
3831 $ WC "d_cuserid='" + perl_d_cuserid + "'"
3832 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
3833 $ WC "d_ldbl_dig='" + perl_d_ldbl_dig + "'"
3834 $ WC "d_difftime='" + perl_d_difftime + "'"
3835 $ WC "d_fork='" + perl_d_fork + "'"
3836 $ WC "d_getlogin='" + perl_d_getlogin + "'"
3837 $ WC "d_getppid='" + perl_d_getppid + "'"
3838 $ WC "d_htonl='" + perl_d_htonl + "'"
3839 $ WC "d_nice='" + perl_d_nice + "'"
3840 $ WC "d_pause='" + perl_d_pause + "'"
3841 $ WC "d_pipe='" + perl_d_pipe + "'"
3842 $ WC "d_readlink='" + perl_d_readlink + "'"
3843 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
3844 $ WC "d_strchr='" + perl_d_strchr + "'"
3845 $ WC "d_index='" + perl_d_index + "'"
3846 $ WC "d_strtod='" + perl_d_strtod + "'"
3847 $ WC "d_strtol='" + perl_d_strtol + "'"
3848 $ WC "d_strtoul='" + perl_d_strtoul + "'"
3849 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
3850 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
3851 $ WC "d_times='" + perl_d_times + "'"
3852 $ WC "d_tzname='" + perl_d_tzname + "'"
3853 $ WC "d_umask='" + perl_d_umask + "'"
3854 $ WC "fpostype='" + perl_fpostype + "'"
3855 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
3856 $ WC "i_float='" + perl_i_float + "'"
3857 $ WC "i_math='" + perl_i_math + "'"
3858 $ WC "intsize='" + perl_intsize + "'"
3859 $ WC "longsize='" + perl_longsize + "'"
3860 $ WC "shortsize='" + perl_shortsize + "'"
3861 $ WC "lseektype='" + perl_lseektype + "'"
3862 $ WC "lseeksize='4'"
3863 $ WC "i_values='" + perl_i_values + "'"
3864 $ WC "malloctype='" + perl_malloctype + "'"
3865 $ WC "freetype='" + perl_freetype + "'"
3866 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
3867 $ WC "sh='" + perl_sh + "'"
3868 $ WC "sig_name='" + perl_sig_name + "'"
3869 $ WC "sig_num='" + perl_sig_num + "'"
3870 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
3872 $ WC "modetype='" + perl_modetype + "'"
3873 $ WC "ssizetype='" + perl_ssizetype + "'"
3874 $ WC "o_nonblock='" + perl_o_nonblock + "'"
3875 $ WC "eagain='" + perl_eagain + "'"
3876 $ WC "rd_nodata='" + perl_rd_nodata + "'"
3877 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
3878 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
3879 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
3880 $ WC "oldarchlib='" + perl_oldarchlib + "'"
3881 $ WC "privlibexp='" + perl_privlibexp + "'"
3882 $ WC "privlib='" + perl_privlib + "'"
3883 $ WC "sitelibexp='" + perl_sitelibexp + "'"
3884 $ WC "sitelib='" + perl_sitelib + "'"
3885 $ WC "sitearchexp='" + perl_sitearchexp + "'"
3886 $ WC "sitearch='" + perl_sitearch + "'"
3887 $ WC "sizetype='" + perl_sizetype + "'"
3888 $ WC "i_sysparam='" + perl_i_sysparam + "'"
3889 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
3890 $ WC "d_dlerror='" + perl_d_dlerror + "'"
3891 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
3892 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
3893 $ WC "d_dosuid='" + perl_d_dosuid + "'"
3894 $ WC "d_inetaton='" + perl_d_inetaton + "'"
3895 $ WC "d_int64_t='" + perl_d_int64_t + "'"
3896 $ WC "d_isascii='" + perl_d_isascii + "'"
3897 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
3898 $ WC "d_pathconf='" + perl_d_pathconf + "'"
3899 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
3900 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
3901 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
3902 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
3903 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
3904 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
3905 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
3906 $ WC "d_setpgid='" + perl_d_setpgid + "'"
3907 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
3908 $ WC "d_sysconf='" + perl_d_sysconf + "'"
3909 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
3910 $ WC "d_getpgid='" + perl_d_getpgid + "'"
3911 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
3912 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
3913 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
3914 $ WC "d_sfio='" + perl_d_sfio + "'"
3915 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
3916 $ WC "usedl='" + perl_usedl + "'"
3917 $ WC "startperl=" + perl_startperl ! This one's special--no enclosing single quotes
3918 $ WC "db_hashtype='" + perl_db_hashtype + "'"
3919 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
3920 $ WC "useperlio='" + perl_useperlio + "'"
3921 $ WC "defvoidused='" + perl_defvoidused + "'"
3922 $ WC "voidflags='" + perl_voidflags + "'"
3923 $ WC "d_eunice='" + perl_d_eunice + "'"
3924 $ WC "libs='" + perl_libs + "'"
3925 $ WC "libc='" + perl_libc + "'"
3926 $ tempstring = "PERL_VERSION='" + "''perl_patchlevel'" + "'"
3928 $ tempstring = "PERL_SUBVERSION='" + "''perl_patchlevel'" + "'"
3930 $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
3932 $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
3934 $ WC "pager='" + perl_pager + "'"
3935 $ WC "uidtype='" + perl_uidtype + "'"
3936 $ WC "gidtype='" + perl_gidtype + "'"
3937 $ WC "usethreads='" + perl_usethreads + "'"
3938 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
3939 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
3940 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
3941 $ WC "i_netdb='" + perl_i_netdb + "'"
3942 $ WC "pidtype='" + perl_pidtype + "'"
3943 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
3944 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
3945 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
3946 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
3947 $ WC "socksizetype='" + perl_socksizetype + "'"
3948 $ WC "baserev='" + perl_baserev + "'"
3949 $ WC "doublesize='" + perl_doublesize + "'"
3950 $ WC "ptrsize='" + perl_ptrsize + "'"
3951 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
3952 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
3953 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
3954 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
3955 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
3956 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
3957 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
3958 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
3959 $ WC "d_sethent='" + perl_d_sethent + "'"
3960 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
3961 $ WC "d_longdbl='" + perl_d_longdbl + "'"
3962 $ WC "longdblsize='" + perl_longdblsize + "'"
3963 $ WC "d_longlong='" + perl_d_longlong + "'"
3964 $ WC "longlongsize='" + perl_longlongsize + "'"
3965 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
3966 $ WC "d_mkstemps='" + perl_d_mkstemps + "'"
3967 $ WC "d_mkdtemp='" + perl_d_mkdtemp + "'"
3968 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
3969 $ WC "d_setenv='" + perl_d_setenv + "'"
3970 $ WC "d_endhent='" + perl_d_endhent + "'"
3971 $ WC "d_endnent='" + perl_d_endsent + "'"
3972 $ WC "d_endpent='" + perl_d_endpent + "'"
3973 $ WC "d_endsent='" + perl_d_endsent + "'"
3974 $ WC "d_gethent='" + perl_d_gethent + "'"
3975 $ WC "d_getnent='" + perl_d_getsent + "'"
3976 $ WC "d_getpent='" + perl_d_getpent + "'"
3977 $ WC "d_getsent='" + perl_d_getsent + "'"
3978 $ WC "d_sethent='" + perl_d_sethent + "'"
3979 $ WC "d_setnent='" + perl_d_setsent + "'"
3980 $ WC "d_setpent='" + perl_d_setpent + "'"
3981 $ WC "ebcdic='" + perl_ebcdic + "'"
3982 $ WC "d_setsent='" + perl_d_setsent + "'"
3983 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
3984 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
3985 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
3986 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
3987 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
3988 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
3989 $ WC "d_lchown='" + perl_d_lchown + "'"
3990 $ WC "d_union_semun='" + perl_d_union_semun + "'"
3991 $ WC "i_arpainet='" + perl_i_arpainet + "'"
3992 $ WC "d_grpasswd='" + perl_d_grpasswd + "'"
3993 $ WC "d_setgrent='" + perl_d_setgrent + "'"
3994 $ WC "d_getgrent='" + perl_d_getgrent + "'"
3995 $ WC "d_endgrent='" + perl_d_endgrent + "'"
3996 $ WC "d_pwpasswd='" + perl_d_pwpasswd + "'"
3997 $ WC "d_setpwent='" + perl_d_setpwent + "'"
3998 $ WC "d_getpwent='" + perl_d_getpwent + "'"
3999 $ WC "d_endpwent='" + perl_d_endpwent + "'"
4000 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
4001 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
4002 $ WC "extensions='" + perl_extensions + "'"
4003 $ WC "known_extensions='" + perl_known_extensions + "'"
4004 $ WC "static_ext='" + "'"
4005 $ WC "dynamic_ext='" + perl_extensions + "'"
4006 $ WC "d_mknod='" + perl_d_mknod + "'"
4007 $ WC "devtype='" + perl_devtype + "'"
4008 $ WC "d_gethname='" + perl_d_gethname + "'"
4009 $ WC "d_phostname='" + perl_d_phostname + "'"
4010 $ WC "d_accessx='" + perl_d_accessx + "'"
4011 $ WC "d_eaccess='" + perl_d_eaccess + "'"
4012 $ WC "i_ieeefp='" + perl_i_ieeefp + "'"
4013 $ WC "i_sunmath='" + perl_i_sunmath + "'"
4014 $ WC "i_sysaccess='" + perl_i_sysaccess + "'"
4015 $ WC "i_syssecrt='" + perl_i_syssecrt + "'"
4016 $ WC "d_fd_set='" + perl_d_fd_set + "'"
4017 $ WC "d_access='" + perl_d_access + "'"
4018 $ WC "d_msg_ctrunc='" + perl_d_msg_ctrunc + "'"
4019 $ WC "d_msg_dontroute='" + perl_d_msg_dontroute + "'"
4020 $ WC "d_msg_oob='" + perl_d_msg_oob + "'"
4021 $ WC "d_msg_peek='" + perl_d_msg_peek + "'"
4022 $ WC "d_msg_proxy='" + perl_d_msg_proxy + "'"
4023 $ WC "d_scm_rights='" + perl_d_scm_rights + "'"
4024 $ WC "d_sendmsg='" + perl_d_sendmsg + "'"
4025 $ WC "d_recvmsg='" + perl_d_recvmsg + "'"
4026 $ WC "d_msghdr_s='" + perl_d_msghdr_s + "'"
4027 $ WC "d_cmsghdr_s='" + perl_d_cmsghdr_s + "'"
4028 $ WC "i_sysuio='" + perl_i_sysuio + "'"
4029 $ WC "d_fseeko='" + perl_d_fseeko + "'"
4030 $ WC "d_ftello='" + perl_d_ftello + "'"
4031 $ WC "d_qgcvt='" + perl_d_qgcvt + "'"
4032 $ WC "d_readv='" + perl_d_readv + "'"
4033 $ WC "d_writev='" + perl_d_writev + "'"
4034 $ WC "i_machcthr='" + perl_i_machcthr + "'"
4035 $ WC "usemultiplicity='" + perl_usemultiplicity + "'"
4036 $ WC "i_poll='" + perl_i_poll + "'"
4037 $ WC "i_inttypes='" + perl_i_inttypes + "'"
4038 $ WC "d_off64_t='" + perl_d_off64_t + "'"
4039 $ WC "d_fpos64_t='" + perl_d_fpos64_t + "'"
4040 $ WC "use64bitall='" + perl_use64bitall + "'"
4041 $ WC "use64bitint='" + perl_use64bitint + "'"
4042 $ WC "d_drand48proto='" + perl_d_drand48proto + "'"
4043 $ WC "d_lseekproto='" + perl_d_drand48proto + "'"
4044 $ WC "d_old_pthread_create_joinable='" + perl_d_old_pthread_create_joinable + "'"
4045 $ WC "old_pthread_create_joinable='" + perl_old_pthread_create_joinable + "'"
4046 $ WC "drand01='" + perl_drand01 + "'"
4047 $ WC "randseedtype='" + perl_randseedtype + "'"
4048 $ WC "seedfunc='" + perl_seedfunc + "'"
4049 $ WC "sig_num_init='" + perl_sig_num_with_commas + "'"
4050 $ WC "i_sysmount='" + perl_i_sysmount + "'"
4051 $ WC "d_fstatfs='" + perl_d_fstatfs + "'"
4052 $ WC "d_getfsstat='" + perl_d_getfsstat + "'"
4053 $ WC "d_memchr='" + perl_d_memchr + "'"
4054 $ WC "d_statfsflags='" + perl_d_statfsflags + "'"
4055 $ WC "fflushNULL='define'"
4056 $ WC "fflushall='undef'"
4057 $ WC "d_stdio_stream_array='undef'"
4058 $ WC "i_sysstatvfs='" + perl_i_sysstatvfs + "'"
4059 $ WC "i_syslog='" + perl_i_syslog + "'"
4060 $ WC "i_sysmode='" + perl_i_sysmode + "'"
4061 $ WC "i_sysutsname='" + perl_i_sysutsname + "'"
4062 $ WC "i_machcthreads='" + perl_i_machcthreads + "'"
4063 $ WC "i_pthread='" + perl_i_pthread + "'"
4064 $ WC "d_fstatvfs='" + perl_d_fstatvfs + "'"
4065 $ WC "i_mntent='" + perl_i_mntent + "'"
4066 $ WC "d_getmntent='" + perl_d_getmntent + "'"
4067 $ WC "d_hasmntopt='" + perl_d_hasmntopt + "'"
4068 $ WC "d_telldirproto='" + perl_d_telldirproto + "'"
4069 $ WC "d_madvise='" + perl_d_madvise + "'"
4070 $ WC "d_msync='" + perl_d_msync + "'"
4071 $ WC "d_mprotect='" + perl_d_mprotect + "'"
4072 $ WC "d_munmap='" + perl_d_munmap + "'"
4073 $ WC "d_mmap='" + perl_d_mmap + "'"
4074 $ WC "i_sysmman='" + perl_i_sysmman + "'"
4075 $ WC "installusrbinperl='" + perl_installusrbinperl + "'"
4076 $! WC "selectminbits='" + perl_selectminbits + "'"
4077 $ WC "crosscompile='" + perl_crosscompile + "'"
4078 $ WC "multiarch='" + perl_multiarch + "'"
4079 $ WC "sched_yield='" + perl_sched_yield + "'"
4080 $ WC "d_strtoull='" + perl_d_strtoull + "'"
4081 $ WC "d_strtouq='" + perl_d_strtouq + "'"
4082 $ WC "d_strtoll='" + perl_d_strtoll + "'"
4083 $ WC "d_strtold='" + perl_d_strtold + "'"
4084 $ WC "usesocks='" + perl_usesocks + "'"
4085 $ WC "d_vendorlib='" + perl_d_vendorlib + "'"
4086 $ WC "vendorlibexp='" + perl_vendorlibexp + "'"
4087 $ WC "d_atolf='" + perl_d_atolf + "'"
4088 $ WC "d_atoll='" + perl_d_atoll + "'"
4089 $ WC "d_bincompat5005='" + perl_d_bincompat + "'"
4090 $ WC "d_endspent='" + perl_d_endspent + "'"
4091 $ WC "d_getspent='" + perl_d_getspent + "'"
4092 $ WC "d_getspnam='" + perl_d_getspnam + "'"
4093 $ WC "d_setspent='" + perl_d_setspent + "'"
4094 $ WC "i_shadow='" + perl_i_shadow + "'"
4095 $ WC "i_socks='" + perl_i_socks + "'"
4096 $ WC "d_PRIfldbl='" + perl_d_PRIfldbl + "'"
4097 $ WC "d_PRIgldbl='" + perl_d_PRIgldbl + "'"
4098 $ WC "d_PRId64='" + perl_d_PRId64 + "'"
4099 $ WC "d_PRIu64='" + perl_d_PRIu64 + "'"
4100 $ WC "d_PRIo64='" + perl_d_PRIo64 + "'"
4101 $ WC "d_PRIx64='" + perl_d_PRIx64 + "'"
4102 $ WC "sPRIfldbl='" + perl_sPRIfldbl + "'"
4103 $ WC "sPRIgldbl='" + perl_sPRIgldbl + "'"
4104 $ WC "sPRId64='" + perl_sPRId64 + "'"
4105 $ WC "sPRIu64='" + perl_sPRIu64 + "'"
4106 $ WC "sPRIo64='" + perl_sPRIo64 + "'"
4107 $ WC "sPRIx64='" + perl_sPRIx64 + "'"
4108 $ WC "d_llseek='" + perl_d_llseek + "'"
4109 $ WC "d_iconv='" + perl_d_iconv +"'"
4110 $ WC "i_iconv='" + perl_i_iconv +"'"
4111 $ WC "inc_version_list_init='0'"
4112 $ WC "uselargefiles='" + perl_uselargefiles + "'"
4113 $ WC "uselongdouble='" + perl_uselongdouble + "'"
4114 $ WC "usemorebits='" + perl_usemorebits + "'"
4115 $ WC "d_quad='" + perl_d_quad + "'"
4118 $ WC "quadtype='" + perl_quadtype + "'"
4119 $ WC "uquadtype='" + perl_uquadtype + "'"
4121 $ WC "d_fs_data_s='" + perl_d_fs_data_s + "'"
4122 $ WC "d_getcwd='" + perl_d_getcwd + "'"
4123 $ WC "d_getmnt='" + perl_d_getmnt + "'"
4124 $ WC "d_sqrtl='" + perl_d_sqrtl + "'"
4125 $ WC "d_statfs_f_flags='" + perl_d_statfs_f_flags + "'"
4126 $ WC "d_statfs_s='" + perl_d_statfs_s + "'"
4127 $ WC "d_ustat='" + perl_d_ustat + "'"
4128 $ WC "d_vendorarch='" + perl_d_vendorarch + "'"
4129 $ WC "vendorarchexp='" + perl_vendorarchexp + "'"
4130 $ WC "i_sysstatfs='" + perl_i_sysstatfs + "'"
4131 $ WC "i_sysvfs='" + perl_i_sysvfs + "'"
4132 $ WC "i_ustat='" + perl_i_ustat + "'"
4133 $ WC "ivtype='" + perl_ivtype + "'"
4134 $ WC "uvtype='" + perl_uvtype + "'"
4135 $ WC "i8type='" + perl_i8type + "'"
4136 $ WC "i16type='" + perl_i16type + "'"
4137 $ WC "u8type='" + perl_u8type + "'"
4138 $ WC "u16type='" + perl_u16type + "'"
4139 $ WC "i32type='" + perl_i32type + "'"
4140 $ WC "u32type='" + perl_u32type + "'"
4141 $ WC "i64type='" + perl_i64type + "'"
4142 $ WC "u64type='" + perl_u64type + "'"
4143 $ WC "nvtype='" + perl_nvtype + "'"
4144 $ WC "ivsize='" + perl_ivsize + "'"
4145 $ WC "uvsize='" + perl_uvsize + "'"
4146 $ WC "i8size='" + perl_i8size + "'"
4147 $ WC "u8size='" + perl_u8size + "'"
4148 $ WC "i16size='" + perl_i16size + "'"
4149 $ WC "u16size='" + perl_u16size + "'"
4150 $ WC "i32size='" + perl_i32size + "'"
4151 $ WC "u32size='" + perl_u32size + "'"
4152 $ WC "i64size='" + perl_i64size + "'"
4153 $ WC "u64size='" + perl_u64size + "'"
4154 $ WC "ivdformat='" + perl_ivdformat + "'"
4155 $ WC "uvuformat='" + perl_uvuformat + "'"
4156 $ WC "uvoformat='" + perl_uvoformat + "'"
4157 $ WC "uvxformat='" + perl_uvxformat + "'"
4158 $ WC "d_vms_case_sensitive_symbols='" + d_vms_be_case_sensitive + "'"
4160 $! ##WRITE NEW CONSTANTS HERE##
4164 $! Okay, we've gotten here. Build munchconfig and run it
4165 $ 'Perl_CC' munchconfig.c
4166 $ If (Needs_Opt.eqs."Yes")
4168 $ open/write OPTCHAN []munchconfig.opt
4169 $ IF ("''using_gnu_c'".eqs."Yes")
4171 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
4173 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
4175 $ link munchconfig.obj,munchconfig.opt/opt
4176 $ delete munchconfig.opt;*
4178 $ link munchconfig.obj
4181 $ echo "Writing config.h"
4183 $ ! we need an fdl file
4184 $ CREATE [-]CONFIG.FDL
4187 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
4188 $ ! First spit out the header info with the local defines (to get
4189 $ ! around the 255 character command line limit)
4190 $ OPEN/APPEND CONFIG [-]config.local
4191 $ if use_debugging_perl.eqs."Y"
4193 $ WRITE CONFIG "#define DEBUGGING"
4195 $ if use_two_pot_malloc.eqs."Y"
4197 $ WRITE CONFIG "#define TWO_POT_OPTIMIZE"
4199 $ if mymalloc.eqs."Y"
4201 $ WRITE CONFIG "#define EMBEDMYMALLOC"
4203 $ if use_pack_malloc.eqs."Y"
4205 $ WRITE CONFIG "#define PACK_MALLOC"
4207 $ if use_debugmalloc.eqs."Y"
4209 $ write config "#define DEBUGGING_MSTATS"
4211 $ if "''Using_Gnu_C'" .eqs."Yes"
4213 $ WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
4215 $ if "''Has_Dec_C_Sockets'".eqs."T"
4217 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
4218 $ WRITE CONFIG "#define DECCRTL_SOCKETS"
4220 $ if "''Has_Socketshr'".eqs."T"
4222 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
4224 $! This is VMS-specific for now
4225 $ WRITE CONFIG "#''perl_d_setenv' HAS_SETENV"
4226 $ if d_alwdeftype.eqs."Y"
4228 $ WRITE CONFIG "#define SECURE_INTERNAL_GETENV"
4230 $ WRITE CONFIG "#undef SECURE_INTERNAL_GETENV"
4232 $ if d_secintgenv.eqs."Y"
4234 $ WRITE CONFIG "#define ALWAYS_DEFTYPES"
4236 $ WRITE CONFIG "#undef ALWAYS_DEFTYPES"
4240 $ WRITE CONFIG "#define USE_64_BIT_INT"
4241 $ WRITE CONFIG "#define USE_LONG_DOUBLE"
4245 $ WRITE CONFIG "#define USE_64_BIT_ALL"
4247 $ if be_case_sensitive
4249 $ write config "#define VMS_WE_ARE_CASE_SENSITIVE"
4251 $ WRITE CONFIG "#define HAS_ENVGETENV"
4252 $ WRITE CONFIG "#define PERL_EXTERNAL_GLOB"
4255 $! Now build the normal config.h
4256 $ define/user sys$output [-]config.main
4257 $ mcr []munchconfig [-]config.sh [-]config_h.sh
4258 $ ! Concatenate them together
4259 $ copy [-]config.local,[-]config.main [-]config.h
4261 $ DELETE/NOLOG [-]CONFIG.MAIN;*
4262 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
4263 $ DELETE/NOLOG [-]CONFIG.FDL;*
4265 $ if "''Using_Dec_C'" .eqs."Yes"
4267 $ DECC_REPLACE = "DECC=decc=1"
4269 $ DECC_REPLACE = "DECC="
4271 $ if "''Using_Gnu_C'" .eqs."Yes"
4273 $ GNUC_REPLACE = "GNUC=gnuc=1"
4275 $ GNUC_REPLACE = "GNUC="
4277 $ if "''Has_Dec_C_Sockets'" .eqs."T"
4279 $ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
4281 $ if "''Has_Socketshr'" .eqs."T"
4283 $ SOCKET_REPLACE = "SOCKET=SOCKETSHR_SOCKETS=1"
4285 $ SOCKET_REPLACE = "SOCKET="
4288 $ IF ("''Use_Threads'".eqs."T")
4290 $ if ("''VMS_VER'".LES."6.2")
4292 $ THREAD_REPLACE = "THREAD=OLDTHREADED=1"
4294 $ THREAD_REPLACE = "THREAD=THREADED=1"
4297 $ THREAD_REPLACE = "THREAD="
4299 $ if mymalloc.eqs."Y"
4301 $ MALLOC_REPLACE = "MALLOC=MALLOC=1"
4303 $ MALLOC_REPLACE = "MALLOC="
4305 $ if f$getsyi("HW_MODEL").ge.1024
4307 $ ARCH_TYPE = "ARCH-TYPE=__AXP__"
4309 $ ARCH_TYPE = "ARCH-TYPE=__VAX__"
4311 $ echo "Writing DESCRIP.MMS"
4313 $ define/user sys$output [-]descrip.mms
4314 $ mcr []munchconfig [-]config.sh descrip_mms.template "''DECC_REPLACE'" "''ARCH_TYPE'" "''GNUC_REPLACE'" "''SOCKET_REPLACE'" "''THREAD_REPLACE'" -
4315 "''C_Compiler_Replace'" "''MALLOC_REPLACE'" "''Thread_Live_Dangerously'" "PV=''LocalPerlVer'" "FLAGS=FLAGS=''extra_flags'"
4316 $ echo "Extracting Build_Ext.Com"
4317 $ Create Sys$Disk:[-]Build_Ext.Com
4318 $ Deck/Dollar="$EndOfTpl$"
4320 $! NOTE: This file is extracted as part of the VMS configuration process.
4321 $! Any changes made to it directly will be lost. If you need to make any
4322 $! changes, please edit the template in [.vms]SubConfigure.Com instead.
4323 $ def = F$Environment("Default")
4324 $ exts1 = F$Edit(p1,"Compress")
4325 $ p2 = F$Edit(p2,"Upcase,Compress,Trim")
4326 $ If F$Locate("MCR ",p2).eq.0 Then p2 = F$Extract(3,255,p2)
4327 $ miniperl = "$" + F$Search(F$Parse(p2,".Exe"))
4329 $ if f$type('p3') .nes. "" then makeutil = 'p3'
4330 $ targ = F$Edit(p4,"Lowercase")
4333 $ ext = F$Element(i," ",p1)
4334 $ If ext .eqs. " " Then Goto done
4335 $ Define/User Perl_Env_Tables CLISYM_LOCAL
4337 ($extdir = $ENV{'ext'}) =~ s/::/./g;
4339 if ($extdir =~ /^vms/i) { $extdir =~ s/vms/.vms.ext/i; }
4340 else { $extdir = ".ext.$extdir"; }
4341 ($ENV{'extdir'} = "[$extdir]");
4342 ($ENV{'up'} = ('-') x ($extdir =~ tr/././));
4343 $ Set Default &extdir
4345 $ If F$Locate("clean",targ) .eqs. F$Length(targ)
4347 $ Write Sys$Output "Building ''ext' . . ."
4348 $ On Error Then Goto done
4349 $ If F$Search("Descrip.MMS") .eqs. ""
4353 $ If F$CvTime(F$File("Descrip.MMS","rdt")) .lts. -
4354 F$CvTime(F$File("Makefile.PL","rdt")) Then redesc = 1
4357 $ Write Sys$Output "''targ'ing ''ext' . . ."
4358 $ On Error Then Continue
4361 miniperl "-I[''up'.lib]" Makefile.PL "INST_LIB=[''up'.lib]" "INST_ARCHLIB=[''up'.lib]"
4375 $! Clean up after ourselves
4376 $ delete/nolog munchconfig.exe;*
4377 $ delete/nolog munchconfig.obj;*