vms/subconfigure.com

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