vms/subconfigure.com

   1 $! SUBCONFIGURE.COM - build a config.sh for VMS Perl.
   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.
  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'"
  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
  45 $ if "''Using_Dec_C'" .eqs. "Yes"
  46 $ THEN
  47 $   Checkcc := "''Mcc'/prefix=all"
  48 $ ELSE
  49 $   Checkcc := "''Mcc'"
  50 $ ENDIF
  51 $ cc_flags = ""
  52 $ if use_multiplicity .eqs. "Y"
  53 $ THEN
  54 $   perl_usemultiplicity = "define"
  55 $ ELSE
  56 $   perl_usemultiplicity = "undef"
  57 $ ENDIF
  58 $! Some constant defaults.
  59 $
  60 $ hwname = f$getsyi("HW_NAME")
  61 $ myname = myhostname
  62 $ if "''myname'" .eqs. "" THEN myname = f$trnlnm("SYS$NODE")
  63 $!
  64 $! ##ADD NEW CONSTANTS HERE##
  65 $ perl_package="''package'"
  66 $ perl_baserev = "''baserev'"
  67 $ cc_defines=""
  68 $ perl_CONFIG="true"
  69 $ perl_d_fseeko="undef"
  70 $ perl_d_ftello="undef"
  71 $ perl_d_readv="undef"
  72 $ perl_d_writev="undef"
  73 $ perl_i_machcthr="undef"
  74 $ perl_i_netdb="undef"
  75 $ perl_d_gnulibc="undef"
  76 $ perl_cf_by="unknown"
  77 $ perl_ccdlflags=""
  78 $ perl_cccdlflags=""
  79 $ perl_mab=""
  80 $ perl_drand01 = "random()"
  81 $ perl_randseedtype = "unsigned int"
  82 $ perl_seedfunc = "srand"
  83 $ perl_d_msg_ctrunc = "undef"
  84 $ perl_d_msg_dontroute = "undef"
  85 $ perl_d_msg_oob = "undef"
  86 $ perl_d_msg_peek = "undef"
  87 $ perl_d_msg_proxy = "undef"
  88 $ perl_d_scm_rights = "undef"
  89 $ perl_d_sendmsg = "undef"
  90 $ perl_d_recvmsg = "undef"
  91 $ perl_d_msghdr_s = "undef"
  92 $ perl_d_cmsghdr_s = "undef"
  93 $ perl_d_dbminit64 = "undef"
  94 $ perl_d_dbmclose64 = "undef"
  95 $ perl_d_fetch64 = "undef"
  96 $ perl_d_store64 = "undef"
  97 $ perl_d_delete64 = "undef"
  98 $ perl_d_firstkey64 = "undef"
  99 $ perl_d_nextkey64 = "undef"
 100 $ perl_d_fstat64 = "undef"
 101 $ perl_d_ftruncate64 = "undef"
 102 $ perl_d_lseek64 = "undef"
 103 $ perl_d_lstat64 = "undef"
 104 $ perl_d_open64 = "undef"
 105 $ perl_d_opendir64 = "undef"
 106 $ perl_d_readdir64 = "undef"
 107 $ perl_d_seekdir64 = "undef"
 108 $ perl_d_stat64 = "undef"
 109 $ perl_d_telldir64 = "undef"
 110 $ perl_d_truncate64 = "undef"
 111 $ perl_d_dirent64_s = "undef"
 112 $ perl_d_fgetpos64 = "undef"
 113 $ perl_d_fopen64 = "undef"
 114 $ perl_d_freopen64 = "undef"
 115 $ perl_d_fseek64 = "undef"
 116 $ perl_d_fseeko64 = "undef"
 117 $ perl_d_fsetpos64 = "undef"
 118 $ perl_d_ftell64 = "undef"
 119 $ perl_d_ftello64 = "undef"
 120 $ perl_d_tmpfile64 = "undef"
 121 $ perl_use64bits = "undef"
 122 $ perl_d_drand48proto = "define"
 123 $ perl_libpth="/sys$share /sys$library"
 124 $ perl_ld="Link"
 125 $ perl_lddlflags="/Share"
 126 $ perl_ranlib=""
 127 $ perl_ar=""
 128 $ perl_eunicefix=":"
 129 $ perl_hint="none"
 130 $ perl_i_arpainet="undef"
 131 $ perl_d_grpasswd="undef"
 132 $ perl_d_setgrent="undef"
 133 $ perl_d_getgrent="define"
 134 $ perl_d_endgrent="define"
 135 $ perl_d_pwpasswd="define"
 136 $ perl_d_setpwent="define"
 137 $ perl_d_getpwent="define"
 138 $ perl_d_endpwent="define"
 139 $ perl_d_phostname="undef"
 140 $ perl_d_accessx="undef"
 141 $ perl_d_eaccess="undef"
 142 $ perl_ebcdic="undef"
 143 $ perl_hintfile=""
 144 $ perl_shrplib="define"
 145 $ perl_usemymalloc=mymalloc
 146 $ perl_usevfork="true"
 147 $ perl_useposix="false"
 148 $ perl_spitshell="write sys$output "
 149 $ perl_dlsrc="dl_vms.c"
 150 $ perl_man1ext="rno"
 151 $ perl_man3ext="rno"
 152 $ perl_prefix="perl_root"
 153 $ perl_binexp="''perl_prefix':[000000]"
 154 $ perl_builddir="''perl_prefix':[000000]"
 155 $ perl_installbin="''perl_prefix':[000000]"
 156 $ perl_installscript="''perl_prefix':[utils]"
 157 $ perl_installman1dir="''perl_prefix':[man.man1]"
 158 $ perl_installman3dir="''perl_prefix':[man.man3]"
 159 $ perl_installprivlib="''perl_prefix':[lib]"
 160 $ perl_installsitelib="''perl_prefix':[lib.site_perl]"
 161 $ perl_path_sep="|"
 162 $ perl_cc=Mcc
 163 $ perl_d_sockpair="undef"
 164 $ perl_i_neterrno="define"
 165 $ perl_ldflags="/NoTrace/NoMap"
 166 $ perl_d_lchown="undef"
 167 $ perl_d_mknod="undef"
 168 $ perl_d_union_semun="undef"
 169 $ perl_d_semctl_semun="undef"
 170 $ perl_d_semctl_semid_ds="undef"
 171 $ IF (sharedperl.EQS."Y")
 172 $ THEN
 173 $ perl_obj_ext=".abj"
 174 $ perl_so="axe"
 175 $ perl_dlext="axe"
 176 $ perl_exe_ext=".axe"
 177 $ perl_lib_ext=".alb"
 178 $ ELSE
 179 $ perl_obj_ext=".obj"
 180 $ perl_so="exe"
 181 $ perl_dlext="exe"
 182 $ perl_exe_ext=".exe"
 183 $ perl_lib_ext=".olb"
 184 $ENDIF
 185 $ perl_dlobj="dl_vms''perl_obj_ext'"
 186 $ perl_osname="VMS"
 187 $ perl_d_archlib="define"
 188 $ perl_d_bincompat3="undef"
 189 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
 190 $ perl_cppminus=""
 191 $ perl_d_castneg="define"
 192 $ perl_castflags="0"
 193 $ perl_d_chsize="undef"
 194 $ perl_d_const="define"
 195 $ perl_d_crypt="define"
 196 $ perl_byteorder="1234"
 197 $ perl_full_csh=""
 198 $ perl_d_csh="undef"
 199 $ perl_d_dup2="define"
 200 $ perl_d_fchmod="undef"
 201 $ perl_d_fchown="undef"
 202 $ perl_d_fcntl="undef"
 203 $ perl_d_fgetpos="define"
 204 $ perl_d_flexfnam="define"
 205 $ perl_d_flock="undef"
 206 $ perl_d_fsetpos="define"
 207 $ perl_d_getgrps="undef"
 208 $ perl_d_setgrps="undef"
 209 $ perl_d_getprior="undef"
 210 $ perl_d_killpg="undef"
 211 $ perl_d_link="undef"
 212 $ perl_d_lstat="undef"
 213 $ perl_d_lockf="undef"
 214 $ perl_d_memcmp="define"
 215 $ perl_d_memcpy="define"
 216 $ perl_d_memmove="define"
 217 $ perl_d_memset="define"
 218 $ perl_d_mkdir="define"
 219 $ perl_d_msg="undef"
 220 $ perl_d_open3="define"
 221 $ perl_d_poll="undef"
 222 $ perl_d_readdir="define"
 223 $ perl_d_seekdir="define"
 224 $ perl_d_telldir="define"
 225 $ perl_d_rewinddir="define"
 226 $ perl_d_rename="define"
 227 $ perl_d_rmdir="define"
 228 $ perl_d_sem="undef"
 229 $ perl_d_setegid="undef"
 230 $ perl_d_seteuid="undef"
 231 $ perl_d_setprior="undef"
 232 $ perl_d_setregid="undef"
 233 $ perl_d_setresgid="undef"
 234 $ perl_d_setreuid="undef"
 235 $ perl_d_setresuid="undef"
 236 $ perl_d_setrgid="undef"
 237 $ perl_d_setruid="undef"
 238 $ perl_d_setsid="undef"
 239 $ perl_d_shm="undef"
 240 $ perl_d_shmatprototype="undef"
 241 $ perl_d_statblks="undef"
 242 $ perl_stdio_ptr="((*fp)->_ptr)"
 243 $ perl_stdio_cnt="((*fp)->_cnt)"
 244 $ perl_stdio_base="((*fp)->_base)"
 245 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
 246 $ perl_d_strctcpy="define"
 247 $ perl_d_strerror="define"
 248 $ perl_d_syserrlst="undef"
 249 $ perl_d_strerrm="strerror((e),vaxc$errno)"
 250 $ perl_d_symlink="undef"
 251 $ perl_d_syscall="undef"
 252 $ perl_d_system="define"
 253 $ perl_timetype="time_t"
 254 $ perl_d_vfork="define"
 255 $ perl_signal_t="void"
 256 $ perl_d_volatile="define"
 257 $ perl_d_vprintf="define"
 258 $ perl_d_charvspr="undef"
 259 $ perl_d_waitpid="define"
 260 $ perl_i_dirent="undef"
 261 $ perl_d_dirnamlen="define"
 262 $ perl_direntrytype="struct dirent"
 263 $ perl_i_fcntl="undef"
 264 $ perl_i_grp="undef"
 265 $ perl_i_limits="define"
 266 $ perl_i_memory="undef"
 267 $ perl_i_ndbm="undef"
 268 $ perl_i_stdarg="define"
 269 $ perl_i_pwd="undef"
 270 $ perl_d_pwquota="undef"
 271 $ perl_d_pwage="undef"
 272 $ perl_d_pwchange="undef"
 273 $ perl_d_pwclass="undef"
 274 $ perl_d_pwexpire="undef"
 275 $ perl_d_pwcomment="define"
 276 $ perl_i_stddef="define"
 277 $ perl_i_stdlib="define"
 278 $ perl_i_string="define"
 279 $ perl_i_sysdir="undef"
 280 $ perl_i_sysfile="undef"
 281 $ perl_i_sysioctl="undef"
 282 $ perl_i_sysndir="undef"
 283 $ perl_i_sysresrc="undef"
 284 $ perl_i_sysselct="undef"
 285 $ perl_i_dbm="undef"
 286 $ perl_i_rpcsvcdbm="undef"
 287 $ perl_i_sfio="undef"
 288 $ perl_i_sysstat="define"
 289 $ perl_i_systimes="undef"
 290 $ perl_i_systypes="define"
 291 $ perl_i_sysun="undef"
 292 $ perl_i_syswait="undef"
 293 $ perl_i_termio="undef"
 294 $ perl_i_sgtty="undef"
 295 $ perl_i_termios="undef"
 296 $ perl_i_time="define"
 297 $ perl_i_systime="undef"
 298 $ perl_i_systimek="undef"
 299 $! perl_i_unistd="undef"
 300 $ perl_i_utime="undef"
 301 $ perl_i_varargs="undef"
 302 $ perl_i_vfork="undef"
 303 $ perl_prototype="define"
 304 $ perl_randbits="31"
 305 $ perl_stdchar="char"
 306 $ perl_d_unlink_all_versions="undef"
 307 $ perl_full_sed="_NLA0:"
 308 $ perl_bin="/''perl_prefix'/000000"
 309 $ perl_binexp="''perl_prefix':[000000]"
 310 $ perl_d_alarm="define"
 311 $ perl_d_casti32="define"
 312 $ perl_d_chown="define"
 313 $ perl_d_chroot="undef"
 314 $ perl_d_cuserid="define"
 315 $ perl_d_dbl_dig="define"
 316 $ perl_d_difftime="define"
 317 $ perl_d_fork="undef"
 318 $ perl_d_getlogin="define"
 319 $ perl_d_getppid="undef"
 320 $ perl_d_nice="define"
 321 $ perl_d_pause="define"
 322 $ perl_d_pipe="define"
 323 $ perl_d_readlink="undef"
 324 $ perl_d_setlinebuf="undef"
 325 $ perl_d_strchr="define"
 326 $ perl_d_strtod="define"
 327 $ perl_d_strtol="define"
 328 $ perl_d_strtoul="define"
 329 $ perl_d_tcgetpgrp="undef"
 330 $ perl_d_tcsetpgrp="undef"
 331 $ perl_d_times="define"
 332 $ perl_d_tzname="undef"
 333 $ perl_d_umask="define"
 334 $ perl_fpostype="fpos_t"
 335 $ perl_i_dlfcn="undef"
 336 $ perl_i_float="define"
 337 $ perl_i_math="define"
 338 $ perl_lseektype="int"
 339 $ perl_i_values="undef"
 340 $ perl_malloctype="void *"
 341 $ perl_freetype="void"
 342 $ if "''mymalloc'".eqs."Y"
 343 $ THEN
 344 $ perl_d_mymalloc="define"
 345 $ ELSE
 346 $ perl_d_mymalloc="undef"
 347 $ENDIF
 348 $ perl_sh="MCR"
 349 $ perl_modetype="unsigned int"
 350 $ perl_ssizetype="int"
 351 $ perl_o_nonblock=""
 352 $ perl_eagain=""
 353 $ perl_rd_nodata=""
 354 $ perl_d_eofnblk="undef"
 355 $ perl_d_oldarchlib="define"
 356 $ perl_privlibexp="''perl_prefix':[lib]"
 357 $ perl_privlib="''perl_prefix':[lib]"
 358 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
 359 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
 360 $ perl_sizetype="size_t"
 361 $ perl_i_sysparam="undef"
 362 $ perl_d_void_closedir="define"
 363 $ perl_d_dlerror="undef"
 364 $ perl_d_dlsymun="undef"
 365 $ perl_d_suidsafe="undef"
 366 $ perl_d_dosuid="undef"
 367 $ perl_d_inetaton="undef"
 368 $ perl_d_isascii="define"
 369 $ perl_d_mkfifo="undef"
 370 $ perl_d_safebcpy="undef"
 371 $ perl_d_safemcpy="define"
 372 $ perl_d_sanemcmp="define"
 373 $ perl_d_setpgrp="undef"
 374 $ perl_d_bsdsetpgrp="undef"
 375 $ perl_d_bsdpgrp="undef"
 376 $ perl_d_setpgid="undef"
 377 $ perl_d_setpgrp2="undef"
 378 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
 379 $ perl_d_getpgid="undef"
 380 $ perl_d_getpgrp="undef"
 381 $ perl_d_bsdgetpgrp="undef"
 382 $ perl_d_getpgrp2="undef"
 383 $ perl_d_sfio="undef"
 384 $ perl_usedl="define"
 385 $ perl_startperl="""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8'  !\n$ exit++ + ++$status != 0 and $exit = $status = undef;"""
 386 $ perl_db_hashtype=""
 387 $ perl_db_prefixtype=""
 388 $ perl_useperlio="undef"
 389 $ perl_defvoidused="15"
 390 $ perl_voidflags="15"
 391 $ perl_d_eunice="undef"
 392 $ perl_d_pwgecos="define"
 393 $ IF ("''Use_Threads'".eqs."T").and.("''VMS_VER'".LES."6.2")
 394 $ THEN
 395 $ 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"
 396 $ ELSE
 397 $ perl_libs=""
 398 $ ENDIF
 399 $ IF ("''Using_Dec_C'".eqs."Yes")
 400 $ THEN
 401 $ perl_libc="(DECCRTL)"
 402 $ ELSE
 403 $ perl_libc=""
 404 $ ENDIF
 405 $ perl_PATCHLEVEL="''patchlevel'"
 406 $ perl_SUBVERSION="''subversion'"
 407 $ perl_pager="most"
 408 $!
 409 $!
 410 $! Now some that we build up
 411 $!
 412 $ LocalTime = f$time()
 413 $ perl_cf_time= f$extract(0, 3, f$cvtime(LocalTime,, "WEEKDAY")) + " " + -
 414                 f$edit(f$cvtime(LocalTime, "ABSOLUTE", "MONTH"), "LOWERCASE") + -
 415                 " " + f$cvtime(LocalTime,, "DAY") + " " + f$cvtime(LocalTime,, "TIME") + -
 416                 " " + f$cvtime(LocalTime,, "YEAR")
 417 $ if f$getsyi("HW_MODEL").ge.1024
 418 $ THEN
 419 $ perl_arch="VMS_AXP"
 420 $ perl_archname="VMS_AXP"
 421 $ perl_alignbytes="8"
 422 $ ELSE
 423 $ perl_arch="VMS_VAX"
 424 $ perl_archname="VMS_VAX"
 425 $ perl_alignbytes="8"
 426 $ ENDIF
 427 $ if ("''Use_Threads'".eqs."T")
 428 $ THEN
 429 $ perl_arch = "''perl_arch'-thread"
 430 $ perl_archname = "''perl_archname'-thread"
 431 $ ELSE
 432 $ perl_d_pthread_create_joinable = "undef"
 433 $ perl_pthread_create_joinable = ""
 434 $ ENDIF
 435 $ perl_osvers=f$edit(osvers, "TRIM")
 436 $ if (perl_subversion + 0).eq.0
 437 $ THEN
 438 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL
 439 $ ELSE
 440 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion
 441 $ ENDIF
 442 $!
 443 $! Some that we need to invoke the compiler for
 444 $ OS := "open/write SOURCECHAN []temp.c"
 445 $ WS := "write SOURCECHAN"
 446 $ CS := "close SOURCECHAN"
 447 $ DS := "delete/nolog []temp.*;*"
 448 $ Needs_Opt := "No"
 449 $ if ("''using_vax_c'".eqs."Yes").or.("''using_gnu_c'".eqs."Yes")
 450 $ THEN
 451 $   open/write OPTCHAN []temp.opt
 452 $   IF ("''using_gnu_c'".eqs."Yes")
 453 $   THEN
 454 $     write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
 455 $   endif
 456 $   write OPTCHAN "Sys$Share:VAXCRTL/Share"
 457 $   Close OPTCHAN
 458 $   Needs_Opt := "Yes"
 459 $ ENDIF
 460 $!
 461 $! Check for __STDC__
 462 $!
 463 $ OS
 464 $ WS "#ifdef __DECC
 465 $ WS "#include <stdlib.h>
 466 $ WS "#endif
 467 $ WS "#include <stdio.h>
 468 $ WS "int main()
 469 $ WS "{"
 470 $ WS "#ifdef __STDC__
 471 $ WS "printf(""42\n"");
 472 $ WS "#else
 473 $ WS "printf(""1\n"");
 474 $ WS "#endif
 475 $ WS "exit(0);
 476 $ WS "}"
 477 $ CS
 478 $   DEFINE SYS$ERROR _NLA0:
 479 $   DEFINE SYS$OUTPUT _NLA0:
 480 $   ON ERROR THEN CONTINUE
 481 $   ON WARNING THEN CONTINUE
 482 $   'Checkcc' temp.c
 483 $   If (Needs_Opt.eqs."Yes")
 484 $   THEN
 485 $     link temp.obj,temp.opt/opt
 486 $   else
 487 $     link temp.obj
 488 $   endif
 489 $   DEASSIGN SYS$OUTPUT
 490 $   DEASSIGN SYS$ERROR
 491 $   OPEN/WRITE TEMPOUT [-.uu]tempout.lis
 492 $   DEFINE SYS$ERROR TEMPOUT
 493 $   DEFINE SYS$OUTPUT TEMPOUT
 494 $   mcr []temp
 495 $   CLOSE TEMPOUT
 496 $   DEASSIGN SYS$OUTPUT
 497 $   DEASSIGN SYS$ERROR
 498 $   OPEN/READ TEMPOUT [-.uu]tempout.lis
 499 $   READ TEMPOUT line
 500 $   CLOSE TEMPOUT
 501 $
 502 $ perl_cpp_stuff=line
 503 $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
 504 $!
 505 $! Check for double size
 506 $!
 507 $ OS
 508 $ WS "#ifdef __DECC
 509 $ WS "#include <stdlib.h>
 510 $ WS "#endif
 511 $ WS "#include <stdio.h>
 512 $ WS "int main()
 513 $ WS "{"
 514 $ WS "int foo;
 515 $ WS "foo = sizeof(double);
 516 $ WS "printf(""%d\n"", foo);
 517 $ WS "exit(0);
 518 $ WS "}"
 519 $ CS
 520 $   DEFINE SYS$ERROR _NLA0:
 521 $   DEFINE SYS$OUTPUT _NLA0:
 522 $   ON ERROR THEN CONTINUE
 523 $   ON WARNING THEN CONTINUE
 524 $   'Checkcc' temp.c
 525 $   If (Needs_Opt.eqs."Yes")
 526 $   THEN
 527 $     link temp.obj,temp.opt/opt
 528 $   else
 529 $     link temp.obj
 530 $   endif
 531 $!   link temp.obj
 532 $   OPEN/WRITE TEMPOUT [-.uu]tempout.lis
 533 $   DEASSIGN SYS$OUTPUT
 534 $   DEASSIGN SYS$ERROR
 535 $   DEFINE SYS$ERROR TEMPOUT
 536 $   DEFINE SYS$OUTPUT TEMPOUT
 537 $   mcr []temp
 538 $   CLOSE TEMPOUT
 539 $   DEASSIGN SYS$OUTPUT
 540 $   DEASSIGN SYS$ERROR
 541 $   OPEN/READ TEMPOUT [-.uu]tempout.lis
 542 $   READ TEMPOUT line
 543 $   CLOSE TEMPOUT
 544 $
 545 $ perl_doublesize=line
 546 $ WRITE_RESULT "doublesize is ''perl_doublesize'"
 547 $!
 548 $! Check for long double size
 549 $!
 550 $ OS
 551 $ WS "#ifdef __DECC
 552 $ WS "#include <stdlib.h>
 553 $ WS "#endif
 554 $ WS "#include <stdio.h>
 555 $ WS "int main()
 556 $ WS "{"
 557 $ WS "printf(""%d\n"", sizeof(long double));
 558 $ WS "exit(0);
 559 $ WS "}"
 560 $ CS
 561 $   DEFINE SYS$ERROR _NLA0:
 562 $   DEFINE SYS$OUTPUT _NLA0:
 563 $   ON ERROR THEN CONTINUE
 564 $   ON WARNING THEN CONTINUE
 565 $   'Checkcc' temp.c
 566 $   teststatus = f$extract(9,1,$status)
 567 $   if (teststatus.nes."1")
 568 $   THEN
 569 $     perl_longdblsize="0"
 570 $     perl_d_longdbl="undef"
 571 $   ELSE
 572 $     ON ERROR THEN CONTINUE
 573 $     ON WARNING THEN CONTINUE
 574 $     If (Needs_Opt.eqs."Yes")
 575 $     THEN
 576 $     link temp.obj,temp.opt/opt
 577 $     else
 578 $       link temp.obj
 579 $     endif
 580 $     teststatus = f$extract(9,1,$status)
 581 $     DEASSIGN SYS$OUTPUT
 582 $     DEASSIGN SYS$ERROR
 583 $     if (teststatus.nes."1")
 584 $     THEN
 585 $       perl_longdblsize="0"
 586 $       perl_d_longdbl="undef"
 587 $     ELSE
 588 $       OPEN/WRITE TEMPOUT [-.uu]tempout.lis
 589 $       DEFINE SYS$ERROR TEMPOUT
 590 $       DEFINE SYS$OUTPUT TEMPOUT
 591 $       mcr []temp
 592 $       CLOSE TEMPOUT
 593 $       DEASSIGN SYS$OUTPUT
 594 $       DEASSIGN SYS$ERROR
 595 $       OPEN/READ TEMPOUT [-.uu]tempout.lis
 596 $       READ TEMPOUT line
 597 $       CLOSE TEMPOUT
 598 $
 599 $       perl_longdblsize=line
 600 $       perl_d_longdbl="define"
 601 $     ENDIF
 602 $   ENDIF
 603 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
 604 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
 605 $!
 606 $! Check for long long existance and size
 607 $!
 608 $ OS
 609 $ WS "#ifdef __DECC
 610 $ WS "#include <stdlib.h>
 611 $ WS "#endif
 612 $ WS "#include <stdio.h>
 613 $ WS "int main()
 614 $ WS "{"
 615 $ WS "printf(""%d\n"", sizeof(long long));
 616 $ WS "exit(0);
 617 $ WS "}"
 618 $ CS
 619 $   DEFINE SYS$ERROR _NLA0:
 620 $   DEFINE SYS$OUTPUT _NLA0:
 621 $   on error then continue
 622 $   on warning then continue
 623 $   'Checkcc' temp.c
 624 $   If (Needs_Opt.eqs."Yes")
 625 $   THEN
 626 $     link temp.obj,temp.opt/opt
 627 $   else
 628 $     link temp.obj
 629 $   endif
 630 $   teststatus = f$extract(9,1,$status)
 631 $   DEASSIGN SYS$OUTPUT
 632 $   DEASSIGN SYS$ERROR
 633 $   if (teststatus.nes."1")
 634 $   THEN
 635 $     perl_longlongsize="0"
 636 $     perl_d_longlong="undef"
 637 $   ELSE
 638 $     OPEN/WRITE TEMPOUT [-.uu]tempout.lis
 639 $     DEFINE SYS$ERROR TEMPOUT
 640 $     DEFINE SYS$OUTPUT TEMPOUT
 641 $     mcr []temp
 642 $     CLOSE TEMPOUT
 643 $     DEASSIGN SYS$OUTPUT
 644 $     DEASSIGN SYS$ERROR
 645 $     OPEN/READ TEMPOUT [-.uu]tempout.lis
 646 $     READ TEMPOUT line
 647 $     CLOSE TEMPOUT
 648 $
 649 $     perl_longlongsize=line
 650 $     perl_d_longlong="define"
 651 $   ENDIF
 652 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
 653 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
 654 $!
 655 $! Check for int size
 656 $!
 657 $ OS
 658 $ WS "#ifdef __DECC
 659 $ WS "#include <stdlib.h>
 660 $ WS "#endif
 661 $ WS "#include <stdio.h>
 662 $ WS "int main()
 663 $ WS "{"
 664 $ WS "printf(""%d\n"", sizeof(int));
 665 $ WS "exit(0);
 666 $ WS "}"
 667 $ CS
 668 $   DEFINE SYS$ERROR _NLA0:
 669 $   DEFINE SYS$OUTPUT _NLA0:
 670 $   on error then continue
 671 $   on warning then continue
 672 $   'Checkcc' temp.c
 673 $   If (Needs_Opt.eqs."Yes")
 674 $   THEN
 675 $     link temp.obj,temp.opt/opt
 676 $   else
 677 $     link temp.obj
 678 $   endif
 679 $   If (Needs_Opt.eqs."Yes")
 680 $   THEN
 681 $     link temp.obj,temp.opt/opt
 682 $   else
 683 $     link temp.obj
 684 $   endif
 685 $   OPEN/WRITE TEMPOUT [-.uu]tempout.lis
 686 $   DEASSIGN SYS$OUTPUT
 687 $   DEASSIGN SYS$ERROR
 688 $   DEFINE SYS$ERROR TEMPOUT
 689 $   DEFINE SYS$OUTPUT TEMPOUT
 690 $   mcr []temp
 691 $   CLOSE TEMPOUT
 692 $   DEASSIGN SYS$OUTPUT
 693 $   DEASSIGN SYS$ERROR
 694 $   OPEN/READ TEMPOUT [-.uu]tempout.lis
 695 $   READ TEMPOUT line
 696 $   CLOSE TEMPOUT
 697 $
 698 $   perl_intsize=line
 699 $ WRITE_RESULT "intsize is ''perl_intsize'"
 700 $!
 701 $! Check for short size
 702 $!
 703 $ OS
 704 $ WS "#ifdef __DECC
 705 $ WS "#include <stdlib.h>
 706 $ WS "#endif
 707 $ WS "#include <stdio.h>
 708 $ WS "int main()
 709 $ WS "{"
 710 $ WS "printf(""%d\n"", sizeof(short));
 711 $ WS "exit(0);
 712 $ WS "}"
 713 $ CS
 714 $   DEFINE SYS$ERROR _NLA0:
 715 $   DEFINE SYS$OUTPUT _NLA0:
 716 $   on error then continue
 717 $   on warning then continue
 718 $   'Checkcc' temp.c
 719 $   If (Needs_Opt.eqs."Yes")
 720 $   THEN
 721 $     link temp.obj,temp.opt/opt
 722 $   else
 723 $     link temp.obj
 724 $   endif
 725 $   OPEN/WRITE TEMPOUT [-.uu]tempout.lis
 726 $   DEASSIGN SYS$OUTPUT
 727 $   DEASSIGN SYS$ERROR
 728 $   DEFINE SYS$ERROR TEMPOUT
 729 $   DEFINE SYS$OUTPUT TEMPOUT
 730 $   mcr []temp
 731 $   CLOSE TEMPOUT
 732 $   DEASSIGN SYS$OUTPUT
 733 $   DEASSIGN SYS$ERROR
 734 $   OPEN/READ TEMPOUT [-.uu]tempout.lis
 735 $   READ TEMPOUT line
 736 $   CLOSE TEMPOUT
 737 $
 738 $   perl_shortsize=line
 739 $ WRITE_RESULT "shortsize is ''perl_shortsize'"
 740 $!
 741 $! Check for long size
 742 $!
 743 $ OS
 744 $ WS "#ifdef __DECC
 745 $ WS "#include <stdlib.h>
 746 $ WS "#endif
 747 $ WS "#include <stdio.h>
 748 $ WS "int main()
 749 $ WS "{"
 750 $ WS "int foo;
 751 $ WS "foo = sizeof(long);
 752 $ WS "printf(""%d\n"", foo);
 753 $ WS "exit(0);
 754 $ WS "}"
 755 $ CS
 756 $   DEFINE SYS$ERROR _NLA0:
 757 $   DEFINE SYS$OUTPUT _NLA0:
 758 $   on error then continue
 759 $   on warning then continue
 760 $   'Checkcc' temp.c
 761 $   If (Needs_Opt.eqs."Yes")
 762 $   THEN
 763 $     link temp.obj,temp.opt/opt
 764 $   else
 765 $     link temp.obj
 766 $   endif
 767 $   OPEN/WRITE TEMPOUT [-.uu]tempout.lis
 768 $   DEASSIGN SYS$OUTPUT
 769 $   DEASSIGN SYS$ERROR
 770 $   DEFINE SYS$ERROR TEMPOUT
 771 $   DEFINE SYS$OUTPUT TEMPOUT
 772 $   mcr []temp
 773 $   CLOSE TEMPOUT
 774 $   DEASSIGN SYS$OUTPUT
 775 $   DEASSIGN SYS$ERROR
 776 $   OPEN/READ TEMPOUT [-.uu]tempout.lis
 777 $   READ TEMPOUT line
 778 $   CLOSE TEMPOUT
 779 $
 780 $   perl_longsize=line
 781 $ WRITE_RESULT "longsize is ''perl_longsize'"
 782 $!
 783 $! Check the prototype for getgid
 784 $!
 785 $ OS
 786 $ WS "#ifdef __DECC
 787 $ WS "#include <stdlib.h>
 788 $ WS "#endif
 789 $ WS "#include <stdio.h>
 790 $ WS "#include <types.h>
 791 $ WS "#include <unistd.h>
 792 $ WS "int main()
 793 $ WS "{"
 794 $ WS "gid_t foo;
 795 $ WS "exit(0);
 796 $ WS "}"
 797 $ CS
 798 $   DEFINE SYS$ERROR _NLA0:
 799 $   DEFINE SYS$OUTPUT _NLA0:
 800 $   on error then continue
 801 $   on warning then continue
 802 $   'Checkcc' temp.c
 803 $   teststatus = f$extract(9,1,$status)
 804 $   DEASSIGN SYS$OUTPUT
 805 $   DEASSIGN SYS$ERROR
 806 $   if (teststatus.nes."1")
 807 $   THEN
 808 $!   Okay, gid_t failed. Must be unsigned int
 809 $     perl_gidtype = "unsigned int"
 810 $   ELSE
 811 $     perl_gidtype = "gid_t"
 812 $   ENDIF
 813 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
 814 $!
 815 $! Check to see if we've got dev_t
 816 $!
 817 $ OS
 818 $ WS "#ifdef __DECC
 819 $ WS "#include <stdlib.h>
 820 $ WS "#endif
 821 $ WS "#include <stdio.h>
 822 $ WS "#include <types.h>
 823 $ WS "#include <unistd.h>
 824 $ WS "int main()
 825 $ WS "{"
 826 $ WS "dev_t foo;
 827 $ WS "exit(0);
 828 $ WS "}"
 829 $ CS
 830 $   DEFINE SYS$ERROR _NLA0:
 831 $   DEFINE SYS$OUTPUT _NLA0:
 832 $   on error then continue
 833 $   on warning then continue
 834 $   'Checkcc' temp.c
 835 $   teststatus = f$extract(9,1,$status)
 836 $   DEASSIGN SYS$OUTPUT
 837 $   DEASSIGN SYS$ERROR
 838 $   if (teststatus.nes."1")
 839 $   THEN
 840 $!   Okay, dev_t failed. Must be unsigned int
 841 $     perl_devtype = "unsigned int"
 842 $   ELSE
 843 $     perl_devtype = "dev_t"
 844 $   ENDIF
 845 $ WRITE_RESULT "Dev_t is ''perl_devtype'"
 846 $!
 847 $! Check to see if we've got unistd.h (which we ought to, but you never know)
 848 $!
 849 $ OS
 850 $ WS "#ifdef __DECC
 851 $ WS "#include <stdlib.h>
 852 $ WS "#endif
 853 $ WS "#include <unistd.h>
 854 $ WS "int main()
 855 $ WS "{"
 856 $ WS "exit(0);
 857 $ WS "}"
 858 $ CS
 859 $   DEFINE SYS$ERROR _NLA0:
 860 $   DEFINE SYS$OUTPUT _NLA0:
 861 $   on error then continue
 862 $   on warning then continue
 863 $   'Checkcc' temp.c
 864 $   teststatus = f$extract(9,1,$status)
 865 $   DEASSIGN SYS$OUTPUT
 866 $   DEASSIGN SYS$ERROR
 867 $   if (teststatus.nes."1")
 868 $   THEN
 869 $!   Okay, failed. Must not have it
 870 $     perl_i_unistd = "undef"
 871 $   ELSE
 872 $     perl_i_unistd = "define"
 873
 874 $   ENDIF
 875 $ WRITE_RESULT "i_unistd is ''perl_i_unistd'"
 876 $!
 877 $! Check the prototype for select
 878 $!
 879 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
 880 $ THEN
 881 $ OS
 882 $ WS "#ifdef __DECC
 883 $ WS "#include <stdlib.h>
 884 $ WS "#endif
 885 $ WS "#include <stdio.h>
 886 $ WS "#include <types.h>
 887 $ WS "#include <unistd.h>
 888 $ if ("''Has_Socketshr'".eqs."T")
 889 $ THEN
 890 $  WS "#include <socketshr.h>"
 891 $ else
 892 $  WS "#include <time.h>
 893 $  WS "#include <socket.h>
 894 $ endif
 895 $ WS "int main()
 896 $ WS "{"
 897 $ WS "fd_set *foo;
 898 $ WS "int bar;
 899 $ WS "foo = NULL;
 900 $ WS "bar = select(2, foo, foo, foo, NULL);
 901 $ WS "exit(0);
 902 $ WS "}"
 903 $ CS
 904 $   DEFINE SYS$ERROR _NLA0:
 905 $   DEFINE SYS$OUTPUT _NLA0:
 906 $   on error then continue
 907 $   on warning then continue
 908 $   'Checkcc' temp.c
 909 $   teststatus = f$extract(9,1,$status)
 910 $   DEASSIGN SYS$OUTPUT
 911 $   DEASSIGN SYS$ERROR
 912 $   if (teststatus.nes."1")
 913 $   THEN
 914 $!   Okay, fd_set failed. Must be an int
 915 $     perl_selecttype = "int *"
 916 $   ELSE
 917 $     perl_selecttype="fd_set *"
 918 $   ENDIF
 919 $ ELSE
 920 $   ! No sockets, so stick in an int *
 921 $   perl_selecttype = "int *"
 922 $ ENDIF
 923 $ WRITE_RESULT "selectype is ''perl_selecttype'"
 924 $!
 925 $! Check to see if fd_set exists
 926 $!
 927 $ OS
 928 $ WS "#ifdef __DECC
 929 $ WS "#include <stdlib.h>
 930 $ WS "#endif
 931 $ WS "#include <stdio.h>
 932 $ WS "#include <types.h>
 933 $ WS "#include <unistd.h>
 934 $ if ("''Has_Socketshr'".eqs."T")
 935 $ THEN
 936 $  WS "#include <socketshr.h>"
 937 $ ENDIF
 938 $ IF ("''Has_Dec_C_Sockets'".eqs."T")
 939 $ THEN
 940 $  WS "#include <time.h>
 941 $  WS "#include <socket.h>
 942 $ endif
 943 $ WS "int main()
 944 $ WS "{"
 945 $ WS "fd_set *foo;
 946 $ WS "int bar;
 947 $ WS "exit(0);
 948 $ WS "}"
 949 $ CS
 950 $ DEFINE SYS$ERROR _NLA0:
 951 $ DEFINE SYS$OUTPUT _NLA0:
 952 $ on error then continue
 953 $ on warning then continue
 954 $ 'Checkcc' temp.c
 955 $ teststatus = f$extract(9,1,$status)
 956 $ DEASSIGN SYS$OUTPUT
 957 $ DEASSIGN SYS$ERROR
 958 $ if (teststatus.nes."1")
 959 $ THEN
 960 $!  Okay, fd_set failed. Must not exist
 961 $   perl_d_fd_set = "undef"
 962 $ ELSE
 963 $   perl_d_fd_set="define"
 964 $ ENDIF
 965 $ WRITE_RESULT "d_fd_set is ''perl_d_fd_set'"
 966 $!
 967 $! Check for inttypes.h
 968 $!
 969 $ OS
 970 $ WS "#ifdef __DECC
 971 $ WS "#include <stdlib.h>
 972 $ WS "#endif
 973 $ WS "#include <stdio.h>
 974 $ WS "#include <unistd.h>
 975 $ WS "#include <inttypes.h>
 976 $ WS "int main()
 977 $ WS "{"
 978 $ WS "exit(0);
 979 $ WS "}"
 980 $ CS
 981 $   DEFINE SYS$ERROR _NLA0:
 982 $   DEFINE SYS$OUTPUT _NLA0:
 983 $   on error then continue
 984 $   on warning then continue
 985 $   'Checkcc' temp.c
 986 $   savedstatus = $status
 987 $   teststatus = f$extract(9,1,savedstatus)
 988 $   if (teststatus.nes."1")
 989 $   THEN
 990 $     perl_i_inttypes="undef"
 991 $     DEASSIGN SYS$OUTPUT
 992 $     DEASSIGN SYS$ERROR
 993 $   ELSE
 994 $     If (Needs_Opt.eqs."Yes")
 995 $     THEN
 996 $       link temp.obj,temp.opt/opt
 997 $     else
 998 $       link temp.obj
 999 $     endif
