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