Did you know ... | Search Documentation: |
Pack logtalk -- logtalk-3.86.0/tools/ports_profiler/NOTES.md |
This file is part of Logtalk https://logtalk.org/ SPDX-FileCopyrightText: 1998-2023 Paulo Moura <pmoura@logtalk.org> SPDX-License-Identifier: Apache-2.0
Licensed under the Apache License, Version 2.0 (the "License"); you may not use this file except in compliance with the License. You may obtain a copy of the License at
http://www.apache.org/licenses/LICENSE-2.0
Unless required by applicable law or agreed to in writing, software distributed under the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the License for the specific language governing permissions and limitations under the License.
ports_profiler
This tool counts and reports the number of times each port in the
procedure box model is traversed during the execution of queries.
It can also report the number of times each clause (or grammar rule)
is used. It is inspired by the ECLiPSe port_profiler
tool.
The procedure box model is the same as the one used in the debugger tool.
This is an extended version of the original Byrd's four-port model. Besides
the standard call
, exit
, fail
, and redo
ports, Logtalk also
defines two post-unification ports, fact
and rule
, and an exception
port. This tool can also distinguish between deterministic exits
(reported in the exit
column in the profiling result tables) and
exits that leave choice-points (reported in the `*exit` column).
This tool API documentation is available at:
[../../docs/library_index.html#ports-profiler](../../docs/library_index.html#ports-profiler)
For sample queries, please see the SCRIPT.txt
file in the tool directory.
| ?- logtalk_load(ports_profiler(loader))
.
To test this tool, load the tester.lgt
file:
| ?- logtalk_load(ports_profiler(tester))
.
To compile source files for port profiling, simply compile them in debug mode
and with the source_data
flag turned on. For example:
| ?- logtalk_load(my_source_file, [debug(on), source_data(on)])
.
Alternatively, you can also simply turn on the debug
and source_data
flags
globally before compiling your source files:
| ?- set_logtalk_flag(debug, on)
, set_logtalk_flag(source_data, on)
.
Be aware, however, that loader files (e.g., library loader files) may override the default flag values, and thus the loaded files may not be compiled in debug mode. In this case, you will need to modify the loader files themselves.
After loading this tool and compiling the source files that you want to profile in debug mode, simply call the `ports_profiler::start` goal followed by the goals to be profiled. Use the `ports_profiler::stop` goal to stop profiling.
Note that the `ports_profiler::start/0` predicate implicitly selects the
ports_profiler
tool as the active debug handler. If you have additional
debug handlers loaded (e.g., the debugger
tool), those would no longer
be active (there can be only one active debug handler at any given time).
After calling the goals that you want to profile, you can print a table with all profile data by typing:
| ?- ports_profiler::data.
To print a table with data for a single entity, use the query:
| ?- ports_profiler::data(Entity)
.
To print a table with data for a single entity predicate, use the query:
| ?- ports_profiler::data(Entity, Predicate)
.
In this case, the second argument must be either a predicate indicator,
Name/Arity
, or a non-terminal indicator, Name//Arity
.
The profiling data can be reset using the query:
| ?- ports_profiler::reset.
To reset only the data for a specific entity, use the query:
| ?- ports_profiler::reset(Entity)
.
To illustrate the tool output, consider the family
example in the Logtalk
distribution:
| ?- {ports_profiler(loader)
}.
...
yes
| ?- set_logtalk_flag(debug, on)
.
yes
| ?- logtalk_load(family(loader))
.
...
yes
| ?- ports_profiler::start. yes
| ?- addams::sister(Sister, Sibling)
.
Sister = wednesday,
Sibling = pubert ;
Sister = wednesday,
Sibling = pugsley ;
Sister = wednesday,
Sibling = pubert ;
Sister = wednesday,
Sibling = pugsley ;
no
| ?- ports_profiler::data. ---------------------------------------------------------------------- Entity Predicate Fact Rule Call Exit *Exit Fail Redo Error ---------------------------------------------------------------------- addams female/1 2 0 1 1 1 0 1 0 addams parent/2 8 0 4 3 5 1 5 0 relations sister/2 0 1 1 0 4 1 4 0 ---------------------------------------------------------------------- yes
| ?- ports_profiler::data(addams)
.
-----------------------------------------------------------
Predicate Fact Rule Call Exit *Exit Fail Redo Error
-----------------------------------------------------------
female/1 2 0 1 1 1 0 1 0
parent/2 8 0 4 3 5 1 5 0
-----------------------------------------------------------
yes
| ?- ports_profiler::data(addams, parent/2)
.
-------------
Clause Count
-------------
1 1
2 1
3 2
4 1
5 1
6 2
-------------
yes
Some useful information that can be inferred from the profiling data include:
call
port)fail
port) and
redo` ports) and
redo` ports)fact
, rule
, and call
ports)
This tool can also be applied to Prolog modules that Logtalk is able to
compile as objects. For example, if the Prolog module file is named
module.pl
, try:
| ?- logtalk_load(module, [debug(on), source_data(on)])
.
Due to the lack of standardization of module systems and the abundance of proprietary extensions, this solution is not expected to work for all cases.
This tool can also be applied to plain Prolog code. For example, if the Prolog
file is named code.pl
, simply define an object including its code and declaring
as public any predicates that you want to use as messages to the object. For
example:
:- object(code). :- public(foo/2). :- include('code.pl'). :- end_object.
Save the object to an e.g. code.lgt
file in the same directory as the
Prolog file and then load it in debug mode:
| ?- logtalk_load(code, [debug(on), source_data(on)])
.
In alternative, use the object_wrapper_hook
provided by the hook_objects
library:
| ?- logtalk_load(hook_objects(loader))
.
...
logtalk_load(
code,
[hook(object_wrapper_hook), debug(on),
source_data(on), context_switching_calls(allow)]
)
.
In this second alternative, you can then use the (<<)/2
context switch
control construct to call the wrapped predicates. E.g.
| ?- code<<foo(X, Y)
.
With either wrapping solution, pay special attention to any compilation warnings that may signal issues that could prevent the plain Prolog code from working as-is when wrapped by an object. Often any required changes are straightforward (e.g., adding use_module/2 directives for called module library predicates).
Determinism information is currently not available when using Quintus Prolog as the backend compiler.