Handle characters with high bit set
[p5sagit/p5-mst-13.2.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 # 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' global.sym >> perl.exp
21
22 # also add symbols from interp.sym
23 # They are only needed if -DMULTIPLICITY is not set but it
24 # doesn't hurt to include them anyway.
25 sed -n '/^[A-Za-z]/ p' interp.sym >> perl.exp
26
27 # extra globals not included above.
28 cat <<END >> perl.exp
29 perl_init_i18nl14n
30 perl_init_ext
31 perl_alloc
32 perl_construct
33 perl_destruct
34 perl_free
35 perl_parse
36 perl_run
37 perl_get_sv
38 perl_get_av
39 perl_get_hv
40 perl_get_cv
41 perl_call_argv
42 perl_call_pv
43 perl_call_method
44 perl_call_sv
45 perl_requirepv
46 safecalloc
47 safemalloc
48 saferealloc
49 safefree
50 END