| 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 | |
| bbb28fc1 |
23 | sed -n '/^[A-Za-z]/ s/^/Perl_/p' global.sym >> perl.exp |
| a0d0e21e |
24 | |
| ff68c719 |
25 | # |
| 75f92628 |
26 | # also add symbols from interp.sym |
| 27 | # They are only needed if -DMULTIPLICITY is not set but it |
| 28 | # doesn't hurt to include them anyway. |
| ff68c719 |
29 | sed -n '/^[A-Za-z]/ s/^/Perl_/p' interp.sym >> perl.exp |
| 75f92628 |
30 | |
| 31 | # extra globals not included above. |
| a0d0e21e |
32 | cat <<END >> perl.exp |
| 55497cff |
33 | perl_init_i18nl10n |
| bbce6d69 |
34 | perl_init_i18nl14n |
| 35 | perl_new_collate |
| 36 | perl_new_ctype |
| ff68c719 |
37 | perl_new_numeric |
| 38 | perl_numeric_local |
| 39 | perl_numeric_standard |
| a0d0e21e |
40 | perl_alloc |
| 41 | perl_construct |
| 42 | perl_destruct |
| 43 | perl_free |
| 44 | perl_parse |
| 45 | perl_run |
| 46 | perl_get_sv |
| 47 | perl_get_av |
| 48 | perl_get_hv |
| 49 | perl_get_cv |
| 50 | perl_call_argv |
| 51 | perl_call_pv |
| 52 | perl_call_method |
| 53 | perl_call_sv |
| 54 | perl_requirepv |
| 55 | END |
projects / p5sagit/p5-mst-13.2.git / blame