Commit | Line | Data |
a0d0e21e |
1 | #!/bin/sh |
2 | |
75f92628 |
3 | # Written: Nov 1994 Wayne Scott (wscott@ichips.intel.com) |
4 | |
a0d0e21e |
5 | # Create the export list for perl. |
6 | # Needed by AIX to do dynamic linking. |
7 | |
ff68c719 |
8 | # NOTE: If you're using 'old_embed.pl', don't use this script! |
9 | # Use 'old_perl_exp.SH' instead. |
10 | |
a0d0e21e |
11 | # This simple program relys on 'global.sym' being up to date |
12 | # with all of the global symbols that a dynamicly link library |
13 | # might want to access. |
14 | |
bbb28fc1 |
15 | # All symbols have a Perl_ prefix because that's what embed.h |
16 | # sticks in front of them. |
17 | |
a0d0e21e |
18 | echo "Extracting perl.exp" |
19 | |
acf072ce |
20 | rm -f perl.exp |
a0d0e21e |
21 | echo "#!" > perl.exp |
22 | |
5f05dabc |
23 | case "$bincompat3" in |
24 | y*) |
25 | global=/tmp/exp$$g |
26 | interp=/tmp/exp$$i |
27 | compat3=/tmp/exp$$c |
28 | trap 'rm -f $global $interp $compat3' 0 |
29 | trap 'exit 1' 1 2 3 13 15 |
30 | grep '^[A-Za-z]' global.sym | sort >$global |
31 | grep '^[A-Za-z]' interp.sym | sort >$interp |
32 | grep '^[A-Za-z]' compat3.sym | sort >$compat3 |
33 | comm -23 $global $compat3 | sed 's/^/Perl_/p' >> perl.exp |
34 | comm -12 $global $compat3 >> perl.exp |
35 | comm -12 $interp $compat3 | sed 's/^/Perl_/p' >> perl.exp |
36 | comm -23 $interp $compat3 >> perl.exp |
37 | ;; |
38 | *) |
39 | sed -n '/^[A-Za-z]/ s/^/Perl_/p' global.sym interp.sym >> perl.exp |
40 | ;; |
41 | esac |
75f92628 |
42 | |
43 | # extra globals not included above. |
a0d0e21e |
44 | cat <<END >> perl.exp |
55497cff |
45 | perl_init_i18nl10n |
bbce6d69 |
46 | perl_init_i18nl14n |
47 | perl_new_collate |
48 | perl_new_ctype |
ff68c719 |
49 | perl_new_numeric |
36477c24 |
50 | perl_set_numeric_local |
51 | perl_set_numeric_standard |
a0d0e21e |
52 | perl_alloc |
53 | perl_construct |
54 | perl_destruct |
55 | perl_free |
56 | perl_parse |
57 | perl_run |
58 | perl_get_sv |
59 | perl_get_av |
60 | perl_get_hv |
61 | perl_get_cv |
62 | perl_call_argv |
63 | perl_call_pv |
64 | perl_call_method |
65 | perl_call_sv |
66 | perl_requirepv |
67 | END |