Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: strict_by_defa…
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 1675 lines (1592 sloc) 36.834 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940 941 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 975 976 977 978 979 980 981 982 983 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 1078 1079 1080 1081 1082 1083 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100 1101 1102 1103 1104 1105 1106 1107 1108 1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 1328 1329 1330 1331 1332 1333 1334 1335 1336 1337 1338 1339 1340 1341 1342 1343 1344 1345 1346 1347 1348 1349 1350 1351 1352 1353 1354 1355 1356 1357 1358 1359 1360 1361 1362 1363 1364 1365 1366 1367 1368 1369 1370 1371 1372 1373 1374 1375 1376 1377 1378 1379 1380 1381 1382 1383 1384 1385 1386 1387 1388 1389 1390 1391 1392 1393 1394 1395 1396 1397 1398 1399 1400 1401 1402 1403 1404 1405 1406 1407 1408 1409 1410 1411 1412 1413 1414 1415 1416 1417 1418 1419 1420 1421 1422 1423 1424 1425 1426 1427 1428 1429 1430 1431 1432 1433 1434 1435 1436 1437 1438 1439 1440 1441 1442 1443 1444 1445 1446 1447 1448 1449 1450 1451 1452 1453 1454 1455 1456 1457 1458 1459 1460 1461 1462 1463 1464 1465 1466 1467 1468 1469 1470 1471 1472 1473 1474 1475 1476 1477 1478 1479 1480 1481 1482 1483 1484 1485 1486 1487 1488 1489 1490 1491 1492 1493 1494 1495 1496 1497 1498 1499 1500 1501 1502 1503 1504 1505 1506 1507 1508 1509 1510 1511 1512 1513 1514 1515 1516 1517 1518 1519 1520 1521 1522 1523 1524 1525 1526 1527 1528 1529 1530 1531 1532 1533 1534 1535 1536 1537 1538 1539 1540 1541 1542 1543 1544 1545 1546 1547 1548 1549 1550 1551 1552 1553 1554 1555 1556 1557 1558 1559 1560 1561 1562 1563 1564 1565 1566 1567 1568 1569 1570 1571 1572 1573 1574 1575 1576 1577 1578 1579 1580 1581 1582 1583 1584 1585 1586 1587 1588 1589 1590 1591 1592 1593 1594 1595 1596 1597 1598 1599 1600 1601 1602 1603 1604 1605 1606 1607 1608 1609 1610 1611 1612 1613 1614 1615 1616 1617 1618 1619 1620 1621 1622 1623 1624 1625 1626 1627 1628 1629 1630 1631 1632 1633 1634 1635 1636 1637 1638 1639 1640 1641 1642 1643 1644 1645 1646 1647 1648 1649 1650 1651 1652 1653 1654 1655 1656 1657 1658 1659 1660 1661 1662 1663 1664 1665 1666 1667 1668 1669 1670 1671 1672 1673 1674
#./perl -w
#
# Create the export list for perl.
#
# Needed by WIN32 and OS/2 for creating perl.dll,
# and by AIX for creating libperl.a when -Dusershrplib is in effect,
# and by MacOS Classic.
#
# Reads from information stored in
#
# config.h
# config.sh
# global.sym
# globvar.sym
# intrpvar.h
# macperl.sym (on MacOS)
# miniperl.map (on OS/2)
# perl5.def (on OS/2; this is the old version of the file being made)
# perlio.sym
# perlvars.h
#
# plus long lists of function names hard-coded directly in this script and
# in the DATA section.
#
# Writes the result to STDOUT.
#
# Normally this script is invoked from a makefile (e.g. win32/Makefile),
# which redirects STDOUT to a suitable file, such as:
#
# perl5.def OS/2
# perldll.def Windows
# perl.exp AIX
# perl.imp NetWare


BEGIN { unshift @INC, "lib" }
use strict;

use vars qw($PLATFORM $CCTYPE $FILETYPE $CONFIG_ARGS $ARCHNAME $PATCHLEVEL);

my (%define, %ordinal);

while (@ARGV) {
    my $flag = shift;
    if ($flag =~ s/^CC_FLAGS=/ /) {
for my $fflag ($flag =~ /(?:^|\s)-D(\S+)/g) {
$fflag .= '=1' unless $fflag =~ /^(\w+)=/;
$define{$1} = $2 if $fflag =~ /^(\w+)=(.+)$/;
}
next;
    }
    $define{$1} = 1 if ($flag =~ /^-D(\w+)$/);
    $define{$1} = $2 if ($flag =~ /^-D(\w+)=(.+)$/);
    $CCTYPE = $1 if ($flag =~ /^CCTYPE=(\w+)$/);
    $PLATFORM = $1 if ($flag =~ /^PLATFORM=(\w+)$/);
    if ($PLATFORM eq 'netware') {
$FILETYPE = $1 if ($flag =~ /^FILETYPE=(\w+)$/);
    }
}

my @PLATFORM = qw(aix win32 wince os2 MacOS netware);
my %PLATFORM;
@PLATFORM{@PLATFORM} = ();

defined $PLATFORM || die "PLATFORM undefined, must be one of: @PLATFORM\n";
exists $PLATFORM{$PLATFORM} || die "PLATFORM must be one of: @PLATFORM\n";

if ($PLATFORM eq 'win32' or $PLATFORM eq 'wince' or $PLATFORM eq "aix") {
# Add the compile-time options that miniperl was built with to %define.
# On Win32 these are not the same options as perl itself will be built
# with since miniperl is built with a canned config (one of the win32/
# config_H.*) and none of the BUILDOPT's that are set in the makefiles,
# but they do include some #define's that are hard-coded in various
# source files and header files and don't include any BUILDOPT's that
# the user might have chosen to disable because the canned configs are
# minimal configs that don't include any of those options.
my $opts = ($PLATFORM eq 'wince' ? '-MCross' : ''); # for wince need Cross.pm to get Config.pm
my $config = `$^X $opts -Ilib -V`;
my($options) = $config =~ /^ Compile-time options: (.*?)\n^ \S/ms;
$options =~ s/\s+/ /g;
print STDERR "Options: ($options)\n";
foreach (split /\s+/, $options) {
$define{$_} = 1;
}
}

