86e246416b
- 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
88 lines
2.0 KiB
C
88 lines
2.0 KiB
C
/**
|
|
* This is for backgrounding operations in SICS. They run in an own
|
|
* task.
|
|
*
|
|
* copyright: see file COPYRIGHT
|
|
*
|
|
* Mark Koennecke, February 2009
|
|
*/
|
|
#include <sics.h>
|
|
#include "splitter.h"
|
|
#include "background.h"
|
|
|
|
/*---------------------------------------------------------------------------*/
|
|
typedef struct {
|
|
SConnection *con;
|
|
char *command;
|
|
} BckTask, *pBckTask;
|
|
/*---------------------------------------------------------------------------*/
|
|
static void KillBckTask(void *data)
|
|
{
|
|
pBckTask self = (pBckTask) data;
|
|
if (self == NULL) {
|
|
return;
|
|
}
|
|
if (self->con) {
|
|
SCDeleteConnection(self->con);
|
|
}
|
|
if (self->command) {
|
|
free(self->command);
|
|
}
|
|
}
|
|
|
|
/*---------------------------------------------------------------------------*/
|
|
static int BackgroundTask(void *data)
|
|
{
|
|
pBckTask self = (pBckTask) data;
|
|
|
|
assert(self != NULL);
|
|
|
|
InterpExecute(pServ->pSics, self->con, self->command);
|
|
return 0;
|
|
}
|
|
|
|
/*----------------------------------------------------------------------------*/
|
|
int BackgroundCommand(SConnection * pCon, char *command)
|
|
{
|
|
pBckTask self = NULL;
|
|
|
|
self = calloc(1, sizeof(BckTask));
|
|
if (self == NULL) {
|
|
return 0;
|
|
}
|
|
|
|
self->con = SCCopyConnection(pCon);
|
|
self->command = strdup(command);
|
|
if (self->con == NULL || self->command == NULL) {
|
|
free(self);
|
|
return 0;
|
|
}
|
|
|
|
TaskRegisterN(pServ->pTasker, self->command, BackgroundTask, NULL, KillBckTask, self, 1);
|
|
return 1;
|
|
}
|
|
|
|
/*------------------------------------------------------------------------*/
|
|
int BackgroundAction(SConnection * pCon, SicsInterp * pSics,
|
|
void *pData, int argc, char *argv[])
|
|
{
|
|
int status;
|
|
char command[1024];
|
|
|
|
memset(command, 0, 1024);
|
|
Arg2Text(argc - 1, &argv[1], command, 1024);
|
|
status = BackgroundCommand(pCon, command);
|
|
if (status == 0) {
|
|
SCWrite(pCon, "ERROR: out of memory starting task", eError);
|
|
return 0;
|
|
}
|
|
SCSendOK(pCon);
|
|
return 1;
|
|
}
|
|
|
|
/*--------------------------------------------------------------------------*/
|
|
void InstallBackground(void)
|
|
{
|
|
AddCmd("bg", BackgroundAction);
|
|
}
|