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 $ echo = "Write Sys$Output "
  34 $ Dec_C_Version := "''Dec_C_Version'"
  35 $ Dec_C_Version = Dec_C_Version + 0
  36 $ Vms_Ver := "''f$extract(1,3, f$getsyi(""version""))'"
  37 $ perl_extensions := "''extensions'"
  38 $ if f$length(Mcc) .eq. 0 then Mcc := "cc"
  39 $ MCC = f$edit(mcc, "UPCASE")
  40 $ C_Compiler_Replace := "CC=CC=''Mcc'''CC_flags'"
  41 $ if "''Using_Dec_C'" .eqs. "Yes"
  42 $ THEN
  43 $   Checkcc := "''Mcc'/prefix=all"
  44 $ ELSE
  45 $   Checkcc := "''Mcc'"
  46 $ ENDIF
  47 $! cc_flags = ""
  48 $ if use_multiplicity .eqs. "Y"
  49 $ THEN
  50 $   perl_usemultiplicity = "define"
  51 $ ELSE
  52 $   perl_usemultiplicity = "undef"
  53 $ ENDIF
  54 $! Some constant defaults.
  55 $
  56 $ hwname = f$getsyi("HW_NAME")
  57 $ myname = myhostname
  58 $ if "''myname'" .eqs. "" THEN myname = f$trnlnm("SYS$NODE")
  59 $!
  60 $! ##ADD NEW CONSTANTS HERE##
  61 $ perl_d_getcwd = "undef"
  62 $ perl_d_nv_preserves_uv = "define"
  63 $ perl_d_fs_data_s = "undef"
  64 $ perl_d_getmnt = "undef"
  65 $ perl_d_sqrtl = "define"
  66 $ perl_d_statfs_f_flags = "undef"
  67 $ perl_d_statfs_s = "undef"
  68 $ perl_d_ustat = "undef"
  69 $ perl_i_sysstatfs = "undef"
  70 $ perl_i_sysvfs = "undef"
  71 $ perl_i_ustat = "undef"
  72 $ perl_d_llseek="undef"
  73 $ perl_d_iconv="undef"
  74 $ perl_d_madvise="undef"
  75 $ perl_selectminbits=32
  76 $ perl_d_msync="undef"
  77 $ perl_d_mprotect="undef"
  78 $ perl_d_munmap="undef"
  79 $ perl_crosscompile="undef"
  80 $ perl_multiarch="undef"
  81 $ perl_d_mmap="undef"
  82 $ perl_i_sysmman="undef"
  83 $ perl_d_telldirproto="define"
  84 $ perl_i_sysmount="undef"
  85 $ perl_d_bincompat="undef"
  86 $ perl_d_endspent="undef
  87 $ perl_d_getspent="undef
  88 $ perl_d_getspnam="undef
  89 $ perl_d_setspent="undef
  90 $ perl_d_fstatfs="undef"
  91 $ perl_i_machcthreads="undef"
  92 $ perl_i_pthread="define"
  93 $ perl_d_fstatvfs="undef"
  94 $ perl_usesocks="undef"
  95 $ perl_d_vendorlib="undef"
  96 $ perl_vendorlibexp=""
  97 $ perl_d_statfsflags="undef"
  98 $ perl_i_sysstatvfs="undef"
  99 $ perl_i_mntent="undef"
 100 $ perl_d_getmntent="undef"
 101 $ perl_d_hasmntopt="undef"
 102 $ perl_package="''package'"
 103 $ perl_baserev = "''baserev'"
 104 $ cc_defines=""
 105 $ perl_installusrbinperl="undef"
 106 $ perl_CONFIG="true"
 107 $ perl_d_fseeko="undef"
 108 $ perl_d_ftello="undef"
 109 $ perl_d_readv="undef"
 110 $ perl_d_writev="undef"
 111 $ perl_i_machcthr="undef"
 112 $ perl_i_netdb="undef"
 113 $ perl_d_gnulibc="undef"
 114 $ perl_cf_by="unknown"
 115 $ perl_ccdlflags=""
 116 $ perl_cccdlflags=""
 117 $ perl_mab=""
 118 $ perl_drand01 = "drand48()"
 119 $ perl_randseedtype = "long int"
 120 $ perl_seedfunc = "srand48"
 121 $ perl_d_msg_ctrunc = "undef"
 122 $ perl_d_msg_dontroute = "undef"
 123 $ perl_d_msg_oob = "undef"
 124 $ perl_d_msg_peek = "undef"
 125 $ perl_d_msg_proxy = "undef"
 126 $ perl_d_scm_rights = "undef"
 127 $ perl_d_sendmsg = "undef"
 128 $ perl_d_recvmsg = "undef"
 129 $ perl_d_msghdr_s = "undef"
 130 $ perl_d_cmsghdr_s = "undef"
 131 $ IF use_64bit .eqs. "Y"
 132 $ THEN
 133 $   perl_use64bits = "define"
 134 $   perl_uselargefiles = "define"
 135 $   perl_uselongdouble = "define"
 136 $   perl_usemorebits = "define"
 137 $ ELSE
 138 $   perl_use64bits = "undef"
 139 $   perl_uselargefiles = "undef"
 140 $   perl_uselongdouble = "undef"
 141 $   perl_usemorebits = "undef"
 142 $ ENDIF
 143 $ perl_d_drand48proto = "define"
 144 $ perl_libpth="/sys$share /sys$library"
 145 $ perl_ld="Link"
 146 $ perl_lddlflags="/Share"
 147 $ perl_ranlib=""
 148 $ perl_ar=""
 149 $ perl_eunicefix=":"
 150 $ perl_hint="none"
 151 $ perl_i_arpainet="undef"
 152 $ perl_d_grpasswd="undef"
 153 $ perl_d_setgrent="undef"
 154 $ perl_d_getgrent="define"
 155 $ perl_d_endgrent="define"
 156 $ perl_d_pwpasswd="define"
 157 $ perl_d_setpwent="define"
 158 $ perl_d_getpwent="define"
 159 $ perl_d_endpwent="define"
 160 $ perl_d_phostname="undef"
 161 $ perl_d_accessx="undef"
 162 $ perl_d_eaccess="undef"
 163 $ perl_ebcdic="undef"
 164 $ perl_hintfile=""
 165 $ perl_shrplib="define"
 166 $ perl_usemymalloc=mymalloc
 167 $ perl_usevfork="true"
 168 $ perl_useposix="false"
 169 $ perl_spitshell="write sys$output "
 170 $ perl_dlsrc="dl_vms.c"
 171 $ perl_man1ext="rno"
 172 $ perl_man3ext="rno"
 173 $ perl_prefix="perl_root"
 174 $ perl_binexp="''perl_prefix':[000000]"
 175 $ perl_builddir="''perl_prefix':[000000]"
 176 $ perl_installbin="''perl_prefix':[000000]"
 177 $ perl_installscript="''perl_prefix':[utils]"
 178 $ perl_installman1dir="''perl_prefix':[man.man1]"
 179 $ perl_installman3dir="''perl_prefix':[man.man3]"
 180 $ perl_installprivlib="''perl_prefix':[lib]"
 181 $ perl_installsitelib="''perl_prefix':[lib.site_perl]"
 182 $ perl_path_sep="|"
 183 $ perl_cc=Mcc
 184 $ perl_d_sockpair="undef"
 185 $ perl_i_neterrno="define"
 186 $ perl_ldflags="/NoTrace/NoMap"
 187 $ perl_d_lchown="undef"
 188 $ perl_d_mknod="undef"
 189 $ perl_d_union_semun="undef"
 190 $ perl_d_semctl_semun="undef"
 191 $ perl_d_semctl_semid_ds="undef"
 192 $ IF (sharedperl.EQS."Y" .AND. F$GETSYI("HW_MODEL").GE.1024)
 193 $ THEN
 194 $ perl_obj_ext=".abj"
 195 $ perl_so="axe"
 196 $ perl_dlext="axe"
 197 $ perl_exe_ext=".axe"
 198 $ perl_lib_ext=".alb"
 199 $ ELSE
 200 $ perl_obj_ext=".obj"
 201 $ perl_so="exe"
 202 $ perl_dlext="exe"
 203 $ perl_exe_ext=".exe"
 204 $ perl_lib_ext=".olb"
 205 $ENDIF
 206 $ perl_dlobj="dl_vms''perl_obj_ext'"
 207 $ perl_osname="VMS"
 208 $ perl_d_archlib="define"
 209 $ perl_d_bincompat3="undef"
 210 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
 211 $ perl_cppminus=" "
 212 $ perl_d_castneg="define"
 213 $ perl_castflags="0"
 214 $ perl_d_chsize="undef"
 215 $ perl_d_const="define"
 216 $ perl_d_crypt="define"
 217 $ perl_byteorder="1234"
 218 $ perl_full_csh=" "
 219 $ perl_d_csh="undef"
 220 $ perl_d_dup2="define"
 221 $ perl_d_fchmod="undef"
 222 $ perl_d_fchown="undef"
 223 $ perl_d_fcntl="undef"
 224 $ perl_d_fgetpos="define"
 225 $ perl_d_flexfnam="define"
 226 $ perl_d_flock="undef"
 227 $ perl_d_fsetpos="define"
 228 $ perl_d_getgrps="undef"
 229 $ perl_d_setgrps="undef"
 230 $ perl_d_getprior="undef"
 231 $ perl_d_killpg="undef"
 232 $ perl_d_link="undef"
 233 $ perl_d_lstat="undef"
 234 $ perl_d_lockf="undef"
 235 $ perl_d_memcmp="define"
 236 $ perl_d_memcpy="define"
 237 $ perl_d_memmove="define"
 238 $ perl_d_memset="define"
 239 $ perl_d_mkdir="define"
 240 $ perl_d_msg="undef"
 241 $ perl_d_open3="define"
 242 $ perl_d_poll="undef"
 243 $ perl_d_readdir="define"
 244 $ perl_d_seekdir="define"
 245 $ perl_d_telldir="define"
 246 $ perl_d_rewinddir="define"
 247 $ perl_d_rename="define"
 248 $ perl_d_rmdir="define"
 249 $ perl_d_sem="undef"
 250 $ perl_d_setegid="undef"
 251 $ perl_d_seteuid="undef"
 252 $ perl_d_setprior="undef"
 253 $ perl_d_setregid="undef"
 254 $ perl_d_setresgid="undef"
 255 $ perl_d_setreuid="undef"
 256 $ perl_d_setresuid="undef"
 257 $ perl_d_setrgid="undef"
 258 $ perl_d_setruid="undef"
 259 $ perl_d_setsid="undef"
 260 $ perl_d_shm="undef"
 261 $ perl_d_shmatprototype="undef"
 262 $ perl_d_statblks="undef"
 263 $ perl_stdio_ptr="((*fp)->_ptr)"
 264 $ perl_stdio_cnt="((*fp)->_cnt)"
 265 $ perl_stdio_base="((*fp)->_base)"
 266 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
 267 $ perl_d_strctcpy="define"
 268 $ perl_d_strerror="define"
 269 $ perl_d_syserrlst="undef"
 270 $ perl_d_strerrm="strerror((e),vaxc$errno)"
 271 $ perl_d_symlink="undef"
 272 $ perl_d_syscall="undef"
 273 $ perl_d_system="define"
 274 $ perl_timetype="time_t"
 275 $ perl_d_vfork="define"
 276 $ perl_signal_t="void"
 277 $ perl_d_volatile="define"
 278 $ perl_d_vprintf="define"
 279 $ perl_d_charvspr="undef"
 280 $ perl_d_waitpid="define"
 281 $ perl_i_dirent="undef"
 282 $ perl_d_dirnamlen="define"
 283 $ perl_direntrytype="struct dirent"
 284 $ perl_i_fcntl="undef"
 285 $ perl_i_grp="undef"
 286 $ perl_i_limits="define"
 287 $ perl_i_memory="undef"
 288 $ perl_i_ndbm="undef"
 289 $ perl_i_stdarg="define"
 290 $ perl_i_pwd="undef"
 291 $ perl_d_pwquota="undef"
 292 $ perl_d_pwage="undef"
 293 $ perl_d_pwchange="undef"
 294 $ perl_d_pwclass="undef"
 295 $ perl_d_pwexpire="undef"
 296 $ perl_d_pwcomment="define"
 297 $ perl_i_stddef="define"
 298 $ perl_i_stdlib="define"
 299 $ perl_i_string="define"
 300 $ perl_i_sysdir="undef"
 301 $ perl_i_sysfile="undef"
 302 $ perl_i_sysioctl="undef"
 303 $ perl_i_sysndir="undef"
 304 $ perl_i_sysresrc="undef"
 305 $ perl_i_sysselct="undef"
 306 $ perl_i_dbm="undef"
 307 $ perl_i_rpcsvcdbm="undef"
 308 $ perl_i_sfio="undef"
 309 $ perl_i_sysstat="define"
 310 $ perl_i_systimes="undef"
 311 $ perl_i_systypes="define"
 312 $ perl_i_sysun="undef"
 313 $ perl_i_syswait="undef"
 314 $ perl_i_termio="undef"
 315 $ perl_i_sgtty="undef"
 316 $ perl_i_termios="undef"
 317 $ perl_i_time="define"
 318 $ perl_i_systime="undef"
 319 $ perl_i_systimek="undef"
 320 $! perl_i_unistd="undef"
 321 $ perl_i_utime="undef"
 322 $ perl_i_varargs="undef"
 323 $ perl_i_vfork="undef"
 324 $ perl_prototype="define"
 325 $ perl_randbits="31"
 326 $ perl_stdchar="char"
 327 $ perl_d_unlink_all_versions="undef"
 328 $ perl_full_sed="_NLA0:"
 329 $ perl_bin="/''perl_prefix'/000000"
 330 $ perl_binexp="''perl_prefix':[000000]"
 331 $ perl_d_alarm="define"
 332 $ perl_d_casti32="define"
 333 $ perl_d_chown="define"
 334 $ perl_d_chroot="undef"
 335 $ perl_d_cuserid="define"
 336 $ perl_d_dbl_dig="define"
 337 $ perl_d_ldbl_dig="define"
 338 $ perl_d_difftime="define"
 339 $ perl_d_fork="undef"
 340 $ perl_d_getlogin="define"
 341 $ perl_d_getppid="undef"
 342 $ perl_d_nice="define"
 343 $ perl_d_pause="define"
 344 $ perl_d_pipe="define"
 345 $ perl_d_readlink="undef"
 346 $ perl_d_setlinebuf="undef"
 347 $ perl_d_strchr="define"
 348 $ perl_d_strtod="define"
 349 $ perl_d_strtol="define"
 350 $ perl_d_strtoul="define"
 351 $ perl_d_tcgetpgrp="undef"
 352 $ perl_d_tcsetpgrp="undef"
 353 $ perl_d_times="define"
 354 $ perl_d_tzname="undef"
 355 $ perl_d_umask="define"
 356 $ perl_fpostype="fpos_t"
 357 $ perl_i_dlfcn="undef"
 358 $ perl_i_float="define"
 359 $ perl_i_math="define"
 360 $ perl_lseektype="int"
 361 $ perl_i_values="undef"
 362 $ perl_malloctype="void *"
 363 $ perl_freetype="void"
 364 $ if "''mymalloc'".eqs."Y"
 365 $ THEN
 366 $ perl_d_mymalloc="define"
 367 $ ELSE
 368 $ perl_d_mymalloc="undef"
 369 $ENDIF
 370 $ perl_sh="MCR"
 371 $ perl_modetype="unsigned int"
 372 $ perl_ssizetype="int"
 373 $ perl_o_nonblock=" "
 374 $ perl_eagain=" "
 375 $ perl_rd_nodata=" "
 376 $ perl_d_eofnblk="undef"
 377 $ perl_d_oldarchlib="define"
 378 $ perl_privlibexp="''perl_prefix':[lib]"
 379 $ perl_privlib="''perl_prefix':[lib]"
 380 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
 381 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
 382 $ perl_sizetype="size_t"
 383 $ perl_i_sysparam="undef"
 384 $ perl_d_void_closedir="define"
 385 $ perl_d_dlerror="undef"
 386 $ perl_d_dlsymun="undef"
 387 $ perl_d_suidsafe="undef"
 388 $ perl_d_dosuid="undef"
 389 $ perl_d_inetaton="undef"
 390 $ perl_d_isascii="define"
 391 $ perl_d_mkfifo="undef"
 392 $ perl_d_safebcpy="undef"
 393 $ perl_d_safemcpy="define"
 394 $ perl_d_sanemcmp="define"
 395 $ perl_d_setpgrp="undef"
 396 $ perl_d_bsdsetpgrp="undef"
 397 $ perl_d_bsdpgrp="undef"
 398 $ perl_d_setpgid="undef"
 399 $ perl_d_setpgrp2="undef"
 400 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
 401 $ perl_d_getpgid="undef"
 402 $ perl_d_getpgrp="undef"
 403 $ perl_d_bsdgetpgrp="undef"
 404 $ perl_d_getpgrp2="undef"
 405 $ perl_d_sfio="undef"
 406 $ perl_usedl="define"
 407 $ perl_startperl="""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8'  !\n$ exit++ + ++$status != 0 and $exit = $status = undef;"""
 408 $ perl_db_hashtype=" "
 409 $ perl_db_prefixtype=" "
 410 $ perl_useperlio="undef"
 411 $ perl_defvoidused="15"
 412 $ perl_voidflags="15"
 413 $ perl_d_eunice="undef"
 414 $ perl_d_pwgecos="define"
 415 $ IF ("''Use_Threads'".eqs."T").and.("''VMS_VER'".LES."6.2")
 416 $ THEN
 417 $ 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"
 418 $ ELSE
 419 $ perl_libs=" "
 420 $ ENDIF
 421 $ IF ("''Using_Dec_C'".eqs."Yes")
 422 $ THEN
 423 $ perl_libc="(DECCRTL)"
 424 $ ELSE
 425 $ perl_libc=" "
 426 $ ENDIF
 427 $ perl_PATCHLEVEL="''patchlevel'"
 428 $ perl_SUBVERSION="''subversion'"
 429 $ perl_pager="most"
 430 $!
 431 $! Are we 64 bit?
 432 $!
 433 $ if (use_64bit .eqs. "Y")
 434 $ THEN
 435 $   perl_d_PRIfldbl = "define"
 436 $   perl_d_PRIgldbl = "define"
 437 $   perl_d_PRId64 = "define"
 438 $   perl_d_PRIu64 = "define"
 439 $   perl_d_PRIo64 = "define"
 440 $   perl_d_PRIx64 = "define"
 441 $   perl_sPRIfldbl = """Lf"""
 442 $   perl_sPRIgldbl = """Lg"""
 443 $   perl_sPRId64 = """Ld"""
 444 $   perl_sPRIu64 = """Lu"""
 445 $   perl_sPRIo64 = """Lo"""
 446 $   perl_sPRIx64 = """Lx"""
 447 $   perl_d_quad = "define"
 448 $   perl_quadtype = "long long"
 449 $   perl_uquadtype = "unsigned long long"
 450 $ ELSE
 451 $   perl_d_PRIfldbl = "undef"
 452 $   perl_d_PRIgldbl = "undef"
 453 $   perl_d_PRId64 = "undef"
 454 $   perl_d_PRIu64 = "undef"
 455 $   perl_d_PRIo64 = "undef"
 456 $   perl_d_PRIx64 = "undef"
 457 $   perl_sPRIfldbl = ""
 458 $   perl_sPRIgldbl = ""
 459 $   perl_sPRId64 = ""
 460 $   perl_sPRIu64 = ""
 461 $   perl_sPRIo64 = ""
 462 $   perl_sPRIx64 = ""
 463 $   perl_d_quad = "undef"
 464 $ ENDIF
 465 $!
 466 $! Now some that we build up
 467 $!
 468 $ LocalTime = f$time()
 469 $ perl_cf_time= f$extract(0, 3, f$cvtime(LocalTime,, "WEEKDAY")) + " " + -
 470                 f$edit(f$cvtime(LocalTime, "ABSOLUTE", "MONTH"), "LOWERCASE") + -
 471                 " " + f$cvtime(LocalTime,, "DAY") + " " + f$cvtime(LocalTime,, "TIME") + -
 472                 " " + f$cvtime(LocalTime,, "YEAR")
 473 $ if f$getsyi("HW_MODEL").ge.1024
 474 $ THEN
 475 $ perl_arch="VMS_AXP"
 476 $ perl_archname="VMS_AXP"
 477 $ perl_alignbytes="8"
 478 $ ELSE
 479 $ perl_arch="VMS_VAX"
 480 $ perl_archname="VMS_VAX"
 481 $ perl_alignbytes="8"
 482 $ ENDIF
 483 $ if ("''Use_Threads'".eqs."T")
 484 $ THEN
 485 $ perl_arch = "''perl_arch'-thread"
 486 $ perl_archname = "''perl_archname'-thread"
 487 $ perl_d_old_pthread_create_joinable = "undef"
 488 $ perl_old_pthread_create_joinable = " "
 489 $ perl_use5005threads = "define"
 490 $ ELSE
 491 $ perl_d_old_pthread_create_joinable = "undef"
 492 $ perl_old_pthread_create_joinable = " "
 493 $ perl_use5005threads = "undef"
 494 $ ENDIF
 495 $ perl_useithreads = "undef"
 496 $ perl_osvers=f$edit(osvers, "TRIM")
 497 $ if (perl_subversion + 0).eq.0
 498 $ THEN
 499 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL
 500 $ ELSE
 501 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion
 502 $ ENDIF
 503 $!
 504 $! Some that we need to invoke the compiler for
 505 $ OS := "open/write SOURCECHAN []temp.c"
 506 $ WS := "write SOURCECHAN"
 507 $ CS := "close SOURCECHAN"
 508 $ DS := "delete/nolog []temp.*;*"
 509 $ Needs_Opt := "No"
 510 $ if ("''using_vax_c'".eqs."Yes").or.("''using_gnu_c'".eqs."Yes")
 511 $ THEN
 512 $   open/write OPTCHAN []temp.opt
 513 $   IF ("''using_gnu_c'".eqs."Yes")
 514 $   THEN
 515 $     write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
 516 $   endif
 517 $   write OPTCHAN "Sys$Share:VAXCRTL/Share"
 518 $   Close OPTCHAN
 519 $   Needs_Opt := "Yes"
 520 $ ENDIF
 521 $!
 522 $! Check for __STDC__
 523 $!
 524 $ OS
 525 $ WS "#ifdef __DECC
 526 $ WS "#include <stdlib.h>
 527 $ WS "#endif
 528 $ WS "#include <stdio.h>
 529 $ WS "int main()
 530 $ WS "{"
 531 $ WS "#ifdef __STDC__
 532 $ WS "printf(""42\n"");
 533 $ WS "#else
 534 $ WS "printf(""1\n"");
 535 $ WS "#endif
 536 $ WS "exit(0);
 537 $ WS "}"
 538 $ CS
 539 $   DEFINE SYS$ERROR _NLA0:
 540 $   DEFINE SYS$OUTPUT _NLA0:
 541 $   ON ERROR THEN CONTINUE
 542 $   ON WARNING THEN CONTINUE
 543 $   'Checkcc' temp.c
 544 $   If (Needs_Opt.eqs."Yes")
 545 $   THEN
 546 $     link temp.obj,temp.opt/opt
 547 $   else
 548 $     link temp.obj
 549 $   endif
 550 $   DEASSIGN SYS$OUTPUT
 551 $   DEASSIGN SYS$ERROR
 552 $   OPEN/WRITE TEMPOUT [-.uu]tempout.lis
 553 $   DEFINE SYS$ERROR TEMPOUT
 554 $   DEFINE SYS$OUTPUT TEMPOUT
 555 $   mcr []temp
 556 $   CLOSE TEMPOUT
 557 $   DEASSIGN SYS$OUTPUT
 558 $   DEASSIGN SYS$ERROR
 559 $   OPEN/READ TEMPOUT [-.uu]tempout.lis
 560 $   READ TEMPOUT line
 561 $   CLOSE TEMPOUT
 562 $   DELETE/NOLOG [-.uu]tempout.lis;
 563 $
 564 $ perl_cpp_stuff=line
 565 $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
 566 $!
 567 $! Check for double size
 568 $!
 569 $ OS
 570 $ WS "#ifdef __DECC
 571 $ WS "#include <stdlib.h>
 572 $ WS "#endif
 573 $ WS "#include <stdio.h>
 574 $ WS "int main()
 575 $ WS "{"
 576 $ WS "int foo;
 577 $ WS "foo = sizeof(double);
 578 $ WS "printf(""%d\n"", foo);
 579 $ WS "exit(0);
 580 $ WS "}"
 581 $ CS
 582 $   DEFINE SYS$ERROR _NLA0:
 583 $   DEFINE SYS$OUTPUT _NLA0:
 584 $   ON ERROR THEN CONTINUE
 585 $   ON WARNING THEN CONTINUE
 586 $   'Checkcc' temp.c
 587 $   If (Needs_Opt.eqs."Yes")
 588 $   THEN
 589 $     link temp.obj,temp.opt/opt
 590 $   else
 591 $     link temp.obj
 592 $   endif
 593 $   OPEN/WRITE TEMPOUT [-.uu]tempout.lis
 594 $   DEASSIGN SYS$OUTPUT
 595 $   DEASSIGN SYS$ERROR
 596 $   DEFINE SYS$ERROR TEMPOUT
 597 $   DEFINE SYS$OUTPUT TEMPOUT
 598 $   mcr []temp
 599 $   CLOSE TEMPOUT
 600 $   DEASSIGN SYS$OUTPUT
 601 $   DEASSIGN SYS$ERROR
 602 $   OPEN/READ TEMPOUT [-.uu]tempout.lis
 603 $   READ TEMPOUT line
 604 $   CLOSE TEMPOUT
 605 $ DELETE/NOLOG [-.uu]tempout.lis;
 606 $
 607 $ perl_doublesize=line
 608 $ WRITE_RESULT "doublesize is ''perl_doublesize'"
 609 $!
 610 $! Check for long double size
 611 $!
 612 $ OS
 613 $ WS "#ifdef __DECC
 614 $ WS "#include <stdlib.h>
 615 $ WS "#endif
 616 $ WS "#include <stdio.h>
 617 $ WS "int main()
 618 $ WS "{"
 619 $ WS "printf(""%d\n"", sizeof(long double));
 620 $ WS "exit(0);
 621 $ WS "}"
 622 $ CS
 623 $   DEFINE SYS$ERROR _NLA0:
 624 $   DEFINE SYS$OUTPUT _NLA0:
 625 $   ON ERROR THEN CONTINUE
 626 $   ON WARNING THEN CONTINUE
 627 $   'Checkcc' temp.c
 628 $   teststatus = f$extract(9,1,$status)
 629 $   if (teststatus.nes."1")
 630 $   THEN
 631 $     perl_longdblsize="0"
 632 $     perl_d_longdbl="undef"
 633 $   ELSE
 634 $     ON ERROR THEN CONTINUE
 635 $     ON WARNING THEN CONTINUE
 636 $     If (Needs_Opt.eqs."Yes")
 637 $     THEN
 638 $     link temp.obj,temp.opt/opt
 639 $     else
 640 $       link temp.obj
 641 $     endif
 642 $     teststatus = f$extract(9,1,$status)
 643 $     DEASSIGN SYS$OUTPUT
 644 $     DEASSIGN SYS$ERROR
 645 $     if (teststatus.nes."1")
 646 $     THEN
 647 $       perl_longdblsize="0"
 648 $       perl_d_longdbl="undef"
 649 $     ELSE
 650 $       OPEN/WRITE TEMPOUT [-.uu]tempout.lis
 651 $       DEFINE SYS$ERROR TEMPOUT
 652 $       DEFINE SYS$OUTPUT TEMPOUT
 653 $       mcr []temp
 654 $       CLOSE TEMPOUT
 655 $       DEASSIGN SYS$OUTPUT
 656 $       DEASSIGN SYS$ERROR
 657 $       OPEN/READ TEMPOUT [-.uu]tempout.lis
 658 $       READ TEMPOUT line
 659 $       CLOSE TEMPOUT
 660 $       DELETE/NOLOG [-.uu]tempout.lis;
 661 $
 662 $       perl_longdblsize=line
 663 $       perl_d_longdbl="define"
 664 $     ENDIF
 665 $   ENDIF
 666 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
 667 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
 668 $!
 669 $! Check for long long existance and size
 670 $!
 671 $ OS
 672 $ WS "#ifdef __DECC
 673 $ WS "#include <stdlib.h>
 674 $ WS "#endif
 675 $ WS "#include <stdio.h>
 676 $ WS "int main()
 677 $ WS "{"
 678 $ WS "printf(""%d\n"", sizeof(long long));
 679 $ WS "exit(0);
 680 $ WS "}"
 681 $ CS
 682 $   DEFINE SYS$ERROR _NLA0:
 683 $   DEFINE SYS$OUTPUT _NLA0:
 684 $   on error then continue
 685 $   on warning then continue
 686 $   'Checkcc' temp.c
 687 $   If (Needs_Opt.eqs."Yes")
 688 $   THEN
 689 $     link temp.obj,temp.opt/opt
 690 $   else
 691 $     link temp.obj
 692 $   endif
 693 $   teststatus = f$extract(9,1,$status)
 694 $   DEASSIGN SYS$OUTPUT
 695 $   DEASSIGN SYS$ERROR
 696 $   if (teststatus.nes."1")
 697 $   THEN
 698 $     perl_longlongsize="0"
 699 $     perl_d_longlong="undef"
 700 $   ELSE
 701 $     OPEN/WRITE TEMPOUT [-.uu]tempout.lis
 702 $     DEFINE SYS$ERROR TEMPOUT
 703 $     DEFINE SYS$OUTPUT TEMPOUT
 704 $     mcr []temp
 705 $     CLOSE TEMPOUT
 706 $     DEASSIGN SYS$OUTPUT
 707 $     DEASSIGN SYS$ERROR
 708 $     OPEN/READ TEMPOUT [-.uu]tempout.lis
 709 $     READ TEMPOUT line
 710 $     CLOSE TEMPOUT
 711 $     DELETE/NOLOG [-.uu]tempout.lis;
 712 $     perl_longlongsize=line
 713 $     perl_d_longlong="define"
 714 $   ENDIF
 715 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
 716 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
 717 $!
 718 $! Check the prototype for getgid
 719 $!
 720 $ OS
 721 $ WS "#ifdef __DECC
 722 $ WS "#include <stdlib.h>
 723 $ WS "#endif
 724 $ WS "#include <stdio.h>
 725 $ WS "#include <types.h>
 726 $ WS "#include <unistd.h>
 727 $ WS "int main()
 728 $ WS "{"
 729 $ WS "gid_t foo;
 730 $ WS "exit(0);
 731 $ WS "}"
 732 $ CS
 733 $   DEFINE SYS$ERROR _NLA0:
 734 $   DEFINE SYS$OUTPUT _NLA0:
 735 $   on error then continue
 736 $   on warning then continue
 737 $   'Checkcc' temp.c
 738 $   teststatus = f$extract(9,1,$status)
 739 $   DEASSIGN SYS$OUTPUT
 740 $   DEASSIGN SYS$ERROR
 741 $   if (teststatus.nes."1")
 742 $   THEN
 743 $!   Okay, gid_t failed. Must be unsigned int
 744 $     perl_gidtype = "unsigned int"
 745 $   ELSE
 746 $     perl_gidtype = "gid_t"
 747 $   ENDIF
 748 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
 749 $!
 750 $! Check to see if we've got dev_t
 751 $!
 752 $ OS
 753 $ WS "#ifdef __DECC
 754 $ WS "#include <stdlib.h>
 755 $ WS "#endif
 756 $ WS "#include <stdio.h>
 757 $ WS "#include <types.h>
 758 $ WS "#include <unistd.h>
 759 $ WS "int main()
 760 $ WS "{"
 761 $ WS "dev_t foo;
 762 $ WS "exit(0);
 763 $ WS "}"
 764 $ CS
 765 $   DEFINE SYS$ERROR _NLA0:
 766 $   DEFINE SYS$OUTPUT _NLA0:
 767 $   on error then continue
 768 $   on warning then continue
 769 $   'Checkcc' temp.c
 770 $   teststatus = f$extract(9,1,$status)
 771 $   DEASSIGN SYS$OUTPUT
 772 $   DEASSIGN SYS$ERROR
 773 $   if (teststatus.nes."1")
 774 $   THEN
 775 $!   Okay, dev_t failed. Must be unsigned int
 776 $     perl_devtype = "unsigned int"
 777 $   ELSE
 778 $     perl_devtype = "dev_t"
 779 $   ENDIF
 780 $ WRITE_RESULT "Dev_t is ''perl_devtype'"
 781 $!
 782 $! Check to see if we've got unistd.h (which we ought to, but you never know)
 783 $!
 784 $ OS
 785 $ WS "#ifdef __DECC
 786 $ WS "#include <stdlib.h>
 787 $ WS "#endif
 788 $ WS "#include <unistd.h>
 789 $ WS "int main()
 790 $ WS "{"
 791 $ WS "exit(0);
 792 $ WS "}"
 793 $ CS
 794 $   DEFINE SYS$ERROR _NLA0:
 795 $   DEFINE SYS$OUTPUT _NLA0:
 796 $   on error then continue
 797 $   on warning then continue
 798 $   'Checkcc' temp.c
 799 $   teststatus = f$extract(9,1,$status)
 800 $   DEASSIGN SYS$OUTPUT
 801 $   DEASSIGN SYS$ERROR
 802 $   if (teststatus.nes."1")
 803 $   THEN
 804 $!   Okay, failed. Must not have it
 805 $     perl_i_unistd = "undef"
 806 $   ELSE
 807 $     perl_i_unistd = "define"
 808
 809 $   ENDIF
 810 $ WRITE_RESULT "i_unistd is ''perl_i_unistd'"
 811 $!
 812 $! Check to see if we've got shadow.h (probably not, but...)
 813 $!
 814 $ OS
 815 $ WS "#ifdef __DECC
 816 $ WS "#include <stdlib.h>
 817 $ WS "#endif
 818 $ WS "#include <shadow.h>
 819 $ WS "int main()
 820 $ WS "{"
 821 $ WS "exit(0);
 822 $ WS "}"
 823 $ CS
 824 $   DEFINE SYS$ERROR _NLA0:
 825 $   DEFINE SYS$OUTPUT _NLA0:
 826 $   on error then continue
 827 $   on warning then continue
 828 $   'Checkcc' temp.c
 829 $   teststatus = f$extract(9,1,$status)
 830 $   DEASSIGN SYS$OUTPUT
 831 $   DEASSIGN SYS$ERROR
 832 $   if (teststatus.nes."1")
 833 $   THEN
 834 $!   Okay, failed. Must not have it
 835 $     perl_i_shadow = "undef"
 836 $   ELSE
 837 $     perl_i_shadow = "define"
 838
 839 $   ENDIF
 840 $ WRITE_RESULT "i_shadow is ''perl_i_shadow'"
 841 $!
 842 $! Check to see if we've got socks.h (probably not, but...)
 843 $!
 844 $ OS
 845 $ WS "#ifdef __DECC
 846 $ WS "#include <stdlib.h>
 847 $ WS "#endif
 848 $ WS "#include <socks.h>
 849 $ WS "int main()
 850 $ WS "{"
 851 $ WS "exit(0);
 852 $ WS "}"
 853 $ CS
 854 $   DEFINE SYS$ERROR _NLA0:
 855 $   DEFINE SYS$OUTPUT _NLA0:
 856 $   on error then continue
 857 $   on warning then continue
 858 $   'Checkcc' temp.c
 859 $   teststatus = f$extract(9,1,$status)
 860 $   DEASSIGN SYS$OUTPUT
 861 $   DEASSIGN SYS$ERROR
 862 $   if (teststatus.nes."1")
 863 $   THEN
 864 $!   Okay, failed. Must not have it
 865 $     perl_i_socks = "undef"
 866 $   ELSE
 867 $     perl_i_socks = "define"
 868
 869 $   ENDIF
 870 $ WRITE_RESULT "i_socks is ''perl_i_socks'"
 871 $!
 872 $! Check the prototype for select
 873 $!
 874 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
 875 $ THEN
 876 $ OS
 877 $ WS "#ifdef __DECC
 878 $ WS "#include <stdlib.h>
 879 $ WS "#endif
 880 $ WS "#include <stdio.h>
 881 $ WS "#include <types.h>
 882 $ WS "#include <unistd.h>
 883 $ if ("''Has_Socketshr'".eqs."T")
 884 $ THEN
 885 $  WS "#include <socketshr.h>"
 886 $ else
 887 $  WS "#include <time.h>
 888 $  WS "#include <socket.h>
 889 $ endif
 890 $ WS "int main()
 891 $ WS "{"
 892 $ WS "fd_set *foo;
 893 $ WS "int bar;
 894 $ WS "foo = NULL;
 895 $ WS "bar = select(2, foo, foo, foo, NULL);
 896 $ WS "exit(0);
 897 $ WS "}"
 898 $ CS
 899 $   DEFINE SYS$ERROR _NLA0:
 900 $   DEFINE SYS$OUTPUT _NLA0:
 901 $   on error then continue
 902 $   on warning then continue
 903 $   'Checkcc' temp.c
 904 $   teststatus = f$extract(9,1,$status)
 905 $   DEASSIGN SYS$OUTPUT
 906 $   DEASSIGN SYS$ERROR
 907 $   if (teststatus.nes."1")
 908 $   THEN
 909 $!   Okay, fd_set failed. Must be an int
 910 $     perl_selecttype = "int *"
 911 $   ELSE
 912 $     perl_selecttype="fd_set *"
 913 $   ENDIF
 914 $ ELSE
 915 $   ! No sockets, so stick in an int *
 916 $   perl_selecttype = "int *"
 917 $ ENDIF
 918 $ WRITE_RESULT "selectype is ''perl_selecttype'"
 919 $!
 920 $! Check to see if fd_set exists
 921 $!
 922 $ OS
 923 $ WS "#ifdef __DECC
 924 $ WS "#include <stdlib.h>
 925 $ WS "#endif
 926 $ WS "#include <stdio.h>
 927 $ WS "#include <types.h>
 928 $ WS "#include <unistd.h>
 929 $ if ("''Has_Socketshr'".eqs."T")
 930 $ THEN
 931 $  WS "#include <socketshr.h>"
 932 $ ENDIF
 933 $ IF ("''Has_Dec_C_Sockets'".eqs."T")
 934 $ THEN
 935 $  WS "#include <time.h>
 936 $  WS "#include <socket.h>
 937 $ endif
 938 $ WS "int main()
 939 $ WS "{"
 940 $ WS "fd_set *foo;
 941 $ WS "int bar;
 942 $ WS "exit(0);
 943 $ WS "}"
 944 $ CS
 945 $ DEFINE SYS$ERROR _NLA0:
 946 $ DEFINE SYS$OUTPUT _NLA0:
 947 $ on error then continue
 948 $ on warning then continue
 949 $ 'Checkcc' temp.c
 950 $ teststatus = f$extract(9,1,$status)
 951 $ DEASSIGN SYS$OUTPUT
 952 $ DEASSIGN SYS$ERROR
 953 $ if (teststatus.nes."1")
 954 $ THEN
 955 $!  Okay, fd_set failed. Must not exist
 956 $   perl_d_fd_set = "undef"
 957 $ ELSE
 958 $   perl_d_fd_set="define"
 959 $ ENDIF
 960 $ WRITE_RESULT "d_fd_set is ''perl_d_fd_set'"
 961 $!
 962 $! Check for inttypes.h
 963 $!
 964 $ OS
 965 $ WS "#ifdef __DECC
 966 $ WS "#include <stdlib.h>
 967 $ WS "#endif
 968 $ WS "#include <stdio.h>
 969 $ WS "#include <unistd.h>
 970 $ WS "#include <inttypes.h>
 971 $ WS "int main()
 972 $ WS "{"
 973 $ WS "exit(0);
 974 $ WS "}"
 975 $ CS
 976 $   DEFINE SYS$ERROR _NLA0:
 977 $   DEFINE SYS$OUTPUT _NLA0:
 978 $   on error then continue
 979 $   on warning then continue
 980 $   'Checkcc' temp.c
 981 $   savedstatus = $status
 982 $   teststatus = f$extract(9,1,savedstatus)
 983 $   if (teststatus.nes."1")
 984 $   THEN
 985 $     perl_i_inttypes="undef"
 986 $     DEASSIGN SYS$OUTPUT
 987 $     DEASSIGN SYS$ERROR
 988 $   ELSE
 989 $     If (Needs_Opt.eqs."Yes")
 990 $     THEN
 991 $       link temp.obj,temp.opt/opt
 992 $     else
 993 $       link temp.obj
 994 $     endif
 995 $     savedstatus = $status
 996 $     teststatus = f$extract(9,1,savedstatus)
 997 $     DEASSIGN SYS$OUTPUT
 998 $     DEASSIGN SYS$ERROR
 999 $     if (teststatus.nes."1")
