/**
* WalkFileList callback, the module pass.
*
* @returns WR_CONTINUE
* @param cue The file.
* @param ignored Unused user argument.
*/
static walk_result File2Callback( cue_handle *cue, void *ignored )
{
address prev_addr = {0};
long prev_line = -1;
cue_handle *next_cue = alloca( DIPHandleSize( HK_CUE, false ) );
cue_handle *prev_cue = NULL;
cue_handle *cue2 = alloca( DIPHandleSize( HK_CUE, false ) );
mod_handle mod = CueMod( cue );
cue_fileid file_id = CueFileId( cue );
search_result search_rc;
char buff[1024];
size_t len;
dip_status rc;
/* filename */
buff[0] = '\0';
len = CueFile( cue, buff, sizeof( buff ) );
if( len > 0 ) {
printf( " %lx %s\n", file_id, buff );
} else {
printf( " %lx (len=%u)\n", file_id, len );
}
/* check the LineCue function */
if( Opts.do_cue_tests ) {
search_rc = LineCue( mod, file_id, 0, 0, cue2 );
CompareCues( cue, cue2, SR_EXACT, search_rc, true, false, true, false,
"LineCue(,,0,)" );
}
/* lines */
do {
long line = CueLine( cue );
unsigned column = CueColumn( cue );
address addr = CueAddr( cue );
printf( " Line %5ld ", line );
if( column ) {
printf( "Col %2d ", column );
}
printf( "at %04x:%08lx%s\n", addr.mach.segment, (long)addr.mach.offset,
prev_line >= 0 && addr.mach.offset < prev_addr.mach.offset
? "^"
: prev_line >= 0 && line < prev_line ? "!" : "" );
/* do tests */
if( Opts.do_cue_tests ) {
if( CueFileId( cue ) != file_id ) {
printf( "ERROR: file id changed! new:%#lx old:%#lx\n",
(long)CueFileId( cue ), (long)file_id );
}
if( CueMod( cue ) != mod ) {
printf( "ERROR: module changed! new:%#lx old:%#lx\n",
(long)CueMod( cue ), (long)file_id );
}
/* line searches */
search_rc = LineCue( mod, file_id, line, 0, cue2 );
CompareCues( cue, cue2, SR_EXACT, search_rc, true, false, false, false,
"LineCue(,,n,)" );
if( line > prev_line + 1 && prev_line >= 0 ) {
search_rc = LineCue( mod, file_id, line - 1, 0, cue2 );
CompareCues( prev_cue, cue2,
prev_line == line - 1 ? SR_EXACT : SR_CLOSEST,
search_rc, true, false, false, false,
"LineCue(,,n-1,)" );
}
/* address searches */
search_rc = AddrCue( mod, addr, cue2 );
CompareCues( cue, cue2, SR_EXACT, search_rc, false, false, true, false,
"AddrCue(,,n,)" );
}
/* next */
rc = CueAdjust( cue, 1, next_cue );
prev_cue = cue;
cue = next_cue;
next_cue = prev_cue;
prev_addr = addr;
prev_line = line;
} while( rc == DS_OK );
return( WR_CONTINUE );
}
static bool FileGetLine( a_window *wnd, int row, int piece,
wnd_line_piece *line )
{
int len;
file_window *file = WndFile( wnd );
address addr;
brkp *bp;
bool curr;
DIPHDL( cue, ch );
line->text = LIT_ENG( Empty );
if( file->viewhndl == NULL && ModHasInfo( file->mod, HK_CUE ) != DS_OK ) {
return( false );
}
curr = ( row == file->active && ContextMod == file->mod );
switch( piece ) {
case PIECE_BREAK:
line->tabstop = false;
if( row >= file->eof )
return( false );
if( file->mod == NO_MOD )
return( true );
addr = NilAddr;
if( !WndDoingSearch ) { // too expensive
addr = GetRowAddr( file, row, true );
}
if( !IS_NIL_ADDR( addr ) ) {
bp = FindBreakByLine( file->mod, file->file_id, row+1 );
FileBreakGadget( wnd, line, curr, bp );
}
return( true );
case PIECE_SOURCE:
line->text = TxtBuff;
line->extent = WND_MAX_EXTEND;
if( curr )
line->attr = WND_STANDOUT;
if( file->mod != NO_MOD ) {
line->indent = MaxGadgetLength;
}
if( file->viewhndl == NULL ) {
Format( TxtBuff, LIT_DUI( No_Source_Line ), row+1 );
if( LineCue( file->mod, file->file_id, 0, 0, ch ) != SR_NONE ) {
if( (CueAdjust( ch, -1, ch ) & DS_ERR) ) {
file->eof = CueLine( ch );
}
}
return( true );
}
len = FReadLine( file->viewhndl, row+1, 0, TxtBuff, MAX_LINE_LEN );
if( len < 0 ) {
file->eof = row;
return( false );
}
if( len == MAX_LINE_LEN ) {
StrCopy( " ...", TxtBuff + MAX_LINE_LEN );
} else {
TxtBuff[len] = NULLCHAR;
}
if( row >= file->rows ) {
file->rows = row + 1;
file->rows_offset = FLastOffset( file->viewhndl );
}
return( true );
default:
return( false );
}
}
