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

Last change on this file since 2268 was 2268, checked in by ansari, 23 years ago

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