private string GenerateCallableTypeNameFrom(Node sourceNode, Module module)
{
var enclosing = (sourceNode.GetAncestor(NodeType.ClassDefinition) ?? sourceNode.GetAncestor(NodeType.InterfaceDefinition) ?? sourceNode.GetAncestor(NodeType.EnumDefinition) ?? sourceNode.GetAncestor(NodeType.Module)) as TypeMember;
string prefix = "";
string postfix = "";
if(enclosing != null)
{
prefix += enclosing.Name;
enclosing = (sourceNode.GetAncestor(NodeType.Method)
?? sourceNode.GetAncestor(NodeType.Property)
?? sourceNode.GetAncestor(NodeType.Event)
?? sourceNode.GetAncestor(NodeType.Field)) as TypeMember;
if(enclosing != null)
{
prefix += "_" + enclosing.Name;
}
prefix += "$";
}
else if (!sourceNode.LexicalInfo.Equals(LexicalInfo.Empty))
{
prefix += Path.GetFileNameWithoutExtension(sourceNode.LexicalInfo.FileName) + "$";
}
if(!sourceNode.LexicalInfo.Equals(LexicalInfo.Empty))
{
postfix = "$" + sourceNode.LexicalInfo.Line + "_" + sourceNode.LexicalInfo.Column + postfix;
}
return "__" + prefix + "callable" + module.Members.Count + postfix + "__";
}