Commit | Line | Data |
ff68c719 |
1 | #!/bin/sh |
2 | |
3 | # Written: Nov 1994 Wayne Scott (wscott@ichips.intel.com) |
4 | |
5 | # Create the export list for perl based on 'old_global.sym'. |
6 | # Needed by AIX to do dynamic linking. |
7 | |
8 | # This simple program relys on 'old_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 | # All symbols have a Perl_ prefix because that's what embed.h |
13 | # sticks in front of them. |
14 | |
15 | echo "Extracting perl.exp" |
16 | |
17 | rm -f perl.exp |
18 | echo "#!" > perl.exp |
19 | |
20 | sed -n '/^[A-Za-z]/ s/^/Perl_/p' old_global.sym >> perl.exp |
21 | |
22 | # |
23 | # also add symbols from interp.sym |
24 | # They are only needed if -DMULTIPLICITY is not set but it |
25 | # doesn't hurt to include them anyway. |
26 | sed -n '/^[A-Za-z]/ p' interp.sym >> perl.exp |
27 | |
28 | # extra globals not included above. |
29 | cat <<END >> perl.exp |
30 | perl_init_i18nl10n |
31 | perl_init_i18nl14n |
32 | perl_new_collate |
33 | perl_new_ctype |
34 | perl_new_numeric |
36477c24 |
35 | perl_set_numeric_local |
36 | perl_set_numeric_standard |
ff68c719 |
37 | perl_alloc |
38 | perl_construct |
39 | perl_destruct |
40 | perl_free |
41 | perl_parse |
42 | perl_run |
43 | perl_get_sv |
44 | perl_get_av |
45 | perl_get_hv |
46 | perl_get_cv |
47 | perl_call_argv |
48 | perl_call_pv |
49 | perl_call_method |
50 | perl_call_sv |
51 | perl_requirepv |
52 | END |