projects / p5sagit/p5-mst-13.2.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | history | HEAD
various tweaks for PERL_OBJECT build & test
[p5sagit/p5-mst-13.2.git] / vms / subconfigure.com
CommitLineData
97abc6ad 1$! SUBCONFIGURE.COM - build a config.sh for VMS Perl.
2$!
3$! This .COM file expects to be called by configure.com, and thus expects
4$! a few symbols in the environment. Notably:
5$!
6$! One of: Using_Dec_C, Using_Vax_C, Using_Gnu_C set to "YES"
7$! Dec_C_Version set to the Dec C version (defaults to 0 if not specified)
8$! Has_Socketshr set to "T" if using socketshr
9$! Has_Dec_C_Sockets set to "T" if using Dec C sockets
10$! Use_Threads set to "T" if they're using threads
11$! C_Compiler_Invoke is the command needed to invoke the C compiler
12$!
13$! Set Dec_C_Version to something
14$ WRITE_RESULT := "WRITE SYS$OUTPUT ""%CONFIG-I-RESULT "" + "
15$ Dec_C_Version := "''Dec_C_Version'"
16$ Dec_C_Version = Dec_C_Version + 0
17$ Vms_Ver := "''f$extract(1,3, f$getsyi(""version""))'"
18$ perl_extensions := "''extensions'"
429a5e67 19$ if f$length(Mcc) .eq. 0 then Mcc := "cc"
20$ MCC = f$edit(mcc, "UPCASE")
21$ IF Mcc.eqs."CC
22$ THEN
23$ C_Compiler_Replace := "CC="
24$ ELSE
25$ C_Compiler_Replace := "CC=CC=''Mcc'"
26$ ENDIF
97abc6ad 27$ if "''Using_Dec_C'" .eqs. "Yes"
28$ THEN
29$ Checkcc := "''Mcc'/prefix=all"
30$ ELSE
31$ Checkcc := "''Mcc'"
32$ ENDIF
33$ cc_flags = ""
97abc6ad 34$! Some constant defaults.
35$
36$ hwname = f$getsyi("HW_NAME")
37$ myname = myhostname
38$ if "''myname'" .eqs. "" THEN myname = f$trnlnm("SYS$NODE")
39$ perl_package="''package'"
40$ perl_baserev = "''baserev'"
429a5e67 41$ cc_defines=""
97abc6ad 42$ perl_CONFIG="true"
43$ perl_i_netdb="undef"
44$ perl_d_gnulibc="undef"
45$ perl_cf_by="unknown"
46$ perl_ccdlflags=""
47$ perl_cccdlflags=""
48$ perl_mab=""
49$ perl_libpth="/sys$share /sys$library"
50$ perl_ld="Link"
51$ perl_lddlflags="/Share"
52$ perl_ranlib=""
53$ perl_ar=""
54$ perl_eunicefix=":"
55$ perl_hint="none"
56$ perl_hintfile=""
57$ perl_shrplib="define"
58$ perl_usemymalloc=mymalloc
59$ perl_usevfork="true"
60$ perl_useposix="false"
61$ perl_spitshell="write sys$output "
62$ perl_dlsrc="dl_vms.c"
63$ perl_man1ext="rno"
64$ perl_man3ext="rno"
65$ perl_prefix="perl_root"
66$ perl_binexp="''perl_prefix':[000000]"
67$ perl_builddir="''perl_prefix':[000000]"
68$ perl_installbin="''perl_prefix':[000000]"
69$ perl_installscript="''perl_prefix':[000000]"
70$ perl_installman1dir="''perl_prefix':[man.man1]"
71$ perl_installman3dir="''perl_prefix':[man.man3]"
72$ perl_installprivlib="''perl_prefix':[lib]"
73$ perl_installsitelib="''perl_prefix':[lib.site_perl]"
74$ perl_path_sep="|"
75$ perl_cc=Mcc
76$ perl_d_sockpair="undef"
77$ perl_i_neterrno="define"
78$ perl_ldflags="/NoTrace/NoMap"
79$ perl_d_lchown="undef"
c05f8f3d 80$ perl_d_mknod="undef"
97abc6ad 81$ perl_d_union_semun="undef"
82$ perl_d_semctl_semun="undef"
83$ perl_d_semctl_semid_ds="undef"
84$ IF (sharedperl.EQS."Y")
85$ THEN
86$ perl_obj_ext=".abj"
87$ perl_so="axe"
88$ perl_dlext="axe"
89$ perl_exe_ext=".axe"
90$ perl_lib_ext=".alb"
91$ ELSE
92$ perl_obj_ext=".obj"
93$ perl_so="exe"
94$ perl_dlext="exe"
95$ perl_exe_ext=".exe"
96$ perl_lib_ext=".olb"
97$ENDIF
98$ perl_dlobj="dl_vms''perl_obj_ext'"
99$ perl_osname="VMS"
100$ perl_d_archlib="define"
101$ perl_d_bincompat3="undef"
102$ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
103$ perl_cppminus=""
104$ perl_d_castneg="define"
105$ perl_castflags="0"
106$ perl_d_chsize="undef"
107$ perl_d_const="define"
108$ perl_d_crypt="define"
109$ perl_byteorder="1234"
110$ perl_full_csh=""
111$ perl_d_csh="undef"
112$ perl_d_dup2="define"
113$ perl_d_fchmod="undef"
114$ perl_d_fchown="undef"
115$ perl_d_fcntl="undef"
116$ perl_d_fgetpos="define"
117$ perl_d_flexfnam="define"
118$ perl_d_flock="undef"
119$ perl_d_fsetpos="define"
120$ perl_d_getgrps="undef"
121$ perl_d_setgrps="undef"
122$ perl_d_getprior="undef"
123$ perl_d_killpg="undef"
124$ perl_d_link="undef"
125$ perl_d_lstat="undef"
126$ perl_d_lockf="undef"
127$ perl_d_memcmp="define"
128$ perl_d_memcpy="define"
129$ perl_d_memmove="define"
130$ perl_d_memset="define"
131$ perl_d_mkdir="define"
132$ perl_d_msg="undef"
133$ perl_d_open3="define"
134$ perl_d_poll="undef"
135$ perl_d_readdir="define"
136$ perl_d_seekdir="define"
137$ perl_d_telldir="define"
138$ perl_d_rewinddir="define"
139$ perl_d_rename="define"
140$ perl_d_rmdir="define"
141$ perl_d_sem="undef"
142$ perl_d_setegid="undef"
143$ perl_d_seteuid="undef"
144$ perl_d_setprior="undef"
145$ perl_d_setregid="undef"
146$ perl_d_setresgid="undef"
147$ perl_d_setreuid="undef"
148$ perl_d_setresuid="undef"
149$ perl_d_setrgid="undef"
150$ perl_d_setruid="undef"
151$ perl_d_setsid="undef"
152$ perl_d_shm="undef"
153$ perl_d_shmatprototype="undef"
154$ perl_d_statblks="undef"
155$ perl_stdio_ptr="((*fp)->_ptr)"
156$ perl_stdio_cnt="((*fp)->_cnt)"
157$ perl_stdio_base="((*fp)->_base)"
158$ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
159$ perl_d_strctcpy="define"
160$ perl_d_strerror="define"
161$ perl_d_syserrlst="undef"
162$ perl_d_strerrm="strerror((e),vaxc$errno)"
163$ perl_d_symlink="undef"
164$ perl_d_syscall="undef"
165$ perl_d_system="define"
166$ perl_timetype="time_t"
167$ perl_d_vfork="define"
168$ perl_signal_t="void"
169$ perl_d_volatile="define"
170$ perl_d_vprintf="define"
171$ perl_d_charvspr="undef"
172$ perl_d_waitpid="define"
173$ perl_i_dirent="undef"
174$ perl_d_dirnamlen="define"
175$ perl_direntrytype="struct dirent"
176$ perl_i_fcntl="undef"
177$ perl_i_grp="undef"
178$ perl_i_limits="define"
179$ perl_i_memory="undef"
180$ perl_i_ndbm="undef"
181$ perl_i_stdarg="define"
182$ perl_i_pwd="undef"
183$ perl_d_pwquota="undef"
184$ perl_d_pwage="undef"
185$ perl_d_pwchange="undef"
186$ perl_d_pwclass="undef"
187$ perl_d_pwexpire="undef"
188$ perl_d_pwcomment="define"
189$ perl_i_stddef="define"
190$ perl_i_stdlib="define"
191$ perl_i_string="define"
192$ perl_i_sysdir="undef"
193$ perl_i_sysfile="undef"
194$ perl_i_sysioctl="undef"
195$ perl_i_sysndir="undef"
196$ perl_i_sysresrc="undef"
197$ perl_i_sysselct="undef"
198$ perl_i_dbm="undef"
199$ perl_i_rpcsvcdbm="undef"
200$ perl_i_sfio="undef"
201$ perl_i_sysstat="define"
202$ perl_i_systimes="undef"
203$ perl_i_systypes="define"
204$ perl_i_sysun="undef"
205$ perl_i_syswait="undef"
206$ perl_i_termio="undef"
207$ perl_i_sgtty="undef"
208$ perl_i_termios="undef"
209$ perl_i_time="define"
210$ perl_i_systime="undef"
211$ perl_i_systimek="undef"
cb38e85f 212$! perl_i_unistd="undef"
97abc6ad 213$ perl_i_utime="undef"
214$ perl_i_varargs="undef"
215$ perl_i_vfork="undef"
216$ perl_prototype="define"
217$ perl_randbits="31"
218$ perl_stdchar="char"
219$ perl_d_unlink_all_versions="undef"
220$ perl_full_sed="_NLA0:"
221$ perl_bin="/''perl_prefix'/000000"
222$ perl_binexp="''perl_prefix':[000000]"
223$ perl_d_alarm="define"
224$ perl_d_casti32="define"
225$ perl_d_chown="define"
226$ perl_d_chroot="undef"
227$ perl_d_cuserid="define"
228$ perl_d_dbl_dig="define"
229$ perl_d_difftime="define"
230$ perl_d_fork="undef"
231$ perl_d_getlogin="define"
232$ perl_d_getppid="undef"
233$ perl_d_nice="define"
234$ perl_d_pause="define"
235$ perl_d_pipe="define"
236$ perl_d_readlink="undef"
237$ perl_d_setlinebuf="undef"
238$ perl_d_strchr="define"
239$ perl_d_strtod="define"
240$ perl_d_strtol="define"
241$ perl_d_strtoul="define"
242$ perl_d_tcgetpgrp="undef"
243$ perl_d_tcsetpgrp="undef"
244$ perl_d_times="define"
245$ perl_d_tzname="undef"
246$ perl_d_umask="define"
247$ perl_fpostype="fpos_t"
248$ perl_i_dlfcn="undef"
249$ perl_i_float="define"
250$ perl_i_math="define"
251$ perl_lseektype="int"
252$ perl_i_values="undef"
253$ perl_malloctype="void *"
254$ perl_freetype="void"
255$ if "''mymalloc'".eqs."Y"
256$ THEN
257$ perl_d_mymalloc="define"
258$ ELSE
259$ perl_d_mymalloc="undef"
260$ENDIF
261$ perl_sh="MCR"
262$ perl_modetype="unsigned int"
263$ perl_ssizetype="int"
264$ perl_o_nonblock=""
265$ perl_eagain=""
266$ perl_rd_nodata=""
267$ perl_d_eofnblk="undef"
268$ perl_d_oldarchlib="define"
269$ perl_privlibexp="''perl_prefix':[lib]"
270$ perl_privlib="''perl_prefix':[lib]"
271$ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
272$ perl_sitelib="''perl_prefix':[lib.site_perl]"
273$ perl_sizetype="size_t"
274$ perl_i_sysparam="undef"
275$ perl_d_void_closedir="define"
276$ perl_d_dlerror="undef"
277$ perl_d_dlsymun="undef"
278$ perl_d_suidsafe="undef"
279$ perl_d_dosuid="undef"
280$ perl_d_inetaton="undef"
281$ perl_d_isascii="define"
282$ perl_d_mkfifo="undef"
283$ perl_d_safebcpy="undef"
284$ perl_d_safemcpy="define"
285$ perl_d_sanemcmp="define"
286$ perl_d_setpgrp="undef"
287$ perl_d_bsdsetpgrp="undef"
288$ perl_d_bsdpgrp="undef"
289$ perl_d_setpgid="undef"
290$ perl_d_setpgrp2="undef"
291$ perl_d_Gconvert="my_gconvert(x,n,t,b)"
292$ perl_d_getpgid="undef"
293$ perl_d_getpgrp="undef"
294$ perl_d_bsdgetpgrp="undef"
295$ perl_d_getpgrp2="undef"
296$ perl_d_sfio="undef"
297$ perl_usedl="define"
298$ perl_startperl=""
299$ perl_db_hashtype=""
300$ perl_db_prefixtype=""
301$ perl_useperlio="undef"
302$ perl_defvoidused="15"
303$ perl_voidflags="15"
304$ perl_d_eunice="undef"
305$ perl_d_pwgecos="define"
306$ IF ("''Use_Threads'".eqs."T").and.("''VMS_VER'".LES."6.2")
307$ THEN
308$ 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"
309$ ELSE
310$ perl_libs=""
311$ ENDIF
312$ IF ("''Using_Dec_C'".eqs."Yes")
313$ THEN
314$ perl_libc="(DECCRTL)"
315$ ELSE
316$ perl_libc=""
317$ ENDIF
318$ perl_PATCHLEVEL="''patchlevel'"
319$ perl_SUBVERSION="''subversion'"
320$ perl_pager="most"
321$!
322$!
323$! Now some that we build up
324$!
325$ LocalTime = f$time()
326$ perl_cf_time= f$extract(0, 3, f$cvtime(LocalTime,, "WEEKDAY")) + " " + -
327 f$edit(f$cvtime(LocalTime, "ABSOLUTE", "MONTH"), "LOWERCASE") + -
328 " " + f$cvtime(LocalTime,, "DAY") + " " + f$cvtime(LocalTime,, "TIME") + -
329 " " + f$cvtime(LocalTime,, "YEAR")
330$ if f$getsyi("HW_MODEL").ge.1024
331$ THEN
332$ perl_arch="VMS_AXP"
333$ perl_archname="VMS_AXP"
334$ perl_alignbytes="8"
335$ ELSE
336$ perl_arch="VMS_VAX"
337$ perl_archname="VMS_VAX"
338$ perl_alignbytes="8"
339$ ENDIF
340$ perl_osvers=f$edit(osvers, "TRIM")
341$ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion
342$!
343$! Some that we need to invoke the compiler for
344$ OS := "open/write SOURCECHAN []temp.c"
345$ WS := "write SOURCECHAN"
346$ CS := "close SOURCECHAN"
347$ DS := "delete/nolog []temp.*;*"
348$ Needs_Opt := "No"
349$ if ("''using_vax_c'".eqs."Yes").or.("''using_gnu_c'".eqs."Yes")
350$ THEN
351$ open/write OPTCHAN []temp.opt
352$ IF ("''using_gnu_c'".eqs."Yes")
353$ THEN
354$ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
355$ endif
356$ write OPTCHAN "Sys$Share:VAXCRTL/Share"
357$ Close OPTCHAN
358$ Needs_Opt := "Yes"
359$ ENDIF
360$!
361$! Check for __STDC__
362$!
363$ OS
364$ WS "#ifdef __DECC
365$ WS "#include <stdlib.h>
366$ WS "#endif
367$ WS "#include <stdio.h>
368$ WS "int main()
369$ WS "{"
370$ WS "#ifdef __STDC__
371$ WS "printf(""42\n"");
372$ WS "#else
373$ WS "printf(""1\n"");
374$ WS "#endif
375$ WS "exit(0);
376$ WS "}"
377$ CS
378$ DEFINE SYS$ERROR _NLA0:
379$ DEFINE SYS$OUTPUT _NLA0:
380$ ON ERROR THEN CONTINUE
381$ ON WARNING THEN CONTINUE
382$ 'Checkcc' temp
383$ If (Needs_Opt.eqs."Yes")
384$ THEN
385$ link temp,temp/opt
386$ else
387$ link temp
388$ endif
389$ DEASSIGN SYS$OUTPUT
390$ DEASSIGN SYS$ERROR
391$ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
392$ DEFINE SYS$ERROR TEMPOUT
393$ DEFINE SYS$OUTPUT TEMPOUT
394$ mcr []temp
395$ CLOSE TEMPOUT
396$ DEASSIGN SYS$OUTPUT
397$ DEASSIGN SYS$ERROR
398$ OPEN/READ TEMPOUT [-.uu]tempout.lis
399$ READ TEMPOUT line
400$ CLOSE TEMPOUT
401$
402$ perl_cpp_stuff=line
403$ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
404$!
405$! Check for double size
406$!
407$ OS
408$ WS "#ifdef __DECC
409$ WS "#include <stdlib.h>
410$ WS "#endif
411$ WS "#include <stdio.h>
412$ WS "int main()
413$ WS "{"
429a5e67 414$ WS "int foo;
415$ WS "foo = sizeof(double);
416$ WS "printf(""%d\n"", foo);
97abc6ad 417$ WS "exit(0);
418$ WS "}"
419$ CS
420$ DEFINE SYS$ERROR _NLA0:
421$ DEFINE SYS$OUTPUT _NLA0:
422$ ON ERROR THEN CONTINUE
423$ ON WARNING THEN CONTINUE
424$ 'Checkcc' temp
425$ If (Needs_Opt.eqs."Yes")
426$ THEN
427$ link temp,temp/opt
428$ else
429$ link temp
430$ endif
431$! link temp
432$ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
433$ DEASSIGN SYS$OUTPUT
434$ DEASSIGN SYS$ERROR
435$ DEFINE SYS$ERROR TEMPOUT
436$ DEFINE SYS$OUTPUT TEMPOUT
437$ mcr []temp
438$ CLOSE TEMPOUT
439$ DEASSIGN SYS$OUTPUT
440$ DEASSIGN SYS$ERROR
441$ OPEN/READ TEMPOUT [-.uu]tempout.lis
442$ READ TEMPOUT line
443$ CLOSE TEMPOUT
444$
445$ perl_doublesize=line
446$ WRITE_RESULT "doublesize is ''perl_doublesize'"
447$!
448$! Check for long double size
449$!
450$ OS
451$ WS "#ifdef __DECC
452$ WS "#include <stdlib.h>
453$ WS "#endif
454$ WS "#include <stdio.h>
455$ WS "int main()
456$ WS "{"
429a5e67 457$ WS "printf(""%d\n"", sizeof(long double));
97abc6ad 458$ WS "exit(0);
459$ WS "}"
460$ CS
461$ DEFINE SYS$ERROR _NLA0:
462$ DEFINE SYS$OUTPUT _NLA0:
463$ ON ERROR THEN CONTINUE
464$ ON WARNING THEN CONTINUE
465$ 'Checkcc' temp
466$ teststatus = f$extract(9,1,$status)
467$ if (teststatus.nes."1")
468$ THEN
469$ perl_longdblsize="0"
470$ perl_d_longdbl="undef"
471$ ELSE
472$ ON ERROR THEN CONTINUE
473$ ON WARNING THEN CONTINUE
474$ If (Needs_Opt.eqs."Yes")
475$ THEN
476$ link temp,temp/opt
477$ else
478$ link temp
479$ endif
480$ teststatus = f$extract(9,1,$status)
481$ DEASSIGN SYS$OUTPUT
482$ DEASSIGN SYS$ERROR
483$ if (teststatus.nes."1")
484$ THEN
485$ perl_longdblsize="0"
486$ perl_d_longdbl="undef"
487$ ELSE
488$ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
489$ DEFINE SYS$ERROR TEMPOUT
490$ DEFINE SYS$OUTPUT TEMPOUT
491$ mcr []temp
492$ CLOSE TEMPOUT
493$ DEASSIGN SYS$OUTPUT
494$ DEASSIGN SYS$ERROR
495$ OPEN/READ TEMPOUT [-.uu]tempout.lis
496$ READ TEMPOUT line
497$ CLOSE TEMPOUT
498$
499$ perl_longdblsize=line
500$ perl_d_longdbl="define"
501$ ENDIF
502$ ENDIF
503$ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
504$ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
505$!
506$! Check for long long existance and size
507$!
508$ OS
509$ WS "#ifdef __DECC
510$ WS "#include <stdlib.h>
511$ WS "#endif
512$ WS "#include <stdio.h>
513$ WS "int main()
514$ WS "{"
429a5e67 515$ WS "printf(""%d\n"", sizeof(long long));
97abc6ad 516$ WS "exit(0);
517$ WS "}"
518$ CS
519$ DEFINE SYS$ERROR _NLA0:
520$ DEFINE SYS$OUTPUT _NLA0:
521$ on error then continue
522$ on warning then continue
523$ 'Checkcc' temp
524$ If (Needs_Opt.eqs."Yes")
525$ THEN
526$ link temp,temp/opt
527$ else
528$ link temp
529$ endif
530$ teststatus = f$extract(9,1,$status)
531$ DEASSIGN SYS$OUTPUT
532$ DEASSIGN SYS$ERROR
533$ if (teststatus.nes."1")
534$ THEN
535$ perl_longlongsize="0"
536$ perl_d_longlong="undef"
537$ ELSE
538$ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
539$ DEFINE SYS$ERROR TEMPOUT
540$ DEFINE SYS$OUTPUT TEMPOUT
541$ mcr []temp
542$ CLOSE TEMPOUT
543$ DEASSIGN SYS$OUTPUT
544$ DEASSIGN SYS$ERROR
545$ OPEN/READ TEMPOUT [-.uu]tempout.lis
546$ READ TEMPOUT line
547$ CLOSE TEMPOUT
548$
549$ perl_longlongsize=line
550$ perl_d_longlong="define"
551$ ENDIF
552$ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
553$ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
554$!
555$! Check for int size
556$!
557$ OS
558$ WS "#ifdef __DECC
559$ WS "#include <stdlib.h>
560$ WS "#endif
561$ WS "#include <stdio.h>
562$ WS "int main()
563$ WS "{"
429a5e67 564$ WS "printf(""%d\n"", sizeof(int));
97abc6ad 565$ WS "exit(0);
566$ WS "}"
567$ CS
568$ DEFINE SYS$ERROR _NLA0:
569$ DEFINE SYS$OUTPUT _NLA0:
570$ on error then continue
571$ on warning then continue
572$ 'Checkcc' temp
573$ If (Needs_Opt.eqs."Yes")
574$ THEN
575$ link temp,temp/opt
576$ else
577$ link temp
578$ endif
579$ If (Needs_Opt.eqs."Yes")
580$ THEN
581$ link temp,temp/opt
582$ else
583$ link temp
584$ endif
585$ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
586$ DEASSIGN SYS$OUTPUT
587$ DEASSIGN SYS$ERROR
588$ DEFINE SYS$ERROR TEMPOUT
589$ DEFINE SYS$OUTPUT TEMPOUT
590$ mcr []temp
591$ CLOSE TEMPOUT
592$ DEASSIGN SYS$OUTPUT
593$ DEASSIGN SYS$ERROR
594$ OPEN/READ TEMPOUT [-.uu]tempout.lis
595$ READ TEMPOUT line
596$ CLOSE TEMPOUT
597$
598$ perl_intsize=line
599$ WRITE_RESULT "intsize is ''perl_intsize'"
600$!
601$! Check for short size
602$!
603$ OS
604$ WS "#ifdef __DECC
605$ WS "#include <stdlib.h>
606$ WS "#endif
607$ WS "#include <stdio.h>
608$ WS "int main()
609$ WS "{"
429a5e67 610$ WS "printf(""%d\n"", sizeof(short));
97abc6ad 611$ WS "exit(0);
612$ WS "}"
613$ CS
614$ DEFINE SYS$ERROR _NLA0:
615$ DEFINE SYS$OUTPUT _NLA0:
616$ on error then continue
617$ on warning then continue
618$ 'Checkcc' temp
619$ If (Needs_Opt.eqs."Yes")
620$ THEN
621$ link temp,temp/opt
622$ else
623$ link temp
624$ endif
625$ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
626$ DEASSIGN SYS$OUTPUT
627$ DEASSIGN SYS$ERROR
628$ DEFINE SYS$ERROR TEMPOUT
629$ DEFINE SYS$OUTPUT TEMPOUT
630$ mcr []temp
631$ CLOSE TEMPOUT
632$ DEASSIGN SYS$OUTPUT
633$ DEASSIGN SYS$ERROR
634$ OPEN/READ TEMPOUT [-.uu]tempout.lis
635$ READ TEMPOUT line
636$ CLOSE TEMPOUT
637$
638$ perl_shortsize=line
639$ WRITE_RESULT "shortsize is ''perl_shortsize'"
640$!
641$! Check for long size
642$!
643$ OS
644$ WS "#ifdef __DECC
645$ WS "#include <stdlib.h>
646$ WS "#endif
647$ WS "#include <stdio.h>
648$ WS "int main()
649$ WS "{"
429a5e67 650$ WS "int foo;
651$ WS "foo = sizeof(long);
652$ WS "printf(""%d\n"", foo);
97abc6ad 653$ WS "exit(0);
654$ WS "}"
655$ CS
656$ DEFINE SYS$ERROR _NLA0:
657$ DEFINE SYS$OUTPUT _NLA0:
658$ on error then continue
659$ on warning then continue
660$ 'Checkcc' temp
661$ If (Needs_Opt.eqs."Yes")
662$ THEN
663$ link temp,temp/opt
664$ else
665$ link temp
666$ endif
667$ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
668$ DEASSIGN SYS$OUTPUT
669$ DEASSIGN SYS$ERROR
670$ DEFINE SYS$ERROR TEMPOUT
671$ DEFINE SYS$OUTPUT TEMPOUT
672$ mcr []temp
673$ CLOSE TEMPOUT
674$ DEASSIGN SYS$OUTPUT
675$ DEASSIGN SYS$ERROR
676$ OPEN/READ TEMPOUT [-.uu]tempout.lis
677$ READ TEMPOUT line
678$ CLOSE TEMPOUT
679$
680$ perl_longsize=line
681$ WRITE_RESULT "longsize is ''perl_longsize'"
682$!
683$! Check the prototype for getgid
684$!
685$ OS
686$ WS "#ifdef __DECC
687$ WS "#include <stdlib.h>
688$ WS "#endif
689$ WS "#include <stdio.h>
690$ WS "#include <types.h>
691$ WS "#include <unistd.h>
692$ WS "int main()
693$ WS "{"
694$ WS "gid_t foo;
695$ WS "exit(0);
696$ WS "}"
697$ CS
698$ DEFINE SYS$ERROR _NLA0:
699$ DEFINE SYS$OUTPUT _NLA0:
700$ on error then continue
701$ on warning then continue
702$ 'Checkcc' temp
703$ teststatus = f$extract(9,1,$status)
704$ DEASSIGN SYS$OUTPUT
705$ DEASSIGN SYS$ERROR
706$ if (teststatus.nes."1")
707$ THEN
708$! Okay, gid_t failed. Must be unsigned int
709$ perl_gidtype = "unsigned int"
710$ ELSE
711$ perl_gidtype = "gid_t"
712$ ENDIF
713$ WRITE_RESULT "Gid_t is ''perl_gidtype'"
714$!
cb38e85f 715$! Check to see if we've got dev_t
c05f8f3d 716$!
717$ OS
718$ WS "#ifdef __DECC
719$ WS "#include <stdlib.h>
720$ WS "#endif
721$ WS "#include <stdio.h>
722$ WS "#include <types.h>
723$ WS "#include <unistd.h>
724$ WS "int main()
725$ WS "{"
726$ WS "dev_t foo;
727$ WS "exit(0);
728$ WS "}"
729$ CS
730$ DEFINE SYS$ERROR _NLA0:
731$ DEFINE SYS$OUTPUT _NLA0:
732$ on error then continue
733$ on warning then continue
734$ 'Checkcc' temp
735$ teststatus = f$extract(9,1,$status)
736$ DEASSIGN SYS$OUTPUT
737$ DEASSIGN SYS$ERROR
738$ if (teststatus.nes."1")
739$ THEN
740$! Okay, dev_t failed. Must be unsigned int
741$ perl_devtype = "unsigned int"
742$ ELSE
743$ perl_devtype = "dev_t"
744$ ENDIF
745$ WRITE_RESULT "Dev_t is ''perl_devtype'"
746$!
cb38e85f 747$! Check to see if we've got unistd.h (which we ought to, but you never know)
748$!
749$ OS
750$ WS "#ifdef __DECC
751$ WS "#include <stdlib.h>
752$ WS "#endif
753$ WS "#include <unistd.h>
754$ WS "int main()
755$ WS "{"
756$ WS "exit(0);
757$ WS "}"
758$ CS
759$ DEFINE SYS$ERROR _NLA0:
760$ DEFINE SYS$OUTPUT _NLA0:
761$ on error then continue
762$ on warning then continue
763$ 'Checkcc' temp
764$ teststatus = f$extract(9,1,$status)
765$ DEASSIGN SYS$OUTPUT
766$ DEASSIGN SYS$ERROR
767$ if (teststatus.nes."1")
768$ THEN
769$! Okay, failed. Must not have it
770$ perl_i_unistd = "undef"
771$ ELSE
772$ perl_i_unistd = "define"
773
774$ ENDIF
775$ WRITE_RESULT "i_unistd is ''perl_i_unistd'"
776$!
97abc6ad 777$! Check the prototype for select
778$!
779$ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
780$ THEN
781$ OS
782$ WS "#ifdef __DECC
783$ WS "#include <stdlib.h>
784$ WS "#endif
785$ WS "#include <stdio.h>
786$ WS "#include <types.h>
787$ WS "#include <unistd.h>
788$ if ("''Has_Socketshr'".eqs."T")
789$ THEN
790$ WS "#include <socketshr.h>"
791$ else
792$ WS "#include <time.h>
793$ WS "#include <socket.h>
794$ endif
795$ WS "int main()
796$ WS "{"
797$ WS "fd_set *foo;
798$ WS "int bar;
799$ WS "foo = NULL;
800$ WS "bar = select(2, foo, foo, foo, NULL);
801$ WS "exit(0);
802$ WS "}"
803$ CS
804$ DEFINE SYS$ERROR _NLA0:
805$ DEFINE SYS$OUTPUT _NLA0:
806$ on error then continue
807$ on warning then continue
808$ 'Checkcc' temp
809$ teststatus = f$extract(9,1,$status)
810$ DEASSIGN SYS$OUTPUT
811$ DEASSIGN SYS$ERROR
812$ if (teststatus.nes."1")
813$ THEN
814$! Okay, fd_set failed. Must be an int
815$ perl_selecttype = "int *"
816$ ELSE
817$ perl_selecttype="fd_set *"
818$ ENDIF
819$ ELSE
820$ ! No sockets, so stick in an int *
821$ perl_selecttype = "int *"
822$ ENDIF
823$ WRITE_RESULT "selectype is ''perl_selecttype'"
824$!
825$! Check for bzero
826$!
827$ OS
828$ WS "#ifdef __DECC
829$ WS "#include <stdlib.h>
830$ WS "#endif
831$ WS "#include <stdio.h>
832$ WS "#include <strings.h>
833$ WS "int main()
834$ WS "{"
835$ WS "char foo[10];
836$ WS "bzero(foo, 10);
837$ WS "exit(0);
838$ WS "}"
839$ CS
840$ DEFINE SYS$ERROR _NLA0:
841$ DEFINE SYS$OUTPUT _NLA0:
842$ on error then continue
843$ on warning then continue
844$ 'Checkcc' temp
845$ savedstatus = $status
846$ teststatus = f$extract(9,1,savedstatus)
847$ if (teststatus.nes."1")
848$ THEN
849$ perl_d_bzero="undef"
850$ DEASSIGN SYS$OUTPUT
851$ DEASSIGN SYS$ERROR
852$ ELSE
853$ If (Needs_Opt.eqs."Yes")
854$ THEN
855$ link temp,temp/opt
856$ else
857$ link temp
858$ endif
859$ savedstatus = $status
860$ teststatus = f$extract(9,1,savedstatus)
861$ DEASSIGN SYS$OUTPUT
862$ DEASSIGN SYS$ERROR
863$ if (teststatus.nes."1")
864$ THEN
865$ perl_d_bzero="undef"
866$ ELSE
867$ perl_d_bzero="define"
868$ ENDIF
869$ ENDIF
870$ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
871$!
872$! Check for bcopy
873$!
874$ OS
875$ WS "#ifdef __DECC
876$ WS "#include <stdlib.h>
877$ WS "#endif
878$ WS "#include <stdio.h>
879$ WS "#include <strings.h>
880$ WS "int main()
881$ WS "{"
882$ WS "char foo[10], bar[10];
883$ WS "bcopy(""foo"", bar, 3);
884$ WS "exit(0);
885$ WS "}"
886$ CS
887$ DEFINE SYS$ERROR _NLA0:
888$ DEFINE SYS$OUTPUT _NLA0:
889$ on error then continue
890$ on warning then continue
891$ 'Checkcc' temp
892$ savedstatus = $status
893$ teststatus = f$extract(9,1,savedstatus)
894$ if (teststatus.nes."1")
895$ THEN
896$ perl_d_bcopy="undef"
897$ DEASSIGN SYS$OUTPUT
898$ DEASSIGN SYS$ERROR
899$ ELSE
900$ If (Needs_Opt.eqs."Yes")
901$ THEN
902$ link temp,temp/opt
903$ else
904$ link temp
905$ endif
906$ savedstatus = $status
907$ teststatus = f$extract(9,1,savedstatus)
908$ DEASSIGN SYS$OUTPUT
909$ DEASSIGN SYS$ERROR
910$ if (teststatus.nes."1")
911$ THEN
912$ perl_d_bcopy="undef"
913$ ELSE
914$ perl_d_bcopy="define"
915$ ENDIF
916$ ENDIF
917$ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
918$!
919$! Check for mkstemp
920$!
921$ OS
922$ WS "#ifdef __DECC
923$ WS "#include <stdlib.h>
924$ WS "#endif
925$ WS "#include <stdio.h>
926$ WS "int main()
927$ WS "{"
928$ WS "mkstemp(""foo"");
929$ WS "exit(0);
930$ WS "}"
931$ CS
932$ DEFINE SYS$ERROR _NLA0:
933$ DEFINE SYS$OUTPUT _NLA0:
934$ on error then continue
935$ on warning then continue
936$ 'Checkcc' temp
937$ If (Needs_Opt.eqs."Yes")
938$ THEN
939$ link temp,temp/opt
940$ else
941$ link temp
942$ endif
943$ savedstatus = $status
944$ teststatus = f$extract(9,1,savedstatus)
945$ DEASSIGN SYS$OUTPUT
946$ DEASSIGN SYS$ERROR
947$ if (teststatus.nes."1")
948$ THEN
949$ perl_d_mkstemp="undef"
950$ ELSE
951$ perl_d_mkstemp="define"
952$ ENDIF
953$ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
954$!
955$! Check for setvbuf
956$!
957$ OS
958$ WS "#ifdef __DECC
959$ WS "#include <stdlib.h>
960$ WS "#endif
961$ WS "#include <stdio.h>
962$ WS "int main()
963$ WS "{"
964$ WS "FILE *foo;
965$ WS "char Buffer[99];
966$ WS "foo = fopen(""foo"", ""r"");
967$ WS "setvbuf(foo, Buffer, 0, 0);
968$ WS "exit(0);
969$ WS "}"
970$ CS
971$ DEFINE SYS$ERROR _NLA0:
972$ DEFINE SYS$OUTPUT _NLA0:
973$ on error then continue
974$ on warning then continue
975$ 'Checkcc' temp
976$ If (Needs_Opt.eqs."Yes")
977$ THEN
978$ link temp,temp/opt
979$ else
980$ link temp
981$ endif
982$ teststatus = f$extract(9,1,$status)
983$ DEASSIGN SYS$OUTPUT
984$ DEASSIGN SYS$ERROR
985$ if (teststatus.nes."1")
986$ THEN
987$ perl_d_setvbuf="undef"
988$ ELSE
989$ perl_d_setvbuf="define"
990$ ENDIF
991$ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
992$!
993$! Check for <netinet/in.h>
994$!
995$ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
996$ THEN
997$ OS
998$ WS "#ifdef __DECC
999$ WS "#include <stdlib.h>
1000$ WS "#endif
1001$ WS "#include <stdio.h>
1002$ if ("''Has_Socketshr'".eqs."T")
1003$ THEN
1004$ WS "#include <socketshr.h>"
1005$ else
1006$ WS "#include <netdb.h>
1007$ endif
1008$ WS "#include <netinet/in.h>"
1009$ WS "int main()
1010$ WS "{"
1011$ WS "exit(0);
1012$ WS "}"
1013$ CS
1014$ DEFINE SYS$ERROR _NLA0:
1015$ DEFINE SYS$OUTPUT _NLA0:
1016$ on error then continue
1017$ on warning then continue
1018$ 'Checkcc' temp
1019$ If (Needs_Opt.eqs."Yes")
1020$ THEN
1021$ link temp,temp/opt
1022$ else
1023$ link temp
1024$ endif
1025$ teststatus = f$extract(9,1,$status)
1026$ DEASSIGN SYS$OUTPUT
1027$ DEASSIGN SYS$ERROR
1028$ if (teststatus.nes."1")
1029$ THEN
1030$ perl_i_niin="undef"
1031$ ELSE
1032$ perl_i_niin="define"
1033$ ENDIF
1034$ ELSE
1035$ perl_i_niin="undef"
1036$ ENDIF
1037$ WRITE_RESULT "i_niin is ''perl_i_niin'"
1038$!
1039$! Check for endhostent
1040$!
1041$ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1042$ THEN
1043$ OS
1044$ WS "#ifdef __DECC
1045$ WS "#include <stdlib.h>
1046$ WS "#endif
1047$ WS "#include <stdio.h>
1048$ if ("''Has_Socketshr'".eqs."T")
1049$ THEN
1050$ WS "#include <socketshr.h>"
1051$ else
1052$ WS "#include <netdb.h>
1053$ endif
1054$ WS "int main()
1055$ WS "{"
1056$ WS "endhostent();
1057$ WS "exit(0);
1058
1059$ CS
1060$ DEFINE SYS$ERROR _NLA0:
1061$ DEFINE SYS$OUTPUT _NLA0:
1062$ on error then continue
1063$ on warning then continue
1064$ 'Checkcc' temp
1065$ If (Needs_Opt.eqs."Yes")
1066$ THEN
1067$ link temp,temp/opt
1068$ else
1069$ link temp
1070$ endif
1071$ teststatus = f$extract(9,1,$status)
1072$ DEASSIGN SYS$OUTPUT
1073$ DEASSIGN SYS$ERROR
1074$ if (teststatus.nes."1")
1075$ THEN
1076$ perl_d_endhent="undef"
1077$ ELSE
1078$ perl_d_endhent="define"
1079$ ENDIF
1080$ ELSE
1081$ perl_d_endhent="undef"
1082$ ENDIF
1083$ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
1084$!
1085$! Check for endnetent
1086$!
1087$ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1088$ THEN
1089$ OS
1090$ WS "#ifdef __DECC
1091$ WS "#include <stdlib.h>
1092$ WS "#endif
1093$ WS "#include <stdio.h>
1094$ if ("''Has_Socketshr'".eqs."T")
1095$ THEN
1096$ WS "#include <socketshr.h>"
1097$ else
1098$ WS "#include <netdb.h>
1099$ endif
1100$ WS "int main()
1101$ WS "{"
1102$ WS "endnetent();
1103$ WS "exit(0);
1104$ WS "}"
1105$ CS
1106$ DEFINE SYS$ERROR _NLA0:
1107$ DEFINE SYS$OUTPUT _NLA0:
1108$ on error then continue
1109$ on warning then continue
1110$ 'Checkcc' temp
1111$ If (Needs_Opt.eqs."Yes")
1112$ THEN
1113$ link temp,temp/opt
1114$ else
1115$ link temp
1116$ endif
1117$ teststatus = f$extract(9,1,$status)
1118$ DEASSIGN SYS$OUTPUT
1119$ DEASSIGN SYS$ERROR
1120$ if (teststatus.nes."1")
1121$ THEN
1122$ perl_d_endnent="undef"
1123$ ELSE
1124$ perl_d_endnent="define"
1125$ ENDIF
1126$ ELSE
1127$ perl_d_endnent="undef"
1128$ ENDIF
1129$ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
1130$!
1131$! Check for endprotoent
1132$!
1133$ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1134$ THEN
1135$ OS
1136$ WS "#ifdef __DECC
1137$ WS "#include <stdlib.h>
1138$ WS "#endif
1139$ WS "#include <stdio.h>
1140$ if ("''Has_Socketshr'".eqs."T")
1141$ THEN
1142$ WS "#include <socketshr.h>"
1143$ else
1144$ WS "#include <netdb.h>
1145$ endif
1146$ WS "int main()
1147$ WS "{"
1148$ WS "endprotoent();
1149$ WS "exit(0);
1150$ WS "}"
1151$ CS
1152$ DEFINE SYS$ERROR _NLA0:
1153$ DEFINE SYS$OUTPUT _NLA0:
1154$ on error then continue
1155$ on warning then continue
1156$ 'Checkcc' temp
1157$ If (Needs_Opt.eqs."Yes")
1158$ THEN
1159$ link temp,temp/opt
1160$ else
1161$ link temp
1162$ endif
1163$ teststatus = f$extract(9,1,$status)
1164$ DEASSIGN SYS$OUTPUT
1165$ DEASSIGN SYS$ERROR
1166$ if (teststatus.nes."1")
1167$ THEN
1168$ perl_d_endpent="undef"
1169$ ELSE
1170$ perl_d_endpent="define"
1171$ ENDIF
1172$ ELSE
1173$ perl_d_endpent="undef"
1174$ ENDIF
1175$ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
1176$!
1177$! Check for endservent
1178$!
1179$ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1180$ THEN
1181$ OS
1182$ WS "#ifdef __DECC
1183$ WS "#include <stdlib.h>
1184$ WS "#endif
1185$ WS "#include <stdio.h>
1186$ if ("''Has_Socketshr'".eqs."T")
1187$ THEN
1188$ WS "#include <socketshr.h>"
1189$ else
1190$ WS "#include <netdb.h>
1191$ endif
1192$ WS "int main()
1193$ WS "{"
1194$ WS "endservent();
1195$ WS "exit(0);
1196$ WS "}"
1197$ CS
1198$ DEFINE SYS$ERROR _NLA0:
1199$ DEFINE SYS$OUTPUT _NLA0:
1200$ on error then continue
1201$ on warning then continue
1202$ 'Checkcc' temp
1203$ If (Needs_Opt.eqs."Yes")
1204$ THEN
1205$ link temp,temp/opt
1206$ else
1207$ link temp
1208$ endif
1209$ teststatus = f$extract(9,1,$status)
1210$ DEASSIGN SYS$OUTPUT
1211$ DEASSIGN SYS$ERROR
1212$ if (teststatus.nes."1")
1213$ THEN
1214$ perl_d_endsent="undef"
1215$ ELSE
1216$ perl_d_endsent="define"
1217$ ENDIF
1218$ ELSE
1219$ perl_d_endsent="undef"
1220$ ENDIF
1221$ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
1222$!
1223$! Check for sethostent
1224$!
1225$ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1226$ THEN
1227$ OS
1228$ WS "#ifdef __DECC
1229$ WS "#include <stdlib.h>
1230$ WS "#endif
1231$ WS "#include <stdio.h>
1232$ if ("''Has_Socketshr'".eqs."T")
1233$ THEN
1234$ WS "#include <socketshr.h>"
1235$ else
1236$ WS "#include <netdb.h>
1237$ endif
1238$ WS "int main()
1239$ WS "{"
1240$ WS "sethostent(1);
1241$ WS "exit(0);
1242$ WS "}"
1243$ CS
1244$ DEFINE SYS$ERROR _NLA0:
1245$ DEFINE SYS$OUTPUT _NLA0:
1246$ on error then continue
1247$ on warning then continue
1248$ 'Checkcc' temp
1249$ If (Needs_Opt.eqs."Yes")
1250$ THEN
1251$ link temp,temp/opt
1252$ else
1253$ link temp
1254$ endif
1255$ teststatus = f$extract(9,1,$status)
1256$ DEASSIGN SYS$OUTPUT
1257$ DEASSIGN SYS$ERROR
1258$ if (teststatus.nes."1")
1259$ THEN
1260$ perl_d_sethent="undef"
1261$ ELSE
1262$ perl_d_sethent="define"
1263$ ENDIF
1264$ ELSE
1265$ perl_d_sethent="undef"
1266$ ENDIF
1267$ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
1268$!
1269$! Check for setnetent
1270$!
1271$ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1272$ THEN
1273$ OS
1274$ WS "#ifdef __DECC
1275$ WS "#include <stdlib.h>
1276$ WS "#endif
1277$ WS "#include <stdio.h>
1278$ if ("''Has_Socketshr'".eqs."T")
1279$ THEN
1280$ WS "#include <socketshr.h>"
1281$ else
1282$ WS "#include <netdb.h>
1283$ endif
1284$ WS "int main()
1285$ WS "{"
1286$ WS "setnetent(1);
1287$ WS "exit(0);
1288$ WS "}"
1289$ CS
1290$ DEFINE SYS$ERROR _NLA0:
1291$ DEFINE SYS$OUTPUT _NLA0:
1292$ on error then continue
1293$ on warning then continue
1294$ 'Checkcc' temp
1295$ If (Needs_Opt.eqs."Yes")
1296$ THEN
1297$ link temp,temp/opt
1298$ else
1299$ link temp
1300$ endif
1301$ teststatus = f$extract(9,1,$status)
1302$ DEASSIGN SYS$OUTPUT
1303$ DEASSIGN SYS$ERROR
1304$ if (teststatus.nes."1")
1305$ THEN
1306$ perl_d_setnent="undef"
1307$ ELSE
1308$ perl_d_setnent="define"
1309$ ENDIF
1310$ ELSE
1311$ perl_d_setnent="undef"
1312$ ENDIF
1313$ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
1314$!
1315$! Check for setprotoent
1316$!
1317$ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1318$ THEN
1319$ OS
1320$ WS "#ifdef __DECC
1321$ WS "#include <stdlib.h>
1322$ WS "#endif
1323$ WS "#include <stdio.h>
1324$ if ("''Has_Socketshr'".eqs."T")
1325$ THEN
1326$ WS "#include <socketshr.h>"
1327$ else
1328$ WS "#include <netdb.h>
1329$ endif
1330$ WS "int main()
1331$ WS "{"
1332$ WS "setprotoent(1);
1333$ WS "exit(0);
1334$ WS "}"
1335$ CS
1336$ DEFINE SYS$ERROR _NLA0:
1337$ DEFINE SYS$OUTPUT _NLA0:
1338$ on error then continue
1339$ on warning then continue
1340$ 'Checkcc' temp
1341$ If (Needs_Opt.eqs."Yes")
1342$ THEN
1343$ link temp,temp/opt
1344$ else
1345$ link temp
1346$ endif
1347$ teststatus = f$extract(9,1,$status)
1348$ DEASSIGN SYS$OUTPUT
1349$ DEASSIGN SYS$ERROR
1350$ if (teststatus.nes."1")
1351$ THEN
1352$ perl_d_setpent="undef"
1353$ ELSE
1354$ perl_d_setpent="define"
1355$ ENDIF
1356$ ELSE
1357$ perl_d_setpent="undef"
1358$ ENDIF
1359$ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
1360$!
1361$! Check for setservent
1362$!
1363$ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1364$ THEN
1365$ OS
1366$ WS "#ifdef __DECC
1367$ WS "#include <stdlib.h>
1368$ WS "#endif
1369$ WS "#include <stdio.h>
1370$ if ("''Has_Socketshr'".eqs."T")
1371$ THEN
1372$ WS "#include <socketshr.h>"
1373$ else
1374$ WS "#include <netdb.h>
1375$ endif
1376$ WS "int main()
1377$ WS "{"
1378$ WS "setservent(1);
1379$ WS "exit(0);
1380$ WS "}"
1381$ CS
1382$ DEFINE SYS$ERROR _NLA0:
1383$ DEFINE SYS$OUTPUT _NLA0:
1384$ on error then continue
1385$ on warning then continue
1386$ 'Checkcc' temp
1387$ If (Needs_Opt.eqs."Yes")
1388$ THEN
1389$ link temp,temp/opt
1390$ else
1391$ link temp
1392$ endif
1393$ teststatus = f$extract(9,1,$status)
1394$ DEASSIGN SYS$OUTPUT
1395$ DEASSIGN SYS$ERROR
1396$ if (teststatus.nes."1")
1397$ THEN
1398$ perl_d_setsent="undef"
1399$ ELSE
1400$ perl_d_setsent="define"
1401$ ENDIF
1402$ ELSE
1403$ perl_d_setsent="undef"
1404$ ENDIF
1405$ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
1406$!
1407$! Check for gethostent
1408$!
1409$ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1410$ THEN
1411$ OS
1412$ WS "#ifdef __DECC
1413$ WS "#include <stdlib.h>
1414$ WS "#endif
1415$ WS "#include <stdio.h>
1416$ if ("''Has_Socketshr'".eqs."T")
1417$ THEN
1418$ WS "#include <socketshr.h>"
1419$ else
1420$ WS "#include <netdb.h>
1421$ endif
1422$ WS "int main()
1423$ WS "{"
1424$ WS "gethostent();
1425$ WS "exit(0);
1426$ WS "}"
1427$ CS
1428$ DEFINE SYS$ERROR _NLA0:
1429$ DEFINE SYS$OUTPUT _NLA0:
1430$ on error then continue
1431$ on warning then continue
1432$ 'Checkcc' temp
1433$ If (Needs_Opt.eqs."Yes")
1434$ THEN
1435$ link temp,temp/opt
1436$ else
1437$ link temp
1438$ endif
1439$ teststatus = f$extract(9,1,$status)
1440$ DEASSIGN SYS$OUTPUT
1441$ DEASSIGN SYS$ERROR
1442$ if (teststatus.nes."1")
1443$ THEN
1444$ perl_d_gethent="undef"
1445$ ELSE
1446$ perl_d_gethent="define"
1447$ ENDIF
1448$ ELSE
1449$ perl_d_gethent="undef"
1450$ ENDIF
1451$ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
1452$!
1453$! Check for getnetent
1454$!
1455$ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1456$ THEN
1457$ OS
1458$ WS "#ifdef __DECC
1459$ WS "#include <stdlib.h>
1460$ WS "#endif
1461$ WS "#include <stdio.h>
1462$ if ("''Has_Socketshr'".eqs."T")
1463$ THEN
1464$ WS "#include <socketshr.h>"
1465$ else
1466$ WS "#include <netdb.h>
1467$ endif
1468$ WS "int main()
1469$ WS "{"
1470$ WS "getnetent();
1471$ WS "exit(0);
1472$ WS "}"
1473$ CS
1474$ DEFINE SYS$ERROR _NLA0:
1475$ DEFINE SYS$OUTPUT _NLA0:
1476$ on error then continue
1477$ on warning then continue
1478$ 'Checkcc' temp
1479$ If (Needs_Opt.eqs."Yes")
1480$ THEN
1481$ link temp,temp/opt
1482$ else
1483$ link temp
1484$ endif
1485$ teststatus = f$extract(9,1,$status)
1486$ DEASSIGN SYS$OUTPUT
1487$ DEASSIGN SYS$ERROR
1488$ if (teststatus.nes."1")
1489$ THEN
1490$ perl_d_getnent="undef"
1491$ ELSE
1492$ perl_d_getnent="define"
1493$ ENDIF
1494$ ELSE
1495$ perl_d_getnent="undef"
1496$ ENDIF
1497$ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
1498$!
1499$! Check for getprotoent
1500$!
1501$ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1502$ THEN
1503$ OS
1504$ WS "#ifdef __DECC
1505$ WS "#include <stdlib.h>
1506$ WS "#endif
1507$ WS "#include <stdio.h>
1508$ if ("''Has_Socketshr'".eqs."T")
1509$ THEN
1510$ WS "#include <socketshr.h>"
1511$ else
1512$ WS "#include <netdb.h>
1513$ endif
1514$ WS "int main()
1515$ WS "{"
1516$ WS "getprotoent();
1517$ WS "exit(0);
1518$ WS "}"
1519$ CS
1520$ DEFINE SYS$ERROR _NLA0:
1521$ DEFINE SYS$OUTPUT _NLA0:
1522$ on error then continue
1523$ on warning then continue
1524$ 'Checkcc' temp
1525$ If (Needs_Opt.eqs."Yes")
1526$ THEN
1527$ link temp,temp/opt
1528$ else
1529$ link temp
1530$ endif
1531$ teststatus = f$extract(9,1,$status)
1532$ DEASSIGN SYS$OUTPUT
1533$ DEASSIGN SYS$ERROR
1534$ if (teststatus.nes."1")
1535$ THEN
1536$ perl_d_getpent="undef"
1537$ ELSE
1538$ perl_d_getpent="define"
1539$ ENDIF
1540$ ELSE
1541$ perl_d_getpent="undef"
1542$ ENDIF
1543$ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
1544$!
1545$! Check for getservent
1546$!
1547$ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1548$ THEN
1549$ OS
1550$ WS "#ifdef __DECC
1551$ WS "#include <stdlib.h>
1552$ WS "#endif
1553$ WS "#include <stdio.h>
1554$ if ("''Has_Socketshr'".eqs."T")
1555$ THEN
1556$ WS "#include <socketshr.h>"
1557$ else
1558$ WS "#include <netdb.h>
1559$ endif
1560$ WS "int main()
1561$ WS "{"
1562$ WS "getservent();
1563$ WS "exit(0);
1564$ WS "}"
1565$ CS
1566$ DEFINE SYS$ERROR _NLA0:
1567$ DEFINE SYS$OUTPUT _NLA0:
1568$ on error then continue
1569$ on warning then continue
1570$ 'Checkcc' temp
1571$ If (Needs_Opt.eqs."Yes")
1572$ THEN
1573$ link temp,temp/opt
1574$ else
1575$ link temp
1576$ endif
1577$ teststatus = f$extract(9,1,$status)
1578$ DEASSIGN SYS$OUTPUT
1579$ DEASSIGN SYS$ERROR
1580$ if (teststatus.nes."1")
1581$ THEN
1582$ perl_d_getsent="undef"
1583$ ELSE
1584$ perl_d_getsent="define"
1585$ ENDIF
1586$ ELSE
1587$ perl_d_getsent="undef"
1588$ ENDIF
1589$ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
1590$!
1591$! Check for pthread_yield
1592$!
1593$ if ("''use_threads'".eqs."T")
1594$ THEN
1595$ OS
1596$ WS "#ifdef __DECC
1597$ WS "#include <stdlib.h>
1598$ WS "#endif
1599$ WS "#include <pthread.h>
1600$ WS "#include <stdio.h>
1601$ WS "int main()
1602$ WS "{"
1603$ WS "pthread_yield();
1604$ WS "exit(0);
1605$ WS "}"
1606$ CS
1607$ DEFINE SYS$ERROR _NLA0:
1608$ DEFINE SYS$OUTPUT _NLA0:
1609$ on error then continue
1610$ on warning then continue
1611$ 'Checkcc' temp
1612$ teststatus = f$extract(9,1,$status)
1613$ DEASSIGN SYS$OUTPUT
1614$ DEASSIGN SYS$ERROR
1615$ if (teststatus.nes."1")
1616$ THEN
1617$ perl_d_pthread_yield="undef"
1618$ ELSE
1619$ perl_d_pthread_yield="define"
1620$ ENDIF
1621$ ELSE
1622$ perl_d_pthread_yield="undef"
1623$ ENDIF
1624$ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
1625$!
1626$! Check for sched_yield
1627$!
1628$ if ("''use_threads'".eqs."T")
1629$ THEN
1630$ OS
1631$ WS "#ifdef __DECC
1632$ WS "#include <stdlib.h>
1633$ WS "#endif
1634$ WS "#include <pthread.h>
1635$ WS "#include <stdio.h>
1636$ WS "int main()
1637$ WS "{"
1638$ WS "sched_yield();
1639$ WS "exit(0);
1640$ WS "}"
1641$ CS
1642$ DEFINE SYS$ERROR _NLA0:
1643$ DEFINE SYS$OUTPUT _NLA0:
1644$ on error then continue
1645$ on warning then continue
1646$ 'Checkcc' temp
1647$ teststatus = f$extract(9,1,$status)
1648$ DEASSIGN SYS$OUTPUT
1649$ DEASSIGN SYS$ERROR
1650$ if (teststatus.nes."1")
1651$ THEN
1652$ perl_d_sched_yield="undef"
1653$ ELSE
1654$ perl_d_sched_yield="define"
1655$ ENDIF
1656$ ELSE
1657$ perl_d_sched_yield="undef"
1658$ ENDIF
1659$ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
1660$!
1661$! Check for generic pointer size
1662$!
1663$ OS
1664$ WS "#ifdef __DECC
1665$ WS "#include <stdlib.h>
1666$ WS "#endif
1667$ WS "#include <stdio.h>
1668$ WS "int main()
1669$ WS "{"
429a5e67 1670$ WS "int foo;
1671$ WS "foo = sizeof(char *);
1672$ WS "printf(""%d\n"", foo);
97abc6ad 1673$ WS "exit(0);
1674$ WS "}"
1675$ CS
429a5e67 1676$! copy temp.c sys$output
1677$!
97abc6ad 1678$ DEFINE SYS$ERROR _NLA0:
1679$ DEFINE SYS$OUTPUT _NLA0:
1680$ ON ERROR THEN CONTINUE
1681$ ON WARNING THEN CONTINUE
1682$ 'Checkcc' temp
1683$ If (Needs_Opt.eqs."Yes")
1684$ THEN
1685$ link temp,temp/opt
1686$ else
1687$ link temp
1688$ endif
1689$ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
1690$ DEASSIGN SYS$OUTPUT
1691$ DEASSIGN SYS$ERROR
1692$ DEFINE SYS$ERROR TEMPOUT
1693$ DEFINE SYS$OUTPUT TEMPOUT
1694$ mcr []temp
1695$ CLOSE TEMPOUT
1696$ DEASSIGN SYS$OUTPUT
1697$ DEASSIGN SYS$ERROR
1698$ OPEN/READ TEMPOUT [-.uu]tempout.lis
1699$ READ TEMPOUT line
1700$ CLOSE TEMPOUT
1701$
1702$ perl_ptrsize=line
1703$ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
1704$!
1705$ set nover
1706$! Done with compiler checks. Clean up.
1707$ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
1708$ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
1709$ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
1710$ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
1711$!
1712$!
1713$! Some that are compiler or VMS version sensitive
1714$!
1715$! Gnu C stuff
1716$ IF "''Using_Gnu_C'".EQS."Yes"
1717$ THEN
1718$ perl_d_attribut="define"
1719$ perl_vms_cc_type="gcc"
1720$ ELSE
1721$ perl_d_attribut="undef"
1722$ ENDIF
1723$
1724$! Dec C >= 5.2 and VMS ver >= 7.0
1725$ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
1726$ THEN
1727$ perl_d_bcmp="define"
1728$ perl_d_gettimeod="define"
1729$ perl_d_uname="define"
1730$ perl_d_sigaction="define"
1731$ perl_d_truncate="define"
1732$ perl_d_wait4="define"
1733$ perl_d_index="define"
1734$ perl_pidtype="pid_t"
1735$ 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"
1736$ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
1737$ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
1738$ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
1739$perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
1740$ 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"
1741$ perl_sig_num_with_commas=perl_sig_num
1742$ perl_uidtype="uid_t"
1743$ perl_d_pathconf="define"
1744$ perl_d_fpathconf="define"
1745$ perl_d_sysconf="define"
1746$ perl_d_sigsetjmp="define"
1747$ ELSE
1748$ perl_pidtype="unsigned int"
1749$ perl_d_gettimeod="undef"
1750$ perl_d_bcmp="undef"
1751$ perl_d_uname="undef"
1752$ perl_d_sigaction="undef"
1753$ perl_d_truncate="undef"
1754$ perl_d_wait4="undef"
1755$ perl_d_index="undef"
1756$ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
1757$ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
1758$ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
1759$ perl_sig_name_with_commas = psnwc1 + psnwc2
1760$ perl_sig_num="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
1761$ perl_sig_num_with_commas=perl_sig_num
1762$ perl_uidtype="unsigned int"
1763$ perl_d_pathconf="undef"
1764$ perl_d_fpathconf="undef"
1765$ perl_d_sysconf="undef"
1766$ perl_d_sigsetjmp="undef"
1767$ ENDIF
1768$!
1769$! Dec C alone
1770$ IF ("''Using_Dec_C'".EQS."Yes")
1771$ THEN
1772$ perl_d_mbstowcs="define"
1773$ perl_d_mbtowc="define"
1774$ perl_d_stdiobase="define"
1775$ perl_d_stdio_ptr_lval="define"
1776$ perl_d_stdio_cnt_lval="define"
1777$ perl_d_stdstdio="define"
1778$ perl_d_wcstombs="define"
1779$ perl_d_mblen="define"
1780$ perl_d_mktime="define"
1781$ perl_d_strcoll="define"
1782$ perl_d_strxfrm="define"
1783$ perl_d_wctomb="define"
1784$ perl_i_locale="define"
1785$ perl_d_locconv="define"
1786$ perl_d_setlocale="define"
1787$ perl_vms_cc_type="decc"
1788$ ELSE
1789$ perl_d_mbstowcs="undef"
1790$ perl_d_mbtowc="undef"
1791$ perl_d_stdiobase="undef"
1792$ perl_d_stdio_ptr_lval="undef"
1793$ perl_d_stdio_cnt_lval="undef"
1794$ perl_d_stdstdio="undef"
1795$ perl_d_wcstombs="undef"
1796$ perl_d_mblen="undef"
1797$ perl_d_mktime="undef"
1798$ perl_d_strcoll="undef"
1799$ perl_d_strxfrm="undef"
1800$ perl_d_wctomb="undef"
1801$ perl_i_locale="undef"
1802$ perl_d_locconv="undef"
1803$ perl_d_setlocale="undef"
1804$ ENDIF
1805$!
1806$! Vax C stuff
1807$ if ("''Using_Vax_C'".EQS."Yes")
1808$ THEN
1809$ perl_vms_cc_type="vaxc"
1810$ ENDIF
1811$!
1812$!
1813$! Sockets?
1814$ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
1815$ THEN
1816$ perl_d_vms_do_sockets="define"
1817$ perl_d_htonl="define"
1818$ perl_d_socket="define"
1819$ perl_d_select="define"
1820$ perl_netdb_host_type="char *"
1821$ perl_netdb_hlen_type="int"
1822$ perl_netdb_name_type="char *"
1823$ perl_netdb_net_type="long"
1824$ perl_d_gethbyaddr="define"
1825$ perl_d_gethbyname="define"
1826$ perl_d_getnbyaddr="define"
1827$ perl_d_getnbyname="define"
1828$ perl_d_getpbynumber="define"
1829$ perl_d_getpbyname="define"
1830$ perl_d_getsbyport="define"
1831$ perl_d_getsbyname="define"
1832$ perl_d_gethostprotos="define"
1833$ perl_d_getnetprotos="define"
1834$ perl_d_getprotoprotos="define"
1835$ perl_d_getservprotos="define"
1836$ ELSE
1837$ perl_d_vms_do_sockets="undef"
1838$ perl_d_htonl="undef"
1839$ perl_d_socket="undef"
1840$ perl_d_select="undef"
1841$ perl_netdb_host_type="char *"
1842$ perl_netdb_hlen_type="int"
1843$ perl_netdb_name_type="char *"
1844$ perl_netdb_net_type="long"
1845$ perl_d_gethbyaddr="undef"
1846$ perl_d_gethbyname="undef"
1847$ perl_d_getnbyaddr="undef"
1848$ perl_d_getnbyname="undef"
1849$ perl_d_getpbynumber="undef"
1850$ perl_d_getpbyname="undef"
1851$ perl_d_getsbyport="undef"
1852$ perl_d_getsbyname="undef"
1853$ perl_d_gethostprotos="undef"
1854$ perl_d_getnetprotos="undef"
1855$ perl_d_getprotoprotos="undef"
1856$ perl_d_getservprotos="undef"
1857$ ENDIF
1858$! Threads
1859$ if ("''use_threads'".eqs."T")
1860$ THEN
1861$ perl_usethreads="define"
1862$ perl_d_pthreads_created_joinable="define"
1863$ if ("''VMS_VER'".ges."7.0")
1864$ THEN
1865$ perl_d_oldpthreads="undef"
1866$ ELSE
1867$ perl_d_oldpthreads="define"
1868$ ENDIF
1869$ ELSE
1870$ perl_d_oldpthreads="undef"
1871$ perl_usethreads="undef"
1872$
1873$ perl_d_pthreads_created_joinable="undef"
1874$ ENDIF
1875$!
1876$!
1877$! Finally the composite ones. All config
1878$ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
1879$ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
1880$ perl_myhostname="''myhostname'"
1881$ perl_mydomain="''mydomain'"
1882$ perl_perladmin="''perladmin'"
1883$ perl_cf_email="''cf_email'"
1884$ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
1885$ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
1886$ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
1887$ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
1888$ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
1889$ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
1890$ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
1891$ if "''Using_Dec_C'" .eqs. "Yes"
1892$ THEN
429a5e67 1893$ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
97abc6ad 1894$ ELSE
1895$ IF "''Using_Vax_C'" .eqs. "Yes"
1896$ THEN
429a5e67 1897$ perl_ccflags="/Include=[]/Obj=''perl_obj_ext'/NoList''cc_flags'"
97abc6ad 1898$ ENDIF
1899$ ENDIF
1900$!
1901$! Finally clean off any leading zeros from the patchlevel or subversion
1902$ perl_patchlevel = perl_patchlevel + 0
1903$ perl_subversion = perl_subversion + 0
1904$!
1905$! Okay, we've got everything configured. Now go write out a config.sh.
1906$ open/write CONFIGSH [-]config.sh
1907$ WC := "write CONFIGSH"
1908$!
1909$ WC "# This file generated by Configure.COM on a VMS system."
1910$ WC "# Time: " + perl_cf_time
1911$ WC ""
1912$ WC "package='" + perl_package + "'"
1913$ WC "CONFIG='" + perl_config + "'"
1914$ WC "cf_time='" + perl_cf_time + "'"
1915$ WC "cf_by='" + perl_cf_by+ "'"
1916$ WC "cpp_stuff='" + perl_cpp_stuff + "'"
1917$ WC "ccdlflags='" + perl_ccdlflags + "'"
1918$ WC "cccdlflags='" + perl_cccdlflags + "'"
1919$ WC "mab='" + perl_mab + "'"
1920$ WC "libpth='" + perl_libpth + "'"
1921$ WC "ld='" + perl_ld + "'"
1922$ WC "lddlflags='" + perl_lddlflags + "'"
1923$ WC "ranlib='" + perl_ranlib + "'"
1924$ WC "ar='" + perl_ar + "'"
1925$ WC "eunicefix='" + perl_eunicefix + "'"
1926$ WC "hint='" + perl_hint +"'"
1927$ WC "hintfile='" + perl_hintfile + "'"
1928$ WC "shrplib='" + perl_shrplib + "'"
1929$ WC "usemymalloc='" + perl_usemymalloc + "'"
1930$ WC "usevfork='" + perl_usevfork + "'"
1931$ WC "useposix='false'"
1932$ WC "spitshell='write sys$output '"
1933$ WC "dlsrc='dl_vms.c'"
1934$ WC "binexp='" + perl_binexp + "'"
1935$ WC "man1ext='" + perl_man1ext + "'"
1936$ WC "man3ext='" + perl_man3ext + "'"
1937$ WC "arch='" + perl_arch + "'"
1938$ WC "archname='" + perl_archname + "'"
1939$ WC "osvers='" + perl_osvers + "'"
1940$ WC "prefix='" + perl_prefix + "'"
1941$ WC "builddir='" + perl_builddir + "'"
1942$ WC "installbin='" + perl_installbin + "'"
1943$ WC "installscript='" + perl_installscript + "'"
1944$ WC "installman1dir='" + perl_installman1dir + "'"
1945$ WC "installman3dir='" + perl_installman3dir + "'"
1946$ WC "installprivlib='" + perl_installprivlib + "'"
1947$ WC "installarchlib='" + perl_installarchlib + "'"
1948$ WC "installsitelib='" + perl_installsitelib + "'"
1949$ WC "installsitearch='" + perl_installsitearch + "'"
1950$ WC "path_sep='" + perl_path_sep + "'"
cb38e85f 1951$ WC "startperl=""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ perl_ + ++$status != 0 and $exit = $status = undef;"""
97abc6ad 1952$ WC "vms_cc_type='" + perl_vms_cc_type + "'"
1953$ WC "d_attribut='" + perl_d_attribut + "'"
1954$ WC "cc='" + perl_cc + "'"
1955$ WC "ccflags='" + perl_ccflags + "'"
1956$ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
1957$ WC "d_socket='" + perl_d_socket + "'"
1958$ WC "d_sockpair='" + perl_d_sockpair + "'"
1959$ WC "d_gethent='" + perl_d_gethent + "'"
1960$ WC "d_getsent='" + perl_d_getsent + "'"
1961$ WC "d_select='" + perl_d_select + "'"
1962$ WC "i_niin='" + perl_i_niin + "'"
1963$ WC "i_neterrno='" + perl_i_neterrno + "'"
1964$ WC "d_stdstdio='" + perl_d_stdstdio + "'"
1965$ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
1966$ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
1967$ WC "d_stdiobase='" + perl_d_stdiobase + "'"
1968$ WC "d_locconv='" + perl_d_locconv + "'"
1969$ WC "d_setlocale='" + perl_d_setlocale + "'"
1970$ WC "i_locale='" + perl_i_locale + "'"
1971$ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
1972$ WC "d_mbtowc='" + perl_d_mbtowc + "'"
1973$ WC "d_wcstombs='" + perl_d_wcstombs + "'"
1974$ WC "d_wctomb='" + perl_d_wctomb + "'"
1975$ WC "d_mblen='" + perl_d_mblen + "'"
1976$ WC "d_mktime='" + perl_d_mktime + "'"
1977$ WC "d_strcoll='" + perl_d_strcoll + "'"
1978$ WC "d_strxfrm='" + perl_d_strxfrm + "'"
1979$ WC "ldflags='" + perl_ldflags + "'"
1980$ WC "dlobj='" + perl_dlobj + "'"
1981$ WC "obj_ext='" + perl_obj_ext + "'"
1982$ WC "so='" + perl_so + "'"
1983$ WC "dlext='" + perl_dlext + "'"
1984$ WC "exe_ext='" + perl_exe_ext + "'"
1985$ WC "lib_ext='" + perl_lib_ext + "'"
1986$ WC "myhostname='" + perl_myhostname + "'"
1987$ WC "mydomain='" + perl_mydomain + "'"
1988$ WC "perladmin='" + perl_perladmin + "'"
1989$ WC "cf_email='" + perl_cf_email + "'"
1990$ WC "myuname='" + perl_myuname + "'"
1991$ WC "alignbytes='" + perl_alignbytes + "'"
1992$ WC "osname='" + perl_osname + "'"
1993$ WC "d_archlib='" + perl_d_archlib + "'"
1994$ WC "archlibexp='" + perl_archlibexp + "'"
1995$ WC "archlib='" + perl_archlib + "'"
1996$ WC "archname='" + perl_archname + "'"
1997$ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
1998$ WC "cppstdin='" + perl_cppstdin + "'"
1999$ WC "cppminus='" + perl_cppminus + "'"
2000$ WC "d_bcmp='" + perl_d_bcmp + "'"
2001$ WC "d_bcopy='" + perl_d_bcopy + "'"
2002$ WC "d_bzero='" + perl_d_bzero + "'"
2003$ WC "d_castneg='" + perl_d_castneg + "'"
2004$ WC "castflags='" + perl_castflags + "'"
2005$ WC "d_chsize='" + perl_d_chsize + "'"
2006$ WC "d_const='" + perl_d_const + "'"
2007$ WC "d_crypt='" + perl_d_crypt + "'"
2008$ WC "byteorder='" + perl_byteorder + "'"
2009$ WC "full_csh='" + perl_full_csh + "'"
2010$ WC "d_csh='" + perl_d_csh + "'"
2011$ WC "d_dup2='" + perl_d_dup2 + "'"
2012$ WC "d_fchmod='" + perl_d_fchmod + "'"
2013$ WC "d_fchown='" + perl_d_fchown + "'"
2014$ WC "d_fcntl='" + perl_d_fcntl + "'"
2015$ WC "d_fgetpos='" + perl_d_fgetpos + "'"
2016$ WC "d_flexfnam='" + perl_d_flexfnam + "'"
2017$ WC "d_flock='" + perl_d_flock + "'"
2018$ WC "d_fsetpos='" + perl_d_fsetpos + "'"
2019$ WC "d_gettimeod='" + perl_d_gettimeod + "'"
2020$ WC "d_getgrps='" + perl_d_getgrps + "'"
2021$ WC "d_setgrps='" + perl_d_setgrps + "'"
2022$ WC "d_uname='" + perl_d_uname + "'"
2023$ WC "d_getprior='" + perl_d_getprior + "'"
2024$ WC "d_killpg='" + perl_d_killpg + "'"
2025$ WC "d_link='" + perl_d_link + "'"
2026$ WC "d_lstat='" + perl_d_lstat + "'"
2027$ WC "d_lockf='" + perl_d_lockf + "'"
2028$ WC "d_memcmp='" + perl_d_memcmp + "'"
2029$ WC "d_memcpy='" + perl_d_memcpy + "'"
2030$ WC "d_memmove='" + perl_d_memmove + "'"
2031$ WC "d_memset='" + perl_d_memset + "'"
2032$ WC "d_mkdir='" + perl_d_mkdir + "'"
2033$ WC "d_msg='" + perl_d_msg + "'"
2034$ WC "d_open3='" + perl_d_open3 + "'"
2035$ WC "d_poll='" + perl_d_poll + "'"
2036$ WC "d_readdir='" + perl_d_readdir + "'"
2037$ WC "d_seekdir='" + perl_d_seekdir + "'"
2038$ WC "d_telldir='" + perl_d_telldir + "'"
2039$ WC "d_rewinddir='" + perl_d_rewinddir + "'"
2040$ WC "d_rename='" + perl_d_rename + "'"
2041$ WC "d_rmdir='" + perl_d_rmdir + "'"
2042$ WC "d_sem='" + perl_d_sem + "'"
2043$ WC "d_setegid='" + perl_d_setegid + "'"
2044$ WC "d_seteuid='" + perl_d_seteuid + "'"
2045$ WC "d_setprior='" + perl_d_setprior + "'"
2046$ WC "d_setregid='" + perl_d_setregid + "'"
2047$ WC "d_setresgid='" + perl_d_setresgid + "'"
2048$ WC "d_setreuid='" + perl_d_setreuid + "'"
2049$ WC "d_setresuid='" + perl_d_setresuid + "'"
2050$ WC "d_setrgid='" + perl_d_setrgid + "'"
2051$ WC "d_setruid='" + perl_d_setruid + "'"
2052$ WC "d_setsid='" + perl_d_setsid + "'"
2053$ WC "d_shm='" + perl_d_shm + "'"
2054$ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
2055$ WC "d_sigaction='" + perl_d_sigaction + "'"
2056$ WC "d_statblks='" + perl_d_statblks + "'"
2057$ WC "stdio_ptr='" + perl_stdio_ptr + "'"
2058$ WC "stdio_cnt='" + perl_stdio_cnt + "'"
2059$ WC "stdio_base='" + perl_stdio_base + "'"
2060$ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
2061$ WC "d_strctcpy='" + perl_d_strctcpy + "'"
2062$ WC "d_strerror='" + perl_d_strerror + "'"
2063$ WC "d_syserrlst='" + perl_d_syserrlst + "'"
2064$ WC "d_strerrm='" + perl_d_strerrm + "'"
2065$ WC "d_symlink='" + perl_d_symlink + "'"
2066$ WC "d_syscall='" + perl_d_syscall + "'"
2067$ WC "d_system='" + perl_d_system + "'"
2068$ WC "timetype='" + perl_timetype + "'"
2069$ WC "d_truncate='" + perl_d_truncate + "'"
2070$ WC "d_vfork='" + perl_d_vfork + "'"
2071$ WC "signal_t='" + perl_signal_t + "'"
2072$ WC "d_volatile='" + perl_d_volatile + "'"
2073$ WC "d_vprintf='" + perl_d_vprintf + "'"
2074$ WC "d_charvspr='" + perl_d_charvspr + "'"
2075$ WC "d_wait4='" + perl_d_wait4 + "'"
2076$ WC "d_waitpid='" + perl_d_waitpid + "'"
2077$ WC "i_dirent='" + perl_i_dirent + "'"
2078$ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
2079$ WC "direntrytype='" + perl_direntrytype + "'"
2080$ WC "i_fcntl='" + perl_i_fcntl + "'"
2081$ WC "i_grp='" + perl_i_grp + "'"
2082$ WC "i_limits='" + perl_i_limits + "'"
2083$ WC "i_memory='" + perl_i_memory + "'"
2084$ WC "i_ndbm='" + perl_i_ndbm + "'"
2085$ WC "i_stdarg='" + perl_i_stdarg + "'"
2086$ WC "i_pwd='" + perl_i_pwd + "'"
2087$ WC "d_pwquota='" + perl_d_pwquota + "'"
2088$ WC "d_pwage='" + perl_d_pwage + "'"
2089$ WC "d_pwchange='" + perl_d_pwchange + "'"
2090$ WC "d_pwclass='" + perl_d_pwclass + "'"
2091$ WC "d_pwexpire='" + perl_d_pwexpire + "'"
2092$ WC "d_pwcomment='" + perl_d_pwcomment + "'"
2093$ WC "i_stddef='" + perl_i_stddef + "'"
2094$ WC "i_stdlib='" + perl_i_stdlib + "'"
2095$ WC "i_string='" + perl_i_string + "'"
2096$ WC "i_sysdir='" + perl_i_sysdir + "'"
2097$ WC "i_sysfile='" + perl_i_sysfile + "'"
2098$ WC "i_sysioctl='" + perl_i_sysioctl + "'"
2099$ WC "i_sysndir='" + perl_i_sysndir + "'"
2100$ WC "i_sysresrc='" + perl_i_sysresrc + "'"
2101$ WC "i_sysselct='" + perl_i_sysselct + "'"
2102$ WC "i_dbm='" + perl_i_dbm + "'"
2103$ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
2104$ WC "i_sfio='" + perl_i_sfio + "'"
2105$ WC "i_sysstat='" + perl_i_sysstat + "'"
2106$ WC "i_systimes='" + perl_i_systimes + "'"
2107$ WC "i_systypes='" + perl_i_systypes + "'"
2108$ WC "i_sysun='" + perl_i_sysun + "'"
2109$ WC "i_syswait='" + perl_i_syswait + "'"
2110$ WC "i_termio='" + perl_i_termio + "'"
2111$ WC "i_sgtty='" + perl_i_sgtty + "'"
2112$ WC "i_termios='" + perl_i_termios + "'"
2113$ WC "i_time='" + perl_i_time + "'"
2114$ WC "i_systime='" + perl_i_systime + "'"
2115$ WC "i_systimek='" + perl_i_systimek + "'"
2116$ WC "i_unistd='" + perl_i_unistd + "'"
2117$ WC "i_utime='" + perl_i_utime + "'"
2118$ WC "i_varargs='" + perl_i_varargs + "'"
2119$ WC "i_vfork='" + perl_i_vfork + "'"
2120$ WC "prototype='" + perl_prototype + "'"
2121$ WC "randbits='" + perl_randbits +"'"
2122$ WC "selecttype='" + perl_selecttype + "'"
2123$ WC "stdchar='" + perl_stdchar + "'"
2124$ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
2125$ WC "full_sed='" + perl_full_sed + "'"
2126$ WC "bin='" + perl_bin + "'"
2127$ WC "binexp='" + perl_binexp + "'"
2128$ WC "d_alarm='" + perl_d_alarm + "'"
2129$ WC "d_casti32='" + perl_d_casti32 + "'"
2130$ WC "d_chown='" + perl_d_chown + "'"
2131$ WC "d_chroot='" + perl_d_chroot + "'"
2132$ WC "d_cuserid='" + perl_d_cuserid + "'"
2133$ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
2134$ WC "d_difftime='" + perl_d_difftime + "'"
2135$ WC "d_fork='" + perl_d_fork + "'"
2136$ WC "d_getlogin='" + perl_d_getlogin + "'"
2137$ WC "d_getppid='" + perl_d_getppid + "'"
2138$ WC "d_htonl='" + perl_d_htonl + "'"
2139$ WC "d_nice='" + perl_d_nice + "'"
2140$ WC "d_pause='" + perl_d_pause + "'"
2141$ WC "d_pipe='" + perl_d_pipe + "'"
2142$ WC "d_readlink='" + perl_d_readlink + "'"
2143$ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
2144$ WC "d_strchr='" + perl_d_strchr + "'"
2145$ WC "d_index='" + perl_d_index + "'"
2146$ WC "d_strtod='" + perl_d_strtod + "'"
2147$ WC "d_strtol='" + perl_d_strtol + "'"
2148$ WC "d_strtoul='" + perl_d_strtoul + "'"
2149$ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
2150$ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
2151$ WC "d_times='" + perl_d_times + "'"
2152$ WC "d_tzname='" + perl_d_tzname + "'"
2153$ WC "d_umask='" + perl_d_umask + "'"
2154$ WC "fpostype='" + perl_fpostype + "'"
2155$ WC "i_dlfcn='" + perl_i_dlfcn + "'"
2156$ WC "i_float='" + perl_i_float + "'"
2157$ WC "i_math='" + perl_i_math + "'"
2158$ WC "intsize='" + perl_intsize + "'"
2159$ WC "longsize='" + perl_longsize + "'"
2160$ WC "shortsize='" + perl_shortsize + "'"
2161$ WC "lseektype='" + perl_lseektype + "'"
2162$ WC "i_values='" + perl_i_values + "'"
2163$ WC "malloctype='" + perl_malloctype + "'"
2164$ WC "freetype='" + perl_freetype + "'"
2165$ WC "d_mymalloc='" + perl_d_mymalloc + "'"
2166$ WC "sh='" + perl_sh + "'"
2167$ WC "sig_name='" + perl_sig_name + "'"
2168$ WC "sig_num='" + perl_sig_num + "'"
2169$ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
2170$ WC/symbol tempsym
2171$ WC "modetype='" + perl_modetype + "'"
2172$ WC "ssizetype='" + perl_ssizetype + "'"
2173$ WC "o_nonblock='" + perl_o_nonblock + "'"
2174$ WC "eagain='" + perl_eagain + "'"
2175$ WC "rd_nodata='" + perl_rd_nodata + "'"
2176$ WC "d_eofnblk='" + perl_d_eofnblk + "'"
2177$ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
2178$ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
2179$ WC "oldarchlib='" + perl_oldarchlib + "'"
2180$ WC "privlibexp='" + perl_privlibexp + "'"
2181$ WC "privlib='" + perl_privlib + "'"
2182$ WC "sitelibexp='" + perl_sitelibexp + "'"
2183$ WC "sitelib='" + perl_sitelib + "'"
2184$ WC "sitearchexp='" + perl_sitearchexp + "'"
2185$ WC "sitearch='" + perl_sitearch + "'"
2186$ WC "sizetype='" + perl_sizetype + "'"
2187$ WC "i_sysparam='" + perl_i_sysparam + "'"
2188$ WC "d_void_closedir='" + perl_d_void_closedir + "'"
2189$ WC "d_dlerror='" + perl_d_dlerror + "'"
2190$ WC "d_dlsymun='" + perl_d_dlsymun + "'"
2191$ WC "d_suidsafe='" + perl_d_suidsafe + "'"
2192$ WC "d_dosuid='" + perl_d_dosuid + "'"
2193$ WC "d_inetaton='" + perl_d_inetaton + "'"
2194$ WC "d_isascii='" + perl_d_isascii + "'"
2195$ WC "d_mkfifo='" + perl_d_mkfifo + "'"
2196$ WC "d_pathconf='" + perl_d_pathconf + "'"
2197$ WC "d_fpathconf='" + perl_d_fpathconf + "'"
2198$ WC "d_safebcpy='" + perl_d_safebcpy + "'"
2199$ WC "d_safemcpy='" + perl_d_safemcpy + "'"
2200$ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
2201$ WC "d_setpgrp='" + perl_d_setpgrp + "'"
2202$ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
2203$ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
2204$ WC "d_setpgid='" + perl_d_setpgid + "'"
2205$ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
2206$ WC "d_sysconf='" + perl_d_sysconf + "'"
2207$ WC "d_Gconvert='" + perl_d_Gconvert + "'"
2208$ WC "d_getpgid='" + perl_d_getpgid + "'"
2209$ WC "d_getpgrp='" + perl_d_getpgrp + "'"
2210$ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
2211$ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
2212$ WC "d_sfio='" + perl_d_sfio + "'"
2213$ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
2214$ WC "usedl='" + perl_usedl + "'"
2215$ WC "startperl='" + perl_startperl + "'"
2216$ WC "db_hashtype='" + perl_db_hashtype + "'"
2217$ WC "db_prefixtype='" + perl_db_prefixtype + "'"
2218$ WC "useperlio='" + perl_useperlio + "'"
2219$ WC "defvoidused='" + perl_defvoidused + "'"
2220$ WC "voidflags='" + perl_voidflags + "'"
2221$ WC "d_eunice='" + perl_d_eunice + "'"
2222$ WC "libs='" + perl_libs + "'"
2223$ WC "libc='" + perl_libc + "'"
2224$ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
2225$ WC tempstring
2226$ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
2227$ WC tempstring
2228$ WC "pager='" + perl_pager + "'"
2229$ WC "uidtype='" + perl_uidtype + "'"
2230$ WC "gidtype='" + perl_gidtype + "'"
2231$ WC "usethreads='" + perl_usethreads + "'"
2232$ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
2233$ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
2234$ WC "d_gnulibc='" + perl_d_gnulibc + "'"
2235$ WC "i_netdb='" + perl_i_netdb + "'"
2236$ WC "pidtype='" + perl_pidtype + "'"
2237$ WC "netdb_host_type='" + perl_netdb_host_type + "'"
2238$ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
2239$ WC "netdb_name_type='" + perl_netdb_name_type + "'"
2240$ WC "netdb_net_type='" + perl_netdb_net_type + "'"
2241$ WC "baserev='" + perl_baserev + "'"
2242$ WC "doublesize='" + perl_doublesize + "'"
2243$ WC "ptrsize='" + perl_ptrsize + "'"
2244$ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
2245$ WC "d_gethbyname='" + perl_d_gethbyname + "'"
2246$ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
2247$ WC "d_getnbyname='" + perl_d_getnbyname + "'"
2248$ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
2249$ WC "d_getpbyname='" + perl_d_getpbyname + "'"
2250$ WC "d_getsbyport='" + perl_d_getsbyport + "'"
2251$ WC "d_getsbyname='" + perl_d_getsbyname + "'"
2252$ WC "d_sethent='" + perl_d_sethent + "'"
2253$ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
2254$ WC "d_longdbl='" + perl_d_longdbl + "'"
2255$ WC "longdblsize='" + perl_longdblsize + "'"
2256$ WC "d_longlong='" + perl_d_longlong + "'"
2257$ WC "longlongsize='" + perl_longlongsize + "'"
2258$ WC "d_mkstemp='" + perl_d_mkstemp + "'"
2259$ WC "d_setvbuf='" + perl_d_setvbuf + "'"
2260$ WC "d_endhent='" + perl_d_endhent + "'"
2261$ WC "d_endnent='" + perl_d_endsent + "'"
2262$ WC "d_endpent='" + perl_d_endpent + "'"
2263$ WC "d_endsent='" + perl_d_endsent + "'"
2264$ WC "d_gethent='" + perl_d_gethent + "'"
2265$ WC "d_getnent='" + perl_d_getsent + "'"
2266$ WC "d_getpent='" + perl_d_getpent + "'"
2267$ WC "d_getsent='" + perl_d_getsent + "'"
2268$ WC "d_sethent='" + perl_d_sethent + "'"
2269$ WC "d_setnent='" + perl_d_setsent + "'"
2270$ WC "d_setpent='" + perl_d_setpent + "'"
2271$ WC "d_setsent='" + perl_d_setsent + "'"
2272$ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
2273$ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
2274$ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
2275$ WC "d_getservprotos='" + perl_d_getservprotos + "'"
2276$ WC "d_pwgecos='" + perl_d_pwgecos + "'"
2277$ WC "d_sched_yield='" + perl_d_sched_yield + "'"
2278$ WC "d_lchown='" + perl_d_lchown + "'"
2279$ WC "d_union_semun='" + perl_d_union_semun + "'"
2280$ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
2281$ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
2282$ WC "extensions='" + perl_extensions + "'"
c05f8f3d 2283$ WC "d_mknod='" + perl_d_mknod + "'"
2284$ WC "devtype='" + perl_devtype + "'"
97abc6ad 2285$!
2286$ Close CONFIGSH
2287$
2288$! Okay, we've gotten here. Build munchconfig and run it
2289$ 'Perl_CC' munchconfig
2290$ If (Needs_Opt.eqs."Yes")
2291$ THEN
2292$ open/write OPTCHAN []munchconfig.opt
2293$ IF ("''using_gnu_c'".eqs."Yes")
2294$ THEN
2295$ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
2296$ endif
2297$ write OPTCHAN "Sys$Share:VAXCRTL/Share"
2298$ Close OPTCHAN
2299$ link munchconfig,munchconfig/opt
2300$ delete munchconfig.opt;*
2301$ else
2302$ link munchconfig
2303$ endif
2304$ WRITE_RESULT "Writing config.h"
429a5e67 2305$ !
2306$ ! we need an fdl file
2307$ CREATE [-]CONFIG.FDL
2308RECORD
2309 FORMAT STREAM_LF
2310$ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
2311$ ! First spit out the header info with the local defines (to get
2312$ ! around the 255 character command line limit)
2313$ OPEN/APPEND CONFIG [-]config.local
2314$ if use_debugging_perl.eqs."Y"
2315$ THEN
2316$ WRITE CONFIG "#define DEBUGGING"
2317$ ENDIF
2318$ if preload_env.eqs."Y"
2319$ THEN
2320$ WRITE CONFIG "#define PRIME_ENV_AT_STARTUP"
2321$ ENDIF
2322$ if use_two_pot_malloc.eqs."Y"
2323$ THEN
2324$ WRITE CONFIG "#define TWO_POT_OPTIMIZE"
2325$ endif
2326$ if mymalloc.eqs."Y"
2327$ THEN
2328$ WRITE CONFIG "#define EMBEDMYMALLOC"
2329$ ENDIF
2330$ if use_pack_malloc.eqs."Y"
2331$ THEN
2332$ WRITE CONFIG "#define PACK_MALLOC"
2333$ endif
2334$ if use_debugmalloc.eqs."Y"
2335$ THEN
2336$ write config "#define DEBUGGING_MSTATS"
2337$ ENDIF
2338$ if "''Using_Gnu_C'" .eqs."Yes"
2339$ THEN
2340$ WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
2341$ ENDIF
2342$ if "''Has_Dec_C_Sockets'".eqs."T"
2343$ THEN
2344$ WRITE CONFIG "#define VMS_DO_SOCKETS"
2345$ WRITE CONFIG "#define DECCRTL_SOCKETS"
2346$ ENDIF
2347$ if "''Has_Socketshr'".eqs."T"
2348$ THEN
2349$ WRITE CONFIG "#define VMS_DO_SOCKETS"
2350$ ENDIF
2351$ CLOSE CONFIG
2352$!
2353$! Now build the normal config.h
2354$ define/user sys$output [-]config.main
97abc6ad 2355$ mcr []munchconfig [-]config.sh [-]config_h.sh
429a5e67 2356$ ! Concatenate them together
2357$ copy [-]config.local,[-]config.main [-]config.h
2358$! Clean up
2359$ DELETE/NOLOG [-]CONFIG.MAIN;*
2360$ DELETE/NOLOG [-]CONFIG.LOCAL;*
2361$ DELETE/NOLOG [-]CONFIG.FDL;*
2362$!
97abc6ad 2363$ if "''Using_Dec_C'" .eqs."Yes"
2364$ THEN
2365$ DECC_REPLACE = "DECC=decc=1"
2366$ ELSE
2367$ DECC_REPLACE = "DECC="
2368$ ENDIF
2369$ if "''Using_Gnu_C'" .eqs."Yes"
2370$ THEN
2371$ GNUC_REPLACE = "GNUC=gnuc=1"
2372$ ELSE
2373$ GNUC_REPLACE = "GNUC="
2374$ ENDIF
2375$ if "''Has_Dec_C_Sockets'" .eqs."T"
2376$ THEN
2377$ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
2378$ ELSE
2379$ if "''Has_Socketshr'" .eqs."T"
2380$ THEN
2381$ SOCKET_REPLACE = "SOCKET=SOCKETSHRSOCKETS=1"
2382$ ELSE
2383$ SOCKET_REPLACE = "SOCKET="
2384$ ENDIF
2385$ ENDIF
2386$ IF ("''Use_Threads'".eqs."T")
2387$ THEN
2388$ if ("''VMS_VER'".LES."6.2")
2389$ THEN
2390$ THREAD_REPLACE = "THREAD=OLDTHREADED=1"
2391$ ELSE
2392$ THREAD_REPLACE = "THREAD=THREADED=1"
2393$ ENDIF
429a5e67 2394$ ELSE
2395$ THREAD_REPLACE = "THREAD="
2396$ ENDIF
2397$ if mymalloc.eqs."Y"
2398$ THEN
2399$ MALLOC_REPLACE = "MALLOC=MALLOC=1"
2400$ ELSE
2401$ MALLOC_REPLACE = "MALLOC="
97abc6ad 2402$ ENDIF
2403$ if f$getsyi("HW_MODEL").ge.1024
2404$ THEN
2405$ ARCH_TYPE = "ARCH-TYPE=__AXP__"
2406$ ELSE
2407$ ARCH_TYPE = "ARCH-TYPE=__VAX__"
2408$ ENDIF
2409$ WRITE_RESULT "Writing DESCRIP.MMS"
2410$!set ver
2411$ define/user sys$output [-]descrip.mms
429a5e67 2412$ 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'"
97abc6ad 2413$! set nover
2414$!
2415$! Clean up after ourselves
2416$ delete/nolog munchconfig.exe;*
2417$ delete/nolog munchconfig.obj;*
Unnamed repository; edit this file to name it for gitweb.