diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-10-29 11:18:16 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-10-29 11:18:16 +0000 |
| commit | 6f9d8c32c6a78a47c6088f50d7051d779f712ee1 (patch) | |
| tree | 5dcf021c29b01b6996892d24a8a5cc0e8c595ee6 /iperlsys.h | |
| parent | ae560e6d475e012762a5477b9309e14130cb98b9 (diff) | |
| download | perl-6f9d8c32c6a78a47c6088f50d7051d779f712ee1.tar.gz | |
Prototype (stdio-like) PerlIO passing basic tests. Checked in
in case of accidents. Still several worrying fails, no line disciplines yet.
p4raw-id: //depot/perlio@7479
Diffstat (limited to 'iperlsys.h')
| -rw-r--r-- | iperlsys.h | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/iperlsys.h b/iperlsys.h index 59da4748cb..9357e0e2d6 100644 --- a/iperlsys.h +++ b/iperlsys.h @@ -120,7 +120,7 @@ typedef void (*LPSetCnt)(struct IPerlStdIO*, PerlIO*, int); typedef void (*LPSetPtrCnt)(struct IPerlStdIO*, PerlIO*, char*, int); typedef void (*LPSetlinebuf)(struct IPerlStdIO*, PerlIO*); -typedef int (*LPPrintf)(struct IPerlStdIO*, PerlIO*, const char*, +typedef int (*LPPrintf)(struct IPerlStdIO*, PerlIO*, const char*, ...); typedef int (*LPVprintf)(struct IPerlStdIO*, PerlIO*, const char*, va_list); @@ -185,14 +185,14 @@ struct IPerlStdIOInfo }; #ifdef USE_STDIO_PTR -# define PerlIO_has_cntptr(f) 1 +# define PerlIO_has_cntptr(f) 1 # ifdef STDIO_CNT_LVALUE -# define PerlIO_canset_cnt(f) 1 +# define PerlIO_canset_cnt(f) 1 # ifdef STDIO_PTR_LVALUE -# define PerlIO_fast_gets(f) 1 +# define PerlIO_fast_gets(f) 1 # endif # else -# define PerlIO_canset_cnt(f) 0 +# define PerlIO_canset_cnt(f) 0 # endif #else /* USE_STDIO_PTR */ # define PerlIO_has_cntptr(f) 0 @@ -200,7 +200,7 @@ struct IPerlStdIOInfo #endif /* USE_STDIO_PTR */ #ifndef PerlIO_fast_gets -#define PerlIO_fast_gets(f) 0 +#define PerlIO_fast_gets(f) 0 #endif #ifdef FILE_base @@ -268,7 +268,7 @@ struct IPerlStdIOInfo #define PerlIO_printf Perl_fprintf_nocontext #define PerlIO_stdoutf *PL_StdIO->pPrintf #define PerlIO_vprintf(f,fmt,a) \ - (*PL_StdIO->pVprintf)(PL_StdIO, (f),(fmt),a) + (*PL_StdIO->pVprintf)(PL_StdIO, (f),(fmt),a) #define PerlIO_tell(f) \ (*PL_StdIO->pTell)(PL_StdIO, (f)) #define PerlIO_seek(f,o,w) \ @@ -325,8 +325,8 @@ struct IPerlStdIOInfo #endif #ifndef PerlIO -struct _PerlIO; -#define PerlIO struct _PerlIO +typedef struct _PerlIO PerlIO; +#define PerlIO PerlIO #endif /* No PerlIO */ #ifndef Fpos_t @@ -552,7 +552,7 @@ struct IPerlDirInfo #define PerlDir_mkdir(name, mode) Mkdir((name), (mode)) #ifdef VMS # define PerlDir_chdir(n) Chdir(((n) && *(n)) ? (n) : "SYS$LOGIN") -#else +#else # define PerlDir_chdir(name) chdir((name)) #endif #define PerlDir_rmdir(name) rmdir((name)) @@ -1256,7 +1256,7 @@ typedef int (*LPRecvfrom)(struct IPerlSock*, SOCKET, char*, int, typedef int (*LPSelect)(struct IPerlSock*, int, char*, char*, char*, const struct timeval*); typedef int (*LPSend)(struct IPerlSock*, SOCKET, const char*, int, - int); + int); typedef int (*LPSendto)(struct IPerlSock*, SOCKET, const char*, int, int, const struct sockaddr*, int); typedef void (*LPSethostent)(struct IPerlSock*, int); |