public static Object eval_funcall_0( procedure fun ) { return fun.funcall0(); }
public static Object __EVMEANING_ADDRESS_REF( procedure f ) { return f.funcall0(); }
public static Object bgl_time( procedure p ) { bgldynamic env = BGL_CURRENT_DYNAMIC_ENV(); DateTime start = DateTime.Now; TimeSpan duration; Object res; res = p.funcall0(); duration = DateTime.Now - start; env.mvalues_number = 4; env.mvalues_values[ 1 ] = BINT( duration.Milliseconds ); env.mvalues_values[ 2 ] = BINT( 0 ); env.mvalues_values[ 3 ] = BINT( 0 ); return res; }