Don't count on 'trap 0' inside () in shell script
[perl.git] / perl_exp.SH
1 #!/bin/sh
2 #
3 # Written: Nov 1994 Wayne Scott (wscott@ichips.intel.com)
4 #
5 # Create the export list for perl.
6 # Needed by AIX to do dynamic linking.
7 #
8 # This simple program relys on 'global.sym' being up to date
9 # with all of the global symbols that a dynamicly link library
10 # might want to access.
11 #
12 # Most symbols have a Perl_ prefix because that's what embed.h sticks
13 # in front of them.  Variations depend on binary compatibility with
14 # Perl 5.003.
15 #
16
17 case $CONFIG in
18 '')
19         if test -f config.sh; then TOP=.;
20         elif test -f ../config.sh; then TOP=..;
21         elif test -f ../../config.sh; then TOP=../..;
22         elif test -f ../../../config.sh; then TOP=../../..;
23         elif test -f ../../../../config.sh; then TOP=../../../..;
24         else
25                 echo "Can't find config.sh."; exit 1
26         fi
27         . $TOP/config.sh
28         ;;
29 esac
30 : This forces SH files to create target in same directory as SH file.
31 : This is so that make depend always knows where to find SH derivatives.
32 case "$0" in
33 */*) cd `expr X$0 : 'X\(.*\)/'` ;;
34 esac
35
36 echo "Extracting perl.exp"
37
38 rm -f perl.exp
39 echo "#!" > perl.exp
40
41 case "$bincompat3" in
42 y*)
43           global=/tmp/exp$$g
44           interp=/tmp/exp$$i
45           compat3=/tmp/exp$$c
46           trap 'exit 1' 1 2 3 13 15
47           grep '^[A-Za-z]' global.sym | sort >$global
48           grep '^[A-Za-z]' interp.sym | sort >$interp
49           grep '^[A-Za-z]' compat3.sym | sort >$compat3
50           comm -23 $global $compat3 | sed 's/^/Perl_/' >> perl.exp
51           comm -12 $interp $compat3 | sed 's/^/Perl_/' >> perl.exp
52           comm -12 $global $compat3 >> perl.exp
53           comm -23 $interp $compat3 >> perl.exp
54           rm -f $global $interp $compat3
55         ;;
56 *)
57         sed -n '/^[A-Za-z]/ s/^/Perl_/p' global.sym interp.sym >> perl.exp
58         ;;
59 esac
60
61 #
62 # Extra globals not included above (including a few that might
63 # not actually be defined, but there's no harm in that).
64 #
65
66 cat <<END >> perl.exp
67 perl_init_i18nl10n
68 perl_init_i18nl14n
69 perl_new_collate
70 perl_new_ctype
71 perl_new_numeric
72 perl_set_numeric_local
73 perl_set_numeric_standard
74 perl_alloc
75 perl_construct
76 perl_destruct
77 perl_free
78 perl_parse
79 perl_run
80 perl_get_sv
81 perl_get_av
82 perl_get_hv
83 perl_get_cv
84 perl_call_argv
85 perl_call_pv
86 perl_call_method
87 perl_call_sv
88 perl_requirepv
89 Mymalloc
90 Mycalloc
91 Myremalloc
92 Myfree
93 Perl_malloc
94 Perl_calloc
95 Perl_realloc
96 Perl_free
97 END