vms/subconfigure.com

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