Mercurial > projects > ldc
view tango/example/external/GlueFlectioned.d @ 228:52d1e9d27dc6 trunk
[svn r244] added another asm test.
author | lindquist |
---|---|
date | Sat, 07 Jun 2008 19:20:15 +0200 |
parents | 1700239cab2e |
children |
line wrap: on
line source
import tango.core.Exception; import cn.kuehne.flectioned; TracedExceptionInfo traceHandler( void* ptr = null ) { class FlectionedTrace : TracedExceptionInfo { this( void* ptr = null ) { if( ptr ) m_trace = Trace.getTrace( cast(size_t) ptr ); else m_trace = Trace.getTrace(); } int opApply( int delegate( inout char[] ) dg ) { int ret = 0; foreach( t; m_trace ) { char[] buf = t.toString; ret = dg( buf ); if( ret != 0 ) break; } return ret; } private: Trace[] m_trace; } return new FlectionedTrace( ptr ); } static this() { setTraceHandler( &traceHandler ); }