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