X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=iperlsys.h;h=9ad325606230d19692afec10b67ffe8a86ef132c;hb=4b7fcc74dfb0dfcd72a60881ab8de354c43fa9fb;hp=7b220b9456227c0ab7b99e0a900db078e53519fd;hpb=c6af7a1aaf1f569eeb51c976b436561fdc569904;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/iperlsys.h b/iperlsys.h
index 7b220b9..9ad3256 100644
--- a/iperlsys.h
+++ b/iperlsys.h
@@ -71,7 +71,7 @@
 #      define PERLIO_IS_STDIO
 #  endif
 #else
-extern void PerlIO_init _((void));
+extern void PerlIO_init (void);
 #endif
 
 #ifdef PERL_OBJECT
@@ -114,7 +114,7 @@ public:
     virtual int		Printf(PerlIO*, int &err, const char *,...) = 0;
     virtual int		Vprintf(PerlIO*, int &err, const char *, va_list) = 0;
     virtual long	Tell(PerlIO*, int &err) = 0;
-    virtual int		Seek(PerlIO*, off_t, int, int &err) = 0;
+    virtual int		Seek(PerlIO*, Off_t, int, int &err) = 0;
     virtual void	Rewind(PerlIO*, int &err) = 0;
     virtual PerlIO *	Tmpfile(int &err) = 0;
     virtual int		Getpos(PerlIO*, Fpos_t *, int &err) = 0;
@@ -250,133 +250,133 @@ struct _PerlIO;
 #endif
 
 #ifndef PerlIO_stdoutf
-extern int	PerlIO_stdoutf		_((const char *,...))
+extern int	PerlIO_stdoutf		(const char *,...)
 					__attribute__((format (printf, 1, 2)));
 #endif
 #ifndef PerlIO_puts
-extern int	PerlIO_puts		_((PerlIO *,const char *));
+extern int	PerlIO_puts		(PerlIO *,const char *);
 #endif
 #ifndef PerlIO_open
-extern PerlIO *	PerlIO_open		_((const char *,const char *));
+extern PerlIO *	PerlIO_open		(const char *,const char *);
 #endif
 #ifndef PerlIO_close
-extern int	PerlIO_close		_((PerlIO *));
+extern int	PerlIO_close		(PerlIO *);
 #endif
 #ifndef PerlIO_eof
-extern int	PerlIO_eof		_((PerlIO *));
+extern int	PerlIO_eof		(PerlIO *);
 #endif
 #ifndef PerlIO_error
-extern int	PerlIO_error		_((PerlIO *));
+extern int	PerlIO_error		(PerlIO *);
 #endif
 #ifndef PerlIO_clearerr
-extern void	PerlIO_clearerr		_((PerlIO *));
+extern void	PerlIO_clearerr		(PerlIO *);
 #endif
 #ifndef PerlIO_getc
-extern int	PerlIO_getc		_((PerlIO *));
+extern int	PerlIO_getc		(PerlIO *);
 #endif
 #ifndef PerlIO_putc
-extern int	PerlIO_putc		_((PerlIO *,int));
+extern int	PerlIO_putc		(PerlIO *,int);
 #endif
 #ifndef PerlIO_flush
-extern int	PerlIO_flush		_((PerlIO *));
+extern int	PerlIO_flush		(PerlIO *);
 #endif
 #ifndef PerlIO_ungetc
-extern int	PerlIO_ungetc		_((PerlIO *,int));
+extern int	PerlIO_ungetc		(PerlIO *,int);
 #endif
 #ifndef PerlIO_fileno
-extern int	PerlIO_fileno		_((PerlIO *));
+extern int	PerlIO_fileno		(PerlIO *);
 #endif
 #ifndef PerlIO_fdopen
-extern PerlIO *	PerlIO_fdopen		_((int, const char *));
+extern PerlIO *	PerlIO_fdopen		(int, const char *);
 #endif
 #ifndef PerlIO_importFILE
