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

Last change on this file since 1316 was 1276, checked in by ercodmgr, 25 years ago

Amelioration de la syntaxe de l'interpreteur, gestion de quotes, ligne suite
Commande linkff2 (2eme groupe de link, pour utilisation par CxxExecutor
Amelioration de la gestion de TMPDIR

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