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_sunmath = "undef"
76 $ perl_i_sysstatfs = "undef"
77 $ perl_i_sysvfs = "undef"
78 $ perl_i_ustat = "undef"
79 $ perl_d_llseek="undef"
80 $ perl_d_iconv="undef"
81 $ perl_d_madvise="undef"
82 $ perl_selectminbits=32
83 $ perl_d_msync="undef"
84 $ perl_d_mprotect="undef"
85 $ perl_d_munmap="undef"
86 $ perl_crosscompile="undef"
87 $ perl_multiarch="undef"
89 $ perl_i_sysmman="undef"
90 $ perl_d_telldirproto="define"
91 $ perl_i_sysmount="undef"
92 $ perl_d_bincompat="undef"
93 $ perl_d_endspent="undef
94 $ perl_d_getspent="undef
95 $ perl_d_getspnam="undef
96 $ perl_d_setspent="undef
97 $ perl_d_fstatfs="undef"
98 $ perl_d_getfsstat="undef"
99 $ perl_i_machcthreads="undef"
100 $ perl_i_pthread="define"
101 $ perl_d_fstatvfs="undef"
102 $ perl_usesocks="undef"
103 $ perl_d_vendorlib="undef"
104 $ perl_vendorlibexp=""
105 $ perl_d_statfsflags="undef"
106 $ perl_i_sysstatvfs="undef"
107 $ perl_i_mntent="undef"
108 $ perl_d_getmntent="undef"
109 $ perl_d_hasmntopt="undef"
110 $ perl_package="''package'"
111 $ perl_baserev = "''baserev'"
113 $ perl_installusrbinperl="undef"
115 $ perl_d_fseeko="undef"
116 $ perl_d_ftello="undef"
117 $ perl_d_qgcvt="undef"
118 $ perl_d_readv="undef"
119 $ perl_d_writev="undef"
120 $ perl_i_machcthr="undef"
121 $ perl_i_netdb="undef"
122 $ perl_d_gnulibc="undef"
123 $ perl_cf_by="unknown"
127 $ perl_drand01 = "drand48()"
128 $ perl_randseedtype = "long int"
129 $ perl_seedfunc = "srand48"
130 $ perl_d_msg_ctrunc = "undef"
131 $ perl_d_msg_dontroute = "undef"
132 $ perl_d_msg_oob = "undef"
133 $ perl_d_msg_peek = "undef"
134 $ perl_d_msg_proxy = "undef"
135 $ perl_d_scm_rights = "undef"
136 $ perl_d_sendmsg = "undef"
137 $ perl_d_recvmsg = "undef"
138 $ perl_d_msghdr_s = "undef"
139 $ perl_d_cmsghdr_s = "undef"
140 $ IF use_64bitint .eqs. "Y"
142 $ perl_use64bitint = "define"
143 $ perl_uselargefiles = "define"
144 $ perl_uselongdouble = "define"
145 $ perl_usemorebits = "define"
147 $ perl_use64bitint = "undef"
148 $ perl_uselargefiles = "undef"
149 $ perl_uselongdouble = "undef"
150 $ perl_usemorebits = "undef"
152 $ use_64bitall = use_64bitint ! until configure.com question is reworded?
153 $ IF use_64bitall .eqs. "Y"
155 $ perl_use64bitall = "define"
157 $ perl_use64bitall = "undef"
159 $ perl_d_drand48proto = "define"
160 $ perl_d_lseekproto = "define"
161 $ perl_libpth="/sys$share /sys$library"
163 $ perl_lddlflags="/Share"
169 $ perl_i_arpainet="undef"
170 $ perl_d_grpasswd="undef"
171 $ perl_d_setgrent="undef"
172 $ perl_d_getgrent="define"
173 $ perl_d_endgrent="define"
174 $ perl_d_pwpasswd="define"
175 $ perl_d_setpwent="define"
176 $ perl_d_getpwent="define"
177 $ perl_d_endpwent="define"
178 $ perl_d_phostname="undef"
179 $ perl_d_accessx="undef"
180 $ perl_d_eaccess="undef"
181 $ perl_ebcdic="undef"
183 $ perl_shrplib="define"
184 $ perl_usemymalloc=mymalloc
185 $ perl_usevfork="true"
186 $ perl_useposix="false"
187 $ perl_spitshell="write sys$output "
188 $ perl_dlsrc="dl_vms.c"
191 $ perl_prefix="perl_root"
192 $ perl_binexp="''perl_prefix':[000000]"
193 $ perl_builddir="''perl_prefix':[000000]"
194 $ perl_installbin="''perl_prefix':[000000]"
195 $ perl_installscript="''perl_prefix':[utils]"
196 $ perl_installman1dir="''perl_prefix':[man.man1]"
197 $ perl_installman3dir="''perl_prefix':[man.man3]"
198 $ perl_installprivlib="''perl_prefix':[lib]"
199 $ perl_installsitelib="''perl_prefix':[lib.site_perl]"
202 $ perl_d_sockpair="undef"
203 $ perl_i_neterrno="define"
204 $ perl_ldflags="/NoTrace/NoMap"
205 $ perl_d_lchown="undef"
206 $ perl_d_mknod="undef"
207 $ perl_d_union_semun="undef"
208 $ perl_d_semctl_semun="undef"
209 $ perl_d_semctl_semid_ds="undef"
210 $ IF (sharedperl.EQS."Y" .AND. F$GETSYI("HW_MODEL").GE.1024)
212 $ perl_obj_ext=".abj"
215 $ perl_exe_ext=".axe"
216 $ perl_lib_ext=".alb"
218 $ perl_obj_ext=".obj"
221 $ perl_exe_ext=".exe"
222 $ perl_lib_ext=".olb"
224 $ perl_dlobj="dl_vms''perl_obj_ext'"
226 $ perl_d_archlib="define"
227 $ perl_d_bincompat3="undef"
228 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
230 $ perl_d_castneg="define"
232 $ perl_d_chsize="undef"
233 $ perl_d_const="define"
234 $ perl_d_crypt="define"
235 $ perl_byteorder="1234"
238 $ perl_d_dup2="define"
239 $ perl_d_fchmod="undef"
240 $ perl_d_fchown="undef"
241 $ perl_d_fcntl="undef"
242 $ perl_d_fgetpos="define"
243 $ perl_d_flexfnam="define"
244 $ perl_d_flock="undef"
245 $ perl_d_fsetpos="define"
246 $ perl_d_getgrps="undef"
247 $ perl_d_setgrps="undef"
248 $ perl_d_getprior="undef"
249 $ perl_d_killpg="undef"
250 $ perl_d_link="undef"
251 $ perl_d_lstat="undef"
252 $ perl_d_lockf="undef"
253 $ perl_d_memcmp="define"
254 $ perl_d_memcpy="define"
255 $ perl_d_memmove="define"
256 $ perl_d_memset="define"
257 $ perl_d_mkdir="define"
259 $ perl_d_open3="define"
260 $ perl_d_poll="undef"
261 $ perl_d_readdir="define"
262 $ perl_d_seekdir="define"
263 $ perl_d_telldir="define"
264 $ perl_d_rewinddir="define"
265 $ perl_d_rename="define"
266 $ perl_d_rmdir="define"
268 $ perl_d_setegid="undef"
269 $ perl_d_seteuid="undef"
270 $ perl_d_setprior="undef"
271 $ perl_d_setregid="undef"
272 $ perl_d_setresgid="undef"
273 $ perl_d_setreuid="undef"
274 $ perl_d_setresuid="undef"
275 $ perl_d_setrgid="undef"
276 $ perl_d_setruid="undef"
277 $ perl_d_setsid="undef"
279 $ perl_d_shmatprototype="undef"
280 $ perl_d_statblks="undef"
281 $ perl_stdio_ptr="((*fp)->_ptr)"
282 $ perl_stdio_cnt="((*fp)->_cnt)"
283 $ perl_stdio_base="((*fp)->_base)"
284 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
285 $ perl_d_strctcpy="define"
286 $ perl_d_strerror="define"
287 $ perl_d_syserrlst="undef"
288 $ perl_d_strerrm="strerror((e),vaxc$errno)"
289 $ perl_d_symlink="undef"
290 $ perl_d_syscall="undef"
291 $ perl_d_system="define"
292 $ perl_timetype="time_t"
293 $ perl_d_vfork="define"
294 $ perl_signal_t="void"
295 $ perl_d_volatile="define"
296 $ perl_d_vprintf="define"
297 $ perl_d_charvspr="undef"
298 $ perl_d_waitpid="define"
299 $ perl_i_dirent="undef"
300 $ perl_d_dirnamlen="define"
301 $ perl_direntrytype="struct dirent"
302 $ perl_i_fcntl="undef"
304 $ perl_i_limits="define"
305 $ perl_i_memory="undef"
306 $ perl_i_ndbm="undef"
307 $ perl_i_stdarg="define"
309 $ perl_d_pwquota="undef"
310 $ perl_d_pwage="undef"
311 $ perl_d_pwchange="undef"
312 $ perl_d_pwclass="undef"
313 $ perl_d_pwexpire="undef"
314 $ perl_d_pwcomment="define"
315 $ perl_i_stddef="define"
316 $ perl_i_stdlib="define"
317 $ perl_i_string="define"
318 $ perl_i_sysdir="undef"
319 $ perl_i_sysfile="undef"
320 $ perl_i_sysioctl="undef"
321 $ perl_i_sysndir="undef"
322 $ perl_i_sysresrc="undef"
323 $ perl_i_sysselct="undef"
325 $ perl_i_rpcsvcdbm="undef"
326 $ perl_i_sfio="undef"
327 $ perl_i_sysstat="define"
328 $ perl_i_systimes="undef"
329 $ perl_i_systypes="define"
330 $ perl_i_sysun="undef"
331 $ perl_i_syswait="undef"
332 $ perl_i_termio="undef"
333 $ perl_i_sgtty="undef"
334 $ perl_i_termios="undef"
335 $ perl_i_time="define"
336 $ perl_i_systime="undef"
337 $ perl_i_systimek="undef"
338 $! perl_i_unistd="undef"
339 $ perl_i_utime="undef"
340 $ perl_i_varargs="undef"
341 $ perl_i_vfork="undef"
342 $ perl_prototype="define"
344 $ perl_stdchar="char"
345 $ perl_d_unlink_all_versions="undef"
346 $ perl_full_sed="_NLA0:"
347 $ perl_bin="/''perl_prefix'/000000"
348 $ perl_binexp="''perl_prefix':[000000]"
349 $ perl_d_alarm="define"
350 $ perl_d_casti32="define"
351 $ perl_d_chown="define"
352 $ perl_d_chroot="undef"
353 $ perl_d_cuserid="define"
354 $ perl_d_dbl_dig="define"
355 $ perl_d_ldbl_dig="define"
356 $ perl_d_difftime="define"
357 $ perl_d_fork="undef"
358 $ perl_d_getlogin="define"
359 $ perl_d_getppid="undef"
360 $ perl_d_nice="define"
361 $ perl_d_pause="define"
362 $ perl_d_pipe="define"
363 $ perl_d_readlink="undef"
364 $ perl_d_setlinebuf="undef"
365 $ perl_d_strchr="define"
366 $ perl_d_strtod="define"
367 $ perl_d_strtol="define"
368 $ perl_d_strtoul="define"
369 $ perl_d_tcgetpgrp="undef"
370 $ perl_d_tcsetpgrp="undef"
371 $ perl_d_times="define"
372 $ perl_d_tzname="undef"
373 $ perl_d_umask="define"
374 $ perl_fpostype="fpos_t"
375 $ perl_i_dlfcn="undef"
376 $ perl_i_float="define"
377 $ perl_i_math="define"
378 $ perl_lseektype="int"
379 $ perl_i_values="undef"
380 $ perl_malloctype="void *"
381 $ perl_freetype="void"
382 $ if "''mymalloc'".eqs."Y"
384 $ perl_d_mymalloc="define"
386 $ perl_d_mymalloc="undef"
389 $ perl_modetype="unsigned int"
390 $ perl_ssizetype="int"
391 $ perl_o_nonblock=" "
394 $ perl_d_eofnblk="undef"
395 $ perl_d_oldarchlib="define"
396 $ perl_privlibexp="''perl_prefix':[lib]"
397 $ perl_privlib="''perl_prefix':[lib]"
398 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
399 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
400 $ perl_sizetype="size_t"
401 $ perl_i_sysparam="undef"
402 $ perl_d_void_closedir="define"
403 $ perl_d_dlerror="undef"
404 $ perl_d_dlsymun="undef"
405 $ perl_d_suidsafe="undef"
406 $ perl_d_dosuid="undef"
407 $ perl_d_inetaton="undef"
408 $ perl_d_isascii="define"
409 $ perl_d_mkfifo="undef"
410 $ perl_d_safebcpy="undef"
411 $ perl_d_safemcpy="define"
412 $ perl_d_sanemcmp="define"
413 $ perl_d_setpgrp="undef"
414 $ perl_d_bsdsetpgrp="undef"
415 $ perl_d_bsdpgrp="undef"
416 $ perl_d_setpgid="undef"
417 $ perl_d_setpgrp2="undef"
418 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
419 $ perl_d_getpgid="undef"
420 $ perl_d_getpgrp="undef"
421 $ perl_d_bsdgetpgrp="undef"
422 $ perl_d_getpgrp2="undef"
423 $ perl_d_sfio="undef"
424 $ perl_usedl="define"
425 $ perl_startperl="""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ + ++$status != 0 and $exit = $status = undef;"""
426 $ perl_db_hashtype=" "
427 $ perl_db_prefixtype=" "
428 $ perl_useperlio="undef"
429 $ perl_defvoidused="15"
430 $ perl_voidflags="15"
431 $ perl_d_eunice="undef"
432 $ perl_d_pwgecos="define"
433 $ IF ("''Use_Threads'".eqs."T").and.("''VMS_VER'".LES."6.2")
435 $ 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"
439 $ IF ("''Using_Dec_C'".eqs."Yes")
441 $ perl_libc="(DECCRTL)"
445 $ perl_PATCHLEVEL="''patchlevel'"
446 $ perl_SUBVERSION="''subversion'"
451 $ if (use_64bitint .eqs. "Y")
453 $ perl_d_PRIfldbl = "define"
454 $ perl_d_PRIgldbl = "define"
455 $ perl_d_PRId64 = "define"
456 $ perl_d_PRIu64 = "define"
457 $ perl_d_PRIo64 = "define"
458 $ perl_d_PRIx64 = "define"
459 $ perl_sPRIfldbl = """Lf"""
460 $ perl_sPRIgldbl = """Lg"""
461 $ perl_sPRId64 = """Ld"""
462 $ perl_sPRIu64 = """Lu"""
463 $ perl_sPRIo64 = """Lo"""
464 $ perl_sPRIx64 = """Lx"""
465 $ perl_d_quad = "define"
466 $ perl_quadtype = "long long"
467 $ perl_uquadtype = "unsigned long long"
469 $ perl_d_PRIfldbl = "undef"
470 $ perl_d_PRIgldbl = "undef"
471 $ perl_d_PRId64 = "undef"
472 $ perl_d_PRIu64 = "undef"
473 $ perl_d_PRIo64 = "undef"
474 $ perl_d_PRIx64 = "undef"
475 $ perl_sPRIfldbl = ""
476 $ perl_sPRIgldbl = ""
481 $ perl_d_quad = "undef"
484 $! Now some that we build up
486 $ LocalTime = f$time()
487 $ perl_cf_time= f$extract(0, 3, f$cvtime(LocalTime,, "WEEKDAY")) + " " + -
488 f$edit(f$cvtime(LocalTime, "ABSOLUTE", "MONTH"), "LOWERCASE") + -
489 " " + f$cvtime(LocalTime,, "DAY") + " " + f$cvtime(LocalTime,, "TIME") + -
490 " " + f$cvtime(LocalTime,, "YEAR")
491 $ if f$getsyi("HW_MODEL").ge.1024
493 $ perl_arch="VMS_AXP"
494 $ perl_archname="VMS_AXP"
495 $ perl_alignbytes="8"
497 $ perl_arch="VMS_VAX"
498 $ perl_archname="VMS_VAX"
499 $ perl_alignbytes="8"
501 $ if ("''Use_Threads'".eqs."T")
503 $ if use_5005_threads
505 $ perl_arch = "''perl_arch'-thread"
506 $ perl_archname = "''perl_archname'-thread"
507 $ perl_d_old_pthread_create_joinable = "undef"
508 $ perl_old_pthread_create_joinable = " "
509 $ perl_use5005threads = "define"
510 $ perl_useithreads = "undef"
512 $ perl_arch = "''perl_arch'-ithread"
513 $ perl_archname = "''perl_archname'-ithread"
514 $ perl_d_old_pthread_create_joinable = "undef"
515 $ perl_old_pthread_create_joinable = " "
516 $ perl_use5005threads = "undef"
517 $ perl_useithreads = "define"
520 $ perl_d_old_pthread_create_joinable = "undef"
521 $ perl_old_pthread_create_joinable = " "
522 $ perl_use5005threads = "undef"
523 $ perl_useithreads = "undef"
525 $ perl_osvers=f$edit(osvers, "TRIM")
526 $ if (perl_subversion + 0).eq.0
528 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL
530 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion
533 $! Some that we need to invoke the compiler for
534 $ OS := "open/write SOURCECHAN []temp.c"
535 $ WS := "write SOURCECHAN"
536 $ CS := "close SOURCECHAN"
537 $ DS := "delete/nolog []temp.*;*"
539 $ if ("''using_vax_c'".eqs."Yes").or.("''using_gnu_c'".eqs."Yes")
541 $ open/write OPTCHAN []temp.opt
542 $ IF ("''using_gnu_c'".eqs."Yes")
544 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
546 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
551 $! Check for __STDC__
555 $ WS "#include <stdlib.h>
557 $ WS "#include <stdio.h>
560 $ WS "#ifdef __STDC__
561 $ WS "printf(""42\n"");
563 $ WS "printf(""1\n"");
568 $ DEFINE SYS$ERROR _NLA0:
569 $ DEFINE SYS$OUTPUT _NLA0:
570 $ ON ERROR THEN CONTINUE
571 $ ON WARNING THEN CONTINUE
573 $ If (Needs_Opt.eqs."Yes")
575 $ link temp.obj,temp.opt/opt
579 $ DEASSIGN SYS$OUTPUT
581 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
582 $ DEFINE SYS$ERROR TEMPOUT
583 $ DEFINE SYS$OUTPUT TEMPOUT
586 $ DEASSIGN SYS$OUTPUT
588 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
591 $ DELETE/NOLOG [-.uu]tempout.lis;
593 $ perl_cpp_stuff=line
594 $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
596 $! Check for double size
600 $ WS "#include <stdlib.h>
602 $ WS "#include <stdio.h>
606 $ WS "foo = sizeof(double);
607 $ WS "printf(""%d\n"", foo);
611 $ DEFINE SYS$ERROR _NLA0:
612 $ DEFINE SYS$OUTPUT _NLA0:
613 $ ON ERROR THEN CONTINUE
614 $ ON WARNING THEN CONTINUE
616 $ If (Needs_Opt.eqs."Yes")
618 $ link temp.obj,temp.opt/opt
622 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
623 $ DEASSIGN SYS$OUTPUT
625 $ DEFINE SYS$ERROR TEMPOUT
626 $ DEFINE SYS$OUTPUT TEMPOUT
629 $ DEASSIGN SYS$OUTPUT
631 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
634 $ DELETE/NOLOG [-.uu]tempout.lis;
636 $ perl_doublesize=line
637 $ WRITE_RESULT "doublesize is ''perl_doublesize'"
639 $! Check for long double size
643 $ WS "#include <stdlib.h>
645 $ WS "#include <stdio.h>
648 $ WS "printf(""%d\n"", sizeof(long double));
652 $ DEFINE SYS$ERROR _NLA0:
653 $ DEFINE SYS$OUTPUT _NLA0:
654 $ ON ERROR THEN CONTINUE
655 $ ON WARNING THEN CONTINUE
657 $ teststatus = f$extract(9,1,$status)
658 $ if (teststatus.nes."1")
660 $ perl_longdblsize="0"
661 $ perl_d_longdbl="undef"
663 $ ON ERROR THEN CONTINUE
664 $ ON WARNING THEN CONTINUE
665 $ If (Needs_Opt.eqs."Yes")
667 $ link temp.obj,temp.opt/opt
671 $ teststatus = f$extract(9,1,$status)
672 $ DEASSIGN SYS$OUTPUT
674 $ if (teststatus.nes."1")
676 $ perl_longdblsize="0"
677 $ perl_d_longdbl="undef"
679 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
680 $ DEFINE SYS$ERROR TEMPOUT
681 $ DEFINE SYS$OUTPUT TEMPOUT
684 $ DEASSIGN SYS$OUTPUT
686 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
689 $ DELETE/NOLOG [-.uu]tempout.lis;
691 $ perl_longdblsize=line
692 $ perl_d_longdbl="define"
695 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
696 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
698 $! Check for long long existance and size
702 $ WS "#include <stdlib.h>
704 $ WS "#include <stdio.h>
707 $ WS "printf(""%d\n"", sizeof(long long));
711 $ DEFINE SYS$ERROR _NLA0:
712 $ DEFINE SYS$OUTPUT _NLA0:
713 $ on error then continue
714 $ on warning then continue
716 $ If (Needs_Opt.eqs."Yes")
718 $ link temp.obj,temp.opt/opt
722 $ teststatus = f$extract(9,1,$status)
723 $ DEASSIGN SYS$OUTPUT
725 $ if (teststatus.nes."1")
727 $ perl_longlongsize="0"
728 $ perl_d_longlong="undef"
730 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
731 $ DEFINE SYS$ERROR TEMPOUT
732 $ DEFINE SYS$OUTPUT TEMPOUT
735 $ DEASSIGN SYS$OUTPUT
737 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
740 $ DELETE/NOLOG [-.uu]tempout.lis;
741 $ perl_longlongsize=line
742 $ perl_d_longlong="define"
744 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
745 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
747 $! Check the prototype for getgid
751 $ WS "#include <stdlib.h>
753 $ WS "#include <stdio.h>
754 $ WS "#include <types.h>
755 $ WS "#include <unistd.h>
762 $ DEFINE SYS$ERROR _NLA0:
763 $ DEFINE SYS$OUTPUT _NLA0:
764 $ on error then continue
765 $ on warning then continue
767 $ teststatus = f$extract(9,1,$status)
768 $ DEASSIGN SYS$OUTPUT
770 $ if (teststatus.nes."1")
772 $! Okay, gid_t failed. Must be unsigned int
773 $ perl_gidtype = "unsigned int"
775 $ perl_gidtype = "gid_t"
777 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
779 $! Check to see if we've got dev_t
783 $ WS "#include <stdlib.h>
785 $ WS "#include <stdio.h>
786 $ WS "#include <types.h>
787 $ WS "#include <unistd.h>
794 $ DEFINE SYS$ERROR _NLA0:
795 $ DEFINE SYS$OUTPUT _NLA0:
796 $ on error then continue
797 $ on warning then continue
799 $ teststatus = f$extract(9,1,$status)
800 $ DEASSIGN SYS$OUTPUT
802 $ if (teststatus.nes."1")
804 $! Okay, dev_t failed. Must be unsigned int
805 $ perl_devtype = "unsigned int"
807 $ perl_devtype = "dev_t"
809 $ WRITE_RESULT "Dev_t is ''perl_devtype'"
811 $! Check to see if we've got unistd.h (which we ought to, but you never know)
815 $ WS "#include <stdlib.h>
817 $ WS "#include <unistd.h>
823 $ DEFINE SYS$ERROR _NLA0:
824 $ DEFINE SYS$OUTPUT _NLA0:
825 $ on error then continue
826 $ on warning then continue
828 $ teststatus = f$extract(9,1,$status)
829 $ DEASSIGN SYS$OUTPUT
831 $ if (teststatus.nes."1")
833 $! Okay, failed. Must not have it
834 $ perl_i_unistd = "undef"
836 $ perl_i_unistd = "define"
839 $ WRITE_RESULT "i_unistd is ''perl_i_unistd'"
841 $! Check to see if we've got shadow.h (probably not, but...)
845 $ WS "#include <stdlib.h>
847 $ WS "#include <shadow.h>
853 $ DEFINE SYS$ERROR _NLA0:
854 $ DEFINE SYS$OUTPUT _NLA0:
855 $ on error then continue
856 $ on warning then continue
858 $ teststatus = f$extract(9,1,$status)
859 $ DEASSIGN SYS$OUTPUT
861 $ if (teststatus.nes."1")
863 $! Okay, failed. Must not have it
864 $ perl_i_shadow = "undef"
866 $ perl_i_shadow = "define"
869 $ WRITE_RESULT "i_shadow is ''perl_i_shadow'"
871 $! Check to see if we've got socks.h (probably not, but...)
875 $ WS "#include <stdlib.h>
877 $ WS "#include <socks.h>
883 $ DEFINE SYS$ERROR _NLA0:
884 $ DEFINE SYS$OUTPUT _NLA0:
885 $ on error then continue
886 $ on warning then continue
888 $ teststatus = f$extract(9,1,$status)
889 $ DEASSIGN SYS$OUTPUT
891 $ if (teststatus.nes."1")
893 $! Okay, failed. Must not have it
894 $ perl_i_socks = "undef"
896 $ perl_i_socks = "define"
899 $ WRITE_RESULT "i_socks is ''perl_i_socks'"
901 $! Check the prototype for select
903 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
907 $ WS "#include <stdlib.h>
909 $ WS "#include <stdio.h>
910 $ WS "#include <types.h>
911 $ WS "#include <unistd.h>
912 $ if ("''Has_Socketshr'".eqs."T")
914 $ WS "#include <socketshr.h>"
916 $ WS "#include <time.h>
917 $ WS "#include <socket.h>
924 $ WS "bar = select(2, foo, foo, foo, NULL);
928 $ DEFINE SYS$ERROR _NLA0:
929 $ DEFINE SYS$OUTPUT _NLA0:
930 $ on error then continue
931 $ on warning then continue
933 $ teststatus = f$extract(9,1,$status)
934 $ DEASSIGN SYS$OUTPUT
936 $ if (teststatus.nes."1")
938 $! Okay, fd_set failed. Must be an int
939 $ perl_selecttype = "int *"
941 $ perl_selecttype="fd_set *"
944 $ ! No sockets, so stick in an int *
945 $ perl_selecttype = "int *"
947 $ WRITE_RESULT "selectype is ''perl_selecttype'"
949 $! Check to see if fd_set exists
953 $ WS "#include <stdlib.h>
955 $ WS "#include <stdio.h>
956 $ WS "#include <types.h>
957 $ WS "#include <unistd.h>
958 $ if ("''Has_Socketshr'".eqs."T")
960 $ WS "#include <socketshr.h>"
962 $ IF ("''Has_Dec_C_Sockets'".eqs."T")
964 $ WS "#include <time.h>
965 $ WS "#include <socket.h>
974 $ DEFINE SYS$ERROR _NLA0:
975 $ DEFINE SYS$OUTPUT _NLA0:
976 $ on error then continue
977 $ on warning then continue
979 $ teststatus = f$extract(9,1,$status)
980 $ DEASSIGN SYS$OUTPUT
982 $ if (teststatus.nes."1")
984 $! Okay, fd_set failed. Must not exist
985 $ perl_d_fd_set = "undef"
987 $ perl_d_fd_set="define"
989 $ WRITE_RESULT "d_fd_set is ''perl_d_fd_set'"
991 $! Check for inttypes.h
995 $ WS "#include <stdlib.h>
997 $ WS "#include <stdio.h>
998 $ WS "#include <unistd.h>
999 $ WS "#include <inttypes.h>
1005 $ DEFINE SYS$ERROR _NLA0:
1006 $ DEFINE SYS$OUTPUT _NLA0:
1007 $ on error then continue
1008 $ on warning then continue
1010 $ savedstatus = $status
1011 $ teststatus = f$extract(9,1,savedstatus)
1012 $ if (teststatus.nes."1")
1014 $ perl_i_inttypes="undef"
1015 $ DEASSIGN SYS$OUTPUT
1016 $ DEASSIGN SYS$ERROR
1018 $ If (Needs_Opt.eqs."Yes")
1020 $ link temp.obj,temp.opt/opt
1024 $ savedstatus = $status
1025 $ teststatus = f$extract(9,1,savedstatus)
1026 $ DEASSIGN SYS$OUTPUT
1027 $ DEASSIGN SYS$ERROR
1028 $ if (teststatus.nes."1")
1030 $ perl_i_inttypes="undef"
1032 $ perl_i_inttypes="define"
1035 $ WRITE_RESULT "i_inttypes is ''perl_i_inttypes'"
1037 $! Check to see if int64_t exists
1041 $ WS "#include <stdlib.h>
1043 $ WS "#include <stdio.h>
1044 $ WS "#include <types.h>
1045 $ WS "#''perl_i_inttypes IIH
1047 $ WS "#include <inttypes.h>
1049 $ WS "#include <unistd.h>
1056 $ DEFINE SYS$ERROR _NLA0:
1057 $ DEFINE SYS$OUTPUT _NLA0:
1058 $ on error then continue
1059 $ on warning then continue
1061 $ teststatus = f$extract(9,1,$status)
1062 $ DEASSIGN SYS$OUTPUT
1063 $ DEASSIGN SYS$ERROR
1064 $ if (teststatus.nes."1")
1066 $! Okay, int64_t failed. Must not exist
1067 $ perl_d_int64_t = "undef"
1069 $ perl_d_int64_t="define"
1071 $ WRITE_RESULT "d_int64_t is ''perl_d_int64_t'"
1073 $! Check to see if off64_t exists
1077 $ WS "#include <stdlib.h>
1079 $ WS "#include <stdio.h>
1080 $ WS "#include <types.h>
1081 $ WS "#''perl_i_inttypes IIH
1083 $ WS "#include <inttypes.h>
1085 $ WS "#include <unistd.h>
1092 $ DEFINE SYS$ERROR _NLA0:
1093 $ DEFINE SYS$OUTPUT _NLA0:
1094 $ on error then continue
1095 $ on warning then continue
1097 $ teststatus = f$extract(9,1,$status)
1098 $ DEASSIGN SYS$OUTPUT
1099 $ DEASSIGN SYS$ERROR
1100 $ if (teststatus.nes."1")
1102 $! Okay, off64_t failed. Must not exist
1103 $ perl_d_off64_t = "undef"
1105 $ perl_d_off64_t="define"
1107 $ WRITE_RESULT "d_off64_t is ''perl_d_off64_t'"
1109 $! Check to see if fpos64_t exists
1113 $ WS "#include <stdlib.h>
1115 $ WS "#include <stdio.h>
1116 $ WS "#include <types.h>
1117 $ WS "#''perl_i_inttypes IIH
1119 $ WS "#include <inttypes.h>
1121 $ WS "#include <unistd.h>
1128 $ DEFINE SYS$ERROR _NLA0:
1129 $ DEFINE SYS$OUTPUT _NLA0:
1130 $ on error then continue
1131 $ on warning then continue
1133 $ teststatus = f$extract(9,1,$status)
1134 $ DEASSIGN SYS$OUTPUT
1135 $ DEASSIGN SYS$ERROR
1136 $ if (teststatus.nes."1")
1138 $! Okay, fpos64_t failed. Must not exist
1139 $ perl_d_fpos64_t = "undef"
1141 $ perl_d_fpos64_t="define"
1143 $ WRITE_RESULT "d_fpos64_t is ''perl_d_fpos64_t'"
1145 $! Check to see if gethostname exists
1147 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1151 $ WS "#include <stdlib.h>
1153 $ WS "#include <stdio.h>
1154 $ WS "#include <types.h>
1155 $ WS "#include <unistd.h>
1156 $ if ("''Has_Socketshr'".eqs."T")
1158 $ WS "#include <socketshr.h>"
1160 $ WS "#include <time.h>
1161 $ WS "#include <socket.h>
1165 $ WS "char name[100];
1168 $ WS "baz = gethostname(name, bar);
1172 $ DEFINE SYS$ERROR _NLA0:
1173 $ DEFINE SYS$OUTPUT _NLA0:
1174 $ on error then continue
1175 $ on warning then continue
1177 $ teststatus = f$extract(9,1,$status)
1178 $ DEASSIGN SYS$OUTPUT
1179 $ DEASSIGN SYS$ERROR
1180 $ if (teststatus.nes."1")
1182 $! Okay, compile failed. Must not have it
1183 $ perl_dgethname = "undef"
1185 $ If (Needs_Opt.eqs."Yes")
1187 $ link temp.obj,temp.opt/opt
1191 $ savedstatus = $status
1192 $ teststatus = f$extract(9,1,savedstatus)
1193 $ if (teststatus.nes."1")
1195 $ perl_d_gethname="undef"
1197 $ perl_d_gethname="define"
1201 $ ! No sockets, so no gethname
1202 $ perl_d_gethname = "undef"
1204 $ WRITE_RESULT "d_gethname is ''perl_d_gethname'"
1206 $! Check for sys/file.h
1210 $ WS "#include <stdlib.h>
1212 $ WS "#include <stdio.h>
1213 $ WS "#include <unistd.h>
1214 $ WS "#include <sys/file.h>
1220 $ DEFINE SYS$ERROR _NLA0:
1221 $ DEFINE SYS$OUTPUT _NLA0:
1222 $ on error then continue
1223 $ on warning then continue
1225 $ savedstatus = $status
1226 $ teststatus = f$extract(9,1,savedstatus)
1227 $ if (teststatus.nes."1")
1229 $ perl_i_sysfile="undef"
1230 $ DEASSIGN SYS$OUTPUT
1231 $ DEASSIGN SYS$ERROR
1233 $ If (Needs_Opt.eqs."Yes")
1235 $ link temp.obj,temp.opt/opt
1239 $ savedstatus = $status
1240 $ teststatus = f$extract(9,1,savedstatus)
1241 $ DEASSIGN SYS$OUTPUT
1242 $ DEASSIGN SYS$ERROR
1243 $ if (teststatus.nes."1")
1245 $ perl_i_sysfile="undef"
1247 $ perl_i_sysfile="define"
1250 $ WRITE_RESULT "i_sysfile is ''perl_i_sysfile'"
1252 $! Check for sys/utsname.h
1256 $ WS "#include <stdlib.h>
1258 $ WS "#include <stdio.h>
1259 $ WS "#include <unistd.h>
1260 $ WS "#include <sys/utsname.h>
1266 $ DEFINE SYS$ERROR _NLA0:
1267 $ DEFINE SYS$OUTPUT _NLA0:
1268 $ on error then continue
1269 $ on warning then continue
1271 $ savedstatus = $status
1272 $ teststatus = f$extract(9,1,savedstatus)
1273 $ if (teststatus.nes."1")
1275 $ perl_i_sysutsname="undef"
1276 $ DEASSIGN SYS$OUTPUT
1277 $ DEASSIGN SYS$ERROR
1279 $ If (Needs_Opt.eqs."Yes")
1281 $ link temp.obj,temp.opt/opt
1285 $ savedstatus = $status
1286 $ teststatus = f$extract(9,1,savedstatus)
1287 $ DEASSIGN SYS$OUTPUT
1288 $ DEASSIGN SYS$ERROR
1289 $ if (teststatus.nes."1")
1291 $ perl_i_sysutsname="undef"
1293 $ perl_i_sysutsname="define"
1296 $ WRITE_RESULT "i_sysutsname is ''perl_i_sysutsname'"
1298 $! Check for syslog.h
1302 $ WS "#include <stdlib.h>
1304 $ WS "#include <stdio.h>
1305 $ WS "#include <unistd.h>
1306 $ WS "#include <syslog.h>
1312 $ DEFINE SYS$ERROR _NLA0:
1313 $ DEFINE SYS$OUTPUT _NLA0:
1314 $ on error then continue
1315 $ on warning then continue
1317 $ savedstatus = $status
1318 $ teststatus = f$extract(9,1,savedstatus)
1319 $ if (teststatus.nes."1")
1321 $ perl_i_syslog="undef"
1322 $ DEASSIGN SYS$OUTPUT
1323 $ DEASSIGN SYS$ERROR
1325 $ If (Needs_Opt.eqs."Yes")
1327 $ link temp.obj,temp.opt/opt
1331 $ savedstatus = $status
1332 $ teststatus = f$extract(9,1,savedstatus)
1333 $ DEASSIGN SYS$OUTPUT
1334 $ DEASSIGN SYS$ERROR
1335 $ if (teststatus.nes."1")
1337 $ perl_i_syslog="undef"
1339 $ perl_i_syslog="define"
1342 $ WRITE_RESULT "i_syslog is ''perl_i_syslog'"
1348 $ WS "#include <stdlib.h>
1350 $ WS "#include <stdio.h>
1351 $ WS "#include <unistd.h>
1352 $ WS "#include <poll.h>
1358 $ DEFINE SYS$ERROR _NLA0:
1359 $ DEFINE SYS$OUTPUT _NLA0:
1360 $ on error then continue
1361 $ on warning then continue
1363 $ savedstatus = $status
1364 $ teststatus = f$extract(9,1,savedstatus)
1365 $ if (teststatus.nes."1")
1367 $ perl_i_poll="undef"
1368 $ DEASSIGN SYS$OUTPUT
1369 $ DEASSIGN SYS$ERROR
1371 $ If (Needs_Opt.eqs."Yes")
1373 $ link temp.obj,temp.opt/opt
1377 $ savedstatus = $status
1378 $ teststatus = f$extract(9,1,savedstatus)
1379 $ DEASSIGN SYS$OUTPUT
1380 $ DEASSIGN SYS$ERROR
1381 $ if (teststatus.nes."1")
1383 $ perl_i_poll="undef"
1385 $ perl_i_poll="define"
1388 $ WRITE_RESULT "i_poll is ''perl_i_poll'"
1390 $! Check for sys/uio.h
1394 $ WS "#include <stdlib.h>
1396 $ WS "#include <stdio.h>
1397 $ WS "#include <unistd.h>
1398 $ WS "#include <sys/uio.h>
1404 $ DEFINE SYS$ERROR _NLA0:
1405 $ DEFINE SYS$OUTPUT _NLA0:
1406 $ on error then continue
1407 $ on warning then continue
1409 $ savedstatus = $status
1410 $ teststatus = f$extract(9,1,savedstatus)
1411 $ if (teststatus.nes."1")
1413 $ perl_i_sysuio="undef"
1414 $ DEASSIGN SYS$OUTPUT
1415 $ DEASSIGN SYS$ERROR
1417 $ If (Needs_Opt.eqs."Yes")
1419 $ link temp.obj,temp.opt/opt
1423 $ savedstatus = $status
1424 $ teststatus = f$extract(9,1,savedstatus)
1425 $ DEASSIGN SYS$OUTPUT
1426 $ DEASSIGN SYS$ERROR
1427 $ if (teststatus.nes."1")
1429 $ perl_i_sysuio="undef"
1431 $ perl_i_sysuio="define"
1434 $ WRITE_RESULT "i_sysuio is ''perl_i_sysuio'"
1436 $! Check for sys/mode.h
1440 $ WS "#include <stdlib.h>
1442 $ WS "#include <stdio.h>
1443 $ WS "#include <unistd.h>
1444 $ WS "#include <sys/mode.h>
1450 $ DEFINE SYS$ERROR _NLA0:
1451 $ DEFINE SYS$OUTPUT _NLA0:
1452 $ on error then continue
1453 $ on warning then continue
1455 $ savedstatus = $status
1456 $ teststatus = f$extract(9,1,savedstatus)
1457 $ if (teststatus.nes."1")
1459 $ perl_i_sysmode="undef"
1460 $ DEASSIGN SYS$OUTPUT
1461 $ DEASSIGN SYS$ERROR
1463 $ If (Needs_Opt.eqs."Yes")
1465 $ link temp.obj,temp.opt/opt
1469 $ savedstatus = $status
1470 $ teststatus = f$extract(9,1,savedstatus)
1471 $ DEASSIGN SYS$OUTPUT
1472 $ DEASSIGN SYS$ERROR
1473 $ if (teststatus.nes."1")
1475 $ perl_i_sysmode="undef"
1477 $ perl_i_sysmode="define"
1480 $ WRITE_RESULT "i_sysmode is ''perl_i_sysmode'"
1482 $! Check for sys/access.h
1486 $ WS "#include <stdlib.h>
1488 $ WS "#include <stdio.h>
1489 $ WS "#include <unistd.h>
1490 $ WS "#include <sys/access.h>
1496 $ DEFINE SYS$ERROR _NLA0:
1497 $ DEFINE SYS$OUTPUT _NLA0:
1498 $ on error then continue
1499 $ on warning then continue
1501 $ savedstatus = $status
1502 $ teststatus = f$extract(9,1,savedstatus)
1503 $ if (teststatus.nes."1")
1505 $ perl_i_sysaccess="undef"
1506 $ DEASSIGN SYS$OUTPUT
1507 $ DEASSIGN SYS$ERROR
1509 $ If (Needs_Opt.eqs."Yes")
1511 $ link temp.obj,temp.opt/opt
1515 $ savedstatus = $status
1516 $ teststatus = f$extract(9,1,savedstatus)
1517 $ DEASSIGN SYS$OUTPUT
1518 $ DEASSIGN SYS$ERROR
1519 $ if (teststatus.nes."1")
1521 $ perl_i_sysaccess="undef"
1523 $ perl_i_sysaccess="define"
1526 $ WRITE_RESULT "i_sysaccess is ''perl_i_sysaccess'"
1528 $! Check for sys/security.h
1532 $ WS "#include <stdlib.h>
1534 $ WS "#include <stdio.h>
1535 $ WS "#include <unistd.h>
1536 $ WS "#include <sys/security.h>
1542 $ DEFINE SYS$ERROR _NLA0:
1543 $ DEFINE SYS$OUTPUT _NLA0:
1544 $ on error then continue
1545 $ on warning then continue
1547 $ savedstatus = $status
1548 $ teststatus = f$extract(9,1,savedstatus)
1549 $ if (teststatus.nes."1")
1551 $ perl_i_syssecrt="undef"
1552 $ DEASSIGN SYS$OUTPUT
1553 $ DEASSIGN SYS$ERROR
1555 $ If (Needs_Opt.eqs."Yes")
1557 $ link temp.obj,temp.opt/opt
1561 $ savedstatus = $status
1562 $ teststatus = f$extract(9,1,savedstatus)
1563 $ DEASSIGN SYS$OUTPUT
1564 $ DEASSIGN SYS$ERROR
1565 $ if (teststatus.nes."1")
1567 $ perl_i_syssecrt="undef"
1569 $ perl_i_syssecrt="define"
1572 $ WRITE_RESULT "i_syssecrt is ''perl_i_syssecrt'"
1574 $! Check for fcntl.h
1578 $ WS "#include <stdlib.h>
1580 $ WS "#include <stdio.h>
1581 $ WS "#include <unistd.h>
1582 $ WS "#include <fcntl.h>
1588 $ DEFINE SYS$ERROR _NLA0:
1589 $ DEFINE SYS$OUTPUT _NLA0:
1590 $ on error then continue
1591 $ on warning then continue
1593 $ savedstatus = $status
1594 $ teststatus = f$extract(9,1,savedstatus)
1595 $ if (teststatus.nes."1")
1597 $ perl_i_fcntl="undef"
1598 $ DEASSIGN SYS$OUTPUT
1599 $ DEASSIGN SYS$ERROR
1601 $ If (Needs_Opt.eqs."Yes")
1603 $ link temp.obj,temp.opt/opt
1607 $ savedstatus = $status
1608 $ teststatus = f$extract(9,1,savedstatus)
1609 $ DEASSIGN SYS$OUTPUT
1610 $ DEASSIGN SYS$ERROR
1611 $ if (teststatus.nes."1")
1613 $ perl_i_fcntl="undef"
1615 $ perl_i_fcntl="define"
1618 $ WRITE_RESULT "i_fcntl is ''perl_i_fcntl'"
1624 $ WS "#include <stdlib.h>
1626 $ WS "#include <stdio.h>
1627 $ WS "#include <unistd.h>
1628 $ WS "#include <fcntl.h>
1635 $ DEFINE SYS$ERROR _NLA0:
1636 $ DEFINE SYS$OUTPUT _NLA0:
1637 $ on error then continue
1638 $ on warning then continue
1640 $ savedstatus = $status
1641 $ teststatus = f$extract(9,1,savedstatus)
1642 $ if (teststatus.nes."1")
1644 $ perl_d_fcntl="undef"
1645 $ DEASSIGN SYS$OUTPUT
1646 $ DEASSIGN SYS$ERROR
1648 $ If (Needs_Opt.eqs."Yes")
1650 $ link temp.obj,temp.opt/opt
1654 $ savedstatus = $status
1655 $ teststatus = f$extract(9,1,savedstatus)
1656 $ DEASSIGN SYS$OUTPUT
1657 $ DEASSIGN SYS$ERROR
1658 $ if (teststatus.nes."1")
1660 $ perl_d_fcntl="undef"
1662 $ perl_d_fcntl="define"
1665 $ WRITE_RESULT "d_fcntl is ''perl_d_fcntl'"
1671 $ WS "#include <stdlib.h>
1673 $ WS "#include <string.h>
1677 $ WS "place = memchr(""foo"", 47, 3)
1681 $ DEFINE SYS$ERROR _NLA0:
1682 $ DEFINE SYS$OUTPUT _NLA0:
1683 $ on error then continue
1684 $ on warning then continue
1686 $ savedstatus = $status
1687 $ teststatus = f$extract(9,1,savedstatus)
1688 $ if (teststatus.nes."1")
1690 $ perl_d_memchr="undef"
1691 $ DEASSIGN SYS$OUTPUT
1692 $ DEASSIGN SYS$ERROR
1694 $ If (Needs_Opt.eqs."Yes")
1696 $ link temp.obj,temp.opt/opt
1700 $ savedstatus = $status
1701 $ teststatus = f$extract(9,1,savedstatus)
1702 $ DEASSIGN SYS$OUTPUT
1703 $ DEASSIGN SYS$ERROR
1704 $ if (teststatus.nes."1")
1706 $ perl_d_memchr="undef"
1708 $ perl_d_memchr="define"
1711 $ WRITE_RESULT "d_memchr is ''perl_d_memchr'"
1713 $! Check for strtoull
1717 $ WS "#include <stdlib.h>
1719 $ WS "#include <string.h>
1722 $ WS "unsigned __int64 result;
1723 $ WS "result = strtoull(""123123"", NULL, 10);
1727 $ DEFINE SYS$ERROR _NLA0:
1728 $ DEFINE SYS$OUTPUT _NLA0:
1729 $ on error then continue
1730 $ on warning then continue
1732 $ savedstatus = $status
1733 $ teststatus = f$extract(9,1,savedstatus)
1734 $ if (teststatus.nes."1")
1736 $ perl_d_strtoull="undef"
1737 $ DEASSIGN SYS$OUTPUT
1738 $ DEASSIGN SYS$ERROR
1740 $ If (Needs_Opt.eqs."Yes")
1742 $ link temp.obj,temp.opt/opt
1746 $ savedstatus = $status
1747 $ teststatus = f$extract(9,1,savedstatus)
1748 $ DEASSIGN SYS$OUTPUT
1749 $ DEASSIGN SYS$ERROR
1750 $ if (teststatus.nes."1")
1752 $ perl_d_strtoull="undef"
1754 $ perl_d_strtoull="define"
1757 $ WRITE_RESULT "d_strtoull is ''perl_d_strtoull'"
1759 $! Check for strtouq
1763 $ WS "#include <stdlib.h>
1765 $ WS "#include <string.h>
1768 $ WS "unsigned __int64 result;
1769 $ WS "result = strtouq(""123123"", NULL, 10);
1773 $ DEFINE SYS$ERROR _NLA0:
1774 $ DEFINE SYS$OUTPUT _NLA0:
1775 $ on error then continue
1776 $ on warning then continue
1778 $ savedstatus = $status
1779 $ teststatus = f$extract(9,1,savedstatus)
1780 $ if (teststatus.nes."1")
1782 $ perl_d_strtouq="undef"
1783 $ DEASSIGN SYS$OUTPUT
1784 $ DEASSIGN SYS$ERROR
1786 $ If (Needs_Opt.eqs."Yes")
1788 $ link temp.obj,temp.opt/opt
1792 $ savedstatus = $status
1793 $ teststatus = f$extract(9,1,savedstatus)
1794 $ DEASSIGN SYS$OUTPUT
1795 $ DEASSIGN SYS$ERROR
1796 $ if (teststatus.nes."1")
1798 $ perl_d_strtouq="undef"
1800 $ perl_d_strtouq="define"
1803 $ WRITE_RESULT "d_strtouq is ''perl_d_strtouq'"
1805 $! Check for strtoll
1809 $ WS "#include <stdlib.h>
1811 $ WS "#include <string.h>
1814 $ WS "__int64 result;
1815 $ WS "result = strtoll(""123123"", NULL, 10);
1819 $ DEFINE SYS$ERROR _NLA0:
1820 $ DEFINE SYS$OUTPUT _NLA0:
1821 $ on error then continue
1822 $ on warning then continue
1824 $ savedstatus = $status
1825 $ teststatus = f$extract(9,1,savedstatus)
1826 $ if (teststatus.nes."1")
1828 $ perl_d_strtoll="undef"
1829 $ DEASSIGN SYS$OUTPUT
1830 $ DEASSIGN SYS$ERROR
1832 $ If (Needs_Opt.eqs."Yes")
1834 $ link temp.obj,temp.opt/opt
1838 $ savedstatus = $status
1839 $ teststatus = f$extract(9,1,savedstatus)
1840 $ DEASSIGN SYS$OUTPUT
1841 $ DEASSIGN SYS$ERROR
1842 $ if (teststatus.nes."1")
1844 $ perl_d_strtoll="undef"
1846 $ perl_d_strtoll="define"
1849 $ WRITE_RESULT "d_strtoll is ''perl_d_strtoll'"
1851 $! Check for strtold
1855 $ WS "#include <stdlib.h>
1857 $ WS "#include <string.h>
1860 $ WS "long double result;
1861 $ WS "result = strtold(""123123"", NULL, 10);
1865 $ DEFINE SYS$ERROR _NLA0:
1866 $ DEFINE SYS$OUTPUT _NLA0:
1867 $ on error then continue
1868 $ on warning then continue
1870 $ savedstatus = $status
1871 $ teststatus = f$extract(9,1,savedstatus)
1872 $ if (teststatus.nes."1")
1874 $ perl_d_strtold="undef"
1875 $ DEASSIGN SYS$OUTPUT
1876 $ DEASSIGN SYS$ERROR
1878 $ If (Needs_Opt.eqs."Yes")
1880 $ link temp.obj,temp.opt/opt
1884 $ savedstatus = $status
1885 $ teststatus = f$extract(9,1,savedstatus)
1886 $ DEASSIGN SYS$OUTPUT
1887 $ DEASSIGN SYS$ERROR
1888 $ if (teststatus.nes."1")
1890 $ perl_d_strtold="undef"
1892 $ perl_d_strtold="define"
1895 $ WRITE_RESULT "d_strtold is ''perl_d_strtold'"
1901 $ WS "#include <stdlib.h>
1903 $ WS "#include <string.h>
1906 $ WS " __int64 result;
1907 $ WS "result = atoll(""123123"");
1911 $ DEFINE SYS$ERROR _NLA0:
1912 $ DEFINE SYS$OUTPUT _NLA0:
1913 $ on error then continue
1914 $ on warning then continue
1916 $ savedstatus = $status
1917 $ teststatus = f$extract(9,1,savedstatus)
1918 $ if (teststatus.nes."1")
1920 $ perl_d_atoll="undef"
1921 $ DEASSIGN SYS$OUTPUT
1922 $ DEASSIGN SYS$ERROR
1924 $ If (Needs_Opt.eqs."Yes")
1926 $ link temp.obj,temp.opt/opt
1930 $ savedstatus = $status
1931 $ teststatus = f$extract(9,1,savedstatus)
1932 $ DEASSIGN SYS$OUTPUT
1933 $ DEASSIGN SYS$ERROR
1934 $ if (teststatus.nes."1")
1936 $ perl_d_atoll="undef"
1938 $ perl_d_atoll="define"
1941 $ WRITE_RESULT "d_atoll is ''perl_d_atoll'"
1947 $ WS "#include <stdlib.h>
1949 $ WS "#include <string.h>
1953 $ WS "result = atolf(""123123"");
1957 $ DEFINE SYS$ERROR _NLA0:
1958 $ DEFINE SYS$OUTPUT _NLA0:
1959 $ on error then continue
1960 $ on warning then continue
1962 $ savedstatus = $status
1963 $ teststatus = f$extract(9,1,savedstatus)
1964 $ if (teststatus.nes."1")
1966 $ perl_d_atolf="undef"
1967 $ DEASSIGN SYS$OUTPUT
1968 $ DEASSIGN SYS$ERROR
1970 $ If (Needs_Opt.eqs."Yes")
1972 $ link temp.obj,temp.opt/opt
1976 $ savedstatus = $status
1977 $ teststatus = f$extract(9,1,savedstatus)
1978 $ DEASSIGN SYS$OUTPUT
1979 $ DEASSIGN SYS$ERROR
1980 $ if (teststatus.nes."1")
1982 $ perl_d_atolf="undef"
1984 $ perl_d_atolf="define"
1987 $ WRITE_RESULT "d_atolf is ''perl_d_atolf'"
1993 $ WS "#include <stdlib.h>
1995 $ WS "#include <stdio.h>
1996 $ WS "#include <unistd.h>
1999 $ WS "access("foo", F_OK);
2003 $ DEFINE SYS$ERROR _NLA0:
2004 $ DEFINE SYS$OUTPUT _NLA0:
2005 $ on error then continue
2006 $ on warning then continue
2008 $ savedstatus = $status
2009 $ teststatus = f$extract(9,1,savedstatus)
2010 $ if (teststatus.nes."1")
2012 $ perl_d_access="undef"
2013 $ DEASSIGN SYS$OUTPUT
2014 $ DEASSIGN SYS$ERROR
2016 $ If (Needs_Opt.eqs."Yes")
2018 $ link temp.obj,temp.opt/opt
2022 $ savedstatus = $status
2023 $ teststatus = f$extract(9,1,savedstatus)
2024 $ DEASSIGN SYS$OUTPUT
2025 $ DEASSIGN SYS$ERROR
2026 $ if (teststatus.nes."1")
2028 $ perl_d_access="undef"
2030 $ perl_d_access="define"
2033 $ WRITE_RESULT "d_access is ''perl_d_access'"
2039 $ WS "#include <stdlib.h>
2041 $ WS "#include <stdio.h>
2042 $ WS "#include <strings.h>
2046 $ WS "bzero(foo, 10);
2050 $ DEFINE SYS$ERROR _NLA0:
2051 $ DEFINE SYS$OUTPUT _NLA0:
2052 $ on error then continue
2053 $ on warning then continue
2055 $ savedstatus = $status
2056 $ teststatus = f$extract(9,1,savedstatus)
2057 $ if (teststatus.nes."1")
2059 $ perl_d_bzero="undef"
2060 $ DEASSIGN SYS$OUTPUT
2061 $ DEASSIGN SYS$ERROR
2063 $ If (Needs_Opt.eqs."Yes")
2065 $ link temp.obj,temp.opt/opt
2069 $ savedstatus = $status
2070 $ teststatus = f$extract(9,1,savedstatus)
2071 $ DEASSIGN SYS$OUTPUT
2072 $ DEASSIGN SYS$ERROR
2073 $ if (teststatus.nes."1")
2075 $ perl_d_bzero="undef"
2077 $ perl_d_bzero="define"
2080 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
2086 $ WS "#include <stdlib.h>
2088 $ WS "#include <stdio.h>
2089 $ WS "#include <strings.h>
2092 $ WS "char foo[10], bar[10];
2093 $ WS "bcopy(""foo"", bar, 3);
2097 $ DEFINE SYS$ERROR _NLA0:
2098 $ DEFINE SYS$OUTPUT _NLA0:
2099 $ on error then continue
2100 $ on warning then continue
2102 $ savedstatus = $status
2103 $ teststatus = f$extract(9,1,savedstatus)
2104 $ if (teststatus.nes."1")
2106 $ perl_d_bcopy="undef"
2107 $ DEASSIGN SYS$OUTPUT
2108 $ DEASSIGN SYS$ERROR
2110 $ If (Needs_Opt.eqs."Yes")
2112 $ link temp.obj,temp.opt/opt
2116 $ savedstatus = $status
2117 $ teststatus = f$extract(9,1,savedstatus)
2118 $ DEASSIGN SYS$OUTPUT
2119 $ DEASSIGN SYS$ERROR
2120 $ if (teststatus.nes."1")
2122 $ perl_d_bcopy="undef"
2124 $ perl_d_bcopy="define"
2127 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
2129 $! Check for mkstemp
2133 $ WS "#include <stdlib.h>
2135 $ WS "#include <stdio.h>
2138 $ WS "mkstemp(""foo"");
2142 $ DEFINE SYS$ERROR _NLA0:
2143 $ DEFINE SYS$OUTPUT _NLA0:
2144 $ on error then continue
2145 $ on warning then continue
2147 $ If (Needs_Opt.eqs."Yes")
2149 $ link temp.obj,temp.opt/opt
2153 $ savedstatus = $status
2154 $ teststatus = f$extract(9,1,savedstatus)
2155 $ DEASSIGN SYS$OUTPUT
2156 $ DEASSIGN SYS$ERROR
2157 $ if (teststatus.nes."1")
2159 $ perl_d_mkstemp="undef"
2161 $ perl_d_mkstemp="define"
2163 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
2165 $! Check for mkstemps
2169 $ WS "#include <stdlib.h>
2171 $ WS "#include <stdio.h>
2174 $ WS "mkstemps(""foo"", 1);
2178 $ DEFINE SYS$ERROR _NLA0:
2179 $ DEFINE SYS$OUTPUT _NLA0:
2180 $ on error then continue
2181 $ on warning then continue
2183 $ If (Needs_Opt.eqs."Yes")
2185 $ link temp.obj,temp.opt/opt
2189 $ savedstatus = $status
2190 $ teststatus = f$extract(9,1,savedstatus)
2191 $ DEASSIGN SYS$OUTPUT
2192 $ DEASSIGN SYS$ERROR
2193 $ if (teststatus.nes."1")
2195 $ perl_d_mkstemps="undef"
2197 $ perl_d_mkstemps="define"
2199 $ WRITE_RESULT "d_mkstemps is ''perl_d_mkstemps'"
2205 $ WS "#include <stdlib.h>
2207 $ WS "#include <stdio.h>
2208 $ WS "#include <iconv.h>
2211 $ WS " iconv_t cd = (iconv_t)0;"
2212 $ WS " char *inbuf, *outbuf;"
2213 $ WS " size_t inleft, outleft;"
2214 $ WS " iconv(cd, &inbuf, &inleft, &outbuf, &outleft);"
2218 $ DEFINE SYS$ERROR _NLA0:
2219 $ DEFINE SYS$OUTPUT _NLA0:
2220 $ on error then continue
2221 $ on warning then continue
2223 $ savedstatus = $status
2224 $ teststatus = f$extract(9,1,savedstatus)
2225 $ if (teststatus.nes."1")
2227 $ perl_d_iconv="undef"
2228 $ perl_i_iconv="undef"
2229 $ DEASSIGN SYS$OUTPUT
2230 $ DEASSIGN SYS$ERROR
2232 $ If (Needs_Opt.eqs."Yes")
2234 $ link temp.obj,temp.opt/opt
2238 $ savedstatus = $status
2239 $ teststatus = f$extract(9,1,savedstatus)
2240 $ DEASSIGN SYS$OUTPUT
2241 $ DEASSIGN SYS$ERROR
2242 $ if (teststatus.nes."1")
2244 $ perl_d_iconv="undef"
2245 $ perl_i_iconv="undef"
2247 $ perl_d_iconv="define"
2248 $ perl_i_iconv="define"
2251 $ WRITE_RESULT "d_iconv is ''perl_d_iconv'"
2252 $ WRITE_RESULT "i_iconv is ''perl_i_iconv'"
2254 $! Check for mkdtemp
2258 $ WS "#include <stdlib.h>
2260 $ WS "#include <stdio.h>
2263 $ WS "mkdtemp(""foo"");
2267 $ DEFINE SYS$ERROR _NLA0:
2268 $ DEFINE SYS$OUTPUT _NLA0:
2269 $ on error then continue
2270 $ on warning then continue
2272 $ If (Needs_Opt.eqs."Yes")
2274 $ link temp.obj,temp.opt/opt
2278 $ savedstatus = $status
2279 $ teststatus = f$extract(9,1,savedstatus)
2280 $ DEASSIGN SYS$OUTPUT
2281 $ DEASSIGN SYS$ERROR
2282 $ if (teststatus.nes."1")
2284 $ perl_d_mkdtemp="undef"
2286 $ perl_d_mkdtemp="define"
2288 $ WRITE_RESULT "d_mkdtemp is ''perl_d_mkdtemp'"
2290 $! Check for setvbuf
2294 $ WS "#include <stdlib.h>
2296 $ WS "#include <stdio.h>
2300 $ WS "char Buffer[99];
2301 $ WS "foo = fopen(""foo"", ""r"");
2302 $ WS "setvbuf(foo, Buffer, 0, 0);
2306 $ DEFINE SYS$ERROR _NLA0:
2307 $ DEFINE SYS$OUTPUT _NLA0:
2308 $ on error then continue
2309 $ on warning then continue
2311 $ If (Needs_Opt.eqs."Yes")
2313 $ link temp.obj,temp.opt/opt
2317 $ teststatus = f$extract(9,1,$status)
2318 $ DEASSIGN SYS$OUTPUT
2319 $ DEASSIGN SYS$ERROR
2320 $ if (teststatus.nes."1")
2322 $ perl_d_setvbuf="undef"
2324 $ perl_d_setvbuf="define"
2326 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
2332 $ WS "#include <stdlib.h>
2334 $ WS "#include <stdio.h>
2337 $ WS "setenv(""FOO"", ""BAR"", 0);
2341 $ DEFINE SYS$ERROR _NLA0:
2342 $ DEFINE SYS$OUTPUT _NLA0:
2343 $ on error then continue
2344 $ on warning then continue
2346 $ If (Needs_Opt.eqs."Yes")
2348 $ link temp,temp/opt
2352 $ teststatus = f$extract(9,1,$status)
2353 $ DEASSIGN SYS$OUTPUT
2354 $ DEASSIGN SYS$ERROR
2355 $ if (teststatus.nes."1")
2357 $ perl_d_setenv="undef"
2359 $ perl_d_setenv="define"
2361 $ WRITE_RESULT "d_setenv is ''perl_d_setenv'"
2363 $! Check for <netinet/in.h>
2365 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2369 $ WS "#include <stdlib.h>
2371 $ WS "#include <stdio.h>
2372 $ if ("''Has_Socketshr'".eqs."T")
2374 $ WS "#include <socketshr.h>"
2376 $ WS "#include <netdb.h>
2378 $ WS "#include <netinet/in.h>"
2384 $ DEFINE SYS$ERROR _NLA0:
2385 $ DEFINE SYS$OUTPUT _NLA0:
2386 $ on error then continue
2387 $ on warning then continue
2389 $ If (Needs_Opt.eqs."Yes")
2391 $ link temp.obj,temp.opt/opt
2395 $ teststatus = f$extract(9,1,$status)
2396 $ DEASSIGN SYS$OUTPUT
2397 $ DEASSIGN SYS$ERROR
2398 $ if (teststatus.nes."1")
2400 $ perl_i_niin="undef"
2402 $ perl_i_niin="define"
2405 $ perl_i_niin="undef"
2407 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
2409 $! Check for <netinet/tcp.h>
2411 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2415 $ WS "#include <stdlib.h>
2417 $ WS "#include <stdio.h>
2418 $ if ("''Has_Socketshr'".eqs."T")
2420 $ WS "#include <socketshr.h>"
2422 $ WS "#include <netdb.h>
2424 $ WS "#include <netinet/tcp.h>"
2430 $ DEFINE SYS$ERROR _NLA0:
2431 $ DEFINE SYS$OUTPUT _NLA0:
2432 $ on error then continue
2433 $ on warning then continue
2435 $ If (Needs_Opt.eqs."Yes")
2437 $ link temp.obj,temp.opt/opt
2441 $ teststatus = f$extract(9,1,$status)
2442 $ DEASSIGN SYS$OUTPUT
2443 $ DEASSIGN SYS$ERROR
2444 $ if (teststatus.nes."1")
2446 $ perl_i_netinettcp="undef"
2448 $ perl_i_netinettcp="define"
2451 $ perl_i_netinettcp="undef"
2453 $ WRITE_RESULT "i_netinettcp is ''perl_i_netinettcp'"
2455 $! Check for endhostent
2457 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2461 $ WS "#include <stdlib.h>
2463 $ WS "#include <stdio.h>
2464 $ if ("''Has_Socketshr'".eqs."T")
2466 $ WS "#include <socketshr.h>"
2468 $ WS "#include <netdb.h>
2476 $ DEFINE SYS$ERROR _NLA0:
2477 $ DEFINE SYS$OUTPUT _NLA0:
2478 $ on error then continue
2479 $ on warning then continue
2481 $ If (Needs_Opt.eqs."Yes")
2483 $ link temp.obj,temp.opt/opt
2487 $ teststatus = f$extract(9,1,$status)
2488 $ DEASSIGN SYS$OUTPUT
2489 $ DEASSIGN SYS$ERROR
2490 $ if (teststatus.nes."1")
2492 $ perl_d_endhent="undef"
2494 $ perl_d_endhent="define"
2497 $ perl_d_endhent="undef"
2499 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
2501 $! Check for endnetent
2503 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2507 $ WS "#include <stdlib.h>
2509 $ WS "#include <stdio.h>
2510 $ if ("''Has_Socketshr'".eqs."T")
2512 $ WS "#include <socketshr.h>"
2514 $ WS "#include <netdb.h>
2522 $ DEFINE SYS$ERROR _NLA0:
2523 $ DEFINE SYS$OUTPUT _NLA0:
2524 $ on error then continue
2525 $ on warning then continue
2527 $ If (Needs_Opt.eqs."Yes")
2529 $ link temp.obj,temp.opt/opt
2533 $ teststatus = f$extract(9,1,$status)
2534 $ DEASSIGN SYS$OUTPUT
2535 $ DEASSIGN SYS$ERROR
2536 $ if (teststatus.nes."1")
2538 $ perl_d_endnent="undef"
2540 $ perl_d_endnent="define"
2543 $ perl_d_endnent="undef"
2545 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
2547 $! Check for endprotoent
2549 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2553 $ WS "#include <stdlib.h>
2555 $ WS "#include <stdio.h>
2556 $ if ("''Has_Socketshr'".eqs."T")
2558 $ WS "#include <socketshr.h>"
2560 $ WS "#include <netdb.h>
2564 $ WS "endprotoent();
2568 $ DEFINE SYS$ERROR _NLA0:
2569 $ DEFINE SYS$OUTPUT _NLA0:
2570 $ on error then continue
2571 $ on warning then continue
2573 $ If (Needs_Opt.eqs."Yes")
2575 $ link temp.obj,temp.opt/opt
2579 $ teststatus = f$extract(9,1,$status)
2580 $ DEASSIGN SYS$OUTPUT
2581 $ DEASSIGN SYS$ERROR
2582 $ if (teststatus.nes."1")
2584 $ perl_d_endpent="undef"
2586 $ perl_d_endpent="define"
2589 $ perl_d_endpent="undef"
2591 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
2593 $! Check for endservent
2595 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2599 $ WS "#include <stdlib.h>
2601 $ WS "#include <stdio.h>
2602 $ if ("''Has_Socketshr'".eqs."T")
2604 $ WS "#include <socketshr.h>"
2606 $ WS "#include <netdb.h>
2614 $ DEFINE SYS$ERROR _NLA0:
2615 $ DEFINE SYS$OUTPUT _NLA0:
2616 $ on error then continue
2617 $ on warning then continue
2619 $ If (Needs_Opt.eqs."Yes")
2621 $ link temp.obj,temp.opt/opt
2625 $ teststatus = f$extract(9,1,$status)
2626 $ DEASSIGN SYS$OUTPUT
2627 $ DEASSIGN SYS$ERROR
2628 $ if (teststatus.nes."1")
2630 $ perl_d_endsent="undef"
2632 $ perl_d_endsent="define"
2635 $ perl_d_endsent="undef"
2637 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
2639 $! Check for sethostent
2641 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2645 $ WS "#include <stdlib.h>
2647 $ WS "#include <stdio.h>
2648 $ if ("''Has_Socketshr'".eqs."T")
2650 $ WS "#include <socketshr.h>"
2652 $ WS "#include <netdb.h>
2656 $ WS "sethostent(1);
2660 $ DEFINE SYS$ERROR _NLA0:
2661 $ DEFINE SYS$OUTPUT _NLA0:
2662 $ on error then continue
2663 $ on warning then continue
2665 $ If (Needs_Opt.eqs."Yes")
2667 $ link temp.obj,temp.opt/opt
2671 $ teststatus = f$extract(9,1,$status)
2672 $ DEASSIGN SYS$OUTPUT
2673 $ DEASSIGN SYS$ERROR
2674 $ if (teststatus.nes."1")
2676 $ perl_d_sethent="undef"
2678 $ perl_d_sethent="define"
2681 $ perl_d_sethent="undef"
2683 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
2685 $! Check for setnetent
2687 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2691 $ WS "#include <stdlib.h>
2693 $ WS "#include <stdio.h>
2694 $ if ("''Has_Socketshr'".eqs."T")
2696 $ WS "#include <socketshr.h>"
2698 $ WS "#include <netdb.h>
2706 $ DEFINE SYS$ERROR _NLA0:
2707 $ DEFINE SYS$OUTPUT _NLA0:
2708 $ on error then continue
2709 $ on warning then continue
2711 $ If (Needs_Opt.eqs."Yes")
2713 $ link temp.obj,temp.opt/opt
2717 $ teststatus = f$extract(9,1,$status)
2718 $ DEASSIGN SYS$OUTPUT
2719 $ DEASSIGN SYS$ERROR
2720 $ if (teststatus.nes."1")
2722 $ perl_d_setnent="undef"
2724 $ perl_d_setnent="define"
2727 $ perl_d_setnent="undef"
2729 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
2731 $! Check for setprotoent
2733 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2737 $ WS "#include <stdlib.h>
2739 $ WS "#include <stdio.h>
2740 $ if ("''Has_Socketshr'".eqs."T")
2742 $ WS "#include <socketshr.h>"
2744 $ WS "#include <netdb.h>
2748 $ WS "setprotoent(1);
2752 $ DEFINE SYS$ERROR _NLA0:
2753 $ DEFINE SYS$OUTPUT _NLA0:
2754 $ on error then continue
2755 $ on warning then continue
2757 $ If (Needs_Opt.eqs."Yes")
2759 $ link temp.obj,temp.opt/opt
2763 $ teststatus = f$extract(9,1,$status)
2764 $ DEASSIGN SYS$OUTPUT
2765 $ DEASSIGN SYS$ERROR
2766 $ if (teststatus.nes."1")
2768 $ perl_d_setpent="undef"
2770 $ perl_d_setpent="define"
2773 $ perl_d_setpent="undef"
2775 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
2777 $! Check for setservent
2779 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2783 $ WS "#include <stdlib.h>
2785 $ WS "#include <stdio.h>
2786 $ if ("''Has_Socketshr'".eqs."T")
2788 $ WS "#include <socketshr.h>"
2790 $ WS "#include <netdb.h>
2794 $ WS "setservent(1);
2798 $ DEFINE SYS$ERROR _NLA0:
2799 $ DEFINE SYS$OUTPUT _NLA0:
2800 $ on error then continue
2801 $ on warning then continue
2803 $ If (Needs_Opt.eqs."Yes")
2805 $ link temp.obj,temp.opt/opt
2809 $ teststatus = f$extract(9,1,$status)
2810 $ DEASSIGN SYS$OUTPUT
2811 $ DEASSIGN SYS$ERROR
2812 $ if (teststatus.nes."1")
2814 $ perl_d_setsent="undef"
2816 $ perl_d_setsent="define"
2819 $ perl_d_setsent="undef"
2821 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
2823 $! Check for gethostent
2825 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2829 $ WS "#include <stdlib.h>
2831 $ WS "#include <stdio.h>
2832 $ if ("''Has_Socketshr'".eqs."T")
2834 $ WS "#include <socketshr.h>"
2836 $ WS "#include <netdb.h>
2844 $ DEFINE SYS$ERROR _NLA0:
2845 $ DEFINE SYS$OUTPUT _NLA0:
2846 $ on error then continue
2847 $ on warning then continue
2849 $ If (Needs_Opt.eqs."Yes")
2851 $ link temp.obj,temp.opt/opt
2855 $ teststatus = f$extract(9,1,$status)
2856 $ DEASSIGN SYS$OUTPUT
2857 $ DEASSIGN SYS$ERROR
2858 $ if (teststatus.nes."1")
2860 $ perl_d_gethent="undef"
2862 $ perl_d_gethent="define"
2865 $ perl_d_gethent="undef"
2867 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
2869 $! Check for getnetent
2871 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2875 $ WS "#include <stdlib.h>
2877 $ WS "#include <stdio.h>
2878 $ if ("''Has_Socketshr'".eqs."T")
2880 $ WS "#include <socketshr.h>"
2882 $ WS "#include <netdb.h>
2890 $ DEFINE SYS$ERROR _NLA0:
2891 $ DEFINE SYS$OUTPUT _NLA0:
2892 $ on error then continue
2893 $ on warning then continue
2895 $ If (Needs_Opt.eqs."Yes")
2897 $ link temp.obj,temp.opt/opt
2901 $ teststatus = f$extract(9,1,$status)
2902 $ DEASSIGN SYS$OUTPUT
2903 $ DEASSIGN SYS$ERROR
2904 $ if (teststatus.nes."1")
2906 $ perl_d_getnent="undef"
2908 $ perl_d_getnent="define"
2911 $ perl_d_getnent="undef"
2913 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
2915 $! Check for getprotoent
2917 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2921 $ WS "#include <stdlib.h>
2923 $ WS "#include <stdio.h>
2924 $ if ("''Has_Socketshr'".eqs."T")
2926 $ WS "#include <socketshr.h>"
2928 $ WS "#include <netdb.h>
2932 $ WS "getprotoent();
2936 $ DEFINE SYS$ERROR _NLA0:
2937 $ DEFINE SYS$OUTPUT _NLA0:
2938 $ on error then continue
2939 $ on warning then continue
2941 $ If (Needs_Opt.eqs."Yes")
2943 $ link temp.obj,temp.opt/opt
2947 $ teststatus = f$extract(9,1,$status)
2948 $ DEASSIGN SYS$OUTPUT
2949 $ DEASSIGN SYS$ERROR
2950 $ if (teststatus.nes."1")
2952 $ perl_d_getpent="undef"
2954 $ perl_d_getpent="define"
2957 $ perl_d_getpent="undef"
2959 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
2961 $! Check for getservent
2963 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2967 $ WS "#include <stdlib.h>
2969 $ WS "#include <stdio.h>
2970 $ if ("''Has_Socketshr'".eqs."T")
2972 $ WS "#include <socketshr.h>"
2974 $ WS "#include <netdb.h>
2982 $ DEFINE SYS$ERROR _NLA0:
2983 $ DEFINE SYS$OUTPUT _NLA0:
2984 $ on error then continue
2985 $ on warning then continue
2987 $ If (Needs_Opt.eqs."Yes")
2989 $ link temp.obj,temp.opt/opt
2993 $ teststatus = f$extract(9,1,$status)
2994 $ DEASSIGN SYS$OUTPUT
2995 $ DEASSIGN SYS$ERROR
2996 $ if (teststatus.nes."1")
2998 $ perl_d_getsent="undef"
3000 $ perl_d_getsent="define"
3003 $ perl_d_getsent="undef"
3005 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
3007 $! Check for socklen_t
3009 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
3013 $ WS "#include <stdlib.h>
3015 $ WS "#include <stdio.h>
3016 $ IF ("''Has_Socketshr'".eqs."T")
3018 $ WS "#include <socketshr.h>"
3020 $ WS "#include <netdb.h>
3024 $ WS "socklen_t x = 16;
3028 $ DEFINE SYS$ERROR _NLA0:
3029 $ DEFINE SYS$OUTPUT _NLA0:
3030 $ on error then continue
3031 $ on warning then continue
3033 $ If (Needs_Opt.eqs."Yes")
3035 $ link temp.obj,temp.opt/opt
3039 $ teststatus = f$extract(9,1,$status)
3040 $ DEASSIGN SYS$OUTPUT
3041 $ DEASSIGN SYS$ERROR
3042 $ if (teststatus.nes."1")
3044 $ perl_d_socklen_t="undef"
3046 $ perl_d_socklen_t="define"
3049 $ perl_d_socklen_t="undef"
3051 $ WRITE_RESULT "d_socklen_t is ''perl_d_socklen_t'"
3053 $! Check for pthread_yield
3055 $ if ("''use_threads'".eqs."T")
3059 $ WS "#include <stdlib.h>
3061 $ WS "#include <pthread.h>
3062 $ WS "#include <stdio.h>
3065 $ WS "pthread_yield();
3069 $ DEFINE SYS$ERROR _NLA0:
3070 $ DEFINE SYS$OUTPUT _NLA0:
3071 $ on error then continue
3072 $ on warning then continue
3074 $ teststatus = f$extract(9,1,$status)
3075 $ DEASSIGN SYS$OUTPUT
3076 $ DEASSIGN SYS$ERROR
3077 $ if (teststatus.nes."1")
3079 $ perl_d_pthread_yield="undef"
3081 $ perl_d_pthread_yield="define"
3084 $ perl_d_pthread_yield="undef"
3086 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
3088 $! Check for sched_yield
3090 $ if ("''use_threads'".eqs."T")
3094 $ WS "#include <stdlib.h>
3096 $ WS "#include <pthread.h>
3097 $ WS "#include <stdio.h>
3100 $ WS "sched_yield();
3104 $ DEFINE SYS$ERROR _NLA0:
3105 $ DEFINE SYS$OUTPUT _NLA0:
3106 $ on error then continue
3107 $ on warning then continue
3109 $ teststatus = f$extract(9,1,$status)
3110 $ DEASSIGN SYS$OUTPUT
3111 $ DEASSIGN SYS$ERROR
3112 $ if (teststatus.nes."1")
3114 $ perl_d_sched_yield="undef"
3115 $ perl_sched_yield = " "
3117 $ perl_d_sched_yield="define"
3118 $ perl_sched_yield = "sched_yield"
3121 $ perl_d_sched_yield="undef"
3122 $ perl_sched_yield = " "
3124 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
3125 $ WRITE_RESULT "sched_yield is ''perl_sched_yield'"
3127 $! Check for generic pointer size
3131 $ WS "#include <stdlib.h>
3133 $ WS "#include <stdio.h>
3137 $ WS "foo = sizeof(char *);
3138 $ WS "printf(""%d\n"", foo);
3142 $ DEFINE SYS$ERROR _NLA0:
3143 $ DEFINE SYS$OUTPUT _NLA0:
3144 $ ON ERROR THEN CONTINUE
3145 $ ON WARNING THEN CONTINUE
3147 $ If (Needs_Opt.eqs."Yes")
3149 $ link temp.obj,temp.opt/opt
3153 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3154 $ DEASSIGN SYS$OUTPUT
3155 $ DEASSIGN SYS$ERROR
3156 $ DEFINE SYS$ERROR TEMPOUT
3157 $ DEFINE SYS$OUTPUT TEMPOUT
3160 $ DEASSIGN SYS$OUTPUT
3161 $ DEASSIGN SYS$ERROR
3162 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3165 $ DELETE/NOLOG [-.uu]tempout.lis;
3168 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
3170 $! Check rand48 and its ilk
3174 $ WS "#include <stdlib.h>
3176 $ WS "#include <stdio.h>
3179 $ WS "srand48(12L);"
3184 $ DEFINE SYS$ERROR _NLA0:
3185 $ DEFINE SYS$OUTPUT _NLA0:
3186 $ ON ERROR THEN CONTINUE
3187 $ ON WARNING THEN CONTINUE
3189 $ If (Needs_Opt.eqs."Yes")
3191 $ link temp,temp.opt/opt
3195 $ teststatus = f$extract(9,1,$status)
3196 $ DEASSIGN SYS$OUTPUT
3197 $ DEASSIGN SYS$ERROR
3198 $ if (teststatus.nes."1")
3200 $ perl_drand01="random()"
3201 $ perl_randseedtype = "unsigned"
3202 $ perl_seedfunc = "srandom"
3206 $ WS "#include <stdlib.h>
3208 $ WS "#include <stdio.h>
3215 $! copy temp.c sys$output
3217 $ DEFINE SYS$ERROR _NLA0:
3218 $ DEFINE SYS$OUTPUT _NLA0:
3219 $ ON ERROR THEN CONTINUE
3220 $ ON WARNING THEN CONTINUE
3222 $ If (Needs_Opt.eqs."Yes")
3224 $ link temp,temp.opt/opt
3228 $ teststatus = f$extract(9,1,$status)
3229 $ DEASSIGN SYS$OUTPUT
3230 $ DEASSIGN SYS$ERROR
3231 $ if (teststatus.nes."1")
3233 $ perl_drand01="(((float)rand())/((float)RAND_MAX))"
3234 $ perl_randseedtype = "unsigned"
3235 $ perl_seedfunc = "srand"
3237 $ WRITE_RESULT "drand01 is ''perl_drand01'"
3240 $! Done with compiler checks. Clean up.
3241 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
3242 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
3243 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
3244 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
3247 $! Some that are compiler or VMS version sensitive
3250 $ IF "''Using_Gnu_C'".EQS."Yes"
3252 $ perl_d_attribut="define"
3253 $ perl_vms_cc_type="gcc"
3255 $ perl_vms_cc_type="cc"
3256 $ perl_d_attribut="undef"
3259 $! Dec C >= 5.2 and VMS ver >= 7.0
3260 $ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
3262 $ perl_d_bcmp="define"
3263 $ perl_d_gettimeod="define"
3264 $ perl_d_uname="define"
3265 $ perl_d_sigaction="define"
3266 $ perl_d_truncate="define"
3267 $ perl_d_wait4="define"
3268 $ perl_d_index="define"
3269 $ perl_pidtype="pid_t"
3270 $ 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"
3271 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3272 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
3273 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
3274 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
3275 $ 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"
3276 $ 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"
3277 $ perl_sig_num_with_commas=perl_sig_num_init
3278 $ perl_uidtype="uid_t"
3279 $ perl_d_pathconf="define"
3280 $ perl_d_fpathconf="define"
3281 $ perl_d_sysconf="define"
3282 $ perl_d_sigsetjmp="define"
3284 $ perl_pidtype="unsigned int"
3285 $ perl_d_gettimeod="undef"
3286 $ perl_d_bcmp="undef"
3287 $ perl_d_uname="undef"
3288 $ perl_d_sigaction="undef"
3289 $ perl_d_truncate="undef"
3290 $ perl_d_wait4="undef"
3291 $ perl_d_index="undef"
3292 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
3293 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3294 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
3295 $ perl_sig_name_with_commas = psnwc1 + psnwc2
3296 $ perl_sig_num="0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 6 16 17"",0"
3297 $ perl_sig_num_init="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
3298 $ perl_sig_num_with_commas=perl_sig_num_init
3299 $ perl_uidtype="unsigned int"
3300 $ perl_d_pathconf="undef"
3301 $ perl_d_fpathconf="undef"
3302 $ perl_d_sysconf="undef"
3303 $ perl_d_sigsetjmp="undef"
3307 $ IF ("''Using_Dec_C'".EQS."Yes")
3309 $ perl_d_mbstowcs="define"
3310 $ perl_d_mbtowc="define"
3311 $ perl_d_stdiobase="define"
3312 $ perl_d_stdio_ptr_lval="define"
3313 $ perl_d_stdio_cnt_lval="define"
3314 $ perl_d_stdstdio="define"
3315 $ perl_d_wcstombs="define"
3316 $ perl_d_mblen="define"
3317 $ perl_d_mktime="define"
3318 $ perl_d_strcoll="define"
3319 $ perl_d_strxfrm="define"
3320 $ perl_d_wctomb="define"
3321 $ perl_i_locale="define"
3322 $ perl_d_locconv="define"
3323 $ perl_d_setlocale="define"
3324 $ perl_vms_cc_type="decc"
3326 $ perl_d_mbstowcs="undef"
3327 $ perl_d_mbtowc="undef"
3328 $ perl_d_stdiobase="undef"
3329 $ perl_d_stdio_ptr_lval="undef"
3330 $ perl_d_stdio_cnt_lval="undef"
3331 $ perl_d_stdstdio="undef"
3332 $ perl_d_wcstombs="undef"
3333 $ perl_d_mblen="undef"
3334 $ perl_d_mktime="undef"
3335 $ perl_d_strcoll="undef"
3336 $ perl_d_strxfrm="undef"
3337 $ perl_d_wctomb="undef"
3338 $ perl_i_locale="undef"
3339 $ perl_d_locconv="undef"
3340 $ perl_d_setlocale="undef"
3344 $ if ("''Using_Vax_C'".EQS."Yes")
3346 $ perl_vms_cc_type="vaxc"
3350 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
3352 $ perl_d_vms_do_sockets="define"
3353 $ perl_d_htonl="define"
3354 $ perl_d_socket="define"
3355 $ perl_d_select="define"
3356 $ perl_netdb_host_type="char *"
3357 $ perl_netdb_hlen_type="int"
3358 $ perl_netdb_name_type="char *"
3359 $ perl_netdb_net_type="long"
3360 $ perl_d_gethbyaddr="define"
3361 $ perl_d_gethbyname="define"
3362 $ perl_d_getnbyaddr="define"
3363 $ perl_d_getnbyname="define"
3364 $ perl_d_getpbynumber="define"
3365 $ perl_d_getpbyname="define"
3366 $ perl_d_getsbyport="define"
3367 $ perl_d_getsbyname="define"
3368 $ perl_d_gethostprotos="define"
3369 $ perl_d_getnetprotos="define"
3370 $ perl_d_getprotoprotos="define"
3371 $ perl_d_getservprotos="define"
3372 $ IF ("''Using_Dec_C'".EQS."Yes")
3374 $ perl_socksizetype="unsigned int"
3376 $ perl_socksizetype="int *"
3379 $ perl_d_vms_do_sockets="undef"
3380 $ perl_d_htonl="undef"
3381 $ perl_d_socket="undef"
3382 $ perl_d_select="undef"
3383 $ perl_netdb_host_type="char *"
3384 $ perl_netdb_hlen_type="int"
3385 $ perl_netdb_name_type="char *"
3386 $ perl_netdb_net_type="long"
3387 $ perl_d_gethbyaddr="undef"
3388 $ perl_d_gethbyname="undef"
3389 $ perl_d_getnbyaddr="undef"
3390 $ perl_d_getnbyname="undef"
3391 $ perl_d_getpbynumber="undef"
3392 $ perl_d_getpbyname="undef"
3393 $ perl_d_getsbyport="undef"
3394 $ perl_d_getsbyname="undef"
3395 $ perl_d_gethostprotos="undef"
3396 $ perl_d_getnetprotos="undef"
3397 $ perl_d_getprotoprotos="undef"
3398 $ perl_d_getservprotos="undef"
3399 $ perl_socksizetype="undef"
3402 $ if ("''use_threads'".eqs."T")
3404 $ perl_usethreads="define"
3405 $ perl_d_pthreads_created_joinable="define"
3406 $ if ("''VMS_VER'".ges."7.0")
3408 $ perl_d_oldpthreads="undef"
3410 $ perl_d_oldpthreads="define"
3413 $ perl_d_oldpthreads="undef"
3414 $ perl_usethreads="undef"
3416 $ perl_d_pthreads_created_joinable="undef"
3419 $! new (5.005_62++) typedefs for primitives
3421 $ perl_ivtype="long"
3422 $ perl_uvtype="unsigned long"
3423 $ perl_i8type="char"
3424 $ perl_u8type="unsigned char"
3425 $ perl_i16type="short"
3426 $ perl_u16type="unsigned short"
3427 $ perl_i32type="int"
3428 $ perl_u32type="unsigned int"
3429 $ perl_i64type="long long"
3430 $ perl_u64type="unsigned long long"
3431 $ perl_nvtype="double"
3433 $ GOTO beyond_type_size_check
3437 $! Check for type sizes
3441 $ WS "#include <stdlib.h>
3443 $ WS "#include <stdio.h>
3446 $ WS "printf(""%d\n"", sizeof(''type'));"
3450 $ DEFINE SYS$ERROR _NLA0:
3451 $ DEFINE SYS$OUTPUT _NLA0:
3452 $ ON ERROR THEN CONTINUE
3453 $ ON WARNING THEN CONTINUE
3455 $ If (Needs_Opt.eqs."Yes")
3457 $ link temp.obj,temp.opt/opt
3461 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3462 $ DEASSIGN SYS$OUTPUT
3463 $ DEASSIGN SYS$ERROR
3464 $ DEFINE SYS$ERROR TEMPOUT
3465 $ DEFINE SYS$OUTPUT TEMPOUT
3468 $ DEASSIGN SYS$OUTPUT
3469 $ DEASSIGN SYS$ERROR
3470 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3473 $ DELETE/NOLOG [-.uu]tempout.lis;
3474 $ WRITE_RESULT "''size_name' is ''line'"
3478 $beyond_type_size_check:
3481 $ type = "''perl_ivtype'"
3482 $ size_name = "ivsize"
3483 $ gosub type_size_check
3484 $ perl_ivsize="''line'"
3485 $ IF type .eqs. "long"
3486 $ THEN perl_longsize = "''line'"
3489 $ size_name = "longsize"
3490 $ gosub type_size_check
3491 $ perl_longsize="''line'"
3494 $ type = "''perl_uvtype'"
3495 $ size_name = "uvsize"
3496 $ gosub type_size_check
3497 $ perl_uvsize="''line'"
3499 $ type = "''perl_i8type'"
3500 $ size_name = "i8size"
3501 $ gosub type_size_check
3502 $ perl_i8size="''line'"
3504 $ type = "''perl_u8type'"
3505 $ size_name = "u8size"
3506 $ gosub type_size_check
3507 $ perl_u8size="''line'"
3509 $ type = "''perl_i16type'"
3510 $ size_name = "i16size"
3511 $ gosub type_size_check
3512 $ perl_i16size="''line'"
3513 $ IF type .eqs. "short"
3514 $ THEN perl_shortsize="''line'"
3516 $ type = "''perl_i16type'"
3517 $ size_name = "shortsize"
3518 $ gosub type_size_check
3519 $ perl_shortsize="''line'"
3522 $ type = "''perl_u16type'"
3523 $ size_name = "u16size"
3524 $ gosub type_size_check
3525 $ perl_u16size="''line'"
3527 $ type = "''perl_i32type'"
3528 $ size_name = "i32size"
3529 $ gosub type_size_check
3530 $ perl_i32size="''line'"
3531 $ IF type .eqs. "int"
3532 $ THEN perl_intsize="''perl_i32size'"
3535 $ size_name = "intsize"
3536 $ gosub type_size_check
3537 $ perl_intsize="''line'"
3540 $ type = "''perl_u32type'"
3541 $ size_name = "u32size"
3542 $ gosub type_size_check
3543 $ perl_u32size="''line'"
3545 $ type = "''perl_i64type'"
3546 $ size_name = "i64size"
3547 $ gosub type_size_check
3548 $ perl_i64size="''line'"
3550 $ type = "''perl_u64type'"
3551 $ size_name = "u64size"
3552 $ gosub type_size_check
3553 $ perl_u64size="''line'"
3555 $ perl_ivdformat="""ld"""
3556 $ perl_uvuformat="""lu"""
3557 $ perl_uvoformat="""lo"""
3558 $ perl_uvxformat="""lx"""
3560 $! Finally the composite ones. All config
3561 $ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3562 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3563 $ perl_myhostname="''myhostname'"
3564 $ perl_mydomain="''mydomain'"
3565 $ perl_perladmin="''perladmin'"
3566 $ perl_cf_email="''cf_email'"
3567 $ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
3568 $ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3569 $ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
3570 $ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
3571 $ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
3572 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
3573 $ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3574 $ if "''Using_Dec_C'" .eqs. "Yes"
3576 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
3578 $ IF "''Using_Vax_C'" .eqs. "Yes"
3580 $ perl_ccflags="/Include=[]/Obj=''perl_obj_ext'/NoList''cc_flags'"
3583 $ if use_vmsdebug_perl .eqs. "Y"
3585 $ perl_optimize="/Debug/NoOpt"
3586 $ perl_dbgprefix = "DBG"
3589 $ perl_dbgprefix = ""
3592 $! Finally clean off any leading zeros from the patchlevel or subversion
3593 $ perl_patchlevel = perl_patchlevel + 0
3594 $ perl_subversion = perl_subversion + 0
3596 $! Okay, we've got everything configured. Now go write out a config.sh.
3597 $ open/write CONFIGSH [-]config.sh
3598 $ WC := "write CONFIGSH"
3600 $ WC "# This file generated by Configure.COM on a VMS system."
3601 $ WC "# Time: " + perl_cf_time
3603 $ WC "CONFIGDOTSH=true"
3604 $ WC "package='" + perl_package + "'"
3605 $ WC "d_nv_preserves_uv='" + perl_d_nv_preserves_uv + "'"
3606 $ WC "use5005threads='" + perl_use5005threads + "'"
3607 $ WC "useithreads='" + perl_useithreads + "'"
3608 $ WC "CONFIG='" + perl_config + "'"
3609 $ WC "cf_time='" + perl_cf_time + "'"
3610 $ WC "cf_by='" + perl_cf_by+ "'"
3611 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
3612 $ WC "ccdlflags='" + perl_ccdlflags + "'"
3613 $ WC "cccdlflags='" + perl_cccdlflags + "'"
3614 $ WC "mab='" + perl_mab + "'"
3615 $ WC "libpth='" + perl_libpth + "'"
3616 $ WC "ld='" + perl_ld + "'"
3617 $ WC "lddlflags='" + perl_lddlflags + "'"
3618 $ WC "ranlib='" + perl_ranlib + "'"
3619 $ WC "ar='" + perl_ar + "'"
3620 $ WC "full_ar='" + perl_full_ar + "'"
3621 $ WC "eunicefix='" + perl_eunicefix + "'"
3622 $ WC "hint='" + perl_hint +"'"
3623 $ WC "hintfile='" + perl_hintfile + "'"
3624 $ WC "shrplib='" + perl_shrplib + "'"
3625 $ WC "usemymalloc='" + perl_usemymalloc + "'"
3626 $ WC "usevfork='" + perl_usevfork + "'"
3627 $ WC "useposix='false'"
3628 $ WC "spitshell='write sys$output '"
3629 $ WC "dlsrc='dl_vms.c'"
3630 $ WC "binexp='" + perl_binexp + "'"
3631 $ WC "man1ext='" + perl_man1ext + "'"
3632 $ WC "man3ext='" + perl_man3ext + "'"
3633 $ WC "arch='" + perl_arch + "'"
3634 $ WC "archname='" + perl_archname + "'"
3635 $ WC "osvers='" + perl_osvers + "'"
3636 $ WC "prefix='" + perl_prefix + "'"
3637 $ WC "builddir='" + perl_builddir + "'"
3638 $ WC "installbin='" + perl_installbin + "'"
3639 $ WC "installscript='" + perl_installscript + "'"
3640 $ WC "installman1dir='" + perl_installman1dir + "'"
3641 $ WC "installman3dir='" + perl_installman3dir + "'"
3642 $ WC "installprivlib='" + perl_installprivlib + "'"
3643 $ WC "installarchlib='" + perl_installarchlib + "'"
3644 $ WC "installsitelib='" + perl_installsitelib + "'"
3645 $ WC "installsitearch='" + perl_installsitearch + "'"
3646 $ WC "path_sep='" + perl_path_sep + "'"
3647 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
3648 $ WC "d_attribut='" + perl_d_attribut + "'"
3649 $ WC "cc='" + perl_cc + "'"
3650 $ WC "ccflags='" + perl_ccflags + "'"
3651 $ WC "optimize='" + perl_optimize + "'"
3652 $ WC "dbgprefix='" + perl_dbgprefix + "'"
3653 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
3654 $ WC "d_socket='" + perl_d_socket + "'"
3655 $ WC "d_sockpair='" + perl_d_sockpair + "'"
3656 $ WC "d_gethent='" + perl_d_gethent + "'"
3657 $ WC "d_getsent='" + perl_d_getsent + "'"
3658 $ WC "d_socklen_t='" + perl_d_socklen_t + "'"
3659 $ WC "d_select='" + perl_d_select + "'"
3660 $ WC "i_niin='" + perl_i_niin + "'"
3661 $ WC "i_netinettcp='" + perl_i_netinettcp + "'"
3662 $ WC "i_neterrno='" + perl_i_neterrno + "'"
3663 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
3664 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
3665 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
3666 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
3667 $ WC "d_locconv='" + perl_d_locconv + "'"
3668 $ WC "d_setlocale='" + perl_d_setlocale + "'"
3669 $ WC "i_locale='" + perl_i_locale + "'"
3670 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
3671 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
3672 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
3673 $ WC "d_wctomb='" + perl_d_wctomb + "'"
3674 $ WC "d_mblen='" + perl_d_mblen + "'"
3675 $ WC "d_mktime='" + perl_d_mktime + "'"
3676 $ WC "d_strcoll='" + perl_d_strcoll + "'"
3677 $ WC "d_strxfrm='" + perl_d_strxfrm + "'"
3678 $ WC "ldflags='" + perl_ldflags + "'"
3679 $ WC "dlobj='" + perl_dlobj + "'"
3680 $ WC "obj_ext='" + perl_obj_ext + "'"
3681 $ WC "so='" + perl_so + "'"
3682 $ WC "dlext='" + perl_dlext + "'"
3683 $ WC "exe_ext='" + perl_exe_ext + "'"
3684 $ WC "lib_ext='" + perl_lib_ext + "'"
3685 $ WC "myhostname='" + perl_myhostname + "'"
3686 $ WC "mydomain='" + perl_mydomain + "'"
3687 $ WC "perladmin='" + perl_perladmin + "'"
3688 $ WC "cf_email='" + perl_cf_email + "'"
3689 $ WC "myuname='" + perl_myuname + "'"
3690 $ WC "alignbytes='" + perl_alignbytes + "'"
3691 $ WC "osname='" + perl_osname + "'"
3692 $ WC "d_archlib='" + perl_d_archlib + "'"
3693 $ WC "archlibexp='" + perl_archlibexp + "'"
3694 $ WC "archlib='" + perl_archlib + "'"
3695 $ WC "archname='" + perl_archname + "'"
3696 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
3697 $ WC "cppstdin='" + perl_cppstdin + "'"
3698 $ WC "cppminus='" + perl_cppminus + "'"
3699 $ WC "d_bcmp='" + perl_d_bcmp + "'"
3700 $ WC "d_bcopy='" + perl_d_bcopy + "'"
3701 $ WC "d_bzero='" + perl_d_bzero + "'"
3702 $ WC "d_castneg='" + perl_d_castneg + "'"
3703 $ WC "castflags='" + perl_castflags + "'"
3704 $ WC "d_chsize='" + perl_d_chsize + "'"
3705 $ WC "d_const='" + perl_d_const + "'"
3706 $ WC "d_crypt='" + perl_d_crypt + "'"
3707 $ WC "byteorder='" + perl_byteorder + "'"
3708 $ WC "full_csh='" + perl_full_csh + "'"
3709 $ WC "d_csh='" + perl_d_csh + "'"
3710 $ WC "d_dup2='" + perl_d_dup2 + "'"
3711 $ WC "d_fchmod='" + perl_d_fchmod + "'"
3712 $ WC "d_fchown='" + perl_d_fchown + "'"
3713 $ WC "d_fcntl='" + perl_d_fcntl + "'"
3714 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
3715 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
3716 $ WC "d_flock='" + perl_d_flock + "'"
3717 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
3718 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
3719 $ WC "d_getgrps='" + perl_d_getgrps + "'"
3720 $ WC "d_setgrps='" + perl_d_setgrps + "'"
3721 $ WC "d_uname='" + perl_d_uname + "'"
3722 $ WC "d_getprior='" + perl_d_getprior + "'"
3723 $ WC "d_killpg='" + perl_d_killpg + "'"
3724 $ WC "d_link='" + perl_d_link + "'"
3725 $ WC "d_lstat='" + perl_d_lstat + "'"
3726 $ WC "d_lockf='" + perl_d_lockf + "'"
3727 $ WC "d_memcmp='" + perl_d_memcmp + "'"
3728 $ WC "d_memcpy='" + perl_d_memcpy + "'"
3729 $ WC "d_memmove='" + perl_d_memmove + "'"
3730 $ WC "d_memset='" + perl_d_memset + "'"
3731 $ WC "d_mkdir='" + perl_d_mkdir + "'"
3732 $ WC "d_msg='" + perl_d_msg + "'"
3733 $ WC "d_open3='" + perl_d_open3 + "'"
3734 $ WC "d_poll='" + perl_d_poll + "'"
3735 $ WC "d_readdir='" + perl_d_readdir + "'"
3736 $ WC "d_seekdir='" + perl_d_seekdir + "'"
3737 $ WC "d_telldir='" + perl_d_telldir + "'"
3738 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
3739 $ WC "d_rename='" + perl_d_rename + "'"
3740 $ WC "d_rmdir='" + perl_d_rmdir + "'"
3741 $ WC "d_sem='" + perl_d_sem + "'"
3742 $ WC "d_setegid='" + perl_d_setegid + "'"
3743 $ WC "d_seteuid='" + perl_d_seteuid + "'"
3744 $ WC "d_setprior='" + perl_d_setprior + "'"
3745 $ WC "d_setregid='" + perl_d_setregid + "'"
3746 $ WC "d_setresgid='" + perl_d_setresgid + "'"
3747 $ WC "d_setreuid='" + perl_d_setreuid + "'"
3748 $ WC "d_setresuid='" + perl_d_setresuid + "'"
3749 $ WC "d_setrgid='" + perl_d_setrgid + "'"
3750 $ WC "d_setruid='" + perl_d_setruid + "'"
3751 $ WC "d_setsid='" + perl_d_setsid + "'"
3752 $ WC "d_shm='" + perl_d_shm + "'"
3753 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
3754 $ WC "d_sigaction='" + perl_d_sigaction + "'"
3755 $ WC "d_statblks='" + perl_d_statblks + "'"
3756 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
3757 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
3758 $ WC "stdio_base='" + perl_stdio_base + "'"
3759 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
3760 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
3761 $ WC "d_strerror='" + perl_d_strerror + "'"
3762 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
3763 $ WC "d_strerrm='" + perl_d_strerrm + "'"
3764 $ WC "d_symlink='" + perl_d_symlink + "'"
3765 $ WC "d_syscall='" + perl_d_syscall + "'"
3766 $ WC "d_system='" + perl_d_system + "'"
3767 $ WC "timetype='" + perl_timetype + "'"
3768 $ WC "d_truncate='" + perl_d_truncate + "'"
3769 $ WC "d_vfork='" + perl_d_vfork + "'"
3770 $ WC "signal_t='" + perl_signal_t + "'"
3771 $ WC "d_volatile='" + perl_d_volatile + "'"
3772 $ WC "d_vprintf='" + perl_d_vprintf + "'"
3773 $ WC "d_charvspr='" + perl_d_charvspr + "'"
3774 $ WC "d_wait4='" + perl_d_wait4 + "'"
3775 $ WC "d_waitpid='" + perl_d_waitpid + "'"
3776 $ WC "i_dirent='" + perl_i_dirent + "'"
3777 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
3778 $ WC "direntrytype='" + perl_direntrytype + "'"
3779 $ WC "i_fcntl='" + perl_i_fcntl + "'"
3780 $ WC "i_grp='" + perl_i_grp + "'"
3781 $ WC "i_limits='" + perl_i_limits + "'"
3782 $ WC "i_memory='" + perl_i_memory + "'"
3783 $ WC "i_ndbm='" + perl_i_ndbm + "'"
3784 $ WC "i_stdarg='" + perl_i_stdarg + "'"
3785 $ WC "i_pwd='" + perl_i_pwd + "'"
3786 $ WC "d_pwquota='" + perl_d_pwquota + "'"
3787 $ WC "d_pwage='" + perl_d_pwage + "'"
3788 $ WC "d_pwchange='" + perl_d_pwchange + "'"
3789 $ WC "d_pwclass='" + perl_d_pwclass + "'"
3790 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
3791 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
3792 $ WC "i_stddef='" + perl_i_stddef + "'"
3793 $ WC "i_stdlib='" + perl_i_stdlib + "'"
3794 $ WC "i_string='" + perl_i_string + "'"
3795 $ WC "i_sysdir='" + perl_i_sysdir + "'"
3796 $ WC "i_sysfile='" + perl_i_sysfile + "'"
3797 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
3798 $ WC "i_sysndir='" + perl_i_sysndir + "'"
3799 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
3800 $ WC "i_sysselct='" + perl_i_sysselct + "'"
3801 $ WC "i_dbm='" + perl_i_dbm + "'"
3802 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
3803 $ WC "i_sfio='" + perl_i_sfio + "'"
3804 $ WC "i_sysstat='" + perl_i_sysstat + "'"
3805 $ WC "i_systimes='" + perl_i_systimes + "'"
3806 $ WC "i_systypes='" + perl_i_systypes + "'"
3807 $ WC "i_sysun='" + perl_i_sysun + "'"
3808 $ WC "i_syswait='" + perl_i_syswait + "'"
3809 $ WC "i_termio='" + perl_i_termio + "'"
3810 $ WC "i_sgtty='" + perl_i_sgtty + "'"
3811 $ WC "i_termios='" + perl_i_termios + "'"
3812 $ WC "i_time='" + perl_i_time + "'"
3813 $ WC "i_systime='" + perl_i_systime + "'"
3814 $ WC "i_systimek='" + perl_i_systimek + "'"
3815 $ WC "i_unistd='" + perl_i_unistd + "'"
3816 $ WC "i_utime='" + perl_i_utime + "'"
3817 $ WC "i_varargs='" + perl_i_varargs + "'"
3818 $ WC "i_vfork='" + perl_i_vfork + "'"
3819 $ WC "prototype='" + perl_prototype + "'"
3820 $ WC "randbits='" + perl_randbits +"'"
3821 $ WC "selecttype='" + perl_selecttype + "'"
3822 $ WC "stdchar='" + perl_stdchar + "'"
3823 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
3824 $ WC "full_sed='" + perl_full_sed + "'"
3825 $ WC "bin='" + perl_bin + "'"
3826 $ WC "binexp='" + perl_binexp + "'"
3827 $ WC "d_alarm='" + perl_d_alarm + "'"
3828 $ WC "d_casti32='" + perl_d_casti32 + "'"
3829 $ WC "d_chown='" + perl_d_chown + "'"
3830 $ WC "d_chroot='" + perl_d_chroot + "'"
3831 $ WC "d_cuserid='" + perl_d_cuserid + "'"
3832 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
3833 $ WC "d_ldbl_dig='" + perl_d_ldbl_dig + "'"
3834 $ WC "d_difftime='" + perl_d_difftime + "'"
3835 $ WC "d_fork='" + perl_d_fork + "'"
3836 $ WC "d_getlogin='" + perl_d_getlogin + "'"
3837 $ WC "d_getppid='" + perl_d_getppid + "'"
3838 $ WC "d_htonl='" + perl_d_htonl + "'"
3839 $ WC "d_nice='" + perl_d_nice + "'"
3840 $ WC "d_pause='" + perl_d_pause + "'"
3841 $ WC "d_pipe='" + perl_d_pipe + "'"
3842 $ WC "d_readlink='" + perl_d_readlink + "'"
3843 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
3844 $ WC "d_strchr='" + perl_d_strchr + "'"
3845 $ WC "d_index='" + perl_d_index + "'"
3846 $ WC "d_strtod='" + perl_d_strtod + "'"
3847 $ WC "d_strtol='" + perl_d_strtol + "'"
3848 $ WC "d_strtoul='" + perl_d_strtoul + "'"
3849 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
3850 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
3851 $ WC "d_times='" + perl_d_times + "'"
3852 $ WC "d_tzname='" + perl_d_tzname + "'"
3853 $ WC "d_umask='" + perl_d_umask + "'"
3854 $ WC "fpostype='" + perl_fpostype + "'"
3855 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
3856 $ WC "i_float='" + perl_i_float + "'"
3857 $ WC "i_math='" + perl_i_math + "'"
3858 $ WC "intsize='" + perl_intsize + "'"
3859 $ WC "longsize='" + perl_longsize + "'"
3860 $ WC "shortsize='" + perl_shortsize + "'"
3861 $ WC "lseektype='" + perl_lseektype + "'"
3862 $ WC "lseeksize='4'"
3863 $ WC "i_values='" + perl_i_values + "'"
3864 $ WC "malloctype='" + perl_malloctype + "'"
3865 $ WC "freetype='" + perl_freetype + "'"
3866 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
3867 $ WC "sh='" + perl_sh + "'"
3868 $ WC "sig_name='" + perl_sig_name + "'"
3869 $ WC "sig_num='" + perl_sig_num + "'"
3870 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
3872 $ WC "modetype='" + perl_modetype + "'"
3873 $ WC "ssizetype='" + perl_ssizetype + "'"
3874 $ WC "o_nonblock='" + perl_o_nonblock + "'"
3875 $ WC "eagain='" + perl_eagain + "'"
3876 $ WC "rd_nodata='" + perl_rd_nodata + "'"
3877 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
3878 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
3879 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
3880 $ WC "oldarchlib='" + perl_oldarchlib + "'"
3881 $ WC "privlibexp='" + perl_privlibexp + "'"
3882 $ WC "privlib='" + perl_privlib + "'"
3883 $ WC "sitelibexp='" + perl_sitelibexp + "'"
3884 $ WC "sitelib='" + perl_sitelib + "'"
3885 $ WC "sitearchexp='" + perl_sitearchexp + "'"
3886 $ WC "sitearch='" + perl_sitearch + "'"
3887 $ WC "sizetype='" + perl_sizetype + "'"
3888 $ WC "i_sysparam='" + perl_i_sysparam + "'"
3889 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
3890 $ WC "d_dlerror='" + perl_d_dlerror + "'"
3891 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
3892 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
3893 $ WC "d_dosuid='" + perl_d_dosuid + "'"
3894 $ WC "d_inetaton='" + perl_d_inetaton + "'"
3895 $ WC "d_int64_t='" + perl_d_int64_t + "'"
3896 $ WC "d_isascii='" + perl_d_isascii + "'"
3897 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
3898 $ WC "d_pathconf='" + perl_d_pathconf + "'"
3899 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
3900 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
3901 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
3902 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
3903 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
3904 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
3905 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
3906 $ WC "d_setpgid='" + perl_d_setpgid + "'"
3907 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
3908 $ WC "d_sysconf='" + perl_d_sysconf + "'"
3909 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
3910 $ WC "d_getpgid='" + perl_d_getpgid + "'"
3911 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
3912 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
3913 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
3914 $ WC "d_sfio='" + perl_d_sfio + "'"
3915 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
3916 $ WC "usedl='" + perl_usedl + "'"
3917 $ WC "startperl=" + perl_startperl ! This one's special--no enclosing single quotes
3918 $ WC "db_hashtype='" + perl_db_hashtype + "'"
3919 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
3920 $ WC "useperlio='" + perl_useperlio + "'"
3921 $ WC "defvoidused='" + perl_defvoidused + "'"
3922 $ WC "voidflags='" + perl_voidflags + "'"
3923 $ WC "d_eunice='" + perl_d_eunice + "'"
3924 $ WC "libs='" + perl_libs + "'"
3925 $ WC "libc='" + perl_libc + "'"
3926 $ tempstring = "PERL_VERSION='" + "''perl_patchlevel'" + "'"
3928 $ tempstring = "PERL_SUBVERSION='" + "''perl_patchlevel'" + "'"
3930 $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
3932 $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
3934 $ WC "pager='" + perl_pager + "'"
3935 $ WC "uidtype='" + perl_uidtype + "'"
3936 $ WC "gidtype='" + perl_gidtype + "'"
3937 $ WC "usethreads='" + perl_usethreads + "'"
3938 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
3939 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
3940 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
3941 $ WC "i_netdb='" + perl_i_netdb + "'"
3942 $ WC "pidtype='" + perl_pidtype + "'"
3943 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
3944 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
3945 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
3946 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
3947 $ WC "socksizetype='" + perl_socksizetype + "'"
3948 $ WC "baserev='" + perl_baserev + "'"
3949 $ WC "doublesize='" + perl_doublesize + "'"
3950 $ WC "ptrsize='" + perl_ptrsize + "'"
3951 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
3952 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
3953 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
3954 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
3955 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
3956 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
3957 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
3958 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
3959 $ WC "d_sethent='" + perl_d_sethent + "'"
3960 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
3961 $ WC "d_longdbl='" + perl_d_longdbl + "'"
3962 $ WC "longdblsize='" + perl_longdblsize + "'"
3963 $ WC "d_longlong='" + perl_d_longlong + "'"
3964 $ WC "longlongsize='" + perl_longlongsize + "'"
3965 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
3966 $ WC "d_mkstemps='" + perl_d_mkstemps + "'"
3967 $ WC "d_mkdtemp='" + perl_d_mkdtemp + "'"
3968 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
3969 $ WC "d_setenv='" + perl_d_setenv + "'"
3970 $ WC "d_endhent='" + perl_d_endhent + "'"
3971 $ WC "d_endnent='" + perl_d_endsent + "'"
3972 $ WC "d_endpent='" + perl_d_endpent + "'"
3973 $ WC "d_endsent='" + perl_d_endsent + "'"
3974 $ WC "d_gethent='" + perl_d_gethent + "'"
3975 $ WC "d_getnent='" + perl_d_getsent + "'"
3976 $ WC "d_getpent='" + perl_d_getpent + "'"
3977 $ WC "d_getsent='" + perl_d_getsent + "'"
3978 $ WC "d_sethent='" + perl_d_sethent + "'"
3979 $ WC "d_setnent='" + perl_d_setsent + "'"
3980 $ WC "d_setpent='" + perl_d_setpent + "'"
3981 $ WC "ebcdic='" + perl_ebcdic + "'"
3982 $ WC "d_setsent='" + perl_d_setsent + "'"
3983 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
3984 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
3985 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
3986 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
3987 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
3988 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
3989 $ WC "d_lchown='" + perl_d_lchown + "'"
3990 $ WC "d_union_semun='" + perl_d_union_semun + "'"
3991 $ WC "i_arpainet='" + perl_i_arpainet + "'"
3992 $ WC "d_grpasswd='" + perl_d_grpasswd + "'"
3993 $ WC "d_setgrent='" + perl_d_setgrent + "'"
3994 $ WC "d_getgrent='" + perl_d_getgrent + "'"
3995 $ WC "d_endgrent='" + perl_d_endgrent + "'"
3996 $ WC "d_pwpasswd='" + perl_d_pwpasswd + "'"
3997 $ WC "d_setpwent='" + perl_d_setpwent + "'"
3998 $ WC "d_getpwent='" + perl_d_getpwent + "'"
3999 $ WC "d_endpwent='" + perl_d_endpwent + "'"
4000 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
4001 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
4002 $ WC "extensions='" + perl_extensions + "'"
4003 $ WC "known_extensions='" + perl_known_extensions + "'"
4004 $ WC "static_ext='" + "'"
4005 $ WC "dynamic_ext='" + perl_extensions + "'"
4006 $ WC "d_mknod='" + perl_d_mknod + "'"
4007 $ WC "devtype='" + perl_devtype + "'"
4008 $ WC "d_gethname='" + perl_d_gethname + "'"
4009 $ WC "d_phostname='" + perl_d_phostname + "'"
4010 $ WC "d_accessx='" + perl_d_accessx + "'"
4011 $ WC "d_eaccess='" + perl_d_eaccess + "'"
4012 $ WC "i_sunmath='" + perl_i_sunmath + "'"
4013 $ WC "i_sysaccess='" + perl_i_sysaccess + "'"
4014 $ WC "i_syssecrt='" + perl_i_syssecrt + "'"
4015 $ WC "d_fd_set='" + perl_d_fd_set + "'"
4016 $ WC "d_access='" + perl_d_access + "'"
4017 $ WC "d_msg_ctrunc='" + perl_d_msg_ctrunc + "'"
4018 $ WC "d_msg_dontroute='" + perl_d_msg_dontroute + "'"
4019 $ WC "d_msg_oob='" + perl_d_msg_oob + "'"
4020 $ WC "d_msg_peek='" + perl_d_msg_peek + "'"
4021 $ WC "d_msg_proxy='" + perl_d_msg_proxy + "'"
4022 $ WC "d_scm_rights='" + perl_d_scm_rights + "'"
4023 $ WC "d_sendmsg='" + perl_d_sendmsg + "'"
4024 $ WC "d_recvmsg='" + perl_d_recvmsg + "'"
4025 $ WC "d_msghdr_s='" + perl_d_msghdr_s + "'"
4026 $ WC "d_cmsghdr_s='" + perl_d_cmsghdr_s + "'"
4027 $ WC "i_sysuio='" + perl_i_sysuio + "'"
4028 $ WC "d_fseeko='" + perl_d_fseeko + "'"
4029 $ WC "d_ftello='" + perl_d_ftello + "'"
4030 $ WC "d_qgcvt='" + perl_d_qgcvt + "'"
4031 $ WC "d_readv='" + perl_d_readv + "'"
4032 $ WC "d_writev='" + perl_d_writev + "'"
4033 $ WC "i_machcthr='" + perl_i_machcthr + "'"
4034 $ WC "usemultiplicity='" + perl_usemultiplicity + "'"
4035 $ WC "i_poll='" + perl_i_poll + "'"
4036 $ WC "i_inttypes='" + perl_i_inttypes + "'"
4037 $ WC "d_off64_t='" + perl_d_off64_t + "'"
4038 $ WC "d_fpos64_t='" + perl_d_fpos64_t + "'"
4039 $ WC "use64bitall='" + perl_use64bitall + "'"
4040 $ WC "use64bitint='" + perl_use64bitint + "'"
4041 $ WC "d_drand48proto='" + perl_d_drand48proto + "'"
4042 $ WC "d_lseekproto='" + perl_d_drand48proto + "'"
4043 $ WC "d_old_pthread_create_joinable='" + perl_d_old_pthread_create_joinable + "'"
4044 $ WC "old_pthread_create_joinable='" + perl_old_pthread_create_joinable + "'"
4045 $ WC "drand01='" + perl_drand01 + "'"
4046 $ WC "randseedtype='" + perl_randseedtype + "'"
4047 $ WC "seedfunc='" + perl_seedfunc + "'"
4048 $ WC "sig_num_init='" + perl_sig_num_with_commas + "'"
4049 $ WC "i_sysmount='" + perl_i_sysmount + "'"
4050 $ WC "d_fstatfs='" + perl_d_fstatfs + "'"
4051 $ WC "d_getfsstat='" + perl_d_getfsstat + "'"
4052 $ WC "d_memchr='" + perl_d_memchr + "'"
4053 $ WC "d_statfsflags='" + perl_d_statfsflags + "'"
4054 $ WC "fflushNULL='define'"
4055 $ WC "fflushall='undef'"
4056 $ WC "d_stdio_stream_array='undef'"
4057 $ WC "i_sysstatvfs='" + perl_i_sysstatvfs + "'"
4058 $ WC "i_syslog='" + perl_i_syslog + "'"
4059 $ WC "i_sysmode='" + perl_i_sysmode + "'"
4060 $ WC "i_sysutsname='" + perl_i_sysutsname + "'"
4061 $ WC "i_machcthreads='" + perl_i_machcthreads + "'"
4062 $ WC "i_pthread='" + perl_i_pthread + "'"
4063 $ WC "d_fstatvfs='" + perl_d_fstatvfs + "'"
4064 $ WC "i_mntent='" + perl_i_mntent + "'"
4065 $ WC "d_getmntent='" + perl_d_getmntent + "'"
4066 $ WC "d_hasmntopt='" + perl_d_hasmntopt + "'"
4067 $ WC "d_telldirproto='" + perl_d_telldirproto + "'"
4068 $ WC "d_madvise='" + perl_d_madvise + "'"
4069 $ WC "d_msync='" + perl_d_msync + "'"
4070 $ WC "d_mprotect='" + perl_d_mprotect + "'"
4071 $ WC "d_munmap='" + perl_d_munmap + "'"
4072 $ WC "d_mmap='" + perl_d_mmap + "'"
4073 $ WC "i_sysmman='" + perl_i_sysmman + "'"
4074 $ WC "installusrbinperl='" + perl_installusrbinperl + "'"
4075 $! WC "selectminbits='" + perl_selectminbits + "'"
4076 $ WC "crosscompile='" + perl_crosscompile + "'"
4077 $ WC "multiarch='" + perl_multiarch + "'"
4078 $ WC "sched_yield='" + perl_sched_yield + "'"
4079 $ WC "d_strtoull='" + perl_d_strtoull + "'"
4080 $ WC "d_strtouq='" + perl_d_strtouq + "'"
4081 $ WC "d_strtoll='" + perl_d_strtoll + "'"
4082 $ WC "d_strtold='" + perl_d_strtold + "'"
4083 $ WC "usesocks='" + perl_usesocks + "'"
4084 $ WC "d_vendorlib='" + perl_d_vendorlib + "'"
4085 $ WC "vendorlibexp='" + perl_vendorlibexp + "'"
4086 $ WC "d_atolf='" + perl_d_atolf + "'"
4087 $ WC "d_atoll='" + perl_d_atoll + "'"
4088 $ WC "d_bincompat5005='" + perl_d_bincompat + "'"
4089 $ WC "d_endspent='" + perl_d_endspent + "'"
4090 $ WC "d_getspent='" + perl_d_getspent + "'"
4091 $ WC "d_getspnam='" + perl_d_getspnam + "'"
4092 $ WC "d_setspent='" + perl_d_setspent + "'"
4093 $ WC "i_shadow='" + perl_i_shadow + "'"
4094 $ WC "i_socks='" + perl_i_socks + "'"
4095 $ WC "d_PRIfldbl='" + perl_d_PRIfldbl + "'"
4096 $ WC "d_PRIgldbl='" + perl_d_PRIgldbl + "'"
4097 $ WC "d_PRId64='" + perl_d_PRId64 + "'"
4098 $ WC "d_PRIu64='" + perl_d_PRIu64 + "'"
4099 $ WC "d_PRIo64='" + perl_d_PRIo64 + "'"
4100 $ WC "d_PRIx64='" + perl_d_PRIx64 + "'"
4101 $ WC "sPRIfldbl='" + perl_sPRIfldbl + "'"
4102 $ WC "sPRIgldbl='" + perl_sPRIgldbl + "'"
4103 $ WC "sPRId64='" + perl_sPRId64 + "'"
4104 $ WC "sPRIu64='" + perl_sPRIu64 + "'"
4105 $ WC "sPRIo64='" + perl_sPRIo64 + "'"
4106 $ WC "sPRIx64='" + perl_sPRIx64 + "'"
4107 $ WC "d_llseek='" + perl_d_llseek + "'"
4108 $ WC "d_iconv='" + perl_d_iconv +"'"
4109 $ WC "i_iconv='" + perl_i_iconv +"'"
4110 $ WC "inc_version_list_init='""""'"
4111 $ WC "uselargefiles='" + perl_uselargefiles + "'"
4112 $ WC "uselongdouble='" + perl_uselongdouble + "'"
4113 $ WC "usemorebits='" + perl_usemorebits + "'"
4114 $ WC "d_quad='" + perl_d_quad + "'"
4115 $ if (use_64bitint .eqs. "Y")
4117 $ WC "quadtype='" + perl_quadtype + "'"
4118 $ WC "uquadtype='" + perl_uquadtype + "'"
4120 $ WC "d_fs_data_s='" + perl_d_fs_data_s + "'"
4121 $ WC "d_getcwd='" + perl_d_getcwd + "'"
4122 $ WC "d_getmnt='" + perl_d_getmnt + "'"
4123 $ WC "d_sqrtl='" + perl_d_sqrtl + "'"
4124 $ WC "d_statfs_f_flags='" + perl_d_statfs_f_flags + "'"
4125 $ WC "d_statfs_s='" + perl_d_statfs_s + "'"
4126 $ WC "d_ustat='" + perl_d_ustat + "'"
4127 $ WC "i_sysstatfs='" + perl_i_sysstatfs + "'"
4128 $ WC "i_sysvfs='" + perl_i_sysvfs + "'"
4129 $ WC "i_ustat='" + perl_i_ustat + "'"
4130 $ WC "ivtype='" + perl_ivtype + "'"
4131 $ WC "uvtype='" + perl_uvtype + "'"
4132 $ WC "i8type='" + perl_i8type + "'"
4133 $ WC "i16type='" + perl_i16type + "'"
4134 $ WC "u8type='" + perl_u8type + "'"
4135 $ WC "u16type='" + perl_u16type + "'"
4136 $ WC "i32type='" + perl_i32type + "'"
4137 $ WC "u32type='" + perl_u32type + "'"
4138 $ WC "i64type='" + perl_i64type + "'"
4139 $ WC "u64type='" + perl_u64type + "'"
4140 $ WC "nvtype='" + perl_nvtype + "'"
4141 $ WC "ivsize='" + perl_ivsize + "'"
4142 $ WC "uvsize='" + perl_uvsize + "'"
4143 $ WC "i8size='" + perl_i8size + "'"
4144 $ WC "u8size='" + perl_u8size + "'"
4145 $ WC "i16size='" + perl_i16size + "'"
4146 $ WC "u16size='" + perl_u16size + "'"
4147 $ WC "i32size='" + perl_i32size + "'"
4148 $ WC "u32size='" + perl_u32size + "'"
4149 $ WC "i64size='" + perl_i64size + "'"
4150 $ WC "u64size='" + perl_u64size + "'"
4151 $ WC "ivdformat='" + perl_ivdformat + "'"
4152 $ WC "uvuformat='" + perl_uvuformat + "'"
4153 $ WC "uvoformat='" + perl_uvoformat + "'"
4154 $ WC "uvxformat='" + perl_uvxformat + "'"
4155 $ WC "d_vms_case_sensitive_symbols='" + d_vms_be_case_sensitive + "'"
4157 $! ##WRITE NEW CONSTANTS HERE##
4161 $! Okay, we've gotten here. Build munchconfig and run it
4162 $ 'Perl_CC' munchconfig.c
4163 $ If (Needs_Opt.eqs."Yes")
4165 $ open/write OPTCHAN []munchconfig.opt
4166 $ IF ("''using_gnu_c'".eqs."Yes")
4168 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
4170 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
4172 $ link munchconfig.obj,munchconfig.opt/opt
4173 $ delete munchconfig.opt;*
4175 $ link munchconfig.obj
4178 $ echo "Writing config.h"
4180 $ ! we need an fdl file
4181 $ CREATE [-]CONFIG.FDL
4184 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
4185 $ ! First spit out the header info with the local defines (to get
4186 $ ! around the 255 character command line limit)
4187 $ OPEN/APPEND CONFIG [-]config.local
4188 $ if use_debugging_perl.eqs."Y"
4190 $ WRITE CONFIG "#define DEBUGGING"
4192 $ if use_two_pot_malloc.eqs."Y"
4194 $ WRITE CONFIG "#define TWO_POT_OPTIMIZE"
4196 $ if mymalloc.eqs."Y"
4198 $ WRITE CONFIG "#define EMBEDMYMALLOC"
4200 $ if use_pack_malloc.eqs."Y"
4202 $ WRITE CONFIG "#define PACK_MALLOC"
4204 $ if use_debugmalloc.eqs."Y"
4206 $ write config "#define DEBUGGING_MSTATS"
4208 $ if "''Using_Gnu_C'" .eqs."Yes"
4210 $ WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
4212 $ if "''Has_Dec_C_Sockets'".eqs."T"
4214 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
4215 $ WRITE CONFIG "#define DECCRTL_SOCKETS"
4217 $ if "''Has_Socketshr'".eqs."T"
4219 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
4221 $! This is VMS-specific for now
4222 $ WRITE CONFIG "#''perl_d_setenv' HAS_SETENV"
4223 $ if d_alwdeftype.eqs."Y"
4225 $ WRITE CONFIG "#define SECURE_INTERNAL_GETENV"
4227 $ WRITE CONFIG "#undef SECURE_INTERNAL_GETENV"
4229 $ if d_secintgenv.eqs."Y"
4231 $ WRITE CONFIG "#define ALWAYS_DEFTYPES"
4233 $ WRITE CONFIG "#undef ALWAYS_DEFTYPES"
4235 $ if use_64bitint.eqs."Y"
4237 $ WRITE CONFIG "#define USE_64_BIT_INT"
4238 $ WRITE CONFIG "#define USE_LONG_DOUBLE"
4240 $ if use_64bitall.eqs."Y"
4242 $ WRITE CONFIG "#define USE_64_BIT_ALL"
4244 $ if be_case_sensitive
4246 $ write config "#define VMS_WE_ARE_CASE_SENSITIVE"
4248 $ WRITE CONFIG "#define HAS_ENVGETENV"
4249 $ WRITE CONFIG "#define PERL_EXTERNAL_GLOB"
4252 $! Now build the normal config.h
4253 $ define/user sys$output [-]config.main
4254 $ mcr []munchconfig [-]config.sh [-]config_h.sh
4255 $ ! Concatenate them together
4256 $ copy [-]config.local,[-]config.main [-]config.h
4258 $ DELETE/NOLOG [-]CONFIG.MAIN;*
4259 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
4260 $ DELETE/NOLOG [-]CONFIG.FDL;*
4262 $ if "''Using_Dec_C'" .eqs."Yes"
4264 $ DECC_REPLACE = "DECC=decc=1"
4266 $ DECC_REPLACE = "DECC="
4268 $ if "''Using_Gnu_C'" .eqs."Yes"
4270 $ GNUC_REPLACE = "GNUC=gnuc=1"
4272 $ GNUC_REPLACE = "GNUC="
4274 $ if "''Has_Dec_C_Sockets'" .eqs."T"
4276 $ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
4278 $ if "''Has_Socketshr'" .eqs."T"
4280 $ SOCKET_REPLACE = "SOCKET=SOCKETSHR_SOCKETS=1"
4282 $ SOCKET_REPLACE = "SOCKET="
4285 $ IF ("''Use_Threads'".eqs."T")
4287 $ if ("''VMS_VER'".LES."6.2")
4289 $ THREAD_REPLACE = "THREAD=OLDTHREADED=1"
4291 $ THREAD_REPLACE = "THREAD=THREADED=1"
4294 $ THREAD_REPLACE = "THREAD="
4296 $ if mymalloc.eqs."Y"
4298 $ MALLOC_REPLACE = "MALLOC=MALLOC=1"
4300 $ MALLOC_REPLACE = "MALLOC="
4302 $ if f$getsyi("HW_MODEL").ge.1024
4304 $ ARCH_TYPE = "ARCH-TYPE=__AXP__"
4306 $ ARCH_TYPE = "ARCH-TYPE=__VAX__"
4308 $ echo "Writing DESCRIP.MMS"
4310 $ define/user sys$output [-]descrip.mms
4311 $ mcr []munchconfig [-]config.sh descrip_mms.template "''DECC_REPLACE'" "''ARCH_TYPE'" "''GNUC_REPLACE'" "''SOCKET_REPLACE'" "''THREAD_REPLACE'" -
4312 "''C_Compiler_Replace'" "''MALLOC_REPLACE'" "''Thread_Live_Dangerously'" "PV=''LocalPerlVer'" "FLAGS=FLAGS=''extra_flags'"
4313 $ echo "Extracting Build_Ext.Com"
4314 $ Create Sys$Disk:[-]Build_Ext.Com
4315 $ Deck/Dollar="$EndOfTpl$"
4317 $! NOTE: This file is extracted as part of the VMS configuration process.
4318 $! Any changes made to it directly will be lost. If you need to make any
4319 $! changes, please edit the template in [.vms]SubConfigure.Com instead.
4320 $ def = F$Environment("Default")
4321 $ exts1 = F$Edit(p1,"Compress")
4322 $ p2 = F$Edit(p2,"Upcase,Compress,Trim")
4323 $ If F$Locate("MCR ",p2).eq.0 Then p2 = F$Extract(3,255,p2)
4324 $ miniperl = "$" + F$Search(F$Parse(p2,".Exe"))
4326 $ if f$type('p3') .nes. "" then makeutil = 'p3'
4327 $ targ = F$Edit(p4,"Lowercase")
4330 $ ext = F$Element(i," ",p1)
4331 $ If ext .eqs. " " Then Goto done
4332 $ Define/User Perl_Env_Tables CLISYM_LOCAL
4334 ($extdir = $ENV{'ext'}) =~ s/::/./g;
4335 if ($extdir =~ /^vms/i) { $extdir =~ s/vms/.vms.ext/i; }
4336 else { $extdir = ".ext.$extdir"; }
4337 ($ENV{'extdir'} = "[$extdir]");
4338 ($ENV{'up'} = ('-') x ($extdir =~ tr/././));
4339 $ Set Default &extdir
4341 $ If F$Locate("clean",targ) .eqs. F$Length(targ)
4343 $ Write Sys$Output "Building ''ext' . . ."
4344 $ On Error Then Goto done
4345 $ If F$Search("Descrip.MMS") .eqs. ""
4349 $ If F$CvTime(F$File("Descrip.MMS","rdt")) .lts. -
4350 F$CvTime(F$File("Makefile.PL","rdt")) Then redesc = 1
4353 $ Write Sys$Output "''targ'ing ''ext' . . ."
4354 $ On Error Then Continue
4357 miniperl "-I[''up'.lib]" Makefile.PL "INST_LIB=[''up'.lib]" "INST_ARCHLIB=[''up'.lib]"
4371 $! Clean up after ourselves
4372 $ delete/nolog munchconfig.exe;*
4373 $ delete/nolog munchconfig.obj;*