--- /dev/null
+/* ------------------------------------------------------------------------
+ * $Id: main.c,v 1.4 2005/12/02 12:45:16 simonmar Exp $
+ *
+ * Copyright (C) 1995-2000 University of Oxford
+ *
+ * Permission to use, copy, modify, and distribute this software,
+ * and to incorporate it, in whole or in part, into other software,
+ * is hereby granted without fee, provided that
+ * (1) the above copyright notice and this permission notice appear in
+ * all copies of the source code, and the above copyright notice
+ * appear in clearly visible form on all supporting documentation
+ * and distribution media;
+ * (2) modified versions of this software be accompanied by a complete
+ * change history describing author, date, and modifications made;
+ * and
+ * (3) any redistribution of the software, in original or modified
+ * form, be without fee and subject to these same conditions.
+ * --------------------------------------------------------------------- */
+
+#include "ghcconfig.h"
+
+#include <stdio.h>
+
+#if HAVE_UNISTD_H
+#include <unistd.h>
+#endif
+#if HAVE_STRING_H
+#include <string.h>
+#endif
+
+#include "symbol.h"
+#include "cgprof.h"
+#include "matrix.h"
+#include "daVinci.h"
+
+#if HAVE_WINDOWS_H
+#include <windows.h>
+#define sleep(x) Sleep((x)*1000)
+#endif
+
+
+#define NoDeletes 80
+
+int CriticalPath=CRITICAL_SYNCS;
+int CriticalType=CRITTYPE_ABSOLUTE;
+int Verbose=1;
+int NodeviewTime=1;
+int NodeviewCompress=1;
+int PrintLogo=1;
+int Colour=1;
+int DeltaNormalise=1;
+int PieView=TCL_COMP;
+int PieCombine=0;
+char *Pgm;
+char *ProfileData;
+int NoNodes,root;
+char usage[]="usage: cgprof profile-data [See man 1 cgprof]";
+char helpUrl[]="http://www.dcs.warwick.ac.uk/people/academic/Stephen.Jarvis/profiler/";
+Matrix graph; /* NoNodes x NoNodes matrix of integers */
+Matrix costs; /* NoNodes x 1 matrix of costs */
+
+double TotalComp, TotalComm, TotalCompIdle;
+int TotalSyncs;
+long int TotalH;
+
+char *dateProfiled, *machineName;
+double minNodeSize = 0.01; /* i.e, don't show nodes with _combined_
+ comp and comm % less than this */
+double bsp_s = 74.0;
+double bsp_l = 1902;
+double bsp_g = 9.3;
+int bsp_p;
+
+FILE *logFile;
+
+
+extern void printDaVinci(int);
+
+int
+main(int argc, char *argv[]) {
+ char davinci_stdin[MAX_PROFILE_LINE_LENGTH];
+ FILE *fptr;
+ int i,j,k,going=1,*select_nodes, select_nodes_next,MaxNoNodes;
+ davinciCmd cmd;
+ int *undo_stack, undo_stack_next;
+ float temp_f;
+ char *ptr;
+ int mode = 0;
+ char *tempstring = malloc (80);
+ char *tempstring2 = malloc (80);
+
+
+ /* printf("Starting main routine of browser script\n"); */
+ /* fflush(stderr); */
+
+ if (argc!=14) {
+ fprintf(stderr,"The perl script bspsgprof is buggered\n");
+ exit(1);
+ }
+
+ /* Most (if not all) of these BSP specific arguments can be removed */
+
+ Pgm = argv[0];
+ ProfileData = argv[1];
+ bsp_p = atoi(argv[2]);
+ machineName = argv[3];
+ dateProfiled= argv[4];
+ sscanf(argv[5],"%f",&temp_f);
+ bsp_s = temp_f;
+ sscanf(argv[6],"%f",&temp_f);
+ bsp_l = temp_f;
+ sscanf(argv[7],"%f",&temp_f);
+ bsp_g = temp_f;
+ sscanf(argv[8],"%f",&temp_f);
+ minNodeSize=temp_f;
+ Verbose = atoi(argv[9]);
+ PrintLogo=atoi(argv[10]);
+ Colour=atoi(argv[11]);
+ DeltaNormalise=atoi(argv[12]);
+ MaxNoNodes=atoi(argv[13]);
+
+ /* printf("Initialisation done\n"); */
+
+ if (Verbose) sleep(10);
+ if (!(fptr=fopen(ProfileData,"r"))) {
+ fprintf(stderr,"%s: unable to open profile data in \"%s\".\n%s\n",
+ Pgm,ProfileData,usage);
+ exit(1);
+ }
+ if (!(logFile=fopen("ghcprof.log","w"))) {
+ fprintf(stderr,"%s: unable to open log file for writing\n",Pgm);
+ exit(1);
+ }
+
+ /* printf("Files opened OK\n"); */
+
+ if (!fgets(davinci_stdin, MAX_PROFILE_LINE_LENGTH, stdin) ||
+ strcmp(davinci_stdin,"ok\n")) {
+ fprintf(stderr,"%s{%s}: failed to receive ok from daVinci.\n",
+ davinci_stdin,Pgm);
+ exit(1);
+ }
+
+ /* printf("Initialising daVinci\n"); */
+
+ initDaVinci();
+
+ /* printf("Ending initialisation of daVinci\n"); */
+
+ if (Verbose) fprintf(logFile,"%s: opened profile file \"%s\".\n",Pgm,ProfileData);
+ readRawProfile(fptr,&NoNodes,MaxNoNodes);
+ fclose(fptr);
+ if (Verbose) fprintf(logFile,"%s: %d nodes in profile.\n",Pgm,NoNodes);
+
+ if (NoNodes<=0) {
+ fprintf(logFile,"%s: no call-graph profile data in \"%s\".\n"
+ "Re-run your program using the appropriate profiling flags\n",
+ Pgm,ProfileData);
+ exit(1);
+ }
+ if (Verbose) printRawProfile();
+
+ /* Do we want INHERITANCE to begin with or not? Set to yes. */
+ createConnectivityMatrix(NoNodes,&graph,&costs,&root,1);
+
+ TotalComp = Mat(object_cost,costs,root,0).comp_max;
+ TotalComm = Mat(object_cost,costs,root,0).comm_max;
+ TotalCompIdle = Mat(object_cost,costs,root,0).comp_idle_max;
+ TotalH = Mat(object_cost,costs,root,0).hrel_max;
+ TotalSyncs = Mat(object_cost,costs,root,0).syncs;
+ if (Verbose) printConnectivityMatrix(graph,costs,root);
+ fflush(logFile);
+ graphToDaVinci(root,&graph,&costs,0);
+ fflush(stdout);
+ undo_stack = calloc(NoDeletes,sizeof(int));
+ select_nodes = calloc(NoNodes,sizeof(int));
+ if (undo_stack==NULL || select_nodes==NULL) {
+ fprintf(stderr,"Unable to allocate storage for undo stack\n");
+ exit(1);
+ }
+ undo_stack_next=0;
+ select_nodes_next=0;
+ // Pie chart stuff not wanted for GHC
+ // tclPieInit();
+ // tclPieUpdate(&Mat(object_cost,costs,root,0),root,PieView);
+ select_nodes_next=1;
+ select_nodes[0]=root;
+ while (fgets(davinci_stdin, MAX_PROFILE_LINE_LENGTH, stdin) && going) {
+ cmd = parseDaVinciCmd(davinci_stdin);
+ if (Verbose) fprintf(logFile,"From davinci=\"%s\"\n",davinci_stdin);
+ switch (cmd.type) {
+ case DAVINCI_OK:
+ continue;
+
+ case DAVINCI_QUIT:
+ going=0;
+ break;
+
+ case DAVINCI_NODE:
+ select_nodes_next=cmd.size;
+ for(i=0;((i<cmd.size) && (i<NoNodes));i++)
+ select_nodes[i]=atoi(cmd.list[i]);
+ if (select_nodes_next>0)
+ //Pie chart stuff not wanted for GHC
+ //tclPieUpdate(&Mat(object_cost,costs,select_nodes[0],0),
+ // select_nodes[0],
+ // PieView);
+ if (mode==3)
+ {
+ mode = atoi(cmd.list[0]);
+ getNameFromSymbolTable(mode,tempstring);
+ for(ptr=tempstring;*ptr!='\0';ptr++)
+ if (*ptr=='&') *ptr=' ';
+ mode = 3;
+ strcpy(tempstring2,"window(show_status(\"");
+ strcat(tempstring2,tempstring);
+ strcat(tempstring2,"\"))");
+ cmdDaVinci(tempstring2);
+ strcpy(tempstring,"");
+ strcpy(tempstring2,"");
+ }
+ break;
+
+ case DAVINCI_MENU:
+ if (cmd.size>0) {
+ if (strcmp(cmd.list[0], "jump")==0) {
+ if ((select_nodes_next>=0) &&
+ (select_nodes[0]>0) &&
+ (select_nodes[0] < NoNodes) &&
+ (Mat_dense(graph,select_nodes[0],select_nodes[0]))) {
+ cmdDaVinci("special(focus_node(\"%d\"))\n",select_nodes[0]);
+ }
+ }
+ }
+ break;
+
+ case DAVINCI_ICON:
+ if (cmd.size>0) {
+ if (strcmp(cmd.list[0], "sync")==0) {
+ CriticalPath=CRITICAL_SYNCS;
+ activateDaVinciMenu(cmd.list[0]);
+ cmdDaVinci("window(show_status(\"Graph view\"))");
+ updateColours(root,&graph,&costs);
+
+ } else if (strcmp(cmd.list[0], "comp")==0) {
+ CriticalPath=CRITICAL_COMP;
+ activateDaVinciMenu(cmd.list[0]);
+ cmdDaVinci("window(show_status(\"SCCs critical path\"))");
+ updateColours(root,&graph,&costs);
+
+ } else if (strcmp(cmd.list[0], "comm")==0) {
+ CriticalPath=CRITICAL_COMM;
+ activateDaVinciMenu(cmd.list[0]);
+ cmdDaVinci("window(show_status(\"Computation time critical path\"))");
+ updateColours(root,&graph,&costs);
+
+ } else if (strcmp(cmd.list[0], "wait")==0) {
+ CriticalPath=CRITICAL_WAIT;
+ activateDaVinciMenu(cmd.list[0]);
+ cmdDaVinci("window(show_status(\"Heap usage critical path\"))");
+ updateColours(root,&graph,&costs);
+
+ } else if (strcmp(cmd.list[0], "hrel")==0) {
+
+ if (mode != 3)
+ {
+ cmdDaVinci("window(show_status(\"Node spy on\"))");
+ mode = 3;
+ }
+ else
+ {
+ mode = 0;
+ cmdDaVinci("window(show_status(\"Node spy off\"))");
+ }
+
+ } else if (strcmp(cmd.list[0], "absolute")==0) {
+ /* Now deals with inheritance profile */
+ CriticalType=CRITTYPE_ABSOLUTE;
+ activateDaVinciMenu(cmd.list[0]);
+ cmdDaVinci("window(show_status(\"Inheritance profile\"))");
+ freeMat(&graph);
+ freeMat(&costs);
+ createConnectivityMatrix(NoNodes,&graph,&costs,&root,1);
+ graphToDaVinci(root,&graph,&costs,0);
+ cmdDaVinci("window(show_status(\"Inheritance profile\"))");
+ updateColours(root,&graph,&costs);
+
+ } else if (strcmp(cmd.list[0], "absdelta")==0) {
+ /* Now deals with flat profile */
+ CriticalType=CRITTYPE_ABSDELTA;
+ activateDaVinciMenu(cmd.list[0]);
+ cmdDaVinci("window(show_status(\"Flat profile\"))");
+ freeMat(&graph);
+ freeMat(&costs);
+ createConnectivityMatrix(NoNodes,&graph,&costs,&root,0);
+ graphToDaVinci(root,&graph,&costs,0);
+ cmdDaVinci("window(show_status(\"Flat profile\"))");
+ updateColours(root,&graph,&costs);
+
+ } else if (strcmp(cmd.list[0], "reldelta")==0) {
+ CriticalType=CRITTYPE_ABSOLUTE;
+ activateDaVinciMenu(cmd.list[0]);
+ cmdDaVinci("window(show_status(\"Trimmed zero-cost sub-trees\"))");
+ strcpy(cmd.list[0], "absolute");
+ activateDaVinciMenu(cmd.list[0]);
+ graphToDaVinci(root,&graph,&costs,2);
+ updateColours(root,&graph,&costs);
+
+ } else if (strcmp(cmd.list[0], "weightdelta")==0) {
+ CriticalType=CRITTYPE_ABSOLUTE;
+ activateDaVinciMenu(cmd.list[0]);
+ cmdDaVinci("window(show_status(\"Marked zero-cost nodes ready for deletion\"))");
+ strcpy(cmd.list[0], "absolute");
+ activateDaVinciMenu(cmd.list[0]);
+ graphToDaVinci(root,&graph,&costs,1);
+ updateColours(root,&graph,&costs);
+
+ } else if (strcmp(cmd.list[0],"help")==0) {
+ cmdDaVinci("special(show_url(\"%s\"))",helpUrl);
+
+ } else if (strcmp(cmd.list[0],"time")==0) {
+ NodeviewTime=1;
+ activateDaVinciMenu(cmd.list[0]);
+ cmdDaVinci("window(show_status(\"Cost metric view\"))");
+ graphToDaVinci(root,&graph,&costs,0);
+
+ } else if (strcmp(cmd.list[0],"percent")==0) {
+ NodeviewTime=0;
+ activateDaVinciMenu(cmd.list[0]);
+ cmdDaVinci("window(show_status(\"Percentage view\"))");
+ graphToDaVinci(root,&graph,&costs,0);
+
+ } else if (strcmp(cmd.list[0],"compress")==0) {
+ NodeviewCompress=1;
+ activateDaVinciMenu(cmd.list[0]);
+ cmdDaVinci("window(show_status(\"Compressed node view\"))");
+ cmdDaVinci("menu(layout(compact_all))");
+ graphToDaVinci(root,&graph,&costs,0);
+
+ } else if (strcmp(cmd.list[0],"uncompress")==0) {
+ NodeviewCompress=0;
+ activateDaVinciMenu(cmd.list[0]);
+ cmdDaVinci("window(show_status(\"Uncompressed node view\"))");
+ graphToDaVinci(root,&graph,&costs,0);
+
+ } else if ((strcmp(cmd.list[0],"delete")==0) ||
+ (strcmp(cmd.list[0],"undo")==0)) {
+ if (strcmp(cmd.list[0],"delete")==0) {
+ if (undo_stack_next==0)
+ activateDaVinciMenu("undo");
+ for(i=0;(i<select_nodes_next) && (undo_stack_next<NoNodes);i++)
+ undo_stack[undo_stack_next++] = select_nodes[i];
+ if (undo_stack_next==NoDeletes)
+ activateDaVinciMenu("delete");
+ cmdDaVinci("window(show_status(\"Deleted node (s)\"))");
+ select_nodes_next=0;
+ } else {
+ if (undo_stack_next==NoDeletes)
+ activateDaVinciMenu("delete");
+ undo_stack_next--;
+ if (undo_stack_next==0)
+ activateDaVinciMenu("undo");
+ cmdDaVinci("window(show_status(\"Undone deletion\"))");
+ select_nodes_next=1;
+ select_nodes[0]=undo_stack[undo_stack_next];
+
+ for(i=0;i<raw_profile_next;i++)
+ raw_profile[i].active=1;
+ }
+ activateDaVinciMenu("default");
+ for(i=0;i<undo_stack_next;i++) {
+ for(j=0;j<raw_profile_next;j++) {
+ for(k=0;k<raw_profile[j].stack_size;k++) {
+ if (raw_profile[j].stack[k]==undo_stack[i])
+ raw_profile[j].active=0;
+ }
+ }
+ }
+ cmdDaVinci("window(show_message(\"Deleting node...\"))");
+ freeMat(&graph);
+ freeMat(&costs);
+ createConnectivityMatrix(NoNodes,&graph,&costs,&root,1);
+ graphToDaVinci(root,&graph,&costs,0);
+ if (strcmp(cmd.list[0],"undo")==0) {
+ if ((select_nodes[0]>0) &&
+ (select_nodes[0] < NoNodes) &&
+ (Mat_dense(graph,select_nodes[0],select_nodes[0]))) {
+ cmdDaVinci("special(focus_node(\"%d\"))\n",select_nodes[0]);
+ cmdDaVinci("special(select_nodes([\"%d\"]))",select_nodes[0]);
+ //Pie chart stuff not wanted for GHC
+ //tclPieUpdate(&Mat(object_cost,costs,select_nodes[0],0),
+ // select_nodes[0],
+ // PieView);
+ }
+ }
+ }
+ }
+ break;
+ case DAVINCI_TCL:
+ // This stuff can go as it is related to the input for the Pie chart tool
+ if (cmd.size>0) {
+ if (strcmp(cmd.list[0], "comm")==0) {
+ PieView=TCL_COMM;
+ } else if (strcmp(cmd.list[0], "comp")==0) {
+ PieView=TCL_COMP;
+ } else if (strcmp(cmd.list[0], "hrel")==0) {
+ PieView=TCL_HREL;
+ } else if (strcmp(cmd.list[0], "wait")==0) {
+ PieView=TCL_WAIT;
+ } else if (strcmp(cmd.list[0], "combine")==0) {
+ PieCombine=!PieCombine;
+ } else if (strlen(cmd.list[0])==0) {
+ break;
+ }
+ if (select_nodes_next>0) break;
+ //Added a break for compiliation above since it does not compile if
+ //we just remove the Pie chart code
+ //tclPieUpdate(&Mat(object_cost,costs,select_nodes[0],0),
+ // select_nodes[0],
+ // PieView);
+ }
+ break;
+ case DAVINCI_ERROR:
+ default:
+ fprintf(stderr,"CGPROF error:\n"
+ "\tCommand = %s\n"
+ "\tError = %s\n",lastDavinciCmd,davinci_stdin);
+ exit(1);
+ break;
+ }
+ fflush(stdout);
+ fflush(logFile);
+ }
+
+ return 0;
+}
projects / ghc-hetmet.git / blobdiff