extern void AsmMoveDot( a_window *wnd, address addr )
{
int row;
asm_window *asw;
DIPHDL( cue, ch1 );
DIPHDL( cue, ch2 );
if( wnd == NULL ) return;
asw = WndAsm( wnd );
if( DeAliasAddrCue( asw->mod, addr, ch1 ) != SR_NONE &&
DeAliasAddrCue( asw->mod, asw->dotaddr, ch2 ) != SR_NONE ) {
if( CueMod( ch1 ) == CueMod( ch2 ) &&
CueFileId( ch1 ) == CueFileId( ch2 ) &&
CueLine( ch1 ) == CueLine( ch2 ) ) {
return;
}
}
WndNoSelect( wnd );
row = AsmAddrRow( wnd, addr );
if( row == WndRows( wnd ) ) {
AsmSetFirst( wnd, addr, TRUE );
row = AsmAddrRow( wnd, addr );
WndDirtyCurr( wnd );
WndNewCurrent( wnd, row, PIECE_CURRENT );
WndRepaint( wnd );
row = 0;
} else {
WndDirtyCurr( wnd );
WndNewCurrent( wnd, row, PIECE_CURRENT );
}
AsmSetDotAddr( wnd, addr );
}
STATIC void setDisplay( a_window * wnd, sio_data * curr_sio, bool do_top )
/************************************************************************/
{
curr_sio->curr_proc_row = -WND_MAX_ROW;
curr_sio->curr_display_row = -WND_MAX_ROW;
if( do_top ) {
WndSetTop( wnd, 0 );
WndNewCurrent( wnd, 0, PIECE_DETAIL_NAME );
}
WndDirty( wnd );
}
static void ModModify( a_window *wnd, int row, int piece )
{
if( piece == PIECE_SOURCE ) {
if( ModHasSourceInfo( ModListMod( ModList( WndMod( wnd ) ), row ) ) ) {
ModMenuItem( wnd, MENU_MODULES_SOURCE, row, piece );
} else {
ModMenuItem( wnd, MENU_MODULES_ASSEMBLY, row, piece );
}
WndDirtyCurr( wnd );
WndNewCurrent( wnd, row, PIECE_TABSTOP );
} else {
WndFirstMenuItem( wnd, row, piece );
}
}
STATIC void sampleOpenMainImage( void )
/*************************************/
{
image_info *curr_image;
int count;
gatherSort( CurrSIOData );
count = CurrSIOData->image_count;
while( count-- > 0 ) {
curr_image = CurrSIOData->images[count];
if( curr_image->main_load ) {
if( curr_image->dip_handle != NO_MOD && curr_image->mod_count > 2 ) {
CurrSIOData->curr_image = curr_image;
CurrSIOData->level_open = LEVEL_IMAGE;
gatherSort( CurrSIOData );
}
break;
}
}
WndNewCurrent( CurrSIOData->sample_window, 0, PIECE_DETAIL_NAME );
WndDirty( CurrSIOData->sample_window );
}
static void GotoLine( a_window *wnd )
{
long line;
mad_radix old_radix;
wnd_row curr_row;
int curr_piece;
old_radix = NewCurrRadix( 10 );
WndGetCurrent( wnd, &curr_row, &curr_piece );
if( curr_row < 0 || curr_row == WND_NO_ROW ) {
line = WndTop( wnd );
} else {
line = curr_row;
}
++line;
if( DlgLongExpr( LIT_DUI( New_Line ), &line ) ) {
--line;
WndDirtyCurr( wnd );
Centre( wnd, line );
WndNewCurrent( wnd, line, PIECE_SOURCE );
}
NewCurrRadix( old_radix );
}
static void GotoLine( a_window *wnd )
{
long line;
unsigned old;
wnd_row row;
int piece;
old = NewCurrRadix( 10 );
WndGetCurrent( wnd, &row, &piece );
if( row < 0 || row == WND_NO_ROW ) {
line = WndTop( wnd );
} else {
line = row;
}
++line;
if( DlgLongExpr( LIT( New_Line ), &line ) ) {
--line;
WndDirtyCurr( wnd );
Centre( wnd, line );
WndNewCurrent( wnd, line, PIECE_SOURCE );
}
NewCurrRadix( old );
}
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();
}
static void WPZoomIn( a_window *wnd, int row )
/********************************************/
{
sio_data *curr_sio;
int detail_rows;
int top_line;
int old_level;
int curr_line;
bool multi_level;
curr_sio = WndExtra( wnd );
if( row >= curr_sio->level_open && row < STATUS_ROW ) {
Ring();
return;
}
if( row < curr_sio->level_open ) {
curr_sio->level_open = row;
WndSetTop( wnd, 0 );
gatherSort( curr_sio );
if( curr_sio->level_open == LEVEL_ROUTINE ) {
curr_line = srtnOpenDetail( curr_sio, false );
} else {
curr_line = WPGetRow( curr_sio );
}
} else {
row = row - STATUS_ROW - 1;
curr_line = row;
detail_rows = SampleNumRows( wnd );
if( detail_rows < row+1 ) {
Ring();
return;
}
multi_level = false;
for( ;; ) {
old_level = curr_sio->level_open;
curr_line = overviewDetailRtns[curr_sio->level_open](
wnd, row, multi_level );
if( old_level == curr_sio->level_open ) break;
detail_rows = SampleNumRows( wnd );
if( detail_rows != 1 ) break;
row = 0;
multi_level = true;
}
}
curr_sio->curr_proc_row = -WND_MAX_ROW;
curr_sio->curr_display_row = -WND_MAX_ROW;
detail_rows = SampleNumRows( wnd );
top_line = WndTop( wnd );
row = curr_line - top_line;
if( row >= WndRows( wnd ) ) {
top_line = curr_line - WndRows( wnd ) / 2;
}
if( row < 0 ) {
top_line = curr_line;
}
if( detail_rows-top_line < WndRows( wnd ) ) {
top_line = detail_rows - WndRows( wnd );
if( top_line < 0 ) {
top_line = 0;
}
}
WndSetTop( wnd, top_line );
WndNewCurrent( wnd, curr_line, PIECE_DETAIL_NAME );
WndDirty( wnd );
if( curr_sio->level_open < LEVEL_SOURCE
&& curr_sio->asm_file != NULL ) {
WPAsmClose( curr_sio->asm_file );
curr_sio->asm_file = NULL;
}
if( curr_sio->level_open < LEVEL_ROUTINE
&& curr_sio->src_file != NULL ) {
WPSourceClose( curr_sio->src_file );
curr_sio->src_file = NULL;
}
}
static void FileTrack( a_window *wnd, cue_handle *ch )
{
unsigned active, old_active;
unsigned end_line;
int slack;
file_window *file = WndFile( wnd );
mod_handle mod;
cue_fileid id;
wnd_row curr_row;
int curr_piece;
if( ch == NULL ) {
mod = NO_MOD;
id = 0;
} else {
mod = CueMod( ch );
id = CueFileId( ch );
}
if( file->viewhndl == NULL
|| file->mod != mod
|| file->file_id != id ) {
if( file->viewhndl != NULL ) {
FDoneSource( file->viewhndl );
}
file->mod = mod;
file->file_id = id;
FileSetDotAddr( wnd, GetCodeDot() );
if( file->mod == NO_MOD ) {
file->viewhndl = NULL;
} else {
file->viewhndl = OpenSrcFile( ch );
}
FileSetTitle( wnd, mod );
SeekToTheEnd( file );
file->eof = UINT_MAX;
WndZapped( wnd );
FilePosInit( wnd );
file->active = NOT_ACTIVE;
FilePos( wnd, 0 );
DbgUpdate( UP_OPEN_CHANGE );
}
active = ActiveLine();
if( active != file->active ) {
FileSetDotAddr( wnd, GetCodeDot() );
WndGetCurrent( wnd, &curr_row, &curr_piece );
WndNoCurrent( wnd );
if( curr_row != WND_NO_ROW ) {
WndRowDirty( wnd, curr_row );
}
}
old_active = file->active;
file->active = NOT_ACTIVE;
slack = WndRows( wnd ) / 4;
if( slack > 2 )
slack = 2;
end_line = WndTop( wnd ) + WndRows( wnd ) - 1;
if( old_active == NOT_ACTIVE || active > end_line ) {
WndZapped( wnd );
WndScroll( wnd, active - slack - WndTop( wnd ) );
} else if( active > end_line - slack ) {
WndRowDirtyImmed( wnd, old_active );
WndScroll( wnd, WndRows( wnd ) - 2 * slack );
} else if( active < WndTop( wnd ) ) {
WndRowDirtyImmed( wnd, old_active );
WndScroll( wnd, active - WndTop( wnd ) - slack );
} else {
WndRowDirty( wnd, old_active );
}
WndNewCurrent( wnd, active, PIECE_SOURCE );
WndRowDirty( wnd, active );
file->active = active;
}
