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