/* $Id: pl-stream.h,v 1.15 1998/04/15 15:17:10 jan Exp $ Copyright (c) 1990 Jan Wielemaker. All rights reserved. See ../LICENCE to find out about your rights. jan@swi.psy.uva.nl Purpose: SWI-Prolog IO streams Last modified: Wed Apr 03 18:07:18 1996 Better Win32 synchronisation, notably S__iob[] */ #ifndef _PL_STREAM_H #define _PL_STREAM_H #include #ifdef __cplusplus extern "C" { #endif /* Get export declarations right. Also in SWI-Prolog.h, hence the check to avoid doing it twice. */ #ifndef _PL_EXPORT_DONE #define _PL_EXPORT_DONE #ifdef WIN32 #ifndef __WIN32__ #define __WIN32__ #endif #endif #if defined(__WIN32__) && !defined(__LCC__) #ifdef PL_KERNEL #define __pl_export _declspec(dllexport) #define __pl_export_data _declspec(dllexport) #define install_t void #else #define __pl_export extern #define __pl_export_data _declspec(dllimport) #define install_t _declspec(dllexport) void #endif #else /*__WIN32__*/ #define __pl_export extern #define __pl_export_data extern #define install_t void #endif /*__WIN32__*/ #endif /*_PL_EXPORT_DONE*/ #ifndef EOF #define EOF (-1) #endif #ifndef NULL #define NULL ((void *)0) #endif #define SIO_BUFSIZE (4096) /* buffering buffer-size */ #define SIO_LINESIZE (1024) /* Sgets() default buffer size */ #define SIO_MAGIC (7212676) /* magic number */ typedef int (*Sread_function)(void *handle, char *buf, int bufsize); typedef int (*Swrite_function)(void *handle, char*buf, int bufsize); typedef long (*Sseek_function)(void *handle, long pos, int whence); typedef int (*Sclose_function)(void *handle); typedef struct io_functions { Sread_function read; /* fill the buffer */ Swrite_function write; /* empty the buffer */ Sseek_function seek; /* seek to position */ Sclose_function close; /* close stream */ } IOFUNCTIONS; typedef struct io_position { long charno; /* character position in file */ int lineno; /* lineno in file */ int linepos; /* position in line */ } IOPOS; typedef struct io_stream { char *bufp; /* `here' */ char *limitp; /* read/write limit */ char *buffer; /* the buffer */ char *unbuffer; /* Sungetc buffer */ int lastc; /* last character written */ int magic; /* magic number SIO_MAGIC */ int bufsize; /* size of the buffer */ int flags; /* Status flags */ IOPOS posbuf; /* location in file */ IOPOS * position; /* pointer to above */ void *handle; /* function's handle */ IOFUNCTIONS *functions; /* open/close/read/write/seek */ int locks; /* lock/unlock count */ } IOSTREAM; #define SmakeFlag(n) (1<<(n-1)) #define SIO_FBUF SmakeFlag(1) /* full buffering */ #define SIO_LBUF SmakeFlag(2) /* line buffering */ #define SIO_NBUF SmakeFlag(3) /* no buffering */ #define SIO_FEOF SmakeFlag(4) /* end-of-file */ #define SIO_FERR SmakeFlag(5) /* error ocurred */ #define SIO_USERBUF SmakeFlag(6) /* buffer is from user */ #define SIO_INPUT SmakeFlag(7) /* input stream */ #define SIO_OUTPUT SmakeFlag(8) /* output stream */ #define SIO_NOLINENO SmakeFlag(9) /* line no. info is void */ #define SIO_NOLINEPOS SmakeFlag(10) /* line pos is void */ #define SIO_STATIC SmakeFlag(11) /* Stream in static memory */ #define SIO_RECORDPOS SmakeFlag(12) /* Maintain position */ #define SIO_FILE SmakeFlag(13) /* Stream refers to an OS file */ #define SIO_PIPE SmakeFlag(14) /* Stream refers to an OS pipe */ #define SIO_NOFEOF SmakeFlag(15) /* don't set SIO_FEOF flag */ #define SIO_TEXT SmakeFlag(16) /* text-mode operation */ #define SIO_FEOF2 SmakeFlag(17) /* attempt to read past eof */ #define SIO_FEOF2ERR SmakeFlag(18) /* Sfpasteof() */ #define SIO_NOCLOSE SmakeFlag(19) /* Do not close on abort */ #define SIO_SEEK_SET 0 /* From beginning of file. */ #define SIO_SEEK_CUR 1 /* From current position. */ #define SIO_SEEK_END 2 /* From end of file. */ __pl_export IOSTREAM *S__getiob(void); /* get DLL's S__iob[] address */ __pl_export_data IOFUNCTIONS Sfilefunctions; /* OS file functions */ __pl_export_data int Slinesize; /* Sgets() linesize */ __pl_export_data IOSTREAM S__iob[]; /* Libs standard streams */ #define Sinput (&S__iob[0]) /* Stream Sinput */ #define Soutput (&S__iob[1]) /* Stream Soutput */ #define Serror (&S__iob[2]) /* Stream Serror */ #define Sgetchar() Sgetc(Sinput) #define Sputchar(c) Sputc((c), Soutput) #define S__updatefilepos(s, c) \ ((s)->position ? S__fupdatefilepos((s)->position, (c)) \ : (c)) #define Snpgetc(s) ((s)->bufp < (s)->limitp ? (int)(*(s)->bufp++)&0xff \ : S__fillbuf(s)) #define Sgetc(s) S__updatefilepos((s), Snpgetc(s)) #if IOSTREAM_REPLACES_STDIO #undef FILE #undef stdin #undef stdout #undef stderr #undef putc #undef getc #undef putchar #undef getchar #undef feof #undef ferror #undef fileno #undef clearerr #define FILE IOSTREAM #define stdin Sinput #define stdout Soutput #define stderr Serror #define putc Sputc #define getc Sgetc #define fputc Sputc #define fgetc Sgetc #define getw Sgetw #define putw Sputw #define fread Sfread #define fwrite Sfwrite #define ungetc Sungetc #define putchar Sputchar #define getchar Sgetchar #define feof Sfeof #define ferror Sferror #define clearerr Sclearerr #define fflush Sflush #define fseek Sseek #define ftell Stell #define fclose Sclose #define fgets Sfgets #define gets Sgets #define fputs Sfputs #define puts Sputs #define fprintf Sfprintf #define printf Sprintf #define vprintf Svprintf #define vfprintf Svfprintf #define sprintf Ssprintf #define vsprintf Svsprintf #define fopen Sopen_file #define fdopen Sfdopen #define fileno Sfileno #define popen Sopen_pipe #endif /*IOSTREAM_REPLACES_STDIO*/ /******************************* * PROTOTYPES * *******************************/ __pl_export int S__fupdatefilepos(IOPOS *p, int c); __pl_export int S__fillbuf(IOSTREAM *s); __pl_export int Sputc(int c, IOSTREAM *s); __pl_export int Sfgetc(IOSTREAM *s); __pl_export int Sungetc(int c, IOSTREAM *s); __pl_export int Sputw(int w, IOSTREAM *s); __pl_export int Sgetw(IOSTREAM *s); __pl_export int Sfread(void *data, int size, int elems, IOSTREAM *s); __pl_export int Sfwrite(void *data, int size, int elems, IOSTREAM *s); __pl_export int Sfeof(IOSTREAM *s); __pl_export int Sfpasteof(IOSTREAM *s); __pl_export int Sferror(IOSTREAM *s); __pl_export void Sclearerr(IOSTREAM *s); __pl_export int Sflush(IOSTREAM *s); __pl_export long Sseek(IOSTREAM *s, long pos, int whence); __pl_export long Stell(IOSTREAM *s); __pl_export int Sclose(IOSTREAM *s); __pl_export char * Sfgets(char *buf, int n, IOSTREAM *s); __pl_export char * Sgets(char *buf); __pl_export int Sfputs(const char *q, IOSTREAM *s); __pl_export int Sputs(const char *q); __pl_export int Sfprintf(IOSTREAM *s, const char *fm, ...); __pl_export int Sprintf(const char *fm, ...); __pl_export int Svprintf(const char *fm, va_list args); __pl_export int Svfprintf(IOSTREAM *s, const char *fm, va_list args); __pl_export int Ssprintf(char *buf, const char *fm, ...); __pl_export int Svsprintf(char *buf, const char *fm, va_list args); __pl_export int Svdprintf(const char *fm, va_list args); __pl_export int Sdprintf(const char *fm, ...); __pl_export int Slock(IOSTREAM *s); __pl_export int Sunlock(IOSTREAM *s); __pl_export IOSTREAM * Snew(void *handle, int flags, IOFUNCTIONS *functions); __pl_export IOSTREAM * Sopen_file(const char *path, char *how); __pl_export IOSTREAM * Sfdopen(int fd, char *type); __pl_export int Sfileno(IOSTREAM *s); __pl_export IOSTREAM * Sopen_pipe(const char *command, const char *type); __pl_export IOSTREAM * Sopenmem(char **buffer, int *sizep, const char *mode); __pl_export IOSTREAM * Sopen_string(IOSTREAM *s, char *buf, int sz, char *m); #ifdef __cplusplus } #endif #endif /*_PL_STREAM_H*/