diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Logtalk 2.20.0 files.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1114 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura
2004-08-16 16:41:11 +00:00
parent 1781ff9420
commit f5e660b9a3
156 changed files with 1886 additions and 438 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Logtalk/examples/profiling/NOTES
View File

@@ -1,6 +1,6 @@
=================================================================
Logtalk - Object oriented extension to Prolog
Release 2.19.1
Release 2.20.0
Copyright (c) 1998-2004 Paulo Moura. All Rights Reserved.
=================================================================

2
Logtalk/examples/profiling/SCRIPT
View File

@@ -1,6 +1,6 @@
=================================================================
Logtalk - Object oriented extension to Prolog
Release 2.19.1
Release 2.20.0
Copyright (c) 1998-2004 Paulo Moura. All Rights Reserved.
=================================================================

24
Logtalk/examples/profiling/timer.lgt
View File

@@ -3,14 +3,14 @@
:- info([
version is 1.1,
version is 1.2,
author is 'Paulo Moura',
date is 2004/6/30,
date is 2004/8/15,
comment is 'Call executing time profiler.']).
:- uses(time).
:- uses(loop).
:- uses(time, [cpu_time/1]).
:- uses(loop, [forto/3]).
:- public(timer/2).
@@ -34,19 +34,19 @@
timer(Call, Time) :-
time::cpu_time(Start),
cpu_time(Start),
(call(Call) -> true; true),
time::cpu_time(End),
cpu_time(End),
Time is End - Start.
timer(Call, Times, Time) :-
time::cpu_time(Start),
loop::forto(1, Times, Call),
time::cpu_time(End),
time::cpu_time(Start2),
loop::forto(1, 0, true),
time::cpu_time(End2),
cpu_time(Start),
forto(1, Times, Call),
cpu_time(End),
cpu_time(Start2),
forto(1, 0, true),
cpu_time(End2),
Overhead is End2 - Start2,
Time is (End - Start - Overhead) / Times.