Fix for incorrect overloaded assignment
[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         grep '^[A-Za-z]' global.sym | sort >$global
47         grep '^[A-Za-z]' interp.sym | sort >$interp
48         grep '^[A-Za-z]' compat3.sym | sort >$compat3
49         comm -23 $global $compat3 | sed 's/^/Perl_/' >> perl.exp
50         comm -12 $interp $compat3 | sed 's/^/Perl_/' >> perl.exp
51         comm -12 $global $compat3 >> perl.exp
52         comm -23 $interp $compat3 >> perl.exp
53         rm -f $global $interp $compat3
54         ;;
55 *)
56         sed -n '/^[A-Za-z]/ s/^/Perl_/p' global.sym interp.sym >> perl.exp
57         ;;
58 esac
59
60 #
61 # Extra globals not included above (including a few that might
62 # not actually be defined, but there's no harm in that).
63 #
64
65 cat <<END >> perl.exp
66 perl_init_i18nl10n
67 perl_init_i18nl14n
68 perl_new_collate
69 perl_new_ctype
70 perl_new_numeric
71 perl_set_numeric_local
72 perl_set_numeric_standard
73 perl_alloc
74 perl_construct
75 perl_destruct
76 perl_free
77 perl_parse
78 perl_run
79 perl_get_sv
80 perl_get_av
81 perl_get_hv
82 perl_get_cv
83 perl_call_argv
84 perl_call_pv
85 perl_call_method
86 perl_call_sv
87 perl_requirepv
88 Mymalloc
89 Mycalloc
90 Myremalloc
91 Myfree
92 Perl_malloc
93 Perl_calloc
94 Perl_realloc
95 Perl_free
96 END