vms/subconfigure.com

   1 $! SUBCONFIGURE.COM - build a config.sh for VMS Perl.
   2 $!
   3 $! This .COM file expects to be called by configure.com, and thus expects
   4 $! a few symbols in the environment. Notably:
   5 $!
   6 $!  One of: Using_Dec_C, Using_Vax_C, Using_Gnu_C set to "YES"
   7 $!  Dec_C_Version set to the Dec C version (defaults to 0 if not specified)
   8 $!  Has_Socketshr set to "T" if using socketshr
   9 $!  Has_Dec_C_Sockets set to "T" if using Dec C sockets
  10 $!  Use_Threads set to "T" if they're using threads
  11 $!  C_Compiler_Invoke is the command needed to invoke the C compiler
  12 $!
  13 $! Set Dec_C_Version to something
  14 $ WRITE_RESULT := "WRITE SYS$OUTPUT ""%CONFIG-I-RESULT "" + "
  15 $ Dec_C_Version := "''Dec_C_Version'"
  16 $ Dec_C_Version = Dec_C_Version + 0
  17 $ Vms_Ver := "''f$extract(1,3, f$getsyi(""version""))'"
  18 $ perl_extensions := "''extensions'"
  19 $ if f$length(Mcc) .eq. 0 then Mcc := "cc"
  20 $ MCC = f$edit(mcc, "UPCASE")
  21 $ IF Mcc.eqs."CC
  22 $ THEN
  23 $   C_Compiler_Replace := "CC="
  24 $ ELSE
  25 $   C_Compiler_Replace := "CC=CC=''Mcc'"
  26 $ ENDIF
  27 $ if "''Using_Dec_C'" .eqs. "Yes"
  28 $ THEN
  29 $   Checkcc := "''Mcc'/prefix=all"
  30 $ ELSE
  31 $   Checkcc := "''Mcc'"
  32 $ ENDIF
  33 $ cc_flags = ""
  34 $! Some constant defaults.
  35 $
  36 $ hwname = f$getsyi("HW_NAME")
  37 $ myname = myhostname
  38 $ if "''myname'" .eqs. "" THEN myname = f$trnlnm("SYS$NODE")
  39 $ perl_package="''package'"
  40 $ perl_baserev = "''baserev'"
  41 $ cc_defines=""
  42 $ perl_CONFIG="true"
  43 $ perl_i_netdb="undef"
  44 $ perl_d_gnulibc="undef"
  45 $ perl_cf_by="unknown"
  46 $ perl_ccdlflags=""
  47 $ perl_cccdlflags=""
  48 $ perl_mab=""
  49 $ perl_libpth="/sys$share /sys$library"
  50 $ perl_ld="Link"
  51 $ perl_lddlflags="/Share"
  52 $ perl_ranlib=""
  53 $ perl_ar=""
  54 $ perl_eunicefix=":"
  55 $ perl_hint="none"
  56 $ perl_hintfile=""
  57 $ perl_shrplib="define"
  58 $ perl_usemymalloc=mymalloc
  59 $ perl_usevfork="true"
  60 $ perl_useposix="false"
  61 $ perl_spitshell="write sys$output "
  62 $ perl_dlsrc="dl_vms.c"
  63 $ perl_man1ext="rno"
  64 $ perl_man3ext="rno"
  65 $ perl_prefix="perl_root"
  66 $ perl_binexp="''perl_prefix':[000000]"
  67 $ perl_builddir="''perl_prefix':[000000]"
  68 $ perl_installbin="''perl_prefix':[000000]"
  69 $ perl_installscript="''perl_prefix':[000000]"
  70 $ perl_installman1dir="''perl_prefix':[man.man1]"
  71 $ perl_installman3dir="''perl_prefix':[man.man3]"
  72 $ perl_installprivlib="''perl_prefix':[lib]"
  73 $ perl_installsitelib="''perl_prefix':[lib.site_perl]"
  74 $ perl_path_sep="|"
  75 $ perl_cc=Mcc
  76 $ perl_d_sockpair="undef"
  77 $ perl_i_neterrno="define"
  78 $ perl_ldflags="/NoTrace/NoMap"
  79 $ perl_d_lchown="undef"
  80 $ perl_d_mknod="undef"
  81 $ perl_d_union_semun="undef"
  82 $ perl_d_semctl_semun="undef"
  83 $ perl_d_semctl_semid_ds="undef"
  84 $ IF (sharedperl.EQS."Y")
  85 $ THEN
  86 $ perl_obj_ext=".abj"
  87 $ perl_so="axe"
  88 $ perl_dlext="axe"
  89 $ perl_exe_ext=".axe"
  90 $ perl_lib_ext=".alb"
  91 $ ELSE
  92 $ perl_obj_ext=".obj"
  93 $ perl_so="exe"
  94 $ perl_dlext="exe"
  95 $ perl_exe_ext=".exe"
  96 $ perl_lib_ext=".olb"
  97 $ENDIF
  98 $ perl_dlobj="dl_vms''perl_obj_ext'"
  99 $ perl_osname="VMS"
 100 $ perl_d_archlib="define"
 101 $ perl_d_bincompat3="undef"
 102 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
 103 $ perl_cppminus=""
 104 $ perl_d_castneg="define"
 105 $ perl_castflags="0"
 106 $ perl_d_chsize="undef"
 107 $ perl_d_const="define"
 108 $ perl_d_crypt="define"
 109 $ perl_byteorder="1234"
 110 $ perl_full_csh=""
 111 $ perl_d_csh="undef"
 112 $ perl_d_dup2="define"
 113 $ perl_d_fchmod="undef"
 114 $ perl_d_fchown="undef"
 115 $ perl_d_fcntl="undef"
 116 $ perl_d_fgetpos="define"
 117 $ perl_d_flexfnam="define"
 118 $ perl_d_flock="undef"
 119 $ perl_d_fsetpos="define"
 120 $ perl_d_getgrps="undef"
 121 $ perl_d_setgrps="undef"
 122 $ perl_d_getprior="undef"
 123 $ perl_d_killpg="undef"
 124 $ perl_d_link="undef"
 125 $ perl_d_lstat="undef"
 126 $ perl_d_lockf="undef"
 127 $ perl_d_memcmp="define"
 128 $ perl_d_memcpy="define"
 129 $ perl_d_memmove="define"
 130 $ perl_d_memset="define"
 131 $ perl_d_mkdir="define"
 132 $ perl_d_msg="undef"
 133 $ perl_d_open3="define"
 134 $ perl_d_poll="undef"
 135 $ perl_d_readdir="define"
 136 $ perl_d_seekdir="define"
 137 $ perl_d_telldir="define"
 138 $ perl_d_rewinddir="define"
 139 $ perl_d_rename="define"
 140 $ perl_d_rmdir="define"
 141 $ perl_d_sem="undef"
 142 $ perl_d_setegid="undef"
 143 $ perl_d_seteuid="undef"
 144 $ perl_d_setprior="undef"
 145 $ perl_d_setregid="undef"
 146 $ perl_d_setresgid="undef"
 147 $ perl_d_setreuid="undef"
 148 $ perl_d_setresuid="undef"
 149 $ perl_d_setrgid="undef"
 150 $ perl_d_setruid="undef"
 151 $ perl_d_setsid="undef"
 152 $ perl_d_shm="undef"
 153 $ perl_d_shmatprototype="undef"
 154 $ perl_d_statblks="undef"
 155 $ perl_stdio_ptr="((*fp)->_ptr)"
 156 $ perl_stdio_cnt="((*fp)->_cnt)"
 157 $ perl_stdio_base="((*fp)->_base)"
 158 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
 159 $ perl_d_strctcpy="define"
 160 $ perl_d_strerror="define"
 161 $ perl_d_syserrlst="undef"
 162 $ perl_d_strerrm="strerror((e),vaxc$errno)"
 163 $ perl_d_symlink="undef"
 164 $ perl_d_syscall="undef"
 165 $ perl_d_system="define"
 166 $ perl_timetype="time_t"
 167 $ perl_d_vfork="define"
 168 $ perl_signal_t="void"
 169 $ perl_d_volatile="define"
 170 $ perl_d_vprintf="define"
 171 $ perl_d_charvspr="undef"
 172 $ perl_d_waitpid="define"
 173 $ perl_i_dirent="undef"
 174 $ perl_d_dirnamlen="define"
 175 $ perl_direntrytype="struct dirent"
 176 $ perl_i_fcntl="undef"
 177 $ perl_i_grp="undef"
 178 $ perl_i_limits="define"
 179 $ perl_i_memory="undef"
 180 $ perl_i_ndbm="undef"
 181 $ perl_i_stdarg="define"
 182 $ perl_i_pwd="undef"
 183 $ perl_d_pwquota="undef"
 184 $ perl_d_pwage="undef"
 185 $ perl_d_pwchange="undef"
 186 $ perl_d_pwclass="undef"
 187 $ perl_d_pwexpire="undef"
 188 $ perl_d_pwcomment="define"
 189 $ perl_i_stddef="define"
 190 $ perl_i_stdlib="define"
 191 $ perl_i_string="define"
 192 $ perl_i_sysdir="undef"
 193 $ perl_i_sysfile="undef"
 194 $ perl_i_sysioctl="undef"
 195 $ perl_i_sysndir="undef"
 196 $ perl_i_sysresrc="undef"
 197 $ perl_i_sysselct="undef"
 198 $ perl_i_dbm="undef"
 199 $ perl_i_rpcsvcdbm="undef"
 200 $ perl_i_sfio="undef"
 201 $ perl_i_sysstat="define"
 202 $ perl_i_systimes="undef"
 203 $ perl_i_systypes="define"
 204 $ perl_i_sysun="undef"
 205 $ perl_i_syswait="undef"
 206 $ perl_i_termio="undef"
 207 $ perl_i_sgtty="undef"
 208 $ perl_i_termios="undef"
 209 $ perl_i_time="define"
 210 $ perl_i_systime="undef"
 211 $ perl_i_systimek="undef"
 212 $! perl_i_unistd="undef"
 213 $ perl_i_utime="undef"
 214 $ perl_i_varargs="undef"
 215 $ perl_i_vfork="undef"
 216 $ perl_prototype="define"
 217 $ perl_randbits="31"
 218 $ perl_stdchar="char"
 219 $ perl_d_unlink_all_versions="undef"
 220 $ perl_full_sed="_NLA0:"
 221 $ perl_bin="/''perl_prefix'/000000"
 222 $ perl_binexp="''perl_prefix':[000000]"
 223 $ perl_d_alarm="define"
 224 $ perl_d_casti32="define"
 225 $ perl_d_chown="define"
 226 $ perl_d_chroot="undef"
 227 $ perl_d_cuserid="define"
 228 $ perl_d_dbl_dig="define"
 229 $ perl_d_difftime="define"
 230 $ perl_d_fork="undef"
 231 $ perl_d_getlogin="define"
 232 $ perl_d_getppid="undef"
 233 $ perl_d_nice="define"
 234 $ perl_d_pause="define"
 235 $ perl_d_pipe="define"
 236 $ perl_d_readlink="undef"
 237 $ perl_d_setlinebuf="undef"
 238 $ perl_d_strchr="define"
 239 $ perl_d_strtod="define"
 240 $ perl_d_strtol="define"
 241 $ perl_d_strtoul="define"
 242 $ perl_d_tcgetpgrp="undef"
 243 $ perl_d_tcsetpgrp="undef"
 244 $ perl_d_times="define"
 245 $ perl_d_tzname="undef"
 246 $ perl_d_umask="define"
 247 $ perl_fpostype="fpos_t"
 248 $ perl_i_dlfcn="undef"
 249 $ perl_i_float="define"
 250 $ perl_i_math="define"
 251 $ perl_lseektype="int"
 252 $ perl_i_values="undef"
 253 $ perl_malloctype="void *"
 254 $ perl_freetype="void"
 255 $ if "''mymalloc'".eqs."Y"
 256 $ THEN
 257 $ perl_d_mymalloc="define"
 258 $ ELSE
 259 $ perl_d_mymalloc="undef"
 260 $ENDIF
 261 $ perl_sh="MCR"
 262 $ perl_modetype="unsigned int"
 263 $ perl_ssizetype="int"
 264 $ perl_o_nonblock=""
 265 $ perl_eagain=""
 266 $ perl_rd_nodata=""
 267 $ perl_d_eofnblk="undef"
 268 $ perl_d_oldarchlib="define"
 269 $ perl_privlibexp="''perl_prefix':[lib]"
 270 $ perl_privlib="''perl_prefix':[lib]"
 271 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
 272 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
 273 $ perl_sizetype="size_t"
 274 $ perl_i_sysparam="undef"
 275 $ perl_d_void_closedir="define"
 276 $ perl_d_dlerror="undef"
 277 $ perl_d_dlsymun="undef"
 278 $ perl_d_suidsafe="undef"
 279 $ perl_d_dosuid="undef"
 280 $ perl_d_inetaton="undef"
 281 $ perl_d_isascii="define"
 282 $ perl_d_mkfifo="undef"
 283 $ perl_d_safebcpy="undef"
 284 $ perl_d_safemcpy="define"
 285 $ perl_d_sanemcmp="define"
 286 $ perl_d_setpgrp="undef"
 287 $ perl_d_bsdsetpgrp="undef"
 288 $ perl_d_bsdpgrp="undef"
 289 $ perl_d_setpgid="undef"
 290 $ perl_d_setpgrp2="undef"
 291 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
 292 $ perl_d_getpgid="undef"
 293 $ perl_d_getpgrp="undef"
 294 $ perl_d_bsdgetpgrp="undef"
 295 $ perl_d_getpgrp2="undef"
 296 $ perl_d_sfio="undef"
 297 $ perl_usedl="define"
 298 $ perl_startperl=""
 299 $ perl_db_hashtype=""
 300 $ perl_db_prefixtype=""
 301 $ perl_useperlio="undef"
 302 $ perl_defvoidused="15"
 303 $ perl_voidflags="15"
 304 $ perl_d_eunice="undef"
 305 $ perl_d_pwgecos="define"
 306 $ perl_d_pwpasswd="define"
 307 $ perl_d_setpwent="define"
 308 $ perl_d_getpwent="define"
 309 $ perl_d_endpwent="define"
 310 $ perl_d_grpasswd="undef"
 311 $ perl_d_setgrent="undef"
 312 $ perl_d_getgrent="undef"
 313 $ perl_d_endgrent="undef"
 314 $ IF ("''Use_Threads'".eqs."T").and.("''VMS_VER'".LES."6.2")
 315 $ THEN
 316 $ 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"
 317 $ ELSE
 318 $ perl_libs=""
 319 $ ENDIF
 320 $ IF ("''Using_Dec_C'".eqs."Yes")
 321 $ THEN
 322 $ perl_libc="(DECCRTL)"
 323 $ ELSE
 324 $ perl_libc=""
 325 $ ENDIF
 326 $ perl_PATCHLEVEL="''patchlevel'"
 327 $ perl_SUBVERSION="''subversion'"
 328 $ perl_pager="most"
 329 $!
 330 $!
 331 $! Now some that we build up
 332 $!
 333 $ LocalTime = f$time()
 334 $ perl_cf_time= f$extract(0, 3, f$cvtime(LocalTime,, "WEEKDAY")) + " " + -
 335                 f$edit(f$cvtime(LocalTime, "ABSOLUTE", "MONTH"), "LOWERCASE") + -
 336                 " " + f$cvtime(LocalTime,, "DAY") + " " + f$cvtime(LocalTime,, "TIME") + -
 337                 " " + f$cvtime(LocalTime,, "YEAR")
 338 $ if f$getsyi("HW_MODEL").ge.1024
 339 $ THEN
 340 $ perl_arch="VMS_AXP"
 341 $ perl_archname="VMS_AXP"
 342 $ perl_alignbytes="8"
 343 $ ELSE
 344 $ perl_arch="VMS_VAX"
 345 $ perl_archname="VMS_VAX"
 346 $ perl_alignbytes="8"
 347 $ ENDIF
 348 $ perl_osvers=f$edit(osvers, "TRIM")
 349 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion
 350 $!
 351 $! Some that we need to invoke the compiler for
 352 $ OS := "open/write SOURCECHAN []temp.c"
 353 $ WS := "write SOURCECHAN"
 354 $ CS := "close SOURCECHAN"
 355 $ DS := "delete/nolog []temp.*;*"
 356 $ Needs_Opt := "No"
 357 $ if ("''using_vax_c'".eqs."Yes").or.("''using_gnu_c'".eqs."Yes")
 358 $ THEN
 359 $   open/write OPTCHAN []temp.opt
 360 $   IF ("''using_gnu_c'".eqs."Yes")
 361 $   THEN
 362 $     write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
 363 $   endif
 364 $   write OPTCHAN "Sys$Share:VAXCRTL/Share"
 365 $   Close OPTCHAN
 366 $   Needs_Opt := "Yes"
 367 $ ENDIF
 368 $!
 369 $! Check for __STDC__
 370 $!
 371 $ OS
 372 $ WS "#ifdef __DECC
 373 $ WS "#include <stdlib.h>
 374 $ WS "#endif
 375 $ WS "#include <stdio.h>
 376 $ WS "int main()
 377 $ WS "{"
 378 $ WS "#ifdef __STDC__
 379 $ WS "printf(""42\n"");
 380 $ WS "#else
 381 $ WS "printf(""1\n"");
 382 $ WS "#endif
 383 $ WS "exit(0);
 384 $ WS "}"
 385 $ CS
 386 $   DEFINE SYS$ERROR _NLA0:
 387 $   DEFINE SYS$OUTPUT _NLA0:
 388 $   ON ERROR THEN CONTINUE
 389 $   ON WARNING THEN CONTINUE
 390 $   'Checkcc' temp
 391 $   If (Needs_Opt.eqs."Yes")
 392 $   THEN
 393 $     link temp,temp/opt
 394 $   else
 395 $     link temp
 396 $   endif
 397 $   DEASSIGN SYS$OUTPUT
 398 $   DEASSIGN SYS$ERROR
 399 $   OPEN/WRITE TEMPOUT [-.uu]tempout.lis
 400 $   DEFINE SYS$ERROR TEMPOUT
 401 $   DEFINE SYS$OUTPUT TEMPOUT
 402 $   mcr []temp
 403 $   CLOSE TEMPOUT
 404 $   DEASSIGN SYS$OUTPUT
 405 $   DEASSIGN SYS$ERROR
 406 $   OPEN/READ TEMPOUT [-.uu]tempout.lis
 407 $   READ TEMPOUT line
 408 $   CLOSE TEMPOUT
 409 $
 410 $ perl_cpp_stuff=line
 411 $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
 412 $!
 413 $! Check for double size
 414 $!
 415 $ OS
 416 $ WS "#ifdef __DECC
 417 $ WS "#include <stdlib.h>
 418 $ WS "#endif
 419 $ WS "#include <stdio.h>
 420 $ WS "int main()
 421 $ WS "{"
 422 $ WS "int foo;
 423 $ WS "foo = sizeof(double);
 424 $ WS "printf(""%d\n"", foo);
 425 $ WS "exit(0);
 426 $ WS "}"
 427 $ CS
 428 $   DEFINE SYS$ERROR _NLA0:
 429 $   DEFINE SYS$OUTPUT _NLA0:
 430 $   ON ERROR THEN CONTINUE
 431 $   ON WARNING THEN CONTINUE
 432 $   'Checkcc' temp
 433 $   If (Needs_Opt.eqs."Yes")
 434 $   THEN
 435 $     link temp,temp/opt
 436 $   else
 437 $     link temp
 438 $   endif
 439 $!   link temp
 440 $   OPEN/WRITE TEMPOUT [-.uu]tempout.lis
 441 $   DEASSIGN SYS$OUTPUT
 442 $   DEASSIGN SYS$ERROR
 443 $   DEFINE SYS$ERROR TEMPOUT
 444 $   DEFINE SYS$OUTPUT TEMPOUT
 445 $   mcr []temp
 446 $   CLOSE TEMPOUT
 447 $   DEASSIGN SYS$OUTPUT
 448 $   DEASSIGN SYS$ERROR
 449 $   OPEN/READ TEMPOUT [-.uu]tempout.lis
 450 $   READ TEMPOUT line
 451 $   CLOSE TEMPOUT
 452 $
 453 $ perl_doublesize=line
 454 $ WRITE_RESULT "doublesize is ''perl_doublesize'"
 455 $!
 456 $! Check for long double size
 457 $!
 458 $ OS
 459 $ WS "#ifdef __DECC
 460 $ WS "#include <stdlib.h>
 461 $ WS "#endif
 462 $ WS "#include <stdio.h>
 463 $ WS "int main()
 464 $ WS "{"
 465 $ WS "printf(""%d\n"", sizeof(long double));
 466 $ WS "exit(0);
 467 $ WS "}"
 468 $ CS
 469 $   DEFINE SYS$ERROR _NLA0:
 470 $   DEFINE SYS$OUTPUT _NLA0:
 471 $   ON ERROR THEN CONTINUE
 472 $   ON WARNING THEN CONTINUE
 473 $   'Checkcc' temp
 474 $   teststatus = f$extract(9,1,$status)
 475 $   if (teststatus.nes."1")
 476 $   THEN
 477 $     perl_longdblsize="0"
 478 $     perl_d_longdbl="undef"
 479 $   ELSE
 480 $     ON ERROR THEN CONTINUE
 481 $     ON WARNING THEN CONTINUE
 482 $     If (Needs_Opt.eqs."Yes")
 483 $     THEN
 484 $     link temp,temp/opt
 485 $     else
 486 $       link temp
 487 $     endif
 488 $     teststatus = f$extract(9,1,$status)
 489 $     DEASSIGN SYS$OUTPUT
 490 $     DEASSIGN SYS$ERROR
 491 $     if (teststatus.nes."1")
 492 $     THEN
 493 $       perl_longdblsize="0"
 494 $       perl_d_longdbl="undef"
 495 $     ELSE
 496 $       OPEN/WRITE TEMPOUT [-.uu]tempout.lis
 497 $       DEFINE SYS$ERROR TEMPOUT
 498 $       DEFINE SYS$OUTPUT TEMPOUT
 499 $       mcr []temp
 500 $       CLOSE TEMPOUT
 501 $       DEASSIGN SYS$OUTPUT
 502 $       DEASSIGN SYS$ERROR
 503 $       OPEN/READ TEMPOUT [-.uu]tempout.lis
 504 $       READ TEMPOUT line
 505 $       CLOSE TEMPOUT
 506 $
 507 $       perl_longdblsize=line
 508 $       perl_d_longdbl="define"
 509 $     ENDIF
 510 $   ENDIF
 511 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
 512 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
 513 $!
 514 $! Check for long long existance and size
 515 $!
 516 $ OS
 517 $ WS "#ifdef __DECC
 518 $ WS "#include <stdlib.h>
 519 $ WS "#endif
 520 $ WS "#include <stdio.h>
 521 $ WS "int main()
 522 $ WS "{"
 523 $ WS "printf(""%d\n"", sizeof(long long));
 524 $ WS "exit(0);
 525 $ WS "}"
 526 $ CS
 527 $   DEFINE SYS$ERROR _NLA0:
 528 $   DEFINE SYS$OUTPUT _NLA0:
 529 $   on error then continue
 530 $   on warning then continue
 531 $   'Checkcc' temp
 532 $   If (Needs_Opt.eqs."Yes")
 533 $   THEN
 534 $     link temp,temp/opt
 535 $   else
 536 $     link temp
 537 $   endif
 538 $   teststatus = f$extract(9,1,$status)
 539 $   DEASSIGN SYS$OUTPUT
 540 $   DEASSIGN SYS$ERROR
 541 $   if (teststatus.nes."1")
 542 $   THEN
 543 $     perl_longlongsize="0"
 544 $     perl_d_longlong="undef"
 545 $   ELSE
 546 $     OPEN/WRITE TEMPOUT [-.uu]tempout.lis
 547 $     DEFINE SYS$ERROR TEMPOUT
 548 $     DEFINE SYS$OUTPUT TEMPOUT
 549 $     mcr []temp
 550 $     CLOSE TEMPOUT
 551 $     DEASSIGN SYS$OUTPUT
 552 $     DEASSIGN SYS$ERROR
 553 $     OPEN/READ TEMPOUT [-.uu]tempout.lis
 554 $     READ TEMPOUT line
 555 $     CLOSE TEMPOUT
 556 $
 557 $     perl_longlongsize=line
 558 $     perl_d_longlong="define"
 559 $   ENDIF
 560 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
 561 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
 562 $!
 563 $! Check for int size
 564 $!
 565 $ OS
 566 $ WS "#ifdef __DECC
 567 $ WS "#include <stdlib.h>
 568 $ WS "#endif
 569 $ WS "#include <stdio.h>
 570 $ WS "int main()
 571 $ WS "{"
 572 $ WS "printf(""%d\n"", sizeof(int));
 573 $ WS "exit(0);
 574 $ WS "}"
 575 $ CS
 576 $   DEFINE SYS$ERROR _NLA0:
 577 $   DEFINE SYS$OUTPUT _NLA0:
 578 $   on error then continue
 579 $   on warning then continue
 580 $   'Checkcc' temp
 581 $   If (Needs_Opt.eqs."Yes")
 582 $   THEN
 583 $     link temp,temp/opt
 584 $   else
 585 $     link temp
 586 $   endif
 587 $   If (Needs_Opt.eqs."Yes")
 588 $   THEN
 589 $     link temp,temp/opt
 590 $   else
 591 $     link temp
 592 $   endif
 593 $   OPEN/WRITE TEMPOUT [-.uu]tempout.lis
 594 $   DEASSIGN SYS$OUTPUT
 595 $   DEASSIGN SYS$ERROR
 596 $   DEFINE SYS$ERROR TEMPOUT
 597 $   DEFINE SYS$OUTPUT TEMPOUT
 598 $   mcr []temp
 599 $   CLOSE TEMPOUT
 600 $   DEASSIGN SYS$OUTPUT
 601 $   DEASSIGN SYS$ERROR
 602 $   OPEN/READ TEMPOUT [-.uu]tempout.lis
 603 $   READ TEMPOUT line
 604 $   CLOSE TEMPOUT
 605 $
 606 $   perl_intsize=line
 607 $ WRITE_RESULT "intsize is ''perl_intsize'"
 608 $!
 609 $! Check for short 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(short));
 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
 627 $   If (Needs_Opt.eqs."Yes")
 628 $   THEN
 629 $     link temp,temp/opt
 630 $   else
 631 $     link temp
 632 $   endif
 633 $   OPEN/WRITE TEMPOUT [-.uu]tempout.lis
 634 $   DEASSIGN SYS$OUTPUT
 635 $   DEASSIGN SYS$ERROR
 636 $   DEFINE SYS$ERROR TEMPOUT
 637 $   DEFINE SYS$OUTPUT TEMPOUT
 638 $   mcr []temp
 639 $   CLOSE TEMPOUT
 640 $   DEASSIGN SYS$OUTPUT
 641 $   DEASSIGN SYS$ERROR
 642 $   OPEN/READ TEMPOUT [-.uu]tempout.lis
 643 $   READ TEMPOUT line
 644 $   CLOSE TEMPOUT
 645 $
 646 $   perl_shortsize=line
 647 $ WRITE_RESULT "shortsize is ''perl_shortsize'"
 648 $!
 649 $! Check for long size
 650 $!
 651 $ OS
 652 $ WS "#ifdef __DECC
 653 $ WS "#include <stdlib.h>
 654 $ WS "#endif
 655 $ WS "#include <stdio.h>
 656 $ WS "int main()
 657 $ WS "{"
 658 $ WS "int foo;
 659 $ WS "foo = sizeof(long);
 660 $ WS "printf(""%d\n"", foo);
 661 $ WS "exit(0);
 662 $ WS "}"
 663 $ CS
 664 $   DEFINE SYS$ERROR _NLA0:
 665 $   DEFINE SYS$OUTPUT _NLA0:
 666 $   on error then continue
 667 $   on warning then continue
 668 $   'Checkcc' temp
 669 $   If (Needs_Opt.eqs."Yes")
 670 $   THEN
 671 $     link temp,temp/opt
 672 $   else
 673 $     link temp
 674 $   endif
 675 $   OPEN/WRITE TEMPOUT [-.uu]tempout.lis
 676 $   DEASSIGN SYS$OUTPUT
 677 $   DEASSIGN SYS$ERROR
 678 $   DEFINE SYS$ERROR TEMPOUT
 679 $   DEFINE SYS$OUTPUT TEMPOUT
 680 $   mcr []temp
 681 $   CLOSE TEMPOUT
 682 $   DEASSIGN SYS$OUTPUT
 683 $   DEASSIGN SYS$ERROR
 684 $   OPEN/READ TEMPOUT [-.uu]tempout.lis
 685 $   READ TEMPOUT line
 686 $   CLOSE TEMPOUT
 687 $
 688 $   perl_longsize=line
 689 $ WRITE_RESULT "longsize is ''perl_longsize'"
 690 $!
 691 $! Check the prototype for getgid
 692 $!
 693 $ OS
 694 $ WS "#ifdef __DECC
 695 $ WS "#include <stdlib.h>
 696 $ WS "#endif
 697 $ WS "#include <stdio.h>
 698 $ WS "#include <types.h>
 699 $ WS "#include <unistd.h>
 700 $ WS "int main()
 701 $ WS "{"
 702 $ WS "gid_t foo;
 703 $ WS "exit(0);
 704 $ WS "}"
 705 $ CS
 706 $   DEFINE SYS$ERROR _NLA0:
 707 $   DEFINE SYS$OUTPUT _NLA0:
 708 $   on error then continue
 709 $   on warning then continue
 710 $   'Checkcc' temp
 711 $   teststatus = f$extract(9,1,$status)
 712 $   DEASSIGN SYS$OUTPUT
 713 $   DEASSIGN SYS$ERROR
 714 $   if (teststatus.nes."1")
 715 $   THEN
 716 $!   Okay, gid_t failed. Must be unsigned int
 717 $     perl_gidtype = "unsigned int"
 718 $   ELSE
 719 $     perl_gidtype = "gid_t"
 720 $   ENDIF
 721 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
 722 $!
 723 $! Check to see if we've got dev_t
 724 $!
 725 $ OS
 726 $ WS "#ifdef __DECC
 727 $ WS "#include <stdlib.h>
 728 $ WS "#endif
 729 $ WS "#include <stdio.h>
 730 $ WS "#include <types.h>
 731 $ WS "#include <unistd.h>
 732 $ WS "int main()
 733 $ WS "{"
 734 $ WS "dev_t foo;
 735 $ WS "exit(0);
 736 $ WS "}"
 737 $ CS
 738 $   DEFINE SYS$ERROR _NLA0:
 739 $   DEFINE SYS$OUTPUT _NLA0:
 740 $   on error then continue
 741 $   on warning then continue
 742 $   'Checkcc' temp
 743 $   teststatus = f$extract(9,1,$status)
 744 $   DEASSIGN SYS$OUTPUT
 745 $   DEASSIGN SYS$ERROR
 746 $   if (teststatus.nes."1")
 747 $   THEN
 748 $!   Okay, dev_t failed. Must be unsigned int
 749 $     perl_devtype = "unsigned int"
 750 $   ELSE
 751 $     perl_devtype = "dev_t"
 752 $   ENDIF
 753 $ WRITE_RESULT "Dev_t is ''perl_devtype'"
 754 $!
 755 $! Check to see if we've got unistd.h (which we ought to, but you never know)
 756 $!
 757 $ OS
 758 $ WS "#ifdef __DECC
 759 $ WS "#include <stdlib.h>
 760 $ WS "#endif
 761 $ WS "#include <unistd.h>
 762 $ WS "int main()
 763 $ WS "{"
 764 $ WS "exit(0);
 765 $ WS "}"
 766 $ CS
 767 $   DEFINE SYS$ERROR _NLA0:
 768 $   DEFINE SYS$OUTPUT _NLA0:
 769 $   on error then continue
 770 $   on warning then continue
 771 $   'Checkcc' temp
 772 $   teststatus = f$extract(9,1,$status)
 773 $   DEASSIGN SYS$OUTPUT
 774 $   DEASSIGN SYS$ERROR
 775 $   if (teststatus.nes."1")
 776 $   THEN
 777 $!   Okay, failed. Must not have it
 778 $     perl_i_unistd = "undef"
 779 $   ELSE
 780 $     perl_i_unistd = "define"
 781
 782 $   ENDIF
 783 $ WRITE_RESULT "i_unistd is ''perl_i_unistd'"
 784 $!
 785 $! Check the prototype for select
 786 $!
 787 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
 788 $ THEN
 789 $ OS
 790 $ WS "#ifdef __DECC
 791 $ WS "#include <stdlib.h>
 792 $ WS "#endif
 793 $ WS "#include <stdio.h>
 794 $ WS "#include <types.h>
 795 $ WS "#include <unistd.h>
 796 $ if ("''Has_Socketshr'".eqs."T")
 797 $ THEN
 798 $  WS "#include <socketshr.h>"
 799 $ else
 800 $  WS "#include <time.h>
 801 $  WS "#include <socket.h>
 802 $ endif
 803 $ WS "int main()
 804 $ WS "{"
 805 $ WS "fd_set *foo;
 806 $ WS "int bar;
 807 $ WS "foo = NULL;
 808 $ WS "bar = select(2, foo, foo, foo, NULL);
 809 $ WS "exit(0);
 810 $ WS "}"
 811 $ CS
 812 $   DEFINE SYS$ERROR _NLA0:
 813 $   DEFINE SYS$OUTPUT _NLA0:
 814 $   on error then continue
 815 $   on warning then continue
 816 $   'Checkcc' temp
 817 $   teststatus = f$extract(9,1,$status)
 818 $   DEASSIGN SYS$OUTPUT
 819 $   DEASSIGN SYS$ERROR
 820 $   if (teststatus.nes."1")
 821 $   THEN
 822 $!   Okay, fd_set failed. Must be an int
 823 $     perl_selecttype = "int *"
 824 $   ELSE
 825 $     perl_selecttype="fd_set *"
 826 $   ENDIF
 827 $ ELSE
 828 $   ! No sockets, so stick in an int *
 829 $   perl_selecttype = "int *"
 830 $ ENDIF
 831 $ WRITE_RESULT "selectype is ''perl_selecttype'"
 832 $!
 833 $! Check for bzero
 834 $!
 835 $ OS
 836 $ WS "#ifdef __DECC
 837 $ WS "#include <stdlib.h>
 838 $ WS "#endif
 839 $ WS "#include <stdio.h>
 840 $ WS "#include <strings.h>
 841 $ WS "int main()
 842 $ WS "{"
 843 $ WS "char foo[10];
 844 $ WS "bzero(foo, 10);
 845 $ WS "exit(0);
 846 $ WS "}"
 847 $ CS
 848 $   DEFINE SYS$ERROR _NLA0:
 849 $   DEFINE SYS$OUTPUT _NLA0:
 850 $   on error then continue
 851 $   on warning then continue
 852 $   'Checkcc' temp
 853 $   savedstatus = $status
 854 $   teststatus = f$extract(9,1,savedstatus)
 855 $   if (teststatus.nes."1")
 856 $   THEN
 857 $     perl_d_bzero="undef"
 858 $     DEASSIGN SYS$OUTPUT
 859 $     DEASSIGN SYS$ERROR
 860 $   ELSE
 861 $     If (Needs_Opt.eqs."Yes")
 862 $     THEN
 863 $       link temp,temp/opt
 864 $     else
 865 $       link temp
 866 $     endif
 867 $     savedstatus = $status
 868 $     teststatus = f$extract(9,1,savedstatus)
 869 $     DEASSIGN SYS$OUTPUT
 870 $     DEASSIGN SYS$ERROR
 871 $     if (teststatus.nes."1")
 872 $     THEN
 873 $       perl_d_bzero="undef"
 874 $     ELSE
 875 $       perl_d_bzero="define"
 876 $     ENDIF
 877 $   ENDIF
 878 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
 879 $!
 880 $! Check for bcopy
 881 $!
 882 $ OS
 883 $ WS "#ifdef __DECC
 884 $ WS "#include <stdlib.h>
 885 $ WS "#endif
 886 $ WS "#include <stdio.h>
 887 $ WS "#include <strings.h>
 888 $ WS "int main()
 889 $ WS "{"
 890 $ WS "char foo[10], bar[10];
 891 $ WS "bcopy(""foo"", bar, 3);
 892 $ WS "exit(0);
 893 $ WS "}"
 894 $ CS
 895 $   DEFINE SYS$ERROR _NLA0:
 896 $   DEFINE SYS$OUTPUT _NLA0:
 897 $   on error then continue
 898 $   on warning then continue
 899 $   'Checkcc' temp
 900 $   savedstatus = $status
 901 $   teststatus = f$extract(9,1,savedstatus)
 902 $   if (teststatus.nes."1")
 903 $   THEN
 904 $     perl_d_bcopy="undef"
 905 $     DEASSIGN SYS$OUTPUT
 906 $     DEASSIGN SYS$ERROR
 907 $   ELSE
 908 $     If (Needs_Opt.eqs."Yes")
 909 $     THEN
 910 $       link temp,temp/opt
 911 $     else
 912 $       link temp
 913 $     endif
 914 $     savedstatus = $status
 915 $     teststatus = f$extract(9,1,savedstatus)
 916 $     DEASSIGN SYS$OUTPUT
 917 $     DEASSIGN SYS$ERROR
 918 $     if (teststatus.nes."1")
 919 $     THEN
 920 $       perl_d_bcopy="undef"
 921 $     ELSE
 922 $       perl_d_bcopy="define"
 923 $     ENDIF
 924 $   ENDIF
 925 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
 926 $!
 927 $! Check for mkstemp
 928 $!
 929 $ OS
 930 $ WS "#ifdef __DECC
 931 $ WS "#include <stdlib.h>
 932 $ WS "#endif
 933 $ WS "#include <stdio.h>
 934 $ WS "int main()
 935 $ WS "{"
 936 $ WS "mkstemp(""foo"");
 937 $ WS "exit(0);
 938 $ WS "}"
 939 $ CS
 940 $   DEFINE SYS$ERROR _NLA0:
 941 $   DEFINE SYS$OUTPUT _NLA0:
 942 $   on error then continue
 943 $   on warning then continue
 944 $   'Checkcc' temp
 945 $   If (Needs_Opt.eqs."Yes")
 946 $   THEN
 947 $     link temp,temp/opt
 948 $   else
 949 $     link temp
 950 $   endif
 951 $   savedstatus = $status
 952 $   teststatus = f$extract(9,1,savedstatus)
 953 $   DEASSIGN SYS$OUTPUT
 954 $   DEASSIGN SYS$ERROR
 955 $   if (teststatus.nes."1")
 956 $   THEN
 957 $     perl_d_mkstemp="undef"
 958 $   ELSE
 959 $     perl_d_mkstemp="define"
 960 $   ENDIF
 961 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
 962 $!
 963 $! Check for setvbuf
 964 $!
 965 $ OS
 966 $ WS "#ifdef __DECC
 967 $ WS "#include <stdlib.h>
 968 $ WS "#endif
 969 $ WS "#include <stdio.h>
 970 $ WS "int main()
 971 $ WS "{"
 972 $ WS "FILE *foo;
 973 $ WS "char Buffer[99];
 974 $ WS "foo = fopen(""foo"", ""r"");
 975 $ WS "setvbuf(foo, Buffer, 0, 0);
 976 $ WS "exit(0);
 977 $ WS "}"
 978 $ CS
 979 $   DEFINE SYS$ERROR _NLA0:
 980 $   DEFINE SYS$OUTPUT _NLA0:
 981 $   on error then continue
 982 $   on warning then continue
 983 $   'Checkcc' temp
 984 $   If (Needs_Opt.eqs."Yes")
 985 $   THEN
 986 $     link temp,temp/opt
 987 $   else
 988 $     link temp
 989 $   endif
 990 $   teststatus = f$extract(9,1,$status)
 991 $   DEASSIGN SYS$OUTPUT
 992 $   DEASSIGN SYS$ERROR
 993 $   if (teststatus.nes."1")
 994 $   THEN
 995 $     perl_d_setvbuf="undef"
 996 $   ELSE
 997 $     perl_d_setvbuf="define"
 998 $   ENDIF
 999 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