my %exportperlmalloc =
    (
       Perl_malloc => "malloc",
       Perl_mfree => "free",
       Perl_realloc => "realloc",
       Perl_calloc => "calloc",
    );

my $exportperlmalloc = $PLATFORM eq 'os2';

my $config_sh = "config.sh";
my $config_h = "config.h";
my $intrpvar_h = "intrpvar.h";
my $perlvars_h = "perlvars.h";
my $global_sym = "global.sym";
my $pp_sym = "pp.sym";
my $globvar_sym = "globvar.sym";
my $perlio_sym = "perlio.sym";
my $static_ext = "";

if ($PLATFORM eq 'aix') {
    # Nothing for now.
}
elsif ($PLATFORM =~ /^win(?:32|ce)$/ || $PLATFORM eq 'netware') {
    $CCTYPE = "MSVC" unless defined $CCTYPE;
    foreach ($intrpvar_h, $perlvars_h, $global_sym,
$pp_sym, $globvar_sym, $perlio_sym) {
s!^!..\\!;
    }
}
elsif ($PLATFORM eq 'MacOS') {
    foreach ($intrpvar_h, $perlvars_h, $global_sym,
$pp_sym, $globvar_sym, $perlio_sym) {
s!^!::!;
    }
}

unless ($PLATFORM eq 'win32' || $PLATFORM eq 'wince' || $PLATFORM eq 'MacOS' || $PLATFORM eq 'netware') {
    open(CFG,$config_sh) || die "Cannot open $config_sh: $!\n";
    while (<CFG>) {
if (/^(?:ccflags|optimize)='(.+)'$/) {
$_ = $1;
$define{$1} = 1 while /-D(\w+)/g;
}
        if (/^(d_(?:mmap|sigaction))='(.+)'$/) {
            $define{$1} = $2;
        }
if ($PLATFORM eq 'os2') {
$CONFIG_ARGS = $1 if /^config_args='(.+)'$/;
$ARCHNAME = $1 if /^archname='(.+)'$/;
$PATCHLEVEL = $1 if /^perl_patchlevel='(.+)'$/;
}
    }
    close(CFG);
}
if ($PLATFORM eq 'win32' || $PLATFORM eq 'wince') {
    open(CFG,"<..\\$config_sh") || die "Cannot open ..\\$config_sh: $!\n";
    if ((join '', <CFG>) =~ /^static_ext='(.*)'$/m) {
        $static_ext = $1;
    }
    close(CFG);
}

open(CFG,$config_h) || die "Cannot open $config_h: $!\n";
while (<CFG>) {
    $define{$1} = 1 if /^\s*#\s*define\s+(MYMALLOC)\b/;
    $define{$1} = 1 if /^\s*#\s*define\s+(MULTIPLICITY)\b/;
    $define{$1} = 1 if /^\s*#\s*define\s+(PERL_\w+)\b/;
    $define{$1} = 1 if /^\s*#\s*define\s+(USE_\w+)\b/;
    $define{$1} = 1 if /^\s*#\s*define\s+(HAS_\w+)\b/;
}
close(CFG);

# perl.h logic duplication begins

if ($define{PERL_IMPLICIT_SYS}) {
    $define{PL_OP_SLAB_ALLOC} = 1;
}

if ($define{USE_ITHREADS}) {
    if (!$define{MULTIPLICITY}) {
        $define{MULTIPLICITY} = 1;
    }
}

$define{PERL_IMPLICIT_CONTEXT} ||=
    $define{USE_ITHREADS} ||
    $define{MULTIPLICITY} ;

if ($define{USE_ITHREADS} && $PLATFORM ne 'win32' && $^O ne 'darwin') {
    $define{USE_REENTRANT_API} = 1;
}

# perl.h logic duplication ends

my $sym_ord = 0;

print STDERR "Defines: (" . join(' ', sort keys %define) . ")\n";

if ($PLATFORM =~ /^win(?:32|ce)$/) {
    (my $dll = ($define{PERL_DLL} || "perl511")) =~ s/\.dll$//i;
    print "LIBRARY $dll\n";
    # The DESCRIPTION module definition file statement is not supported
    # by VC7 onwards.
    if ($CCTYPE !~ /^MSVC7/ && $CCTYPE !~ /^MSVC8/ && $CCTYPE !~ /^MSVC9/) {
print "DESCRIPTION 'Perl interpreter'\n";
    }
    print "EXPORTS\n";
    if ($define{PERL_IMPLICIT_SYS}) {
output_symbol("perl_get_host_info");
output_symbol("perl_alloc_override");
    }
    if ($define{USE_ITHREADS} and $define{PERL_IMPLICIT_SYS}) {
output_symbol("perl_clone_host");
    }
}
elsif ($PLATFORM eq 'os2') {
    if (open my $fh, '<', 'perl5.def') {
      while (<$fh>) {
last if /^\s*EXPORTS\b/;
      }
      while (<$fh>) {
$ordinal{$1} = $2 if /^\s*"(\w+)"\s*(?:=\s*"\w+"\s*)?\@(\d+)\s*$/;
# This allows skipping ordinals which were used in older versions
$sym_ord = $1 if /^\s*;\s*LAST_ORDINAL\s*=\s*(\d+)\s*$/;
      }
      $sym_ord < $_ and $sym_ord = $_ for values %ordinal; # Take the max
    }
    (my $v = $]) =~ s/(\d\.\d\d\d)(\d\d)$/$1_$2/;
    $v .= '-thread' if $ARCHNAME =~ /-thread/;
    (my $dll = $define{PERL_DLL}) =~ s/\.dll$//i;
    $v .= "\@$PATCHLEVEL" if $PATCHLEVEL;
    my $d = "DESCRIPTION '\@#perl5-porters\@perl.org:$v#\@ Perl interpreter, configured as $CONFIG_ARGS'";
    $d = substr($d, 0, 249) . "...'" if length $d > 253;
    print <<"---EOP---";
