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