1000 $     savedstatus = $status
1001 $     teststatus = f$extract(9,1,savedstatus)
1002 $     DEASSIGN SYS$OUTPUT
1003 $     DEASSIGN SYS$ERROR
1004 $     if (teststatus.nes."1")
1005 $     THEN
1006 $       perl_i_inttypes="undef"
1007 $     ELSE
1008 $       perl_i_inttypes="define"
1009 $     ENDIF
1010 $   ENDIF
1011 $ WRITE_RESULT "i_inttypes is ''perl_i_inttypes'"
1012 $!
1013 $! Check to see if int64_t exists
1014 $!
1015 $ OS
1016 $ WS "#ifdef __DECC
1017 $ WS "#include <stdlib.h>
1018 $ WS "#endif
1019 $ WS "#include <stdio.h>
1020 $ WS "#include <types.h>
1021 $ WS "#''perl_i_inttypes IIH
1022 $ WS "#ifdef IIH
1023 $ WS "#include <inttypes.h>
1024 $ WS "#endif
1025 $ WS "#include <unistd.h>
1026 $ WS "int main()
1027 $ WS "{"
1028 $ WS "int64_t bar;
1029 $ WS "exit(0);
1030 $ WS "}"
1031 $ CS
1032 $ DEFINE SYS$ERROR _NLA0:
1033 $ DEFINE SYS$OUTPUT _NLA0:
1034 $ on error then continue
1035 $ on warning then continue
1036 $ 'Checkcc' temp.c
1037 $ teststatus = f$extract(9,1,$status)
1038 $ DEASSIGN SYS$OUTPUT
1039 $ DEASSIGN SYS$ERROR
1040 $ if (teststatus.nes."1")
1041 $ THEN
1042 $!  Okay, int64_t failed. Must not exist
1043 $   perl_d_int64t = "undef"
1044 $ ELSE
1045 $   perl_d_int64t="define"
1046 $ ENDIF
1047 $ WRITE_RESULT "d_int64t is ''perl_d_int64t'"
1048 $!
1049 $! Check to see if off64_t exists
1050 $!
1051 $ OS
1052 $ WS "#ifdef __DECC
1053 $ WS "#include <stdlib.h>
1054 $ WS "#endif
1055 $ WS "#include <stdio.h>
1056 $ WS "#include <types.h>
1057 $ WS "#''perl_i_inttypes IIH
1058 $ WS "#ifdef IIH
1059 $ WS "#include <inttypes.h>
1060 $ WS "#endif
1061 $ WS "#include <unistd.h>
1062 $ WS "int main()
1063 $ WS "{"
1064 $ WS "off64_t bar;
1065 $ WS "exit(0);
1066 $ WS "}"
1067 $ CS
1068 $ DEFINE SYS$ERROR _NLA0:
1069 $ DEFINE SYS$OUTPUT _NLA0:
1070 $ on error then continue
1071 $ on warning then continue
1072 $ 'Checkcc' temp.c
1073 $ teststatus = f$extract(9,1,$status)
1074 $ DEASSIGN SYS$OUTPUT
1075 $ DEASSIGN SYS$ERROR
1076 $ if (teststatus.nes."1")
1077 $ THEN
1078 $!  Okay, off64_t failed. Must not exist
1079 $   perl_d_off64t = "undef"
1080 $ ELSE
1081 $   perl_d_off64t="define"
1082 $ ENDIF
1083 $ WRITE_RESULT "d_off64t is ''perl_d_off64t'"
1084 $!
1085 $! Check to see if gethostname exists
1086 $!
1087 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1088 $ THEN
1089 $ OS
1090 $ WS "#ifdef __DECC
1091 $ WS "#include <stdlib.h>
1092 $ WS "#endif
1093 $ WS "#include <stdio.h>
1094 $ WS "#include <types.h>
1095 $ WS "#include <unistd.h>
1096 $ if ("''Has_Socketshr'".eqs."T")
1097 $ THEN
1098 $  WS "#include <socketshr.h>"
1099 $ else
1100 $  WS "#include <time.h>
1101 $  WS "#include <socket.h>
1102 $ endif
1103 $ WS "int main()
1104 $ WS "{"
1105 $ WS "char name[100];
1106 $ WS "int bar, baz;
1107 $ WS "bar = 100;
1108 $ WS "baz = gethostname(name, bar);
1109 $ WS "exit(0);
1110 $ WS "}"
1111 $ CS
1112 $   DEFINE SYS$ERROR _NLA0:
1113 $   DEFINE SYS$OUTPUT _NLA0:
1114 $   on error then continue
1115 $   on warning then continue
1116 $   'Checkcc' temp.c
1117 $   teststatus = f$extract(9,1,$status)
1118 $   DEASSIGN SYS$OUTPUT
1119 $   DEASSIGN SYS$ERROR
1120 $   if (teststatus.nes."1")
1121 $   THEN
1122 $!   Okay, compile failed. Must not have it
1123 $     perl_dgethname = "undef"
1124 $   ELSE
1125 $     If (Needs_Opt.eqs."Yes")
1126 $     THEN
1127 $       link temp.obj,temp.opt/opt
1128 $     else
1129 $       link temp.obj
1130 $     endif
1131 $     savedstatus = $status
1132 $     teststatus = f$extract(9,1,savedstatus)
1133 $     if (teststatus.nes."1")
1134 $     THEN
1135 $       perl_d_gethname="undef"
1136 $     ELSE
1137 $       perl_d_gethname="define"
1138 $     ENDIF
1139 $   ENDIF
1140 $ ELSE
1141 $   ! No sockets, so no gethname
1142 $   perl_d_gethname = "undef"
1143 $ ENDIF
1144 $ WRITE_RESULT "d_gethname is ''perl_d_gethname'"
1145 $!
1146 $! Check for sys/file.h
1147 $!
1148 $ OS
1149 $ WS "#ifdef __DECC
1150 $ WS "#include <stdlib.h>
1151 $ WS "#endif
1152 $ WS "#include <stdio.h>
1153 $ WS "#include <unistd.h>
1154 $ WS "#include <sys/file.h>
1155 $ WS "int main()
1156 $ WS "{"
1157 $ WS "exit(0);
1158 $ WS "}"
1159 $ CS
1160 $   DEFINE SYS$ERROR _NLA0:
1161 $   DEFINE SYS$OUTPUT _NLA0:
1162 $   on error then continue
1163 $   on warning then continue
1164 $   'Checkcc' temp.c
1165 $   savedstatus = $status
1166 $   teststatus = f$extract(9,1,savedstatus)
1167 $   if (teststatus.nes."1")
1168 $   THEN
1169 $     perl_i_sysfile="undef"
1170 $     DEASSIGN SYS$OUTPUT
1171 $     DEASSIGN SYS$ERROR
1172 $   ELSE
1173 $     If (Needs_Opt.eqs."Yes")
1174 $     THEN
1175 $       link temp.obj,temp.opt/opt
1176 $     else
1177 $       link temp.obj
1178 $     endif
1179 $     savedstatus = $status
1180 $     teststatus = f$extract(9,1,savedstatus)
1181 $     DEASSIGN SYS$OUTPUT
1182 $     DEASSIGN SYS$ERROR
1183 $     if (teststatus.nes."1")
1184 $     THEN
1185 $       perl_i_sysfile="undef"
1186 $     ELSE
1187 $       perl_i_sysfile="define"
1188 $     ENDIF
1189 $   ENDIF
1190 $ WRITE_RESULT "i_sysfile is ''perl_i_sysfile'"
1191 $!
1192 $! Check for poll.h
1193 $!
1194 $ OS
1195 $ WS "#ifdef __DECC
1196 $ WS "#include <stdlib.h>
1197 $ WS "#endif
1198 $ WS "#include <stdio.h>
1199 $ WS "#include <unistd.h>
1200 $ WS "#include <poll.h>
1201 $ WS "int main()
1202 $ WS "{"
1203 $ WS "exit(0);
1204 $ WS "}"
1205 $ CS
1206 $   DEFINE SYS$ERROR _NLA0:
1207 $   DEFINE SYS$OUTPUT _NLA0:
1208 $   on error then continue
1209 $   on warning then continue
1210 $   'Checkcc' temp.c
1211 $   savedstatus = $status
1212 $   teststatus = f$extract(9,1,savedstatus)
1213 $   if (teststatus.nes."1")
1214 $   THEN
1215 $     perl_i_poll="undef"
1216 $     DEASSIGN SYS$OUTPUT
1217 $     DEASSIGN SYS$ERROR
1218 $   ELSE
1219 $     If (Needs_Opt.eqs."Yes")
1220 $     THEN
1221 $       link temp.obj,temp.opt/opt
1222 $     else
1223 $       link temp.obj
1224 $     endif
1225 $     savedstatus = $status
1226 $     teststatus = f$extract(9,1,savedstatus)
1227 $     DEASSIGN SYS$OUTPUT
1228 $     DEASSIGN SYS$ERROR
1229 $     if (teststatus.nes."1")
1230 $     THEN
1231 $       perl_i_poll="undef"
1232 $     ELSE
1233 $       perl_i_poll="define"
1234 $     ENDIF
1235 $   ENDIF
1236 $ WRITE_RESULT "i_poll is ''perl_i_poll'"
1237 $!
1238 $! Check for sys/uio.h
1239 $!
1240 $ OS
1241 $ WS "#ifdef __DECC
1242 $ WS "#include <stdlib.h>
1243 $ WS "#endif
1244 $ WS "#include <stdio.h>
1245 $ WS "#include <unistd.h>
1246 $ WS "#include <sys/uio.h>
1247 $ WS "int main()
1248 $ WS "{"
1249 $ WS "exit(0);
1250 $ WS "}"
1251 $ CS
1252 $   DEFINE SYS$ERROR _NLA0:
1253 $   DEFINE SYS$OUTPUT _NLA0:
1254 $   on error then continue
1255 $   on warning then continue
1256 $   'Checkcc' temp.c
1257 $   savedstatus = $status
1258 $   teststatus = f$extract(9,1,savedstatus)
1259 $   if (teststatus.nes."1")
1260 $   THEN
1261 $     perl_i_sysuio="undef"
1262 $     DEASSIGN SYS$OUTPUT
1263 $     DEASSIGN SYS$ERROR
1264 $   ELSE
1265 $     If (Needs_Opt.eqs."Yes")
1266 $     THEN
1267 $       link temp.obj,temp.opt/opt
1268 $     else
1269 $       link temp.obj
1270 $     endif
1271 $     savedstatus = $status
1272 $     teststatus = f$extract(9,1,savedstatus)
1273 $     DEASSIGN SYS$OUTPUT
1274 $     DEASSIGN SYS$ERROR
1275 $     if (teststatus.nes."1")
1276 $     THEN
1277 $       perl_i_sysuio="undef"
1278 $     ELSE
1279 $       perl_i_sysuio="define"
1280 $     ENDIF
1281 $   ENDIF
1282 $ WRITE_RESULT "i_sysuio is ''perl_i_sysuio'"
1283 $!
1284 $! Check for sys/access.h
1285 $!
1286 $ OS
1287 $ WS "#ifdef __DECC
1288 $ WS "#include <stdlib.h>
1289 $ WS "#endif
1290 $ WS "#include <stdio.h>
1291 $ WS "#include <unistd.h>
1292 $ WS "#include <sys/access.h>
1293 $ WS "int main()
1294 $ WS "{"
1295 $ WS "exit(0);
1296 $ WS "}"
1297 $ CS
1298 $   DEFINE SYS$ERROR _NLA0:
1299 $   DEFINE SYS$OUTPUT _NLA0:
1300 $   on error then continue
1301 $   on warning then continue
1302 $   'Checkcc' temp.c
1303 $   savedstatus = $status
1304 $   teststatus = f$extract(9,1,savedstatus)
1305 $   if (teststatus.nes."1")
1306 $   THEN
1307 $     perl_i_sysaccess="undef"
1308 $     DEASSIGN SYS$OUTPUT
1309 $     DEASSIGN SYS$ERROR
1310 $   ELSE
1311 $     If (Needs_Opt.eqs."Yes")
1312 $     THEN
1313 $       link temp.obj,temp.opt/opt
1314 $     else
1315 $       link temp.obj
1316 $     endif
1317 $     savedstatus = $status
1318 $     teststatus = f$extract(9,1,savedstatus)
1319 $     DEASSIGN SYS$OUTPUT
1320 $     DEASSIGN SYS$ERROR
1321 $     if (teststatus.nes."1")
1322 $     THEN
1323 $       perl_i_sysaccess="undef"
1324 $     ELSE
1325 $       perl_i_sysaccess="define"
1326 $     ENDIF
1327 $   ENDIF
1328 $ WRITE_RESULT "i_sysaccess is ''perl_i_sysaccess'"
1329 $!
1330 $! Check for sys/security.h
1331 $!
1332 $ OS
1333 $ WS "#ifdef __DECC
1334 $ WS "#include <stdlib.h>
1335 $ WS "#endif
1336 $ WS "#include <stdio.h>
1337 $ WS "#include <unistd.h>
1338 $ WS "#include <sys/security.h>
1339 $ WS "int main()
1340 $ WS "{"
1341 $ WS "exit(0);
1342 $ WS "}"
1343 $ CS
1344 $   DEFINE SYS$ERROR _NLA0:
1345 $   DEFINE SYS$OUTPUT _NLA0:
1346 $   on error then continue
1347 $   on warning then continue
1348 $   'Checkcc' temp.c
1349 $   savedstatus = $status
1350 $   teststatus = f$extract(9,1,savedstatus)
1351 $   if (teststatus.nes."1")
1352 $   THEN
1353 $     perl_i_syssecrt="undef"
1354 $     DEASSIGN SYS$OUTPUT
1355 $     DEASSIGN SYS$ERROR
1356 $   ELSE
1357 $     If (Needs_Opt.eqs."Yes")
1358 $     THEN
1359 $       link temp.obj,temp.opt/opt
1360 $     else
1361 $       link temp.obj
1362 $     endif
1363 $     savedstatus = $status
1364 $     teststatus = f$extract(9,1,savedstatus)
1365 $     DEASSIGN SYS$OUTPUT
1366 $     DEASSIGN SYS$ERROR
1367 $     if (teststatus.nes."1")
1368 $     THEN
1369 $       perl_i_syssecrt="undef"
1370 $     ELSE
1371 $       perl_i_syssecrt="define"
1372 $     ENDIF
1373 $   ENDIF
1374 $ WRITE_RESULT "i_syssecrt is ''perl_i_syssecrt'"
1375 $!
1376 $! Check for fcntl.h
1377 $!
1378 $ OS
1379 $ WS "#ifdef __DECC
1380 $ WS "#include <stdlib.h>
1381 $ WS "#endif
1382 $ WS "#include <stdio.h>
1383 $ WS "#include <unistd.h>
1384 $ WS "#include <fcntl.h>
1385 $ WS "int main()
1386 $ WS "{"
1387 $ WS "exit(0);
1388 $ WS "}"
1389 $ CS
1390 $   DEFINE SYS$ERROR _NLA0:
1391 $   DEFINE SYS$OUTPUT _NLA0:
1392 $   on error then continue
1393 $   on warning then continue
1394 $   'Checkcc' temp.c
1395 $   savedstatus = $status
1396 $   teststatus = f$extract(9,1,savedstatus)
1397 $   if (teststatus.nes."1")
1398 $   THEN
1399 $     perl_i_fcntl="undef"
1400 $     DEASSIGN SYS$OUTPUT
1401 $     DEASSIGN SYS$ERROR
1402 $   ELSE
1403 $     If (Needs_Opt.eqs."Yes")
1404 $     THEN
1405 $       link temp.obj,temp.opt/opt
1406 $     else
1407 $       link temp.obj
1408 $     endif
1409 $     savedstatus = $status
1410 $     teststatus = f$extract(9,1,savedstatus)
1411 $     DEASSIGN SYS$OUTPUT
1412 $     DEASSIGN SYS$ERROR
1413 $     if (teststatus.nes."1")
1414 $     THEN
1415 $       perl_i_fcntl="undef"
1416 $     ELSE
1417 $       perl_i_fcntl="define"
1418 $     ENDIF
1419 $   ENDIF
1420 $ WRITE_RESULT "i_fcntl is ''perl_i_fcntl'"
1421 $!
1422 $! Check for fcntl
1423 $!
1424 $ OS
1425 $ WS "#ifdef __DECC
1426 $ WS "#include <stdlib.h>
1427 $ WS "#endif
1428 $ WS "#include <stdio.h>
1429 $ WS "#include <unistd.h>
1430 $ WS "#include <fcntl.h>
1431 $ WS "int main()
1432 $ WS "{"
1433 $ WS "fcntl(1,2,3);
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.c
1442 $   savedstatus = $status
1443 $   teststatus = f$extract(9,1,savedstatus)
1444 $   if (teststatus.nes."1")
1445 $   THEN
1446 $     perl_d_fcntl="undef"
1447 $     DEASSIGN SYS$OUTPUT
1448 $     DEASSIGN SYS$ERROR
1449 $   ELSE
1450 $     If (Needs_Opt.eqs."Yes")
1451 $     THEN
1452 $       link temp.obj,temp.opt/opt
1453 $     else
1454 $       link temp.obj
1455 $     endif
1456 $     savedstatus = $status
1457 $     teststatus = f$extract(9,1,savedstatus)
1458 $     DEASSIGN SYS$OUTPUT
1459 $     DEASSIGN SYS$ERROR
1460 $     if (teststatus.nes."1")
1461 $     THEN
1462 $       perl_d_fcntl="undef"
1463 $     ELSE
1464 $       perl_d_fcntl="define"
1465 $     ENDIF
1466 $   ENDIF
1467 $ WRITE_RESULT "d_fcntl is ''perl_d_fcntl'"
1468 $!
1469 $! Check for access
1470 $!
1471 $ OS
1472 $ WS "#ifdef __DECC
1473 $ WS "#include <stdlib.h>
1474 $ WS "#endif
1475 $ WS "#include <stdio.h>
1476 $ WS "#include <unistd.h>
1477 $ WS "int main()
1478 $ WS "{"
1479 $ WS "access("foo", F_OK);
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.c
1488 $   savedstatus = $status
1489 $   teststatus = f$extract(9,1,savedstatus)
1490 $   if (teststatus.nes."1")
1491 $   THEN
1492 $     perl_d_access="undef"
1493 $     DEASSIGN SYS$OUTPUT
1494 $     DEASSIGN SYS$ERROR
1495 $   ELSE
1496 $     If (Needs_Opt.eqs."Yes")
1497 $     THEN
1498 $       link temp.obj,temp.opt/opt
1499 $     else
1500 $       link temp.obj
1501 $     endif
1502 $     savedstatus = $status
1503 $     teststatus = f$extract(9,1,savedstatus)
1504 $     DEASSIGN SYS$OUTPUT
1505 $     DEASSIGN SYS$ERROR
1506 $     if (teststatus.nes."1")
1507 $     THEN
1508 $       perl_d_access="undef"
1509 $     ELSE
1510 $       perl_d_access="define"
1511 $     ENDIF
1512 $   ENDIF
1513 $ WRITE_RESULT "d_access is ''perl_d_access'"
1514 $!
1515 $! Check for bzero
1516 $!
1517 $ OS
1518 $ WS "#ifdef __DECC
1519 $ WS "#include <stdlib.h>
1520 $ WS "#endif
1521 $ WS "#include <stdio.h>
1522 $ WS "#include <strings.h>
1523 $ WS "int main()
1524 $ WS "{"
1525 $ WS "char foo[10];
1526 $ WS "bzero(foo, 10);
1527 $ WS "exit(0);
1528 $ WS "}"
1529 $ CS
1530 $   DEFINE SYS$ERROR _NLA0:
1531 $   DEFINE SYS$OUTPUT _NLA0:
1532 $   on error then continue
1533 $   on warning then continue
1534 $   'Checkcc' temp.c
1535 $   savedstatus = $status
1536 $   teststatus = f$extract(9,1,savedstatus)
1537 $   if (teststatus.nes."1")
1538 $   THEN
1539 $     perl_d_bzero="undef"
1540 $     DEASSIGN SYS$OUTPUT
1541 $     DEASSIGN SYS$ERROR
1542 $   ELSE
1543 $     If (Needs_Opt.eqs."Yes")
1544 $     THEN
1545 $       link temp.obj,temp.opt/opt
1546 $     else
1547 $       link temp.obj
1548 $     endif
1549 $     savedstatus = $status
1550 $     teststatus = f$extract(9,1,savedstatus)
1551 $     DEASSIGN SYS$OUTPUT
1552 $     DEASSIGN SYS$ERROR
1553 $     if (teststatus.nes."1")
1554 $     THEN
1555 $       perl_d_bzero="undef"
1556 $     ELSE
1557 $       perl_d_bzero="define"
1558 $     ENDIF
1559 $   ENDIF
1560 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
1561 $!
1562 $! Check for bcopy
1563 $!
1564 $ OS
1565 $ WS "#ifdef __DECC
1566 $ WS "#include <stdlib.h>
1567 $ WS "#endif
1568 $ WS "#include <stdio.h>
1569 $ WS "#include <strings.h>
1570 $ WS "int main()
1571 $ WS "{"
1572 $ WS "char foo[10], bar[10];
1573 $ WS "bcopy(""foo"", bar, 3);
1574 $ WS "exit(0);
1575 $ WS "}"
1576 $ CS
1577 $   DEFINE SYS$ERROR _NLA0:
1578 $   DEFINE SYS$OUTPUT _NLA0:
1579 $   on error then continue
1580 $   on warning then continue
1581 $   'Checkcc' temp.c
1582 $   savedstatus = $status
1583 $   teststatus = f$extract(9,1,savedstatus)
1584 $   if (teststatus.nes."1")
1585 $   THEN
1586 $     perl_d_bcopy="undef"
1587 $     DEASSIGN SYS$OUTPUT
1588 $     DEASSIGN SYS$ERROR
1589 $   ELSE
1590 $     If (Needs_Opt.eqs."Yes")
1591 $     THEN
1592 $       link temp.obj,temp.opt/opt
1593 $     else
1594 $       link temp.obj
1595 $     endif
1596 $     savedstatus = $status
1597 $     teststatus = f$extract(9,1,savedstatus)
1598 $     DEASSIGN SYS$OUTPUT
1599 $     DEASSIGN SYS$ERROR
1600 $     if (teststatus.nes."1")
1601 $     THEN
1602 $       perl_d_bcopy="undef"
1603 $     ELSE
1604 $       perl_d_bcopy="define"
1605 $     ENDIF
1606 $   ENDIF
1607 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
1608 $!
1609 $! Check for mkstemp
1610 $!
1611 $ OS
1612 $ WS "#ifdef __DECC
1613 $ WS "#include <stdlib.h>
1614 $ WS "#endif
1615 $ WS "#include <stdio.h>
1616 $ WS "int main()
1617 $ WS "{"
1618 $ WS "mkstemp(""foo"");
1619 $ WS "exit(0);
1620 $ WS "}"
1621 $ CS
1622 $   DEFINE SYS$ERROR _NLA0:
1623 $   DEFINE SYS$OUTPUT _NLA0:
1624 $   on error then continue
1625 $   on warning then continue
1626 $   'Checkcc' temp.c
1627 $   If (Needs_Opt.eqs."Yes")
1628 $   THEN
1629 $     link temp.obj,temp.opt/opt
1630 $   else
1631 $     link temp.obj
1632 $   endif
1633 $   savedstatus = $status
1634 $   teststatus = f$extract(9,1,savedstatus)
1635 $   DEASSIGN SYS$OUTPUT
1636 $   DEASSIGN SYS$ERROR
1637 $   if (teststatus.nes."1")
1638 $   THEN
1639 $     perl_d_mkstemp="undef"
1640 $   ELSE
1641 $     perl_d_mkstemp="define"
1642 $   ENDIF
1643 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
1644 $!
1645 $! Check for setvbuf
1646 $!
1647 $ OS
1648 $ WS "#ifdef __DECC
1649 $ WS "#include <stdlib.h>
1650 $ WS "#endif
1651 $ WS "#include <stdio.h>
1652 $ WS "int main()
1653 $ WS "{"
1654 $ WS "FILE *foo;
1655 $ WS "char Buffer[99];
1656 $ WS "foo = fopen(""foo"", ""r"");
1657 $ WS "setvbuf(foo, Buffer, 0, 0);
1658 $ WS "exit(0);
1659 $ WS "}"
1660 $ CS
1661 $   DEFINE SYS$ERROR _NLA0:
1662 $   DEFINE SYS$OUTPUT _NLA0:
1663 $   on error then continue
1664 $   on warning then continue
1665 $   'Checkcc' temp.c
1666 $   If (Needs_Opt.eqs."Yes")
1667 $   THEN
1668 $     link temp.obj,temp.opt/opt
1669 $   else
1670 $     link temp.obj
1671 $   endif
1672 $   teststatus = f$extract(9,1,$status)
1673 $   DEASSIGN SYS$OUTPUT
1674 $   DEASSIGN SYS$ERROR
1675 $   if (teststatus.nes."1")
1676 $   THEN
1677 $     perl_d_setvbuf="undef"
1678 $   ELSE
1679 $     perl_d_setvbuf="define"
1680 $   ENDIF
1681 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
1682 $!
1683 $! Check for <netinet/in.h>
1684 $!
1685 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1686 $ THEN
1687 $ OS
1688 $ WS "#ifdef __DECC
1689 $ WS "#include <stdlib.h>
1690 $ WS "#endif
1691 $ WS "#include <stdio.h>
1692 $ if ("''Has_Socketshr'".eqs."T")
1693 $ THEN
1694 $  WS "#include <socketshr.h>"
1695 $ else
1696 $  WS "#include <netdb.h>
1697 $ endif
1698 $ WS "#include <netinet/in.h>"
1699 $ WS "int main()
1700 $ WS "{"
1701 $ WS "exit(0);
1702 $ WS "}"
1703 $ CS
1704 $   DEFINE SYS$ERROR _NLA0:
1705 $   DEFINE SYS$OUTPUT _NLA0:
1706 $   on error then continue
1707 $   on warning then continue
1708 $   'Checkcc' temp.c
1709 $   If (Needs_Opt.eqs."Yes")
1710 $   THEN
1711 $     link temp.obj,temp.opt/opt
1712 $   else
1713 $     link temp.obj
1714 $   endif
1715 $   teststatus = f$extract(9,1,$status)
1716 $   DEASSIGN SYS$OUTPUT
1717 $   DEASSIGN SYS$ERROR
1718 $   if (teststatus.nes."1")
1719 $   THEN
1720 $     perl_i_niin="undef"
1721 $   ELSE
1722 $     perl_i_niin="define"
1723 $   ENDIF
1724 $ ELSE
1725 $   perl_i_niin="undef"
1726 $ ENDIF
1727 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
1728 $!
1729 $! Check for endhostent
1730 $!
1731 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1732 $ THEN
1733 $ OS
1734 $ WS "#ifdef __DECC
1735 $ WS "#include <stdlib.h>
1736 $ WS "#endif
1737 $ WS "#include <stdio.h>
1738 $ if ("''Has_Socketshr'".eqs."T")
1739 $ THEN
1740 $  WS "#include <socketshr.h>"
1741 $ else
1742 $  WS "#include <netdb.h>
1743 $ endif
1744 $ WS "int main()
1745 $ WS "{"
1746 $ WS "endhostent();
1747 $ WS "exit(0);
1748
1749 $ CS
1750 $   DEFINE SYS$ERROR _NLA0:
1751 $   DEFINE SYS$OUTPUT _NLA0:
1752 $   on error then continue
1753 $   on warning then continue
1754 $   'Checkcc' temp.c
1755 $   If (Needs_Opt.eqs."Yes")
1756 $   THEN
1757 $     link temp.obj,temp.opt/opt
1758 $   else
1759 $     link temp.obj
1760 $   endif
1761 $   teststatus = f$extract(9,1,$status)
1762 $   DEASSIGN SYS$OUTPUT
1763 $   DEASSIGN SYS$ERROR
1764 $   if (teststatus.nes."1")
1765 $   THEN
1766 $     perl_d_endhent="undef"
1767 $   ELSE
1768 $     perl_d_endhent="define"
1769 $   ENDIF
1770 $ ELSE
1771 $ perl_d_endhent="undef"
1772 $ ENDIF
1773 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
1774 $!
1775 $! Check for endnetent
1776 $!
1777 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1778 $ THEN
1779 $ OS
1780 $ WS "#ifdef __DECC
1781 $ WS "#include <stdlib.h>
1782 $ WS "#endif
1783 $ WS "#include <stdio.h>
1784 $ if ("''Has_Socketshr'".eqs."T")
1785 $ THEN
1786 $  WS "#include <socketshr.h>"
1787 $ else
1788 $  WS "#include <netdb.h>
1789 $ endif
1790 $ WS "int main()
1791 $ WS "{"
1792 $ WS "endnetent();
1793 $ WS "exit(0);
1794 $ WS "}"
1795 $ CS
1796 $   DEFINE SYS$ERROR _NLA0:
1797 $   DEFINE SYS$OUTPUT _NLA0:
1798 $   on error then continue
1799 $   on warning then continue
1800 $   'Checkcc' temp.c
1801 $   If (Needs_Opt.eqs."Yes")
1802 $   THEN
1803 $     link temp.obj,temp.opt/opt
1804 $   else
1805 $     link temp.obj
1806 $   endif
1807 $   teststatus = f$extract(9,1,$status)
1808 $   DEASSIGN SYS$OUTPUT
1809 $   DEASSIGN SYS$ERROR
1810 $   if (teststatus.nes."1")
1811 $   THEN
1812 $     perl_d_endnent="undef"
1813 $   ELSE
1814 $     perl_d_endnent="define"
1815 $   ENDIF
1816 $ ELSE
1817 $ perl_d_endnent="undef"
1818 $ ENDIF
1819 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
1820 $!
1821 $! Check for endprotoent
1822 $!
1823 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1824 $ THEN
1825 $ OS
1826 $ WS "#ifdef __DECC
1827 $ WS "#include <stdlib.h>
1828 $ WS "#endif
1829 $ WS "#include <stdio.h>
1830 $ if ("''Has_Socketshr'".eqs."T")
1831 $ THEN
1832 $  WS "#include <socketshr.h>"
1833 $ else
1834 $  WS "#include <netdb.h>
1835 $ endif
1836 $ WS "int main()
1837 $ WS "{"
1838 $ WS "endprotoent();
1839 $ WS "exit(0);
1840 $ WS "}"
1841 $ CS
1842 $   DEFINE SYS$ERROR _NLA0:
1843 $   DEFINE SYS$OUTPUT _NLA0:
1844 $   on error then continue
1845 $   on warning then continue
1846 $   'Checkcc' temp.c
1847 $   If (Needs_Opt.eqs."Yes")
1848 $   THEN
1849 $     link temp.obj,temp.opt/opt
1850 $   else
1851 $     link temp.obj
1852 $   endif
1853 $   teststatus = f$extract(9,1,$status)
1854 $   DEASSIGN SYS$OUTPUT
1855 $   DEASSIGN SYS$ERROR
1856 $   if (teststatus.nes."1")
1857 $   THEN
1858 $     perl_d_endpent="undef"
1859 $   ELSE
1860 $     perl_d_endpent="define"
1861 $   ENDIF
1862 $ ELSE
1863 $ perl_d_endpent="undef"
1864 $ ENDIF
1865 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
1866 $!
1867 $! Check for endservent
1868 $!
1869 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1870 $ THEN
1871 $ OS
1872 $ WS "#ifdef __DECC
1873 $ WS "#include <stdlib.h>
1874 $ WS "#endif
1875 $ WS "#include <stdio.h>
1876 $ if ("''Has_Socketshr'".eqs."T")
1877 $ THEN
1878 $  WS "#include <socketshr.h>"
1879 $ else
1880 $  WS "#include <netdb.h>
1881 $ endif
1882 $ WS "int main()
1883 $ WS "{"
1884 $ WS "endservent();
1885 $ WS "exit(0);
1886 $ WS "}"
1887 $ CS
1888 $   DEFINE SYS$ERROR _NLA0:
1889 $   DEFINE SYS$OUTPUT _NLA0:
1890 $   on error then continue
1891 $   on warning then continue
1892 $   'Checkcc' temp.c
1893 $   If (Needs_Opt.eqs."Yes")
1894 $   THEN
1895 $     link temp.obj,temp.opt/opt
1896 $   else
1897 $     link temp.obj
1898 $   endif
1899 $   teststatus = f$extract(9,1,$status)
1900 $   DEASSIGN SYS$OUTPUT
1901 $   DEASSIGN SYS$ERROR
1902 $   if (teststatus.nes."1")
1903 $   THEN
1904 $     perl_d_endsent="undef"
1905 $   ELSE
1906 $     perl_d_endsent="define"
1907 $   ENDIF
1908 $ ELSE
1909 $ perl_d_endsent="undef"
1910 $ ENDIF
1911 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
1912 $!
1913 $! Check for sethostent
1914 $!
1915 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1916 $ THEN
1917 $ OS
1918 $ WS "#ifdef __DECC
1919 $ WS "#include <stdlib.h>
1920 $ WS "#endif
1921 $ WS "#include <stdio.h>
1922 $ if ("''Has_Socketshr'".eqs."T")
1923 $ THEN
1924 $  WS "#include <socketshr.h>"
1925 $ else
1926 $  WS "#include <netdb.h>
1927 $ endif
1928 $ WS "int main()
1929 $ WS "{"
1930 $ WS "sethostent(1);
1931 $ WS "exit(0);
1932 $ WS "}"
1933 $ CS
1934 $   DEFINE SYS$ERROR _NLA0:
1935 $   DEFINE SYS$OUTPUT _NLA0:
1936 $   on error then continue
1937 $   on warning then continue
1938 $   'Checkcc' temp.c
1939 $   If (Needs_Opt.eqs."Yes")
1940 $   THEN
1941 $     link temp.obj,temp.opt/opt
1942 $   else
1943 $     link temp.obj
1944 $   endif
1945 $   teststatus = f$extract(9,1,$status)
1946 $   DEASSIGN SYS$OUTPUT
1947 $   DEASSIGN SYS$ERROR
1948 $   if (teststatus.nes."1")
1949 $   THEN
1950 $     perl_d_sethent="undef"
1951 $   ELSE
1952 $     perl_d_sethent="define"
1953 $   ENDIF
1954 $ ELSE
1955 $ perl_d_sethent="undef"
1956 $ ENDIF
1957 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
1958 $!
1959 $! Check for setnetent
1960 $!
1961 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1962 $ THEN
1963 $ OS
1964 $ WS "#ifdef __DECC
1965 $ WS "#include <stdlib.h>
1966 $ WS "#endif
1967 $ WS "#include <stdio.h>
1968 $ if ("''Has_Socketshr'".eqs."T")
1969 $ THEN
1970 $  WS "#include <socketshr.h>"
1971 $ else
1972 $  WS "#include <netdb.h>
1973 $ endif
1974 $ WS "int main()
1975 $ WS "{"
1976 $ WS "setnetent(1);
1977 $ WS "exit(0);
1978 $ WS "}"
1979 $ CS
1980 $   DEFINE SYS$ERROR _NLA0:
1981 $   DEFINE SYS$OUTPUT _NLA0:
1982 $   on error then continue
1983 $   on warning then continue
1984 $   'Checkcc' temp.c
1985 $   If (Needs_Opt.eqs."Yes")
1986 $   THEN
1987 $     link temp.obj,temp.opt/opt
1988 $   else
1989 $     link temp.obj
1990 $   endif
1991 $   teststatus = f$extract(9,1,$status)
1992 $   DEASSIGN SYS$OUTPUT
1993 $   DEASSIGN SYS$ERROR
1994 $   if (teststatus.nes."1")
1995 $   THEN
1996 $     perl_d_setnent="undef"
1997 $   ELSE
1998 $     perl_d_setnent="define"
1999 $   ENDIF
2000 $ ELSE
2001 $ perl_d_setnent="undef"
2002 $ ENDIF
2003 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
2004 $!
2005 $! Check for setprotoent
2006 $!
2007 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2008 $ THEN
2009 $ OS
2010 $ WS "#ifdef __DECC
2011 $ WS "#include <stdlib.h>
2012 $ WS "#endif
2013 $ WS "#include <stdio.h>
2014 $ if ("''Has_Socketshr'".eqs."T")
2015 $ THEN
2016 $  WS "#include <socketshr.h>"
2017 $ else
2018 $  WS "#include <netdb.h>
2019 $ endif
2020 $ WS "int main()
2021 $ WS "{"
2022 $ WS "setprotoent(1);
2023 $ WS "exit(0);
2024 $ WS "}"
2025 $ CS
2026 $   DEFINE SYS$ERROR _NLA0:
2027 $   DEFINE SYS$OUTPUT _NLA0:
2028 $   on error then continue
2029 $   on warning then continue
2030 $   'Checkcc' temp.c
2031 $   If (Needs_Opt.eqs."Yes")
2032 $   THEN
2033 $     link temp.obj,temp.opt/opt
2034 $   else
2035 $     link temp.obj
2036 $   endif
2037 $   teststatus = f$extract(9,1,$status)
2038 $   DEASSIGN SYS$OUTPUT
2039 $   DEASSIGN SYS$ERROR
2040 $   if (teststatus.nes."1")
2041 $   THEN
2042 $     perl_d_setpent="undef"
2043 $   ELSE
2044 $     perl_d_setpent="define"
2045 $   ENDIF
2046 $ ELSE
2047 $ perl_d_setpent="undef"
2048 $ ENDIF
2049 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
2050 $!
2051 $! Check for setservent
2052 $!
2053 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2054 $ THEN
2055 $ OS
2056 $ WS "#ifdef __DECC
2057 $ WS "#include <stdlib.h>
2058 $ WS "#endif
2059 $ WS "#include <stdio.h>
2060 $ if ("''Has_Socketshr'".eqs."T")
2061 $ THEN
2062 $  WS "#include <socketshr.h>"
2063 $ else
2064 $  WS "#include <netdb.h>
2065 $ endif
2066 $ WS "int main()
2067 $ WS "{"
2068 $ WS "setservent(1);
2069 $ WS "exit(0);
2070 $ WS "}"
2071 $ CS
2072 $   DEFINE SYS$ERROR _NLA0:
2073 $   DEFINE SYS$OUTPUT _NLA0:
2074 $   on error then continue
2075 $   on warning then continue
2076 $   'Checkcc' temp.c
2077 $   If (Needs_Opt.eqs."Yes")
2078 $   THEN
2079 $     link temp.obj,temp.opt/opt
2080 $   else
2081 $     link temp.obj
2082 $   endif
2083 $   teststatus = f$extract(9,1,$status)
2084 $   DEASSIGN SYS$OUTPUT
2085 $   DEASSIGN SYS$ERROR
2086 $   if (teststatus.nes."1")
2087 $   THEN
2088 $     perl_d_setsent="undef"
2089 $   ELSE
2090 $     perl_d_setsent="define"
2091 $   ENDIF
2092 $ ELSE
2093 $ perl_d_setsent="undef"
2094 $ ENDIF
2095 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
2096 $!
2097 $! Check for gethostent
2098 $!
2099 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2100 $ THEN
2101 $ OS
2102 $ WS "#ifdef __DECC
2103 $ WS "#include <stdlib.h>
2104 $ WS "#endif
2105 $ WS "#include <stdio.h>
2106 $ if ("''Has_Socketshr'".eqs."T")
2107 $ THEN
2108 $  WS "#include <socketshr.h>"
2109 $ else
2110 $  WS "#include <netdb.h>
2111 $ endif
2112 $ WS "int main()
2113 $ WS "{"
2114 $ WS "gethostent();
2115 $ WS "exit(0);
2116 $ WS "}"
2117 $ CS
2118 $   DEFINE SYS$ERROR _NLA0:
2119 $   DEFINE SYS$OUTPUT _NLA0:
2120 $   on error then continue
2121 $   on warning then continue
2122 $   'Checkcc' temp.c
2123 $   If (Needs_Opt.eqs."Yes")
2124 $   THEN
2125 $     link temp.obj,temp.opt/opt
2126 $   else
2127 $     link temp.obj
2128 $   endif
2129 $   teststatus = f$extract(9,1,$status)
2130 $   DEASSIGN SYS$OUTPUT
2131 $   DEASSIGN SYS$ERROR
2132 $   if (teststatus.nes."1")
2133 $   THEN
2134 $     perl_d_gethent="undef"
2135 $   ELSE
2136 $     perl_d_gethent="define"
2137 $   ENDIF
2138 $ ELSE
2139 $ perl_d_gethent="undef"
2140 $ ENDIF
2141 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
2142 $!
2143 $! Check for getnetent
2144 $!
2145 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2146 $ THEN
2147 $ OS
2148 $ WS "#ifdef __DECC
2149 $ WS "#include <stdlib.h>
2150 $ WS "#endif
2151 $ WS "#include <stdio.h>
2152 $ if ("''Has_Socketshr'".eqs."T")
2153 $ THEN
2154 $  WS "#include <socketshr.h>"
2155 $ else
2156 $  WS "#include <netdb.h>
2157 $ endif
2158 $ WS "int main()
2159 $ WS "{"
2160 $ WS "getnetent();
2161 $ WS "exit(0);
2162 $ WS "}"
2163 $ CS
2164 $   DEFINE SYS$ERROR _NLA0:
2165 $   DEFINE SYS$OUTPUT _NLA0:
2166 $   on error then continue
2167 $   on warning then continue
2168 $   'Checkcc' temp.c
2169 $   If (Needs_Opt.eqs."Yes")
2170 $   THEN
2171 $     link temp.obj,temp.opt/opt
2172 $   else
2173 $     link temp.obj
2174 $   endif
2175 $   teststatus = f$extract(9,1,$status)
2176 $   DEASSIGN SYS$OUTPUT
2177 $   DEASSIGN SYS$ERROR
2178 $   if (teststatus.nes."1")
2179 $   THEN
2180 $     perl_d_getnent="undef"
2181 $   ELSE
2182 $     perl_d_getnent="define"
2183 $   ENDIF
2184 $ ELSE
2185 $ perl_d_getnent="undef"
2186 $ ENDIF
2187 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
2188 $!
2189 $! Check for getprotoent
2190 $!
2191 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2192 $ THEN
2193 $ OS
2194 $ WS "#ifdef __DECC
2195 $ WS "#include <stdlib.h>
2196 $ WS "#endif
2197 $ WS "#include <stdio.h>
2198 $ if ("''Has_Socketshr'".eqs."T")
2199 $ THEN
2200 $  WS "#include <socketshr.h>"
2201 $ else
2202 $  WS "#include <netdb.h>
2203 $ endif
2204 $ WS "int main()
2205 $ WS "{"
2206 $ WS "getprotoent();
2207 $ WS "exit(0);
2208 $ WS "}"
2209 $ CS
2210 $   DEFINE SYS$ERROR _NLA0:
2211 $   DEFINE SYS$OUTPUT _NLA0:
2212 $   on error then continue
2213 $   on warning then continue
2214 $   'Checkcc' temp.c
2215 $   If (Needs_Opt.eqs."Yes")
2216 $   THEN
2217 $     link temp.obj,temp.opt/opt
2218 $   else
2219 $     link temp.obj
2220 $   endif
2221 $   teststatus = f$extract(9,1,$status)
2222 $   DEASSIGN SYS$OUTPUT
2223 $   DEASSIGN SYS$ERROR
2224 $   if (teststatus.nes."1")
2225 $   THEN
2226 $     perl_d_getpent="undef"
2227 $   ELSE
2228 $     perl_d_getpent="define"
2229 $   ENDIF
2230 $ ELSE
2231 $ perl_d_getpent="undef"
2232 $ ENDIF
2233 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
2234 $!
2235 $! Check for getservent
2236 $!
2237 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2238 $ THEN
2239 $ OS
2240 $ WS "#ifdef __DECC
2241 $ WS "#include <stdlib.h>
2242 $ WS "#endif
2243 $ WS "#include <stdio.h>
2244 $ if ("''Has_Socketshr'".eqs."T")
2245 $ THEN
2246 $  WS "#include <socketshr.h>"
2247 $ else
2248 $  WS "#include <netdb.h>
2249 $ endif
2250 $ WS "int main()
2251 $ WS "{"
2252 $ WS "getservent();
2253 $ WS "exit(0);
2254 $ WS "}"
2255 $ CS
2256 $   DEFINE SYS$ERROR _NLA0:
2257 $   DEFINE SYS$OUTPUT _NLA0:
2258 $   on error then continue
2259 $   on warning then continue
2260 $   'Checkcc' temp.c
2261 $   If (Needs_Opt.eqs."Yes")
2262 $   THEN
2263 $     link temp.obj,temp.opt/opt
2264 $   else
2265 $     link temp.obj
2266 $   endif
2267 $   teststatus = f$extract(9,1,$status)
2268 $   DEASSIGN SYS$OUTPUT
2269 $   DEASSIGN SYS$ERROR
2270 $   if (teststatus.nes."1")
2271 $   THEN
2272 $     perl_d_getsent="undef"
2273 $   ELSE
2274 $     perl_d_getsent="define"
2275 $   ENDIF
2276 $ ELSE
2277 $ perl_d_getsent="undef"
2278 $ ENDIF
2279 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
2280 $!
2281 $! Check for pthread_yield
2282 $!
2283 $ if ("''use_threads'".eqs."T")
2284 $ THEN
2285 $ OS
2286 $ WS "#ifdef __DECC
2287 $ WS "#include <stdlib.h>
2288 $ WS "#endif
2289 $ WS "#include <pthread.h>
2290 $ WS "#include <stdio.h>
2291 $ WS "int main()
2292 $ WS "{"
2293 $ WS "pthread_yield();
2294 $ WS "exit(0);
2295 $ WS "}"
2296 $ CS
2297 $   DEFINE SYS$ERROR _NLA0:
2298 $   DEFINE SYS$OUTPUT _NLA0:
2299 $   on error then continue
2300 $   on warning then continue
2301 $   'Checkcc' temp.c
2302 $   teststatus = f$extract(9,1,$status)
2303 $   DEASSIGN SYS$OUTPUT
2304 $   DEASSIGN SYS$ERROR
2305 $   if (teststatus.nes."1")
2306 $   THEN
2307 $     perl_d_pthread_yield="undef"
2308 $   ELSE
2309 $     perl_d_pthread_yield="define"
2310 $   ENDIF
2311 $ ELSE
2312 $   perl_d_pthread_yield="undef"
2313 $ ENDIF
2314 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
2315 $!
2316 $! Check for sched_yield
2317 $!
2318 $ if ("''use_threads'".eqs."T")
2319 $ THEN
2320 $ OS
2321 $ WS "#ifdef __DECC
2322 $ WS "#include <stdlib.h>
2323 $ WS "#endif
2324 $ WS "#include <pthread.h>
2325 $ WS "#include <stdio.h>
2326 $ WS "int main()
2327 $ WS "{"
2328 $ WS "sched_yield();
2329 $ WS "exit(0);
2330 $ WS "}"
2331 $ CS
2332 $   DEFINE SYS$ERROR _NLA0:
2333 $   DEFINE SYS$OUTPUT _NLA0:
2334 $   on error then continue
2335 $   on warning then continue
2336 $   'Checkcc' temp.c
2337 $   teststatus = f$extract(9,1,$status)
2338 $   DEASSIGN SYS$OUTPUT
2339 $   DEASSIGN SYS$ERROR
2340 $   if (teststatus.nes."1")
2341 $   THEN
2342 $     perl_d_sched_yield="undef"
2343 $   ELSE
2344 $     perl_d_sched_yield="define"
2345 $   ENDIF
2346 $ ELSE
2347 $   perl_d_sched_yield="undef"
2348 $ ENDIF
2349 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
2350 $!
2351 $! Check for generic pointer size
2352 $!
2353 $ OS
2354 $ WS "#ifdef __DECC
2355 $ WS "#include <stdlib.h>
2356 $ WS "#endif
2357 $ WS "#include <stdio.h>
2358 $ WS "int main()
2359 $ WS "{"
2360 $ WS "int foo;
2361 $ WS "foo = sizeof(char *);
2362 $ WS "printf(""%d\n"", foo);
2363 $ WS "exit(0);
2364 $ WS "}"
2365 $ CS
2366 $! copy temp.c sys$output
2367 $!
2368 $   DEFINE SYS$ERROR _NLA0:
2369 $   DEFINE SYS$OUTPUT _NLA0:
2370 $   ON ERROR THEN CONTINUE
2371 $   ON WARNING THEN CONTINUE
2372 $   'Checkcc' temp.c
2373 $   If (Needs_Opt.eqs."Yes")
2374 $   THEN
2375 $     link temp.obj,temp.opt/opt
2376 $   else
2377 $     link temp.obj
2378 $   endif
2379 $   OPEN/WRITE TEMPOUT [-.uu]tempout.lis
2380 $   DEASSIGN SYS$OUTPUT
2381 $   DEASSIGN SYS$ERROR
2382 $   DEFINE SYS$ERROR TEMPOUT
2383 $   DEFINE SYS$OUTPUT TEMPOUT
2384 $   mcr []temp
2385 $   CLOSE TEMPOUT
2386 $   DEASSIGN SYS$OUTPUT
2387 $   DEASSIGN SYS$ERROR
2388 $   OPEN/READ TEMPOUT [-.uu]tempout.lis
2389 $   READ TEMPOUT line
2390 $   CLOSE TEMPOUT
2391 $
2392 $ perl_ptrsize=line
2393 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
2394 $!
2395 $ set nover
2396 $! Done with compiler checks. Clean up.
2397 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
2398 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
2399 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
2400 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
2401 $!
2402 $!
2403 $! Some that are compiler or VMS version sensitive
2404 $!
2405 $! Gnu C stuff
2406 $ IF "''Using_Gnu_C'".EQS."Yes"
2407 $ THEN
2408 $   perl_d_attribut="define"
2409 $   perl_vms_cc_type="gcc"
2410 $ ELSE
2411 $   perl_d_attribut="undef"
2412 $ ENDIF
2413 $
2414 $! Dec C >= 5.2 and VMS ver >= 7.0
2415 $ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
2416 $ THEN
2417 $ perl_d_bcmp="define"
2418 $ perl_d_gettimeod="define"
2419 $ perl_d_uname="define"
2420 $ perl_d_sigaction="define"
2421 $ perl_d_truncate="define"
2422 $ perl_d_wait4="define"
2423 $ perl_d_index="define"
2424 $ perl_pidtype="pid_t"
2425 $ 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"
2426 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
2427 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
2428 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
2429 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
2430 $ 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"
2431 $ perl_sig_num_init="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"
2432 $ perl_sig_num_with_commas=perl_sig_num_init
2433 $ perl_uidtype="uid_t"
2434 $ perl_d_pathconf="define"
2435 $ perl_d_fpathconf="define"
2436 $ perl_d_sysconf="define"
2437 $ perl_d_sigsetjmp="define"
2438 $ ELSE
2439 $ perl_pidtype="unsigned int"
2440 $ perl_d_gettimeod="undef"
2441 $ perl_d_bcmp="undef"
2442 $ perl_d_uname="undef"
2443 $ perl_d_sigaction="undef"
2444 $ perl_d_truncate="undef"
2445 $ perl_d_wait4="undef"
2446 $ perl_d_index="undef"
2447 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
2448 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
2449 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
2450 $ perl_sig_name_with_commas = psnwc1 + psnwc2
2451 $ perl_sig_num="0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 6 16 17"",0"
2452 $ perl_sig_num_init="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
2453 $ perl_sig_num_with_commas=perl_sig_num_init
2454 $ perl_uidtype="unsigned int"
2455 $ perl_d_pathconf="undef"
2456 $ perl_d_fpathconf="undef"
2457 $ perl_d_sysconf="undef"
2458 $ perl_d_sigsetjmp="undef"
2459 $ ENDIF
2460 $!
2461 $! Dec C alone
2462 $ IF ("''Using_Dec_C'".EQS."Yes")
2463 $ THEN
2464 $ perl_d_mbstowcs="define"
2465 $ perl_d_mbtowc="define"
2466 $ perl_d_stdiobase="define"
2467 $ perl_d_stdio_ptr_lval="define"
2468 $ perl_d_stdio_cnt_lval="define"
2469 $ perl_d_stdstdio="define"
2470 $ perl_d_wcstombs="define"
2471 $ perl_d_mblen="define"
2472 $ perl_d_mktime="define"
2473 $ perl_d_strcoll="define"
2474 $ perl_d_strxfrm="define"
2475 $ perl_d_wctomb="define"
2476 $ perl_i_locale="define"
2477 $ perl_d_locconv="define"
2478 $ perl_d_setlocale="define"
2479 $ perl_vms_cc_type="decc"
2480 $ ELSE
2481 $ perl_d_mbstowcs="undef"
2482 $ perl_d_mbtowc="undef"
2483 $ perl_d_stdiobase="undef"
2484 $ perl_d_stdio_ptr_lval="undef"
2485 $ perl_d_stdio_cnt_lval="undef"
2486 $ perl_d_stdstdio="undef"
2487 $ perl_d_wcstombs="undef"
2488 $ perl_d_mblen="undef"
2489 $ perl_d_mktime="undef"
2490 $ perl_d_strcoll="undef"
2491 $ perl_d_strxfrm="undef"
2492 $ perl_d_wctomb="undef"
2493 $ perl_i_locale="undef"
2494 $ perl_d_locconv="undef"
2495 $ perl_d_setlocale="undef"
2496 $ ENDIF
2497 $!
2498 $! Vax C stuff
2499 $ if ("''Using_Vax_C'".EQS."Yes")
2500 $ THEN
2501 $ perl_vms_cc_type="vaxc"
2502 $ ENDIF
2503 $!
2504 $!
2505 $! Sockets?
2506 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
2507 $ THEN
2508 $ perl_d_vms_do_sockets="define"
2509 $ perl_d_htonl="define"
2510 $ perl_d_socket="define"
2511 $ perl_d_select="define"
2512 $ perl_netdb_host_type="char *"
2513 $ perl_netdb_hlen_type="int"
2514 $ perl_netdb_name_type="char *"
2515 $ perl_netdb_net_type="long"
2516 $ perl_d_gethbyaddr="define"
2517 $ perl_d_gethbyname="define"
2518 $ perl_d_getnbyaddr="define"
2519 $ perl_d_getnbyname="define"
2520 $ perl_d_getpbynumber="define"
2521 $ perl_d_getpbyname="define"
2522 $ perl_d_getsbyport="define"
2523 $ perl_d_getsbyname="define"
2524 $ perl_d_gethostprotos="define"
2525 $ perl_d_getnetprotos="define"
2526 $ perl_d_getprotoprotos="define"
2527 $ perl_d_getservprotos="define"
2528 $ ELSE
2529 $ perl_d_vms_do_sockets="undef"
2530 $ perl_d_htonl="undef"
2531 $ perl_d_socket="undef"
2532 $ perl_d_select="undef"
2533 $ perl_netdb_host_type="char *"
2534 $ perl_netdb_hlen_type="int"
2535 $ perl_netdb_name_type="char *"
2536 $ perl_netdb_net_type="long"
2537 $ perl_d_gethbyaddr="undef"
2538 $ perl_d_gethbyname="undef"
2539 $ perl_d_getnbyaddr="undef"
2540 $ perl_d_getnbyname="undef"
2541 $ perl_d_getpbynumber="undef"
2542 $ perl_d_getpbyname="undef"
2543 $ perl_d_getsbyport="undef"
2544 $ perl_d_getsbyname="undef"
2545 $ perl_d_gethostprotos="undef"
2546 $ perl_d_getnetprotos="undef"
2547 $ perl_d_getprotoprotos="undef"
2548 $ perl_d_getservprotos="undef"
2549 $ ENDIF
2550 $! Threads
2551 $ if ("''use_threads'".eqs."T")
2552 $ THEN
2553 $   perl_usethreads="define"
2554 $   perl_d_pthreads_created_joinable="define"
2555 $   if ("''VMS_VER'".ges."7.0")
2556 $   THEN
2557 $     perl_d_oldpthreads="undef"
2558 $   ELSE
2559 $     perl_d_oldpthreads="define"
2560 $   ENDIF
2561 $ ELSE
2562 $   perl_d_oldpthreads="undef"
2563 $   perl_usethreads="undef"
2564 $
2565 $   perl_d_pthreads_created_joinable="undef"
2566 $ ENDIF
2567 $!
2568 $!
2569 $! Finally the composite ones. All config
2570 $ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
2571 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
2572 $ perl_myhostname="''myhostname'"
2573 $ perl_mydomain="''mydomain'"
2574 $ perl_perladmin="''perladmin'"
2575 $ perl_cf_email="''cf_email'"
2576 $ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
2577 $ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
2578 $ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
2579 $ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
2580 $ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
2581 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
2582 $ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
2583 $ if "''Using_Dec_C'" .eqs. "Yes"
2584 $ THEN
2585 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
2586 $ ELSE
2587 $   IF "''Using_Vax_C'" .eqs. "Yes"
2588 $   THEN
2589 $     perl_ccflags="/Include=[]/Obj=''perl_obj_ext'/NoList''cc_flags'"
2590 $   ENDIF
2591 $ ENDIF
2592 $!
2593 $! Finally clean off any leading zeros from the patchlevel or subversion
2594 $ perl_patchlevel = perl_patchlevel + 0
2595 $ perl_subversion = perl_subversion + 0
2596 $!
2597 $! Okay, we've got everything configured. Now go write out a config.sh.
2598 $ open/write CONFIGSH [-]config.sh
2599 $ WC := "write CONFIGSH"
2600 $!
2601 $ WC "# This file generated by Configure.COM on a VMS system."
2602 $ WC "# Time: " + perl_cf_time
2603 $ WC ""
2604 $ WC "package='" + perl_package + "'"
2605 $ WC "CONFIG='" + perl_config + "'"
2606 $ WC "cf_time='" + perl_cf_time + "'"
2607 $ WC "cf_by='" + perl_cf_by+ "'"
2608 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
2609 $ WC "ccdlflags='" + perl_ccdlflags + "'"
2610 $ WC "cccdlflags='" + perl_cccdlflags + "'"
2611 $ WC "mab='" + perl_mab + "'"
2612 $ WC "libpth='" + perl_libpth + "'"
2613 $ WC "ld='" + perl_ld + "'"
2614 $ WC "lddlflags='" + perl_lddlflags + "'"
2615 $ WC "ranlib='" + perl_ranlib + "'"
2616 $ WC "ar='" + perl_ar + "'"
2617 $ WC "eunicefix='" + perl_eunicefix + "'"
2618 $ WC "hint='" + perl_hint +"'"
2619 $ WC "hintfile='" + perl_hintfile + "'"
2620 $ WC "shrplib='" + perl_shrplib + "'"
2621 $ WC "usemymalloc='" + perl_usemymalloc + "'"
2622 $ WC "usevfork='" + perl_usevfork + "'"
2623 $ WC "useposix='false'"
2624 $ WC "spitshell='write sys$output '"
2625 $ WC "dlsrc='dl_vms.c'"
2626 $ WC "binexp='" + perl_binexp + "'"
2627 $ WC "man1ext='" + perl_man1ext + "'"
2628 $ WC "man3ext='" + perl_man3ext + "'"
2629 $ WC "arch='" + perl_arch + "'"
2630 $ WC "archname='" + perl_archname + "'"
2631 $ WC "osvers='" + perl_osvers + "'"
2632 $ WC "prefix='" + perl_prefix + "'"
2633 $ WC "builddir='" + perl_builddir + "'"
2634 $ WC "installbin='" + perl_installbin + "'"
2635 $ WC "installscript='" + perl_installscript + "'"
2636 $ WC "installman1dir='" + perl_installman1dir + "'"
2637 $ WC "installman3dir='" + perl_installman3dir + "'"
2638 $ WC "installprivlib='" + perl_installprivlib + "'"
2639 $ WC "installarchlib='" + perl_installarchlib + "'"
2640 $ WC "installsitelib='" + perl_installsitelib + "'"
2641 $ WC "installsitearch='" + perl_installsitearch + "'"
2642 $ WC "path_sep='" + perl_path_sep + "'"
2643 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
2644 $ WC "d_attribut='" + perl_d_attribut + "'"
2645 $ WC "cc='" + perl_cc + "'"
2646 $ WC "ccflags='" + perl_ccflags + "'"
2647 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
2648 $ WC "d_socket='" + perl_d_socket + "'"
2649 $ WC "d_sockpair='" + perl_d_sockpair + "'"
2650 $ WC "d_gethent='" + perl_d_gethent + "'"
2651 $ WC "d_getsent='" + perl_d_getsent + "'"
2652 $ WC "d_select='" + perl_d_select + "'"
2653 $ WC "i_niin='" + perl_i_niin + "'"
2654 $ WC "i_neterrno='" + perl_i_neterrno + "'"
2655 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
2656 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
2657 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
2658 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
2659 $ WC "d_locconv='" + perl_d_locconv + "'"
2660 $ WC "d_setlocale='" + perl_d_setlocale + "'"
2661 $ WC "i_locale='" + perl_i_locale + "'"
2662 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
2663 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
2664 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
2665 $ WC "d_wctomb='" + perl_d_wctomb + "'"
2666 $ WC "d_mblen='" + perl_d_mblen + "'"
2667 $ WC "d_mktime='" + perl_d_mktime + "'"
2668 $ WC "d_strcoll='" + perl_d_strcoll + "'"
2669 $ WC "d_strxfrm='" + perl_d_strxfrm  + "'"
2670 $ WC "ldflags='" + perl_ldflags + "'"
2671 $ WC "dlobj='" + perl_dlobj + "'"
2672 $ WC "obj_ext='" + perl_obj_ext + "'"
2673 $ WC "so='" + perl_so + "'"
2674 $ WC "dlext='" + perl_dlext + "'"
2675 $ WC "exe_ext='" + perl_exe_ext + "'"
2676 $ WC "lib_ext='" + perl_lib_ext + "'"
2677 $ WC "myhostname='" + perl_myhostname + "'"
2678 $ WC "mydomain='" + perl_mydomain + "'"
2679 $ WC "perladmin='" + perl_perladmin + "'"
2680 $ WC "cf_email='" + perl_cf_email + "'"
2681 $ WC "myuname='" + perl_myuname + "'"
2682 $ WC "alignbytes='" + perl_alignbytes + "'"
2683 $ WC "osname='" + perl_osname + "'"
2684 $ WC "d_archlib='" + perl_d_archlib + "'"
2685 $ WC "archlibexp='" + perl_archlibexp + "'"
2686 $ WC "archlib='" + perl_archlib + "'"
2687 $ WC "archname='" + perl_archname + "'"
2688 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
2689 $ WC "cppstdin='" + perl_cppstdin + "'"
2690 $ WC "cppminus='" + perl_cppminus + "'"
2691 $ WC "d_bcmp='" + perl_d_bcmp + "'"
2692 $ WC "d_bcopy='" + perl_d_bcopy + "'"
2693 $ WC "d_bzero='" + perl_d_bzero + "'"
2694 $ WC "d_castneg='" + perl_d_castneg + "'"
2695 $ WC "castflags='" + perl_castflags + "'"
2696 $ WC "d_chsize='" + perl_d_chsize + "'"
2697 $ WC "d_const='" + perl_d_const + "'"
2698 $ WC "d_crypt='" + perl_d_crypt + "'"
2699 $ WC "byteorder='" + perl_byteorder + "'"
2700 $ WC "full_csh='" + perl_full_csh + "'"
2701 $ WC "d_csh='" + perl_d_csh + "'"
2702 $ WC "d_dup2='" + perl_d_dup2 + "'"
2703 $ WC "d_fchmod='" + perl_d_fchmod + "'"
2704 $ WC "d_fchown='" + perl_d_fchown + "'"
2705 $ WC "d_fcntl='" + perl_d_fcntl + "'"
2706 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
2707 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
2708 $ WC "d_flock='" + perl_d_flock + "'"
2709 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
2710 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
2711 $ WC "d_getgrps='" + perl_d_getgrps + "'"
2712 $ WC "d_setgrps='" + perl_d_setgrps + "'"
2713 $ WC "d_uname='" + perl_d_uname + "'"
2714 $ WC "d_getprior='" + perl_d_getprior + "'"
2715 $ WC "d_killpg='" + perl_d_killpg + "'"
2716 $ WC "d_link='" + perl_d_link + "'"
2717 $ WC "d_lstat='" + perl_d_lstat + "'"
2718 $ WC "d_lockf='" + perl_d_lockf + "'"
2719 $ WC "d_memcmp='" + perl_d_memcmp + "'"
2720 $ WC "d_memcpy='" + perl_d_memcpy + "'"
2721 $ WC "d_memmove='" + perl_d_memmove + "'"
2722 $ WC "d_memset='" + perl_d_memset + "'"
2723 $ WC "d_mkdir='" + perl_d_mkdir + "'"
2724 $ WC "d_msg='" + perl_d_msg + "'"
2725 $ WC "d_open3='" + perl_d_open3 + "'"
2726 $ WC "d_poll='" + perl_d_poll + "'"
2727 $ WC "d_readdir='" + perl_d_readdir + "'"
2728 $ WC "d_seekdir='" + perl_d_seekdir + "'"
2729 $ WC "d_telldir='" + perl_d_telldir + "'"
2730 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
2731 $ WC "d_rename='" + perl_d_rename + "'"
2732 $ WC "d_rmdir='" + perl_d_rmdir + "'"
2733 $ WC "d_sem='" + perl_d_sem + "'"
2734 $ WC "d_setegid='" + perl_d_setegid + "'"
2735 $ WC "d_seteuid='" + perl_d_seteuid + "'"
2736 $ WC "d_setprior='" + perl_d_setprior + "'"
2737 $ WC "d_setregid='" + perl_d_setregid + "'"
2738 $ WC "d_setresgid='" + perl_d_setresgid + "'"
2739 $ WC "d_setreuid='" + perl_d_setreuid + "'"
2740 $ WC "d_setresuid='" + perl_d_setresuid + "'"
2741 $ WC "d_setrgid='" + perl_d_setrgid + "'"
2742 $ WC "d_setruid='" + perl_d_setruid + "'"
2743 $ WC "d_setsid='" + perl_d_setsid + "'"
2744 $ WC "d_shm='" + perl_d_shm + "'"
2745 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
2746 $ WC "d_sigaction='" + perl_d_sigaction + "'"
2747 $ WC "d_statblks='" + perl_d_statblks + "'"
2748 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
2749 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
2750 $ WC "stdio_base='" + perl_stdio_base + "'"
2751 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
2752 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
2753 $ WC "d_strerror='" + perl_d_strerror + "'"
2754 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
2755 $ WC "d_strerrm='" + perl_d_strerrm + "'"
2756 $ WC "d_symlink='" + perl_d_symlink + "'"
2757 $ WC "d_syscall='" + perl_d_syscall + "'"
2758 $ WC "d_system='" + perl_d_system + "'"
2759 $ WC "timetype='" + perl_timetype + "'"
2760 $ WC "d_truncate='" + perl_d_truncate + "'"
2761 $ WC "d_vfork='" + perl_d_vfork + "'"
2762 $ WC "signal_t='" + perl_signal_t + "'"
2763 $ WC "d_volatile='" + perl_d_volatile + "'"
2764 $ WC "d_vprintf='" + perl_d_vprintf + "'"
2765 $ WC "d_charvspr='" + perl_d_charvspr + "'"
2766 $ WC "d_wait4='" + perl_d_wait4 + "'"
2767 $ WC "d_waitpid='" + perl_d_waitpid + "'"
2768 $ WC "i_dirent='" + perl_i_dirent + "'"
2769 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
2770 $ WC "direntrytype='" + perl_direntrytype + "'"
2771 $ WC "i_fcntl='" + perl_i_fcntl + "'"
2772 $ WC "i_grp='" + perl_i_grp + "'"
2773 $ WC "i_limits='" + perl_i_limits + "'"
2774 $ WC "i_memory='" + perl_i_memory + "'"
2775 $ WC "i_ndbm='" + perl_i_ndbm + "'"
2776 $ WC "i_stdarg='" + perl_i_stdarg + "'"
2777 $ WC "i_pwd='" + perl_i_pwd + "'"
2778 $ WC "d_pwquota='" + perl_d_pwquota + "'"
2779 $ WC "d_pwage='" + perl_d_pwage + "'"
2780 $ WC "d_pwchange='" + perl_d_pwchange + "'"
2781 $ WC "d_pwclass='" + perl_d_pwclass + "'"
2782 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
2783 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
2784 $ WC "i_stddef='" + perl_i_stddef + "'"
2785 $ WC "i_stdlib='" + perl_i_stdlib + "'"
2786 $ WC "i_string='" + perl_i_string + "'"
2787 $ WC "i_sysdir='" + perl_i_sysdir + "'"
2788 $ WC "i_sysfile='" + perl_i_sysfile + "'"
2789 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
2790 $ WC "i_sysndir='" + perl_i_sysndir + "'"
2791 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
2792 $ WC "i_sysselct='" + perl_i_sysselct + "'"
2793 $ WC "i_dbm='" + perl_i_dbm + "'"
2794 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
2795 $ WC "i_sfio='" + perl_i_sfio + "'"
2796 $ WC "i_sysstat='" + perl_i_sysstat + "'"
2797 $ WC "i_systimes='" + perl_i_systimes + "'"
2798 $ WC "i_systypes='" + perl_i_systypes + "'"
2799 $ WC "i_sysun='" + perl_i_sysun + "'"
2800 $ WC "i_syswait='" + perl_i_syswait + "'"
2801 $ WC "i_termio='" + perl_i_termio + "'"
2802 $ WC "i_sgtty='" + perl_i_sgtty + "'"
2803 $ WC "i_termios='" + perl_i_termios + "'"
2804 $ WC "i_time='" + perl_i_time + "'"
2805 $ WC "i_systime='" + perl_i_systime + "'"
2806 $ WC "i_systimek='" + perl_i_systimek + "'"
2807 $ WC "i_unistd='" + perl_i_unistd + "'"
2808 $ WC "i_utime='" + perl_i_utime + "'"
2809 $ WC "i_varargs='" + perl_i_varargs + "'"
2810 $ WC "i_vfork='" + perl_i_vfork + "'"
2811 $ WC "prototype='" + perl_prototype + "'"
2812 $ WC "randbits='" + perl_randbits +"'"
2813 $ WC "selecttype='" + perl_selecttype + "'"
2814 $ WC "stdchar='" + perl_stdchar + "'"
2815 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
2816 $ WC "full_sed='" + perl_full_sed + "'"
2817 $ WC "bin='" + perl_bin + "'"
2818 $ WC "binexp='" + perl_binexp + "'"
2819 $ WC "d_alarm='" + perl_d_alarm + "'"
2820 $ WC "d_casti32='" + perl_d_casti32 + "'"
2821 $ WC "d_chown='" + perl_d_chown + "'"
2822 $ WC "d_chroot='" + perl_d_chroot + "'"
2823 $ WC "d_cuserid='" + perl_d_cuserid + "'"
2824 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
2825 $ WC "d_difftime='" + perl_d_difftime + "'"
2826 $ WC "d_fork='" + perl_d_fork + "'"
2827 $ WC "d_getlogin='" + perl_d_getlogin + "'"
2828 $ WC "d_getppid='" + perl_d_getppid + "'"
2829 $ WC "d_htonl='" + perl_d_htonl + "'"
2830 $ WC "d_nice='" + perl_d_nice + "'"
2831 $ WC "d_pause='" + perl_d_pause + "'"
2832 $ WC "d_pipe='" + perl_d_pipe + "'"
2833 $ WC "d_readlink='" + perl_d_readlink + "'"
2834 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
2835 $ WC "d_strchr='" + perl_d_strchr + "'"
2836 $ WC "d_index='" + perl_d_index + "'"
2837 $ WC "d_strtod='" + perl_d_strtod + "'"
2838 $ WC "d_strtol='" + perl_d_strtol + "'"
2839 $ WC "d_strtoul='" + perl_d_strtoul + "'"
2840 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
2841 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
2842 $ WC "d_times='" + perl_d_times + "'"
2843 $ WC "d_tzname='" + perl_d_tzname + "'"
2844 $ WC "d_umask='" + perl_d_umask + "'"
2845 $ WC "fpostype='" + perl_fpostype + "'"
2846 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
2847 $ WC "i_float='" + perl_i_float + "'"
2848 $ WC "i_math='" + perl_i_math + "'"
2849 $ WC "intsize='" + perl_intsize + "'"
2850 $ WC "longsize='" + perl_longsize + "'"
2851 $ WC "shortsize='" + perl_shortsize + "'"
2852 $ WC "lseektype='" + perl_lseektype + "'"
2853 $ WC "i_values='" + perl_i_values + "'"
2854 $ WC "malloctype='" + perl_malloctype + "'"
2855 $ WC "freetype='" + perl_freetype + "'"
2856 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
2857 $ WC "sh='" + perl_sh + "'"
2858 $ WC "sig_name='" + perl_sig_name + "'"
2859 $ WC "sig_num='" + perl_sig_num + "'"
2860 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
2861 $ WC/symbol tempsym
2862 $ WC "modetype='" + perl_modetype + "'"
2863 $ WC "ssizetype='" + perl_ssizetype + "'"
2864 $ WC "o_nonblock='" + perl_o_nonblock + "'"
2865 $ WC "eagain='" + perl_eagain + "'"
2866 $ WC "rd_nodata='" + perl_rd_nodata + "'"
2867 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
2868 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
2869 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
2870 $ WC "oldarchlib='" + perl_oldarchlib + "'"
2871 $ WC "privlibexp='" + perl_privlibexp + "'"
2872 $ WC "privlib='" + perl_privlib + "'"
2873 $ WC "sitelibexp='" + perl_sitelibexp + "'"
2874 $ WC "sitelib='" + perl_sitelib + "'"
2875 $ WC "sitearchexp='" + perl_sitearchexp + "'"
2876 $ WC "sitearch='" + perl_sitearch + "'"
2877 $ WC "sizetype='" + perl_sizetype + "'"
2878 $ WC "i_sysparam='" + perl_i_sysparam + "'"
2879 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
2880 $ WC "d_dlerror='" + perl_d_dlerror + "'"
2881 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
2882 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
2883 $ WC "d_dosuid='" + perl_d_dosuid + "'"
2884 $ WC "d_inetaton='" + perl_d_inetaton + "'"
2885 $ WC "d_isascii='" + perl_d_isascii + "'"
2886 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
2887 $ WC "d_pathconf='" + perl_d_pathconf + "'"
2888 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
2889 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
2890 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
2891 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
2892 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
2893 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
2894 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
2895 $ WC "d_setpgid='" + perl_d_setpgid + "'"
2896 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
2897 $ WC "d_sysconf='" + perl_d_sysconf + "'"
2898 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
2899 $ WC "d_getpgid='" + perl_d_getpgid + "'"
2900 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
2901 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
2902 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
2903 $ WC "d_sfio='" + perl_d_sfio + "'"
2904 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
2905 $ WC "usedl='" + perl_usedl + "'"
2906 $ WC "startperl=" + perl_startperl ! This one's special--no enclosing single quotes
2907 $ WC "db_hashtype='" + perl_db_hashtype + "'"
2908 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
2909 $ WC "useperlio='" + perl_useperlio + "'"
2910 $ WC "defvoidused='" + perl_defvoidused + "'"
2911 $ WC "voidflags='" + perl_voidflags + "'"
2912 $ WC "d_eunice='" + perl_d_eunice + "'"
2913 $ WC "libs='" + perl_libs + "'"
2914 $ WC "libc='" + perl_libc + "'"
2915 $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
2916 $ WC tempstring
2917 $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
2918 $ WC tempstring
2919 $ WC "pager='" + perl_pager + "'"
2920 $ WC "uidtype='" + perl_uidtype + "'"
2921 $ WC "gidtype='" + perl_gidtype + "'"
2922 $ WC "usethreads='" + perl_usethreads + "'"
2923 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
2924 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
2925 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
2926 $ WC "i_netdb='" + perl_i_netdb + "'"
2927 $ WC "pidtype='" + perl_pidtype + "'"
2928 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
2929 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
2930 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
2931 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
2932 $ WC "baserev='" + perl_baserev + "'"
2933 $ WC "doublesize='" + perl_doublesize + "'"
2934 $ WC "ptrsize='" + perl_ptrsize + "'"
2935 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
2936 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
2937 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
2938 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
2939 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
2940 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
2941 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
2942 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
2943 $ WC "d_sethent='" + perl_d_sethent + "'"
2944 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
2945 $ WC "d_longdbl='" + perl_d_longdbl + "'"
2946 $ WC "longdblsize='" + perl_longdblsize + "'"
2947 $ WC "d_longlong='" + perl_d_longlong + "'"
2948 $ WC "longlongsize='" + perl_longlongsize + "'"
2949 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
2950 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
2951 $ WC "d_endhent='" + perl_d_endhent + "'"
2952 $ WC "d_endnent='" + perl_d_endsent + "'"
2953 $ WC "d_endpent='" + perl_d_endpent + "'"
2954 $ WC "d_endsent='" + perl_d_endsent + "'"
2955 $ WC "d_gethent='" + perl_d_gethent + "'"
2956 $ WC "d_getnent='" + perl_d_getsent + "'"
2957 $ WC "d_getpent='" + perl_d_getpent + "'"
2958 $ WC "d_getsent='" + perl_d_getsent + "'"
2959 $ WC "d_sethent='" + perl_d_sethent + "'"
2960 $ WC "d_setnent='" + perl_d_setsent + "'"
2961 $ WC "d_setpent='" + perl_d_setpent + "'"
2962 $ WC "ebcdic='" + perl_ebcdic + "'"
2963 $ WC "d_setsent='" + perl_d_setsent + "'"
2964 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
2965 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
2966 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
2967 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
2968 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
2969 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
2970 $ WC "d_lchown='" + perl_d_lchown + "'"
2971 $ WC "d_union_semun='" + perl_d_union_semun + "'"
2972 $ WC "i_arpainet='" + perl_i_arpainet + "'"
2973 $ WC "d_grpasswd='" + perl_d_grpasswd + "'"
2974 $ WC "d_setgrent='" + perl_d_setgrent + "'"
2975 $ WC "d_getgrent='" + perl_d_getgrent + "'"
2976 $ WC "d_endgrent='" + perl_d_endgrent + "'"
2977 $ WC "d_pwpasswd='" + perl_d_pwpasswd + "'"
2978 $ WC "d_setpwent='" + perl_d_setpwent + "'"
2979 $ WC "d_getpwent='" + perl_d_getpwent + "'"
2980 $ WC "d_endpwent='" + perl_d_endpwent + "'"
2981 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
2982 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
2983 $ WC "extensions='" + perl_extensions + "'"
2984 $ WC "d_mknod='" + perl_d_mknod + "'"
2985 $ WC "devtype='" + perl_devtype + "'"
2986 $ WC "d_gethname='" + perl_d_gethname + "'"
2987 $ WC "d_phostname='" + perl_d_phostname + "'"
2988 $ WC "d_accessx='" + perl_d_accessx + "'"
2989 $ WC "d_eaccess='" + perl_d_eaccess + "'"
2990 $ WC "i_sysaccess='" + perl_i_sysaccess + "'"
2991 $ WC "i_syssecrt='" + perl_i_syssecrt + "'"
2992 $ WC "d_fd_set='" + perl_d_fd_set + "'"
2993 $ WC "d_access='" + perl_d_access + "'"
2994 $ WC "d_msg_ctrunc='" + perl_d_msg_ctrunc + "'"
2995 $ WC "d_msg_dontroute='" + perl_d_msg_dontroute + "'"
2996 $ WC "d_msg_oob='" + perl_d_msg_oob + "'"
2997 $ WC "d_msg_peek='" + perl_d_msg_peek + "'"
2998 $ WC "d_msg_proxy='" + perl_d_msg_proxy + "'"
2999 $ WC "d_scm_rights='" + perl_d_scm_rights + "'"
3000 $ WC "d_sendmsg='" + perl_d_sendmsg + "'"
3001 $ WC "d_recvmsg='" + perl_d_recvmsg + "'"
3002 $ WC "d_msghdr_s='" + perl_d_msghdr_s + "'"
3003 $ WC "d_cmsghdr_s='" + perl_d_cmsghdr_s + "'"
3004 $ WC "i_sysuio='" + perl_i_sysuio + "'"
3005 $ WC "d_fseeko='" + perl_d_fseeko + "'"
3006 $ WC "d_ftello='" + perl_d_ftello + "'"
3007 $ WC "d_readv='" + perl_d_readv + "'"
3008 $ WC "d_writev='" + perl_d_writev + "'"
3009 $ WC "i_machcthr='" + perl_i_machcthr + "'"
3010 $ WC "usemultiplicity='" + perl_usemultiplicity + "'"
3011 $ WC "d_dbminit64='" + perl_d_dbminit64 + "'"
3012 $ WC "d_dbmclose64='" + perl_d_dbmclose64 + "'"
3013 $ WC "d_fetch64='" + perl_d_fetch64 + "'"
3014 $ WC "d_store64='" + perl_d_store64 + "'"
3015 $ WC "d_delete64='" + perl_d_delete64 + "'"
3016 $ WC "d_firstkey64='" + perl_d_firstkey64 + "'"
3017 $ WC "d_nextkey64='" + perl_d_nextkey64 + "'"
3018 $ WC "i_poll='" + perl_i_poll + "'"
3019 $ WC "i_inttypes='" + perl_i_inttypes + "'"
3020 $ WC "d_int64t='" + perl_d_int64t + "'"
3021 $ WC "d_off64t='" + perl_d_off64t + "'"
3022 $ WC "d_fstat64='" + perl_d_fstat64 + "'"
3023 $ WC "d_ftruncate64='" + perl_d_ftruncate64 + "'"
3024 $ WC "d_lseek64='" + perl_d_lseek64 + "'"
3025 $ WC "d_lstat64='" + perl_d_lstat64 + "'"
3026 $ WC "d_open64='" + perl_d_open64 + "'"
3027 $ WC "d_opendir64='" + perl_d_opendir64 + "'"
3028 $ WC "d_readdir64='" + perl_d_readdir64 + "'"
3029 $ WC "d_seekdir64='" + perl_d_seekdir64 + "'"
3030 $ WC "d_stat64='" + perl_d_stat64 + "'"
3031 $ WC "d_telldir64='" + perl_d_telldir64 + "'"
3032 $ WC "d_truncate64='" + perl_d_truncate64 + "'"
3033 $ WC "d_dirent64_s='" + perl_d_dirent64_s + "'"
3034 $ WC "use64bits='" + perl_use64bits + "'"
3035 $ WC "d_fgetpos64='" + perl_d_fgetpos64 + "'"
3036 $ WC "d_fopen64='" + perl_d_fopen64 + "'"
3037 $ WC "d_freopen64='" + perl_d_freopen64 + "'"
3038 $ WC "d_fseek64='" + perl_d_fseek64 + "'"
3039 $ WC "d_fseeko64='" + perl_d_fseeko64 + "'"
3040 $ WC "d_fsetpos64='" + perl_d_fsetpos64 + "'"
3041 $ WC "d_ftell64='" + perl_d_ftell64 + "'"
3042 $ WC "d_ftello64='" + perl_d_ftello64 + "'"
3043 $ WC "d_tmpfile64='" + perl_d_tmpfile64 + "'"
3044 $ WC "d_drand48proto='" + perl_d_drand48proto + "'"
3045 $ WC "d_pthread_create_joinable='" + perl_d_pthread_create_joinable + "'"
3046 $ WC "pthread_create_joinable='" + perl_pthread_create_joinable + "'"
3047 $ WC "drand01='" + perl_drand01 + "'"
3048 $ WC "randseedtype='" + perl_randseedtype + "'"
3049 $ WC "seedfunc='" + perl_seedfunc + "'"
3050 $ WC "sig_num_init='" + perl_sig_num_with_commas + "'"
3051 $!
3052 $! ##WRITE NEW CONSTANTS HERE##
3053 $!
3054 $ Close CONFIGSH
3055 $
3056 $! Okay, we've gotten here. Build munchconfig and run it
3057 $ 'Perl_CC' munchconfig.c
3058 $ If (Needs_Opt.eqs."Yes")
3059 $ THEN
3060 $   open/write OPTCHAN []munchconfig.opt
3061 $   IF ("''using_gnu_c'".eqs."Yes")
3062 $   THEN
3063 $     write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
3064 $   endif
3065 $   write OPTCHAN "Sys$Share:VAXCRTL/Share"
3066 $   Close OPTCHAN
3067 $   link munchconfig.obj,munchconfig.opt/opt
3068 $   delete munchconfig.opt;*
3069 $ else
3070 $   link munchconfig.obj
3071 $ endif
3072 $ WRITE_RESULT "Writing config.h"
3073 $ !
3074 $ ! we need an fdl file
3075 $ CREATE [-]CONFIG.FDL
3076 RECORD
3077   FORMAT STREAM_LF
3078 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
3079 $ ! First spit out the header info with the local defines (to get
3080 $ ! around the 255 character command line limit)
3081 $ OPEN/APPEND CONFIG [-]config.local
3082 $ if use_debugging_perl.eqs."Y"
3083 $ THEN
3084 $   WRITE CONFIG "#define DEBUGGING"
3085 $ ENDIF
3086 $ if preload_env.eqs."Y"
3087 $ THEN
3088 $    WRITE CONFIG "#define PRIME_ENV_AT_STARTUP"
3089 $ ENDIF
3090 $ if use_two_pot_malloc.eqs."Y"
3091 $ THEN
3092 $    WRITE CONFIG "#define TWO_POT_OPTIMIZE"
3093 $ endif
3094 $ if mymalloc.eqs."Y"
3095 $ THEN
3096 $    WRITE CONFIG "#define EMBEDMYMALLOC"
3097 $ ENDIF
3098 $ if use_pack_malloc.eqs."Y"
3099 $ THEN
3100 $    WRITE CONFIG "#define PACK_MALLOC"
3101 $ endif
3102 $ if use_debugmalloc.eqs."Y"
3103 $ THEN
3104 $    write config "#define DEBUGGING_MSTATS"
3105 $ ENDIF
3106 $ if "''Using_Gnu_C'" .eqs."Yes"
3107 $ THEN
3108 $   WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
3109 $ ENDIF
3110 $ if "''Has_Dec_C_Sockets'".eqs."T"
3111 $ THEN
3112 $    WRITE CONFIG "#define VMS_DO_SOCKETS"
3113 $    WRITE CONFIG "#define DECCRTL_SOCKETS"
3114 $ ENDIF
3115 $ if "''Has_Socketshr'".eqs."T"
3116 $ THEN
3117 $    WRITE CONFIG "#define VMS_DO_SOCKETS"
3118 $ ENDIF
3119 $ CLOSE CONFIG
3120 $!
3121 $! Now build the normal config.h
3122 $ define/user sys$output [-]config.main
3123 $ mcr []munchconfig [-]config.sh [-]config_h.sh
3124 $ ! Concatenate them together
3125 $ copy [-]config.local,[-]config.main [-]config.h
3126 $! Clean up
3127 $ DELETE/NOLOG [-]CONFIG.MAIN;*
3128 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
3129 $ DELETE/NOLOG [-]CONFIG.FDL;*
3130 $!
3131 $ if "''Using_Dec_C'" .eqs."Yes"
3132 $ THEN
3133 $ DECC_REPLACE = "DECC=decc=1"
3134 $ ELSE
3135 $ DECC_REPLACE = "DECC="
3136 $ ENDIF
3137 $ if "''Using_Gnu_C'" .eqs."Yes"
3138 $ THEN
3139 $ GNUC_REPLACE = "GNUC=gnuc=1"
3140 $ ELSE
3141 $ GNUC_REPLACE = "GNUC="
3142 $ ENDIF
3143 $ if "''Has_Dec_C_Sockets'" .eqs."T"
3144 $ THEN
3145 $   SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
3146 $ ELSE
3147 $   if "''Has_Socketshr'" .eqs."T"
3148 $   THEN
3149 $     SOCKET_REPLACE = "SOCKET=SOCKETSHR_SOCKETS=1"
3150 $   ELSE
3151 $     SOCKET_REPLACE = "SOCKET="
3152 $   ENDIF
3153 $ ENDIF
3154 $ IF ("''Use_Threads'".eqs."T")
3155 $ THEN
3156 $   if ("''VMS_VER'".LES."6.2")
3157 $   THEN
3158 $     THREAD_REPLACE = "THREAD=OLDTHREADED=1"
3159 $   ELSE
3160 $     THREAD_REPLACE = "THREAD=THREADED=1"
3161 $   ENDIF
3162 $ ELSE
3163 $   THREAD_REPLACE = "THREAD="
3164 $ ENDIF
3165 $ if mymalloc.eqs."Y"
3166 $ THEN
3167 $   MALLOC_REPLACE = "MALLOC=MALLOC=1"
3168 $ ELSE
3169 $   MALLOC_REPLACE = "MALLOC="
3170 $ ENDIF
3171 $ if f$getsyi("HW_MODEL").ge.1024
3172 $ THEN
3173 $ ARCH_TYPE = "ARCH-TYPE=__AXP__"
3174 $ ELSE
3175 $ ARCH_TYPE = "ARCH-TYPE=__VAX__"
3176 $ ENDIF
3177 $ WRITE_RESULT "Writing DESCRIP.MMS"
3178 $!set ver
3179 $ define/user sys$output [-]descrip.mms
3180 $ 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'"
3181 $! set nover
3182 $!
3183 $! Clean up after ourselves
3184 $ delete/nolog munchconfig.exe;*
3185 $ delete/nolog munchconfig.obj;*