workaround for bug=30927

git-svn-id: svn://10.0.0.236/branches/M15-patch@72213 18797224-902f-48f8-a5cc-f745e15eee43

mozilla/java/dom/jni/javaDOMGlobals.h

@@ -0,0 +1,105 @@
+/* 
+ The contents of this file are subject to the Mozilla Public
+ License Version 1.1 (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.mozilla.org/MPL/
+
+ Software distributed under the License is distributed on an "AS
+ IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
+ implied. See the License for the specific language governing
+ rights and limitations under the License.
+
+ The Original Code is mozilla.org code.
+
+ The Initial Developer of the Original Code is Sun Microsystems,
+ Inc. Portions created by Sun are
+ Copyright (C) 1999 Sun Microsystems, Inc. All
+ Rights Reserved.
+
+ Contributor(s): 
+*/
+
+#ifndef __JavaDOMGlobals_h__
+#define __JavaDOMGlobals_h__
+
+#include "jni.h"
+#include "prclist.h"
+#include "nsError.h"
+
+#ifdef ERROR
+#undef ERROR
+#endif
+
+class nsISupports;
+class nsIDOMNode;
+struct PRLogModuleInfo;
+struct PRLock;
+
+class JavaDOMGlobals {
+
+ public:
+  static jclass attrClass;
+  static jclass cDataSectionClass;
+  static jclass commentClass;
+  static jclass documentClass;
+  static jclass documentFragmentClass;
+  static jclass documentTypeClass;
+  static jclass domImplementationClass;
+  static jclass elementClass;
+  static jclass entityClass;
+  static jclass entityReferenceClass;
+  static jclass namedNodeMapClass;
+  static jclass nodeClass;
+  static jclass nodeListClass;
+  static jclass notationClass;
+  static jclass processingInstructionClass;
+  static jclass textClass;
+
+  static jfieldID nodePtrFID;
+  static jfieldID nodeListPtrFID;
+  static jfieldID domImplementationPtrFID;
+
+  static jfieldID nodeTypeAttributeFID;
+  static jfieldID nodeTypeCDataSectionFID;
+  static jfieldID nodeTypeCommentFID;
+  static jfieldID nodeTypeDocumentFragmentFID;
+  static jfieldID nodeTypeDocumentFID;
+  static jfieldID nodeTypeDocumentTypeFID;
+  static jfieldID nodeTypeElementFID;
+  static jfieldID nodeTypeEntityFID;
+  static jfieldID nodeTypeEntityReferenceFID;
+  static jfieldID nodeTypeNotationFID;
+  static jfieldID nodeTypeProcessingInstructionFID;
+  static jfieldID nodeTypeTextFID;
+
+  static jclass domExceptionClass;
+  static jmethodID domExceptionInitMID;
+  static jclass runtimeExceptionClass;
+  static jmethodID runtimeExceptionInitMID;
+
+  static const char* const DOM_EXCEPTION_MESSAGE[];
+
+  typedef enum ExceptionType { EXCEPTION_RUNTIME, 
+			       EXCEPTION_DOM } ExceptionType;
+  
+  static PRLogModuleInfo* log;
+  static PRCList garbage;
+  static PRLock* garbageLock;
+
+  static PRInt32 javaMaxInt;
+
+  static void Initialize(JNIEnv *env);
+  static void Destroy(JNIEnv *env);
+  static jobject CreateNodeSubtype(JNIEnv *env, 
+				   nsIDOMNode *node);
+
+  static void AddToGarbage(nsISupports* domObject);
+  static void TakeOutGarbage();
+
+  static void ThrowException(JNIEnv *env,
+                             const char * message = NULL,
+                             nsresult rv = NS_OK,
+                             ExceptionType exceptionType = EXCEPTION_RUNTIME);
+};
+  
+#endif /* __JavaDOMGlobals_h__ */

mozilla/webtools/leak-o-matic/Zip.pm

