IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

add timing info

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@5016 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Linas Vepstas 2001-07-26 01:08:12 +00:00
parent 423eb9b641
commit 598441ad21
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/optional/swig/examples/scan-acct.pl
View File

@ -16,16 +16,22 @@ print "Will load $ARGV[0]\n";
gnucash::gnc_engine_init(0, $ARGV);
$session = gnucash::gnc_book_new ();
$rc = gnucash::gnc_book_begin ($session, $ARGV[0], 0, 0);
$rc = gnucash::gnc_book_begin ($session, $ARGV[0], 1, 0);
if ($rc != 1)
{
$err = gnucash::gnc_book_get_error ($session);
print "Could not find $ARGV[0], errrocode=$err\n";
}
$secs = time;
$rc = gnucash::gnc_book_load ($session);
die "Could not load $ARGV[0]\n" if $rc != 1;
($user,$sys,$cuser,$csys) = times;
$elapsed = time() - $secs;
print "time to load: user-cpu=$user sys-cpu=$sys elapsed(rounded to sec)=$elapsed\n";
$grp = gnucash::gnc_book_get_group ($session);
$numacc = gnucash::xaccGroupGetNumAccounts ($grp);
print "Loaded $numacc accounts\n\n";
@ -38,4 +44,16 @@ for ($i=0; $i<$numacc; $i++) {
print "\tAccount: $acctname \tBalance: $baln\n";
}
$fsecs = time;
($user,$sys,$cuser,$csys) = times;
gnucash::gnc_book_end ($session);
($fuser,$fsys,$cuser,$csys) = times;
$elapsed = time() - $secs;
print "time to finish: user-cpu=$fuser sys-cpu=$fsys elapsed(rounded to sec)=$elapsed\n";
$fuser -= $user;
$fsys -= $sys;
$elapsed = time() - $fsecs;
print "delta time to finish: user-cpu=$fuser sys-cpu=$fsys elapsed(rounded to sec)=$elapsed\n";