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

Last change on this file since 1938 was 1938, checked in by cmv, 24 years ago

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