- Added bridge functions to histmemsec to make it look more like histmem
- Modifed many modules using histmem to work also with histmemsec - Extended tasker with task names and task groups - There is a new taskobj which allows to list tasks and to interact with them. - Task now supports running Tcl functions as tasks - There is a new experimental sctcomtask module which allows to define communication tasks against a scriptcontext. This is a new feature which should facilitate writing sequential scripts using asynchronous communication. - A fix to make spss7 work when there are no switches - ORION support for single X. TRICS measures crystals hanging down, ORION standing up SKIPPED: psi/ease.c psi/faverage.c psi/jvlprot.c psi/make_gen psi/pardef.c psi/polterwrite.c psi/psi.c psi/sinq.c psi/spss7.c
This commit is contained in:
13
sicsdata.c
13
sicsdata.c
@ -11,6 +11,8 @@
|
||||
Mark Koennecke, June 2003
|
||||
|
||||
added addto. Mark Koennecke, August 2009
|
||||
|
||||
Make Hipadaba compatible, Mark Koennecke, November 2012
|
||||
----------------------------------------------------------------------*/
|
||||
#include <stdio.h>
|
||||
#include <assert.h>
|
||||
@ -47,7 +49,7 @@ static void KillSICSData(void *pData)
|
||||
}
|
||||
|
||||
/*---------------------------------------------------------------------*/
|
||||
pSICSData createSICSData(void)
|
||||
pSICSData createSICSData(char *name)
|
||||
{
|
||||
pSICSData pNew = NULL;
|
||||
|
||||
@ -63,6 +65,13 @@ pSICSData createSICSData(void)
|
||||
KillSICSData(pNew);
|
||||
return NULL;
|
||||
}
|
||||
/* pNew->pDes->parNode = MakeHipadabaNode(name,HIPINTVARAR, 1); */
|
||||
/* if(pNew->pDes->parNode == NULL){ */
|
||||
/* KillSICSData(pNew); */
|
||||
/* return NULL; */
|
||||
/* } */
|
||||
/* pNew->pDes->parNode->value.doNotFree = 1; */
|
||||
/* pNew->pDes->parNode->value.v.intArray = pNew->data; */
|
||||
memset(pNew->data, 0, 1024 * sizeof(int));
|
||||
memset(pNew->dataType, 0, 1024 * sizeof(char));
|
||||
pNew->currentDataSize = 1024;
|
||||
@ -1115,7 +1124,7 @@ int SICSDataFactory(SConnection * pCon, SicsInterp * pSics, void *pData,
|
||||
strtolower(argv[2]);
|
||||
|
||||
if (strcmp(argv[1], "new") == 0) {
|
||||
self = createSICSData();
|
||||
self = createSICSData(argv[2]);
|
||||
if (self == NULL) {
|
||||
SCWrite(pCon, "ERROR: not enough memory to create SICSData", eError);
|
||||
return 0;
|
||||
|
Reference in New Issue
Block a user