LIBRARY '$dll' INITINSTANCE TERMINSTANCE
$d
STACKSIZE 32768
CODE LOADONCALL
DATA LOADONCALL NONSHARED MULTIPLE
EXPORTS
---EOP---
}
elsif ($PLATFORM eq 'aix') {
    my $OSVER = `uname -v`;
    chop $OSVER;
    my $OSREL = `uname -r`;
    chop $OSREL;
    if ($OSVER > 4 || ($OSVER == 4 && $OSREL >= 3)) {
print "#! ..\n";
    } else {
print "#!\n";
    }
}
elsif ($PLATFORM eq 'netware') {
if ($FILETYPE eq 'def') {
print "LIBRARY perl511\n";
print "DESCRIPTION 'Perl interpreter for NetWare'\n";
print "EXPORTS\n";
}
if ($define{PERL_IMPLICIT_SYS}) {
output_symbol("perl_get_host_info");
output_symbol("perl_alloc_override");
output_symbol("perl_clone_host");
}
}

my %skip;
my %export;

sub skip_symbols {
    my $list = shift;
    foreach my $symbol (@$list) {
$skip{$symbol} = 1;
    }
}

sub emit_symbols {
    my $list = shift;
    foreach my $symbol (@$list) {
my $skipsym = $symbol;
# XXX hack
if ($define{MULTIPLICITY}) {
$skipsym =~ s/^Perl_[GIT](\w+)_ptr$/PL_$1/;
}
emit_symbol($symbol) unless exists $skip{$skipsym};
    }
}

if ($PLATFORM eq 'win32') {
    skip_symbols [qw(
PL_statusvalue_vms
PL_archpat_auto
PL_cryptseen
PL_DBcv
PL_generation
PL_lastgotoprobe
PL_linestart
PL_modcount
PL_pending_ident
PL_sublex_info
PL_timesbuf
main
Perl_ErrorNo
Perl_GetVars
Perl_do_exec3
Perl_do_ipcctl
Perl_do_ipcget
Perl_do_msgrcv
Perl_do_msgsnd
Perl_do_semop
Perl_do_shmio
Perl_dump_fds
Perl_init_thread_intern
Perl_my_bzero
Perl_my_bcopy
Perl_my_htonl
Perl_my_ntohl
Perl_my_swap
Perl_my_chsize
Perl_same_dirent
Perl_setenv_getix
Perl_unlnk
Perl_watch
Perl_safexcalloc
Perl_safexmalloc
Perl_safexfree
Perl_safexrealloc
Perl_my_memcmp
Perl_my_memset
PL_cshlen
PL_cshname
PL_opsave
Perl_do_exec
Perl_getenv_len
Perl_my_pclose
Perl_my_popen
Perl_my_sprintf
)];
}
else {
    skip_symbols [qw(
Perl_do_spawn
Perl_do_spawn_nowait
Perl_do_aspawn
)];
}
if ($PLATFORM eq 'wince') {
    skip_symbols [qw(
PL_statusvalue_vms
PL_archpat_auto
PL_cryptseen
PL_DBcv
PL_generation
PL_lastgotoprobe
PL_linestart
PL_modcount
PL_pending_ident
PL_sublex_info
PL_timesbuf
PL_collation_ix
PL_collation_name
PL_collation_standard
PL_collxfrm_base
PL_collxfrm_mult
PL_numeric_compat1
PL_numeric_local
PL_numeric_name
PL_numeric_radix_sv
PL_numeric_standard
PL_vtbl_collxfrm
Perl_sv_collxfrm
setgid
setuid
win32_free_childdir
win32_free_childenv
win32_get_childdir
win32_get_childenv
win32_spawnvp
main
Perl_ErrorNo
Perl_GetVars
Perl_do_exec3
Perl_do_ipcctl
Perl_do_ipcget
Perl_do_msgrcv
Perl_do_msgsnd
Perl_do_semop
Perl_do_shmio
Perl_dump_fds
Perl_init_thread_intern
Perl_my_bzero
Perl_my_bcopy
Perl_my_htonl
Perl_my_ntohl
Perl_my_swap
Perl_my_chsize
Perl_same_dirent
Perl_setenv_getix
Perl_unlnk
Perl_watch
Perl_safexcalloc
Perl_safexmalloc
Perl_safexfree
Perl_safexrealloc
Perl_my_memcmp
Perl_my_memset
PL_cshlen
PL_cshname
PL_opsave
Perl_do_exec
Perl_getenv_len
Perl_my_pclose
Perl_my_popen
Perl_my_sprintf
)];
}
elsif ($PLATFORM eq 'aix') {
    skip_symbols([qw(
Perl_dump_fds
Perl_ErrorNo
Perl_GetVars
Perl_my_bcopy
Perl_my_bzero
Perl_my_chsize
Perl_my_htonl
Perl_my_memcmp
Perl_my_memset
Perl_my_ntohl
Perl_my_swap
Perl_safexcalloc
Perl_safexfree
Perl_safexmalloc
Perl_safexrealloc
Perl_same_dirent
Perl_unlnk
Perl_sys_intern_clear
Perl_sys_intern_dup
Perl_sys_intern_init
Perl_my_sprintf
PL_cryptseen
PL_opsave
PL_statusvalue_vms
PL_sys_intern
)]);
    skip_symbols([qw(
Perl_signbit
)])
if $define{'HAS_SIGNBIT'};
    emit_symbols([qw(
boot_DynaLoader
)]);
}
elsif ($PLATFORM eq 'os2') {
    emit_symbols([qw(
ctermid
get_sysinfo
Perl_OS2_init
Perl_OS2_init3
Perl_OS2_term
OS2_Perl_data
dlopen
dlsym
dlerror
dlclose
dup2
dup
my_tmpfile
my_tmpnam
my_flock
my_rmdir
my_mkdir
my_getpwuid
my_getpwnam
my_getpwent
my_setpwent
my_endpwent
fork_with_resources
croak_with_os2error
setgrent
endgrent
getgrent
malloc_mutex
threads_mutex
nthreads
nthreads_cond
os2_cond_wait
os2_stat
os2_execname
async_mssleep
msCounter
InfoTable
pthread_join
pthread_create
pthread_detach
XS_Cwd_change_drive
XS_Cwd_current_drive
XS_Cwd_extLibpath
XS_Cwd_extLibpath_set
XS_Cwd_sys_abspath
XS_Cwd_sys_chdir
XS_Cwd_sys_cwd
XS_Cwd_sys_is_absolute
XS_Cwd_sys_is_relative
XS_Cwd_sys_is_rooted
XS_DynaLoader_mod2fname
XS_File__Copy_syscopy
Perl_Register_MQ
Perl_Deregister_MQ
Perl_Serve_Messages
Perl_Process_Messages
init_PMWIN_entries
PMWIN_entries
Perl_hab_GET
loadByOrdinal
pExtFCN
os2error
ResetWinError
CroakWinError
PL_do_undump
)]);
    emit_symbols([qw(os2_cond_wait
pthread_join
pthread_create
pthread_detach
)])
      if $define{'USE_5005THREADS'} or $define{'USE_ITHREADS'};
}
elsif ($PLATFORM eq 'MacOS') {
    skip_symbols [qw(
Perl_GetVars
PL_cryptseen
PL_cshlen
PL_cshname
PL_statusvalue_vms
PL_sys_intern
PL_opsave
PL_timesbuf
Perl_dump_fds
Perl_my_bcopy
Perl_my_bzero
Perl_my_chsize
Perl_my_htonl
Perl_my_memcmp
Perl_my_memset
Perl_my_ntohl
Perl_my_swap
Perl_safexcalloc
Perl_safexfree
Perl_safexmalloc
Perl_safexrealloc
Perl_unlnk
Perl_sys_intern_clear
Perl_sys_intern_init
)];
}
elsif ($PLATFORM eq 'netware') {
skip_symbols [qw(
PL_statusvalue_vms
PL_archpat_auto
PL_cryptseen
PL_DBcv
PL_generation
PL_lastgotoprobe
PL_linestart
PL_modcount
PL_pending_ident
PL_sublex_info
PL_timesbuf
main
Perl_ErrorNo
Perl_GetVars
Perl_do_exec3
Perl_do_ipcctl
Perl_do_ipcget
Perl_do_msgrcv
Perl_do_msgsnd
Perl_do_semop
Perl_do_shmio
Perl_dump_fds
Perl_init_thread_intern
Perl_my_bzero
Perl_my_htonl
Perl_my_ntohl
Perl_my_swap
Perl_my_chsize
Perl_same_dirent
Perl_setenv_getix
Perl_unlnk
Perl_watch
Perl_safexcalloc
Perl_safexmalloc
Perl_safexfree
Perl_safexrealloc
Perl_my_memcmp
Perl_my_memset
PL_cshlen
PL_cshname
PL_opsave
Perl_do_exec
Perl_getenv_len
Perl_my_pclose
Perl_my_popen
Perl_sys_intern_init
Perl_sys_intern_dup
Perl_sys_intern_clear
Perl_my_bcopy
Perl_PerlIO_write
Perl_PerlIO_unread
Perl_PerlIO_tell
Perl_PerlIO_stdout
Perl_PerlIO_stdin
Perl_PerlIO_stderr
Perl_PerlIO_setlinebuf
Perl_PerlIO_set_ptrcnt
Perl_PerlIO_set_cnt
Perl_PerlIO_seek
Perl_PerlIO_read
Perl_PerlIO_get_ptr
Perl_PerlIO_get_cnt
Perl_PerlIO_get_bufsiz
Perl_PerlIO_get_base
Perl_PerlIO_flush
Perl_PerlIO_fill
Perl_PerlIO_fileno
Perl_PerlIO_error
Perl_PerlIO_eof
Perl_PerlIO_close
Perl_PerlIO_clearerr
PerlIO_perlio
)];
}

