CocoaDev

You can use the leaks tools with perl to create terminal output that is easier to read (at least for me).

I am not a Cocoa or Perl expert, so I imagine there is a simpler and/or more elegant implementation of the following. However, I thought I would share it as it is has been very useful for me.

I use a debug build with following environment variables set:

General/MallocStackLogging 1 General/MallocScribble 1 General/MallocGuardEdges 1 General/MallocCheckHeapStart 1 General/MallocCheckHeapEach 10000 General/NSDebugEnabled YES General/NSZombieEnabled YES General/NSHangOnUncaughtException YES

• Eric

#!/usr/bin/perl -w

%leaks = ();

while () { $line = $_; chomp $line; if (($line =~ /Leak/) and !($line =~ /General/NSZombie/)) { $leak = $line; print $leak . "\n";

	$call_stack = <LEAKS>;
	chomp $call_stack;
	$call_stack =~ s/^\s+//;
	$call_stack =~ s/\[thread.*\]://;
	
	if (exists $leaks{$call_stack})
	{
		my ($leak, $count) = @{$leaks{$call_stack}};
		$count = $count + 1;
		$leaks{$call_stack} = [$leak, $count];
	}
	else
	{
		$leaks{$call_stack} = [$leak, 1];
	}
} }

print “\n”;

while (($call_stack, $leak_values) = each %leaks) { my ($leak, $count) = @{$leak_values};

print $leak . "count=" . $count . "\n";

@fields = split(/ \| /, $call_stack);
foreach $field (@fields)
{
	print "\t" . $field . "\n";
}
print "\n"; }