linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- First implementation of Hdbqueue

Browse Source 
- First implementation of new object model for SICS
This commit is contained in:
koennecke
2007-08-03 15:12:10 +00:00
parent 3170314457
commit 31a48d2155
21 changed files with 1035 additions and 101 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
exebuf.c
View File

@ -166,13 +166,17 @@ int exeBufProcess(pExeBuf self, SicsInterp *pSics,
self->lineno = 0;
pTcl = InterpGetTcl(pSics);
InvokeCallBack(pCall,BATCHSTART,self->name);
if(pCall != NULL){
InvokeCallBack(pCall,BATCHSTART,self->name);
}
if (echo) {
SCsetMacro(pCon,0);
}
while((command = findBlockEnd(self)) != NULL){
InvokeCallBack(pCall,BATCHAREA,NULL);
if(pCall != NULL){
InvokeCallBack(pCall,BATCHAREA,NULL);
}
cmd = GetCharArray(command);
if (echo) {
@ -223,7 +227,9 @@ int exeBufProcess(pExeBuf self, SicsInterp *pSics,
SCSetInterrupt(pCon,eContinue);
}
}
InvokeCallBack(pCall,BATCHEND,self->name);
if(pCall != NULL){
InvokeCallBack(pCall,BATCHEND,self->name);
}
return 1;
}
/*------------------------------------------------------------------------*/