unless ($define{'DEBUGGING'}) {
    skip_symbols [qw(
Perl_deb_growlevel
Perl_debop
Perl_debprofdump
Perl_debstack
Perl_debstackptrs
Perl_pad_sv
Perl_hv_assert
PL_block_type
PL_watchaddr
PL_watchok
PL_watch_pvx
)];
}

if ($define{'PERL_IMPLICIT_CONTEXT'}) {
    skip_symbols [qw(
PL_sig_sv
)];
}

if ($define{'PERL_IMPLICIT_SYS'}) {
    skip_symbols [qw(
Perl_getenv_len
Perl_my_popen
Perl_my_pclose
)];
}
else {
    skip_symbols [qw(
PL_Mem
PL_MemShared
PL_MemParse
PL_Env
PL_StdIO
PL_LIO
PL_Dir
PL_Sock
PL_Proc
)];
}

unless ($define{'PERL_OLD_COPY_ON_WRITE'}) {
    skip_symbols [qw(
Perl_sv_setsv_cow
)];
}

unless ($define{'USE_REENTRANT_API'}) {
    skip_symbols [qw(
PL_reentrant_buffer
)];
}

if ($define{'MYMALLOC'}) {
    emit_symbols [qw(
Perl_dump_mstats
Perl_get_mstats
Perl_strdup
Perl_putenv
MallocCfg_ptr
MallocCfgP_ptr
)];
    if ($define{'USE_ITHREADS'}) {
emit_symbols [qw(
PL_malloc_mutex
)];
    }
    else {
skip_symbols [qw(
PL_malloc_mutex
)];
    }
}
else {
    skip_symbols [qw(
PL_malloc_mutex
Perl_dump_mstats
Perl_get_mstats
Perl_malloced_size
Perl_malloc_good_size
MallocCfg_ptr
MallocCfgP_ptr
)];
}

if ($define{'PERL_USE_SAFE_PUTENV'}) {
    skip_symbols [qw(
PL_use_safe_putenv
)];
}

unless ($define{'USE_ITHREADS'}) {
    skip_symbols [qw(
PL_thr_key
)];
}

