1 $! SUBCONFIGURE.COM - build a config.sh for VMS Perl.
3 $! Note for folks from other platforms changing things in here:
4 $! Fancy changes (based on compiler capabilities or VMS version or
5 $! whatever) are tricky, so go ahead and punt on those.
7 $! Simple changes, though (say, always setting something to 1, or undef,
8 $! or something like that) are straightforward. Adding a new item for the
9 $! ultimately created config.sh requires adding two lines to this file.
11 $! First, a line in the format:
13 $! after the line tagged ##ADD NEW CONSTANTS HERE##. Replace foo with the
14 $! variable name as it appears in config.sh.
16 $! Second, add a line in the format:
17 $! $ WC "foo='" + perl_foo + "'"
18 $! after the line tagged ##WRITE NEW CONSTANTS HERE##. Careful of the
19 $! quoting, as it can be tricky.
21 $! This .COM file expects to be called by configure.com, and thus expects
22 $! a few symbols in the environment. Notably:
24 $! One of: Using_Dec_C, Using_Vax_C, Using_Gnu_C set to "YES"
25 $! Dec_C_Version set to the Dec C version (defaults to 0 if not specified)
26 $! Has_Socketshr set to "T" if using socketshr
27 $! Has_Dec_C_Sockets set to "T" if using Dec C sockets
28 $! Use_Threads set to "T" if they're using threads
29 $! C_Compiler_Invoke is the command needed to invoke the C compiler
31 $! Set Dec_C_Version to something
32 $ WRITE_RESULT := "WRITE SYS$OUTPUT ""%CONFIG-I-RESULT "" + "
33 $ echo = "Write Sys$Output "
34 $ Dec_C_Version := "''Dec_C_Version'"
35 $ Dec_C_Version = Dec_C_Version + 0
36 $ Vms_Ver := "''f$extract(1,3, f$getsyi(""version""))'"
37 $ perl_extensions := "''extensions'"
38 $ if f$length(Mcc) .eq. 0 then Mcc := "cc"
39 $ MCC = f$edit(mcc, "UPCASE")
42 $ C_Compiler_Replace := "CC="
44 $ C_Compiler_Replace := "CC=CC=''Mcc'"
46 $ if "''Using_Dec_C'" .eqs. "Yes"
48 $ Checkcc := "''Mcc'/prefix=all"
53 $ if use_multiplicity .eqs. "Y"
55 $ perl_usemultiplicity = "define"
57 $ perl_usemultiplicity = "undef"
59 $! Some constant defaults.
61 $ hwname = f$getsyi("HW_NAME")
63 $ if "''myname'" .eqs. "" THEN myname = f$trnlnm("SYS$NODE")
65 $! ##ADD NEW CONSTANTS HERE##
66 $ perl_d_madvise="undef"
67 $ perl_d_msync="undef"
68 $ perl_d_mprotect="undef"
69 $ perl_d_munmap="undef"
70 $ perl_crosscompile="undef"
71 $ perl_multiarch="undef"
73 $ perl_i_sysmman="undef"
74 $ perl_d_telldirproto="define"
75 $ perl_i_sysmount="undef"
76 $ perl_d_fstatfs="undef"
77 $ perl_i_machcthreads="undef"
78 $ perl_i_pthread="define"
79 $ perl_d_fstatvfs="undef"
80 $ perl_d_statfsflags="undef"
81 $ perl_i_sysstatvfs="undef"
82 $ perl_i_mntent="undef"
83 $ perl_d_getmntent="undef"
84 $ perl_d_hasmntopt="undef"
85 $ perl_package="''package'"
86 $ perl_baserev = "''baserev'"
88 $ perl_installusrbinperl="undef"
90 $ perl_d_fseeko="undef"
91 $ perl_d_ftello="undef"
92 $ perl_d_readv="undef"
93 $ perl_d_writev="undef"
94 $ perl_i_machcthr="undef"
95 $ perl_i_netdb="undef"
96 $ perl_d_gnulibc="undef"
97 $ perl_cf_by="unknown"
101 $ perl_drand01 = "drand48()"
102 $ perl_randseedtype = "long int"
103 $ perl_seedfunc = "srand48"
104 $ perl_d_msg_ctrunc = "undef"
105 $ perl_d_msg_dontroute = "undef"
106 $ perl_d_msg_oob = "undef"
107 $ perl_d_msg_peek = "undef"
108 $ perl_d_msg_proxy = "undef"
109 $ perl_d_scm_rights = "undef"
110 $ perl_d_sendmsg = "undef"
111 $ perl_d_recvmsg = "undef"
112 $ perl_d_msghdr_s = "undef"
113 $ perl_d_cmsghdr_s = "undef"
114 $ perl_d_dbminit64 = "undef"
115 $ perl_d_dbmclose64 = "undef"
116 $ perl_d_fetch64 = "undef"
117 $ perl_d_store64 = "undef"
118 $ perl_d_delete64 = "undef"
119 $ perl_d_firstkey64 = "undef"
120 $ perl_d_nextkey64 = "undef"
121 $ perl_d_fstat64 = "undef"
122 $ perl_d_ftruncate64 = "undef"
123 $ perl_d_lseek64 = "undef"
124 $ perl_d_lstat64 = "undef"
125 $ perl_d_open64 = "undef"
126 $ perl_d_opendir64 = "undef"
127 $ perl_d_readdir64 = "undef"
128 $ perl_d_seekdir64 = "undef"
129 $ perl_d_stat64 = "undef"
130 $ perl_d_telldir64 = "undef"
131 $ perl_d_truncate64 = "undef"
132 $ perl_d_dirent64_s = "undef"
133 $ perl_d_fgetpos64 = "undef"
134 $ perl_d_fopen64 = "undef"
135 $ perl_d_freopen64 = "undef"
136 $ perl_d_fseek64 = "undef"
137 $ perl_d_fseeko64 = "undef"
138 $ perl_d_fsetpos64 = "undef"
139 $ perl_d_ftell64 = "undef"
140 $ perl_d_ftello64 = "undef"
141 $ perl_d_tmpfile64 = "undef"
142 $ perl_use64bits = "undef"
143 $ perl_d_drand48proto = "define"
144 $ perl_libpth="/sys$share /sys$library"
146 $ perl_lddlflags="/Share"
151 $ perl_i_arpainet="undef"
152 $ perl_d_grpasswd="undef"
153 $ perl_d_setgrent="undef"
154 $ perl_d_getgrent="define"
155 $ perl_d_endgrent="define"
156 $ perl_d_pwpasswd="define"
157 $ perl_d_setpwent="define"
158 $ perl_d_getpwent="define"
159 $ perl_d_endpwent="define"
160 $ perl_d_phostname="undef"
161 $ perl_d_accessx="undef"
162 $ perl_d_eaccess="undef"
163 $ perl_ebcdic="undef"
165 $ perl_shrplib="define"
166 $ perl_usemymalloc=mymalloc
167 $ perl_usevfork="true"
168 $ perl_useposix="false"
169 $ perl_spitshell="write sys$output "
170 $ perl_dlsrc="dl_vms.c"
173 $ perl_prefix="perl_root"
174 $ perl_binexp="''perl_prefix':[000000]"
175 $ perl_builddir="''perl_prefix':[000000]"
176 $ perl_installbin="''perl_prefix':[000000]"
177 $ perl_installscript="''perl_prefix':[utils]"
178 $ perl_installman1dir="''perl_prefix':[man.man1]"
179 $ perl_installman3dir="''perl_prefix':[man.man3]"
180 $ perl_installprivlib="''perl_prefix':[lib]"
181 $ perl_installsitelib="''perl_prefix':[lib.site_perl]"
184 $ perl_d_sockpair="undef"
185 $ perl_i_neterrno="define"
186 $ perl_ldflags="/NoTrace/NoMap"
187 $ perl_d_lchown="undef"
188 $ perl_d_mknod="undef"
189 $ perl_d_union_semun="undef"
190 $ perl_d_semctl_semun="undef"
191 $ perl_d_semctl_semid_ds="undef"
192 $ IF (sharedperl.EQS."Y")
194 $ perl_obj_ext=".abj"
197 $ perl_exe_ext=".axe"
198 $ perl_lib_ext=".alb"
200 $ perl_obj_ext=".obj"
203 $ perl_exe_ext=".exe"
204 $ perl_lib_ext=".olb"
206 $ perl_dlobj="dl_vms''perl_obj_ext'"
208 $ perl_d_archlib="define"
209 $ perl_d_bincompat3="undef"
210 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
212 $ perl_d_castneg="define"
214 $ perl_d_chsize="undef"
215 $ perl_d_const="define"
216 $ perl_d_crypt="define"
217 $ perl_byteorder="1234"
220 $ perl_d_dup2="define"
221 $ perl_d_fchmod="undef"
222 $ perl_d_fchown="undef"
223 $ perl_d_fcntl="undef"
224 $ perl_d_fgetpos="define"
225 $ perl_d_flexfnam="define"
226 $ perl_d_flock="undef"
227 $ perl_d_fsetpos="define"
228 $ perl_d_getgrps="undef"
229 $ perl_d_setgrps="undef"
230 $ perl_d_getprior="undef"
231 $ perl_d_killpg="undef"
232 $ perl_d_link="undef"
233 $ perl_d_lstat="undef"
234 $ perl_d_lockf="undef"
235 $ perl_d_memcmp="define"
236 $ perl_d_memcpy="define"
237 $ perl_d_memmove="define"
238 $ perl_d_memset="define"
239 $ perl_d_mkdir="define"
241 $ perl_d_open3="define"
242 $ perl_d_poll="undef"
243 $ perl_d_readdir="define"
244 $ perl_d_seekdir="define"
245 $ perl_d_telldir="define"
246 $ perl_d_rewinddir="define"
247 $ perl_d_rename="define"
248 $ perl_d_rmdir="define"
250 $ perl_d_setegid="undef"
251 $ perl_d_seteuid="undef"
252 $ perl_d_setprior="undef"
253 $ perl_d_setregid="undef"
254 $ perl_d_setresgid="undef"
255 $ perl_d_setreuid="undef"
256 $ perl_d_setresuid="undef"
257 $ perl_d_setrgid="undef"
258 $ perl_d_setruid="undef"
259 $ perl_d_setsid="undef"
261 $ perl_d_shmatprototype="undef"
262 $ perl_d_statblks="undef"
263 $ perl_stdio_ptr="((*fp)->_ptr)"
264 $ perl_stdio_cnt="((*fp)->_cnt)"
265 $ perl_stdio_base="((*fp)->_base)"
266 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
267 $ perl_d_strctcpy="define"
268 $ perl_d_strerror="define"
269 $ perl_d_syserrlst="undef"
270 $ perl_d_strerrm="strerror((e),vaxc$errno)"
271 $ perl_d_symlink="undef"
272 $ perl_d_syscall="undef"
273 $ perl_d_system="define"
274 $ perl_timetype="time_t"
275 $ perl_d_vfork="define"
276 $ perl_signal_t="void"
277 $ perl_d_volatile="define"
278 $ perl_d_vprintf="define"
279 $ perl_d_charvspr="undef"
280 $ perl_d_waitpid="define"
281 $ perl_i_dirent="undef"
282 $ perl_d_dirnamlen="define"
283 $ perl_direntrytype="struct dirent"
284 $ perl_i_fcntl="undef"
286 $ perl_i_limits="define"
287 $ perl_i_memory="undef"
288 $ perl_i_ndbm="undef"
289 $ perl_i_stdarg="define"
291 $ perl_d_pwquota="undef"
292 $ perl_d_pwage="undef"
293 $ perl_d_pwchange="undef"
294 $ perl_d_pwclass="undef"
295 $ perl_d_pwexpire="undef"
296 $ perl_d_pwcomment="define"
297 $ perl_i_stddef="define"
298 $ perl_i_stdlib="define"
299 $ perl_i_string="define"
300 $ perl_i_sysdir="undef"
301 $ perl_i_sysfile="undef"
302 $ perl_i_sysioctl="undef"
303 $ perl_i_sysndir="undef"
304 $ perl_i_sysresrc="undef"
305 $ perl_i_sysselct="undef"
307 $ perl_i_rpcsvcdbm="undef"
308 $ perl_i_sfio="undef"
309 $ perl_i_sysstat="define"
310 $ perl_i_systimes="undef"
311 $ perl_i_systypes="define"
312 $ perl_i_sysun="undef"
313 $ perl_i_syswait="undef"
314 $ perl_i_termio="undef"
315 $ perl_i_sgtty="undef"
316 $ perl_i_termios="undef"
317 $ perl_i_time="define"
318 $ perl_i_systime="undef"
319 $ perl_i_systimek="undef"
320 $! perl_i_unistd="undef"
321 $ perl_i_utime="undef"
322 $ perl_i_varargs="undef"
323 $ perl_i_vfork="undef"
324 $ perl_prototype="define"
326 $ perl_stdchar="char"
327 $ perl_d_unlink_all_versions="undef"
328 $ perl_full_sed="_NLA0:"
329 $ perl_bin="/''perl_prefix'/000000"
330 $ perl_binexp="''perl_prefix':[000000]"
331 $ perl_d_alarm="define"
332 $ perl_d_casti32="define"
333 $ perl_d_chown="define"
334 $ perl_d_chroot="undef"
335 $ perl_d_cuserid="define"
336 $ perl_d_dbl_dig="define"
337 $ perl_d_difftime="define"
338 $ perl_d_fork="undef"
339 $ perl_d_getlogin="define"
340 $ perl_d_getppid="undef"
341 $ perl_d_nice="define"
342 $ perl_d_pause="define"
343 $ perl_d_pipe="define"
344 $ perl_d_readlink="undef"
345 $ perl_d_setlinebuf="undef"
346 $ perl_d_strchr="define"
347 $ perl_d_strtod="define"
348 $ perl_d_strtol="define"
349 $ perl_d_strtoul="define"
350 $ perl_d_tcgetpgrp="undef"
351 $ perl_d_tcsetpgrp="undef"
352 $ perl_d_times="define"
353 $ perl_d_tzname="undef"
354 $ perl_d_umask="define"
355 $ perl_fpostype="fpos_t"
356 $ perl_i_dlfcn="undef"
357 $ perl_i_float="define"
358 $ perl_i_math="define"
359 $ perl_lseektype="int"
360 $ perl_i_values="undef"
361 $ perl_malloctype="void *"
362 $ perl_freetype="void"
363 $ if "''mymalloc'".eqs."Y"
365 $ perl_d_mymalloc="define"
367 $ perl_d_mymalloc="undef"
370 $ perl_modetype="unsigned int"
371 $ perl_ssizetype="int"
372 $ perl_o_nonblock=" "
375 $ perl_d_eofnblk="undef"
376 $ perl_d_oldarchlib="define"
377 $ perl_privlibexp="''perl_prefix':[lib]"
378 $ perl_privlib="''perl_prefix':[lib]"
379 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
380 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
381 $ perl_sizetype="size_t"
382 $ perl_i_sysparam="undef"
383 $ perl_d_void_closedir="define"
384 $ perl_d_dlerror="undef"
385 $ perl_d_dlsymun="undef"
386 $ perl_d_suidsafe="undef"
387 $ perl_d_dosuid="undef"
388 $ perl_d_inetaton="undef"
389 $ perl_d_isascii="define"
390 $ perl_d_mkfifo="undef"
391 $ perl_d_safebcpy="undef"
392 $ perl_d_safemcpy="define"
393 $ perl_d_sanemcmp="define"
394 $ perl_d_setpgrp="undef"
395 $ perl_d_bsdsetpgrp="undef"
396 $ perl_d_bsdpgrp="undef"
397 $ perl_d_setpgid="undef"
398 $ perl_d_setpgrp2="undef"
399 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
400 $ perl_d_getpgid="undef"
401 $ perl_d_getpgrp="undef"
402 $ perl_d_bsdgetpgrp="undef"
403 $ perl_d_getpgrp2="undef"
404 $ perl_d_sfio="undef"
405 $ perl_usedl="define"
406 $ perl_startperl="""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ + ++$status != 0 and $exit = $status = undef;"""
407 $ perl_db_hashtype=" "
408 $ perl_db_prefixtype=" "
409 $ perl_useperlio="undef"
410 $ perl_defvoidused="15"
411 $ perl_voidflags="15"
412 $ perl_d_eunice="undef"
413 $ perl_d_pwgecos="define"
414 $ IF ("''Use_Threads'".eqs."T").and.("''VMS_VER'".LES."6.2")
416 $ 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"
420 $ IF ("''Using_Dec_C'".eqs."Yes")
422 $ perl_libc="(DECCRTL)"
426 $ perl_PATCHLEVEL="''patchlevel'"
427 $ perl_SUBVERSION="''subversion'"
431 $! Now some that we build up
433 $ LocalTime = f$time()
434 $ perl_cf_time= f$extract(0, 3, f$cvtime(LocalTime,, "WEEKDAY")) + " " + -
435 f$edit(f$cvtime(LocalTime, "ABSOLUTE", "MONTH"), "LOWERCASE") + -
436 " " + f$cvtime(LocalTime,, "DAY") + " " + f$cvtime(LocalTime,, "TIME") + -
437 " " + f$cvtime(LocalTime,, "YEAR")
438 $ if f$getsyi("HW_MODEL").ge.1024
440 $ perl_arch="VMS_AXP"
441 $ perl_archname="VMS_AXP"
442 $ perl_alignbytes="8"
444 $ perl_arch="VMS_VAX"
445 $ perl_archname="VMS_VAX"
446 $ perl_alignbytes="8"
448 $ if ("''Use_Threads'".eqs."T")
450 $ perl_arch = "''perl_arch'-thread"
451 $ perl_archname = "''perl_archname'-thread"
452 $ perl_d_old_pthread_create_joinable = "undef"
453 $ perl_old_pthread_create_joinable = " "
455 $ perl_d_old_pthread_create_joinable = "undef"
456 $ perl_old_pthread_create_joinable = " "
458 $ perl_osvers=f$edit(osvers, "TRIM")
459 $ if (perl_subversion + 0).eq.0
461 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL
463 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion
466 $! Some that we need to invoke the compiler for
467 $ OS := "open/write SOURCECHAN []temp.c"
468 $ WS := "write SOURCECHAN"
469 $ CS := "close SOURCECHAN"
470 $ DS := "delete/nolog []temp.*;*"
472 $ if ("''using_vax_c'".eqs."Yes").or.("''using_gnu_c'".eqs."Yes")
474 $ open/write OPTCHAN []temp.opt
475 $ IF ("''using_gnu_c'".eqs."Yes")
477 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
479 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
484 $! Check for __STDC__
488 $ WS "#include <stdlib.h>
490 $ WS "#include <stdio.h>
493 $ WS "#ifdef __STDC__
494 $ WS "printf(""42\n"");
496 $ WS "printf(""1\n"");
501 $ DEFINE SYS$ERROR _NLA0:
502 $ DEFINE SYS$OUTPUT _NLA0:
503 $ ON ERROR THEN CONTINUE
504 $ ON WARNING THEN CONTINUE
506 $ If (Needs_Opt.eqs."Yes")
508 $ link temp.obj,temp.opt/opt
512 $ DEASSIGN SYS$OUTPUT
514 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
515 $ DEFINE SYS$ERROR TEMPOUT
516 $ DEFINE SYS$OUTPUT TEMPOUT
519 $ DEASSIGN SYS$OUTPUT
521 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
525 $ perl_cpp_stuff=line
526 $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
528 $! Check for double size
532 $ WS "#include <stdlib.h>
534 $ WS "#include <stdio.h>
538 $ WS "foo = sizeof(double);
539 $ WS "printf(""%d\n"", foo);
543 $ DEFINE SYS$ERROR _NLA0:
544 $ DEFINE SYS$OUTPUT _NLA0:
545 $ ON ERROR THEN CONTINUE
546 $ ON WARNING THEN CONTINUE
548 $ If (Needs_Opt.eqs."Yes")
550 $ link temp.obj,temp.opt/opt
555 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
556 $ DEASSIGN SYS$OUTPUT
558 $ DEFINE SYS$ERROR TEMPOUT
559 $ DEFINE SYS$OUTPUT TEMPOUT
562 $ DEASSIGN SYS$OUTPUT
564 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
568 $ perl_doublesize=line
569 $ WRITE_RESULT "doublesize is ''perl_doublesize'"
571 $! Check for long double size
575 $ WS "#include <stdlib.h>
577 $ WS "#include <stdio.h>
580 $ WS "printf(""%d\n"", sizeof(long double));
584 $ DEFINE SYS$ERROR _NLA0:
585 $ DEFINE SYS$OUTPUT _NLA0:
586 $ ON ERROR THEN CONTINUE
587 $ ON WARNING THEN CONTINUE
589 $ teststatus = f$extract(9,1,$status)
590 $ if (teststatus.nes."1")
592 $ perl_longdblsize="0"
593 $ perl_d_longdbl="undef"
595 $ ON ERROR THEN CONTINUE
596 $ ON WARNING THEN CONTINUE
597 $ If (Needs_Opt.eqs."Yes")
599 $ link temp.obj,temp.opt/opt
603 $ teststatus = f$extract(9,1,$status)
604 $ DEASSIGN SYS$OUTPUT
606 $ if (teststatus.nes."1")
608 $ perl_longdblsize="0"
609 $ perl_d_longdbl="undef"
611 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
612 $ DEFINE SYS$ERROR TEMPOUT
613 $ DEFINE SYS$OUTPUT TEMPOUT
616 $ DEASSIGN SYS$OUTPUT
618 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
622 $ perl_longdblsize=line
623 $ perl_d_longdbl="define"
626 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
627 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
629 $! Check for long long existance and size
633 $ WS "#include <stdlib.h>
635 $ WS "#include <stdio.h>
638 $ WS "printf(""%d\n"", sizeof(long long));
642 $ DEFINE SYS$ERROR _NLA0:
643 $ DEFINE SYS$OUTPUT _NLA0:
644 $ on error then continue
645 $ on warning then continue
647 $ If (Needs_Opt.eqs."Yes")
649 $ link temp.obj,temp.opt/opt
653 $ teststatus = f$extract(9,1,$status)
654 $ DEASSIGN SYS$OUTPUT
656 $ if (teststatus.nes."1")
658 $ perl_longlongsize="0"
659 $ perl_d_longlong="undef"
661 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
662 $ DEFINE SYS$ERROR TEMPOUT
663 $ DEFINE SYS$OUTPUT TEMPOUT
666 $ DEASSIGN SYS$OUTPUT
668 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
672 $ perl_longlongsize=line
673 $ perl_d_longlong="define"
675 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
676 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
678 $! Check for int size
682 $ WS "#include <stdlib.h>
684 $ WS "#include <stdio.h>
687 $ WS "printf(""%d\n"", sizeof(int));
691 $ DEFINE SYS$ERROR _NLA0:
692 $ DEFINE SYS$OUTPUT _NLA0:
693 $ on error then continue
694 $ on warning then continue
696 $ If (Needs_Opt.eqs."Yes")
698 $ link temp.obj,temp.opt/opt
702 $ If (Needs_Opt.eqs."Yes")
704 $ link temp.obj,temp.opt/opt
708 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
709 $ DEASSIGN SYS$OUTPUT
711 $ DEFINE SYS$ERROR TEMPOUT
712 $ DEFINE SYS$OUTPUT TEMPOUT
715 $ DEASSIGN SYS$OUTPUT
717 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
722 $ WRITE_RESULT "intsize is ''perl_intsize'"
724 $! Check for short size
728 $ WS "#include <stdlib.h>
730 $ WS "#include <stdio.h>
733 $ WS "printf(""%d\n"", sizeof(short));
737 $ DEFINE SYS$ERROR _NLA0:
738 $ DEFINE SYS$OUTPUT _NLA0:
739 $ on error then continue
740 $ on warning then continue
742 $ If (Needs_Opt.eqs."Yes")
744 $ link temp.obj,temp.opt/opt
748 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
749 $ DEASSIGN SYS$OUTPUT
751 $ DEFINE SYS$ERROR TEMPOUT
752 $ DEFINE SYS$OUTPUT TEMPOUT
755 $ DEASSIGN SYS$OUTPUT
757 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
761 $ perl_shortsize=line
762 $ WRITE_RESULT "shortsize is ''perl_shortsize'"
764 $! Check for long size
768 $ WS "#include <stdlib.h>
770 $ WS "#include <stdio.h>
774 $ WS "foo = sizeof(long);
775 $ WS "printf(""%d\n"", foo);
779 $ DEFINE SYS$ERROR _NLA0:
780 $ DEFINE SYS$OUTPUT _NLA0:
781 $ on error then continue
782 $ on warning then continue
784 $ If (Needs_Opt.eqs."Yes")
786 $ link temp.obj,temp.opt/opt
790 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
791 $ DEASSIGN SYS$OUTPUT
793 $ DEFINE SYS$ERROR TEMPOUT
794 $ DEFINE SYS$OUTPUT TEMPOUT
797 $ DEASSIGN SYS$OUTPUT
799 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
804 $ WRITE_RESULT "longsize is ''perl_longsize'"
806 $! Check the prototype for getgid
810 $ WS "#include <stdlib.h>
812 $ WS "#include <stdio.h>
813 $ WS "#include <types.h>
814 $ WS "#include <unistd.h>
821 $ DEFINE SYS$ERROR _NLA0:
822 $ DEFINE SYS$OUTPUT _NLA0:
823 $ on error then continue
824 $ on warning then continue
826 $ teststatus = f$extract(9,1,$status)
827 $ DEASSIGN SYS$OUTPUT
829 $ if (teststatus.nes."1")
831 $! Okay, gid_t failed. Must be unsigned int
832 $ perl_gidtype = "unsigned int"
834 $ perl_gidtype = "gid_t"
836 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
838 $! Check to see if we've got dev_t
842 $ WS "#include <stdlib.h>
844 $ WS "#include <stdio.h>
845 $ WS "#include <types.h>
846 $ WS "#include <unistd.h>
853 $ DEFINE SYS$ERROR _NLA0:
854 $ DEFINE SYS$OUTPUT _NLA0:
855 $ on error then continue
856 $ on warning then continue
858 $ teststatus = f$extract(9,1,$status)
859 $ DEASSIGN SYS$OUTPUT
861 $ if (teststatus.nes."1")
863 $! Okay, dev_t failed. Must be unsigned int
864 $ perl_devtype = "unsigned int"
866 $ perl_devtype = "dev_t"
868 $ WRITE_RESULT "Dev_t is ''perl_devtype'"
870 $! Check to see if we've got unistd.h (which we ought to, but you never know)
874 $ WS "#include <stdlib.h>
876 $ WS "#include <unistd.h>
882 $ DEFINE SYS$ERROR _NLA0:
883 $ DEFINE SYS$OUTPUT _NLA0:
884 $ on error then continue
885 $ on warning then continue
887 $ teststatus = f$extract(9,1,$status)
888 $ DEASSIGN SYS$OUTPUT
890 $ if (teststatus.nes."1")
892 $! Okay, failed. Must not have it
893 $ perl_i_unistd = "undef"
895 $ perl_i_unistd = "define"
898 $ WRITE_RESULT "i_unistd is ''perl_i_unistd'"
900 $! Check the prototype for select
902 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
906 $ WS "#include <stdlib.h>
908 $ WS "#include <stdio.h>
909 $ WS "#include <types.h>
910 $ WS "#include <unistd.h>
911 $ if ("''Has_Socketshr'".eqs."T")
913 $ WS "#include <socketshr.h>"
915 $ WS "#include <time.h>
916 $ WS "#include <socket.h>
923 $ WS "bar = select(2, foo, foo, foo, NULL);
927 $ DEFINE SYS$ERROR _NLA0:
928 $ DEFINE SYS$OUTPUT _NLA0:
929 $ on error then continue
930 $ on warning then continue
932 $ teststatus = f$extract(9,1,$status)
933 $ DEASSIGN SYS$OUTPUT
935 $ if (teststatus.nes."1")
937 $! Okay, fd_set failed. Must be an int
938 $ perl_selecttype = "int *"
940 $ perl_selecttype="fd_set *"
943 $ ! No sockets, so stick in an int *
944 $ perl_selecttype = "int *"
946 $ WRITE_RESULT "selectype is ''perl_selecttype'"
948 $! Check to see if fd_set exists
952 $ WS "#include <stdlib.h>
954 $ WS "#include <stdio.h>
955 $ WS "#include <types.h>
956 $ WS "#include <unistd.h>
957 $ if ("''Has_Socketshr'".eqs."T")
959 $ WS "#include <socketshr.h>"
961 $ IF ("''Has_Dec_C_Sockets'".eqs."T")
963 $ WS "#include <time.h>
964 $ WS "#include <socket.h>
973 $ DEFINE SYS$ERROR _NLA0:
974 $ DEFINE SYS$OUTPUT _NLA0:
975 $ on error then continue
976 $ on warning then continue
978 $ teststatus = f$extract(9,1,$status)
979 $ DEASSIGN SYS$OUTPUT
981 $ if (teststatus.nes."1")
983 $! Okay, fd_set failed. Must not exist
984 $ perl_d_fd_set = "undef"
986 $ perl_d_fd_set="define"
988 $ WRITE_RESULT "d_fd_set is ''perl_d_fd_set'"
990 $! Check for inttypes.h
994 $ WS "#include <stdlib.h>
996 $ WS "#include <stdio.h>
997 $ WS "#include <unistd.h>
998 $ WS "#include <inttypes.h>
1004 $ DEFINE SYS$ERROR _NLA0:
1005 $ DEFINE SYS$OUTPUT _NLA0:
1006 $ on error then continue
1007 $ on warning then continue
1009 $ savedstatus = $status
1010 $ teststatus = f$extract(9,1,savedstatus)
1011 $ if (teststatus.nes."1")
1013 $ perl_i_inttypes="undef"
1014 $ DEASSIGN SYS$OUTPUT
1015 $ DEASSIGN SYS$ERROR
1017 $ If (Needs_Opt.eqs."Yes")
1019 $ link temp.obj,temp.opt/opt
1023 $ savedstatus = $status
1024 $ teststatus = f$extract(9,1,savedstatus)
1025 $ DEASSIGN SYS$OUTPUT
1026 $ DEASSIGN SYS$ERROR
1027 $ if (teststatus.nes."1")
1029 $ perl_i_inttypes="undef"
1031 $ perl_i_inttypes="define"
1034 $ WRITE_RESULT "i_inttypes is ''perl_i_inttypes'"
1036 $! Check to see if int64_t exists
1040 $ WS "#include <stdlib.h>
1042 $ WS "#include <stdio.h>
1043 $ WS "#include <types.h>
1044 $ WS "#''perl_i_inttypes IIH
1046 $ WS "#include <inttypes.h>
1048 $ WS "#include <unistd.h>
1055 $ DEFINE SYS$ERROR _NLA0:
1056 $ DEFINE SYS$OUTPUT _NLA0:
1057 $ on error then continue
1058 $ on warning then continue
1060 $ teststatus = f$extract(9,1,$status)
1061 $ DEASSIGN SYS$OUTPUT
1062 $ DEASSIGN SYS$ERROR
1063 $ if (teststatus.nes."1")
1065 $! Okay, int64_t failed. Must not exist
1066 $ perl_d_int64t = "undef"
1068 $ perl_d_int64t="define"
1070 $ WRITE_RESULT "d_int64t is ''perl_d_int64t'"
1072 $! Check to see if off64_t exists
1076 $ WS "#include <stdlib.h>
1078 $ WS "#include <stdio.h>
1079 $ WS "#include <types.h>
1080 $ WS "#''perl_i_inttypes IIH
1082 $ WS "#include <inttypes.h>
1084 $ WS "#include <unistd.h>
1091 $ DEFINE SYS$ERROR _NLA0:
1092 $ DEFINE SYS$OUTPUT _NLA0:
1093 $ on error then continue
1094 $ on warning then continue
1096 $ teststatus = f$extract(9,1,$status)
1097 $ DEASSIGN SYS$OUTPUT
1098 $ DEASSIGN SYS$ERROR
1099 $ if (teststatus.nes."1")
1101 $! Okay, off64_t failed. Must not exist
1102 $ perl_d_off64_t = "undef"
1104 $ perl_d_off64_t="define"
1106 $ WRITE_RESULT "d_off64_t is ''perl_d_off64_t'"
1108 $! Check to see if gethostname exists
1110 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1114 $ WS "#include <stdlib.h>
1116 $ WS "#include <stdio.h>
1117 $ WS "#include <types.h>
1118 $ WS "#include <unistd.h>
1119 $ if ("''Has_Socketshr'".eqs."T")
1121 $ WS "#include <socketshr.h>"
1123 $ WS "#include <time.h>
1124 $ WS "#include <socket.h>
1128 $ WS "char name[100];
1131 $ WS "baz = gethostname(name, bar);
1135 $ DEFINE SYS$ERROR _NLA0:
1136 $ DEFINE SYS$OUTPUT _NLA0:
1137 $ on error then continue
1138 $ on warning then continue
1140 $ teststatus = f$extract(9,1,$status)
1141 $ DEASSIGN SYS$OUTPUT
1142 $ DEASSIGN SYS$ERROR
1143 $ if (teststatus.nes."1")
1145 $! Okay, compile failed. Must not have it
1146 $ perl_dgethname = "undef"
1148 $ If (Needs_Opt.eqs."Yes")
1150 $ link temp.obj,temp.opt/opt
1154 $ savedstatus = $status
1155 $ teststatus = f$extract(9,1,savedstatus)
1156 $ if (teststatus.nes."1")
1158 $ perl_d_gethname="undef"
1160 $ perl_d_gethname="define"
1164 $ ! No sockets, so no gethname
1165 $ perl_d_gethname = "undef"
1167 $ WRITE_RESULT "d_gethname is ''perl_d_gethname'"
1169 $! Check for sys/file.h
1173 $ WS "#include <stdlib.h>
1175 $ WS "#include <stdio.h>
1176 $ WS "#include <unistd.h>
1177 $ WS "#include <sys/file.h>
1183 $ DEFINE SYS$ERROR _NLA0:
1184 $ DEFINE SYS$OUTPUT _NLA0:
1185 $ on error then continue
1186 $ on warning then continue
1188 $ savedstatus = $status
1189 $ teststatus = f$extract(9,1,savedstatus)
1190 $ if (teststatus.nes."1")
1192 $ perl_i_sysfile="undef"
1193 $ DEASSIGN SYS$OUTPUT
1194 $ DEASSIGN SYS$ERROR
1196 $ If (Needs_Opt.eqs."Yes")
1198 $ link temp.obj,temp.opt/opt
1202 $ savedstatus = $status
1203 $ teststatus = f$extract(9,1,savedstatus)
1204 $ DEASSIGN SYS$OUTPUT
1205 $ DEASSIGN SYS$ERROR
1206 $ if (teststatus.nes."1")
1208 $ perl_i_sysfile="undef"
1210 $ perl_i_sysfile="define"
1213 $ WRITE_RESULT "i_sysfile is ''perl_i_sysfile'"
1219 $ WS "#include <stdlib.h>
1221 $ WS "#include <stdio.h>
1222 $ WS "#include <unistd.h>
1223 $ WS "#include <poll.h>
1229 $ DEFINE SYS$ERROR _NLA0:
1230 $ DEFINE SYS$OUTPUT _NLA0:
1231 $ on error then continue
1232 $ on warning then continue
1234 $ savedstatus = $status
1235 $ teststatus = f$extract(9,1,savedstatus)
1236 $ if (teststatus.nes."1")
1238 $ perl_i_poll="undef"
1239 $ DEASSIGN SYS$OUTPUT
1240 $ DEASSIGN SYS$ERROR
1242 $ If (Needs_Opt.eqs."Yes")
1244 $ link temp.obj,temp.opt/opt
1248 $ savedstatus = $status
1249 $ teststatus = f$extract(9,1,savedstatus)
1250 $ DEASSIGN SYS$OUTPUT
1251 $ DEASSIGN SYS$ERROR
1252 $ if (teststatus.nes."1")
1254 $ perl_i_poll="undef"
1256 $ perl_i_poll="define"
1259 $ WRITE_RESULT "i_poll is ''perl_i_poll'"
1261 $! Check for sys/uio.h
1265 $ WS "#include <stdlib.h>
1267 $ WS "#include <stdio.h>
1268 $ WS "#include <unistd.h>
1269 $ WS "#include <sys/uio.h>
1275 $ DEFINE SYS$ERROR _NLA0:
1276 $ DEFINE SYS$OUTPUT _NLA0:
1277 $ on error then continue
1278 $ on warning then continue
1280 $ savedstatus = $status
1281 $ teststatus = f$extract(9,1,savedstatus)
1282 $ if (teststatus.nes."1")
1284 $ perl_i_sysuio="undef"
1285 $ DEASSIGN SYS$OUTPUT
1286 $ DEASSIGN SYS$ERROR
1288 $ If (Needs_Opt.eqs."Yes")
1290 $ link temp.obj,temp.opt/opt
1294 $ savedstatus = $status
1295 $ teststatus = f$extract(9,1,savedstatus)
1296 $ DEASSIGN SYS$OUTPUT
1297 $ DEASSIGN SYS$ERROR
1298 $ if (teststatus.nes."1")
1300 $ perl_i_sysuio="undef"
1302 $ perl_i_sysuio="define"
1305 $ WRITE_RESULT "i_sysuio is ''perl_i_sysuio'"
1307 $! Check for sys/access.h
1311 $ WS "#include <stdlib.h>
1313 $ WS "#include <stdio.h>
1314 $ WS "#include <unistd.h>
1315 $ WS "#include <sys/access.h>
1321 $ DEFINE SYS$ERROR _NLA0:
1322 $ DEFINE SYS$OUTPUT _NLA0:
1323 $ on error then continue
1324 $ on warning then continue
1326 $ savedstatus = $status
1327 $ teststatus = f$extract(9,1,savedstatus)
1328 $ if (teststatus.nes."1")
1330 $ perl_i_sysaccess="undef"
1331 $ DEASSIGN SYS$OUTPUT
1332 $ DEASSIGN SYS$ERROR
1334 $ If (Needs_Opt.eqs."Yes")
1336 $ link temp.obj,temp.opt/opt
1340 $ savedstatus = $status
1341 $ teststatus = f$extract(9,1,savedstatus)
1342 $ DEASSIGN SYS$OUTPUT
1343 $ DEASSIGN SYS$ERROR
1344 $ if (teststatus.nes."1")
1346 $ perl_i_sysaccess="undef"
1348 $ perl_i_sysaccess="define"
1351 $ WRITE_RESULT "i_sysaccess is ''perl_i_sysaccess'"
1353 $! Check for sys/security.h
1357 $ WS "#include <stdlib.h>
1359 $ WS "#include <stdio.h>
1360 $ WS "#include <unistd.h>
1361 $ WS "#include <sys/security.h>
1367 $ DEFINE SYS$ERROR _NLA0:
1368 $ DEFINE SYS$OUTPUT _NLA0:
1369 $ on error then continue
1370 $ on warning then continue
1372 $ savedstatus = $status
1373 $ teststatus = f$extract(9,1,savedstatus)
1374 $ if (teststatus.nes."1")
1376 $ perl_i_syssecrt="undef"
1377 $ DEASSIGN SYS$OUTPUT
1378 $ DEASSIGN SYS$ERROR
1380 $ If (Needs_Opt.eqs."Yes")
1382 $ link temp.obj,temp.opt/opt
1386 $ savedstatus = $status
1387 $ teststatus = f$extract(9,1,savedstatus)
1388 $ DEASSIGN SYS$OUTPUT
1389 $ DEASSIGN SYS$ERROR
1390 $ if (teststatus.nes."1")
1392 $ perl_i_syssecrt="undef"
1394 $ perl_i_syssecrt="define"
1397 $ WRITE_RESULT "i_syssecrt is ''perl_i_syssecrt'"
1399 $! Check for fcntl.h
1403 $ WS "#include <stdlib.h>
1405 $ WS "#include <stdio.h>
1406 $ WS "#include <unistd.h>
1407 $ WS "#include <fcntl.h>
1413 $ DEFINE SYS$ERROR _NLA0:
1414 $ DEFINE SYS$OUTPUT _NLA0:
1415 $ on error then continue
1416 $ on warning then continue
1418 $ savedstatus = $status
1419 $ teststatus = f$extract(9,1,savedstatus)
1420 $ if (teststatus.nes."1")
1422 $ perl_i_fcntl="undef"
1423 $ DEASSIGN SYS$OUTPUT
1424 $ DEASSIGN SYS$ERROR
1426 $ If (Needs_Opt.eqs."Yes")
1428 $ link temp.obj,temp.opt/opt
1432 $ savedstatus = $status
1433 $ teststatus = f$extract(9,1,savedstatus)
1434 $ DEASSIGN SYS$OUTPUT
1435 $ DEASSIGN SYS$ERROR
1436 $ if (teststatus.nes."1")
1438 $ perl_i_fcntl="undef"
1440 $ perl_i_fcntl="define"
1443 $ WRITE_RESULT "i_fcntl is ''perl_i_fcntl'"
1449 $ WS "#include <stdlib.h>
1451 $ WS "#include <stdio.h>
1452 $ WS "#include <unistd.h>
1453 $ WS "#include <fcntl.h>
1460 $ DEFINE SYS$ERROR _NLA0:
1461 $ DEFINE SYS$OUTPUT _NLA0:
1462 $ on error then continue
1463 $ on warning then continue
1465 $ savedstatus = $status
1466 $ teststatus = f$extract(9,1,savedstatus)
1467 $ if (teststatus.nes."1")
1469 $ perl_d_fcntl="undef"
1470 $ DEASSIGN SYS$OUTPUT
1471 $ DEASSIGN SYS$ERROR
1473 $ If (Needs_Opt.eqs."Yes")
1475 $ link temp.obj,temp.opt/opt
1479 $ savedstatus = $status
1480 $ teststatus = f$extract(9,1,savedstatus)
1481 $ DEASSIGN SYS$OUTPUT
1482 $ DEASSIGN SYS$ERROR
1483 $ if (teststatus.nes."1")
1485 $ perl_d_fcntl="undef"
1487 $ perl_d_fcntl="define"
1490 $ WRITE_RESULT "d_fcntl is ''perl_d_fcntl'"
1496 $ WS "#include <stdlib.h>
1498 $ WS "#include <string.h>
1502 $ WS "place = memchr(""foo"", 47, 3)
1506 $ DEFINE SYS$ERROR _NLA0:
1507 $ DEFINE SYS$OUTPUT _NLA0:
1508 $ on error then continue
1509 $ on warning then continue
1511 $ savedstatus = $status
1512 $ teststatus = f$extract(9,1,savedstatus)
1513 $ if (teststatus.nes."1")
1515 $ perl_d_memchr="undef"
1516 $ DEASSIGN SYS$OUTPUT
1517 $ DEASSIGN SYS$ERROR
1519 $ If (Needs_Opt.eqs."Yes")
1521 $ link temp.obj,temp.opt/opt
1525 $ savedstatus = $status
1526 $ teststatus = f$extract(9,1,savedstatus)
1527 $ DEASSIGN SYS$OUTPUT
1528 $ DEASSIGN SYS$ERROR
1529 $ if (teststatus.nes."1")
1531 $ perl_d_memchr="undef"
1533 $ perl_d_memchr="define"
1536 $ WRITE_RESULT "d_memchr is ''perl_d_memchr'"
1542 $ WS "#include <stdlib.h>
1544 $ WS "#include <stdio.h>
1545 $ WS "#include <unistd.h>
1548 $ WS "access("foo", F_OK);
1552 $ DEFINE SYS$ERROR _NLA0:
1553 $ DEFINE SYS$OUTPUT _NLA0:
1554 $ on error then continue
1555 $ on warning then continue
1557 $ savedstatus = $status
1558 $ teststatus = f$extract(9,1,savedstatus)
1559 $ if (teststatus.nes."1")
1561 $ perl_d_access="undef"
1562 $ DEASSIGN SYS$OUTPUT
1563 $ DEASSIGN SYS$ERROR
1565 $ If (Needs_Opt.eqs."Yes")
1567 $ link temp.obj,temp.opt/opt
1571 $ savedstatus = $status
1572 $ teststatus = f$extract(9,1,savedstatus)
1573 $ DEASSIGN SYS$OUTPUT
1574 $ DEASSIGN SYS$ERROR
1575 $ if (teststatus.nes."1")
1577 $ perl_d_access="undef"
1579 $ perl_d_access="define"
1582 $ WRITE_RESULT "d_access is ''perl_d_access'"
1588 $ WS "#include <stdlib.h>
1590 $ WS "#include <stdio.h>
1591 $ WS "#include <strings.h>
1595 $ WS "bzero(foo, 10);
1599 $ DEFINE SYS$ERROR _NLA0:
1600 $ DEFINE SYS$OUTPUT _NLA0:
1601 $ on error then continue
1602 $ on warning then continue
1604 $ savedstatus = $status
1605 $ teststatus = f$extract(9,1,savedstatus)
1606 $ if (teststatus.nes."1")
1608 $ perl_d_bzero="undef"
1609 $ DEASSIGN SYS$OUTPUT
1610 $ DEASSIGN SYS$ERROR
1612 $ If (Needs_Opt.eqs."Yes")
1614 $ link temp.obj,temp.opt/opt
1618 $ savedstatus = $status
1619 $ teststatus = f$extract(9,1,savedstatus)
1620 $ DEASSIGN SYS$OUTPUT
1621 $ DEASSIGN SYS$ERROR
1622 $ if (teststatus.nes."1")
1624 $ perl_d_bzero="undef"
1626 $ perl_d_bzero="define"
1629 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
1635 $ WS "#include <stdlib.h>
1637 $ WS "#include <stdio.h>
1638 $ WS "#include <strings.h>
1641 $ WS "char foo[10], bar[10];
1642 $ WS "bcopy(""foo"", bar, 3);
1646 $ DEFINE SYS$ERROR _NLA0:
1647 $ DEFINE SYS$OUTPUT _NLA0:
1648 $ on error then continue
1649 $ on warning then continue
1651 $ savedstatus = $status
1652 $ teststatus = f$extract(9,1,savedstatus)
1653 $ if (teststatus.nes."1")
1655 $ perl_d_bcopy="undef"
1656 $ DEASSIGN SYS$OUTPUT
1657 $ DEASSIGN SYS$ERROR
1659 $ If (Needs_Opt.eqs."Yes")
1661 $ link temp.obj,temp.opt/opt
1665 $ savedstatus = $status
1666 $ teststatus = f$extract(9,1,savedstatus)
1667 $ DEASSIGN SYS$OUTPUT
1668 $ DEASSIGN SYS$ERROR
1669 $ if (teststatus.nes."1")
1671 $ perl_d_bcopy="undef"
1673 $ perl_d_bcopy="define"
1676 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
1678 $! Check for mkstemp
1682 $ WS "#include <stdlib.h>
1684 $ WS "#include <stdio.h>
1687 $ WS "mkstemp(""foo"");
1691 $ DEFINE SYS$ERROR _NLA0:
1692 $ DEFINE SYS$OUTPUT _NLA0:
1693 $ on error then continue
1694 $ on warning then continue
1696 $ If (Needs_Opt.eqs."Yes")
1698 $ link temp.obj,temp.opt/opt
1702 $ savedstatus = $status
1703 $ teststatus = f$extract(9,1,savedstatus)
1704 $ DEASSIGN SYS$OUTPUT
1705 $ DEASSIGN SYS$ERROR
1706 $ if (teststatus.nes."1")
1708 $ perl_d_mkstemp="undef"
1710 $ perl_d_mkstemp="define"
1712 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
1714 $! Check for setvbuf
1718 $ WS "#include <stdlib.h>
1720 $ WS "#include <stdio.h>
1724 $ WS "char Buffer[99];
1725 $ WS "foo = fopen(""foo"", ""r"");
1726 $ WS "setvbuf(foo, Buffer, 0, 0);
1730 $ DEFINE SYS$ERROR _NLA0:
1731 $ DEFINE SYS$OUTPUT _NLA0:
1732 $ on error then continue
1733 $ on warning then continue
1735 $ If (Needs_Opt.eqs."Yes")
1737 $ link temp.obj,temp.opt/opt
1741 $ teststatus = f$extract(9,1,$status)
1742 $ DEASSIGN SYS$OUTPUT
1743 $ DEASSIGN SYS$ERROR
1744 $ if (teststatus.nes."1")
1746 $ perl_d_setvbuf="undef"
1748 $ perl_d_setvbuf="define"
1750 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
1756 $ WS "#include <stdlib.h>
1758 $ WS "#include <stdio.h>
1761 $ WS "setenv(""FOO"", ""BAR"", 0);
1765 $ DEFINE SYS$ERROR _NLA0:
1766 $ DEFINE SYS$OUTPUT _NLA0:
1767 $ on error then continue
1768 $ on warning then continue
1770 $ If (Needs_Opt.eqs."Yes")
1772 $ link temp,temp/opt
1776 $ teststatus = f$extract(9,1,$status)
1777 $ DEASSIGN SYS$OUTPUT
1778 $ DEASSIGN SYS$ERROR
1779 $ if (teststatus.nes."1")
1781 $ perl_d_setenv="undef"
1783 $ perl_d_setenv="define"
1785 $ WRITE_RESULT "d_setenv is ''perl_d_setenv'"
1787 $! Check for <netinet/in.h>
1789 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1793 $ WS "#include <stdlib.h>
1795 $ WS "#include <stdio.h>
1796 $ if ("''Has_Socketshr'".eqs."T")
1798 $ WS "#include <socketshr.h>"
1800 $ WS "#include <netdb.h>
1802 $ WS "#include <netinet/in.h>"
1808 $ DEFINE SYS$ERROR _NLA0:
1809 $ DEFINE SYS$OUTPUT _NLA0:
1810 $ on error then continue
1811 $ on warning then continue
1813 $ If (Needs_Opt.eqs."Yes")
1815 $ link temp.obj,temp.opt/opt
1819 $ teststatus = f$extract(9,1,$status)
1820 $ DEASSIGN SYS$OUTPUT
1821 $ DEASSIGN SYS$ERROR
1822 $ if (teststatus.nes."1")
1824 $ perl_i_niin="undef"
1826 $ perl_i_niin="define"
1829 $ perl_i_niin="undef"
1831 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
1833 $! Check for <netinet/tcp.h>
1835 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1839 $ WS "#include <stdlib.h>
1841 $ WS "#include <stdio.h>
1842 $ if ("''Has_Socketshr'".eqs."T")
1844 $ WS "#include <socketshr.h>"
1846 $ WS "#include <netdb.h>
1848 $ WS "#include <netinet/tcp.h>"
1854 $ DEFINE SYS$ERROR _NLA0:
1855 $ DEFINE SYS$OUTPUT _NLA0:
1856 $ on error then continue
1857 $ on warning then continue
1859 $ If (Needs_Opt.eqs."Yes")
1861 $ link temp.obj,temp.opt/opt
1865 $ teststatus = f$extract(9,1,$status)
1866 $ DEASSIGN SYS$OUTPUT
1867 $ DEASSIGN SYS$ERROR
1868 $ if (teststatus.nes."1")
1870 $ perl_i_netinettcp="undef"
1872 $ perl_i_netinettcp="define"
1875 $ perl_i_netinettcp="undef"
1877 $ WRITE_RESULT "i_netinettcp is ''perl_i_netinettcp'"
1879 $! Check for endhostent
1881 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1885 $ WS "#include <stdlib.h>
1887 $ WS "#include <stdio.h>
1888 $ if ("''Has_Socketshr'".eqs."T")
1890 $ WS "#include <socketshr.h>"
1892 $ WS "#include <netdb.h>
1900 $ DEFINE SYS$ERROR _NLA0:
1901 $ DEFINE SYS$OUTPUT _NLA0:
1902 $ on error then continue
1903 $ on warning then continue
1905 $ If (Needs_Opt.eqs."Yes")
1907 $ link temp.obj,temp.opt/opt
1911 $ teststatus = f$extract(9,1,$status)
1912 $ DEASSIGN SYS$OUTPUT
1913 $ DEASSIGN SYS$ERROR
1914 $ if (teststatus.nes."1")
1916 $ perl_d_endhent="undef"
1918 $ perl_d_endhent="define"
1921 $ perl_d_endhent="undef"
1923 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
1925 $! Check for endnetent
1927 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1931 $ WS "#include <stdlib.h>
1933 $ WS "#include <stdio.h>
1934 $ if ("''Has_Socketshr'".eqs."T")
1936 $ WS "#include <socketshr.h>"
1938 $ WS "#include <netdb.h>
1946 $ DEFINE SYS$ERROR _NLA0:
1947 $ DEFINE SYS$OUTPUT _NLA0:
1948 $ on error then continue
1949 $ on warning then continue
1951 $ If (Needs_Opt.eqs."Yes")
1953 $ link temp.obj,temp.opt/opt
1957 $ teststatus = f$extract(9,1,$status)
1958 $ DEASSIGN SYS$OUTPUT
1959 $ DEASSIGN SYS$ERROR
1960 $ if (teststatus.nes."1")
1962 $ perl_d_endnent="undef"
1964 $ perl_d_endnent="define"
1967 $ perl_d_endnent="undef"
1969 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
1971 $! Check for endprotoent
1973 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1977 $ WS "#include <stdlib.h>
1979 $ WS "#include <stdio.h>
1980 $ if ("''Has_Socketshr'".eqs."T")
1982 $ WS "#include <socketshr.h>"
1984 $ WS "#include <netdb.h>
1988 $ WS "endprotoent();
1992 $ DEFINE SYS$ERROR _NLA0:
1993 $ DEFINE SYS$OUTPUT _NLA0:
1994 $ on error then continue
1995 $ on warning then continue
1997 $ If (Needs_Opt.eqs."Yes")
1999 $ link temp.obj,temp.opt/opt
2003 $ teststatus = f$extract(9,1,$status)
2004 $ DEASSIGN SYS$OUTPUT
2005 $ DEASSIGN SYS$ERROR
2006 $ if (teststatus.nes."1")
2008 $ perl_d_endpent="undef"
2010 $ perl_d_endpent="define"
2013 $ perl_d_endpent="undef"
2015 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
2017 $! Check for endservent
2019 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2023 $ WS "#include <stdlib.h>
2025 $ WS "#include <stdio.h>
2026 $ if ("''Has_Socketshr'".eqs."T")
2028 $ WS "#include <socketshr.h>"
2030 $ WS "#include <netdb.h>
2038 $ DEFINE SYS$ERROR _NLA0:
2039 $ DEFINE SYS$OUTPUT _NLA0:
2040 $ on error then continue
2041 $ on warning then continue
2043 $ If (Needs_Opt.eqs."Yes")
2045 $ link temp.obj,temp.opt/opt
2049 $ teststatus = f$extract(9,1,$status)
2050 $ DEASSIGN SYS$OUTPUT
2051 $ DEASSIGN SYS$ERROR
2052 $ if (teststatus.nes."1")
2054 $ perl_d_endsent="undef"
2056 $ perl_d_endsent="define"
2059 $ perl_d_endsent="undef"
2061 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
2063 $! Check for sethostent
2065 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2069 $ WS "#include <stdlib.h>
2071 $ WS "#include <stdio.h>
2072 $ if ("''Has_Socketshr'".eqs."T")
2074 $ WS "#include <socketshr.h>"
2076 $ WS "#include <netdb.h>
2080 $ WS "sethostent(1);
2084 $ DEFINE SYS$ERROR _NLA0:
2085 $ DEFINE SYS$OUTPUT _NLA0:
2086 $ on error then continue
2087 $ on warning then continue
2089 $ If (Needs_Opt.eqs."Yes")
2091 $ link temp.obj,temp.opt/opt
2095 $ teststatus = f$extract(9,1,$status)
2096 $ DEASSIGN SYS$OUTPUT
2097 $ DEASSIGN SYS$ERROR
2098 $ if (teststatus.nes."1")
2100 $ perl_d_sethent="undef"
2102 $ perl_d_sethent="define"
2105 $ perl_d_sethent="undef"
2107 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
2109 $! Check for setnetent
2111 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2115 $ WS "#include <stdlib.h>
2117 $ WS "#include <stdio.h>
2118 $ if ("''Has_Socketshr'".eqs."T")
2120 $ WS "#include <socketshr.h>"
2122 $ WS "#include <netdb.h>
2130 $ DEFINE SYS$ERROR _NLA0:
2131 $ DEFINE SYS$OUTPUT _NLA0:
2132 $ on error then continue
2133 $ on warning then continue
2135 $ If (Needs_Opt.eqs."Yes")
2137 $ link temp.obj,temp.opt/opt
2141 $ teststatus = f$extract(9,1,$status)
2142 $ DEASSIGN SYS$OUTPUT
2143 $ DEASSIGN SYS$ERROR
2144 $ if (teststatus.nes."1")
2146 $ perl_d_setnent="undef"
2148 $ perl_d_setnent="define"
2151 $ perl_d_setnent="undef"
2153 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
2155 $! Check for setprotoent
2157 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2161 $ WS "#include <stdlib.h>
2163 $ WS "#include <stdio.h>
2164 $ if ("''Has_Socketshr'".eqs."T")
2166 $ WS "#include <socketshr.h>"
2168 $ WS "#include <netdb.h>
2172 $ WS "setprotoent(1);
2176 $ DEFINE SYS$ERROR _NLA0:
2177 $ DEFINE SYS$OUTPUT _NLA0:
2178 $ on error then continue
2179 $ on warning then continue
2181 $ If (Needs_Opt.eqs."Yes")
2183 $ link temp.obj,temp.opt/opt
2187 $ teststatus = f$extract(9,1,$status)
2188 $ DEASSIGN SYS$OUTPUT
2189 $ DEASSIGN SYS$ERROR
2190 $ if (teststatus.nes."1")
2192 $ perl_d_setpent="undef"
2194 $ perl_d_setpent="define"
2197 $ perl_d_setpent="undef"
2199 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
2201 $! Check for setservent
2203 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2207 $ WS "#include <stdlib.h>
2209 $ WS "#include <stdio.h>
2210 $ if ("''Has_Socketshr'".eqs."T")
2212 $ WS "#include <socketshr.h>"
2214 $ WS "#include <netdb.h>
2218 $ WS "setservent(1);
2222 $ DEFINE SYS$ERROR _NLA0:
2223 $ DEFINE SYS$OUTPUT _NLA0:
2224 $ on error then continue
2225 $ on warning then continue
2227 $ If (Needs_Opt.eqs."Yes")
2229 $ link temp.obj,temp.opt/opt
2233 $ teststatus = f$extract(9,1,$status)
2234 $ DEASSIGN SYS$OUTPUT
2235 $ DEASSIGN SYS$ERROR
2236 $ if (teststatus.nes."1")
2238 $ perl_d_setsent="undef"
2240 $ perl_d_setsent="define"
2243 $ perl_d_setsent="undef"
2245 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
2247 $! Check for gethostent
2249 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2253 $ WS "#include <stdlib.h>
2255 $ WS "#include <stdio.h>
2256 $ if ("''Has_Socketshr'".eqs."T")
2258 $ WS "#include <socketshr.h>"
2260 $ WS "#include <netdb.h>
2268 $ DEFINE SYS$ERROR _NLA0:
2269 $ DEFINE SYS$OUTPUT _NLA0:
2270 $ on error then continue
2271 $ on warning then continue
2273 $ If (Needs_Opt.eqs."Yes")
2275 $ link temp.obj,temp.opt/opt
2279 $ teststatus = f$extract(9,1,$status)
2280 $ DEASSIGN SYS$OUTPUT
2281 $ DEASSIGN SYS$ERROR
2282 $ if (teststatus.nes."1")
2284 $ perl_d_gethent="undef"
2286 $ perl_d_gethent="define"
2289 $ perl_d_gethent="undef"
2291 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
2293 $! Check for getnetent
2295 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2299 $ WS "#include <stdlib.h>
2301 $ WS "#include <stdio.h>
2302 $ if ("''Has_Socketshr'".eqs."T")
2304 $ WS "#include <socketshr.h>"
2306 $ WS "#include <netdb.h>
2314 $ DEFINE SYS$ERROR _NLA0:
2315 $ DEFINE SYS$OUTPUT _NLA0:
2316 $ on error then continue
2317 $ on warning then continue
2319 $ If (Needs_Opt.eqs."Yes")
2321 $ link temp.obj,temp.opt/opt
2325 $ teststatus = f$extract(9,1,$status)
2326 $ DEASSIGN SYS$OUTPUT
2327 $ DEASSIGN SYS$ERROR
2328 $ if (teststatus.nes."1")
2330 $ perl_d_getnent="undef"
2332 $ perl_d_getnent="define"
2335 $ perl_d_getnent="undef"
2337 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
2339 $! Check for getprotoent
2341 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2345 $ WS "#include <stdlib.h>
2347 $ WS "#include <stdio.h>
2348 $ if ("''Has_Socketshr'".eqs."T")
2350 $ WS "#include <socketshr.h>"
2352 $ WS "#include <netdb.h>
2356 $ WS "getprotoent();
2360 $ DEFINE SYS$ERROR _NLA0:
2361 $ DEFINE SYS$OUTPUT _NLA0:
2362 $ on error then continue
2363 $ on warning then continue
2365 $ If (Needs_Opt.eqs."Yes")
2367 $ link temp.obj,temp.opt/opt
2371 $ teststatus = f$extract(9,1,$status)
2372 $ DEASSIGN SYS$OUTPUT
2373 $ DEASSIGN SYS$ERROR
2374 $ if (teststatus.nes."1")
2376 $ perl_d_getpent="undef"
2378 $ perl_d_getpent="define"
2381 $ perl_d_getpent="undef"
2383 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
2385 $! Check for getservent
2387 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2391 $ WS "#include <stdlib.h>
2393 $ WS "#include <stdio.h>
2394 $ if ("''Has_Socketshr'".eqs."T")
2396 $ WS "#include <socketshr.h>"
2398 $ WS "#include <netdb.h>
2406 $ DEFINE SYS$ERROR _NLA0:
2407 $ DEFINE SYS$OUTPUT _NLA0:
2408 $ on error then continue
2409 $ on warning then continue
2411 $ If (Needs_Opt.eqs."Yes")
2413 $ link temp.obj,temp.opt/opt
2417 $ teststatus = f$extract(9,1,$status)
2418 $ DEASSIGN SYS$OUTPUT
2419 $ DEASSIGN SYS$ERROR
2420 $ if (teststatus.nes."1")
2422 $ perl_d_getsent="undef"
2424 $ perl_d_getsent="define"
2427 $ perl_d_getsent="undef"
2429 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
2431 $! Check for pthread_yield
2433 $ if ("''use_threads'".eqs."T")
2437 $ WS "#include <stdlib.h>
2439 $ WS "#include <pthread.h>
2440 $ WS "#include <stdio.h>
2443 $ WS "pthread_yield();
2447 $ DEFINE SYS$ERROR _NLA0:
2448 $ DEFINE SYS$OUTPUT _NLA0:
2449 $ on error then continue
2450 $ on warning then continue
2452 $ teststatus = f$extract(9,1,$status)
2453 $ DEASSIGN SYS$OUTPUT
2454 $ DEASSIGN SYS$ERROR
2455 $ if (teststatus.nes."1")
2457 $ perl_d_pthread_yield="undef"
2459 $ perl_d_pthread_yield="define"
2462 $ perl_d_pthread_yield="undef"
2464 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
2466 $! Check for sched_yield
2468 $ if ("''use_threads'".eqs."T")
2472 $ WS "#include <stdlib.h>
2474 $ WS "#include <pthread.h>
2475 $ WS "#include <stdio.h>
2478 $ WS "sched_yield();
2482 $ DEFINE SYS$ERROR _NLA0:
2483 $ DEFINE SYS$OUTPUT _NLA0:
2484 $ on error then continue
2485 $ on warning then continue
2487 $ teststatus = f$extract(9,1,$status)
2488 $ DEASSIGN SYS$OUTPUT
2489 $ DEASSIGN SYS$ERROR
2490 $ if (teststatus.nes."1")
2492 $ perl_d_sched_yield="undef"
2493 $ perl_sched_yield = " "
2495 $ perl_d_sched_yield="define"
2496 $ perl_sched_yield = "sched_yield"
2499 $ perl_d_sched_yield="undef"
2500 $ perl_sched_yield = " "
2502 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
2503 $ WRITE_RESULT "sched_yield is ''perl_sched_yield'"
2505 $! Check for generic pointer size
2509 $ WS "#include <stdlib.h>
2511 $ WS "#include <stdio.h>
2515 $ WS "foo = sizeof(char *);
2516 $ WS "printf(""%d\n"", foo);
2520 $! copy temp.c sys$output
2522 $ DEFINE SYS$ERROR _NLA0:
2523 $ DEFINE SYS$OUTPUT _NLA0:
2524 $ ON ERROR THEN CONTINUE
2525 $ ON WARNING THEN CONTINUE
2527 $ If (Needs_Opt.eqs."Yes")
2529 $ link temp.obj,temp.opt/opt
2533 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
2534 $ DEASSIGN SYS$OUTPUT
2535 $ DEASSIGN SYS$ERROR
2536 $ DEFINE SYS$ERROR TEMPOUT
2537 $ DEFINE SYS$OUTPUT TEMPOUT
2540 $ DEASSIGN SYS$OUTPUT
2541 $ DEASSIGN SYS$ERROR
2542 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
2547 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
2550 $! Check rand48 and its ilk
2554 $ WS "#include <stdlib.h>
2556 $ WS "#include <stdio.h>
2559 $ WS "srand48(12L);"
2563 $! copy temp.c sys$output
2565 $ DEFINE SYS$ERROR _NLA0:
2566 $ DEFINE SYS$OUTPUT _NLA0:
2567 $ ON ERROR THEN CONTINUE
2568 $ ON WARNING THEN CONTINUE
2570 $ If (Needs_Opt.eqs."Yes")
2572 $ link temp,temp.opt/opt
2576 $ teststatus = f$extract(9,1,$status)
2577 $ DEASSIGN SYS$OUTPUT
2578 $ DEASSIGN SYS$ERROR
2579 $ if (teststatus.nes."1")
2581 $ perl_drand01="random()"
2582 $ perl_randseedtype = "unsigned"
2583 $ perl_seedfunc = "srandom"
2587 $ WS "#include <stdlib.h>
2589 $ WS "#include <stdio.h>
2596 $! copy temp.c sys$output
2598 $ DEFINE SYS$ERROR _NLA0:
2599 $ DEFINE SYS$OUTPUT _NLA0:
2600 $ ON ERROR THEN CONTINUE
2601 $ ON WARNING THEN CONTINUE
2603 $ If (Needs_Opt.eqs."Yes")
2605 $ link temp,temp.opt/opt
2609 $ teststatus = f$extract(9,1,$status)
2610 $ DEASSIGN SYS$OUTPUT
2611 $ DEASSIGN SYS$ERROR
2612 $ if (teststatus.nes."1")
2614 $ perl_drand01="(((float)rand())/((float)RAND_MAX))"
2615 $ perl_randseedtype = "unsigned"
2616 $ perl_seedfunc = "srand"
2618 $ WRITE_RESULT "drand01 is ''perl_drand01'"
2621 $! Done with compiler checks. Clean up.
2622 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
2623 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
2624 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
2625 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
2628 $! Some that are compiler or VMS version sensitive
2631 $ IF "''Using_Gnu_C'".EQS."Yes"
2633 $ perl_d_attribut="define"
2634 $ perl_vms_cc_type="gcc"
2636 $ perl_d_attribut="undef"
2639 $! Dec C >= 5.2 and VMS ver >= 7.0
2640 $ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
2642 $ perl_d_bcmp="define"
2643 $ perl_d_gettimeod="define"
2644 $ perl_d_uname="define"
2645 $ perl_d_sigaction="define"
2646 $ perl_d_truncate="define"
2647 $ perl_d_wait4="define"
2648 $ perl_d_index="define"
2649 $ perl_pidtype="pid_t"
2650 $ 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"
2651 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
2652 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
2653 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
2654 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
2655 $ 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"
2656 $ 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"
2657 $ perl_sig_num_with_commas=perl_sig_num_init
2658 $ perl_uidtype="uid_t"
2659 $ perl_d_pathconf="define"
2660 $ perl_d_fpathconf="define"
2661 $ perl_d_sysconf="define"
2662 $ perl_d_sigsetjmp="define"
2664 $ perl_pidtype="unsigned int"
2665 $ perl_d_gettimeod="undef"
2666 $ perl_d_bcmp="undef"
2667 $ perl_d_uname="undef"
2668 $ perl_d_sigaction="undef"
2669 $ perl_d_truncate="undef"
2670 $ perl_d_wait4="undef"
2671 $ perl_d_index="undef"
2672 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
2673 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
2674 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
2675 $ perl_sig_name_with_commas = psnwc1 + psnwc2
2676 $ perl_sig_num="0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 6 16 17"",0"
2677 $ perl_sig_num_init="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
2678 $ perl_sig_num_with_commas=perl_sig_num_init
2679 $ perl_uidtype="unsigned int"
2680 $ perl_d_pathconf="undef"
2681 $ perl_d_fpathconf="undef"
2682 $ perl_d_sysconf="undef"
2683 $ perl_d_sigsetjmp="undef"
2687 $ IF ("''Using_Dec_C'".EQS."Yes")
2689 $ perl_d_mbstowcs="define"
2690 $ perl_d_mbtowc="define"
2691 $ perl_d_stdiobase="define"
2692 $ perl_d_stdio_ptr_lval="define"
2693 $ perl_d_stdio_cnt_lval="define"
2694 $ perl_d_stdstdio="define"
2695 $ perl_d_wcstombs="define"
2696 $ perl_d_mblen="define"
2697 $ perl_d_mktime="define"
2698 $ perl_d_strcoll="define"
2699 $ perl_d_strxfrm="define"
2700 $ perl_d_wctomb="define"
2701 $ perl_i_locale="define"
2702 $ perl_d_locconv="define"
2703 $ perl_d_setlocale="define"
2704 $ perl_vms_cc_type="decc"
2706 $ perl_d_mbstowcs="undef"
2707 $ perl_d_mbtowc="undef"
2708 $ perl_d_stdiobase="undef"
2709 $ perl_d_stdio_ptr_lval="undef"
2710 $ perl_d_stdio_cnt_lval="undef"
2711 $ perl_d_stdstdio="undef"
2712 $ perl_d_wcstombs="undef"
2713 $ perl_d_mblen="undef"
2714 $ perl_d_mktime="undef"
2715 $ perl_d_strcoll="undef"
2716 $ perl_d_strxfrm="undef"
2717 $ perl_d_wctomb="undef"
2718 $ perl_i_locale="undef"
2719 $ perl_d_locconv="undef"
2720 $ perl_d_setlocale="undef"
2724 $ if ("''Using_Vax_C'".EQS."Yes")
2726 $ perl_vms_cc_type="vaxc"
2731 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
2733 $ perl_d_vms_do_sockets="define"
2734 $ perl_d_htonl="define"
2735 $ perl_d_socket="define"
2736 $ perl_d_select="define"
2737 $ perl_netdb_host_type="char *"
2738 $ perl_netdb_hlen_type="int"
2739 $ perl_netdb_name_type="char *"
2740 $ perl_netdb_net_type="long"
2741 $ perl_d_gethbyaddr="define"
2742 $ perl_d_gethbyname="define"
2743 $ perl_d_getnbyaddr="define"
2744 $ perl_d_getnbyname="define"
2745 $ perl_d_getpbynumber="define"
2746 $ perl_d_getpbyname="define"
2747 $ perl_d_getsbyport="define"
2748 $ perl_d_getsbyname="define"
2749 $ perl_d_gethostprotos="define"
2750 $ perl_d_getnetprotos="define"
2751 $ perl_d_getprotoprotos="define"
2752 $ perl_d_getservprotos="define"
2754 $ perl_d_vms_do_sockets="undef"
2755 $ perl_d_htonl="undef"
2756 $ perl_d_socket="undef"
2757 $ perl_d_select="undef"
2758 $ perl_netdb_host_type="char *"
2759 $ perl_netdb_hlen_type="int"
2760 $ perl_netdb_name_type="char *"
2761 $ perl_netdb_net_type="long"
2762 $ perl_d_gethbyaddr="undef"
2763 $ perl_d_gethbyname="undef"
2764 $ perl_d_getnbyaddr="undef"
2765 $ perl_d_getnbyname="undef"
2766 $ perl_d_getpbynumber="undef"
2767 $ perl_d_getpbyname="undef"
2768 $ perl_d_getsbyport="undef"
2769 $ perl_d_getsbyname="undef"
2770 $ perl_d_gethostprotos="undef"
2771 $ perl_d_getnetprotos="undef"
2772 $ perl_d_getprotoprotos="undef"
2773 $ perl_d_getservprotos="undef"
2776 $ if ("''use_threads'".eqs."T")
2778 $ perl_usethreads="define"
2779 $ perl_d_pthreads_created_joinable="define"
2780 $ if ("''VMS_VER'".ges."7.0")
2782 $ perl_d_oldpthreads="undef"
2784 $ perl_d_oldpthreads="define"
2787 $ perl_d_oldpthreads="undef"
2788 $ perl_usethreads="undef"
2790 $ perl_d_pthreads_created_joinable="undef"
2794 $! Finally the composite ones. All config
2795 $ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
2796 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
2797 $ perl_myhostname="''myhostname'"
2798 $ perl_mydomain="''mydomain'"
2799 $ perl_perladmin="''perladmin'"
2800 $ perl_cf_email="''cf_email'"
2801 $ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
2802 $ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
2803 $ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
2804 $ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
2805 $ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
2806 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
2807 $ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
2808 $ if "''Using_Dec_C'" .eqs. "Yes"
2810 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
2812 $ IF "''Using_Vax_C'" .eqs. "Yes"
2814 $ perl_ccflags="/Include=[]/Obj=''perl_obj_ext'/NoList''cc_flags'"
2817 $ if use_vmsdebug_perl .eqs. "Y"
2819 $ perl_optimize="/Debug/NoOpt"
2820 $ perl_dbgprefix = "DBG"
2823 $ perl_dbgprefix = ""
2826 $! Finally clean off any leading zeros from the patchlevel or subversion
2827 $ perl_patchlevel = perl_patchlevel + 0
2828 $ perl_subversion = perl_subversion + 0
2830 $! Okay, we've got everything configured. Now go write out a config.sh.
2831 $ open/write CONFIGSH [-]config.sh
2832 $ WC := "write CONFIGSH"
2834 $ WC "# This file generated by Configure.COM on a VMS system."
2835 $ WC "# Time: " + perl_cf_time
2837 $ WC "CONFIGDOTSH=true"
2838 $ WC "package='" + perl_package + "'"
2839 $ WC "CONFIG='" + perl_config + "'"
2840 $ WC "cf_time='" + perl_cf_time + "'"
2841 $ WC "cf_by='" + perl_cf_by+ "'"
2842 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
2843 $ WC "ccdlflags='" + perl_ccdlflags + "'"
2844 $ WC "cccdlflags='" + perl_cccdlflags + "'"
2845 $ WC "mab='" + perl_mab + "'"
2846 $ WC "libpth='" + perl_libpth + "'"
2847 $ WC "ld='" + perl_ld + "'"
2848 $ WC "lddlflags='" + perl_lddlflags + "'"
2849 $ WC "ranlib='" + perl_ranlib + "'"
2850 $ WC "ar='" + perl_ar + "'"
2851 $ WC "eunicefix='" + perl_eunicefix + "'"
2852 $ WC "hint='" + perl_hint +"'"
2853 $ WC "hintfile='" + perl_hintfile + "'"
2854 $ WC "shrplib='" + perl_shrplib + "'"
2855 $ WC "usemymalloc='" + perl_usemymalloc + "'"
2856 $ WC "usevfork='" + perl_usevfork + "'"
2857 $ WC "useposix='false'"
2858 $ WC "spitshell='write sys$output '"
2859 $ WC "dlsrc='dl_vms.c'"
2860 $ WC "binexp='" + perl_binexp + "'"
2861 $ WC "man1ext='" + perl_man1ext + "'"
2862 $ WC "man3ext='" + perl_man3ext + "'"
2863 $ WC "arch='" + perl_arch + "'"
2864 $ WC "archname='" + perl_archname + "'"
2865 $ WC "osvers='" + perl_osvers + "'"
2866 $ WC "prefix='" + perl_prefix + "'"
2867 $ WC "builddir='" + perl_builddir + "'"
2868 $ WC "installbin='" + perl_installbin + "'"
2869 $ WC "installscript='" + perl_installscript + "'"
2870 $ WC "installman1dir='" + perl_installman1dir + "'"
2871 $ WC "installman3dir='" + perl_installman3dir + "'"
2872 $ WC "installprivlib='" + perl_installprivlib + "'"
2873 $ WC "installarchlib='" + perl_installarchlib + "'"
2874 $ WC "installsitelib='" + perl_installsitelib + "'"
2875 $ WC "installsitearch='" + perl_installsitearch + "'"
2876 $ WC "path_sep='" + perl_path_sep + "'"
2877 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
2878 $ WC "d_attribut='" + perl_d_attribut + "'"
2879 $ WC "cc='" + perl_cc + "'"
2880 $ WC "ccflags='" + perl_ccflags + "'"
2881 $ WC "optimize='" + perl_optimize + "'"
2882 $ WC "dbgprefix='" + perl_dbgprefix + "'"
2883 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
2884 $ WC "d_socket='" + perl_d_socket + "'"
2885 $ WC "d_sockpair='" + perl_d_sockpair + "'"
2886 $ WC "d_gethent='" + perl_d_gethent + "'"
2887 $ WC "d_getsent='" + perl_d_getsent + "'"
2888 $ WC "d_select='" + perl_d_select + "'"
2889 $ WC "i_niin='" + perl_i_niin + "'"
2890 $ WC "i_netinettcp='" + perl_i_netinettcp + "'"
2891 $ WC "i_neterrno='" + perl_i_neterrno + "'"
2892 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
2893 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
2894 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
2895 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
2896 $ WC "d_locconv='" + perl_d_locconv + "'"
2897 $ WC "d_setlocale='" + perl_d_setlocale + "'"
2898 $ WC "i_locale='" + perl_i_locale + "'"
2899 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
2900 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
2901 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
2902 $ WC "d_wctomb='" + perl_d_wctomb + "'"
2903 $ WC "d_mblen='" + perl_d_mblen + "'"
2904 $ WC "d_mktime='" + perl_d_mktime + "'"
2905 $ WC "d_strcoll='" + perl_d_strcoll + "'"
2906 $ WC "d_strxfrm='" + perl_d_strxfrm + "'"
2907 $ WC "ldflags='" + perl_ldflags + "'"
2908 $ WC "dlobj='" + perl_dlobj + "'"
2909 $ WC "obj_ext='" + perl_obj_ext + "'"
2910 $ WC "so='" + perl_so + "'"
2911 $ WC "dlext='" + perl_dlext + "'"
2912 $ WC "exe_ext='" + perl_exe_ext + "'"
2913 $ WC "lib_ext='" + perl_lib_ext + "'"
2914 $ WC "myhostname='" + perl_myhostname + "'"
2915 $ WC "mydomain='" + perl_mydomain + "'"
2916 $ WC "perladmin='" + perl_perladmin + "'"
2917 $ WC "cf_email='" + perl_cf_email + "'"
2918 $ WC "myuname='" + perl_myuname + "'"
2919 $ WC "alignbytes='" + perl_alignbytes + "'"
2920 $ WC "osname='" + perl_osname + "'"
2921 $ WC "d_archlib='" + perl_d_archlib + "'"
2922 $ WC "archlibexp='" + perl_archlibexp + "'"
2923 $ WC "archlib='" + perl_archlib + "'"
2924 $ WC "archname='" + perl_archname + "'"
2925 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
2926 $ WC "cppstdin='" + perl_cppstdin + "'"
2927 $ WC "cppminus='" + perl_cppminus + "'"
2928 $ WC "d_bcmp='" + perl_d_bcmp + "'"
2929 $ WC "d_bcopy='" + perl_d_bcopy + "'"
2930 $ WC "d_bzero='" + perl_d_bzero + "'"
2931 $ WC "d_castneg='" + perl_d_castneg + "'"
2932 $ WC "castflags='" + perl_castflags + "'"
2933 $ WC "d_chsize='" + perl_d_chsize + "'"
2934 $ WC "d_const='" + perl_d_const + "'"
2935 $ WC "d_crypt='" + perl_d_crypt + "'"
2936 $ WC "byteorder='" + perl_byteorder + "'"
2937 $ WC "full_csh='" + perl_full_csh + "'"
2938 $ WC "d_csh='" + perl_d_csh + "'"
2939 $ WC "d_dup2='" + perl_d_dup2 + "'"
2940 $ WC "d_fchmod='" + perl_d_fchmod + "'"
2941 $ WC "d_fchown='" + perl_d_fchown + "'"
2942 $ WC "d_fcntl='" + perl_d_fcntl + "'"
2943 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
2944 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
2945 $ WC "d_flock='" + perl_d_flock + "'"
2946 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
2947 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
2948 $ WC "d_getgrps='" + perl_d_getgrps + "'"
2949 $ WC "d_setgrps='" + perl_d_setgrps + "'"
2950 $ WC "d_uname='" + perl_d_uname + "'"
2951 $ WC "d_getprior='" + perl_d_getprior + "'"
2952 $ WC "d_killpg='" + perl_d_killpg + "'"
2953 $ WC "d_link='" + perl_d_link + "'"
2954 $ WC "d_lstat='" + perl_d_lstat + "'"
2955 $ WC "d_lockf='" + perl_d_lockf + "'"
2956 $ WC "d_memcmp='" + perl_d_memcmp + "'"
2957 $ WC "d_memcpy='" + perl_d_memcpy + "'"
2958 $ WC "d_memmove='" + perl_d_memmove + "'"
2959 $ WC "d_memset='" + perl_d_memset + "'"
2960 $ WC "d_mkdir='" + perl_d_mkdir + "'"
2961 $ WC "d_msg='" + perl_d_msg + "'"
2962 $ WC "d_open3='" + perl_d_open3 + "'"
2963 $ WC "d_poll='" + perl_d_poll + "'"
2964 $ WC "d_readdir='" + perl_d_readdir + "'"
2965 $ WC "d_seekdir='" + perl_d_seekdir + "'"
2966 $ WC "d_telldir='" + perl_d_telldir + "'"
2967 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
2968 $ WC "d_rename='" + perl_d_rename + "'"
2969 $ WC "d_rmdir='" + perl_d_rmdir + "'"
2970 $ WC "d_sem='" + perl_d_sem + "'"
2971 $ WC "d_setegid='" + perl_d_setegid + "'"
2972 $ WC "d_seteuid='" + perl_d_seteuid + "'"
2973 $ WC "d_setprior='" + perl_d_setprior + "'"
2974 $ WC "d_setregid='" + perl_d_setregid + "'"
2975 $ WC "d_setresgid='" + perl_d_setresgid + "'"
2976 $ WC "d_setreuid='" + perl_d_setreuid + "'"
2977 $ WC "d_setresuid='" + perl_d_setresuid + "'"
2978 $ WC "d_setrgid='" + perl_d_setrgid + "'"
2979 $ WC "d_setruid='" + perl_d_setruid + "'"
2980 $ WC "d_setsid='" + perl_d_setsid + "'"
2981 $ WC "d_shm='" + perl_d_shm + "'"
2982 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
2983 $ WC "d_sigaction='" + perl_d_sigaction + "'"
2984 $ WC "d_statblks='" + perl_d_statblks + "'"
2985 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
2986 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
2987 $ WC "stdio_base='" + perl_stdio_base + "'"
2988 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
2989 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
2990 $ WC "d_strerror='" + perl_d_strerror + "'"
2991 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
2992 $ WC "d_strerrm='" + perl_d_strerrm + "'"
2993 $ WC "d_symlink='" + perl_d_symlink + "'"
2994 $ WC "d_syscall='" + perl_d_syscall + "'"
2995 $ WC "d_system='" + perl_d_system + "'"
2996 $ WC "timetype='" + perl_timetype + "'"
2997 $ WC "d_truncate='" + perl_d_truncate + "'"
2998 $ WC "d_vfork='" + perl_d_vfork + "'"
2999 $ WC "signal_t='" + perl_signal_t + "'"
3000 $ WC "d_volatile='" + perl_d_volatile + "'"
3001 $ WC "d_vprintf='" + perl_d_vprintf + "'"
3002 $ WC "d_charvspr='" + perl_d_charvspr + "'"
3003 $ WC "d_wait4='" + perl_d_wait4 + "'"
3004 $ WC "d_waitpid='" + perl_d_waitpid + "'"
3005 $ WC "i_dirent='" + perl_i_dirent + "'"
3006 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
3007 $ WC "direntrytype='" + perl_direntrytype + "'"
3008 $ WC "i_fcntl='" + perl_i_fcntl + "'"
3009 $ WC "i_grp='" + perl_i_grp + "'"
3010 $ WC "i_limits='" + perl_i_limits + "'"
3011 $ WC "i_memory='" + perl_i_memory + "'"
3012 $ WC "i_ndbm='" + perl_i_ndbm + "'"
3013 $ WC "i_stdarg='" + perl_i_stdarg + "'"
3014 $ WC "i_pwd='" + perl_i_pwd + "'"
3015 $ WC "d_pwquota='" + perl_d_pwquota + "'"
3016 $ WC "d_pwage='" + perl_d_pwage + "'"
3017 $ WC "d_pwchange='" + perl_d_pwchange + "'"
3018 $ WC "d_pwclass='" + perl_d_pwclass + "'"
3019 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
3020 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
3021 $ WC "i_stddef='" + perl_i_stddef + "'"
3022 $ WC "i_stdlib='" + perl_i_stdlib + "'"
3023 $ WC "i_string='" + perl_i_string + "'"
3024 $ WC "i_sysdir='" + perl_i_sysdir + "'"
3025 $ WC "i_sysfile='" + perl_i_sysfile + "'"
3026 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
3027 $ WC "i_sysndir='" + perl_i_sysndir + "'"
3028 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
3029 $ WC "i_sysselct='" + perl_i_sysselct + "'"
3030 $ WC "i_dbm='" + perl_i_dbm + "'"
3031 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
3032 $ WC "i_sfio='" + perl_i_sfio + "'"
3033 $ WC "i_sysstat='" + perl_i_sysstat + "'"
3034 $ WC "i_systimes='" + perl_i_systimes + "'"
3035 $ WC "i_systypes='" + perl_i_systypes + "'"
3036 $ WC "i_sysun='" + perl_i_sysun + "'"
3037 $ WC "i_syswait='" + perl_i_syswait + "'"
3038 $ WC "i_termio='" + perl_i_termio + "'"
3039 $ WC "i_sgtty='" + perl_i_sgtty + "'"
3040 $ WC "i_termios='" + perl_i_termios + "'"
3041 $ WC "i_time='" + perl_i_time + "'"
3042 $ WC "i_systime='" + perl_i_systime + "'"
3043 $ WC "i_systimek='" + perl_i_systimek + "'"
3044 $ WC "i_unistd='" + perl_i_unistd + "'"
3045 $ WC "i_utime='" + perl_i_utime + "'"
3046 $ WC "i_varargs='" + perl_i_varargs + "'"
3047 $ WC "i_vfork='" + perl_i_vfork + "'"
3048 $ WC "prototype='" + perl_prototype + "'"
3049 $ WC "randbits='" + perl_randbits +"'"
3050 $ WC "selecttype='" + perl_selecttype + "'"
3051 $ WC "stdchar='" + perl_stdchar + "'"
3052 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
3053 $ WC "full_sed='" + perl_full_sed + "'"
3054 $ WC "bin='" + perl_bin + "'"
3055 $ WC "binexp='" + perl_binexp + "'"
3056 $ WC "d_alarm='" + perl_d_alarm + "'"
3057 $ WC "d_casti32='" + perl_d_casti32 + "'"
3058 $ WC "d_chown='" + perl_d_chown + "'"
3059 $ WC "d_chroot='" + perl_d_chroot + "'"
3060 $ WC "d_cuserid='" + perl_d_cuserid + "'"
3061 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
3062 $ WC "d_difftime='" + perl_d_difftime + "'"
3063 $ WC "d_fork='" + perl_d_fork + "'"
3064 $ WC "d_getlogin='" + perl_d_getlogin + "'"
3065 $ WC "d_getppid='" + perl_d_getppid + "'"
3066 $ WC "d_htonl='" + perl_d_htonl + "'"
3067 $ WC "d_nice='" + perl_d_nice + "'"
3068 $ WC "d_pause='" + perl_d_pause + "'"
3069 $ WC "d_pipe='" + perl_d_pipe + "'"
3070 $ WC "d_readlink='" + perl_d_readlink + "'"
3071 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
3072 $ WC "d_strchr='" + perl_d_strchr + "'"
3073 $ WC "d_index='" + perl_d_index + "'"
3074 $ WC "d_strtod='" + perl_d_strtod + "'"
3075 $ WC "d_strtol='" + perl_d_strtol + "'"
3076 $ WC "d_strtoul='" + perl_d_strtoul + "'"
3077 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
3078 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
3079 $ WC "d_times='" + perl_d_times + "'"
3080 $ WC "d_tzname='" + perl_d_tzname + "'"
3081 $ WC "d_umask='" + perl_d_umask + "'"
3082 $ WC "fpostype='" + perl_fpostype + "'"
3083 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
3084 $ WC "i_float='" + perl_i_float + "'"
3085 $ WC "i_math='" + perl_i_math + "'"
3086 $ WC "intsize='" + perl_intsize + "'"
3087 $ WC "longsize='" + perl_longsize + "'"
3088 $ WC "shortsize='" + perl_shortsize + "'"
3089 $ WC "lseektype='" + perl_lseektype + "'"
3090 $ WC "i_values='" + perl_i_values + "'"
3091 $ WC "malloctype='" + perl_malloctype + "'"
3092 $ WC "freetype='" + perl_freetype + "'"
3093 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
3094 $ WC "sh='" + perl_sh + "'"
3095 $ WC "sig_name='" + perl_sig_name + "'"
3096 $ WC "sig_num='" + perl_sig_num + "'"
3097 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
3099 $ WC "modetype='" + perl_modetype + "'"
3100 $ WC "ssizetype='" + perl_ssizetype + "'"
3101 $ WC "o_nonblock='" + perl_o_nonblock + "'"
3102 $ WC "eagain='" + perl_eagain + "'"
3103 $ WC "rd_nodata='" + perl_rd_nodata + "'"
3104 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
3105 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
3106 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
3107 $ WC "oldarchlib='" + perl_oldarchlib + "'"
3108 $ WC "privlibexp='" + perl_privlibexp + "'"
3109 $ WC "privlib='" + perl_privlib + "'"
3110 $ WC "sitelibexp='" + perl_sitelibexp + "'"
3111 $ WC "sitelib='" + perl_sitelib + "'"
3112 $ WC "sitearchexp='" + perl_sitearchexp + "'"
3113 $ WC "sitearch='" + perl_sitearch + "'"
3114 $ WC "sizetype='" + perl_sizetype + "'"
3115 $ WC "i_sysparam='" + perl_i_sysparam + "'"
3116 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
3117 $ WC "d_dlerror='" + perl_d_dlerror + "'"
3118 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
3119 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
3120 $ WC "d_dosuid='" + perl_d_dosuid + "'"
3121 $ WC "d_inetaton='" + perl_d_inetaton + "'"
3122 $ WC "d_isascii='" + perl_d_isascii + "'"
3123 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
3124 $ WC "d_pathconf='" + perl_d_pathconf + "'"
3125 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
3126 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
3127 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
3128 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
3129 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
3130 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
3131 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
3132 $ WC "d_setpgid='" + perl_d_setpgid + "'"
3133 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
3134 $ WC "d_sysconf='" + perl_d_sysconf + "'"
3135 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
3136 $ WC "d_getpgid='" + perl_d_getpgid + "'"
3137 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
3138 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
3139 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
3140 $ WC "d_sfio='" + perl_d_sfio + "'"
3141 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
3142 $ WC "usedl='" + perl_usedl + "'"
3143 $ WC "startperl=" + perl_startperl ! This one's special--no enclosing single quotes
3144 $ WC "db_hashtype='" + perl_db_hashtype + "'"
3145 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
3146 $ WC "useperlio='" + perl_useperlio + "'"
3147 $ WC "defvoidused='" + perl_defvoidused + "'"
3148 $ WC "voidflags='" + perl_voidflags + "'"
3149 $ WC "d_eunice='" + perl_d_eunice + "'"
3150 $ WC "libs='" + perl_libs + "'"
3151 $ WC "libc='" + perl_libc + "'"
3152 $ tempstring = "PERL_VERSION='" + "''perl_patchlevel'" + "'"
3154 $ tempstring = "PERL_SUBVERSION='" + "''perl_patchlevel'" + "'"
3156 $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
3158 $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
3160 $ WC "pager='" + perl_pager + "'"
3161 $ WC "uidtype='" + perl_uidtype + "'"
3162 $ WC "gidtype='" + perl_gidtype + "'"
3163 $ WC "usethreads='" + perl_usethreads + "'"
3164 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
3165 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
3166 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
3167 $ WC "i_netdb='" + perl_i_netdb + "'"
3168 $ WC "pidtype='" + perl_pidtype + "'"
3169 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
3170 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
3171 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
3172 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
3173 $ WC "baserev='" + perl_baserev + "'"
3174 $ WC "doublesize='" + perl_doublesize + "'"
3175 $ WC "ptrsize='" + perl_ptrsize + "'"
3176 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
3177 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
3178 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
3179 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
3180 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
3181 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
3182 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
3183 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
3184 $ WC "d_sethent='" + perl_d_sethent + "'"
3185 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
3186 $ WC "d_longdbl='" + perl_d_longdbl + "'"
3187 $ WC "longdblsize='" + perl_longdblsize + "'"
3188 $ WC "d_longlong='" + perl_d_longlong + "'"
3189 $ WC "longlongsize='" + perl_longlongsize + "'"
3190 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
3191 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
3192 $ WC "d_setenv='" + perl_d_setenv + "'"
3193 $ WC "d_endhent='" + perl_d_endhent + "'"
3194 $ WC "d_endnent='" + perl_d_endsent + "'"
3195 $ WC "d_endpent='" + perl_d_endpent + "'"
3196 $ WC "d_endsent='" + perl_d_endsent + "'"
3197 $ WC "d_gethent='" + perl_d_gethent + "'"
3198 $ WC "d_getnent='" + perl_d_getsent + "'"
3199 $ WC "d_getpent='" + perl_d_getpent + "'"
3200 $ WC "d_getsent='" + perl_d_getsent + "'"
3201 $ WC "d_sethent='" + perl_d_sethent + "'"
3202 $ WC "d_setnent='" + perl_d_setsent + "'"
3203 $ WC "d_setpent='" + perl_d_setpent + "'"
3204 $ WC "ebcdic='" + perl_ebcdic + "'"
3205 $ WC "d_setsent='" + perl_d_setsent + "'"
3206 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
3207 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
3208 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
3209 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
3210 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
3211 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
3212 $ WC "d_lchown='" + perl_d_lchown + "'"
3213 $ WC "d_union_semun='" + perl_d_union_semun + "'"
3214 $ WC "i_arpainet='" + perl_i_arpainet + "'"
3215 $ WC "d_grpasswd='" + perl_d_grpasswd + "'"
3216 $ WC "d_setgrent='" + perl_d_setgrent + "'"
3217 $ WC "d_getgrent='" + perl_d_getgrent + "'"
3218 $ WC "d_endgrent='" + perl_d_endgrent + "'"
3219 $ WC "d_pwpasswd='" + perl_d_pwpasswd + "'"
3220 $ WC "d_setpwent='" + perl_d_setpwent + "'"
3221 $ WC "d_getpwent='" + perl_d_getpwent + "'"
3222 $ WC "d_endpwent='" + perl_d_endpwent + "'"
3223 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
3224 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
3225 $ WC "extensions='" + perl_extensions + "'"
3226 $ WC "d_mknod='" + perl_d_mknod + "'"
3227 $ WC "devtype='" + perl_devtype + "'"
3228 $ WC "d_gethname='" + perl_d_gethname + "'"
3229 $ WC "d_phostname='" + perl_d_phostname + "'"
3230 $ WC "d_accessx='" + perl_d_accessx + "'"
3231 $ WC "d_eaccess='" + perl_d_eaccess + "'"
3232 $ WC "i_sysaccess='" + perl_i_sysaccess + "'"
3233 $ WC "i_syssecrt='" + perl_i_syssecrt + "'"
3234 $ WC "d_fd_set='" + perl_d_fd_set + "'"
3235 $ WC "d_access='" + perl_d_access + "'"
3236 $ WC "d_msg_ctrunc='" + perl_d_msg_ctrunc + "'"
3237 $ WC "d_msg_dontroute='" + perl_d_msg_dontroute + "'"
3238 $ WC "d_msg_oob='" + perl_d_msg_oob + "'"
3239 $ WC "d_msg_peek='" + perl_d_msg_peek + "'"
3240 $ WC "d_msg_proxy='" + perl_d_msg_proxy + "'"
3241 $ WC "d_scm_rights='" + perl_d_scm_rights + "'"
3242 $ WC "d_sendmsg='" + perl_d_sendmsg + "'"
3243 $ WC "d_recvmsg='" + perl_d_recvmsg + "'"
3244 $ WC "d_msghdr_s='" + perl_d_msghdr_s + "'"
3245 $ WC "d_cmsghdr_s='" + perl_d_cmsghdr_s + "'"
3246 $ WC "i_sysuio='" + perl_i_sysuio + "'"
3247 $ WC "d_fseeko='" + perl_d_fseeko + "'"
3248 $ WC "d_ftello='" + perl_d_ftello + "'"
3249 $ WC "d_readv='" + perl_d_readv + "'"
3250 $ WC "d_writev='" + perl_d_writev + "'"
3251 $ WC "i_machcthr='" + perl_i_machcthr + "'"
3252 $ WC "usemultiplicity='" + perl_usemultiplicity + "'"
3253 $ WC "d_dbminit64='" + perl_d_dbminit64 + "'"
3254 $ WC "d_dbmclose64='" + perl_d_dbmclose64 + "'"
3255 $ WC "d_fetch64='" + perl_d_fetch64 + "'"
3256 $ WC "d_store64='" + perl_d_store64 + "'"
3257 $ WC "d_delete64='" + perl_d_delete64 + "'"
3258 $ WC "d_firstkey64='" + perl_d_firstkey64 + "'"
3259 $ WC "d_nextkey64='" + perl_d_nextkey64 + "'"
3260 $ WC "i_poll='" + perl_i_poll + "'"
3261 $ WC "i_inttypes='" + perl_i_inttypes + "'"
3262 $ WC "d_int64t='" + perl_d_int64t + "'"
3263 $ WC "d_off64_t='" + perl_d_off64_t + "'"
3264 $ WC "d_fstat64='" + perl_d_fstat64 + "'"
3265 $ WC "d_ftruncate64='" + perl_d_ftruncate64 + "'"
3266 $ WC "d_lseek64='" + perl_d_lseek64 + "'"
3267 $ WC "d_lstat64='" + perl_d_lstat64 + "'"
3268 $ WC "d_open64='" + perl_d_open64 + "'"
3269 $ WC "d_opendir64='" + perl_d_opendir64 + "'"
3270 $ WC "d_readdir64='" + perl_d_readdir64 + "'"
3271 $ WC "d_seekdir64='" + perl_d_seekdir64 + "'"
3272 $ WC "d_stat64='" + perl_d_stat64 + "'"
3273 $ WC "d_telldir64='" + perl_d_telldir64 + "'"
3274 $ WC "d_truncate64='" + perl_d_truncate64 + "'"
3275 $ WC "d_dirent64_s='" + perl_d_dirent64_s + "'"
3276 $ WC "use64bits='" + perl_use64bits + "'"
3277 $ WC "d_fgetpos64='" + perl_d_fgetpos64 + "'"
3278 $ WC "d_fopen64='" + perl_d_fopen64 + "'"
3279 $ WC "d_freopen64='" + perl_d_freopen64 + "'"
3280 $ WC "d_fseek64='" + perl_d_fseek64 + "'"
3281 $ WC "d_fseeko64='" + perl_d_fseeko64 + "'"
3282 $ WC "d_fsetpos64='" + perl_d_fsetpos64 + "'"
3283 $ WC "d_ftell64='" + perl_d_ftell64 + "'"
3284 $ WC "d_ftello64='" + perl_d_ftello64 + "'"
3285 $ WC "d_tmpfile64='" + perl_d_tmpfile64 + "'"
3286 $ WC "d_drand48proto='" + perl_d_drand48proto + "'"
3287 $ WC "d_old_pthread_create_joinable='" + perl_d_old_pthread_create_joinable + "'"
3288 $ WC "old_pthread_create_joinable='" + perl_old_pthread_create_joinable + "'"
3289 $ WC "drand01='" + perl_drand01 + "'"
3290 $ WC "randseedtype='" + perl_randseedtype + "'"
3291 $ WC "seedfunc='" + perl_seedfunc + "'"
3292 $ WC "sig_num_init='" + perl_sig_num_with_commas + "'"
3293 $ WC "i_sysmount='" + perl_i_sysmount + "'"
3294 $ WC "d_fstatfs='" + perl_d_fstatfs + "'"
3295 $ WC "d_memchr='" + perl_d_memchr + "'"
3296 $ WC "d_statfsflags='" + perl_d_statfsflags + "'"
3297 $ WC "fflushNULL='define'"
3298 $ WC "fflushall='undef'"
3299 $ WC "d_stdio_stream_array='undef'"
3300 $ WC "i_sysstatvfs='" + perl_i_sysstatvfs + "'"
3301 $ WC "i_machcthreads='" + perl_i_machcthreads + "'"
3302 $ WC "i_pthread='" + perl_i_pthread + "'"
3303 $ WC "d_fstatvfs='" + perl_d_fstatvfs + "'"
3304 $ WC "i_mntent='" + perl_i_mntent + "'"
3305 $ WC "d_getmntent='" + perl_d_getmntent + "'"
3306 $ WC "d_hasmntopt='" + perl_d_hasmntopt + "'"
3307 $ WC "d_telldirproto='" + perl_d_telldirproto + "'"
3308 $ WC "d_madvise='" + perl_d_madvise + "'"
3309 $ WC "d_msync='" + perl_d_msync + "'"
3310 $ WC "d_mprotect='" + perl_d_mprotect + "'"
3311 $ WC "d_munmap='" + perl_d_munmap + "'"
3312 $ WC "d_mmap='" + perl_d_mmap + "'"
3313 $ WC "i_sysmman='" + perl_i_sysmman + "'"
3314 $ WC "installusrbinperl='" + perl_installusrbinperl + "'"
3315 $ WC "crosscompile='" + perl_crosscompile + "'"
3316 $ WC "multiarch='" + perl_multiarch + "'"
3317 $ WC "sched_yield='" + perl_sched_yield + "'"
3319 $! ##WRITE NEW CONSTANTS HERE##
3323 $! Okay, we've gotten here. Build munchconfig and run it
3324 $ 'Perl_CC' munchconfig.c
3325 $ If (Needs_Opt.eqs."Yes")
3327 $ open/write OPTCHAN []munchconfig.opt
3328 $ IF ("''using_gnu_c'".eqs."Yes")
3330 $ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
3332 $ write OPTCHAN "Sys$Share:VAXCRTL/Share"
3334 $ link munchconfig.obj,munchconfig.opt/opt
3335 $ delete munchconfig.opt;*
3337 $ link munchconfig.obj
3340 $ echo "Writing config.h"
3342 $ ! we need an fdl file
3343 $ CREATE [-]CONFIG.FDL
3346 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
3347 $ ! First spit out the header info with the local defines (to get
3348 $ ! around the 255 character command line limit)
3349 $ OPEN/APPEND CONFIG [-]config.local
3350 $ if use_debugging_perl.eqs."Y"
3352 $ WRITE CONFIG "#define DEBUGGING"
3354 $ if use_two_pot_malloc.eqs."Y"
3356 $ WRITE CONFIG "#define TWO_POT_OPTIMIZE"
3358 $ if mymalloc.eqs."Y"
3360 $ WRITE CONFIG "#define EMBEDMYMALLOC"
3362 $ if use_pack_malloc.eqs."Y"
3364 $ WRITE CONFIG "#define PACK_MALLOC"
3366 $ if use_debugmalloc.eqs."Y"
3368 $ write config "#define DEBUGGING_MSTATS"
3370 $ if "''Using_Gnu_C'" .eqs."Yes"
3372 $ WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
3374 $ if "''Has_Dec_C_Sockets'".eqs."T"
3376 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
3377 $ WRITE CONFIG "#define DECCRTL_SOCKETS"
3379 $ if "''Has_Socketshr'".eqs."T"
3381 $ WRITE CONFIG "#define VMS_DO_SOCKETS"
3383 $! This is VMS-specific for now
3384 $ WRITE CONFIG "#''perl_d_setenv' HAS_SETENV"
3385 $ if d_alwdeftype.eqs."Y"
3387 $ WRITE CONFIG "#define SECURE_INTERNAL_GETENV"
3389 $ WRITE CONFIG "#undef SECURE_INTERNAL_GETENV"
3391 $ if d_secintgenv.eqs."Y"
3393 $ WRITE CONFIG "#define ALWAYS_DEFTYPES"
3395 $ WRITE CONFIG "#undef ALWAYS_DEFTYPES"
3397 $ WRITE CONFIG "#define HAS_ENVGETENV"
3400 $! Now build the normal config.h
3401 $ define/user sys$output [-]config.main
3402 $ mcr []munchconfig [-]config.sh [-]config_h.sh
3403 $ ! Concatenate them together
3404 $ copy [-]config.local,[-]config.main [-]config.h
3406 $ DELETE/NOLOG [-]CONFIG.MAIN;*
3407 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
3408 $ DELETE/NOLOG [-]CONFIG.FDL;*
3410 $ if "''Using_Dec_C'" .eqs."Yes"
3412 $ DECC_REPLACE = "DECC=decc=1"
3414 $ DECC_REPLACE = "DECC="
3416 $ if "''Using_Gnu_C'" .eqs."Yes"
3418 $ GNUC_REPLACE = "GNUC=gnuc=1"
3420 $ GNUC_REPLACE = "GNUC="
3422 $ if "''Has_Dec_C_Sockets'" .eqs."T"
3424 $ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
3426 $ if "''Has_Socketshr'" .eqs."T"
3428 $ SOCKET_REPLACE = "SOCKET=SOCKETSHR_SOCKETS=1"
3430 $ SOCKET_REPLACE = "SOCKET="
3433 $ IF ("''Use_Threads'".eqs."T")
3435 $ if ("''VMS_VER'".LES."6.2")
3437 $ THREAD_REPLACE = "THREAD=OLDTHREADED=1"
3439 $ THREAD_REPLACE = "THREAD=THREADED=1"
3442 $ THREAD_REPLACE = "THREAD="
3444 $ if mymalloc.eqs."Y"
3446 $ MALLOC_REPLACE = "MALLOC=MALLOC=1"
3448 $ MALLOC_REPLACE = "MALLOC="
3450 $ if f$getsyi("HW_MODEL").ge.1024
3452 $ ARCH_TYPE = "ARCH-TYPE=__AXP__"
3454 $ ARCH_TYPE = "ARCH-TYPE=__VAX__"
3456 $ echo "Writing DESCRIP.MMS"
3458 $ define/user sys$output [-]descrip.mms
3459 $ mcr []munchconfig [-]config.sh descrip_mms.template "''DECC_REPLACE'" "''ARCH_TYPE'" "''GNUC_REPLACE'" "''SOCKET_REPLACE'" "''THREAD_REPLACE'" "''C_Compiler_Replace'" "''MALLOC_REPLACE'" "''Thread_Live_Dangerously'" "PV=''LocalPerlVer'"
3460 $ echo "Extracting Build_Ext.Com"
3461 $ Create Sys$Disk:[-]Build_Ext.Com
3462 $ Deck/Dollar="$EndOfTpl$"
3464 $! NOTE: This files is extracted as part of the VMS configuration process.
3465 $! Any changes made to it directly will be lost. If you need to make any
3466 $! changes, please edit the template in [.vms]SubConfigure.Com instead.
3467 $ def = F$Environment("Default")
3468 $ exts1 = F$Edit(p1,"Compress")
3469 $ p2 = F$Edit(p2,"Upcase,Compress,Trim")
3470 $ If F$Locate("MCR ",p2).eq.0 Then p2 = F$Extract(3,255,p2)
3471 $ miniperl = "$" + F$Search(F$Parse(p2,".Exe"))
3473 $ if f$type('p3') .nes. "" then makeutil = 'p3'
3474 $ targ = F$Edit(p4,"Lowercase")
3477 $ ext = F$Element(i," ",p1)
3478 $ If ext .eqs. " " Then Goto done
3479 $ Define/User Perl_Env_Tables CLISYM_LOCAL
3481 ($extdir = $ENV{'ext'}) =~ s/::/./g;
3482 if ($extdir =~ /^vms/i) { $extdir =~ s/vms/.vms.ext/i; }
3483 else { $extdir = ".ext.$extdir"; }
3484 ($ENV{'extdir'} = "[$extdir]");
3485 ($ENV{'up'} = ('-') x ($extdir =~ tr/././));
3486 $ Set Default &extdir
3488 $ If F$Locate("clean",targ) .eqs. F$Length(targ)
3490 $ Write Sys$Output "Building ''ext' . . ."
3491 $ On Error Then Goto done
3492 $ If F$Search("Descrip.MMS") .eqs. ""
3496 $ If F$CvTime(F$File("Descrip.MMS","rdt")) .lts. -
3497 F$CvTime(F$File("Makefile.PL","rdt")) Then redesc = 1
3500 $ Write Sys$Output "''targ'ing ''ext' . . ."
3501 $ On Error Then Continue
3504 miniperl "-I[''up'.lib]" Makefile.PL "INST_LIB=[''up'.lib]" "INST_ARCHLIB=[''up'.lib]"
3518 $! Clean up after ourselves
3519 $ delete/nolog munchconfig.exe;*
3520 $ delete/nolog munchconfig.obj;*