public static bgl_time ( procedure p ) : Object | ||
p | procedure | |
return | Object |
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;
}