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