summaryrefslogtreecommitdiff
path: root/perlio.h
diff options
context:
space:
mode:
authorPerl 5 Porters <perl5-porters@africa.nicoh.com>1996-08-21 02:08:36 +0000
committerAndy Dougherty <doughera@lafcol.lafayette.edu>1996-08-21 02:08:36 +0000
commitf2d19c81aed8415b916c8606ef0cc7d74a1bfb68 (patch)
tree6e08dfae89c41b43513b68064e0c25ae32b0322c /perlio.h
parent33dcbb9a4b5517789b5e779cf126923149d7ff89 (diff)
downloadperl-f2d19c81aed8415b916c8606ef0cc7d74a1bfb68.tar.gz
perl 5.003_03: perlio.h
Try to document the various #defines a bit. This is far from finished. Remove a lot of trailing whitespace. (It's of no consequence, but but I'm not going to redo the patch just to put back in the trailing whitespace either.)
Diffstat (limited to 'perlio.h')
-rw-r--r--perlio.h58
1 files changed, 32 insertions, 26 deletions
diff --git a/perlio.h b/perlio.h
index bdf59d78be..a11750442d 100644
--- a/perlio.h
+++ b/perlio.h
@@ -1,12 +1,21 @@
#ifndef H_PERLIO
#define H_PERLIO 1
-/* Allow -DUSE_STDIO to force the issue for x2p directory */
-#ifdef USE_STDIO
-#ifdef PERLIO_IS_STDIO
-#undef PERLIO_IS_STDIO
+/* Clean up (or at least document) the various possible #defines.
+ This section attempts to match the 5.003_03 Configure variables
+ onto the 5.003_02 header file values.
+ I can't figure out where USE_STDIO was supposed to be set.
+ --AD
+*/
+#ifndef USE_PERLIO
+# define PERLIO_IS_STDIO
#endif
-#define PERLIO_IS_STDIO
+
+/* Below is the 5.003_02 stuff. */
+#ifdef USE_STDIO
+# ifndef PERLIO_IS_STDIO
+# define PERLIO_IS_STDIO
+# endif
#else
extern void PerlIO_init _((void));
#endif
@@ -55,7 +64,7 @@ struct _PerlIO;
#undef __attribute__
#endif
#define __attribute__(attr)
-#endif
+#endif
#endif
#ifndef PerlIO_stdoutf
@@ -111,24 +120,24 @@ extern FILE * PerlIO_findFILE _((PerlIO *));
extern void PerlIO_releaseFILE _((PerlIO *,FILE *));
#endif
#ifndef PerlIO_read
-extern int PerlIO_read _((PerlIO *,void *,size_t));
+extern int PerlIO_read _((PerlIO *,void *,size_t));
#endif
#ifndef PerlIO_write
-extern int PerlIO_write _((PerlIO *,const void *,size_t));
+extern int PerlIO_write _((PerlIO *,const void *,size_t));
#endif
#ifndef PerlIO_setlinebuf
-extern void PerlIO_setlinebuf _((PerlIO *));
+extern void PerlIO_setlinebuf _((PerlIO *));
#endif
#ifndef PerlIO_printf
extern int PerlIO_printf _((PerlIO *, const char *,...))
- __attribute__((format (printf, 2, 3)));
+ __attribute__((format (printf, 2, 3)));
#endif
#ifndef PerlIO_sprintf
extern int PerlIO_sprintf _((char *, int, const char *,...))
- __attribute__((format (printf, 3, 4)));
+ __attribute__((format (printf, 3, 4)));
#endif
#ifndef PerlIO_vprintf
-extern int PerlIO_vprintf _((PerlIO *, const char *, va_list));
+extern int PerlIO_vprintf _((PerlIO *, const char *, va_list));
#endif
#ifndef PerlIO_tell
extern long PerlIO_tell _((PerlIO *));
@@ -140,34 +149,34 @@ extern int PerlIO_seek _((PerlIO *,off_t,int));
extern void PerlIO_rewind _((PerlIO *));
#endif
#ifndef PerlIO_has_base
-extern int PerlIO_has_base _((PerlIO *));
+extern int PerlIO_has_base _((PerlIO *));
#endif
#ifndef PerlIO_has_cntptr
-extern int PerlIO_has_cntptr _((PerlIO *));
+extern int PerlIO_has_cntptr _((PerlIO *));
#endif
#ifndef PerlIO_fast_gets
-extern int PerlIO_fast_gets _((PerlIO *));
+extern int PerlIO_fast_gets _((PerlIO *));
#endif
#ifndef PerlIO_canset_cnt
-extern int PerlIO_canset_cnt _((PerlIO *));
+extern int PerlIO_canset_cnt _((PerlIO *));
#endif
#ifndef PerlIO_get_ptr
-extern char * PerlIO_get_ptr _((PerlIO *));
+extern char * PerlIO_get_ptr _((PerlIO *));
#endif
#ifndef PerlIO_get_cnt
-extern int PerlIO_get_cnt _((PerlIO *));
+extern int PerlIO_get_cnt _((PerlIO *));
#endif
#ifndef PerlIO_set_cnt
-extern void PerlIO_set_cnt _((PerlIO *,int));
+extern void PerlIO_set_cnt _((PerlIO *,int));
#endif
#ifndef PerlIO_set_ptrcnt
-extern void PerlIO_set_ptrcnt _((PerlIO *,char *,int));
+extern void PerlIO_set_ptrcnt _((PerlIO *,char *,int));
#endif
#ifndef PerlIO_get_base
-extern char * PerlIO_get_base _((PerlIO *));
+extern char * PerlIO_get_base _((PerlIO *));
#endif
#ifndef PerlIO_get_bufsiz
-extern int PerlIO_get_bufsiz _((PerlIO *));
+extern int PerlIO_get_bufsiz _((PerlIO *));
#endif
#ifndef PerlIO_tmpfile
extern PerlIO * PerlIO_tmpfile _((void));
@@ -186,8 +195,5 @@ extern int PerlIO_getpos _((PerlIO *,Fpos_t *));
#endif
#ifndef PerlIO_setpos
extern int PerlIO_setpos _((PerlIO *,const Fpos_t *));
-#endif
+#endif
#endif /* Include guard */
-
-
-