70e112a311
fix recordifnot if it is not the first time we see the term (already in stack). more windows fixes and updates. git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1107 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
120 lines
2.8 KiB
C
120 lines
2.8 KiB
C
/*************************************************************************
|
|
* *
|
|
* YAP Prolog *
|
|
* *
|
|
* Yap Prolog was developed at NCCUP - Universidade do Porto *
|
|
* *
|
|
* Copyright L.Damas, V.S.Costa and Universidade do Porto 1985-1997 *
|
|
* *
|
|
**************************************************************************
|
|
* *
|
|
* File: iopreds.c *
|
|
* Last rev: 5/2/88 *
|
|
* mods: *
|
|
* comments: Input/Output C implemented predicates *
|
|
* *
|
|
*************************************************************************/
|
|
#ifdef SCCS
|
|
static char SccsId[] = "%W% %G%";
|
|
#endif
|
|
|
|
/*
|
|
* This file defines main data-structure for stream management,
|
|
*
|
|
*/
|
|
|
|
#if HAVE_LIBREADLINE
|
|
|
|
#if _MSC_VER || defined(__MINGW32__)
|
|
FILE *rl_instream, *rl_outstream;
|
|
#endif
|
|
|
|
#endif
|
|
|
|
typedef struct stream_desc
|
|
{
|
|
union {
|
|
struct {
|
|
Atom name;
|
|
Term user_name;
|
|
#if defined(__MINGW32__) || _MSC_VER
|
|
#define PLGETC_BUF_SIZE 4096
|
|
char *buf, *ptr;
|
|
int left;
|
|
#endif
|
|
YP_File file;
|
|
} file;
|
|
struct {
|
|
char *buf; /* where the file is being read from/written to */
|
|
Int max_size; /* maximum buffer size (may be changed dynamically) */
|
|
Int pos;
|
|
void *error_handler;
|
|
} mem_string;
|
|
struct {
|
|
#if defined(__MINGW32__) || _MSC_VER
|
|
HANDLE hdl;
|
|
#else
|
|
int fd;
|
|
#endif
|
|
} pipe;
|
|
#if USE_SOCKET
|
|
struct {
|
|
socket_domain domain;
|
|
socket_info flags;
|
|
int fd;
|
|
} socket;
|
|
#endif
|
|
} u;
|
|
int (* stream_putc)(int, int); /* function the stream uses for writing */
|
|
int (* stream_getc)(int); /* function the stream uses for reading */
|
|
/* function the stream uses for parser. It may be different if the ISO
|
|
character conversion is on */
|
|
int (* stream_getc_for_read)(int);
|
|
Int charcount, linecount, linepos;
|
|
Int status;
|
|
Int och;
|
|
}
|
|
StreamDesc;
|
|
|
|
#define YAP_ERROR NIL
|
|
|
|
#define MaxStreams 32
|
|
|
|
#define Free_Stream_f 0x000001
|
|
#define Output_Stream_f 0x000002
|
|
#define Input_Stream_f 0x000004
|
|
#define Append_Stream_f 0x000008
|
|
#define Eof_Stream_f 0x000010
|
|
#define Null_Stream_f 0x000020
|
|
#define Tty_Stream_f 0x000040
|
|
#define Socket_Stream_f 0x000080
|
|
#define Binary_Stream_f 0x000100
|
|
#define Eof_Error_Stream_f 0x000200
|
|
#define Reset_Eof_Stream_f 0x000400
|
|
#define Past_Eof_Stream_f 0x000800
|
|
#define Push_Eof_Stream_f 0x001000
|
|
#define Seekable_Stream_f 0x002000
|
|
#define Promptable_Stream_f 0x004000
|
|
#if USE_SOCKET
|
|
#define Client_Socket_Stream_f 0x008000
|
|
#define Server_Socket_Stream_f 0x010000
|
|
#endif
|
|
#define InMemory_Stream_f 0x020000
|
|
#define Pipe_Stream_f 0x040000
|
|
#define Popen_Stream_f 0x080000
|
|
|
|
#define StdInStream 0
|
|
#define StdOutStream 1
|
|
#define StdErrStream 2
|
|
|
|
#define ALIASES_BLOCK_SIZE 8
|
|
|
|
void STD_PROTO (Yap_InitStdStreams, (void));
|
|
|
|
EXTERN inline int
|
|
GetCurInpPos (int inp_stream)
|
|
{
|
|
return (Stream[inp_stream].linecount);
|
|
}
|
|
|