projects / p5sagit/p5-mst-13.2.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | history | HEAD
Re: [PATCH for _66] Makefile.SH problem on dos/djgpp
[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"
212$ perl_i_unistd="undef"
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$!
c05f8f3d 715$! Check the prototype for getgid
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$!
97abc6ad 747$! Check the prototype for select
748$!
749$ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
750$ THEN
751$ OS
752$ WS "#ifdef __DECC
753$ WS "#include <stdlib.h>
754$ WS "#endif
755$ WS "#include <stdio.h>
756$ WS "#include <types.h>
757$ WS "#include <unistd.h>
758$ if ("''Has_Socketshr'".eqs."T")
759$ THEN
760$ WS "#include <socketshr.h>"
761$ else
762$ WS "#include <time.h>
763$ WS "#include <socket.h>
764$ endif
765$ WS "int main()
766$ WS "{"
767$ WS "fd_set *foo;
768$ WS "int bar;
769$ WS "foo = NULL;
770$ WS "bar = select(2, foo, foo, foo, NULL);
771$ WS "exit(0);
772$ WS "}"
773$ CS
774$ DEFINE SYS$ERROR _NLA0:
775$ DEFINE SYS$OUTPUT _NLA0:
776$ on error then continue
777$ on warning then continue
778$ 'Checkcc' temp
779$ teststatus = f$extract(9,1,$status)
780$ DEASSIGN SYS$OUTPUT
781$ DEASSIGN SYS$ERROR
782$ if (teststatus.nes."1")
783$ THEN
784$! Okay, fd_set failed. Must be an int
785$ perl_selecttype = "int *"
786$ ELSE
787$ perl_selecttype="fd_set *"
788$ ENDIF
789$ ELSE
790$ ! No sockets, so stick in an int *
791$ perl_selecttype = "int *"
792$ ENDIF
793$ WRITE_RESULT "selectype is ''perl_selecttype'"
794$!
795$! Check for bzero
796$!
797$ OS
798$ WS "#ifdef __DECC
799$ WS "#include <stdlib.h>
800$ WS "#endif
801$ WS "#include <stdio.h>
802$ WS "#include <strings.h>
803$ WS "int main()
804$ WS "{"
805$ WS "char foo[10];
806$ WS "bzero(foo, 10);
807$ WS "exit(0);
808$ WS "}"
809$ CS
810$ DEFINE SYS$ERROR _NLA0:
811$ DEFINE SYS$OUTPUT _NLA0:
812$ on error then continue
813$ on warning then continue
814$ 'Checkcc' temp
815$ savedstatus = $status
816$ teststatus = f$extract(9,1,savedstatus)
817$ if (teststatus.nes."1")
818$ THEN
819$ perl_d_bzero="undef"
820$ DEASSIGN SYS$OUTPUT
821$ DEASSIGN SYS$ERROR
822$ ELSE
823$ If (Needs_Opt.eqs."Yes")
824$ THEN
825$ link temp,temp/opt
826$ else
827$ link temp
828$ endif
829$ savedstatus = $status
830$ teststatus = f$extract(9,1,savedstatus)
831$ DEASSIGN SYS$OUTPUT
832$ DEASSIGN SYS$ERROR
833$ if (teststatus.nes."1")
834$ THEN
835$ perl_d_bzero="undef"
836$ ELSE
837$ perl_d_bzero="define"
838$ ENDIF
839$ ENDIF
840$ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
841$!
842$! Check for bcopy
843$!
844$ OS
845$ WS "#ifdef __DECC
846$ WS "#include <stdlib.h>
847$ WS "#endif
848$ WS "#include <stdio.h>
849$ WS "#include <strings.h>
850$ WS "int main()
851$ WS "{"
852$ WS "char foo[10], bar[10];
853$ WS "bcopy(""foo"", bar, 3);
854$ WS "exit(0);
855$ WS "}"
856$ CS
857$ DEFINE SYS$ERROR _NLA0:
858$ DEFINE SYS$OUTPUT _NLA0:
859$ on error then continue
860$ on warning then continue
861$ 'Checkcc' temp
862$ savedstatus = $status
863$ teststatus = f$extract(9,1,savedstatus)
864$ if (teststatus.nes."1")
865$ THEN
866$ perl_d_bcopy="undef"
867$ DEASSIGN SYS$OUTPUT
868$ DEASSIGN SYS$ERROR
869$ ELSE
870$ If (Needs_Opt.eqs."Yes")
871$ THEN
872$ link temp,temp/opt
873$ else
874$ link temp
875$ endif
876$ savedstatus = $status
877$ teststatus = f$extract(9,1,savedstatus)
878$ DEASSIGN SYS$OUTPUT
879$ DEASSIGN SYS$ERROR
880$ if (teststatus.nes."1")
881$ THEN
882$ perl_d_bcopy="undef"
883$ ELSE
884$ perl_d_bcopy="define"
885$ ENDIF
886$ ENDIF
887$ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
888$!
889$! Check for mkstemp
890$!
891$ OS
892$ WS "#ifdef __DECC
893$ WS "#include <stdlib.h>
894$ WS "#endif
895$ WS "#include <stdio.h>
896$ WS "int main()
897$ WS "{"
898$ WS "mkstemp(""foo"");
899$ WS "exit(0);
900$ WS "}"
901$ CS
902$ DEFINE SYS$ERROR _NLA0:
903$ DEFINE SYS$OUTPUT _NLA0:
904$ on error then continue
905$ on warning then continue
906$ 'Checkcc' temp
907$ If (Needs_Opt.eqs."Yes")
908$ THEN
909$ link temp,temp/opt
910$ else
911$ link temp
912$ endif
913$ savedstatus = $status
914$ teststatus = f$extract(9,1,savedstatus)
915$ DEASSIGN SYS$OUTPUT
916$ DEASSIGN SYS$ERROR
917$ if (teststatus.nes."1")
918$ THEN
919$ perl_d_mkstemp="undef"
920$ ELSE
921$ perl_d_mkstemp="define"
922$ ENDIF
923$ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
924$!
925$! Check for setvbuf
926$!
927$ OS
928$ WS "#ifdef __DECC
929$ WS "#include <stdlib.h>
930$ WS "#endif
931$ WS "#include <stdio.h>
932$ WS "int main()
933$ WS "{"
934$ WS "FILE *foo;
935$ WS "char Buffer[99];
936$ WS "foo = fopen(""foo"", ""r"");
937$ WS "setvbuf(foo, Buffer, 0, 0);
938$ WS "exit(0);
939$ WS "}"
940$ CS
941$ DEFINE SYS$ERROR _NLA0:
942$ DEFINE SYS$OUTPUT _NLA0:
943$ on error then continue
944$ on warning then continue
945$ 'Checkcc' temp
946$ If (Needs_Opt.eqs."Yes")
947$ THEN
948$ link temp,temp/opt
949$ else
950$ link temp
951$ endif
952$ teststatus = f$extract(9,1,$status)
953$ DEASSIGN SYS$OUTPUT
954$ DEASSIGN SYS$ERROR
955$ if (teststatus.nes."1")
956$ THEN
957$ perl_d_setvbuf="undef"
958$ ELSE
959$ perl_d_setvbuf="define"
960$ ENDIF
961$ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
962$!
963$! Check for <netinet/in.h>
964$!
965$ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
966$ THEN
967$ OS
968$ WS "#ifdef __DECC
969$ WS "#include <stdlib.h>
970$ WS "#endif
971$ WS "#include <stdio.h>
972$ if ("''Has_Socketshr'".eqs."T")
973$ THEN
974$ WS "#include <socketshr.h>"
975$ else
976$ WS "#include <netdb.h>
977$ endif
978$ WS "#include <netinet/in.h>"
979$ WS "int main()
980$ WS "{"
981$ WS "exit(0);
982$ WS "}"
983$ CS
984$ DEFINE SYS$ERROR _NLA0:
985$ DEFINE SYS$OUTPUT _NLA0:
986$ on error then continue
987$ on warning then continue
988$ 'Checkcc' temp
989$ If (Needs_Opt.eqs."Yes")
990$ THEN
991$ link temp,temp/opt
992$ else
993$ link temp
994$ endif
995$ teststatus = f$extract(9,1,$status)
996$ DEASSIGN SYS$OUTPUT
997$ DEASSIGN SYS$ERROR
998$ if (teststatus.nes."1")
999$ THEN
1000$ perl_i_niin="undef"
1001$ ELSE
1002$ perl_i_niin="define"
1003$ ENDIF
1004$ ELSE
1005$ perl_i_niin="undef"
1006$ ENDIF
1007$ WRITE_RESULT "i_niin is ''perl_i_niin'"
1008$!
1009$! Check for endhostent
1010$!
1011$ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1012$ THEN
1013$ OS
1014$ WS "#ifdef __DECC
1015$ WS "#include <stdlib.h>
1016$ WS "#endif
1017$ WS "#include <stdio.h>
1018$ if ("''Has_Socketshr'".eqs."T")
1019$ THEN
1020$ WS "#include <socketshr.h>"
1021$ else
1022$ WS "#include <netdb.h>
1023$ endif
1024$ WS "int main()
1025$ WS "{"
1026$ WS "endhostent();
1027$ WS "exit(0);
1028
1029$ CS
1030$ DEFINE SYS$ERROR _NLA0:
1031$ DEFINE SYS$OUTPUT _NLA0:
1032$ on error then continue
1033$ on warning then continue
1034$ 'Checkcc' temp
1035$ If (Needs_Opt.eqs."Yes")
1036$ THEN
1037$ link temp,temp/opt
1038$ else
1039$ link temp
1040$ endif
1041$ teststatus = f$extract(9,1,$status)
1042$ DEASSIGN SYS$OUTPUT
1043$ DEASSIGN SYS$ERROR
1044$ if (teststatus.nes."1")
1045$ THEN
1046$ perl_d_endhent="undef"
1047$ ELSE
1048$ perl_d_endhent="define"
1049$ ENDIF
1050$ ELSE
1051$ perl_d_endhent="undef"
1052$ ENDIF
1053$ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
1054$!
1055$! Check for endnetent
1056$!
1057$ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1058$ THEN
1059$ OS
1060$ WS "#ifdef __DECC
1061$ WS "#include <stdlib.h>
1062$ WS "#endif
1063$ WS "#include <stdio.h>
1064$ if ("''Has_Socketshr'".eqs."T")
1065$ THEN
1066$ WS "#include <socketshr.h>"
1067$ else
1068$ WS "#include <netdb.h>
1069$ endif
1070$ WS "int main()
1071$ WS "{"
1072$ WS "endnetent();
1073$ WS "exit(0);
1074$ WS "}"
1075$ CS
1076$ DEFINE SYS$ERROR _NLA0:
1077$ DEFINE SYS$OUTPUT _NLA0:
1078$ on error then continue
1079$ on warning then continue
1080$ 'Checkcc' temp
1081$ If (Needs_Opt.eqs."Yes")
1082$ THEN
1083$ link temp,temp/opt
1084$ else
1085$ link temp
1086$ endif
1087$ teststatus = f$extract(9,1,$status)
1088$ DEASSIGN SYS$OUTPUT
1089$ DEASSIGN SYS$ERROR
1090$ if (teststatus.nes."1")
1091$ THEN
1092$ perl_d_endnent="undef"
1093$ ELSE
1094$ perl_d_endnent="define"
1095$ ENDIF
1096$ ELSE
1097$ perl_d_endnent="undef"
1098$ ENDIF
1099$ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
1100$!
1101$! Check for endprotoent
1102$!
1103$ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1104$ THEN
1105$ OS
1106$ WS "#ifdef __DECC
1107$ WS "#include <stdlib.h>
1108$ WS "#endif
1109$ WS "#include <stdio.h>
1110$ if ("''Has_Socketshr'".eqs."T")
1111$ THEN
1112$ WS "#include <socketshr.h>"
1113$ else
1114$ WS "#include <netdb.h>
1115$ endif
1116$ WS "int main()
1117$ WS "{"
1118$ WS "endprotoent();
1119$ WS "exit(0);
1120$ WS "}"
1121$ CS
1122$ DEFINE SYS$ERROR _NLA0:
1123$ DEFINE SYS$OUTPUT _NLA0:
1124$ on error then continue
1125$ on warning then continue
1126$ 'Checkcc' temp
1127$ If (Needs_Opt.eqs."Yes")
1128$ THEN
1129$ link temp,temp/opt
1130$ else
1131$ link temp
1132$ endif
1133$ teststatus = f$extract(9,1,$status)
1134$ DEASSIGN SYS$OUTPUT
1135$ DEASSIGN SYS$ERROR
1136$ if (teststatus.nes."1")
1137$ THEN
1138$ perl_d_endpent="undef"
1139$ ELSE
1140$ perl_d_endpent="define"
1141$ ENDIF
1142$ ELSE
1143$ perl_d_endpent="undef"
1144$ ENDIF
1145$ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
1146$!
1147$! Check for endservent
1148$!
1149$ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1150$ THEN
1151$ OS
1152$ WS "#ifdef __DECC
1153$ WS "#include <stdlib.h>
1154$ WS "#endif
1155$ WS "#include <stdio.h>
1156$ if ("''Has_Socketshr'".eqs."T")
1157$ THEN
1158$ WS "#include <socketshr.h>"
1159$ else
1160$ WS "#include <netdb.h>
1161$ endif
1162$ WS "int main()
1163$ WS "{"
1164$ WS "endservent();
1165$ WS "exit(0);
1166$ WS "}"
1167$ CS
1168$ DEFINE SYS$ERROR _NLA0:
1169$ DEFINE SYS$OUTPUT _NLA0:
1170$ on error then continue
1171$ on warning then continue
1172$ 'Checkcc' temp
1173$ If (Needs_Opt.eqs."Yes")
1174$ THEN
1175$ link temp,temp/opt
1176$ else
1177$ link temp
1178$ endif
1179$ teststatus = f$extract(9,1,$status)
1180$ DEASSIGN SYS$OUTPUT
1181$ DEASSIGN SYS$ERROR
1182$ if (teststatus.nes."1")
1183$ THEN
1184$ perl_d_endsent="undef"
1185$ ELSE
1186$ perl_d_endsent="define"
1187$ ENDIF
1188$ ELSE
1189$ perl_d_endsent="undef"
1190$ ENDIF
1191$ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
1192$!
1193$! Check for sethostent
1194$!
1195$ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1196$ THEN
1197$ OS
1198$ WS "#ifdef __DECC
1199$ WS "#include <stdlib.h>
1200$ WS "#endif
1201$ WS "#include <stdio.h>
1202$ if ("''Has_Socketshr'".eqs."T")
1203$ THEN
1204$ WS "#include <socketshr.h>"
1205$ else
1206$ WS "#include <netdb.h>
1207$ endif
1208$ WS "int main()
1209$ WS "{"
1210$ WS "sethostent(1);
1211$ WS "exit(0);
1212$ WS "}"
1213$ CS
1214$ DEFINE SYS$ERROR _NLA0:
1215$ DEFINE SYS$OUTPUT _NLA0:
1216$ on error then continue
1217$ on warning then continue
1218$ 'Checkcc' temp
1219$ If (Needs_Opt.eqs."Yes")
1220$ THEN
1221$ link temp,temp/opt
1222$ else
1223$ link temp
1224$ endif
1225$ teststatus = f$extract(9,1,$status)
1226$ DEASSIGN SYS$OUTPUT
1227$ DEASSIGN SYS$ERROR
1228$ if (teststatus.nes."1")
1229$ THEN
1230$ perl_d_sethent="undef"
1231$ ELSE
1232$ perl_d_sethent="define"
1233$ ENDIF
1234$ ELSE
1235$ perl_d_sethent="undef"
1236$ ENDIF
1237$ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
1238$!
1239$! Check for setnetent
1240$!
1241$ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1242$ THEN
1243$ OS
1244$ WS "#ifdef __DECC
1245$ WS "#include <stdlib.h>
1246$ WS "#endif
1247$ WS "#include <stdio.h>
1248$ if ("''Has_Socketshr'".eqs."T")
1249$ THEN
1250$ WS "#include <socketshr.h>"
1251$ else
1252$ WS "#include <netdb.h>
1253$ endif
1254$ WS "int main()
1255$ WS "{"
1256$ WS "setnetent(1);
1257$ WS "exit(0);
1258$ WS "}"
1259$ CS
1260$ DEFINE SYS$ERROR _NLA0:
1261$ DEFINE SYS$OUTPUT _NLA0:
1262$ on error then continue
1263$ on warning then continue
1264$ 'Checkcc' temp
1265$ If (Needs_Opt.eqs."Yes")
1266$ THEN
1267$ link temp,temp/opt
1268$ else
1269$ link temp
1270$ endif
1271$ teststatus = f$extract(9,1,$status)
1272$ DEASSIGN SYS$OUTPUT
1273$ DEASSIGN SYS$ERROR
1274$ if (teststatus.nes."1")
1275$ THEN
1276$ perl_d_setnent="undef"
1277$ ELSE
1278$ perl_d_setnent="define"
1279$ ENDIF
1280$ ELSE
1281$ perl_d_setnent="undef"
1282$ ENDIF
1283$ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
1284$!
1285$! Check for setprotoent
1286$!
1287$ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1288$ THEN
1289$ OS
1290$ WS "#ifdef __DECC
1291$ WS "#include <stdlib.h>
1292$ WS "#endif
1293$ WS "#include <stdio.h>
1294$ if ("''Has_Socketshr'".eqs."T")
1295$ THEN
1296$ WS "#include <socketshr.h>"
1297$ else
1298$ WS "#include <netdb.h>
1299$ endif
1300$ WS "int main()
1301$ WS "{"
1302$ WS "setprotoent(1);
1303$ WS "exit(0);
1304$ WS "}"
1305$ CS
1306$ DEFINE SYS$ERROR _NLA0:
1307$ DEFINE SYS$OUTPUT _NLA0:
1308$ on error then continue
1309$ on warning then continue
1310$ 'Checkcc' temp
1311$ If (Needs_Opt.eqs."Yes")
1312$ THEN
1313$ link temp,temp/opt
1314$ else
1315$ link temp
1316$ endif
1317$ teststatus = f$extract(9,1,$status)
1318$ DEASSIGN SYS$OUTPUT
1319$ DEASSIGN SYS$ERROR
1320$ if (teststatus.nes."1")
1321$ THEN
1322$ perl_d_setpent="undef"
1323$ ELSE
1324$ perl_d_setpent="define"
1325$ ENDIF
1326$ ELSE
1327$ perl_d_setpent="undef"
1328$ ENDIF
1329$ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
1330$!
1331$! Check for setservent
1332$!
1333$ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1334$ THEN
1335$ OS
1336$ WS "#ifdef __DECC
1337$ WS "#include <stdlib.h>
1338$ WS "#endif
1339$ WS "#include <stdio.h>
1340$ if ("''Has_Socketshr'".eqs."T")
1341$ THEN
1342$ WS "#include <socketshr.h>"
1343$ else
1344$ WS "#include <netdb.h>
1345$ endif
1346$ WS "int main()
1347$ WS "{"
1348$ WS "setservent(1);
1349$ WS "exit(0);
1350$ WS "}"
1351$ CS
1352$ DEFINE SYS$ERROR _NLA0:
1353$ DEFINE SYS$OUTPUT _NLA0:
1354$ on error then continue
1355$ on warning then continue
1356$ 'Checkcc' temp
1357$ If (Needs_Opt.eqs."Yes")
1358$ THEN
1359$ link temp,temp/opt
1360$ else
1361$ link temp
1362$ endif
1363$ teststatus = f$extract(9,1,$status)
1364$ DEASSIGN SYS$OUTPUT
1365$ DEASSIGN SYS$ERROR
1366$ if (teststatus.nes."1")
1367$ THEN
1368$ perl_d_setsent="undef"
1369$ ELSE
1370$ perl_d_setsent="define"
1371$ ENDIF
1372$ ELSE
1373$ perl_d_setsent="undef"
1374$ ENDIF
1375$ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
1376$!
1377$! Check for gethostent
1378$!
1379$ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1380$ THEN
1381$ OS
1382$ WS "#ifdef __DECC
1383$ WS "#include <stdlib.h>
1384$ WS "#endif
1385$ WS "#include <stdio.h>
1386$ if ("''Has_Socketshr'".eqs."T")
1387$ THEN
1388$ WS "#include <socketshr.h>"
1389$ else
1390$ WS "#include <netdb.h>
1391$ endif
1392$ WS "int main()
1393$ WS "{"
1394$ WS "gethostent();
1395$ WS "exit(0);
1396$ WS "}"
1397$ CS
1398$ DEFINE SYS$ERROR _NLA0:
1399$ DEFINE SYS$OUTPUT _NLA0:
1400$ on error then continue
1401$ on warning then continue
1402$ 'Checkcc' temp
1403$ If (Needs_Opt.eqs."Yes")
1404$ THEN
1405$ link temp,temp/opt
1406$ else
1407$ link temp
1408$ endif
1409$ teststatus = f$extract(9,1,$status)
1410$ DEASSIGN SYS$OUTPUT
1411$ DEASSIGN SYS$ERROR
1412$ if (teststatus.nes."1")
1413$ THEN
1414$ perl_d_gethent="undef"
1415$ ELSE
1416$ perl_d_gethent="define"
1417$ ENDIF
1418$ ELSE
1419$ perl_d_gethent="undef"
1420$ ENDIF
1421$ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
1422$!
1423$! Check for getnetent
1424$!
1425$ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1426$ THEN
1427$ OS
1428$ WS "#ifdef __DECC
1429$ WS "#include <stdlib.h>
1430$ WS "#endif
1431$ WS "#include <stdio.h>
1432$ if ("''Has_Socketshr'".eqs."T")
1433$ THEN
1434$ WS "#include <socketshr.h>"
1435$ else
1436$ WS "#include <netdb.h>
1437$ endif
1438$ WS "int main()
1439$ WS "{"
1440$ WS "getnetent();
1441$ WS "exit(0);
1442$ WS "}"
1443$ CS
1444$ DEFINE SYS$ERROR _NLA0:
1445$ DEFINE SYS$OUTPUT _NLA0:
1446$ on error then continue
1447$ on warning then continue
1448$ 'Checkcc' temp
1449$ If (Needs_Opt.eqs."Yes")
1450$ THEN
1451$ link temp,temp/opt
1452$ else
1453$ link temp
1454$ endif
1455$ teststatus = f$extract(9,1,$status)
1456$ DEASSIGN SYS$OUTPUT
1457$ DEASSIGN SYS$ERROR
1458$ if (teststatus.nes."1")
1459$ THEN
1460$ perl_d_getnent="undef"
1461$ ELSE
1462$ perl_d_getnent="define"
1463$ ENDIF
1464$ ELSE
1465$ perl_d_getnent="undef"
1466$ ENDIF
1467$ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
1468$!
1469$! Check for getprotoent
1470$!
1471$ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1472$ THEN
1473$ OS
1474$ WS "#ifdef __DECC
1475$ WS "#include <stdlib.h>
1476$ WS "#endif
1477$ WS "#include <stdio.h>
1478$ if ("''Has_Socketshr'".eqs."T")
1479$ THEN
1480$ WS "#include <socketshr.h>"
1481$ else
1482$ WS "#include <netdb.h>
1483$ endif
1484$ WS "int main()
1485$ WS "{"
1486$ WS "getprotoent();
1487$ WS "exit(0);
1488$ WS "}"
1489$ CS
1490$ DEFINE SYS$ERROR _NLA0:
1491$ DEFINE SYS$OUTPUT _NLA0:
1492$ on error then continue
1493$ on warning then continue
1494$ 'Checkcc' temp
1495$ If (Needs_Opt.eqs."Yes")
1496$ THEN
1497$ link temp,temp/opt
1498$ else
1499$ link temp
1500$ endif
1501$ teststatus = f$extract(9,1,$status)
1502$ DEASSIGN SYS$OUTPUT
1503$ DEASSIGN SYS$ERROR
1504$ if (teststatus.nes."1")
1505$ THEN
1506$ perl_d_getpent="undef"
1507$ ELSE
1508$ perl_d_getpent="define"
1509$ ENDIF
1510$ ELSE
1511$ perl_d_getpent="undef"
1512$ ENDIF
1513$ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
1514$!
1515$! Check for getservent
1516$!
1517$ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1518$ THEN
1519$ OS
1520$ WS "#ifdef __DECC
1521$ WS "#include <stdlib.h>
1522$ WS "#endif
1523$ WS "#include <stdio.h>
1524$ if ("''Has_Socketshr'".eqs."T")
1525$ THEN
1526$ WS "#include <socketshr.h>"
1527$ else
1528$ WS "#include <netdb.h>
1529$ endif
1530$ WS "int main()
1531$ WS "{"
1532$ WS "getservent();
1533$ WS "exit(0);
1534$ WS "}"
1535$ CS
1536$ DEFINE SYS$ERROR _NLA0:
1537$ DEFINE SYS$OUTPUT _NLA0:
1538$ on error then continue
1539$ on warning then continue
1540$ 'Checkcc' temp
1541$ If (Needs_Opt.eqs."Yes")
1542$ THEN
1543$ link temp,temp/opt
1544$ else
1545$ link temp
1546$ endif
1547$ teststatus = f$extract(9,1,$status)
1548$ DEASSIGN SYS$OUTPUT
1549$ DEASSIGN SYS$ERROR
1550$ if (teststatus.nes."1")
1551$ THEN
1552$ perl_d_getsent="undef"
1553$ ELSE
1554$ perl_d_getsent="define"
1555$ ENDIF
1556$ ELSE
1557$ perl_d_getsent="undef"
1558$ ENDIF
1559$ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
1560$!
1561$! Check for pthread_yield
1562$!
1563$ if ("''use_threads'".eqs."T")
1564$ THEN
1565$ OS
1566$ WS "#ifdef __DECC
1567$ WS "#include <stdlib.h>
1568$ WS "#endif
1569$ WS "#include <pthread.h>
1570$ WS "#include <stdio.h>
1571$ WS "int main()
1572$ WS "{"
1573$ WS "pthread_yield();
1574$ WS "exit(0);
1575$ WS "}"
1576$ CS
1577$ DEFINE SYS$ERROR _NLA0:
1578$ DEFINE SYS$OUTPUT _NLA0:
1579$ on error then continue
1580$ on warning then continue
1581$ 'Checkcc' temp
1582$ teststatus = f$extract(9,1,$status)
1583$ DEASSIGN SYS$OUTPUT
1584$ DEASSIGN SYS$ERROR
1585$ if (teststatus.nes."1")
1586$ THEN
1587$ perl_d_pthread_yield="undef"
1588$ ELSE
1589$ perl_d_pthread_yield="define"
1590$ ENDIF
1591$ ELSE
1592$ perl_d_pthread_yield="undef"
1593$ ENDIF
1594$ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
1595$!
1596$! Check for sched_yield
1597$!
1598$ if ("''use_threads'".eqs."T")
1599$ THEN
1600$ OS
1601$ WS "#ifdef __DECC
1602$ WS "#include <stdlib.h>
1603$ WS "#endif
1604$ WS "#include <pthread.h>
1605$ WS "#include <stdio.h>
1606$ WS "int main()
1607$ WS "{"
1608$ WS "sched_yield();
1609$ WS "exit(0);
1610$ WS "}"
1611$ CS
1612$ DEFINE SYS$ERROR _NLA0:
1613$ DEFINE SYS$OUTPUT _NLA0:
1614$ on error then continue
1615$ on warning then continue
1616$ 'Checkcc' temp
1617$ teststatus = f$extract(9,1,$status)
1618$ DEASSIGN SYS$OUTPUT
1619$ DEASSIGN SYS$ERROR
1620$ if (teststatus.nes."1")
1621$ THEN
1622$ perl_d_sched_yield="undef"
1623$ ELSE
1624$ perl_d_sched_yield="define"
1625$ ENDIF
1626$ ELSE
1627$ perl_d_sched_yield="undef"
1628$ ENDIF
1629$ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
1630$!
1631$! Check for generic pointer size
1632$!
1633$ OS
1634$ WS "#ifdef __DECC
1635$ WS "#include <stdlib.h>
1636$ WS "#endif
1637$ WS "#include <stdio.h>
1638$ WS "int main()
1639$ WS "{"
429a5e67 1640$ WS "int foo;
1641$ WS "foo = sizeof(char *);
1642$ WS "printf(""%d\n"", foo);
97abc6ad 1643$ WS "exit(0);
1644$ WS "}"
1645$ CS
429a5e67 1646$! copy temp.c sys$output
1647$!
97abc6ad 1648$ DEFINE SYS$ERROR _NLA0:
1649$ DEFINE SYS$OUTPUT _NLA0:
1650$ ON ERROR THEN CONTINUE
1651$ ON WARNING THEN CONTINUE
1652$ 'Checkcc' temp
1653$ If (Needs_Opt.eqs."Yes")
1654$ THEN
1655$ link temp,temp/opt
1656$ else
1657$ link temp
1658$ endif
1659$ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
1660$ DEASSIGN SYS$OUTPUT
1661$ DEASSIGN SYS$ERROR
1662$ DEFINE SYS$ERROR TEMPOUT
1663$ DEFINE SYS$OUTPUT TEMPOUT
1664$ mcr []temp
1665$ CLOSE TEMPOUT
1666$ DEASSIGN SYS$OUTPUT
1667$ DEASSIGN SYS$ERROR
1668$ OPEN/READ TEMPOUT [-.uu]tempout.lis
1669$ READ TEMPOUT line
1670$ CLOSE TEMPOUT
1671$
1672$ perl_ptrsize=line
1673$ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
1674$!
1675$ set nover
1676$! Done with compiler checks. Clean up.
1677$ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
1678$ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
1679$ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
1680$ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
1681$!
1682$!
1683$! Some that are compiler or VMS version sensitive
1684$!
1685$! Gnu C stuff
1686$ IF "''Using_Gnu_C'".EQS."Yes"
1687$ THEN
1688$ perl_d_attribut="define"
1689$ perl_vms_cc_type="gcc"
1690$ ELSE
1691$ perl_d_attribut="undef"
1692$ ENDIF
1693$
1694$! Dec C >= 5.2 and VMS ver >= 7.0
1695$ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
1696$ THEN
1697$ perl_d_bcmp="define"
1698$ perl_d_gettimeod="define"
1699$ perl_d_uname="define"
1700$ perl_d_sigaction="define"
1701$ perl_d_truncate="define"
1702$ perl_d_wait4="define"
1703$ perl_d_index="define"
1704$ perl_pidtype="pid_t"
1705$ 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"
1706$ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
1707$ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
1708$ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
1709$perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
1710$ 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"
1711$ perl_sig_num_with_commas=perl_sig_num
1712$ perl_uidtype="uid_t"
1713$ perl_d_pathconf="define"
1714$ perl_d_fpathconf="define"
1715$ perl_d_sysconf="define"
1716$ perl_d_sigsetjmp="define"
1717$ ELSE
1718$ perl_pidtype="unsigned int"
1719$ perl_d_gettimeod="undef"
1720$ perl_d_bcmp="undef"
1721$ perl_d_uname="undef"
1722$ perl_d_sigaction="undef"
1723$ perl_d_truncate="undef"
1724$ perl_d_wait4="undef"
1725$ perl_d_index="undef"
1726$ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
1727$ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
1728$ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
1729$ perl_sig_name_with_commas = psnwc1 + psnwc2
1730$ perl_sig_num="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
1731$ perl_sig_num_with_commas=perl_sig_num
1732$ perl_uidtype="unsigned int"
1733$ perl_d_pathconf="undef"
1734$ perl_d_fpathconf="undef"
1735$ perl_d_sysconf="undef"
1736$ perl_d_sigsetjmp="undef"
1737$ ENDIF
1738$!
1739$! Dec C alone
1740$ IF ("''Using_Dec_C'".EQS."Yes")
1741$ THEN
1742$ perl_d_mbstowcs="define"
1743$ perl_d_mbtowc="define"
1744$ perl_d_stdiobase="define"
1745$ perl_d_stdio_ptr_lval="define"
1746$ perl_d_stdio_cnt_lval="define"
1747$ perl_d_stdstdio="define"
1748$ perl_d_wcstombs="define"
1749$ perl_d_mblen="define"
1750$ perl_d_mktime="define"
1751$ perl_d_strcoll="define"
1752$ perl_d_strxfrm="define"
1753$ perl_d_wctomb="define"
1754$ perl_i_locale="define"
1755$ perl_d_locconv="define"
1756$ perl_d_setlocale="define"
1757$ perl_vms_cc_type="decc"
1758$ ELSE
1759$ perl_d_mbstowcs="undef"
1760$ perl_d_mbtowc="undef"
1761$ perl_d_stdiobase="undef"
1762$ perl_d_stdio_ptr_lval="undef"
1763$ perl_d_stdio_cnt_lval="undef"
1764$ perl_d_stdstdio="undef"
1765$ perl_d_wcstombs="undef"
1766$ perl_d_mblen="undef"
1767$ perl_d_mktime="undef"
1768$ perl_d_strcoll="undef"
1769$ perl_d_strxfrm="undef"
1770$ perl_d_wctomb="undef"
1771$ perl_i_locale="undef"
1772$ perl_d_locconv="undef"
1773$ perl_d_setlocale="undef"
1774$ ENDIF
1775$!
1776$! Vax C stuff
1777$ if ("''Using_Vax_C'".EQS."Yes")
1778$ THEN
1779$ perl_vms_cc_type="vaxc"
1780$ ENDIF
1781$!
1782$!
1783$! Sockets?
1784$ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
1785$ THEN
1786$ perl_d_vms_do_sockets="define"
1787$ perl_d_htonl="define"
1788$ perl_d_socket="define"
1789$ perl_d_select="define"
1790$ perl_netdb_host_type="char *"
1791$ perl_netdb_hlen_type="int"
1792$ perl_netdb_name_type="char *"
1793$ perl_netdb_net_type="long"
1794$ perl_d_gethbyaddr="define"
1795$ perl_d_gethbyname="define"
1796$ perl_d_getnbyaddr="define"
1797$ perl_d_getnbyname="define"
1798$ perl_d_getpbynumber="define"
1799$ perl_d_getpbyname="define"
1800$ perl_d_getsbyport="define"
1801$ perl_d_getsbyname="define"
1802$ perl_d_gethostprotos="define"
1803$ perl_d_getnetprotos="define"
1804$ perl_d_getprotoprotos="define"
1805$ perl_d_getservprotos="define"
1806$ ELSE
1807$ perl_d_vms_do_sockets="undef"
1808$ perl_d_htonl="undef"
1809$ perl_d_socket="undef"
1810$ perl_d_select="undef"
1811$ perl_netdb_host_type="char *"
1812$ perl_netdb_hlen_type="int"
1813$ perl_netdb_name_type="char *"
1814$ perl_netdb_net_type="long"
1815$ perl_d_gethbyaddr="undef"
1816$ perl_d_gethbyname="undef"
1817$ perl_d_getnbyaddr="undef"
1818$ perl_d_getnbyname="undef"
1819$ perl_d_getpbynumber="undef"
1820$ perl_d_getpbyname="undef"
1821$ perl_d_getsbyport="undef"
1822$ perl_d_getsbyname="undef"
1823$ perl_d_gethostprotos="undef"
1824$ perl_d_getnetprotos="undef"
1825$ perl_d_getprotoprotos="undef"
1826$ perl_d_getservprotos="undef"
1827$ ENDIF
1828$! Threads
1829$ if ("''use_threads'".eqs."T")
1830$ THEN
1831$ perl_usethreads="define"
1832$ perl_d_pthreads_created_joinable="define"
1833$ if ("''VMS_VER'".ges."7.0")
1834$ THEN
1835$ perl_d_oldpthreads="undef"
1836$ ELSE
1837$ perl_d_oldpthreads="define"
1838$ ENDIF
1839$ ELSE
1840$ perl_d_oldpthreads="undef"
1841$ perl_usethreads="undef"
1842$
1843$ perl_d_pthreads_created_joinable="undef"
1844$ ENDIF
1845$!
1846$!
1847$! Finally the composite ones. All config
1848$ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
1849$ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
1850$ perl_myhostname="''myhostname'"
1851$ perl_mydomain="''mydomain'"
1852$ perl_perladmin="''perladmin'"
1853$ perl_cf_email="''cf_email'"
1854$ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
1855$ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
1856$ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
1857$ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
1858$ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
1859$ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
1860$ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
1861$ if "''Using_Dec_C'" .eqs. "Yes"
1862$ THEN
429a5e67 1863$ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
97abc6ad 1864$ ELSE
1865$ IF "''Using_Vax_C'" .eqs. "Yes"
1866$ THEN
429a5e67 1867$ perl_ccflags="/Include=[]/Obj=''perl_obj_ext'/NoList''cc_flags'"
97abc6ad 1868$ ENDIF
1869$ ENDIF
1870$!
1871$! Finally clean off any leading zeros from the patchlevel or subversion
1872$ perl_patchlevel = perl_patchlevel + 0
1873$ perl_subversion = perl_subversion + 0
1874$!
1875$! Okay, we've got everything configured. Now go write out a config.sh.
1876$ open/write CONFIGSH [-]config.sh
1877$ WC := "write CONFIGSH"
1878$!
1879$ WC "# This file generated by Configure.COM on a VMS system."
1880$ WC "# Time: " + perl_cf_time
1881$ WC ""
1882$ WC "package='" + perl_package + "'"
1883$ WC "CONFIG='" + perl_config + "'"
1884$ WC "cf_time='" + perl_cf_time + "'"
1885$ WC "cf_by='" + perl_cf_by+ "'"
1886$ WC "cpp_stuff='" + perl_cpp_stuff + "'"
1887$ WC "ccdlflags='" + perl_ccdlflags + "'"
1888$ WC "cccdlflags='" + perl_cccdlflags + "'"
1889$ WC "mab='" + perl_mab + "'"
1890$ WC "libpth='" + perl_libpth + "'"
1891$ WC "ld='" + perl_ld + "'"
1892$ WC "lddlflags='" + perl_lddlflags + "'"
1893$ WC "ranlib='" + perl_ranlib + "'"
1894$ WC "ar='" + perl_ar + "'"
1895$ WC "eunicefix='" + perl_eunicefix + "'"
1896$ WC "hint='" + perl_hint +"'"
1897$ WC "hintfile='" + perl_hintfile + "'"
1898$ WC "shrplib='" + perl_shrplib + "'"
1899$ WC "usemymalloc='" + perl_usemymalloc + "'"
1900$ WC "usevfork='" + perl_usevfork + "'"
1901$ WC "useposix='false'"
1902$ WC "spitshell='write sys$output '"
1903$ WC "dlsrc='dl_vms.c'"
1904$ WC "binexp='" + perl_binexp + "'"
1905$ WC "man1ext='" + perl_man1ext + "'"
1906$ WC "man3ext='" + perl_man3ext + "'"
1907$ WC "arch='" + perl_arch + "'"
1908$ WC "archname='" + perl_archname + "'"
1909$ WC "osvers='" + perl_osvers + "'"
1910$ WC "prefix='" + perl_prefix + "'"
1911$ WC "builddir='" + perl_builddir + "'"
1912$ WC "installbin='" + perl_installbin + "'"
1913$ WC "installscript='" + perl_installscript + "'"
1914$ WC "installman1dir='" + perl_installman1dir + "'"
1915$ WC "installman3dir='" + perl_installman3dir + "'"
1916$ WC "installprivlib='" + perl_installprivlib + "'"
1917$ WC "installarchlib='" + perl_installarchlib + "'"
1918$ WC "installsitelib='" + perl_installsitelib + "'"
1919$ WC "installsitearch='" + perl_installsitearch + "'"
1920$ WC "path_sep='" + perl_path_sep + "'"
1921$ WC "startperl='$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ perl_ + ++$status != 0 and $exit = $status = undef;'"
1922$ WC "vms_cc_type='" + perl_vms_cc_type + "'"
1923$ WC "d_attribut='" + perl_d_attribut + "'"
1924$ WC "cc='" + perl_cc + "'"
1925$ WC "ccflags='" + perl_ccflags + "'"
1926$ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
1927$ WC "d_socket='" + perl_d_socket + "'"
1928$ WC "d_sockpair='" + perl_d_sockpair + "'"
1929$ WC "d_gethent='" + perl_d_gethent + "'"
1930$ WC "d_getsent='" + perl_d_getsent + "'"
1931$ WC "d_select='" + perl_d_select + "'"
1932$ WC "i_niin='" + perl_i_niin + "'"
1933$ WC "i_neterrno='" + perl_i_neterrno + "'"
1934$ WC "d_stdstdio='" + perl_d_stdstdio + "'"
1935$ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
1936$ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
1937$ WC "d_stdiobase='" + perl_d_stdiobase + "'"
1938$ WC "d_locconv='" + perl_d_locconv + "'"
1939$ WC "d_setlocale='" + perl_d_setlocale + "'"
1940$ WC "i_locale='" + perl_i_locale + "'"
1941$ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
1942$ WC "d_mbtowc='" + perl_d_mbtowc + "'"
1943$ WC "d_wcstombs='" + perl_d_wcstombs + "'"
1944$ WC "d_wctomb='" + perl_d_wctomb + "'"
1945$ WC "d_mblen='" + perl_d_mblen + "'"
1946$ WC "d_mktime='" + perl_d_mktime + "'"
1947$ WC "d_strcoll='" + perl_d_strcoll + "'"
1948$ WC "d_strxfrm='" + perl_d_strxfrm + "'"
1949$ WC "ldflags='" + perl_ldflags + "'"
1950$ WC "dlobj='" + perl_dlobj + "'"
1951$ WC "obj_ext='" + perl_obj_ext + "'"
1952$ WC "so='" + perl_so + "'"
1953$ WC "dlext='" + perl_dlext + "'"
1954$ WC "exe_ext='" + perl_exe_ext + "'"
1955$ WC "lib_ext='" + perl_lib_ext + "'"
1956$ WC "myhostname='" + perl_myhostname + "'"
1957$ WC "mydomain='" + perl_mydomain + "'"
1958$ WC "perladmin='" + perl_perladmin + "'"
1959$ WC "cf_email='" + perl_cf_email + "'"
1960$ WC "myuname='" + perl_myuname + "'"
1961$ WC "alignbytes='" + perl_alignbytes + "'"
1962$ WC "osname='" + perl_osname + "'"
1963$ WC "d_archlib='" + perl_d_archlib + "'"
1964$ WC "archlibexp='" + perl_archlibexp + "'"
1965$ WC "archlib='" + perl_archlib + "'"
1966$ WC "archname='" + perl_archname + "'"
1967$ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
1968$ WC "cppstdin='" + perl_cppstdin + "'"
1969$ WC "cppminus='" + perl_cppminus + "'"
1970$ WC "d_bcmp='" + perl_d_bcmp + "'"
1971$ WC "d_bcopy='" + perl_d_bcopy + "'"
1972$ WC "d_bzero='" + perl_d_bzero + "'"
1973$ WC "d_castneg='" + perl_d_castneg + "'"
1974$ WC "castflags='" + perl_castflags + "'"
1975$ WC "d_chsize='" + perl_d_chsize + "'"
1976$ WC "d_const='" + perl_d_const + "'"
1977$ WC "d_crypt='" + perl_d_crypt + "'"
1978$ WC "byteorder='" + perl_byteorder + "'"
1979$ WC "full_csh='" + perl_full_csh + "'"
1980$ WC "d_csh='" + perl_d_csh + "'"
1981$ WC "d_dup2='" + perl_d_dup2 + "'"
1982$ WC "d_fchmod='" + perl_d_fchmod + "'"
1983$ WC "d_fchown='" + perl_d_fchown + "'"
1984$ WC "d_fcntl='" + perl_d_fcntl + "'"
1985$ WC "d_fgetpos='" + perl_d_fgetpos + "'"
1986$ WC "d_flexfnam='" + perl_d_flexfnam + "'"
1987$ WC "d_flock='" + perl_d_flock + "'"
1988$ WC "d_fsetpos='" + perl_d_fsetpos + "'"
1989$ WC "d_gettimeod='" + perl_d_gettimeod + "'"
1990$ WC "d_getgrps='" + perl_d_getgrps + "'"
1991$ WC "d_setgrps='" + perl_d_setgrps + "'"
1992$ WC "d_uname='" + perl_d_uname + "'"
1993$ WC "d_getprior='" + perl_d_getprior + "'"
1994$ WC "d_killpg='" + perl_d_killpg + "'"
1995$ WC "d_link='" + perl_d_link + "'"
1996$ WC "d_lstat='" + perl_d_lstat + "'"
1997$ WC "d_lockf='" + perl_d_lockf + "'"
1998$ WC "d_memcmp='" + perl_d_memcmp + "'"
1999$ WC "d_memcpy='" + perl_d_memcpy + "'"
2000$ WC "d_memmove='" + perl_d_memmove + "'"
2001$ WC "d_memset='" + perl_d_memset + "'"
2002$ WC "d_mkdir='" + perl_d_mkdir + "'"
2003$ WC "d_msg='" + perl_d_msg + "'"
2004$ WC "d_open3='" + perl_d_open3 + "'"
2005$ WC "d_poll='" + perl_d_poll + "'"
2006$ WC "d_readdir='" + perl_d_readdir + "'"
2007$ WC "d_seekdir='" + perl_d_seekdir + "'"
2008$ WC "d_telldir='" + perl_d_telldir + "'"
2009$ WC "d_rewinddir='" + perl_d_rewinddir + "'"
2010$ WC "d_rename='" + perl_d_rename + "'"
2011$ WC "d_rmdir='" + perl_d_rmdir + "'"
2012$ WC "d_sem='" + perl_d_sem + "'"
2013$ WC "d_setegid='" + perl_d_setegid + "'"
2014$ WC "d_seteuid='" + perl_d_seteuid + "'"
2015$ WC "d_setprior='" + perl_d_setprior + "'"
2016$ WC "d_setregid='" + perl_d_setregid + "'"
2017$ WC "d_setresgid='" + perl_d_setresgid + "'"
2018$ WC "d_setreuid='" + perl_d_setreuid + "'"
2019$ WC "d_setresuid='" + perl_d_setresuid + "'"
2020$ WC "d_setrgid='" + perl_d_setrgid + "'"
2021$ WC "d_setruid='" + perl_d_setruid + "'"
2022$ WC "d_setsid='" + perl_d_setsid + "'"
2023$ WC "d_shm='" + perl_d_shm + "'"
2024$ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
2025$ WC "d_sigaction='" + perl_d_sigaction + "'"
2026$ WC "d_statblks='" + perl_d_statblks + "'"
2027$ WC "stdio_ptr='" + perl_stdio_ptr + "'"
2028$ WC "stdio_cnt='" + perl_stdio_cnt + "'"
2029$ WC "stdio_base='" + perl_stdio_base + "'"
2030$ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
2031$ WC "d_strctcpy='" + perl_d_strctcpy + "'"
2032$ WC "d_strerror='" + perl_d_strerror + "'"
2033$ WC "d_syserrlst='" + perl_d_syserrlst + "'"
2034$ WC "d_strerrm='" + perl_d_strerrm + "'"
2035$ WC "d_symlink='" + perl_d_symlink + "'"
2036$ WC "d_syscall='" + perl_d_syscall + "'"
2037$ WC "d_system='" + perl_d_system + "'"
2038$ WC "timetype='" + perl_timetype + "'"
2039$ WC "d_truncate='" + perl_d_truncate + "'"
2040$ WC "d_vfork='" + perl_d_vfork + "'"
2041$ WC "signal_t='" + perl_signal_t + "'"
2042$ WC "d_volatile='" + perl_d_volatile + "'"
2043$ WC "d_vprintf='" + perl_d_vprintf + "'"
2044$ WC "d_charvspr='" + perl_d_charvspr + "'"
2045$ WC "d_wait4='" + perl_d_wait4 + "'"
2046$ WC "d_waitpid='" + perl_d_waitpid + "'"
2047$ WC "i_dirent='" + perl_i_dirent + "'"
2048$ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
2049$ WC "direntrytype='" + perl_direntrytype + "'"
2050$ WC "i_fcntl='" + perl_i_fcntl + "'"
2051$ WC "i_grp='" + perl_i_grp + "'"
2052$ WC "i_limits='" + perl_i_limits + "'"
2053$ WC "i_memory='" + perl_i_memory + "'"
2054$ WC "i_ndbm='" + perl_i_ndbm + "'"
2055$ WC "i_stdarg='" + perl_i_stdarg + "'"
2056$ WC "i_pwd='" + perl_i_pwd + "'"
2057$ WC "d_pwquota='" + perl_d_pwquota + "'"
2058$ WC "d_pwage='" + perl_d_pwage + "'"
2059$ WC "d_pwchange='" + perl_d_pwchange + "'"
2060$ WC "d_pwclass='" + perl_d_pwclass + "'"
2061$ WC "d_pwexpire='" + perl_d_pwexpire + "'"
2062$ WC "d_pwcomment='" + perl_d_pwcomment + "'"
2063$ WC "i_stddef='" + perl_i_stddef + "'"
2064$ WC "i_stdlib='" + perl_i_stdlib + "'"
2065$ WC "i_string='" + perl_i_string + "'"
2066$ WC "i_sysdir='" + perl_i_sysdir + "'"
2067$ WC "i_sysfile='" + perl_i_sysfile + "'"
2068$ WC "i_sysioctl='" + perl_i_sysioctl + "'"
2069$ WC "i_sysndir='" + perl_i_sysndir + "'"
2070$ WC "i_sysresrc='" + perl_i_sysresrc + "'"
2071$ WC "i_sysselct='" + perl_i_sysselct + "'"
2072$ WC "i_dbm='" + perl_i_dbm + "'"
2073$ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
2074$ WC "i_sfio='" + perl_i_sfio + "'"
2075$ WC "i_sysstat='" + perl_i_sysstat + "'"
2076$ WC "i_systimes='" + perl_i_systimes + "'"
2077$ WC "i_systypes='" + perl_i_systypes + "'"
2078$ WC "i_sysun='" + perl_i_sysun + "'"
2079$ WC "i_syswait='" + perl_i_syswait + "'"
2080$ WC "i_termio='" + perl_i_termio + "'"
2081$ WC "i_sgtty='" + perl_i_sgtty + "'"
2082$ WC "i_termios='" + perl_i_termios + "'"
2083$ WC "i_time='" + perl_i_time + "'"
2084$ WC "i_systime='" + perl_i_systime + "'"
2085$ WC "i_systimek='" + perl_i_systimek + "'"
2086$ WC "i_unistd='" + perl_i_unistd + "'"
2087$ WC "i_utime='" + perl_i_utime + "'"
2088$ WC "i_varargs='" + perl_i_varargs + "'"
2089$ WC "i_vfork='" + perl_i_vfork + "'"
2090$ WC "prototype='" + perl_prototype + "'"
2091$ WC "randbits='" + perl_randbits +"'"
2092$ WC "selecttype='" + perl_selecttype + "'"
2093$ WC "stdchar='" + perl_stdchar + "'"
2094$ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
2095$ WC "full_sed='" + perl_full_sed + "'"
2096$ WC "bin='" + perl_bin + "'"
2097$ WC "binexp='" + perl_binexp + "'"
2098$ WC "d_alarm='" + perl_d_alarm + "'"
2099$ WC "d_casti32='" + perl_d_casti32 + "'"
2100$ WC "d_chown='" + perl_d_chown + "'"
2101$ WC "d_chroot='" + perl_d_chroot + "'"
2102$ WC "d_cuserid='" + perl_d_cuserid + "'"
2103$ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
2104$ WC "d_difftime='" + perl_d_difftime + "'"
2105$ WC "d_fork='" + perl_d_fork + "'"
2106$ WC "d_getlogin='" + perl_d_getlogin + "'"
2107$ WC "d_getppid='" + perl_d_getppid + "'"
2108$ WC "d_htonl='" + perl_d_htonl + "'"
2109$ WC "d_nice='" + perl_d_nice + "'"
2110$ WC "d_pause='" + perl_d_pause + "'"
2111$ WC "d_pipe='" + perl_d_pipe + "'"
2112$ WC "d_readlink='" + perl_d_readlink + "'"
2113$ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
2114$ WC "d_strchr='" + perl_d_strchr + "'"
2115$ WC "d_index='" + perl_d_index + "'"
2116$ WC "d_strtod='" + perl_d_strtod + "'"
2117$ WC "d_strtol='" + perl_d_strtol + "'"
2118$ WC "d_strtoul='" + perl_d_strtoul + "'"
2119$ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
2120$ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
2121$ WC "d_times='" + perl_d_times + "'"
2122$ WC "d_tzname='" + perl_d_tzname + "'"
2123$ WC "d_umask='" + perl_d_umask + "'"
2124$ WC "fpostype='" + perl_fpostype + "'"
2125$ WC "i_dlfcn='" + perl_i_dlfcn + "'"
2126$ WC "i_float='" + perl_i_float + "'"
2127$ WC "i_math='" + perl_i_math + "'"
2128$ WC "intsize='" + perl_intsize + "'"
2129$ WC "longsize='" + perl_longsize + "'"
2130$ WC "shortsize='" + perl_shortsize + "'"
2131$ WC "lseektype='" + perl_lseektype + "'"
2132$ WC "i_values='" + perl_i_values + "'"
2133$ WC "malloctype='" + perl_malloctype + "'"
2134$ WC "freetype='" + perl_freetype + "'"
2135$ WC "d_mymalloc='" + perl_d_mymalloc + "'"
2136$ WC "sh='" + perl_sh + "'"
2137$ WC "sig_name='" + perl_sig_name + "'"
2138$ WC "sig_num='" + perl_sig_num + "'"
2139$ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
2140$ WC/symbol tempsym
2141$ WC "modetype='" + perl_modetype + "'"
2142$ WC "ssizetype='" + perl_ssizetype + "'"
2143$ WC "o_nonblock='" + perl_o_nonblock + "'"
2144$ WC "eagain='" + perl_eagain + "'"
2145$ WC "rd_nodata='" + perl_rd_nodata + "'"
2146$ WC "d_eofnblk='" + perl_d_eofnblk + "'"
2147$ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
2148$ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
2149$ WC "oldarchlib='" + perl_oldarchlib + "'"
2150$ WC "privlibexp='" + perl_privlibexp + "'"
2151$ WC "privlib='" + perl_privlib + "'"
2152$ WC "sitelibexp='" + perl_sitelibexp + "'"
2153$ WC "sitelib='" + perl_sitelib + "'"
2154$ WC "sitearchexp='" + perl_sitearchexp + "'"
2155$ WC "sitearch='" + perl_sitearch + "'"
2156$ WC "sizetype='" + perl_sizetype + "'"
2157$ WC "i_sysparam='" + perl_i_sysparam + "'"
2158$ WC "d_void_closedir='" + perl_d_void_closedir + "'"
2159$ WC "d_dlerror='" + perl_d_dlerror + "'"
2160$ WC "d_dlsymun='" + perl_d_dlsymun + "'"
2161$ WC "d_suidsafe='" + perl_d_suidsafe + "'"
2162$ WC "d_dosuid='" + perl_d_dosuid + "'"
2163$ WC "d_inetaton='" + perl_d_inetaton + "'"
2164$ WC "d_isascii='" + perl_d_isascii + "'"
2165$ WC "d_mkfifo='" + perl_d_mkfifo + "'"
2166$ WC "d_pathconf='" + perl_d_pathconf + "'"
2167$ WC "d_fpathconf='" + perl_d_fpathconf + "'"
2168$ WC "d_safebcpy='" + perl_d_safebcpy + "'"
2169$ WC "d_safemcpy='" + perl_d_safemcpy + "'"
2170$ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
2171$ WC "d_setpgrp='" + perl_d_setpgrp + "'"
2172$ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
2173$ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
2174$ WC "d_setpgid='" + perl_d_setpgid + "'"
2175$ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
2176$ WC "d_sysconf='" + perl_d_sysconf + "'"
2177$ WC "d_Gconvert='" + perl_d_Gconvert + "'"
2178$ WC "d_getpgid='" + perl_d_getpgid + "'"
2179$ WC "d_getpgrp='" + perl_d_getpgrp + "'"
2180$ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
2181$ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
2182$ WC "d_sfio='" + perl_d_sfio + "'"
2183$ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
2184$ WC "usedl='" + perl_usedl + "'"
2185$ WC "startperl='" + perl_startperl + "'"
2186$ WC "db_hashtype='" + perl_db_hashtype + "'"
2187$ WC "db_prefixtype='" + perl_db_prefixtype + "'"
2188$ WC "useperlio='" + perl_useperlio + "'"
2189$ WC "defvoidused='" + perl_defvoidused + "'"
2190$ WC "voidflags='" + perl_voidflags + "'"
2191$ WC "d_eunice='" + perl_d_eunice + "'"
2192$ WC "libs='" + perl_libs + "'"
2193$ WC "libc='" + perl_libc + "'"
2194$ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
2195$ WC tempstring
2196$ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
2197$ WC tempstring
2198$ WC "pager='" + perl_pager + "'"
2199$ WC "uidtype='" + perl_uidtype + "'"
2200$ WC "gidtype='" + perl_gidtype + "'"
2201$ WC "usethreads='" + perl_usethreads + "'"
2202$ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
2203$ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
2204$ WC "d_gnulibc='" + perl_d_gnulibc + "'"
2205$ WC "i_netdb='" + perl_i_netdb + "'"
2206$ WC "pidtype='" + perl_pidtype + "'"
2207$ WC "netdb_host_type='" + perl_netdb_host_type + "'"
2208$ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
2209$ WC "netdb_name_type='" + perl_netdb_name_type + "'"
2210$ WC "netdb_net_type='" + perl_netdb_net_type + "'"
2211$ WC "baserev='" + perl_baserev + "'"
2212$ WC "doublesize='" + perl_doublesize + "'"
2213$ WC "ptrsize='" + perl_ptrsize + "'"
2214$ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
2215$ WC "d_gethbyname='" + perl_d_gethbyname + "'"
2216$ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
2217$ WC "d_getnbyname='" + perl_d_getnbyname + "'"
2218$ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
2219$ WC "d_getpbyname='" + perl_d_getpbyname + "'"
2220$ WC "d_getsbyport='" + perl_d_getsbyport + "'"
2221$ WC "d_getsbyname='" + perl_d_getsbyname + "'"
2222$ WC "d_sethent='" + perl_d_sethent + "'"
2223$ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
2224$ WC "d_longdbl='" + perl_d_longdbl + "'"
2225$ WC "longdblsize='" + perl_longdblsize + "'"
2226$ WC "d_longlong='" + perl_d_longlong + "'"
2227$ WC "longlongsize='" + perl_longlongsize + "'"
2228$ WC "d_mkstemp='" + perl_d_mkstemp + "'"
2229$ WC "d_setvbuf='" + perl_d_setvbuf + "'"
2230$ WC "d_endhent='" + perl_d_endhent + "'"
2231$ WC "d_endnent='" + perl_d_endsent + "'"
2232$ WC "d_endpent='" + perl_d_endpent + "'"
2233$ WC "d_endsent='" + perl_d_endsent + "'"
2234$ WC "d_gethent='" + perl_d_gethent + "'"
2235$ WC "d_getnent='" + perl_d_getsent + "'"
2236$ WC "d_getpent='" + perl_d_getpent + "'"
2237$ WC "d_getsent='" + perl_d_getsent + "'"
2238$ WC "d_sethent='" + perl_d_sethent + "'"
2239$ WC "d_setnent='" + perl_d_setsent + "'"
2240$ WC "d_setpent='" + perl_d_setpent + "'"
2241$ WC "d_setsent='" + perl_d_setsent + "'"
2242$ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
2243$ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
2244$ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
2245$ WC "d_getservprotos='" + perl_d_getservprotos + "'"
2246$ WC "d_pwgecos='" + perl_d_pwgecos + "'"
2247$ WC "d_sched_yield='" + perl_d_sched_yield + "'"
2248$ WC "d_lchown='" + perl_d_lchown + "'"
2249$ WC "d_union_semun='" + perl_d_union_semun + "'"
2250$ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
2251$ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
2252$ WC "extensions='" + perl_extensions + "'"
c05f8f3d 2253$ WC "d_mknod='" + perl_d_mknod + "'"
2254$ WC "devtype='" + perl_devtype + "'"
97abc6ad 2255$!
2256$ Close CONFIGSH
2257$
2258$! Okay, we've gotten here. Build munchconfig and run it
2259$ 'Perl_CC' munchconfig
2260$ If (Needs_Opt.eqs."Yes")
2261$ THEN
2262$ open/write OPTCHAN []munchconfig.opt
2263$ IF ("''using_gnu_c'".eqs."Yes")
2264$ THEN
2265$ write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
2266$ endif
2267$ write OPTCHAN "Sys$Share:VAXCRTL/Share"
2268$ Close OPTCHAN
2269$ link munchconfig,munchconfig/opt
2270$ delete munchconfig.opt;*
2271$ else
2272$ link munchconfig
2273$ endif
2274$ WRITE_RESULT "Writing config.h"
429a5e67 2275$ !
2276$ ! we need an fdl file
2277$ CREATE [-]CONFIG.FDL
2278RECORD
2279 FORMAT STREAM_LF
2280$ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
2281$ ! First spit out the header info with the local defines (to get
2282$ ! around the 255 character command line limit)
2283$ OPEN/APPEND CONFIG [-]config.local
2284$ if use_debugging_perl.eqs."Y"
2285$ THEN
2286$ WRITE CONFIG "#define DEBUGGING"
2287$ ENDIF
2288$ if preload_env.eqs."Y"
2289$ THEN
2290$ WRITE CONFIG "#define PRIME_ENV_AT_STARTUP"
2291$ ENDIF
2292$ if use_two_pot_malloc.eqs."Y"
2293$ THEN
2294$ WRITE CONFIG "#define TWO_POT_OPTIMIZE"
2295$ endif
2296$ if mymalloc.eqs."Y"
2297$ THEN
2298$ WRITE CONFIG "#define EMBEDMYMALLOC"
2299$ ENDIF
2300$ if use_pack_malloc.eqs."Y"
2301$ THEN
2302$ WRITE CONFIG "#define PACK_MALLOC"
2303$ endif
2304$ if use_debugmalloc.eqs."Y"
2305$ THEN
2306$ write config "#define DEBUGGING_MSTATS"
2307$ ENDIF
2308$ if "''Using_Gnu_C'" .eqs."Yes"
2309$ THEN
2310$ WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
2311$ ENDIF
2312$ if "''Has_Dec_C_Sockets'".eqs."T"
2313$ THEN
2314$ WRITE CONFIG "#define VMS_DO_SOCKETS"
2315$ WRITE CONFIG "#define DECCRTL_SOCKETS"
2316$ ENDIF
2317$ if "''Has_Socketshr'".eqs."T"
2318$ THEN
2319$ WRITE CONFIG "#define VMS_DO_SOCKETS"
2320$ ENDIF
2321$ CLOSE CONFIG
2322$!
2323$! Now build the normal config.h
2324$ define/user sys$output [-]config.main
97abc6ad 2325$ mcr []munchconfig [-]config.sh [-]config_h.sh
429a5e67 2326$ ! Concatenate them together
2327$ copy [-]config.local,[-]config.main [-]config.h
2328$! Clean up
2329$ DELETE/NOLOG [-]CONFIG.MAIN;*
2330$ DELETE/NOLOG [-]CONFIG.LOCAL;*
2331$ DELETE/NOLOG [-]CONFIG.FDL;*
2332$!
97abc6ad 2333$ if "''Using_Dec_C'" .eqs."Yes"
2334$ THEN
2335$ DECC_REPLACE = "DECC=decc=1"
2336$ ELSE
2337$ DECC_REPLACE = "DECC="
2338$ ENDIF
2339$ if "''Using_Gnu_C'" .eqs."Yes"
2340$ THEN
2341$ GNUC_REPLACE = "GNUC=gnuc=1"
2342$ ELSE
2343$ GNUC_REPLACE = "GNUC="
2344$ ENDIF
2345$ if "''Has_Dec_C_Sockets'" .eqs."T"
2346$ THEN
2347$ SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
2348$ ELSE
2349$ if "''Has_Socketshr'" .eqs."T"
2350$ THEN
2351$ SOCKET_REPLACE = "SOCKET=SOCKETSHRSOCKETS=1"
2352$ ELSE
2353$ SOCKET_REPLACE = "SOCKET="
2354$ ENDIF
2355$ ENDIF
2356$ IF ("''Use_Threads'".eqs."T")
2357$ THEN
2358$ if ("''VMS_VER'".LES."6.2")
2359$ THEN
2360$ THREAD_REPLACE = "THREAD=OLDTHREADED=1"
2361$ ELSE
2362$ THREAD_REPLACE = "THREAD=THREADED=1"
2363$ ENDIF
429a5e67 2364$ ELSE
2365$ THREAD_REPLACE = "THREAD="
2366$ ENDIF
2367$ if mymalloc.eqs."Y"
2368$ THEN
2369$ MALLOC_REPLACE = "MALLOC=MALLOC=1"
2370$ ELSE
2371$ MALLOC_REPLACE = "MALLOC="
97abc6ad 2372$ ENDIF
2373$ if f$getsyi("HW_MODEL").ge.1024
2374$ THEN
2375$ ARCH_TYPE = "ARCH-TYPE=__AXP__"
2376$ ELSE
2377$ ARCH_TYPE = "ARCH-TYPE=__VAX__"
2378$ ENDIF
2379$ WRITE_RESULT "Writing DESCRIP.MMS"
2380$!set ver
2381$ define/user sys$output [-]descrip.mms
429a5e67 2382$ 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 2383$! set nover
2384$!
2385$! Clean up after ourselves
2386$ delete/nolog munchconfig.exe;*
2387$ delete/nolog munchconfig.obj;*
Unnamed repository; edit this file to name it for gitweb.