# USE_5005THREADS symbols. Kept as reference for easier removal
    skip_symbols [qw(
PL_sv_mutex
PL_strtab_mutex
PL_svref_mutex
PL_cred_mutex
PL_eval_mutex
PL_fdpid_mutex
PL_sv_lock_mutex
PL_eval_cond
PL_eval_owner
PL_threads_mutex
PL_nthreads
PL_nthreads_cond
PL_threadnum
PL_threadsv_names
PL_thrsv
PL_vtbl_mutex
Perl_condpair_magic
Perl_new_struct_thread
Perl_per_thread_magicals
Perl_thread_create
Perl_find_threadsv
Perl_unlock_condpair
Perl_magic_mutexfree
Perl_sv_lock
)];

unless ($define{'USE_ITHREADS'}) {
    skip_symbols [qw(
PL_op_mutex
PL_regex_pad
PL_regex_padav
PL_sharedsv_space
PL_sharedsv_space_mutex
PL_dollarzero_mutex
PL_hints_mutex
PL_perlio_mutex
PL_regdupe
Perl_parser_dup
Perl_dirp_dup
Perl_cx_dup
Perl_si_dup
Perl_any_dup
Perl_ss_dup
Perl_fp_dup
Perl_gp_dup
Perl_he_dup
Perl_mg_dup
Perl_mro_meta_dup
Perl_re_dup_guts
Perl_sv_dup
Perl_rvpv_dup
Perl_hek_dup
Perl_sys_intern_dup
perl_clone
perl_clone_using
Perl_sharedsv_find
Perl_sharedsv_init
Perl_sharedsv_lock
Perl_sharedsv_new
Perl_sharedsv_thrcnt_dec
Perl_sharedsv_thrcnt_inc
Perl_sharedsv_unlock
Perl_stashpv_hvname_match
Perl_regdupe_internal
Perl_newPADOP
)];
}

unless ($define{'PERL_IMPLICIT_CONTEXT'}) {
    skip_symbols [qw(
PL_my_ctx_mutex
PL_my_cxt_index
PL_my_cxt_list
PL_my_cxt_size
PL_my_cxt_keys
Perl_croak_nocontext
Perl_die_nocontext
Perl_deb_nocontext
Perl_form_nocontext
Perl_load_module_nocontext
Perl_mess_nocontext
Perl_warn_nocontext
Perl_warner_nocontext
Perl_newSVpvf_nocontext
Perl_sv_catpvf_nocontext
Perl_sv_setpvf_nocontext
Perl_sv_catpvf_mg_nocontext
Perl_sv_setpvf_mg_nocontext
Perl_my_cxt_init
Perl_my_cxt_index
)];
}

unless ($define{'PERL_IMPLICIT_SYS'}) {
    skip_symbols [qw(
perl_alloc_using
perl_clone_using
)];
}

unless ($define{'FAKE_THREADS'}) {
    skip_symbols [qw(PL_curthr)];
}

unless ($define{'PL_OP_SLAB_ALLOC'}) {
    skip_symbols [qw(
PL_OpPtr
PL_OpSlab
PL_OpSpace
Perl_Slab_Alloc
Perl_Slab_Free
)];
}

unless ($define{'PERL_DEBUG_READONLY_OPS'}) {
    skip_symbols [qw(
PL_slab_count
PL_slabs
)];
}

unless ($define{'THREADS_HAVE_PIDS'}) {
    skip_symbols [qw(PL_ppid)];
}

unless ($define{'PERL_NEED_APPCTX'}) {
    skip_symbols [qw(
PL_appctx
)];
}

unless ($define{'PERL_NEED_TIMESBASE'}) {
    skip_symbols [qw(
PL_timesbase
)];
}

unless ($define{'DEBUG_LEAKING_SCALARS'}) {
    skip_symbols [qw(
PL_sv_serial
)];
}

unless ($define{'DEBUG_LEAKING_SCALARS_FORK_DUMP'}) {
    skip_symbols [qw(
PL_dumper_fd
)];
}
unless ($define{'PERL_DONT_CREATE_GVSV'}) {
    skip_symbols [qw(
Perl_gv_SVadd
)];
}
if ($define{'SPRINTF_RETURNS_STRLEN'}) {
    skip_symbols [qw(
Perl_my_sprintf
)];
}
unless ($define{'PERL_USES_PL_PIDSTATUS'}) {
    skip_symbols [qw(
Perl_pidgone
PL_pidstatus
)];
}

unless ($define{'PERL_TRACK_MEMPOOL'}) {
    skip_symbols [qw(
PL_memory_debug_header
)];
}

if ($define{'PERL_MAD'}) {
    skip_symbols [qw(
PL_nextval
PL_nexttype
)];
} else {
    skip_symbols [qw(
PL_madskills
PL_xmlfp
PL_lasttoke
PL_realtokenstart
PL_faketokens
PL_thismad
PL_thistoken
PL_thisopen
PL_thisstuff
PL_thisclose
PL_thiswhite
PL_nextwhite
PL_skipwhite
PL_endwhite
PL_curforce
Perl_pad_peg
Perl_xmldump_indent
Perl_xmldump_vindent
Perl_xmldump_all
Perl_xmldump_packsubs
Perl_xmldump_sub
Perl_xmldump_form
Perl_xmldump_eval
Perl_sv_catxmlsv
Perl_sv_catxmlpvn
Perl_sv_xmlpeek
Perl_do_pmop_xmldump
Perl_pmop_xmldump
Perl_do_op_xmldump
Perl_op_xmldump
)];
}

unless ($define{'MULTIPLICITY'}) {
    skip_symbols [qw(
PL_interp_size
PL_interp_size_5_10_0
)];
}

unless ($define{'PERL_GLOBAL_STRUCT'}) {
    skip_symbols [qw(
PL_global_struct_size
)];
}

unless ($define{'PERL_GLOBAL_STRUCT_PRIVATE'}) {
    skip_symbols [qw(
PL_my_cxt_keys
Perl_my_cxt_index
)];
}

unless ($define{'d_mmap'}) {
    skip_symbols [qw(
PL_mmap_page_size
)];
}

if ($define{'d_sigaction'}) {
    skip_symbols [qw(
PL_sig_trapped
)];
}

if ($^O ne 'vms') {
    # VMS does its own thing for these symbols.
    skip_symbols [qw(PL_sig_handlers_initted
PL_sig_ignoring
PL_sig_defaulting)];
}

