This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
d9231e7ffdbf1aa7219b840cd7813e1d712deab2
[perl5.git] / vms / subconfigure.com
1 $! SUBCONFIGURE.COM - build a config.sh for VMS Perl.
2 $!
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.
6 $!
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.
10 $!
11 $!   First, a line in the format:
12 $!     $ perl_foo = "bar"
13 $!   after the line tagged ##ADD NEW CONSTANTS HERE##. Replace foo with the
14 $!   variable name as it appears in config.sh.
15 $!
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. 
20 $! 
21 $! This .COM file expects to be called by configure.com, and thus expects
22 $! a few symbols in the environment. Notably:
23 $!
24 $!  One of: Using_Dec_C, Using_Gnu_C set to "YES"
25 $!  Dec_C_Version set to the Dec C version (defaults to 0 if not specified)
26 $!  Has_Socketshr set to "T" if using socketshr
27 $!  Has_Dec_C_Sockets set to "T" if using Dec C sockets
28 $!  Use_Threads set to "T" if they're using threads
29 $!  C_Compiler_Invoke is the command needed to invoke the C compiler
30 $!
31 $! We'll be playing with Sys$Output; don't clutter it
32 $ Set NoVerify
33 $!
34 $! Set Dec_C_Version to something
35 $ WRITE_RESULT := "WRITE SYS$OUTPUT ""%CONFIG-I-RESULT "" + "
36 $ echo = "Write Sys$Output "
37 $ Dec_C_Version := "''Dec_C_Version'"
38 $ Dec_C_Version = Dec_C_Version + 0
39 $ Vms_Ver := "''f$extract(1,3, f$getsyi(""version""))'"
40 $ perl_extensions := "''extensions'"
41 $ if f$length(Mcc) .eq. 0 then Mcc := "cc"
42 $ MCC = f$edit(mcc, "UPCASE")
43 $ C_Compiler_Replace := "CC=CC=''Mcc'''CC_flags'"
44 $ if "''Using_Dec_C'" .eqs. "Yes"
45 $ THEN
46 $   Checkcc := "''Mcc'/prefix=all"
47 $ ELSE
48 $   Checkcc := "''Mcc'"
49 $ ENDIF
50 $ cc_flags = cc_flags + extra_flags
51 $ if be_case_sensitive
52 $ then
53 $ d_vms_be_case_sensitive = "define"
54 $ else
55 $ d_vms_be_case_sensitive = "undef"
56 $ endif
57 $ if use_multiplicity .eqs. "Y"
58 $ THEN
59 $   perl_usemultiplicity = "define"
60 $ ELSE
61 $   perl_usemultiplicity = "undef"
62 $ ENDIF
63 $! Some constant defaults.
64 $
65 $ hwname = f$getsyi("HW_NAME")
66 $ myname = myhostname
67 $ if "''myname'" .eqs. "" THEN myname = f$trnlnm("SYS$NODE")
68 $!
69 $! ##ADD NEW CONSTANTS HERE##
70 $ perl_shmattype = ""
71 $ perl_mmaptype = ""
72 $ perl_gidformat = "lu"
73 $ perl_gidsize = "4"
74 $ perl_groupstype = "Gid_t"
75 $ perl_stdio_stream_array = ""
76 $ perl_uidformat = "lu"
77 $ perl_uidsize = "4"
78 $ perl_d_getcwd = "undef"
79 $ perl_d_nv_preserves_uv = "define"
80 $ perl_d_fs_data_s = "undef"
81 $ perl_d_getmnt = "undef"
82 $ perl_d_sqrtl = "define"
83 $ perl_d_statfs_f_flags = "undef"
84 $ perl_d_statfs_s = "undef"
85 $ perl_d_ustat = "undef"
86 $ perl_i_ieeefp = "undef"
87 $ perl_i_sunmath = "undef"
88 $ perl_i_sysstatfs = "undef"
89 $ perl_i_sysvfs = "undef"
90 $ perl_i_ustat = "undef"
91 $ perl_d_llseek="undef"
92 $ perl_d_iconv="undef"
93 $ perl_d_madvise="undef"
94 $ perl_selectminbits="32"
95 $ perl_d_vendorarch="undef"
96 $ perl_vendorarchexp=""
97 $ perl_d_msync="undef"
98 $ perl_d_mprotect="undef"
99 $ perl_d_munmap="undef"
100 $ perl_crosscompile="undef"
101 $ perl_multiarch="undef"
102 $ perl_d_mmap="undef"
103 $ perl_i_sysmman="undef"
104 $ perl_d_telldirproto="define"
105 $ perl_i_sysmount="undef"
106 $ perl_d_bincompat="undef"
107 $ perl_d_endspent="undef
108 $ perl_d_getspent="undef
109 $ perl_d_getspnam="undef
110 $ perl_d_setspent="undef
111 $ perl_d_fstatfs="undef"
112 $ perl_d_getfsstat="undef"
113 $ perl_i_machcthreads="undef"
114 $ perl_i_pthread="define"
115 $ perl_d_fstatvfs="undef"
116 $ perl_usesocks="undef"
117 $ perl_d_vendorlib="undef"
118 $ perl_vendorlibexp=""
119 $ perl_vendorlib_stem=""
120 $ perl_d_statfsflags="undef"
121 $ perl_i_sysstatvfs="undef"
122 $ perl_i_mntent="undef"
123 $ perl_d_getmntent="undef"
124 $ perl_d_hasmntopt="undef"
125 $ perl_package="''package'"
126 $ perl_baserev = "''baserev'"
127 $ cc_defines=""
128 $ perl_installusrbinperl="undef"
129 $ perl_CONFIG="true"
130 $ perl_d_fseeko="undef"
131 $ perl_d_ftello="undef"
132 $ perl_d_qgcvt="undef"
133 $ perl_d_readv="undef"
134 $ perl_d_writev="undef"
135 $ perl_i_machcthr="undef"
136 $ perl_i_netdb="undef"
137 $ perl_d_gnulibc="undef"
138 $ perl_cf_by="unknown"
139 $ perl_ccdlflags=""
140 $ perl_cccdlflags=""
141 $ perl_mab=""
142 $ perl_drand01 = "drand48()"
143 $ perl_randseedtype = "long int"
144 $ perl_seedfunc = "srand48"
145 $ perl_d_msg_ctrunc = "undef"
146 $ perl_d_msg_dontroute = "undef"
147 $ perl_d_msg_oob = "undef"
148 $ perl_d_msg_peek = "undef"
149 $ perl_d_msg_proxy = "undef"
150 $ perl_d_scm_rights = "undef"
151 $ perl_d_sendmsg = "undef"
152 $ perl_d_recvmsg = "undef"
153 $ perl_d_msghdr_s = "undef"
154 $ perl_d_cmsghdr_s = "undef"
155 $ IF (use64bitint)
156 $ THEN
157 $   perl_use64bitint = "define"
158 $   perl_uselargefiles = "define"
159 $   perl_uselongdouble = "define"
160 $   perl_usemorebits = "define"
161 $ ELSE
162 $   perl_use64bitint = "undef"
163 $   perl_uselargefiles = "undef"
164 $   perl_uselongdouble = "undef"
165 $   perl_usemorebits = "undef"
166 $ ENDIF
167 $ IF (use64bitall)
168 $ THEN
169 $   perl_use64bitall = "define"
170 $ ELSE
171 $   perl_use64bitall = "undef"
172 $ ENDIF
173 $ perl_d_drand48proto = "define"
174 $ perl_d_lseekproto = "define"
175 $ perl_libpth="/sys$share /sys$library"
176 $ perl_ld="Link"
177 $ perl_lddlflags="/Share"
178 $ perl_ranlib=""
179 $ perl_ar=""
180 $ perl_full_ar=""
181 $ perl_eunicefix=":"
182 $ perl_hint="none"
183 $ perl_i_arpainet="undef"
184 $ perl_d_grpasswd="undef"
185 $ perl_d_setgrent="undef"
186 $ perl_d_getgrent="define"
187 $ perl_d_endgrent="define"
188 $ perl_d_pwpasswd="define"
189 $ perl_d_setpwent="define"
190 $ perl_d_getpwent="define"
191 $ perl_d_endpwent="define"
192 $ perl_d_phostname="undef"
193 $ perl_d_accessx="undef"
194 $ perl_d_eaccess="undef"
195 $ perl_ebcdic="undef"
196 $ perl_hintfile=""
197 $ perl_shrplib="define"
198 $ perl_usemymalloc=mymalloc
199 $ perl_usevfork="true"
200 $ perl_useposix="false"
201 $ perl_spitshell="write sys$output "
202 $ perl_dlsrc="dl_vms.c"
203 $ perl_man1ext="rno"
204 $ perl_man3ext="rno"
205 $ perl_prefix="perl_root"
206 $ perl_binexp="''perl_prefix':[000000]"
207 $ perl_builddir="''perl_prefix':[000000]"
208 $ perl_installbin="''perl_prefix':[000000]"
209 $ perl_installscript="''perl_prefix':[utils]"
210 $ perl_installman1dir="''perl_prefix':[man.man1]"
211 $ perl_installman3dir="''perl_prefix':[man.man3]"
212 $ perl_installprivlib="''perl_prefix':[lib]"
213 $ perl_installsitelib="''perl_prefix':[lib.site_perl]"
214 $ perl_path_sep="|"
215 $ perl_cc=Mcc
216 $ perl_d_sockpair="undef"
217 $ perl_i_neterrno="define"
218 $ perl_ldflags="/NoTrace/NoMap"
219 $ perl_d_lchown="undef"
220 $ perl_d_mknod="undef"
221 $ perl_d_union_semun="undef"
222 $ perl_d_semctl_semun="undef"
223 $ perl_d_semctl_semid_ds="undef"
224 $ IF (sharedperl.EQS."Y" .AND. F$GETSYI("HW_MODEL").GE.1024)
225 $ THEN
226 $ perl_obj_ext=".abj"
227 $ perl_so="axe"
228 $ perl_dlext="axe"
229 $ perl_exe_ext=".axe"
230 $ perl_lib_ext=".alb"
231 $ ELSE
232 $ perl_obj_ext=".obj"
233 $ perl_so="exe"
234 $ perl_dlext="exe"
235 $ perl_exe_ext=".exe"
236 $ perl_lib_ext=".olb"
237 $ENDIF
238 $ perl_dlobj="dl_vms''perl_obj_ext'"
239 $ perl_osname="VMS"
240 $ perl_d_archlib="define"
241 $ perl_d_bincompat3="undef"
242 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
243 $ perl_cppminus=" "
244 $ perl_cpprun="''Perl_CC'/noobj/preprocess=sys$output sys$input"
245 $ perl_cpplast=" "
246 $ perl_aphostname=""
247 $ perl_d_castneg="define"
248 $ perl_castflags="0"
249 $ perl_d_chsize="undef"
250 $ perl_d_const="define"
251 $ perl_d_crypt="define"
252 $ perl_byteorder="1234"
253 $ perl_full_csh=" "
254 $ perl_d_csh="undef"
255 $ perl_d_dup2="define"
256 $ perl_d_fchmod="undef"
257 $ perl_d_fchown="undef"
258 $ perl_d_fcntl="undef"
259 $ perl_d_fgetpos="define"
260 $ perl_d_flexfnam="define"
261 $ perl_d_flock="undef"
262 $ perl_d_fsetpos="define"
263 $ perl_d_getgrps="undef"
264 $ perl_d_setgrps="undef"
265 $ perl_d_getprior="undef"
266 $ perl_d_killpg="undef"
267 $ perl_d_link="undef"
268 $ perl_d_lstat="undef"
269 $ perl_d_lockf="undef"
270 $ perl_d_memcmp="define"
271 $ perl_d_memcpy="define"
272 $ perl_d_memmove="define"
273 $ perl_d_memset="define"
274 $ perl_d_mkdir="define"
275 $ perl_d_msg="undef"
276 $ perl_d_open3="define"
277 $ perl_d_poll="undef"
278 $ perl_d_readdir="define"
279 $ perl_d_seekdir="define"
280 $ perl_d_telldir="define"
281 $ perl_d_rewinddir="define"
282 $ perl_d_rename="define"
283 $ perl_d_rmdir="define"
284 $ perl_d_sem="undef"
285 $ perl_d_setegid="undef"
286 $ perl_d_seteuid="undef"
287 $ perl_d_setprior="undef"
288 $ perl_d_setregid="undef"
289 $ perl_d_setresgid="undef"
290 $ perl_d_setreuid="undef"
291 $ perl_d_setresuid="undef"
292 $ perl_d_setrgid="undef"
293 $ perl_d_setruid="undef"
294 $ perl_d_setsid="undef"
295 $ perl_d_shm="undef"
296 $ perl_d_shmatprototype="undef"
297 $ perl_d_statblks="undef"
298 $ perl_stdio_ptr="((*fp)->_ptr)"
299 $ perl_stdio_cnt="((*fp)->_cnt)"
300 $ perl_stdio_base="((*fp)->_base)"
301 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
302 $ perl_d_strctcpy="define"
303 $ perl_d_strerror="define"
304 $ perl_d_syserrlst="undef"
305 $ perl_d_strerrm="strerror((e),vaxc$errno)"
306 $ perl_d_symlink="undef"
307 $ perl_d_syscall="undef"
308 $ perl_d_system="define"
309 $ perl_timetype="time_t"
310 $ perl_d_vfork="define"
311 $ perl_signal_t="void"
312 $ perl_d_volatile="define"
313 $ perl_d_vprintf="define"
314 $ perl_d_charvspr="undef"
315 $ perl_d_waitpid="define"
316 $ perl_i_dirent="undef"
317 $ perl_d_dirnamlen="define"
318 $ perl_direntrytype="struct dirent"
319 $ perl_i_fcntl="undef"
320 $ perl_i_grp="undef"
321 $ perl_i_limits="define"
322 $ perl_i_memory="undef"
323 $ perl_i_ndbm="undef"
324 $ perl_i_stdarg="define"
325 $ perl_i_pwd="undef"
326 $ perl_d_pwquota="undef"
327 $ perl_d_pwage="undef"
328 $ perl_d_pwchange="undef"
329 $ perl_d_pwclass="undef"
330 $ perl_d_pwexpire="undef"
331 $ perl_d_pwcomment="define"
332 $ perl_i_stddef="define"
333 $ perl_i_stdlib="define"
334 $ perl_i_string="define"
335 $ perl_i_sysdir="undef"
336 $ perl_i_sysfile="undef"
337 $ perl_i_sysioctl="undef"
338 $ perl_i_sysndir="undef"
339 $ perl_i_sysresrc="undef"
340 $ perl_i_sysselct="undef"
341 $ perl_i_dbm="undef"
342 $ perl_i_rpcsvcdbm="undef"
343 $ perl_i_sfio="undef"
344 $ perl_i_sysstat="define"
345 $ perl_i_systimes="undef"
346 $ perl_i_systypes="define"
347 $ perl_i_sysun="undef"
348 $ perl_i_syswait="undef"
349 $ perl_i_termio="undef"
350 $ perl_i_sgtty="undef"
351 $ perl_i_termios="undef"
352 $ perl_i_time="define"
353 $ perl_i_systime="undef"
354 $ perl_i_systimek="undef"
355 $! perl_i_unistd="undef"
356 $ perl_i_utime="undef"
357 $ perl_i_varargs="undef"
358 $ perl_i_vfork="undef"
359 $ perl_prototype="define"
360 $ perl_randbits="31"
361 $ perl_stdchar="char"
362 $ perl_d_unlink_all_versions="undef"
363 $ perl_full_sed="_NLA0:"
364 $ perl_bin="/''perl_prefix'/000000"
365 $ perl_binexp="''perl_prefix':[000000]"
366 $ perl_d_alarm="define"
367 $ perl_d_casti32="define"
368 $ perl_d_chown="define"
369 $ perl_d_chroot="undef"
370 $ perl_d_cuserid="define"
371 $ perl_d_dbl_dig="define"
372 $ perl_d_ldbl_dig="define"
373 $ perl_d_difftime="define"
374 $ perl_d_fork="undef"
375 $ perl_d_getlogin="define"
376 $ perl_d_getppid="undef"
377 $ perl_d_nice="define"
378 $ perl_d_pause="define"
379 $ perl_d_pipe="define"
380 $ perl_d_readlink="undef"
381 $ perl_d_setlinebuf="undef"
382 $ perl_d_strchr="define"
383 $ perl_d_strtod="define"
384 $ perl_d_strtol="define"
385 $ perl_d_strtoul="define"
386 $ perl_d_tcgetpgrp="undef"
387 $ perl_d_tcsetpgrp="undef"
388 $ perl_d_times="define"
389 $ perl_d_tzname="undef"
390 $ perl_d_umask="define"
391 $ perl_fpostype="fpos_t"
392 $ perl_i_dlfcn="undef"
393 $ perl_i_float="define"
394 $ perl_i_math="define"
395 $ perl_lseektype="int"
396 $ perl_i_values="undef"
397 $ perl_malloctype="void *"
398 $ perl_freetype="void"
399 $ if "''mymalloc'".eqs."Y"
400 $ THEN
401 $ perl_d_mymalloc="define"
402 $ ELSE
403 $ perl_d_mymalloc="undef"
404 $ENDIF
405 $ perl_sh="MCR"
406 $ perl_modetype="unsigned int"
407 $ perl_ssizetype="int"
408 $ perl_o_nonblock=" "
409 $ perl_eagain=" "
410 $ perl_rd_nodata=" "
411 $ perl_d_eofnblk="undef"
412 $ perl_d_oldarchlib="define"
413 $ perl_privlibexp="''perl_prefix':[lib]"
414 $ perl_privlib="''perl_prefix':[lib]"
415 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
416 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
417 $ perl_sitelib_stem="''perl_prefix':[lib.site_perl]"
418 $ perl_sizetype="size_t"
419 $ perl_i_sysparam="undef"
420 $ perl_d_void_closedir="define"
421 $ perl_d_dlerror="undef"
422 $ perl_d_dlsymun="undef"
423 $ perl_d_suidsafe="undef"
424 $ perl_d_dosuid="undef"
425 $ perl_d_inetaton="undef"
426 $ perl_d_isascii="define"
427 $ perl_d_mkfifo="undef"
428 $ perl_d_safebcpy="undef"
429 $ perl_d_safemcpy="define"
430 $ perl_d_sanemcmp="define"
431 $ perl_d_setpgrp="undef"
432 $ perl_d_bsdsetpgrp="undef"
433 $ perl_d_bsdpgrp="undef"
434 $ perl_d_setpgid="undef"
435 $ perl_d_setpgrp2="undef"
436 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
437 $ perl_d_getpgid="undef"
438 $ perl_d_getpgrp="undef"
439 $ perl_d_bsdgetpgrp="undef"
440 $ perl_d_getpgrp2="undef"
441 $ perl_d_sfio="undef"
442 $ perl_usedl="define"
443 $ perl_startperl="""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8'  !\n$ exit++ + ++$status != 0 and $exit = $status = undef;"""
444 $ perl_db_hashtype=" "
445 $ perl_db_prefixtype=" "
446 $ perl_useperlio="undef"
447 $ perl_defvoidused="15"
448 $ perl_voidflags="15"
449 $ perl_d_eunice="undef"
450 $ perl_d_pwgecos="define"
451 $ IF ("''Use_Threads'".eqs."T").and.("''VMS_VER'".LES."6.2")
452 $ THEN
453 $ 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"
454 $ ELSE
455 $ perl_libs=" "
456 $ ENDIF
457 $ IF ("''Using_Dec_C'".eqs."Yes")
458 $ THEN
459 $ perl_libc="(DECCRTL)"
460 $ ELSE
461 $ perl_libc=" "
462 $ ENDIF
463 $ perl_PATCHLEVEL="''patchlevel'"
464 $ perl_SUBVERSION="''subversion'"
465 $ perl_pager="most"
466 $!
467 $! Are we 64 bit?
468 $!
469 $ if (use64bitint)
470 $ THEN
471 $   perl_d_PRIfldbl = "define"
472 $   perl_d_PRIgldbl = "define"
473 $   perl_d_PRId64 = "define"
474 $   perl_d_PRIu64 = "define"
475 $   perl_d_PRIo64 = "define"
476 $   perl_d_PRIx64 = "define"
477 $   perl_sPRIfldbl = """Lf"""
478 $   perl_sPRIgldbl = """Lg"""
479 $   perl_sPRId64 = """Ld"""
480 $   perl_sPRIu64 = """Lu"""
481 $   perl_sPRIo64 = """Lo"""
482 $   perl_sPRIx64 = """Lx"""
483 $   perl_d_quad = "define"
484 $   perl_quadtype = "long long"
485 $   perl_uquadtype = "unsigned long long"
486 $   perl_quadkind  = "QUAD_IS_LONG_LONG"
487 $ ELSE
488 $   perl_d_PRIfldbl = "undef"
489 $   perl_d_PRIgldbl = "undef"
490 $   perl_d_PRId64 = "undef"
491 $   perl_d_PRIu64 = "undef"
492 $   perl_d_PRIo64 = "undef"
493 $   perl_d_PRIx64 = "undef"
494 $   perl_sPRIfldbl = ""
495 $   perl_sPRIgldbl = ""
496 $   perl_sPRId64 = ""
497 $   perl_sPRIu64 = ""
498 $   perl_sPRIo64 = ""
499 $   perl_sPRIx64 = ""
500 $   perl_d_quad = "undef"
501 $   perl_quadtype = "long"
502 $   perl_uquadtype = "unsigned long"
503 $   perl_quadkind  = "QUAD_IS_LONG"
504 $ ENDIF
505 $!
506 $! Now some that we build up
507 $!
508 $ LocalTime = f$time()
509 $ perl_cf_time= f$extract(0, 3, f$cvtime(LocalTime,, "WEEKDAY")) + " " + - 
510                 f$edit(f$cvtime(LocalTime, "ABSOLUTE", "MONTH"), "LOWERCASE") + -
511                 " " + f$cvtime(LocalTime,, "DAY") + " " + f$cvtime(LocalTime,, "TIME") + -
512                 " " + f$cvtime(LocalTime,, "YEAR")
513 $ if f$getsyi("HW_MODEL").ge.1024
514 $ THEN
515 $ perl_arch="VMS_AXP"
516 $ perl_archname="VMS_AXP"
517 $ perl_alignbytes="8"
518 $ ELSE
519 $ perl_arch="VMS_VAX"
520 $ perl_archname="VMS_VAX"
521 $ perl_alignbytes="8"
522 $ ENDIF
523 $ if ("''Use_Threads'".eqs."T")
524 $ THEN
525 $   if use_5005_threads
526 $   THEN
527 $     perl_arch = "''perl_arch'-thread"
528 $     perl_archname = "''perl_archname'-thread"
529 $     perl_d_old_pthread_create_joinable = "undef"
530 $     perl_old_pthread_create_joinable = " "
531 $     perl_use5005threads = "define"
532 $     perl_useithreads = "undef"
533 $   ELSE
534 $     perl_arch = "''perl_arch'-ithread"
535 $     perl_archname = "''perl_archname'-ithread"
536 $     perl_d_old_pthread_create_joinable = "undef"
537 $     perl_old_pthread_create_joinable = " "
538 $     perl_use5005threads = "undef"
539 $     perl_useithreads = "define"
540 $   ENDIF
541 $ ELSE
542 $   perl_d_old_pthread_create_joinable = "undef"
543 $   perl_old_pthread_create_joinable = " "
544 $   perl_use5005threads = "undef"
545 $   perl_useithreads = "undef"
546 $ ENDIF
547 $ perl_osvers=f$edit(osvers, "TRIM")
548 $ if (perl_subversion + 0).eq.0
549 $ THEN
550 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL
551 $ ELSE
552 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion
553 $ ENDIF
554 $!
555 $! Some that we need to invoke the compiler for
556 $ OS := "open/write SOURCECHAN []temp.c"
557 $ WS := "write SOURCECHAN"
558 $ CS := "close SOURCECHAN"
559 $ DS := "delete/nolog []temp.*;*"
560 $ Needs_Opt := "No"
561 $ if ("''using_gnu_c'".eqs."Yes")
562 $ THEN
563 $   open/write OPTCHAN []temp.opt
564 $   write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
565 $   write OPTCHAN "Sys$Share:VAXCRTL/Share"
566 $   Close OPTCHAN
567 $   Needs_Opt := "Yes"
568 $ ENDIF
569 $!
570 $! Check for __STDC__
571 $!
572 $ OS
573 $ WS "#ifdef __DECC
574 $ WS "#include <stdlib.h>
575 $ WS "#endif
576 $ WS "#include <stdio.h>
577 $ WS "int main()
578 $ WS "{"
579 $ WS "#ifdef __STDC__
580 $ WS "printf(""42\n"");
581 $ WS "#else
582 $ WS "printf(""1\n"");
583 $ WS "#endif
584 $ WS "exit(0);
585 $ WS "}"
586 $ CS
587 $   DEFINE SYS$ERROR _NLA0:
588 $   DEFINE SYS$OUTPUT _NLA0:
589 $   ON ERROR THEN CONTINUE
590 $   ON WARNING THEN CONTINUE
591 $   'Checkcc' temp.c
592 $   If (Needs_Opt.eqs."Yes")
593 $   THEN
594 $     link temp.obj,temp.opt/opt
595 $   else
596 $     link temp.obj
597 $   endif
598 $   DEASSIGN SYS$OUTPUT
599 $   DEASSIGN SYS$ERROR
600 $   OPEN/WRITE TEMPOUT [-.uu]tempout.lis
601 $   DEFINE SYS$ERROR TEMPOUT
602 $   DEFINE SYS$OUTPUT TEMPOUT
603 $   mcr []temp
604 $   CLOSE TEMPOUT
605 $   DEASSIGN SYS$OUTPUT
606 $   DEASSIGN SYS$ERROR
607 $   OPEN/READ TEMPOUT [-.uu]tempout.lis
608 $   READ TEMPOUT line
609 $   CLOSE TEMPOUT
610 $   DELETE/NOLOG [-.uu]tempout.lis;
611
612 $ perl_cpp_stuff=line
613 $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
614 $!
615 $! Check for double size
616 $!
617 $ OS
618 $ WS "#ifdef __DECC
619 $ WS "#include <stdlib.h>
620 $ WS "#endif
621 $ WS "#include <stdio.h>
622 $ WS "int main()
623 $ WS "{"
624 $ WS "int foo;
625 $ WS "foo = sizeof(double);
626 $ WS "printf(""%d\n"", foo);
627 $ WS "exit(0);
628 $ WS "}"
629 $ CS
630 $   DEFINE SYS$ERROR _NLA0:
631 $   DEFINE SYS$OUTPUT _NLA0:
632 $   ON ERROR THEN CONTINUE
633 $   ON WARNING THEN CONTINUE
634 $   'Checkcc' temp.c
635 $   If (Needs_Opt.eqs."Yes")
636 $   THEN
637 $     link temp.obj,temp.opt/opt
638 $   else
639 $     link temp.obj
640 $   endif
641 $   OPEN/WRITE TEMPOUT [-.uu]tempout.lis
642 $   DEASSIGN SYS$OUTPUT
643 $   DEASSIGN SYS$ERROR
644 $   DEFINE SYS$ERROR TEMPOUT
645 $   DEFINE SYS$OUTPUT TEMPOUT
646 $   mcr []temp
647 $   CLOSE TEMPOUT
648 $   DEASSIGN SYS$OUTPUT
649 $   DEASSIGN SYS$ERROR
650 $   OPEN/READ TEMPOUT [-.uu]tempout.lis
651 $   READ TEMPOUT line
652 $   CLOSE TEMPOUT
653 $ DELETE/NOLOG [-.uu]tempout.lis;
654
655 $ perl_doublesize=line
656 $ WRITE_RESULT "doublesize is ''perl_doublesize'"
657 $!
658 $! Check for long double size
659 $!
660 $ OS
661 $ WS "#ifdef __DECC
662 $ WS "#include <stdlib.h>
663 $ WS "#endif
664 $ WS "#include <stdio.h>
665 $ WS "int main()
666 $ WS "{"
667 $ WS "printf(""%d\n"", sizeof(long double));
668 $ WS "exit(0);
669 $ WS "}"
670 $ CS
671 $   DEFINE SYS$ERROR _NLA0:
672 $   DEFINE SYS$OUTPUT _NLA0:
673 $   ON ERROR THEN CONTINUE
674 $   ON WARNING THEN CONTINUE
675 $   'Checkcc' temp.c
676 $   teststatus = f$extract(9,1,$status)
677 $   if (teststatus.nes."1")
678 $   THEN
679 $     perl_longdblsize="0"
680 $     perl_d_longdbl="undef"
681 $   ELSE
682 $     ON ERROR THEN CONTINUE
683 $     ON WARNING THEN CONTINUE
684 $     If (Needs_Opt.eqs."Yes")
685 $     THEN
686 $     link temp.obj,temp.opt/opt
687 $     else
688 $       link temp.obj
689 $     endif
690 $     teststatus = f$extract(9,1,$status)
691 $     DEASSIGN SYS$OUTPUT
692 $     DEASSIGN SYS$ERROR
693 $     if (teststatus.nes."1")
694 $     THEN
695 $       perl_longdblsize="0"
696 $       perl_d_longdbl="undef"
697 $     ELSE
698 $       OPEN/WRITE TEMPOUT [-.uu]tempout.lis
699 $       DEFINE SYS$ERROR TEMPOUT
700 $       DEFINE SYS$OUTPUT TEMPOUT
701 $       mcr []temp
702 $       CLOSE TEMPOUT
703 $       DEASSIGN SYS$OUTPUT
704 $       DEASSIGN SYS$ERROR
705 $       OPEN/READ TEMPOUT [-.uu]tempout.lis
706 $       READ TEMPOUT line
707 $       CLOSE TEMPOUT
708 $       DELETE/NOLOG [-.uu]tempout.lis;
709
710 $       perl_longdblsize=line
711 $       perl_d_longdbl="define"
712 $     ENDIF
713 $   ENDIF
714 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
715 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
716 $!
717 $! Check for long long existance and size
718 $!
719 $ OS
720 $ WS "#ifdef __DECC
721 $ WS "#include <stdlib.h>
722 $ WS "#endif
723 $ WS "#include <stdio.h>
724 $ WS "int main()
725 $ WS "{"
726 $ WS "printf(""%d\n"", sizeof(long long));
727 $ WS "exit(0);
728 $ WS "}"
729 $ CS
730 $   DEFINE SYS$ERROR _NLA0:
731 $   DEFINE SYS$OUTPUT _NLA0:
732 $   on error then continue
733 $   on warning then continue
734 $   'Checkcc' temp.c
735 $   If (Needs_Opt.eqs."Yes")
736 $   THEN
737 $     link temp.obj,temp.opt/opt
738 $   else
739 $     link temp.obj
740 $   endif
741 $   teststatus = f$extract(9,1,$status)
742 $   DEASSIGN SYS$OUTPUT
743 $   DEASSIGN SYS$ERROR
744 $   if (teststatus.nes."1")
745 $   THEN
746 $     perl_longlongsize="0"
747 $     perl_d_longlong="undef"
748 $   ELSE
749 $     OPEN/WRITE TEMPOUT [-.uu]tempout.lis
750 $     DEFINE SYS$ERROR TEMPOUT
751 $     DEFINE SYS$OUTPUT TEMPOUT
752 $     mcr []temp
753 $     CLOSE TEMPOUT
754 $     DEASSIGN SYS$OUTPUT
755 $     DEASSIGN SYS$ERROR
756 $     OPEN/READ TEMPOUT [-.uu]tempout.lis
757 $     READ TEMPOUT line
758 $     CLOSE TEMPOUT
759 $     DELETE/NOLOG [-.uu]tempout.lis;
760 $     perl_longlongsize=line
761 $     perl_d_longlong="define"
762 $   ENDIF
763 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
764 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
765 $!
766 $! Check the prototype for getgid
767 $!
768 $ OS
769 $ WS "#ifdef __DECC
770 $ WS "#include <stdlib.h>
771 $ WS "#endif
772 $ WS "#include <stdio.h>
773 $ WS "#include <types.h>
774 $ WS "#include <unistd.h>
775 $ WS "int main()
776 $ WS "{"
777 $ WS "gid_t foo;
778 $ WS "exit(0);
779 $ WS "}"
780 $ CS
781 $   DEFINE SYS$ERROR _NLA0:
782 $   DEFINE SYS$OUTPUT _NLA0:
783 $   on error then continue
784 $   on warning then continue
785 $   'Checkcc' temp.c
786 $   teststatus = f$extract(9,1,$status)
787 $   DEASSIGN SYS$OUTPUT
788 $   DEASSIGN SYS$ERROR
789 $   if (teststatus.nes."1")
790 $   THEN
791 $!   Okay, gid_t failed. Must be unsigned int
792 $     perl_gidtype = "unsigned int"
793 $   ELSE
794 $     perl_gidtype = "gid_t"
795 $   ENDIF
796 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
797 $!
798 $! Check to see if we've got dev_t
799 $!
800 $ OS
801 $ WS "#ifdef __DECC
802 $ WS "#include <stdlib.h>
803 $ WS "#endif
804 $ WS "#include <stdio.h>
805 $ WS "#include <types.h>
806 $ WS "#include <unistd.h>
807 $ WS "int main()
808 $ WS "{"
809 $ WS "dev_t foo;
810 $ WS "exit(0);
811 $ WS "}"
812 $ CS
813 $   DEFINE SYS$ERROR _NLA0:
814 $   DEFINE SYS$OUTPUT _NLA0:
815 $   on error then continue
816 $   on warning then continue
817 $   'Checkcc' temp.c
818 $   teststatus = f$extract(9,1,$status)
819 $   DEASSIGN SYS$OUTPUT
820 $   DEASSIGN SYS$ERROR
821 $   if (teststatus.nes."1")
822 $   THEN
823 $!   Okay, dev_t failed. Must be unsigned int
824 $     perl_devtype = "unsigned int"
825 $   ELSE
826 $     perl_devtype = "dev_t"
827 $   ENDIF
828 $ WRITE_RESULT "Dev_t is ''perl_devtype'"
829 $!
830 $! Check to see if we've got unistd.h (which we ought to, but you never know)
831 $!
832 $ OS
833 $ WS "#ifdef __DECC
834 $ WS "#include <stdlib.h>
835 $ WS "#endif
836 $ WS "#include <unistd.h>
837 $ WS "int main()
838 $ WS "{"
839 $ WS "exit(0);
840 $ WS "}"
841 $ CS
842 $   DEFINE SYS$ERROR _NLA0:
843 $   DEFINE SYS$OUTPUT _NLA0:
844 $   on error then continue
845 $   on warning then continue
846 $   'Checkcc' temp.c
847 $   teststatus = f$extract(9,1,$status)
848 $   DEASSIGN SYS$OUTPUT
849 $   DEASSIGN SYS$ERROR
850 $   if (teststatus.nes."1")
851 $   THEN
852 $!   Okay, failed. Must not have it
853 $     perl_i_unistd = "undef"
854 $   ELSE
855 $     perl_i_unistd = "define"
856
857 $   ENDIF
858 $ WRITE_RESULT "i_unistd is ''perl_i_unistd'"
859 $!
860 $! Check to see if we've got shadow.h (probably not, but...)
861 $!
862 $ OS
863 $ WS "#ifdef __DECC
864 $ WS "#include <stdlib.h>
865 $ WS "#endif
866 $ WS "#include <shadow.h>
867 $ WS "int main()
868 $ WS "{"
869 $ WS "exit(0);
870 $ WS "}"
871 $ CS
872 $   DEFINE SYS$ERROR _NLA0:
873 $   DEFINE SYS$OUTPUT _NLA0:
874 $   on error then continue
875 $   on warning then continue
876 $   'Checkcc' temp.c
877 $   teststatus = f$extract(9,1,$status)
878 $   DEASSIGN SYS$OUTPUT
879 $   DEASSIGN SYS$ERROR
880 $   if (teststatus.nes."1")
881 $   THEN
882 $!   Okay, failed. Must not have it
883 $     perl_i_shadow = "undef"
884 $   ELSE
885 $     perl_i_shadow = "define"
886
887 $   ENDIF
888 $ WRITE_RESULT "i_shadow is ''perl_i_shadow'"
889 $!
890 $! Check to see if we've got socks.h (probably not, but...)
891 $!
892 $ OS
893 $ WS "#ifdef __DECC
894 $ WS "#include <stdlib.h>
895 $ WS "#endif
896 $ WS "#include <socks.h>
897 $ WS "int main()
898 $ WS "{"
899 $ WS "exit(0);
900 $ WS "}"
901 $ CS
902 $   DEFINE SYS$ERROR _NLA0:
903 $   DEFINE SYS$OUTPUT _NLA0:
904 $   on error then continue
905 $   on warning then continue
906 $   'Checkcc' temp.c
907 $   teststatus = f$extract(9,1,$status)
908 $   DEASSIGN SYS$OUTPUT
909 $   DEASSIGN SYS$ERROR
910 $   if (teststatus.nes."1")
911 $   THEN
912 $!   Okay, failed. Must not have it
913 $     perl_i_socks = "undef"
914 $   ELSE
915 $     perl_i_socks = "define"
916
917 $   ENDIF
918 $ WRITE_RESULT "i_socks is ''perl_i_socks'"
919 $!
920 $! Check the prototype for select
921 $!
922 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
923 $ THEN
924 $ OS
925 $ WS "#ifdef __DECC
926 $ WS "#include <stdlib.h>
927 $ WS "#endif
928 $ WS "#include <stdio.h>
929 $ WS "#include <types.h>
930 $ WS "#include <unistd.h>
931 $ if ("''Has_Socketshr'".eqs."T")
932 $ THEN
933 $  WS "#include <socketshr.h>"
934 $ else
935 $  WS "#include <time.h>
936 $  WS "#include <socket.h>
937 $ endif
938 $ WS "int main()
939 $ WS "{"
940 $ WS "fd_set *foo;
941 $ WS "int bar;
942 $ WS "foo = NULL;
943 $ WS "bar = select(2, foo, foo, foo, NULL);
944 $ WS "exit(0);
945 $ WS "}"
946 $ CS
947 $   DEFINE SYS$ERROR _NLA0:
948 $   DEFINE SYS$OUTPUT _NLA0:
949 $   on error then continue
950 $   on warning then continue
951 $   'Checkcc' temp.c
952 $   teststatus = f$extract(9,1,$status)
953 $   DEASSIGN SYS$OUTPUT
954 $   DEASSIGN SYS$ERROR
955 $   if (teststatus.nes."1")
956 $   THEN
957 $!   Okay, fd_set failed. Must be an int
958 $     perl_selecttype = "int *"
959 $   ELSE
960 $     perl_selecttype="fd_set *"
961 $   ENDIF
962 $ ELSE
963 $   ! No sockets, so stick in an int *
964 $   perl_selecttype = "int *"
965 $ ENDIF
966 $ WRITE_RESULT "selectype is ''perl_selecttype'"
967 $!
968 $! Check to see if fd_set exists
969 $!
970 $ OS
971 $ WS "#ifdef __DECC
972 $ WS "#include <stdlib.h>
973 $ WS "#endif
974 $ WS "#include <stdio.h>
975 $ WS "#include <types.h>
976 $ WS "#include <unistd.h>
977 $ if ("''Has_Socketshr'".eqs."T")
978 $ THEN
979 $  WS "#include <socketshr.h>"
980 $ ENDIF
981 $ IF ("''Has_Dec_C_Sockets'".eqs."T")
982 $ THEN
983 $  WS "#include <time.h>
984 $  WS "#include <socket.h>
985 $ endif
986 $ WS "int main()
987 $ WS "{"
988 $ WS "fd_set *foo;
989 $ WS "int bar;
990 $ WS "exit(0);
991 $ WS "}"
992 $ CS
993 $ DEFINE SYS$ERROR _NLA0:
994 $ DEFINE SYS$OUTPUT _NLA0:
995 $ on error then continue
996 $ on warning then continue
997 $ 'Checkcc' temp.c
998 $ teststatus = f$extract(9,1,$status)
999 $ DEASSIGN SYS$OUTPUT
1000 $ DEASSIGN SYS$ERROR
1001 $ if (teststatus.nes."1")
1002 $ THEN
1003 $!  Okay, fd_set failed. Must not exist
1004 $   perl_d_fd_set = "undef"
1005 $ ELSE
1006 $   perl_d_fd_set="define"
1007 $ ENDIF
1008 $ WRITE_RESULT "d_fd_set is ''perl_d_fd_set'"
1009 $!
1010 $! Check for inttypes.h
1011 $!
1012 $ OS
1013 $ WS "#ifdef __DECC
1014 $ WS "#include <stdlib.h>
1015 $ WS "#endif
1016 $ WS "#include <stdio.h>
1017 $ WS "#include <unistd.h>
1018 $ WS "#include <inttypes.h>
1019 $ WS "int main()
1020 $ WS "{"
1021 $ WS "exit(0);
1022 $ WS "}"
1023 $ CS
1024 $   DEFINE SYS$ERROR _NLA0:
1025 $   DEFINE SYS$OUTPUT _NLA0:
1026 $   on error then continue
1027 $   on warning then continue
1028 $   'Checkcc' temp.c
1029 $   savedstatus = $status
1030 $   teststatus = f$extract(9,1,savedstatus)
1031 $   if (teststatus.nes."1")
1032 $   THEN
1033 $     perl_i_inttypes="undef"
1034 $     DEASSIGN SYS$OUTPUT
1035 $     DEASSIGN SYS$ERROR
1036 $   ELSE
1037 $     If (Needs_Opt.eqs."Yes")
1038 $     THEN
1039 $       link temp.obj,temp.opt/opt
1040 $     else
1041 $       link temp.obj
1042 $     endif
1043 $     savedstatus = $status
1044 $     teststatus = f$extract(9,1,savedstatus)
1045 $     DEASSIGN SYS$OUTPUT
1046 $     DEASSIGN SYS$ERROR
1047 $     if (teststatus.nes."1")
1048 $     THEN
1049 $       perl_i_inttypes="undef"
1050 $     ELSE
1051 $       perl_i_inttypes="define"
1052 $     ENDIF
1053 $   ENDIF
1054 $ WRITE_RESULT "i_inttypes is ''perl_i_inttypes'"
1055 $!
1056 $! Check for h_errno
1057 $!
1058 $ OS
1059 $ WS "#ifdef __DECC
1060 $ WS "#include <stdlib.h>
1061 $ WS "#endif
1062 $ WS "#include <stdio.h>
1063 $ WS "#include <unistd.h>
1064 $ WS "#include <netdb.h>
1065 $ WS "int main()
1066 $ WS "{"
1067 $ WS "h_errno = 3;
1068 $ WS "exit(0);
1069 $ WS "}"
1070 $ CS
1071 $   DEFINE SYS$ERROR _NLA0:
1072 $   DEFINE SYS$OUTPUT _NLA0:
1073 $   on error then continue
1074 $   on warning then continue
1075 $   'Checkcc' temp.c
1076 $   savedstatus = $status
1077 $   teststatus = f$extract(9,1,savedstatus)
1078 $   if (teststatus.nes."1")
1079 $   THEN
1080 $     perl_d_herrno="undef"
1081 $     DEASSIGN SYS$OUTPUT
1082 $     DEASSIGN SYS$ERROR
1083 $   ELSE
1084 $     If (Needs_Opt)
1085 $     THEN
1086 $       link temp.obj,temp.opt/opt
1087 $     else
1088 $       link temp.obj
1089 $     endif
1090 $     savedstatus = $status
1091 $     teststatus = f$extract(9,1,savedstatus)
1092 $     DEASSIGN SYS$OUTPUT
1093 $     DEASSIGN SYS$ERROR
1094 $     if (teststatus.nes."1")
1095 $     THEN
1096 $       perl_d_herrno="undef"
1097 $     ELSE
1098 $       perl_d_herrno="define"
1099 $     ENDIF
1100 $   ENDIF
1101 $ WRITE_RESULT "d_herrno is ''perl_d_herrno'"
1102 $!
1103 $! Check to see if int64_t exists
1104 $!
1105 $ OS
1106 $ WS "#ifdef __DECC
1107 $ WS "#include <stdlib.h>
1108 $ WS "#endif
1109 $ WS "#include <stdio.h>
1110 $ WS "#include <types.h>
1111 $ WS "#''perl_i_inttypes IIH
1112 $ WS "#ifdef IIH
1113 $ WS "#include <inttypes.h>
1114 $ WS "#endif
1115 $ WS "#include <unistd.h>
1116 $ WS "int main()
1117 $ WS "{"
1118 $ WS "int64_t bar;
1119 $ WS "exit(0);
1120 $ WS "}"
1121 $ CS
1122 $ DEFINE SYS$ERROR _NLA0:
1123 $ DEFINE SYS$OUTPUT _NLA0:
1124 $ on error then continue
1125 $ on warning then continue
1126 $ 'Checkcc' temp.c
1127 $ teststatus = f$extract(9,1,$status)
1128 $ DEASSIGN SYS$OUTPUT
1129 $ DEASSIGN SYS$ERROR
1130 $ if (teststatus.nes."1")
1131 $ THEN
1132 $!  Okay, int64_t failed. Must not exist
1133 $   perl_d_int64_t = "undef"
1134 $ ELSE
1135 $   perl_d_int64_t="define"
1136 $ ENDIF
1137 $ WRITE_RESULT "d_int64_t is ''perl_d_int64_t'"
1138 $!
1139 $! Check to see if off64_t exists
1140 $!
1141 $ OS
1142 $ WS "#ifdef __DECC
1143 $ WS "#include <stdlib.h>
1144 $ WS "#endif
1145 $ WS "#include <stdio.h>
1146 $ WS "#include <types.h>
1147 $ WS "#''perl_i_inttypes IIH
1148 $ WS "#ifdef IIH
1149 $ WS "#include <inttypes.h>
1150 $ WS "#endif
1151 $ WS "#include <unistd.h>
1152 $ WS "int main()
1153 $ WS "{"
1154 $ WS "off64_t bar;
1155 $ WS "exit(0);
1156 $ WS "}"
1157 $ CS
1158 $ DEFINE SYS$ERROR _NLA0:
1159 $ DEFINE SYS$OUTPUT _NLA0:
1160 $ on error then continue
1161 $ on warning then continue
1162 $ 'Checkcc' temp.c
1163 $ teststatus = f$extract(9,1,$status)
1164 $ DEASSIGN SYS$OUTPUT
1165 $ DEASSIGN SYS$ERROR
1166 $ if (teststatus.nes."1")
1167 $ THEN
1168 $!  Okay, off64_t failed. Must not exist
1169 $   perl_d_off64_t = "undef"
1170 $ ELSE
1171 $   perl_d_off64_t="define"
1172 $ ENDIF
1173 $ WRITE_RESULT "d_off64_t is ''perl_d_off64_t'"
1174 $!
1175 $! Check to see if fpos64_t exists
1176 $!
1177 $ OS
1178 $ WS "#ifdef __DECC
1179 $ WS "#include <stdlib.h>
1180 $ WS "#endif
1181 $ WS "#include <stdio.h>
1182 $ WS "#include <types.h>
1183 $ WS "#''perl_i_inttypes IIH
1184 $ WS "#ifdef IIH
1185 $ WS "#include <inttypes.h>
1186 $ WS "#endif
1187 $ WS "#include <unistd.h>
1188 $ WS "int main()
1189 $ WS "{"
1190 $ WS "fpos64_t bar;
1191 $ WS "exit(0);
1192 $ WS "}"
1193 $ CS
1194 $ DEFINE SYS$ERROR _NLA0:
1195 $ DEFINE SYS$OUTPUT _NLA0:
1196 $ on error then continue
1197 $ on warning then continue
1198 $ 'Checkcc' temp.c
1199 $ teststatus = f$extract(9,1,$status)
1200 $ DEASSIGN SYS$OUTPUT
1201 $ DEASSIGN SYS$ERROR
1202 $ if (teststatus.nes."1")
1203 $ THEN
1204 $!  Okay, fpos64_t failed. Must not exist
1205 $   perl_d_fpos64_t = "undef"
1206 $ ELSE
1207 $   perl_d_fpos64_t="define"
1208 $ ENDIF
1209 $ WRITE_RESULT "d_fpos64_t is ''perl_d_fpos64_t'"
1210 $!
1211 $! Check to see if gethostname exists
1212 $!
1213 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1214 $ THEN
1215 $ OS
1216 $ WS "#ifdef __DECC
1217 $ WS "#include <stdlib.h>
1218 $ WS "#endif
1219 $ WS "#include <stdio.h>
1220 $ WS "#include <types.h>
1221 $ WS "#include <unistd.h>
1222 $ if ("''Has_Socketshr'".eqs."T")
1223 $ THEN
1224 $  WS "#include <socketshr.h>"
1225 $ else
1226 $  WS "#include <time.h>
1227 $  WS "#include <socket.h>
1228 $ endif
1229 $ WS "int main()
1230 $ WS "{"
1231 $ WS "char name[100];
1232 $ WS "int bar, baz;
1233 $ WS "bar = 100;
1234 $ WS "baz = gethostname(name, bar);
1235 $ WS "exit(0);
1236 $ WS "}"
1237 $ CS
1238 $   DEFINE SYS$ERROR _NLA0:
1239 $   DEFINE SYS$OUTPUT _NLA0:
1240 $   on error then continue
1241 $   on warning then continue
1242 $   'Checkcc' temp.c
1243 $   teststatus = f$extract(9,1,$status)
1244 $   DEASSIGN SYS$OUTPUT
1245 $   DEASSIGN SYS$ERROR
1246 $   if (teststatus.nes."1")
1247 $   THEN
1248 $!   Okay, compile failed. Must not have it
1249 $     perl_d_gethname = "undef"
1250 $   ELSE
1251 $     If (Needs_Opt.eqs."Yes")
1252 $     THEN
1253 $       link temp.obj,temp.opt/opt
1254 $     else
1255 $       link temp.obj
1256 $     endif
1257 $     savedstatus = $status
1258 $     teststatus = f$extract(9,1,savedstatus)
1259 $     if (teststatus.nes."1")
1260 $     THEN
1261 $       perl_d_gethname="undef"
1262 $     ELSE
1263 $       perl_d_gethname="define"
1264 $     ENDIF
1265 $   ENDIF
1266 $ ELSE
1267 $   ! No sockets, so no gethname
1268 $   perl_d_gethname = "undef"
1269 $ ENDIF
1270 $ WRITE_RESULT "d_gethname is ''perl_d_gethname'"
1271 $!
1272 $! Check for sys/file.h
1273 $!
1274 $ OS
1275 $ WS "#ifdef __DECC
1276 $ WS "#include <stdlib.h>
1277 $ WS "#endif
1278 $ WS "#include <stdio.h>
1279 $ WS "#include <unistd.h>
1280 $ WS "#include <sys/file.h>
1281 $ WS "int main()
1282 $ WS "{"
1283 $ WS "exit(0);
1284 $ WS "}"
1285 $ CS
1286 $   DEFINE SYS$ERROR _NLA0:
1287 $   DEFINE SYS$OUTPUT _NLA0:
1288 $   on error then continue
1289 $   on warning then continue
1290 $   'Checkcc' temp.c
1291 $   savedstatus = $status
1292 $   teststatus = f$extract(9,1,savedstatus)
1293 $   if (teststatus.nes."1")
1294 $   THEN
1295 $     perl_i_sysfile="undef"
1296 $     DEASSIGN SYS$OUTPUT
1297 $     DEASSIGN SYS$ERROR
1298 $   ELSE
1299 $     If (Needs_Opt.eqs."Yes")
1300 $     THEN
1301 $       link temp.obj,temp.opt/opt
1302 $     else
1303 $       link temp.obj
1304 $     endif
1305 $     savedstatus = $status
1306 $     teststatus = f$extract(9,1,savedstatus)
1307 $     DEASSIGN SYS$OUTPUT
1308 $     DEASSIGN SYS$ERROR
1309 $     if (teststatus.nes."1")
1310 $     THEN
1311 $       perl_i_sysfile="undef"
1312 $     ELSE
1313 $       perl_i_sysfile="define"
1314 $     ENDIF
1315 $   ENDIF
1316 $ WRITE_RESULT "i_sysfile is ''perl_i_sysfile'"
1317 $!
1318 $! Check for sys/utsname.h
1319 $!
1320 $ OS
1321 $ WS "#ifdef __DECC
1322 $ WS "#include <stdlib.h>
1323 $ WS "#endif
1324 $ WS "#include <stdio.h>
1325 $ WS "#include <unistd.h>
1326 $ WS "#include <sys/utsname.h>
1327 $ WS "int main()
1328 $ WS "{"
1329 $ WS "exit(0);
1330 $ WS "}"
1331 $ CS
1332 $   DEFINE SYS$ERROR _NLA0:
1333 $   DEFINE SYS$OUTPUT _NLA0:
1334 $   on error then continue
1335 $   on warning then continue
1336 $   'Checkcc' temp.c
1337 $   savedstatus = $status
1338 $   teststatus = f$extract(9,1,savedstatus)
1339 $   if (teststatus.nes."1")
1340 $   THEN
1341 $     perl_i_sysutsname="undef"
1342 $     DEASSIGN SYS$OUTPUT
1343 $     DEASSIGN SYS$ERROR
1344 $   ELSE
1345 $     If (Needs_Opt.eqs."Yes")
1346 $     THEN
1347 $       link temp.obj,temp.opt/opt
1348 $     else
1349 $       link temp.obj
1350 $     endif
1351 $     savedstatus = $status
1352 $     teststatus = f$extract(9,1,savedstatus)
1353 $     DEASSIGN SYS$OUTPUT
1354 $     DEASSIGN SYS$ERROR
1355 $     if (teststatus.nes."1")
1356 $     THEN
1357 $       perl_i_sysutsname="undef"
1358 $     ELSE
1359 $       perl_i_sysutsname="define"
1360 $     ENDIF
1361 $   ENDIF
1362 $ WRITE_RESULT "i_sysutsname is ''perl_i_sysutsname'"
1363 $!
1364 $! Check for syslog.h
1365 $!
1366 $ OS
1367 $ WS "#ifdef __DECC
1368 $ WS "#include <stdlib.h>
1369 $ WS "#endif
1370 $ WS "#include <stdio.h>
1371 $ WS "#include <unistd.h>
1372 $ WS "#include <syslog.h>
1373 $ WS "int main()
1374 $ WS "{"
1375 $ WS "exit(0);
1376 $ WS "}"
1377 $ CS
1378 $   DEFINE SYS$ERROR _NLA0:
1379 $   DEFINE SYS$OUTPUT _NLA0:
1380 $   on error then continue
1381 $   on warning then continue
1382 $   'Checkcc' temp.c
1383 $   savedstatus = $status
1384 $   teststatus = f$extract(9,1,savedstatus)
1385 $   if (teststatus.nes."1")
1386 $   THEN
1387 $     perl_i_syslog="undef"
1388 $     DEASSIGN SYS$OUTPUT
1389 $     DEASSIGN SYS$ERROR
1390 $   ELSE
1391 $     If (Needs_Opt.eqs."Yes")
1392 $     THEN
1393 $       link temp.obj,temp.opt/opt
1394 $     else
1395 $       link temp.obj
1396 $     endif
1397 $     savedstatus = $status
1398 $     teststatus = f$extract(9,1,savedstatus)
1399 $     DEASSIGN SYS$OUTPUT
1400 $     DEASSIGN SYS$ERROR
1401 $     if (teststatus.nes."1")
1402 $     THEN
1403 $       perl_i_syslog="undef"
1404 $     ELSE
1405 $       perl_i_syslog="define"
1406 $     ENDIF
1407 $   ENDIF
1408 $ WRITE_RESULT "i_syslog is ''perl_i_syslog'"
1409 $!
1410 $! Check for poll.h
1411 $!
1412 $ OS
1413 $ WS "#ifdef __DECC
1414 $ WS "#include <stdlib.h>
1415 $ WS "#endif
1416 $ WS "#include <stdio.h>
1417 $ WS "#include <unistd.h>
1418 $ WS "#include <poll.h>
1419 $ WS "int main()
1420 $ WS "{"
1421 $ WS "exit(0);
1422 $ WS "}"
1423 $ CS
1424 $   DEFINE SYS$ERROR _NLA0:
1425 $   DEFINE SYS$OUTPUT _NLA0:
1426 $   on error then continue
1427 $   on warning then continue
1428 $   'Checkcc' temp.c
1429 $   savedstatus = $status
1430 $   teststatus = f$extract(9,1,savedstatus)
1431 $   if (teststatus.nes."1")
1432 $   THEN
1433 $     perl_i_poll="undef"
1434 $     DEASSIGN SYS$OUTPUT
1435 $     DEASSIGN SYS$ERROR
1436 $   ELSE
1437 $     If (Needs_Opt.eqs."Yes")
1438 $     THEN
1439 $       link temp.obj,temp.opt/opt
1440 $     else
1441 $       link temp.obj
1442 $     endif
1443 $     savedstatus = $status
1444 $     teststatus = f$extract(9,1,savedstatus)
1445 $     DEASSIGN SYS$OUTPUT
1446 $     DEASSIGN SYS$ERROR
1447 $     if (teststatus.nes."1")
1448 $     THEN
1449 $       perl_i_poll="undef"
1450 $     ELSE
1451 $       perl_i_poll="define"
1452 $     ENDIF
1453 $   ENDIF
1454 $ WRITE_RESULT "i_poll is ''perl_i_poll'"
1455 $!
1456 $! Check for sys/uio.h
1457 $!
1458 $ OS
1459 $ WS "#ifdef __DECC
1460 $ WS "#include <stdlib.h>
1461 $ WS "#endif
1462 $ WS "#include <stdio.h>
1463 $ WS "#include <unistd.h>
1464 $ WS "#include <sys/uio.h>
1465 $ WS "int main()
1466 $ WS "{"
1467 $ WS "exit(0);
1468 $ WS "}"
1469 $ CS
1470 $   DEFINE SYS$ERROR _NLA0:
1471 $   DEFINE SYS$OUTPUT _NLA0:
1472 $   on error then continue
1473 $   on warning then continue
1474 $   'Checkcc' temp.c
1475 $   savedstatus = $status
1476 $   teststatus = f$extract(9,1,savedstatus)
1477 $   if (teststatus.nes."1")
1478 $   THEN
1479 $     perl_i_sysuio="undef"
1480 $     DEASSIGN SYS$OUTPUT
1481 $     DEASSIGN SYS$ERROR
1482 $   ELSE
1483 $     If (Needs_Opt.eqs."Yes")
1484 $     THEN
1485 $       link temp.obj,temp.opt/opt
1486 $     else
1487 $       link temp.obj
1488 $     endif
1489 $     savedstatus = $status
1490 $     teststatus = f$extract(9,1,savedstatus)
1491 $     DEASSIGN SYS$OUTPUT
1492 $     DEASSIGN SYS$ERROR
1493 $     if (teststatus.nes."1")
1494 $     THEN
1495 $       perl_i_sysuio="undef"
1496 $     ELSE
1497 $       perl_i_sysuio="define"
1498 $     ENDIF
1499 $   ENDIF
1500 $ WRITE_RESULT "i_sysuio is ''perl_i_sysuio'"
1501 $!
1502 $! Check for sys/mode.h
1503 $!
1504 $ OS
1505 $ WS "#ifdef __DECC
1506 $ WS "#include <stdlib.h>
1507 $ WS "#endif
1508 $ WS "#include <stdio.h>
1509 $ WS "#include <unistd.h>
1510 $ WS "#include <sys/mode.h>
1511 $ WS "int main()
1512 $ WS "{"
1513 $ WS "exit(0);
1514 $ WS "}"
1515 $ CS
1516 $   DEFINE SYS$ERROR _NLA0:
1517 $   DEFINE SYS$OUTPUT _NLA0:
1518 $   on error then continue
1519 $   on warning then continue
1520 $   'Checkcc' temp.c
1521 $   savedstatus = $status
1522 $   teststatus = f$extract(9,1,savedstatus)
1523 $   if (teststatus.nes."1")
1524 $   THEN
1525 $     perl_i_sysmode="undef"
1526 $     DEASSIGN SYS$OUTPUT
1527 $     DEASSIGN SYS$ERROR
1528 $   ELSE
1529 $     If (Needs_Opt.eqs."Yes")
1530 $     THEN
1531 $       link temp.obj,temp.opt/opt
1532 $     else
1533 $       link temp.obj
1534 $     endif
1535 $     savedstatus = $status
1536 $     teststatus = f$extract(9,1,savedstatus)
1537 $     DEASSIGN SYS$OUTPUT
1538 $     DEASSIGN SYS$ERROR
1539 $     if (teststatus.nes."1")
1540 $     THEN
1541 $       perl_i_sysmode="undef"
1542 $     ELSE
1543 $       perl_i_sysmode="define"
1544 $     ENDIF
1545 $   ENDIF
1546 $ WRITE_RESULT "i_sysmode is ''perl_i_sysmode'"
1547 $!
1548 $! Check for sys/access.h
1549 $!
1550 $ OS
1551 $ WS "#ifdef __DECC
1552 $ WS "#include <stdlib.h>
1553 $ WS "#endif
1554 $ WS "#include <stdio.h>
1555 $ WS "#include <unistd.h>
1556 $ WS "#include <sys/access.h>
1557 $ WS "int main()
1558 $ WS "{"
1559 $ WS "exit(0);
1560 $ WS "}"
1561 $ CS
1562 $   DEFINE SYS$ERROR _NLA0:
1563 $   DEFINE SYS$OUTPUT _NLA0:
1564 $   on error then continue
1565 $   on warning then continue
1566 $   'Checkcc' temp.c
1567 $   savedstatus = $status
1568 $   teststatus = f$extract(9,1,savedstatus)
1569 $   if (teststatus.nes."1")
1570 $   THEN
1571 $     perl_i_sysaccess="undef"
1572 $     DEASSIGN SYS$OUTPUT
1573 $     DEASSIGN SYS$ERROR
1574 $   ELSE
1575 $     If (Needs_Opt.eqs."Yes")
1576 $     THEN
1577 $       link temp.obj,temp.opt/opt
1578 $     else
1579 $       link temp.obj
1580 $     endif
1581 $     savedstatus = $status
1582 $     teststatus = f$extract(9,1,savedstatus)
1583 $     DEASSIGN SYS$OUTPUT
1584 $     DEASSIGN SYS$ERROR
1585 $     if (teststatus.nes."1")
1586 $     THEN
1587 $       perl_i_sysaccess="undef"
1588 $     ELSE
1589 $       perl_i_sysaccess="define"
1590 $     ENDIF
1591 $   ENDIF
1592 $ WRITE_RESULT "i_sysaccess is ''perl_i_sysaccess'"
1593 $!
1594 $! Check for sys/security.h
1595 $!
1596 $ OS
1597 $ WS "#ifdef __DECC
1598 $ WS "#include <stdlib.h>
1599 $ WS "#endif
1600 $ WS "#include <stdio.h>
1601 $ WS "#include <unistd.h>
1602 $ WS "#include <sys/security.h>
1603 $ WS "int main()
1604 $ WS "{"
1605 $ WS "exit(0);
1606 $ WS "}"
1607 $ CS
1608 $   DEFINE SYS$ERROR _NLA0:
1609 $   DEFINE SYS$OUTPUT _NLA0:
1610 $   on error then continue
1611 $   on warning then continue
1612 $   'Checkcc' temp.c
1613 $   savedstatus = $status
1614 $   teststatus = f$extract(9,1,savedstatus)
1615 $   if (teststatus.nes."1")
1616 $   THEN
1617 $     perl_i_syssecrt="undef"
1618 $     DEASSIGN SYS$OUTPUT
1619 $     DEASSIGN SYS$ERROR
1620 $   ELSE
1621 $     If (Needs_Opt.eqs."Yes")
1622 $     THEN
1623 $       link temp.obj,temp.opt/opt
1624 $     else
1625 $       link temp.obj
1626 $     endif
1627 $     savedstatus = $status
1628 $     teststatus = f$extract(9,1,savedstatus)
1629 $     DEASSIGN SYS$OUTPUT
1630 $     DEASSIGN SYS$ERROR
1631 $     if (teststatus.nes."1")
1632 $     THEN
1633 $       perl_i_syssecrt="undef"
1634 $     ELSE
1635 $       perl_i_syssecrt="define"
1636 $     ENDIF
1637 $   ENDIF
1638 $ WRITE_RESULT "i_syssecrt is ''perl_i_syssecrt'"
1639 $!
1640 $! Check for fcntl.h
1641 $!
1642 $ OS
1643 $ WS "#ifdef __DECC
1644 $ WS "#include <stdlib.h>
1645 $ WS "#endif
1646 $ WS "#include <stdio.h>
1647 $ WS "#include <unistd.h>
1648 $ WS "#include <fcntl.h>
1649 $ WS "int main()
1650 $ WS "{"
1651 $ WS "exit(0);
1652 $ WS "}"
1653 $ CS
1654 $   DEFINE SYS$ERROR _NLA0:
1655 $   DEFINE SYS$OUTPUT _NLA0:
1656 $   on error then continue
1657 $   on warning then continue
1658 $   'Checkcc' temp.c
1659 $   savedstatus = $status
1660 $   teststatus = f$extract(9,1,savedstatus)
1661 $   if (teststatus.nes."1")
1662 $   THEN
1663 $     perl_i_fcntl="undef"
1664 $     DEASSIGN SYS$OUTPUT
1665 $     DEASSIGN SYS$ERROR
1666 $   ELSE
1667 $     If (Needs_Opt.eqs."Yes")
1668 $     THEN
1669 $       link temp.obj,temp.opt/opt
1670 $     else
1671 $       link temp.obj
1672 $     endif
1673 $     savedstatus = $status
1674 $     teststatus = f$extract(9,1,savedstatus)
1675 $     DEASSIGN SYS$OUTPUT
1676 $     DEASSIGN SYS$ERROR
1677 $     if (teststatus.nes."1")
1678 $     THEN
1679 $       perl_i_fcntl="undef"
1680 $     ELSE
1681 $       perl_i_fcntl="define"
1682 $     ENDIF
1683 $   ENDIF
1684 $ WRITE_RESULT "i_fcntl is ''perl_i_fcntl'"
1685 $!
1686 $! Check for fcntl
1687 $!
1688 $ OS
1689 $ WS "#ifdef __DECC
1690 $ WS "#include <stdlib.h>
1691 $ WS "#endif
1692 $ WS "#include <stdio.h>
1693 $ WS "#include <unistd.h>
1694 $ WS "#include <fcntl.h>
1695 $ WS "int main()
1696 $ WS "{"
1697 $ WS "fcntl(1,2,3);
1698 $ WS "exit(0);
1699 $ WS "}"
1700 $ CS
1701 $   DEFINE SYS$ERROR _NLA0:
1702 $   DEFINE SYS$OUTPUT _NLA0:
1703 $   on error then continue
1704 $   on warning then continue
1705 $   'Checkcc' temp.c
1706 $   savedstatus = $status
1707 $   teststatus = f$extract(9,1,savedstatus)
1708 $   if (teststatus.nes."1")
1709 $   THEN
1710 $     perl_d_fcntl="undef"
1711 $     DEASSIGN SYS$OUTPUT
1712 $     DEASSIGN SYS$ERROR
1713 $   ELSE
1714 $     If (Needs_Opt.eqs."Yes")
1715 $     THEN
1716 $       link temp.obj,temp.opt/opt
1717 $     else
1718 $       link temp.obj
1719 $     endif
1720 $     savedstatus = $status
1721 $     teststatus = f$extract(9,1,savedstatus)
1722 $     DEASSIGN SYS$OUTPUT
1723 $     DEASSIGN SYS$ERROR
1724 $     if (teststatus.nes."1")
1725 $     THEN
1726 $       perl_d_fcntl="undef"
1727 $     ELSE
1728 $       perl_d_fcntl="define"
1729 $     ENDIF
1730 $   ENDIF
1731 $ WRITE_RESULT "d_fcntl is ''perl_d_fcntl'"
1732 $!
1733 $! Check for memchr
1734 $!
1735 $ OS
1736 $ WS "#ifdef __DECC
1737 $ WS "#include <stdlib.h>
1738 $ WS "#endif
1739 $ WS "#include <string.h>
1740 $ WS "int main()
1741 $ WS "{"
1742 $ WS "char * place;
1743 $ WS "place = memchr(""foo"", 47, 3)
1744 $ WS "exit(0);
1745 $ WS "}"
1746 $ CS
1747 $   DEFINE SYS$ERROR _NLA0:
1748 $   DEFINE SYS$OUTPUT _NLA0:
1749 $   on error then continue
1750 $   on warning then continue
1751 $   'Checkcc' temp.c
1752 $   savedstatus = $status
1753 $   teststatus = f$extract(9,1,savedstatus)
1754 $   if (teststatus.nes."1")
1755 $   THEN
1756 $     perl_d_memchr="undef"
1757 $     DEASSIGN SYS$OUTPUT
1758 $     DEASSIGN SYS$ERROR
1759 $   ELSE
1760 $     If (Needs_Opt.eqs."Yes")
1761 $     THEN
1762 $       link temp.obj,temp.opt/opt
1763 $     else
1764 $       link temp.obj
1765 $     endif
1766 $     savedstatus = $status
1767 $     teststatus = f$extract(9,1,savedstatus)
1768 $     DEASSIGN SYS$OUTPUT
1769 $     DEASSIGN SYS$ERROR
1770 $     if (teststatus.nes."1")
1771 $     THEN
1772 $       perl_d_memchr="undef"
1773 $     ELSE
1774 $       perl_d_memchr="define"
1775 $     ENDIF
1776 $   ENDIF
1777 $ WRITE_RESULT "d_memchr is ''perl_d_memchr'"
1778 $!
1779 $! Check for strtoull
1780 $!
1781 $ OS
1782 $ WS "#ifdef __DECC
1783 $ WS "#include <stdlib.h>
1784 $ WS "#endif
1785 $ WS "#include <string.h>
1786 $ WS "int main()
1787 $ WS "{"
1788 $ WS "unsigned __int64 result;
1789 $ WS "result = strtoull(""123123"", NULL, 10);
1790 $ WS "exit(0);
1791 $ WS "}"
1792 $ CS
1793 $   DEFINE SYS$ERROR _NLA0:
1794 $   DEFINE SYS$OUTPUT _NLA0:
1795 $   on error then continue
1796 $   on warning then continue
1797 $   'Checkcc' temp.c
1798 $   savedstatus = $status
1799 $   teststatus = f$extract(9,1,savedstatus)
1800 $   if (teststatus.nes."1")
1801 $   THEN
1802 $     perl_d_strtoull="undef"
1803 $     DEASSIGN SYS$OUTPUT
1804 $     DEASSIGN SYS$ERROR
1805 $   ELSE
1806 $     If (Needs_Opt.eqs."Yes")
1807 $     THEN
1808 $       link temp.obj,temp.opt/opt
1809 $     else
1810 $       link temp.obj
1811 $     endif
1812 $     savedstatus = $status
1813 $     teststatus = f$extract(9,1,savedstatus)
1814 $     DEASSIGN SYS$OUTPUT
1815 $     DEASSIGN SYS$ERROR
1816 $     if (teststatus.nes."1")
1817 $     THEN
1818 $       perl_d_strtoull="undef"
1819 $     ELSE
1820 $       perl_d_strtoull="define"
1821 $     ENDIF
1822 $   ENDIF
1823 $ WRITE_RESULT "d_strtoull is ''perl_d_strtoull'"
1824 $!
1825 $! Check for strtouq
1826 $!
1827 $ OS
1828 $ WS "#ifdef __DECC
1829 $ WS "#include <stdlib.h>
1830 $ WS "#endif
1831 $ WS "#include <string.h>
1832 $ WS "int main()
1833 $ WS "{"
1834 $ WS "unsigned __int64 result;
1835 $ WS "result = strtouq(""123123"", NULL, 10);
1836 $ WS "exit(0);
1837 $ WS "}"
1838 $ CS
1839 $   DEFINE SYS$ERROR _NLA0:
1840 $   DEFINE SYS$OUTPUT _NLA0:
1841 $   on error then continue
1842 $   on warning then continue
1843 $   'Checkcc' temp.c
1844 $   savedstatus = $status
1845 $   teststatus = f$extract(9,1,savedstatus)
1846 $   if (teststatus.nes."1")
1847 $   THEN
1848 $     perl_d_strtouq="undef"
1849 $     DEASSIGN SYS$OUTPUT
1850 $     DEASSIGN SYS$ERROR
1851 $   ELSE
1852 $     If (Needs_Opt.eqs."Yes")
1853 $     THEN
1854 $       link temp.obj,temp.opt/opt
1855 $     else
1856 $       link temp.obj
1857 $     endif
1858 $     savedstatus = $status
1859 $     teststatus = f$extract(9,1,savedstatus)
1860 $     DEASSIGN SYS$OUTPUT
1861 $     DEASSIGN SYS$ERROR
1862 $     if (teststatus.nes."1")
1863 $     THEN
1864 $       perl_d_strtouq="undef"
1865 $     ELSE
1866 $       perl_d_strtouq="define"
1867 $     ENDIF
1868 $   ENDIF
1869 $ WRITE_RESULT "d_strtouq is ''perl_d_strtouq'"
1870 $!
1871 $! Check for strtoll
1872 $!
1873 $ OS
1874 $ WS "#ifdef __DECC
1875 $ WS "#include <stdlib.h>
1876 $ WS "#endif
1877 $ WS "#include <string.h>
1878 $ WS "int main()
1879 $ WS "{"
1880 $ WS "__int64 result;
1881 $ WS "result = strtoll(""123123"", NULL, 10);
1882 $ WS "exit(0);
1883 $ WS "}"
1884 $ CS
1885 $   DEFINE SYS$ERROR _NLA0:
1886 $   DEFINE SYS$OUTPUT _NLA0:
1887 $   on error then continue
1888 $   on warning then continue
1889 $   'Checkcc' temp.c
1890 $   savedstatus = $status
1891 $   teststatus = f$extract(9,1,savedstatus)
1892 $   if (teststatus.nes."1")
1893 $   THEN
1894 $     perl_d_strtoll="undef"
1895 $     DEASSIGN SYS$OUTPUT
1896 $     DEASSIGN SYS$ERROR
1897 $   ELSE
1898 $     If (Needs_Opt.eqs."Yes")
1899 $     THEN
1900 $       link temp.obj,temp.opt/opt
1901 $     else
1902 $       link temp.obj
1903 $     endif
1904 $     savedstatus = $status
1905 $     teststatus = f$extract(9,1,savedstatus)
1906 $     DEASSIGN SYS$OUTPUT
1907 $     DEASSIGN SYS$ERROR
1908 $     if (teststatus.nes."1")
1909 $     THEN
1910 $       perl_d_strtoll="undef"
1911 $     ELSE
1912 $       perl_d_strtoll="define"
1913 $     ENDIF
1914 $   ENDIF
1915 $ WRITE_RESULT "d_strtoll is ''perl_d_strtoll'"
1916 $!
1917 $! Check for strtold
1918 $!
1919 $ OS
1920 $ WS "#ifdef __DECC
1921 $ WS "#include <stdlib.h>
1922 $ WS "#endif
1923 $ WS "#include <string.h>
1924 $ WS "int main()
1925 $ WS "{"
1926 $ WS "long double result;
1927 $ WS "result = strtold(""123123"", NULL, 10);
1928 $ WS "exit(0);
1929 $ WS "}"
1930 $ CS
1931 $   DEFINE SYS$ERROR _NLA0:
1932 $   DEFINE SYS$OUTPUT _NLA0:
1933 $   on error then continue
1934 $   on warning then continue
1935 $   'Checkcc' temp.c
1936 $   savedstatus = $status
1937 $   teststatus = f$extract(9,1,savedstatus)
1938 $   if (teststatus.nes."1")
1939 $   THEN
1940 $     perl_d_strtold="undef"
1941 $     DEASSIGN SYS$OUTPUT
1942 $     DEASSIGN SYS$ERROR
1943 $   ELSE
1944 $     If (Needs_Opt.eqs."Yes")
1945 $     THEN
1946 $       link temp.obj,temp.opt/opt
1947 $     else
1948 $       link temp.obj
1949 $     endif
1950 $     savedstatus = $status
1951 $     teststatus = f$extract(9,1,savedstatus)
1952 $     DEASSIGN SYS$OUTPUT
1953 $     DEASSIGN SYS$ERROR
1954 $     if (teststatus.nes."1")
1955 $     THEN
1956 $       perl_d_strtold="undef"
1957 $     ELSE
1958 $       perl_d_strtold="define"
1959 $     ENDIF
1960 $   ENDIF
1961 $ WRITE_RESULT "d_strtold is ''perl_d_strtold'"
1962 $!
1963 $! Check for atoll
1964 $!
1965 $ OS
1966 $ WS "#ifdef __DECC
1967 $ WS "#include <stdlib.h>
1968 $ WS "#endif
1969 $ WS "#include <string.h>
1970 $ WS "int main()
1971 $ WS "{"
1972 $ WS " __int64 result;
1973 $ WS "result = atoll(""123123"");
1974 $ WS "exit(0);
1975 $ WS "}"
1976 $ CS
1977 $   DEFINE SYS$ERROR _NLA0:
1978 $   DEFINE SYS$OUTPUT _NLA0:
1979 $   on error then continue
1980 $   on warning then continue
1981 $   'Checkcc' temp.c
1982 $   savedstatus = $status
1983 $   teststatus = f$extract(9,1,savedstatus)
1984 $   if (teststatus.nes."1")
1985 $   THEN
1986 $     perl_d_atoll="undef"
1987 $     DEASSIGN SYS$OUTPUT
1988 $     DEASSIGN SYS$ERROR
1989 $   ELSE
1990 $     If (Needs_Opt.eqs."Yes")
1991 $     THEN
1992 $       link temp.obj,temp.opt/opt
1993 $     else
1994 $       link temp.obj
1995 $     endif
1996 $     savedstatus = $status
1997 $     teststatus = f$extract(9,1,savedstatus)
1998 $     DEASSIGN SYS$OUTPUT
1999 $     DEASSIGN SYS$ERROR
2000 $     if (teststatus.nes."1")
2001 $     THEN
2002 $       perl_d_atoll="undef"
2003 $     ELSE
2004 $       perl_d_atoll="define"
2005 $     ENDIF
2006 $   ENDIF
2007 $ WRITE_RESULT "d_atoll is ''perl_d_atoll'"
2008 $!
2009 $! Check for atoll
2010 $!
2011 $ OS
2012 $ WS "#ifdef __DECC
2013 $ WS "#include <stdlib.h>
2014 $ WS "#endif
2015 $ WS "#include <string.h>
2016 $ WS "int main()
2017 $ WS "{"
2018 $ WS "long double
2019 $ WS "result = atolf(""123123"");
2020 $ WS "exit(0);
2021 $ WS "}"
2022 $ CS
2023 $   DEFINE SYS$ERROR _NLA0:
2024 $   DEFINE SYS$OUTPUT _NLA0:
2025 $   on error then continue
2026 $   on warning then continue
2027 $   'Checkcc' temp.c
2028 $   savedstatus = $status
2029 $   teststatus = f$extract(9,1,savedstatus)
2030 $   if (teststatus.nes."1")
2031 $   THEN
2032 $     perl_d_atolf="undef"
2033 $     DEASSIGN SYS$OUTPUT
2034 $     DEASSIGN SYS$ERROR
2035 $   ELSE
2036 $     If (Needs_Opt.eqs."Yes")
2037 $     THEN
2038 $       link temp.obj,temp.opt/opt
2039 $     else
2040 $       link temp.obj
2041 $     endif
2042 $     savedstatus = $status
2043 $     teststatus = f$extract(9,1,savedstatus)
2044 $     DEASSIGN SYS$OUTPUT
2045 $     DEASSIGN SYS$ERROR
2046 $     if (teststatus.nes."1")
2047 $     THEN
2048 $       perl_d_atolf="undef"
2049 $     ELSE
2050 $       perl_d_atolf="define"
2051 $     ENDIF
2052 $   ENDIF
2053 $ WRITE_RESULT "d_atolf is ''perl_d_atolf'"
2054 $!
2055 $! Check for access
2056 $!
2057 $ OS
2058 $ WS "#ifdef __DECC
2059 $ WS "#include <stdlib.h>
2060 $ WS "#endif
2061 $ WS "#include <stdio.h>
2062 $ WS "#include <unistd.h>
2063 $ WS "int main()
2064 $ WS "{"
2065 $ WS "access("foo", F_OK);
2066 $ WS "exit(0);
2067 $ WS "}"
2068 $ CS
2069 $   DEFINE SYS$ERROR _NLA0:
2070 $   DEFINE SYS$OUTPUT _NLA0:
2071 $   on error then continue
2072 $   on warning then continue
2073 $   'Checkcc' temp.c
2074 $   savedstatus = $status
2075 $   teststatus = f$extract(9,1,savedstatus)
2076 $   if (teststatus.nes."1")
2077 $   THEN
2078 $     perl_d_access="undef"
2079 $     DEASSIGN SYS$OUTPUT
2080 $     DEASSIGN SYS$ERROR
2081 $   ELSE
2082 $     If (Needs_Opt.eqs."Yes")
2083 $     THEN
2084 $       link temp.obj,temp.opt/opt
2085 $     else
2086 $       link temp.obj
2087 $     endif
2088 $     savedstatus = $status
2089 $     teststatus = f$extract(9,1,savedstatus)
2090 $     DEASSIGN SYS$OUTPUT
2091 $     DEASSIGN SYS$ERROR
2092 $     if (teststatus.nes."1")
2093 $     THEN
2094 $       perl_d_access="undef"
2095 $     ELSE
2096 $       perl_d_access="define"
2097 $     ENDIF
2098 $   ENDIF
2099 $ WRITE_RESULT "d_access is ''perl_d_access'"
2100 $!
2101 $! Check for bzero
2102 $!
2103 $ OS
2104 $ WS "#ifdef __DECC
2105 $ WS "#include <stdlib.h>
2106 $ WS "#endif
2107 $ WS "#include <stdio.h>
2108 $ WS "#include <strings.h>
2109 $ WS "int main()
2110 $ WS "{"
2111 $ WS "char foo[10];
2112 $ WS "bzero(foo, 10);
2113 $ WS "exit(0);
2114 $ WS "}"
2115 $ CS
2116 $   DEFINE SYS$ERROR _NLA0:
2117 $   DEFINE SYS$OUTPUT _NLA0:
2118 $   on error then continue
2119 $   on warning then continue
2120 $   'Checkcc' temp.c
2121 $   savedstatus = $status
2122 $   teststatus = f$extract(9,1,savedstatus)
2123 $   if (teststatus.nes."1")
2124 $   THEN
2125 $     perl_d_bzero="undef"
2126 $     DEASSIGN SYS$OUTPUT
2127 $     DEASSIGN SYS$ERROR
2128 $   ELSE
2129 $     If (Needs_Opt.eqs."Yes")
2130 $     THEN
2131 $       link temp.obj,temp.opt/opt
2132 $     else
2133 $       link temp.obj
2134 $     endif
2135 $     savedstatus = $status
2136 $     teststatus = f$extract(9,1,savedstatus)
2137 $     DEASSIGN SYS$OUTPUT
2138 $     DEASSIGN SYS$ERROR
2139 $     if (teststatus.nes."1")
2140 $     THEN
2141 $       perl_d_bzero="undef"
2142 $     ELSE
2143 $       perl_d_bzero="define"
2144 $     ENDIF
2145 $   ENDIF
2146 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
2147 $!
2148 $! Check for bcopy
2149 $!
2150 $ OS
2151 $ WS "#ifdef __DECC
2152 $ WS "#include <stdlib.h>
2153 $ WS "#endif
2154 $ WS "#include <stdio.h>
2155 $ WS "#include <strings.h>
2156 $ WS "int main()
2157 $ WS "{"
2158 $ WS "char foo[10], bar[10];
2159 $ WS "bcopy(""foo"", bar, 3);
2160 $ WS "exit(0);
2161 $ WS "}"
2162 $ CS
2163 $   DEFINE SYS$ERROR _NLA0:
2164 $   DEFINE SYS$OUTPUT _NLA0:
2165 $   on error then continue
2166 $   on warning then continue
2167 $   'Checkcc' temp.c
2168 $   savedstatus = $status
2169 $   teststatus = f$extract(9,1,savedstatus)
2170 $   if (teststatus.nes."1")
2171 $   THEN
2172 $     perl_d_bcopy="undef"
2173 $     DEASSIGN SYS$OUTPUT
2174 $     DEASSIGN SYS$ERROR
2175 $   ELSE
2176 $     If (Needs_Opt.eqs."Yes")
2177 $     THEN
2178 $       link temp.obj,temp.opt/opt
2179 $     else
2180 $       link temp.obj
2181 $     endif
2182 $     savedstatus = $status
2183 $     teststatus = f$extract(9,1,savedstatus)
2184 $     DEASSIGN SYS$OUTPUT
2185 $     DEASSIGN SYS$ERROR
2186 $     if (teststatus.nes."1")
2187 $     THEN
2188 $       perl_d_bcopy="undef"
2189 $     ELSE
2190 $       perl_d_bcopy="define"
2191 $     ENDIF
2192 $   ENDIF
2193 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
2194 $!
2195 $! Check for mkstemp
2196 $!
2197 $ OS
2198 $ WS "#ifdef __DECC
2199 $ WS "#include <stdlib.h>
2200 $ WS "#endif
2201 $ WS "#include <stdio.h>
2202 $ WS "int main()
2203 $ WS "{"
2204 $ WS "mkstemp(""foo"");
2205 $ WS "exit(0);
2206 $ WS "}"
2207 $ CS
2208 $   DEFINE SYS$ERROR _NLA0:
2209 $   DEFINE SYS$OUTPUT _NLA0:
2210 $   on error then continue
2211 $   on warning then continue
2212 $   'Checkcc' temp.c
2213 $   If (Needs_Opt.eqs."Yes")
2214 $   THEN
2215 $     link temp.obj,temp.opt/opt
2216 $   else
2217 $     link temp.obj
2218 $   endif
2219 $   savedstatus = $status
2220 $   teststatus = f$extract(9,1,savedstatus)
2221 $   DEASSIGN SYS$OUTPUT
2222 $   DEASSIGN SYS$ERROR
2223 $   if (teststatus.nes."1")
2224 $   THEN
2225 $     perl_d_mkstemp="undef"
2226 $   ELSE
2227 $     perl_d_mkstemp="define"
2228 $   ENDIF
2229 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
2230 $!
2231 $! Check for mkstemps
2232 $!
2233 $ OS
2234 $ WS "#ifdef __DECC
2235 $ WS "#include <stdlib.h>
2236 $ WS "#endif
2237 $ WS "#include <stdio.h>
2238 $ WS "int main()
2239 $ WS "{"
2240 $ WS "mkstemps(""foo"", 1);
2241 $ WS "exit(0);
2242 $ WS "}"
2243 $ CS
2244 $   DEFINE SYS$ERROR _NLA0:
2245 $   DEFINE SYS$OUTPUT _NLA0:
2246 $   on error then continue
2247 $   on warning then continue
2248 $   'Checkcc' temp.c
2249 $   If (Needs_Opt.eqs."Yes")
2250 $   THEN
2251 $     link temp.obj,temp.opt/opt
2252 $   else
2253 $     link temp.obj
2254 $   endif
2255 $   savedstatus = $status
2256 $   teststatus = f$extract(9,1,savedstatus)
2257 $   DEASSIGN SYS$OUTPUT
2258 $   DEASSIGN SYS$ERROR
2259 $   if (teststatus.nes."1")
2260 $   THEN
2261 $     perl_d_mkstemps="undef"
2262 $   ELSE
2263 $     perl_d_mkstemps="define"
2264 $   ENDIF
2265 $ WRITE_RESULT "d_mkstemps is ''perl_d_mkstemps'"
2266 $!
2267 $! Check for iconv
2268 $!
2269 $ OS
2270 $ WS "#ifdef __DECC
2271 $ WS "#include <stdlib.h>
2272 $ WS "#endif
2273 $ WS "#include <stdio.h>
2274 $ WS "#include <iconv.h>
2275 $ WS "int main()
2276 $ WS "{"
2277 $ WS "  iconv_t cd = (iconv_t)0;"
2278 $ WS "  char *inbuf, *outbuf;"
2279 $ WS "  size_t inleft, outleft;"
2280 $ WS "  iconv(cd, &inbuf, &inleft, &outbuf, &outleft);"
2281 $ WS "exit(0);
2282 $ WS "}"
2283 $ CS
2284 $   DEFINE SYS$ERROR _NLA0:
2285 $   DEFINE SYS$OUTPUT _NLA0:
2286 $   on error then continue
2287 $   on warning then continue
2288 $   'Checkcc' temp.c
2289 $   savedstatus = $status
2290 $   teststatus = f$extract(9,1,savedstatus)
2291 $   if (teststatus.nes."1")
2292 $   THEN
2293 $     perl_d_iconv="undef"
2294 $     perl_i_iconv="undef"
2295 $     DEASSIGN SYS$OUTPUT
2296 $     DEASSIGN SYS$ERROR
2297 $   ELSE
2298 $     If (Needs_Opt.eqs."Yes")
2299 $     THEN
2300 $       link temp.obj,temp.opt/opt
2301 $     else
2302 $       link temp.obj
2303 $     endif
2304 $     savedstatus = $status
2305 $     teststatus = f$extract(9,1,savedstatus)
2306 $     DEASSIGN SYS$OUTPUT
2307 $     DEASSIGN SYS$ERROR
2308 $     if (teststatus.nes."1")
2309 $  THEN
2310 $       perl_d_iconv="undef"
2311 $       perl_i_iconv="undef"
2312 $     ELSE
2313 $       perl_d_iconv="define"
2314 $       perl_i_iconv="define"
2315 $     ENDIF
2316 $   ENDIF
2317 $ WRITE_RESULT "d_iconv is ''perl_d_iconv'"
2318 $ WRITE_RESULT "i_iconv is ''perl_i_iconv'"
2319 $!
2320 $! Check for mkdtemp
2321 $!
2322 $ OS
2323 $ WS "#ifdef __DECC
2324 $ WS "#include <stdlib.h>
2325 $ WS "#endif
2326 $ WS "#include <stdio.h>
2327 $ WS "int main()
2328 $ WS "{"
2329 $ WS "mkdtemp(""foo"");
2330 $ WS "exit(0);
2331 $ WS "}"
2332 $ CS
2333 $   DEFINE SYS$ERROR _NLA0:
2334 $   DEFINE SYS$OUTPUT _NLA0:
2335 $   on error then continue
2336 $   on warning then continue
2337 $   'Checkcc' temp.c
2338 $   If (Needs_Opt.eqs."Yes")
2339 $   THEN
2340 $     link temp.obj,temp.opt/opt
2341 $   else
2342 $     link temp.obj
2343 $   endif
2344 $   savedstatus = $status
2345 $   teststatus = f$extract(9,1,savedstatus)
2346 $   DEASSIGN SYS$OUTPUT
2347 $   DEASSIGN SYS$ERROR
2348 $   if (teststatus.nes."1")
2349 $   THEN
2350 $     perl_d_mkdtemp="undef"
2351 $   ELSE
2352 $     perl_d_mkdtemp="define"
2353 $   ENDIF
2354 $ WRITE_RESULT "d_mkdtemp is ''perl_d_mkdtemp'"
2355 $!
2356 $! Check for setvbuf
2357 $!
2358 $ OS
2359 $ WS "#ifdef __DECC
2360 $ WS "#include <stdlib.h>
2361 $ WS "#endif
2362 $ WS "#include <stdio.h>
2363 $ WS "int main()
2364 $ WS "{"
2365 $ WS "FILE *foo;
2366 $ WS "char Buffer[99];
2367 $ WS "foo = fopen(""foo"", ""r"");
2368 $ WS "setvbuf(foo, Buffer, 0, 0);
2369 $ WS "exit(0);
2370 $ WS "}"
2371 $ CS
2372 $   DEFINE SYS$ERROR _NLA0:
2373 $   DEFINE SYS$OUTPUT _NLA0:
2374 $   on error then continue
2375 $   on warning then continue
2376 $   'Checkcc' temp.c
2377 $   If (Needs_Opt.eqs."Yes")
2378 $   THEN
2379 $     link temp.obj,temp.opt/opt
2380 $   else
2381 $     link temp.obj
2382 $   endif
2383 $   teststatus = f$extract(9,1,$status)
2384 $   DEASSIGN SYS$OUTPUT
2385 $   DEASSIGN SYS$ERROR
2386 $   if (teststatus.nes."1")
2387 $   THEN
2388 $     perl_d_setvbuf="undef"
2389 $   ELSE
2390 $     perl_d_setvbuf="define"
2391 $   ENDIF
2392 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
2393 $!
2394 $! Check for setenv
2395 $!
2396 $ OS
2397 $ WS "#ifdef __DECC
2398 $ WS "#include <stdlib.h>
2399 $ WS "#endif
2400 $ WS "#include <stdio.h>
2401 $ WS "int main()
2402 $ WS "{"
2403 $ WS "setenv(""FOO"", ""BAR"", 0);
2404 $ WS "exit(0);
2405 $ WS "}"
2406 $ CS
2407 $   DEFINE SYS$ERROR _NLA0:
2408 $   DEFINE SYS$OUTPUT _NLA0:
2409 $   on error then continue
2410 $   on warning then continue
2411 $   'Checkcc' temp
2412 $   If (Needs_Opt.eqs."Yes")
2413 $   THEN
2414 $     link temp,temp/opt
2415 $   else
2416 $     link temp
2417 $   endif
2418 $   teststatus = f$extract(9,1,$status)
2419 $   DEASSIGN SYS$OUTPUT
2420 $   DEASSIGN SYS$ERROR
2421 $   if (teststatus.nes."1")
2422 $   THEN
2423 $     perl_d_setenv="undef"
2424 $   ELSE
2425 $     perl_d_setenv="define"
2426 $   ENDIF
2427 $ WRITE_RESULT "d_setenv is ''perl_d_setenv'"
2428 $!
2429 $! Check for <netinet/in.h>
2430 $!
2431 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2432 $ THEN
2433 $ OS
2434 $ WS "#ifdef __DECC
2435 $ WS "#include <stdlib.h>
2436 $ WS "#endif
2437 $ WS "#include <stdio.h>
2438 $ if ("''Has_Socketshr'".eqs."T")
2439 $ THEN
2440 $  WS "#include <socketshr.h>"
2441 $ else
2442 $  WS "#include <netdb.h>
2443 $ endif
2444 $ WS "#include <netinet/in.h>"
2445 $ WS "int main()
2446 $ WS "{"
2447 $ WS "exit(0);
2448 $ WS "}"
2449 $ CS
2450 $   DEFINE SYS$ERROR _NLA0:
2451 $   DEFINE SYS$OUTPUT _NLA0:
2452 $   on error then continue
2453 $   on warning then continue
2454 $   'Checkcc' temp.c
2455 $   If (Needs_Opt.eqs."Yes")
2456 $   THEN
2457 $     link temp.obj,temp.opt/opt
2458 $   else
2459 $     link temp.obj
2460 $   endif
2461 $   teststatus = f$extract(9,1,$status)
2462 $   DEASSIGN SYS$OUTPUT
2463 $   DEASSIGN SYS$ERROR
2464 $   if (teststatus.nes."1")
2465 $   THEN
2466 $     perl_i_niin="undef"
2467 $   ELSE
2468 $     perl_i_niin="define"
2469 $   ENDIF
2470 $ ELSE
2471 $   perl_i_niin="undef"
2472 $ ENDIF
2473 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
2474 $!
2475 $! Check for <netinet/tcp.h>
2476 $!
2477 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2478 $ THEN
2479 $ OS
2480 $ WS "#ifdef __DECC
2481 $ WS "#include <stdlib.h>
2482 $ WS "#endif
2483 $ WS "#include <stdio.h>
2484 $ if ("''Has_Socketshr'".eqs."T")
2485 $ THEN
2486 $  WS "#include <socketshr.h>"
2487 $ else
2488 $  WS "#include <netdb.h>
2489 $ endif
2490 $ WS "#include <netinet/tcp.h>"
2491 $ WS "int main()
2492 $ WS "{"
2493 $ WS "exit(0);
2494 $ WS "}"
2495 $ CS
2496 $   DEFINE SYS$ERROR _NLA0:
2497 $   DEFINE SYS$OUTPUT _NLA0:
2498 $   on error then continue
2499 $   on warning then continue
2500 $   'Checkcc' temp.c
2501 $   If (Needs_Opt.eqs."Yes")
2502 $   THEN
2503 $     link temp.obj,temp.opt/opt
2504 $   else
2505 $     link temp.obj
2506 $   endif
2507 $   teststatus = f$extract(9,1,$status)
2508 $   DEASSIGN SYS$OUTPUT
2509 $   DEASSIGN SYS$ERROR
2510 $   if (teststatus.nes."1")
2511 $   THEN
2512 $     perl_i_netinettcp="undef"
2513 $   ELSE
2514 $     perl_i_netinettcp="define"
2515 $   ENDIF
2516 $ ELSE
2517 $   perl_i_netinettcp="undef"
2518 $ ENDIF
2519 $ WRITE_RESULT "i_netinettcp is ''perl_i_netinettcp'"
2520 $!
2521 $! Check for endhostent
2522 $!
2523 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2524 $ THEN
2525 $ OS
2526 $ WS "#ifdef __DECC
2527 $ WS "#include <stdlib.h>
2528 $ WS "#endif
2529 $ WS "#include <stdio.h>
2530 $ if ("''Has_Socketshr'".eqs."T")
2531 $ THEN
2532 $  WS "#include <socketshr.h>"
2533 $ else
2534 $  WS "#include <netdb.h>
2535 $ endif
2536 $ WS "int main()
2537 $ WS "{"
2538 $ WS "endhostent();
2539 $ WS "exit(0);
2540
2541 $ CS
2542 $   DEFINE SYS$ERROR _NLA0:
2543 $   DEFINE SYS$OUTPUT _NLA0:
2544 $   on error then continue
2545 $   on warning then continue
2546 $   'Checkcc' temp.c
2547 $   If (Needs_Opt.eqs."Yes")
2548 $   THEN
2549 $     link temp.obj,temp.opt/opt
2550 $   else
2551 $     link temp.obj
2552 $   endif
2553 $   teststatus = f$extract(9,1,$status)
2554 $   DEASSIGN SYS$OUTPUT
2555 $   DEASSIGN SYS$ERROR
2556 $   if (teststatus.nes."1")
2557 $   THEN
2558 $     perl_d_endhent="undef"
2559 $   ELSE
2560 $     perl_d_endhent="define"
2561 $   ENDIF
2562 $ ELSE
2563 $ perl_d_endhent="undef"
2564 $ ENDIF
2565 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
2566 $!
2567 $! Check for endnetent
2568 $!
2569 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2570 $ THEN
2571 $ OS
2572 $ WS "#ifdef __DECC
2573 $ WS "#include <stdlib.h>
2574 $ WS "#endif
2575 $ WS "#include <stdio.h>
2576 $ if ("''Has_Socketshr'".eqs."T")
2577 $ THEN
2578 $  WS "#include <socketshr.h>"
2579 $ else
2580 $  WS "#include <netdb.h>
2581 $ endif
2582 $ WS "int main()
2583 $ WS "{"
2584 $ WS "endnetent();
2585 $ WS "exit(0);
2586 $ WS "}"
2587 $ CS
2588 $   DEFINE SYS$ERROR _NLA0:
2589 $   DEFINE SYS$OUTPUT _NLA0:
2590 $   on error then continue
2591 $   on warning then continue
2592 $   'Checkcc' temp.c
2593 $   If (Needs_Opt.eqs."Yes")
2594 $   THEN
2595 $     link temp.obj,temp.opt/opt
2596 $   else
2597 $     link temp.obj
2598 $   endif
2599 $   teststatus = f$extract(9,1,$status)
2600 $   DEASSIGN SYS$OUTPUT
2601 $   DEASSIGN SYS$ERROR
2602 $   if (teststatus.nes."1")
2603 $   THEN
2604 $     perl_d_endnent="undef"
2605 $   ELSE
2606 $     perl_d_endnent="define"
2607 $   ENDIF
2608 $ ELSE
2609 $ perl_d_endnent="undef"
2610 $ ENDIF
2611 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
2612 $!
2613 $! Check for endprotoent
2614 $!
2615 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2616 $ THEN
2617 $ OS
2618 $ WS "#ifdef __DECC
2619 $ WS "#include <stdlib.h>
2620 $ WS "#endif
2621 $ WS "#include <stdio.h>
2622 $ if ("''Has_Socketshr'".eqs."T")
2623 $ THEN
2624 $  WS "#include <socketshr.h>"
2625 $ else
2626 $  WS "#include <netdb.h>
2627 $ endif
2628 $ WS "int main()
2629 $ WS "{"
2630 $ WS "endprotoent();
2631 $ WS "exit(0);
2632 $ WS "}"
2633 $ CS
2634 $   DEFINE SYS$ERROR _NLA0:
2635 $   DEFINE SYS$OUTPUT _NLA0:
2636 $   on error then continue
2637 $   on warning then continue
2638 $   'Checkcc' temp.c
2639 $   If (Needs_Opt.eqs."Yes")
2640 $   THEN
2641 $     link temp.obj,temp.opt/opt
2642 $   else
2643 $     link temp.obj
2644 $   endif
2645 $   teststatus = f$extract(9,1,$status)
2646 $   DEASSIGN SYS$OUTPUT
2647 $   DEASSIGN SYS$ERROR
2648 $   if (teststatus.nes."1")
2649 $   THEN
2650 $     perl_d_endpent="undef"
2651 $   ELSE
2652 $     perl_d_endpent="define"
2653 $   ENDIF
2654 $ ELSE
2655 $ perl_d_endpent="undef"
2656 $ ENDIF
2657 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
2658 $!
2659 $! Check for endservent
2660 $!
2661 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2662 $ THEN
2663 $ OS
2664 $ WS "#ifdef __DECC
2665 $ WS "#include <stdlib.h>
2666 $ WS "#endif
2667 $ WS "#include <stdio.h>
2668 $ if ("''Has_Socketshr'".eqs."T")
2669 $ THEN
2670 $  WS "#include <socketshr.h>"
2671 $ else
2672 $  WS "#include <netdb.h>
2673 $ endif
2674 $ WS "int main()
2675 $ WS "{"
2676 $ WS "endservent();
2677 $ WS "exit(0);
2678 $ WS "}"
2679 $ CS
2680 $   DEFINE SYS$ERROR _NLA0:
2681 $   DEFINE SYS$OUTPUT _NLA0:
2682 $   on error then continue
2683 $   on warning then continue
2684 $   'Checkcc' temp.c
2685 $   If (Needs_Opt.eqs."Yes")
2686 $   THEN
2687 $     link temp.obj,temp.opt/opt
2688 $   else
2689 $     link temp.obj
2690 $   endif
2691 $   teststatus = f$extract(9,1,$status)
2692 $   DEASSIGN SYS$OUTPUT
2693 $   DEASSIGN SYS$ERROR
2694 $   if (teststatus.nes."1")
2695 $   THEN
2696 $     perl_d_endsent="undef"
2697 $   ELSE
2698 $     perl_d_endsent="define"
2699 $   ENDIF
2700 $ ELSE
2701 $ perl_d_endsent="undef"
2702 $ ENDIF
2703 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
2704 $!
2705 $! Check for sethostent
2706 $!
2707 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2708 $ THEN
2709 $ OS
2710 $ WS "#ifdef __DECC
2711 $ WS "#include <stdlib.h>
2712 $ WS "#endif
2713 $ WS "#include <stdio.h>
2714 $ if ("''Has_Socketshr'".eqs."T")
2715 $ THEN
2716 $  WS "#include <socketshr.h>"
2717 $ else
2718 $  WS "#include <netdb.h>
2719 $ endif
2720 $ WS "int main()
2721 $ WS "{"
2722 $ WS "sethostent(1);
2723 $ WS "exit(0);
2724 $ WS "}"
2725 $ CS
2726 $   DEFINE SYS$ERROR _NLA0:
2727 $   DEFINE SYS$OUTPUT _NLA0:
2728 $   on error then continue
2729 $   on warning then continue
2730 $   'Checkcc' temp.c
2731 $   If (Needs_Opt.eqs."Yes")
2732 $   THEN
2733 $     link temp.obj,temp.opt/opt
2734 $   else
2735 $     link temp.obj
2736 $   endif
2737 $   teststatus = f$extract(9,1,$status)
2738 $   DEASSIGN SYS$OUTPUT
2739 $   DEASSIGN SYS$ERROR
2740 $   if (teststatus.nes."1")
2741 $   THEN
2742 $     perl_d_sethent="undef"
2743 $   ELSE
2744 $     perl_d_sethent="define"
2745 $   ENDIF
2746 $ ELSE
2747 $ perl_d_sethent="undef"
2748 $ ENDIF
2749 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
2750 $!
2751 $! Check for setnetent
2752 $!
2753 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2754 $ THEN
2755 $ OS
2756 $ WS "#ifdef __DECC
2757 $ WS "#include <stdlib.h>
2758 $ WS "#endif
2759 $ WS "#include <stdio.h>
2760 $ if ("''Has_Socketshr'".eqs."T")
2761 $ THEN
2762 $  WS "#include <socketshr.h>"
2763 $ else
2764 $  WS "#include <netdb.h>
2765 $ endif
2766 $ WS "int main()
2767 $ WS "{"
2768 $ WS "setnetent(1);
2769 $ WS "exit(0);
2770 $ WS "}"
2771 $ CS
2772 $   DEFINE SYS$ERROR _NLA0:
2773 $   DEFINE SYS$OUTPUT _NLA0:
2774 $   on error then continue
2775 $   on warning then continue
2776 $   'Checkcc' temp.c
2777 $   If (Needs_Opt.eqs."Yes")
2778 $   THEN
2779 $     link temp.obj,temp.opt/opt
2780 $   else
2781 $     link temp.obj
2782 $   endif
2783 $   teststatus = f$extract(9,1,$status)
2784 $   DEASSIGN SYS$OUTPUT
2785 $   DEASSIGN SYS$ERROR
2786 $   if (teststatus.nes."1")
2787 $   THEN
2788 $     perl_d_setnent="undef"
2789 $   ELSE
2790 $     perl_d_setnent="define"
2791 $   ENDIF
2792 $ ELSE
2793 $ perl_d_setnent="undef"
2794 $ ENDIF
2795 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
2796 $!
2797 $! Check for setprotoent
2798 $!
2799 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2800 $ THEN
2801 $ OS
2802 $ WS "#ifdef __DECC
2803 $ WS "#include <stdlib.h>
2804 $ WS "#endif
2805 $ WS "#include <stdio.h>
2806 $ if ("''Has_Socketshr'".eqs."T")
2807 $ THEN
2808 $  WS "#include <socketshr.h>"
2809 $ else
2810 $  WS "#include <netdb.h>
2811 $ endif
2812 $ WS "int main()
2813 $ WS "{"
2814 $ WS "setprotoent(1);
2815 $ WS "exit(0);
2816 $ WS "}"
2817 $ CS
2818 $   DEFINE SYS$ERROR _NLA0:
2819 $   DEFINE SYS$OUTPUT _NLA0:
2820 $   on error then continue
2821 $   on warning then continue
2822 $   'Checkcc' temp.c
2823 $   If (Needs_Opt.eqs."Yes")
2824 $   THEN
2825 $     link temp.obj,temp.opt/opt
2826 $   else
2827 $     link temp.obj
2828 $   endif
2829 $   teststatus = f$extract(9,1,$status)
2830 $   DEASSIGN SYS$OUTPUT
2831 $   DEASSIGN SYS$ERROR
2832 $   if (teststatus.nes."1")
2833 $   THEN
2834 $     perl_d_setpent="undef"
2835 $   ELSE
2836 $     perl_d_setpent="define"
2837 $   ENDIF
2838 $ ELSE
2839 $ perl_d_setpent="undef"
2840 $ ENDIF
2841 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
2842 $!
2843 $! Check for setservent
2844 $!
2845 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2846 $ THEN
2847 $ OS
2848 $ WS "#ifdef __DECC
2849 $ WS "#include <stdlib.h>
2850 $ WS "#endif
2851 $ WS "#include <stdio.h>
2852 $ if ("''Has_Socketshr'".eqs."T")
2853 $ THEN
2854 $  WS "#include <socketshr.h>"
2855 $ else
2856 $  WS "#include <netdb.h>
2857 $ endif
2858 $ WS "int main()
2859 $ WS "{"
2860 $ WS "setservent(1);
2861 $ WS "exit(0);
2862 $ WS "}"
2863 $ CS
2864 $   DEFINE SYS$ERROR _NLA0:
2865 $   DEFINE SYS$OUTPUT _NLA0:
2866 $   on error then continue
2867 $   on warning then continue
2868 $   'Checkcc' temp.c
2869 $   If (Needs_Opt.eqs."Yes")
2870 $   THEN
2871 $     link temp.obj,temp.opt/opt
2872 $   else
2873 $     link temp.obj
2874 $   endif
2875 $   teststatus = f$extract(9,1,$status)
2876 $   DEASSIGN SYS$OUTPUT
2877 $   DEASSIGN SYS$ERROR
2878 $   if (teststatus.nes."1")
2879 $   THEN
2880 $     perl_d_setsent="undef"
2881 $   ELSE
2882 $     perl_d_setsent="define"
2883 $   ENDIF
2884 $ ELSE
2885 $ perl_d_setsent="undef"
2886 $ ENDIF
2887 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
2888 $!
2889 $! Check for gethostent
2890 $!
2891 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2892 $ THEN
2893 $ OS
2894 $ WS "#ifdef __DECC
2895 $ WS "#include <stdlib.h>
2896 $ WS "#endif
2897 $ WS "#include <stdio.h>
2898 $ if ("''Has_Socketshr'".eqs."T")
2899 $ THEN
2900 $  WS "#include <socketshr.h>"
2901 $ else
2902 $  WS "#include <netdb.h>
2903 $ endif
2904 $ WS "int main()
2905 $ WS "{"
2906 $ WS "gethostent();
2907 $ WS "exit(0);
2908 $ WS "}"
2909 $ CS
2910 $   DEFINE SYS$ERROR _NLA0:
2911 $   DEFINE SYS$OUTPUT _NLA0:
2912 $   on error then continue
2913 $   on warning then continue
2914 $   'Checkcc' temp.c
2915 $   If (Needs_Opt.eqs."Yes")
2916 $   THEN
2917 $     link temp.obj,temp.opt/opt
2918 $   else
2919 $     link temp.obj
2920 $   endif
2921 $   teststatus = f$extract(9,1,$status)
2922 $   DEASSIGN SYS$OUTPUT
2923 $   DEASSIGN SYS$ERROR
2924 $   if (teststatus.nes."1")
2925 $   THEN
2926 $     perl_d_gethent="undef"
2927 $   ELSE
2928 $     perl_d_gethent="define"
2929 $   ENDIF
2930 $ ELSE
2931 $ perl_d_gethent="undef"
2932 $ ENDIF
2933 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
2934 $!
2935 $! Check for getnetent
2936 $!
2937 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2938 $ THEN
2939 $ OS
2940 $ WS "#ifdef __DECC
2941 $ WS "#include <stdlib.h>
2942 $ WS "#endif
2943 $ WS "#include <stdio.h>
2944 $ if ("''Has_Socketshr'".eqs."T")
2945 $ THEN
2946 $  WS "#include <socketshr.h>"
2947 $ else
2948 $  WS "#include <netdb.h>
2949 $ endif
2950 $ WS "int main()
2951 $ WS "{"
2952 $ WS "getnetent();
2953 $ WS "exit(0);
2954 $ WS "}"
2955 $ CS
2956 $   DEFINE SYS$ERROR _NLA0:
2957 $   DEFINE SYS$OUTPUT _NLA0:
2958 $   on error then continue
2959 $   on warning then continue
2960 $   'Checkcc' temp.c
2961 $   If (Needs_Opt.eqs."Yes")
2962 $   THEN
2963 $     link temp.obj,temp.opt/opt
2964 $   else
2965 $     link temp.obj
2966 $   endif
2967 $   teststatus = f$extract(9,1,$status)
2968 $   DEASSIGN SYS$OUTPUT
2969 $   DEASSIGN SYS$ERROR
2970 $   if (teststatus.nes."1")
2971 $   THEN
2972 $     perl_d_getnent="undef"
2973 $   ELSE
2974 $     perl_d_getnent="define"
2975 $   ENDIF
2976 $ ELSE
2977 $ perl_d_getnent="undef"
2978 $ ENDIF
2979 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
2980 $!
2981 $! Check for getprotoent
2982 $!
2983 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2984 $ THEN
2985 $ OS
2986 $ WS "#ifdef __DECC
2987 $ WS "#include <stdlib.h>
2988 $ WS "#endif
2989 $ WS "#include <stdio.h>
2990 $ if ("''Has_Socketshr'".eqs."T")
2991 $ THEN
2992 $  WS "#include <socketshr.h>"
2993 $ else
2994 $  WS "#include <netdb.h>
2995 $ endif
2996 $ WS "int main()
2997 $ WS "{"
2998 $ WS "getprotoent();
2999 $ WS "exit(0);
3000 $ WS "}"
3001 $ CS
3002 $   DEFINE SYS$ERROR _NLA0:
3003 $   DEFINE SYS$OUTPUT _NLA0:
3004 $   on error then continue
3005 $   on warning then continue
3006 $   'Checkcc' temp.c
3007 $   If (Needs_Opt.eqs."Yes")
3008 $   THEN
3009 $     link temp.obj,temp.opt/opt
3010 $   else
3011 $     link temp.obj
3012 $   endif
3013 $   teststatus = f$extract(9,1,$status)
3014 $   DEASSIGN SYS$OUTPUT
3015 $   DEASSIGN SYS$ERROR
3016 $   if (teststatus.nes."1")
3017 $   THEN
3018 $     perl_d_getpent="undef"
3019 $   ELSE
3020 $     perl_d_getpent="define"
3021 $   ENDIF
3022 $ ELSE
3023 $ perl_d_getpent="undef"
3024 $ ENDIF
3025 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
3026 $!
3027 $! Check for getservent
3028 $!
3029 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
3030 $ THEN
3031 $ OS
3032 $ WS "#ifdef __DECC
3033 $ WS "#include <stdlib.h>
3034 $ WS "#endif
3035 $ WS "#include <stdio.h>
3036 $ if ("''Has_Socketshr'".eqs."T")
3037 $ THEN
3038 $  WS "#include <socketshr.h>"
3039 $ else
3040 $  WS "#include <netdb.h>
3041 $ endif
3042 $ WS "int main()
3043 $ WS "{"
3044 $ WS "getservent();
3045 $ WS "exit(0);
3046 $ WS "}"
3047 $ CS
3048 $   DEFINE SYS$ERROR _NLA0:
3049 $   DEFINE SYS$OUTPUT _NLA0:
3050 $   on error then continue
3051 $   on warning then continue
3052 $   'Checkcc' temp.c
3053 $   If (Needs_Opt.eqs."Yes")
3054 $   THEN
3055 $     link temp.obj,temp.opt/opt
3056 $   else
3057 $     link temp.obj
3058 $   endif
3059 $   teststatus = f$extract(9,1,$status)
3060 $   DEASSIGN SYS$OUTPUT
3061 $   DEASSIGN SYS$ERROR
3062 $   if (teststatus.nes."1")
3063 $   THEN
3064 $     perl_d_getsent="undef"
3065 $   ELSE
3066 $     perl_d_getsent="define"
3067 $   ENDIF
3068 $ ELSE
3069 $ perl_d_getsent="undef"
3070 $ ENDIF
3071 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
3072 $!
3073 $! Check for socklen_t
3074 $!
3075 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
3076 $ THEN
3077 $   OS
3078 $   WS "#ifdef __DECC
3079 $   WS "#include <stdlib.h>
3080 $   WS "#endif
3081 $   WS "#include <stdio.h>
3082 $   IF ("''Has_Socketshr'".eqs."T")
3083 $   THEN
3084 $     WS "#include <socketshr.h>"
3085 $   ELSE
3086 $     WS "#include <netdb.h>
3087 $   ENDIF
3088 $   WS "int main()
3089 $   WS "{"
3090 $   WS "socklen_t x = 16;
3091 $   WS "exit(0);
3092 $   WS "}"
3093 $   CS
3094 $   DEFINE SYS$ERROR _NLA0:
3095 $   DEFINE SYS$OUTPUT _NLA0:
3096 $   on error then continue
3097 $   on warning then continue
3098 $   'Checkcc' temp.c
3099 $   If (Needs_Opt.eqs."Yes")
3100 $   THEN
3101 $     link temp.obj,temp.opt/opt
3102 $   else
3103 $     link temp.obj
3104 $   endif
3105 $   teststatus = f$extract(9,1,$status)
3106 $   DEASSIGN SYS$OUTPUT
3107 $   DEASSIGN SYS$ERROR
3108 $   if (teststatus.nes."1")
3109 $   THEN
3110 $     perl_d_socklen_t="undef"
3111 $   ELSE
3112 $     perl_d_socklen_t="define"
3113 $   ENDIF
3114 $ ELSE
3115 $   perl_d_socklen_t="undef"
3116 $ ENDIF
3117 $ WRITE_RESULT "d_socklen_t is ''perl_d_socklen_t'"
3118 $!
3119 $! Check for pthread_yield
3120 $!
3121 $ if ("''use_threads'".eqs."T")
3122 $ THEN
3123 $ OS
3124 $ WS "#ifdef __DECC
3125 $ WS "#include <stdlib.h>
3126 $ WS "#endif
3127 $ WS "#include <pthread.h>
3128 $ WS "#include <stdio.h>
3129 $ WS "int main()
3130 $ WS "{"
3131 $ WS "pthread_yield();
3132 $ WS "exit(0);
3133 $ WS "}"
3134 $ CS
3135 $   DEFINE SYS$ERROR _NLA0:
3136 $   DEFINE SYS$OUTPUT _NLA0:
3137 $   on error then continue
3138 $   on warning then continue
3139 $   'Checkcc' temp.c
3140 $   teststatus = f$extract(9,1,$status)
3141 $   DEASSIGN SYS$OUTPUT
3142 $   DEASSIGN SYS$ERROR
3143 $   if (teststatus.nes."1")
3144 $   THEN
3145 $     perl_d_pthread_yield="undef"
3146 $   ELSE
3147 $     perl_d_pthread_yield="define"
3148 $   ENDIF
3149 $ ELSE
3150 $   perl_d_pthread_yield="undef"
3151 $ ENDIF
3152 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
3153 $!
3154 $! Check for sched_yield
3155 $!
3156 $ if ("''use_threads'".eqs."T")
3157 $ THEN
3158 $ OS
3159 $ WS "#ifdef __DECC
3160 $ WS "#include <stdlib.h>
3161 $ WS "#endif
3162 $ WS "#include <pthread.h>
3163 $ WS "#include <stdio.h>
3164 $ WS "int main()
3165 $ WS "{"
3166 $ WS "sched_yield();
3167 $ WS "exit(0);
3168 $ WS "}"
3169 $ CS
3170 $   DEFINE SYS$ERROR _NLA0:
3171 $   DEFINE SYS$OUTPUT _NLA0:
3172 $   on error then continue
3173 $   on warning then continue
3174 $   'Checkcc' temp.c
3175 $   teststatus = f$extract(9,1,$status)
3176 $   DEASSIGN SYS$OUTPUT
3177 $   DEASSIGN SYS$ERROR
3178 $   if (teststatus.nes."1")
3179 $   THEN
3180 $     perl_d_sched_yield="undef"
3181 $     perl_sched_yield = " "
3182 $   ELSE
3183 $     perl_d_sched_yield="define"
3184 $     perl_sched_yield = "sched_yield"
3185 $   ENDIF
3186 $ ELSE
3187 $   perl_d_sched_yield="undef"
3188 $   perl_sched_yield = " "
3189 $ ENDIF
3190 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
3191 $ WRITE_RESULT "sched_yield is ''perl_sched_yield'"
3192 $!
3193 $! Check for generic pointer size
3194 $!
3195 $ OS
3196 $ WS "#ifdef __DECC
3197 $ WS "#include <stdlib.h>
3198 $ WS "#endif
3199 $ WS "#include <stdio.h>
3200 $ WS "int main()
3201 $ WS "{"
3202 $ WS "int foo;
3203 $ WS "foo = sizeof(char *);
3204 $ WS "printf(""%d\n"", foo);
3205 $ WS "exit(0);
3206 $ WS "}"
3207 $ CS
3208 $ DEFINE SYS$ERROR _NLA0:
3209 $ DEFINE SYS$OUTPUT _NLA0:
3210 $ ON ERROR THEN CONTINUE
3211 $ ON WARNING THEN CONTINUE
3212 $ 'Checkcc' temp.c
3213 $ If (Needs_Opt.eqs."Yes")
3214 $ THEN
3215 $   link temp.obj,temp.opt/opt
3216 $ ELSE
3217 $   link temp.obj
3218 $ ENDIF
3219 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3220 $ DEASSIGN SYS$OUTPUT
3221 $ DEASSIGN SYS$ERROR
3222 $ DEFINE SYS$ERROR TEMPOUT
3223 $ DEFINE SYS$OUTPUT TEMPOUT
3224 $ mcr []temp.exe
3225 $ CLOSE TEMPOUT
3226 $ DEASSIGN SYS$OUTPUT
3227 $ DEASSIGN SYS$ERROR
3228 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3229 $ READ TEMPOUT line
3230 $ CLOSE TEMPOUT
3231 $ DELETE/NOLOG [-.uu]tempout.lis;
3232
3233 $ perl_ptrsize=line
3234 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
3235 $!
3236 $! Check rand48 and its ilk
3237 $!
3238 $ OS
3239 $ WS "#ifdef __DECC
3240 $ WS "#include <stdlib.h>
3241 $ WS "#endif
3242 $ WS "#include <stdio.h>
3243 $ WS "int main()
3244 $ WS "{"
3245 $ WS "srand48(12L);"
3246 $ WS "exit(0);
3247 $ WS "}"
3248 $ CS
3249 $!
3250 $   DEFINE SYS$ERROR _NLA0:
3251 $   DEFINE SYS$OUTPUT _NLA0:
3252 $   ON ERROR THEN CONTINUE
3253 $   ON WARNING THEN CONTINUE
3254 $   'Checkcc' temp
3255 $   If (Needs_Opt.eqs."Yes")
3256 $   THEN
3257 $     link temp,temp.opt/opt
3258 $   else
3259 $     link temp
3260 $   endif
3261 $   teststatus = f$extract(9,1,$status)
3262 $   DEASSIGN SYS$OUTPUT
3263 $   DEASSIGN SYS$ERROR
3264 $   if (teststatus.nes."1")
3265 $   THEN
3266 $     perl_drand01="random()"
3267 $     perl_randseedtype = "unsigned"
3268 $     perl_seedfunc = "srandom"
3269 $   ENDIF
3270 $ OS
3271 $ WS "#ifdef __DECC
3272 $ WS "#include <stdlib.h>
3273 $ WS "#endif
3274 $ WS "#include <stdio.h>
3275 $ WS "int main()
3276 $ WS "{"
3277 $ WS "srandom(12);"
3278 $ WS "exit(0);
3279 $ WS "}"
3280 $ CS
3281 $! copy temp.c sys$output
3282 $!
3283 $   DEFINE SYS$ERROR _NLA0:
3284 $   DEFINE SYS$OUTPUT _NLA0:
3285 $   ON ERROR THEN CONTINUE
3286 $   ON WARNING THEN CONTINUE
3287 $   'Checkcc' temp
3288 $   If (Needs_Opt.eqs."Yes")
3289 $   THEN
3290 $     link temp,temp.opt/opt
3291 $   else
3292 $     link temp
3293 $   endif
3294 $   teststatus = f$extract(9,1,$status)
3295 $   DEASSIGN SYS$OUTPUT
3296 $   DEASSIGN SYS$ERROR
3297 $   if (teststatus.nes."1")
3298 $   THEN
3299 $     perl_drand01="(((float)rand())/((float)RAND_MAX))"
3300 $     perl_randseedtype = "unsigned"
3301 $     perl_seedfunc = "srand"
3302 $   ENDIF
3303 $ WRITE_RESULT "drand01 is ''perl_drand01'"
3304 $!
3305 $ set nover
3306 $! Done with compiler checks. Clean up.
3307 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
3308 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
3309 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
3310 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
3311 $!
3312 $!
3313 $! Some that are compiler or VMS version sensitive
3314 $!
3315 $! Gnu C stuff
3316 $ IF "''Using_Gnu_C'".EQS."Yes"
3317 $ THEN
3318 $   perl_d_attribut="define"
3319 $   perl_vms_cc_type="gcc"
3320 $ ELSE
3321 $   perl_vms_cc_type="cc"
3322 $   perl_d_attribut="undef"
3323 $ ENDIF
3324 $
3325 $! Dec C >= 5.2 and VMS ver >= 7.0
3326 $ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
3327 $ THEN
3328 $ perl_d_bcmp="define"
3329 $ perl_d_gettimeod="define"
3330 $ perl_d_uname="define"
3331 $ perl_d_sigaction="define"
3332 $ perl_d_truncate="define"
3333 $ perl_d_wait4="define"
3334 $ perl_d_index="define"
3335 $ perl_pidtype="pid_t"
3336 $ 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"
3337 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3338 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
3339 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
3340 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
3341 $ 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"
3342 $ 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"
3343 $ perl_sig_num_with_commas=perl_sig_num_init
3344 $ perl_uidtype="uid_t"
3345 $ perl_d_pathconf="define"
3346 $ perl_d_fpathconf="define"
3347 $ perl_d_sysconf="define"
3348 $ perl_d_sigsetjmp="define"
3349 $ ELSE
3350 $ perl_pidtype="unsigned int"
3351 $ perl_d_gettimeod="undef"
3352 $ perl_d_bcmp="undef"
3353 $ perl_d_uname="undef"
3354 $ perl_d_sigaction="undef"
3355 $ perl_d_truncate="undef"
3356 $ perl_d_wait4="undef"
3357 $ perl_d_index="undef"
3358 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
3359 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3360 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
3361 $ perl_sig_name_with_commas = psnwc1 + psnwc2
3362 $ perl_sig_num="0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 6 16 17"",0"
3363 $ perl_sig_num_init="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
3364 $ perl_sig_num_with_commas=perl_sig_num_init
3365 $ perl_uidtype="unsigned int"
3366 $ perl_d_pathconf="undef"
3367 $ perl_d_fpathconf="undef"
3368 $ perl_d_sysconf="undef"
3369 $ perl_d_sigsetjmp="undef"
3370 $ ENDIF
3371 $!
3372 $! Dec C alone
3373 $ IF ("''Using_Dec_C'".EQS."Yes")
3374 $ THEN
3375 $ perl_d_mbstowcs="define"
3376 $ perl_d_mbtowc="define"
3377 $ perl_d_stdiobase="define"
3378 $ perl_d_stdio_ptr_lval="define"
3379 $ perl_d_stdio_cnt_lval="define"
3380 $ perl_d_stdstdio="define"
3381 $ perl_d_wcstombs="define"
3382 $ perl_d_mblen="define"
3383 $ perl_d_mktime="define"
3384 $ perl_d_strcoll="define"
3385 $ perl_d_strxfrm="define"
3386 $ perl_d_wctomb="define"
3387 $ perl_i_locale="define"
3388 $ perl_d_locconv="define"
3389 $ perl_d_setlocale="define"
3390 $ perl_vms_cc_type="decc"
3391 $ ELSE
3392 $ perl_d_mbstowcs="undef"
3393 $ perl_d_mbtowc="undef"
3394 $ perl_d_stdiobase="undef"
3395 $ perl_d_stdio_ptr_lval="undef"
3396 $ perl_d_stdio_cnt_lval="undef"
3397 $ perl_d_stdstdio="undef"
3398 $ perl_d_wcstombs="undef"
3399 $ perl_d_mblen="undef"
3400 $ perl_d_mktime="undef"
3401 $ perl_d_strcoll="undef"
3402 $ perl_d_strxfrm="undef"
3403 $ perl_d_wctomb="undef"
3404 $ perl_i_locale="undef"
3405 $ perl_d_locconv="undef"
3406 $ perl_d_setlocale="undef"
3407 $ ENDIF
3408 $!
3409 $! Sockets?
3410 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
3411 $ THEN
3412 $ perl_d_vms_do_sockets="define"
3413 $ perl_d_htonl="define"
3414 $ perl_d_socket="define"
3415 $ perl_d_select="define"
3416 $ perl_netdb_host_type="char *"
3417 $ perl_netdb_hlen_type="int"
3418 $ perl_netdb_name_type="char *"
3419 $ perl_netdb_net_type="long"
3420 $ perl_d_gethbyaddr="define"
3421 $ perl_d_gethbyname="define"
3422 $ perl_d_getnbyaddr="define"
3423 $ perl_d_getnbyname="define"
3424 $ perl_d_getpbynumber="define"
3425 $ perl_d_getpbyname="define"
3426 $ perl_d_getsbyport="define"
3427 $ perl_d_getsbyname="define"
3428 $ perl_d_gethostprotos="define"
3429 $ perl_d_getnetprotos="define"
3430 $ perl_d_getprotoprotos="define"
3431 $ perl_d_getservprotos="define"
3432 $ IF ("''Using_Dec_C'".EQS."Yes")
3433 $ THEN
3434 $ perl_socksizetype="unsigned int"
3435 $ ELSE
3436 $ perl_socksizetype="int *"
3437 $ ENDIF
3438 $ ELSE
3439 $ perl_d_vms_do_sockets="undef"
3440 $ perl_d_htonl="undef"
3441 $ perl_d_socket="undef"
3442 $ perl_d_select="undef"
3443 $ perl_netdb_host_type="char *"
3444 $ perl_netdb_hlen_type="int"
3445 $ perl_netdb_name_type="char *"
3446 $ perl_netdb_net_type="long"
3447 $ perl_d_gethbyaddr="undef"
3448 $ perl_d_gethbyname="undef"
3449 $ perl_d_getnbyaddr="undef"
3450 $ perl_d_getnbyname="undef"
3451 $ perl_d_getpbynumber="undef"
3452 $ perl_d_getpbyname="undef"
3453 $ perl_d_getsbyport="undef"
3454 $ perl_d_getsbyname="undef"
3455 $ perl_d_gethostprotos="undef"
3456 $ perl_d_getnetprotos="undef"
3457 $ perl_d_getprotoprotos="undef"
3458 $ perl_d_getservprotos="undef"
3459 $ perl_socksizetype="undef"
3460 $ ENDIF
3461 $! Threads
3462 $ if ("''use_threads'".eqs."T")
3463 $ THEN
3464 $   perl_usethreads="define"
3465 $   perl_d_pthreads_created_joinable="define"
3466 $   if ("''VMS_VER'".ges."7.0")
3467 $   THEN
3468 $     perl_d_oldpthreads="undef"
3469 $   ELSE
3470 $     perl_d_oldpthreads="define"
3471 $   ENDIF
3472 $ ELSE
3473 $   perl_d_oldpthreads="undef"
3474 $   perl_usethreads="undef"
3475 $   
3476 $   perl_d_pthreads_created_joinable="undef"
3477 $ ENDIF
3478 $! 
3479 $! new (5.005_62++) typedefs for primitives
3480 $! 
3481 $ perl_ivtype="long"
3482 $ perl_uvtype="unsigned long"
3483 $ perl_i8type="char"
3484 $ perl_u8type="unsigned char"
3485 $ perl_i16type="short"
3486 $ perl_u16type="unsigned short"
3487 $ perl_i32type="int"
3488 $ perl_u32type="unsigned int"
3489 $ perl_i64type="long long"
3490 $ perl_u64type="unsigned long long"
3491 $ perl_nvtype="double"
3492 $!
3493 $ GOTO beyond_type_size_check
3494 $!
3495 $type_size_check: 
3496 $!
3497 $! Check for type sizes 
3498 $!
3499 $ OS
3500 $ WS "#ifdef __DECC
3501 $ WS "#include <stdlib.h>
3502 $ WS "#endif
3503 $ WS "#include <stdio.h>
3504 $ WS "int main()
3505 $ WS "{"
3506 $ WS "printf(""%d\n"", sizeof(''type'));"
3507 $ WS "exit(0);
3508 $ WS "}"
3509 $ CS
3510 $ DEFINE SYS$ERROR _NLA0:
3511 $ DEFINE SYS$OUTPUT _NLA0:
3512 $ ON ERROR THEN CONTINUE
3513 $ ON WARNING THEN CONTINUE
3514 $ 'Checkcc' temp.c
3515 $ If (Needs_Opt.eqs."Yes")
3516 $ THEN
3517 $   link temp.obj,temp.opt/opt
3518 $ ELSE
3519 $   link temp.obj
3520 $ ENDIF
3521 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3522 $ DEASSIGN SYS$OUTPUT
3523 $ DEASSIGN SYS$ERROR
3524 $ DEFINE SYS$ERROR TEMPOUT
3525 $ DEFINE SYS$OUTPUT TEMPOUT
3526 $ mcr []temp.exe
3527 $ CLOSE TEMPOUT
3528 $ DEASSIGN SYS$OUTPUT
3529 $ DEASSIGN SYS$ERROR
3530 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3531 $ READ TEMPOUT line
3532 $ CLOSE TEMPOUT
3533 $ DELETE/NOLOG [-.uu]tempout.lis;
3534 $ WRITE_RESULT "''size_name' is ''line'"
3535 $ DS
3536 $ RETURN
3537 $!
3538 $beyond_type_size_check:
3539 $!
3540 $ line = ""
3541 $ type = "''perl_ivtype'"
3542 $ size_name = "ivsize"
3543 $ gosub type_size_check
3544 $ perl_ivsize="''line'"
3545 $ IF type .eqs. "long"
3546 $ THEN perl_longsize = "''line'"
3547 $ ELSE
3548 $   type = "long"
3549 $   size_name = "longsize"
3550 $   gosub type_size_check
3551 $   perl_longsize="''line'"
3552 $ ENDIF
3553 $
3554 $ type = "''perl_uvtype'"
3555 $ size_name = "uvsize"
3556 $ gosub type_size_check
3557 $ perl_uvsize="''line'"
3558 $
3559 $ type = "''perl_i8type'"
3560 $ size_name = "i8size"
3561 $ gosub type_size_check
3562 $ perl_i8size="''line'"
3563 $
3564 $ type = "''perl_u8type'"
3565 $ size_name = "u8size"
3566 $ gosub type_size_check
3567 $ perl_u8size="''line'"
3568 $
3569 $ type = "''perl_i16type'"
3570 $ size_name = "i16size"
3571 $ gosub type_size_check
3572 $ perl_i16size="''line'"
3573 $ IF type .eqs. "short"
3574 $ THEN perl_shortsize="''line'"
3575 $ ELSE
3576 $   type = "''perl_i16type'"
3577 $   size_name = "shortsize"
3578 $   gosub type_size_check
3579 $   perl_shortsize="''line'"
3580 $ ENDIF
3581 $
3582 $ type = "''perl_u16type'"
3583 $ size_name = "u16size"
3584 $ gosub type_size_check
3585 $ perl_u16size="''line'"
3586 $
3587 $ type = "''perl_i32type'"
3588 $ size_name = "i32size"
3589 $ gosub type_size_check
3590 $ perl_i32size="''line'"
3591 $ IF type .eqs. "int"
3592 $ THEN perl_intsize="''perl_i32size'"
3593 $ ELSE
3594 $   type = "int"
3595 $   size_name = "intsize"
3596 $   gosub type_size_check
3597 $   perl_intsize="''line'"
3598 $ ENDIF
3599 $
3600 $ type = "''perl_u32type'"
3601 $ size_name = "u32size"
3602 $ gosub type_size_check
3603 $ perl_u32size="''line'"
3604 $
3605 $ If use64bitint
3606 $ Then
3607 $   type = "''perl_i64type'"
3608 $   size_name = "i64size"
3609 $   gosub type_size_check
3610 $   perl_i64size="''line'"
3611 $   perl_ivtype="''perl_i64type'"
3612 $
3613 $   type = "''perl_u64type'"
3614 $   size_name = "u64size"
3615 $   gosub type_size_check
3616 $   perl_u64size="''line'"
3617 $   perl_uvtype="''perl_u64type'"
3618 $   perl_nvtype="long double"
3619 $ Else
3620 $   perl_i64size="undef"
3621 $   perl_u64size="undef"
3622 $ EndIf
3623 $!
3624 $ perl_ivdformat="""ld"""
3625 $ perl_uvuformat="""lu"""
3626 $ perl_uvoformat="""lo"""
3627 $ perl_uvxformat="""lx"""
3628 $! 
3629 $! Finally the composite ones. All config
3630 $ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3631 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3632 $ perl_myhostname="''myhostname'"
3633 $ perl_mydomain="''mydomain'"
3634 $ perl_perladmin="''perladmin'"
3635 $ perl_cf_email="''cf_email'"
3636 $ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
3637 $ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3638 $ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
3639 $ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
3640 $ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
3641 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
3642 $ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3643 $ if "''Using_Dec_C'" .eqs. "Yes"
3644 $ THEN
3645 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
3646 $ ENDIF
3647 $ if use_vmsdebug_perl .eqs. "Y"
3648 $ then
3649 $     perl_optimize="/Debug/NoOpt"
3650 $     perl_dbgprefix = "DBG"
3651 $ else
3652 $     perl_optimize= ""
3653 $     perl_dbgprefix = ""
3654 $ endif
3655 $!
3656 $! Finally clean off any leading zeros from the patchlevel or subversion
3657 $ perl_patchlevel = perl_patchlevel + 0
3658 $ perl_subversion = perl_subversion + 0
3659 $!
3660 $! Okay, we've got everything configured. Now go write out a config.sh.
3661 $ open/write CONFIGSH [-]config.sh
3662 $ WC := "write CONFIGSH"
3663 $!
3664 $ WC "# This file generated by Configure.COM on a VMS system."
3665 $ WC "# Time: " + perl_cf_time
3666 $ WC ""
3667 $ WC "CONFIGDOTSH=true"
3668 $ WC "package='" + perl_package + "'"
3669 $ WC "d_nv_preserves_uv='" + perl_d_nv_preserves_uv + "'"
3670 $ WC "use5005threads='" + perl_use5005threads + "'"
3671 $ WC "useithreads='" + perl_useithreads + "'"
3672 $ WC "CONFIG='" + perl_config + "'"
3673 $ WC "cf_time='" + perl_cf_time + "'"
3674 $ WC "cf_by='" + perl_cf_by+ "'"
3675 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
3676 $ WC "ccdlflags='" + perl_ccdlflags + "'"
3677 $ WC "cccdlflags='" + perl_cccdlflags + "'"
3678 $ WC "mab='" + perl_mab + "'"
3679 $ WC "libpth='" + perl_libpth + "'"
3680 $ WC "ld='" + perl_ld + "'"
3681 $ WC "lddlflags='" + perl_lddlflags + "'"
3682 $ WC "ranlib='" + perl_ranlib + "'"
3683 $ WC "ar='" + perl_ar + "'"
3684 $ WC "full_ar='" + perl_full_ar + "'"
3685 $ WC "eunicefix='" + perl_eunicefix + "'"
3686 $ WC "hint='" + perl_hint +"'"
3687 $ WC "hintfile='" + perl_hintfile + "'"
3688 $ WC "shrplib='" + perl_shrplib + "'"
3689 $ WC "usemymalloc='" + perl_usemymalloc + "'"
3690 $ WC "usevfork='" + perl_usevfork + "'"
3691 $ WC "useposix='false'"
3692 $ WC "spitshell='write sys$output '"
3693 $ WC "dlsrc='dl_vms.c'"
3694 $ WC "binexp='" + perl_binexp + "'"
3695 $ WC "man1ext='" + perl_man1ext + "'"
3696 $ WC "man3ext='" + perl_man3ext + "'"
3697 $ WC "arch='" + perl_arch + "'"
3698 $ WC "archname='" + perl_archname + "'"
3699 $ WC "osvers='" + perl_osvers + "'"
3700 $ WC "prefix='" + perl_prefix + "'"
3701 $ WC "builddir='" + perl_builddir + "'"
3702 $ WC "installbin='" + perl_installbin + "'"
3703 $ WC "installscript='" + perl_installscript + "'"
3704 $ WC "installman1dir='" + perl_installman1dir + "'"
3705 $ WC "installman3dir='" + perl_installman3dir + "'"
3706 $ WC "installprivlib='" + perl_installprivlib + "'"
3707 $ WC "installarchlib='" + perl_installarchlib + "'"
3708 $ WC "installsitelib='" + perl_installsitelib + "'"
3709 $ WC "installsitearch='" + perl_installsitearch + "'"
3710 $ WC "path_sep='" + perl_path_sep + "'"
3711 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
3712 $ WC "d_attribut='" + perl_d_attribut + "'"
3713 $ WC "cc='" + perl_cc + "'"
3714 $ WC "ccflags='" + perl_ccflags + "'"
3715 $ WC "optimize='" + perl_optimize + "'"
3716 $ WC "dbgprefix='" + perl_dbgprefix + "'"
3717 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
3718 $ WC "d_socket='" + perl_d_socket + "'"
3719 $ WC "d_sockpair='" + perl_d_sockpair + "'"
3720 $ WC "d_gethent='" + perl_d_gethent + "'"
3721 $ WC "d_getsent='" + perl_d_getsent + "'"
3722 $ WC "d_socklen_t='" + perl_d_socklen_t + "'"
3723 $ WC "d_select='" + perl_d_select + "'"
3724 $ WC "i_niin='" + perl_i_niin + "'"
3725 $ WC "i_netinettcp='" + perl_i_netinettcp + "'"
3726 $ WC "i_neterrno='" + perl_i_neterrno + "'"
3727 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
3728 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
3729 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
3730 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
3731 $ WC "d_locconv='" + perl_d_locconv + "'"
3732 $ WC "d_setlocale='" + perl_d_setlocale + "'"
3733 $ WC "i_locale='" + perl_i_locale + "'"
3734 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
3735 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
3736 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
3737 $ WC "d_wctomb='" + perl_d_wctomb + "'"
3738 $ WC "d_mblen='" + perl_d_mblen + "'"
3739 $ WC "d_mktime='" + perl_d_mktime + "'"
3740 $ WC "d_strcoll='" + perl_d_strcoll + "'"
3741 $ WC "d_strxfrm='" + perl_d_strxfrm  + "'"
3742 $ WC "ldflags='" + perl_ldflags + "'"
3743 $ WC "dlobj='" + perl_dlobj + "'"
3744 $ WC "obj_ext='" + perl_obj_ext + "'"
3745 $ WC "so='" + perl_so + "'"
3746 $ WC "dlext='" + perl_dlext + "'"
3747 $ WC "exe_ext='" + perl_exe_ext + "'"
3748 $ WC "lib_ext='" + perl_lib_ext + "'"
3749 $ WC "myhostname='" + perl_myhostname + "'"
3750 $ WC "mydomain='" + perl_mydomain + "'"
3751 $ WC "perladmin='" + perl_perladmin + "'"
3752 $ WC "cf_email='" + perl_cf_email + "'"
3753 $ WC "myuname='" + perl_myuname + "'"
3754 $ WC "alignbytes='" + perl_alignbytes + "'"
3755 $ WC "osname='" + perl_osname + "'"
3756 $ WC "d_archlib='" + perl_d_archlib + "'"
3757 $ WC "archlibexp='" + perl_archlibexp + "'"
3758 $ WC "archlib='" + perl_archlib + "'"
3759 $ WC "archname='" + perl_archname + "'"
3760 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
3761 $ WC "cppstdin='" + perl_cppstdin + "'"
3762 $ WC "cppminus='" + perl_cppminus + "'"
3763 $ WC "cpprun='" + perl_cpprun + "'"
3764 $ WC "cpplast='" + perl_cpplast + "'"
3765 $ WC "d_bcmp='" + perl_d_bcmp + "'"
3766 $ WC "d_bcopy='" + perl_d_bcopy + "'"
3767 $ WC "d_bzero='" + perl_d_bzero + "'"
3768 $ WC "d_castneg='" + perl_d_castneg + "'"
3769 $ WC "castflags='" + perl_castflags + "'"
3770 $ WC "d_chsize='" + perl_d_chsize + "'"
3771 $ WC "d_const='" + perl_d_const + "'"
3772 $ WC "d_crypt='" + perl_d_crypt + "'"
3773 $ WC "byteorder='" + perl_byteorder + "'"
3774 $ WC "full_csh='" + perl_full_csh + "'"
3775 $ WC "d_csh='" + perl_d_csh + "'"
3776 $ WC "d_dup2='" + perl_d_dup2 + "'"
3777 $ WC "d_fchmod='" + perl_d_fchmod + "'"
3778 $ WC "d_fchown='" + perl_d_fchown + "'"
3779 $ WC "d_fcntl='" + perl_d_fcntl + "'"
3780 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
3781 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
3782 $ WC "d_flock='" + perl_d_flock + "'"
3783 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
3784 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
3785 $ WC "d_getgrps='" + perl_d_getgrps + "'"
3786 $ WC "d_setgrps='" + perl_d_setgrps + "'"
3787 $ WC "groupstype='" + perl_groupstype + "'"
3788 $ WC "d_uname='" + perl_d_uname + "'"
3789 $ WC "d_getprior='" + perl_d_getprior + "'"
3790 $ WC "d_killpg='" + perl_d_killpg + "'"
3791 $ WC "d_link='" + perl_d_link + "'"
3792 $ WC "d_lstat='" + perl_d_lstat + "'"
3793 $ WC "d_lockf='" + perl_d_lockf + "'"
3794 $ WC "d_memcmp='" + perl_d_memcmp + "'"
3795 $ WC "d_memcpy='" + perl_d_memcpy + "'"
3796 $ WC "d_memmove='" + perl_d_memmove + "'"
3797 $ WC "d_memset='" + perl_d_memset + "'"
3798 $ WC "d_mkdir='" + perl_d_mkdir + "'"
3799 $ WC "d_msg='" + perl_d_msg + "'"
3800 $ WC "d_open3='" + perl_d_open3 + "'"
3801 $ WC "d_poll='" + perl_d_poll + "'"
3802 $ WC "d_readdir='" + perl_d_readdir + "'"
3803 $ WC "d_seekdir='" + perl_d_seekdir + "'"
3804 $ WC "d_telldir='" + perl_d_telldir + "'"
3805 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
3806 $ WC "d_rename='" + perl_d_rename + "'"
3807 $ WC "d_rmdir='" + perl_d_rmdir + "'"
3808 $ WC "d_sem='" + perl_d_sem + "'"
3809 $ WC "d_setegid='" + perl_d_setegid + "'"
3810 $ WC "d_seteuid='" + perl_d_seteuid + "'"
3811 $ WC "d_setprior='" + perl_d_setprior + "'"
3812 $ WC "d_setregid='" + perl_d_setregid + "'"
3813 $ WC "d_setresgid='" + perl_d_setresgid + "'"
3814 $ WC "d_setreuid='" + perl_d_setreuid + "'"
3815 $ WC "d_setresuid='" + perl_d_setresuid + "'"
3816 $ WC "d_setrgid='" + perl_d_setrgid + "'"
3817 $ WC "d_setruid='" + perl_d_setruid + "'"
3818 $ WC "d_setsid='" + perl_d_setsid + "'"
3819 $ WC "d_shm='" + perl_d_shm + "'"
3820 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
3821 $ WC "shmattype='" + perl_shmattype + "'"
3822 $ WC "d_sigaction='" + perl_d_sigaction + "'"
3823 $ WC "d_statblks='" + perl_d_statblks + "'"
3824 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
3825 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
3826 $ WC "stdio_base='" + perl_stdio_base + "'"
3827 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
3828 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
3829 $ WC "d_strerror='" + perl_d_strerror + "'"
3830 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
3831 $ WC "d_strerrm='" + perl_d_strerrm + "'"
3832 $ WC "d_symlink='" + perl_d_symlink + "'"
3833 $ WC "d_syscall='" + perl_d_syscall + "'"
3834 $ WC "d_system='" + perl_d_system + "'"
3835 $ WC "timetype='" + perl_timetype + "'"
3836 $ WC "d_truncate='" + perl_d_truncate + "'"
3837 $ WC "d_vfork='" + perl_d_vfork + "'"
3838 $ WC "signal_t='" + perl_signal_t + "'"
3839 $ WC "d_volatile='" + perl_d_volatile + "'"
3840 $ WC "d_vprintf='" + perl_d_vprintf + "'"
3841 $ WC "d_charvspr='" + perl_d_charvspr + "'"
3842 $ WC "d_wait4='" + perl_d_wait4 + "'"
3843 $ WC "d_waitpid='" + perl_d_waitpid + "'"
3844 $ WC "i_dirent='" + perl_i_dirent + "'"
3845 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
3846 $ WC "direntrytype='" + perl_direntrytype + "'"
3847 $ WC "i_fcntl='" + perl_i_fcntl + "'"
3848 $ WC "i_grp='" + perl_i_grp + "'"
3849 $ WC "i_limits='" + perl_i_limits + "'"
3850 $ WC "i_memory='" + perl_i_memory + "'"
3851 $ WC "i_ndbm='" + perl_i_ndbm + "'"
3852 $ WC "i_stdarg='" + perl_i_stdarg + "'"
3853 $ WC "i_pwd='" + perl_i_pwd + "'"
3854 $ WC "d_pwquota='" + perl_d_pwquota + "'"
3855 $ WC "d_pwage='" + perl_d_pwage + "'"
3856 $ WC "d_pwchange='" + perl_d_pwchange + "'"
3857 $ WC "d_pwclass='" + perl_d_pwclass + "'"
3858 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
3859 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
3860 $ WC "i_stddef='" + perl_i_stddef + "'"
3861 $ WC "i_stdlib='" + perl_i_stdlib + "'"
3862 $ WC "i_string='" + perl_i_string + "'"
3863 $ WC "i_sysdir='" + perl_i_sysdir + "'"
3864 $ WC "i_sysfile='" + perl_i_sysfile + "'"
3865 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
3866 $ WC "i_sysndir='" + perl_i_sysndir + "'"
3867 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
3868 $ WC "i_sysselct='" + perl_i_sysselct + "'"
3869 $ WC "i_dbm='" + perl_i_dbm + "'"
3870 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
3871 $ WC "i_sfio='" + perl_i_sfio + "'"
3872 $ WC "i_sysstat='" + perl_i_sysstat + "'"
3873 $ WC "i_systimes='" + perl_i_systimes + "'"
3874 $ WC "i_systypes='" + perl_i_systypes + "'"
3875 $ WC "i_sysun='" + perl_i_sysun + "'"
3876 $ WC "i_syswait='" + perl_i_syswait + "'"
3877 $ WC "i_termio='" + perl_i_termio + "'"
3878 $ WC "i_sgtty='" + perl_i_sgtty + "'"
3879 $ WC "i_termios='" + perl_i_termios + "'"
3880 $ WC "i_time='" + perl_i_time + "'"
3881 $ WC "i_systime='" + perl_i_systime + "'"
3882 $ WC "i_systimek='" + perl_i_systimek + "'"
3883 $ WC "i_unistd='" + perl_i_unistd + "'"
3884 $ WC "i_utime='" + perl_i_utime + "'"
3885 $ WC "i_varargs='" + perl_i_varargs + "'"
3886 $ WC "i_vfork='" + perl_i_vfork + "'"
3887 $ WC "prototype='" + perl_prototype + "'"
3888 $ WC "randbits='" + perl_randbits +"'"
3889 $ WC "selecttype='" + perl_selecttype + "'"
3890 $ WC "selectminbits='" + perl_selectminbits + "'"
3891 $ WC "stdchar='" + perl_stdchar + "'"
3892 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
3893 $ WC "full_sed='" + perl_full_sed + "'"
3894 $ WC "bin='" + perl_bin + "'"
3895 $ WC "binexp='" + perl_binexp + "'"
3896 $ WC "d_alarm='" + perl_d_alarm + "'"
3897 $ WC "d_casti32='" + perl_d_casti32 + "'"
3898 $ WC "d_chown='" + perl_d_chown + "'"
3899 $ WC "d_chroot='" + perl_d_chroot + "'"
3900 $ WC "d_cuserid='" + perl_d_cuserid + "'"
3901 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
3902 $ WC "d_ldbl_dig='" + perl_d_ldbl_dig + "'"
3903 $ WC "d_difftime='" + perl_d_difftime + "'"
3904 $ WC "d_fork='" + perl_d_fork + "'"
3905 $ WC "d_getlogin='" + perl_d_getlogin + "'"
3906 $ WC "d_getppid='" + perl_d_getppid + "'"
3907 $ WC "d_htonl='" + perl_d_htonl + "'"
3908 $ WC "d_nice='" + perl_d_nice + "'"
3909 $ WC "d_pause='" + perl_d_pause + "'"
3910 $ WC "d_pipe='" + perl_d_pipe + "'"
3911 $ WC "d_readlink='" + perl_d_readlink + "'"
3912 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
3913 $ WC "d_strchr='" + perl_d_strchr + "'"
3914 $ WC "d_index='" + perl_d_index + "'"
3915 $ WC "d_strtod='" + perl_d_strtod + "'"
3916 $ WC "d_strtol='" + perl_d_strtol + "'"
3917 $ WC "d_strtoul='" + perl_d_strtoul + "'"
3918 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
3919 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
3920 $ WC "d_times='" + perl_d_times + "'"
3921 $ WC "d_tzname='" + perl_d_tzname + "'"
3922 $ WC "d_umask='" + perl_d_umask + "'"
3923 $ WC "fpostype='" + perl_fpostype + "'"
3924 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
3925 $ WC "i_float='" + perl_i_float + "'"
3926 $ WC "i_math='" + perl_i_math + "'"
3927 $ WC "intsize='" + perl_intsize + "'"
3928 $ WC "longsize='" + perl_longsize + "'"
3929 $ WC "shortsize='" + perl_shortsize + "'"
3930 $ WC "lseektype='" + perl_lseektype + "'"
3931 $ WC "lseeksize='4'"
3932 $ WC "i_values='" + perl_i_values + "'"
3933 $ WC "malloctype='" + perl_malloctype + "'"
3934 $ WC "freetype='" + perl_freetype + "'"
3935 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
3936 $ WC "sh='" + perl_sh + "'"
3937 $ WC "sig_name='" + perl_sig_name + "'"
3938 $ WC "sig_num='" + perl_sig_num + "'"
3939 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
3940 $ WC/symbol tempsym
3941 $ WC "modetype='" + perl_modetype + "'"
3942 $ WC "ssizetype='" + perl_ssizetype + "'"
3943 $ WC "o_nonblock='" + perl_o_nonblock + "'"
3944 $ WC "eagain='" + perl_eagain + "'"
3945 $ WC "rd_nodata='" + perl_rd_nodata + "'"
3946 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
3947 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
3948 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
3949 $ WC "oldarchlib='" + perl_oldarchlib + "'"
3950 $ WC "privlibexp='" + perl_privlibexp + "'"
3951 $ WC "privlib='" + perl_privlib + "'"
3952 $ WC "sitelibexp='" + perl_sitelibexp + "'"
3953 $ WC "sitelib='" + perl_sitelib + "'"
3954 $ WC "sitelib_stem='" + perl_sitelib_stem + "'"
3955 $ WC "sitearchexp='" + perl_sitearchexp + "'"
3956 $ WC "sitearch='" + perl_sitearch + "'"
3957 $ WC "sizetype='" + perl_sizetype + "'"
3958 $ WC "i_sysparam='" + perl_i_sysparam + "'"
3959 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
3960 $ WC "d_dlerror='" + perl_d_dlerror + "'"
3961 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
3962 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
3963 $ WC "d_dosuid='" + perl_d_dosuid + "'"
3964 $ WC "d_inetaton='" + perl_d_inetaton + "'"
3965 $ WC "d_int64_t='" + perl_d_int64_t + "'"
3966 $ WC "d_isascii='" + perl_d_isascii + "'"
3967 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
3968 $ WC "d_pathconf='" + perl_d_pathconf + "'"
3969 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
3970 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
3971 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
3972 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
3973 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
3974 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
3975 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
3976 $ WC "d_setpgid='" + perl_d_setpgid + "'"
3977 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
3978 $ WC "d_sysconf='" + perl_d_sysconf + "'"
3979 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
3980 $ WC "d_getpgid='" + perl_d_getpgid + "'"
3981 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
3982 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
3983 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
3984 $ WC "d_sfio='" + perl_d_sfio + "'"
3985 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
3986 $ WC "usedl='" + perl_usedl + "'"
3987 $ WC "startperl=" + perl_startperl ! This one's special--no enclosing single quotes
3988 $ WC "db_hashtype='" + perl_db_hashtype + "'"
3989 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
3990 $ WC "useperlio='" + perl_useperlio + "'"
3991 $ WC "defvoidused='" + perl_defvoidused + "'"
3992 $ WC "voidflags='" + perl_voidflags + "'"
3993 $ WC "d_eunice='" + perl_d_eunice + "'"
3994 $ WC "libs='" + perl_libs + "'"
3995 $ WC "libc='" + perl_libc + "'"
3996 $ tempstring = "PERL_VERSION='" + "''perl_patchlevel'" + "'"
3997 $ WC tempstring
3998 $ tempstring = "PERL_SUBVERSION='" + "''perl_patchlevel'" + "'"
3999 $ WC tempstring
4000 $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
4001 $ WC tempstring
4002 $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
4003 $ WC tempstring
4004 $ WC "xs_apiversion='" + localperlver + "'"
4005 $ WC "pm_apiversion='" + localperlver + "'"
4006 $ WC "pager='" + perl_pager + "'"
4007 $ WC "uidtype='" + perl_uidtype + "'"
4008 $ WC "uidformat='" + perl_uidformat + "'"
4009 $ WC "uidsize='" + perl_uidsize + "'"
4010 $ WC "gidtype='" + perl_gidtype + "'"
4011 $ WC "gidformat='" + perl_gidformat + "'"
4012 $ WC "gidsize='" + perl_gidsize + "'"
4013 $ WC "usethreads='" + perl_usethreads + "'"
4014 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
4015 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
4016 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
4017 $ WC "i_netdb='" + perl_i_netdb + "'"
4018 $ WC "pidtype='" + perl_pidtype + "'"
4019 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
4020 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
4021 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
4022 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
4023 $ WC "socksizetype='" + perl_socksizetype + "'"
4024 $ WC "baserev='" + perl_baserev + "'"
4025 $ WC "doublesize='" + perl_doublesize + "'"
4026 $ WC "ptrsize='" + perl_ptrsize + "'"
4027 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
4028 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
4029 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
4030 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
4031 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
4032 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
4033 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
4034 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
4035 $ WC "d_sethent='" + perl_d_sethent + "'"
4036 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
4037 $ WC "d_longdbl='" + perl_d_longdbl + "'"
4038 $ WC "longdblsize='" + perl_longdblsize + "'"
4039 $ WC "d_longlong='" + perl_d_longlong + "'"
4040 $ WC "longlongsize='" + perl_longlongsize + "'"
4041 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
4042 $ WC "d_mkstemps='" + perl_d_mkstemps + "'"
4043 $ WC "d_mkdtemp='" + perl_d_mkdtemp + "'"
4044 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
4045 $ WC "d_setenv='" + perl_d_setenv + "'"
4046 $ WC "d_endhent='" + perl_d_endhent + "'"
4047 $ WC "d_endnent='" + perl_d_endsent + "'"
4048 $ WC "d_endpent='" + perl_d_endpent + "'"
4049 $ WC "d_endsent='" + perl_d_endsent + "'"
4050 $ WC "d_gethent='" + perl_d_gethent + "'"
4051 $ WC "d_getnent='" + perl_d_getsent + "'"
4052 $ WC "d_getpent='" + perl_d_getpent + "'"
4053 $ WC "d_getsent='" + perl_d_getsent + "'"
4054 $ WC "d_sethent='" + perl_d_sethent + "'"
4055 $ WC "d_setnent='" + perl_d_setsent + "'"
4056 $ WC "d_setpent='" + perl_d_setpent + "'"
4057 $ WC "ebcdic='" + perl_ebcdic + "'"
4058 $ WC "d_setsent='" + perl_d_setsent + "'"
4059 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
4060 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
4061 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
4062 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
4063 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
4064 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
4065 $ WC "d_lchown='" + perl_d_lchown + "'"
4066 $ WC "d_union_semun='" + perl_d_union_semun + "'"
4067 $ WC "i_arpainet='" + perl_i_arpainet + "'"
4068 $ WC "d_grpasswd='" + perl_d_grpasswd + "'"
4069 $ WC "d_setgrent='" + perl_d_setgrent + "'"
4070 $ WC "d_getgrent='" + perl_d_getgrent + "'"
4071 $ WC "d_endgrent='" + perl_d_endgrent + "'"
4072 $ WC "d_pwpasswd='" + perl_d_pwpasswd + "'"
4073 $ WC "d_setpwent='" + perl_d_setpwent + "'"
4074 $ WC "d_getpwent='" + perl_d_getpwent + "'"
4075 $ WC "d_endpwent='" + perl_d_endpwent + "'"
4076 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
4077 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
4078 $ WC "extensions='" + perl_extensions + "'"
4079 $ WC "known_extensions='" + perl_known_extensions + "'"
4080 $ WC "static_ext='" + "'"
4081 $ WC "dynamic_ext='" + perl_extensions + "'"
4082 $ WC "d_mknod='" + perl_d_mknod + "'"
4083 $ WC "devtype='" + perl_devtype + "'"
4084 $ WC "d_gethname='" + perl_d_gethname + "'"
4085 $ WC "d_phostname='" + perl_d_phostname + "'"
4086 $ WC "aphostname='" + perl_aphostname + "'"
4087 $ WC "d_accessx='" + perl_d_accessx + "'"
4088 $ WC "d_eaccess='" + perl_d_eaccess + "'"
4089 $ WC "i_ieeefp='" + perl_i_ieeefp + "'"
4090 $ WC "i_sunmath='" + perl_i_sunmath + "'"
4091 $ WC "i_sysaccess='" + perl_i_sysaccess + "'"
4092 $ WC "i_syssecrt='" + perl_i_syssecrt + "'"
4093 $ WC "d_fd_set='" + perl_d_fd_set + "'"
4094 $ WC "d_access='" + perl_d_access + "'"
4095 $ WC "d_msg_ctrunc='" + perl_d_msg_ctrunc + "'"
4096 $ WC "d_msg_dontroute='" + perl_d_msg_dontroute + "'"
4097 $ WC "d_msg_oob='" + perl_d_msg_oob + "'"
4098 $ WC "d_msg_peek='" + perl_d_msg_peek + "'"
4099 $ WC "d_msg_proxy='" + perl_d_msg_proxy + "'"
4100 $ WC "d_scm_rights='" + perl_d_scm_rights + "'"
4101 $ WC "d_sendmsg='" + perl_d_sendmsg + "'"
4102 $ WC "d_recvmsg='" + perl_d_recvmsg + "'"
4103 $ WC "d_msghdr_s='" + perl_d_msghdr_s + "'"
4104 $ WC "d_cmsghdr_s='" + perl_d_cmsghdr_s + "'"
4105 $ WC "i_sysuio='" + perl_i_sysuio + "'"
4106 $ WC "d_fseeko='" + perl_d_fseeko + "'"
4107 $ WC "d_ftello='" + perl_d_ftello + "'"
4108 $ WC "d_qgcvt='" + perl_d_qgcvt + "'"
4109 $ WC "d_readv='" + perl_d_readv + "'"
4110 $ WC "d_writev='" + perl_d_writev + "'"
4111 $ WC "i_machcthr='" + perl_i_machcthr + "'"
4112 $ WC "usemultiplicity='" + perl_usemultiplicity + "'"
4113 $ WC "i_poll='" + perl_i_poll + "'"
4114 $ WC "i_inttypes='" + perl_i_inttypes + "'"
4115 $ WC "d_off64_t='" + perl_d_off64_t + "'"
4116 $ WC "d_fpos64_t='" + perl_d_fpos64_t + "'"
4117 $ WC "use64bitall='" + perl_use64bitall + "'"
4118 $ WC "use64bitint='" + perl_use64bitint + "'"
4119 $ WC "d_drand48proto='" + perl_d_drand48proto + "'"
4120 $ WC "d_lseekproto='" + perl_d_drand48proto + "'"
4121 $ WC "d_old_pthread_create_joinable='" + perl_d_old_pthread_create_joinable + "'"
4122 $ WC "old_pthread_create_joinable='" + perl_old_pthread_create_joinable + "'"
4123 $ WC "drand01='" + perl_drand01 + "'"
4124 $ WC "randseedtype='" + perl_randseedtype + "'"
4125 $ WC "seedfunc='" + perl_seedfunc + "'"
4126 $ WC "sig_num_init='" + perl_sig_num_with_commas + "'"
4127 $ WC "i_sysmount='" + perl_i_sysmount + "'"
4128 $ WC "d_fstatfs='" + perl_d_fstatfs + "'"
4129 $ WC "d_getfsstat='" + perl_d_getfsstat + "'"
4130 $ WC "d_memchr='" + perl_d_memchr + "'"
4131 $ WC "d_statfsflags='" + perl_d_statfsflags + "'"
4132 $ WC "fflushNULL='define'"
4133 $ WC "fflushall='undef'"
4134 $ WC "d_stdio_stream_array='undef'"
4135 $ WC "stdio_stream_array='" + perl_stdio_stream_array + "'"
4136 $ WC "i_sysstatvfs='" + perl_i_sysstatvfs + "'"
4137 $ WC "i_syslog='" + perl_i_syslog + "'"
4138 $ WC "i_sysmode='" + perl_i_sysmode + "'"
4139 $ WC "i_sysutsname='" + perl_i_sysutsname + "'"
4140 $ WC "i_machcthreads='" + perl_i_machcthreads + "'"
4141 $ WC "i_pthread='" + perl_i_pthread + "'"
4142 $ WC "d_fstatvfs='" + perl_d_fstatvfs + "'"
4143 $ WC "i_mntent='" + perl_i_mntent + "'"
4144 $ WC "d_getmntent='" + perl_d_getmntent + "'"
4145 $ WC "d_hasmntopt='" + perl_d_hasmntopt + "'"
4146 $ WC "d_telldirproto='" + perl_d_telldirproto + "'"
4147 $ WC "d_madvise='" + perl_d_madvise + "'"
4148 $ WC "d_msync='" + perl_d_msync + "'"
4149 $ WC "d_mprotect='" + perl_d_mprotect + "'"
4150 $ WC "d_munmap='" + perl_d_munmap + "'"
4151 $ WC "d_mmap='" + perl_d_mmap + "'"
4152 $ WC "mmaptype='" + perl_mmaptype + "'"
4153 $ WC "i_sysmman='" + perl_i_sysmman + "'"
4154 $ WC "installusrbinperl='" + perl_installusrbinperl + "'"
4155 $! WC "selectminbits='" + perl_selectminbits + "'"
4156 $ WC "crosscompile='" + perl_crosscompile + "'"
4157 $ WC "multiarch='" + perl_multiarch + "'"
4158 $ WC "sched_yield='" + perl_sched_yield + "'"
4159 $ WC "d_strtoull='" + perl_d_strtoull + "'"
4160 $ WC "d_strtouq='" + perl_d_strtouq + "'"
4161 $ WC "d_strtoll='" + perl_d_strtoll + "'"
4162 $ WC "d_strtold='" + perl_d_strtold + "'"
4163 $ WC "usesocks='" + perl_usesocks + "'"
4164 $ WC "d_vendorlib='" + perl_d_vendorlib + "'"
4165 $ WC "vendorlibexp='" + perl_vendorlibexp + "'"
4166 $ WC "vendorlib_stem='" + perl_vendorlib_stem + "'"
4167 $ WC "d_atolf='" + perl_d_atolf + "'"
4168 $ WC "d_atoll='" + perl_d_atoll + "'"
4169 $ WC "d_bincompat5005='" + perl_d_bincompat + "'"
4170 $ WC "d_endspent='" + perl_d_endspent + "'"
4171 $ WC "d_getspent='" + perl_d_getspent + "'"
4172 $ WC "d_getspnam='" + perl_d_getspnam + "'"
4173 $ WC "d_setspent='" + perl_d_setspent + "'"
4174 $ WC "i_shadow='" + perl_i_shadow + "'"
4175 $ WC "i_socks='" + perl_i_socks + "'"
4176 $ WC "d_PRIfldbl='" + perl_d_PRIfldbl + "'"
4177 $ WC "d_PRIgldbl='" + perl_d_PRIgldbl + "'"
4178 $ WC "d_PRId64='" + perl_d_PRId64 + "'"
4179 $ WC "d_PRIu64='" + perl_d_PRIu64 + "'"
4180 $ WC "d_PRIo64='" + perl_d_PRIo64 + "'"
4181 $ WC "d_PRIx64='" + perl_d_PRIx64 + "'"
4182 $ WC "sPRIfldbl='" + perl_sPRIfldbl + "'"
4183 $ WC "sPRIgldbl='" + perl_sPRIgldbl + "'"
4184 $ WC "sPRId64='" + perl_sPRId64 + "'"
4185 $ WC "sPRIu64='" + perl_sPRIu64 + "'"
4186 $ WC "sPRIo64='" + perl_sPRIo64 + "'"
4187 $ WC "sPRIx64='" + perl_sPRIx64 + "'"
4188 $ WC "d_llseek='" + perl_d_llseek + "'"
4189 $ WC "d_iconv='" + perl_d_iconv +"'"
4190 $ WC "i_iconv='" + perl_i_iconv +"'"
4191 $ WC "inc_version_list='0'"
4192 $ WC "inc_version_list_init='0'"
4193 $ WC "uselargefiles='" + perl_uselargefiles + "'"
4194 $ WC "uselongdouble='" + perl_uselongdouble + "'"
4195 $ WC "usemorebits='" + perl_usemorebits + "'"
4196 $ WC "d_quad='" + perl_d_quad + "'"
4197 $ WC "quadtype='" + perl_quadtype + "'" 
4198 $ WC "uquadtype='" + perl_uquadtype + "'" 
4199 $ WC "quadkind='" + perl_quadkind + "'"
4200 $ WC "d_fs_data_s='" + perl_d_fs_data_s + "'" 
4201 $ WC "d_getcwd='" + perl_d_getcwd + "'"
4202 $ WC "d_getmnt='" + perl_d_getmnt + "'"
4203 $ WC "d_sqrtl='" + perl_d_sqrtl + "'"
4204 $ WC "d_statfs_f_flags='" + perl_d_statfs_f_flags + "'"
4205 $ WC "d_statfs_s='" + perl_d_statfs_s + "'"
4206 $ WC "d_ustat='" + perl_d_ustat + "'"
4207 $ WC "d_vendorarch='" + perl_d_vendorarch + "'"
4208 $ WC "vendorarchexp='" + perl_vendorarchexp + "'"
4209 $ WC "i_sysstatfs='" + perl_i_sysstatfs + "'"
4210 $ WC "i_sysvfs='" + perl_i_sysvfs + "'"
4211 $ WC "i_ustat='" + perl_i_ustat + "'"
4212 $ WC "ivtype='" + perl_ivtype + "'"
4213 $ WC "uvtype='" + perl_uvtype + "'"
4214 $ WC "i8type='" + perl_i8type + "'"
4215 $ WC "i16type='" + perl_i16type + "'"
4216 $ WC "u8type='" + perl_u8type + "'"
4217 $ WC "u16type='" + perl_u16type + "'"
4218 $ WC "i32type='" + perl_i32type + "'"
4219 $ WC "u32type='" + perl_u32type + "'"
4220 $ WC "i64type='" + perl_i64type + "'"
4221 $ WC "u64type='" + perl_u64type + "'"
4222 $ WC "nvtype='" + perl_nvtype + "'"
4223 $ WC "ivsize='" + perl_ivsize + "'"
4224 $ WC "uvsize='" + perl_uvsize + "'"
4225 $ WC "i8size='" + perl_i8size + "'"
4226 $ WC "u8size='" + perl_u8size + "'"
4227 $ WC "i16size='" + perl_i16size + "'"
4228 $ WC "u16size='" + perl_u16size + "'"
4229 $ WC "i32size='" + perl_i32size + "'"
4230 $ WC "u32size='" + perl_u32size + "'"
4231 $ WC "i64size='" + perl_i64size + "'"
4232 $ WC "u64size='" + perl_u64size + "'"
4233 $ WC "ivdformat='" + perl_ivdformat + "'"
4234 $ WC "uvuformat='" + perl_uvuformat + "'"
4235 $ WC "uvoformat='" + perl_uvoformat + "'"
4236 $ WC "uvxformat='" + perl_uvxformat + "'"
4237 $ WC "d_vms_case_sensitive_symbols='" + d_vms_be_case_sensitive + "'"
4238 $!
4239 $! ##WRITE NEW CONSTANTS HERE##
4240 $!
4241 $ Close CONFIGSH
4242 $
4243 $! Okay, we've gotten here. Build munchconfig and run it
4244 $ 'Perl_CC' munchconfig.c
4245 $ If (Needs_Opt.eqs."Yes")
4246 $ THEN
4247 $   open/write OPTCHAN []munchconfig.opt
4248 $   IF ("''using_gnu_c'".eqs."Yes")
4249 $   THEN
4250 $     write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
4251 $   endif
4252 $   write OPTCHAN "Sys$Share:VAXCRTL/Share"
4253 $   Close OPTCHAN
4254 $   link munchconfig.obj,munchconfig.opt/opt
4255 $   delete munchconfig.opt;*
4256 $ else
4257 $   link munchconfig.obj
4258 $ endif
4259 $ echo ""
4260 $ echo "Writing config.h"
4261 $ !
4262 $ ! we need an fdl file
4263 $ CREATE [-]CONFIG.FDL
4264 RECORD
4265   FORMAT STREAM_LF
4266 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
4267 $ ! First spit out the header info with the local defines (to get
4268 $ ! around the 255 character command line limit)
4269 $ OPEN/APPEND CONFIG [-]config.local
4270 $ if use_debugging_perl.eqs."Y"
4271 $ THEN
4272 $   WRITE CONFIG "#define DEBUGGING"
4273 $ ENDIF
4274 $ if use_two_pot_malloc.eqs."Y"
4275 $ THEN
4276 $    WRITE CONFIG "#define TWO_POT_OPTIMIZE"
4277 $ endif
4278 $ if mymalloc.eqs."Y"
4279 $ THEN
4280 $    WRITE CONFIG "#define EMBEDMYMALLOC"
4281 $ ENDIF
4282 $ if use_pack_malloc.eqs."Y"
4283 $ THEN
4284 $    WRITE CONFIG "#define PACK_MALLOC"
4285 $ endif
4286 $ if use_debugmalloc.eqs."Y"
4287 $ THEN
4288 $    write config "#define DEBUGGING_MSTATS"
4289 $ ENDIF
4290 $ if "''Using_Gnu_C'" .eqs."Yes"
4291 $ THEN
4292 $   WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
4293 $ ENDIF
4294 $ if "''Has_Dec_C_Sockets'".eqs."T"
4295 $ THEN
4296 $    WRITE CONFIG "#define VMS_DO_SOCKETS"
4297 $    WRITE CONFIG "#define DECCRTL_SOCKETS"
4298 $ ENDIF
4299 $ if "''Has_Socketshr'".eqs."T"
4300 $ THEN
4301 $    WRITE CONFIG "#define VMS_DO_SOCKETS"
4302 $ ENDIF
4303 $! This is VMS-specific for now
4304 $ WRITE CONFIG "#''perl_d_setenv' HAS_SETENV"
4305 $ if d_alwdeftype.eqs."Y"
4306 $ THEN
4307 $    WRITE CONFIG "#define SECURE_INTERNAL_GETENV"
4308 $ ELSE
4309 $    WRITE CONFIG "#undef SECURE_INTERNAL_GETENV"
4310 $ ENDIF
4311 $ if d_secintgenv.eqs."Y"
4312 $ THEN
4313 $    WRITE CONFIG "#define ALWAYS_DEFTYPES"
4314 $ ELSE
4315 $    WRITE CONFIG "#undef ALWAYS_DEFTYPES"
4316 $ ENDIF
4317 $ IF (use64bitint)
4318 $ THEN
4319 $    WRITE CONFIG "#define USE_64_BIT_INT"
4320 $    WRITE CONFIG "#define USE_LONG_DOUBLE"
4321 $ ENDIF
4322 $ IF (use64bitall)
4323 $ THEN
4324 $    WRITE CONFIG "#define USE_64_BIT_ALL"
4325 $ ENDIF
4326 $ if be_case_sensitive
4327 $ then
4328 $    write config "#define VMS_WE_ARE_CASE_SENSITIVE"
4329 $ endif
4330 $ if perl_d_herrno .eqs. "undef"
4331 $ THEN
4332 $    write config "#define NEED_AN_H_ERRNO"
4333 $ ENDIF
4334 $ WRITE CONFIG "#define HAS_ENVGETENV"
4335 $ WRITE CONFIG "#define PERL_EXTERNAL_GLOB"
4336 $ CLOSE CONFIG
4337 $!
4338 $! Now build the normal config.h
4339 $ define/user sys$output [-]config.main
4340 $ mcr []munchconfig [-]config.sh [-]config_h.sh
4341 $ ! Concatenate them together
4342 $ copy [-]config.local,[-]config.main [-]config.h
4343 $! Clean up
4344 $ DELETE/NOLOG [-]CONFIG.MAIN;*
4345 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
4346 $ DELETE/NOLOG [-]CONFIG.FDL;*
4347 $!
4348 $ if "''Using_Dec_C'" .eqs."Yes"
4349 $ THEN
4350 $ DECC_REPLACE = "DECC=decc=1"
4351 $ ELSE
4352 $ DECC_REPLACE = "DECC=" 
4353 $ ENDIF
4354 $ if "''Using_Gnu_C'" .eqs."Yes"
4355 $ THEN
4356 $ GNUC_REPLACE = "GNUC=gnuc=1"
4357 $ ELSE
4358 $ GNUC_REPLACE = "GNUC=" 
4359 $ ENDIF
4360 $ if "''Has_Dec_C_Sockets'" .eqs."T"
4361 $ THEN
4362 $   SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
4363 $ ELSE
4364 $   if "''Has_Socketshr'" .eqs."T"
4365 $   THEN
4366 $     SOCKET_REPLACE = "SOCKET=SOCKETSHR_SOCKETS=1"
4367 $   ELSE
4368 $     SOCKET_REPLACE = "SOCKET="
4369 $   ENDIF
4370 $ ENDIF
4371 $ IF ("''Use_Threads'".eqs."T")
4372 $ THEN
4373 $   if ("''VMS_VER'".LES."6.2")
4374 $   THEN
4375 $     THREAD_REPLACE = "THREAD=OLDTHREADED=1"
4376 $   ELSE
4377 $     THREAD_REPLACE = "THREAD=THREADED=1"
4378 $   ENDIF
4379 $ ELSE
4380 $   THREAD_REPLACE = "THREAD="
4381 $ ENDIF
4382 $ if mymalloc.eqs."Y"
4383 $ THEN
4384 $   MALLOC_REPLACE = "MALLOC=MALLOC=1"
4385 $ ELSE
4386 $   MALLOC_REPLACE = "MALLOC="
4387 $ ENDIF
4388 $ if f$getsyi("HW_MODEL").ge.1024
4389 $ THEN
4390 $ ARCH_TYPE = "ARCH-TYPE=__AXP__"
4391 $ ELSE
4392 $ ARCH_TYPE = "ARCH-TYPE=__VAX__"
4393 $ ENDIF
4394 $ echo "Writing DESCRIP.MMS"
4395 $!set ver
4396 $ define/user sys$output [-]descrip.mms
4397 $ mcr []munchconfig [-]config.sh descrip_mms.template "''DECC_REPLACE'" "''ARCH_TYPE'" "''GNUC_REPLACE'" "''SOCKET_REPLACE'" "''THREAD_REPLACE'" -
4398 "''C_Compiler_Replace'" "''MALLOC_REPLACE'" "''Thread_Live_Dangerously'" "PV=''LocalPerlVer'" "FLAGS=FLAGS=''extra_flags'"
4399 $ echo "Extracting Build_Ext.Com"
4400 $ Create Sys$Disk:[-]Build_Ext.Com
4401 $ Deck/Dollar="$EndOfTpl$"
4402 $!++ Build_Ext.Com
4403 $!   NOTE: This file is extracted as part of the VMS configuration process.
4404 $!   Any changes made to it directly will be lost.  If you need to make any
4405 $!   changes, please edit the template in [.vms]SubConfigure.Com instead.
4406 $    def = F$Environment("Default")
4407 $    exts1 = F$Edit(p1,"Compress")
4408 $    p2 = F$Edit(p2,"Upcase,Compress,Trim")
4409 $    If F$Locate("MCR ",p2).eq.0 Then p2 = F$Extract(3,255,p2)
4410 $    miniperl = "$" + F$Search(F$Parse(p2,".Exe"))
4411 $    makeutil = p3
4412 $    if f$type('p3') .nes. "" then makeutil = 'p3'
4413 $    targ = F$Edit(p4,"Lowercase")
4414 $    i = 0
4415 $ next_ext:
4416 $    ext = F$Element(i," ",p1)
4417 $    If ext .eqs. " " Then Goto done
4418 $    Define/User Perl_Env_Tables CLISYM_LOCAL
4419 $    miniperl
4420      ($extdir = $ENV{'ext'}) =~ s/::/./g;
4421      $extdir =~ s#/#.#g;
4422      if ($extdir =~ /^vms/i) { $extdir =~ s/vms/.vms.ext/i; }
4423      else                    { $extdir = ".ext.$extdir";   }
4424      ($ENV{'extdir'} = "[$extdir]");
4425      ($ENV{'up'} = ('-') x ($extdir =~ tr/././));
4426 $    Set Default &extdir
4427 $    redesc = 0
4428 $    If F$Locate("clean",targ) .eqs. F$Length(targ)
4429 $    Then
4430 $      Write Sys$Output "Building ''ext' . . ."
4431 $      On Error Then Goto done
4432 $      If F$Search("Descrip.MMS") .eqs. ""
4433 $      Then
4434 $        redesc = 1
4435 $      Else
4436 $        If F$CvTime(F$File("Descrip.MMS","rdt")) .lts. -
4437             F$CvTime(F$File("Makefile.PL","rdt")) Then redesc = 1
4438 $      EndIf
4439 $    Else
4440 $      Write Sys$Output "''targ'ing ''ext' . . ."
4441 $      On Error Then Continue
4442 $    EndIf
4443 $    If redesc Then -
4444        miniperl "-I[''up'.lib]" Makefile.PL "INST_LIB=[''up'.lib]" "INST_ARCHLIB=[''up'.lib]"
4445 $    makeutil 'targ'
4446 $    i = i + 1
4447 $    Set Def &def
4448 $    Goto next_ext
4449 $ done:
4450 $    sts = $Status
4451 $    Set Def &def
4452 $    Exit sts
4453 $!-- Build_Ext.Com
4454 $EndOfTpl$
4455 $
4456 $! set nover
4457 $!
4458 $! Clean up after ourselves
4459 $ delete/nolog munchconfig.exe;*
4460 $ delete/nolog munchconfig.obj;*