/* Support routines for jScope */
static void MdsUpdate(char *exp, int shot)
{
static int prev_shot;
static char prev_exp[256];
int status;
error_message[0] = 0;
if(!exp) return;
if(shot == prev_shot && !strcmp(prev_exp, exp))
return;
prev_shot = shot;
strcpy(prev_exp, exp);
status = TreeOpen(exp, shot, 0);
if(!(status & 1))
strncpy(error_message, MdsGetMsg(status), 512);
}
static void DoSrvAction(SrvJob *job_in)
{
int status;
SrvActionJob *job = (SrvActionJob *)job_in;
status = TreeOpen(job->tree,job->shot,0);
if (status & 1)
{
int retstatus;
char *job_text;
DESCRIPTOR_NID(nid_dsc,0);
DESCRIPTOR_LONG(ans_dsc,0);
struct descriptor fullpath = {0, DTYPE_T, CLASS_D, 0};
DESCRIPTOR(fullpath_d,"FULLPATH");
DESCRIPTOR(nullstr,"\0");
DESCRIPTOR_NID(niddsc,0);
struct descriptor ans_d = {0, DTYPE_T, CLASS_S, 0};
niddsc.pointer = (char *)&job->nid;
doingNid = job->nid;
status = TdiGetNci(&niddsc,&fullpath_d,&fullpath MDS_END_ARG);
StrAppend(&fullpath,&nullstr);
job_text = malloc(fullpath.length + 1024);
sprintf(job_text,"Doing %s in %s shot %d",fullpath.pointer,job->tree,job->shot);
current_job_text = job_text;
StrFree1Dx(&fullpath);
nid_dsc.pointer = (char *)&job->nid;
ans_dsc.pointer = (char *)&retstatus;
TreeSetDefaultNid(0);
if (Logging)
{
printf("%s, %s\n",Now(),current_job_text);
fflush(stdout);
}
status = TdiDoTask(&nid_dsc,&ans_dsc MDS_END_ARG);
if (Logging)
{
memcpy(current_job_text,"Done ",5);
printf("%s, %s\n",Now(),current_job_text);
fflush(stdout);
}
if (status & 1)
status = retstatus;
}
SendReply(job_in,SrvJobFINISHED,status,0,0);
}
int Tdi1Using(int opcode, int narg, struct descriptor *list[],
struct descriptor_xd *out_ptr)
{
int status = 1;
void *ctx;
int reset_ctx = 0;
int nid, shot, stat1;
struct descriptor def = { 0, DTYPE_T, CLASS_D, 0 }, expt = def;
unsigned char omits[] = { DTYPE_PATH, 0 };
/**********************
Evaluate with current.
Use current if omitted.
Must get expt if shot.
**********************/
if (narg > 1 && status & 1) {
if (list[1]) {
struct descriptor_xd xd = EMPTY_XD;
status = TdiGetData(omits, list[1], &xd);
if (status & 1 && xd.pointer)
switch (xd.pointer->dtype) {
case DTYPE_T:
case DTYPE_PATH:
status = StrCopyDx(&def, xd.pointer);
break;
default:
status = TdiINVDTYDSC;
break;
}
MdsFree1Dx(&xd, NULL);
}
if (!list[1] || def.length == 0) {
DBI_ITM def_itm[] = { {0, DbiDEFAULT, 0, 0}
, EOL };
status = TreeGetDbi(def_itm);
if (def_itm[0].pointer == NULL) {
STATIC_CONSTANT DESCRIPTOR(top, "\\TOP");
StrCopyDx(&def, &top);
status = 1;
} else {
unsigned short len =
(unsigned short)strlen((char *)def_itm[0].pointer);
StrCopyR(&def, &len, def_itm[0].pointer);
TreeFree(def_itm[0].pointer);
}
if (status & 1) {
stat1 = StrPosition(&def, &coloncolon, 0) + 1;
status = StrRight(&def, &def, &stat1);
}
if (status & 1)
*def.pointer = '\\';
}
}
if ((narg > 2) && ((list[2] != 0) || ((narg > 3) && (list[3] != 0)))
&& ((status & 1) != 0)) {
if (list[2])
status = TdiGetLong(list[2], &shot);
else {
DBI_ITM shot_itm[] = { {sizeof(shot), DbiSHOTID, 0, 0}
, EOL };
shot_itm[0].pointer = (unsigned char *)&shot;
status = TreeGetDbi(shot_itm);
}
if (status & 1) {
if (narg > 3 && list[3])
status = TdiData(list[3], &expt MDS_END_ARG);
else {
DBI_ITM expt_itm[] = { {0, DbiNAME, 0, 0}
, EOL };
status = TreeGetDbi(expt_itm);
if (expt_itm[0].pointer) {
unsigned short len =
(unsigned short)strlen((char *)expt_itm[0].pointer);
StrCopyR(&expt, &len, expt_itm[0].pointer);
TreeFree(expt_itm[0].pointer);
}
}
}
/*********************
Set new tree and path.
Allow some rel paths.
*********************/
if (status & 1) {
char *tree = MdsDescrToCstring(&expt);
ctx = TreeSwitchDbid(0);
reset_ctx = 1;
status = TreeOpen(tree, shot, 1);
MdsFree(tree);
}
}
if (narg > 1) {
char *path = MdsDescrToCstring(&def);
if (status & 1)
status = TreeSetDefault(path, &nid);
MdsFree(path);
if (narg > 2)
StrFree1Dx(&expt);
StrFree1Dx(&def);
}
/***********************
Evaluate with temporary.
***********************/
if (status & 1) {
struct descriptor_xd tmp = EMPTY_XD;
status = TdiEvaluate(list[0], &tmp MDS_END_ARG);
if (status & 1)
status = MdsCopyDxXdZ((struct descriptor *)&tmp, out_ptr, NULL,
fixup_nid, NULL, fixup_path, NULL);
MdsFree1Dx(&tmp, NULL);
}
if (reset_ctx) {
while (TreeClose(0, 0) & 1) ;
TreeFreeDbid(TreeSwitchDbid(ctx));
}
return status;
}
