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