void SourceSet( void )
{
char_ring **owner;
char *start;
unsigned len;
if( CurrToken == T_DIV ) {
Scan();
if( ScanCmd( AddTab ) == 0 ) {
Error( ERR_LOC, LIT( ERR_BAD_SUBCOMMAND ), GetCmdName( CMD_SET ) );
}
owner = RingEnd( &SrcSpec );
} else {
owner = &SrcSpec;
FiniSource();
}
while( ScanItem( TRUE, &start, &len ) ) {
while( len > 0 && *start == ' ' ) {
++start;
--len;
}
InsertRing( owner, start, len );
}
DbgUpdate( UP_NEW_SRC );
}
void DebugFini( void )
{
PointFini();
#if !( defined( __GUI__ ) && defined( __OS2__ ) )
ReleaseProgOvlay( TRUE ); // see dlgfile.c
#endif
VarDisplayFini();
FiniHook();
FiniCmd();
LogFini();
while( !PurgeInpStack() ) {
ClearInpStack( INP_STOP_PURGE );
}
LangSetFini();
SupportFini();
FiniTrap();
RecordFini();
FiniMachState();
FiniDbgInfo();
FiniScan();
FiniLook();
FiniDLLList();
FiniSource();
FiniCall();
PathFini();
DUIFini();
SymCompFini();
FiniMADInfo();
FiniTrace();
RestoreHandlers();
_Free( TrapParms );
FiniLiterals();
FiniLocalInfo();
}