vms/subconfigure.com

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