Cyclone Scheme  0.9
#define make_input_port (   p,
  f,
  rl 
)
Value:
p.hdr.grayed = 0; \
p.tag = port_tag; \
p.fp = f; \
p.mode = 1; \
p.flags = 1; \
p.line_num = 1; \
p.col_num = 1; \
p.buf_idx = 0; \
p.tok_start = 0; \
p.tok_end = 0; \
p.tok_buf = malloc(CYC_IO_BUF_LEN); \
p.tok_buf_len = CYC_IO_BUF_LEN; \
p.mem_buf = malloc(CYC_IO_BUF_LEN); \
p.mem_buf_len = 0; \
p.str_bv_in_mem_buf = NULL; \
p.str_bv_in_mem_buf_len = 0; \
p.read_len = rl;
The port object type.
Definition: types.h:961
#define CYC_IO_BUF_LEN
Definition: types.h:982
#define gc_color_red
Definition: types.h:265
Definition: types.h:54
unsigned char mark
Definition: types.h:240
gc_header_type hdr
Definition: types.h:962