X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perlio.h;h=e699a3eafed03f7fffc8deaa3d41b08bfb0b5f76;hb=619ffc2be66f166b301c5b0d14a8bbba728675bc;hp=48bb386ae4671fbda971430a173722124836cee0;hpb=565764a853a177193a027e73655fad354d57fc10;p=p5sagit%2Fp5-mst-13.2.git diff --git a/perlio.h b/perlio.h index 48bb386..e699a3e 100644 --- a/perlio.h +++ b/perlio.h @@ -1,250 +1 @@ -#ifndef H_PERLIO -#define H_PERLIO 1 - -/* 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 - -/* 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 - -#ifdef PERL_OBJECT - -#include "ipstdio.h" - -#define PerlIO_canset_cnt(f) 1 -#define PerlIO_has_base(f) 1 -#define PerlIO_has_cntptr(f) 1 -#define PerlIO_fast_gets(f) 1 - -#define PerlIO_stdin() piStdIO->Stdin() -#define PerlIO_stdout() piStdIO->Stdout() -#define PerlIO_stderr() piStdIO->Stderr() -#define PerlIO_open(x,y) piStdIO->Open((x),(y), ErrorNo()) -#define PerlIO_close(f) piStdIO->Close((f), ErrorNo()) -#define PerlIO_eof(f) piStdIO->Eof((f), ErrorNo()) -#define PerlIO_error(f) piStdIO->Error((f), ErrorNo()) -#define PerlIO_clearerr(f) piStdIO->Clearerr((f), ErrorNo()) -#define PerlIO_getc(f) piStdIO->Getc((f), ErrorNo()) -#define PerlIO_get_base(f) piStdIO->GetBase((f), ErrorNo()) -#define PerlIO_get_bufsiz(f) piStdIO->GetBufsiz((f), ErrorNo()) -#define PerlIO_get_cnt(f) piStdIO->GetCnt((f), ErrorNo()) -#define PerlIO_get_ptr(f) piStdIO->GetPtr((f), ErrorNo()) -#define PerlIO_putc(f,c) piStdIO->Putc((f),(c), ErrorNo()) -#define PerlIO_puts(f,s) piStdIO->Puts((f),(s), ErrorNo()) -#define PerlIO_flush(f) piStdIO->Flush((f), ErrorNo()) -#define PerlIO_ungetc(f,c) piStdIO->Ungetc((f),(c), ErrorNo()) -#define PerlIO_fileno(f) piStdIO->Fileno((f), ErrorNo()) -#define PerlIO_fdopen(f, s) piStdIO->Fdopen((f),(s), ErrorNo()) -#define PerlIO_reopen(p, m, f) piStdIO->Reopen((p), (m), (f), ErrorNo()) -#define PerlIO_read(f,buf,count) (SSize_t)piStdIO->Read((f), (buf), (count), ErrorNo()) -#define PerlIO_write(f,buf,count) piStdIO->Write((f), (buf), (count), ErrorNo()) -#define PerlIO_setbuf(f,b) piStdIO->SetBuf((f), (b), ErrorNo()) -#define PerlIO_setvbuf(f,b,t,s) piStdIO->SetVBuf((f), (b), (t), (s), ErrorNo()) -#define PerlIO_set_cnt(f,c) piStdIO->SetCnt((f), (c), ErrorNo()) -#define PerlIO_set_ptrcnt(f,p,c) piStdIO->SetPtrCnt((f), (p), (c), ErrorNo()) -#define PerlIO_setlinebuf(f) piStdIO->Setlinebuf((f), ErrorNo()) -#define PerlIO_printf fprintf -#define PerlIO_stdoutf piStdIO->Printf -#define PerlIO_vprintf(f,fmt,a) piStdIO->Vprintf((f), ErrorNo(), (fmt),a) -#define PerlIO_tell(f) piStdIO->Tell((f), ErrorNo()) -#define PerlIO_seek(f,o,w) piStdIO->Seek((f),(o),(w), ErrorNo()) -#define PerlIO_getpos(f,p) piStdIO->Getpos((f),(p), ErrorNo()) -#define PerlIO_setpos(f,p) piStdIO->Setpos((f),(p), ErrorNo()) -#define PerlIO_rewind(f) piStdIO->Rewind((f), ErrorNo()) -#define PerlIO_tmpfile() piStdIO->Tmpfile(ErrorNo()) -#define PerlIO_init() piStdIO->Init(ErrorNo()) -#undef init_os_extras -#define init_os_extras() piStdIO->InitOSExtras(this) - -#else -#include "perlsdio.h" -#endif - -#ifndef PERLIO_IS_STDIO -#ifdef USE_SFIO -#include "perlsfio.h" -#endif /* USE_SFIO */ -#endif /* PERLIO_IS_STDIO */ - -#ifndef EOF -#define EOF (-1) -#endif - -/* This is to catch case with no stdio */ -#ifndef BUFSIZ -#define BUFSIZ 1024 -#endif - -#ifndef SEEK_SET -#define SEEK_SET 0 -#endif - -#ifndef SEEK_CUR -#define SEEK_CUR 1 -#endif - -#ifndef SEEK_END -#define SEEK_END 2 -#endif - -#ifndef PerlIO -struct _PerlIO; -#define PerlIO struct _PerlIO -#endif /* No PerlIO */ - -#ifndef Fpos_t -#define Fpos_t long -#endif - -#ifndef NEXT30_NO_ATTRIBUTE -#ifndef HASATTRIBUTE /* disable GNU-cc attribute checking? */ -#ifdef __attribute__ /* Avoid possible redefinition errors */ -#undef __attribute__ -#endif -#define __attribute__(attr) -#endif -#endif - -#ifndef PerlIO_stdoutf -extern int PerlIO_stdoutf _((const char *,...)) - __attribute__((format (printf, 1, 2))); -#endif -#ifndef PerlIO_puts -extern int PerlIO_puts _((PerlIO *,const char *)); -#endif -#ifndef PerlIO_open -extern PerlIO * PerlIO_open _((const char *,const char *)); -#endif -#ifndef PerlIO_close -extern int PerlIO_close _((PerlIO *)); -#endif -#ifndef PerlIO_eof -extern int PerlIO_eof _((PerlIO *)); -#endif -#ifndef PerlIO_error -extern int PerlIO_error _((PerlIO *)); -#endif -#ifndef PerlIO_clearerr -extern void PerlIO_clearerr _((PerlIO *)); -#endif -#ifndef PerlIO_getc -extern int PerlIO_getc _((PerlIO *)); -#endif -#ifndef PerlIO_putc -extern int PerlIO_putc _((PerlIO *,int)); -#endif -#ifndef PerlIO_flush -extern int PerlIO_flush _((PerlIO *)); -#endif -#ifndef PerlIO_ungetc -extern int PerlIO_ungetc _((PerlIO *,int)); -#endif -#ifndef PerlIO_fileno -extern int PerlIO_fileno _((PerlIO *)); -#endif -#ifndef PerlIO_fdopen -extern PerlIO * PerlIO_fdopen _((int, const char *)); -#endif -#ifndef PerlIO_importFILE -extern PerlIO * PerlIO_importFILE _((FILE *,int)); -#endif -#ifndef PerlIO_exportFILE -extern FILE * PerlIO_exportFILE _((PerlIO *,int)); -#endif -#ifndef PerlIO_findFILE -extern FILE * PerlIO_findFILE _((PerlIO *)); -#endif -#ifndef PerlIO_releaseFILE -extern void PerlIO_releaseFILE _((PerlIO *,FILE *)); -#endif -#ifndef PerlIO_read -extern SSize_t PerlIO_read _((PerlIO *,void *,Size_t)); -#endif -#ifndef PerlIO_write -extern SSize_t PerlIO_write _((PerlIO *,const void *,Size_t)); -#endif -#ifndef PerlIO_setlinebuf -extern void PerlIO_setlinebuf _((PerlIO *)); -#endif -#ifndef PerlIO_printf -extern int PerlIO_printf _((PerlIO *, const char *,...)) - __attribute__((format (printf, 2, 3))); -#endif -#ifndef PerlIO_sprintf -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)); -#endif -#ifndef PerlIO_tell -extern long PerlIO_tell _((PerlIO *)); -#endif -#ifndef PerlIO_seek -extern int PerlIO_seek _((PerlIO *,off_t,int)); -#endif -#ifndef PerlIO_rewind -extern void PerlIO_rewind _((PerlIO *)); -#endif -#ifndef PerlIO_has_base -extern int PerlIO_has_base _((PerlIO *)); -#endif -#ifndef PerlIO_has_cntptr -extern int PerlIO_has_cntptr _((PerlIO *)); -#endif -#ifndef PerlIO_fast_gets -extern int PerlIO_fast_gets _((PerlIO *)); -#endif -#ifndef PerlIO_canset_cnt -extern int PerlIO_canset_cnt _((PerlIO *)); -#endif -#ifndef PerlIO_get_ptr -extern STDCHAR * PerlIO_get_ptr _((PerlIO *)); -#endif -#ifndef PerlIO_get_cnt -extern int PerlIO_get_cnt _((PerlIO *)); -#endif -#ifndef PerlIO_set_cnt -extern void PerlIO_set_cnt _((PerlIO *,int)); -#endif -#ifndef PerlIO_set_ptrcnt -extern void PerlIO_set_ptrcnt _((PerlIO *,STDCHAR *,int)); -#endif -#ifndef PerlIO_get_base -extern STDCHAR * PerlIO_get_base _((PerlIO *)); -#endif -#ifndef PerlIO_get_bufsiz -extern int PerlIO_get_bufsiz _((PerlIO *)); -#endif -#ifndef PerlIO_tmpfile -extern PerlIO * PerlIO_tmpfile _((void)); -#endif -#ifndef PerlIO_stdin -extern PerlIO * PerlIO_stdin _((void)); -#endif -#ifndef PerlIO_stdout -extern PerlIO * PerlIO_stdout _((void)); -#endif -#ifndef PerlIO_stderr -extern PerlIO * PerlIO_stderr _((void)); -#endif -#ifndef PerlIO_getpos -extern int PerlIO_getpos _((PerlIO *,Fpos_t *)); -#endif -#ifndef PerlIO_setpos -extern int PerlIO_setpos _((PerlIO *,const Fpos_t *)); -#endif -#endif /* Include guard */ +#include "iperlsys.h"