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