removed myTclEval
[dyninst.git] / visiClients / barchart / dg2.C
1 // dg2.C
2 // customized (for barchart) version of DGclient.C in tclVisi directory
3
4 /* $Log: dg2.C,v $
5 /* Revision 1.12  1995/11/29 00:40:07  tamches
6 /* removed myTclEval
7 /*
8  * Revision 1.11  1995/11/17 17:39:32  newhall
9  * changed Dg start command, and call to GetMetsRes
10  *
11  * Revision 1.10  1995/11/17  17:32:27  newhall
12  * changed Dg start command to take no arguments, replaced call to MetricUnits
13  * with call to MetricLabel
14  *
15  * Revision 1.9  1995/09/22  19:23:41  tamches
16  * removed warnings under g++ 2.7.0
17  *
18  * Revision 1.8  1995/08/06  22:11:48  tamches
19  * removed some warnings by using myTclEval
20  *
21  * Revision 1.7  1995/02/26  02:01:48  newhall
22  * added callback functions for new visiLib phase info.
23  *
24  * Revision 1.6  1994/11/06  10:24:04  tamches
25  * minor cleanups (especially commenting)
26  *
27  * Revision 1.5  1994/10/11  21:59:47  tamches
28  * Removed extra StartVisi() bug.
29  * Implemented dataGrid[][].Enabled()
30  *
31  * Revision 1.4  1994/10/10  23:08:47  tamches
32  * preliminary changes on the way to swapping the x and y axes
33  *
34  * Revision 1.3  1994/10/10  14:36:18  tamches
35  * fixed some resizing bugs
36  *
37  * Revision 1.2  1994/09/29  20:05:39  tamches
38  * minor cvs fixes
39  *
40  * Revision 1.1  1994/09/29  19:52:25  tamches
41  * initial implementation.
42  * This is a modified version of DGclient.C (tclVisi/src), specially
43  * tuned for the barchart program.
44  *
45 */
46
47 // An updated version of DGClient.C for barchart2.C
48 // Contains several **deletions** to remove blt_barchart influences
49
50 #include <stdlib.h> // exit()
51 #include <iostream.h>
52
53 #include "tclclean.h"
54 #include "tkclean.h"
55 #include "tkTools.h" // myTclEval()
56
57 #include "dg2.h"
58 #include "visi/h/visualization.h"
59 #include "barChartTcl.h"
60 #include "barChart.h"
61
62 void my_visi_callback(void*, int*, long unsigned int*) {
63    if (visi_callback() == -1)
64       exit(0);
65 }
66
67 //void myTclEval(Tcl_Interp *interp, const char *cmd) {
68 //   if (TCL_OK != Tcl_Eval(interp, cmd)) {
69 //      cerr << interp->result << endl;
70 //      exit(5);
71 //   }
72 //}
73
74 int Dg2AddMetricsCallback(int) {
75    myTclEval(MainInterp, "DgConfigCallback");
76
77    // if necessary, the tcl program will call xAxisHasChanged and/or
78    // yAxisHasChanged, which are commands we implement in barChart.C.
79    // We take action then.
80
81    return TCL_OK;
82 }
83
84 int Dg2Fold(int) {
85    myTclEval(MainInterp, "DgFoldCallback");
86    return TCL_OK;
87 }
88
89 int Dg2InvalidMetricsOrResources(int) {
90    myTclEval(MainInterp, "DgInvalidCallback");
91    return TCL_OK;
92 }
93
94 int Dg2PhaseNameCallback(int) {
95    myTclEval(MainInterp, "DgPhaseCallback");
96    return TCL_OK;
97 }
98
99 #define   AGGREGATE        0
100 #define   BINWIDTH         1
101 #define   FOLDMETHOD       2
102 #define   METRICNAME       3
103 #define   METRICUNITS      4
104 #define   NUMBINS          5
105 #define   NUMMETRICS       6
106 #define   NUMRESOURCES     7
107 #define   DEFINEPHASE      8
108 #define   RESOURCENAME     9
109 #define   STARTSTREAM      10
110 #define   STOPSTREAM       11
111 #define   DGSUM            12
112 #define   DGVALID          13
113 #define   DGENABLED        14
114 #define   VALUE            15
115 #define   CMDERROR         16
116 #define   LASTBUCKET       17
117 #define   FIRSTBUCKET      18
118
119 struct cmdTabEntry {
120    const char *cmdname;
121    int index;
122    int numargs;
123 };
124
125 static struct cmdTabEntry Dg_Cmds[] = {
126   {"aggregate",    AGGREGATE,       2},
127   {"binwidth",     BINWIDTH,        0},
128   {"firstbucket",  FIRSTBUCKET,     2},
129   {"foldmethod",   FOLDMETHOD,      2},
130   {"lastbucket",   LASTBUCKET,      2},
131   {"metricname",   METRICNAME,      1},
132   {"metricunits",  METRICUNITS,     1},
133   {"numbins",      NUMBINS,         0},
134   {"nummetrics",   NUMMETRICS,      0},
135   {"numresources", NUMRESOURCES,    0},
136   {"phase",        DEFINEPHASE,     3},
137   {"resourcename", RESOURCENAME,    1},
138   {"start",        STARTSTREAM,     0},
139   {"stop",         STOPSTREAM,      2},
140   {"sum",          DGSUM,           2},
141   {"valid",        DGVALID,         2},
142   {"enabled",      DGENABLED,       2},
143   {"value",        VALUE,           3},
144   {NULL,           CMDERROR,        0}
145 };
146
147 int findCommand(Tcl_Interp *interp, 
148                        int argc, 
149                        char *argv[]) {
150
151   if (argc == 0) {
152      sprintf(interp->result, "USAGE: Dg <option> [args...]\n");
153      return CMDERROR;
154   }
155
156   for (cmdTabEntry *C = Dg_Cmds; C->cmdname!=NULL; C++) {
157      if (strcmp(argv[0], C->cmdname) == 0) {
158         if (argc-1 == C->numargs) 
159            return C->index; // successful parsing
160
161         sprintf(interp->result, 
162               "%s: wrong number of args (%d). Should be %d\n",
163               argv[0], argc-1, C->numargs);
164         return CMDERROR;
165      }
166   }
167
168   sprintf(interp->result, "unknown option (%s)\n", argv[0]);
169   return CMDERROR;
170 }
171
172 int Dg_TclCommand(ClientData,
173                   Tcl_Interp *interp, 
174                   int argc, char *argv[]) {
175   // entrypoint to the tcl "Dg" command we've installed
176   // all the sprintf()'s are rather slow...
177
178   // parse the arguments, using global vrble Dg_Cmds[] to tell what's what.
179   int cmdDex = findCommand(interp, argc-1, argv+1);
180   if (cmdDex == CMDERROR)
181     return TCL_ERROR;
182
183   int m, r, buck; // metric number, resource number, bucket number
184
185   switch(cmdDex) {
186   case AGGREGATE:   
187     m = atoi(argv[2]);
188     r = atoi(argv[3]);
189     sprintf(interp->result,"%g", dataGrid.AggregateValue(m,r));
190     return TCL_OK;
191
192   case BINWIDTH:     
193     sprintf(interp->result, "%g", dataGrid.BinWidth());
194     return TCL_OK;
195
196   case FIRSTBUCKET:
197     m = atoi(argv[2]);
198     r = atoi(argv[3]);
199     sprintf(interp->result,"%d", dataGrid[m][r].FirstValidBucket()); 
200     return TCL_OK;
201
202   case FOLDMETHOD:
203     m = atoi(argv[2]);
204     sprintf(interp->result,"%d", dataGrid.FoldMethod(m));
205     return TCL_OK;
206
207   case LASTBUCKET:
208     m = atoi(argv[2]);
209     r = atoi(argv[3]);
210     sprintf(interp->result,"%d", dataGrid[m][r].LastBucketFilled());
211     return TCL_OK;
212
213   case METRICNAME:  
214     m = atoi(argv[2]);
215     sprintf(interp->result, "%s", dataGrid.MetricName(m));
216     return TCL_OK;
217
218   case METRICUNITS:  
219     m = atoi(argv[2]);
220     sprintf(interp->result, "%s", dataGrid.MetricLabel(m));
221     return TCL_OK;
222
223   case NUMBINS:     
224     sprintf(interp->result, "%d", dataGrid.NumBins());
225     return TCL_OK;
226
227   case NUMMETRICS:  
228     sprintf(interp->result, "%d", dataGrid.NumMetrics());
229     return TCL_OK;
230
231   case NUMRESOURCES:
232     sprintf(interp->result, "%d", dataGrid.NumResources());
233     return TCL_OK;
234
235   case DEFINEPHASE:       
236     DefinePhase(-1.0,NULL);
237     return TCL_OK;
238
239   case RESOURCENAME:
240     r = atoi(argv[2]);
241     sprintf(interp->result, "%s", dataGrid.ResourceName(r));
242     return TCL_OK;
243
244   case STARTSTREAM:       
245     GetMetsRes(); 
246     return TCL_OK;
247
248   case STOPSTREAM:
249     m = atoi(argv[2]);
250     r = atoi(argv[3]);
251     StopMetRes(m, r);
252     return TCL_OK;
253
254   case DGSUM:         
255     m = atoi(argv[2]);
256     r = atoi(argv[3]);
257     sprintf(interp->result,"%g", dataGrid.SumValue(m,r));
258     return TCL_OK;
259
260   case DGVALID:
261     m = atoi(argv[2]);
262     r = atoi(argv[3]);
263     sprintf(interp->result, "%d", dataGrid.Valid(m,r));
264     return TCL_OK;
265
266   case DGENABLED:
267     m = atoi(argv[2]);
268     r = atoi(argv[3]);
269     sprintf(interp->result, "%d", dataGrid[m][r].Enabled());
270 //    sprintf(interp->result, "%d", dataGrid.Enabled(m,r));
271     return TCL_OK;
272
273   case VALUE:       
274     m = atoi(argv[2]);
275     r = atoi(argv[3]);
276     buck = atoi(argv[4]);
277     sprintf(interp->result,"%g", dataGrid[m][r].Value(buck));
278     return TCL_OK;
279   }
280
281   sprintf(interp->result, "Internal error (func findCommand)\n");
282   return TCL_ERROR;
283 }
284
285 void (*UsersNewDataCallbackRoutine)(int firstBucket, int lastBucket);
286    // we will call this routine for you when we get a new-data callback
287    // from the visi lib (first, we do a bit of processing for you, such
288    // as determining what the range is buckets you haven't seen yet is).
289
290 int Dg2_Init(Tcl_Interp *interp) {
291    // initialize with the visi lib
292    int fd = VisiInit();
293    if (fd < 0) {
294       cerr << "Dg2_Init() -- could not initialize with the visi lib" << endl;
295       exit(5);
296    }
297
298    // Register C++ Callback routines with the visi lib when
299    // certain events happen.  The most important (performance-wise)
300    // is the DATAVALUES callback, which signals the arrival of
301    // new barchart data.  We must process this callback very quickly,
302    // in order to perturb the system as little as possible.
303
304    if (RegistrationCallback(ADDMETRICSRESOURCES, Dg2AddMetricsCallback) != 0)
305       panic("Dg2_Init() -- couldn't install ADDMETRICSRESOURCES callback");
306
307    if (RegistrationCallback(FOLD, Dg2Fold) != 0)
308       panic("Dg2_Init() -- couldn't install FOLD callback");
309
310    if (RegistrationCallback(INVALIDMETRICSRESOURCES, Dg2InvalidMetricsOrResources) != 0)
311       panic("Dg2_Init() -- couldn't install INVALID callback");
312
313    if (RegistrationCallback(PHASESTART, Dg2PhaseNameCallback) != 0)
314       panic("Dg2_Init() -- couldn't install PHASENAME callback");
315
316    if (RegistrationCallback(DATAVALUES, Dg2NewDataCallback) != 0)
317       panic("Dg2_Init() -- couldn't install DATAVALUES callback");
318
319    // install "Dg" as a new tcl command; Dg_TclCommand() will be invoked when
320    // a tcl script calls Dg
321    Tcl_CreateCommand(interp, "Dg", Dg_TclCommand, 
322                     (ClientData *) NULL,(Tcl_CmdDeleteProc *) NULL);
323  
324    // Arrange for my_visi_callback() to be called whenever data is waiting
325    // to be read off of descriptor "fd".  Extremely important! [tcl book
326    // page 357]
327    Tk_CreateFileHandler(fd, TK_READABLE, (Tk_FileProc *) my_visi_callback, 0);
328
329    return TCL_OK;
330 }