1 $! SUBCONFIGURE.COM - build a config.sh for VMS Perl.
3 $! Note for folks from other platforms changing things in here:
4 $! Fancy changes (based on compiler capabilities or VMS version or
5 $! whatever) are tricky, so go ahead and punt on those.
7 $! Simple changes, though (say, always setting something to 1, or undef,
8 $! or something like that) are straightforward. Adding a new item for the
9 $! ultimately created config.sh requires adding two lines to this file.
11 $! First, a line in the format:
13 $! after the line tagged ##ADD NEW CONSTANTS HERE##. Replace foo with the
14 $! variable name as it appears in config.sh.
16 $! Second, add a line in the format:
17 $! $ WC "foo='" + perl_foo + "'"
18 $! after the line tagged ##WRITE NEW CONSTANTS HERE##. Careful of the
19 $! quoting, as it can be tricky.
21 $! This .COM file expects to be called by configure.com, and thus expects
22 $! a few symbols in the environment. Notably:
24 $! One of: Using_Dec_C, Using_Vax_C, Using_Gnu_C set to "YES"
25 $! Dec_C_Version set to the Dec C version (defaults to 0 if not specified)
26 $! Has_Socketshr set to "T" if using socketshr
27 $! Has_Dec_C_Sockets set to "T" if using Dec C sockets
28 $! Use_Threads set to "T" if they're using threads
29 $! C_Compiler_Invoke is the command needed to invoke the C compiler
31 $! Set Dec_C_Version to something
32 $ WRITE_RESULT := "WRITE SYS$OUTPUT ""%CONFIG-I-RESULT "" + "
33 $ echo = "Write Sys$Output "
34 $ Dec_C_Version := "''Dec_C_Version'"
35 $ Dec_C_Version = Dec_C_Version + 0
36 $ Vms_Ver := "''f$extract(1,3, f$getsyi(""version""))'"
37 $ perl_extensions := "''extensions'"
38 $ if f$length(Mcc) .eq. 0 then Mcc := "cc"
39 $ MCC = f$edit(mcc, "UPCASE")
40 $ C_Compiler_Replace := "CC=CC=''Mcc'''CC_flags'"
41 $ if "''Using_Dec_C'" .eqs. "Yes"
43 $ Checkcc := "''Mcc'/prefix=all"
47 $ cc_flags = cc_flags + extra_flags
48 $ if be_case_sensitive
50 $ d_vms_be_case_sensitive = "define"
52 $ d_vms_be_case_sensitive = "undef"
54 $ if use_multiplicity .eqs. "Y"
56 $ perl_usemultiplicity = "define"
58 $ perl_usemultiplicity = "undef"
60 $! Some constant defaults.
62 $ hwname = f$getsyi("HW_NAME")
64 $ if "''myname'" .eqs. "" THEN myname = f$trnlnm("SYS$NODE")
66 $! ##ADD NEW CONSTANTS HERE##
67 $ perl_d_getcwd = "undef"
68 $ perl_d_nv_preserves_uv = "define"
69 $ perl_d_fs_data_s = "undef"
70 $ perl_d_getmnt = "undef"
71 $ perl_d_sqrtl = "define"
72 $ perl_d_statfs_f_flags = "undef"
73 $ perl_d_statfs_s = "undef"
74 $ perl_d_ustat = "undef"
75 $ perl_i_sysstatfs = "undef"
76 $ perl_i_sysvfs = "undef"
77 $ perl_i_ustat = "undef"
78 $ perl_d_llseek="undef"
79 $ perl_d_iconv="undef"
80 $ perl_d_madvise="undef"
81 $ perl_selectminbits=32
82 $ perl_d_msync="undef"
83 $ perl_d_mprotect="undef"
84 $ perl_d_munmap="undef"
85 $ perl_crosscompile="undef"
86 $ perl_multiarch="undef"
88 $ perl_i_sysmman="undef"
89 $ perl_d_telldirproto="define"
90 $ perl_i_sysmount="undef"
91 $ perl_d_bincompat="undef"
92 $ perl_d_endspent="undef
93 $ perl_d_getspent="undef
94 $ perl_d_getspnam="undef
95 $ perl_d_setspent="undef
96 $ perl_d_fstatfs="undef"
97 $ perl_d_getfsstat="undef"
98 $ perl_i_machcthreads="undef"
99 $ perl_i_pthread="define"
100 $ perl_d_fstatvfs="undef"
101 $ perl_usesocks="undef"
102 $ perl_d_vendorlib="undef"
103 $ perl_vendorlibexp=""
104 $ perl_d_statfsflags="undef"
105 $ perl_i_sysstatvfs="undef"
106 $ perl_i_mntent="undef"
107 $ perl_d_getmntent="undef"
108 $ perl_d_hasmntopt="undef"
109 $ perl_package="''package'"
110 $ perl_baserev = "''baserev'"
112 $ perl_installusrbinperl="undef"
114 $ perl_d_fseeko="undef"
115 $ perl_d_ftello="undef"
116 $ perl_d_readv="undef"
117 $ perl_d_writev="undef"
118 $ perl_i_machcthr="undef"
119 $ perl_i_netdb="undef"
120 $ perl_d_gnulibc="undef"
121 $ perl_cf_by="unknown"
125 $ perl_drand01 = "drand48()"
126 $ perl_randseedtype = "long int"
127 $ perl_seedfunc = "srand48"
128 $ perl_d_msg_ctrunc = "undef"
129 $ perl_d_msg_dontroute = "undef"
130 $ perl_d_msg_oob = "undef"
131 $ perl_d_msg_peek = "undef"
132 $ perl_d_msg_proxy = "undef"
133 $ perl_d_scm_rights = "undef"
134 $ perl_d_sendmsg = "undef"
135 $ perl_d_recvmsg = "undef"
136 $ perl_d_msghdr_s = "undef"
137 $ perl_d_cmsghdr_s = "undef"
138 $ IF use_64bitint .eqs. "Y"
140 $ perl_use64bitint = "define"
141 $ perl_uselargefiles = "define"
142 $ perl_uselongdouble = "define"
143 $ perl_usemorebits = "define"
145 $ perl_use64bitint = "undef"
146 $ perl_uselargefiles = "undef"
147 $ perl_uselongdouble = "undef"
148 $ perl_usemorebits = "undef"
150 $ use_64bitall = use_64bitint ! until configure.com question is reworded?
151 $ IF use_64bitall .eqs. "Y"
153 $ perl_use64bitall = "define"
155 $ perl_use64bitall = "undef"
157 $ perl_d_drand48proto = "define"
158 $ perl_d_lseekproto = "define"
159 $ perl_libpth="/sys$share /sys$library"
161 $ perl_lddlflags="/Share"
167 $ perl_i_arpainet="undef"
168 $ perl_d_grpasswd="undef"
169 $ perl_d_setgrent="undef"
170 $ perl_d_getgrent="define"
171 $ perl_d_endgrent="define"
172 $ perl_d_pwpasswd="define"
173 $ perl_d_setpwent="define"
174 $ perl_d_getpwent="define"
175 $ perl_d_endpwent="define"
176 $ perl_d_phostname="undef"
177 $ perl_d_accessx="undef"
178 $ perl_d_eaccess="undef"
179 $ perl_ebcdic="undef"
181 $ perl_shrplib="define"
182 $ perl_usemymalloc=mymalloc
183 $ perl_usevfork="true"
184 $ perl_useposix="false"
185 $ perl_spitshell="write sys$output "
186 $ perl_dlsrc="dl_vms.c"
189 $ perl_prefix="perl_root"
190 $ perl_binexp="''perl_prefix':[000000]"
191 $ perl_builddir="''perl_prefix':[000000]"
192 $ perl_installbin="''perl_prefix':[000000]"
193 $ perl_installscript="''perl_prefix':[utils]"
194 $ perl_installman1dir="''perl_prefix':[man.man1]"
195 $ perl_installman3dir="''perl_prefix':[man.man3]"
196 $ perl_installprivlib="''perl_prefix':[lib]"
197 $ perl_installsitelib="''perl_prefix':[lib.site_perl]"
200 $ perl_d_sockpair="undef"
201 $ perl_i_neterrno="define"
202 $ perl_ldflags="/NoTrace/NoMap"
203 $ perl_d_lchown="undef"
204 $ perl_d_mknod="undef"
205 $ perl_d_union_semun="undef"
206 $ perl_d_semctl_semun="undef"
207 $ perl_d_semctl_semid_ds="undef"
208 $ IF (sharedperl.EQS."Y" .AND. F$GETSYI("HW_MODEL").GE.1024)
210 $ perl_obj_ext=".abj"
213 $ perl_exe_ext=".axe"
214 $ perl_lib_ext=".alb"
216 $ perl_obj_ext=".obj"
219 $ perl_exe_ext=".exe"
220 $ perl_lib_ext=".olb"
222 $ perl_dlobj="dl_vms''perl_obj_ext'"
224 $ perl_d_archlib="define"
225 $ perl_d_bincompat3="undef"
226 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
228 $ perl_d_castneg="define"
230 $ perl_d_chsize="undef"
231 $ perl_d_const="define"
232 $ perl_d_crypt="define"
233 $ perl_byteorder="1234"
236 $ perl_d_dup2="define"
237 $ perl_d_fchmod="undef"
238 $ perl_d_fchown="undef"
239 $ perl_d_fcntl="undef"
240 $ perl_d_fgetpos="define"
241 $ perl_d_flexfnam="define"
242 $ perl_d_flock="undef"
243 $ perl_d_fsetpos="define"
244 $ perl_d_getgrps="undef"
245 $ perl_d_setgrps="undef"
246 $ perl_d_getprior="undef"
247 $ perl_d_killpg="undef"
248 $ perl_d_link="undef"
249 $ perl_d_lstat="undef"
250 $ perl_d_lockf="undef"
251 $ perl_d_memcmp="define"
252 $ perl_d_memcpy="define"
253 $ perl_d_memmove="define"
254 $ perl_d_memset="define"
255 $ perl_d_mkdir="define"
257 $ perl_d_open3="define"
258 $ perl_d_poll="undef"
259 $ perl_d_readdir="define"
260 $ perl_d_seekdir="define"
261 $ perl_d_telldir="define"
262 $ perl_d_rewinddir="define"
263 $ perl_d_rename="define"
264 $ perl_d_rmdir="define"
266 $ perl_d_setegid="undef"
267 $ perl_d_seteuid="undef"
268 $ perl_d_setprior="undef"
269 $ perl_d_setregid="undef"
270 $ perl_d_setresgid="undef"
271 $ perl_d_setreuid="undef"
272 $ perl_d_setresuid="undef"
273 $ perl_d_setrgid="undef"
274 $ perl_d_setruid="undef"
275 $ perl_d_setsid="undef"
277 $ perl_d_shmatprototype="undef"
278 $ perl_d_statblks="undef"
279 $ perl_stdio_ptr="((*fp)->_ptr)"
280 $ perl_stdio_cnt="((*fp)->_cnt)"
281 $ perl_stdio_base="((*fp)->_base)"
282 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
283 $ perl_d_strctcpy="define"
284 $ perl_d_strerror="define"
285 $ perl_d_syserrlst="undef"
286 $ perl_d_strerrm="strerror((e),vaxc$errno)"
287 $ perl_d_symlink="undef"
288 $ perl_d_syscall="undef"
289 $ perl_d_system="define"
290 $ perl_timetype="time_t"
291 $ perl_d_vfork="define"
292 $ perl_signal_t="void"
293 $ perl_d_volatile="define"
294 $ perl_d_vprintf="define"
295 $ perl_d_charvspr="undef"
296 $ perl_d_waitpid="define"
297 $ perl_i_dirent="undef"
298 $ perl_d_dirnamlen="define"
299 $ perl_direntrytype="struct dirent"
300 $ perl_i_fcntl="undef"
302 $ perl_i_limits="define"
303 $ perl_i_memory="undef"
304 $ perl_i_ndbm="undef"
305 $ perl_i_stdarg="define"
307 $ perl_d_pwquota="undef"
308 $ perl_d_pwage="undef"
309 $ perl_d_pwchange="undef"
310 $ perl_d_pwclass="undef"
311 $ perl_d_pwexpire="undef"
312 $ perl_d_pwcomment="define"
313 $ perl_i_stddef="define"
314 $ perl_i_stdlib="define"
315 $ perl_i_string="define"
316 $ perl_i_sysdir="undef"
317 $ perl_i_sysfile="undef"
318 $ perl_i_sysioctl="undef"
319 $ perl_i_sysndir="undef"
320 $ perl_i_sysresrc="undef"
321 $ perl_i_sysselct="undef"
323 $ perl_i_rpcsvcdbm="undef"
324 $ perl_i_sfio="undef"
325 $ perl_i_sysstat="define"
326 $ perl_i_systimes="undef"
327 $ perl_i_systypes="define"
328 $ perl_i_sysun="undef"
329 $ perl_i_syswait="undef"
330 $ perl_i_termio="undef"
331 $ perl_i_sgtty="undef"
332 $ perl_i_termios="undef"
333 $ perl_i_time="define"
334 $ perl_i_systime="undef"
335 $ perl_i_systimek="undef"
336 $! perl_i_unistd="undef"
337 $ perl_i_utime="undef"
338 $ perl_i_varargs="undef"
339 $ perl_i_vfork="undef"
340 $ perl_prototype="define"
342 $ perl_stdchar="char"
343 $ perl_d_unlink_all_versions="undef"
344 $ perl_full_sed="_NLA0:"
345 $ perl_bin="/''perl_prefix'/000000"
346 $ perl_binexp="''perl_prefix':[000000]"
347 $ perl_d_alarm="define"
348 $ perl_d_casti32="define"
349 $ perl_d_chown="define"
350 $ perl_d_chroot="undef"
351 $ perl_d_cuserid="define"
352 $ perl_d_dbl_dig="define"
353 $ perl_d_ldbl_dig="define"
354 $ perl_d_difftime="define"
355 $ perl_d_fork="undef"
356 $ perl_d_getlogin="define"
357 $ perl_d_getppid="undef"
358 $ perl_d_nice="define"
359 $ perl_d_pause="define"
360 $ perl_d_pipe="define"
361 $ perl_d_readlink="undef"
362 $ perl_d_setlinebuf="undef"
363 $ perl_d_strchr="define"
364 $ perl_d_strtod="define"
365 $ perl_d_strtol="define"
366 $ perl_d_strtoul="define"
367 $ perl_d_tcgetpgrp="undef"
368 $ perl_d_tcsetpgrp="undef"
369 $ perl_d_times="define"
370 $ perl_d_tzname="undef"
371 $ perl_d_umask="define"
372 $ perl_fpostype="fpos_t"
373 $ perl_i_dlfcn="undef"
374 $ perl_i_float="define"
375 $ perl_i_math="define"
376 $ perl_lseektype="int"
377 $ perl_i_values="undef"
378 $ perl_malloctype="void *"
379 $ perl_freetype="void"
380 $ if "''mymalloc'".eqs."Y"
382 $ perl_d_mymalloc="define"
384 $ perl_d_mymalloc="undef"
387 $ perl_modetype="unsigned int"
388 $ perl_ssizetype="int"
389 $ perl_o_nonblock=" "
392 $ perl_d_eofnblk="undef"
393 $ perl_d_oldarchlib="define"
394 $ perl_privlibexp="''perl_prefix':[lib]"
395 $ perl_privlib="''perl_prefix':[lib]"
396 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
397 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
398 $ perl_sizetype="size_t"
399 $ perl_i_sysparam="undef"
400 $ perl_d_void_closedir="define"
401 $ perl_d_dlerror="undef"
402 $ perl_d_dlsymun="undef"
403 $ perl_d_suidsafe="undef"
404 $ perl_d_dosuid="undef"
405 $ perl_d_inetaton="undef"
406 $ perl_d_isascii="define"
407 $ perl_d_mkfifo="undef"
408 $ perl_d_safebcpy="undef"
409 $ perl_d_safemcpy="define"
410 $ perl_d_sanemcmp="define"
411 $ perl_d_setpgrp="undef"
412 $ perl_d_bsdsetpgrp="undef"
413 $ perl_d_bsdpgrp="undef"
414 $ perl_d_setpgid="undef"
415 $ perl_d_setpgrp2="undef"
416 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
417 $ perl_d_getpgid="undef"
418 $ perl_d_getpgrp="undef"
419 $ perl_d_bsdgetpgrp="undef"
420 $ perl_d_getpgrp2="undef"
421 $ perl_d_sfio="undef"
422 $ perl_usedl="define"
423 $ perl_startperl="""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ + ++$status != 0 and $exit = $status = undef;"""
424 $ perl_db_hashtype=" "
425 $ perl_db_prefixtype=" "
426 $ perl_useperlio="undef"
427 $ perl_defvoidused="15"
428 $ perl_voidflags="15"
429 $ perl_d_eunice="undef"
430 $ perl_d_pwgecos="define"
431 $ IF ("''Use_Threads'".eqs."T").and.("''VMS_VER'".LES."6.2")
433 $ 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"
437 $ IF ("''Using_Dec_C'".eqs."Yes")
439 $ perl_libc="(DECCRTL)"
443 $ perl_PATCHLEVEL="''patchlevel'"
444 $ perl_SUBVERSION="''subversion'"
449 $ if (use_64bitint .eqs. "Y")
451 $ perl_d_PRIfldbl = "define"
452 $ perl_d_PRIgldbl = "define"
453 $ perl_d_PRId64 = "define"
454 $ perl_d_PRIu64 = "define"
455 $ perl_d_PRIo64 = "define"
456 $ perl_d_PRIx64 = "define"
457 $ perl_sPRIfldbl = """Lf"""
458 $ perl_sPRIgldbl = """Lg"""
459 $ perl_sPRId64 = """Ld"""
460 $ perl_sPRIu64 = """Lu"""
461 $ perl_sPRIo64 = """Lo"""
462 $ perl_sPRIx64 = """Lx"""
463 $ perl_d_quad = "define"
464 $ perl_quadtype = "long long"
465 $ perl_uquadtype = "unsigned long long"
467 $ perl_d_PRIfldbl = "undef"
468 $ perl_d_PRIgldbl = "undef"
469 $ perl_d_PRId64 = "undef"
470 $ perl_d_PRIu64 = "undef"
471 $ perl_d_PRIo64 = "undef"
472 $ perl_d_PRIx64 = "undef"
473 $ perl_sPRIfldbl = ""
474 $ perl_sPRIgldbl = ""
479 $ perl_d_quad = "undef"
482 $! Now some that we build up
484 $ LocalTime = f$time()
485 $ perl_cf_time= f$extract(0, 3, f$cvtime(LocalTime,, "WEEKDAY")) + " " + -
486 f$edit(f$cvtime(LocalTime, "ABSOLUTE", "MONTH"), "LOWERCASE") + -
487 " " + f$cvtime(LocalTime,, "DAY") + " " + f$cvtime(LocalTime,, "TIME") + -
488 " " + f$cvtime(LocalTime,, "YEAR")
489 $ if f$getsyi("HW_MODEL").ge.1024
491 $ perl_arch="VMS_AXP"
492 $ perl_archname="VMS_AXP"
493 $ perl_alignbytes="8"
495 $ perl_arch="VMS_VAX"
496 $ perl_archname="VMS_VAX"
497 $ perl_alignbytes="8"
499 $ if ("''Use_Threads'".eqs."T")
501 $ if use_5005_threads
503 $ perl_arch = "''perl_arch'-thread"
504 $ perl_archname = "''perl_archname'-thread"
505 $ perl_d_old_pthread_create_joinable = "undef"
506 $ perl_old_pthread_create_joinable = " "
507 $ perl_use5005threads = "define"
508 $ perl_useithreads = "undef"
510 $ perl_arch = "''perl_arch'-ithread"
511 $ perl_archname = "''perl_archname'-ithread"
512 $ perl_d_old_pthread_create_joinable = "undef"
513 $ perl_old_pthread_create_joinable = " "
514 $ perl_use5005threads = "undef"
515 $ perl_useithreads = "define"
518 $ perl_d_old_pthread_create_joinable = "undef"
519 $ perl_old_pthread_create_joinable = " "
520 $ perl_use5005threads = "undef"
521 $ perl_useithreads = "undef"
523 $ perl_osvers=f$edit(osvers, "TRIM")
524 $ if (perl_subversion + 0).eq.0
526 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL
528 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion
531 $! Some that we need to invoke the compiler for
532 $ OS := "open/write SOURCECHAN []temp.c"
533 $ WS := "write SOURCECHAN"
534 $ CS := "close SOURCECHAN"
535 $ DS := "delete/nolog []temp.*;*"
537 $ if ("''using_vax_c'".eqs."Yes").or.("''using_gnu_c'".eqs."Yes")
539 $ open/write OPTCHAN []temp.opt
540 $ IF ("''using_gnu_c'".eqs."Yes")
542 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
544 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
549 $! Check for __STDC__
553 $ WS "#include <stdlib.h>
555 $ WS "#include <stdio.h>
558 $ WS "#ifdef __STDC__
559 $ WS "printf(""42\n"");
561 $ WS "printf(""1\n"");
566 $ DEFINE SYS$ERROR _NLA0:
567 $ DEFINE SYS$OUTPUT _NLA0:
568 $ ON ERROR THEN CONTINUE
569 $ ON WARNING THEN CONTINUE
571 $ If (Needs_Opt.eqs."Yes")
573 $ link temp.obj,temp.opt/opt
577 $ DEASSIGN SYS$OUTPUT
579 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
580 $ DEFINE SYS$ERROR TEMPOUT
581 $ DEFINE SYS$OUTPUT TEMPOUT
584 $ DEASSIGN SYS$OUTPUT
586 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
589 $ DELETE/NOLOG [-.uu]tempout.lis;
591 $ perl_cpp_stuff=line
592 $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
594 $! Check for double size
598 $ WS "#include <stdlib.h>
600 $ WS "#include <stdio.h>
604 $ WS "foo = sizeof(double);
605 $ WS "printf(""%d\n"", foo);
609 $ DEFINE SYS$ERROR _NLA0:
610 $ DEFINE SYS$OUTPUT _NLA0:
611 $ ON ERROR THEN CONTINUE
612 $ ON WARNING THEN CONTINUE
614 $ If (Needs_Opt.eqs."Yes")
616 $ link temp.obj,temp.opt/opt
620 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
621 $ DEASSIGN SYS$OUTPUT
623 $ DEFINE SYS$ERROR TEMPOUT
624 $ DEFINE SYS$OUTPUT TEMPOUT
627 $ DEASSIGN SYS$OUTPUT
629 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
632 $ DELETE/NOLOG [-.uu]tempout.lis;
634 $ perl_doublesize=line
635 $ WRITE_RESULT "doublesize is ''perl_doublesize'"
637 $! Check for long double size
641 $ WS "#include <stdlib.h>
643 $ WS "#include <stdio.h>
646 $ WS "printf(""%d\n"", sizeof(long double));
650 $ DEFINE SYS$ERROR _NLA0:
651 $ DEFINE SYS$OUTPUT _NLA0:
652 $ ON ERROR THEN CONTINUE
653 $ ON WARNING THEN CONTINUE
655 $ teststatus = f$extract(9,1,$status)
656 $ if (teststatus.nes."1")
658 $ perl_longdblsize="0"
659 $ perl_d_longdbl="undef"
661 $ ON ERROR THEN CONTINUE
662 $ ON WARNING THEN CONTINUE
663 $ If (Needs_Opt.eqs."Yes")
665 $ link temp.obj,temp.opt/opt
669 $ teststatus = f$extract(9,1,$status)
670 $ DEASSIGN SYS$OUTPUT
672 $ if (teststatus.nes."1")
674 $ perl_longdblsize="0"
675 $ perl_d_longdbl="undef"
677 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
678 $ DEFINE SYS$ERROR TEMPOUT
679 $ DEFINE SYS$OUTPUT TEMPOUT
682 $ DEASSIGN SYS$OUTPUT
684 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
687 $ DELETE/NOLOG [-.uu]tempout.lis;
689 $ perl_longdblsize=line
690 $ perl_d_longdbl="define"
693 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
694 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
696 $! Check for long long existance and size
700 $ WS "#include <stdlib.h>
702 $ WS "#include <stdio.h>
705 $ WS "printf(""%d\n"", sizeof(long long));
709 $ DEFINE SYS$ERROR _NLA0:
710 $ DEFINE SYS$OUTPUT _NLA0:
711 $ on error then continue
712 $ on warning then continue
714 $ If (Needs_Opt.eqs."Yes")
716 $ link temp.obj,temp.opt/opt
720 $ teststatus = f$extract(9,1,$status)
721 $ DEASSIGN SYS$OUTPUT
723 $ if (teststatus.nes."1")
725 $ perl_longlongsize="0"
726 $ perl_d_longlong="undef"
728 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
729 $ DEFINE SYS$ERROR TEMPOUT
730 $ DEFINE SYS$OUTPUT TEMPOUT
733 $ DEASSIGN SYS$OUTPUT
735 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
738 $ DELETE/NOLOG [-.uu]tempout.lis;
739 $ perl_longlongsize=line
740 $ perl_d_longlong="define"
742 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
743 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
745 $! Check the prototype for getgid
749 $ WS "#include <stdlib.h>
751 $ WS "#include <stdio.h>
752 $ WS "#include <types.h>
753 $ WS "#include <unistd.h>
760 $ DEFINE SYS$ERROR _NLA0:
761 $ DEFINE SYS$OUTPUT _NLA0:
762 $ on error then continue
763 $ on warning then continue
765 $ teststatus = f$extract(9,1,$status)
766 $ DEASSIGN SYS$OUTPUT
768 $ if (teststatus.nes."1")
770 $! Okay, gid_t failed. Must be unsigned int
771 $ perl_gidtype = "unsigned int"
773 $ perl_gidtype = "gid_t"
775 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
777 $! Check to see if we've got dev_t
781 $ WS "#include <stdlib.h>
783 $ WS "#include <stdio.h>
784 $ WS "#include <types.h>
785 $ WS "#include <unistd.h>
792 $ DEFINE SYS$ERROR _NLA0:
793 $ DEFINE SYS$OUTPUT _NLA0:
794 $ on error then continue
795 $ on warning then continue
797 $ teststatus = f$extract(9,1,$status)
798 $ DEASSIGN SYS$OUTPUT
800 $ if (teststatus.nes."1")
802 $! Okay, dev_t failed. Must be unsigned int
803 $ perl_devtype = "unsigned int"
805 $ perl_devtype = "dev_t"
807 $ WRITE_RESULT "Dev_t is ''perl_devtype'"
809 $! Check to see if we've got unistd.h (which we ought to, but you never know)
813 $ WS "#include <stdlib.h>
815 $ WS "#include <unistd.h>
821 $ DEFINE SYS$ERROR _NLA0:
822 $ DEFINE SYS$OUTPUT _NLA0:
823 $ on error then continue
824 $ on warning then continue
826 $ teststatus = f$extract(9,1,$status)
827 $ DEASSIGN SYS$OUTPUT
829 $ if (teststatus.nes."1")
831 $! Okay, failed. Must not have it
832 $ perl_i_unistd = "undef"
834 $ perl_i_unistd = "define"
837 $ WRITE_RESULT "i_unistd is ''perl_i_unistd'"
839 $! Check to see if we've got shadow.h (probably not, but...)
843 $ WS "#include <stdlib.h>
845 $ WS "#include <shadow.h>
851 $ DEFINE SYS$ERROR _NLA0:
852 $ DEFINE SYS$OUTPUT _NLA0:
853 $ on error then continue
854 $ on warning then continue
856 $ teststatus = f$extract(9,1,$status)
857 $ DEASSIGN SYS$OUTPUT
859 $ if (teststatus.nes."1")
861 $! Okay, failed. Must not have it
862 $ perl_i_shadow = "undef"
864 $ perl_i_shadow = "define"
867 $ WRITE_RESULT "i_shadow is ''perl_i_shadow'"
869 $! Check to see if we've got socks.h (probably not, but...)
873 $ WS "#include <stdlib.h>
875 $ WS "#include <socks.h>
881 $ DEFINE SYS$ERROR _NLA0:
882 $ DEFINE SYS$OUTPUT _NLA0:
883 $ on error then continue
884 $ on warning then continue
886 $ teststatus = f$extract(9,1,$status)
887 $ DEASSIGN SYS$OUTPUT
889 $ if (teststatus.nes."1")
891 $! Okay, failed. Must not have it
892 $ perl_i_socks = "undef"
894 $ perl_i_socks = "define"
897 $ WRITE_RESULT "i_socks is ''perl_i_socks'"
899 $! Check the prototype for select
901 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
905 $ WS "#include <stdlib.h>
907 $ WS "#include <stdio.h>
908 $ WS "#include <types.h>
909 $ WS "#include <unistd.h>
910 $ if ("''Has_Socketshr'".eqs."T")
912 $ WS "#include <socketshr.h>"
914 $ WS "#include <time.h>
915 $ WS "#include <socket.h>
922 $ WS "bar = select(2, foo, foo, foo, NULL);
926 $ DEFINE SYS$ERROR _NLA0:
927 $ DEFINE SYS$OUTPUT _NLA0:
928 $ on error then continue
929 $ on warning then continue
931 $ teststatus = f$extract(9,1,$status)
932 $ DEASSIGN SYS$OUTPUT
934 $ if (teststatus.nes."1")
936 $! Okay, fd_set failed. Must be an int
937 $ perl_selecttype = "int *"
939 $ perl_selecttype="fd_set *"
942 $ ! No sockets, so stick in an int *
943 $ perl_selecttype = "int *"
945 $ WRITE_RESULT "selectype is ''perl_selecttype'"
947 $! Check to see if fd_set exists
951 $ WS "#include <stdlib.h>
953 $ WS "#include <stdio.h>
954 $ WS "#include <types.h>
955 $ WS "#include <unistd.h>
956 $ if ("''Has_Socketshr'".eqs."T")
958 $ WS "#include <socketshr.h>"
960 $ IF ("''Has_Dec_C_Sockets'".eqs."T")
962 $ WS "#include <time.h>
963 $ WS "#include <socket.h>
972 $ DEFINE SYS$ERROR _NLA0:
973 $ DEFINE SYS$OUTPUT _NLA0:
974 $ on error then continue
975 $ on warning then continue
977 $ teststatus = f$extract(9,1,$status)
978 $ DEASSIGN SYS$OUTPUT
980 $ if (teststatus.nes."1")
982 $! Okay, fd_set failed. Must not exist
983 $ perl_d_fd_set = "undef"
985 $ perl_d_fd_set="define"
987 $ WRITE_RESULT "d_fd_set is ''perl_d_fd_set'"
989 $! Check for inttypes.h
993 $ WS "#include <stdlib.h>
995 $ WS "#include <stdio.h>
996 $ WS "#include <unistd.h>
997 $ WS "#include <inttypes.h>
1003 $ DEFINE SYS$ERROR _NLA0:
1004 $ DEFINE SYS$OUTPUT _NLA0:
1005 $ on error then continue
1006 $ on warning then continue
1008 $ savedstatus = $status
1009 $ teststatus = f$extract(9,1,savedstatus)
1010 $ if (teststatus.nes."1")
1012 $ perl_i_inttypes="undef"
1013 $ DEASSIGN SYS$OUTPUT
1014 $ DEASSIGN SYS$ERROR
1016 $ If (Needs_Opt.eqs."Yes")
1018 $ link temp.obj,temp.opt/opt
1022 $ savedstatus = $status
1023 $ teststatus = f$extract(9,1,savedstatus)
1024 $ DEASSIGN SYS$OUTPUT
1025 $ DEASSIGN SYS$ERROR
1026 $ if (teststatus.nes."1")
1028 $ perl_i_inttypes="undef"
1030 $ perl_i_inttypes="define"
1033 $ WRITE_RESULT "i_inttypes is ''perl_i_inttypes'"
1035 $! Check to see if int64_t exists
1039 $ WS "#include <stdlib.h>
1041 $ WS "#include <stdio.h>
1042 $ WS "#include <types.h>
1043 $ WS "#''perl_i_inttypes IIH
1045 $ WS "#include <inttypes.h>
1047 $ WS "#include <unistd.h>
1054 $ DEFINE SYS$ERROR _NLA0:
1055 $ DEFINE SYS$OUTPUT _NLA0:
1056 $ on error then continue
1057 $ on warning then continue
1059 $ teststatus = f$extract(9,1,$status)
1060 $ DEASSIGN SYS$OUTPUT
1061 $ DEASSIGN SYS$ERROR
1062 $ if (teststatus.nes."1")
1064 $! Okay, int64_t failed. Must not exist
1065 $ perl_d_int64_t = "undef"
1067 $ perl_d_int64_t="define"
1069 $ WRITE_RESULT "d_int64_t is ''perl_d_int64_t'"
1071 $! Check to see if off64_t exists
1075 $ WS "#include <stdlib.h>
1077 $ WS "#include <stdio.h>
1078 $ WS "#include <types.h>
1079 $ WS "#''perl_i_inttypes IIH
1081 $ WS "#include <inttypes.h>
1083 $ WS "#include <unistd.h>
1090 $ DEFINE SYS$ERROR _NLA0:
1091 $ DEFINE SYS$OUTPUT _NLA0:
1092 $ on error then continue
1093 $ on warning then continue
1095 $ teststatus = f$extract(9,1,$status)
1096 $ DEASSIGN SYS$OUTPUT
1097 $ DEASSIGN SYS$ERROR
1098 $ if (teststatus.nes."1")
1100 $! Okay, off64_t failed. Must not exist
1101 $ perl_d_off64_t = "undef"
1103 $ perl_d_off64_t="define"
1105 $ WRITE_RESULT "d_off64_t is ''perl_d_off64_t'"
1107 $! Check to see if fpos64_t exists
1111 $ WS "#include <stdlib.h>
1113 $ WS "#include <stdio.h>
1114 $ WS "#include <types.h>
1115 $ WS "#''perl_i_inttypes IIH
1117 $ WS "#include <inttypes.h>
1119 $ WS "#include <unistd.h>
1126 $ DEFINE SYS$ERROR _NLA0:
1127 $ DEFINE SYS$OUTPUT _NLA0:
1128 $ on error then continue
1129 $ on warning then continue
1131 $ teststatus = f$extract(9,1,$status)
1132 $ DEASSIGN SYS$OUTPUT
1133 $ DEASSIGN SYS$ERROR
1134 $ if (teststatus.nes."1")
1136 $! Okay, fpos64_t failed. Must not exist
1137 $ perl_d_fpos64_t = "undef"
1139 $ perl_d_fpos64_t="define"
1141 $ WRITE_RESULT "d_fpos64_t is ''perl_d_fpos64_t'"
1143 $! Check to see if gethostname exists
1145 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1149 $ WS "#include <stdlib.h>
1151 $ WS "#include <stdio.h>
1152 $ WS "#include <types.h>
1153 $ WS "#include <unistd.h>
1154 $ if ("''Has_Socketshr'".eqs."T")
1156 $ WS "#include <socketshr.h>"
1158 $ WS "#include <time.h>
1159 $ WS "#include <socket.h>
1163 $ WS "char name[100];
1166 $ WS "baz = gethostname(name, bar);
1170 $ DEFINE SYS$ERROR _NLA0:
1171 $ DEFINE SYS$OUTPUT _NLA0:
1172 $ on error then continue
1173 $ on warning then continue
1175 $ teststatus = f$extract(9,1,$status)
1176 $ DEASSIGN SYS$OUTPUT
1177 $ DEASSIGN SYS$ERROR
1178 $ if (teststatus.nes."1")
1180 $! Okay, compile failed. Must not have it
1181 $ perl_dgethname = "undef"
1183 $ If (Needs_Opt.eqs."Yes")
1185 $ link temp.obj,temp.opt/opt
1189 $ savedstatus = $status
1190 $ teststatus = f$extract(9,1,savedstatus)
1191 $ if (teststatus.nes."1")
1193 $ perl_d_gethname="undef"
1195 $ perl_d_gethname="define"
1199 $ ! No sockets, so no gethname
1200 $ perl_d_gethname = "undef"
1202 $ WRITE_RESULT "d_gethname is ''perl_d_gethname'"
1204 $! Check for sys/file.h
1208 $ WS "#include <stdlib.h>
1210 $ WS "#include <stdio.h>
1211 $ WS "#include <unistd.h>
1212 $ WS "#include <sys/file.h>
1218 $ DEFINE SYS$ERROR _NLA0:
1219 $ DEFINE SYS$OUTPUT _NLA0:
1220 $ on error then continue
1221 $ on warning then continue
1223 $ savedstatus = $status
1224 $ teststatus = f$extract(9,1,savedstatus)
1225 $ if (teststatus.nes."1")
1227 $ perl_i_sysfile="undef"
1228 $ DEASSIGN SYS$OUTPUT
1229 $ DEASSIGN SYS$ERROR
1231 $ If (Needs_Opt.eqs."Yes")
1233 $ link temp.obj,temp.opt/opt
1237 $ savedstatus = $status
1238 $ teststatus = f$extract(9,1,savedstatus)
1239 $ DEASSIGN SYS$OUTPUT
1240 $ DEASSIGN SYS$ERROR
1241 $ if (teststatus.nes."1")
1243 $ perl_i_sysfile="undef"
1245 $ perl_i_sysfile="define"
1248 $ WRITE_RESULT "i_sysfile is ''perl_i_sysfile'"
1250 $! Check for sys/utsname.h
1254 $ WS "#include <stdlib.h>
1256 $ WS "#include <stdio.h>
1257 $ WS "#include <unistd.h>
1258 $ WS "#include <sys/utsname.h>
1264 $ DEFINE SYS$ERROR _NLA0:
1265 $ DEFINE SYS$OUTPUT _NLA0:
1266 $ on error then continue
1267 $ on warning then continue
1269 $ savedstatus = $status
1270 $ teststatus = f$extract(9,1,savedstatus)
1271 $ if (teststatus.nes."1")
1273 $ perl_i_sysutsname="undef"
1274 $ DEASSIGN SYS$OUTPUT
1275 $ DEASSIGN SYS$ERROR
1277 $ If (Needs_Opt.eqs."Yes")
1279 $ link temp.obj,temp.opt/opt
1283 $ savedstatus = $status
1284 $ teststatus = f$extract(9,1,savedstatus)
1285 $ DEASSIGN SYS$OUTPUT
1286 $ DEASSIGN SYS$ERROR
1287 $ if (teststatus.nes."1")
1289 $ perl_i_sysutsname="undef"
1291 $ perl_i_sysutsname="define"
1294 $ WRITE_RESULT "i_sysutsname is ''perl_i_sysutsname'"
1296 $! Check for syslog.h
1300 $ WS "#include <stdlib.h>
1302 $ WS "#include <stdio.h>
1303 $ WS "#include <unistd.h>
1304 $ WS "#include <syslog.h>
1310 $ DEFINE SYS$ERROR _NLA0:
1311 $ DEFINE SYS$OUTPUT _NLA0:
1312 $ on error then continue
1313 $ on warning then continue
1315 $ savedstatus = $status
1316 $ teststatus = f$extract(9,1,savedstatus)
1317 $ if (teststatus.nes."1")
1319 $ perl_i_syslog="undef"
1320 $ DEASSIGN SYS$OUTPUT
1321 $ DEASSIGN SYS$ERROR
1323 $ If (Needs_Opt.eqs."Yes")
1325 $ link temp.obj,temp.opt/opt
1329 $ savedstatus = $status
1330 $ teststatus = f$extract(9,1,savedstatus)
1331 $ DEASSIGN SYS$OUTPUT
1332 $ DEASSIGN SYS$ERROR
1333 $ if (teststatus.nes."1")
1335 $ perl_i_syslog="undef"
1337 $ perl_i_syslog="define"
1340 $ WRITE_RESULT "i_syslog is ''perl_i_syslog'"
1346 $ WS "#include <stdlib.h>
1348 $ WS "#include <stdio.h>
1349 $ WS "#include <unistd.h>
1350 $ WS "#include <poll.h>
1356 $ DEFINE SYS$ERROR _NLA0:
1357 $ DEFINE SYS$OUTPUT _NLA0:
1358 $ on error then continue
1359 $ on warning then continue
1361 $ savedstatus = $status
1362 $ teststatus = f$extract(9,1,savedstatus)
1363 $ if (teststatus.nes."1")
1365 $ perl_i_poll="undef"
1366 $ DEASSIGN SYS$OUTPUT
1367 $ DEASSIGN SYS$ERROR
1369 $ If (Needs_Opt.eqs."Yes")
1371 $ link temp.obj,temp.opt/opt
1375 $ savedstatus = $status
1376 $ teststatus = f$extract(9,1,savedstatus)
1377 $ DEASSIGN SYS$OUTPUT
1378 $ DEASSIGN SYS$ERROR
1379 $ if (teststatus.nes."1")
1381 $ perl_i_poll="undef"
1383 $ perl_i_poll="define"
1386 $ WRITE_RESULT "i_poll is ''perl_i_poll'"
1388 $! Check for sys/uio.h
1392 $ WS "#include <stdlib.h>
1394 $ WS "#include <stdio.h>
1395 $ WS "#include <unistd.h>
1396 $ WS "#include <sys/uio.h>
1402 $ DEFINE SYS$ERROR _NLA0:
1403 $ DEFINE SYS$OUTPUT _NLA0:
1404 $ on error then continue
1405 $ on warning then continue
1407 $ savedstatus = $status
1408 $ teststatus = f$extract(9,1,savedstatus)
1409 $ if (teststatus.nes."1")
1411 $ perl_i_sysuio="undef"
1412 $ DEASSIGN SYS$OUTPUT
1413 $ DEASSIGN SYS$ERROR
1415 $ If (Needs_Opt.eqs."Yes")
1417 $ link temp.obj,temp.opt/opt
1421 $ savedstatus = $status
1422 $ teststatus = f$extract(9,1,savedstatus)
1423 $ DEASSIGN SYS$OUTPUT
1424 $ DEASSIGN SYS$ERROR
1425 $ if (teststatus.nes."1")
1427 $ perl_i_sysuio="undef"
1429 $ perl_i_sysuio="define"
1432 $ WRITE_RESULT "i_sysuio is ''perl_i_sysuio'"
1434 $! Check for sys/mode.h
1438 $ WS "#include <stdlib.h>
1440 $ WS "#include <stdio.h>
1441 $ WS "#include <unistd.h>
1442 $ WS "#include <sys/mode.h>
1448 $ DEFINE SYS$ERROR _NLA0:
1449 $ DEFINE SYS$OUTPUT _NLA0:
1450 $ on error then continue
1451 $ on warning then continue
1453 $ savedstatus = $status
1454 $ teststatus = f$extract(9,1,savedstatus)
1455 $ if (teststatus.nes."1")
1457 $ perl_i_sysmode="undef"
1458 $ DEASSIGN SYS$OUTPUT
1459 $ DEASSIGN SYS$ERROR
1461 $ If (Needs_Opt.eqs."Yes")
1463 $ link temp.obj,temp.opt/opt
1467 $ savedstatus = $status
1468 $ teststatus = f$extract(9,1,savedstatus)
1469 $ DEASSIGN SYS$OUTPUT
1470 $ DEASSIGN SYS$ERROR
1471 $ if (teststatus.nes."1")
1473 $ perl_i_sysmode="undef"
1475 $ perl_i_sysmode="define"
1478 $ WRITE_RESULT "i_sysmode is ''perl_i_sysmode'"
1480 $! Check for sys/access.h
1484 $ WS "#include <stdlib.h>
1486 $ WS "#include <stdio.h>
1487 $ WS "#include <unistd.h>
1488 $ WS "#include <sys/access.h>
1494 $ DEFINE SYS$ERROR _NLA0:
1495 $ DEFINE SYS$OUTPUT _NLA0:
1496 $ on error then continue
1497 $ on warning then continue
1499 $ savedstatus = $status
1500 $ teststatus = f$extract(9,1,savedstatus)
1501 $ if (teststatus.nes."1")
1503 $ perl_i_sysaccess="undef"
1504 $ DEASSIGN SYS$OUTPUT
1505 $ DEASSIGN SYS$ERROR
1507 $ If (Needs_Opt.eqs."Yes")
1509 $ link temp.obj,temp.opt/opt
1513 $ savedstatus = $status
1514 $ teststatus = f$extract(9,1,savedstatus)
1515 $ DEASSIGN SYS$OUTPUT
1516 $ DEASSIGN SYS$ERROR
1517 $ if (teststatus.nes."1")
1519 $ perl_i_sysaccess="undef"
1521 $ perl_i_sysaccess="define"
1524 $ WRITE_RESULT "i_sysaccess is ''perl_i_sysaccess'"
1526 $! Check for sys/security.h
1530 $ WS "#include <stdlib.h>
1532 $ WS "#include <stdio.h>
1533 $ WS "#include <unistd.h>
1534 $ WS "#include <sys/security.h>
1540 $ DEFINE SYS$ERROR _NLA0:
1541 $ DEFINE SYS$OUTPUT _NLA0:
1542 $ on error then continue
1543 $ on warning then continue
1545 $ savedstatus = $status
1546 $ teststatus = f$extract(9,1,savedstatus)
1547 $ if (teststatus.nes."1")
1549 $ perl_i_syssecrt="undef"
1550 $ DEASSIGN SYS$OUTPUT
1551 $ DEASSIGN SYS$ERROR
1553 $ If (Needs_Opt.eqs."Yes")
1555 $ link temp.obj,temp.opt/opt
1559 $ savedstatus = $status
1560 $ teststatus = f$extract(9,1,savedstatus)
1561 $ DEASSIGN SYS$OUTPUT
1562 $ DEASSIGN SYS$ERROR
1563 $ if (teststatus.nes."1")
1565 $ perl_i_syssecrt="undef"
1567 $ perl_i_syssecrt="define"
1570 $ WRITE_RESULT "i_syssecrt is ''perl_i_syssecrt'"
1572 $! Check for fcntl.h
1576 $ WS "#include <stdlib.h>
1578 $ WS "#include <stdio.h>
1579 $ WS "#include <unistd.h>
1580 $ WS "#include <fcntl.h>
1586 $ DEFINE SYS$ERROR _NLA0:
1587 $ DEFINE SYS$OUTPUT _NLA0:
1588 $ on error then continue
1589 $ on warning then continue
1591 $ savedstatus = $status
1592 $ teststatus = f$extract(9,1,savedstatus)
1593 $ if (teststatus.nes."1")
1595 $ perl_i_fcntl="undef"
1596 $ DEASSIGN SYS$OUTPUT
1597 $ DEASSIGN SYS$ERROR
1599 $ If (Needs_Opt.eqs."Yes")
1601 $ link temp.obj,temp.opt/opt
1605 $ savedstatus = $status
1606 $ teststatus = f$extract(9,1,savedstatus)
1607 $ DEASSIGN SYS$OUTPUT
1608 $ DEASSIGN SYS$ERROR
1609 $ if (teststatus.nes."1")
1611 $ perl_i_fcntl="undef"
1613 $ perl_i_fcntl="define"
1616 $ WRITE_RESULT "i_fcntl is ''perl_i_fcntl'"
1622 $ WS "#include <stdlib.h>
1624 $ WS "#include <stdio.h>
1625 $ WS "#include <unistd.h>
1626 $ WS "#include <fcntl.h>
1633 $ DEFINE SYS$ERROR _NLA0:
1634 $ DEFINE SYS$OUTPUT _NLA0:
1635 $ on error then continue
1636 $ on warning then continue
1638 $ savedstatus = $status
1639 $ teststatus = f$extract(9,1,savedstatus)
1640 $ if (teststatus.nes."1")
1642 $ perl_d_fcntl="undef"
1643 $ DEASSIGN SYS$OUTPUT
1644 $ DEASSIGN SYS$ERROR
1646 $ If (Needs_Opt.eqs."Yes")
1648 $ link temp.obj,temp.opt/opt
1652 $ savedstatus = $status
1653 $ teststatus = f$extract(9,1,savedstatus)
1654 $ DEASSIGN SYS$OUTPUT
1655 $ DEASSIGN SYS$ERROR
1656 $ if (teststatus.nes."1")
1658 $ perl_d_fcntl="undef"
1660 $ perl_d_fcntl="define"
1663 $ WRITE_RESULT "d_fcntl is ''perl_d_fcntl'"
1669 $ WS "#include <stdlib.h>
1671 $ WS "#include <string.h>
1675 $ WS "place = memchr(""foo"", 47, 3)
1679 $ DEFINE SYS$ERROR _NLA0:
1680 $ DEFINE SYS$OUTPUT _NLA0:
1681 $ on error then continue
1682 $ on warning then continue
1684 $ savedstatus = $status
1685 $ teststatus = f$extract(9,1,savedstatus)
1686 $ if (teststatus.nes."1")
1688 $ perl_d_memchr="undef"
1689 $ DEASSIGN SYS$OUTPUT
1690 $ DEASSIGN SYS$ERROR
1692 $ If (Needs_Opt.eqs."Yes")
1694 $ link temp.obj,temp.opt/opt
1698 $ savedstatus = $status
1699 $ teststatus = f$extract(9,1,savedstatus)
1700 $ DEASSIGN SYS$OUTPUT
1701 $ DEASSIGN SYS$ERROR
1702 $ if (teststatus.nes."1")
1704 $ perl_d_memchr="undef"
1706 $ perl_d_memchr="define"
1709 $ WRITE_RESULT "d_memchr is ''perl_d_memchr'"
1711 $! Check for strtoull
1715 $ WS "#include <stdlib.h>
1717 $ WS "#include <string.h>
1720 $ WS "unsigned __int64 result;
1721 $ WS "result = strtoull(""123123"", NULL, 10);
1725 $ DEFINE SYS$ERROR _NLA0:
1726 $ DEFINE SYS$OUTPUT _NLA0:
1727 $ on error then continue
1728 $ on warning then continue
1730 $ savedstatus = $status
1731 $ teststatus = f$extract(9,1,savedstatus)
1732 $ if (teststatus.nes."1")
1734 $ perl_d_strtoull="undef"
1735 $ DEASSIGN SYS$OUTPUT
1736 $ DEASSIGN SYS$ERROR
1738 $ If (Needs_Opt.eqs."Yes")
1740 $ link temp.obj,temp.opt/opt
1744 $ savedstatus = $status
1745 $ teststatus = f$extract(9,1,savedstatus)
1746 $ DEASSIGN SYS$OUTPUT
1747 $ DEASSIGN SYS$ERROR
1748 $ if (teststatus.nes."1")
1750 $ perl_d_strtoull="undef"
1752 $ perl_d_strtoull="define"
1755 $ WRITE_RESULT "d_strtoull is ''perl_d_strtoull'"
1757 $! Check for strtouq
1761 $ WS "#include <stdlib.h>
1763 $ WS "#include <string.h>
1766 $ WS "unsigned __int64 result;
1767 $ WS "result = strtouq(""123123"", NULL, 10);
1771 $ DEFINE SYS$ERROR _NLA0:
1772 $ DEFINE SYS$OUTPUT _NLA0:
1773 $ on error then continue
1774 $ on warning then continue
1776 $ savedstatus = $status
1777 $ teststatus = f$extract(9,1,savedstatus)
1778 $ if (teststatus.nes."1")
1780 $ perl_d_strtouq="undef"
1781 $ DEASSIGN SYS$OUTPUT
1782 $ DEASSIGN SYS$ERROR
1784 $ If (Needs_Opt.eqs."Yes")
1786 $ link temp.obj,temp.opt/opt
1790 $ savedstatus = $status
1791 $ teststatus = f$extract(9,1,savedstatus)
1792 $ DEASSIGN SYS$OUTPUT
1793 $ DEASSIGN SYS$ERROR
1794 $ if (teststatus.nes."1")
1796 $ perl_d_strtouq="undef"
1798 $ perl_d_strtouq="define"
1801 $ WRITE_RESULT "d_strtouq is ''perl_d_strtouq'"
1803 $! Check for strtoll
1807 $ WS "#include <stdlib.h>
1809 $ WS "#include <string.h>
1812 $ WS "__int64 result;
1813 $ WS "result = strtoll(""123123"", NULL, 10);
1817 $ DEFINE SYS$ERROR _NLA0:
1818 $ DEFINE SYS$OUTPUT _NLA0:
1819 $ on error then continue
1820 $ on warning then continue
1822 $ savedstatus = $status
1823 $ teststatus = f$extract(9,1,savedstatus)
1824 $ if (teststatus.nes."1")
1826 $ perl_d_strtoll="undef"
1827 $ DEASSIGN SYS$OUTPUT
1828 $ DEASSIGN SYS$ERROR
1830 $ If (Needs_Opt.eqs."Yes")
1832 $ link temp.obj,temp.opt/opt
1836 $ savedstatus = $status
1837 $ teststatus = f$extract(9,1,savedstatus)
1838 $ DEASSIGN SYS$OUTPUT
1839 $ DEASSIGN SYS$ERROR
1840 $ if (teststatus.nes."1")
1842 $ perl_d_strtoll="undef"
1844 $ perl_d_strtoll="define"
1847 $ WRITE_RESULT "d_strtoll is ''perl_d_strtoll'"
1849 $! Check for strtold
1853 $ WS "#include <stdlib.h>
1855 $ WS "#include <string.h>
1858 $ WS "long double result;
1859 $ WS "result = strtold(""123123"", NULL, 10);
1863 $ DEFINE SYS$ERROR _NLA0:
1864 $ DEFINE SYS$OUTPUT _NLA0:
1865 $ on error then continue
1866 $ on warning then continue
1868 $ savedstatus = $status
1869 $ teststatus = f$extract(9,1,savedstatus)
1870 $ if (teststatus.nes."1")
1872 $ perl_d_strtold="undef"
1873 $ DEASSIGN SYS$OUTPUT
1874 $ DEASSIGN SYS$ERROR
1876 $ If (Needs_Opt.eqs."Yes")
1878 $ link temp.obj,temp.opt/opt
1882 $ savedstatus = $status
1883 $ teststatus = f$extract(9,1,savedstatus)
1884 $ DEASSIGN SYS$OUTPUT
1885 $ DEASSIGN SYS$ERROR
1886 $ if (teststatus.nes."1")
1888 $ perl_d_strtold="undef"
1890 $ perl_d_strtold="define"
1893 $ WRITE_RESULT "d_strtold is ''perl_d_strtold'"
1899 $ WS "#include <stdlib.h>
1901 $ WS "#include <string.h>
1904 $ WS " __int64 result;
1905 $ WS "result = atoll(""123123"");
1909 $ DEFINE SYS$ERROR _NLA0:
1910 $ DEFINE SYS$OUTPUT _NLA0:
1911 $ on error then continue
1912 $ on warning then continue
1914 $ savedstatus = $status
1915 $ teststatus = f$extract(9,1,savedstatus)
1916 $ if (teststatus.nes."1")
1918 $ perl_d_atoll="undef"
1919 $ DEASSIGN SYS$OUTPUT
1920 $ DEASSIGN SYS$ERROR
1922 $ If (Needs_Opt.eqs."Yes")
1924 $ link temp.obj,temp.opt/opt
1928 $ savedstatus = $status
1929 $ teststatus = f$extract(9,1,savedstatus)
1930 $ DEASSIGN SYS$OUTPUT
1931 $ DEASSIGN SYS$ERROR
1932 $ if (teststatus.nes."1")
1934 $ perl_d_atoll="undef"
1936 $ perl_d_atoll="define"
1939 $ WRITE_RESULT "d_atoll is ''perl_d_atoll'"
1945 $ WS "#include <stdlib.h>
1947 $ WS "#include <string.h>
1951 $ WS "result = atolf(""123123"");
1955 $ DEFINE SYS$ERROR _NLA0:
1956 $ DEFINE SYS$OUTPUT _NLA0:
1957 $ on error then continue
1958 $ on warning then continue
1960 $ savedstatus = $status
1961 $ teststatus = f$extract(9,1,savedstatus)
1962 $ if (teststatus.nes."1")
1964 $ perl_d_atolf="undef"
1965 $ DEASSIGN SYS$OUTPUT
1966 $ DEASSIGN SYS$ERROR
1968 $ If (Needs_Opt.eqs."Yes")
1970 $ link temp.obj,temp.opt/opt
1974 $ savedstatus = $status
1975 $ teststatus = f$extract(9,1,savedstatus)
1976 $ DEASSIGN SYS$OUTPUT
1977 $ DEASSIGN SYS$ERROR
1978 $ if (teststatus.nes."1")
1980 $ perl_d_atolf="undef"
1982 $ perl_d_atolf="define"
1985 $ WRITE_RESULT "d_atolf is ''perl_d_atolf'"
1991 $ WS "#include <stdlib.h>
1993 $ WS "#include <stdio.h>
1994 $ WS "#include <unistd.h>
1997 $ WS "access("foo", F_OK);
2001 $ DEFINE SYS$ERROR _NLA0:
2002 $ DEFINE SYS$OUTPUT _NLA0:
2003 $ on error then continue
2004 $ on warning then continue
2006 $ savedstatus = $status
2007 $ teststatus = f$extract(9,1,savedstatus)
2008 $ if (teststatus.nes."1")
2010 $ perl_d_access="undef"
2011 $ DEASSIGN SYS$OUTPUT
2012 $ DEASSIGN SYS$ERROR
2014 $ If (Needs_Opt.eqs."Yes")
2016 $ link temp.obj,temp.opt/opt
2020 $ savedstatus = $status
2021 $ teststatus = f$extract(9,1,savedstatus)
2022 $ DEASSIGN SYS$OUTPUT
2023 $ DEASSIGN SYS$ERROR
2024 $ if (teststatus.nes."1")
2026 $ perl_d_access="undef"
2028 $ perl_d_access="define"
2031 $ WRITE_RESULT "d_access is ''perl_d_access'"
2037 $ WS "#include <stdlib.h>
2039 $ WS "#include <stdio.h>
2040 $ WS "#include <strings.h>
2044 $ WS "bzero(foo, 10);
2048 $ DEFINE SYS$ERROR _NLA0:
2049 $ DEFINE SYS$OUTPUT _NLA0:
2050 $ on error then continue
2051 $ on warning then continue
2053 $ savedstatus = $status
2054 $ teststatus = f$extract(9,1,savedstatus)
2055 $ if (teststatus.nes."1")
2057 $ perl_d_bzero="undef"
2058 $ DEASSIGN SYS$OUTPUT
2059 $ DEASSIGN SYS$ERROR
2061 $ If (Needs_Opt.eqs."Yes")
2063 $ link temp.obj,temp.opt/opt
2067 $ savedstatus = $status
2068 $ teststatus = f$extract(9,1,savedstatus)
2069 $ DEASSIGN SYS$OUTPUT
2070 $ DEASSIGN SYS$ERROR
2071 $ if (teststatus.nes."1")
2073 $ perl_d_bzero="undef"
2075 $ perl_d_bzero="define"
2078 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
2084 $ WS "#include <stdlib.h>
2086 $ WS "#include <stdio.h>
2087 $ WS "#include <strings.h>
2090 $ WS "char foo[10], bar[10];
2091 $ WS "bcopy(""foo"", bar, 3);
2095 $ DEFINE SYS$ERROR _NLA0:
2096 $ DEFINE SYS$OUTPUT _NLA0:
2097 $ on error then continue
2098 $ on warning then continue
2100 $ savedstatus = $status
2101 $ teststatus = f$extract(9,1,savedstatus)
2102 $ if (teststatus.nes."1")
2104 $ perl_d_bcopy="undef"
2105 $ DEASSIGN SYS$OUTPUT
2106 $ DEASSIGN SYS$ERROR
2108 $ If (Needs_Opt.eqs."Yes")
2110 $ link temp.obj,temp.opt/opt
2114 $ savedstatus = $status
2115 $ teststatus = f$extract(9,1,savedstatus)
2116 $ DEASSIGN SYS$OUTPUT
2117 $ DEASSIGN SYS$ERROR
2118 $ if (teststatus.nes."1")
2120 $ perl_d_bcopy="undef"
2122 $ perl_d_bcopy="define"
2125 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
2127 $! Check for mkstemp
2131 $ WS "#include <stdlib.h>
2133 $ WS "#include <stdio.h>
2136 $ WS "mkstemp(""foo"");
2140 $ DEFINE SYS$ERROR _NLA0:
2141 $ DEFINE SYS$OUTPUT _NLA0:
2142 $ on error then continue
2143 $ on warning then continue
2145 $ If (Needs_Opt.eqs."Yes")
2147 $ link temp.obj,temp.opt/opt
2151 $ savedstatus = $status
2152 $ teststatus = f$extract(9,1,savedstatus)
2153 $ DEASSIGN SYS$OUTPUT
2154 $ DEASSIGN SYS$ERROR
2155 $ if (teststatus.nes."1")
2157 $ perl_d_mkstemp="undef"
2159 $ perl_d_mkstemp="define"
2161 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
2163 $! Check for mkstemps
2167 $ WS "#include <stdlib.h>
2169 $ WS "#include <stdio.h>
2172 $ WS "mkstemps(""foo"", 1);
2176 $ DEFINE SYS$ERROR _NLA0:
2177 $ DEFINE SYS$OUTPUT _NLA0:
2178 $ on error then continue
2179 $ on warning then continue
2181 $ If (Needs_Opt.eqs."Yes")
2183 $ link temp.obj,temp.opt/opt
2187 $ savedstatus = $status
2188 $ teststatus = f$extract(9,1,savedstatus)
2189 $ DEASSIGN SYS$OUTPUT
2190 $ DEASSIGN SYS$ERROR
2191 $ if (teststatus.nes."1")
2193 $ perl_d_mkstemps="undef"
2195 $ perl_d_mkstemps="define"
2197 $ WRITE_RESULT "d_mkstemps is ''perl_d_mkstemps'"
2203 $ WS "#include <stdlib.h>
2205 $ WS "#include <stdio.h>
2206 $ WS "#include <iconv.h>
2209 $ WS " iconv_t cd = (iconv_t)0;"
2210 $ WS " char *inbuf, *outbuf;"
2211 $ WS " size_t inleft, outleft;"
2212 $ WS " iconv(cd, &inbuf, &inleft, &outbuf, &outleft);"
2216 $ DEFINE SYS$ERROR _NLA0:
2217 $ DEFINE SYS$OUTPUT _NLA0:
2218 $ on error then continue
2219 $ on warning then continue
2221 $ savedstatus = $status
2222 $ teststatus = f$extract(9,1,savedstatus)
2223 $ if (teststatus.nes."1")
2225 $ perl_d_iconv="undef"
2226 $ perl_i_iconv="undef"
2227 $ DEASSIGN SYS$OUTPUT
2228 $ DEASSIGN SYS$ERROR
2230 $ If (Needs_Opt.eqs."Yes")
2232 $ link temp.obj,temp.opt/opt
2236 $ savedstatus = $status
2237 $ teststatus = f$extract(9,1,savedstatus)
2238 $ DEASSIGN SYS$OUTPUT
2239 $ DEASSIGN SYS$ERROR
2240 $ if (teststatus.nes."1")
2242 $ perl_d_iconv="undef"
2243 $ perl_i_iconv="undef"
2245 $ perl_d_iconv="define"
2246 $ perl_i_iconv="define"
2249 $ WRITE_RESULT "d_iconv is ''perl_d_iconv'"
2250 $ WRITE_RESULT "i_iconv is ''perl_i_iconv'"
2252 $! Check for mkdtemp
2256 $ WS "#include <stdlib.h>
2258 $ WS "#include <stdio.h>
2261 $ WS "mkdtemp(""foo"");
2265 $ DEFINE SYS$ERROR _NLA0:
2266 $ DEFINE SYS$OUTPUT _NLA0:
2267 $ on error then continue
2268 $ on warning then continue
2270 $ If (Needs_Opt.eqs."Yes")
2272 $ link temp.obj,temp.opt/opt
2276 $ savedstatus = $status
2277 $ teststatus = f$extract(9,1,savedstatus)
2278 $ DEASSIGN SYS$OUTPUT
2279 $ DEASSIGN SYS$ERROR
2280 $ if (teststatus.nes."1")
2282 $ perl_d_mkdtemp="undef"
2284 $ perl_d_mkdtemp="define"
2286 $ WRITE_RESULT "d_mkdtemp is ''perl_d_mkdtemp'"
2288 $! Check for setvbuf
2292 $ WS "#include <stdlib.h>
2294 $ WS "#include <stdio.h>
2298 $ WS "char Buffer[99];
2299 $ WS "foo = fopen(""foo"", ""r"");
2300 $ WS "setvbuf(foo, Buffer, 0, 0);
2304 $ DEFINE SYS$ERROR _NLA0:
2305 $ DEFINE SYS$OUTPUT _NLA0:
2306 $ on error then continue
2307 $ on warning then continue
2309 $ If (Needs_Opt.eqs."Yes")
2311 $ link temp.obj,temp.opt/opt
2315 $ teststatus = f$extract(9,1,$status)
2316 $ DEASSIGN SYS$OUTPUT
2317 $ DEASSIGN SYS$ERROR
2318 $ if (teststatus.nes."1")
2320 $ perl_d_setvbuf="undef"
2322 $ perl_d_setvbuf="define"
2324 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
2330 $ WS "#include <stdlib.h>
2332 $ WS "#include <stdio.h>
2335 $ WS "setenv(""FOO"", ""BAR"", 0);
2339 $ DEFINE SYS$ERROR _NLA0:
2340 $ DEFINE SYS$OUTPUT _NLA0:
2341 $ on error then continue
2342 $ on warning then continue
2344 $ If (Needs_Opt.eqs."Yes")
2346 $ link temp,temp/opt
2350 $ teststatus = f$extract(9,1,$status)
2351 $ DEASSIGN SYS$OUTPUT
2352 $ DEASSIGN SYS$ERROR
2353 $ if (teststatus.nes."1")
2355 $ perl_d_setenv="undef"
2357 $ perl_d_setenv="define"
2359 $ WRITE_RESULT "d_setenv is ''perl_d_setenv'"
2361 $! Check for <netinet/in.h>
2363 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2367 $ WS "#include <stdlib.h>
2369 $ WS "#include <stdio.h>
2370 $ if ("''Has_Socketshr'".eqs."T")
2372 $ WS "#include <socketshr.h>"
2374 $ WS "#include <netdb.h>
2376 $ WS "#include <netinet/in.h>"
2382 $ DEFINE SYS$ERROR _NLA0:
2383 $ DEFINE SYS$OUTPUT _NLA0:
2384 $ on error then continue
2385 $ on warning then continue
2387 $ If (Needs_Opt.eqs."Yes")
2389 $ link temp.obj,temp.opt/opt
2393 $ teststatus = f$extract(9,1,$status)
2394 $ DEASSIGN SYS$OUTPUT
2395 $ DEASSIGN SYS$ERROR
2396 $ if (teststatus.nes."1")
2398 $ perl_i_niin="undef"
2400 $ perl_i_niin="define"
2403 $ perl_i_niin="undef"
2405 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
2407 $! Check for <netinet/tcp.h>
2409 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2413 $ WS "#include <stdlib.h>
2415 $ WS "#include <stdio.h>
2416 $ if ("''Has_Socketshr'".eqs."T")
2418 $ WS "#include <socketshr.h>"
2420 $ WS "#include <netdb.h>
2422 $ WS "#include <netinet/tcp.h>"
2428 $ DEFINE SYS$ERROR _NLA0:
2429 $ DEFINE SYS$OUTPUT _NLA0:
2430 $ on error then continue
2431 $ on warning then continue
2433 $ If (Needs_Opt.eqs."Yes")
2435 $ link temp.obj,temp.opt/opt
2439 $ teststatus = f$extract(9,1,$status)
2440 $ DEASSIGN SYS$OUTPUT
2441 $ DEASSIGN SYS$ERROR
2442 $ if (teststatus.nes."1")
2444 $ perl_i_netinettcp="undef"
2446 $ perl_i_netinettcp="define"
2449 $ perl_i_netinettcp="undef"
2451 $ WRITE_RESULT "i_netinettcp is ''perl_i_netinettcp'"
2453 $! Check for endhostent
2455 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2459 $ WS "#include <stdlib.h>
2461 $ WS "#include <stdio.h>
2462 $ if ("''Has_Socketshr'".eqs."T")
2464 $ WS "#include <socketshr.h>"
2466 $ WS "#include <netdb.h>
2474 $ DEFINE SYS$ERROR _NLA0:
2475 $ DEFINE SYS$OUTPUT _NLA0:
2476 $ on error then continue
2477 $ on warning then continue
2479 $ If (Needs_Opt.eqs."Yes")
2481 $ link temp.obj,temp.opt/opt
2485 $ teststatus = f$extract(9,1,$status)
2486 $ DEASSIGN SYS$OUTPUT
2487 $ DEASSIGN SYS$ERROR
2488 $ if (teststatus.nes."1")
2490 $ perl_d_endhent="undef"
2492 $ perl_d_endhent="define"
2495 $ perl_d_endhent="undef"
2497 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
2499 $! Check for endnetent
2501 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2505 $ WS "#include <stdlib.h>
2507 $ WS "#include <stdio.h>
2508 $ if ("''Has_Socketshr'".eqs."T")
2510 $ WS "#include <socketshr.h>"
2512 $ WS "#include <netdb.h>
2520 $ DEFINE SYS$ERROR _NLA0:
2521 $ DEFINE SYS$OUTPUT _NLA0:
2522 $ on error then continue
2523 $ on warning then continue
2525 $ If (Needs_Opt.eqs."Yes")
2527 $ link temp.obj,temp.opt/opt
2531 $ teststatus = f$extract(9,1,$status)
2532 $ DEASSIGN SYS$OUTPUT
2533 $ DEASSIGN SYS$ERROR
2534 $ if (teststatus.nes."1")
2536 $ perl_d_endnent="undef"
2538 $ perl_d_endnent="define"
2541 $ perl_d_endnent="undef"
2543 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
2545 $! Check for endprotoent
2547 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2551 $ WS "#include <stdlib.h>
2553 $ WS "#include <stdio.h>
2554 $ if ("''Has_Socketshr'".eqs."T")
2556 $ WS "#include <socketshr.h>"
2558 $ WS "#include <netdb.h>
2562 $ WS "endprotoent();
2566 $ DEFINE SYS$ERROR _NLA0:
2567 $ DEFINE SYS$OUTPUT _NLA0:
2568 $ on error then continue
2569 $ on warning then continue
2571 $ If (Needs_Opt.eqs."Yes")
2573 $ link temp.obj,temp.opt/opt
2577 $ teststatus = f$extract(9,1,$status)
2578 $ DEASSIGN SYS$OUTPUT
2579 $ DEASSIGN SYS$ERROR
2580 $ if (teststatus.nes."1")
2582 $ perl_d_endpent="undef"
2584 $ perl_d_endpent="define"
2587 $ perl_d_endpent="undef"
2589 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
2591 $! Check for endservent
2593 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2597 $ WS "#include <stdlib.h>
2599 $ WS "#include <stdio.h>
2600 $ if ("''Has_Socketshr'".eqs."T")
2602 $ WS "#include <socketshr.h>"
2604 $ WS "#include <netdb.h>
2612 $ DEFINE SYS$ERROR _NLA0:
2613 $ DEFINE SYS$OUTPUT _NLA0:
2614 $ on error then continue
2615 $ on warning then continue
2617 $ If (Needs_Opt.eqs."Yes")
2619 $ link temp.obj,temp.opt/opt
2623 $ teststatus = f$extract(9,1,$status)
2624 $ DEASSIGN SYS$OUTPUT
2625 $ DEASSIGN SYS$ERROR
2626 $ if (teststatus.nes."1")
2628 $ perl_d_endsent="undef"
2630 $ perl_d_endsent="define"
2633 $ perl_d_endsent="undef"
2635 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
2637 $! Check for sethostent
2639 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2643 $ WS "#include <stdlib.h>
2645 $ WS "#include <stdio.h>
2646 $ if ("''Has_Socketshr'".eqs."T")
2648 $ WS "#include <socketshr.h>"
2650 $ WS "#include <netdb.h>
2654 $ WS "sethostent(1);
2658 $ DEFINE SYS$ERROR _NLA0:
2659 $ DEFINE SYS$OUTPUT _NLA0:
2660 $ on error then continue
2661 $ on warning then continue
2663 $ If (Needs_Opt.eqs."Yes")
2665 $ link temp.obj,temp.opt/opt
2669 $ teststatus = f$extract(9,1,$status)
2670 $ DEASSIGN SYS$OUTPUT
2671 $ DEASSIGN SYS$ERROR
2672 $ if (teststatus.nes."1")
2674 $ perl_d_sethent="undef"
2676 $ perl_d_sethent="define"
2679 $ perl_d_sethent="undef"
2681 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
2683 $! Check for setnetent
2685 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2689 $ WS "#include <stdlib.h>
2691 $ WS "#include <stdio.h>
2692 $ if ("''Has_Socketshr'".eqs."T")
2694 $ WS "#include <socketshr.h>"
2696 $ WS "#include <netdb.h>
2704 $ DEFINE SYS$ERROR _NLA0:
2705 $ DEFINE SYS$OUTPUT _NLA0:
2706 $ on error then continue
2707 $ on warning then continue
2709 $ If (Needs_Opt.eqs."Yes")
2711 $ link temp.obj,temp.opt/opt
2715 $ teststatus = f$extract(9,1,$status)
2716 $ DEASSIGN SYS$OUTPUT
2717 $ DEASSIGN SYS$ERROR
2718 $ if (teststatus.nes."1")
2720 $ perl_d_setnent="undef"
2722 $ perl_d_setnent="define"
2725 $ perl_d_setnent="undef"
2727 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
2729 $! Check for setprotoent
2731 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2735 $ WS "#include <stdlib.h>
2737 $ WS "#include <stdio.h>
2738 $ if ("''Has_Socketshr'".eqs."T")
2740 $ WS "#include <socketshr.h>"
2742 $ WS "#include <netdb.h>
2746 $ WS "setprotoent(1);
2750 $ DEFINE SYS$ERROR _NLA0:
2751 $ DEFINE SYS$OUTPUT _NLA0:
2752 $ on error then continue
2753 $ on warning then continue
2755 $ If (Needs_Opt.eqs."Yes")
2757 $ link temp.obj,temp.opt/opt
2761 $ teststatus = f$extract(9,1,$status)
2762 $ DEASSIGN SYS$OUTPUT
2763 $ DEASSIGN SYS$ERROR
2764 $ if (teststatus.nes."1")
2766 $ perl_d_setpent="undef"
2768 $ perl_d_setpent="define"
2771 $ perl_d_setpent="undef"
2773 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
2775 $! Check for setservent
2777 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2781 $ WS "#include <stdlib.h>
2783 $ WS "#include <stdio.h>
2784 $ if ("''Has_Socketshr'".eqs."T")
2786 $ WS "#include <socketshr.h>"
2788 $ WS "#include <netdb.h>
2792 $ WS "setservent(1);
2796 $ DEFINE SYS$ERROR _NLA0:
2797 $ DEFINE SYS$OUTPUT _NLA0:
2798 $ on error then continue
2799 $ on warning then continue
2801 $ If (Needs_Opt.eqs."Yes")
2803 $ link temp.obj,temp.opt/opt
2807 $ teststatus = f$extract(9,1,$status)
2808 $ DEASSIGN SYS$OUTPUT
2809 $ DEASSIGN SYS$ERROR
2810 $ if (teststatus.nes."1")
2812 $ perl_d_setsent="undef"
2814 $ perl_d_setsent="define"
2817 $ perl_d_setsent="undef"
2819 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
2821 $! Check for gethostent
2823 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2827 $ WS "#include <stdlib.h>
2829 $ WS "#include <stdio.h>
2830 $ if ("''Has_Socketshr'".eqs."T")
2832 $ WS "#include <socketshr.h>"
2834 $ WS "#include <netdb.h>
2842 $ DEFINE SYS$ERROR _NLA0:
2843 $ DEFINE SYS$OUTPUT _NLA0:
2844 $ on error then continue
2845 $ on warning then continue
2847 $ If (Needs_Opt.eqs."Yes")
2849 $ link temp.obj,temp.opt/opt
2853 $ teststatus = f$extract(9,1,$status)
2854 $ DEASSIGN SYS$OUTPUT
2855 $ DEASSIGN SYS$ERROR
2856 $ if (teststatus.nes."1")
2858 $ perl_d_gethent="undef"
2860 $ perl_d_gethent="define"
2863 $ perl_d_gethent="undef"
2865 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
2867 $! Check for getnetent
2869 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2873 $ WS "#include <stdlib.h>
2875 $ WS "#include <stdio.h>
2876 $ if ("''Has_Socketshr'".eqs."T")
2878 $ WS "#include <socketshr.h>"
2880 $ WS "#include <netdb.h>
2888 $ DEFINE SYS$ERROR _NLA0:
2889 $ DEFINE SYS$OUTPUT _NLA0:
2890 $ on error then continue
2891 $ on warning then continue
2893 $ If (Needs_Opt.eqs."Yes")
2895 $ link temp.obj,temp.opt/opt
2899 $ teststatus = f$extract(9,1,$status)
2900 $ DEASSIGN SYS$OUTPUT
2901 $ DEASSIGN SYS$ERROR
2902 $ if (teststatus.nes."1")
2904 $ perl_d_getnent="undef"
2906 $ perl_d_getnent="define"
2909 $ perl_d_getnent="undef"
2911 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
2913 $! Check for getprotoent
2915 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2919 $ WS "#include <stdlib.h>
2921 $ WS "#include <stdio.h>
2922 $ if ("''Has_Socketshr'".eqs."T")
2924 $ WS "#include <socketshr.h>"
2926 $ WS "#include <netdb.h>
2930 $ WS "getprotoent();
2934 $ DEFINE SYS$ERROR _NLA0:
2935 $ DEFINE SYS$OUTPUT _NLA0:
2936 $ on error then continue
2937 $ on warning then continue
2939 $ If (Needs_Opt.eqs."Yes")
2941 $ link temp.obj,temp.opt/opt
2945 $ teststatus = f$extract(9,1,$status)
2946 $ DEASSIGN SYS$OUTPUT
2947 $ DEASSIGN SYS$ERROR
2948 $ if (teststatus.nes."1")
2950 $ perl_d_getpent="undef"
2952 $ perl_d_getpent="define"
2955 $ perl_d_getpent="undef"
2957 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
2959 $! Check for getservent
2961 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2965 $ WS "#include <stdlib.h>
2967 $ WS "#include <stdio.h>
2968 $ if ("''Has_Socketshr'".eqs."T")
2970 $ WS "#include <socketshr.h>"
2972 $ WS "#include <netdb.h>
2980 $ DEFINE SYS$ERROR _NLA0:
2981 $ DEFINE SYS$OUTPUT _NLA0:
2982 $ on error then continue
2983 $ on warning then continue
2985 $ If (Needs_Opt.eqs."Yes")
2987 $ link temp.obj,temp.opt/opt
2991 $ teststatus = f$extract(9,1,$status)
2992 $ DEASSIGN SYS$OUTPUT
2993 $ DEASSIGN SYS$ERROR
2994 $ if (teststatus.nes."1")
2996 $ perl_d_getsent="undef"
2998 $ perl_d_getsent="define"
3001 $ perl_d_getsent="undef"
3003 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
3005 $! Check for socklen_t
3007 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
3011 $ WS "#include <stdlib.h>
3013 $ WS "#include <stdio.h>
3014 $ IF ("''Has_Socketshr'".eqs."T")
3016 $ WS "#include <socketshr.h>"
3018 $ WS "#include <netdb.h>
3022 $ WS "socklen_t x = 16;
3026 $ DEFINE SYS$ERROR _NLA0:
3027 $ DEFINE SYS$OUTPUT _NLA0:
3028 $ on error then continue
3029 $ on warning then continue
3031 $ If (Needs_Opt.eqs."Yes")
3033 $ link temp.obj,temp.opt/opt
3037 $ teststatus = f$extract(9,1,$status)
3038 $ DEASSIGN SYS$OUTPUT
3039 $ DEASSIGN SYS$ERROR
3040 $ if (teststatus.nes."1")
3042 $ perl_d_socklen_t="undef"
3044 $ perl_d_socklen_t="define"
3047 $ perl_d_socklen_t="undef"
3049 $ WRITE_RESULT "d_socklen_t is ''perl_d_socklen_t'"
3051 $! Check for pthread_yield
3053 $ if ("''use_threads'".eqs."T")
3057 $ WS "#include <stdlib.h>
3059 $ WS "#include <pthread.h>
3060 $ WS "#include <stdio.h>
3063 $ WS "pthread_yield();
3067 $ DEFINE SYS$ERROR _NLA0:
3068 $ DEFINE SYS$OUTPUT _NLA0:
3069 $ on error then continue
3070 $ on warning then continue
3072 $ teststatus = f$extract(9,1,$status)
3073 $ DEASSIGN SYS$OUTPUT
3074 $ DEASSIGN SYS$ERROR
3075 $ if (teststatus.nes."1")
3077 $ perl_d_pthread_yield="undef"
3079 $ perl_d_pthread_yield="define"
3082 $ perl_d_pthread_yield="undef"
3084 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
3086 $! Check for sched_yield
3088 $ if ("''use_threads'".eqs."T")
3092 $ WS "#include <stdlib.h>
3094 $ WS "#include <pthread.h>
3095 $ WS "#include <stdio.h>
3098 $ WS "sched_yield();
3102 $ DEFINE SYS$ERROR _NLA0:
3103 $ DEFINE SYS$OUTPUT _NLA0:
3104 $ on error then continue
3105 $ on warning then continue
3107 $ teststatus = f$extract(9,1,$status)
3108 $ DEASSIGN SYS$OUTPUT
3109 $ DEASSIGN SYS$ERROR
3110 $ if (teststatus.nes."1")
3112 $ perl_d_sched_yield="undef"
3113 $ perl_sched_yield = " "
3115 $ perl_d_sched_yield="define"
3116 $ perl_sched_yield = "sched_yield"
3119 $ perl_d_sched_yield="undef"
3120 $ perl_sched_yield = " "
3122 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
3123 $ WRITE_RESULT "sched_yield is ''perl_sched_yield'"
3125 $! Check for generic pointer size
3129 $ WS "#include <stdlib.h>
3131 $ WS "#include <stdio.h>
3135 $ WS "foo = sizeof(char *);
3136 $ WS "printf(""%d\n"", foo);
3140 $ DEFINE SYS$ERROR _NLA0:
3141 $ DEFINE SYS$OUTPUT _NLA0:
3142 $ ON ERROR THEN CONTINUE
3143 $ ON WARNING THEN CONTINUE
3145 $ If (Needs_Opt.eqs."Yes")
3147 $ link temp.obj,temp.opt/opt
3151 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3152 $ DEASSIGN SYS$OUTPUT
3153 $ DEASSIGN SYS$ERROR
3154 $ DEFINE SYS$ERROR TEMPOUT
3155 $ DEFINE SYS$OUTPUT TEMPOUT
3158 $ DEASSIGN SYS$OUTPUT
3159 $ DEASSIGN SYS$ERROR
3160 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3163 $ DELETE/NOLOG [-.uu]tempout.lis;
3166 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
3168 $! Check rand48 and its ilk
3172 $ WS "#include <stdlib.h>
3174 $ WS "#include <stdio.h>
3177 $ WS "srand48(12L);"
3182 $ DEFINE SYS$ERROR _NLA0:
3183 $ DEFINE SYS$OUTPUT _NLA0:
3184 $ ON ERROR THEN CONTINUE
3185 $ ON WARNING THEN CONTINUE
3187 $ If (Needs_Opt.eqs."Yes")
3189 $ link temp,temp.opt/opt
3193 $ teststatus = f$extract(9,1,$status)
3194 $ DEASSIGN SYS$OUTPUT
3195 $ DEASSIGN SYS$ERROR
3196 $ if (teststatus.nes."1")
3198 $ perl_drand01="random()"
3199 $ perl_randseedtype = "unsigned"
3200 $ perl_seedfunc = "srandom"
3204 $ WS "#include <stdlib.h>
3206 $ WS "#include <stdio.h>
3213 $! copy temp.c sys$output
3215 $ DEFINE SYS$ERROR _NLA0:
3216 $ DEFINE SYS$OUTPUT _NLA0:
3217 $ ON ERROR THEN CONTINUE
3218 $ ON WARNING THEN CONTINUE
3220 $ If (Needs_Opt.eqs."Yes")
3222 $ link temp,temp.opt/opt
3226 $ teststatus = f$extract(9,1,$status)
3227 $ DEASSIGN SYS$OUTPUT
3228 $ DEASSIGN SYS$ERROR
3229 $ if (teststatus.nes."1")
3231 $ perl_drand01="(((float)rand())/((float)RAND_MAX))"
3232 $ perl_randseedtype = "unsigned"
3233 $ perl_seedfunc = "srand"
3235 $ WRITE_RESULT "drand01 is ''perl_drand01'"
3238 $! Done with compiler checks. Clean up.
3239 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
3240 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
3241 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
3242 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
3245 $! Some that are compiler or VMS version sensitive
3248 $ IF "''Using_Gnu_C'".EQS."Yes"
3250 $ perl_d_attribut="define"
3251 $ perl_vms_cc_type="gcc"
3253 $ perl_vms_cc_type="cc"
3254 $ perl_d_attribut="undef"
3257 $! Dec C >= 5.2 and VMS ver >= 7.0
3258 $ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
3260 $ perl_d_bcmp="define"
3261 $ perl_d_gettimeod="define"
3262 $ perl_d_uname="define"
3263 $ perl_d_sigaction="define"
3264 $ perl_d_truncate="define"
3265 $ perl_d_wait4="define"
3266 $ perl_d_index="define"
3267 $ perl_pidtype="pid_t"
3268 $ 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"
3269 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3270 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
3271 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
3272 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
3273 $ 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"
3274 $ 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"
3275 $ perl_sig_num_with_commas=perl_sig_num_init
3276 $ perl_uidtype="uid_t"
3277 $ perl_d_pathconf="define"
3278 $ perl_d_fpathconf="define"
3279 $ perl_d_sysconf="define"
3280 $ perl_d_sigsetjmp="define"
3282 $ perl_pidtype="unsigned int"
3283 $ perl_d_gettimeod="undef"
3284 $ perl_d_bcmp="undef"
3285 $ perl_d_uname="undef"
3286 $ perl_d_sigaction="undef"
3287 $ perl_d_truncate="undef"
3288 $ perl_d_wait4="undef"
3289 $ perl_d_index="undef"
3290 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
3291 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3292 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
3293 $ perl_sig_name_with_commas = psnwc1 + psnwc2
3294 $ perl_sig_num="0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 6 16 17"",0"
3295 $ perl_sig_num_init="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
3296 $ perl_sig_num_with_commas=perl_sig_num_init
3297 $ perl_uidtype="unsigned int"
3298 $ perl_d_pathconf="undef"
3299 $ perl_d_fpathconf="undef"
3300 $ perl_d_sysconf="undef"
3301 $ perl_d_sigsetjmp="undef"
3305 $ IF ("''Using_Dec_C'".EQS."Yes")
3307 $ perl_d_mbstowcs="define"
3308 $ perl_d_mbtowc="define"
3309 $ perl_d_stdiobase="define"
3310 $ perl_d_stdio_ptr_lval="define"
3311 $ perl_d_stdio_cnt_lval="define"
3312 $ perl_d_stdstdio="define"
3313 $ perl_d_wcstombs="define"
3314 $ perl_d_mblen="define"
3315 $ perl_d_mktime="define"
3316 $ perl_d_strcoll="define"
3317 $ perl_d_strxfrm="define"
3318 $ perl_d_wctomb="define"
3319 $ perl_i_locale="define"
3320 $ perl_d_locconv="define"
3321 $ perl_d_setlocale="define"
3322 $ perl_vms_cc_type="decc"
3324 $ perl_d_mbstowcs="undef"
3325 $ perl_d_mbtowc="undef"
3326 $ perl_d_stdiobase="undef"
3327 $ perl_d_stdio_ptr_lval="undef"
3328 $ perl_d_stdio_cnt_lval="undef"
3329 $ perl_d_stdstdio="undef"
3330 $ perl_d_wcstombs="undef"
3331 $ perl_d_mblen="undef"
3332 $ perl_d_mktime="undef"
3333 $ perl_d_strcoll="undef"
3334 $ perl_d_strxfrm="undef"
3335 $ perl_d_wctomb="undef"
3336 $ perl_i_locale="undef"
3337 $ perl_d_locconv="undef"
3338 $ perl_d_setlocale="undef"
3342 $ if ("''Using_Vax_C'".EQS."Yes")
3344 $ perl_vms_cc_type="vaxc"
3348 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
3350 $ perl_d_vms_do_sockets="define"
3351 $ perl_d_htonl="define"
3352 $ perl_d_socket="define"
3353 $ perl_d_select="define"
3354 $ perl_netdb_host_type="char *"
3355 $ perl_netdb_hlen_type="int"
3356 $ perl_netdb_name_type="char *"
3357 $ perl_netdb_net_type="long"
3358 $ perl_d_gethbyaddr="define"
3359 $ perl_d_gethbyname="define"
3360 $ perl_d_getnbyaddr="define"
3361 $ perl_d_getnbyname="define"
3362 $ perl_d_getpbynumber="define"
3363 $ perl_d_getpbyname="define"
3364 $ perl_d_getsbyport="define"
3365 $ perl_d_getsbyname="define"
3366 $ perl_d_gethostprotos="define"
3367 $ perl_d_getnetprotos="define"
3368 $ perl_d_getprotoprotos="define"
3369 $ perl_d_getservprotos="define"
3370 $ IF ("''Using_Dec_C'".EQS."Yes")
3372 $ perl_socksizetype="unsigned int"
3374 $ perl_socksizetype="int *"
3377 $ perl_d_vms_do_sockets="undef"
3378 $ perl_d_htonl="undef"
3379 $ perl_d_socket="undef"
3380 $ perl_d_select="undef"
3381 $ perl_netdb_host_type="char *"
3382 $ perl_netdb_hlen_type="int"
3383 $ perl_netdb_name_type="char *"
3384 $ perl_netdb_net_type="long"
3385 $ perl_d_gethbyaddr="undef"
3386 $ perl_d_gethbyname="undef"
3387 $ perl_d_getnbyaddr="undef"
3388 $ perl_d_getnbyname="undef"
3389 $ perl_d_getpbynumber="undef"
3390 $ perl_d_getpbyname="undef"
3391 $ perl_d_getsbyport="undef"
3392 $ perl_d_getsbyname="undef"
3393 $ perl_d_gethostprotos="undef"
3394 $ perl_d_getnetprotos="undef"
3395 $ perl_d_getprotoprotos="undef"
3396 $ perl_d_getservprotos="undef"
3397 $ perl_socksizetype="undef"
3400 $ if ("''use_threads'".eqs."T")
3402 $ perl_usethreads="define"
3403 $ perl_d_pthreads_created_joinable="define"
3404 $ if ("''VMS_VER'".ges."7.0")
3406 $ perl_d_oldpthreads="undef"
3408 $ perl_d_oldpthreads="define"
3411 $ perl_d_oldpthreads="undef"
3412 $ perl_usethreads="undef"
3414 $ perl_d_pthreads_created_joinable="undef"
3417 $! new (5.005_62++) typedefs for primitives
3419 $ perl_ivtype="long"
3420 $ perl_uvtype="unsigned long"
3421 $ perl_i8type="char"
3422 $ perl_u8type="unsigned char"
3423 $ perl_i16type="short"
3424 $ perl_u16type="unsigned short"
3425 $ perl_i32type="int"
3426 $ perl_u32type="unsigned int"
3427 $ perl_i64type="long long"
3428 $ perl_u64type="unsigned long long"
3429 $ perl_nvtype="double"
3431 $ GOTO beyond_type_size_check
3435 $! Check for type sizes
3439 $ WS "#include <stdlib.h>
3441 $ WS "#include <stdio.h>
3444 $ WS "printf(""%d\n"", sizeof(''type'));"
3448 $ DEFINE SYS$ERROR _NLA0:
3449 $ DEFINE SYS$OUTPUT _NLA0:
3450 $ ON ERROR THEN CONTINUE
3451 $ ON WARNING THEN CONTINUE
3453 $ If (Needs_Opt.eqs."Yes")
3455 $ link temp.obj,temp.opt/opt
3459 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3460 $ DEASSIGN SYS$OUTPUT
3461 $ DEASSIGN SYS$ERROR
3462 $ DEFINE SYS$ERROR TEMPOUT
3463 $ DEFINE SYS$OUTPUT TEMPOUT
3466 $ DEASSIGN SYS$OUTPUT
3467 $ DEASSIGN SYS$ERROR
3468 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3471 $ DELETE/NOLOG [-.uu]tempout.lis;
3472 $ WRITE_RESULT "''size_name' is ''line'"
3476 $beyond_type_size_check:
3479 $ type = "''perl_ivtype'"
3480 $ size_name = "ivsize"
3481 $ gosub type_size_check
3482 $ perl_ivsize="''line'"
3483 $ IF type .eqs. "long"
3484 $ THEN perl_longsize = "''line'"
3487 $ size_name = "longsize"
3488 $ gosub type_size_check
3489 $ perl_longsize="''line'"
3492 $ type = "''perl_uvtype'"
3493 $ size_name = "uvsize"
3494 $ gosub type_size_check
3495 $ perl_uvsize="''line'"
3497 $ type = "''perl_i8type'"
3498 $ size_name = "i8size"
3499 $ gosub type_size_check
3500 $ perl_i8size="''line'"
3502 $ type = "''perl_u8type'"
3503 $ size_name = "u8size"
3504 $ gosub type_size_check
3505 $ perl_u8size="''line'"
3507 $ type = "''perl_i16type'"
3508 $ size_name = "i16size"
3509 $ gosub type_size_check
3510 $ perl_i16size="''line'"
3511 $ IF type .eqs. "short"
3512 $ THEN perl_shortsize="''line'"
3514 $ type = "''perl_i16type'"
3515 $ size_name = "shortsize"
3516 $ gosub type_size_check
3517 $ perl_shortsize="''line'"
3520 $ type = "''perl_u16type'"
3521 $ size_name = "u16size"
3522 $ gosub type_size_check
3523 $ perl_u16size="''line'"
3525 $ type = "''perl_i32type'"
3526 $ size_name = "i32size"
3527 $ gosub type_size_check
3528 $ perl_i32size="''line'"
3529 $ IF type .eqs. "int"
3530 $ THEN perl_intsize="''perl_i32size'"
3533 $ size_name = "intsize"
3534 $ gosub type_size_check
3535 $ perl_intsize="''line'"
3538 $ type = "''perl_u32type'"
3539 $ size_name = "u32size"
3540 $ gosub type_size_check
3541 $ perl_u32size="''line'"
3543 $ type = "''perl_i64type'"
3544 $ size_name = "i64size"
3545 $ gosub type_size_check
3546 $ perl_i64size="''line'"
3548 $ type = "''perl_u64type'"
3549 $ size_name = "u64size"
3550 $ gosub type_size_check
3551 $ perl_u64size="''line'"
3553 $ perl_ivdformat="""ld"""
3554 $ perl_uvuformat="""lu"""
3555 $ perl_uvoformat="""lo"""
3556 $ perl_uvxformat="""lx"""
3558 $! Finally the composite ones. All config
3559 $ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3560 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3561 $ perl_myhostname="''myhostname'"
3562 $ perl_mydomain="''mydomain'"
3563 $ perl_perladmin="''perladmin'"
3564 $ perl_cf_email="''cf_email'"
3565 $ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
3566 $ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3567 $ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
3568 $ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
3569 $ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
3570 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
3571 $ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3572 $ if "''Using_Dec_C'" .eqs. "Yes"
3574 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
3576 $ IF "''Using_Vax_C'" .eqs. "Yes"
3578 $ perl_ccflags="/Include=[]/Obj=''perl_obj_ext'/NoList''cc_flags'"
3581 $ if use_vmsdebug_perl .eqs. "Y"
3583 $ perl_optimize="/Debug/NoOpt"
3584 $ perl_dbgprefix = "DBG"
3587 $ perl_dbgprefix = ""
3590 $! Finally clean off any leading zeros from the patchlevel or subversion
3591 $ perl_patchlevel = perl_patchlevel + 0
3592 $ perl_subversion = perl_subversion + 0
3594 $! Okay, we've got everything configured. Now go write out a config.sh.
3595 $ open/write CONFIGSH [-]config.sh
3596 $ WC := "write CONFIGSH"
3598 $ WC "# This file generated by Configure.COM on a VMS system."
3599 $ WC "# Time: " + perl_cf_time
3601 $ WC "CONFIGDOTSH=true"
3602 $ WC "package='" + perl_package + "'"
3603 $ WC "d_nv_preserves_uv='" + perl_d_nv_preserves_uv + "'"
3604 $ WC "use5005threads='" + perl_use5005threads + "'"
3605 $ WC "useithreads='" + perl_useithreads + "'"
3606 $ WC "CONFIG='" + perl_config + "'"
3607 $ WC "cf_time='" + perl_cf_time + "'"
3608 $ WC "cf_by='" + perl_cf_by+ "'"
3609 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
3610 $ WC "ccdlflags='" + perl_ccdlflags + "'"
3611 $ WC "cccdlflags='" + perl_cccdlflags + "'"
3612 $ WC "mab='" + perl_mab + "'"
3613 $ WC "libpth='" + perl_libpth + "'"
3614 $ WC "ld='" + perl_ld + "'"
3615 $ WC "lddlflags='" + perl_lddlflags + "'"
3616 $ WC "ranlib='" + perl_ranlib + "'"
3617 $ WC "ar='" + perl_ar + "'"
3618 $ WC "full_ar='" + perl_full_ar + "'"
3619 $ WC "eunicefix='" + perl_eunicefix + "'"
3620 $ WC "hint='" + perl_hint +"'"
3621 $ WC "hintfile='" + perl_hintfile + "'"
3622 $ WC "shrplib='" + perl_shrplib + "'"
3623 $ WC "usemymalloc='" + perl_usemymalloc + "'"
3624 $ WC "usevfork='" + perl_usevfork + "'"
3625 $ WC "useposix='false'"
3626 $ WC "spitshell='write sys$output '"
3627 $ WC "dlsrc='dl_vms.c'"
3628 $ WC "binexp='" + perl_binexp + "'"
3629 $ WC "man1ext='" + perl_man1ext + "'"
3630 $ WC "man3ext='" + perl_man3ext + "'"
3631 $ WC "arch='" + perl_arch + "'"
3632 $ WC "archname='" + perl_archname + "'"
3633 $ WC "osvers='" + perl_osvers + "'"
3634 $ WC "prefix='" + perl_prefix + "'"
3635 $ WC "builddir='" + perl_builddir + "'"
3636 $ WC "installbin='" + perl_installbin + "'"
3637 $ WC "installscript='" + perl_installscript + "'"
3638 $ WC "installman1dir='" + perl_installman1dir + "'"
3639 $ WC "installman3dir='" + perl_installman3dir + "'"
3640 $ WC "installprivlib='" + perl_installprivlib + "'"
3641 $ WC "installarchlib='" + perl_installarchlib + "'"
3642 $ WC "installsitelib='" + perl_installsitelib + "'"
3643 $ WC "installsitearch='" + perl_installsitearch + "'"
3644 $ WC "path_sep='" + perl_path_sep + "'"
3645 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
3646 $ WC "d_attribut='" + perl_d_attribut + "'"
3647 $ WC "cc='" + perl_cc + "'"
3648 $ WC "ccflags='" + perl_ccflags + "'"
3649 $ WC "optimize='" + perl_optimize + "'"
3650 $ WC "dbgprefix='" + perl_dbgprefix + "'"
3651 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
3652 $ WC "d_socket='" + perl_d_socket + "'"
3653 $ WC "d_sockpair='" + perl_d_sockpair + "'"
3654 $ WC "d_gethent='" + perl_d_gethent + "'"
3655 $ WC "d_getsent='" + perl_d_getsent + "'"
3656 $ WC "d_socklen_t='" + perl_d_socklen_t + "'"
3657 $ WC "d_select='" + perl_d_select + "'"
3658 $ WC "i_niin='" + perl_i_niin + "'"
3659 $ WC "i_netinettcp='" + perl_i_netinettcp + "'"
3660 $ WC "i_neterrno='" + perl_i_neterrno + "'"
3661 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
3662 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
3663 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
3664 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
3665 $ WC "d_locconv='" + perl_d_locconv + "'"
3666 $ WC "d_setlocale='" + perl_d_setlocale + "'"
3667 $ WC "i_locale='" + perl_i_locale + "'"
3668 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
3669 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
3670 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
3671 $ WC "d_wctomb='" + perl_d_wctomb + "'"
3672 $ WC "d_mblen='" + perl_d_mblen + "'"
3673 $ WC "d_mktime='" + perl_d_mktime + "'"
3674 $ WC "d_strcoll='" + perl_d_strcoll + "'"
3675 $ WC "d_strxfrm='" + perl_d_strxfrm + "'"
3676 $ WC "ldflags='" + perl_ldflags + "'"
3677 $ WC "dlobj='" + perl_dlobj + "'"
3678 $ WC "obj_ext='" + perl_obj_ext + "'"
3679 $ WC "so='" + perl_so + "'"
3680 $ WC "dlext='" + perl_dlext + "'"
3681 $ WC "exe_ext='" + perl_exe_ext + "'"
3682 $ WC "lib_ext='" + perl_lib_ext + "'"
3683 $ WC "myhostname='" + perl_myhostname + "'"
3684 $ WC "mydomain='" + perl_mydomain + "'"
3685 $ WC "perladmin='" + perl_perladmin + "'"
3686 $ WC "cf_email='" + perl_cf_email + "'"
3687 $ WC "myuname='" + perl_myuname + "'"
3688 $ WC "alignbytes='" + perl_alignbytes + "'"
3689 $ WC "osname='" + perl_osname + "'"
3690 $ WC "d_archlib='" + perl_d_archlib + "'"
3691 $ WC "archlibexp='" + perl_archlibexp + "'"
3692 $ WC "archlib='" + perl_archlib + "'"
3693 $ WC "archname='" + perl_archname + "'"
3694 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
3695 $ WC "cppstdin='" + perl_cppstdin + "'"
3696 $ WC "cppminus='" + perl_cppminus + "'"
3697 $ WC "d_bcmp='" + perl_d_bcmp + "'"
3698 $ WC "d_bcopy='" + perl_d_bcopy + "'"
3699 $ WC "d_bzero='" + perl_d_bzero + "'"
3700 $ WC "d_castneg='" + perl_d_castneg + "'"
3701 $ WC "castflags='" + perl_castflags + "'"
3702 $ WC "d_chsize='" + perl_d_chsize + "'"
3703 $ WC "d_const='" + perl_d_const + "'"
3704 $ WC "d_crypt='" + perl_d_crypt + "'"
3705 $ WC "byteorder='" + perl_byteorder + "'"
3706 $ WC "full_csh='" + perl_full_csh + "'"
3707 $ WC "d_csh='" + perl_d_csh + "'"
3708 $ WC "d_dup2='" + perl_d_dup2 + "'"
3709 $ WC "d_fchmod='" + perl_d_fchmod + "'"
3710 $ WC "d_fchown='" + perl_d_fchown + "'"
3711 $ WC "d_fcntl='" + perl_d_fcntl + "'"
3712 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
3713 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
3714 $ WC "d_flock='" + perl_d_flock + "'"
3715 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
3716 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
3717 $ WC "d_getgrps='" + perl_d_getgrps + "'"
3718 $ WC "d_setgrps='" + perl_d_setgrps + "'"
3719 $ WC "d_uname='" + perl_d_uname + "'"
3720 $ WC "d_getprior='" + perl_d_getprior + "'"
3721 $ WC "d_killpg='" + perl_d_killpg + "'"
3722 $ WC "d_link='" + perl_d_link + "'"
3723 $ WC "d_lstat='" + perl_d_lstat + "'"
3724 $ WC "d_lockf='" + perl_d_lockf + "'"
3725 $ WC "d_memcmp='" + perl_d_memcmp + "'"
3726 $ WC "d_memcpy='" + perl_d_memcpy + "'"
3727 $ WC "d_memmove='" + perl_d_memmove + "'"
3728 $ WC "d_memset='" + perl_d_memset + "'"
3729 $ WC "d_mkdir='" + perl_d_mkdir + "'"
3730 $ WC "d_msg='" + perl_d_msg + "'"
3731 $ WC "d_open3='" + perl_d_open3 + "'"
3732 $ WC "d_poll='" + perl_d_poll + "'"
3733 $ WC "d_readdir='" + perl_d_readdir + "'"
3734 $ WC "d_seekdir='" + perl_d_seekdir + "'"
3735 $ WC "d_telldir='" + perl_d_telldir + "'"
3736 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
3737 $ WC "d_rename='" + perl_d_rename + "'"
3738 $ WC "d_rmdir='" + perl_d_rmdir + "'"
3739 $ WC "d_sem='" + perl_d_sem + "'"
3740 $ WC "d_setegid='" + perl_d_setegid + "'"
3741 $ WC "d_seteuid='" + perl_d_seteuid + "'"
3742 $ WC "d_setprior='" + perl_d_setprior + "'"
3743 $ WC "d_setregid='" + perl_d_setregid + "'"
3744 $ WC "d_setresgid='" + perl_d_setresgid + "'"
3745 $ WC "d_setreuid='" + perl_d_setreuid + "'"
3746 $ WC "d_setresuid='" + perl_d_setresuid + "'"
3747 $ WC "d_setrgid='" + perl_d_setrgid + "'"
3748 $ WC "d_setruid='" + perl_d_setruid + "'"
3749 $ WC "d_setsid='" + perl_d_setsid + "'"
3750 $ WC "d_shm='" + perl_d_shm + "'"
3751 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
3752 $ WC "d_sigaction='" + perl_d_sigaction + "'"
3753 $ WC "d_statblks='" + perl_d_statblks + "'"
3754 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
3755 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
3756 $ WC "stdio_base='" + perl_stdio_base + "'"
3757 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
3758 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
3759 $ WC "d_strerror='" + perl_d_strerror + "'"
3760 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
3761 $ WC "d_strerrm='" + perl_d_strerrm + "'"
3762 $ WC "d_symlink='" + perl_d_symlink + "'"
3763 $ WC "d_syscall='" + perl_d_syscall + "'"
3764 $ WC "d_system='" + perl_d_system + "'"
3765 $ WC "timetype='" + perl_timetype + "'"
3766 $ WC "d_truncate='" + perl_d_truncate + "'"
3767 $ WC "d_vfork='" + perl_d_vfork + "'"
3768 $ WC "signal_t='" + perl_signal_t + "'"
3769 $ WC "d_volatile='" + perl_d_volatile + "'"
3770 $ WC "d_vprintf='" + perl_d_vprintf + "'"
3771 $ WC "d_charvspr='" + perl_d_charvspr + "'"
3772 $ WC "d_wait4='" + perl_d_wait4 + "'"
3773 $ WC "d_waitpid='" + perl_d_waitpid + "'"
3774 $ WC "i_dirent='" + perl_i_dirent + "'"
3775 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
3776 $ WC "direntrytype='" + perl_direntrytype + "'"
3777 $ WC "i_fcntl='" + perl_i_fcntl + "'"
3778 $ WC "i_grp='" + perl_i_grp + "'"
3779 $ WC "i_limits='" + perl_i_limits + "'"
3780 $ WC "i_memory='" + perl_i_memory + "'"
3781 $ WC "i_ndbm='" + perl_i_ndbm + "'"
3782 $ WC "i_stdarg='" + perl_i_stdarg + "'"
3783 $ WC "i_pwd='" + perl_i_pwd + "'"
3784 $ WC "d_pwquota='" + perl_d_pwquota + "'"
3785 $ WC "d_pwage='" + perl_d_pwage + "'"
3786 $ WC "d_pwchange='" + perl_d_pwchange + "'"
3787 $ WC "d_pwclass='" + perl_d_pwclass + "'"
3788 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
3789 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
3790 $ WC "i_stddef='" + perl_i_stddef + "'"
3791 $ WC "i_stdlib='" + perl_i_stdlib + "'"
3792 $ WC "i_string='" + perl_i_string + "'"
3793 $ WC "i_sysdir='" + perl_i_sysdir + "'"
3794 $ WC "i_sysfile='" + perl_i_sysfile + "'"
3795 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
3796 $ WC "i_sysndir='" + perl_i_sysndir + "'"
3797 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
3798 $ WC "i_sysselct='" + perl_i_sysselct + "'"
3799 $ WC "i_dbm='" + perl_i_dbm + "'"
3800 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
3801 $ WC "i_sfio='" + perl_i_sfio + "'"
3802 $ WC "i_sysstat='" + perl_i_sysstat + "'"
3803 $ WC "i_systimes='" + perl_i_systimes + "'"
3804 $ WC "i_systypes='" + perl_i_systypes + "'"
3805 $ WC "i_sysun='" + perl_i_sysun + "'"
3806 $ WC "i_syswait='" + perl_i_syswait + "'"
3807 $ WC "i_termio='" + perl_i_termio + "'"
3808 $ WC "i_sgtty='" + perl_i_sgtty + "'"
3809 $ WC "i_termios='" + perl_i_termios + "'"
3810 $ WC "i_time='" + perl_i_time + "'"
3811 $ WC "i_systime='" + perl_i_systime + "'"
3812 $ WC "i_systimek='" + perl_i_systimek + "'"
3813 $ WC "i_unistd='" + perl_i_unistd + "'"
3814 $ WC "i_utime='" + perl_i_utime + "'"
3815 $ WC "i_varargs='" + perl_i_varargs + "'"
3816 $ WC "i_vfork='" + perl_i_vfork + "'"
3817 $ WC "prototype='" + perl_prototype + "'"
3818 $ WC "randbits='" + perl_randbits +"'"
3819 $ WC "selecttype='" + perl_selecttype + "'"
3820 $ WC "stdchar='" + perl_stdchar + "'"
3821 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
3822 $ WC "full_sed='" + perl_full_sed + "'"
3823 $ WC "bin='" + perl_bin + "'"
3824 $ WC "binexp='" + perl_binexp + "'"
3825 $ WC "d_alarm='" + perl_d_alarm + "'"
3826 $ WC "d_casti32='" + perl_d_casti32 + "'"
3827 $ WC "d_chown='" + perl_d_chown + "'"
3828 $ WC "d_chroot='" + perl_d_chroot + "'"
3829 $ WC "d_cuserid='" + perl_d_cuserid + "'"
3830 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
3831 $ WC "d_ldbl_dig='" + perl_d_ldbl_dig + "'"
3832 $ WC "d_difftime='" + perl_d_difftime + "'"
3833 $ WC "d_fork='" + perl_d_fork + "'"
3834 $ WC "d_getlogin='" + perl_d_getlogin + "'"
3835 $ WC "d_getppid='" + perl_d_getppid + "'"
3836 $ WC "d_htonl='" + perl_d_htonl + "'"
3837 $ WC "d_nice='" + perl_d_nice + "'"
3838 $ WC "d_pause='" + perl_d_pause + "'"
3839 $ WC "d_pipe='" + perl_d_pipe + "'"
3840 $ WC "d_readlink='" + perl_d_readlink + "'"
3841 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
3842 $ WC "d_strchr='" + perl_d_strchr + "'"
3843 $ WC "d_index='" + perl_d_index + "'"
3844 $ WC "d_strtod='" + perl_d_strtod + "'"
3845 $ WC "d_strtol='" + perl_d_strtol + "'"
3846 $ WC "d_strtoul='" + perl_d_strtoul + "'"
3847 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
3848 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
3849 $ WC "d_times='" + perl_d_times + "'"
3850 $ WC "d_tzname='" + perl_d_tzname + "'"
3851 $ WC "d_umask='" + perl_d_umask + "'"
3852 $ WC "fpostype='" + perl_fpostype + "'"
3853 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
3854 $ WC "i_float='" + perl_i_float + "'"
3855 $ WC "i_math='" + perl_i_math + "'"
3856 $ WC "intsize='" + perl_intsize + "'"
3857 $ WC "longsize='" + perl_longsize + "'"
3858 $ WC "shortsize='" + perl_shortsize + "'"
3859 $ WC "lseektype='" + perl_lseektype + "'"
3860 $ WC "lseeksize='4'"
3861 $ WC "i_values='" + perl_i_values + "'"
3862 $ WC "malloctype='" + perl_malloctype + "'"
3863 $ WC "freetype='" + perl_freetype + "'"
3864 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
3865 $ WC "sh='" + perl_sh + "'"
3866 $ WC "sig_name='" + perl_sig_name + "'"
3867 $ WC "sig_num='" + perl_sig_num + "'"
3868 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
3870 $ WC "modetype='" + perl_modetype + "'"
3871 $ WC "ssizetype='" + perl_ssizetype + "'"
3872 $ WC "o_nonblock='" + perl_o_nonblock + "'"
3873 $ WC "eagain='" + perl_eagain + "'"
3874 $ WC "rd_nodata='" + perl_rd_nodata + "'"
3875 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
3876 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
3877 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
3878 $ WC "oldarchlib='" + perl_oldarchlib + "'"
3879 $ WC "privlibexp='" + perl_privlibexp + "'"
3880 $ WC "privlib='" + perl_privlib + "'"
3881 $ WC "sitelibexp='" + perl_sitelibexp + "'"
3882 $ WC "sitelib='" + perl_sitelib + "'"
3883 $ WC "sitearchexp='" + perl_sitearchexp + "'"
3884 $ WC "sitearch='" + perl_sitearch + "'"
3885 $ WC "sizetype='" + perl_sizetype + "'"
3886 $ WC "i_sysparam='" + perl_i_sysparam + "'"
3887 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
3888 $ WC "d_dlerror='" + perl_d_dlerror + "'"
3889 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
3890 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
3891 $ WC "d_dosuid='" + perl_d_dosuid + "'"
3892 $ WC "d_inetaton='" + perl_d_inetaton + "'"
3893 $ WC "d_int64_t='" + perl_d_int64_t + "'"
3894 $ WC "d_isascii='" + perl_d_isascii + "'"
3895 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
3896 $ WC "d_pathconf='" + perl_d_pathconf + "'"
3897 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
3898 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
3899 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
3900 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
3901 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
3902 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
3903 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
3904 $ WC "d_setpgid='" + perl_d_setpgid + "'"
3905 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
3906 $ WC "d_sysconf='" + perl_d_sysconf + "'"
3907 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
3908 $ WC "d_getpgid='" + perl_d_getpgid + "'"
3909 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
3910 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
3911 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
3912 $ WC "d_sfio='" + perl_d_sfio + "'"
3913 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
3914 $ WC "usedl='" + perl_usedl + "'"
3915 $ WC "startperl=" + perl_startperl ! This one's special--no enclosing single quotes
3916 $ WC "db_hashtype='" + perl_db_hashtype + "'"
3917 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
3918 $ WC "useperlio='" + perl_useperlio + "'"
3919 $ WC "defvoidused='" + perl_defvoidused + "'"
3920 $ WC "voidflags='" + perl_voidflags + "'"
3921 $ WC "d_eunice='" + perl_d_eunice + "'"
3922 $ WC "libs='" + perl_libs + "'"
3923 $ WC "libc='" + perl_libc + "'"
3924 $ tempstring = "PERL_VERSION='" + "''perl_patchlevel'" + "'"
3926 $ tempstring = "PERL_SUBVERSION='" + "''perl_patchlevel'" + "'"
3928 $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
3930 $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
3932 $ WC "pager='" + perl_pager + "'"
3933 $ WC "uidtype='" + perl_uidtype + "'"
3934 $ WC "gidtype='" + perl_gidtype + "'"
3935 $ WC "usethreads='" + perl_usethreads + "'"
3936 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
3937 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
3938 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
3939 $ WC "i_netdb='" + perl_i_netdb + "'"
3940 $ WC "pidtype='" + perl_pidtype + "'"
3941 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
3942 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
3943 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
3944 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
3945 $ WC "socksizetype='" + perl_socksizetype + "'"
3946 $ WC "baserev='" + perl_baserev + "'"
3947 $ WC "doublesize='" + perl_doublesize + "'"
3948 $ WC "ptrsize='" + perl_ptrsize + "'"
3949 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
3950 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
3951 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
3952 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
3953 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
3954 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
3955 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
3956 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
3957 $ WC "d_sethent='" + perl_d_sethent + "'"
3958 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
3959 $ WC "d_longdbl='" + perl_d_longdbl + "'"
3960 $ WC "longdblsize='" + perl_longdblsize + "'"
3961 $ WC "d_longlong='" + perl_d_longlong + "'"
3962 $ WC "longlongsize='" + perl_longlongsize + "'"
3963 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
3964 $ WC "d_mkstemps='" + perl_d_mkstemps + "'"
3965 $ WC "d_mkdtemp='" + perl_d_mkdtemp + "'"
3966 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
3967 $ WC "d_setenv='" + perl_d_setenv + "'"
3968 $ WC "d_endhent='" + perl_d_endhent + "'"
3969 $ WC "d_endnent='" + perl_d_endsent + "'"
3970 $ WC "d_endpent='" + perl_d_endpent + "'"
3971 $ WC "d_endsent='" + perl_d_endsent + "'"
3972 $ WC "d_gethent='" + perl_d_gethent + "'"
3973 $ WC "d_getnent='" + perl_d_getsent + "'"
3974 $ WC "d_getpent='" + perl_d_getpent + "'"
3975 $ WC "d_getsent='" + perl_d_getsent + "'"
3976 $ WC "d_sethent='" + perl_d_sethent + "'"
3977 $ WC "d_setnent='" + perl_d_setsent + "'"
3978 $ WC "d_setpent='" + perl_d_setpent + "'"
3979 $ WC "ebcdic='" + perl_ebcdic + "'"
3980 $ WC "d_setsent='" + perl_d_setsent + "'"
3981 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
3982 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
3983 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
3984 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
3985 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
3986 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
3987 $ WC "d_lchown='" + perl_d_lchown + "'"
3988 $ WC "d_union_semun='" + perl_d_union_semun + "'"
3989 $ WC "i_arpainet='" + perl_i_arpainet + "'"
3990 $ WC "d_grpasswd='" + perl_d_grpasswd + "'"
3991 $ WC "d_setgrent='" + perl_d_setgrent + "'"
3992 $ WC "d_getgrent='" + perl_d_getgrent + "'"
3993 $ WC "d_endgrent='" + perl_d_endgrent + "'"
3994 $ WC "d_pwpasswd='" + perl_d_pwpasswd + "'"
3995 $ WC "d_setpwent='" + perl_d_setpwent + "'"
3996 $ WC "d_getpwent='" + perl_d_getpwent + "'"
3997 $ WC "d_endpwent='" + perl_d_endpwent + "'"
3998 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
3999 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
4000 $ WC "extensions='" + perl_extensions + "'"
4001 $ WC "known_extensions='" + perl_known_extensions + "'"
4002 $ WC "static_ext='" + "'"
4003 $ WC "dynamic_ext='" + perl_extensions + "'"
4004 $ WC "d_mknod='" + perl_d_mknod + "'"
4005 $ WC "devtype='" + perl_devtype + "'"
4006 $ WC "d_gethname='" + perl_d_gethname + "'"
4007 $ WC "d_phostname='" + perl_d_phostname + "'"
4008 $ WC "d_accessx='" + perl_d_accessx + "'"
4009 $ WC "d_eaccess='" + perl_d_eaccess + "'"
4010 $ WC "i_sysaccess='" + perl_i_sysaccess + "'"
4011 $ WC "i_syssecrt='" + perl_i_syssecrt + "'"
4012 $ WC "d_fd_set='" + perl_d_fd_set + "'"
4013 $ WC "d_access='" + perl_d_access + "'"
4014 $ WC "d_msg_ctrunc='" + perl_d_msg_ctrunc + "'"
4015 $ WC "d_msg_dontroute='" + perl_d_msg_dontroute + "'"
4016 $ WC "d_msg_oob='" + perl_d_msg_oob + "'"
4017 $ WC "d_msg_peek='" + perl_d_msg_peek + "'"
4018 $ WC "d_msg_proxy='" + perl_d_msg_proxy + "'"
4019 $ WC "d_scm_rights='" + perl_d_scm_rights + "'"
4020 $ WC "d_sendmsg='" + perl_d_sendmsg + "'"
4021 $ WC "d_recvmsg='" + perl_d_recvmsg + "'"
4022 $ WC "d_msghdr_s='" + perl_d_msghdr_s + "'"
4023 $ WC "d_cmsghdr_s='" + perl_d_cmsghdr_s + "'"
4024 $ WC "i_sysuio='" + perl_i_sysuio + "'"
4025 $ WC "d_fseeko='" + perl_d_fseeko + "'"
4026 $ WC "d_ftello='" + perl_d_ftello + "'"
4027 $ WC "d_readv='" + perl_d_readv + "'"
4028 $ WC "d_writev='" + perl_d_writev + "'"
4029 $ WC "i_machcthr='" + perl_i_machcthr + "'"
4030 $ WC "usemultiplicity='" + perl_usemultiplicity + "'"
4031 $ WC "i_poll='" + perl_i_poll + "'"
4032 $ WC "i_inttypes='" + perl_i_inttypes + "'"
4033 $ WC "d_off64_t='" + perl_d_off64_t + "'"
4034 $ WC "d_fpos64_t='" + perl_d_fpos64_t + "'"
4035 $ WC "use64bitall='" + perl_use64bitall + "'"
4036 $ WC "use64bitint='" + perl_use64bitint + "'"
4037 $ WC "d_drand48proto='" + perl_d_drand48proto + "'"
4038 $ WC "d_lseekproto='" + perl_d_drand48proto + "'"
4039 $ WC "d_old_pthread_create_joinable='" + perl_d_old_pthread_create_joinable + "'"
4040 $ WC "old_pthread_create_joinable='" + perl_old_pthread_create_joinable + "'"
4041 $ WC "drand01='" + perl_drand01 + "'"
4042 $ WC "randseedtype='" + perl_randseedtype + "'"
4043 $ WC "seedfunc='" + perl_seedfunc + "'"
4044 $ WC "sig_num_init='" + perl_sig_num_with_commas + "'"
4045 $ WC "i_sysmount='" + perl_i_sysmount + "'"
4046 $ WC "d_fstatfs='" + perl_d_fstatfs + "'"
4047 $ WC "d_getfsstat='" + perl_d_getfsstat + "'"
4048 $ WC "d_memchr='" + perl_d_memchr + "'"
4049 $ WC "d_statfsflags='" + perl_d_statfsflags + "'"
4050 $ WC "fflushNULL='define'"
4051 $ WC "fflushall='undef'"
4052 $ WC "d_stdio_stream_array='undef'"
4053 $ WC "i_sysstatvfs='" + perl_i_sysstatvfs + "'"
4054 $ WC "i_syslog='" + perl_i_syslog + "'"
4055 $ WC "i_sysmode='" + perl_i_sysmode + "'"
4056 $ WC "i_sysutsname='" + perl_i_sysutsname + "'"
4057 $ WC "i_machcthreads='" + perl_i_machcthreads + "'"
4058 $ WC "i_pthread='" + perl_i_pthread + "'"
4059 $ WC "d_fstatvfs='" + perl_d_fstatvfs + "'"
4060 $ WC "i_mntent='" + perl_i_mntent + "'"
4061 $ WC "d_getmntent='" + perl_d_getmntent + "'"
4062 $ WC "d_hasmntopt='" + perl_d_hasmntopt + "'"
4063 $ WC "d_telldirproto='" + perl_d_telldirproto + "'"
4064 $ WC "d_madvise='" + perl_d_madvise + "'"
4065 $ WC "d_msync='" + perl_d_msync + "'"
4066 $ WC "d_mprotect='" + perl_d_mprotect + "'"
4067 $ WC "d_munmap='" + perl_d_munmap + "'"
4068 $ WC "d_mmap='" + perl_d_mmap + "'"
4069 $ WC "i_sysmman='" + perl_i_sysmman + "'"
4070 $ WC "installusrbinperl='" + perl_installusrbinperl + "'"
4071 $! WC "selectminbits='" + perl_selectminbits + "'"
4072 $ WC "crosscompile='" + perl_crosscompile + "'"
4073 $ WC "multiarch='" + perl_multiarch + "'"
4074 $ WC "sched_yield='" + perl_sched_yield + "'"
4075 $ WC "d_strtoull='" + perl_d_strtoull + "'"
4076 $ WC "d_strtouq='" + perl_d_strtouq + "'"
4077 $ WC "d_strtoll='" + perl_d_strtoll + "'"
4078 $ WC "d_strtold='" + perl_d_strtold + "'"
4079 $ WC "usesocks='" + perl_usesocks + "'"
4080 $ WC "d_vendorlib='" + perl_d_vendorlib + "'"
4081 $ WC "vendorlibexp='" + perl_vendorlibexp + "'"
4082 $ WC "d_atolf='" + perl_d_atolf + "'"
4083 $ WC "d_atoll='" + perl_d_atoll + "'"
4084 $ WC "d_bincompat5005='" + perl_d_bincompat + "'"
4085 $ WC "d_endspent='" + perl_d_endspent + "'"
4086 $ WC "d_getspent='" + perl_d_getspent + "'"
4087 $ WC "d_getspnam='" + perl_d_getspnam + "'"
4088 $ WC "d_setspent='" + perl_d_setspent + "'"
4089 $ WC "i_shadow='" + perl_i_shadow + "'"
4090 $ WC "i_socks='" + perl_i_socks + "'"
4091 $ WC "d_PRIfldbl='" + perl_d_PRIfldbl + "'"
4092 $ WC "d_PRIgldbl='" + perl_d_PRIgldbl + "'"
4093 $ WC "d_PRId64='" + perl_d_PRId64 + "'"
4094 $ WC "d_PRIu64='" + perl_d_PRIu64 + "'"
4095 $ WC "d_PRIo64='" + perl_d_PRIo64 + "'"
4096 $ WC "d_PRIx64='" + perl_d_PRIx64 + "'"
4097 $ WC "sPRIfldbl='" + perl_sPRIfldbl + "'"
4098 $ WC "sPRIgldbl='" + perl_sPRIgldbl + "'"
4099 $ WC "sPRId64='" + perl_sPRId64 + "'"
4100 $ WC "sPRIu64='" + perl_sPRIu64 + "'"
4101 $ WC "sPRIo64='" + perl_sPRIo64 + "'"
4102 $ WC "sPRIx64='" + perl_sPRIx64 + "'"
4103 $ WC "d_llseek='" + perl_d_llseek + "'"
4104 $ WC "d_iconv='" + perl_d_iconv +"'"
4105 $ WC "i_iconv='" + perl_i_iconv +"'"
4106 $ WC "inc_version_list_init='""""'"
4107 $ WC "uselargefiles='" + perl_uselargefiles + "'"
4108 $ WC "uselongdouble='" + perl_uselongdouble + "'"
4109 $ WC "usemorebits='" + perl_usemorebits + "'"
4110 $ WC "d_quad='" + perl_d_quad + "'"
4111 $ if (use_64bitint .eqs. "Y")
4113 $ WC "quadtype='" + perl_quadtype + "'"
4114 $ WC "uquadtype='" + perl_uquadtype + "'"
4116 $ WC "d_fs_data_s='" + perl_d_fs_data_s + "'"
4117 $ WC "d_getcwd='" + perl_d_getcwd + "'"
4118 $ WC "d_getmnt='" + perl_d_getmnt + "'"
4119 $ WC "d_sqrtl='" + perl_d_sqrtl + "'"
4120 $ WC "d_statfs_f_flags='" + perl_d_statfs_f_flags + "'"
4121 $ WC "d_statfs_s='" + perl_d_statfs_s + "'"
4122 $ WC "d_ustat='" + perl_d_ustat + "'"
4123 $ WC "i_sysstatfs='" + perl_i_sysstatfs + "'"
4124 $ WC "i_sysvfs='" + perl_i_sysvfs + "'"
4125 $ WC "i_ustat='" + perl_i_ustat + "'"
4126 $ WC "ivtype='" + perl_ivtype + "'"
4127 $ WC "uvtype='" + perl_uvtype + "'"
4128 $ WC "i8type='" + perl_i8type + "'"
4129 $ WC "i16type='" + perl_i16type + "'"
4130 $ WC "u8type='" + perl_u8type + "'"
4131 $ WC "u16type='" + perl_u16type + "'"
4132 $ WC "i32type='" + perl_i32type + "'"
4133 $ WC "u32type='" + perl_u32type + "'"
4134 $ WC "i64type='" + perl_i64type + "'"
4135 $ WC "u64type='" + perl_u64type + "'"
4136 $ WC "nvtype='" + perl_nvtype + "'"
4137 $ WC "ivsize='" + perl_ivsize + "'"
4138 $ WC "uvsize='" + perl_uvsize + "'"
4139 $ WC "i8size='" + perl_i8size + "'"
4140 $ WC "u8size='" + perl_u8size + "'"
4141 $ WC "i16size='" + perl_i16size + "'"
4142 $ WC "u16size='" + perl_u16size + "'"
4143 $ WC "i32size='" + perl_i32size + "'"
4144 $ WC "u32size='" + perl_u32size + "'"
4145 $ WC "i64size='" + perl_i64size + "'"
4146 $ WC "u64size='" + perl_u64size + "'"
4147 $ WC "ivdformat='" + perl_ivdformat + "'"
4148 $ WC "uvuformat='" + perl_uvuformat + "'"
4149 $ WC "uvoformat='" + perl_uvoformat + "'"
4150 $ WC "uvxformat='" + perl_uvxformat + "'"
4151 $ WC "d_vms_case_sensitive_symbols='" + d_vms_be_case_sensitive + "'"
4153 $! ##WRITE NEW CONSTANTS HERE##
4157 $! Okay, we've gotten here. Build munchconfig and run it
4158 $ 'Perl_CC' munchconfig.c
4159 $ If (Needs_Opt.eqs."Yes")
4161 $ open/write OPTCHAN []munchconfig.opt
4162 $ IF ("''using_gnu_c'".eqs."Yes")
4164 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
4166 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
4168 $ link munchconfig.obj,munchconfig.opt/opt
4169 $ delete munchconfig.opt;*
4171 $ link munchconfig.obj
4174 $ echo "Writing config.h"
4176 $ ! we need an fdl file
4177 $ CREATE [-]CONFIG.FDL
4180 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
4181 $ ! First spit out the header info with the local defines (to get
4182 $ ! around the 255 character command line limit)
4183 $ OPEN/APPEND CONFIG [-]config.local
4184 $ if use_debugging_perl.eqs."Y"
4186 $ WRITE CONFIG "#define DEBUGGING"
4188 $ if use_two_pot_malloc.eqs."Y"
4190 $ WRITE CONFIG "#define TWO_POT_OPTIMIZE"
4192 $ if mymalloc.eqs."Y"
4194 $ WRITE CONFIG "#define EMBEDMYMALLOC"
4196 $ if use_pack_malloc.eqs."Y"
4198 $ WRITE CONFIG "#define PACK_MALLOC"
4200 $ if use_debugmalloc.eqs."Y"
4202 $ write config "#define DEBUGGING_MSTATS"
4204 $ if "''Using_Gnu_C'" .eqs."Yes"
4206 $ WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
4208 $ if "''Has_Dec_C_Sockets'".eqs."T"
4210 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
4211 $ WRITE CONFIG "#define DECCRTL_SOCKETS"
4213 $ if "''Has_Socketshr'".eqs."T"
4215 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
4217 $! This is VMS-specific for now
4218 $ WRITE CONFIG "#''perl_d_setenv' HAS_SETENV"
4219 $ if d_alwdeftype.eqs."Y"
4221 $ WRITE CONFIG "#define SECURE_INTERNAL_GETENV"
4223 $ WRITE CONFIG "#undef SECURE_INTERNAL_GETENV"
4225 $ if d_secintgenv.eqs."Y"
4227 $ WRITE CONFIG "#define ALWAYS_DEFTYPES"
4229 $ WRITE CONFIG "#undef ALWAYS_DEFTYPES"
4231 $ if use_64bitint.eqs."Y"
4233 $ WRITE CONFIG "#define USE_64_BIT_INT"
4234 $ WRITE CONFIG "#define USE_LONG_DOUBLE"
4236 $ if use_64bitall.eqs."Y"
4238 $ WRITE CONFIG "#define USE_64_BIT_ALL"
4240 $ if be_case_sensitive
4242 $ write config "#define VMS_WE_ARE_CASE_SENSITIVE"
4244 $ WRITE CONFIG "#define HAS_ENVGETENV"
4245 $ WRITE CONFIG "#define PERL_EXTERNAL_GLOB"
4248 $! Now build the normal config.h
4249 $ define/user sys$output [-]config.main
4250 $ mcr []munchconfig [-]config.sh [-]config_h.sh
4251 $ ! Concatenate them together
4252 $ copy [-]config.local,[-]config.main [-]config.h
4254 $ DELETE/NOLOG [-]CONFIG.MAIN;*
4255 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
4256 $ DELETE/NOLOG [-]CONFIG.FDL;*
4258 $ if "''Using_Dec_C'" .eqs."Yes"
4260 $ DECC_REPLACE = "DECC=decc=1"
4262 $ DECC_REPLACE = "DECC="
4264 $ if "''Using_Gnu_C'" .eqs."Yes"
4266 $ GNUC_REPLACE = "GNUC=gnuc=1"
4268 $ GNUC_REPLACE = "GNUC="
4270 $ if "''Has_Dec_C_Sockets'" .eqs."T"
4272 $ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
4274 $ if "''Has_Socketshr'" .eqs."T"
4276 $ SOCKET_REPLACE = "SOCKET=SOCKETSHR_SOCKETS=1"
4278 $ SOCKET_REPLACE = "SOCKET="
4281 $ IF ("''Use_Threads'".eqs."T")
4283 $ if ("''VMS_VER'".LES."6.2")
4285 $ THREAD_REPLACE = "THREAD=OLDTHREADED=1"
4287 $ THREAD_REPLACE = "THREAD=THREADED=1"
4290 $ THREAD_REPLACE = "THREAD="
4292 $ if mymalloc.eqs."Y"
4294 $ MALLOC_REPLACE = "MALLOC=MALLOC=1"
4296 $ MALLOC_REPLACE = "MALLOC="
4298 $ if f$getsyi("HW_MODEL").ge.1024
4300 $ ARCH_TYPE = "ARCH-TYPE=__AXP__"
4302 $ ARCH_TYPE = "ARCH-TYPE=__VAX__"
4304 $ echo "Writing DESCRIP.MMS"
4306 $ define/user sys$output [-]descrip.mms
4307 $ mcr []munchconfig [-]config.sh descrip_mms.template "''DECC_REPLACE'" "''ARCH_TYPE'" "''GNUC_REPLACE'" "''SOCKET_REPLACE'" "''THREAD_REPLACE'" -
4308 "''C_Compiler_Replace'" "''MALLOC_REPLACE'" "''Thread_Live_Dangerously'" "PV=''LocalPerlVer'" "FLAGS=FLAGS=''extra_flags'"
4309 $ echo "Extracting Build_Ext.Com"
4310 $ Create Sys$Disk:[-]Build_Ext.Com
4311 $ Deck/Dollar="$EndOfTpl$"
4313 $! NOTE: This file is extracted as part of the VMS configuration process.
4314 $! Any changes made to it directly will be lost. If you need to make any
4315 $! changes, please edit the template in [.vms]SubConfigure.Com instead.
4316 $ def = F$Environment("Default")
4317 $ exts1 = F$Edit(p1,"Compress")
4318 $ p2 = F$Edit(p2,"Upcase,Compress,Trim")
4319 $ If F$Locate("MCR ",p2).eq.0 Then p2 = F$Extract(3,255,p2)
4320 $ miniperl = "$" + F$Search(F$Parse(p2,".Exe"))
4322 $ if f$type('p3') .nes. "" then makeutil = 'p3'
4323 $ targ = F$Edit(p4,"Lowercase")
4326 $ ext = F$Element(i," ",p1)
4327 $ If ext .eqs. " " Then Goto done
4328 $ Define/User Perl_Env_Tables CLISYM_LOCAL
4330 ($extdir = $ENV{'ext'}) =~ s/::/./g;
4331 if ($extdir =~ /^vms/i) { $extdir =~ s/vms/.vms.ext/i; }
4332 else { $extdir = ".ext.$extdir"; }
4333 ($ENV{'extdir'} = "[$extdir]");
4334 ($ENV{'up'} = ('-') x ($extdir =~ tr/././));
4335 $ Set Default &extdir
4337 $ If F$Locate("clean",targ) .eqs. F$Length(targ)
4339 $ Write Sys$Output "Building ''ext' . . ."
4340 $ On Error Then Goto done
4341 $ If F$Search("Descrip.MMS") .eqs. ""
4345 $ If F$CvTime(F$File("Descrip.MMS","rdt")) .lts. -
4346 F$CvTime(F$File("Makefile.PL","rdt")) Then redesc = 1
4349 $ Write Sys$Output "''targ'ing ''ext' . . ."
4350 $ On Error Then Continue
4353 miniperl "-I[''up'.lib]" Makefile.PL "INST_LIB=[''up'.lib]" "INST_ARCHLIB=[''up'.lib]"
4367 $! Clean up after ourselves
4368 $ delete/nolog munchconfig.exe;*
4369 $ delete/nolog munchconfig.obj;*