vms/subconfigure.com

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