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; }