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