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