24 lines
515 B
C
24 lines
515 B
C
/* Buffer mode */
|
|
typedef enum { B_READ, B_WRITE, B_NONE } B_MODE;
|
|
|
|
typedef struct {
|
|
CELL header;
|
|
FIXNUM fd;
|
|
STRING* buffer;
|
|
/* partial line used by read_line_fd */
|
|
SBUF* line;
|
|
/* one of B_READ, B_WRITE or B_NONE */
|
|
B_MODE buf_mode;
|
|
/* top of buffer */
|
|
CELL buf_fill;
|
|
/* current read/write position */
|
|
CELL buf_pos;
|
|
} PORT;
|
|
|
|
PORT* untag_port(CELL tagged);
|
|
CELL port(CELL fd);
|
|
void init_buffer(PORT* port, int mode);
|
|
void primitive_portp(void);
|
|
void fixup_port(PORT* port);
|
|
void collect_port(PORT* port);
|