- design improvements in scriptcontext (sct send) and ascon (AsconBaseHandler)

- bug fixes
This commit is contained in:
zolliker
2009-03-03 14:07:43 +00:00
parent 0dc196becb
commit 2e060ccf73
8 changed files with 292 additions and 172 deletions

View File

@ -233,15 +233,13 @@ int exeBufProcess(pExeBuf self, SicsInterp * pSics,
SCPrintf(pCon, eLogError, "ERROR: Tcl reported: %s",
pTcl->result);
}
SCWrite(pCon, "ERROR: Tcl error in block:", eLogError);
SCWrite(pCon, GetCharArray(command), eError);
SCWrite(pCon, "ERROR: end of Tcl error block", eLogError);
} else {
if(strstr(pTcl->result, "ERROR") != NULL){
SCPrintf(pCon,eError,"%s occurred in %s", pTcl->result, cmd );
}
SCWrite(pCon, pTcl->result, eError);
pCon->sicsError = 0;
}
SCWrite(pCon, "ERROR: above error was in block:", eError);
SCWrite(pCon, cmd, eError);
SCWrite(pCon, "ERROR: end of Tcl error block", eError);
}
DeleteDynString(command);
if (SCGetInterrupt(pCon) >= eAbortBatch) {