X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/75a383f8746398463787fa9a8505f417f2ca3eae..1b30f00857843f1cee60814ed519ff82e8ef4787:/src/instr/paje.c

diff --git a/src/instr/paje.c b/src/instr/paje.c
new file mode 100644
index 0000000000..ee2f22cc01
--- /dev/null
+++ b/src/instr/paje.c
@@ -0,0 +1,448 @@
+/*
+ * general.c
+ *
+ *  Created on: Oct 7, 2009
+ *      Author: Lucas Schnorr
+ *     License: This program is free software; you can redistribute
+ *              it and/or modify it under the terms of the license
+ *              (GNU LGPL) which comes with this package.
+ *
+ *     Copyright (c) 2009 The SimGrid team.
+ */
+
+#include "instr/private.h"
+#include "instr/config.h"
+
+#ifdef HAVE_TRACING
+
+static FILE *tracing_file = NULL;
+int tracing_active = 0;
+
+static int pajeDefineContainerTypeId = 0;
+static int pajeDefineStateTypeId = 1;
+static int pajeDefineEntityValueId = 2;
+static int pajeDefineEventTypeId = 3;
+static int pajeDefineLinkTypeId = 4;
+static int pajeCreateContainerId = 5;
+static int pajeSetStateId = 6;
+static int pajePushStateWithHostId = 7;
+static int pajePopStateId = 8;
+static int pajeDestroyContainerId = 9;
+static int pajeSetStateWithHostId = 10;
+static int pajeSetStateWithHostCommCompId = 11;
+static int pajeStartLinkId = 12;
+static int pajeEndLinkId = 13;
+static int pajeCreateContainerWithPowerId = 14;
+static int pajeStartLinkWithBandwidthLatencyId = 15;
+static int pajePushStateWithPowerUsedId = 16;
+static int pajePushStateWithBandwidthUsedId = 17;
+static int pajeSetStateWithPowerUsedId = 18;
+static int pajePushStateId = 19;
+static int pajeCreateContainerWithBandwidthLatencyId = 20;
+static int pajeCreateContainerWithBandwidthLatencySrcDstId = 21;
+static int pajeSetVariableId = 22;
+static int pajeAddVariableId = 23;
+static int pajeSubVariableId = 24;
+static int pajeDefineVariableTypeId = 25;
+
+#define TRACE_LINE_SIZE 1000
+
+void TRACE_paje_start (FILE *file)
+{
+  tracing_file = file;
+  tracing_active = 1;
+}
+
+FILE *TRACE_paje_end (void)
+{
+  tracing_active = 0;
+  return tracing_file;
+}
+
+
+void TRACE_paje_create_header(void) {
+  if (!tracing_active)
+    return;
+  fprintf(
+      tracing_file,
+      " \
+%%EventDef PajeDefineContainerType %d \n\
+%%       Alias string \n\
+%%       ContainerType string \n\
+%%       Name string \n\
+%%EndEventDef \n\
+%%EventDef PajeDefineStateType %d \n\
+%%       Alias string \n\
+%%       ContainerType string \n\
+%%       Name string \n\
+%%EndEventDef \n\
+%%EventDef PajeDefineEntityValue %d \n\
+%%       Alias string \n\
+%%       EntityType string \n\
+%%       Name string \n\
+%%EndEventDef \n\
+%%EventDef PajeDefineEventType %d \n\
+%%       Alias string \n\
+%%       EntityType string \n\
+%%       Name string \n\
+%%EndEventDef \n\
+%%EventDef PajeDefineLinkType %d \n\
+%%       Alias string \n\
+%%       ContainerType string \n\
+%%       SourceContainerType string \n\
+%%       DestContainerType string \n\
+%%       Name string \n\
+%%EndEventDef \n\
+%%EventDef PajeCreateContainer %d \n\
+%%       Time date \n\
+%%       Alias string \n\
+%%       Type string \n\
+%%       Container string \n\
+%%       Name string \n\
+%%EndEventDef \n\
+%%EventDef PajeDestroyContainer %d \n\
+%%       Time date \n\
+%%       Type string \n\
+%%       Container string \n\
+%%EndEventDef \n\
+%%EventDef PajeSetState %d \n\
+%%       Time date \n\
+%%       EntityType string \n\
+%%       Container string \n\
+%%       Value string \n\
+%%EndEventDef\n\
+%%EventDef PajeSetState %d \n\
+%%       Time date \n\
+%%       EntityType string \n\
+%%       Container string \n\
+%%       Value string \n\
+%%		 Host string\n\
+%%EndEventDef\n\
+%%EventDef PajePushState %d \n\
+%%       Time date \n\
+%%       EntityType string \n\
+%%       Container string \n\
+%%       Value string \n\
+%%       Host string \n\
+%%EndEventDef\n\
+%%EventDef PajePopState %d \n\
+%%       Time date \n\
+%%       EntityType string \n\
+%%       Container string \n\
+%%EndEventDef\n\
+%%EventDef PajeSetState %d \n\
+%%       Time date \n\
+%%       EntityType string \n\
+%%       Container string \n\
+%%       Value string \n\
+%%		 Host string\n\
+%%		 Comm string\n\
+%%		 Comp string\n\
+%%EndEventDef\n\
+%%EventDef PajeStartLink %d \n\
+%%       Time date \n\
+%%       EntityType string \n\
+%%       Container string \n\
+%%       Value string \n\
+%%       SourceContainer string \n\
+%%       Key string \n\
+%%EndEventDef\n\
+%%EventDef PajeEndLink %d \n\
+%%       Time date \n\
+%%       EntityType string \n\
+%%       Container string \n\
+%%       Value string \n\
+%%       DestContainer string \n\
+%%       Key string \n\
+%%EndEventDef\n\
+%%EventDef PajeCreateContainer %d \n\
+%%       Time date \n\
+%%       Alias string \n\
+%%       Type string \n\
+%%       Container string \n\
+%%       Name string \n\
+%%       Power string \n\
+%%EndEventDef \n\
+%%EventDef PajeStartLink %d \n\
+%%       Time date \n\
+%%       EntityType string \n\
+%%       Container string \n\
+%%       Value string \n\
+%%       SourceContainer string \n\
+%%       Key string \n\
+%%       Bandwidth string \n\
+%%       Latency string \n\
+%%EndEventDef\n\
+%%EventDef PajePushState %d \n\
+%%       Time date \n\
+%%       EntityType string \n\
+%%       Container string \n\
+%%       Value string \n\
+%%       PowerUsed string \n\
+%%EndEventDef\n\
+%%EventDef PajePushState %d \n\
+%%       Time date \n\
+%%       EntityType string \n\
+%%       Container string \n\
+%%       Value string \n\
+%%       BandwidthUsed string \n\
+%%EndEventDef\n\
+%%EventDef PajeSetState %d \n\
+%%       Time date \n\
+%%       EntityType string \n\
+%%       Container string \n\
+%%       Value string \n\
+%%       PowerUsed string \n\
+%%EndEventDef\n\
+%%EventDef PajePushState %d \n\
+%%       Time date \n\
+%%       EntityType string \n\
+%%       Container string \n\
+%%       Value string \n\
+%%EndEventDef\n\
+%%EventDef PajeCreateContainer %d \n\
+%%       Time date \n\
+%%       Alias string \n\
+%%       Type string \n\
+%%       Container string \n\
+%%       Name string \n\
+%%       Bandwidth string \n\
+%%       Latency string \n\
+%%EndEventDef \n\
+%%EventDef PajeCreateContainer %d \n\
+%%       Time date \n\
+%%       Alias string \n\
+%%       Type string \n\
+%%       Container string \n\
+%%       Name string \n\
+%%       Bandwidth string \n\
+%%       Latency string \n\
+%%       SrcHost string \n\
+%%       DstHost string \n\
+%%EndEventDef \n\
+%%EventDef PajeSetVariable %d \n\
+%%       Time date \n\
+%%       EntityType string \n\
+%%       Container string \n\
+%%       Value string \n\
+%%EndEventDef\n\
+%%EventDef PajeAddVariable %d \n\
+%%       Time date \n\
+%%       EntityType string \n\
+%%       Container string \n\
+%%       Value string \n\
+%%EndEventDef\n\
+%%EventDef PajeSubVariable %d \n\
+%%       Time date \n\
+%%       EntityType string \n\
+%%       Container string \n\
+%%       Value string \n\
+%%EndEventDef\n\
+%%EventDef PajeDefineVariableType %d \n\
+%%       Alias string \n\
+%%       ContainerType string \n\
+%%       Name string \n\
+%%EndEventDef \n",
+      pajeDefineContainerTypeId, pajeDefineStateTypeId, pajeDefineEntityValueId,
+      pajeDefineEventTypeId, pajeDefineLinkTypeId, pajeCreateContainerId,
+      pajeDestroyContainerId, pajeSetStateId, pajeSetStateWithHostId,
+      pajePushStateWithHostId, pajePopStateId, pajeSetStateWithHostCommCompId,
+      pajeStartLinkId, pajeEndLinkId, pajeCreateContainerWithPowerId,
+      pajeStartLinkWithBandwidthLatencyId, pajePushStateWithPowerUsedId,
+      pajePushStateWithBandwidthUsedId, pajeSetStateWithPowerUsedId,
+      pajePushStateId, pajeCreateContainerWithBandwidthLatencyId,
+      pajeCreateContainerWithBandwidthLatencySrcDstId,
+      pajeSetVariableId,
+      pajeAddVariableId,
+      pajeSubVariableId,
+      pajeDefineVariableTypeId);
+}
+
+/* internal to this file */
+static void __pajeCreateContainer (char *output, int len, int eventid, double time, const char *alias, const char *type,
+    const char *container, const char *name)
+{
+  snprintf (output, len, "%d %.15lf %s %s %s %s", eventid, time,
+      alias, type, container, name);
+}
+
+static void __pajeSetState (char *output, int len, int eventid, double time, const char *entityType, const char *container, const char *value)
+{
+  snprintf (output, len, "%d %.15lf %s %s %s", eventid, time, entityType, container, value);
+}
+
+static void __pajeSetVariable (char *output, int len, int eventid, double time, const char *entityType, const char *container, const char *value)
+{
+  snprintf (output, len, "%d %.15lf %s %s %s", eventid, time, entityType, container, value);
+}
+
+static void __pajeStartLink (char *output, int len, int eventid,  double time, const char *entityType, const char *container, const char *value,
+const char *sourceContainer, const char *key)
+{
+  snprintf(output, len, "%d %.15lf %s %s %s %s %s", eventid, time, entityType, container, value, sourceContainer, key);
+}
+
+
+/* internal do the instrumentation module */
+void pajeDefineContainerType(const char *alias, const char *containerType,
+    const char *name) {
+  fprintf(tracing_file, "%d %s %s %s\n", pajeDefineContainerTypeId, alias,
+      containerType, name);
+}
+
+void pajeDefineStateType(const char *alias, const char *containerType,
+    const char *name) {
+  fprintf(tracing_file, "%d %s %s %s\n", pajeDefineStateTypeId, alias,
+      containerType, name);
+}
+
+void pajeDefineEventType(const char *alias, const char *containerType,
+    const char *name) {
+  fprintf(tracing_file, "%d %s %s %s\n", pajeDefineEventTypeId, alias,
+      containerType, name);
+}
+
+void pajeDefineLinkType(const char *alias, const char *containerType,
+    const char *sourceContainerType, const char *destContainerType,
+    const char *name) {
+  fprintf(tracing_file, "%d %s %s %s %s %s\n", pajeDefineLinkTypeId, alias,
+      containerType, sourceContainerType, destContainerType, name);
+}
+
+void pajeCreateContainer(double time, const char *alias, const char *type, const char *container, const char *name) {
+  char line[TRACE_LINE_SIZE];
+  __pajeCreateContainer (line, TRACE_LINE_SIZE, pajeCreateContainerId, time, alias, type, container, name);
+  fprintf (tracing_file, "%s\n", line);
+}
+
+void pajeCreateContainerWithPower (double time, const char *alias, const char *type, const char *container, const char *name, double power)
+{
+  char line[TRACE_LINE_SIZE];
+  __pajeCreateContainer (line, TRACE_LINE_SIZE, pajeCreateContainerWithPowerId, time, alias, type, container, name);
+  fprintf (tracing_file, "%s %f\n", line, power);
+}
+
+void pajeCreateContainerWithBandwidthLatency (double time, const char *alias, const char *type, const char *container, const char *name, double bw, double lat)
+{
+  char line[TRACE_LINE_SIZE];
+  __pajeCreateContainer (line, TRACE_LINE_SIZE, pajeCreateContainerWithBandwidthLatencyId, time, alias, type, container, name);
+  fprintf (tracing_file, "%s %f %f\n", line, bw, lat);
+}
+
+
+void pajeCreateContainerWithBandwidthLatencySrcDst (double time, const char *alias, const char *type, const char *container, const char *name, double bw, double lat, const char *src, const char *dst)
+{
+  char line[TRACE_LINE_SIZE];
+  __pajeCreateContainer (line, TRACE_LINE_SIZE, pajeCreateContainerWithBandwidthLatencySrcDstId, time, alias, type, container, name);
+  fprintf (tracing_file, "%s %f %f %s %s\n", line, bw, lat, src, dst);
+}
+
+
+void pajeDestroyContainer (double time, const char *type, const char *container)
+{
+  fprintf(tracing_file, "%d %.15lf %s %s\n", pajeDestroyContainerId, time, type, container);
+}
+
+void pajeSetState (double time, const char *entityType, const char *container, const char *value)
+{
+  char line[TRACE_LINE_SIZE];
+  __pajeSetState (line, TRACE_LINE_SIZE, pajeSetStateId, time, entityType, container, value);
+  fprintf(tracing_file, "%s\n", line);
+}
+
+void pajeSetStateWithPowerUsed (double time, const char *entityType, const char *container, const char *value, double powerUsed)
+{
+  char line[TRACE_LINE_SIZE];
+  __pajeSetState (line, TRACE_LINE_SIZE, pajeSetStateWithPowerUsedId, time, entityType, container, value);
+  fprintf(tracing_file, "%s %f\n", line, powerUsed);
+}
+
+void pajeSetStateWithHost (double time, const char *entityType, const char *container, const char *value, const char *host)
+{
+  char line[TRACE_LINE_SIZE];
+  __pajeSetState (line, TRACE_LINE_SIZE, pajeSetStateWithHostId, time, entityType, container, value);
+  fprintf(tracing_file, "%s %s\n", line, host);
+}
+
+void pajePushState (double time, const char *entityType, const char *container, const char *value)
+{
+  char line[TRACE_LINE_SIZE];
+  __pajeSetState (line, TRACE_LINE_SIZE, pajePushStateId, time, entityType, container, value);
+  fprintf(tracing_file, "%s\n", line);
+}
+
+void pajePushStateWithHost (double time, const char *entityType, const char *container, const char *value, const char *host)
+{
+  char line[TRACE_LINE_SIZE];
+  __pajeSetState (line, TRACE_LINE_SIZE, pajePushStateWithHostId, time, entityType, container, value);
+  fprintf(tracing_file, "%s %s\n", line, host);
+}
+
+void pajePushStateWithPowerUsed (double time, const char *entityType, const char *container, const char *value, double powerUsed)
+{
+  char line[TRACE_LINE_SIZE];
+  __pajeSetState (line, TRACE_LINE_SIZE, pajePushStateWithPowerUsedId, time, entityType, container, value);
+  fprintf(tracing_file, "%s %f\n", line, powerUsed);
+}
+
+void pajePushStateWithBandwidthUsed (double time, const char *entityType, const char *container, const char *value, double bwUsed)
+{
+  char line[TRACE_LINE_SIZE];
+  __pajeSetState (line, TRACE_LINE_SIZE, pajePushStateWithBandwidthUsedId, time, entityType, container, value);
+  fprintf(tracing_file, "%s %f\n", line, bwUsed);
+}
+
+void pajePopState (double time, const char *entityType, const char *container)
+{
+  fprintf(tracing_file, "%d %.15lf %s %s\n", pajePopStateId, time, entityType, container);
+}
+
+void pajeStartLink (double time, const char *entityType, const char *container, const char *value,
+    const char *sourceContainer, const char *key)
+{
+  char line[TRACE_LINE_SIZE];
+  __pajeStartLink (line, TRACE_LINE_SIZE, pajeStartLinkId, time, entityType, container, value, sourceContainer, key);
+  fprintf (tracing_file, "%s\n", line);
+}
+
+void pajeStartLinkWithBandwidthLatency (double time, const char *entityType, const char *container, const char *value,
+    const char *sourceContainer, const char *key, double bw, double lat)
+{
+  char line[TRACE_LINE_SIZE];
+  __pajeStartLink (line, TRACE_LINE_SIZE, pajeStartLinkWithBandwidthLatencyId, time, entityType, container, value, sourceContainer, key);
+  fprintf (tracing_file, "%s %f %f\n", line, bw, lat);
+}
+
+void pajeEndLink (double time, const char *entityType, const char *container, const char *value,
+    const char *destContainer, const char *key)
+{
+  fprintf(tracing_file, "%d %.15lf %s %s %s %s %s\n", pajeEndLinkId, time, entityType, container, value, destContainer, key);
+}
+
+void pajeDefineVariableType(const char *alias, const char *containerType, const char *name) {
+  fprintf(tracing_file, "%d %s %s %s\n", pajeDefineVariableTypeId, alias, containerType, name);
+}
+
+
+void pajeSetVariable (double time, const char *entityType, const char *container, const char *value)
+{
+  char line[TRACE_LINE_SIZE];
+  __pajeSetVariable (line, TRACE_LINE_SIZE, pajeSetVariableId, time, entityType, container, value);
+  fprintf(tracing_file, "%s\n", line);
+}
+
+void pajeAddVariable (double time, const char *entityType, const char *container, const char *value)
+{
+  char line[TRACE_LINE_SIZE];
+  __pajeSetVariable (line, TRACE_LINE_SIZE, pajeAddVariableId, time, entityType, container, value);
+  fprintf(tracing_file, "%s\n", line);
+}
+
+void pajeSubVariable (double time, const char *entityType, const char *container, const char *value)
+{
+  char line[TRACE_LINE_SIZE];
+  __pajeSetVariable (line, TRACE_LINE_SIZE, pajeSubVariableId, time, entityType, container, value);
+  fprintf(tracing_file, "%s\n", line);
+}
+
+#endif