2 * Copyright (C) 1995-2008 University of Karlsruhe. All right reserved.
4 * This file is part of libFirm.
6 * This file may be distributed and/or modified under the terms of the
7 * GNU General Public License version 2 as published by the Free Software
8 * Foundation and appearing in the file LICENSE.GPL included in the
9 * packaging of this file.
11 * Licensees holding valid libFirm Professional Edition licenses may use
12 * this file in accordance with the libFirm Commercial License.
13 * Agreement provided with the Software.
15 * This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
16 * WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR
22 * @brief Statistic events.
23 * @author Sebastian Hack
36 #include "stat_timing.h"
42 #if defined(FIRM_STATISTICS) && !defined(DISABLE_STATEV)
45 #define FIRM_HAVE_REGEX
48 #if defined HAVE_LIBZ && defined HAVE_ZLIB_H
49 #define FIRM_HAVE_LIBZ
58 #define mfprintf gzprintf
59 static gzFile* stat_ev_file = NULL;
63 #define mfprintf fprintf
64 static FILE* stat_ev_file = NULL;
66 #endif /* FIRM_HAVE_LIBZ */
68 int stat_ev_enabled = 0;
69 int stat_ev_timer_sp = 0;
70 timing_ticks_t stat_ev_timer_elapsed[MAX_TIMER];
71 timing_ticks_t stat_ev_timer_start[MAX_TIMER];
73 #ifdef FIRM_HAVE_REGEX
76 static regex_t *filter = NULL;
77 static inline int key_matches(const char *key)
82 return regexec(filter, key, 0, NULL, 0) == 0;
86 static char filter[128] = { '\0' };
87 static inline int key_matches(const char *key)
91 for (i = 0; filter[i] != '\0'; ++i) {
92 if (key[i] != filter[i])
98 #endif /* FIRM_HAVE_REGEX */
101 void stat_ev_printf(char ev, const char *key, const char *fmt, ...)
103 if (!key_matches(key))
106 mfprintf(stat_ev_file, "%c;%s", ev, key);
112 ir_vsnprintf(buf, sizeof(buf), fmt, args);
114 mfprintf(stat_ev_file, ";%s", buf);
116 mfprintf(stat_ev_file, "\n");
119 void stat_ev_begin(const char *prefix, const char *filt)
123 #ifdef FIRM_HAVE_LIBZ
124 snprintf(buf, sizeof(buf), "%s.ev.gz", prefix);
125 stat_ev_file = gzopen(buf, "wt9");
127 snprintf(buf, sizeof(buf), "%s.ev", prefix);
128 stat_ev_file = fopen(buf, "wt");
131 if (filt && filt[0] != '\0') {
132 #ifdef FIRM_HAVE_REGEX
134 if (regcomp(®ex, filt, REG_EXTENDED) == 0)
137 strncpy(filter, filt, sizeof(filter) - sizeof(filter[0]));
138 #endif /* FIRM_HAVE_REGEX */
141 stat_ev_enabled = stat_ev_file != NULL;
144 void stat_ev_end(void)
147 #ifdef FIRM_HAVE_LIBZ
148 gzflush(stat_ev_file, 1);
149 gzclose(stat_ev_file);
151 fclose(stat_ev_file);