blob: f467884ce82cc9c89c5936f5693c0f868435dbd1 (
plain)
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
|
#!/bin/sh
#
# Written: Nov 1994 Wayne Scott <wscott@ichips.intel.com>
#
# Updated: 1997-8 Jarkko Hietaniemi <jhi@iki.fi>
#
# Create the export list for perl.
# Needed by AIX to do dynamic linking.
#
# This simple program relies on global.sym and few other *.sym files
# and the *var*.h files being up to date with all of the global
# symbols that a dynamic link library might want to access.
#
# Most symbols have a Perl_ or PL_prefix because that's what embed.h
# sticks in front of them.
#
# AIX requires the list of external symbols (variables or functions)
# that are made available for another executable object file the import.
# The list is called the export file and it is a simple text file.
# The first line must be
#!
# That is, hash-bang, pound-shout, however you want to call it.
# The remainder of the file are the names of the symbols, one per line.
# The file is then given to the system loader (cc/xlc command line)
# as -bE:export.file.
case $CONFIGDOTSH in
'')
if test -f config.sh; then TOP=.;
elif test -f ../config.sh; then TOP=..;
elif test -f ../../config.sh; then TOP=../..;
elif test -f ../../../config.sh; then TOP=../../..;
elif test -f ../../../../config.sh; then TOP=../../../..;
else
echo "Can't find config.sh."; exit 1
fi
. $TOP/config.sh
;;
esac
: This forces SH files to create target in same directory as SH file.
: This is so that make depend always knows where to find SH derivatives.
case "$0" in
*/*) cd `expr X$0 : 'X\(.*\)/'` ;;
esac
echo "Extracting perl.exp"
rm -f perl.exp
echo "#!" > perl.exp
# No compat3 since 5.004_50.
# No interp.sym since 5.005_03.
# perlio.sym will added later if needed.
grep '^Perl_' global.sym >> perl.exp
grep '^Perl_' pp.sym >> perl.exp
sed -n '/^[A-Za-z]/ s/^/PL_/p' globvar.sym >> perl.exp
sed -n 's/^PERLVAR.*(G\([^[,]*\).*/PL_\1/p' perlvars.h >> perl.exp
sed -n 's/^PERLVAR.*(I\([^[,]*\).*/PL_\1/p' intrpvar.h >> perl.exp
sed -n 's/^PERLVAR.*(T\([^[,]*\).*/PL_\1/p' thrdvar.h >> perl.exp
#
# If we use the PerlIO abstraction layer, add its symbols.
#
if [ "X$useperlio" = "Xdefine" ]
then
grep '^[A-Za-z]' perlio.sym >> perl.exp
fi
#
# Extra globals not included above (including a few that might
# not actually be defined, but there's no harm in that).
#
#cat >>perl.exp <<END
#END
case "$usemymalloc" in
true|[yY]*) usemymalloc=define ;;
esac
# Remove mymalloc if needed.
case "$usemymalloc$d_mymalloc" in
definedefine) ;;
*)
egrep -v '^(Perl_(calloc|malloc|malloced_size|mfree|realloc|safexcalloc|safexfree|safexmalloc|safexrealloc)|^PL_malloc_mutex)$' < perl.exp > perl.exp$$
mv -f perl.exp$$ perl.exp
case "$ccflags" in
*DEBUGGING*) ;;
*)
egrep -v '^(Perl_dump_mstats)$' < perl.exp > perl.exp$$
mv -f perl.exp$$ perl.exp
;;
esac
;;
esac
# Remove unneeded utility functions.
egrep -v '^(Perl_my_(bcopy|bzero|chsize|htonl|memcmp|memset|ntohl|swap))$' < perl.exp > perl.exp$$
mv -f perl.exp$$ perl.exp
case "$usethreads" in
true|[yY]*) usethreads=define ;;
esac
# Remove thread symbols if needed.
case "$usethreads" in
define) ;;
*)
egrep -v '^(Perl_(condpair_magic|find_threadsv|magic_mutexfree|new_struct_thread|unlock_condpair)|^PL_((eval|nthreads)_cond|curthr|eval_owner|(cred|eval|strtab|sv|svref|threads|malloc|vtbl)_mutex|nthreads|threadnum|threadsv_names|thr_key|thrsv))$' < perl.exp > perl.exp$$
mv -f perl.exp$$ perl.exp
;;
esac
# Remove debugging symbols if needed.
case "$ccflags" in
*DEBUGGING*) ;;
*)
egrep -v '^(PL_(block_type|watchaddr|watchok))$' < perl.exp > perl.exp$$
mv -f perl.exp$$ perl.exp
;;
esac
# Remove unneeded globals.
egrep -v '^(Perl_(ErrorNo|GetVars|same_dirent|unlnk)|PL_(cryptseen|statusvalue_vms))' < perl.exp > perl.exp$$
mv -f perl.exp$$ perl.exp
# The shebang line nicely sorts as the first one.
sort -o perl.exp -u perl.exp
# eof
|
