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