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