@@ -1,102 +0,0 @@
-#!/usr/bin/perl -w
-# 
-# The contents of this file are subject to the Mozilla Public
-# License Version 1.1 (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.mozilla.org/MPL/
-# 
-# Software distributed under the License is distributed on an "AS
-# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
-# implied. See the License for the specific language governing
-# rights and limitations under the License.
-# 
-# The Original Code is Mozilla Leak-o-Matic.
-# 
-# The Initial Developer of the Original Code is Netscape
-# Communications Corp.  Portions created by Netscape Communucations
-# Corp. are Copyright (C) 1999 Netscape Communications Corp.  All
-# Rights Reserved.
-# 
-# Contributor(s):
-# Chris Waterson <waterson@netscape.com>
-# 
-# $Id: Zip.pm,v 1.3 1999-11-17 19:15:00 waterson%netscape.com Exp $
-#
-
-#
-# Simple, incomplete interface to .zip files.
-#
-
-
-package Zip;
-
-require 5.000;
-
-use strict;
-
-use Carp;
-use IO;
-use Symbol;
-use Time::Local;
-
-my $zipname;
-
-sub new($$) {
-    @_ == 2 || croak 'usage: new Zip [FILENAME]';
-    my $class = shift;
-    my $zip = gensym;
-    if (@_) {
-      Zip::open($zip, $_[0]) || return undef;
-    }
-    bless $zip, $class;
-}
-
-sub DESTROY($) {
-}
-
-sub open($$) {
-    @_ == 2 || croak 'usage: $zip->open(FILENAME)';
-    my ($zip, $filename) = @_;
-    $zipname = $filename;
-}
-
-sub close($) {
-    @_ == 1 || croak 'usage: $zip->close()';
-    $zipname = undef;
-}
-
-sub dir($) {
-    @_ == 1 || croak 'usage: $zip->dir()';
-    $zipname || croak 'no open zipfile';
-
-
-    my @result = ();
-
-    my @list = qx/unzip -l $zipname/;
-    ENTRY: foreach (@list) {
-        # Entry expected to be in the format
-        #   size mm-dd-yy hh:mm name
-        next ENTRY unless (/ *(\d+) +(\d+)-(\d+)-(\d+) +(\d+):(\d+) +(.+)$/);
-
-        my $mtime = Time::Local::timelocal(0, $6, $5, $3, $2, ($4 < 1900) ? ($4 + 1900) : $4);
-
-        push(@result, { name  => $7,
-                        size  => $1,
-                        mtime => $mtime });
-    }
-
-    return @result;
-}
-
-sub expand($$) {
-    @_ == 2 || croak 'usage: $zip->expand(FILENAME)';
-    $zipname || croak 'no open zipfile';
-
-    my $filename = $_[1];
-
-    my $result = new IO::Handle;
-    CORE::open($result, "unzip -p $zipname $filename |");
-    return $result;
-}
-
-1;

mozilla/webtools/leak-o-matic/balance.cgi

