source: Sophya/trunk/SophyaPI/PIext/basexecut.cc@ 2181

Last change on this file since 2181 was 2180, checked in by cmv, 23 years ago

command eval dans spiapp cmv 13/8/02
File size: 61.5 KB
Line 
1#include "piacmd.h"
2
3#include <stdio.h>
4#include <stdlib.h>
5#include <math.h>
6
7#include "basexecut.h"
8
9#include "pdlmgr.h"
10#include "ctimer.h"
11
12#include "pistdimgapp.h"
13#include "nobjmgr.h"
14#include "servnobjm.h"
15
16#include "histos.h"
17#include "histos2.h"
18#include "hisprof.h"
19#include "ntuple.h"
20#include "generaldata.h"
21
22#ifdef SANS_EVOLPLANCK
23#include "cvector.h"
24#else
25#include "tvector.h"
26#endif
27
28
29/* --Methode-- */
30PIABaseExecutor::PIABaseExecutor(PIACmd* piac, NamedObjMgr* omg, PIStdImgApp* app)
31{
32mpiac = piac;
33mObjMgr = omg;
34mImgApp = app;
35dynlink = NULL;
36dynlink2 = NULL;
37RegisterCommands();
38}
39
40PIABaseExecutor::~PIABaseExecutor()
41{
42 if (dynlink) delete dynlink;
43 if (dynlink2) delete dynlink2;
44}
45
46
47
48/* --Methode-- */
49int PIABaseExecutor::Execute(string& kw, vector<string>& tokens, string& toks)
50{
51Services2NObjMgr* srvo = mObjMgr->GetServiceObj();
52// >>>>> Chargement de modules
53if (kw == "loadmodule") {
54 if (tokens.size() < 2) { cout << "Usage: loadmodule fnameso modulename" << endl; return(0); }
55 mpiac->LoadModule(tokens[0], tokens[1]);
56 }
57// >>>>>>>>>>> Fenetre graphique , changement d'attributs graphiques
58else if (kw == "zone") {
59 while (tokens.size() < 2) tokens.push_back("1");
60 int nx, ny;
61 nx = ny = 1;
62 nx = atoi(tokens[0].c_str()); ny = atoi(tokens[1].c_str());
63 if (mImgApp) mImgApp->SetZone(nx, ny);
64 }
65else if (kw == "newwin") {
66 int nx=1, ny=1;
67 //if(tokens.size() < 2) { cout << "Usage: newwin nx ny" << endl; return(0); }
68 if(tokens.size() > 0) nx = atoi(tokens[0].c_str());
69 if(tokens.size() > 1) ny = atoi(tokens[1].c_str());
70 if (mImgApp) mImgApp->CreateGraphWin(nx, ny);
71 }
72else if (kw == "stacknext") mImgApp->StackWinNext();
73else if (kw == "graphicatt") {
74 if (tokens.size() < 1) { cout << "Usage: graphicatt attributes_list (att=def->defaut)" << endl; return(0); }
75 string opts = tokens[0];
76 if (tokens.size() > 1)
77 for(unsigned int kt=1; kt<tokens.size(); kt++) { opts += ' '; opts += tokens[kt]; }
78 if (mImgApp) mImgApp->SetDefaultGraphicAttributes(opts);
79 }
80else if (kw == "setaxesatt") {
81 if (tokens.size() < 1) { cout << "Usage: setaxesatt attributes_list " << endl; return(0); }
82 string opts = tokens[0];
83 if (tokens.size() > 1)
84 for(unsigned int kt=1; kt<tokens.size(); kt++) { opts += ' '; opts += tokens[kt]; }
85 if (mImgApp) mImgApp->SetDefaultAxesAttributes(opts);
86 }
87else if (kw == "setinsetlimits") {
88 if (tokens.size() < 4) { cout << "Usage: setinsetlimits xmin xmax ymin ymax" << endl; return(0); }
89 double xmin = atof(tokens[0].c_str());
90 double xmax = atof(tokens[1].c_str());
91 double ymin = atof(tokens[2].c_str());
92 double ymax = atof(tokens[3].c_str());
93 mImgApp->SetInsetLimits(xmin, xmax, ymin, ymax);
94 }
95else if (kw == "addtext") {
96 if (tokens.size() < 3) { cout << "Usage: addtext x y txt [colfontatt]" << endl; return(0); }
97 double xp = atof(tokens[0].c_str());
98 double yp = atof(tokens[1].c_str());
99 string txt = tokens[2];
100 string sop;
101 if (tokens.size() > 3) sop = tokens[3];
102 mImgApp->AddText(txt, xp, yp, sop);
103 }
104else if ((kw == "addline") || (kw == "addrect") || (kw == "addfrect")) {
105 if (tokens.size() < 4) { cout << "Usage: addline/addrect/addfrect x1 y1 x2 y2 [colatt]" << endl; return(0); }
106 double xp1 = atof(tokens[0].c_str());
107 double yp1 = atof(tokens[1].c_str());
108 double xp2 = atof(tokens[2].c_str());
109 double yp2 = atof(tokens[3].c_str());
110 string sop;
111 if (tokens.size() > 4) sop = tokens[4];
112 if (kw == "addline") mImgApp->AddLine(xp1, yp1, xp2, yp2, sop);
113 else {
114 bool fgfill = (kw == "addrect") ? false : true;
115 mImgApp->AddRectangle(xp1, yp1, xp2, yp2, sop, fgfill);
116 }
117 }
118else if ((kw == "addcirc") || (kw == "addfcirc")) {
119 if (tokens.size() < 3) { cout << "Usage: addcirc/addfcirc xc yc r [colatt]" << endl; return(0); }
120 double xc = atof(tokens[0].c_str());
121 double yc = atof(tokens[1].c_str());
122 double rad = atof(tokens[2].c_str());
123 string sop;
124 if (tokens.size() > 3) sop = tokens[3];
125 bool fgfill = (kw == "addcirc") ? false : true;
126 mImgApp->AddCircle(xc, yc, rad, sop, fgfill);
127 }
128
129
130else if ((kw == "settitle") || (kw == "addtitle")) {
131 if (tokens.size() < 1) { cout << "Usage: settitle/addtitle TopTitle [BotTitle] [fontatt]" << endl; return(0); }
132 if(tokens.size()<2) tokens.push_back("");
133 string gropt;
134 if(tokens.size()>2) gropt = tokens[2];
135 mImgApp->SetTitle(tokens[0], tokens[1], gropt);
136}
137
138else if ((kw == "setaxelabels") || (kw == "addaxelabels")) {
139 if (tokens.size() < 2) { cout << "Usage: setaxelabels/addaxelabels xLabel yLabel [fontatt]" << endl; return(0); }
140 string gropt;
141 if(tokens.size()>2) gropt = tokens[2];
142 mImgApp->SetAxeLabels(tokens[0], tokens[1], gropt);
143}
144
145// >>>>>>>>>>> Link dynamique de fonctions C++
146else if (kw == "link" ) {
147 if (tokens.size() < 2) { cout << "Usage: link fnameso f1 [f2 f3]" << endl; return(0); }
148 string sph = "";
149 for(int gg=0; gg<5; gg++) tokens.push_back(sph);
150 int rc = LinkUserFuncs(tokens[0], tokens[1], tokens[2], tokens[3]);
151 if (rc == 0) cout << "PIABaseExecutor: Link from " << tokens[0] << " OK " << endl;
152}
153else if (kw == "linkff2" ) {
154 if (tokens.size() < 2) { cout << "Usage: linkff2 fnameso f1 [f2 f3]" << endl; return(0); }
155 string sph = "";
156 for(int gg=0; gg<5; gg++) tokens.push_back(sph);
157 int rc = LinkUserFuncs2(tokens[0], tokens[1], tokens[2], tokens[3]);
158 if (rc == 0) cout << "PIABaseExecutor: Link2 from " << tokens[0] << " OK " << endl;
159}
160else if (kw == "call" ) {
161 if (tokens.size() < 1) { cout << "Usage: call userf [arg1 arg2 ...]" << endl; return(0); }
162 UsFmap::iterator it;
163 UsFmap::iterator it1 = usfmap.find(tokens[0]);
164 UsFmap::iterator it2 = usfmap2.find(tokens[0]);
165 if ((it1 == usfmap.end()) && (it2 == usfmap2.end()) ) {
166 cerr << "PIABaseExecutor: No User Function " << tokens[0] << endl;
167 return(0);
168 }
169 if (it1 == usfmap.end()) it = it2;
170 else it = it1;
171 cout << "PIABaseExecutor: Call " << tokens[0] << "( ... )" << endl;
172// on est oblige de faire un cast etant donne qu'on
173// utilise donc des DlFunction (Reza 20/08/98) voir commentaire ds .h (pb g++)
174 DlUserProcFunction fuf = (DlUserProcFunction)(*it).second;
175// On redirige la sortie sur le terminal
176 bool red = mImgApp->HasRedirectedStdOutErr();
177 mImgApp->RedirectStdOutErr(false);
178#ifdef SANS_EVOLPLANCK
179 TRY {
180 tokens.erase(tokens.begin());
181 fuf(tokens);
182 } CATCH(merr) {
183 fflush(stdout);
184 string es = PeidaExc(merr);
185 cerr << "\n PIABaseExecutor: Call UserFunc Exception :" << merr << es;
186 cout << endl;
187 }
188#else
189 try {
190 tokens.erase(tokens.begin());
191 fuf(tokens);
192 }
193 catch ( PThrowable & exc ) {
194 cerr << "\n PIABaseExecutor: Call / Catched Exception :"
195 << (string)typeid(exc).name() << " Msg= "
196 << exc.Msg() << endl;
197 cout << endl;
198 }
199 catch ( ... ) {
200 cerr << "\n PIABaseExecutor: Call / Catched Exception ... "
201 << endl;
202 cout << endl;
203 }
204#endif
205 mImgApp->RedirectStdOutErr(red);
206}
207
208// >>>>>>>>>>> lecture/ecriture des objets, gestion des objets
209else if (kw == "openfits" ) {
210 if (tokens.size() < 1) { cout << "Usage: openfits file " << endl; return(0); }
211 else { string nomobj = ""; mObjMgr->ReadFits(tokens[0], nomobj); }
212}
213else if (kw == "savefits" ) {
214 if (tokens.size() < 2) { cout << "Usage: savefits nameobj filename " << endl; return(0); }
215 else mObjMgr->SaveFits(tokens[0], tokens[1]);
216}
217else if (kw == "openppf" ) {
218 if (tokens.size() < 1) { cout << "Usage: openppf file " << endl; return(0); }
219 mObjMgr->ReadAll(tokens[0]);
220}
221else if ((kw == "saveobjs") || (kw == "saveppf")) {
222 if (tokens.size() < 2) { cout << "Usage: saveobjs patt filename " << endl; return(0); }
223 mObjMgr->SaveObjects(tokens[0], tokens[1]);
224}
225else if (kw == "saveall" ) {
226 if (tokens.size() < 1) { cout << "Usage: saveall file " << endl; return(0); }
227 mObjMgr->SaveAll(tokens[0]);
228}
229else if (kw == "print" ) {
230 if (tokens.size() < 1) { cout << "Usage: print nameobj " << endl; return(0); }
231 mObjMgr->PrintObj(tokens[0]);
232}
233else if ( (kw == "rename" ) || (kw == "mv") ) {
234 if (tokens.size() < 2) { cout << "Usage: rename/mv nameobj namenew" << endl; return(0); }
235 mObjMgr->RenameObj(tokens[0], tokens[1]);
236}
237else if ( (kw == "del" ) || (kw == "rm") ) {
238 if (tokens.size() < 1) { cout << "Usage: del nameobj [nameobj2 ...]" << endl; return(0); }
239 if (tokens.size()>0)
240 for(uint_4 i=0;i<tokens.size();i++) mObjMgr->DelObj(tokens[i]);
241}
242else if (kw == "delobjs" ) {
243 if (tokens.size() < 1) { cout << "Usage: delobjs nomobjpattern (*,?) " << endl; return(0); }
244 mObjMgr->DelObjects(tokens[0]);
245}
246else if ( (kw == "listobjs") || (kw == "ls") ) {
247 if (tokens.size() < 1) tokens.push_back("*");
248 mObjMgr->ListObjs(tokens[0]);
249}
250// Gestion des repertoires
251else if (kw == "mkdir" ) {
252 if (tokens.size() < 1) { cout << "Usage: mkdir dirname [true]" << endl; return(0); }
253 bool crd = mObjMgr->CreateDir(tokens[0]);
254 if ( crd && (tokens.size() > 1) && (tokens[1] == "true") )
255 mObjMgr->SetKeepOldDirAtt(tokens[0], true);
256 }
257else if (kw == "rmdir" ) {
258 if (tokens.size() < 1) { cout << "Usage: rmdir dirname " << endl; return(0); }
259 mObjMgr->DeleteDir(tokens[0]);
260 }
261else if (kw == "setdiratt" ) {
262 if (tokens.size() < 2) { cout << "Usage: setdiratt dirname true/false" << endl; return(0); }
263 if (tokens[1] == "true") mObjMgr->SetKeepOldDirAtt(tokens[0], true);
264 else mObjMgr->SetKeepOldDirAtt(tokens[0], false);
265}
266else if (kw == "cd") {
267 if (tokens.size() < 1) tokens.push_back("home");
268 mObjMgr->SetCurrentDir(tokens[0]);
269 }
270else if (kw == "pwd") {
271 string dirn;
272 mObjMgr->GetCurrentDir(dirn);
273 cout << "CurrentDirectory: " << dirn << endl;
274 }
275else if (kw == "listdirs") {
276 if (tokens.size() < 1) tokens.push_back("*");
277 mObjMgr->ListDirs(tokens[0]);
278 }
279
280// >>>>>>>>>>> Creation d'histos 1D-2D
281else if (kw == "newh1d") {
282 if (tokens.size() < 4) { cout << "Usage: newh1d name xmin xmax nbin" << endl; return(0); }
283 int_4 nbx = 100;
284 r_8 xmin = 0., xmax = 1.;
285 nbx = atoi(tokens[3].c_str());
286 xmin = atof(tokens[1].c_str()); xmax = atof(tokens[2].c_str());
287 Histo* h = new Histo(xmin, xmax, nbx);
288 mObjMgr->AddObj(h, tokens[0]);
289 }
290else if (kw == "newh2d") {
291 if (tokens.size() < 7) {
292 cout << "Usage: newh2d name xmin xmax nbinx ymin ymax nbiny" << endl;
293 return(0);
294 }
295 int_4 nbx = 50, nby = 50;
296 r_8 xmin = 0., xmax = 1.;
297 r_8 ymin = 0., ymax = 1.;
298 nbx = atoi(tokens[3].c_str());
299 nby = atoi(tokens[6].c_str());
300 xmin = atof(tokens[1].c_str()); xmax = atof(tokens[2].c_str());
301 ymin = atof(tokens[4].c_str()); ymax = atof(tokens[5].c_str());
302 Histo2D* h = new Histo2D(xmin, xmax, nbx, ymin, ymax, nby);
303 mObjMgr->AddObj(h, tokens[0]);
304 }
305else if (kw == "newprof" || kw == "newprofe") {
306 if (tokens.size() < 4)
307 { cout << "Usage: newprof[e] name xmin xmax nbin [ymin ymax]" << endl; return(0); }
308 int_4 nbx = 100;
309 r_8 xmin = 0., xmax = 1., ymin = 1., ymax = -1.;
310 if(tokens.size() > 5)
311 {ymin = atof(tokens[4].c_str()); ymax = atof(tokens[5].c_str());}
312 nbx = atoi(tokens[3].c_str());
313 xmin = atof(tokens[1].c_str()); xmax = atof(tokens[2].c_str());
314 HProf* h = new HProf(xmin, xmax, nbx, ymin, ymax);
315 if(kw == "newprofe") h->SetErrOpt(false);
316 mObjMgr->AddObj(h, tokens[0]);
317 }
318
319// Creation de NTuple
320else if (kw == "newnt") {
321 if(tokens.size() < 2)
322 {cout<<"Usage: newnt name v1 v2 ... vn / newnt name nvar"<<endl; return(0);}
323 vector<string> varname;
324 int nvar = 0;
325 const char *c = tokens[1].c_str();
326 if(isdigit(c[0])) {
327 nvar = atoi(tokens[1].c_str());
328 if(nvar<=0 || nvar>=10000)
329 {cout<<"newnt name nvar : nvar must be an positive integer<10000"<<endl;
330 return(0);}
331 for(int i=0;i<nvar;i++) {
332 char str[16]; sprintf(str,"%d",i);
333 string dum = "v"; dum += str;
334 varname.push_back(dum.c_str());
335 }
336 } else if( islower(c[0]) || isupper(c[0]) ) {
337 for(int i=1;i<(int)tokens.size();i++) {
338 varname.push_back(tokens[i].c_str());
339 nvar++;
340 }
341 } else {
342 cout<<"newnt name v1 v2 ... vn : name vi must begin by a letter"<<endl
343 <<"newnt name nvar : nvar must be an positive integer"<<endl;
344 return(0);
345 }
346 char **noms = new char*[nvar];
347 for(int i=0;i<nvar;i++) noms[i] = (char *)varname[i].c_str();
348 NTuple* nt = new NTuple(nvar,noms);
349 delete [] noms;
350 mObjMgr->AddObj(nt,tokens[0]);
351 }
352
353// Creation de GeneralFitData
354else if (kw == "newgfd") {
355 if (tokens.size() < 3)
356 { cout << "Usage: newgfd nvar nalloc [errx(0/1)]" << endl; return(0); }
357 int nvar, nalloc, errx=0;
358 if (tokens.size() > 3)
359 { errx = atoi(tokens[3].c_str()); if(errx>0) errx=1; else errx = 0;}
360 nvar = atoi(tokens[1].c_str()); nalloc = atoi(tokens[2].c_str());
361 if(nvar>0 && nalloc>0) {
362 GeneralFitData* gfd = new GeneralFitData(nvar,nalloc,errx);
363 mObjMgr->AddObj(gfd, tokens[0]);
364 }
365 }
366
367// Creation/remplissage de vecteur et de matrice
368else if (kw == "newvec") {
369 if (tokens.size() < 2) {
370 cout << "Usage: newvec name size [f(i) dopt] " << endl; return(0);
371 }
372 int n = atoi(tokens[1].c_str());
373 double xmin, xmax;
374 xmin = 0.; xmax = n;
375 if (tokens.size() < 3) {
376 Vector* v = new Vector(n);
377 mObjMgr->AddObj(v, tokens[0]);
378 }
379 else {
380 if (tokens.size() < 4) tokens.push_back("");
381 mObjMgr->GetServiceObj()->PlotFunc(tokens[2], tokens[0], xmin, xmax, n, tokens[3]);
382 }
383 }
384else if (kw == "newmtx") {
385 if (tokens.size() < 3) {
386 cout << "Usage: newmtx name sizeX(Col) sizeY(Lines) [f(i,j) dopt] " << endl; return(0);
387 }
388 int nx = atoi(tokens[1].c_str());
389 int ny = atoi(tokens[2].c_str());
390 double xmin, xmax, ymin, ymax;
391 xmin = 0.; xmax = nx;
392 ymin = 0.; ymax = ny;
393 if (tokens.size() < 4) {
394 Matrix* mtx = new Matrix(ny,nx);
395 mObjMgr->AddObj(mtx, tokens[0]);
396 }
397 else {
398 if (tokens.size() < 5) tokens.push_back("next");
399 mObjMgr->GetServiceObj()->PlotFunc2D(tokens[3], tokens[0], xmin, xmax, ymin, ymax,
400 nx, ny, tokens[4]);
401 }
402 }
403
404// Copie d'objets
405else if ( (kw == "copy") || (kw == "cp") ) {
406 if(tokens.size()<2) {
407 cout<<"Usage: copy name_from name_to"<<endl;return(0);
408 }
409 mObjMgr->CopyObj(tokens[0],tokens[1]);
410}
411
412
413// >>>>>>>>>>> Affichage des objets
414else if ( (kw == "disp") || (kw == "surf") || (kw == "imag") ) {
415 if (tokens.size() < 1) { cout << "Usage: disp/surf/imag nameobj [opt]" << endl; return(0); }
416 string opt = "next";
417 if (tokens.size() > 1) opt = tokens[1];
418 if (kw == "disp") mObjMgr->DisplayObj(tokens[0], opt);
419 else if (kw == "surf") mObjMgr->DisplaySurf3D(tokens[0], opt);
420 else if (kw == "imag") mObjMgr->DisplayImage(tokens[0], opt);
421 }
422
423else if (kw == "nt2d") {
424 if (tokens.size() < 3) {
425 cout << "Usage: nt2d nameobj varx vary [errx erry wt label opt]" << endl;
426 return(0);
427 }
428 while (tokens.size() < 8) tokens.push_back("");
429 string ph = "";
430 mObjMgr->DisplayNT(tokens[0], tokens[1], tokens[2], ph, tokens[3], tokens[4], ph,
431 tokens[5], tokens[6], tokens[7], false);
432 }
433else if (kw == "nt3d") {
434 if (tokens.size() < 7) {
435 cout << "Usage: nt3d nameobj varx vary varz [errx erry errz wt label opt]" << endl;
436 return(0);
437 }
438 while (tokens.size() < 10) tokens.push_back("");
439 mObjMgr->DisplayNT(tokens[0], tokens[1], tokens[2], tokens[3], tokens[4], tokens[5],
440 tokens[6], tokens[7], tokens[8], tokens[9], true);
441 }
442else if (kw == "vecplot") {
443 if (tokens.size() < 2) {
444 cout << "Usage: vecplot nameVecX nameVecY [opt]" << endl;
445 }
446 while (tokens.size() < 3) tokens.push_back("");
447 mObjMgr->DisplayVector(tokens[0], tokens[1], tokens[2]);
448}
449
450// Obsolete : ne pas virer SVP, cmv 26/7/99
451else if (kw == "gfd2d") {
452 cout<<"----- gfd2d OBSOLETE: utilisez nt2d -----"<<endl;
453 if(tokens.size()<2)
454 {cout<<"Usage: gfd2d nomobj numvarx erreur=(x y xy) opt"<<endl;
455 return(0);}
456 string numvary = "";
457 string err = "";
458 string opt = "next";
459 if(tokens.size()>2) err = tokens[2];
460 if(tokens.size()>3) opt = tokens[3];
461 mObjMgr->DisplayGFD(tokens[0],tokens[1],numvary,err,opt);
462 }
463else if (kw == "gfd3d") {
464 cout<<"----- gfd3d OBSOLETE: utilisez nt3d -----"<<endl;
465 if(tokens.size()<3)
466 {cout<<"Usage: gfd3d nameobj numvarx numvary erreur=(x y z xy xz yz xyz) opt"<<endl;
467 return(0);}
468 string err = "";
469 string opt = "next";
470 if(tokens.size()>3) err = tokens[3];
471 if(tokens.size()>4) opt = tokens[4];
472 mObjMgr->DisplayGFD(tokens[0],tokens[1],tokens[2],err,opt);
473 }
474
475// >>>>>>>>>>> Trace de fonctions
476else if ( (kw == "func") ) {
477 if(tokens.size()<3) {cout<<"Usage: func f(x) xmin xmax [npt opt]"<<endl; return(0);}
478 int np = 100;
479 double xmin=0., xmax=1.;
480 string opt = "", nom = "";
481 xmin = atof(tokens[1].c_str()); xmax = atof(tokens[2].c_str());
482 if (tokens.size() > 3) np = atoi(tokens[3].c_str());
483 if (tokens.size() > 4) opt = tokens[4];
484 mObjMgr->GetServiceObj()->PlotFunc(tokens[0], nom, xmin, xmax, np, opt);
485 }
486else if ( (kw == "funcff") ) {
487 if (tokens.size()<4) {cout<<"Usage: funcff C-filename f(x)-name xmin xmax [npt opt]"<<endl; return(0);}
488 int np = 100;
489 double xmin=0., xmax=1.;
490 string opt = "", nom = "";
491 xmin = atof(tokens[2].c_str()); xmax = atof(tokens[3].c_str());
492 if(tokens.size()>4) np = atoi(tokens[4].c_str());
493 if(tokens.size()>5) opt = tokens[5];
494 mObjMgr->GetServiceObj()->PlotFuncFrCFile(tokens[0], tokens[1], nom, xmin, xmax, np, opt);
495 }
496else if ( (kw == "func2d") ) {
497 if (tokens.size() < 7) {
498 cout << "Usage: func2d f(x,y) xmin xmax nptx ymin ymax npty [opt]" << endl;
499 return(0);
500 }
501 int npx, npy;
502 double xmin, xmax;
503 double ymin, ymax;
504 npx = npy = 50;
505 xmin = 0.; xmax = 1.;
506 ymin = 0.; ymax = 1.;
507 npx = atoi(tokens[3].c_str());
508 npy = atoi(tokens[6].c_str());
509 xmin = atof(tokens[1].c_str()); xmax = atof(tokens[2].c_str());
510 ymin = atof(tokens[4].c_str()); ymax = atof(tokens[5].c_str());
511 string opt = "";
512 if (tokens.size() > 7) opt = tokens[7];
513 string nom = "";
514 mObjMgr->GetServiceObj()->PlotFunc2D(tokens[0], nom, xmin, xmax, ymin, ymax, npx, npy, opt);
515 }
516else if ( (kw == "func2dff") ) {
517 if (tokens.size() < 8) {
518 cout << "Usage: func2d C-filename F(x,y)-name xmax nptx ymin ymax npty [opt]" << endl;
519 return(0);
520 }
521 int npx, npy;
522 double xmin, xmax;
523 double ymin, ymax;
524 npx = npy = 50;
525 xmin = 0.; xmax = 1.;
526 ymin = 0.; ymax = 1.;
527 npx = atoi(tokens[4].c_str());
528 npy = atoi(tokens[7].c_str());
529 xmin = atof(tokens[2].c_str()); xmax = atof(tokens[3].c_str());
530 ymin = atof(tokens[5].c_str()); ymax = atof(tokens[6].c_str());
531 string opt = "";
532 if (tokens.size() > 8) opt = tokens[8];
533 string nom = "";
534 mObjMgr->GetServiceObj()->PlotFunc2DFrCFile(tokens[0], tokens[1], nom, xmin, xmax, ymin, ymax, npx, npy, opt);
535 }
536
537// >>>>>>>>>>> Trace d'expressions de N_Tuple, StarList, etc ...
538else if (kw == "plot2d" ) {
539 if (tokens.size() < 3) {
540 cout << "Usage: plot2d nameobj expx expy [expcut opt loop_par]" << endl;
541 return(0);
542 }
543 string errx = ""; string erry = "";
544 if (tokens.size() < 4) tokens.push_back("1");
545 while (tokens.size() < 6) tokens.push_back("");
546 srvo->DisplayPoints2D(tokens[0],tokens[1],tokens[2],errx,erry,tokens[3],tokens[4],tokens[5]);
547 }
548
549else if (kw == "plot2de" ) { // Plot2D avec les erreurs
550 if (tokens.size() < 5) {
551 cout << "Usage: plot2de nameobj expx expy experrx experry [expcut opt loop_par]" << endl;
552 return(0);
553 }
554 if (tokens.size() < 6) tokens.push_back("1");
555 while (tokens.size() < 8) tokens.push_back("");
556 srvo->DisplayPoints2D(tokens[0],tokens[1],tokens[2],tokens[3],tokens[4],
557 tokens[5],tokens[6],tokens[7]);
558 }
559
560else if (kw == "plot2dw" ) { // Plot2d avec poids
561 if (tokens.size() < 4) {
562 cout << "Usage: plot2dw nomobj expx expy expwt [expcut opt loop_par]" << endl;
563 return(0);
564 }
565 if (tokens.size() < 5) tokens.push_back("1");
566 while (tokens.size() < 7) tokens.push_back("");
567 srvo->DisplayPoints2DW(tokens[0],tokens[1],tokens[2],tokens[3], tokens[4], tokens[5], tokens[6]);
568 }
569else if (kw == "plot3d" ) {
570 if (tokens.size() < 4) {
571 cout << "Usage: plot3d nomobj expx expy expz [expcut opt loop_par]" << endl;
572 return(0);
573 }
574 if (tokens.size() < 5) tokens.push_back("1");
575 while (tokens.size() < 7) tokens.push_back("");
576 srvo->DisplayPoints3D(tokens[0],tokens[1],tokens[2],tokens[3], tokens[4], tokens[5], tokens[6]);
577 }
578
579else if (kw == "projh1d" ) {
580 if (tokens.size() < 3) {
581 cout << "Usage: projh1d nomh1 nomobj expx [expwt expcut opt loop_par]" << endl;
582 return(0);
583 }
584 if (tokens.size() < 4) tokens.push_back("1.");
585 if (tokens.size() < 5) tokens.push_back("1");
586 while (tokens.size() < 7) tokens.push_back("");
587 srvo->ProjectH1(tokens[1], tokens[2], tokens[3], tokens[4], tokens[0], tokens[5], tokens[6] );
588 }
589
590
591// Projection dans histogrammes
592else if (kw == "projh2d" ) {
593 if (tokens.size() < 4) {
594 cout << "Usage: projh2d nomh2 nomobj expx expy [expwt expcut opt loop_par]" << endl;
595 return(0);
596 }
597 if (tokens.size() < 5) tokens.push_back("1.");
598 if (tokens.size() < 6) tokens.push_back("1");
599 while (tokens.size() < 8) tokens.push_back("");
600 srvo->ProjectH2(tokens[1], tokens[2], tokens[3], tokens[4], tokens[5], tokens[0],
601 tokens[6], tokens[7] );
602 }
603
604else if (kw == "projprof" ) {
605 if (tokens.size() < 4) {
606 cout << "Usage: projprof nomprof nomobj expx expy [expwt expcut opt loop_par]" << endl;
607 return(0);
608 }
609 if (tokens.size() < 5) tokens.push_back("1.");
610 if (tokens.size() < 6) tokens.push_back("1");
611 while (tokens.size() < 8) tokens.push_back("");
612 srvo->ProjectHProf(tokens[1], tokens[2], tokens[3], tokens[4], tokens[5], tokens[0],
613 tokens[6], tokens[7] );
614 }
615
616// Projection dans vector/matrix
617else if (kw == "fillvec" ) {
618 if (tokens.size() < 4) {
619 cout << "Usage: fillvec nomvec nomobj expx expv [expcut opt loop_par]" << endl;
620 return(0);
621 }
622 if (tokens.size() < 5) tokens.push_back("1");
623 while (tokens.size() < 7) tokens.push_back("");
624 srvo->FillVect(tokens[1], tokens[2], tokens[3], tokens[4], tokens[0], tokens[5], tokens[6] );
625 }
626
627else if (kw == "fillmtx" ) {
628 if (tokens.size() < 5) {
629 cout << "Usage: fillmtx nommtx nomobj expx expy expv [expcut opt loop_par]" << endl;
630 return(0);
631 }
632 if (tokens.size() < 6) tokens.push_back("1");
633 while (tokens.size() < 8) tokens.push_back("");
634 srvo->FillMatx(tokens[1], tokens[2], tokens[3], tokens[4], tokens[5], tokens[0],
635 tokens[6], tokens[7] );
636 }
637
638// Remplissage NTuple,Vecteurs, ... , boucle de NTuple
639else if (kw == "ntfrascii" ) {
640 if(tokens.size() < 2) {
641 cout<<"Usage: ntfrascii nt_name file_name [def_init_val]"<<endl;
642 return(0);
643 }
644 double def_val = 0.;
645 if(tokens.size()>=3) def_val = atof(tokens[2].c_str());
646 srvo->NtFromASCIIFile(tokens[0],tokens[1],def_val);
647 }
648
649else if (kw == "fillnt" ) {
650 if (tokens.size() < 5) {
651 cout << "Usage: fillnt nameobj expx expy expz expt [expcut ntname loop_par]" << endl;
652 return(0);
653 }
654 while (tokens.size() < 8) tokens.push_back("");
655 srvo->FillNT(tokens[0],tokens[1],tokens[2], tokens[3], tokens[4], tokens[5], tokens[6], tokens[7] );
656 }
657
658else if (kw == "ntloop" ) {
659 if (tokens.size() < 3) {
660 cout << "Usage: ntloop nameobj fname funcname [ntname loop_par ]" << endl;
661 return(0);
662 }
663 while (tokens.size() < 5) tokens.push_back("");
664 srvo->FillNTFrCFile(tokens[0],tokens[1], tokens[2], tokens[3], tokens[4]);
665 }
666
667else if (kw == "ntexpcfile" ) {
668 if (tokens.size() < 3) {
669 cout << "Usage: ntexpcfile nameobj fname funcname" << endl;
670 return(0);
671 }
672 srvo->PrepareNTExpressionCFile(tokens[0],tokens[1], tokens[2]);
673 }
674
675else if (kw == "exptovec" ) {
676 if (tokens.size() < 3) {
677 cout << "Usage: exptovec nomvec nameobj expx [expcut opt loop_par]" << endl;
678 return(0);
679 }
680 while (tokens.size() < 6) tokens.push_back("");
681 srvo->ExpressionToVector(tokens[1],tokens[2],tokens[3],tokens[0],tokens[4],tokens[5]);
682 }
683
684else if (kw == "fillgd1" ) {
685 if (tokens.size() < 5) {
686 cout << "Usage: fillgd1 nomgfd nomobj expx expy experry [expcut loop_par] " << endl;
687 return(0);
688 }
689 if (tokens.size() < 6) tokens.push_back("1");
690 if (tokens.size() < 7) tokens.push_back("");
691 string expy = "";
692 srvo->FillGFD(tokens[1],tokens[2], expy, tokens[3], tokens[4], tokens[5], tokens[0]);
693 }
694
695else if (kw == "fillgd2" ) {
696 if (tokens.size() < 6) {
697 cout << "Usage: fillgd2 nomgfd nomobj expx expy expz experrz [expcut loop_par]" << endl;
698 return(0);
699 }
700 if (tokens.size() < 7) tokens.push_back("1");
701 if (tokens.size() < 8) tokens.push_back("");
702 srvo->FillGFD(tokens[1],tokens[2],tokens[3], tokens[4], tokens[5], tokens[6], tokens[0], tokens[7]);
703 }
704
705else if (kw == "gdfrvec" ) {
706 if(tokens.size()<3) {
707 cout<<"Usage: gdfrvec namegfd X Y\n"
708 <<" gdfrvec namegfd X Y"
709 <<" gdfrvec namegfd X Y ! EY\n"
710 <<" gdfrvec namegfd X Y Z\n"
711 <<" gdfrvec namegfd X Y Z EZ"<<endl;
712 return(0);
713 }
714 while(tokens.size()<5) tokens.push_back("!");
715 srvo->FillGFDfrVec(tokens[0],tokens[1],tokens[2],tokens[3],tokens[4]);
716 }
717
718// >>>>>>>>>>> Calcul d'expression arithmetique
719else if ( (kw == "eval") ) {
720 if(tokens.size()<2)
721 {cout<<"Usage: eval resultvarname arithmetic expression...."<<endl; return(0);}
722 string expval = "";
723 for(unsigned int i=1;i<tokens.size();i++) expval+=tokens[i];
724 string resultvarname = "";
725 if(isalpha(tokens[0][0])) resultvarname=tokens[0];
726 mObjMgr->GetServiceObj()->ExpVal(expval,resultvarname);
727 }
728
729else {
730 cerr << "PIABaseExecutor::Do() Erreur - Commande " << kw << " inconuue ! " << endl;
731 return(-1);
732 }
733
734return(0);
735}
736
737// Fonction pour enregistrer le Help des Widgets et Windows de piapp
738static void RegisterPIGraphicsHelp(PIACmd* piac);
739
740/* --Methode-- */
741void PIABaseExecutor::RegisterCommands()
742{
743string kw, usage;
744kw = "loadmodule";
745usage = "To load and initialize modules \n Usage: loadmodule fnameso modulename";
746usage += "\n Related commands: link";
747mpiac->RegisterCommand(kw, usage, this, "External Modules");
748kw = "link";
749usage = "Dynamic linking of compiled user functions \n Usage: link fnameso f1 [f2 f3]";
750usage += "\n fnameso: Shared-object file name, f1,f2,f3 : User function names ";
751usage += "\n Related commands: call loadmodule linkff2";
752mpiac->RegisterCommand(kw, usage, this, "External Modules");
753kw = "linkff2";
754usage = "Dynamic linking of compiled user functions (Set 2)\n Usage: linkff2 fnameso f1 [f2 f3]";
755usage += "\n fnameso: Shared-object file name, f1,f2,f3 : User function names ";
756usage += "\n Related commands: call link loadmodule";
757mpiac->RegisterCommand(kw, usage, this, "External Modules");
758kw = "call";
759usage = "Dynamically linked user function call \n Usage: call userf [arg1 arg2 ...]";
760usage += "\n User function : f(vector<string>& args)";
761usage += "\n Related commands: link";
762mpiac->RegisterCommand(kw, usage, this, "External Modules");
763
764kw = "zone";
765usage = "To Divide the Graphic window \n Usage: zone [nx=1 ny=1]";
766usage += "\n Related commands: newwin";
767mpiac->RegisterCommand(kw, usage, this, "Graphics");
768kw = "newwin";
769usage = "To Create a New Graphic window, with zones \n Usage: newwin nx ny";
770usage += "\n Related commands: zone";
771mpiac->RegisterCommand(kw, usage, this, "Graphics");
772kw = "stacknext";
773usage = "Displays the next widget on stack window \n Usage: stacknext";
774mpiac->RegisterCommand(kw, usage, this, "Graphics");
775
776kw = "graphicatt";
777usage = "To change default graphic options \n Usage: graphicatt att_list \n";
778usage += "att_list=def back to default values, Example: gratt 'red circlemarker5'";
779usage += "\n ------------------ Graphic attribute list ------------------ \n";
780usage += ">> Colors: defcol black white grey red blue green yellow \n";
781usage += " magenta cyan turquoise navyblue orange siennared purple \n";
782usage += " limegreen gold violet violetred blueviolet darkviolet \n";
783usage += ">> Lines: defline normalline thinline thickline dashedline thindashedline \n";
784usage += " thickdashedline dottedline thindottedline thickdottedline \n";
785usage += ">> Font Att: deffontatt normalfont boldfont italicfont bolditalicfont \n";
786usage += " smallfont smallboldfont smallitalicfont smallbolditalicfont \n";
787usage += " bigfont bigboldfont bigitalicfont bigbolditalicfont \n";
788usage += " hugefont hugeboldfont hugeitalicfont hugebolditalicfont \n";
789usage += ">> Font Names: deffont courierfont helveticafont timesfont symbolfont \n";
790usage += ">> Marker: dotmarker<T> plusmarker<T> crossmarker<T> circlemarker <T> \n";
791usage += " fcirclemarker<T> boxmarker<T> fboxmarker<T> trianglemarker<T> \n";
792usage += " ftrianglemarker<T> starmarker<T> fstarmarker<T> \n";
793usage += " with <T> = 1 3 5 7 9 , Example fboxmarker5 , plusmarker9 ... \n";
794usage += ">> ColorTables: defcmap grey32 invgrey32 colrj32 colbr32 \n";
795usage += " grey128 invgrey128 colrj128 colbr128 \n";
796usage += " midas_pastel midas_heat midas_rainbow3 midas_bluered\n";
797usage += " midas_bluewhite midas_redwhite \n";
798usage += " rainbow16 \n";
799usage += " revcmap : This flag reverses ColorMap indexing \n";
800usage += ">> ZoomFactors zoomxN zoomx1 zoomx2 zoomx3 ... \n";
801usage += " (image display) zoom/N zoom/2 zoom/3 zoom/4 ...\n";
802usage += ">> imagecenter=ix,iy -> Position the image in widget \n";
803usage += ">> lut=ltyp,min,max -> Sets LUT type and min/max for image display \n";
804usage += " (ltyp=lin/log/sqrt/square) \n";
805usage += ">> Axes: stdaxes=defaxes=boxaxes boxaxesgrid centeredaxes\n";
806usage += " fineaxes finecenteredaxes fineaxesgrid=grid \n";
807usage += " centeredaxesgrid finecenteredaxesgrid \n";
808usage += ">> Axe labels font size: fixedfontsize/autofontsize \n";
809usage += " autofontsize: Font size computed automatically \n";
810usage += " fixedfontsize: Use font size attribute (BaseDrawer) \n";
811usage += ">> LogScale : linx liny logx logy -> Lin/Log Scales for 2D plots \n";
812usage += ">> xylimits=xmin,xmax,ymin,ymax -> Forces X-Y limits in 2-D plots \n";
813usage += ">> stat/nostat or stats/nostats -> Toggle statistic display flag \n";
814usage += ">> title/notitle or tit/notit -> Toggle Auto AddTitle flag \n";
815usage += ">> DisplayWindow: next same win stack inset \n";
816usage += " Related commands: setaxesatt setinsetlimits ";
817mpiac->RegisterCommand(kw, usage, this, "Graphics");
818
819kw = "setaxesatt";
820usage = "To set default axes attributes \n Usage: setaxesatt att_list \n";
821usage += "Color/Line/Font attributes and axes attributes";
822usage += ">> Axes: stdaxes=defaxes=boxaxes boxaxesgrid centeredaxes\n";
823usage += " fineaxes finecenteredaxes fineaxesgrid=grid \n";
824usage += " centeredaxesgrid finecenteredaxesgrid \n";
825usage += ">> Axe labels font size: fixedfontsize/autofontsize \n";
826usage += " autofontsize: Font size computed automatically \n";
827usage += " fixedfontsize: Use font size attribute (BaseDrawer) \n";
828usage += ">> LogScale : linx liny logx logy -> Lin/Log Scales for 2D plots \n";
829usage += ">> xylimits=xmin,xmax,ymin,ymax -> Forces X-Y limits in 2-D plots \n";
830mpiac->RegisterCommand(kw, usage, this, "Graphics");
831
832kw = "setinsetlimits";
833usage = "Define the display rectangle for drawers added as insets \n";
834usage += " over existing graphic objects - limits expressed as fraction \n";
835usage += " graphic object size (0. .. 1.) Xmax at right, YMax top. ";
836usage += " Usage: setinsetlimits xmin xmax ymin ymax";
837usage += "\n Related commands: graphicatt /inset";
838mpiac->RegisterCommand(kw, usage, this, "Graphics");
839
840kw = "addtext";
841usage = "Adds a text string to the current graphic object";
842usage += "\n at the specified position (+ color and font attributes) ";
843usage += "\n The Base/AxesDrawer is used to handle added text strings" ;
844usage += "\n Alt<Z> to remove added elements";
845usage += "\n Font attribute is common with axes";
846usage += "\n Usage: addtext x y TextString [ColFontAtt]";
847usage += "\n (use quotes '' for multi word text strings) ";
848usage += "\n Related commands: addline addrect addfrect addcirc addfcirc settitle graphicatt";
849mpiac->RegisterCommand(kw, usage, this, "Graphics");
850
851kw = "addline";
852usage = "Adds a line to the current graphic object";
853usage += "\n at the specified position (+ color attribute)";
854usage += "\n The Base/AxesDrawer is used to handle added lines";
855usage += "\n Alt<Z> to remove added elements";
856usage += "\n Usage: addline x1 y1 x2 y2 [ColAtt]";
857usage += "\n Related commands: addtext addrect addfrect addcirc addfcirc graphicatt";
858mpiac->RegisterCommand(kw, usage, this, "Graphics");
859
860kw = "addrect";
861usage = "Adds a rectangle to the current graphic object";
862usage += "\n between the specified positions (+ color attribute)";
863usage += "\n The Base/AxesDrawer is used to handle added rectangle";
864usage += "\n Alt<Z> to remove added elements";
865usage += "\n Usage: addrect x1 y1 x2 y2 [ColAtt]";
866usage += "\n Related commands: addtext addline addfrect addcirc addfcirc graphicatt";
867mpiac->RegisterCommand(kw, usage, this, "Graphics");
868
869kw = "addfrect";
870usage = "Adds a filled rectangle to the current graphic object";
871usage += "\n between the specified positions (+ color attribute)";
872usage += "\n The Base/AxesDrawer is used to handle added rectangle";
873usage += "\n Alt<Z> to remove added elements";
874usage += "\n Usage: addfrect x1 y1 x2 y2 [ColAtt]";
875usage += "\n Related commands: addtext addline addrect addcirc addfcirc graphicatt";
876mpiac->RegisterCommand(kw, usage, this, "Graphics");
877
878kw = "addcirc";
879usage = "Adds a circle to the current graphic object";
880usage += "\n with the specified center and radius (+ color attribute)";
881usage += "\n The Base/AxesDrawer is used to handle added circles";
882usage += "\n Alt<Z> to remove added elements";
883usage += "\n Usage: addcirc xcenter ycenter radius [ColAtt]";
884usage += "\n Related commands: addtext addline addfrect addfrect addfcirc graphicatt";
885mpiac->RegisterCommand(kw, usage, this, "Graphics");
886
887kw = "addfcirc";
888usage = "Adds a filled circle to the current graphic object";
889usage += "\n with the specified center and radius (+ color attribute)";
890usage += "\n The Base/AxesDrawer is used to handle added circles";
891usage += "\n Alt<Z> to remove added elements";
892usage += "\n Usage: addcirc xcenter ycenter radius [ColAtt]";
893usage += "\n Related commands: addtext addline addfrect addfrect addcirc graphicatt";
894mpiac->RegisterCommand(kw, usage, this, "Graphics");
895
896kw = "settitle";
897usage = "Set the title string (top title / bottom title) for the current graphic object";
898usage += "\n Usage: settitle TopTitle [BottomTitle] [fontAtt]";
899usage += "\n Related commands: addtext graphicatt";
900mpiac->RegisterCommand(kw, usage, this, "Graphics");
901
902kw = "addtitle";
903usage = "Set the title string (top title / bottom title) \n";
904usage += " alias for settitle ";
905mpiac->RegisterCommand(kw, usage, this, "Graphics");
906
907kw = "setaxelabels";
908usage = "Set the X and Y axis labels for the current 2D graphic object \n";
909usage += "\n Usage: setaxelabels xLabel yLabel [ColorFntAtt]";
910usage += "\n Related commands: settitle addtext graphicatt";
911mpiac->RegisterCommand(kw, usage, this, "Graphics");
912
913kw = "addaxelabels";
914usage = "Set the X and Y axis labels for the current 2D graphic object";
915usage += " alias for setaxelabels ";
916mpiac->RegisterCommand(kw, usage, this, "Graphics");
917
918RegisterPIGraphicsHelp(mpiac);
919
920kw = "openfits";
921usage = "Loads a FITS file into an apprpiate object \n Usage: openfits filename";
922usage += "\n Related commands: savefits openppf";
923mpiac->RegisterCommand(kw, usage, this, "FileIO");
924kw = "savefits";
925usage = "Save an object into a FITS file \n Usage: savefits nameobj filename";
926usage += "\n Related commands: openfits saveobjs saveall";
927mpiac->RegisterCommand(kw, usage, this, "FileIO");
928kw = "openppf";
929usage = "Reads all objects from a PPF file \n Usage: openppf filename";
930usage += "\n Related commands: saveall openfits";
931mpiac->RegisterCommand(kw, usage, this, "FileIO");
932kw = "saveppf";
933usage = "Saves objects with names matching a pattern into a\n";
934usage += " PPF file (pattern: x?y*) - Alias saveppf\n";
935usage += "Usage: saveppf nameobjpattern filename";
936usage += "\n Related commands: saveobjs saveall openppf savefits";
937mpiac->RegisterCommand(kw, usage, this, "FileIO");
938kw = "saveobjs";
939usage = "Saves objects with names matching a pattern into a\n";
940usage += " PPF file (pattern: x?y*) - Alias saveppf\n";
941usage += "Usage: saveobjs nameobjpattern filename";
942usage += "\n Related commands: saveppf saveall openppf savefits";
943mpiac->RegisterCommand(kw, usage, this, "FileIO");
944kw = "saveall";
945usage = "Saves all objects into a PPF file \n Usage: saveall filename";
946usage += "\n Related commands: saveobj openppf savefits";
947mpiac->RegisterCommand(kw, usage, this, "FileIO");
948kw = "ntfrascii";
949usage = "Fills an existing NTuple from ASCII table file";
950usage += "\n Usage: ntfrascii nt_name file_name [def_init_val]";
951usage += "\n Related commands: ntloop fillnt ";
952mpiac->RegisterCommand(kw, usage, this, "FileIO");
953
954
955kw = "print";
956usage = "Prints an object \n Usage: print nameobj";
957mpiac->RegisterCommand(kw, usage, this, "FileIO");
958
959kw = "mkdir";
960usage = "Create a directory";
961usage += "\n Usage: mkdir dirname [true]";
962usage += "\n if second argument==true, the directory's KeepOld attribute is set to true";
963mpiac->RegisterCommand(kw, usage, this, "Object Management");
964kw = "rmdir";
965usage = "Removes an empty directory";
966usage += "\n Usage: remove dirname";
967mpiac->RegisterCommand(kw, usage, this, "Object Management");
968kw = "setdiratt";
969usage = "Sets directory attributes";
970usage += "\n Usage: setdiratt dirname KeepOldFlag(=true/false)";
971usage += "\n KeepOldFlag=true Object with the same name is moved to old";
972usage += "\n when adding objects";
973mpiac->RegisterCommand(kw, usage, this, "Object Management");
974kw = "cd";
975usage = "Change current directory";
976usage += "\n Usage: cd [dirname]";
977mpiac->RegisterCommand(kw, usage, this, "Object Management");
978kw = "pwd";
979usage = "Prints current directory";
980usage += "\n Usage: pwd";
981mpiac->RegisterCommand(kw, usage, this, "Object Management");
982kw = "listdirs";
983usage = "Prints the list of directories";
984usage += "\n Usage: listdirs [patt=*] \n patt : * , ? ";
985mpiac->RegisterCommand(kw, usage, this, "Object Management");
986kw = "listobjs";
987usage = "Prints the list of objects (Alias: ls)";
988 usage += "\n Usage: listobjs [patt=*] \n patt : /*/x?y* ... ";
989mpiac->RegisterCommand(kw, usage, this, "Object Management");
990kw = "rename";
991usage = "Rename an object (Alias: mv) \n Usage: rename nameobj namenew";
992usage += "\n Related commands: mv del delobjs";
993mpiac->RegisterCommand(kw, usage, this, "Object Management");
994kw = "mv";
995usage = "Rename an object (Alias: rename) \n Usage: mv nameobj namenew";
996usage += "\n Related commands: rename del delobjs";
997mpiac->RegisterCommand(kw, usage, this, "Object Management");
998kw = "copy";
999usage = "Copy objects (Alias cp) \n";
1000usage +=" Usage: copy name_from name_to";
1001usage += "\n Related commands: cp new...";
1002mpiac->RegisterCommand(kw, usage, this, "Object Management");
1003kw = "cp";
1004usage = "Copy objects (Alias copy) \n";
1005usage +=" Usage: cp name_from name_to";
1006usage += "\n Related commands: copy new...";
1007mpiac->RegisterCommand(kw, usage, this, "Object Management");
1008kw = "del";
1009usage = "Deletes an object (Alias: rm) \n Usage: del nameobj [nameobj2 ...]";
1010usage += "\n Related commands: rm delobjs rename";
1011mpiac->RegisterCommand(kw, usage, this, "Object Management");
1012kw = "rm";
1013usage = "Deletes an object (Alias: del) \n Usage: rm nameobj [nameobj2 ...]";
1014usage += "\n Related commands: del delobjs rename";
1015mpiac->RegisterCommand(kw, usage, this, "Object Management");
1016kw = "delobjs";
1017usage = "Delete a set of objects with names matching a pattern (x?y*)";
1018usage += "\n Usage: delobjs nameobjpattern \n";
1019usage += "\n Related commands: del rename";
1020mpiac->RegisterCommand(kw, usage, this, "Object Management");
1021
1022kw = "newh1d";
1023usage = "Creates a 1D histogramm \n Usage: newh1d name xmin xmax nbin";
1024usage += "\n Related commands: newh2d newprof[e] newnt newgfd ";
1025mpiac->RegisterCommand(kw, usage, this, "Objects");
1026kw = "newh2d";
1027usage = "Creates a 2D histogramm \n Usage: newh2d name xmin xmax nbinx ymin ymax nbiny";
1028usage += "\n Related commands: newh1d newprof[e] newnt newgfd ";
1029mpiac->RegisterCommand(kw, usage, this, "Objects");
1030kw = "newprof";
1031usage = "Creates a profile histogramm \n Usage: newprof name xmin xmax nbin [ymin ymax]";
1032usage += "\n Errors represent the data spread in the X bin ";
1033usage += "\n Related commands: newh1d newh2d newprofe newnt newgfd ";
1034mpiac->RegisterCommand(kw, usage, this, "Objects");
1035kw = "newprofe";
1036usage = "Creates a profile histogramm \n Usage: newprofe name xmin xmax nbin [ymin ymax]";
1037usage += "\n Errors represent the error on the data mean in the X bin ";
1038usage += "\n Related commands: newh1d newh2d newprof newnt newgfd ";
1039mpiac->RegisterCommand(kw, usage, this, "Objects");
1040kw = "newnt";
1041usage = "Creates a ntuple \n Usage: newnt name v1 v2 v3 .. vn";
1042usage += "\n newnt name nvar";
1043usage += "\n Related commands: newh1d newh2d newprof[e] newgfd ";
1044mpiac->RegisterCommand(kw, usage, this, "Objects");
1045kw = "newgfd";
1046usage = "Creates GeneralFit Data object \n Usage: newgfd nvar nalloc [errx(0/1)]";
1047usage += "\n Related commands: newh1d newh2d newprof[e] newnt ";
1048mpiac->RegisterCommand(kw, usage, this, "Objects");
1049kw = "newvec";
1050usage = "Creates (and optionaly fills) a vector \n Usage: newvec name size [f(i) [dopt] ] ";
1051usage += "\n Related commands: newmtx";
1052mpiac->RegisterCommand(kw, usage, this, "Objects");
1053kw = "newmtx";
1054usage = "Creates (and optionaly fills) a matrix \n";
1055usage +=" Usage: newmtx name sizeX(Col) sizeY(Lines) [f(i,j) [dopt] ] ";
1056usage += "\n Related commands: newvec";
1057mpiac->RegisterCommand(kw, usage, this, "Objects");
1058
1059kw = "disp";
1060usage = "Displays an object \n Usage: disp nameobj [graphic_attributes]";
1061usage += "\n Related commands: surf nt2d nt3d vecplot";
1062mpiac->RegisterCommand(kw, usage, this, "Obj. Display");
1063kw = "imag";
1064usage = "Displays an object as an image \n Usage: imag nameobj [graphic_attributes]";
1065usage += "\n Related commands: disp surf nt2d nt3d vecplot";
1066mpiac->RegisterCommand(kw, usage, this, "Obj. Display");
1067kw = "surf";
1068usage = "Displays an object as a 3D surface \n Usage: surf nameobj [graphic_attributes]";
1069usage += "\n Related commands: disp nt2d nt3d vecplot";
1070mpiac->RegisterCommand(kw, usage, this, "Obj. Display");
1071kw = "nt2d";
1072usage = "Displays Points (X-Y) [with error-bar / Weight / Label ] from an NTuple ";
1073usage += "\n Usage : nt2d nameobj varx vary [errx erry wt label graphic_attributes]";
1074usage += "\n Related commands: disp surf nt3d gfd2d vecplot";
1075mpiac->RegisterCommand(kw, usage, this, "Obj. Display");
1076kw = "nt3d";
1077usage = "Displays 3D-Points (X-Y-Z) [with error-bars / Weight / Label ] from an NTuple ";
1078usage += "\n Usage : nt3d nameobj varx vary varz [errx erry errz wt label graphic_attributes]";
1079usage += "\n Related commands: disp surf nt2d gfd3d ";
1080mpiac->RegisterCommand(kw, usage, this, "Obj. Display");
1081kw = "vecplot";
1082usage = "Displays Points (X-Y) with coordinates defined by two vectors ";
1083usage += "\n Usage : vecplot nameVecX nameVecY [graphic_attributes]";
1084usage += "\n Related commands: disp nt2d ";
1085mpiac->RegisterCommand(kw, usage, this, "Obj. Display");
1086
1087// Ceci est maintenant obsolete, on garde pour info.
1088kw = "gfd2d";
1089usage = "Displays Points (X-Y) with error-bars from a GeneralFit Data ";
1090usage += "\n Usage : gfd2d nameobj numvarx erreur=(x y xy) [graphic_attributes]";
1091usage += "\n Related commands: gfd3d nt2d nt3d ";
1092usage += "\n ----- OBSOLETE: utilisez nt2d -----";
1093mpiac->RegisterCommand(kw, usage, this, "Obj. Display");
1094kw = "gfd3d";
1095usage = "Displays 3D-Points (X-Y-Z) with error-bars from a GeneralFit Data ";
1096usage += "\n Usage : gfd3d nameobj numvarx numvary erreur=(x y z xy xz yz xyz) [graphic_attributes]";
1097usage += "\n Related commands: gfd2d nt2d nt3d ";
1098usage += "\n ----- OBSOLETE: utilisez nt3d -----";
1099mpiac->RegisterCommand(kw, usage, this, "Obj. Display");
1100
1101kw = "func";
1102usage = "Displays a function y=f(x) (Fills a vector with function values)";
1103usage += "\n Usage: func f(x) xmin xmax [npt graphic_attributes]";
1104usage += "\n Related commands: funcff func2d func2dff ";
1105mpiac->RegisterCommand(kw, usage, this, "Func Plot");
1106kw = "funcff";
1107usage = "Displays a function y=f(x) from a C-file (Fills a vector with function values)";
1108usage += "\n Usage: funcff C-FileName FunctionName xmin xmax [npt graphic_attributes]";
1109usage += "\n Related commands: func func2d func2dff ";
1110mpiac->RegisterCommand(kw, usage, this, "Func Plot");
1111kw = "func2d";
1112usage = "Displays a function z=f(x,y) (Fills a matrix with function values)";
1113usage += "\n Usage: func2d f(x,y) xmin xmax nptx ymin ymax npty [graphic_attributes]";
1114usage += "\n Related commands: func";
1115mpiac->RegisterCommand(kw, usage, this, "Func Plot");
1116kw = "func2dff";
1117usage = "Displays a function z=f(x,y) from a C-file (Fills a matrix with function values)";
1118usage += "\n Usage: func2dff C-FileName FunctionName xmin xmax nptx ymin ymax npty [graphic_attributes]";
1119usage += "\n Related commands: func funcff func2d ";
1120mpiac->RegisterCommand(kw, usage, this, "Func Plot");
1121
1122kw = "ObjectExpressions";
1123usage = "Any mathematical expression (math.h) with object variables can be used";
1124usage += "\n ------ Object Variable names (double) -------- ";
1125usage += "\n- NTuple: ntuple variable names";
1126usage += "\n- Histo1D/HProf: i,x,val,err";
1127usage += "\n- Histo2D: i,j,x,y,val,err";
1128usage += "\n- Vector/Matrix: n,r,c,val,real,imag,mod,phas";
1129usage += "\n- TArray: n,x,y,z,t,u,val,real,imag,mod,phas";
1130usage += "\n- Image: i,j,x,y,val(=pix)";
1131usage += "\n- GeneralFitData: x0,ex0 x1,ex1 ... xn,exn y,ey ok";
1132usage += "\n- LocalMap/SphereThetaPhi/SphereHEALPix: ";
1133usage += "\n- i,k,val,real,imag,mod,phas,teta,phi";
1134usage += "\n- FITS Binary/ASCII table: fits column names";
1135#ifdef SANS_EVOLPLANCK
1136usage += "\n ------ Eros Variable names (double) -------- ";
1137usage += "\n- StarList: x,y,flux,fond,pixmax,flags,";
1138usage += "\n- xref,yref,fluxref,fondref,pixmaxref";
1139#endif
1140usage += "\n ------ Other parameters -------- ";
1141usage += "\nLoop parameters can be specified as I1[:I2[:DI]] for(int i=I1; i<I2; i+=DI)";
1142usage += "\nThe default Cut() expression in true (=1) for all";
1143usage += "\n\n Related commands: plot2d plot2de plot2dw plot3d ";
1144usage += "\n projh1d projh2d projprof fillvec fillmtx ";
1145usage += "\n fillnt fillgd1 fillgd2 ntloop exptovec ... ";
1146mpiac->RegisterCommand(kw, usage, NULL, "Expr. Plotting");
1147kw = "plot2d";
1148usage = "Plots (2D) Y=g(Object) vs. X=f(Object) --- Object Variable names (double) :";
1149usage += "\n Usage: plot2d nameobj f_X() g_Y() [f_Cut() graphic_attributes loop_param]";
1150usage += "\n Related commands: plot2de plot2dw plot3d ObjectExpressions ...";
1151mpiac->RegisterCommand(kw, usage, this, "Expr. Plotting");
1152kw = "plot2de";
1153usage = "Plots (2D) Y=g(Object) vs. X=f(Object) with error bars eX/Y=f_ErrX/Y(Object) ";
1154usage += "\n Usage: plot2de nameobj f_X() g_Y() f_ErrX() f_ErrY() [f_Cut() graphic_attributes loop_param]";
1155usage += "\n Related commands: plot2d plot2dw plot3d ObjectExpressions ...";
1156mpiac->RegisterCommand(kw, usage, this, "Expr. Plotting");
1157kw = "plot2dw";
1158usage = "Plots (2D) Y=g(Object) vs. X=f(Object) with Weight W=h(Object) ";
1159usage += "\n Usage: plot2dw nameobj f_X() g_Y() h_Wt() [Cut() graphic_attributes loop_param]";
1160usage += "\n Related commands: plot2d plot2dw plot3d ObjectExpressions ...";
1161mpiac->RegisterCommand(kw, usage, this, "Expr. Plotting");
1162kw = "plot3d";
1163usage = "Plots (3D) Z=h(Object) vs. Y=g(Object) vs. X=f(Object) vs ";
1164usage += "\n Usage: plot3d nameobj f_X() g_Y() h_Z() [Cut() graphic_attributes loop_param]";
1165usage += "\n Related commands: plot2d plot2dw plot2de plot3d ObjectExpressions ...";
1166mpiac->RegisterCommand(kw, usage, this, "Expr. Plotting");
1167
1168kw = "projh1d";
1169usage = "Projects X=f(Object) with weight WT=h(Object) into a 1D histogram ";
1170usage += "\n Usage: projh1d nameh1d nameobj f_X() [h_WT()=1. Cut() graphic_attributes loop_param]";
1171usage += "\n Histo1D nameh1d is created if necessary ";
1172usage += "\n Related commands: projh2d projprof ObjectExpressions ...";
1173mpiac->RegisterCommand(kw, usage, this, "Expr. Plotting");
1174kw = "projh2d";
1175usage = "Projects (X=f(Object),Y=g(Object)) with weight WT=h(Object) into a 2D histogram ";
1176usage += "\n Usage: projh2d nameh2d nameobj f_X() g_Y() [h_WT()=1. Cut() graphic_attributes loop_param]";
1177usage += "\n Histo2D nameh2d is created if necessary ";
1178usage += "\n Related commands: projh1d projprof ObjectExpressions ...";
1179mpiac->RegisterCommand(kw, usage, this, "Expr. Plotting");
1180kw = "projprof";
1181usage = "Projects (X=f(Object),Y=g(Object)) with weight WT=h(Object) into a profile histogram ";
1182usage += "\n Usage: projprof nameprof nameobj f_X() g_Y() [h_WT()=1. Cut() graphic_attributes loop_param]";
1183usage += "\n HProf nameprof is created if necessary ";
1184usage += "\n Related commands: projh1d projh2d ObjectExpressions ...";
1185mpiac->RegisterCommand(kw, usage, this, "Expr. Plotting");
1186kw = "fillvec";
1187usage = "Fills a Vector V((int)(f_X(Object)+0.5)) = h_V(Object) ";
1188usage += "\n Usage: fillvec namevec nameobj f_X() h_V() [Cut() graphic_attributes loop_param]";
1189usage += "\n Related commands: fillmtx fillnt ObjectExpressions ...";
1190mpiac->RegisterCommand(kw, usage, this, "Expr. Plotting");
1191kw = "fillmtx";
1192usage = "Fills a Matrix M(Line=g_Y(Object)+0.5, Col=f_X(Object)+0.5)) = h_V(Object) ";
1193usage += "\n Usage: fillvec namevec nameobj f_X() g_Y() h_V() [Cut() graphic_attributes loop_param]";
1194usage += "\n Related commands: fillvec fillnt ObjectExpressions ...";
1195mpiac->RegisterCommand(kw, usage, this, "Expr. Plotting");
1196
1197kw = "fillnt";
1198usage = "Creates and Fills an NTuple(x,y,z,t) with (X=f(Object),Y=g(...),Z=h(...),T=k(...))";
1199usage += "\n Usage: fillnt nameobj f_X() g_Y() h_Z() k_T() [Cut() nameNt loop_param]";
1200usage += "\n Related commands: ntloop plot2d projh1d projh2d projprof ";
1201usage += "\n Related commands: fillvec fillmtx ntloop exptovec fillgd1 fillgd2 ObjectExpressions ...";
1202mpiac->RegisterCommand(kw, usage, this, "Expr. Plotting");
1203
1204kw = "ntloop";
1205usage = "Loops over an Object NTupleInterface calling a function from a C-file \n";
1206usage += "and optionaly fills an NTuple(x,y,z,t) with (X=f(Object),Y=g(...),Z=h(...),T=k(...))";
1207usage += "\n Usage: ntloop nameobj CFileName FuncName [NtupleName loop_param]";
1208usage += "\n Related commands: fillvec fillmtx fillnt fillgd1 fillgd2 exptovec ObjectExpressions ...";
1209usage += "\n Related commands: ntexpcfile fillnt";
1210mpiac->RegisterCommand(kw, usage, this, "Expr. Plotting");
1211
1212kw = "ntexpcfile";
1213usage = "Creates a C-File with declarations suitable to be used for ntloop";
1214usage += "\n Usage: ntexpcfile nameobj CFileName FuncName ";
1215usage += "\n Related commands: ntloop";
1216mpiac->RegisterCommand(kw, usage, this, "Expr. Plotting");
1217
1218kw = "exptovec";
1219usage = "Creates and Fills a Vector with X=f(Object)";
1220usage += "\n Usage: exptovec namevec nameobj f_X() [Cut() graphic_attributes loop_param]";
1221usage += "\n Related commands: ntloop fillnt ObjectExpressions ...";
1222mpiac->RegisterCommand(kw, usage, this, "Expr. Plotting");
1223kw = "fillgd1";
1224usage = "Creates and Fills a GeneralFitData with (X=f(Object), Y=g(...), ErrY=h(...))";
1225usage += "\n Usage: fillgd1 namegfd nameobj f_X() g_Y() h_ErrY() [Cut() loop_param]";
1226usage += "\n Related commands: ntloop fillnt ObjectExpressions ...";
1227mpiac->RegisterCommand(kw, usage, this, "Expr. Plotting");
1228kw = "fillgd2";
1229usage = "Creates and Fills a GeneralFitData with (X=f(Object), Y=g(...), Z=h(...)) ErrZ=k(...)";
1230usage += "\n Usage: fillgd1 namegfd nameobj f_X() g_Y() h_Z() k_ErrZ() [Cut() loop_param]";
1231usage += "\n Related commands: ntloop fillnt ObjectExpressions ...";
1232mpiac->RegisterCommand(kw, usage, this, "Expr. Plotting");
1233kw = "gdfrvec";
1234usage = "Fills a GeneralFitData with vectors X,Y,Z,EZ";
1235usage += "\n Usage: gdfrvec namegfd X Y";
1236usage += "\n Usage: gdfrvec namegfd X Y ! EY";
1237usage += "\n Usage: gdfrvec namegfd X Y Z";
1238usage += "\n Usage: gdfrvec namegfd X Y Z EZ";
1239usage += "\n Related commands: fillgd1 fillgd2 ...";
1240mpiac->RegisterCommand(kw, usage, this, "Expr. Plotting");
1241
1242
1243kw = "eval";
1244usage = "Compute arithmetic expression\n";
1245usage += "\n Usage: eval resultvarname arithmetic expression....";
1246usage += "\n resultvarname: store result in variable resultvarname";
1247usage += "\n - If first character is not alphabetic, just print result";
1248usage += "\n arithmetic expression:";
1249usage += "\n ex: x + sqrt(y)+z +3.14 (x,y,z are variables)";
1250usage += "\n ex: $x + sqrt($y)+$z +3.14 (x,y,z are variables)";
1251usage += "\n ex: 360 * M_PI / 180.";
1252mpiac->RegisterCommand(kw, usage, this, "Expr. Arithmetic");
1253
1254}
1255
1256/* --Methode-- */
1257int PIABaseExecutor::LinkUserFuncs(string& fnameso, string& func1, string& func2, string& func3)
1258// string& func4, string& func5)
1259{
1260string cmd;
1261
1262if (dynlink) delete dynlink; dynlink = NULL;
1263usfmap.clear();
1264
1265dynlink = new PDynLinkMgr(fnameso, true);
1266if (dynlink == NULL) {
1267 string sn = fnameso;
1268 cerr << "PIABaseExecutor/LinkUserFuncs_Erreur: Erreur ouverture SO " << sn << endl;
1269 return(2);
1270 }
1271
1272int nok=0;
1273// on utilise donc des DlFunction (Reza 20/08/98) voir commentaire ds .h (pb g++)
1274// DlUserProcFunction f = NULL;
1275DlFunction f = NULL;
1276if ((func1.length() < 1) || (func1 == "-") || (func1 == ".") ) goto fin;
1277// f = (DlUserProcFunction) dlsym(dlhandle, func1.c_str());
1278f = dynlink->GetFunction(func1);
1279if (f) { nok++; usfmap[func1] = f; }
1280else cerr << "PIABaseExecutor/LinkUserFuncs_Erreur: Erreur linking " << func1 << endl;
1281
1282if ((func2.length() < 1) || (func2 == "-") || (func2 == ".") ) goto fin;
1283// f = (DlUserProcFunction) dlsym(dlhandle, func2.c_str());
1284f = dynlink->GetFunction(func2);
1285if (f) { nok++; usfmap[func2] = f; }
1286else cerr << "PIABaseExecutor/LinkUserFuncs_Erreur: Erreur linking " << func2 << endl;
1287
1288if ((func3.length() < 1) || (func3 == "-") || (func3 == ".") ) goto fin;
1289// f = (DlUserProcFunction) dlsym(dlhandle, func3.c_str());
1290f = dynlink->GetFunction(func3);
1291if (f) { nok++; usfmap[func3] = f; }
1292else cerr << "PIABaseExecutor/LinkUserFuncs_Erreur: Erreur linking " << func3 << endl;
1293
1294/* Pb compile g++ 2.7.2
1295if ((func4.length() < 1) || (func4 == "-") || (func4 == ".") ) goto fin;
1296// f = (DlUserProcFunction) dlsym(dlhandle, func4.c_str());
1297f = dynlink->GetFunction(func4);
1298if (f) { nok++; usfmap[func4] = f; }
1299else cerr << "PIABaseExecutor/LinkUserFuncs_Erreur: Erreur linking " << func4 << endl;
1300
1301if ((func5.length() < 1) || (func5 == "-") || (func5 == ".") ) goto fin;
1302// f = (DlUserProcFunction) dlsym(dlhandle, func5.c_str());
1303f = dynlink->GetFunction(func5);
1304if (f) { nok++; usfmap[func5] = f; }
1305else cerr << "PIABaseExecutor/LinkUserFuncs_Erreur: Erreur linking " << func5 << endl;
1306*/
1307fin:
1308if (nok < 1) { if (dynlink) delete dynlink; dynlink = NULL; return(3); }
1309else return(0);
1310}
1311
1312/* --Methode-- */
1313int PIABaseExecutor::LinkUserFuncs2(string& fnameso, string& func1, string& func2, string& func3)
1314{
1315string cmd;
1316
1317if (dynlink2) delete dynlink2; dynlink2 = NULL;
1318usfmap2.clear();
1319
1320dynlink2 = new PDynLinkMgr(fnameso, true);
1321if (dynlink2 == NULL) {
1322 string sn = fnameso;
1323 cerr << "PIABaseExecutor/LinkUserFuncs2_Erreur: Erreur ouverture SO " << sn << endl;
1324 return(2);
1325 }
1326
1327int nok=0;
1328// on utilise donc des DlFunction (Reza 20/08/98) voir commentaire ds .h (pb g++)
1329// DlUserProcFunction f = NULL;
1330DlFunction f = NULL;
1331if ((func1.length() < 1) || (func1 == "-") || (func1 == ".") ) goto fin;
1332f = dynlink2->GetFunction(func1);
1333if (f) { nok++; usfmap2[func1] = f; }
1334else cerr << "PIABaseExecutor/LinkUserFuncs2_Erreur: Erreur linking " << func1 << endl;
1335
1336if ((func2.length() < 1) || (func2 == "-") || (func2 == ".") ) goto fin;
1337f = dynlink2->GetFunction(func2);
1338if (f) { nok++; usfmap2[func2] = f; }
1339else cerr << "PIABaseExecutor/LinkUserFuncs2_Erreur: Erreur linking " << func2 << endl;
1340
1341if ((func3.length() < 1) || (func3 == "-") || (func3 == ".") ) goto fin;
1342f = dynlink2->GetFunction(func3);
1343if (f) { nok++; usfmap2[func3] = f; }
1344else cerr << "PIABaseExecutor/LinkUserFuncs2_Erreur: Erreur linking " << func3 << endl;
1345
1346fin:
1347if (nok < 1) { if (dynlink2) delete dynlink2; dynlink2 = NULL; return(3); }
1348else return(0);
1349}
1350
1351/* Nouvelle-Fonction */
1352void RegisterPIGraphicsHelp(PIACmd* piac)
1353{
1354string kw,grp,usage;
1355
1356grp = "Graphics";
1357
1358kw = "PIImage";
1359usage = "Manages the display of a 2-D array (P2DArrayAdapter) as an image \n";
1360usage += "and controls a zoom widget, as well as a global image view widget \n";
1361usage += ">>>> Mouse controls : \n";
1362usage += "o Button-1: Display current coordinates and pixel value\n";
1363usage += " Position the cursor an refresh the zoom widget\n";
1364usage += "o Button-2: Defines an image zone and positions the cursor \n";
1365usage += "o Button-3: Moves the viewed portion of the array inside the window \n";
1366usage += ">>>> Keyboard controls : \n";
1367usage += "o <Alt>R : Refresh display \n";
1368usage += "o <Alt>O : Shows the PIImageTools (image display parameter controls) \n";
1369usage += "o <Alt>G : Show the PIDrawerTools (Graphic attributes of overlayed graphics (Drawers)) \n";
1370usage += "o <Alt>V : Copy/Paste / Text paste at the current cursor position \n";
1371usage += "o <Alt>C : Copy/Paste / Copies the selected regions content as text in the copy/paste buffer \n";
1372usage += "o <Alt>X : Show/Hide the Cut Window \n";
1373usage += "o <Alt>Z : Removes signs overlayed on image (Drawer 0) \n";
1374usage += "o <Alt>+ or <Cntl>+ : Zoom in \n";
1375usage += "o <Alt>- or <Cntl>- : Zoom out \n";
1376usage += "o Cursor keys : Moves the image cursor \n";
1377piac->RegisterHelp(kw, usage, grp);
1378
1379kw = "PIScDrawWdg";
1380usage = "Manages display of 2-D drawers with interactive zoom \n";
1381usage += ">>>> Mouse controls : \n";
1382usage += "o Button-1: Display current coordinates \n";
1383usage += "o Button-2: Defines a rectangle for zoom \n";
1384usage += "o Button-3: Defines a rectangle for Text-Info (<Alt>I) \n";
1385usage += ">>>> Keyboard controls : \n";
1386usage += "o <Alt>R : Refresh display \n";
1387usage += "o <Alt>O : Displays a specific control window (default: PIDrawerTools) \n";
1388usage += " Specific controls for 2-D histograms \n";
1389usage += "o <Alt>G : Show the PIDrawerTools (Graphic attributes of displayed Drawers) \n";
1390usage += " Drawer 0 manages the axes, as well as the added text \n";
1391usage += "o <Alt>V : Copy/Paste / Text paste at the current position \n";
1392usage += "o <Alt>Z : Removes added signs (text) to Drawer 0 \n";
1393usage += "o <Alt>I : Shows (or updates) a text info window on the selected rectangle \n";
1394usage += "o <Alt>M : Activate/Deactivate a measurement cursor on Button-1\n";
1395usage += "o <Alt>L : Deactivate DX,DY print (see below)\n";
1396usage += ">>>> Mouse + Keyboard controls : \n";
1397usage += "o Button-1 + <Alt>K : Set (reset) the reference point for DX,DY print \n";
1398piac->RegisterHelp(kw, usage, grp);
1399
1400kw = "PIDraw3DWdg";
1401usage = "Manages display of 3-D objects (drawers) \n";
1402usage += ">>>> Mouse controls : \n";
1403usage += "o Button-2: Rotates the observer (camera) around object \n";
1404usage += "o Shift-Button-2: Rotates object with camera fixed \n";
1405usage += " The object rotation mode can be assigned to Button-2 with <Alt>S \n";
1406usage += "o Button-3: Zoom control (Camera distance And/Or view angle) \n";
1407usage += ">>>> Keyboard controls : \n";
1408usage += "o <Alt>R : Resets the 3-D view and refreshes the display \n";
1409usage += "o <Alt>G : Show the PIDrawerTools (Graphic attributes of displayed Drawers) \n";
1410usage += "o <Alt>O : = <Alt>G \n";
1411usage += "o <Alt>V : Copy/Paste / Text paste at the current position (Drawer 0)\n";
1412usage += "o <Alt>Z : Removes added signs (text) to Drawer 0 \n";
1413usage += "o <Alt>A : Activate/Deactivate axes drawing \n";
1414usage += "o <Alt>S : Activate/Deactivate object rotation mode on Button-2 \n";
1415piac->RegisterHelp(kw, usage, grp);
1416
1417kw = "Windows";
1418usage = "Objects can be displayed in different windows, or overlayed on the \n";
1419usage += "previous display. The graphics attributes next,win,stack,same control \n";
1420usage += "the display window. \n";
1421usage += "o GraphicWindow : This is the default mode (gr_att=next)\n";
1422usage += " Graphic windows can be divided int zones. Object is displayed \n";
1423usage += " in the next available position, removing a previously displayed \n";
1424usage += " widget if necessary \n";
1425usage += "o Window : An object is displayed in its own window (gr_att= win) \n";
1426usage += "o StackWindow : multpile widgets can be stacked in a StackWindow (gr_att= stack) \n";
1427usage += " A single widget is displayed a any time. Different widgets in a StackWindow \n";
1428usage += " can be displayed using the stacknext command, as well as the StackTools item \n";
1429usage += " in the Tools menu (from Menubar). An automatic cyclic display mode can also \n";
1430usage += " be activated using the StackTools menu (Blink) \n";
1431usage += "o Most objects can be also be displayed overlayed \n";
1432usage += " on the last displayed widget (gr_att= same) \n";
1433usage += "o The overlay can be on a selected rectangle of the \n";
1434usage += " last displayed widget (gr_att= inset) - See setinsetlimits\n";
1435usage += "\n Related commands: newwin zone stacknext graphicatt setinsetlimits";
1436piac->RegisterHelp(kw, usage, grp);
1437
1438kw = "PIConsole";
1439usage = "Text output area and command editing window (console) \n";
1440usage += ">>>> Mouse controls : \n";
1441usage += "o Button-1: Rectangle selection for copy/paste \n";
1442usage += "o Button-2: Paste text in the command editing line \n";
1443usage += "o Button-3: activate display option menu \n";
1444usage += ">>>> Keyboard controls : \n";
1445usage += "o <Alt>O : activate display option menu \n";
1446usage += "o <Alt>V : Paste text in the command editing line \n";
1447usage += "o <Alt>A : Selection of the whole window for copy \n";
1448usage += "o <Alt>L : Command history (List of command history buffer) \n";
1449usage += "o <Ctl>A : Command editing -> Goto the beginning of line \n";
1450usage += "o <Ctl>E : Command editing -> Goto the end of line \n";
1451usage += "o <Ctl>K : Command editing -> Clear to the end of line \n";
1452usage += "o <Ctl>C : Command editing -> Clear the line \n";
1453usage += "o Cursor left,right : Command editing -> Move cursor \n";
1454usage += "o Cursor Up,Down : recall command from history buffer \n";
1455usage += "o Backspace,Del : Command editing \n";
1456usage += "o <Return>,<Enter> : Execute command \n";
1457piac->RegisterHelp(kw, usage, grp);
1458}
Note: See TracBrowser for help on using the repository browser.