readonly Stream s;

readonly ProfileData data;

int id;

readonly Dictionary<TypeRecord, int> typeIds = new Dictionary<TypeRecord, int> ();

readonly Dictionary<ModuleRecord, int> moduleIds = new Dictionary<ModuleRecord, int> ();

public ProfileWriter (Stream s, ProfileData data)

{

this.s = s;

this.data = data;

}

unsafe void WriteInt32 (int intValue)

{

byte* b = (byte*)&intValue;

for (int i = 0; i < 4; i++)

s.WriteByte (b [i]);

}

void WriteString (string str)

{

WriteInt32 (str.Length);

var buf = Encoding.UTF8.GetBytes (str);

s.Write (buf, 0, buf.Length);

}

int AddModule (ModuleRecord m)

{

int mId;

if (moduleIds.TryGetValue (m, out mId))

return mId;

mId = id++;

moduleIds [m] = mId;

WriteRecord (RecordType.IMAGE, mId);

WriteString (m.Name);

WriteString (m.Mvid);

return mId;

}

int AddType (TypeRecord t)

{

int tId;

if (typeIds.TryGetValue (t, out tId))

return tId;

var moduleId = AddModule (t.Module);

int instId = -1;

if (t.GenericInst != null)

instId = AddGenericInstance (t.GenericInst);

tId = id++;

typeIds [t] = tId;

WriteRecord (RecordType.TYPE, tId);

s.WriteByte ((byte)MonoTypeEnum.MONO_TYPE_CLASS);

WriteInt32 (moduleId);

WriteInt32 (instId);

WriteString (t.Name);

return tId;

}

int AddGenericInstance (GenericInstRecord gi)

{

// add the types first, before we start writing the GINST record

for (int i = 0; i < gi.Types.Length; i++)

AddType (gi.Types [i]);

var gId = id++;

WriteRecord (RecordType.GINST, gId);

WriteInt32 (gi.Types.Length);

for (int i = 0; i < gi.Types.Length; i++)

WriteInt32 (AddType (gi.Types [i]));

return gId;

}

void WriteMethod (MethodRecord m)

{

var typeId = AddType (m.Type);

int instId = -1;

if (m.GenericInst != null)

instId = AddGenericInstance (m.GenericInst);

WriteRecord (RecordType.METHOD, id++);

WriteInt32 (typeId);

WriteInt32 (instId);

WriteInt32 (m.ParamCount);

WriteString (m.Name);

WriteString (m.Signature);

}

void WriteRecord (RecordType rt, int value)

{

s.WriteByte ((byte)rt);

WriteInt32 (value);

}

public void Write ()

{

var buf = Encoding.UTF8.GetBytes (MAGIC);

s.Write (buf, 0, buf.Length);

WriteInt32 ((MAJOR_VERSION << 16) | MINOR_VERSION);

foreach (var m in data.Methods)

WriteMethod (m);

// make sure ew have all the types

// sometime the profile contain type, which is not referenced from the methods

foreach (var t in data.Types)

AddType (t);

// just to be complete, do not miss any module too

foreach (var module in data.Modules)

AddModule (module);

WriteRecord (RecordType.NONE, 0);

s.Flush ();

}