-extern PerlIO *	PerlIO_importFILE	_((FILE *,int));
+extern PerlIO *	PerlIO_importFILE	(FILE *,int);
 #endif
 #ifndef PerlIO_exportFILE
-extern FILE *	PerlIO_exportFILE	_((PerlIO *,int));
+extern FILE *	PerlIO_exportFILE	(PerlIO *,int);
 #endif
 #ifndef PerlIO_findFILE
-extern FILE *	PerlIO_findFILE		_((PerlIO *));
+extern FILE *	PerlIO_findFILE		(PerlIO *);
 #endif
 #ifndef PerlIO_releaseFILE
-extern void	PerlIO_releaseFILE	_((PerlIO *,FILE *));
+extern void	PerlIO_releaseFILE	(PerlIO *,FILE *);
 #endif
 #ifndef PerlIO_read
-extern SSize_t	PerlIO_read		_((PerlIO *,void *,Size_t));
+extern SSize_t	PerlIO_read		(PerlIO *,void *,Size_t);
 #endif
 #ifndef PerlIO_write
-extern SSize_t	PerlIO_write		_((PerlIO *,const void *,Size_t));
+extern SSize_t	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 *,...))
+extern int	PerlIO_printf		(PerlIO *, const char *,...)
 					__attribute__((format (printf, 2, 3)));
 #endif
 #ifndef PerlIO_sprintf
-extern int	PerlIO_sprintf		_((char *, int, const char *,...))
+extern int	PerlIO_sprintf		(char *, int, const char *,...)
 					__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 *));
+extern Off_t	PerlIO_tell		(PerlIO *);
 #endif
 #ifndef PerlIO_seek
-extern int	PerlIO_seek		_((PerlIO *,off_t,int));
+extern int	PerlIO_seek		(PerlIO *, Off_t, int);
 #endif
 #ifndef PerlIO_rewind
-extern void	PerlIO_rewind		_((PerlIO *));
+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 STDCHAR * PerlIO_get_ptr		_((PerlIO *));
+extern STDCHAR * 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 *,STDCHAR *,int));
+extern void	PerlIO_set_ptrcnt	(PerlIO *,STDCHAR *,int);
 #endif
 #ifndef PerlIO_get_base
-extern STDCHAR * PerlIO_get_base	_((PerlIO *));
+extern STDCHAR * 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));
+extern PerlIO *	PerlIO_tmpfile		(void);
 #endif
 #ifndef PerlIO_stdin
-extern PerlIO *	PerlIO_stdin	_((void));
+extern PerlIO *	PerlIO_stdin	(void);
 #endif
 #ifndef PerlIO_stdout
-extern PerlIO *	PerlIO_stdout	_((void));
+extern PerlIO *	PerlIO_stdout	(void);
 #endif
 #ifndef PerlIO_stderr
-extern PerlIO *	PerlIO_stderr	_((void));
+extern PerlIO *	PerlIO_stderr	(void);
 #endif
 #ifndef PerlIO_getpos
-extern int	PerlIO_getpos		_((PerlIO *,Fpos_t *));
+extern int	PerlIO_getpos		(PerlIO *,Fpos_t *);
 #endif
 #ifndef PerlIO_setpos
-extern int	PerlIO_setpos		_((PerlIO *,const Fpos_t *));
+extern int	PerlIO_setpos		(PerlIO *,const Fpos_t *);
 #endif
 
 
@@ -450,10 +450,25 @@ public:
     virtual int		Putenv(const char *envstring, int &err) = 0;
     virtual char *	LibPath(char *patchlevel) =0;
     virtual char *	SiteLibPath(char *patchlevel) =0;
