summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/perlio.h
diff options
context:
space:
mode:
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/perlio.h')
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/perlio.h13
1 files changed, 12 insertions, 1 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/perlio.h b/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/perlio.h
index f444fa86d0..96fc6f51cc 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/perlio.h
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/perlio.h
@@ -32,7 +32,7 @@
# error "stdio is no longer supported as the default base layer -- use perlio."
#endif
-/* -------------------- End of Configure controls ---------------------------- */
+/*-------------------- End of Configure controls ---------------------------*/
/*
* Although we may not want stdio to be used including <stdio.h> here
@@ -63,6 +63,17 @@ typedef PerlIOl *PerlIO;
#define PerlIO PerlIO
#define PERLIO_LAYERS 1
+/*
+=for apidoc_section $io
+=for apidoc Amu||PERLIO_FUNCS_DECL|PerlIO * ftab
+Declare C<ftab> to be a PerlIO function table, that is, of type
+C<PerlIO_funcs>.
+
+=for apidoc Ay|PerlIO_funcs *|PERLIO_FUNCS_CAST|PerlIO * func
+Cast the pointer C<func> to be of type S<C<PerlIO_funcs *>>.
+
+=cut
+*/
#define PERLIO_FUNCS_DECL(funcs) const PerlIO_funcs funcs
#define PERLIO_FUNCS_CAST(funcs) (PerlIO_funcs*)(funcs)