From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Thu, 2 May 2002 15:19:59 +0000 (+0000)
Subject: More layer syms
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1e8a8f599308436d6e164543b54e022d0b1a9177;p=p5sagit%2Fp5-mst-13.2.git

More layer syms

p4raw-id: //depot/perlio@16347
---

diff --git a/makedef.pl b/makedef.pl
index 6f6226e..f5325e8 100644
--- a/makedef.pl
+++ b/makedef.pl
@@ -695,6 +695,30 @@ my @layer_syms = qw(
 			 PerlIO_push
 			 PerlIO_sv_dup
 			 PerlIO_perlio
+
+Perl_PerlIO_clearerr
+Perl_PerlIO_close
+Perl_PerlIO_eof
+Perl_PerlIO_error
+Perl_PerlIO_fileno
+Perl_PerlIO_fill
+Perl_PerlIO_flush
+Perl_PerlIO_get_base
+Perl_PerlIO_get_bufsiz
+Perl_PerlIO_get_cnt
+Perl_PerlIO_get_ptr
+Perl_PerlIO_read
+Perl_PerlIO_seek
+Perl_PerlIO_set_cnt
+Perl_PerlIO_set_ptrcnt
+Perl_PerlIO_setlinebuf
+Perl_PerlIO_stderr
+Perl_PerlIO_stdin
+Perl_PerlIO_stdout
+Perl_PerlIO_tell
+Perl_PerlIO_unread
+Perl_PerlIO_write
+
 );
 
 
@@ -787,6 +811,8 @@ if ($define{'USE_PERLIO'}) {
 	# Skip the PerlIO layer symbols - although
 	# nothing should have exported them any way
 	skip_symbols \@layer_syms;
+        skip_symbols [qw(PL_def_layerlist PL_known_layers PL_perlio)];
+
 	# Also do NOT add abstraction symbols from $perlio_sym
 	# abstraction is done as #define to stdio
 	# Remaining remnants that _may_ be functions
@@ -1242,14 +1268,11 @@ perl_free
 perl_parse
 perl_run
 # Oddities from PerlIO 
-PerlIO_open
 PerlIO_binmode
 PerlIO_getpos
 PerlIO_init
-PerlIO_perlio
 PerlIO_setpos
 PerlIO_sprintf
-PerlIO_printf
 PerlIO_sv_dup
 PerlIO_tmpfile
 PerlIO_vsprintf