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 # NOTE: If you're using 'old_embed.pl', don't use this script!
   9 #       Use 'old_perl_exp.SH' instead.
  10
  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
  15 # All symbols have a Perl_ prefix because that's what embed.h
  16 # sticks in front of them.
  17
  18 echo "Extracting perl.exp"
  19
  20 rm -f perl.exp
  21 echo "#!" > perl.exp
  22
  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
  42
  43 # extra globals not included above.
  44 cat <<END >> perl.exp
  45 perl_init_i18nl10n
  46 perl_init_i18nl14n
  47 perl_new_collate
  48 perl_new_ctype
  49 perl_new_numeric
  50 perl_set_numeric_local
  51 perl_set_numeric_standard
  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