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