@@ -1,366 +0,0 @@
-#!/usr/bin/perl -w
-# 
-# The contents of this file are subject to the Mozilla Public
-# License Version 1.1 (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.mozilla.org/MPL/
-# 
-# Software distributed under the License is distributed on an "AS
-# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
-# implied. See the License for the specific language governing
-# rights and limitations under the License.
-# 
-# The Original Code is Mozilla Leak-o-Matic.
-# 
-# The Initial Developer of the Original Code is Netscape
-# Communications Corp.  Portions created by Netscape Communucations
-# Corp. are Copyright (C) 1999 Netscape Communications Corp.  All
-# Rights Reserved.
-# 
-# Contributor(s):
-# Chris Waterson <waterson@netscape.com>
-# 
-# $Id: balance.cgi,v 1.2 1999-11-17 19:15:00 waterson%netscape.com Exp $
-#
-
-#
-# Builds a tree of reference counts
-#
-
-use 5.004;
-use strict;
-
-use CGI;
-use POSIX;
-use Zip;
-
-$::query = new CGI();
-
-$::opt_log                = $::query->param('log');
-$::opt_class              = $::query->param('class');
-$::opt_object             = $::query->param('object');
-@::opt_exclude            = $::query->param('exclude');
-$::opt_show_balanced      = $::query->param('show-balanced');
-$::opt_subtree_size       = $::query->param('subtree-size');
-$::opt_prune_depth        = $::query->param('prune-depth');
-$::opt_reverse            = $::query->param('reverse');
-$::opt_collapse_to_method = $::query->param('collapse-to-method');
-$::opt_collapse_to_class  = $::query->param('collapse-to-class');
-
-$::opt_log    || die;
-$::opt_class  || die;
-$::opt_object || die;
-
-# Make sure that values get initialized properly
-$::opt_prune_depth = 0        if (! $::opt_prune_depth);
-$::opt_subtree_size = 0       if (! $::opt_subtree_size);
-$::opt_collapse_to_class = 0  if (! $::opt_collapse_to_class);
-$::opt_collapse_to_method = 0 if (! $::opt_collapse_to_method);
-
-# Sanity checks
-$::opt_prune_depth = 0  if $::opt_prune_depth < 0;
-$::opt_subtree_size = 0 if $::opt_subtree_size < 0;
-
-
-print $::query->header;
-
-print qq{
-<html>
-<head>
-<title>$::opt_class [$::opt_object]</title>
-<script language="JavaScript" src="balance.js"></script>
-<style type="text/css" src="balance.css"></style>
-</head>
-<body>
-};
-
-print $::query->h1("$::opt_class [$::opt_object]");
-
-print "<small>\n";
-{
-    my @statinfo = stat($::opt_log);
-    my $when = POSIX::strftime "%a %b %e %H:%M:%S %Y", localtime($statinfo[9]);
-    print "$when<br>\n";
-}
-
-print "<a href='bloat-log.cgi?log=$::opt_log'>Bloat Log</a>\n";
-print "<a href='leaks.cgi?log=$::opt_log'>Back to Overview</a>\n";
-print "</small>\n";
-
-# The 'excludes' are functions that, if detected in a particular call
-# stack, will cause the _entire_ call stack to be ignored. You might,
-# for example, explicitly exclude two functions that have a matching
-# AddRef/Release pair.
-
-my %excludes;
-{
-    my $method;
-    foreach $method (@::opt_exclude) {
-	$excludes{$method} = 1;
-    }
-}
-
-# Each entry in the tree rooted by callGraphRoot contains the following:
-#   #name#      This call's name+offset string
-#   #refcount#  The net reference count of this call
-#   #label#     The label used for this subtree; only defined for labeled nodes
-#   #children#  List of children in alphabetical order
-# zero or more children indexed by method name+offset strings.
-
-my $callGraphRoot;
-$callGraphRoot = { '#name#' => '.root', '#refcount#' => 'n/a' };
-
-# The 'imbalance' is a gross count of how balanced a particular
-# callsite is. It is used to prune away callsites that are detected to
-# be balanced; that is, that have matching AddRef/Release() pairs.
-
-my %imbalance;
-$imbalance{'.root'} = 'n/a';
-
-
-# The main read loop.
-my $log = new Zip($::opt_log);
-$log || die('unable to open log $log');
-
-my $logfile = "refcnt-" . $::opt_class . "-" . $::opt_object . ".log";
-
-my $handle = $log->expand($logfile);
-
-LINE: while (<$handle>) {
-     next LINE if (! /^</);
-     my @fields = split(/ /, $_);
-
-     my $class = shift(@fields);
-     my $obj   = shift(@fields);
-     my $sno   = shift(@fields);
-     next LINE unless ($sno eq $::opt_object);
-
-     my $op  = shift(@fields);
-     next LINE unless ($op eq "AddRef" || $op eq "Release");
-
-     my $cnt = shift(@fields);
-
-     # Collect the remaining lines to create a stack trace.
-     my @stack;
-     CALLSITE: while (<$handle>) {
-         chomp;
-         last CALLSITE if (/^$/);
-         $stack[++$#stack] = $_;
-     }
-
-     # Reverse the remaining fields to produce the call stack, with the
-     # oldest frame at the front of the array.
-     if (! $::opt_reverse) {
-         @stack = reverse(@stack);
-     }
-
-     my $call;
-
-     # If any of the functions in the stack are supposed to be excluded,
-     # march on to the next line.
-     foreach $call (@stack) {
-         next LINE if exists($excludes{$call});
-     }
-
-
-     # Add the callstack as a path through the call graph, updating
-     # refcounts at each node.
-
-     my $caller = $callGraphRoot;
-
-     foreach $call (@stack) {
-
-         # Chop the method offset if we're 'collapsing to method' or
-         # 'collapsing to class'.
-         $call =~ s/\+0x.*$//g if ($::opt_collapse_to_method || $::opt_collapse_to_class);
-
-         # Chop the method name if we're 'collapsing to class'.
-         $call =~ s/::.*$//g if ($::opt_collapse_to_class);
-
-         my $site = $caller->{$call};
-         if (!$site) {
-             # This is the first time we've seen this callsite. Add a
-             # new entry to the call tree.
-
-             $site = { '#name#' => $call, '#refcount#' => 0 };
-             $caller->{$call} = $site;
-         }
-
-         if ($op eq 'AddRef') {
-             ++($site->{'#refcount#'});
-             ++($imbalance{$call});
-         } elsif ($op eq 'Release') {
-             --($site->{'#refcount#'});
-             --($imbalance{$call});
-         } else {
-             die "Bad operation $op";
-         }
-
-         $caller = $site;
-     }
-}
-
-# Given a subtree and its nesting level, return true if that subtree should be pruned.
-# If it shouldn't be pruned, destructively attempt to prune its children.
-# Also compute the #children# properties of unpruned nodes.
-sub prune($$) {
-     my ($site, $nest) = @_;
-
-     # If they want us to prune the tree's depth, do so here.
-     return 1 if ($::opt_prune_depth && $nest >= $::opt_prune_depth);
-
-     # If the subtree is balanced, ignore it.
-     return 1 if (!$::opt_show_balanced && !$site->{'#refcount#'});
-
-     my $name = $site->{'#name#'};
-
-     # If the symbol isn't imbalanced, then prune here (and warn)
-     # XXX no symbol-level balancing; this was buggy.
-#     if (!$::opt_show_balanced && !$imbalance{$name}) {
-#         warn "discarding " . $name . "\n";
-#         return 1;
-#     }
-
-     my @children;
-     foreach my $child (sort(keys(%$site))) {
-         if (substr($child, 0, 1) ne '#') {
-             if (prune($site->{$child}, $nest + 1)) {
-                 delete $site->{$child};
-             } else {
-                 push @children, $site->{$child};
-             }
-         }
-     }
-     $site->{'#children#'} = \@children;
-     return 0;
-}
-
-
-# Compute the #label# properties of this subtree.
-# Return the subtree's number of nodes, not counting nodes reachable 
-# through a labeled node.
-sub createLabels($) {
-     my ($site) = @_;
-     my @children = @{$site->{'#children#'}};
-     my $nChildren = @children;
-     my $nDescendants = 0;
-
-     foreach my $child (@children) {
-         my $childDescendants = createLabels($child);
-         if ($nChildren > 1 && $childDescendants > $::opt_subtree_size) {
-             die "Internal error" if defined($child->{'#label#'});
-             $child->{'#label#'} = "__label__";
-             $childDescendants = 1;
-         }
-         $nDescendants += $childDescendants;
-     }
-     return $nDescendants + 1;
-}
-
-
-my $nextLabel = 0;
-my @labeledSubtrees;
-
-sub list($$$$$) {
-     my ($site, $nest, $nestStr, $childrenLeft, $root) = @_;
-     my $label = !$root && $site->{'#label#'};
-
-     # Assign a unique number to the label.
-     if ($label) {
-         die unless $label eq "__label__";
-         $label = "__" . ++$nextLabel . "__";
-         $site->{'#label#'} = $label;
-         push @labeledSubtrees, $site;
-     }
-
-     print $nestStr;
-     if ($::opt_old_style) {
-         print $label, " " if $label;
-         print $site->{'#name#'}, ": bal=", $site->{'#refcount#'}, "\n";
-     } else {
-         my $refcount = $site->{'#refcount#'};
-         my $l = 8 - length $refcount;
-         $l = 1 if $l < 1;
-         print $refcount, " " x $l;
-         print $label, " " if $label;
-	 print "<tt class='method'>";
-         print $site->{'#name#'};
-	 print "</tt>\n";
-     }
-
-     $nestStr .= $childrenLeft && !$::opt_old_style ? "| " : "  ";
-     if (!$label) {
-         my @children = @{$site->{'#children#'}};
-         $childrenLeft = @children;
-         foreach my $child (@children) {
-             $childrenLeft--;
-             list($child, $nest + 1, $nestStr, $childrenLeft);
-         }
-     }
-}
-
-
-if (!prune($callGraphRoot, 0)) {
-     createLabels $callGraphRoot if ($::opt_subtree_size);
-
-     print "<div onclick='toggle(event.target);'><pre>\n";
-     list $callGraphRoot, 0, "", 0, 1;
-     while (@labeledSubtrees) {
-         my $labeledSubtree = shift @labeledSubtrees;
-         print "\n<hr>\n", $labeledSubtree->{'#label#'}, "\n";
-         list $labeledSubtree, 0, "", 0, 1;
-     }
-     print "\n<hr>\n" if @labeledSubtrees;
-     print "</pre></div>\n";
-}
-
-# Now generate the control panel at the bottom. This needs to be "neater".
-
-print qq{
-<hr>
-<form method='get' action='balance.cgi' onsubmit='onsubmit();'>
-<input id='log'    name='log'    type='hidden' value='$::opt_log'></input>
-<input id='class'  name='class'  type='hidden' value='$::opt_class'></input>
-<input id='object' name='object' type='hidden' value='$::opt_object'></input>
-
-<fieldset>
-<legend>Methods to Exclude</legend>
-<select id='exclude' name='exclude' style='width:100%;height:10em' size="10" multiple>
-};
-
-{
-    my $method;
-    foreach $method (@::opt_exclude) {
-	print "  <option selected>$method</option>\n";
-    }
-}
-
-print qq{
-</select>
-<br>
-
-<input type="button" onclick="remove();" value="Remove"></input>
-</fieldset>
-
-<fieldset>
-<legend>Options</legend>
-};
-
-print "<input id='collapse-to-method' name='collapse-to-method' type='checkbox' value='$::opt_collapse_to_method' ";
-print "checked" if $::opt_collapse_to_method;
-print ">Collapse To Method</input>\n";
-
-print "<input id='collapse-to-class' value='collapse-to-class' type='checkbox' value='$::opt_collapse_to_class' ";
-print "checked" if $::opt_collapse_to_class;
-print ">Collapse To Class</input>\n";
-
-print qq{
-</fieldset>
-
-<input type='submit' value='Rebuild'></input>
-</form>
-};
-
-print $::query->end_html;
-
-

mozilla/webtools/leak-o-matic/balance.css

@@ -1,38 +0,0 @@
-/* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*-
- * 
- * The contents of this file are subject to the Mozilla Public
- * License Version 1.1 (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.mozilla.org/MPL/
- * 
- * Software distributed under the License is distributed on an "AS
- * IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
- * implied. See the License for the specific language governing
- * rights and limitations under the License.
- * 
- * The Original Code is Mozilla Leak-o-Matic.
- * 
- * The Initial Developer of the Original Code is Netscape
- * Communications Corp.  Portions created by Netscape Communucations
- * Corp. are Copyright (C) 1999 Netscape Communications Corp.  All
- * Rights Reserved.
- * 
- * Contributor(s):
- * Chris Waterson <waterson@netscape.com>
- * 
- * $Id: balance.css,v 1.2 1999-11-17 19:15:01 waterson%netscape.com Exp $
- */
-
-/*
-
-  Style rules for the HTML generated by ``balance.cgi''
-
-*/
-
-tt.method {
-  color: blue;
-}
-
-tt.method[selected ~= "true"] {
-  color: red;
-}

mozilla/webtools/leak-o-matic/balance.js

@@ -1,97 +0,0 @@
-/* -*- Mode: Java; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*-
- * 
- * The contents of this file are subject to the Mozilla Public
- * License Version 1.1 (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.mozilla.org/MPL/
- * 
- * Software distributed under the License is distributed on an "AS
- * IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
- * implied. See the License for the specific language governing
- * rights and limitations under the License.
- * 
- * The Original Code is Mozilla Leak-o-Matic.
- * 
- * The Initial Developer of the Original Code is Netscape
- * Communications Corp.  Portions created by Netscape Communucations
- * Corp. are Copyright (C) 1999 Netscape Communications Corp.  All
- * Rights Reserved.
- * 
- * Contributor(s):
- * Chris Waterson <waterson@netscape.com>
- * 
- * $Id: balance.js,v 1.2 1999-11-17 19:15:02 waterson%netscape.com Exp $
- */
-
-/*
-
-   Script for the HTML generated by ``balance.cgi''
-
- */
-
-function toggle(target)
-{
-    var tt = target.parentNode;
-
-    // ensure that we're actuallly looking at a method
-    if (tt.getAttribute('class') != 'method') return;
-
-    // toggle the selected state
-    var selected = tt.getAttribute('selected') == 'true';
-    selected = !selected;
-    tt.setAttribute('selected', selected ? 'true' : 'false');
-
-    // add/remove from the 'exclude' list
-    var exclude = document.getElementById('exclude');
-    var value = target.nodeValue;
-
-    if (selected) {
-	var found = false;
-	for (var i = 0; i < exclude.length; ++i) {
-	    if (exclude.options[i].text == value) {
-		found = true;
-		break;
-	    }
-	}
-
-	if (! found) {
-	    dump('adding ' + value + '\n');
-	    var option = document.createElement('option');
-	    option.setAttribute('selected', 'true');
-	    option.appendChild(document.createTextNode(value));
-	    exclude.appendChild(option);
-	}
-    }
-    else {
-	for (var i = 0; i < exclude.length; ++i) {
-	    if (exclude.options[i].text == value) {
-		exclude.removeChild(exclude.options[i]);
-		break;
-	    }
-	}
-    }
-}
-
-function remove() {
-    // remove all of the selected items from the 'exclude' list
-    var exclude = document.getElementById('exclude');
-
-    for (var i = 0; i < exclude.length; ++i) {
-	if (exclude.options[i].selected) {
-	    exclude.removeChild(exclude.options[i]);
-	    --i;
-	}
-    }
-}
-
-function onsubmit() {
-    // make sure that all of the elements in the select are actually
-    // -selected- so that the HTTP GET will contain them as excludes.
-    var exclude = document.getElementById('exclude');
-
-    for (var i = 0; i < exclude.length; ++i) {
-	// XXX doing this with 'options[i].selected = true' actually
-	// -changes- the selection. Oops.
-	exclude.options[i].setAttribute('selected', 'true');
-    }
-}

mozilla/webtools/leak-o-matic/bloat-log.cgi

@@ -1,65 +0,0 @@
-#!/usr/bin/perl -w
-# 
-# The contents of this file are subject to the Mozilla Public
-# License Version 1.1 (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.mozilla.org/MPL/
-# 
-# Software distributed under the License is distributed on an "AS
-# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
-# implied. See the License for the specific language governing
-# rights and limitations under the License.
-# 
-# The Original Code is Mozilla Leak-o-Matic.
-# 
-# The Initial Developer of the Original Code is Netscape
-# Communications Corp.  Portions created by Netscape Communucations
-# Corp. are Copyright (C) 1999 Netscape Communications Corp.  All
-# Rights Reserved.
-# 
-# Contributor(s):
-# Chris Waterson <waterson@netscape.com>
-# 
-# $Id: bloat-log.cgi,v 1.3 1999-11-17 19:15:02 waterson%netscape.com Exp $
-#
-
-#
-# Extracts the original bloat log from a Leak-o-Matic zip
-#
-
-use 5.004;
-use strict;
-use CGI;
-use POSIX;
-use Zip;
-
-$::query = new CGI();
-
-# The ZIP where all the log files are kept
-$::log = $::query->param('log');
-$::zip = new Zip($::log);
-
-print $::query->header;
-
-{
-    my @statinfo = stat($::log);
-    my $when = POSIX::strftime "%a %b %e %H:%M:%S %Y", localtime($statinfo[9]);
-
-    print $::query->start_html("Bloat Log, $when"),
-          $::query->h1("Bloat Log");
-
-    print "<small>$when</small>\n";
-}
-
-print "<pre>\n";
-
-{
-    my $handle = $::zip->expand('master-bloat.log');
-
-    while (<$handle>) {
-        print $_;
-    }
-}
-
-print "</pre>\n";
-print $::query->end_html;

mozilla/webtools/leak-o-matic/handle-mail.pl

@@ -1,73 +0,0 @@
-#!/usr/bin/perl
-# 
-# The contents of this file are subject to the Mozilla Public
-# License Version 1.1 (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.mozilla.org/MPL/
-# 
-# Software distributed under the License is distributed on an "AS
-# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
-# implied. See the License for the specific language governing
-# rights and limitations under the License.
-# 
-# The Original Code is Mozilla Leak-o-Matic.
-# 
-# The Initial Developer of the Original Code is Netscape
-# Communications Corp.  Portions created by Netscape Communucations
-# Corp. are Copyright (C) 1999 Netscape Communications Corp.  All
-# Rights Reserved.
-# 
-# Contributor(s):
-# Chris Waterson <waterson@netscape.com>
-# 
-# $Id: handle-mail.pl,v 1.4 1999-11-18 03:38:24 waterson%netscape.com Exp $
-#
-
-#
-# ``sendmail'' handler to receive data on the server. Cooperates with
-# ``make-data.pl'', the data collection script.
-#
-# To use, create an account on your server; e.g., "leak-o-matic", that
-# will receive mail from the data collector. In this account's home
-# directory, create a .forward file that containes the following
-#
-# "|handle-mail.pl --datadir=whatever"
-#
-# Yes, the quotes are important. Depending on your sendmail
-# configuration, you may need to place the ``handle-mail.pl'' script
-# in a special directory; e.g., /etc/smrsh on a vanilla RH6.0 system.
-#
-
-use 5.004;
-use strict;
-use Getopt::Long;
-use File::Copy;
-
-GetOptions("datadir=s");
-chdir('/tmp');
-
-# Open a pipe to ``uudecode'' so we can unstuff the binary
-open(OUT, "|uudecode");
-
-LINE: while (<>) {
-    # Ignore anything up until the ``begin'' directive
-    if (/^begin \d\d\d (.*)/) {
-	$::file = $1;
-	print OUT $_;
-	last LINE;
-    }
-}
-
-# No file means we read the entire message and found nothing
-$::file || die;
-
-while (<>) {
-	print OUT $_;
-}
-
-# Be sure to close the pipe (so uudecode can complete) before moving
-# the file
-close(OUT);
-
-# Move to the data directory, if there is one.
-move($::file, $::opt_datadir) if $::opt_datadir;

mozilla/webtools/leak-o-matic/instructions.html

@@ -1,23 +0,0 @@
-<html>
-<head>
-<title>Leak-o-Matic Instructions</title>
-</head>
-
-<body>
-<table border="0" cellpadding="0" cellspacing="0" width="100%">
-<tr><td bgcolor="#000000" valign="top">
-<img src="http://www.mozilla.org/images/mozilla-banner.gif"
-     alt="mozilla.org" border="0" href="http://www.mozilla.org/">
-</td></tr></table>
-
-<center>
-<h1>Leak-o-Matic Instructions</h1>
-</center>
-
-<p>
-Write me!
-</p>
-
-<small>$Id: instructions.html,v 1.1 1999-11-16 22:10:08 waterson%netscape.com Exp $</small>
-</body>
-</html>

mozilla/webtools/leak-o-matic/leaks.cgi

@@ -1,103 +0,0 @@
-#!/usr/bin/perl -w
-# 
-# The contents of this file are subject to the Mozilla Public
-# License Version 1.1 (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.mozilla.org/MPL/
-# 
-# Software distributed under the License is distributed on an "AS
-# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
-# implied. See the License for the specific language governing
-# rights and limitations under the License.
-# 
-# The Original Code is Mozilla Leak-o-Matic.
-# 
-# The Initial Developer of the Original Code is Netscape
-# Communications Corp.  Portions created by Netscape Communucations
-# Corp. are Copyright (C) 1999 Netscape Communications Corp.  All
-# Rights Reserved.
-# 
-# Contributor(s):
-# Chris Waterson <waterson@netscape.com>
-# 
-# $Id: leaks.cgi,v 1.3 1999-11-17 19:15:03 waterson%netscape.com Exp $
-#
-
-#
-# Expands a logfile into all of the leakers
-#
-
-use 5.004;
-use strict;
-use CGI;
-use POSIX;
-use Zip;
-
-$::query = new CGI();
-
-# The ZIP where all the log files are kept
-$::log = $::query->param('log');
-$::zip = new Zip($::log);
-
-print $::query->header;
-
-{
-    my @statinfo = stat($::log);
-    my $when = POSIX::strftime "%a %b %e %H:%M:%S %Y", localtime($statinfo[9]);
-
-    print $::query->start_html("Leaked Objects, $when"),
-          $::query->h1("Leaked Objects");
-
-    print "<small>$when<br><a href='bloat-log.cgi?log=$::log'>Bloat Log</a></small>\n";
-}
-
-# Collect all of the log files. Files are assumed to be named
-# "refcnt-class-serialno.log", so we'll list all of the files and then
-# parse out the 'class' and 'serialno' values to present a pretty
-# HTML-ized version.
-{
-    my @files = $::zip->dir();
-
-    my $current = "";
-    my $count = 0;
-
-    my $file;
-    FILE: foreach (@files) {
-        $_ = $$_{name};
-        next FILE unless (/^refcnt-([^-]+)-(\d+).log$/);
-
-	$::classes{$1} = [] if !$::classes{$1};
-	my $objects = $::classes{$1};
-	push(@$objects, $2);
-    }
-}
-
-print "<table border='0'>\n";
-print "<th><tr bgcolor='#DDDDDD'><td align='center'><b>Class</b></td><td align='center'><b>Objects</b></td></tr></th>\n";
-print "<tbody>\n";
-
-{
-    my $bgcolor='#FFFFFF';
-
-    my $class;
-    foreach $class (sort(keys(%::classes))) {
-	print "<tr bgcolor='$bgcolor'>\n";
-	print "<td valign='top'><a href='http://lxr.mozilla.org/seamonkey/ident?i=$class'>$class</a></td>\n";
-	print "<td><small>\n";
-	my $objects = $::classes{$class};
-
-	my $object;
-	foreach $object (sort { $::a <=> $::b } @$objects) {
-	    print "<a href='balance.cgi?log=$::log&class=$class&object=$object'>$object</a>\n";
-	}
-	print "\n</small></td>\n";
-	print "</tr>\n";
-
-	$bgcolor = ($bgcolor eq '#FFFFFF') ? '#FFFFBB' : '#FFFFFF';
-    }
-}
-
-print "</tbody></table>\n";
-
-print $::query->end_html;
-

mozilla/webtools/leak-o-matic/logs.cgi

@@ -1,101 +0,0 @@
-#!/usr/bin/perl -w
-#
-# The contents of this file are subject to the Mozilla Public
-# License Version 1.1 (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.mozilla.org/MPL/
-#
-# Testing 1-2-3
-# 
-# Software distributed under the License is distributed on an "AS
-# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
-# implied. See the License for the specific language governing
-# rights and limitations under the License.
-# 
-# The Original Code is Mozilla Leak-o-Matic.
-# 
-# The Initial Developer of the Original Code is Netscape
-# Communications Corp.  Portions created by Netscape Communucations
-# Corp. are Copyright (C) 1999 Netscape Communications Corp.  All
-# Rights Reserved.
-# 
-# Contributor(s):
-# Chris Waterson <waterson@netscape.com>
-#
-# $Id: logs.cgi,v 1.6.2.1 2000-01-07 03:46:25 waterson%netscape.com Exp $
-#
-
-#
-# ``Front door'' script that shows all of the logs that are
-# available for perusal
-#
-
-use 5.004;
-use strict;
-use CGI;
-use POSIX;
-
-$::query = new CGI();
-$::logdir = $::query->param('logdir');
-$::logdir = 'data' unless $::logdir; # default is 'data' subdir
-
-print $::query->header;
-print $::query->start_html("Leak-o-Matic");
-
-print qq{
-<table border='0' cellpadding='0' cellspacing='0' width='100%'>
-  <tr>
-    <td bgcolor='#000000' valign='top'>
-      <img src='http://www.mozilla.org/images/mozilla-banner.gif'
-           border="0" alt='mozilla.org' href='http://www.mozilla.org/'>
-    </td>
-  </tr>
-</table>
-
-<center>
-<h1>Leak-o-Matic</h1>
-</center>
-
-<p>
-Welcome to the Marvelous Leak-o-Matic. Listed below are the leak logs
-that are currently available for your perusal.
-</p>
-
-<div align='center'>
-<table border='0' cellpadding='2' cellspacing='0' bgcolor='#EEEEEE'>
-<tr><td bgcolor='#DDDDDD' align='center' colspan='3'><b>Leak-o-Matic Logs</b></td></tr>
-
-};
-
-# ``ls'' the directory, ``-1r'' returns it sorted by name, reversed, so
-# the most recent logs will be at the top.
-
-ZIP: foreach (qx/ls -1r $::logdir\/*.zip/) {
-    chomp;
-
-    next ZIP unless (/(\d\d\d\d)(\d\d)(\d\d)/);
-
-    my ($year, $month, $day) = ($1, $2, $3);
-
-    print "<tr>\n";
-    print "<td>$month/$day/$year</td>\n";
-    print "<td><a href='leaks.cgi?log=$_'>Leaks</a></td>\n";
-    print "<td><a href='bloat-log.cgi?log=$_'>Bloat Log</a></td>\n";
-    print "</tr>\n";
-}
-
-print qq{
-</table>
-</div>
-
-<p>
-For more information on how to use the Leak-o-Matic, see the
-
-<a href="instructions.html">instructions</a>.
-</p>
-
-};
-
-print '<small>$Id: logs.cgi,v 1.6.2.1 2000-01-07 03:46:25 waterson%netscape.com Exp $</small>';
-print $::query->end_html;
-

mozilla/webtools/leak-o-matic/make-data.pl

@@ -1,177 +0,0 @@
-#!/usr/bin/perl -w
-# 
-# The contents of this file are subject to the Mozilla Public
-# License Version 1.1 (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.mozilla.org/MPL/
-# 
-# Software distributed under the License is distributed on an "AS
-# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
-# implied. See the License for the specific language governing
-# rights and limitations under the License.
-# 
-# The Original Code is Mozilla Leak-o-Matic.
-# 
-# The Initial Developer of the Original Code is Netscape
-# Communications Corp.  Portions created by Netscape Communucations
-# Corp. are Copyright (C) 1999 Netscape Communications Corp.  All
-# Rights Reserved.
-# 
-# Contributor(s):
-# Chris Waterson <waterson@netscape.com>
-# 
-# $Id: make-data.pl,v 1.6 1999-11-18 06:06:28 waterson%netscape.com Exp $
-#
-
-#
-# This script runs the apecified application until it's blue in the
-# face. First, it runs it to generate a top level ``master bloat''
-# log, containing a map of all the objects leaked. For each class that
-# it detects has leaked, it re-runs the app to collect the serial
-# numbers of the objects leaked. Then for each object, it re-runs the
-# app to collect a stack trace.
-#
-# It creates a ``.zip'' file that is meant to be used with
-# ``logs.cgi'' and the rest of the Leak-o-Matic CGIs. If the
-# ``--email'' option is specified, it will mail the ``.zip'' file,
-# uuencoded, to the specified address. See ``handle-mail.pl'' for a
-# server-side mail handler.
-#
-
-use 5.004;
-use strict;
-use Getopt::Long;
-use POSIX "sys_wait_h";
-
-$::opt_dir = ".";
-$::opt_app = "mozilla-bin -f bloaturls.txt";
-$::opt_timeout = 600;
-
-GetOptions("dir=s", "app=s", "email=s", "timeout=i");
-
-sub ForkAndWait($$$) {
-    my ($dir, $app, $timeout) = @_;
-    my $pid = fork;
-
-    if ($pid == 0) {
-        open(STDOUT, ">/dev/null");
-        open(STDERR, ">/dev/null");
-        chdir($::opt_dir);
-        exec("$app");
-        # bye!
-    }
-
-    if ($timeout > 0) {
-        while ($timeout--) {
-            sleep 1;
-            my $status = POSIX::waitpid($pid, WNOHANG());
-            return 0 if $status != 0;
-        }
-
-        kill("TERM", $pid);
-        POSIX::waitpid($pid, 0);
-        return -1;
-    }
-    else {
-        POSIX::waitpid($pid, 0);
-    }
-
-    my $status = $? / 256;
-    if ($status != 0) {
-        die "'$app' terminated abnormally, status == $status";
-    }
-
-    return 0;
-}
-
-# First, just run the browser with the bloat log turned on. From that,
-# we'll capture all of the leaky classes.
-
-my $MasterBloatLog = $ENV{"PWD"} . "/master-bloat.log";
-
-printf("generating top-level class list\n");
-$ENV{"XPCOM_MEM_BLOAT_LOG"} = $MasterBloatLog;
-
-ForkAndWait($::opt_dir, $::opt_app, 0);
-
-# Now parse the bloat log.
-my @leakyclasses;
-
-{
-    open(BLOATLOG, $MasterBloatLog);
-
-    LINE: while (<BLOATLOG>) {
-        s/^ +//;
-        next LINE unless /^[0-9]/;
-
-        my ($num, $class, $bytesPerInst, $bytesLeaked,
-            $totalObjects, $remainingObjects)
-            = split(/ +/);
-
-        next LINE unless ($num > 0 && $remainingObjects > 0);
-
-        $leakyclasses[++$#leakyclasses] = $class;
-    }
-}
-
-# Iterate through each class that leaked, and find out what objects
-# have leaked.
-
-my $BloatLogFile = "/tmp/leak-report-bloat.log";
-$ENV{"XPCOM_MEM_BLOAT_LOG"} = $BloatLogFile;
-
-my $class;
-foreach $class (@leakyclasses) {
-    printf("+ $class\n");
-
-    delete $ENV{"XPCOM_MEM_REFCNT_LOG"};
-    delete $ENV{"XPCOM_MEM_LOG_OBJECTS"};
-    $ENV{"XPCOM_MEM_LOG_CLASSES"} = $class;
-
-    ForkAndWait($::opt_dir, $::opt_app, 0);
-
-    open(BLOATLOG, $BloatLogFile);
-
-    my @leakedobjects;
-    my $serialNumbersHaveStarted = 0;
-
-    LINE: while (<BLOATLOG>) {
-        $serialNumbersHaveStarted = 1
-            if /^Serial Numbers of Leaked Objects:/;
-
-        next LINE unless ($serialNumbersHaveStarted && /^[0-9]/);
-
-        chomp;
-        $leakedobjects[++$#leakedobjects] = $_;
-    }
-
-    # ...and for each object that leaked, generate reference count
-    # stack traces.
-
-    my $object;
-    foreach $object (@leakedobjects) {
-        my $refcntlogfile = $ENV{"PWD"} . "/refcnt-" . $class . "-" . $object . ".log";
-
-        print "|- $refcntlogfile\n";
-
-        $ENV{"XPCOM_MEM_REFCNT_LOG"} = $refcntlogfile;
-        $ENV{"XPCOM_MEM_LOG_OBJECTS"} = $object;
-
-        if (ForkAndWait($::opt_dir, $::opt_app, $::opt_timeout) < 0) {
-            print "  * Timed out; discarding.\n";
-            unlink $refcntlogfile;
-        }
-    }
-}
-
-{
-    # Now zip up all of the datafiles into YYYYMMDD.zip
-    my $zipfile = POSIX::strftime("%Y%m%d.zip", localtime(time));
-    system("zip -m $zipfile *.log");
-
-    # ...and mail it off to the server
-    system("cat $zipfile | uuencode $zipfile | mail $::opt_email")
-        if $::opt_email;
-}
-
-