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