extern void ProcCapture( void )
{
cmd_list *cmds;
const char *start;
size_t len;
const char *old;
char *p;
char *end;
if( !ScanItem( false, &start, &len ) )
Error( ERR_NONE, LIT_ENG( ERR_WANT_COMMAND_LIST ) );
ReqEOC();
cmds = AllocCmdList( start, len );
end = FileName + sizeof( FileName );
p = FileName + PREFIX_LEN;
p = CnvULongHex( TaskId, p, end - p );
*p++ = RemFile.ext_separator;
p = CnvULongDec( FileNum++, p, end - p );
*p = NULLCHAR;
old = ReScan( FileName+PREFIX_LEN );
StdOutNew();
ReScan( old );
cmds->use++;
CaptureOk = true;
PushInpStack( cmds, DoneCapture, false );
TypeInpStack( INP_CAPTURED );
FreeCmdList( cmds );
}
char *CnvAddr( address addr, cnvaddr_option cao, bool uniq,
char *p, size_t max )
{
char off_buff[40];
size_t str_width, name_width, off_width;
addr_off sym_offset;
search_result sr;
location_list ll;
DIPHDL( sym, sym );
off_width = 0;
AddrFloat( &addr );
sr = DeAliasAddrSym( NO_MOD, addr, sym );
switch( sr ) {
case SR_NONE:
return( NULL );
case SR_CLOSEST:
if( cao == CAO_NO_PLUS )
return( NULL );
DIPSymLocation( sym, NULL, &ll );
sym_offset = addr.mach.offset - ll.e[0].u.addr.mach.offset;
if( cao == CAO_NORMAL_PLUS ) {
char *prfx;
prfx = AddHexSpec( off_buff );
off_width = CnvULongHex( sym_offset, prfx, sizeof( off_buff ) - ( prfx - off_buff ) ) - off_buff + 1;
}
break;
case SR_EXACT:
break;
}
name_width = QualifiedSymName( sym, NULL, 0, uniq );
str_width = name_width + off_width;
if( max == 0 )
max = str_width;
if( str_width > max ) { /* won't fit */
if( off_width != 0 )
return( NULL );
QualifiedSymName( sym, p, max - 1, uniq );
p += max - 1;
*p++ = '>';
*p = NULLCHAR;
return( p );
}
QualifiedSymName( sym, p, name_width + 1, uniq );
p += name_width;
if( off_width != 0 ) {
--off_width;
*p++ = '+';
memcpy( p, off_buff, off_width );
p += off_width;
*p = NULLCHAR;
}
return( p );
}
static void FormThdState( thread_state *thd, char *buff )
{
char *p;
buff = CnvULongHex( thd->tid, buff );
*buff++ = ' ';
*buff++ = ' ';
switch( thd->state ) {
case THD_THAW: p = LIT( Runnable ); break;
case THD_FREEZE:p = LIT( Frozen ); break;
case THD_DEAD: p = LIT( Dead ); break;
}
p = StrCopy( p, buff );
while( (p - buff) < 10 ) *p++ = ' ';
StrCopy( thd->name, p );
}
static void FormThdState( thread_state *thd, char *buff, unsigned buff_len )
{
char *p;
char *p1;
p = CnvULongHex( thd->tid, buff, buff_len );
*p++ = ' ';
*p++ = ' ';
switch( thd->state ) {
case THD_THAW: p1 = LIT_ENG( Runnable ); break;
case THD_FREEZE:p1 = LIT_ENG( Frozen ); break;
case THD_DEAD: p1 = LIT_ENG( Dead ); break;
default: p1 = ""; break;
}
p1 = StrCopy( p1, p );
while( (p1 - p) < 10 )
*p1++ = ' ';
StrCopy( thd->name, p1 );
}
static bool TrdGetLine( a_window *wnd, int row, int piece,
wnd_line_piece *line )
{
thread_state *thd = GetThreadRow( row );
line->indent = Indents[piece] * WndAvgCharX( wnd );
if( row < 0 ) {
row += TITLE_SIZE;
switch( row ) {
case 0:
switch( piece ) {
case PIECE_ID:
line->text = LIT_DUI( ID );
return( true );
case PIECE_STATE:
line->text = LIT_DUI( State );
return( true );
case PIECE_NAME:
line->text = TxtBuff;
RemoteThdName( 0, TxtBuff ); // nyi - pui - line up in proportional font
return( true );
default:
return( false );
}
case 1:
if( piece != 0 )
return( false );
SetUnderLine( wnd, line );
return( true );
default:
return( false );
}
} else {
if( thd == NULL )
return( false );
line->tabstop = false;
line->use_prev_attr = true;
line->extent = WND_MAX_EXTEND;
switch( piece ) {
case PIECE_ID:
line->tabstop = true;
line->use_prev_attr = false;
line->text = TxtBuff;
CnvULongHex( thd->tid, TxtBuff, TXT_LEN );
return( true );
case PIECE_STATE:
if( IsThdCurr( thd ) ) {
line->text = LIT_ENG( Current );
} else {
switch( thd->state ) {
case THD_THAW:
line->text = LIT_ENG( Runnable );
break;
case THD_FREEZE:
line->text = LIT_ENG( Frozen );
break;
case THD_WAIT:
line->text = LIT_ENG( Wait );
break;
case THD_SIGNAL:
line->text = LIT_ENG( Signal );
break;
case THD_KEYBOARD:
line->text = LIT_ENG( Keyboard );
break;
case THD_BLOCKED:
line->text = LIT_ENG( Blocked );
break;
case THD_RUN:
line->text = LIT_ENG( Executing );
break;
case THD_DEBUG:
line->text = LIT_ENG( Debug );
break;
case THD_DEAD:
line->text = LIT_ENG( Dead );
break;
}
}
return( true );
case PIECE_NAME:
line->tabstop = false;
line->use_prev_attr = true;
line->text = thd->name;
return( true );
}
}
return( false );
}
static char *GetBPCmd( brkp *bp, brk_event event, char *buff, unsigned buff_len )
{
char *cmds;
char *cond;
char *p;
char *end = buff + buff_len ;
cmds = cond = LIT_ENG( Empty );
if( bp != NULL ) {
if( bp->cmds != NULL ) cmds = bp->cmds->buff;
if( bp->condition != NULL ) cond = bp->condition;
}
p = Format( buff, "%s", GetCmdName( CMD_BREAK ) );
switch( event ) {
case B_SET:
*p++ = '/';
if( IS_BP_EXECUTE( bp->th ) ) {
p = GetCmdEntry( PointNameTab, B_SET, p );
} else {
p += GetMADTypeNameForCmd( bp->th, p, end - p );
*p++ = ' ';
}
if( bp->status.b.resume ) {
*p++ = '/';
p = GetCmdEntry( PointNameTab, B_RESUME, p );
}
if( !bp->status.b.active ) {
*p++ = '/';
p = GetCmdEntry( PointNameTab, B_DEACTIVATE, p );
}
*p++ = ' ';
*p++ = '/';
p = GetCmdEntry( PointNameTab, B_INDEX, p );
p = Format( p, " %d, ", bp->index );
if( bp->loc.image_name != NULL ) {
*p++ = '/';
p = GetCmdEntry( PointNameTab, B_UNMAPPED, p );
*p++ = ' ';
*p++ = '/';
p = GetCmdEntry( PointNameTab, B_MAPADDRESS, p );
*p++ = ' ';
p = StrCopy( bp->loc.image_name, p );
*p++ = ' ';
p = AddHexSpec( p );
p = CnvULongHex( bp->loc.addr.mach.segment, p, end - p );
*p++ = ' ';
p = AddHexSpec( p );
p = CnvULongHex( bp->loc.addr.mach.offset, p, end - p );
*p++ = ',';
} else if( bp->image_name != NULL && bp->mod_name != NULL ) {
*p++ = '/';
p = GetCmdEntry( PointNameTab, B_UNMAPPED, p );
*p++ = ' ';
*p++ = '/';
p = GetCmdEntry( PointNameTab, B_SYMADDRESS, p );
*p++ = ' ';
p = StrCopy( bp->image_name, p );
*p++ = ' ';
p = StrCopy( bp->mod_name, p );
*p++ = ' ';
p = StrCopy( bp->sym_name, p );
*p++ = ' ';
p = AddHexSpec( p );
p = CnvULongHex( bp->cue_diff, p, end - p );
*p++ = ' ';
p = AddHexSpec( p );
p = CnvULongHex( bp->addr_diff, p, end - p );
*p++ = ',';
} else {
p = AddrToString( &bp->loc.addr, MAF_FULL, p, end - p );
// p = Format( p, " %A", bp->loc.addr );
}
p = Format( p, " {%s} {%s}", cmds, cond );
if( bp->initial_countdown != 0 ) {
p = StrCopy( " ", p );
p = AddHexSpec( p );
p = CnvULongHex( bp->initial_countdown, p, end - p );
}
return( p );
case B_CLEAR:
case B_ACTIVATE:
case B_DEACTIVATE:
case B_RESUME:
case B_UNRESUME:
*p++ = '/';
p = GetCmdEntry( PointNameTab, event, p );
if( bp == NULL ) {
p = StrCopy( "*", p );
} else {
p = AddrToString( &bp->loc.addr, MAF_FULL, p, end - p );
// p = Format( p, " %A", bp->loc.addr );
}
return( p );
}
return( NULL );
}
char *FmtStr( char *buff, const char *fmt, va_list args )
{
char *ptr;
unsigned len;
long val;
address addr;
char *res;
sym_handle *sym;
char save_buff[UTIL_LEN + 1];
while( *fmt != NULLCHAR ) {
if( *fmt != '%' ) {
*buff = *fmt;
++buff;
} else {
++fmt;
switch( *fmt ) {
case 'c':
val = va_arg( args, int );
*buff++ = val;
break;
case 's':
ptr = va_arg( args, char * );
buff = StrCopy( ptr, buff );
break;
case 't':
ptr = va_arg( args, char * );
len = va_arg( args, unsigned );
memcpy( buff, ptr, len );
buff += len;
break;
case 'l':
addr = va_arg( args, address );
buff = StrAddr( &addr, buff, TXT_LEN ); // nyi - overflow?
res = LineAddr( &addr, save_buff, sizeof( save_buff ) );
if( res != NULL ) {
*buff++ = '(';
buff = StrCopy( save_buff, buff );
*buff++ = ')';
}
break;
case 'A':
addr = va_arg( args, address );
buff = UniqStrAddr( &addr, buff, TXT_LEN ); // nyi - overflow?
break;
case 'a':
addr = va_arg( args, address );
buff = StrAddr( &addr, buff, TXT_LEN ); // nyi - overflow?
break;
case 'p':
addr = va_arg( args, address );
buff = AddrToIOString( &addr, buff, TXT_LEN ); // nyi - overflow?
break;
case 'e':
val = va_arg( args, unsigned );
buff = SysErrMsg( val, buff );
break;
case 'U':
buff = CnvULongDec( va_arg( args, unsigned long), buff, TXT_LEN );
break;
case 'd':
val = va_arg( args, int );
buff = CnvLongDec( val, buff, TXT_LEN );
break;
case 'u':
val = va_arg( args, unsigned );
buff = CnvULongDec( val, buff, TXT_LEN );
break;
case '%':
*buff++ = '%';
break;
case 'o':
val = va_arg( args, long );
if( val < 0 ) {
*buff++ = '-';
val = -val;
} else {
*buff++ = '+';
}
buff = AddHexSpec( buff );
buff = CnvULongHex( val, buff, TXT_LEN );
break;
case 'S':
sym = va_arg( args, sym_handle * );
buff += SymName( sym, NULL, SN_SOURCE, buff, TXT_LEN );
break;
}
}
++fmt;
}
*buff = NULLCHAR;
return( buff );
}
