vms/subconfigure.com

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