1000 $!
1001 $! Check for <netinet/in.h>
1002 $!
1003 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1004 $ THEN
1005 $ OS
1006 $ WS "#ifdef __DECC
1007 $ WS "#include <stdlib.h>
1008 $ WS "#endif
1009 $ WS "#include <stdio.h>
1010 $ if ("''Has_Socketshr'".eqs."T")
1011 $ THEN
1012 $  WS "#include <socketshr.h>"
1013 $ else
1014 $  WS "#include <netdb.h>
1015 $ endif
1016 $ WS "#include <netinet/in.h>"
1017 $ WS "int main()
1018 $ WS "{"
1019 $ WS "exit(0);
1020 $ WS "}"
1021 $ CS
1022 $   DEFINE SYS$ERROR _NLA0:
1023 $   DEFINE SYS$OUTPUT _NLA0:
1024 $   on error then continue
1025 $   on warning then continue
1026 $   'Checkcc' temp
1027 $   If (Needs_Opt.eqs."Yes")
1028 $   THEN
1029 $     link temp,temp/opt
1030 $   else
1031 $     link temp
1032 $   endif
1033 $   teststatus = f$extract(9,1,$status)
1034 $   DEASSIGN SYS$OUTPUT
1035 $   DEASSIGN SYS$ERROR
1036 $   if (teststatus.nes."1")
1037 $   THEN
1038 $     perl_i_niin="undef"
1039 $   ELSE
1040 $     perl_i_niin="define"
1041 $   ENDIF
1042 $ ELSE
1043 $   perl_i_niin="undef"
1044 $ ENDIF
1045 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
1046 $!
1047 $! Check for <arpa/inet.h>
1048 $!
1049 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1050 $ THEN
1051 $ OS
1052 $ WS "#ifdef __DECC
1053 $ WS "#include <stdlib.h>
1054 $ WS "#endif
1055 $ WS "#include <stdio.h>
1056 $ WS "#include <types.h>
1057 $ if ("''Has_Socketshr'".eqs."T")
1058 $ THEN
1059 $  WS "#include <socketshr.h>"
1060 $ else
1061 $  WS "#include <socket.h>
1062 $ endif
1063 $ WS "#include <arpa/inet.h>"
1064 $ WS "int main()
1065 $ WS "{"
1066 $ WS "exit(0);
1067 $ WS "}"
1068 $ CS
1069 $   DEFINE SYS$ERROR _NLA0:
1070 $   DEFINE SYS$OUTPUT _NLA0:
1071 $   on error then continue
1072 $   on warning then continue
1073 $   'Checkcc' temp
1074 $   If (Needs_Opt.eqs."Yes")
1075 $   THEN
1076 $     link temp,temp/opt
1077 $   else
1078 $     link temp
1079 $   endif
1080 $   teststatus = f$extract(9,1,$status)
1081 $   DEASSIGN SYS$OUTPUT
1082 $   DEASSIGN SYS$ERROR
1083 $   if (teststatus.nes."1")
1084 $   THEN
1085 $     perl_i_arpa_inet="undef"
1086 $   ELSE
1087 $     perl_i_arpa_inet="define"
1088 $   ENDIF
1089 $ ELSE
1090 $   perl_i_arpa_inet="undef"
1091 $ ENDIF
1092 $ WRITE_RESULT "i_arpa_inet is ''perl_i_arpa_inet'"
1093 $!
1094 $! Check for endhostent
1095 $!
1096 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1097 $ THEN
1098 $ OS
1099 $ WS "#ifdef __DECC
1100 $ WS "#include <stdlib.h>
1101 $ WS "#endif
1102 $ WS "#include <stdio.h>
1103 $ if ("''Has_Socketshr'".eqs."T")
1104 $ THEN
1105 $  WS "#include <socketshr.h>"
1106 $ else
1107 $  WS "#include <netdb.h>
1108 $ endif
1109 $ WS "int main()
1110 $ WS "{"
1111 $ WS "endhostent();
1112 $ WS "exit(0);
1113
1114 $ CS
1115 $   DEFINE SYS$ERROR _NLA0:
1116 $   DEFINE SYS$OUTPUT _NLA0:
1117 $   on error then continue
1118 $   on warning then continue
1119 $   'Checkcc' temp
1120 $   If (Needs_Opt.eqs."Yes")
1121 $   THEN
1122 $     link temp,temp/opt
1123 $   else
1124 $     link temp
1125 $   endif
1126 $   teststatus = f$extract(9,1,$status)
1127 $   DEASSIGN SYS$OUTPUT
1128 $   DEASSIGN SYS$ERROR
1129 $   if (teststatus.nes."1")
1130 $   THEN
1131 $     perl_d_endhent="undef"
1132 $   ELSE
1133 $     perl_d_endhent="define"
1134 $   ENDIF
1135 $ ELSE
1136 $ perl_d_endhent="undef"
1137 $ ENDIF
1138 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
1139 $!
1140 $! Check for endnetent
1141 $!
1142 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1143 $ THEN
1144 $ OS
1145 $ WS "#ifdef __DECC
1146 $ WS "#include <stdlib.h>
1147 $ WS "#endif
1148 $ WS "#include <stdio.h>
1149 $ if ("''Has_Socketshr'".eqs."T")
1150 $ THEN
1151 $  WS "#include <socketshr.h>"
1152 $ else
1153 $  WS "#include <netdb.h>
1154 $ endif
1155 $ WS "int main()
1156 $ WS "{"
1157 $ WS "endnetent();
1158 $ WS "exit(0);
1159 $ WS "}"
1160 $ CS
1161 $   DEFINE SYS$ERROR _NLA0:
1162 $   DEFINE SYS$OUTPUT _NLA0:
1163 $   on error then continue
1164 $   on warning then continue
1165 $   'Checkcc' temp
1166 $   If (Needs_Opt.eqs."Yes")
1167 $   THEN
1168 $     link temp,temp/opt
1169 $   else
1170 $     link temp
1171 $   endif
1172 $   teststatus = f$extract(9,1,$status)
1173 $   DEASSIGN SYS$OUTPUT
1174 $   DEASSIGN SYS$ERROR
1175 $   if (teststatus.nes."1")
1176 $   THEN
1177 $     perl_d_endnent="undef"
1178 $   ELSE
1179 $     perl_d_endnent="define"
1180 $   ENDIF
1181 $ ELSE
1182 $ perl_d_endnent="undef"
1183 $ ENDIF
1184 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
1185 $!
1186 $! Check for endprotoent
1187 $!
1188 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1189 $ THEN
1190 $ OS
1191 $ WS "#ifdef __DECC
1192 $ WS "#include <stdlib.h>
1193 $ WS "#endif
1194 $ WS "#include <stdio.h>
1195 $ if ("''Has_Socketshr'".eqs."T")
1196 $ THEN
1197 $  WS "#include <socketshr.h>"
1198 $ else
1199 $  WS "#include <netdb.h>
1200 $ endif
1201 $ WS "int main()
1202 $ WS "{"
1203 $ WS "endprotoent();
1204 $ WS "exit(0);
1205 $ WS "}"
1206 $ CS
1207 $   DEFINE SYS$ERROR _NLA0:
1208 $   DEFINE SYS$OUTPUT _NLA0:
1209 $   on error then continue
1210 $   on warning then continue
1211 $   'Checkcc' temp
1212 $   If (Needs_Opt.eqs."Yes")
1213 $   THEN
1214 $     link temp,temp/opt
1215 $   else
1216 $     link temp
1217 $   endif
1218 $   teststatus = f$extract(9,1,$status)
1219 $   DEASSIGN SYS$OUTPUT
1220 $   DEASSIGN SYS$ERROR
1221 $   if (teststatus.nes."1")
1222 $   THEN
1223 $     perl_d_endpent="undef"
1224 $   ELSE
1225 $     perl_d_endpent="define"
1226 $   ENDIF
1227 $ ELSE
1228 $ perl_d_endpent="undef"
1229 $ ENDIF
1230 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
1231 $!
1232 $! Check for endservent
1233 $!
1234 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1235 $ THEN
1236 $ OS
1237 $ WS "#ifdef __DECC
1238 $ WS "#include <stdlib.h>
1239 $ WS "#endif
1240 $ WS "#include <stdio.h>
1241 $ if ("''Has_Socketshr'".eqs."T")
1242 $ THEN
1243 $  WS "#include <socketshr.h>"
1244 $ else
1245 $  WS "#include <netdb.h>
1246 $ endif
1247 $ WS "int main()
1248 $ WS "{"
1249 $ WS "endservent();
1250 $ WS "exit(0);
1251 $ WS "}"
1252 $ CS
1253 $   DEFINE SYS$ERROR _NLA0:
1254 $   DEFINE SYS$OUTPUT _NLA0:
1255 $   on error then continue
1256 $   on warning then continue
1257 $   'Checkcc' temp
1258 $   If (Needs_Opt.eqs."Yes")
1259 $   THEN
1260 $     link temp,temp/opt
1261 $   else
1262 $     link temp
1263 $   endif
1264 $   teststatus = f$extract(9,1,$status)
1265 $   DEASSIGN SYS$OUTPUT
1266 $   DEASSIGN SYS$ERROR
1267 $   if (teststatus.nes."1")
1268 $   THEN
1269 $     perl_d_endsent="undef"
1270 $   ELSE
1271 $     perl_d_endsent="define"
1272 $   ENDIF
1273 $ ELSE
1274 $ perl_d_endsent="undef"
1275 $ ENDIF
1276 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
1277 $!
1278 $! Check for sethostent
1279 $!
1280 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1281 $ THEN
1282 $ OS
1283 $ WS "#ifdef __DECC
1284 $ WS "#include <stdlib.h>
1285 $ WS "#endif
1286 $ WS "#include <stdio.h>
1287 $ if ("''Has_Socketshr'".eqs."T")
1288 $ THEN
1289 $  WS "#include <socketshr.h>"
1290 $ else
1291 $  WS "#include <netdb.h>
1292 $ endif
1293 $ WS "int main()
1294 $ WS "{"
1295 $ WS "sethostent(1);
1296 $ WS "exit(0);
1297 $ WS "}"
1298 $ CS
1299 $   DEFINE SYS$ERROR _NLA0:
1300 $   DEFINE SYS$OUTPUT _NLA0:
1301 $   on error then continue
1302 $   on warning then continue
1303 $   'Checkcc' temp
1304 $   If (Needs_Opt.eqs."Yes")
1305 $   THEN
1306 $     link temp,temp/opt
1307 $   else
1308 $     link temp
1309 $   endif
1310 $   teststatus = f$extract(9,1,$status)
1311 $   DEASSIGN SYS$OUTPUT
1312 $   DEASSIGN SYS$ERROR
1313 $   if (teststatus.nes."1")
1314 $   THEN
1315 $     perl_d_sethent="undef"
1316 $   ELSE
1317 $     perl_d_sethent="define"
1318 $   ENDIF
1319 $ ELSE
1320 $ perl_d_sethent="undef"
1321 $ ENDIF
1322 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
1323 $!
1324 $! Check for setnetent
1325 $!
1326 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1327 $ THEN
1328 $ OS
1329 $ WS "#ifdef __DECC
1330 $ WS "#include <stdlib.h>
1331 $ WS "#endif
1332 $ WS "#include <stdio.h>
1333 $ if ("''Has_Socketshr'".eqs."T")
1334 $ THEN
1335 $  WS "#include <socketshr.h>"
1336 $ else
1337 $  WS "#include <netdb.h>
1338 $ endif
1339 $ WS "int main()
1340 $ WS "{"
1341 $ WS "setnetent(1);
1342 $ WS "exit(0);
1343 $ WS "}"
1344 $ CS
1345 $   DEFINE SYS$ERROR _NLA0:
1346 $   DEFINE SYS$OUTPUT _NLA0:
1347 $   on error then continue
1348 $   on warning then continue
1349 $   'Checkcc' temp
1350 $   If (Needs_Opt.eqs."Yes")
1351 $   THEN
1352 $     link temp,temp/opt
1353 $   else
1354 $     link temp
1355 $   endif
1356 $   teststatus = f$extract(9,1,$status)
1357 $   DEASSIGN SYS$OUTPUT
1358 $   DEASSIGN SYS$ERROR
1359 $   if (teststatus.nes."1")
1360 $   THEN
1361 $     perl_d_setnent="undef"
1362 $   ELSE
1363 $     perl_d_setnent="define"
1364 $   ENDIF
1365 $ ELSE
1366 $ perl_d_setnent="undef"
1367 $ ENDIF
1368 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
1369 $!
1370 $! Check for setprotoent
1371 $!
1372 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1373 $ THEN
1374 $ OS
1375 $ WS "#ifdef __DECC
1376 $ WS "#include <stdlib.h>
1377 $ WS "#endif
1378 $ WS "#include <stdio.h>
1379 $ if ("''Has_Socketshr'".eqs."T")
1380 $ THEN
1381 $  WS "#include <socketshr.h>"
1382 $ else
1383 $  WS "#include <netdb.h>
1384 $ endif
1385 $ WS "int main()
1386 $ WS "{"
1387 $ WS "setprotoent(1);
1388 $ WS "exit(0);
1389 $ WS "}"
1390 $ CS
1391 $   DEFINE SYS$ERROR _NLA0:
1392 $   DEFINE SYS$OUTPUT _NLA0:
1393 $   on error then continue
1394 $   on warning then continue
1395 $   'Checkcc' temp
1396 $   If (Needs_Opt.eqs."Yes")
1397 $   THEN
1398 $     link temp,temp/opt
1399 $   else
1400 $     link temp
1401 $   endif
1402 $   teststatus = f$extract(9,1,$status)
1403 $   DEASSIGN SYS$OUTPUT
1404 $   DEASSIGN SYS$ERROR
1405 $   if (teststatus.nes."1")
1406 $   THEN
1407 $     perl_d_setpent="undef"
1408 $   ELSE
1409 $     perl_d_setpent="define"
1410 $   ENDIF
1411 $ ELSE
1412 $ perl_d_setpent="undef"
1413 $ ENDIF
1414 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
1415 $!
1416 $! Check for setservent
1417 $!
1418 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1419 $ THEN
1420 $ OS
1421 $ WS "#ifdef __DECC
1422 $ WS "#include <stdlib.h>
1423 $ WS "#endif
1424 $ WS "#include <stdio.h>
1425 $ if ("''Has_Socketshr'".eqs."T")
1426 $ THEN
1427 $  WS "#include <socketshr.h>"
1428 $ else
1429 $  WS "#include <netdb.h>
1430 $ endif
1431 $ WS "int main()
1432 $ WS "{"
1433 $ WS "setservent(1);
1434 $ WS "exit(0);
1435 $ WS "}"
1436 $ CS
1437 $   DEFINE SYS$ERROR _NLA0:
1438 $   DEFINE SYS$OUTPUT _NLA0:
1439 $   on error then continue
1440 $   on warning then continue
1441 $   'Checkcc' temp
1442 $   If (Needs_Opt.eqs."Yes")
1443 $   THEN
1444 $     link temp,temp/opt
1445 $   else
1446 $     link temp
1447 $   endif
1448 $   teststatus = f$extract(9,1,$status)
1449 $   DEASSIGN SYS$OUTPUT
1450 $   DEASSIGN SYS$ERROR
1451 $   if (teststatus.nes."1")
1452 $   THEN
1453 $     perl_d_setsent="undef"
1454 $   ELSE
1455 $     perl_d_setsent="define"
1456 $   ENDIF
1457 $ ELSE
1458 $ perl_d_setsent="undef"
1459 $ ENDIF
1460 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
1461 $!
1462 $! Check for gethostent
1463 $!
1464 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1465 $ THEN
1466 $ OS
1467 $ WS "#ifdef __DECC
1468 $ WS "#include <stdlib.h>
1469 $ WS "#endif
1470 $ WS "#include <stdio.h>
1471 $ if ("''Has_Socketshr'".eqs."T")
1472 $ THEN
1473 $  WS "#include <socketshr.h>"
1474 $ else
1475 $  WS "#include <netdb.h>
1476 $ endif
1477 $ WS "int main()
1478 $ WS "{"
1479 $ WS "gethostent();
1480 $ WS "exit(0);
1481 $ WS "}"
1482 $ CS
1483 $   DEFINE SYS$ERROR _NLA0:
1484 $   DEFINE SYS$OUTPUT _NLA0:
1485 $   on error then continue
1486 $   on warning then continue
1487 $   'Checkcc' temp
1488 $   If (Needs_Opt.eqs."Yes")
1489 $   THEN
1490 $     link temp,temp/opt
1491 $   else
1492 $     link temp
1493 $   endif
1494 $   teststatus = f$extract(9,1,$status)
1495 $   DEASSIGN SYS$OUTPUT
1496 $   DEASSIGN SYS$ERROR
1497 $   if (teststatus.nes."1")
1498 $   THEN
1499 $     perl_d_gethent="undef"
1500 $   ELSE
1501 $     perl_d_gethent="define"
1502 $   ENDIF
1503 $ ELSE
1504 $ perl_d_gethent="undef"
1505 $ ENDIF
1506 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
1507 $!
1508 $! Check for getnetent
1509 $!
1510 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1511 $ THEN
1512 $ OS
1513 $ WS "#ifdef __DECC
1514 $ WS "#include <stdlib.h>
1515 $ WS "#endif
1516 $ WS "#include <stdio.h>
1517 $ if ("''Has_Socketshr'".eqs."T")
1518 $ THEN
1519 $  WS "#include <socketshr.h>"
1520 $ else
1521 $  WS "#include <netdb.h>
1522 $ endif
1523 $ WS "int main()
1524 $ WS "{"
1525 $ WS "getnetent();
1526 $ WS "exit(0);
1527 $ WS "}"
1528 $ CS
1529 $   DEFINE SYS$ERROR _NLA0:
1530 $   DEFINE SYS$OUTPUT _NLA0:
1531 $   on error then continue
1532 $   on warning then continue
1533 $   'Checkcc' temp
1534 $   If (Needs_Opt.eqs."Yes")
1535 $   THEN
1536 $     link temp,temp/opt
1537 $   else
1538 $     link temp
1539 $   endif
1540 $   teststatus = f$extract(9,1,$status)
1541 $   DEASSIGN SYS$OUTPUT
1542 $   DEASSIGN SYS$ERROR
1543 $   if (teststatus.nes."1")
1544 $   THEN
1545 $     perl_d_getnent="undef"
1546 $   ELSE
1547 $     perl_d_getnent="define"
1548 $   ENDIF
1549 $ ELSE
1550 $ perl_d_getnent="undef"
1551 $ ENDIF
1552 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
1553 $!
1554 $! Check for getprotoent
1555 $!
1556 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1557 $ THEN
1558 $ OS
1559 $ WS "#ifdef __DECC
1560 $ WS "#include <stdlib.h>
1561 $ WS "#endif
1562 $ WS "#include <stdio.h>
1563 $ if ("''Has_Socketshr'".eqs."T")
1564 $ THEN
1565 $  WS "#include <socketshr.h>"
1566 $ else
1567 $  WS "#include <netdb.h>
1568 $ endif
1569 $ WS "int main()
1570 $ WS "{"
1571 $ WS "getprotoent();
1572 $ WS "exit(0);
1573 $ WS "}"
1574 $ CS
1575 $   DEFINE SYS$ERROR _NLA0:
1576 $   DEFINE SYS$OUTPUT _NLA0:
1577 $   on error then continue
1578 $   on warning then continue
1579 $   'Checkcc' temp
1580 $   If (Needs_Opt.eqs."Yes")
1581 $   THEN
1582 $     link temp,temp/opt
1583 $   else
1584 $     link temp
1585 $   endif
1586 $   teststatus = f$extract(9,1,$status)
1587 $   DEASSIGN SYS$OUTPUT
1588 $   DEASSIGN SYS$ERROR
1589 $   if (teststatus.nes."1")
1590 $   THEN
1591 $     perl_d_getpent="undef"
1592 $   ELSE
1593 $     perl_d_getpent="define"
1594 $   ENDIF
1595 $ ELSE
1596 $ perl_d_getpent="undef"
1597 $ ENDIF
1598 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
1599 $!
1600 $! Check for getservent
1601 $!
1602 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1603 $ THEN
1604 $ OS
1605 $ WS "#ifdef __DECC
1606 $ WS "#include <stdlib.h>
1607 $ WS "#endif
1608 $ WS "#include <stdio.h>
1609 $ if ("''Has_Socketshr'".eqs."T")
1610 $ THEN
1611 $  WS "#include <socketshr.h>"
1612 $ else
1613 $  WS "#include <netdb.h>
1614 $ endif
1615 $ WS "int main()
1616 $ WS "{"
1617 $ WS "getservent();
1618 $ WS "exit(0);
1619 $ WS "}"
1620 $ CS
1621 $   DEFINE SYS$ERROR _NLA0:
1622 $   DEFINE SYS$OUTPUT _NLA0:
1623 $   on error then continue
1624 $   on warning then continue
1625 $   'Checkcc' temp
1626 $   If (Needs_Opt.eqs."Yes")
1627 $   THEN
1628 $     link temp,temp/opt
1629 $   else
1630 $     link temp
1631 $   endif
1632 $   teststatus = f$extract(9,1,$status)
1633 $   DEASSIGN SYS$OUTPUT
1634 $   DEASSIGN SYS$ERROR
1635 $   if (teststatus.nes."1")
1636 $   THEN
1637 $     perl_d_getsent="undef"
1638 $   ELSE
1639 $     perl_d_getsent="define"
1640 $   ENDIF
1641 $ ELSE
1642 $ perl_d_getsent="undef"
1643 $ ENDIF
1644 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
1645 $!
1646 $! Check for pthread_yield
1647 $!
1648 $ if ("''use_threads'".eqs."T")
1649 $ THEN
1650 $ OS
1651 $ WS "#ifdef __DECC
1652 $ WS "#include <stdlib.h>
1653 $ WS "#endif
1654 $ WS "#include <pthread.h>
1655 $ WS "#include <stdio.h>
1656 $ WS "int main()
1657 $ WS "{"
1658 $ WS "pthread_yield();
1659 $ WS "exit(0);
1660 $ WS "}"
1661 $ CS
1662 $   DEFINE SYS$ERROR _NLA0:
1663 $   DEFINE SYS$OUTPUT _NLA0:
1664 $   on error then continue
1665 $   on warning then continue
1666 $   'Checkcc' temp
1667 $   teststatus = f$extract(9,1,$status)
1668 $   DEASSIGN SYS$OUTPUT
1669 $   DEASSIGN SYS$ERROR
1670 $   if (teststatus.nes."1")
1671 $   THEN
1672 $     perl_d_pthread_yield="undef"
1673 $   ELSE
1674 $     perl_d_pthread_yield="define"
1675 $   ENDIF
1676 $ ELSE
1677 $   perl_d_pthread_yield="undef"
1678 $ ENDIF
1679 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
1680 $!
1681 $! Check for sched_yield
1682 $!
1683 $ if ("''use_threads'".eqs."T")
1684 $ THEN
1685 $ OS
1686 $ WS "#ifdef __DECC
1687 $ WS "#include <stdlib.h>
1688 $ WS "#endif
1689 $ WS "#include <pthread.h>
1690 $ WS "#include <stdio.h>
1691 $ WS "int main()
1692 $ WS "{"
1693 $ WS "sched_yield();
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
1702 $   teststatus = f$extract(9,1,$status)
1703 $   DEASSIGN SYS$OUTPUT
1704 $   DEASSIGN SYS$ERROR
1705 $   if (teststatus.nes."1")
1706 $   THEN
1707 $     perl_d_sched_yield="undef"
1708 $   ELSE
1709 $     perl_d_sched_yield="define"
1710 $   ENDIF
1711 $ ELSE
1712 $   perl_d_sched_yield="undef"
1713 $ ENDIF
1714 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
1715 $!
1716 $! Check for generic pointer size
1717 $!
1718 $ OS
1719 $ WS "#ifdef __DECC
1720 $ WS "#include <stdlib.h>
1721 $ WS "#endif
1722 $ WS "#include <stdio.h>
1723 $ WS "int main()
1724 $ WS "{"
1725 $ WS "int foo;
1726 $ WS "foo = sizeof(char *);
1727 $ WS "printf(""%d\n"", foo);
1728 $ WS "exit(0);
1729 $ WS "}"
1730 $ CS
1731 $! copy temp.c sys$output
1732 $!
1733 $   DEFINE SYS$ERROR _NLA0:
1734 $   DEFINE SYS$OUTPUT _NLA0:
1735 $   ON ERROR THEN CONTINUE
1736 $   ON WARNING THEN CONTINUE
1737 $   'Checkcc' temp
1738 $   If (Needs_Opt.eqs."Yes")
1739 $   THEN
1740 $     link temp,temp/opt
1741 $   else
1742 $     link temp
1743 $   endif
1744 $   OPEN/WRITE TEMPOUT [-.uu]tempout.lis
1745 $   DEASSIGN SYS$OUTPUT
1746 $   DEASSIGN SYS$ERROR
1747 $   DEFINE SYS$ERROR TEMPOUT
1748 $   DEFINE SYS$OUTPUT TEMPOUT
1749 $   mcr []temp
1750 $   CLOSE TEMPOUT
1751 $   DEASSIGN SYS$OUTPUT
1752 $   DEASSIGN SYS$ERROR
1753 $   OPEN/READ TEMPOUT [-.uu]tempout.lis
1754 $   READ TEMPOUT line
1755 $   CLOSE TEMPOUT
1756 $
1757 $ perl_ptrsize=line
1758 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
1759 $!
1760 $ set nover
1761 $! Done with compiler checks. Clean up.
1762 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
1763 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
1764 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
1765 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
1766 $!
1767 $!
1768 $! Some that are compiler or VMS version sensitive
1769 $!
1770 $! Gnu C stuff
1771 $ IF "''Using_Gnu_C'".EQS."Yes"
1772 $ THEN
1773 $   perl_d_attribut="define"
1774 $   perl_vms_cc_type="gcc"
1775 $ ELSE
1776 $   perl_d_attribut="undef"
1777 $ ENDIF
1778 $
1779 $! Dec C >= 5.2 and VMS ver >= 7.0
1780 $ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
1781 $ THEN
1782 $ perl_d_bcmp="define"
1783 $ perl_d_gettimeod="define"
1784 $ perl_d_uname="define"
1785 $ perl_d_sigaction="define"
1786 $ perl_d_truncate="define"
1787 $ perl_d_wait4="define"
1788 $ perl_d_index="define"
1789 $ perl_pidtype="pid_t"
1790 $ 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"
1791 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
1792 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
1793 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
1794 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
1795 $ 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"
1796 $ perl_sig_num_with_commas=perl_sig_num
1797 $ perl_uidtype="uid_t"
1798 $ perl_d_pathconf="define"
1799 $ perl_d_fpathconf="define"
1800 $ perl_d_sysconf="define"
1801 $ perl_d_sigsetjmp="define"
1802 $ ELSE
1803 $ perl_pidtype="unsigned int"
1804 $ perl_d_gettimeod="undef"
1805 $ perl_d_bcmp="undef"
1806 $ perl_d_uname="undef"
1807 $ perl_d_sigaction="undef"
1808 $ perl_d_truncate="undef"
1809 $ perl_d_wait4="undef"
1810 $ perl_d_index="undef"
1811 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
1812 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
1813 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
1814 $ perl_sig_name_with_commas = psnwc1 + psnwc2
1815 $ perl_sig_num="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
1816 $ perl_sig_num_with_commas=perl_sig_num
1817 $ perl_uidtype="unsigned int"
1818 $ perl_d_pathconf="undef"
1819 $ perl_d_fpathconf="undef"
1820 $ perl_d_sysconf="undef"
1821 $ perl_d_sigsetjmp="undef"
1822 $ ENDIF
1823 $!
1824 $! Dec C alone
1825 $ IF ("''Using_Dec_C'".EQS."Yes")
1826 $ THEN
1827 $ perl_d_mbstowcs="define"
1828 $ perl_d_mbtowc="define"
1829 $ perl_d_stdiobase="define"
1830 $ perl_d_stdio_ptr_lval="define"
1831 $ perl_d_stdio_cnt_lval="define"
1832 $ perl_d_stdstdio="define"
1833 $ perl_d_wcstombs="define"
1834 $ perl_d_mblen="define"
1835 $ perl_d_mktime="define"
1836 $ perl_d_strcoll="define"
1837 $ perl_d_strxfrm="define"
1838 $ perl_d_wctomb="define"
1839 $ perl_i_locale="define"
1840 $ perl_d_locconv="define"
1841 $ perl_d_setlocale="define"
1842 $ perl_vms_cc_type="decc"
1843 $ ELSE
1844 $ perl_d_mbstowcs="undef"
1845 $ perl_d_mbtowc="undef"
1846 $ perl_d_stdiobase="undef"
1847 $ perl_d_stdio_ptr_lval="undef"
1848 $ perl_d_stdio_cnt_lval="undef"
1849 $ perl_d_stdstdio="undef"
1850 $ perl_d_wcstombs="undef"
1851 $ perl_d_mblen="undef"
1852 $ perl_d_mktime="undef"
1853 $ perl_d_strcoll="undef"
1854 $ perl_d_strxfrm="undef"
1855 $ perl_d_wctomb="undef"
1856 $ perl_i_locale="undef"
1857 $ perl_d_locconv="undef"
1858 $ perl_d_setlocale="undef"
1859 $ ENDIF
1860 $!
1861 $! Vax C stuff
1862 $ if ("''Using_Vax_C'".EQS."Yes")
1863 $ THEN
1864 $ perl_vms_cc_type="vaxc"
1865 $ ENDIF
1866 $!
1867 $!
1868 $! Sockets?
1869 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
1870 $ THEN
1871 $ perl_d_vms_do_sockets="define"
1872 $ perl_d_htonl="define"
1873 $ perl_d_socket="define"
1874 $ perl_d_select="define"
1875 $ perl_netdb_host_type="char *"
1876 $ perl_netdb_hlen_type="int"
1877 $ perl_netdb_name_type="char *"
1878 $ perl_netdb_net_type="long"
1879 $ perl_d_gethbyaddr="define"
1880 $ perl_d_gethbyname="define"
1881 $ perl_d_getnbyaddr="define"
1882 $ perl_d_getnbyname="define"
1883 $ perl_d_getpbynumber="define"
1884 $ perl_d_getpbyname="define"
1885 $ perl_d_getsbyport="define"
1886 $ perl_d_getsbyname="define"
1887 $ perl_d_gethostprotos="define"
1888 $ perl_d_getnetprotos="define"
1889 $ perl_d_getprotoprotos="define"
1890 $ perl_d_getservprotos="define"
1891 $ ELSE
1892 $ perl_d_vms_do_sockets="undef"
1893 $ perl_d_htonl="undef"
1894 $ perl_d_socket="undef"
1895 $ perl_d_select="undef"
1896 $ perl_netdb_host_type="char *"
1897 $ perl_netdb_hlen_type="int"
1898 $ perl_netdb_name_type="char *"
1899 $ perl_netdb_net_type="long"
1900 $ perl_d_gethbyaddr="undef"
1901 $ perl_d_gethbyname="undef"
1902 $ perl_d_getnbyaddr="undef"
1903 $ perl_d_getnbyname="undef"
1904 $ perl_d_getpbynumber="undef"
1905 $ perl_d_getpbyname="undef"
1906 $ perl_d_getsbyport="undef"
1907 $ perl_d_getsbyname="undef"
1908 $ perl_d_gethostprotos="undef"
1909 $ perl_d_getnetprotos="undef"
1910 $ perl_d_getprotoprotos="undef"
1911 $ perl_d_getservprotos="undef"
1912 $ ENDIF
1913 $! Threads
1914 $ if ("''use_threads'".eqs."T")
1915 $ THEN
1916 $   perl_usethreads="define"
1917 $   perl_d_pthreads_created_joinable="define"
1918 $   if ("''VMS_VER'".ges."7.0")
1919 $   THEN
1920 $     perl_d_oldpthreads="undef"
1921 $   ELSE
1922 $     perl_d_oldpthreads="define"
1923 $   ENDIF
1924 $ ELSE
1925 $   perl_d_oldpthreads="undef"
1926 $   perl_usethreads="undef"
1927 $
1928 $   perl_d_pthreads_created_joinable="undef"
1929 $ ENDIF
1930 $!
1931 $!
1932 $! Finally the composite ones. All config
1933 $ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
1934 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
1935 $ perl_myhostname="''myhostname'"
1936 $ perl_mydomain="''mydomain'"
1937 $ perl_perladmin="''perladmin'"
1938 $ perl_cf_email="''cf_email'"
1939 $ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
1940 $ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
1941 $ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
1942 $ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
1943 $ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
1944 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
1945 $ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
1946 $ if "''Using_Dec_C'" .eqs. "Yes"
1947 $ THEN
1948 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
1949 $ ELSE
1950 $   IF "''Using_Vax_C'" .eqs. "Yes"
1951 $   THEN
1952 $     perl_ccflags="/Include=[]/Obj=''perl_obj_ext'/NoList''cc_flags'"
1953 $   ENDIF
1954 $ ENDIF
1955 $!
1956 $! Finally clean off any leading zeros from the patchlevel or subversion
1957 $ perl_patchlevel = perl_patchlevel + 0
1958 $ perl_subversion = perl_subversion + 0
1959 $!
1960 $! Okay, we've got everything configured. Now go write out a config.sh.
1961 $ open/write CONFIGSH [-]config.sh
1962 $ WC := "write CONFIGSH"
1963 $!
1964 $ WC "# This file generated by Configure.COM on a VMS system."
1965 $ WC "# Time: " + perl_cf_time
1966 $ WC ""
1967 $ WC "package='" + perl_package + "'"
1968 $ WC "CONFIG='" + perl_config + "'"
1969 $ WC "cf_time='" + perl_cf_time + "'"
1970 $ WC "cf_by='" + perl_cf_by+ "'"
1971 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
1972 $ WC "ccdlflags='" + perl_ccdlflags + "'"
1973 $ WC "cccdlflags='" + perl_cccdlflags + "'"
1974 $ WC "mab='" + perl_mab + "'"
1975 $ WC "libpth='" + perl_libpth + "'"
1976 $ WC "ld='" + perl_ld + "'"
1977 $ WC "lddlflags='" + perl_lddlflags + "'"
1978 $ WC "ranlib='" + perl_ranlib + "'"
1979 $ WC "ar='" + perl_ar + "'"
1980 $ WC "eunicefix='" + perl_eunicefix + "'"
1981 $ WC "hint='" + perl_hint +"'"
1982 $ WC "hintfile='" + perl_hintfile + "'"
1983 $ WC "shrplib='" + perl_shrplib + "'"
1984 $ WC "usemymalloc='" + perl_usemymalloc + "'"
1985 $ WC "usevfork='" + perl_usevfork + "'"
1986 $ WC "useposix='false'"
1987 $ WC "spitshell='write sys$output '"
1988 $ WC "dlsrc='dl_vms.c'"
1989 $ WC "binexp='" + perl_binexp + "'"
1990 $ WC "man1ext='" + perl_man1ext + "'"
1991 $ WC "man3ext='" + perl_man3ext + "'"
1992 $ WC "arch='" + perl_arch + "'"
1993 $ WC "archname='" + perl_archname + "'"
1994 $ WC "osvers='" + perl_osvers + "'"
1995 $ WC "prefix='" + perl_prefix + "'"
1996 $ WC "builddir='" + perl_builddir + "'"
1997 $ WC "installbin='" + perl_installbin + "'"
1998 $ WC "installscript='" + perl_installscript + "'"
1999 $ WC "installman1dir='" + perl_installman1dir + "'"
2000 $ WC "installman3dir='" + perl_installman3dir + "'"
2001 $ WC "installprivlib='" + perl_installprivlib + "'"
2002 $ WC "installarchlib='" + perl_installarchlib + "'"
2003 $ WC "installsitelib='" + perl_installsitelib + "'"
2004 $ WC "installsitearch='" + perl_installsitearch + "'"
2005 $ WC "path_sep='" + perl_path_sep + "'"
2006 $ WC "startperl=""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8'  !\n$ exit++ perl_ + ++$status != 0 and $exit = $status = undef;"""
2007 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
2008 $ WC "d_attribut='" + perl_d_attribut + "'"
2009 $ WC "cc='" + perl_cc + "'"
2010 $ WC "ccflags='" + perl_ccflags + "'"
2011 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
2012 $ WC "d_socket='" + perl_d_socket + "'"
2013 $ WC "d_sockpair='" + perl_d_sockpair + "'"
2014 $ WC "d_gethent='" + perl_d_gethent + "'"
2015 $ WC "d_getsent='" + perl_d_getsent + "'"
2016 $ WC "d_select='" + perl_d_select + "'"
2017 $ WC "i_niin='" + perl_i_niin + "'"
2018 $ WC "i_arpa_inet='" + perl_i_arpa_inet + "'"
2019 $ WC "i_neterrno='" + perl_i_neterrno + "'"
2020 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
2021 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
2022 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
2023 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
2024 $ WC "d_locconv='" + perl_d_locconv + "'"
2025 $ WC "d_setlocale='" + perl_d_setlocale + "'"
2026 $ WC "i_locale='" + perl_i_locale + "'"
2027 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
2028 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
2029 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
2030 $ WC "d_wctomb='" + perl_d_wctomb + "'"
2031 $ WC "d_mblen='" + perl_d_mblen + "'"
2032 $ WC "d_mktime='" + perl_d_mktime + "'"
2033 $ WC "d_strcoll='" + perl_d_strcoll + "'"
2034 $ WC "d_strxfrm='" + perl_d_strxfrm  + "'"
2035 $ WC "ldflags='" + perl_ldflags + "'"
2036 $ WC "dlobj='" + perl_dlobj + "'"
2037 $ WC "obj_ext='" + perl_obj_ext + "'"
2038 $ WC "so='" + perl_so + "'"
2039 $ WC "dlext='" + perl_dlext + "'"
2040 $ WC "exe_ext='" + perl_exe_ext + "'"
2041 $ WC "lib_ext='" + perl_lib_ext + "'"
2042 $ WC "myhostname='" + perl_myhostname + "'"
2043 $ WC "mydomain='" + perl_mydomain + "'"
2044 $ WC "perladmin='" + perl_perladmin + "'"
2045 $ WC "cf_email='" + perl_cf_email + "'"
2046 $ WC "myuname='" + perl_myuname + "'"
2047 $ WC "alignbytes='" + perl_alignbytes + "'"
2048 $ WC "osname='" + perl_osname + "'"
2049 $ WC "d_archlib='" + perl_d_archlib + "'"
2050 $ WC "archlibexp='" + perl_archlibexp + "'"
2051 $ WC "archlib='" + perl_archlib + "'"
2052 $ WC "archname='" + perl_archname + "'"
2053 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
2054 $ WC "cppstdin='" + perl_cppstdin + "'"
2055 $ WC "cppminus='" + perl_cppminus + "'"
2056 $ WC "d_bcmp='" + perl_d_bcmp + "'"
2057 $ WC "d_bcopy='" + perl_d_bcopy + "'"
2058 $ WC "d_bzero='" + perl_d_bzero + "'"
2059 $ WC "d_castneg='" + perl_d_castneg + "'"
2060 $ WC "castflags='" + perl_castflags + "'"
2061 $ WC "d_chsize='" + perl_d_chsize + "'"
2062 $ WC "d_const='" + perl_d_const + "'"
2063 $ WC "d_crypt='" + perl_d_crypt + "'"
2064 $ WC "byteorder='" + perl_byteorder + "'"
2065 $ WC "full_csh='" + perl_full_csh + "'"
2066 $ WC "d_csh='" + perl_d_csh + "'"
2067 $ WC "d_dup2='" + perl_d_dup2 + "'"
2068 $ WC "d_fchmod='" + perl_d_fchmod + "'"
2069 $ WC "d_fchown='" + perl_d_fchown + "'"
2070 $ WC "d_fcntl='" + perl_d_fcntl + "'"
2071 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
2072 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
2073 $ WC "d_flock='" + perl_d_flock + "'"
2074 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
2075 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
2076 $ WC "d_getgrps='" + perl_d_getgrps + "'"
2077 $ WC "d_setgrps='" + perl_d_setgrps + "'"
2078 $ WC "d_uname='" + perl_d_uname + "'"
2079 $ WC "d_getprior='" + perl_d_getprior + "'"
2080 $ WC "d_killpg='" + perl_d_killpg + "'"
2081 $ WC "d_link='" + perl_d_link + "'"
2082 $ WC "d_lstat='" + perl_d_lstat + "'"
2083 $ WC "d_lockf='" + perl_d_lockf + "'"
2084 $ WC "d_memcmp='" + perl_d_memcmp + "'"
2085 $ WC "d_memcpy='" + perl_d_memcpy + "'"
2086 $ WC "d_memmove='" + perl_d_memmove + "'"
2087 $ WC "d_memset='" + perl_d_memset + "'"
2088 $ WC "d_mkdir='" + perl_d_mkdir + "'"
2089 $ WC "d_msg='" + perl_d_msg + "'"
2090 $ WC "d_open3='" + perl_d_open3 + "'"
2091 $ WC "d_poll='" + perl_d_poll + "'"
2092 $ WC "d_readdir='" + perl_d_readdir + "'"
2093 $ WC "d_seekdir='" + perl_d_seekdir + "'"
2094 $ WC "d_telldir='" + perl_d_telldir + "'"
2095 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
2096 $ WC "d_rename='" + perl_d_rename + "'"
2097 $ WC "d_rmdir='" + perl_d_rmdir + "'"
2098 $ WC "d_sem='" + perl_d_sem + "'"
2099 $ WC "d_setegid='" + perl_d_setegid + "'"
2100 $ WC "d_seteuid='" + perl_d_seteuid + "'"
2101 $ WC "d_setprior='" + perl_d_setprior + "'"
2102 $ WC "d_setregid='" + perl_d_setregid + "'"
2103 $ WC "d_setresgid='" + perl_d_setresgid + "'"
2104 $ WC "d_setreuid='" + perl_d_setreuid + "'"
2105 $ WC "d_setresuid='" + perl_d_setresuid + "'"
2106 $ WC "d_setrgid='" + perl_d_setrgid + "'"
2107 $ WC "d_setruid='" + perl_d_setruid + "'"
2108 $ WC "d_setsid='" + perl_d_setsid + "'"
2109 $ WC "d_shm='" + perl_d_shm + "'"
2110 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
2111 $ WC "d_sigaction='" + perl_d_sigaction + "'"
2112 $ WC "d_statblks='" + perl_d_statblks + "'"
2113 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
2114 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
2115 $ WC "stdio_base='" + perl_stdio_base + "'"
2116 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
2117 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
2118 $ WC "d_strerror='" + perl_d_strerror + "'"
2119 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
2120 $ WC "d_strerrm='" + perl_d_strerrm + "'"
2121 $ WC "d_symlink='" + perl_d_symlink + "'"
2122 $ WC "d_syscall='" + perl_d_syscall + "'"
2123 $ WC "d_system='" + perl_d_system + "'"
2124 $ WC "timetype='" + perl_timetype + "'"
2125 $ WC "d_truncate='" + perl_d_truncate + "'"
2126 $ WC "d_vfork='" + perl_d_vfork + "'"
2127 $ WC "signal_t='" + perl_signal_t + "'"
2128 $ WC "d_volatile='" + perl_d_volatile + "'"
2129 $ WC "d_vprintf='" + perl_d_vprintf + "'"
2130 $ WC "d_charvspr='" + perl_d_charvspr + "'"
2131 $ WC "d_wait4='" + perl_d_wait4 + "'"
2132 $ WC "d_waitpid='" + perl_d_waitpid + "'"
2133 $ WC "i_dirent='" + perl_i_dirent + "'"
2134 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
2135 $ WC "direntrytype='" + perl_direntrytype + "'"
2136 $ WC "i_fcntl='" + perl_i_fcntl + "'"
2137 $ WC "i_grp='" + perl_i_grp + "'"
2138 $ WC "i_limits='" + perl_i_limits + "'"
2139 $ WC "i_memory='" + perl_i_memory + "'"
2140 $ WC "i_ndbm='" + perl_i_ndbm + "'"
2141 $ WC "i_stdarg='" + perl_i_stdarg + "'"
2142 $ WC "i_pwd='" + perl_i_pwd + "'"
2143 $ WC "d_pwquota='" + perl_d_pwquota + "'"
2144 $ WC "d_pwage='" + perl_d_pwage + "'"
2145 $ WC "d_pwchange='" + perl_d_pwchange + "'"
2146 $ WC "d_pwclass='" + perl_d_pwclass + "'"
2147 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
2148 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
2149 $ WC "i_stddef='" + perl_i_stddef + "'"
2150 $ WC "i_stdlib='" + perl_i_stdlib + "'"
2151 $ WC "i_string='" + perl_i_string + "'"
2152 $ WC "i_sysdir='" + perl_i_sysdir + "'"
2153 $ WC "i_sysfile='" + perl_i_sysfile + "'"
2154 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
2155 $ WC "i_sysndir='" + perl_i_sysndir + "'"
2156 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
2157 $ WC "i_sysselct='" + perl_i_sysselct + "'"
2158 $ WC "i_dbm='" + perl_i_dbm + "'"
2159 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
2160 $ WC "i_sfio='" + perl_i_sfio + "'"
2161 $ WC "i_sysstat='" + perl_i_sysstat + "'"
2162 $ WC "i_systimes='" + perl_i_systimes + "'"
2163 $ WC "i_systypes='" + perl_i_systypes + "'"
2164 $ WC "i_sysun='" + perl_i_sysun + "'"
2165 $ WC "i_syswait='" + perl_i_syswait + "'"
2166 $ WC "i_termio='" + perl_i_termio + "'"
2167 $ WC "i_sgtty='" + perl_i_sgtty + "'"
2168 $ WC "i_termios='" + perl_i_termios + "'"
2169 $ WC "i_time='" + perl_i_time + "'"
2170 $ WC "i_systime='" + perl_i_systime + "'"
2171 $ WC "i_systimek='" + perl_i_systimek + "'"
2172 $ WC "i_unistd='" + perl_i_unistd + "'"
2173 $ WC "i_utime='" + perl_i_utime + "'"
2174 $ WC "i_varargs='" + perl_i_varargs + "'"
2175 $ WC "i_vfork='" + perl_i_vfork + "'"
2176 $ WC "prototype='" + perl_prototype + "'"
2177 $ WC "randbits='" + perl_randbits +"'"
2178 $ WC "selecttype='" + perl_selecttype + "'"
2179 $ WC "stdchar='" + perl_stdchar + "'"
2180 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
2181 $ WC "full_sed='" + perl_full_sed + "'"
2182 $ WC "bin='" + perl_bin + "'"
2183 $ WC "binexp='" + perl_binexp + "'"
2184 $ WC "d_alarm='" + perl_d_alarm + "'"
2185 $ WC "d_casti32='" + perl_d_casti32 + "'"
2186 $ WC "d_chown='" + perl_d_chown + "'"
2187 $ WC "d_chroot='" + perl_d_chroot + "'"
2188 $ WC "d_cuserid='" + perl_d_cuserid + "'"
2189 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
2190 $ WC "d_difftime='" + perl_d_difftime + "'"
2191 $ WC "d_fork='" + perl_d_fork + "'"
2192 $ WC "d_getlogin='" + perl_d_getlogin + "'"
2193 $ WC "d_getppid='" + perl_d_getppid + "'"
2194 $ WC "d_htonl='" + perl_d_htonl + "'"
2195 $ WC "d_nice='" + perl_d_nice + "'"
2196 $ WC "d_pause='" + perl_d_pause + "'"
2197 $ WC "d_pipe='" + perl_d_pipe + "'"
2198 $ WC "d_readlink='" + perl_d_readlink + "'"
2199 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
2200 $ WC "d_strchr='" + perl_d_strchr + "'"
2201 $ WC "d_index='" + perl_d_index + "'"
2202 $ WC "d_strtod='" + perl_d_strtod + "'"
2203 $ WC "d_strtol='" + perl_d_strtol + "'"
2204 $ WC "d_strtoul='" + perl_d_strtoul + "'"
2205 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
2206 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
2207 $ WC "d_times='" + perl_d_times + "'"
2208 $ WC "d_tzname='" + perl_d_tzname + "'"
2209 $ WC "d_umask='" + perl_d_umask + "'"
2210 $ WC "fpostype='" + perl_fpostype + "'"
2211 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
2212 $ WC "i_float='" + perl_i_float + "'"
2213 $ WC "i_math='" + perl_i_math + "'"
2214 $ WC "intsize='" + perl_intsize + "'"
2215 $ WC "longsize='" + perl_longsize + "'"
2216 $ WC "shortsize='" + perl_shortsize + "'"
2217 $ WC "lseektype='" + perl_lseektype + "'"
2218 $ WC "i_values='" + perl_i_values + "'"
2219 $ WC "malloctype='" + perl_malloctype + "'"
2220 $ WC "freetype='" + perl_freetype + "'"
2221 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
2222 $ WC "sh='" + perl_sh + "'"
2223 $ WC "sig_name='" + perl_sig_name + "'"
2224 $ WC "sig_num='" + perl_sig_num + "'"
2225 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
2226 $ WC/symbol tempsym
2227 $ WC "modetype='" + perl_modetype + "'"
2228 $ WC "ssizetype='" + perl_ssizetype + "'"
2229 $ WC "o_nonblock='" + perl_o_nonblock + "'"
2230 $ WC "eagain='" + perl_eagain + "'"
2231 $ WC "rd_nodata='" + perl_rd_nodata + "'"
2232 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
2233 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
2234 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
2235 $ WC "oldarchlib='" + perl_oldarchlib + "'"
2236 $ WC "privlibexp='" + perl_privlibexp + "'"
2237 $ WC "privlib='" + perl_privlib + "'"
2238 $ WC "sitelibexp='" + perl_sitelibexp + "'"
2239 $ WC "sitelib='" + perl_sitelib + "'"
2240 $ WC "sitearchexp='" + perl_sitearchexp + "'"
2241 $ WC "sitearch='" + perl_sitearch + "'"
2242 $ WC "sizetype='" + perl_sizetype + "'"
2243 $ WC "i_sysparam='" + perl_i_sysparam + "'"
2244 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
2245 $ WC "d_dlerror='" + perl_d_dlerror + "'"
2246 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
2247 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
2248 $ WC "d_dosuid='" + perl_d_dosuid + "'"
2249 $ WC "d_inetaton='" + perl_d_inetaton + "'"
2250 $ WC "d_isascii='" + perl_d_isascii + "'"
2251 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
2252 $ WC "d_pathconf='" + perl_d_pathconf + "'"
2253 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
2254 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
2255 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
2256 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
2257 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
2258 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
2259 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
2260 $ WC "d_setpgid='" + perl_d_setpgid + "'"
2261 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
2262 $ WC "d_sysconf='" + perl_d_sysconf + "'"
2263 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
2264 $ WC "d_getpgid='" + perl_d_getpgid + "'"
2265 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
2266 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
2267 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
2268 $ WC "d_sfio='" + perl_d_sfio + "'"
2269 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
2270 $ WC "usedl='" + perl_usedl + "'"
2271 $ WC "startperl='" + perl_startperl + "'"
2272 $ WC "db_hashtype='" + perl_db_hashtype + "'"
2273 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
2274 $ WC "useperlio='" + perl_useperlio + "'"
2275 $ WC "defvoidused='" + perl_defvoidused + "'"
2276 $ WC "voidflags='" + perl_voidflags + "'"
2277 $ WC "d_eunice='" + perl_d_eunice + "'"
2278 $ WC "libs='" + perl_libs + "'"
2279 $ WC "libc='" + perl_libc + "'"
2280 $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
2281 $ WC tempstring
2282 $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
2283 $ WC tempstring
2284 $ WC "pager='" + perl_pager + "'"
2285 $ WC "uidtype='" + perl_uidtype + "'"
2286 $ WC "gidtype='" + perl_gidtype + "'"
2287 $ WC "usethreads='" + perl_usethreads + "'"
2288 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
2289 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
2290 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
2291 $ WC "i_netdb='" + perl_i_netdb + "'"
2292 $ WC "pidtype='" + perl_pidtype + "'"
2293 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
2294 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
2295 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
2296 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
2297 $ WC "baserev='" + perl_baserev + "'"
2298 $ WC "doublesize='" + perl_doublesize + "'"
2299 $ WC "ptrsize='" + perl_ptrsize + "'"
2300 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
2301 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
2302 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
2303 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
2304 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
2305 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
2306 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
2307 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
2308 $ WC "d_sethent='" + perl_d_sethent + "'"
2309 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
2310 $ WC "d_longdbl='" + perl_d_longdbl + "'"
2311 $ WC "longdblsize='" + perl_longdblsize + "'"
2312 $ WC "d_longlong='" + perl_d_longlong + "'"
2313 $ WC "longlongsize='" + perl_longlongsize + "'"
2314 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
2315 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
2316 $ WC "d_endhent='" + perl_d_endhent + "'"
2317 $ WC "d_endnent='" + perl_d_endsent + "'"
2318 $ WC "d_endpent='" + perl_d_endpent + "'"
2319 $ WC "d_endsent='" + perl_d_endsent + "'"
2320 $ WC "d_gethent='" + perl_d_gethent + "'"
2321 $ WC "d_getnent='" + perl_d_getsent + "'"
2322 $ WC "d_getpent='" + perl_d_getpent + "'"
2323 $ WC "d_getsent='" + perl_d_getsent + "'"
2324 $ WC "d_sethent='" + perl_d_sethent + "'"
2325 $ WC "d_setnent='" + perl_d_setsent + "'"
2326 $ WC "d_setpent='" + perl_d_setpent + "'"
2327 $ WC "d_setsent='" + perl_d_setsent + "'"
2328 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
2329 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
2330 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
2331 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
2332 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
2333 $ WC "d_pwpasswd='" + perl_d_pwpasswd + "'"
2334 $ WC "d_setpwent='" + perl_d_setpwent + "'"
2335 $ WC "d_getpwent='" + perl_d_getpwent + "'"
2336 $ WC "d_endpwent='" + perl_d_endpwent + "'"
2337 $ WC "d_grpasswd='" + perl_d_grpasswd + "'"
2338 $ WC "d_setgrent='" + perl_d_setgrent + "'"
2339 $ WC "d_getgrent='" + perl_d_getgrent + "'"
2340 $ WC "d_endgrent='" + perl_d_endgrent + "'"
2341 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
2342 $ WC "d_lchown='" + perl_d_lchown + "'"
2343 $ WC "d_union_semun='" + perl_d_union_semun + "'"
2344 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
2345 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
2346 $ WC "extensions='" + perl_extensions + "'"
2347 $ WC "d_mknod='" + perl_d_mknod + "'"
2348 $ WC "devtype='" + perl_devtype + "'"
2349 $!
2350 $ Close CONFIGSH
2351 $
2352 $! Okay, we've gotten here. Build munchconfig and run it
2353 $ 'Perl_CC' munchconfig
2354 $ If (Needs_Opt.eqs."Yes")
2355 $ THEN
2356 $   open/write OPTCHAN []munchconfig.opt
2357 $   IF ("''using_gnu_c'".eqs."Yes")
2358 $   THEN
2359 $     write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
2360 $   endif
2361 $   write OPTCHAN "Sys$Share:VAXCRTL/Share"
2362 $   Close OPTCHAN
2363 $   link munchconfig,munchconfig/opt
2364 $   delete munchconfig.opt;*
2365 $ else
2366 $   link munchconfig
2367 $ endif
2368 $ WRITE_RESULT "Writing config.h"
2369 $ !
2370 $ ! we need an fdl file
2371 $ CREATE [-]CONFIG.FDL
2372 RECORD
2373   FORMAT STREAM_LF
2374 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
2375 $ ! First spit out the header info with the local defines (to get
2376 $ ! around the 255 character command line limit)
2377 $ OPEN/APPEND CONFIG [-]config.local
2378 $ if use_debugging_perl.eqs."Y"
2379 $ THEN
2380 $   WRITE CONFIG "#define DEBUGGING"
2381 $ ENDIF
2382 $ if preload_env.eqs."Y"
2383 $ THEN
2384 $    WRITE CONFIG "#define PRIME_ENV_AT_STARTUP"
2385 $ ENDIF
2386 $ if use_two_pot_malloc.eqs."Y"
2387 $ THEN
2388 $    WRITE CONFIG "#define TWO_POT_OPTIMIZE"
2389 $ endif
2390 $ if mymalloc.eqs."Y"
2391 $ THEN
2392 $    WRITE CONFIG "#define EMBEDMYMALLOC"
2393 $ ENDIF
2394 $ if use_pack_malloc.eqs."Y"
2395 $ THEN
2396 $    WRITE CONFIG "#define PACK_MALLOC"
2397 $ endif
2398 $ if use_debugmalloc.eqs."Y"
2399 $ THEN
2400 $    write config "#define DEBUGGING_MSTATS"
2401 $ ENDIF
2402 $ if "''Using_Gnu_C'" .eqs."Yes"
2403 $ THEN
2404 $   WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
2405 $ ENDIF
2406 $ if "''Has_Dec_C_Sockets'".eqs."T"
2407 $ THEN
2408 $    WRITE CONFIG "#define VMS_DO_SOCKETS"
2409 $    WRITE CONFIG "#define DECCRTL_SOCKETS"
2410 $ ENDIF
2411 $ if "''Has_Socketshr'".eqs."T"
2412 $ THEN
2413 $    WRITE CONFIG "#define VMS_DO_SOCKETS"
2414 $ ENDIF
2415 $ CLOSE CONFIG
2416 $!
2417 $! Now build the normal config.h
2418 $ define/user sys$output [-]config.main
2419 $ mcr []munchconfig [-]config.sh [-]config_h.sh
2420 $ ! Concatenate them together
2421 $ copy [-]config.local,[-]config.main [-]config.h
2422 $! Clean up
2423 $ DELETE/NOLOG [-]CONFIG.MAIN;*
2424 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
2425 $ DELETE/NOLOG [-]CONFIG.FDL;*
2426 $!
2427 $ if "''Using_Dec_C'" .eqs."Yes"
2428 $ THEN
2429 $ DECC_REPLACE = "DECC=decc=1"
2430 $ ELSE
2431 $ DECC_REPLACE = "DECC="
2432 $ ENDIF
2433 $ if "''Using_Gnu_C'" .eqs."Yes"
2434 $ THEN
2435 $ GNUC_REPLACE = "GNUC=gnuc=1"
2436 $ ELSE
2437 $ GNUC_REPLACE = "GNUC="
2438 $ ENDIF
2439 $ if "''Has_Dec_C_Sockets'" .eqs."T"
2440 $ THEN
2441 $   SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
2442 $ ELSE
2443 $   if "''Has_Socketshr'" .eqs."T"
2444 $   THEN
2445 $     SOCKET_REPLACE = "SOCKET=SOCKETSHRSOCKETS=1"
2446 $   ELSE
2447 $     SOCKET_REPLACE = "SOCKET="
2448 $   ENDIF
2449 $ ENDIF
2450 $ IF ("''Use_Threads'".eqs."T")
2451 $ THEN
2452 $   if ("''VMS_VER'".LES."6.2")
2453 $   THEN
2454 $     THREAD_REPLACE = "THREAD=OLDTHREADED=1"
2455 $   ELSE
2456 $     THREAD_REPLACE = "THREAD=THREADED=1"
2457 $   ENDIF
2458 $ ELSE
2459 $   THREAD_REPLACE = "THREAD="
2460 $ ENDIF
2461 $ if mymalloc.eqs."Y"
2462 $ THEN
2463 $   MALLOC_REPLACE = "MALLOC=MALLOC=1"
2464 $ ELSE
2465 $   MALLOC_REPLACE = "MALLOC="
2466 $ ENDIF
2467 $ if f$getsyi("HW_MODEL").ge.1024
2468 $ THEN
2469 $ ARCH_TYPE = "ARCH-TYPE=__AXP__"
2470 $ ELSE
2471 $ ARCH_TYPE = "ARCH-TYPE=__VAX__"
2472 $ ENDIF
2473 $ WRITE_RESULT "Writing DESCRIP.MMS"
2474 $!set ver
2475 $ define/user sys$output [-]descrip.mms
2476 $ 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'"
2477 $! set nover
2478 $!
2479 $! Clean up after ourselves
2480 $ delete/nolog munchconfig.exe;*
2481 $ delete/nolog munchconfig.obj;*