sub readvar {
    my $file = shift;
    my $proc = shift || sub { "PL_$_[2]" };
    open(VARS,$file) || die "Cannot open $file: $!\n";
    my @syms;
    while (<VARS>) {
# All symbols have a Perl_ prefix because that's what embed.h
# sticks in front of them. The A?I?S?C? is strictly speaking
# wrong.
push(@syms, &$proc($1,$2,$3)) if (/\bPERLVAR(A?I?S?C?)\(([IGT])(\w+)/);
    }
    close(VARS);
    return \@syms;
}

if ($define{'PERL_GLOBAL_STRUCT'}) {
    my $global = readvar($perlvars_h);
    skip_symbols $global;
    emit_symbol('Perl_GetVars');
    emit_symbols [qw(PL_Vars PL_VarsPtr)] unless $CCTYPE eq 'GCC';
} else {
    skip_symbols [qw(Perl_init_global_struct Perl_free_global_struct)];
}

# functions from *.sym files

my @syms = ($global_sym, $globvar_sym); # $pp_sym is not part of the API

# Symbols that are the public face of the PerlIO layers implementation
# These are in _addition to_ the public face of the abstraction
# and need to be exported to allow XS modules to implement layers
my @layer_syms = qw(
PerlIOBase_binmode
PerlIOBase_clearerr
PerlIOBase_close
PerlIOBase_dup
PerlIOBase_eof
PerlIOBase_error
PerlIOBase_fileno
PerlIOBase_noop_fail
PerlIOBase_noop_ok
PerlIOBase_popped
PerlIOBase_pushed
PerlIOBase_read
PerlIOBase_setlinebuf
PerlIOBase_unread
PerlIOBuf_bufsiz
PerlIOBuf_close
PerlIOBuf_dup
PerlIOBuf_fill
PerlIOBuf_flush
PerlIOBuf_get_base
PerlIOBuf_get_cnt
PerlIOBuf_get_ptr
PerlIOBuf_open
PerlIOBuf_popped
PerlIOBuf_pushed
PerlIOBuf_read
PerlIOBuf_seek
PerlIOBuf_set_ptrcnt
PerlIOBuf_tell
PerlIOBuf_unread
PerlIOBuf_write
PerlIO_allocate
PerlIO_apply_layera
PerlIO_apply_layers
PerlIO_arg_fetch
PerlIO_debug
PerlIO_define_layer
PerlIO_find_layer
PerlIO_isutf8
PerlIO_layer_fetch
PerlIO_list_alloc
PerlIO_list_free
PerlIO_modestr
PerlIO_parse_layers
PerlIO_pending
PerlIO_perlio
PerlIO_pop
PerlIO_push
PerlIO_sv_dup
Perl_PerlIO_clearerr
Perl_PerlIO_close
Perl_PerlIO_context_layers
Perl_PerlIO_eof
Perl_PerlIO_error
Perl_PerlIO_fileno
Perl_PerlIO_fill
Perl_PerlIO_flush
Perl_PerlIO_get_base
Perl_PerlIO_get_bufsiz
Perl_PerlIO_get_cnt
Perl_PerlIO_get_ptr
Perl_PerlIO_read
Perl_PerlIO_seek
Perl_PerlIO_set_cnt
Perl_PerlIO_set_ptrcnt
Perl_PerlIO_setlinebuf
Perl_PerlIO_stderr
Perl_PerlIO_stdin
Perl_PerlIO_stdout
Perl_PerlIO_tell
Perl_PerlIO_unread
Perl_PerlIO_write
);
if ($PLATFORM eq 'netware') {
    push(@layer_syms,'PL_def_layerlist','PL_known_layers','PL_perlio');
}

if ($define{'USE_PERLIO'}) {
    # Export the symols that make up the PerlIO abstraction, regardless
    # of its implementation - read from a file
    push @syms, $perlio_sym;

    # This part is then dependent on how the abstraction is implemented
    if ($define{'USE_SFIO'}) {
# Old legacy non-stdio "PerlIO"
skip_symbols \@layer_syms;
skip_symbols [qw(perlsio_binmode)];
# SFIO defines most of the PerlIO routines as macros
# So undo most of what $perlio_sym has just done - d'oh !
# Perhaps it would be better to list the ones which do exist
# And emit them
skip_symbols [qw(
PerlIO_canset_cnt
PerlIO_clearerr
PerlIO_close
PerlIO_eof
PerlIO_error
PerlIO_exportFILE
PerlIO_fast_gets
PerlIO_fdopen
PerlIO_fileno
PerlIO_findFILE
PerlIO_flush
PerlIO_get_base
PerlIO_get_bufsiz
PerlIO_get_cnt
PerlIO_get_ptr
PerlIO_getc
PerlIO_getname
PerlIO_has_base
PerlIO_has_cntptr
PerlIO_importFILE
PerlIO_open
PerlIO_printf
PerlIO_putc
PerlIO_puts
PerlIO_read
PerlIO_releaseFILE
PerlIO_reopen
PerlIO_rewind
PerlIO_seek
PerlIO_set_cnt
PerlIO_set_ptrcnt
PerlIO_setlinebuf
PerlIO_sprintf
PerlIO_stderr
PerlIO_stdin
PerlIO_stdout
PerlIO_stdoutf
PerlIO_tell
PerlIO_ungetc
PerlIO_vprintf
PerlIO_write
PerlIO_perlio
Perl_PerlIO_clearerr
Perl_PerlIO_close
Perl_PerlIO_eof
Perl_PerlIO_error
Perl_PerlIO_fileno
Perl_PerlIO_fill
Perl_PerlIO_flush
Perl_PerlIO_get_base
Perl_PerlIO_get_bufsiz
Perl_PerlIO_get_cnt
Perl_PerlIO_get_ptr
Perl_PerlIO_read
Perl_PerlIO_seek
Perl_PerlIO_set_cnt
Perl_PerlIO_set_ptrcnt
Perl_PerlIO_setlinebuf
Perl_PerlIO_stderr
Perl_PerlIO_stdin
Perl_PerlIO_stdout
Perl_PerlIO_tell
Perl_PerlIO_unread
Perl_PerlIO_write
PL_def_layerlist
PL_known_layers
PL_perlio
)];
    }
    else {
# PerlIO with layers - export implementation
emit_symbols \@layer_syms;
emit_symbols [qw(perlsio_binmode)];
    }
    if ($define{'USE_ITHREADS'}) {
emit_symbols [qw(
PL_perlio_mutex
)];
    }
    else {
skip_symbols [qw(
PL_perlio_mutex
)];
    }
} else {
# -Uuseperlio
# Skip the PerlIO layer symbols - although
# nothing should have exported them anyway.
skip_symbols \@layer_syms;
skip_symbols [qw(
perlsio_binmode
PL_def_layerlist
PL_known_layers
PL_perlio
PL_perlio_debug_fd
PL_perlio_fd_refcnt
PL_perlio_fd_refcnt_size
)];

# Also do NOT add abstraction symbols from $perlio_sym
# abstraction is done as #define to stdio
# Remaining remnants that _may_ be functions
# are handled in <DATA>
}

for my $syms (@syms) {
    open (GLOBAL, "<$syms") || die "failed to open $syms: $!\n";
    while (<GLOBAL>) {
next if (!/^[A-Za-z]/);
# Functions have a Perl_ prefix
# Variables have a PL_ prefix
chomp($_);
my $symbol = ($syms =~ /var\.sym$/i ? "PL_" : "");
$symbol .= $_;
emit_symbol($symbol) unless exists $skip{$symbol};
    }
    close(GLOBAL);
}

# variables

if ($define{'MULTIPLICITY'}) {
    for my $f ($perlvars_h, $intrpvar_h) {
my $glob = readvar($f, sub { "Perl_" . $_[1] . $_[2] . "_ptr" });
emit_symbols $glob;
    }
    # XXX AIX seems to want the perlvars.h symbols, for some reason
    if ($PLATFORM eq 'aix' or $PLATFORM eq 'os2') { # OS/2 needs PL_thr_key
my $glob = readvar($perlvars_h);
emit_symbols $glob;
    }
}
else {
    unless ($define{'PERL_GLOBAL_STRUCT'}) {
my $glob = readvar($perlvars_h);
emit_symbols $glob;
    }
    unless ($define{'MULTIPLICITY'}) {
my $glob = readvar($intrpvar_h);
emit_symbols $glob;
    }
}

sub try_symbol {
    my $symbol = shift;

    return if $symbol !~ /^[A-Za-z_]/;
    return if $symbol =~ /^\#/;
    $symbol =~s/\r//g;
    chomp($symbol);
    return if exists $skip{$symbol};
    emit_symbol($symbol);
}

while (<DATA>) {
    try_symbol($_);
}

if ($PLATFORM =~ /^win(?:32|ce)$/) {
    foreach my $symbol (qw(
setuid
setgid
boot_DynaLoader
Perl_init_os_extras
Perl_thread_create
Perl_win32_init
Perl_win32_term
RunPerl
win32_async_check
win32_errno
win32_environ
win32_abort
win32_fstat
win32_stat
win32_pipe
win32_popen
win32_pclose
win32_rename
win32_setmode
win32_chsize
win32_lseek
win32_tell
win32_dup
win32_dup2
win32_open
win32_close
win32_eof
win32_read
win32_write
win32_spawnvp
win32_mkdir
win32_rmdir
win32_chdir
win32_flock
win32_execv
win32_execvp
win32_htons
win32_ntohs
win32_htonl
win32_ntohl
win32_inet_addr
win32_inet_ntoa
win32_socket
win32_bind
win32_listen
win32_accept
win32_connect
win32_send
win32_sendto
win32_recv
win32_recvfrom
win32_shutdown
win32_closesocket
win32_ioctlsocket
win32_setsockopt
win32_getsockopt
win32_getpeername
win32_getsockname
win32_gethostname
win32_gethostbyname
win32_gethostbyaddr
win32_getprotobyname
win32_getprotobynumber
win32_getservbyname
win32_getservbyport
win32_select
win32_endhostent
win32_endnetent
win32_endprotoent
win32_endservent
win32_getnetent
win32_getnetbyname
win32_getnetbyaddr
win32_getprotoent
win32_getservent
win32_sethostent
win32_setnetent
win32_setprotoent
win32_setservent
win32_getenv
win32_putenv
win32_perror
win32_malloc
win32_calloc
win32_realloc
win32_free
win32_sleep
win32_times
win32_access
win32_alarm
win32_chmod
win32_open_osfhandle
win32_get_osfhandle
win32_ioctl
win32_link
win32_unlink
win32_utime
win32_gettimeofday
win32_uname
win32_wait
win32_waitpid
win32_kill
win32_str_os_error
win32_opendir
win32_readdir
win32_telldir
win32_seekdir
win32_rewinddir
win32_closedir
win32_longpath
win32_ansipath
win32_os_id
win32_getpid
win32_crypt
win32_dynaload
win32_get_childenv
win32_free_childenv
win32_clearenv
win32_get_childdir
win32_free_childdir
win32_stdin
win32_stdout
win32_stderr
win32_ferror
win32_feof
win32_strerror
win32_fprintf
win32_printf
win32_vfprintf
win32_vprintf
win32_fread
win32_fwrite
win32_fopen
win32_fdopen
win32_freopen
win32_fclose
win32_fputs
win32_fputc
win32_ungetc
win32_getc
win32_fileno
win32_clearerr
win32_fflush
win32_ftell
win32_fseek
win32_fgetpos
win32_fsetpos
win32_rewind
win32_tmpfile
win32_setbuf
win32_setvbuf
win32_flushall
win32_fcloseall
win32_fgets
win32_gets
win32_fgetc
win32_putc
win32_puts
win32_getchar
win32_putchar
))
    {
try_symbol($symbol);
    }
    if ($CCTYPE eq "BORLAND") {
try_symbol('_matherr');
    }
}
elsif ($PLATFORM eq 'os2') {
    my (%mapped, @missing);
    open MAP, 'miniperl.map' or die 'Cannot read miniperl.map';
    /^\s*[\da-f:]+\s+(\w+)/i and $mapped{$1}++ foreach <MAP>;
    close MAP or die 'Cannot close miniperl.map';

    @missing = grep { !exists $mapped{$_} }
keys %export;
    @missing = grep { !exists $exportperlmalloc{$_} } @missing;
    delete $export{$_} foreach @missing;
}
elsif ($PLATFORM eq 'MacOS') {
    open MACSYMS, 'macperl.sym' or die 'Cannot read macperl.sym';

    while (<MACSYMS>) {
try_symbol($_);
    }

    close MACSYMS;
}
elsif ($PLATFORM eq 'netware') {
foreach my $symbol (qw(
boot_DynaLoader
Perl_init_os_extras
Perl_thread_create
Perl_nw5_init
RunPerl
AllocStdPerl
FreeStdPerl
do_spawn2
do_aspawn
nw_uname
nw_stdin
nw_stdout
nw_stderr
nw_feof
nw_ferror
nw_fopen
nw_fclose
nw_clearerr
nw_getc
nw_fgets
nw_fputc
nw_fputs
nw_fflush
nw_ungetc
nw_fileno
nw_fdopen
nw_freopen
nw_fread
nw_fwrite
nw_setbuf
nw_setvbuf
nw_vfprintf
nw_ftell
nw_fseek
nw_rewind
nw_tmpfile
nw_fgetpos
nw_fsetpos
nw_dup
nw_access
nw_chmod
nw_chsize
nw_close
nw_dup2
nw_flock
nw_isatty
nw_link
nw_lseek
nw_stat
nw_mktemp
nw_open
nw_read
nw_rename
nw_setmode
nw_unlink
nw_utime
nw_write
nw_chdir
nw_rmdir
nw_closedir
nw_opendir
nw_readdir
nw_rewinddir
nw_seekdir
nw_telldir
nw_htonl
nw_htons
nw_ntohl
nw_ntohs
nw_accept
nw_bind
nw_connect
nw_endhostent
nw_endnetent
nw_endprotoent
nw_endservent
nw_gethostbyaddr
nw_gethostbyname
nw_gethostent
nw_gethostname
nw_getnetbyaddr
nw_getnetbyname
nw_getnetent
nw_getpeername
nw_getprotobyname
nw_getprotobynumber
nw_getprotoent
nw_getservbyname
nw_getservbyport
nw_getservent
nw_getsockname
nw_getsockopt
nw_inet_addr
nw_listen
nw_socket
nw_recv
nw_recvfrom
nw_select
nw_send
nw_sendto
nw_sethostent
nw_setnetent
nw_setprotoent
nw_setservent
nw_setsockopt
nw_inet_ntoa
nw_shutdown
nw_crypt
nw_execvp
nw_kill
nw_Popen
nw_Pclose
nw_Pipe
nw_times
nw_waitpid
nw_getpid
nw_spawnvp
nw_os_id
nw_open_osfhandle
nw_get_osfhandle
nw_abort
nw_sleep
nw_wait
nw_dynaload
nw_strerror
fnFpSetMode
fnInsertHashListAddrs
fnGetHashListAddrs
Perl_deb
Perl_sv_setsv
Perl_sv_catsv
Perl_sv_catpvn
Perl_sv_2pv
nw_freeenviron
Remove_Thread_Ctx
))
    {
try_symbol($symbol);
    }
}

# records of type boot_module for statically linked modules (except Dynaloader)
$static_ext =~ s/\//__/g;
$static_ext =~ s/\bDynaLoader\b//;
my @stat_mods = map {"boot_$_"} grep {/\S/} split /\s+/, $static_ext;
foreach my $symbol (@stat_mods)
    {
try_symbol($symbol);
    }

try_symbol("init_Win32CORE") if $static_ext =~ /\bWin32CORE\b/;

# Now all symbols should be defined because
# next we are going to output them.

foreach my $symbol (sort keys %export) {
    output_symbol($symbol);
}

if ($PLATFORM eq 'os2') {
print <<EOP;
dll_perlmain=main
fill_extLibpath
dir_subst
Perl_OS2_handler_install

; LAST_ORDINAL=$sym_ord
EOP
}

sub emit_symbol {
    my $symbol = shift;
    chomp($symbol);
    $export{$symbol} = 1;
}

sub output_symbol {
    my $symbol = shift;
    if ($PLATFORM =~ /^win(?:32|ce)$/) {
$symbol = "_$symbol" if $CCTYPE eq 'BORLAND';
print "\t$symbol\n";
# XXX: binary compatibility between compilers is an exercise
# in frustration :-(
# if ($CCTYPE eq "BORLAND") {
# # workaround Borland quirk by exporting both the straight
# # name and a name with leading underscore. Note the
# # alias *must* come after the symbol itself, if both
# # are to be exported. (Linker bug?)
# print "\t_$symbol\n";
# print "\t$symbol = _$symbol\n";
# }
# elsif ($CCTYPE eq 'GCC') {
# # Symbols have leading _ whole process is $%@"% slow
# # so skip aliases for now
# nprint "\t$symbol\n";
# }
# else {
# # for binary coexistence, export both the symbol and
# # alias with leading underscore
# print "\t$symbol\n";
# print "\t_$symbol = $symbol\n";
# }
    }
    elsif ($PLATFORM eq 'os2') {
printf qq( %-31s \@%s\n),
qq("$symbol"), $ordinal{$symbol} || ++$sym_ord;
printf qq( %-31s \@%s\n),
qq("$exportperlmalloc{$symbol}" = "$symbol"),
$ordinal{$exportperlmalloc{$symbol}} || ++$sym_ord
if $exportperlmalloc and exists $exportperlmalloc{$symbol};
    }
    elsif ($PLATFORM eq 'aix' || $PLATFORM eq 'MacOS') {
print "$symbol\n";
    }
elsif ($PLATFORM eq 'netware') {
print "\t$symbol,\n";
}
}

1;
__DATA__
# Oddities from PerlIO
PerlIO_binmode
PerlIO_getpos
PerlIO_init
PerlIO_setpos
PerlIO_sprintf
PerlIO_sv_dup
PerlIO_tmpfile
PerlIO_vsprintf
Something went wrong with that request. Please try again.