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