Exemplo n.º 1
0
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());
}
Exemplo n.º 2
0
void text_port_open(lref_t port)
{
     SET_PORT_TEXT_INFO(port, allocate_text_info());
}