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