mcs/class/Mono.Cairo/Mono.Cairo/CairoDebug.cs

   1 //
   2 // CairoDebug.cs
   3 //
   4 // Author:
   5 //   Michael Hutchinson (mhutch@xamarin.com)
   6 //
   7 // Copyright (C) 2013 Xamarin Inc. (http://www.xamarin.com)
   8 //
   9 // Permission is hereby granted, free of charge, to any person obtaining
  10 // a copy of this software and associated documentation files (the
  11 // "Software"), to deal in the Software without restriction, including
  12 // without limitation the rights to use, copy, modify, merge, publish,
  13 // distribute, sublicense, and/or sell copies of the Software, and to
  14 // permit persons to whom the Software is furnished to do so, subject to
  15 // the following conditions:
  16 //
  17 // The above copyright notice and this permission notice shall be
  18 // included in all copies or substantial portions of the Software.
  19 //
  20 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
  21 // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
  22 // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
  23 // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
  24 // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
  25 // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
  26 // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  27 //
  28
  29 using System;
  30
  31 namespace Cairo {
  32
  33         static class CairoDebug
  34         {
  35                 static System.Collections.Generic.Dictionary<IntPtr,string> traces;
  36
  37                 public static readonly bool Enabled;
  38
  39                 static CairoDebug ()
  40                 {
  41                         var dbg = Environment.GetEnvironmentVariable ("MONO_CAIRO_DEBUG_DISPOSE");
  42                         if (dbg == null)
  43                                 return;
  44                         Enabled = true;
  45                         traces = new System.Collections.Generic.Dictionary<IntPtr,string> ();
  46                 }
  47
  48                 public static void OnAllocated (IntPtr obj)
  49                 {
  50                         if (!Enabled)
  51                                 throw new InvalidOperationException ();
  52
  53                         traces[obj] = Environment.StackTrace;
  54                 }
  55
  56                 public static void OnDisposed<T> (IntPtr obj, bool disposing)
  57                 {
  58                         if (disposing && !Enabled)
  59                                 throw new InvalidOperationException ();
  60
  61                         if (Environment.HasShutdownStarted)
  62                                 return;
  63
  64                         if (!disposing) {
  65                                 Console.Error.WriteLine ("{0} is leaking, programmer is missing a call to Dispose", typeof(T).FullName);
  66                                 if (Enabled) {
  67                                         string val;
  68                                         if (traces.TryGetValue (obj, out val)) {
  69                                                 Console.Error.WriteLine ("Allocated from:");
  70                                                 Console.Error.WriteLine (val);
  71                                         }
  72                                 } else {
  73                                         Console.Error.WriteLine ("Set MONO_CAIRO_DEBUG_DISPOSE to track allocation traces");
  74                                 }
  75                         }
  76
  77                         if (Enabled)
  78                                 traces.Remove (obj);
  79                 }
  80         }
  81
  82 }