add a new utility to read the performance models

include/starpu-perfmodel.h

@@ -96,4 +96,8 @@ struct starpu_perfmodel_t {
 	pthread_spinlock_t model_mutex;
 };
 
+/* This function is intended to be used by external tools that should read the
+ * performance model files */
+int starpu_load_history_debug(const char *symbol, struct starpu_perfmodel_t *model);
+
 #endif // __STARPU_PERFMODEL_H__

src/core/perfmodel/perfmodel_history.c

@@ -377,6 +377,34 @@ void load_history_based_model(struct starpu_perfmodel_t *model, unsigned scan_hi
 	pthread_spin_unlock(&model->model_mutex);
 }
 
+/* This function is intended to be used by external tools that should read the
+ * performance model files */
+int starpu_load_history_debug(const char *symbol, struct starpu_perfmodel_t *model)
+{
+	model->symbol = symbol;
+
+	/* where is the file if it exists ? */
+	char path[256];
+	get_model_path(model, path, 256);
+
+//	fprintf(stderr, "get_model_path -> %s\n", path);
+
+	/* does it exist ? */
+	int res;
+	res = access(path, F_OK);
+	if (res) {
+		fprintf(stderr, "There is no performance model for symbol %s\n", symbol);
+		return 1;
+	}
+
+	FILE *f = fopen(path, "r");
+	STARPU_ASSERT(f);
+
+	parse_model_file(f, model, 1);
+
+	return 0;
+}
+
 double regression_based_job_expected_length(struct starpu_perfmodel_t *model, enum starpu_perf_archtype arch, struct job_s *j)
 {
 	double exp = -1.0;

tools/Makefile.am

@@ -16,6 +16,9 @@
 
 SUBDIRS = 
 
+LIBS = $(top_builddir)/src/libstarpu.la @LIBS@
+AM_CPPFLAGS = -I$(top_srcdir)/include/ -I$(top_srcdir)/tools/
+
 bin_PROGRAMS =
 
 CLEANFILES = *.gcno *.gcda *.linkinfo
@@ -37,3 +40,6 @@ endif
 # LDFLAGS+= -lming
 #endif
 
+bin_PROGRAMS += perfmodel-display
+
+perfmodel_display_SOURCES = perfmodel-display.c

tools/perfmodel-display.c

@@ -0,0 +1,79 @@
+/*
+ * StarPU
+ * Copyright (C) INRIA 2008-2009 (see AUTHORS file)
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU Lesser General Public License as published by
+ * the Free Software Foundation; either version 2.1 of the License, or (at
+ * your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+ *
+ * See the GNU Lesser General Public License in COPYING.LGPL for more details.
+ */
+
+#include <starpu.h>
+#include <assert.h>
+#include <stdio.h>
+
+#include <starpu-perfmodel.h>
+
+static struct starpu_perfmodel_t model;
+
+static void display_perf_model(struct starpu_perfmodel_t *model, enum starpu_perf_archtype arch)
+{
+	struct starpu_per_arch_perfmodel_t *arch_model = &model->per_arch[arch];
+
+	fprintf(stderr, "\tRegression : #sample = %d (%s)\n",
+		arch_model->regression.nsample, arch_model->regression.valid?"VALID":"INVALID");
+
+	/* Only display the regression model if we could actually build a model */
+	if (arch_model->regression.valid)
+	{
+		fprintf(stderr, "\tLinear: y = alpha size ^ beta\n");
+		fprintf(stderr, "\t\talpha = %le\n", arch_model->regression.alpha);
+		fprintf(stderr, "\t\tbeta = %le\n", arch_model->regression.beta);
+
+		fprintf(stderr, "\tNon-Linear: y = a size ^b + c\n");
+		fprintf(stderr, "\t\ta = %le\n", arch_model->regression.a);
+		fprintf(stderr, "\t\tb = %le\n", arch_model->regression.b);
+		fprintf(stderr, "\t\tc = %le\n", arch_model->regression.c);
+	}
+}
+
+static void display_all_perf_models(struct starpu_perfmodel_t *model)
+{
+	/* yet, we assume there is a single performance model per architecture */
+	fprintf(stderr, "performance model for CPUs :\n");
+	display_perf_model(model, STARPU_CORE_DEFAULT);
+
+	fprintf(stderr, "performance model for CUDA :\n");
+	display_perf_model(model, STARPU_CUDA_DEFAULT);
+
+	fprintf(stderr, "performance model for GORDON :\n");
+	display_perf_model(model, STARPU_GORDON_DEFAULT);
+}
+
+int main(int argc, char **argv)
+{
+	assert(argc == 2);
+
+	const char *symbol = argv[1];
+
+	fprintf(stderr, "symbol : %s\n", symbol);
+
+	int ret = starpu_load_history_debug(symbol, &model);
+	if (ret == 1)
+	{
+		fprintf(stderr, "The performance model could not be loaded\n");
+		return 1;
+	}
+
+	fprintf(stderr, "Performance loaded\n");
+
+	display_all_perf_models(&model);
+
+	return 0;
+}