public static Object BGL_ENV_SET_TRACE_LOCATION( bgldynamic env, Object o )
{
stack_trace.set_trace_location(o);
return unspecified._unspecified;
}
public static Object BGL_ENV_SET_TRACE_NAME( bgldynamic env, Object o )
{
stack_trace.set_trace(o);
return unspecified._unspecified;
}
public static Object BGL_ENV_POP_TRACE( bgldynamic env )
{
return stack_trace.pop_trace();
}
public static Object BGL_ENV_PUSH_TRACE( bgldynamic env, Object o, Object l )
{
new stack_trace( o, l );
return unspecified._unspecified;
}
public static Object BGL_ENV_BYTECODE(bgldynamic env)
{
return env.bytecode;
}
public static Object BGL_ENV_BYTECODE_SET(bgldynamic env, Object al)
{
env.bytecode = al;
return BUNSPEC;
}
public static void setCurrentInputPort( bgldynamic env, input_port o )
{
env.current_input_port= o;
}
public static void setCurrentOutputPort( bgldynamic env, output_port o )
{
env.current_output_port = o;
}
public static void setCurrentErrorPort( bgldynamic env, output_port o )
{
env.current_error_port = o;
}
//////
// OUTPUT
//////
public static output_port getCurrentOutputPort( bgldynamic env )
{
return env.current_output_port;
}
public static input_port getCurrentInputPort( bgldynamic env )
{
return env.current_input_port;
}
public static output_port getCurrentErrorPort( bgldynamic env )
{
return env.current_error_port;
}
// constructor
public bgldynamic( bgldynamic o )
{
exitd_top= new exit();
exitd_val = new pair( new pair(unspecified._unspecified,
unspecified._unspecified),
unspecified._unspecified );
error_handler= nil._nil;
mvalues_number= 1;
current_input_port= o.current_input_port;
current_output_port= o.current_output_port;
current_error_port= o.current_error_port;
thread_backend = o.thread_backend;
current_thread = o.current_thread;
module = o.module;
abase = o.abase;
}
