1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
|
--!The Make-like Build Utility based on Lua
--
-- XMake 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.
--
-- XMake 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 for more details.
--
-- You should have received a copy of the GNU Lesser General Public License
-- along with XMake;
-- If not, see <a href="http://www.gnu.org/licenses/"> http://www.gnu.org/licenses/</a>
--
-- Copyright (C) 2015 - 2016, ruki All rights reserved.
--
-- @author ruki
-- @file profiler.lua
--
-- define module
local profiler = {}
-- load modules
local os = require("base/os")
local path = require("base/path")
local table = require("base/table")
local utils = require("base/utils")
local string = require("base/string")
-- get the function title
function profiler:_func_title(funcinfo)
-- check
assert(funcinfo)
-- the function name
local name = funcinfo.name or 'anonymous'
-- the function line
local line = string.format("%d", funcinfo.linedefined or 0)
-- the function source
local source = funcinfo.short_src or 'C_FUNC'
if os.isfile(source) then
source = path.relative(source, xmake._PROGRAM_DIR)
end
-- make title
return string.format("%-30s: %s: %s", name, source, line)
end
-- get the function report
function profiler:_func_report(funcinfo)
-- get the function title
local title = self:_func_title(funcinfo)
-- get the function report
local report = self._REPORTS_BY_TITLE[title]
if not report then
-- init report
report =
{
title = self:_func_title(funcinfo)
, callcount = 0
, totaltime = 0
}
-- save it
self._REPORTS_BY_TITLE[title] = report
table.insert(self._REPORTS, report)
end
-- ok?
return report
end
-- profiling call
function profiler:_profiling_call(funcinfo)
-- get the function report
local report = self:_func_report(funcinfo)
assert(report)
-- save the call time
report.calltime = os.clock()
-- update the call count
report.callcount = report.callcount + 1
end
-- profiling return
function profiler:_profiling_return(funcinfo)
-- get the stoptime
local stoptime = os.clock()
-- get the function report
local report = self:_func_report(funcinfo)
assert(report)
-- update the total time
if report.calltime then
report.totaltime = report.totaltime + (stoptime - report.calltime)
end
end
-- the profiling handler
function profiler._profiling_handler(hooktype)
-- the function info
local funcinfo = debug.getinfo(2, 'nS')
-- dispatch it
if hooktype == "call" then
profiler:_profiling_call(funcinfo)
elseif hooktype == "return" then
profiler:_profiling_return(funcinfo)
end
end
-- the tracing handler
function profiler._tracing_handler(hooktype)
-- the function info
local funcinfo = debug.getinfo(2, 'nS')
-- is call?
if hooktype == "call" then
-- is xmake function?
local name = funcinfo.name
local source = funcinfo.short_src or 'C_FUNC'
if name and os.isfile(source) then
-- the function line
local line = string.format("%d", funcinfo.linedefined or 0)
-- get the relative source
source = path.relative(source, xmake._PROGRAM_DIR)
-- trace it
utils.print("%-30s: %s: %s", name, source, line)
end
end
end
-- start profiling
function profiler:start(mode)
-- trace?
if mode and mode == "trace" then
debug.sethook(profiler._tracing_handler, 'cr', 0)
else
-- init reports
self._REPORTS = {}
self._REPORTS_BY_TITLE = {}
-- save the start time
self._STARTIME = os.clock()
-- start to hook
debug.sethook(profiler._profiling_handler, 'cr', 0)
end
end
-- stop profiling
function profiler:stop(mode)
-- trace?
if mode and mode == "trace" then
-- stop to hook
debug.sethook()
else
-- save the stop time
self._STOPTIME = os.clock()
-- stop to hook
debug.sethook()
-- calculate the total time
local totaltime = self._STOPTIME - self._STARTIME
-- sort reports
table.sort(self._REPORTS, function(a, b)
return a.totaltime > b.totaltime
end)
-- show reports
for _, report in ipairs(self._REPORTS) do
utils.print("%04.3f, %5.2f%%, %7d, %s", report.totaltime, (report.totaltime / totaltime) * 100, report.callcount, report.title)
end
end
end
-- return module
return profiler
|
