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