1000 $     THEN
1001 $       perl_i_inttypes="undef"
1002 $     ELSE
1003 $       perl_i_inttypes="define"
1004 $     ENDIF
1005 $   ENDIF
1006 $ WRITE_RESULT "i_inttypes is ''perl_i_inttypes'"
1007 $!
1008 $! Check to see if int64_t exists
1009 $!
1010 $ OS
1011 $ WS "#ifdef __DECC
1012 $ WS "#include <stdlib.h>
1013 $ WS "#endif
1014 $ WS "#include <stdio.h>
1015 $ WS "#include <types.h>
1016 $ WS "#''perl_i_inttypes IIH
1017 $ WS "#ifdef IIH
1018 $ WS "#include <inttypes.h>
1019 $ WS "#endif
1020 $ WS "#include <unistd.h>
1021 $ WS "int main()
1022 $ WS "{"
1023 $ WS "int64_t bar;
1024 $ WS "exit(0);
1025 $ WS "}"
1026 $ CS
1027 $ DEFINE SYS$ERROR _NLA0:
1028 $ DEFINE SYS$OUTPUT _NLA0:
1029 $ on error then continue
1030 $ on warning then continue
1031 $ 'Checkcc' temp.c
1032 $ teststatus = f$extract(9,1,$status)
1033 $ DEASSIGN SYS$OUTPUT
1034 $ DEASSIGN SYS$ERROR
1035 $ if (teststatus.nes."1")
1036 $ THEN
1037 $!  Okay, int64_t failed. Must not exist
1038 $   perl_d_int64_t = "undef"
1039 $ ELSE
1040 $   perl_d_int64_t="define"
1041 $ ENDIF
1042 $ WRITE_RESULT "d_int64_t is ''perl_d_int64_t'"
1043 $!
1044 $! Check to see if off64_t exists
1045 $!
1046 $ OS
1047 $ WS "#ifdef __DECC
1048 $ WS "#include <stdlib.h>
1049 $ WS "#endif
1050 $ WS "#include <stdio.h>
1051 $ WS "#include <types.h>
1052 $ WS "#''perl_i_inttypes IIH
1053 $ WS "#ifdef IIH
1054 $ WS "#include <inttypes.h>
1055 $ WS "#endif
1056 $ WS "#include <unistd.h>
1057 $ WS "int main()
1058 $ WS "{"
1059 $ WS "off64_t bar;
1060 $ WS "exit(0);
1061 $ WS "}"
1062 $ CS
1063 $ DEFINE SYS$ERROR _NLA0:
1064 $ DEFINE SYS$OUTPUT _NLA0:
1065 $ on error then continue
1066 $ on warning then continue
1067 $ 'Checkcc' temp.c
1068 $ teststatus = f$extract(9,1,$status)
1069 $ DEASSIGN SYS$OUTPUT
1070 $ DEASSIGN SYS$ERROR
1071 $ if (teststatus.nes."1")
1072 $ THEN
1073 $!  Okay, off64_t failed. Must not exist
1074 $   perl_d_off64_t = "undef"
1075 $ ELSE
1076 $   perl_d_off64_t="define"
1077 $ ENDIF
1078 $ WRITE_RESULT "d_off64_t is ''perl_d_off64_t'"
1079 $!
1080 $! Check to see if fpos64_t exists
1081 $!
1082 $ OS
1083 $ WS "#ifdef __DECC
1084 $ WS "#include <stdlib.h>
1085 $ WS "#endif
1086 $ WS "#include <stdio.h>
1087 $ WS "#include <types.h>
1088 $ WS "#''perl_i_inttypes IIH
1089 $ WS "#ifdef IIH
1090 $ WS "#include <inttypes.h>
1091 $ WS "#endif
1092 $ WS "#include <unistd.h>
1093 $ WS "int main()
1094 $ WS "{"
1095 $ WS "fpos64_t bar;
1096 $ WS "exit(0);
1097 $ WS "}"
1098 $ CS
1099 $ DEFINE SYS$ERROR _NLA0:
1100 $ DEFINE SYS$OUTPUT _NLA0:
1101 $ on error then continue
1102 $ on warning then continue
1103 $ 'Checkcc' temp.c
1104 $ teststatus = f$extract(9,1,$status)
1105 $ DEASSIGN SYS$OUTPUT
1106 $ DEASSIGN SYS$ERROR
1107 $ if (teststatus.nes."1")
1108 $ THEN
1109 $!  Okay, fpos64_t failed. Must not exist
1110 $   perl_d_fpos64_t = "undef"
1111 $ ELSE
1112 $   perl_d_fpos64_t="define"
1113 $ ENDIF
1114 $ WRITE_RESULT "d_fpos64_t is ''perl_d_fpos64_t'"
1115 $!
1116 $! Check to see if gethostname exists
1117 $!
1118 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1119 $ THEN
1120 $ OS
1121 $ WS "#ifdef __DECC
1122 $ WS "#include <stdlib.h>
1123 $ WS "#endif
1124 $ WS "#include <stdio.h>
1125 $ WS "#include <types.h>
1126 $ WS "#include <unistd.h>
1127 $ if ("''Has_Socketshr'".eqs."T")
1128 $ THEN
1129 $  WS "#include <socketshr.h>"
1130 $ else
1131 $  WS "#include <time.h>
1132 $  WS "#include <socket.h>
1133 $ endif
1134 $ WS "int main()
1135 $ WS "{"
1136 $ WS "char name[100];
1137 $ WS "int bar, baz;
1138 $ WS "bar = 100;
1139 $ WS "baz = gethostname(name, bar);
1140 $ WS "exit(0);
1141 $ WS "}"
1142 $ CS
1143 $   DEFINE SYS$ERROR _NLA0:
1144 $   DEFINE SYS$OUTPUT _NLA0:
1145 $   on error then continue
1146 $   on warning then continue
1147 $   'Checkcc' temp.c
1148 $   teststatus = f$extract(9,1,$status)
1149 $   DEASSIGN SYS$OUTPUT
1150 $   DEASSIGN SYS$ERROR
1151 $   if (teststatus.nes."1")
1152 $   THEN
1153 $!   Okay, compile failed. Must not have it
1154 $     perl_dgethname = "undef"
1155 $   ELSE
1156 $     If (Needs_Opt.eqs."Yes")
1157 $     THEN
1158 $       link temp.obj,temp.opt/opt
1159 $     else
1160 $       link temp.obj
1161 $     endif
1162 $     savedstatus = $status
1163 $     teststatus = f$extract(9,1,savedstatus)
1164 $     if (teststatus.nes."1")
1165 $     THEN
1166 $       perl_d_gethname="undef"
1167 $     ELSE
1168 $       perl_d_gethname="define"
1169 $     ENDIF
1170 $   ENDIF
1171 $ ELSE
1172 $   ! No sockets, so no gethname
1173 $   perl_d_gethname = "undef"
1174 $ ENDIF
1175 $ WRITE_RESULT "d_gethname is ''perl_d_gethname'"
1176 $!
1177 $! Check for sys/file.h
1178 $!
1179 $ OS
1180 $ WS "#ifdef __DECC
1181 $ WS "#include <stdlib.h>
1182 $ WS "#endif
1183 $ WS "#include <stdio.h>
1184 $ WS "#include <unistd.h>
1185 $ WS "#include <sys/file.h>
1186 $ WS "int main()
1187 $ WS "{"
1188 $ WS "exit(0);
1189 $ WS "}"
1190 $ CS
1191 $   DEFINE SYS$ERROR _NLA0:
1192 $   DEFINE SYS$OUTPUT _NLA0:
1193 $   on error then continue
1194 $   on warning then continue
1195 $   'Checkcc' temp.c
1196 $   savedstatus = $status
1197 $   teststatus = f$extract(9,1,savedstatus)
1198 $   if (teststatus.nes."1")
1199 $   THEN
1200 $     perl_i_sysfile="undef"
1201 $     DEASSIGN SYS$OUTPUT
1202 $     DEASSIGN SYS$ERROR
1203 $   ELSE
1204 $     If (Needs_Opt.eqs."Yes")
1205 $     THEN
1206 $       link temp.obj,temp.opt/opt
1207 $     else
1208 $       link temp.obj
1209 $     endif
1210 $     savedstatus = $status
1211 $     teststatus = f$extract(9,1,savedstatus)
1212 $     DEASSIGN SYS$OUTPUT
1213 $     DEASSIGN SYS$ERROR
1214 $     if (teststatus.nes."1")
1215 $     THEN
1216 $       perl_i_sysfile="undef"
1217 $     ELSE
1218 $       perl_i_sysfile="define"
1219 $     ENDIF
1220 $   ENDIF
1221 $ WRITE_RESULT "i_sysfile is ''perl_i_sysfile'"
1222 $!
1223 $! Check for sys/utsname.h
1224 $!
1225 $ OS
1226 $ WS "#ifdef __DECC
1227 $ WS "#include <stdlib.h>
1228 $ WS "#endif
1229 $ WS "#include <stdio.h>
1230 $ WS "#include <unistd.h>
1231 $ WS "#include <sys/utsname.h>
1232 $ WS "int main()
1233 $ WS "{"
1234 $ WS "exit(0);
1235 $ WS "}"
1236 $ CS
1237 $   DEFINE SYS$ERROR _NLA0:
1238 $   DEFINE SYS$OUTPUT _NLA0:
1239 $   on error then continue
1240 $   on warning then continue
1241 $   'Checkcc' temp.c
1242 $   savedstatus = $status
1243 $   teststatus = f$extract(9,1,savedstatus)
1244 $   if (teststatus.nes."1")
1245 $   THEN
1246 $     perl_i_sysutsname="undef"
1247 $     DEASSIGN SYS$OUTPUT
1248 $     DEASSIGN SYS$ERROR
1249 $   ELSE
1250 $     If (Needs_Opt.eqs."Yes")
1251 $     THEN
1252 $       link temp.obj,temp.opt/opt
1253 $     else
1254 $       link temp.obj
1255 $     endif
1256 $     savedstatus = $status
1257 $     teststatus = f$extract(9,1,savedstatus)
1258 $     DEASSIGN SYS$OUTPUT
1259 $     DEASSIGN SYS$ERROR
1260 $     if (teststatus.nes."1")
1261 $     THEN
1262 $       perl_i_sysutsname="undef"
1263 $     ELSE
1264 $       perl_i_sysutsname="define"
1265 $     ENDIF
1266 $   ENDIF
1267 $ WRITE_RESULT "i_sysutsname is ''perl_i_sysutsname'"
1268 $!
1269 $! Check for syslog.h
1270 $!
1271 $ OS
1272 $ WS "#ifdef __DECC
1273 $ WS "#include <stdlib.h>
1274 $ WS "#endif
1275 $ WS "#include <stdio.h>
1276 $ WS "#include <unistd.h>
1277 $ WS "#include <syslog.h>
1278 $ WS "int main()
1279 $ WS "{"
1280 $ WS "exit(0);
1281 $ WS "}"
1282 $ CS
1283 $   DEFINE SYS$ERROR _NLA0:
1284 $   DEFINE SYS$OUTPUT _NLA0:
1285 $   on error then continue
1286 $   on warning then continue
1287 $   'Checkcc' temp.c
1288 $   savedstatus = $status
1289 $   teststatus = f$extract(9,1,savedstatus)
1290 $   if (teststatus.nes."1")
1291 $   THEN
1292 $     perl_i_syslog="undef"
1293 $     DEASSIGN SYS$OUTPUT
1294 $     DEASSIGN SYS$ERROR
1295 $   ELSE
1296 $     If (Needs_Opt.eqs."Yes")
1297 $     THEN
1298 $       link temp.obj,temp.opt/opt
1299 $     else
1300 $       link temp.obj
1301 $     endif
1302 $     savedstatus = $status
1303 $     teststatus = f$extract(9,1,savedstatus)
1304 $     DEASSIGN SYS$OUTPUT
1305 $     DEASSIGN SYS$ERROR
1306 $     if (teststatus.nes."1")
1307 $     THEN
1308 $       perl_i_syslog="undef"
1309 $     ELSE
1310 $       perl_i_syslog="define"
1311 $     ENDIF
1312 $   ENDIF
1313 $ WRITE_RESULT "i_syslog is ''perl_i_syslog'"
1314 $!
1315 $! Check for poll.h
1316 $!
1317 $ OS
1318 $ WS "#ifdef __DECC
1319 $ WS "#include <stdlib.h>
1320 $ WS "#endif
1321 $ WS "#include <stdio.h>
1322 $ WS "#include <unistd.h>
1323 $ WS "#include <poll.h>
1324 $ WS "int main()
1325 $ WS "{"
1326 $ WS "exit(0);
1327 $ WS "}"
1328 $ CS
1329 $   DEFINE SYS$ERROR _NLA0:
1330 $   DEFINE SYS$OUTPUT _NLA0:
1331 $   on error then continue
1332 $   on warning then continue
1333 $   'Checkcc' temp.c
1334 $   savedstatus = $status
1335 $   teststatus = f$extract(9,1,savedstatus)
1336 $   if (teststatus.nes."1")
1337 $   THEN
1338 $     perl_i_poll="undef"
1339 $     DEASSIGN SYS$OUTPUT
1340 $     DEASSIGN SYS$ERROR
1341 $   ELSE
1342 $     If (Needs_Opt.eqs."Yes")
1343 $     THEN
1344 $       link temp.obj,temp.opt/opt
1345 $     else
1346 $       link temp.obj
1347 $     endif
1348 $     savedstatus = $status
1349 $     teststatus = f$extract(9,1,savedstatus)
1350 $     DEASSIGN SYS$OUTPUT
1351 $     DEASSIGN SYS$ERROR
1352 $     if (teststatus.nes."1")
1353 $     THEN
1354 $       perl_i_poll="undef"
1355 $     ELSE
1356 $       perl_i_poll="define"
1357 $     ENDIF
1358 $   ENDIF
1359 $ WRITE_RESULT "i_poll is ''perl_i_poll'"
1360 $!
1361 $! Check for sys/uio.h
1362 $!
1363 $ OS
1364 $ WS "#ifdef __DECC
1365 $ WS "#include <stdlib.h>
1366 $ WS "#endif
1367 $ WS "#include <stdio.h>
1368 $ WS "#include <unistd.h>
1369 $ WS "#include <sys/uio.h>
1370 $ WS "int main()
1371 $ WS "{"
1372 $ WS "exit(0);
1373 $ WS "}"
1374 $ CS
1375 $   DEFINE SYS$ERROR _NLA0:
1376 $   DEFINE SYS$OUTPUT _NLA0:
1377 $   on error then continue
1378 $   on warning then continue
1379 $   'Checkcc' temp.c
1380 $   savedstatus = $status
1381 $   teststatus = f$extract(9,1,savedstatus)
1382 $   if (teststatus.nes."1")
1383 $   THEN
1384 $     perl_i_sysuio="undef"
1385 $     DEASSIGN SYS$OUTPUT
1386 $     DEASSIGN SYS$ERROR
1387 $   ELSE
1388 $     If (Needs_Opt.eqs."Yes")
1389 $     THEN
1390 $       link temp.obj,temp.opt/opt
1391 $     else
1392 $       link temp.obj
1393 $     endif
1394 $     savedstatus = $status
1395 $     teststatus = f$extract(9,1,savedstatus)
1396 $     DEASSIGN SYS$OUTPUT
1397 $     DEASSIGN SYS$ERROR
1398 $     if (teststatus.nes."1")
1399 $     THEN
1400 $       perl_i_sysuio="undef"
1401 $     ELSE
1402 $       perl_i_sysuio="define"
1403 $     ENDIF
1404 $   ENDIF
1405 $ WRITE_RESULT "i_sysuio is ''perl_i_sysuio'"
1406 $!
1407 $! Check for sys/mode.h
1408 $!
1409 $ OS
1410 $ WS "#ifdef __DECC
1411 $ WS "#include <stdlib.h>
1412 $ WS "#endif
1413 $ WS "#include <stdio.h>
1414 $ WS "#include <unistd.h>
1415 $ WS "#include <sys/mode.h>
1416 $ WS "int main()
1417 $ WS "{"
1418 $ WS "exit(0);
1419 $ WS "}"
1420 $ CS
1421 $   DEFINE SYS$ERROR _NLA0:
1422 $   DEFINE SYS$OUTPUT _NLA0:
1423 $   on error then continue
1424 $   on warning then continue
1425 $   'Checkcc' temp.c
1426 $   savedstatus = $status
1427 $   teststatus = f$extract(9,1,savedstatus)
1428 $   if (teststatus.nes."1")
1429 $   THEN
1430 $     perl_i_sysmode="undef"
1431 $     DEASSIGN SYS$OUTPUT
1432 $     DEASSIGN SYS$ERROR
1433 $   ELSE
1434 $     If (Needs_Opt.eqs."Yes")
1435 $     THEN
1436 $       link temp.obj,temp.opt/opt
1437 $     else
1438 $       link temp.obj
1439 $     endif
1440 $     savedstatus = $status
1441 $     teststatus = f$extract(9,1,savedstatus)
1442 $     DEASSIGN SYS$OUTPUT
1443 $     DEASSIGN SYS$ERROR
1444 $     if (teststatus.nes."1")
1445 $     THEN
1446 $       perl_i_sysmode="undef"
1447 $     ELSE
1448 $       perl_i_sysmode="define"
1449 $     ENDIF
1450 $   ENDIF
1451 $ WRITE_RESULT "i_sysmode is ''perl_i_sysmode'"
1452 $!
1453 $! Check for sys/access.h
1454 $!
1455 $ OS
1456 $ WS "#ifdef __DECC
1457 $ WS "#include <stdlib.h>
1458 $ WS "#endif
1459 $ WS "#include <stdio.h>
1460 $ WS "#include <unistd.h>
1461 $ WS "#include <sys/access.h>
1462 $ WS "int main()
1463 $ WS "{"
1464 $ WS "exit(0);
1465 $ WS "}"
1466 $ CS
1467 $   DEFINE SYS$ERROR _NLA0:
1468 $   DEFINE SYS$OUTPUT _NLA0:
1469 $   on error then continue
1470 $   on warning then continue
1471 $   'Checkcc' temp.c
1472 $   savedstatus = $status
1473 $   teststatus = f$extract(9,1,savedstatus)
1474 $   if (teststatus.nes."1")
1475 $   THEN
1476 $     perl_i_sysaccess="undef"
1477 $     DEASSIGN SYS$OUTPUT
1478 $     DEASSIGN SYS$ERROR
1479 $   ELSE
1480 $     If (Needs_Opt.eqs."Yes")
1481 $     THEN
1482 $       link temp.obj,temp.opt/opt
1483 $     else
1484 $       link temp.obj
1485 $     endif
1486 $     savedstatus = $status
1487 $     teststatus = f$extract(9,1,savedstatus)
1488 $     DEASSIGN SYS$OUTPUT
1489 $     DEASSIGN SYS$ERROR
1490 $     if (teststatus.nes."1")
1491 $     THEN
1492 $       perl_i_sysaccess="undef"
1493 $     ELSE
1494 $       perl_i_sysaccess="define"
1495 $     ENDIF
1496 $   ENDIF
1497 $ WRITE_RESULT "i_sysaccess is ''perl_i_sysaccess'"
1498 $!
1499 $! Check for sys/security.h
1500 $!
1501 $ OS
1502 $ WS "#ifdef __DECC
1503 $ WS "#include <stdlib.h>
1504 $ WS "#endif
1505 $ WS "#include <stdio.h>
1506 $ WS "#include <unistd.h>
1507 $ WS "#include <sys/security.h>
1508 $ WS "int main()
1509 $ WS "{"
1510 $ WS "exit(0);
1511 $ WS "}"
1512 $ CS
1513 $   DEFINE SYS$ERROR _NLA0:
1514 $   DEFINE SYS$OUTPUT _NLA0:
1515 $   on error then continue
1516 $   on warning then continue
1517 $   'Checkcc' temp.c
1518 $   savedstatus = $status
1519 $   teststatus = f$extract(9,1,savedstatus)
1520 $   if (teststatus.nes."1")
1521 $   THEN
1522 $     perl_i_syssecrt="undef"
1523 $     DEASSIGN SYS$OUTPUT
1524 $     DEASSIGN SYS$ERROR
1525 $   ELSE
1526 $     If (Needs_Opt.eqs."Yes")
1527 $     THEN
1528 $       link temp.obj,temp.opt/opt
1529 $     else
1530 $       link temp.obj
1531 $     endif
1532 $     savedstatus = $status
1533 $     teststatus = f$extract(9,1,savedstatus)
1534 $     DEASSIGN SYS$OUTPUT
1535 $     DEASSIGN SYS$ERROR
1536 $     if (teststatus.nes."1")
1537 $     THEN
1538 $       perl_i_syssecrt="undef"
1539 $     ELSE
1540 $       perl_i_syssecrt="define"
1541 $     ENDIF
1542 $   ENDIF
1543 $ WRITE_RESULT "i_syssecrt is ''perl_i_syssecrt'"
1544 $!
1545 $! Check for fcntl.h
1546 $!
1547 $ OS
1548 $ WS "#ifdef __DECC
1549 $ WS "#include <stdlib.h>
1550 $ WS "#endif
1551 $ WS "#include <stdio.h>
1552 $ WS "#include <unistd.h>
1553 $ WS "#include <fcntl.h>
1554 $ WS "int main()
1555 $ WS "{"
1556 $ WS "exit(0);
1557 $ WS "}"
1558 $ CS
1559 $   DEFINE SYS$ERROR _NLA0:
1560 $   DEFINE SYS$OUTPUT _NLA0:
1561 $   on error then continue
1562 $   on warning then continue
1563 $   'Checkcc' temp.c
1564 $   savedstatus = $status
1565 $   teststatus = f$extract(9,1,savedstatus)
1566 $   if (teststatus.nes."1")
1567 $   THEN
1568 $     perl_i_fcntl="undef"
1569 $     DEASSIGN SYS$OUTPUT
1570 $     DEASSIGN SYS$ERROR
1571 $   ELSE
1572 $     If (Needs_Opt.eqs."Yes")
1573 $     THEN
1574 $       link temp.obj,temp.opt/opt
1575 $     else
1576 $       link temp.obj
1577 $     endif
1578 $     savedstatus = $status
1579 $     teststatus = f$extract(9,1,savedstatus)
1580 $     DEASSIGN SYS$OUTPUT
1581 $     DEASSIGN SYS$ERROR
1582 $     if (teststatus.nes."1")
1583 $     THEN
1584 $       perl_i_fcntl="undef"
1585 $     ELSE
1586 $       perl_i_fcntl="define"
1587 $     ENDIF
1588 $   ENDIF
1589 $ WRITE_RESULT "i_fcntl is ''perl_i_fcntl'"
1590 $!
1591 $! Check for fcntl
1592 $!
1593 $ OS
1594 $ WS "#ifdef __DECC
1595 $ WS "#include <stdlib.h>
1596 $ WS "#endif
1597 $ WS "#include <stdio.h>
1598 $ WS "#include <unistd.h>
1599 $ WS "#include <fcntl.h>
1600 $ WS "int main()
1601 $ WS "{"
1602 $ WS "fcntl(1,2,3);
1603 $ WS "exit(0);
1604 $ WS "}"
1605 $ CS
1606 $   DEFINE SYS$ERROR _NLA0:
1607 $   DEFINE SYS$OUTPUT _NLA0:
1608 $   on error then continue
1609 $   on warning then continue
1610 $   'Checkcc' temp.c
1611 $   savedstatus = $status
1612 $   teststatus = f$extract(9,1,savedstatus)
1613 $   if (teststatus.nes."1")
1614 $   THEN
1615 $     perl_d_fcntl="undef"
1616 $     DEASSIGN SYS$OUTPUT
1617 $     DEASSIGN SYS$ERROR
1618 $   ELSE
1619 $     If (Needs_Opt.eqs."Yes")
1620 $     THEN
1621 $       link temp.obj,temp.opt/opt
1622 $     else
1623 $       link temp.obj
1624 $     endif
1625 $     savedstatus = $status
1626 $     teststatus = f$extract(9,1,savedstatus)
1627 $     DEASSIGN SYS$OUTPUT
1628 $     DEASSIGN SYS$ERROR
1629 $     if (teststatus.nes."1")
1630 $     THEN
1631 $       perl_d_fcntl="undef"
1632 $     ELSE
1633 $       perl_d_fcntl="define"
1634 $     ENDIF
1635 $   ENDIF
1636 $ WRITE_RESULT "d_fcntl is ''perl_d_fcntl'"
1637 $!
1638 $! Check for memchr
1639 $!
1640 $ OS
1641 $ WS "#ifdef __DECC
1642 $ WS "#include <stdlib.h>
1643 $ WS "#endif
1644 $ WS "#include <string.h>
1645 $ WS "int main()
1646 $ WS "{"
1647 $ WS "char * place;
1648 $ WS "place = memchr(""foo"", 47, 3)
1649 $ WS "exit(0);
1650 $ WS "}"
1651 $ CS
1652 $   DEFINE SYS$ERROR _NLA0:
1653 $   DEFINE SYS$OUTPUT _NLA0:
1654 $   on error then continue
1655 $   on warning then continue
1656 $   'Checkcc' temp.c
1657 $   savedstatus = $status
1658 $   teststatus = f$extract(9,1,savedstatus)
1659 $   if (teststatus.nes."1")
1660 $   THEN
1661 $     perl_d_memchr="undef"
1662 $     DEASSIGN SYS$OUTPUT
1663 $     DEASSIGN SYS$ERROR
1664 $   ELSE
1665 $     If (Needs_Opt.eqs."Yes")
1666 $     THEN
1667 $       link temp.obj,temp.opt/opt
1668 $     else
1669 $       link temp.obj
1670 $     endif
1671 $     savedstatus = $status
1672 $     teststatus = f$extract(9,1,savedstatus)
1673 $     DEASSIGN SYS$OUTPUT
1674 $     DEASSIGN SYS$ERROR
1675 $     if (teststatus.nes."1")
1676 $     THEN
1677 $       perl_d_memchr="undef"
1678 $     ELSE
1679 $       perl_d_memchr="define"
1680 $     ENDIF
1681 $   ENDIF
1682 $ WRITE_RESULT "d_memchr is ''perl_d_memchr'"
1683 $!
1684 $! Check for strtoull
1685 $!
1686 $ OS
1687 $ WS "#ifdef __DECC
1688 $ WS "#include <stdlib.h>
1689 $ WS "#endif
1690 $ WS "#include <string.h>
1691 $ WS "int main()
1692 $ WS "{"
1693 $ WS "unsigned __int64 result;
1694 $ WS "result = strtoull(""123123"", NULL, 10);
1695 $ WS "exit(0);
1696 $ WS "}"
1697 $ CS
1698 $   DEFINE SYS$ERROR _NLA0:
1699 $   DEFINE SYS$OUTPUT _NLA0:
1700 $   on error then continue
1701 $   on warning then continue
1702 $   'Checkcc' temp.c
1703 $   savedstatus = $status
1704 $   teststatus = f$extract(9,1,savedstatus)
1705 $   if (teststatus.nes."1")
1706 $   THEN
1707 $     perl_d_strtoull="undef"
1708 $     DEASSIGN SYS$OUTPUT
1709 $     DEASSIGN SYS$ERROR
1710 $   ELSE
1711 $     If (Needs_Opt.eqs."Yes")
1712 $     THEN
1713 $       link temp.obj,temp.opt/opt
1714 $     else
1715 $       link temp.obj
1716 $     endif
1717 $     savedstatus = $status
1718 $     teststatus = f$extract(9,1,savedstatus)
1719 $     DEASSIGN SYS$OUTPUT
1720 $     DEASSIGN SYS$ERROR
1721 $     if (teststatus.nes."1")
1722 $     THEN
1723 $       perl_d_strtoull="undef"
1724 $     ELSE
1725 $       perl_d_strtoull="define"
1726 $     ENDIF
1727 $   ENDIF
1728 $ WRITE_RESULT "d_strtoull is ''perl_d_strtoull'"
1729 $!
1730 $! Check for strtouq
1731 $!
1732 $ OS
1733 $ WS "#ifdef __DECC
1734 $ WS "#include <stdlib.h>
1735 $ WS "#endif
1736 $ WS "#include <string.h>
1737 $ WS "int main()
1738 $ WS "{"
1739 $ WS "unsigned __int64 result;
1740 $ WS "result = strtouq(""123123"", NULL, 10);
1741 $ WS "exit(0);
1742 $ WS "}"
1743 $ CS
1744 $   DEFINE SYS$ERROR _NLA0:
1745 $   DEFINE SYS$OUTPUT _NLA0:
1746 $   on error then continue
1747 $   on warning then continue
1748 $   'Checkcc' temp.c
1749 $   savedstatus = $status
1750 $   teststatus = f$extract(9,1,savedstatus)
1751 $   if (teststatus.nes."1")
1752 $   THEN
1753 $     perl_d_strtouq="undef"
1754 $     DEASSIGN SYS$OUTPUT
1755 $     DEASSIGN SYS$ERROR
1756 $   ELSE
1757 $     If (Needs_Opt.eqs."Yes")
1758 $     THEN
1759 $       link temp.obj,temp.opt/opt
1760 $     else
1761 $       link temp.obj
1762 $     endif
1763 $     savedstatus = $status
1764 $     teststatus = f$extract(9,1,savedstatus)
1765 $     DEASSIGN SYS$OUTPUT
1766 $     DEASSIGN SYS$ERROR
1767 $     if (teststatus.nes."1")
1768 $     THEN
1769 $       perl_d_strtouq="undef"
1770 $     ELSE
1771 $       perl_d_strtouq="define"
1772 $     ENDIF
1773 $   ENDIF
1774 $ WRITE_RESULT "d_strtouq is ''perl_d_strtouq'"
1775 $!
1776 $! Check for strtoll
1777 $!
1778 $ OS
1779 $ WS "#ifdef __DECC
1780 $ WS "#include <stdlib.h>
1781 $ WS "#endif
1782 $ WS "#include <string.h>
1783 $ WS "int main()
1784 $ WS "{"
1785 $ WS "__int64 result;
1786 $ WS "result = strtoll(""123123"", NULL, 10);
1787 $ WS "exit(0);
1788 $ WS "}"
1789 $ CS
1790 $   DEFINE SYS$ERROR _NLA0:
1791 $   DEFINE SYS$OUTPUT _NLA0:
1792 $   on error then continue
1793 $   on warning then continue
1794 $   'Checkcc' temp.c
1795 $   savedstatus = $status
1796 $   teststatus = f$extract(9,1,savedstatus)
1797 $   if (teststatus.nes."1")
1798 $   THEN
1799 $     perl_d_strtoll="undef"
1800 $     DEASSIGN SYS$OUTPUT
1801 $     DEASSIGN SYS$ERROR
1802 $   ELSE
1803 $     If (Needs_Opt.eqs."Yes")
1804 $     THEN
1805 $       link temp.obj,temp.opt/opt
1806 $     else
1807 $       link temp.obj
1808 $     endif
1809 $     savedstatus = $status
1810 $     teststatus = f$extract(9,1,savedstatus)
1811 $     DEASSIGN SYS$OUTPUT
1812 $     DEASSIGN SYS$ERROR
1813 $     if (teststatus.nes."1")
1814 $     THEN
1815 $       perl_d_strtoll="undef"
1816 $     ELSE
1817 $       perl_d_strtoll="define"
1818 $     ENDIF
1819 $   ENDIF
1820 $ WRITE_RESULT "d_strtoll is ''perl_d_strtoll'"
1821 $!
1822 $! Check for strtold
1823 $!
1824 $ OS
1825 $ WS "#ifdef __DECC
1826 $ WS "#include <stdlib.h>
1827 $ WS "#endif
1828 $ WS "#include <string.h>
1829 $ WS "int main()
1830 $ WS "{"
1831 $ WS "long double result;
1832 $ WS "result = strtold(""123123"", NULL, 10);
1833 $ WS "exit(0);
1834 $ WS "}"
1835 $ CS
1836 $   DEFINE SYS$ERROR _NLA0:
1837 $   DEFINE SYS$OUTPUT _NLA0:
1838 $   on error then continue
1839 $   on warning then continue
1840 $   'Checkcc' temp.c
1841 $   savedstatus = $status
1842 $   teststatus = f$extract(9,1,savedstatus)
1843 $   if (teststatus.nes."1")
1844 $   THEN
1845 $     perl_d_strtold="undef"
1846 $     DEASSIGN SYS$OUTPUT
1847 $     DEASSIGN SYS$ERROR
1848 $   ELSE
1849 $     If (Needs_Opt.eqs."Yes")
1850 $     THEN
1851 $       link temp.obj,temp.opt/opt
1852 $     else
1853 $       link temp.obj
1854 $     endif
1855 $     savedstatus = $status
1856 $     teststatus = f$extract(9,1,savedstatus)
1857 $     DEASSIGN SYS$OUTPUT
1858 $     DEASSIGN SYS$ERROR
1859 $     if (teststatus.nes."1")
1860 $     THEN
1861 $       perl_d_strtold="undef"
1862 $     ELSE
1863 $       perl_d_strtold="define"
1864 $     ENDIF
1865 $   ENDIF
1866 $ WRITE_RESULT "d_strtold is ''perl_d_strtold'"
1867 $!
1868 $! Check for atoll
1869 $!
1870 $ OS
1871 $ WS "#ifdef __DECC
1872 $ WS "#include <stdlib.h>
1873 $ WS "#endif
1874 $ WS "#include <string.h>
1875 $ WS "int main()
1876 $ WS "{"
1877 $ WS " __int64 result;
1878 $ WS "result = atoll(""123123"");
1879 $ WS "exit(0);
1880 $ WS "}"
1881 $ CS
1882 $   DEFINE SYS$ERROR _NLA0:
1883 $   DEFINE SYS$OUTPUT _NLA0:
1884 $   on error then continue
1885 $   on warning then continue
1886 $   'Checkcc' temp.c
1887 $   savedstatus = $status
1888 $   teststatus = f$extract(9,1,savedstatus)
1889 $   if (teststatus.nes."1")
1890 $   THEN
1891 $     perl_d_atoll="undef"
1892 $     DEASSIGN SYS$OUTPUT
1893 $     DEASSIGN SYS$ERROR
1894 $   ELSE
1895 $     If (Needs_Opt.eqs."Yes")
1896 $     THEN
1897 $       link temp.obj,temp.opt/opt
1898 $     else
1899 $       link temp.obj
1900 $     endif
1901 $     savedstatus = $status
1902 $     teststatus = f$extract(9,1,savedstatus)
1903 $     DEASSIGN SYS$OUTPUT
1904 $     DEASSIGN SYS$ERROR
1905 $     if (teststatus.nes."1")
1906 $     THEN
1907 $       perl_d_atoll="undef"
1908 $     ELSE
1909 $       perl_d_atoll="define"
1910 $     ENDIF
1911 $   ENDIF
1912 $ WRITE_RESULT "d_atoll is ''perl_d_atoll'"
1913 $!
1914 $! Check for atoll
1915 $!
1916 $ OS
1917 $ WS "#ifdef __DECC
1918 $ WS "#include <stdlib.h>
1919 $ WS "#endif
1920 $ WS "#include <string.h>
1921 $ WS "int main()
1922 $ WS "{"
1923 $ WS "long double
1924 $ WS "result = atolf(""123123"");
1925 $ WS "exit(0);
1926 $ WS "}"
1927 $ CS
1928 $   DEFINE SYS$ERROR _NLA0:
1929 $   DEFINE SYS$OUTPUT _NLA0:
1930 $   on error then continue
1931 $   on warning then continue
1932 $   'Checkcc' temp.c
1933 $   savedstatus = $status
1934 $   teststatus = f$extract(9,1,savedstatus)
1935 $   if (teststatus.nes."1")
1936 $   THEN
1937 $     perl_d_atolf="undef"
1938 $     DEASSIGN SYS$OUTPUT
1939 $     DEASSIGN SYS$ERROR
1940 $   ELSE
1941 $     If (Needs_Opt.eqs."Yes")
1942 $     THEN
1943 $       link temp.obj,temp.opt/opt
1944 $     else
1945 $       link temp.obj
1946 $     endif
1947 $     savedstatus = $status
1948 $     teststatus = f$extract(9,1,savedstatus)
1949 $     DEASSIGN SYS$OUTPUT
1950 $     DEASSIGN SYS$ERROR
1951 $     if (teststatus.nes."1")
1952 $     THEN
1953 $       perl_d_atolf="undef"
1954 $     ELSE
1955 $       perl_d_atolf="define"
1956 $     ENDIF
1957 $   ENDIF
1958 $ WRITE_RESULT "d_atolf is ''perl_d_atolf'"
1959 $!
1960 $! Check for access
1961 $!
1962 $ OS
1963 $ WS "#ifdef __DECC
1964 $ WS "#include <stdlib.h>
1965 $ WS "#endif
1966 $ WS "#include <stdio.h>
1967 $ WS "#include <unistd.h>
1968 $ WS "int main()
1969 $ WS "{"
1970 $ WS "access("foo", F_OK);
1971 $ WS "exit(0);
1972 $ WS "}"
1973 $ CS
1974 $   DEFINE SYS$ERROR _NLA0:
1975 $   DEFINE SYS$OUTPUT _NLA0:
1976 $   on error then continue
1977 $   on warning then continue
1978 $   'Checkcc' temp.c
1979 $   savedstatus = $status
1980 $   teststatus = f$extract(9,1,savedstatus)
1981 $   if (teststatus.nes."1")
1982 $   THEN
1983 $     perl_d_access="undef"
1984 $     DEASSIGN SYS$OUTPUT
1985 $     DEASSIGN SYS$ERROR
1986 $   ELSE
1987 $     If (Needs_Opt.eqs."Yes")
1988 $     THEN
1989 $       link temp.obj,temp.opt/opt
1990 $     else
1991 $       link temp.obj
1992 $     endif
1993 $     savedstatus = $status
1994 $     teststatus = f$extract(9,1,savedstatus)
1995 $     DEASSIGN SYS$OUTPUT
1996 $     DEASSIGN SYS$ERROR
1997 $     if (teststatus.nes."1")
1998 $     THEN
1999 $       perl_d_access="undef"
2000 $     ELSE
2001 $       perl_d_access="define"
2002 $     ENDIF
2003 $   ENDIF
2004 $ WRITE_RESULT "d_access is ''perl_d_access'"
2005 $!
2006 $! Check for bzero
2007 $!
2008 $ OS
2009 $ WS "#ifdef __DECC
2010 $ WS "#include <stdlib.h>
2011 $ WS "#endif
2012 $ WS "#include <stdio.h>
2013 $ WS "#include <strings.h>
2014 $ WS "int main()
2015 $ WS "{"
2016 $ WS "char foo[10];
2017 $ WS "bzero(foo, 10);
2018 $ WS "exit(0);
2019 $ WS "}"
2020 $ CS
2021 $   DEFINE SYS$ERROR _NLA0:
2022 $   DEFINE SYS$OUTPUT _NLA0:
2023 $   on error then continue
2024 $   on warning then continue
2025 $   'Checkcc' temp.c
2026 $   savedstatus = $status
2027 $   teststatus = f$extract(9,1,savedstatus)
2028 $   if (teststatus.nes."1")
2029 $   THEN
2030 $     perl_d_bzero="undef"
2031 $     DEASSIGN SYS$OUTPUT
2032 $     DEASSIGN SYS$ERROR
2033 $   ELSE
2034 $     If (Needs_Opt.eqs."Yes")
2035 $     THEN
2036 $       link temp.obj,temp.opt/opt
2037 $     else
2038 $       link temp.obj
2039 $     endif
2040 $     savedstatus = $status
2041 $     teststatus = f$extract(9,1,savedstatus)
2042 $     DEASSIGN SYS$OUTPUT
2043 $     DEASSIGN SYS$ERROR
2044 $     if (teststatus.nes."1")
2045 $     THEN
2046 $       perl_d_bzero="undef"
2047 $     ELSE
2048 $       perl_d_bzero="define"
2049 $     ENDIF
2050 $   ENDIF
2051 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
2052 $!
2053 $! Check for bcopy
2054 $!
2055 $ OS
2056 $ WS "#ifdef __DECC
2057 $ WS "#include <stdlib.h>
2058 $ WS "#endif
2059 $ WS "#include <stdio.h>
2060 $ WS "#include <strings.h>
2061 $ WS "int main()
2062 $ WS "{"
2063 $ WS "char foo[10], bar[10];
2064 $ WS "bcopy(""foo"", bar, 3);
2065 $ WS "exit(0);
2066 $ WS "}"
2067 $ CS
2068 $   DEFINE SYS$ERROR _NLA0:
2069 $   DEFINE SYS$OUTPUT _NLA0:
2070 $   on error then continue
2071 $   on warning then continue
2072 $   'Checkcc' temp.c
2073 $   savedstatus = $status
2074 $   teststatus = f$extract(9,1,savedstatus)
2075 $   if (teststatus.nes."1")
2076 $   THEN
2077 $     perl_d_bcopy="undef"
2078 $     DEASSIGN SYS$OUTPUT
2079 $     DEASSIGN SYS$ERROR
2080 $   ELSE
2081 $     If (Needs_Opt.eqs."Yes")
2082 $     THEN
2083 $       link temp.obj,temp.opt/opt
2084 $     else
2085 $       link temp.obj
2086 $     endif
2087 $     savedstatus = $status
2088 $     teststatus = f$extract(9,1,savedstatus)
2089 $     DEASSIGN SYS$OUTPUT
2090 $     DEASSIGN SYS$ERROR
2091 $     if (teststatus.nes."1")
2092 $     THEN
2093 $       perl_d_bcopy="undef"
2094 $     ELSE
2095 $       perl_d_bcopy="define"
2096 $     ENDIF
2097 $   ENDIF
2098 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
2099 $!
2100 $! Check for mkstemp
2101 $!
2102 $ OS
2103 $ WS "#ifdef __DECC
2104 $ WS "#include <stdlib.h>
2105 $ WS "#endif
2106 $ WS "#include <stdio.h>
2107 $ WS "int main()
2108 $ WS "{"
2109 $ WS "mkstemp(""foo"");
2110 $ WS "exit(0);
2111 $ WS "}"
2112 $ CS
2113 $   DEFINE SYS$ERROR _NLA0:
2114 $   DEFINE SYS$OUTPUT _NLA0:
2115 $   on error then continue
2116 $   on warning then continue
2117 $   'Checkcc' temp.c
2118 $   If (Needs_Opt.eqs."Yes")
2119 $   THEN
2120 $     link temp.obj,temp.opt/opt
2121 $   else
2122 $     link temp.obj
2123 $   endif
2124 $   savedstatus = $status
2125 $   teststatus = f$extract(9,1,savedstatus)
2126 $   DEASSIGN SYS$OUTPUT
2127 $   DEASSIGN SYS$ERROR
2128 $   if (teststatus.nes."1")
2129 $   THEN
2130 $     perl_d_mkstemp="undef"
2131 $   ELSE
2132 $     perl_d_mkstemp="define"
2133 $   ENDIF
2134 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
2135 $!
2136 $! Check for mkstemps
2137 $!
2138 $ OS
2139 $ WS "#ifdef __DECC
2140 $ WS "#include <stdlib.h>
2141 $ WS "#endif
2142 $ WS "#include <stdio.h>
2143 $ WS "int main()
2144 $ WS "{"
2145 $ WS "mkstemps(""foo"", 1);
2146 $ WS "exit(0);
2147 $ WS "}"
2148 $ CS
2149 $   DEFINE SYS$ERROR _NLA0:
2150 $   DEFINE SYS$OUTPUT _NLA0:
2151 $   on error then continue
2152 $   on warning then continue
2153 $   'Checkcc' temp.c
2154 $   If (Needs_Opt.eqs."Yes")
2155 $   THEN
2156 $     link temp.obj,temp.opt/opt
2157 $   else
2158 $     link temp.obj
2159 $   endif
2160 $   savedstatus = $status
2161 $   teststatus = f$extract(9,1,savedstatus)
2162 $   DEASSIGN SYS$OUTPUT
2163 $   DEASSIGN SYS$ERROR
2164 $   if (teststatus.nes."1")
2165 $   THEN
2166 $     perl_d_mkstemps="undef"
2167 $   ELSE
2168 $     perl_d_mkstemps="define"
2169 $   ENDIF
2170 $ WRITE_RESULT "d_mkstemps is ''perl_d_mkstemps'"
2171 $!
2172 $! Check for iconv
2173 $!
2174 $ OS
2175 $ WS "#ifdef __DECC
2176 $ WS "#include <stdlib.h>
2177 $ WS "#endif
2178 $ WS "#include <stdio.h>
2179 $ WS "#include <iconv.h>
2180 $ WS "int main()
2181 $ WS "{"
2182 $ WS "  iconv_t cd;"
2183 $ WS "  char *inbuf, *outbuf;"
2184 $ WS "  size_t inleft, outleft;"
2185 $ WS "  iconv(cd, &inbuf, &inleft, &outbuf, &outleft);"
2186 $ WS "exit(0);
2187 $ WS "}"
2188 $ CS
2189 $   DEFINE SYS$ERROR _NLA0:
2190 $   DEFINE SYS$OUTPUT _NLA0:
2191 $   on error then continue
2192 $   on warning then continue
2193 $   'Checkcc' temp.c
2194 $   savedstatus = $status
2195 $   teststatus = f$extract(9,1,savedstatus)
2196 $   if (teststatus.nes."1")
2197 $   THEN
2198 $     perl_d_iconv="undef"
2199 $     perl_i_iconv="undef"
2200 $     DEASSIGN SYS$OUTPUT
2201 $     DEASSIGN SYS$ERROR
2202 $   ELSE
2203 $     If (Needs_Opt.eqs."Yes")
2204 $     THEN
2205 $       link temp.obj,temp.opt/opt
2206 $     else
2207 $       link temp.obj
2208 $     endif
2209 $     savedstatus = $status
2210 $     teststatus = f$extract(9,1,savedstatus)
2211 $     DEASSIGN SYS$OUTPUT
2212 $     DEASSIGN SYS$ERROR
2213 $     if (teststatus.nes."1")
2214 $  THEN
2215 $       perl_d_iconv="undef"
2216 $       perl_i_iconv="undef"
2217 $     ELSE
2218 $       perl_d_iconv="define"
2219 $       perl_i_iconv="define"
2220 $     ENDIF
2221 $   ENDIF
2222 $ WRITE_RESULT "d_iconv is ''perl_d_iconv'"
2223 $ WRITE_RESULT "i_iconv is ''perl_i_iconv'"
2224 $!
2225 $! Check for mkdtemp
2226 $!
2227 $ OS
2228 $ WS "#ifdef __DECC
2229 $ WS "#include <stdlib.h>
2230 $ WS "#endif
2231 $ WS "#include <stdio.h>
2232 $ WS "int main()
2233 $ WS "{"
2234 $ WS "mkdtemp(""foo"");
2235 $ WS "exit(0);
2236 $ WS "}"
2237 $ CS
2238 $   DEFINE SYS$ERROR _NLA0:
2239 $   DEFINE SYS$OUTPUT _NLA0:
2240 $   on error then continue
2241 $   on warning then continue
2242 $   'Checkcc' temp.c
2243 $   If (Needs_Opt.eqs."Yes")
2244 $   THEN
2245 $     link temp.obj,temp.opt/opt
2246 $   else
2247 $     link temp.obj
2248 $   endif
2249 $   savedstatus = $status
2250 $   teststatus = f$extract(9,1,savedstatus)
2251 $   DEASSIGN SYS$OUTPUT
2252 $   DEASSIGN SYS$ERROR
2253 $   if (teststatus.nes."1")
2254 $   THEN
2255 $     perl_d_mkdtemp="undef"
2256 $   ELSE
2257 $     perl_d_mkdtemp="define"
2258 $   ENDIF
2259 $ WRITE_RESULT "d_mkdtemp is ''perl_d_mkdtemp'"
2260 $!
2261 $! Check for setvbuf
2262 $!
2263 $ OS
2264 $ WS "#ifdef __DECC
2265 $ WS "#include <stdlib.h>
2266 $ WS "#endif
2267 $ WS "#include <stdio.h>
2268 $ WS "int main()
2269 $ WS "{"
2270 $ WS "FILE *foo;
2271 $ WS "char Buffer[99];
2272 $ WS "foo = fopen(""foo"", ""r"");
2273 $ WS "setvbuf(foo, Buffer, 0, 0);
2274 $ WS "exit(0);
2275 $ WS "}"
2276 $ CS
2277 $   DEFINE SYS$ERROR _NLA0:
2278 $   DEFINE SYS$OUTPUT _NLA0:
2279 $   on error then continue
2280 $   on warning then continue
2281 $   'Checkcc' temp.c
2282 $   If (Needs_Opt.eqs."Yes")
2283 $   THEN
2284 $     link temp.obj,temp.opt/opt
2285 $   else
2286 $     link temp.obj
2287 $   endif
2288 $   teststatus = f$extract(9,1,$status)
2289 $   DEASSIGN SYS$OUTPUT
2290 $   DEASSIGN SYS$ERROR
2291 $   if (teststatus.nes."1")
2292 $   THEN
2293 $     perl_d_setvbuf="undef"
2294 $   ELSE
2295 $     perl_d_setvbuf="define"
2296 $   ENDIF
2297 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
2298 $!
2299 $! Check for setenv
2300 $!
2301 $ OS
2302 $ WS "#ifdef __DECC
2303 $ WS "#include <stdlib.h>
2304 $ WS "#endif
2305 $ WS "#include <stdio.h>
2306 $ WS "int main()
2307 $ WS "{"
2308 $ WS "setenv(""FOO"", ""BAR"", 0);
2309 $ WS "exit(0);
2310 $ WS "}"
2311 $ CS
2312 $   DEFINE SYS$ERROR _NLA0:
2313 $   DEFINE SYS$OUTPUT _NLA0:
2314 $   on error then continue
2315 $   on warning then continue
2316 $   'Checkcc' temp
2317 $   If (Needs_Opt.eqs."Yes")
2318 $   THEN
2319 $     link temp,temp/opt
2320 $   else
2321 $     link temp
2322 $   endif
2323 $   teststatus = f$extract(9,1,$status)
2324 $   DEASSIGN SYS$OUTPUT
2325 $   DEASSIGN SYS$ERROR
2326 $   if (teststatus.nes."1")
2327 $   THEN
2328 $     perl_d_setenv="undef"
2329 $   ELSE
2330 $     perl_d_setenv="define"
2331 $   ENDIF
2332 $ WRITE_RESULT "d_setenv is ''perl_d_setenv'"
2333 $!
2334 $! Check for <netinet/in.h>
2335 $!
2336 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2337 $ THEN
2338 $ OS
2339 $ WS "#ifdef __DECC
2340 $ WS "#include <stdlib.h>
2341 $ WS "#endif
2342 $ WS "#include <stdio.h>
2343 $ if ("''Has_Socketshr'".eqs."T")
2344 $ THEN
2345 $  WS "#include <socketshr.h>"
2346 $ else
2347 $  WS "#include <netdb.h>
2348 $ endif
2349 $ WS "#include <netinet/in.h>"
2350 $ WS "int main()
2351 $ WS "{"
2352 $ WS "exit(0);
2353 $ WS "}"
2354 $ CS
2355 $   DEFINE SYS$ERROR _NLA0:
2356 $   DEFINE SYS$OUTPUT _NLA0:
2357 $   on error then continue
2358 $   on warning then continue
2359 $   'Checkcc' temp.c
2360 $   If (Needs_Opt.eqs."Yes")
2361 $   THEN
2362 $     link temp.obj,temp.opt/opt
2363 $   else
2364 $     link temp.obj
2365 $   endif
2366 $   teststatus = f$extract(9,1,$status)
2367 $   DEASSIGN SYS$OUTPUT
2368 $   DEASSIGN SYS$ERROR
2369 $   if (teststatus.nes."1")
2370 $   THEN
2371 $     perl_i_niin="undef"
2372 $   ELSE
2373 $     perl_i_niin="define"
2374 $   ENDIF
2375 $ ELSE
2376 $   perl_i_niin="undef"
2377 $ ENDIF
2378 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
2379 $!
2380 $! Check for <netinet/tcp.h>
2381 $!
2382 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2383 $ THEN
2384 $ OS
2385 $ WS "#ifdef __DECC
2386 $ WS "#include <stdlib.h>
2387 $ WS "#endif
2388 $ WS "#include <stdio.h>
2389 $ if ("''Has_Socketshr'".eqs."T")
2390 $ THEN
2391 $  WS "#include <socketshr.h>"
2392 $ else
2393 $  WS "#include <netdb.h>
2394 $ endif
2395 $ WS "#include <netinet/tcp.h>"
2396 $ WS "int main()
2397 $ WS "{"
2398 $ WS "exit(0);
2399 $ WS "}"
2400 $ CS
2401 $   DEFINE SYS$ERROR _NLA0:
2402 $   DEFINE SYS$OUTPUT _NLA0:
2403 $   on error then continue
2404 $   on warning then continue
2405 $   'Checkcc' temp.c
2406 $   If (Needs_Opt.eqs."Yes")
2407 $   THEN
2408 $     link temp.obj,temp.opt/opt
2409 $   else
2410 $     link temp.obj
2411 $   endif
2412 $   teststatus = f$extract(9,1,$status)
2413 $   DEASSIGN SYS$OUTPUT
2414 $   DEASSIGN SYS$ERROR
2415 $   if (teststatus.nes."1")
2416 $   THEN
2417 $     perl_i_netinettcp="undef"
2418 $   ELSE
2419 $     perl_i_netinettcp="define"
2420 $   ENDIF
2421 $ ELSE
2422 $   perl_i_netinettcp="undef"
2423 $ ENDIF
2424 $ WRITE_RESULT "i_netinettcp is ''perl_i_netinettcp'"
2425 $!
2426 $! Check for endhostent
2427 $!
2428 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2429 $ THEN
2430 $ OS
2431 $ WS "#ifdef __DECC
2432 $ WS "#include <stdlib.h>
2433 $ WS "#endif
2434 $ WS "#include <stdio.h>
2435 $ if ("''Has_Socketshr'".eqs."T")
2436 $ THEN
2437 $  WS "#include <socketshr.h>"
2438 $ else
2439 $  WS "#include <netdb.h>
2440 $ endif
2441 $ WS "int main()
2442 $ WS "{"
2443 $ WS "endhostent();
2444 $ WS "exit(0);
2445
2446 $ CS
2447 $   DEFINE SYS$ERROR _NLA0:
2448 $   DEFINE SYS$OUTPUT _NLA0:
2449 $   on error then continue
2450 $   on warning then continue
2451 $   'Checkcc' temp.c
2452 $   If (Needs_Opt.eqs."Yes")
2453 $   THEN
2454 $     link temp.obj,temp.opt/opt
2455 $   else
2456 $     link temp.obj
2457 $   endif
2458 $   teststatus = f$extract(9,1,$status)
2459 $   DEASSIGN SYS$OUTPUT
2460 $   DEASSIGN SYS$ERROR
2461 $   if (teststatus.nes."1")
2462 $   THEN
2463 $     perl_d_endhent="undef"
2464 $   ELSE
2465 $     perl_d_endhent="define"
2466 $   ENDIF
2467 $ ELSE
2468 $ perl_d_endhent="undef"
2469 $ ENDIF
2470 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
2471 $!
2472 $! Check for endnetent
2473 $!
2474 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2475 $ THEN
2476 $ OS
2477 $ WS "#ifdef __DECC
2478 $ WS "#include <stdlib.h>
2479 $ WS "#endif
2480 $ WS "#include <stdio.h>
2481 $ if ("''Has_Socketshr'".eqs."T")
2482 $ THEN
2483 $  WS "#include <socketshr.h>"
2484 $ else
2485 $  WS "#include <netdb.h>
2486 $ endif
2487 $ WS "int main()
2488 $ WS "{"
2489 $ WS "endnetent();
2490 $ WS "exit(0);
2491 $ WS "}"
2492 $ CS
2493 $   DEFINE SYS$ERROR _NLA0:
2494 $   DEFINE SYS$OUTPUT _NLA0:
2495 $   on error then continue
2496 $   on warning then continue
2497 $   'Checkcc' temp.c
2498 $   If (Needs_Opt.eqs."Yes")
2499 $   THEN
2500 $     link temp.obj,temp.opt/opt
2501 $   else
2502 $     link temp.obj
2503 $   endif
2504 $   teststatus = f$extract(9,1,$status)
2505 $   DEASSIGN SYS$OUTPUT
2506 $   DEASSIGN SYS$ERROR
2507 $   if (teststatus.nes."1")
2508 $   THEN
2509 $     perl_d_endnent="undef"
2510 $   ELSE
2511 $     perl_d_endnent="define"
2512 $   ENDIF
2513 $ ELSE
2514 $ perl_d_endnent="undef"
2515 $ ENDIF
2516 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
2517 $!
2518 $! Check for endprotoent
2519 $!
2520 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2521 $ THEN
2522 $ OS
2523 $ WS "#ifdef __DECC
2524 $ WS "#include <stdlib.h>
2525 $ WS "#endif
2526 $ WS "#include <stdio.h>
2527 $ if ("''Has_Socketshr'".eqs."T")
2528 $ THEN
2529 $  WS "#include <socketshr.h>"
2530 $ else
2531 $  WS "#include <netdb.h>
2532 $ endif
2533 $ WS "int main()
2534 $ WS "{"
2535 $ WS "endprotoent();
2536 $ WS "exit(0);
2537 $ WS "}"
2538 $ CS
2539 $   DEFINE SYS$ERROR _NLA0:
2540 $   DEFINE SYS$OUTPUT _NLA0:
2541 $   on error then continue
2542 $   on warning then continue
2543 $   'Checkcc' temp.c
2544 $   If (Needs_Opt.eqs."Yes")
2545 $   THEN
2546 $     link temp.obj,temp.opt/opt
2547 $   else
2548 $     link temp.obj
2549 $   endif
2550 $   teststatus = f$extract(9,1,$status)
2551 $   DEASSIGN SYS$OUTPUT
2552 $   DEASSIGN SYS$ERROR
2553 $   if (teststatus.nes."1")
2554 $   THEN
2555 $     perl_d_endpent="undef"
2556 $   ELSE
2557 $     perl_d_endpent="define"
2558 $   ENDIF
2559 $ ELSE
2560 $ perl_d_endpent="undef"
2561 $ ENDIF
2562 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
2563 $!
2564 $! Check for endservent
2565 $!
2566 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2567 $ THEN
2568 $ OS
2569 $ WS "#ifdef __DECC
2570 $ WS "#include <stdlib.h>
2571 $ WS "#endif
2572 $ WS "#include <stdio.h>
2573 $ if ("''Has_Socketshr'".eqs."T")
2574 $ THEN
2575 $  WS "#include <socketshr.h>"
2576 $ else
2577 $  WS "#include <netdb.h>
2578 $ endif
2579 $ WS "int main()
2580 $ WS "{"
2581 $ WS "endservent();
2582 $ WS "exit(0);
2583 $ WS "}"
2584 $ CS
2585 $   DEFINE SYS$ERROR _NLA0:
2586 $   DEFINE SYS$OUTPUT _NLA0:
2587 $   on error then continue
2588 $   on warning then continue
2589 $   'Checkcc' temp.c
2590 $   If (Needs_Opt.eqs."Yes")
2591 $   THEN
2592 $     link temp.obj,temp.opt/opt
2593 $   else
2594 $     link temp.obj
2595 $   endif
2596 $   teststatus = f$extract(9,1,$status)
2597 $   DEASSIGN SYS$OUTPUT
2598 $   DEASSIGN SYS$ERROR
2599 $   if (teststatus.nes."1")
2600 $   THEN
2601 $     perl_d_endsent="undef"
2602 $   ELSE
2603 $     perl_d_endsent="define"
2604 $   ENDIF
2605 $ ELSE
2606 $ perl_d_endsent="undef"
2607 $ ENDIF
2608 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
2609 $!
2610 $! Check for sethostent
2611 $!
2612 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2613 $ THEN
2614 $ OS
2615 $ WS "#ifdef __DECC
2616 $ WS "#include <stdlib.h>
2617 $ WS "#endif
2618 $ WS "#include <stdio.h>
2619 $ if ("''Has_Socketshr'".eqs."T")
2620 $ THEN
2621 $  WS "#include <socketshr.h>"
2622 $ else
2623 $  WS "#include <netdb.h>
2624 $ endif
2625 $ WS "int main()
2626 $ WS "{"
2627 $ WS "sethostent(1);
2628 $ WS "exit(0);
2629 $ WS "}"
2630 $ CS
2631 $   DEFINE SYS$ERROR _NLA0:
2632 $   DEFINE SYS$OUTPUT _NLA0:
2633 $   on error then continue
2634 $   on warning then continue
2635 $   'Checkcc' temp.c
2636 $   If (Needs_Opt.eqs."Yes")
2637 $   THEN
2638 $     link temp.obj,temp.opt/opt
2639 $   else
2640 $     link temp.obj
2641 $   endif
2642 $   teststatus = f$extract(9,1,$status)
2643 $   DEASSIGN SYS$OUTPUT
2644 $   DEASSIGN SYS$ERROR
2645 $   if (teststatus.nes."1")
2646 $   THEN
2647 $     perl_d_sethent="undef"
2648 $   ELSE
2649 $     perl_d_sethent="define"
2650 $   ENDIF
2651 $ ELSE
2652 $ perl_d_sethent="undef"
2653 $ ENDIF
2654 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
2655 $!
2656 $! Check for setnetent
2657 $!
2658 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2659 $ THEN
2660 $ OS
2661 $ WS "#ifdef __DECC
2662 $ WS "#include <stdlib.h>
2663 $ WS "#endif
2664 $ WS "#include <stdio.h>
2665 $ if ("''Has_Socketshr'".eqs."T")
2666 $ THEN
2667 $  WS "#include <socketshr.h>"
2668 $ else
2669 $  WS "#include <netdb.h>
2670 $ endif
2671 $ WS "int main()
2672 $ WS "{"
2673 $ WS "setnetent(1);
2674 $ WS "exit(0);
2675 $ WS "}"
2676 $ CS
2677 $   DEFINE SYS$ERROR _NLA0:
2678 $   DEFINE SYS$OUTPUT _NLA0:
2679 $   on error then continue
2680 $   on warning then continue
2681 $   'Checkcc' temp.c
2682 $   If (Needs_Opt.eqs."Yes")
2683 $   THEN
2684 $     link temp.obj,temp.opt/opt
2685 $   else
2686 $     link temp.obj
2687 $   endif
2688 $   teststatus = f$extract(9,1,$status)
2689 $   DEASSIGN SYS$OUTPUT
2690 $   DEASSIGN SYS$ERROR
2691 $   if (teststatus.nes."1")
2692 $   THEN
2693 $     perl_d_setnent="undef"
2694 $   ELSE
2695 $     perl_d_setnent="define"
2696 $   ENDIF
2697 $ ELSE
2698 $ perl_d_setnent="undef"
2699 $ ENDIF
2700 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
2701 $!
2702 $! Check for setprotoent
2703 $!
2704 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2705 $ THEN
2706 $ OS
2707 $ WS "#ifdef __DECC
2708 $ WS "#include <stdlib.h>
2709 $ WS "#endif
2710 $ WS "#include <stdio.h>
2711 $ if ("''Has_Socketshr'".eqs."T")
2712 $ THEN
2713 $  WS "#include <socketshr.h>"
2714 $ else
2715 $  WS "#include <netdb.h>
2716 $ endif
2717 $ WS "int main()
2718 $ WS "{"
2719 $ WS "setprotoent(1);
2720 $ WS "exit(0);
2721 $ WS "}"
2722 $ CS
2723 $   DEFINE SYS$ERROR _NLA0:
2724 $   DEFINE SYS$OUTPUT _NLA0:
2725 $   on error then continue
2726 $   on warning then continue
2727 $   'Checkcc' temp.c
2728 $   If (Needs_Opt.eqs."Yes")
2729 $   THEN
2730 $     link temp.obj,temp.opt/opt
2731 $   else
2732 $     link temp.obj
2733 $   endif
2734 $   teststatus = f$extract(9,1,$status)
2735 $   DEASSIGN SYS$OUTPUT
2736 $   DEASSIGN SYS$ERROR
2737 $   if (teststatus.nes."1")
2738 $   THEN
2739 $     perl_d_setpent="undef"
2740 $   ELSE
2741 $     perl_d_setpent="define"
2742 $   ENDIF
2743 $ ELSE
2744 $ perl_d_setpent="undef"
2745 $ ENDIF
2746 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
2747 $!
2748 $! Check for setservent
2749 $!
2750 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2751 $ THEN
2752 $ OS
2753 $ WS "#ifdef __DECC
2754 $ WS "#include <stdlib.h>
2755 $ WS "#endif
2756 $ WS "#include <stdio.h>
2757 $ if ("''Has_Socketshr'".eqs."T")
2758 $ THEN
2759 $  WS "#include <socketshr.h>"
2760 $ else
2761 $  WS "#include <netdb.h>
2762 $ endif
2763 $ WS "int main()
2764 $ WS "{"
2765 $ WS "setservent(1);
2766 $ WS "exit(0);
2767 $ WS "}"
2768 $ CS
2769 $   DEFINE SYS$ERROR _NLA0:
2770 $   DEFINE SYS$OUTPUT _NLA0:
2771 $   on error then continue
2772 $   on warning then continue
2773 $   'Checkcc' temp.c
2774 $   If (Needs_Opt.eqs."Yes")
2775 $   THEN
2776 $     link temp.obj,temp.opt/opt
2777 $   else
2778 $     link temp.obj
2779 $   endif
2780 $   teststatus = f$extract(9,1,$status)
2781 $   DEASSIGN SYS$OUTPUT
2782 $   DEASSIGN SYS$ERROR
2783 $   if (teststatus.nes."1")
2784 $   THEN
2785 $     perl_d_setsent="undef"
2786 $   ELSE
2787 $     perl_d_setsent="define"
2788 $   ENDIF
2789 $ ELSE
2790 $ perl_d_setsent="undef"
2791 $ ENDIF
2792 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
2793 $!
2794 $! Check for gethostent
2795 $!
2796 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2797 $ THEN
2798 $ OS
2799 $ WS "#ifdef __DECC
2800 $ WS "#include <stdlib.h>
2801 $ WS "#endif
2802 $ WS "#include <stdio.h>
2803 $ if ("''Has_Socketshr'".eqs."T")
2804 $ THEN
2805 $  WS "#include <socketshr.h>"
2806 $ else
2807 $  WS "#include <netdb.h>
2808 $ endif
2809 $ WS "int main()
2810 $ WS "{"
2811 $ WS "gethostent();
2812 $ WS "exit(0);
2813 $ WS "}"
2814 $ CS
2815 $   DEFINE SYS$ERROR _NLA0:
2816 $   DEFINE SYS$OUTPUT _NLA0:
2817 $   on error then continue
2818 $   on warning then continue
2819 $   'Checkcc' temp.c
2820 $   If (Needs_Opt.eqs."Yes")
2821 $   THEN
2822 $     link temp.obj,temp.opt/opt
2823 $   else
2824 $     link temp.obj
2825 $   endif
2826 $   teststatus = f$extract(9,1,$status)
2827 $   DEASSIGN SYS$OUTPUT
2828 $   DEASSIGN SYS$ERROR
2829 $   if (teststatus.nes."1")
2830 $   THEN
2831 $     perl_d_gethent="undef"
2832 $   ELSE
2833 $     perl_d_gethent="define"
2834 $   ENDIF
2835 $ ELSE
2836 $ perl_d_gethent="undef"
2837 $ ENDIF
2838 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
2839 $!
2840 $! Check for getnetent
2841 $!
2842 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2843 $ THEN
2844 $ OS
2845 $ WS "#ifdef __DECC
2846 $ WS "#include <stdlib.h>
2847 $ WS "#endif
2848 $ WS "#include <stdio.h>
2849 $ if ("''Has_Socketshr'".eqs."T")
2850 $ THEN
2851 $  WS "#include <socketshr.h>"
2852 $ else
2853 $  WS "#include <netdb.h>
2854 $ endif
2855 $ WS "int main()
2856 $ WS "{"
2857 $ WS "getnetent();
2858 $ WS "exit(0);
2859 $ WS "}"
2860 $ CS
2861 $   DEFINE SYS$ERROR _NLA0:
2862 $   DEFINE SYS$OUTPUT _NLA0:
2863 $   on error then continue
2864 $   on warning then continue
2865 $   'Checkcc' temp.c
2866 $   If (Needs_Opt.eqs."Yes")
2867 $   THEN
2868 $     link temp.obj,temp.opt/opt
2869 $   else
2870 $     link temp.obj
2871 $   endif
2872 $   teststatus = f$extract(9,1,$status)
2873 $   DEASSIGN SYS$OUTPUT
2874 $   DEASSIGN SYS$ERROR
2875 $   if (teststatus.nes."1")
2876 $   THEN
2877 $     perl_d_getnent="undef"
2878 $   ELSE
2879 $     perl_d_getnent="define"
2880 $   ENDIF
2881 $ ELSE
2882 $ perl_d_getnent="undef"
2883 $ ENDIF
2884 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
2885 $!
2886 $! Check for getprotoent
2887 $!
2888 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2889 $ THEN
2890 $ OS
2891 $ WS "#ifdef __DECC
2892 $ WS "#include <stdlib.h>
2893 $ WS "#endif
2894 $ WS "#include <stdio.h>
2895 $ if ("''Has_Socketshr'".eqs."T")
2896 $ THEN
2897 $  WS "#include <socketshr.h>"
2898 $ else
2899 $  WS "#include <netdb.h>
2900 $ endif
2901 $ WS "int main()
2902 $ WS "{"
2903 $ WS "getprotoent();
2904 $ WS "exit(0);
2905 $ WS "}"
2906 $ CS
2907 $   DEFINE SYS$ERROR _NLA0:
2908 $   DEFINE SYS$OUTPUT _NLA0:
2909 $   on error then continue
2910 $   on warning then continue
2911 $   'Checkcc' temp.c
2912 $   If (Needs_Opt.eqs."Yes")
2913 $   THEN
2914 $     link temp.obj,temp.opt/opt
2915 $   else
2916 $     link temp.obj
2917 $   endif
2918 $   teststatus = f$extract(9,1,$status)
2919 $   DEASSIGN SYS$OUTPUT
2920 $   DEASSIGN SYS$ERROR
2921 $   if (teststatus.nes."1")
2922 $   THEN
2923 $     perl_d_getpent="undef"
2924 $   ELSE
2925 $     perl_d_getpent="define"
2926 $   ENDIF
2927 $ ELSE
2928 $ perl_d_getpent="undef"
2929 $ ENDIF
2930 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
2931 $!
2932 $! Check for getservent
2933 $!
2934 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2935 $ THEN
2936 $ OS
2937 $ WS "#ifdef __DECC
2938 $ WS "#include <stdlib.h>
2939 $ WS "#endif
2940 $ WS "#include <stdio.h>
2941 $ if ("''Has_Socketshr'".eqs."T")
2942 $ THEN
2943 $  WS "#include <socketshr.h>"
2944 $ else
2945 $  WS "#include <netdb.h>
2946 $ endif
2947 $ WS "int main()
2948 $ WS "{"
2949 $ WS "getservent();
2950 $ WS "exit(0);
2951 $ WS "}"
2952 $ CS
2953 $   DEFINE SYS$ERROR _NLA0:
2954 $   DEFINE SYS$OUTPUT _NLA0:
2955 $   on error then continue
2956 $   on warning then continue
2957 $   'Checkcc' temp.c
2958 $   If (Needs_Opt.eqs."Yes")
2959 $   THEN
2960 $     link temp.obj,temp.opt/opt
2961 $   else
2962 $     link temp.obj
2963 $   endif
2964 $   teststatus = f$extract(9,1,$status)
2965 $   DEASSIGN SYS$OUTPUT
2966 $   DEASSIGN SYS$ERROR
2967 $   if (teststatus.nes."1")
2968 $   THEN
2969 $     perl_d_getsent="undef"
2970 $   ELSE
2971 $     perl_d_getsent="define"
2972 $   ENDIF
2973 $ ELSE
2974 $ perl_d_getsent="undef"
2975 $ ENDIF
2976 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
2977 $!
2978 $! Check for socklen_t
2979 $!
2980 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2981 $ THEN
2982 $   OS
2983 $   WS "#ifdef __DECC
2984 $   WS "#include <stdlib.h>
2985 $   WS "#endif
2986 $   WS "#include <stdio.h>
2987 $   IF ("''Has_Socketshr'".eqs."T")
2988 $   THEN
2989 $     WS "#include <socketshr.h>"
2990 $   ELSE
2991 $     WS "#include <netdb.h>
2992 $   ENDIF
2993 $   WS "int main()
2994 $   WS "{"
2995 $   WS "socklen_t x = 16;
2996 $   WS "exit(0);
2997 $   WS "}"
2998 $   CS
2999 $   DEFINE SYS$ERROR _NLA0:
3000 $   DEFINE SYS$OUTPUT _NLA0:
3001 $   on error then continue
3002 $   on warning then continue
3003 $   'Checkcc' temp.c
3004 $   If (Needs_Opt.eqs."Yes")
3005 $   THEN
3006 $     link temp.obj,temp.opt/opt
3007 $   else
3008 $     link temp.obj
3009 $   endif
3010 $   teststatus = f$extract(9,1,$status)
3011 $   DEASSIGN SYS$OUTPUT
3012 $   DEASSIGN SYS$ERROR
3013 $   if (teststatus.nes."1")
3014 $   THEN
3015 $     perl_d_socklen_t="undef"
3016 $   ELSE
3017 $     perl_d_socklen_t="define"
3018 $   ENDIF
3019 $ ELSE
3020 $   perl_d_socklen_t="undef"
3021 $ ENDIF
3022 $ WRITE_RESULT "d_socklen_t is ''perl_d_socklen_t'"
3023 $!
3024 $! Check for pthread_yield
3025 $!
3026 $ if ("''use_threads'".eqs."T")
3027 $ THEN
3028 $ OS
3029 $ WS "#ifdef __DECC
3030 $ WS "#include <stdlib.h>
3031 $ WS "#endif
3032 $ WS "#include <pthread.h>
3033 $ WS "#include <stdio.h>
3034 $ WS "int main()
3035 $ WS "{"
3036 $ WS "pthread_yield();
3037 $ WS "exit(0);
3038 $ WS "}"
3039 $ CS
3040 $   DEFINE SYS$ERROR _NLA0:
3041 $   DEFINE SYS$OUTPUT _NLA0:
3042 $   on error then continue
3043 $   on warning then continue
3044 $   'Checkcc' temp.c
3045 $   teststatus = f$extract(9,1,$status)
3046 $   DEASSIGN SYS$OUTPUT
3047 $   DEASSIGN SYS$ERROR
3048 $   if (teststatus.nes."1")
3049 $   THEN
3050 $     perl_d_pthread_yield="undef"
3051 $   ELSE
3052 $     perl_d_pthread_yield="define"
3053 $   ENDIF
3054 $ ELSE
3055 $   perl_d_pthread_yield="undef"
3056 $ ENDIF
3057 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
3058 $!
3059 $! Check for sched_yield
3060 $!
3061 $ if ("''use_threads'".eqs."T")
3062 $ THEN
3063 $ OS
3064 $ WS "#ifdef __DECC
3065 $ WS "#include <stdlib.h>
3066 $ WS "#endif
3067 $ WS "#include <pthread.h>
3068 $ WS "#include <stdio.h>
3069 $ WS "int main()
3070 $ WS "{"
3071 $ WS "sched_yield();
3072 $ WS "exit(0);
3073 $ WS "}"
3074 $ CS
3075 $   DEFINE SYS$ERROR _NLA0:
3076 $   DEFINE SYS$OUTPUT _NLA0:
3077 $   on error then continue
3078 $   on warning then continue
3079 $   'Checkcc' temp.c
3080 $   teststatus = f$extract(9,1,$status)
3081 $   DEASSIGN SYS$OUTPUT
3082 $   DEASSIGN SYS$ERROR
3083 $   if (teststatus.nes."1")
3084 $   THEN
3085 $     perl_d_sched_yield="undef"
3086 $     perl_sched_yield = " "
3087 $   ELSE
3088 $     perl_d_sched_yield="define"
3089 $     perl_sched_yield = "sched_yield"
3090 $   ENDIF
3091 $ ELSE
3092 $   perl_d_sched_yield="undef"
3093 $   perl_sched_yield = " "
3094 $ ENDIF
3095 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
3096 $ WRITE_RESULT "sched_yield is ''perl_sched_yield'"
3097 $!
3098 $! Check for generic pointer size
3099 $!
3100 $ OS
3101 $ WS "#ifdef __DECC
3102 $ WS "#include <stdlib.h>
3103 $ WS "#endif
3104 $ WS "#include <stdio.h>
3105 $ WS "int main()
3106 $ WS "{"
3107 $ WS "int foo;
3108 $ WS "foo = sizeof(char *);
3109 $ WS "printf(""%d\n"", foo);
3110 $ WS "exit(0);
3111 $ WS "}"
3112 $ CS
3113 $ DEFINE SYS$ERROR _NLA0:
3114 $ DEFINE SYS$OUTPUT _NLA0:
3115 $ ON ERROR THEN CONTINUE
3116 $ ON WARNING THEN CONTINUE
3117 $ 'Checkcc' temp.c
3118 $ If (Needs_Opt.eqs."Yes")
3119 $ THEN
3120 $   link temp.obj,temp.opt/opt
3121 $ ELSE
3122 $   link temp.obj
3123 $ ENDIF
3124 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3125 $ DEASSIGN SYS$OUTPUT
3126 $ DEASSIGN SYS$ERROR
3127 $ DEFINE SYS$ERROR TEMPOUT
3128 $ DEFINE SYS$OUTPUT TEMPOUT
3129 $ mcr []temp.exe
3130 $ CLOSE TEMPOUT
3131 $ DEASSIGN SYS$OUTPUT
3132 $ DEASSIGN SYS$ERROR
3133 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3134 $ READ TEMPOUT line
3135 $ CLOSE TEMPOUT
3136 $ DELETE/NOLOG [-.uu]tempout.lis;
3137 $
3138 $ perl_ptrsize=line
3139 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
3140 $!
3141 $! Check rand48 and its ilk
3142 $!
3143 $ OS
3144 $ WS "#ifdef __DECC
3145 $ WS "#include <stdlib.h>
3146 $ WS "#endif
3147 $ WS "#include <stdio.h>
3148 $ WS "int main()
3149 $ WS "{"
3150 $ WS "srand48(12L);"
3151 $ WS "exit(0);
3152 $ WS "}"
3153 $ CS
3154 $!
3155 $   DEFINE SYS$ERROR _NLA0:
3156 $   DEFINE SYS$OUTPUT _NLA0:
3157 $   ON ERROR THEN CONTINUE
3158 $   ON WARNING THEN CONTINUE
3159 $   'Checkcc' temp
3160 $   If (Needs_Opt.eqs."Yes")
3161 $   THEN
3162 $     link temp,temp.opt/opt
3163 $   else
3164 $     link temp
3165 $   endif
3166 $   teststatus = f$extract(9,1,$status)
3167 $   DEASSIGN SYS$OUTPUT
3168 $   DEASSIGN SYS$ERROR
3169 $   if (teststatus.nes."1")
3170 $   THEN
3171 $     perl_drand01="random()"
3172 $     perl_randseedtype = "unsigned"
3173 $     perl_seedfunc = "srandom"
3174 $   ENDIF
3175 $ OS
3176 $ WS "#ifdef __DECC
3177 $ WS "#include <stdlib.h>
3178 $ WS "#endif
3179 $ WS "#include <stdio.h>
3180 $ WS "int main()
3181 $ WS "{"
3182 $ WS "srandom(12);"
3183 $ WS "exit(0);
3184 $ WS "}"
3185 $ CS
3186 $! copy temp.c sys$output
3187 $!
3188 $   DEFINE SYS$ERROR _NLA0:
3189 $   DEFINE SYS$OUTPUT _NLA0:
3190 $   ON ERROR THEN CONTINUE
3191 $   ON WARNING THEN CONTINUE
3192 $   'Checkcc' temp
3193 $   If (Needs_Opt.eqs."Yes")
3194 $   THEN
3195 $     link temp,temp.opt/opt
3196 $   else
3197 $     link temp
3198 $   endif
3199 $   teststatus = f$extract(9,1,$status)
3200 $   DEASSIGN SYS$OUTPUT
3201 $   DEASSIGN SYS$ERROR
3202 $   if (teststatus.nes."1")
3203 $   THEN
3204 $     perl_drand01="(((float)rand())/((float)RAND_MAX))"
3205 $     perl_randseedtype = "unsigned"
3206 $     perl_seedfunc = "srand"
3207 $   ENDIF
3208 $ WRITE_RESULT "drand01 is ''perl_drand01'"
3209 $!
3210 $ set nover
3211 $! Done with compiler checks. Clean up.
3212 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
3213 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
3214 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
3215 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
3216 $!
3217 $!
3218 $! Some that are compiler or VMS version sensitive
3219 $!
3220 $! Gnu C stuff
3221 $ IF "''Using_Gnu_C'".EQS."Yes"
3222 $ THEN
3223 $   perl_d_attribut="define"
3224 $   perl_vms_cc_type="gcc"
3225 $ ELSE
3226 $   perl_vms_cc_type="cc"
3227 $   perl_d_attribut="undef"
3228 $ ENDIF
3229 $
3230 $! Dec C >= 5.2 and VMS ver >= 7.0
3231 $ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
3232 $ THEN
3233 $ perl_d_bcmp="define"
3234 $ perl_d_gettimeod="define"
3235 $ perl_d_uname="define"
3236 $ perl_d_sigaction="define"
3237 $ perl_d_truncate="define"
3238 $ perl_d_wait4="define"
3239 $ perl_d_index="define"
3240 $ perl_pidtype="pid_t"
3241 $ 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"
3242 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3243 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
3244 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
3245 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
3246 $ 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"
3247 $ 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"
3248 $ perl_sig_num_with_commas=perl_sig_num_init
3249 $ perl_uidtype="uid_t"
3250 $ perl_d_pathconf="define"
3251 $ perl_d_fpathconf="define"
3252 $ perl_d_sysconf="define"
3253 $ perl_d_sigsetjmp="define"
3254 $ ELSE
3255 $ perl_pidtype="unsigned int"
3256 $ perl_d_gettimeod="undef"
3257 $ perl_d_bcmp="undef"
3258 $ perl_d_uname="undef"
3259 $ perl_d_sigaction="undef"
3260 $ perl_d_truncate="undef"
3261 $ perl_d_wait4="undef"
3262 $ perl_d_index="undef"
3263 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
3264 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3265 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
3266 $ perl_sig_name_with_commas = psnwc1 + psnwc2
3267 $ perl_sig_num="0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 6 16 17"",0"
3268 $ perl_sig_num_init="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
3269 $ perl_sig_num_with_commas=perl_sig_num_init
3270 $ perl_uidtype="unsigned int"
3271 $ perl_d_pathconf="undef"
3272 $ perl_d_fpathconf="undef"
3273 $ perl_d_sysconf="undef"
3274 $ perl_d_sigsetjmp="undef"
3275 $ ENDIF
3276 $!
3277 $! Dec C alone
3278 $ IF ("''Using_Dec_C'".EQS."Yes")
3279 $ THEN
3280 $ perl_d_mbstowcs="define"
3281 $ perl_d_mbtowc="define"
3282 $ perl_d_stdiobase="define"
3283 $ perl_d_stdio_ptr_lval="define"
3284 $ perl_d_stdio_cnt_lval="define"
3285 $ perl_d_stdstdio="define"
3286 $ perl_d_wcstombs="define"
3287 $ perl_d_mblen="define"
3288 $ perl_d_mktime="define"
3289 $ perl_d_strcoll="define"
3290 $ perl_d_strxfrm="define"
3291 $ perl_d_wctomb="define"
3292 $ perl_i_locale="define"
3293 $ perl_d_locconv="define"
3294 $ perl_d_setlocale="define"
3295 $ perl_vms_cc_type="decc"
3296 $ ELSE
3297 $ perl_d_mbstowcs="undef"
3298 $ perl_d_mbtowc="undef"
3299 $ perl_d_stdiobase="undef"
3300 $ perl_d_stdio_ptr_lval="undef"
3301 $ perl_d_stdio_cnt_lval="undef"
3302 $ perl_d_stdstdio="undef"
3303 $ perl_d_wcstombs="undef"
3304 $ perl_d_mblen="undef"
3305 $ perl_d_mktime="undef"
3306 $ perl_d_strcoll="undef"
3307 $ perl_d_strxfrm="undef"
3308 $ perl_d_wctomb="undef"
3309 $ perl_i_locale="undef"
3310 $ perl_d_locconv="undef"
3311 $ perl_d_setlocale="undef"
3312 $ ENDIF
3313 $!
3314 $! Vax C stuff
3315 $ if ("''Using_Vax_C'".EQS."Yes")
3316 $ THEN
3317 $ perl_vms_cc_type="vaxc"
3318 $ ENDIF
3319 $!
3320 $! Sockets?
3321 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
3322 $ THEN
3323 $ perl_d_vms_do_sockets="define"
3324 $ perl_d_htonl="define"
3325 $ perl_d_socket="define"
3326 $ perl_d_select="define"
3327 $ perl_netdb_host_type="char *"
3328 $ perl_netdb_hlen_type="int"
3329 $ perl_netdb_name_type="char *"
3330 $ perl_netdb_net_type="long"
3331 $ perl_d_gethbyaddr="define"
3332 $ perl_d_gethbyname="define"
3333 $ perl_d_getnbyaddr="define"
3334 $ perl_d_getnbyname="define"
3335 $ perl_d_getpbynumber="define"
3336 $ perl_d_getpbyname="define"
3337 $ perl_d_getsbyport="define"
3338 $ perl_d_getsbyname="define"
3339 $ perl_d_gethostprotos="define"
3340 $ perl_d_getnetprotos="define"
3341 $ perl_d_getprotoprotos="define"
3342 $ perl_d_getservprotos="define"
3343 $ ELSE
3344 $ perl_d_vms_do_sockets="undef"
3345 $ perl_d_htonl="undef"
3346 $ perl_d_socket="undef"
3347 $ perl_d_select="undef"
3348 $ perl_netdb_host_type="char *"
3349 $ perl_netdb_hlen_type="int"
3350 $ perl_netdb_name_type="char *"
3351 $ perl_netdb_net_type="long"
3352 $ perl_d_gethbyaddr="undef"
3353 $ perl_d_gethbyname="undef"
3354 $ perl_d_getnbyaddr="undef"
3355 $ perl_d_getnbyname="undef"
3356 $ perl_d_getpbynumber="undef"
3357 $ perl_d_getpbyname="undef"
3358 $ perl_d_getsbyport="undef"
3359 $ perl_d_getsbyname="undef"
3360 $ perl_d_gethostprotos="undef"
3361 $ perl_d_getnetprotos="undef"
3362 $ perl_d_getprotoprotos="undef"
3363 $ perl_d_getservprotos="undef"
3364 $ ENDIF
3365 $! Threads
3366 $ if ("''use_threads'".eqs."T")
3367 $ THEN
3368 $   perl_usethreads="define"
3369 $   perl_d_pthreads_created_joinable="define"
3370 $   if ("''VMS_VER'".ges."7.0")
3371 $   THEN
3372 $     perl_d_oldpthreads="undef"
3373 $   ELSE
3374 $     perl_d_oldpthreads="define"
3375 $   ENDIF
3376 $ ELSE
3377 $   perl_d_oldpthreads="undef"
3378 $   perl_usethreads="undef"
3379 $
3380 $   perl_d_pthreads_created_joinable="undef"
3381 $ ENDIF
3382 $!
3383 $! new (5.005_62++) typedefs for primitives
3384 $!
3385 $ perl_ivtype="long"
3386 $ perl_uvtype="unsigned long"
3387 $ perl_i8type="char"
3388 $ perl_u8type="unsigned char"
3389 $ perl_i16type="short"
3390 $ perl_u16type="unsigned short"
3391 $ perl_i32type="int"
3392 $ perl_u32type="unsigned int"
3393 $ perl_i64type="long long"
3394 $ perl_u64type="unsigned long long"
3395 $ perl_nvtype="double"
3396 $!
3397 $ GOTO beyond_type_size_check
3398 $!
3399 $type_size_check:
3400 $!
3401 $! Check for type sizes
3402 $!
3403 $ OS
3404 $ WS "#ifdef __DECC
3405 $ WS "#include <stdlib.h>
3406 $ WS "#endif
3407 $ WS "#include <stdio.h>
3408 $ WS "int main()
3409 $ WS "{"
3410 $ WS "printf(""%d\n"", sizeof(''type'));"
3411 $ WS "exit(0);
3412 $ WS "}"
3413 $ CS
3414 $ DEFINE SYS$ERROR _NLA0:
3415 $ DEFINE SYS$OUTPUT _NLA0:
3416 $ ON ERROR THEN CONTINUE
3417 $ ON WARNING THEN CONTINUE
3418 $ 'Checkcc' temp.c
3419 $ If (Needs_Opt.eqs."Yes")
3420 $ THEN
3421 $   link temp.obj,temp.opt/opt
3422 $ ELSE
3423 $   link temp.obj
3424 $ ENDIF
3425 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3426 $ DEASSIGN SYS$OUTPUT
3427 $ DEASSIGN SYS$ERROR
3428 $ DEFINE SYS$ERROR TEMPOUT
3429 $ DEFINE SYS$OUTPUT TEMPOUT
3430 $ mcr []temp.exe
3431 $ CLOSE TEMPOUT
3432 $ DEASSIGN SYS$OUTPUT
3433 $ DEASSIGN SYS$ERROR
3434 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3435 $ READ TEMPOUT line
3436 $ CLOSE TEMPOUT
3437 $ DELETE/NOLOG [-.uu]tempout.lis;
3438 $ WRITE_RESULT "''size_name' is ''line'"
3439 $ DS
3440 $ RETURN
3441 $!
3442 $beyond_type_size_check:
3443 $!
3444 $ line = ""
3445 $ type = "''perl_ivtype'"
3446 $ size_name = "ivsize"
3447 $ gosub type_size_check
3448 $ perl_ivsize="''line'"
3449 $ IF type .eqs. "long"
3450 $ THEN perl_longsize = "''line'"
3451 $ ELSE
3452 $   type = "long"
3453 $   size_name = "longsize"
3454 $   gosub type_size_check
3455 $   perl_longsize="''line'"
3456 $ ENDIF
3457 $
3458 $ type = "''perl_uvtype'"
3459 $ size_name = "uvsize"
3460 $ gosub type_size_check
3461 $ perl_uvsize="''line'"
3462 $
3463 $ type = "''perl_i8type'"
3464 $ size_name = "i8size"
3465 $ gosub type_size_check
3466 $ perl_i8size="''line'"
3467 $
3468 $ type = "''perl_u8type'"
3469 $ size_name = "u8size"
3470 $ gosub type_size_check
3471 $ perl_u8size="''line'"
3472 $
3473 $ type = "''perl_i16type'"
3474 $ size_name = "i16size"
3475 $ gosub type_size_check
3476 $ perl_i16size="''line'"
3477 $ IF type .eqs. "short"
3478 $ THEN perl_shortsize="''line'"
3479 $ ELSE
3480 $   type = "''perl_i16type'"
3481 $   size_name = "shortsize"
3482 $   gosub type_size_check
3483 $   perl_shortsize="''line'"
3484 $ ENDIF
3485 $
3486 $ type = "''perl_u16type'"
3487 $ size_name = "u16size"
3488 $ gosub type_size_check
3489 $ perl_u16size="''line'"
3490 $
3491 $ type = "''perl_i32type'"
3492 $ size_name = "i32size"
3493 $ gosub type_size_check
3494 $ perl_i32size="''line'"
3495 $ IF type .eqs. "int"
3496 $ THEN perl_intsize="''perl_i32size'"
3497 $ ELSE
3498 $   type = "int"
3499 $   size_name = "intsize"
3500 $   gosub type_size_check
3501 $   perl_intsize="''line'"
3502 $ ENDIF
3503 $
3504 $ type = "''perl_u32type'"
3505 $ size_name = "u32size"
3506 $ gosub type_size_check
3507 $ perl_u32size="''line'"
3508 $
3509 $ type = "''perl_i64type'"
3510 $ size_name = "i64size"
3511 $ gosub type_size_check
3512 $ perl_i64size="''line'"
3513 $
3514 $ type = "''perl_u64type'"
3515 $ size_name = "u64size"
3516 $ gosub type_size_check
3517 $ perl_u64size="''line'"
3518 $!
3519 $ perl_ivdformat="""ld"""
3520 $ perl_uvuformat="""lu"""
3521 $ perl_uvoformat="""lo"""
3522 $ perl_uvxformat="""lx"""
3523 $!
3524 $! Finally the composite ones. All config
3525 $ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3526 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3527 $ perl_myhostname="''myhostname'"
3528 $ perl_mydomain="''mydomain'"
3529 $ perl_perladmin="''perladmin'"
3530 $ perl_cf_email="''cf_email'"
3531 $ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
3532 $ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3533 $ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
3534 $ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
3535 $ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
3536 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
3537 $ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3538 $ if "''Using_Dec_C'" .eqs. "Yes"
3539 $ THEN
3540 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
3541 $ ELSE
3542 $   IF "''Using_Vax_C'" .eqs. "Yes"
3543 $   THEN
3544 $     perl_ccflags="/Include=[]/Obj=''perl_obj_ext'/NoList''cc_flags'"
3545 $   ENDIF
3546 $ ENDIF
3547 $ if use_vmsdebug_perl .eqs. "Y"
3548 $ then
3549 $     perl_optimize="/Debug/NoOpt"
3550 $     perl_dbgprefix = "DBG"
3551 $ else
3552 $     perl_optimize= ""
3553 $     perl_dbgprefix = ""
3554 $ endif
3555 $!
3556 $! Finally clean off any leading zeros from the patchlevel or subversion
3557 $ perl_patchlevel = perl_patchlevel + 0
3558 $ perl_subversion = perl_subversion + 0
3559 $!
3560 $! Okay, we've got everything configured. Now go write out a config.sh.
3561 $ open/write CONFIGSH [-]config.sh
3562 $ WC := "write CONFIGSH"
3563 $!
3564 $ WC "# This file generated by Configure.COM on a VMS system."
3565 $ WC "# Time: " + perl_cf_time
3566 $ WC ""
3567 $ WC "CONFIGDOTSH=true"
3568 $ WC "package='" + perl_package + "'"
3569 $ WC "d_nv_preserves_uv='" + perl_d_nv_preserves_uv + "'"
3570 $ WC "use5005threads='" + perl_use5005threads + "'"
3571 $ WC "useithreads='" + perl_useithreads + "'"
3572 $ WC "CONFIG='" + perl_config + "'"
3573 $ WC "cf_time='" + perl_cf_time + "'"
3574 $ WC "cf_by='" + perl_cf_by+ "'"
3575 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
3576 $ WC "ccdlflags='" + perl_ccdlflags + "'"
3577 $ WC "cccdlflags='" + perl_cccdlflags + "'"
3578 $ WC "mab='" + perl_mab + "'"
3579 $ WC "libpth='" + perl_libpth + "'"
3580 $ WC "ld='" + perl_ld + "'"
3581 $ WC "lddlflags='" + perl_lddlflags + "'"
3582 $ WC "ranlib='" + perl_ranlib + "'"
3583 $ WC "ar='" + perl_ar + "'"
3584 $ WC "eunicefix='" + perl_eunicefix + "'"
3585 $ WC "hint='" + perl_hint +"'"
3586 $ WC "hintfile='" + perl_hintfile + "'"
3587 $ WC "shrplib='" + perl_shrplib + "'"
3588 $ WC "usemymalloc='" + perl_usemymalloc + "'"
3589 $ WC "usevfork='" + perl_usevfork + "'"
3590 $ WC "useposix='false'"
3591 $ WC "spitshell='write sys$output '"
3592 $ WC "dlsrc='dl_vms.c'"
3593 $ WC "binexp='" + perl_binexp + "'"
3594 $ WC "man1ext='" + perl_man1ext + "'"
3595 $ WC "man3ext='" + perl_man3ext + "'"
3596 $ WC "arch='" + perl_arch + "'"
3597 $ WC "archname='" + perl_archname + "'"
3598 $ WC "osvers='" + perl_osvers + "'"
3599 $ WC "prefix='" + perl_prefix + "'"
3600 $ WC "builddir='" + perl_builddir + "'"
3601 $ WC "installbin='" + perl_installbin + "'"
3602 $ WC "installscript='" + perl_installscript + "'"
3603 $ WC "installman1dir='" + perl_installman1dir + "'"
3604 $ WC "installman3dir='" + perl_installman3dir + "'"
3605 $ WC "installprivlib='" + perl_installprivlib + "'"
3606 $ WC "installarchlib='" + perl_installarchlib + "'"
3607 $ WC "installsitelib='" + perl_installsitelib + "'"
3608 $ WC "installsitearch='" + perl_installsitearch + "'"
3609 $ WC "path_sep='" + perl_path_sep + "'"
3610 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
3611 $ WC "d_attribut='" + perl_d_attribut + "'"
3612 $ WC "cc='" + perl_cc + "'"
3613 $ WC "ccflags='" + perl_ccflags + "'"
3614 $ WC "optimize='" + perl_optimize + "'"
3615 $ WC "dbgprefix='" + perl_dbgprefix + "'"
3616 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
3617 $ WC "d_socket='" + perl_d_socket + "'"
3618 $ WC "d_sockpair='" + perl_d_sockpair + "'"
3619 $ WC "d_gethent='" + perl_d_gethent + "'"
3620 $ WC "d_getsent='" + perl_d_getsent + "'"
3621 $ WC "d_socklen_t='" + perl_d_socklen_t + "'"
3622 $ WC "d_select='" + perl_d_select + "'"
3623 $ WC "i_niin='" + perl_i_niin + "'"
3624 $ WC "i_netinettcp='" + perl_i_netinettcp + "'"
3625 $ WC "i_neterrno='" + perl_i_neterrno + "'"
3626 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
3627 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
3628 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
3629 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
3630 $ WC "d_locconv='" + perl_d_locconv + "'"
3631 $ WC "d_setlocale='" + perl_d_setlocale + "'"
3632 $ WC "i_locale='" + perl_i_locale + "'"
3633 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
3634 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
3635 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
3636 $ WC "d_wctomb='" + perl_d_wctomb + "'"
3637 $ WC "d_mblen='" + perl_d_mblen + "'"
3638 $ WC "d_mktime='" + perl_d_mktime + "'"
3639 $ WC "d_strcoll='" + perl_d_strcoll + "'"
3640 $ WC "d_strxfrm='" + perl_d_strxfrm  + "'"
3641 $ WC "ldflags='" + perl_ldflags + "'"
3642 $ WC "dlobj='" + perl_dlobj + "'"
3643 $ WC "obj_ext='" + perl_obj_ext + "'"
3644 $ WC "so='" + perl_so + "'"
3645 $ WC "dlext='" + perl_dlext + "'"
3646 $ WC "exe_ext='" + perl_exe_ext + "'"
3647 $ WC "lib_ext='" + perl_lib_ext + "'"
3648 $ WC "myhostname='" + perl_myhostname + "'"
3649 $ WC "mydomain='" + perl_mydomain + "'"
3650 $ WC "perladmin='" + perl_perladmin + "'"
3651 $ WC "cf_email='" + perl_cf_email + "'"
3652 $ WC "myuname='" + perl_myuname + "'"
3653 $ WC "alignbytes='" + perl_alignbytes + "'"
3654 $ WC "osname='" + perl_osname + "'"
3655 $ WC "d_archlib='" + perl_d_archlib + "'"
3656 $ WC "archlibexp='" + perl_archlibexp + "'"
3657 $ WC "archlib='" + perl_archlib + "'"
3658 $ WC "archname='" + perl_archname + "'"
3659 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
3660 $ WC "cppstdin='" + perl_cppstdin + "'"
3661 $ WC "cppminus='" + perl_cppminus + "'"
3662 $ WC "d_bcmp='" + perl_d_bcmp + "'"
3663 $ WC "d_bcopy='" + perl_d_bcopy + "'"
3664 $ WC "d_bzero='" + perl_d_bzero + "'"
3665 $ WC "d_castneg='" + perl_d_castneg + "'"
3666 $ WC "castflags='" + perl_castflags + "'"
3667 $ WC "d_chsize='" + perl_d_chsize + "'"
3668 $ WC "d_const='" + perl_d_const + "'"
3669 $ WC "d_crypt='" + perl_d_crypt + "'"
3670 $ WC "byteorder='" + perl_byteorder + "'"
3671 $ WC "full_csh='" + perl_full_csh + "'"
3672 $ WC "d_csh='" + perl_d_csh + "'"
3673 $ WC "d_dup2='" + perl_d_dup2 + "'"
3674 $ WC "d_fchmod='" + perl_d_fchmod + "'"
3675 $ WC "d_fchown='" + perl_d_fchown + "'"
3676 $ WC "d_fcntl='" + perl_d_fcntl + "'"
3677 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
3678 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
3679 $ WC "d_flock='" + perl_d_flock + "'"
3680 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
3681 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
3682 $ WC "d_getgrps='" + perl_d_getgrps + "'"
3683 $ WC "d_setgrps='" + perl_d_setgrps + "'"
3684 $ WC "d_uname='" + perl_d_uname + "'"
3685 $ WC "d_getprior='" + perl_d_getprior + "'"
3686 $ WC "d_killpg='" + perl_d_killpg + "'"
3687 $ WC "d_link='" + perl_d_link + "'"
3688 $ WC "d_lstat='" + perl_d_lstat + "'"
3689 $ WC "d_lockf='" + perl_d_lockf + "'"
3690 $ WC "d_memcmp='" + perl_d_memcmp + "'"
3691 $ WC "d_memcpy='" + perl_d_memcpy + "'"
3692 $ WC "d_memmove='" + perl_d_memmove + "'"
3693 $ WC "d_memset='" + perl_d_memset + "'"
3694 $ WC "d_mkdir='" + perl_d_mkdir + "'"
3695 $ WC "d_msg='" + perl_d_msg + "'"
3696 $ WC "d_open3='" + perl_d_open3 + "'"
3697 $ WC "d_poll='" + perl_d_poll + "'"
3698 $ WC "d_readdir='" + perl_d_readdir + "'"
3699 $ WC "d_seekdir='" + perl_d_seekdir + "'"
3700 $ WC "d_telldir='" + perl_d_telldir + "'"
3701 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
3702 $ WC "d_rename='" + perl_d_rename + "'"
3703 $ WC "d_rmdir='" + perl_d_rmdir + "'"
3704 $ WC "d_sem='" + perl_d_sem + "'"
3705 $ WC "d_setegid='" + perl_d_setegid + "'"
3706 $ WC "d_seteuid='" + perl_d_seteuid + "'"
3707 $ WC "d_setprior='" + perl_d_setprior + "'"
3708 $ WC "d_setregid='" + perl_d_setregid + "'"
3709 $ WC "d_setresgid='" + perl_d_setresgid + "'"
3710 $ WC "d_setreuid='" + perl_d_setreuid + "'"
3711 $ WC "d_setresuid='" + perl_d_setresuid + "'"
3712 $ WC "d_setrgid='" + perl_d_setrgid + "'"
3713 $ WC "d_setruid='" + perl_d_setruid + "'"
3714 $ WC "d_setsid='" + perl_d_setsid + "'"
3715 $ WC "d_shm='" + perl_d_shm + "'"
3716 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
3717 $ WC "d_sigaction='" + perl_d_sigaction + "'"
3718 $ WC "d_statblks='" + perl_d_statblks + "'"
3719 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
3720 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
3721 $ WC "stdio_base='" + perl_stdio_base + "'"
3722 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
3723 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
3724 $ WC "d_strerror='" + perl_d_strerror + "'"
3725 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
3726 $ WC "d_strerrm='" + perl_d_strerrm + "'"
3727 $ WC "d_symlink='" + perl_d_symlink + "'"
3728 $ WC "d_syscall='" + perl_d_syscall + "'"
3729 $ WC "d_system='" + perl_d_system + "'"
3730 $ WC "timetype='" + perl_timetype + "'"
3731 $ WC "d_truncate='" + perl_d_truncate + "'"
3732 $ WC "d_vfork='" + perl_d_vfork + "'"
3733 $ WC "signal_t='" + perl_signal_t + "'"
3734 $ WC "d_volatile='" + perl_d_volatile + "'"
3735 $ WC "d_vprintf='" + perl_d_vprintf + "'"
3736 $ WC "d_charvspr='" + perl_d_charvspr + "'"
3737 $ WC "d_wait4='" + perl_d_wait4 + "'"
3738 $ WC "d_waitpid='" + perl_d_waitpid + "'"
3739 $ WC "i_dirent='" + perl_i_dirent + "'"
3740 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
3741 $ WC "direntrytype='" + perl_direntrytype + "'"
3742 $ WC "i_fcntl='" + perl_i_fcntl + "'"
3743 $ WC "i_grp='" + perl_i_grp + "'"
3744 $ WC "i_limits='" + perl_i_limits + "'"
3745 $ WC "i_memory='" + perl_i_memory + "'"
3746 $ WC "i_ndbm='" + perl_i_ndbm + "'"
3747 $ WC "i_stdarg='" + perl_i_stdarg + "'"
3748 $ WC "i_pwd='" + perl_i_pwd + "'"
3749 $ WC "d_pwquota='" + perl_d_pwquota + "'"
3750 $ WC "d_pwage='" + perl_d_pwage + "'"
3751 $ WC "d_pwchange='" + perl_d_pwchange + "'"
3752 $ WC "d_pwclass='" + perl_d_pwclass + "'"
3753 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
3754 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
3755 $ WC "i_stddef='" + perl_i_stddef + "'"
3756 $ WC "i_stdlib='" + perl_i_stdlib + "'"
3757 $ WC "i_string='" + perl_i_string + "'"
3758 $ WC "i_sysdir='" + perl_i_sysdir + "'"
3759 $ WC "i_sysfile='" + perl_i_sysfile + "'"
3760 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
3761 $ WC "i_sysndir='" + perl_i_sysndir + "'"
3762 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
3763 $ WC "i_sysselct='" + perl_i_sysselct + "'"
3764 $ WC "i_dbm='" + perl_i_dbm + "'"
3765 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
3766 $ WC "i_sfio='" + perl_i_sfio + "'"
3767 $ WC "i_sysstat='" + perl_i_sysstat + "'"
3768 $ WC "i_systimes='" + perl_i_systimes + "'"
3769 $ WC "i_systypes='" + perl_i_systypes + "'"
3770 $ WC "i_sysun='" + perl_i_sysun + "'"
3771 $ WC "i_syswait='" + perl_i_syswait + "'"
3772 $ WC "i_termio='" + perl_i_termio + "'"
3773 $ WC "i_sgtty='" + perl_i_sgtty + "'"
3774 $ WC "i_termios='" + perl_i_termios + "'"
3775 $ WC "i_time='" + perl_i_time + "'"
3776 $ WC "i_systime='" + perl_i_systime + "'"
3777 $ WC "i_systimek='" + perl_i_systimek + "'"
3778 $ WC "i_unistd='" + perl_i_unistd + "'"
3779 $ WC "i_utime='" + perl_i_utime + "'"
3780 $ WC "i_varargs='" + perl_i_varargs + "'"
3781 $ WC "i_vfork='" + perl_i_vfork + "'"
3782 $ WC "prototype='" + perl_prototype + "'"
3783 $ WC "randbits='" + perl_randbits +"'"
3784 $ WC "selecttype='" + perl_selecttype + "'"
3785 $ WC "stdchar='" + perl_stdchar + "'"
3786 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
3787 $ WC "full_sed='" + perl_full_sed + "'"
3788 $ WC "bin='" + perl_bin + "'"
3789 $ WC "binexp='" + perl_binexp + "'"
3790 $ WC "d_alarm='" + perl_d_alarm + "'"
3791 $ WC "d_casti32='" + perl_d_casti32 + "'"
3792 $ WC "d_chown='" + perl_d_chown + "'"
3793 $ WC "d_chroot='" + perl_d_chroot + "'"
3794 $ WC "d_cuserid='" + perl_d_cuserid + "'"
3795 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
3796 $ WC "d_ldbl_dig='" + perl_d_ldbl_dig + "'"
3797 $ WC "d_difftime='" + perl_d_difftime + "'"
3798 $ WC "d_fork='" + perl_d_fork + "'"
3799 $ WC "d_getlogin='" + perl_d_getlogin + "'"
3800 $ WC "d_getppid='" + perl_d_getppid + "'"
3801 $ WC "d_htonl='" + perl_d_htonl + "'"
3802 $ WC "d_nice='" + perl_d_nice + "'"
3803 $ WC "d_pause='" + perl_d_pause + "'"
3804 $ WC "d_pipe='" + perl_d_pipe + "'"
3805 $ WC "d_readlink='" + perl_d_readlink + "'"
3806 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
3807 $ WC "d_strchr='" + perl_d_strchr + "'"
3808 $ WC "d_index='" + perl_d_index + "'"
3809 $ WC "d_strtod='" + perl_d_strtod + "'"
3810 $ WC "d_strtol='" + perl_d_strtol + "'"
3811 $ WC "d_strtoul='" + perl_d_strtoul + "'"
3812 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
3813 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
3814 $ WC "d_times='" + perl_d_times + "'"
3815 $ WC "d_tzname='" + perl_d_tzname + "'"
3816 $ WC "d_umask='" + perl_d_umask + "'"
3817 $ WC "fpostype='" + perl_fpostype + "'"
3818 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
3819 $ WC "i_float='" + perl_i_float + "'"
3820 $ WC "i_math='" + perl_i_math + "'"
3821 $ WC "intsize='" + perl_intsize + "'"
3822 $ WC "longsize='" + perl_longsize + "'"
3823 $ WC "shortsize='" + perl_shortsize + "'"
3824 $ WC "lseektype='" + perl_lseektype + "'"
3825 $ WC "lseeksize='4'"
3826 $ WC "i_values='" + perl_i_values + "'"
3827 $ WC "malloctype='" + perl_malloctype + "'"
3828 $ WC "freetype='" + perl_freetype + "'"
3829 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
3830 $ WC "sh='" + perl_sh + "'"
3831 $ WC "sig_name='" + perl_sig_name + "'"
3832 $ WC "sig_num='" + perl_sig_num + "'"
3833 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
3834 $ WC/symbol tempsym
3835 $ WC "modetype='" + perl_modetype + "'"
3836 $ WC "ssizetype='" + perl_ssizetype + "'"
3837 $ WC "o_nonblock='" + perl_o_nonblock + "'"
3838 $ WC "eagain='" + perl_eagain + "'"
3839 $ WC "rd_nodata='" + perl_rd_nodata + "'"
3840 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
3841 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
3842 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
3843 $ WC "oldarchlib='" + perl_oldarchlib + "'"
3844 $ WC "privlibexp='" + perl_privlibexp + "'"
3845 $ WC "privlib='" + perl_privlib + "'"
3846 $ WC "sitelibexp='" + perl_sitelibexp + "'"
3847 $ WC "sitelib='" + perl_sitelib + "'"
3848 $ WC "sitearchexp='" + perl_sitearchexp + "'"
3849 $ WC "sitearch='" + perl_sitearch + "'"
3850 $ WC "sizetype='" + perl_sizetype + "'"
3851 $ WC "i_sysparam='" + perl_i_sysparam + "'"
3852 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
3853 $ WC "d_dlerror='" + perl_d_dlerror + "'"
3854 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
3855 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
3856 $ WC "d_dosuid='" + perl_d_dosuid + "'"
3857 $ WC "d_inetaton='" + perl_d_inetaton + "'"
3858 $ WC "d_int64_t='" + perl_d_int64_t + "'"
3859 $ WC "d_isascii='" + perl_d_isascii + "'"
3860 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
3861 $ WC "d_pathconf='" + perl_d_pathconf + "'"
3862 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
3863 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
3864 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
3865 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
3866 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
3867 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
3868 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
3869 $ WC "d_setpgid='" + perl_d_setpgid + "'"
3870 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
3871 $ WC "d_sysconf='" + perl_d_sysconf + "'"
3872 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
3873 $ WC "d_getpgid='" + perl_d_getpgid + "'"
3874 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
3875 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
3876 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
3877 $ WC "d_sfio='" + perl_d_sfio + "'"
3878 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
3879 $ WC "usedl='" + perl_usedl + "'"
3880 $ WC "startperl=" + perl_startperl ! This one's special--no enclosing single quotes
3881 $ WC "db_hashtype='" + perl_db_hashtype + "'"
3882 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
3883 $ WC "useperlio='" + perl_useperlio + "'"
3884 $ WC "defvoidused='" + perl_defvoidused + "'"
3885 $ WC "voidflags='" + perl_voidflags + "'"
3886 $ WC "d_eunice='" + perl_d_eunice + "'"
3887 $ WC "libs='" + perl_libs + "'"
3888 $ WC "libc='" + perl_libc + "'"
3889 $ tempstring = "PERL_VERSION='" + "''perl_patchlevel'" + "'"
3890 $ WC tempstring
3891 $ tempstring = "PERL_SUBVERSION='" + "''perl_patchlevel'" + "'"
3892 $ WC tempstring
3893 $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
3894 $ WC tempstring
3895 $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
3896 $ WC tempstring
3897 $ WC "pager='" + perl_pager + "'"
3898 $ WC "uidtype='" + perl_uidtype + "'"
3899 $ WC "gidtype='" + perl_gidtype + "'"
3900 $ WC "usethreads='" + perl_usethreads + "'"
3901 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
3902 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
3903 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
3904 $ WC "i_netdb='" + perl_i_netdb + "'"
3905 $ WC "pidtype='" + perl_pidtype + "'"
3906 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
3907 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
3908 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
3909 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
3910 $ WC "baserev='" + perl_baserev + "'"
3911 $ WC "doublesize='" + perl_doublesize + "'"
3912 $ WC "ptrsize='" + perl_ptrsize + "'"
3913 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
3914 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
3915 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
3916 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
3917 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
3918 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
3919 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
3920 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
3921 $ WC "d_sethent='" + perl_d_sethent + "'"
3922 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
3923 $ WC "d_longdbl='" + perl_d_longdbl + "'"
3924 $ WC "longdblsize='" + perl_longdblsize + "'"
3925 $ WC "d_longlong='" + perl_d_longlong + "'"
3926 $ WC "longlongsize='" + perl_longlongsize + "'"
3927 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
3928 $ WC "d_mkstemps='" + perl_d_mkstemps + "'"
3929 $ WC "d_mkdtemp='" + perl_d_mkdtemp + "'"
3930 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
3931 $ WC "d_setenv='" + perl_d_setenv + "'"
3932 $ WC "d_endhent='" + perl_d_endhent + "'"
3933 $ WC "d_endnent='" + perl_d_endsent + "'"
3934 $ WC "d_endpent='" + perl_d_endpent + "'"
3935 $ WC "d_endsent='" + perl_d_endsent + "'"
3936 $ WC "d_gethent='" + perl_d_gethent + "'"
3937 $ WC "d_getnent='" + perl_d_getsent + "'"
3938 $ WC "d_getpent='" + perl_d_getpent + "'"
3939 $ WC "d_getsent='" + perl_d_getsent + "'"
3940 $ WC "d_sethent='" + perl_d_sethent + "'"
3941 $ WC "d_setnent='" + perl_d_setsent + "'"
3942 $ WC "d_setpent='" + perl_d_setpent + "'"
3943 $ WC "ebcdic='" + perl_ebcdic + "'"
3944 $ WC "d_setsent='" + perl_d_setsent + "'"
3945 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
3946 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
3947 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
3948 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
3949 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
3950 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
3951 $ WC "d_lchown='" + perl_d_lchown + "'"
3952 $ WC "d_union_semun='" + perl_d_union_semun + "'"
3953 $ WC "i_arpainet='" + perl_i_arpainet + "'"
3954 $ WC "d_grpasswd='" + perl_d_grpasswd + "'"
3955 $ WC "d_setgrent='" + perl_d_setgrent + "'"
3956 $ WC "d_getgrent='" + perl_d_getgrent + "'"
3957 $ WC "d_endgrent='" + perl_d_endgrent + "'"
3958 $ WC "d_pwpasswd='" + perl_d_pwpasswd + "'"
3959 $ WC "d_setpwent='" + perl_d_setpwent + "'"
3960 $ WC "d_getpwent='" + perl_d_getpwent + "'"
3961 $ WC "d_endpwent='" + perl_d_endpwent + "'"
3962 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
3963 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
3964 $ WC "extensions='" + perl_extensions + "'"
3965 $ WC "d_mknod='" + perl_d_mknod + "'"
3966 $ WC "devtype='" + perl_devtype + "'"
3967 $ WC "d_gethname='" + perl_d_gethname + "'"
3968 $ WC "d_phostname='" + perl_d_phostname + "'"
3969 $ WC "d_accessx='" + perl_d_accessx + "'"
3970 $ WC "d_eaccess='" + perl_d_eaccess + "'"
3971 $ WC "i_sysaccess='" + perl_i_sysaccess + "'"
3972 $ WC "i_syssecrt='" + perl_i_syssecrt + "'"
3973 $ WC "d_fd_set='" + perl_d_fd_set + "'"
3974 $ WC "d_access='" + perl_d_access + "'"
3975 $ WC "d_msg_ctrunc='" + perl_d_msg_ctrunc + "'"
3976 $ WC "d_msg_dontroute='" + perl_d_msg_dontroute + "'"
3977 $ WC "d_msg_oob='" + perl_d_msg_oob + "'"
3978 $ WC "d_msg_peek='" + perl_d_msg_peek + "'"
3979 $ WC "d_msg_proxy='" + perl_d_msg_proxy + "'"
3980 $ WC "d_scm_rights='" + perl_d_scm_rights + "'"
3981 $ WC "d_sendmsg='" + perl_d_sendmsg + "'"
3982 $ WC "d_recvmsg='" + perl_d_recvmsg + "'"
3983 $ WC "d_msghdr_s='" + perl_d_msghdr_s + "'"
3984 $ WC "d_cmsghdr_s='" + perl_d_cmsghdr_s + "'"
3985 $ WC "i_sysuio='" + perl_i_sysuio + "'"
3986 $ WC "d_fseeko='" + perl_d_fseeko + "'"
3987 $ WC "d_ftello='" + perl_d_ftello + "'"
3988 $ WC "d_readv='" + perl_d_readv + "'"
3989 $ WC "d_writev='" + perl_d_writev + "'"
3990 $ WC "i_machcthr='" + perl_i_machcthr + "'"
3991 $ WC "usemultiplicity='" + perl_usemultiplicity + "'"
3992 $ WC "i_poll='" + perl_i_poll + "'"
3993 $ WC "i_inttypes='" + perl_i_inttypes + "'"
3994 $ WC "d_off64_t='" + perl_d_off64_t + "'"
3995 $ WC "d_fpos64_t='" + perl_d_fpos64_t + "'"
3996 $ WC "use64bits='" + perl_use64bits + "'"
3997 $ WC "d_drand48proto='" + perl_d_drand48proto + "'"
3998 $ WC "d_old_pthread_create_joinable='" + perl_d_old_pthread_create_joinable + "'"
3999 $ WC "old_pthread_create_joinable='" + perl_old_pthread_create_joinable + "'"
4000 $ WC "drand01='" + perl_drand01 + "'"
4001 $ WC "randseedtype='" + perl_randseedtype + "'"
4002 $ WC "seedfunc='" + perl_seedfunc + "'"
4003 $ WC "sig_num_init='" + perl_sig_num_with_commas + "'"
4004 $ WC "i_sysmount='" + perl_i_sysmount + "'"
4005 $ WC "d_fstatfs='" + perl_d_fstatfs + "'"
4006 $ WC "d_memchr='" + perl_d_memchr + "'"
4007 $ WC "d_statfsflags='" + perl_d_statfsflags + "'"
4008 $ WC "fflushNULL='define'"
4009 $ WC "fflushall='undef'"
4010 $ WC "d_stdio_stream_array='undef'"
4011 $ WC "i_sysstatvfs='" + perl_i_sysstatvfs + "'"
4012 $ WC "i_syslog='" + perl_i_syslog + "'"
4013 $ WC "i_sysmode='" + perl_i_sysmode + "'"
4014 $ WC "i_sysutsname='" + perl_i_sysutsname + "'"
4015 $ WC "i_machcthreads='" + perl_i_machcthreads + "'"
4016 $ WC "i_pthread='" + perl_i_pthread + "'"
4017 $ WC "d_fstatvfs='" + perl_d_fstatvfs + "'"
4018 $ WC "i_mntent='" + perl_i_mntent + "'"
4019 $ WC "d_getmntent='" + perl_d_getmntent + "'"
4020 $ WC "d_hasmntopt='" + perl_d_hasmntopt + "'"
4021 $ WC "d_telldirproto='" + perl_d_telldirproto + "'"
4022 $ WC "d_madvise='" + perl_d_madvise + "'"
4023 $ WC "d_msync='" + perl_d_msync + "'"
4024 $ WC "d_mprotect='" + perl_d_mprotect + "'"
4025 $ WC "d_munmap='" + perl_d_munmap + "'"
4026 $ WC "d_mmap='" + perl_d_mmap + "'"
4027 $ WC "i_sysmman='" + perl_i_sysmman + "'"
4028 $ WC "installusrbinperl='" + perl_installusrbinperl + "'"
4029 $! WC "selectminbits='" + perl_selectminbits + "'"
4030 $ WC "crosscompile='" + perl_crosscompile + "'"
4031 $ WC "multiarch='" + perl_multiarch + "'"
4032 $ WC "sched_yield='" + perl_sched_yield + "'"
4033 $ WC "d_strtoull='" + perl_d_strtoull + "'"
4034 $ WC "d_strtouq='" + perl_d_strtouq + "'"
4035 $ WC "d_strtoll='" + perl_d_strtoll + "'"
4036 $ WC "d_strtold='" + perl_d_strtold + "'"
4037 $ WC "usesocks='" + perl_usesocks + "'"
4038 $ WC "d_vendorlib='" + perl_d_vendorlib + "'"
4039 $ WC "vendorlibexp='" + perl_vendorlibexp + "'"
4040 $ WC "d_atolf='" + perl_d_atolf + "'"
4041 $ WC "d_atoll='" + perl_d_atoll + "'"
4042 $ WC "d_bincompat5005='" + perl_d_bincompat + "'"
4043 $ WC "d_endspent='" + perl_d_endspent + "'"
4044 $ WC "d_getspent='" + perl_d_getspent + "'"
4045 $ WC "d_getspnam='" + perl_d_getspnam + "'"
4046 $ WC "d_setspent='" + perl_d_setspent + "'"
4047 $ WC "i_shadow='" + perl_i_shadow + "'"
4048 $ WC "i_socks='" + perl_i_socks + "'"
4049 $ WC "d_PRIfldbl='" + perl_d_PRIfldbl + "'"
4050 $ WC "d_PRIgldbl='" + perl_d_PRIgldbl + "'"
4051 $ WC "d_PRId64='" + perl_d_PRId64 + "'"
4052 $ WC "d_PRIu64='" + perl_d_PRIu64 + "'"
4053 $ WC "d_PRIo64='" + perl_d_PRIo64 + "'"
4054 $ WC "d_PRIx64='" + perl_d_PRIx64 + "'"
4055 $ WC "sPRIfldbl='" + perl_sPRIfldbl + "'"
4056 $ WC "sPRIgldbl='" + perl_sPRIgldbl + "'"
4057 $ WC "sPRId64='" + perl_sPRId64 + "'"
4058 $ WC "sPRIu64='" + perl_sPRIu64 + "'"
4059 $ WC "sPRIo64='" + perl_sPRIo64 + "'"
4060 $ WC "sPRIx64='" + perl_sPRIx64 + "'"
4061 $ WC "d_llseek='" + perl_d_llseek + "'"
4062 $ WC "d_iconv='" + perl_d_iconv +"'"
4063 $ WC "i_iconv='" + perl_i_iconv +"'"
4064 $ WC "inc_version_list_init='""""'"
4065 $ WC "uselargefiles='" + perl_uselargefiles + "'"
4066 $ WC "uselongdouble='" + perl_uselongdouble + "'"
4067 $ WC "usemorebits='" + perl_usemorebits + "'"
4068 $ WC "d_quad='" + perl_d_quad + "'"
4069 $ if (use_64bit .eqs. "Y")
4070 $ THEN
4071 $   WC "quadtype='" + perl_quadtype + "'"
4072 $   WC "uquadtype='" + perl_uquadtype + "'"
4073 $ ENDIF
4074 $ WC "d_fs_data_s='" + perl_d_fs_data_s + "'"
4075 $ WC "d_getcwd='" + perl_d_getcwd + "'"
4076 $ WC "d_getmnt='" + perl_d_getmnt + "'"
4077 $ WC "d_sqrtl='" + perl_d_sqrtl + "'"
4078 $ WC "d_statfs_f_flags='" + perl_d_statfs_f_flags + "'"
4079 $ WC "d_statfs_s='" + perl_d_statfs_s + "'"
4080 $ WC "d_ustat='" + perl_d_ustat + "'"
4081 $ WC "i_sysstatfs='" + perl_i_sysstatfs + "'"
4082 $ WC "i_sysvfs='" + perl_i_sysvfs + "'"
4083 $ WC "i_ustat='" + perl_i_ustat + "'"
4084 $ WC "ivtype='" + perl_ivtype + "'"
4085 $ WC "uvtype='" + perl_uvtype + "'"
4086 $ WC "i8type='" + perl_i8type + "'"
4087 $ WC "i16type='" + perl_i16type + "'"
4088 $ WC "u8type='" + perl_u8type + "'"
4089 $ WC "u16type='" + perl_u16type + "'"
4090 $ WC "i32type='" + perl_i32type + "'"
4091 $ WC "u32type='" + perl_u32type + "'"
4092 $ WC "i64type='" + perl_i64type + "'"
4093 $ WC "u64type='" + perl_u64type + "'"
4094 $ WC "nvtype='" + perl_nvtype + "'"
4095 $ WC "ivsize='" + perl_ivsize + "'"
4096 $ WC "uvsize='" + perl_uvsize + "'"
4097 $ WC "i8size='" + perl_i8size + "'"
4098 $ WC "u8size='" + perl_u8size + "'"
4099 $ WC "i16size='" + perl_i16size + "'"
4100 $ WC "u16size='" + perl_u16size + "'"
4101 $ WC "i32size='" + perl_i32size + "'"
4102 $ WC "u32size='" + perl_u32size + "'"
4103 $ WC "i64size='" + perl_i64size + "'"
4104 $ WC "u64size='" + perl_u64size + "'"
4105 $ WC "ivdformat='" + perl_ivdformat + "'"
4106 $ WC "uvuformat='" + perl_uvuformat + "'"
4107 $ WC "uvoformat='" + perl_uvoformat + "'"
4108 $ WC "uvxformat='" + perl_uvxformat + "'"
4109 $!
4110 $! ##WRITE NEW CONSTANTS HERE##
4111 $!
4112 $ Close CONFIGSH
4113 $
4114 $! Okay, we've gotten here. Build munchconfig and run it
4115 $ 'Perl_CC' munchconfig.c
4116 $ If (Needs_Opt.eqs."Yes")
4117 $ THEN
4118 $   open/write OPTCHAN []munchconfig.opt
4119 $   IF ("''using_gnu_c'".eqs."Yes")
4120 $   THEN
4121 $     write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
4122 $   endif
4123 $   write OPTCHAN "Sys$Share:VAXCRTL/Share"
4124 $   Close OPTCHAN
4125 $   link munchconfig.obj,munchconfig.opt/opt
4126 $   delete munchconfig.opt;*
4127 $ else
4128 $   link munchconfig.obj
4129 $ endif
4130 $ echo ""
4131 $ echo "Writing config.h"
4132 $ !
4133 $ ! we need an fdl file
4134 $ CREATE [-]CONFIG.FDL
4135 RECORD
4136   FORMAT STREAM_LF
4137 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
4138 $ ! First spit out the header info with the local defines (to get
4139 $ ! around the 255 character command line limit)
4140 $ OPEN/APPEND CONFIG [-]config.local
4141 $ if use_debugging_perl.eqs."Y"
4142 $ THEN
4143 $   WRITE CONFIG "#define DEBUGGING"
4144 $ ENDIF
4145 $ if use_two_pot_malloc.eqs."Y"
4146 $ THEN
4147 $    WRITE CONFIG "#define TWO_POT_OPTIMIZE"
4148 $ endif
4149 $ if mymalloc.eqs."Y"
4150 $ THEN
4151 $    WRITE CONFIG "#define EMBEDMYMALLOC"
4152 $ ENDIF
4153 $ if use_pack_malloc.eqs."Y"
4154 $ THEN
4155 $    WRITE CONFIG "#define PACK_MALLOC"
4156 $ endif
4157 $ if use_debugmalloc.eqs."Y"
4158 $ THEN
4159 $    write config "#define DEBUGGING_MSTATS"
4160 $ ENDIF
4161 $ if "''Using_Gnu_C'" .eqs."Yes"
4162 $ THEN
4163 $   WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
4164 $ ENDIF
4165 $ if "''Has_Dec_C_Sockets'".eqs."T"
4166 $ THEN
4167 $    WRITE CONFIG "#define VMS_DO_SOCKETS"
4168 $    WRITE CONFIG "#define DECCRTL_SOCKETS"
4169 $ ENDIF
4170 $ if "''Has_Socketshr'".eqs."T"
4171 $ THEN
4172 $    WRITE CONFIG "#define VMS_DO_SOCKETS"
4173 $ ENDIF
4174 $! This is VMS-specific for now
4175 $ WRITE CONFIG "#''perl_d_setenv' HAS_SETENV"
4176 $ if d_alwdeftype.eqs."Y"
4177 $ THEN
4178 $    WRITE CONFIG "#define SECURE_INTERNAL_GETENV"
4179 $ ELSE
4180 $    WRITE CONFIG "#undef SECURE_INTERNAL_GETENV"
4181 $ ENDIF
4182 $ if d_secintgenv.eqs."Y"
4183 $ THEN
4184 $    WRITE CONFIG "#define ALWAYS_DEFTYPES"
4185 $ ELSE
4186 $    WRITE CONFIG "#undef ALWAYS_DEFTYPES"
4187 $ ENDIF
4188 $ if use_64bit.eqs."Y"
4189 $ THEN
4190 $    WRITE CONFIG "#define USE_64_BITS"
4191 $    WRITE CONFIG "#define USE_LONG_DOUBLE"
4192 $ ENDIF
4193 $ WRITE CONFIG "#define HAS_ENVGETENV"
4194 $ WRITE CONFIG "#define PERL_EXTERNAL_GLOB"
4195 $ CLOSE CONFIG
4196 $!
4197 $! Now build the normal config.h
4198 $ define/user sys$output [-]config.main
4199 $ mcr []munchconfig [-]config.sh [-]config_h.sh
4200 $ ! Concatenate them together
4201 $ copy [-]config.local,[-]config.main [-]config.h
4202 $! Clean up
4203 $ DELETE/NOLOG [-]CONFIG.MAIN;*
4204 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
4205 $ DELETE/NOLOG [-]CONFIG.FDL;*
4206 $!
4207 $ if "''Using_Dec_C'" .eqs."Yes"
4208 $ THEN
4209 $ DECC_REPLACE = "DECC=decc=1"
4210 $ ELSE
4211 $ DECC_REPLACE = "DECC="
4212 $ ENDIF
4213 $ if "''Using_Gnu_C'" .eqs."Yes"
4214 $ THEN
4215 $ GNUC_REPLACE = "GNUC=gnuc=1"
4216 $ ELSE
4217 $ GNUC_REPLACE = "GNUC="
4218 $ ENDIF
4219 $ if "''Has_Dec_C_Sockets'" .eqs."T"
4220 $ THEN
4221 $   SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
4222 $ ELSE
4223 $   if "''Has_Socketshr'" .eqs."T"
4224 $   THEN
4225 $     SOCKET_REPLACE = "SOCKET=SOCKETSHR_SOCKETS=1"
4226 $   ELSE
4227 $     SOCKET_REPLACE = "SOCKET="
4228 $   ENDIF
4229 $ ENDIF
4230 $ IF ("''Use_Threads'".eqs."T")
4231 $ THEN
4232 $   if ("''VMS_VER'".LES."6.2")
4233 $   THEN
4234 $     THREAD_REPLACE = "THREAD=OLDTHREADED=1"
4235 $   ELSE
4236 $     THREAD_REPLACE = "THREAD=THREADED=1"
4237 $   ENDIF
4238 $ ELSE
4239 $   THREAD_REPLACE = "THREAD="
4240 $ ENDIF
4241 $ if mymalloc.eqs."Y"
4242 $ THEN
4243 $   MALLOC_REPLACE = "MALLOC=MALLOC=1"
4244 $ ELSE
4245 $   MALLOC_REPLACE = "MALLOC="
4246 $ ENDIF
4247 $ if f$getsyi("HW_MODEL").ge.1024
4248 $ THEN
4249 $ ARCH_TYPE = "ARCH-TYPE=__AXP__"
4250 $ ELSE
4251 $ ARCH_TYPE = "ARCH-TYPE=__VAX__"
4252 $ ENDIF
4253 $ echo "Writing DESCRIP.MMS"
4254 $!set ver
4255 $ define/user sys$output [-]descrip.mms
4256 $ 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'"
4257 $ echo "Extracting Build_Ext.Com"
4258 $ Create Sys$Disk:[-]Build_Ext.Com
4259 $ Deck/Dollar="$EndOfTpl$"
4260 $!++ Build_Ext.Com
4261 $!   NOTE: This file is extracted as part of the VMS configuration process.
4262 $!   Any changes made to it directly will be lost.  If you need to make any
4263 $!   changes, please edit the template in [.vms]SubConfigure.Com instead.
4264 $    def = F$Environment("Default")
4265 $    exts1 = F$Edit(p1,"Compress")
4266 $    p2 = F$Edit(p2,"Upcase,Compress,Trim")
4267 $    If F$Locate("MCR ",p2).eq.0 Then p2 = F$Extract(3,255,p2)
4268 $    miniperl = "$" + F$Search(F$Parse(p2,".Exe"))
4269 $    makeutil = p3
4270 $    if f$type('p3') .nes. "" then makeutil = 'p3'
4271 $    targ = F$Edit(p4,"Lowercase")
4272 $    i = 0
4273 $ next_ext:
4274 $    ext = F$Element(i," ",p1)
4275 $    If ext .eqs. " " Then Goto done
4276 $    Define/User Perl_Env_Tables CLISYM_LOCAL
4277 $    miniperl
4278      ($extdir = $ENV{'ext'}) =~ s/::/./g;
4279      if ($extdir =~ /^vms/i) { $extdir =~ s/vms/.vms.ext/i; }
4280      else                    { $extdir = ".ext.$extdir";   }
4281      ($ENV{'extdir'} = "[$extdir]");
4282      ($ENV{'up'} = ('-') x ($extdir =~ tr/././));
4283 $    Set Default &extdir
4284 $    redesc = 0
4285 $    If F$Locate("clean",targ) .eqs. F$Length(targ)
4286 $    Then
4287 $      Write Sys$Output "Building ''ext' . . ."
4288 $      On Error Then Goto done
4289 $      If F$Search("Descrip.MMS") .eqs. ""
4290 $      Then
4291 $        redesc = 1
4292 $      Else
4293 $        If F$CvTime(F$File("Descrip.MMS","rdt")) .lts. -
4294             F$CvTime(F$File("Makefile.PL","rdt")) Then redesc = 1
4295 $      EndIf
4296 $    Else
4297 $      Write Sys$Output "''targ'ing ''ext' . . ."
4298 $      On Error Then Continue
4299 $    EndIf
4300 $    If redesc Then -
4301        miniperl "-I[''up'.lib]" Makefile.PL "INST_LIB=[''up'.lib]" "INST_ARCHLIB=[''up'.lib]"
4302 $    makeutil 'targ'
4303 $    i = i + 1
4304 $    Set Def &def
4305 $    Goto next_ext
4306 $ done:
4307 $    sts = $Status
4308 $    Set Def &def
4309 $    Exit sts
4310 $!-- Build_Ext.Com
4311 $EndOfTpl$
4312 $
4313 $! set nover
4314 $!
4315 $! Clean up after ourselves
4316 $ delete/nolog munchconfig.exe;*
4317 $ delete/nolog munchconfig.obj;*