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