+    virtual int		Uname(struct utsname *name, int &err) =0;
+    virtual char *	Getenv_len(const char *varname, unsigned long *len, int &err) = 0;
+#ifdef HAS_ENVGETENV
+    virtual char *	ENVGetenv(const char *varname, int &err) = 0;
+    virtual char *	ENVGetenv_len(const char *varname, unsigned long *len, int &err) = 0;
+#endif
 };
 
 #define PerlEnv_putenv(str)		PL_piENV->Putenv((str), ErrorNo())
 #define PerlEnv_getenv(str)		PL_piENV->Getenv((str), ErrorNo())
+#define PerlEnv_getenv_len(str,l)	PL_piENV->Getenv_len((str), (l), ErrorNo())
+#ifdef HAS_ENVGETENV
+#  define PerlEnv_ENVgetenv(str)	PL_piENV->ENVGetenv((str), ErrorNo())
+#  define PerlEnv_ENVgetenv_len(str,l)	PL_piENV->ENVGetenv_len((str), (l), ErrorNo())
+#else
+#  define PerlEnv_ENVgetenv(str)	PerlEnv_getenv((str))
+#  define PerlEnv_ENVgetenv_len(str,l)	PerlEnv_getenv_len((str),(l))
+#endif
+#define PerlEnv_uname(name)		PL_piENV->Uname((name), ErrorNo())
 #ifdef WIN32
 #define PerlEnv_lib_path(str)		PL_piENV->LibPath((str))
 #define PerlEnv_sitelib_path(str)	PL_piENV->SiteLibPath((str))
@@ -463,6 +478,15 @@ public:
 
 #define PerlEnv_putenv(str)		putenv((str))
 #define PerlEnv_getenv(str)		getenv((str))
+#define PerlEnv_getenv_len(str,l)	getenv_len((str), (l))
+#ifdef HAS_ENVGETENV
+#  define PerlEnv_ENVgetenv(str)	ENVgetenv((str))
+#  define PerlEnv_ENVgetenv_len(str,l)	ENVgetenv_len((str), (l))
+#else
+#  define PerlEnv_ENVgetenv(str)	PerlEnv_getenv((str))
+#  define PerlEnv_ENVgetenv_len(str,l)	PerlEnv_getenv_len((str), (l))
+#endif
+#define PerlEnv_uname(name)		uname((name))
 
 #endif	/* PERL_OBJECT */
 
@@ -573,7 +597,11 @@ public:
 #define PerlLIO_ioctl(fd, u, buf)	ioctl((fd), (u), (buf))
 #define PerlLIO_isatty(fd)		isatty((fd))
 #define PerlLIO_lseek(fd, offset, mode)	lseek((fd), (offset), (mode))
+#ifdef HAS_LSTAT
 #define PerlLIO_lstat(name, buf)	lstat((name), (buf))
+#else
+#define PerlLIO_lstat(name, buf)	PerlLIO_stat((name), (buf))
+#endif
 #define PerlLIO_mktemp(file)		mktemp((file))
 #define PerlLIO_mkstemp(file)		mkstemp((file))
 #define PerlLIO_open(file, flag)	open((file), (flag))
@@ -624,7 +652,7 @@ public:
 #ifdef PERL_OBJECT
 
 #ifndef Sighandler_t
-typedef Signal_t (*Sighandler_t) _((int));
+typedef Signal_t (*Sighandler_t) (int);
 #endif
 #ifndef jmp_buf
 #include <setjmp.h>
@@ -927,5 +955,22 @@ public:
 
 #endif	/* PERL_OBJECT */
 
+/* Mention
+
+   HAS_READV
+   HAS_RECVMSG
+   HAS_SENDMSG
+   HAS_WRITEV
+   HAS_STRUCT_MSGHDR
+   HAS_STRUCT_CMSGHDR
+
+   here so that Configure picks them up.  Perl core does not
+   use them but somebody might want to extend Socket:: or IO::
+   someday.
+
+   Jarkko Hietaniemi November 1998
+
+   */
+
 #endif	/* __Inc__IPerl___ */