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