void LCOBPMOcta1::config(ezxml_t xmlbloc)
{
ezxml_t param;
char * OpticalBenchType(NULL);
for(param = ezxml_child(xmlbloc,"Param"); param; param = param->next){
//! **** Checking that it's the right configuration of optical bench + phasemeter
if(MT->wcmp(ezxml_attr(param,"Name"),"OpticalBenchType")){
MT->stripcopy((*param).txt, OpticalBenchType);
if(!MT->wcmp(OpticalBenchType, "Octa1"))
throw std::invalid_argument("ERROR in LCOBPMOcta1::config : The xml bloc does not correspond to a type of the optical bench + phasemeter 'Octa1' .");
}
}
if(OpticalBenchType != NULL)
MT->Free(OpticalBenchType, (strlen(OpticalBenchType)+1) * sizeof(char) );
//! *** Set the name and the position
setNamePos(ezxml_attr(xmlbloc,"Name"));
if((Name[0]=='s')&&(Name[1]=='c')&&(Name[2]=='i')){
TypeOBPM = 0;
IndirectDirLink = 0;
iSCLink = -1*IndirectDir;
}
//! *** Configuration of filter
configFilter(xmlbloc);
}
/*
* EdNames widget command
*/
static int NamesWidgetCmd(ClientData clientData, Tcl_Interp *interp,
int argc, char **argv) {
edNames *en = (edNames *)clientData;
int result = TCL_OK;
if (argc < 2) {
Tcl_AppendResult(interp, "wrong # args: should be \"",
argv[0], " option ?arg arg ...?\"",
(char *) NULL);
return TCL_ERROR;
}
Tcl_Preserve((ClientData)TKSHEET(en));
if ('c' == *argv[1] && strcmp(argv[1], "configure") == 0) {
result = SheetWidgetCmdConfig(interp, TKSHEET(en), argc, argv);
} else if (!en->xx) {
en->xx = 0; /* Do nothing and flow through to 'success' */
} else if ('u' == *argv[1] && strcmp(argv[1], "update_brief") == 0) {
int x, y;
if (argc != 4) {
Tcl_AppendResult(interp, "wrong # args: should be \"",
argv[0], " update_brief xpos ypos\"",
(char *) NULL);
goto fail;
}
sheet_arg_x(TKSHEET(en), argv[2], &x);
sheet_arg_y(TKSHEET(en), argv[3], &y); y++;
edSetBriefNameStatus(en->xx, x, y);
} else if ('h' == *argv[1] && strcmp(argv[1], "highlight") == 0) {
int y, x, mode = -1;
if (argc != 4 && argc != 5) {
Tcl_AppendResult(interp, "wrong # args: should be \"",
argv[0], " highlight mode ?xpos? ypos\"",
(char *) NULL);
goto fail;
}
Tcl_GetInt(interp, argv[2], &mode);
if (argc == 5) {
sheet_arg_x(TKSHEET(en), argv[3], &x);
y = 4; /* argv number of y, rather than y itself */
} else {
x = 2;
y = 3;
}
if (*argv[y] == '=') {
y = get_gel_num(DBI_io(en->xx), &argv[y][1], GGN_ID);
y = rnum_to_edseq(en->xx, y);
} else {
sheet_arg_y(TKSHEET(en), argv[y], &y); y++;
y = edGetGelNumber(en->xx, 0, y);
}
if (-1 != y) {
if (x != 0) {
edSelectRead(en->xx, y, mode);
vTcl_SetResult(interp, "%d",
(DB_Flags(en->xx, y) & DB_FLAG_SELECTED) ?1:0);
} else {
if (y)
select_note(DBI_io(en->xx), GT_Readings,
DB_Number(en->xx,y));
else
select_note(DBI_io(en->xx), GT_Contigs,
DBI_contigNum(en->xx));
}
}
} else if ('g' == *argv[1] && strcmp(argv[1], "get_number") == 0) {
int x, y, num;
if (argc != 2 && argc != 4) {
Tcl_AppendResult(interp, "wrong # args: should be \"",
argv[0], " get_number ?xpos ypos?\"",
(char *) NULL);
goto fail;
}
if (argc == 4) {
sheet_arg_x(TKSHEET(en), argv[2], &x);
sheet_arg_y(TKSHEET(en), argv[3], &y); y++;
if (-1 != (num = edGetGelNumber(en->xx, x, y))) {
vTcl_SetResult(interp, "%d", num);
} /* otherwise return a blank */
} else {
vTcl_SetResult(interp, "%d", en->xx->cursorSeq);
}
} else if ('g' == *argv[1] && strcmp(argv[1], "get_read_number") == 0) {
int num;
if (argc != 2 && argc != 3) {
Tcl_AppendResult(interp, "wrong # args: should be \"",
argv[0], " get_read_number ?editor_gel_number?\"",
(char *) NULL);
goto fail;
}
if (argc == 3)
Tcl_GetInt(interp, argv[2], &num);
else
num = en->xx->cursorSeq;
vTcl_SetResult(interp, "%d", DB_Number(en->xx, num));
} else if ('g' == *argv[1] && strcmp(argv[1], "get_contig_number") == 0) {
if (argc != 2) {
Tcl_AppendResult(interp, "wrong # args: should be \"",
argv[0], " get_contig_number",
(char *) NULL);
goto fail;
}
vTcl_SetResult(interp, "%d", -DB_Number(en->xx, 0));
} else if ('g' == *argv[1] && strcmp(argv[1], "get_name") == 0) {
char *name;
int num;
if (argc != 2 && argc != 3) {
Tcl_AppendResult(interp, "wrong # args: should be \"",
argv[0], " get_name ?editor_gel_number?\"",
(char *) NULL);
goto fail;
}
if (argc == 3)
Tcl_GetInt(interp, argv[2], &num);
else
num = en->xx->cursorSeq;
Tcl_ResetResult(interp);
if (NULL != (name = edGetGelName(en->xx, num))) {
Tcl_AppendResult(interp, name, NULL);
} /* otherwise return a blank */
} else if ('g' == *argv[1] && strcmp(argv[1], "get_names_to_right") == 0) {
int num;
dstring_t *ds = NULL;
if (argc != 2 && argc != 3) {
Tcl_AppendResult(interp, "wrong # args: should be \"",
argv[0], " get_name ?gel_number?\"",
(char *) NULL);
goto fail;
}
if (argc == 3)
Tcl_GetInt(interp, argv[2], &num);
else
num = en->xx->cursorSeq;
if (NULL != (ds = edGetGelNamesToRight(en->xx, num))) {
Tcl_SetResult(interp, dstring_str(ds), TCL_VOLATILE);
dstring_destroy(ds);
} else {
/* otherwise return a blank */
Tcl_ResetResult(interp);
}
} else if ('x' == *argv[1] && strcmp(argv[1], "xview") == 0) {
int offset, count, type;
double fraction;
if (argc == 2) {
/* query */
vTcl_SetResult(interp, "%d", en->xx->names_xpos);
} else {
if (argc == 3) {
/* old syntax */
if (Tcl_GetInt(interp, argv[2], &offset) != TCL_OK) {
goto fail;
}
setNamePos(en->xx, offset);
} else {
/* new syntax */
type = Tk_GetScrollInfo(interp, argc, argv, &fraction, &count);
switch (type) {
case TK_SCROLL_ERROR:
goto fail;
case TK_SCROLL_MOVETO:
offset = (int) (fraction*DB_NAMELEN + 0.5);
break;
case TK_SCROLL_PAGES:
count *= 4;
case TK_SCROLL_UNITS:
offset = en->xx->names_xpos + count;
break;
}
if (offset < 0)
offset = 0;
if (offset + (en->sw.columns - (DB_GELNOLEN + 1)) > DB_NAMELEN)
offset = DB_NAMELEN - (en->sw.columns - (DB_GELNOLEN + 1));
setNamePos(en->xx, offset);
}
/* Update X scrollbar */
ed_set_nslider_pos(en->xx, en->xx->names_xpos);
}
} else if ('c' == *argv[1] && strcmp(argv[1], "coords") == 0) {
int x, y;
if (argc != 4) {
Tcl_AppendResult(interp, "wrong # args: should be \"",
argv[0], " update_brief xpos ypos\"",
(char *) NULL);
goto fail;
}
sheet_arg_x(TKSHEET(en), argv[2], &x);
sheet_arg_y(TKSHEET(en), argv[3], &y); y++;
vTcl_SetResult(interp, "%d %d", x, y);
} else {
Tcl_AppendResult(interp, "bad option \"", argv[1], "\": must be FIXME",
NULL);
goto fail;
}
Tcl_Release((ClientData)TKSHEET(en));
return result;
fail:
Tcl_Release((ClientData)TKSHEET(en));
return TCL_ERROR;
}