# HG changeset patch
# User Frank Benoit <benoit@tionex.de>
# Date 1205013181 -3600
# Node ID 74109ce6d2e0e16e824c909bb04fdfbac1d547f3

Sleak Tool

diff -r 000000000000 -r 74109ce6d2e0 .hgignore
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.hgignore	Sat Mar 08 22:53:01 2008 +0100
@@ -0,0 +1,14 @@
+syntax: glob
+
+*.a
+*.swp
+*.map
+*.exe
+*.bak
+
+syntax: regexp
+^build.sh$
+^dsss_objs
+^dsss.last
+^dsss_imports
+
diff -r 000000000000 -r 74109ce6d2e0 dsss.conf
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/dsss.conf	Sat Mar 08 22:53:01 2008 +0100
@@ -0,0 +1,4 @@
+
+[dwt/sleak/Sleak.d]
+
+
diff -r 000000000000 -r 74109ce6d2e0 dwt/sleak/Sleak.d
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/dwt/sleak/Sleak.d	Sat Mar 08 22:53:01 2008 +0100
@@ -0,0 +1,293 @@
+/*
+ * Copyright (c) 2000, 2002 IBM Corp.  All rights reserved.
+ * This file is made available under the terms of the Common Public License v1.0
+ * which accompanies this distribution, and is available at
+ * http://www.eclipse.org/legal/cpl-v10.html
+ *
+ * Port to the D programming language
+ *   Frank Benoit <benoit@tionex.de>
+ */
+module dwt.sleak.Sleak;
+
+import dwt.DWT;
+import dwt.graphics.DeviceData;
+import dwt.graphics.Rectangle;
+import dwt.graphics.GC;
+import dwt.graphics.Point;
+import dwt.graphics.Color;
+import dwt.graphics.Font;
+import dwt.graphics.FontData;
+import dwt.graphics.Region;
+import dwt.graphics.Cursor;
+import dwt.widgets.Display;
+import dwt.widgets.Shell;
+import dwt.widgets.Canvas;
+import dwt.widgets.Button;
+import dwt.widgets.Label;
+import dwt.widgets.List;
+import dwt.widgets.Text;
+import dwt.widgets.Event;
+import dwt.widgets.Listener;
+import dwt.widgets.MessageBox;
+
+import dwt.dwthelper.utils;
+import tango.text.convert.Format;
+
+public class Sleak {
+    Display display;
+    Shell shell;
+    List list;
+    Canvas canvas;
+    Button start, stop, check;
+    Text text;
+    Label label;
+
+    Object [] oldObjects;
+    Exception [] oldErrors;
+    Object [] objects;
+    Exception [] errors;
+
+public void open () {
+    display = Display.getCurrent ();
+    shell = new Shell (display);
+    shell.setText ("S-Leak");
+    list = new List (shell, DWT.BORDER | DWT.V_SCROLL);
+    list.addListener (DWT.Selection, new class() Listener  {
+        public void handleEvent (Event event) {
+            refreshObject ();
+        }
+    });
+    text = new Text (shell, DWT.BORDER | DWT.H_SCROLL | DWT.V_SCROLL);
+    canvas = new Canvas (shell, DWT.BORDER);
+    canvas.addListener (DWT.Paint, new class() Listener  {
+        public void handleEvent (Event event) {
+            paintCanvas (event);
+        }
+    });
+    check = new Button (shell, DWT.CHECK);
+    check.setText ("Stack");
+    check.addListener (DWT.Selection, new class() Listener  {
+        public void handleEvent (Event e) {
+            toggleStackTrace ();
+        }
+    });
+    start = new Button (shell, DWT.PUSH);
+    start.setText ("Snap");
+    start.addListener (DWT.Selection, new class() Listener  {
+        public void handleEvent (Event event) {
+            refreshAll ();
+        }
+    });
+    stop = new Button (shell, DWT.PUSH);
+    stop.setText ("Diff");
+    stop.addListener (DWT.Selection, new class() Listener  {
+        public void handleEvent (Event event) {
+            refreshDifference ();
+        }
+    });
+    label = new Label (shell, DWT.BORDER);
+    label.setText ("0 object(s)");
+    shell.addListener (DWT.Resize, new class() Listener  {
+        public void handleEvent (Event e) {
+            layout ();
+        }
+    });
+    check.setSelection (false);
+    text.setVisible (false);
+    Point size = shell.getSize ();
+    shell.setSize (size.x / 2, size.y / 2);
+    shell.open ();
+}
+
+void refreshLabel () {
+    int colors = 0, cursors = 0, fonts = 0, gcs = 0, images = 0, regions = 0;
+    for (int i=0; i<objects.length; i++) {
+        Object object = objects [i];
+        if (cast(Color)object ) colors++;
+        if (cast(Cursor)object ) cursors++;
+        if (cast(Font)object ) fonts++;
+        if (cast(GC)object ) gcs++;
+        if (cast(Image)object ) images++;
+        if (cast(Region)object ) regions++;
+    }
+    char[] string = "";
+    if (colors !is 0) string ~= Format( "{} Color(s)\n", colors );
+    if (cursors !is 0) string ~= Format( "{} Cursor(s)\n", cursors );
+    if (fonts !is 0) string ~= Format( "{} Font(s)\n", fonts );
+    if (gcs !is 0) string ~= Format( "{} GC(s)\n", gcs );
+    if (images !is 0) string ~= Format( "{} Image(s)\n", images );
+    /* Currently regions are not counted. */
+//  if (regions !is 0) string += regions + " Region(s)\n";
+    if (string.length !is 0) {
+        string = string.substring (0, string.length - 1);
+    }
+    label.setText (string);
+}
+
+void refreshDifference () {
+    DeviceData info = display.getDeviceData ();
+    if (!info.tracking) {
+        MessageBox dialog = new MessageBox (shell, DWT.ICON_WARNING | DWT.OK);
+        dialog.setText (shell.getText ());
+        dialog.setMessage ("Warning: Device is not tracking resource allocation");
+        dialog.open ();
+    }
+    Object [] newObjects = info.objects;
+    Exception [] newErrors = info.errors;
+    Object [] diffObjects = new Object [newObjects.length];
+    Exception [] diffErrors = new Exception [newErrors.length];
+    int count = 0;
+    for (int i=0; i<newObjects.length; i++) {
+        int index = 0;
+        while (index < oldObjects.length) {
+            if (newObjects [i] is oldObjects [index]) break;
+            index++;
+        }
+        if (index is oldObjects.length) {
+            diffObjects [count] = newObjects [i];
+            diffErrors [count] = newErrors [i];
+            count++;
+        }
+    }
+    objects = new Object [count];
+    errors = new Exception [count];
+    System.arraycopy (diffObjects, 0, objects, 0, count);
+    System.arraycopy (diffErrors, 0, errors, 0, count);
+    list.removeAll ();
+    text.setText ("");
+    canvas.redraw ();
+    for (int i=0; i<objects.length; i++) {
+        list.add (objectName (objects [i]));
+    }
+    refreshLabel ();
+    layout ();
+}
+
+char[] objectName (Object object) {
+    char[] string = object.toString ();
+    int index = string.lastIndexOf ('.');
+    if (index is -1) return string;
+    return string.substring (index + 1, string.length);
+}
+
+void toggleStackTrace () {
+    refreshObject ();
+    layout ();
+}
+
+void paintCanvas (Event event) {
+    canvas.setCursor (null);
+    int index = list.getSelectionIndex ();
+    if (index is -1) return;
+    GC gc = event.gc;
+    Object object = objects [index];
+    if (cast(Color)object ) {
+        if ((cast(Color)object).isDisposed ()) return;
+        gc.setBackground (cast(Color) object);
+        gc.fillRectangle (canvas.getClientArea());
+        return;
+    }
+    if (cast(Cursor)object ) {
+        if ((cast(Cursor)object).isDisposed ()) return;
+        canvas.setCursor (cast(Cursor) object);
+        return;
+    }
+    if (cast(Font)object ) {
+        if ((cast(Font)object).isDisposed ()) return;
+        gc.setFont (cast(Font) object);
+        FontData [] array = gc.getFont ().getFontData ();
+        char[] string = "";
+        char[] lf = text.getLineDelimiter ();
+        for (int i=0; i<array.length; i++) {
+            FontData data = array [i];
+            char[] style = "NORMAL";
+            int bits = data.getStyle ();
+            if (bits !is 0) {
+                if ((bits & DWT.BOLD) !is 0) style = "BOLD ";
+                if ((bits & DWT.ITALIC) !is 0) style ~= "ITALIC";
+            }
+            string ~= Format( "{} {} {}{}", data.getName (), data.getHeight (), style, lf );
+        }
+        gc.drawString (string, 0, 0);
+        return;
+    }
+    //NOTHING TO DRAW FOR GC
+//  if (object instanceof GC) {
+//      return;
+//  }
+    if (cast(Image)object ) {
+        if ((cast(Image)object).isDisposed ()) return;
+        gc.drawImage (cast(Image) object, 0, 0);
+        return;
+    }
+    if (cast(Region)object ) {
+        if ((cast(Region)object).isDisposed ()) return;
+        char[] string = (cast(Region)object).getBounds().toString();
+        gc.drawString (string, 0, 0);
+        return;
+    }
+}
+
+void refreshObject () {
+    int index = list.getSelectionIndex ();
+    if (index is -1) return;
+    if (check.getSelection ()) {
+        char[] txt;
+        foreach( line; errors[index].info ){
+            txt ~= line ~ \n;
+        }
+        text.setText (txt);
+        text.setVisible (true);
+        canvas.setVisible (false);
+    } else {
+        canvas.setVisible (true);
+        text.setVisible (false);
+        canvas.redraw ();
+    }
+}
+
+void refreshAll () {
+    oldObjects = null;
+    oldErrors = null;
+    refreshDifference ();
+    oldObjects = objects;
+    oldErrors = errors;
+}
+
+void layout () {
+    Rectangle rect = shell.getClientArea ();
+    char[] [] strings = new char[] [](objects.length);
+    int width = 0;
+    char[] [] items = list.getItems ();
+    GC gc = new GC (list);
+    for (int i=0; i<objects.length; i++) {
+        width = Math.max (width, gc.stringExtent (items [i]).x);
+    }
+    gc.dispose ();
+    Point size1 = start.computeSize (DWT.DEFAULT, DWT.DEFAULT);
+    Point size2 = stop.computeSize (DWT.DEFAULT, DWT.DEFAULT);
+    Point size3 = check.computeSize (DWT.DEFAULT, DWT.DEFAULT);
+    Point size4 = label.computeSize (DWT.DEFAULT, DWT.DEFAULT);
+    width = Math.max (size1.x, Math.max (size2.x, Math.max (size3.x, width)));
+    width = Math.max (64, Math.max (size4.x, list.computeSize (width, DWT.DEFAULT).x));
+    start.setBounds (0, 0, width, size1.y);
+    stop.setBounds (0, size1.y, width, size2.y);
+    check.setBounds (0, size1.y + size2.y, width, size3.y);
+    label.setBounds (0, rect.height - size4.y, width, size4.y);
+    int height = size1.y + size2.y + size3.y;
+    list.setBounds (0, height, width, rect.height - height - size4.y);
+    text.setBounds (width, 0, rect.width - width, rect.height);
+    canvas.setBounds (width, 0, rect.width - width, rect.height);
+}
+
+public static void main (char[] [] args) {
+    Display display = new Display ();
+    Sleak sleak = new Sleak ();
+    sleak.open ();
+    while (!sleak.shell.isDisposed ()) {
+        if (!display.readAndDispatch ()) display.sleep ();
+    }
+    display.dispose ();
+}
+
+}