// ==========================================================================
// This software is subject to the provisions of the Zope Public License,
// Version 2.0 (ZPL).  A copy of the ZPL should accompany this distribution.
// THIS SOFTWARE IS PROVIDED "AS IS" AND ANY AND ALL EXPRESS OR IMPLIED
// WARRANTIES ARE DISCLAIMED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
// WARRANTIES OF TITLE, MERCHANTABILITY, AGAINST INFRINGEMENT, AND FITNESS
// FOR A PARTICULAR PURPOSE.
// ==========================================================================

using System;
using System.Collections;
using System.Reflection;
using System.Runtime.InteropServices;
using System.Diagnostics;
using System.Threading;

namespace Python.Runtime {

    /// 
    /// Debugging helper utilities.
    /// 

    internal class DebugUtil {


	public static void Print(string msg, params IntPtr[] args) {
	    string result = msg;
	    result += " ";

	    for (int i = 0; i < args.Length; i++) {
		if (args[i] == IntPtr.Zero) {
		    Console.WriteLine("null arg to print");
		}
		IntPtr ob = Runtime.PyObject_Repr(args[i]);
		result += Runtime.GetManagedString(ob);
		Runtime.Decref(ob);
		result += " ";
	    }
	    Console.WriteLine(result);
	    return;
	}


	internal static void DumpType(IntPtr type) {
	    IntPtr op = Marshal.ReadIntPtr(type, TypeOffset.tp_name);
	    string name = Marshal.PtrToStringAnsi(op);

	    Console.WriteLine("Dump type: {0}", name);

	    op = Marshal.ReadIntPtr(type, TypeOffset.ob_type);
	    DebugUtil.Print("  type: ", op);

	    op = Marshal.ReadIntPtr(type, TypeOffset.tp_base);
	    DebugUtil.Print("  base: ", op);

	    op = Marshal.ReadIntPtr(type, TypeOffset.tp_bases);
	    DebugUtil.Print("  bases: ", op);

	    //op = Marshal.ReadIntPtr(type, TypeOffset.tp_mro);
	    //DebugUtil.Print("  mro: ", op);


	    FieldInfo[] slots = typeof(TypeOffset).GetFields();
	    int size = IntPtr.Size;

	    for (int i = 0; i < slots.Length; i++) {
		int offset = i * size;
		name = slots[i].Name;
		op = Marshal.ReadIntPtr(type, offset);
		Console.WriteLine("  {0}: {1}", name, op);
	    }

	    Console.WriteLine("");
	    Console.WriteLine("");

	    op = Marshal.ReadIntPtr(type, TypeOffset.tp_dict);
	    if (op == IntPtr.Zero) {
		Console.WriteLine("  dict: null");
	    }
	    else {
		DebugUtil.Print("  dict: ", op);
	    }

	}


	internal static void DumpInst(IntPtr ob) {
	    IntPtr tp = Runtime.PyObject_TYPE(ob);
	    int sz = (int)Marshal.ReadIntPtr(tp, TypeOffset.tp_basicsize);

	    for (int i = 0; i < sz; i += IntPtr.Size) {
		IntPtr pp = new IntPtr(ob.ToInt64() + i);
		IntPtr v = Marshal.ReadIntPtr(pp);
		Console.WriteLine("offset {0}: {1}", i, v);
	    }

	    Console.WriteLine("");
	    Console.WriteLine("");
	}


	internal static void debug(string msg) {
	    StackTrace st = new StackTrace(1, true);
	    StackFrame sf = st.GetFrame(0);
	    MethodBase mb = sf.GetMethod();
	    Type mt = mb.DeclaringType;
	    string caller = mt.Name + "." + sf.GetMethod().Name;
	    Thread t = Thread.CurrentThread;
	    string tid = t.GetHashCode().ToString();
	    Console.WriteLine("thread {0} : {1}", tid, caller); 
	    Console.WriteLine("  {0}", msg);
	    return;
	}


    }


}