octave: src/profiler.cc annotate

annotate src/profiler.cc @ 12869:de9a9719e594

Extend data collection in profiler and add user-interface profile function. * scripts/general/module.mk: Add profile.m. * scripts/general/profile.m: New file. * src/profiler.h (stats): New utility class. (data): Field to replace old times, can now hold more info. * src/profiler.cc (stats): Implementation of routines. (profile_data_accumulator): Changes necessary because call_stack was changed to be a std::vector now and for the new statistics map. (profile_data_accumulator::get_data): Extended to produce much more sophisticated output. (profile_data_accumulator::enter_function): Collect some more data than the timing.

author	Daniel Kraft <d@domob.eu>
date	Thu, 14 Jul 2011 22:16:24 +0200
parents	c499d54796d6
children	39d813616c8f

rev	line source
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	1 /*
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	2
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	3 Copyright (C) 2011 Daniel Kraft
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	4
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	5 This file is part of Octave.
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	6
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	7 Octave is free software; you can redistribute it and/or modify it
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	8 under the terms of the GNU General Public License as published by the
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	9 Free Software Foundation; either version 3 of the License, or (at your
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	10 option) any later version.
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	11
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	12 Octave is distributed in the hope that it will be useful, but WITHOUT
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	15 for more details.
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	16
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	17 You should have received a copy of the GNU General Public License
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	18 along with Octave; see the file COPYING. If not, see
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	19 <http://www.gnu.org/licenses/>.
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	20
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	21 */
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	22
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	23 #ifdef HAVE_CONFIG_H
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	24 #include <config.h>
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	25 #endif
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	26
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	27 #include <iostream>
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	28
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	29 #include "defun.h"
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	30 #include "oct-time.h"
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	31 #include "ov-fcn.h"
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	32 #include "ov-struct.h"
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	33 #include "pager.h"
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	34 #include "profiler.h"
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	35
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	36 profile_data_accumulator::enter::enter (profile_data_accumulator& a,
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	37 const octave_function& f)
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	38 : acc (a)
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	39 {
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	40 if (acc.is_active ())
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	41 {
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	42 fcn = &f;
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	43 acc.enter_function (*fcn);
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	44 }
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	45 else
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	46 fcn = NULL;
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	47 }
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	48
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	49 profile_data_accumulator::enter::~enter ()
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	50 {
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	51 if (fcn)
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	52 acc.exit_function (*fcn);
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	53 }
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	54
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	55 profile_data_accumulator::stats::stats ()
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	56 : time (0.0), calls (0), recursive (false),
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	57 parents (), children ()
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	58 {}
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	59
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	60 // With the help of a mapping name -> index, convert a function_set list
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	61 // to an Octave array of indices.
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	62 octave_value
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	63 profile_data_accumulator::stats::function_set_value (const function_set& list,
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	64 const fcn_index_map& idx)
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	65 {
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	66 const octave_idx_type n = list.size ();
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	67
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	68 RowVector retval (n);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	69 octave_idx_type i = 0;
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	70 for (function_set::const_iterator p = list.begin (); p != list.end (); ++p)
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	71 {
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	72 fcn_index_map::const_iterator q = idx.find (*p);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	73 assert (q != idx.end ());
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	74 retval (i) = q->second;
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	75 ++i;
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	76 }
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	77 assert (i == n);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	78
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	79 return retval;
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	80 }
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	81
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	82 profile_data_accumulator::profile_data_accumulator ()
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	83 : enabled (false), call_stack (), data (), last_time (-1.0)
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	84 {}
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	85
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	86 void
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	87 profile_data_accumulator::set_active (bool value)
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	88 {
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	89 // If we enable, clear the call-stack. This ensures we freshly start
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	90 // with collecting times now.
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	91 if (value)
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	92 {
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	93 while (!call_stack.empty ())
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	94 call_stack.pop_back ();
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	95 }
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	96
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	97 enabled = value;
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	98 }
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	99
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	100 void
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	101 profile_data_accumulator::enter_function (const octave_function& fcn)
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	102 {
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	103 // The enter class will check and only call us if the profiler is active.
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	104 assert (is_active ());
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	105
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	106 // If there is already an active function, add to its time before
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	107 // pushing the new one.
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	108 if (!call_stack.empty ())
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	109 add_current_time ();
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	110
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	111 // Update non-timing related data for the function entered.
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	112 const std::string name = fcn.profiler_name ();
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	113 stats& entry = data[name];
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	114 ++entry.calls;
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	115 if (!call_stack.empty ())
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	116 {
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	117 const std::string parent_name = call_stack.back ()->profiler_name ();
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	118 entry.parents.insert (parent_name);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	119 data[parent_name].children.insert (name);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	120 }
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	121 if (!entry.recursive)
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	122 for (call_stack_type::iterator i = call_stack.begin ();
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	123 i != call_stack.end (); ++i)
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	124 if (*i == &fcn)
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	125 {
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	126 entry.recursive = true;
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	127 break;
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	128 }
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	129
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	130 call_stack.push_back (&fcn);
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	131 last_time = query_time ();
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	132 }
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	133
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	134 void
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	135 profile_data_accumulator::exit_function (const octave_function& fcn)
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	136 {
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	137 assert (!call_stack.empty ());
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	138 assert (&fcn == call_stack.back ());
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	139
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	140 // Usually, if we are disabled this function is not even called. But the
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	141 // call disabling the profiler is an exception. So also check here
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	142 // and only record the time if enabled.
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	143 if (is_active ())
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	144 add_current_time ();
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	145
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	146 call_stack.pop_back ();
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	147
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	148 // If this was an "inner call", we resume executing the parent function
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	149 // up the stack. So note the start-time for this!
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	150 last_time = query_time ();
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	151 }
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	152
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	153 void
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	154 profile_data_accumulator::reset (void)
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	155 {
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	156 if (is_active ())
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	157 {
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	158 error ("Can't reset active profiler.");
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	159 return;
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	160 }
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	161
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	162 data.clear ();
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	163 last_time = -1.0;
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	164 }
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	165
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	166 octave_value
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	167 profile_data_accumulator::get_data (void) const
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	168 {
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	169 const octave_idx_type n = data.size ();
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	170
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	171 // For the parent/child data, we need to map function key-names
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	172 // to the indices they correspond to in the output array. Find them out
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	173 // in a preparation step.
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	174 fcn_index_map fcn_indices;
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	175 octave_idx_type i = 0;
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	176 for (stats_map::const_iterator p = data.begin (); p != data.end (); ++p)
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	177 {
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	178 fcn_indices[p->first] = i + 1;
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	179 ++i;
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	180 }
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	181 assert (i == n);
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	182
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	183 Cell rv_names (n, 1);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	184 Cell rv_times (n, 1);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	185 Cell rv_calls (n, 1);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	186 Cell rv_recursive (n, 1);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	187 Cell rv_parents (n, 1);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	188 Cell rv_children (n, 1);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	189
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	190 i = 0;
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	191 for (stats_map::const_iterator p = data.begin (); p != data.end (); ++p)
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	192 {
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	193 const stats& entry = p->second;
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	194
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	195 rv_names (i) = octave_value (p->first);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	196 rv_times (i) = octave_value (entry.time);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	197 rv_calls (i) = octave_value (entry.calls);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	198 rv_recursive (i) = octave_value (entry.recursive);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	199 rv_parents (i) = stats::function_set_value (entry.parents, fcn_indices);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	200 rv_children (i) = stats::function_set_value (entry.children, fcn_indices);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	201
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	202 ++i;
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	203 }
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	204 assert (i == n);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	205
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	206 Octave_map retval;
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	207
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	208 retval.assign ("FunctionName", rv_names);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	209 retval.assign ("TotalTime", rv_times);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	210 retval.assign ("NumCalls", rv_calls);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	211 retval.assign ("IsRecursive", rv_recursive);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	212 retval.assign ("Parents", rv_parents);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	213 retval.assign ("Children", rv_children);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	214
12784 c499d54796d6 Minor stylistic fixes to profiler code Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12783 diff changeset	215 return retval;
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	216 }
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	217
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	218 double
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	219 profile_data_accumulator::query_time (void) const
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	220 {
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	221 octave_time now;
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	222 return now.double_value ();
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	223 }
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	224
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	225 void
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	226 profile_data_accumulator::add_current_time (void)
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	227 {
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	228 const double t = query_time ();
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	229 assert (last_time >= 0.0 && last_time <= t);
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	230
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	231 assert (!call_stack.empty ());
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	232 const std::string name = call_stack.back ()->profiler_name ();
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	233
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	234 // The entry for this function should already be created; namely
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	235 // when entering the function via the non-timing data collection!
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	236 stats_map::iterator pos = data.find (name);
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	237 assert (pos != data.end ());
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	238 pos->second.time += t - last_time;
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	239 }
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	240
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	241 profile_data_accumulator profiler;
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	242
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	243 DEFUN (__profiler_enable, args, ,
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	244 "-- texinfo --\n\
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	245 @deftypefn {Function File} __profiler_enable ()\n\
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	246 Undocumented internal function.\n\
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	247 @end deftypefn")
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	248 {
12784 c499d54796d6 Minor stylistic fixes to profiler code Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12783 diff changeset	249 octave_value_list retval;
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	250
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	251 const int nargin = args.length ();
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	252 if (nargin > 0)
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	253 {
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	254 if (nargin > 1)
12784 c499d54796d6 Minor stylistic fixes to profiler code Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12783 diff changeset	255 {
c499d54796d6 Minor stylistic fixes to profiler code Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12783 diff changeset	256 print_usage ();
c499d54796d6 Minor stylistic fixes to profiler code Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12783 diff changeset	257 return retval;
c499d54796d6 Minor stylistic fixes to profiler code Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12783 diff changeset	258 }
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	259
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	260 profiler.set_active (args(0).bool_value ());
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	261 }
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	262
12784 c499d54796d6 Minor stylistic fixes to profiler code Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12783 diff changeset	263 retval(0) = profiler.is_active ();
c499d54796d6 Minor stylistic fixes to profiler code Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12783 diff changeset	264
c499d54796d6 Minor stylistic fixes to profiler code Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12783 diff changeset	265 return retval;
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	266 }
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	267
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	268 DEFUN (__profiler_reset, args, ,
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	269 "-- texinfo --\n\
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	270 @deftypefn {Function File} __profiler_reset ()\n\
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	271 Undocumented internal function.\n\
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	272 @end deftypefn")
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	273 {
12784 c499d54796d6 Minor stylistic fixes to profiler code Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12783 diff changeset	274 octave_value_list retval;
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	275 const int nargin = args.length ();
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	276
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	277 if (nargin > 0)
12784 c499d54796d6 Minor stylistic fixes to profiler code Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12783 diff changeset	278 warning ("profiler_reset: ignoring extra arguments");
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	279
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	280 profiler.reset ();
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	281
12784 c499d54796d6 Minor stylistic fixes to profiler code Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12783 diff changeset	282 return retval;
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	283 }
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	284
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	285 DEFUN (__profiler_data, args, ,
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	286 "-- texinfo --\n\
12869 de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	287 @deftypefn {Function File} __profiler_data ()\n\
de9a9719e594 Extend data collection in profiler and add user-interface profile function. Daniel Kraft <d@domob.eu> parents: 12784 diff changeset	288 Undocumented internal function.\n\
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	289 @end deftypefn")
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	290 {
12784 c499d54796d6 Minor stylistic fixes to profiler code Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12783 diff changeset	291 octave_value_list retval;
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	292 const int nargin = args.length ();
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	293
ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	294 if (nargin > 0)
12784 c499d54796d6 Minor stylistic fixes to profiler code Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12783 diff changeset	295 warning ("profiler_data: ignoring extra arguments");
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	296
12784 c499d54796d6 Minor stylistic fixes to profiler code Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12783 diff changeset	297 retval(0) = profiler.get_data ();
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	298
12784 c499d54796d6 Minor stylistic fixes to profiler code Jordi Gutiérrez Hermoso <jordigh@gmail.com> parents: 12783 diff changeset	299 return retval;
12783 ad9263d965dc First experimental profiler implementation with flat profile. Daniel Kraft <d@domob.eu> parents: diff changeset	300 }

Mercurial > octave

annotate src/profiler.cc @ 12869:de9a9719e594