diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1998-03-01 14:14:44 +0200 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-03-05 18:48:05 +0000 |
| commit | bd656b61a06f544ae070cad87b364e39eafa7528 (patch) | |
| tree | a68d51fb75ad7c7b46457d0d57a08047d1e38189 /perl_exp.SH | |
| parent | 4b534093594d92b34206e8072899488b51e4421c (diff) | |
| download | perl-bd656b61a06f544ae070cad87b364e39eafa7528.tar.gz | |
Re: [PATCH] 5.004_61: Makefile.SH (Re: 5.004_61: annoyingly missing patch)
p4raw-id: //depot/perl@775
Diffstat (limited to 'perl_exp.SH')
| -rw-r--r-- | perl_exp.SH | 38 |
1 files changed, 13 insertions, 25 deletions
diff --git a/perl_exp.SH b/perl_exp.SH index 067ebec135..f8fd973e30 100644 --- a/perl_exp.SH +++ b/perl_exp.SH @@ -38,31 +38,14 @@ echo "Extracting perl.exp" rm -f perl.exp echo "#!" > perl.exp -case "$bincompat3" in -y*) - global=/tmp/exp$$g - interp=/tmp/exp$$i - compat3=/tmp/exp$$c - grep '^[A-Za-z]' global.sym | sort >$global - grep '^[A-Za-z]' interp.sym | sort >$interp - grep '^[A-Za-z]' compat3.sym | sort >$compat3 - comm -23 $global $compat3 | sed 's/^/Perl_/' >> perl.exp - comm -12 $interp $compat3 | sed 's/^/Perl_/' >> perl.exp - comm -12 $global $compat3 >> perl.exp - comm -23 $interp $compat3 >> perl.exp - rm -f $global $interp $compat3 - ;; -*) - sed -n '/^[A-Za-z]/ s/^/Perl_/p' global.sym interp.sym >> perl.exp - expperlvars=/tmp/exp$$pv - expthrdvar=/tmp/exp$$tv - sed -n 's/^PERLVARI*(G\([^,]*\).*/Perl_\1/p' perlvars.h >> $expperlvars - sed -n 's/^PERLVARI*(T\([^,]*\).*/Perl_\1/p' thrdvar.h >> $expthrdvar - # The shebang line nicely sorts as the first one. - sort -o perl.exp -u perl.exp $expperlvars $expthrdvar - rm -f $expperlvars $expthrdvar - ;; -esac +# No compat3 since and including the 5.004_50. +# perlio.sym added later if needed. +syms=`ls -1 *.sym|egrep -v 'compat3|perlio'` + +sed -n '/^[A-Za-z]/ s/^/Perl_/p' $syms >> perl.exp + +sed -n 's/^PERLVAR.*(G\([^,]*\).*/Perl_\1/p' perlvars.h >> perl.exp +sed -n 's/^PERLVAR.*(T\([^,]*\).*/Perl_\1/p' thrdvar.h >> perl.exp # # If we use the PerlIO abstraction layer, add its symbols @@ -112,3 +95,8 @@ Perl_calloc Perl_realloc Perl_free END + +# The shebang line nicely sorts as the first one. +sort -o perl.exp -u perl.exp + +# eof |