void init_debugger_output() { interp.debugger_output.header.type = TC_PORT; initialize_port(&interp.debugger_output, &debug_port_class, NIL, PORT_OUTPUT, NIL, NULL); SET_PORT_TEXT_INFO(&interp.debugger_output, allocate_text_info()); }
void text_port_open(lref_t port) { SET_PORT_TEXT_INFO(port, allocate_text_info()); }