9f1b358c04
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1486 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
100 lines
2.2 KiB
Plaintext
100 lines
2.2 KiB
Plaintext
|
|
:- object(message_counter,
|
|
implements(event_handlersp),
|
|
imports(monitor)).
|
|
|
|
|
|
:- info([
|
|
version is 1.0,
|
|
author is 'Paulo Moura',
|
|
date is 1998/3/23,
|
|
comment is 'Message counter monitor.']).
|
|
|
|
|
|
:- public(report/0).
|
|
:- mode(report, one).
|
|
:- info(report/0,
|
|
[comment is 'Reports current calls and exits message counts.']).
|
|
|
|
:- public(stop/0).
|
|
:- mode(stop, one).
|
|
:- info(stop/0,
|
|
[comment is 'Stops message counting.']).
|
|
|
|
|
|
:- private(calls/2).
|
|
:- dynamic(calls/2).
|
|
:- mode(calls(?object, ?integer), zero_or_more).
|
|
|
|
:- private(calls/3).
|
|
:- dynamic(calls/3).
|
|
:- mode(calls(?object, ?predicate_indicator,?integer), zero_or_more).
|
|
|
|
:- private(exits/2).
|
|
:- dynamic(exits/2).
|
|
:- mode(exits(?object, ?integer), zero_or_more).
|
|
|
|
:- private(exits/3).
|
|
:- dynamic(exits/3).
|
|
:- mode(exits(?object, ?predicate_indicator,?integer), zero_or_more).
|
|
|
|
|
|
report :-
|
|
forall(
|
|
::calls(Object, Calls),
|
|
(writeq(Object), nl,
|
|
write(' total of calls: '), write(Calls), nl,
|
|
write(' total of exits: '),
|
|
(::exits(Object, Exits) ->
|
|
write(Exits), nl, nl
|
|
;
|
|
write(0), nl, nl),
|
|
forall(
|
|
::calls(Object, Functor/Arity, Calls2),
|
|
(write(' '), writeq(Functor/Arity), nl,
|
|
write(' calls: '), write(Calls2), nl,
|
|
write(' exits: '),
|
|
(::exits(Object, Functor/Arity, Exits2) ->
|
|
write(Exits2), nl, nl
|
|
;
|
|
write(0), nl, nl))))).
|
|
|
|
|
|
stop :-
|
|
::retractall(calls(_, _)),
|
|
::retractall(exits(_, _)),
|
|
::retractall(calls(_, _, _)),
|
|
::retractall(exits(_, _, _)),
|
|
::reset_monitor.
|
|
|
|
|
|
before(Object, Message, _) :-
|
|
(::retract(calls(Object, Old)) ->
|
|
New is Old + 1
|
|
;
|
|
New = 1),
|
|
::assertz(calls(Object, New)),
|
|
functor(Message, Functor, Arity),
|
|
(::retract(calls(Object, Functor/Arity, Old2)) ->
|
|
New2 is Old2 + 1
|
|
;
|
|
New2 = 1 ),
|
|
::assertz(calls(Object, Functor/Arity, New2)).
|
|
|
|
|
|
after(Object, Message, _) :-
|
|
(::retract(exits(Object, Old)) ->
|
|
New is Old + 1
|
|
;
|
|
New = 1),
|
|
::assertz(exits(Object, New)),
|
|
functor(Message, Functor, Arity),
|
|
(::retract(exits(Object, Functor/Arity, Old2)) ->
|
|
New2 is Old2 + 1
|
|
;
|
|
New2 = 1),
|
|
::assertz(exits(Object, Functor/Arity, New2)).
|
|
|
|
|
|
:- end_object.
|