# define PERLIO_IS_STDIO
# endif
#else
-extern void PerlIO_init _((void));
+extern void PerlIO_init (void);
#endif
#ifdef PERL_OBJECT
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;
#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
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))
#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 */
#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))
#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>
{
public:
virtual void Abort(void) = 0;
+ virtual char * Crypt(const char* clear, const char* salt) = 0;
virtual void Exit(int status) = 0;
virtual void _Exit(int status) = 0;
virtual int Execl(const char *cmdname, const char *arg0,
};
#define PerlProc_abort() PL_piProc->Abort()
+#define PerlProc_crypt(c,s) PL_piProc->Crypt((c), (s))
#define PerlProc_exit(s) PL_piProc->Exit((s))
#define PerlProc__exit(s) PL_piProc->_Exit((s))
#define PerlProc_execl(c, w, x, y, z) \
#else /* PERL_OBJECT */
#define PerlProc_abort() abort()
+#define PerlProc_crypt(c,s) crypt((c), (s))
#define PerlProc_exit(s) exit((s))
#define PerlProc__exit(s) _exit((s))
#define PerlProc_execl(c,w,x,y,z) \
#define PerlSock_inet_addr(c) inet_addr(c)
#define PerlSock_inet_ntoa(i) inet_ntoa(i)
#define PerlSock_listen(s, b) listen(s, b)
+#define PerlSock_recv(s, b, l, f) recv(s, b, l, f)
#define PerlSock_recvfrom(s, b, l, f, from, fromlen) \
recvfrom(s, b, l, f, from, fromlen)
#define PerlSock_select(n, r, w, e, t) select(n, r, w, e, t)
#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___ */