// The following routine is cut & pasted verbatim from dbgwvar.c
// (which we really don't want to drag in here)
var_node *VarGetDisplayPiece( var_info *i, int row, int piece, int *pdepth, int *pinherit )
{
var_node *row_v;
var_node *v;
if( piece >= VAR_PIECE_LAST ) return( NULL );
if( VarFirstNode( i ) == NULL ) return( NULL );
if( row >= VarRowTotal( i ) ) return( NULL );
row_v = VarFindRowNode( i, row );
if( !row_v->value_valid ) {
VarSetValue( row_v, LIT_ENG( Quest_Marks ) );
row_v->value_valid = false;
}
if( !row_v->gadget_valid ) {
VarSetGadget( row_v, VARGADGET_NONE );
row_v->gadget_valid = false;
}
v = row_v;
if( piece == VAR_PIECE_NAME ||
( piece == VAR_PIECE_GADGET && row_v->gadget_valid ) ||
( piece == VAR_PIECE_VALUE && row_v->value_valid ) ) {
VarError = false;
} else if( _IsOff( SW_TASK_RUNNING ) ) {
if( row == i->exprsp_cacherow && i->exprsp_cache != NULL ) {
VarError = false;
v = i->exprsp_cache;
} else if( row == i->exprsp_cacherow && i->exprsp_cache_is_error ) {
VarError = true;
v = NULL;
} else {
VarErrState();
v = VarFindRow( i, row );
VarOldErrState();
i->exprsp_cacherow = row;
i->exprsp_cache = v;
i->exprsp_cache_is_error = VarError;
}
if( v == NULL ) {
if( !VarError ) return( NULL );
v = row_v;
}
VarNodeInvalid( v );
VarErrState();
ExprValue( ExprSP );
VarSetGadget( v, VarGetGadget( v ) );
VarSetOnTop( v, VarGetOnTop( v ) );
VarSetValue( v, VarGetValue( i, v ) );
VarOldErrState();
VarDoneRow( i );
}
VarGetDepths( i, v, pdepth, pinherit );
return( v );
}
static void ExpandRowIfPossible( a_window *wnd, int row, int piece )
{
var_node *v;
type_kind class;
var_window *var = WndVar( wnd );
bool followable;
VarErrState();
VarKillExprSPCache( &var->i );
v = VarFindRow( &var->i, row );
followable = VarGetStackClass( &class );
switch( piece ) {
case VAR_PIECE_GADGET:
case VAR_PIECE_NAME:
if( VarExpandable( class ) || followable || v->expand != NULL ) {
VarExpandRowNoCollapse( &var->i, v, row );
/* We do NOT want to set current or induce a repaint yet */
/* WndNewCurrent( wnd, row, VAR_PIECE_NAME ); */
/* VarRepaint( wnd ); */
}
break;
}
VarDoneRow( &var->i );
VarOldErrState();
}
static void DumpLocals( void )
{
address addr;
int row;
int depth;
int inherit;
var_node *v;
if( !_IsOn( SW_TASK_RUNNING ) ) {
VarErrState();
VarInfoRefresh( VAR_LOCALS, &Locals, &addr, NULL );
VarOkToCache( &Locals, TRUE );
}
for( row = 0;; ++row ) {
v = VarGetDisplayPiece( &Locals, row, VAR_PIECE_GADGET, &depth, &inherit );
if( v == NULL ) break;
v = VarGetDisplayPiece( &Locals, row, VAR_PIECE_NAME, &depth, &inherit );
v = VarGetDisplayPiece( &Locals, row, VAR_PIECE_VALUE, &depth, &inherit );
switch( v->gadget ) {
case VARGADGET_NONE:
printf( " " );
break;
case VARGADGET_OPEN:
printf( "+ " );
break;
case VARGADGET_CLOSED:
printf( "- " );
break;
case VARGADGET_POINTS:
printf( "->" );
break;
case VARGADGET_UNPOINTS:
printf( "<-" );
break;
}
VarBuildName( &Locals, v, TRUE );
printf( " %-20s %s\n", TxtBuff, v->value );
}
if( !_IsOn( SW_TASK_RUNNING ) ) {
VarOkToCache( &Locals, FALSE );
VarOldErrState();
}
}
static void DumpLocals( void )
{
#if 0
address addr;
int row;
int depth;
var_node *v;
if( _IsOff( SW_TASK_RUNNING ) ) {
VarErrState();
VarInfoRefresh( VAR_LOCALS, &Locals, &addr, NULL );
VarOkToCache( &Locals, true );
}
for( row = 0; (v = VarGetDisplayPiece( &Locals, row, VAR_PIECE_GADGET, &depth )) != NULL; ++row ) {
v = VarGetDisplayPiece( &Locals, row, VAR_PIECE_NAME, &depth );
v = VarGetDisplayPiece( &Locals, row, VAR_PIECE_VALUE, &depth );
switch( v->gadget ) {
case VARGADGET_NONE:
printf( " " );
break;
case VARGADGET_OPEN:
printf( "+ " );
break;
case VARGADGET_CLOSE:
printf( "- " );
break;
case VARGADGET_POINTS:
printf( "->" );
break;
case VARGADGET_UNPOINTS:
printf( "<-" );
break;
}
VarBuildName( v, true );
printf( " %-20s %s\n", TxtBuff, v->value );
}
if( _IsOff( SW_TASK_RUNNING ) ) {
VarOkToCache( &Locals, false );
VarOldErrState();
}
#endif
}
static void VarModify( a_window *wnd, int row, int piece )
{
var_node *v;
type_kind class;
var_window *var = WndVar( wnd );
bool ok;
bool followable;
unsigned old;
if( row < 0 ) {
if( var->vtype == VAR_WATCH || var->vtype == VAR_VARIABLE ) {
VarMenuItem( wnd, MENU_VAR_NEW_EXPRESSION, row, piece );
}
return;
}
VarErrState();
VarKillExprSPCache( &var->i );
v = VarFindRow( &var->i, row );
if( v == NULL ) {
v = VarFindRowNode( &var->i, row );
if( v == NULL ) return;
if( piece != VAR_PIECE_GADGET && piece != VAR_PIECE_NAME ) return;
if( v->expand != NULL || v->node_type == NODE_INHERIT ) {
VarExpandRow( &var->i, v, row );
WndNewCurrent( wnd, row, VAR_PIECE_NAME );
VarRepaint( wnd );
}
return;
}
followable = VarGetStackClass( &class );
switch( piece ) {
case VAR_PIECE_GADGET:
case VAR_PIECE_NAME:
if( VarExpandable( class ) || followable || v->expand != NULL ) {
VarExpandRow( &var->i, v, row );
WndNewCurrent( wnd, row, VAR_PIECE_NAME );
VarRepaint( wnd );
}
break;
case VAR_PIECE_VALUE:
if( !VarExpandable( class ) ) {
char *value = DbgAlloc( TXT_LEN );
char *name = DbgAlloc( TXT_LEN );
old = VarNewCurrRadix( v );
ExprValue( ExprSP );
VarBuildName( &var->i, v, FALSE );
StrCopy( TxtBuff, name );
VarPrintText( &var->i, value, PrintValue, TXT_LEN );
VarKillExprSPCache( &var->i );
v = VarFindRow( &var->i, row );
FreezeStack();
ok = DlgAnyExpr( name, value, TXT_LEN );
UnFreezeStack( FALSE );
if( ok ) VarDoAssign( &var->i, v, value );
NewCurrRadix( old );
WndRowDirty( wnd, row );
DbgFree( value );
DbgFree( name );
}
break;
}
VarDoneRow( &var->i );
VarOldErrState();
}
