/// <summary>Развертывание информации в NodeDescriptor из полученного экземпляра обьекта</summary>
public static NodeDescriptor DispatchNode(object obj)
{
NodeDescriptor node = new NodeDescriptor();
node.NodeObject = obj;
if (obj == null) {
node.NodeType = NodeTypes.IsNull;
return node;
}
Type typeresolver = obj.GetType();
node.TypeName = typeresolver.ToString();
PropertyInfo[] fields = typeresolver.GetProperties(BindingFlags.Public | BindingFlags.NonPublic | BindingFlags.Instance);
foreach (PropertyInfo pi in fields) {
}
node.MembersCount = typeresolver.GetFields(BindingFlags.Public | BindingFlags.NonPublic | BindingFlags.Instance).Length
+ typeresolver.GetProperties(BindingFlags.Public | BindingFlags.NonPublic | BindingFlags.Instance).Length;
node.NodeObject = obj;
// строки считаем тоже "простым значением" (они всеравно immutable)
foreach (Type tt in simpleTypes) {
if (tt == typeresolver) {
node.NodeType = NodeTypes.IsValue;
node.MembersCount = 0;
node.Value = obj.ToString();
return node;
}
}
if (obj is Exception) {
node.NodeType = NodeTypes.IsException;
node.Value = ((Exception)obj).Message;
return node;
}
if (node.NodeObject is ValueType) {
node.NodeType = NodeTypes.IsStruct;
} else {
node.NodeType = NodeTypes.IsObject;
}
node.Value = obj.ToString();
return node;
}
public override ArrayListSerialized Trace(NodesCollection c, NodeDescriptor d, string arcName)
{
arcName = (arcName == null) ? null : arcName.ToLower();
ArrayListSerialized res = new ArrayListSerialized();
int x = arcName.IndexOf(":");
string ns = "";
if (x >= 0) {
ns = arcName.Substring(0, x).Trim();
arcName = arcName.Substring(x + 1).Trim();
}
if (d.SubNodes == null) d.SubNodes = new ArrayListSerialized();
if (ns == "special") {
if (arcName == "functions") {
res = Functions(c, d);
} else if (arcName == "vars") {
res = Vars(c, d);
}
d.SubNodes.AddRange(res);
}
return res;
}
protected virtual ArrayListSerialized Vars(NodesCollection c, NodeDescriptor d)
{
ArrayListSerialized res = new ArrayListSerialized();
ILisp l = Lisp.Current;
foreach (Symbol s in l.Interpreter.CurrentPackage.ExternalTable.GetSymbols()) {
if (s.IsDefined && !(s.GlobalValue is Front.Lisp.Closure)) {
NodeDescriptor n = c.GetDescriptor(s.GlobalValue);
n.NodePath = s.Name;
n.NodeName = s.Name;
res.Add(n);
c.Add(n);
}
}
foreach (Symbol s in l.Interpreter.CurrentPackage.InternalTable.GetSymbols()) {
if (s.IsDefined && !(s.GlobalValue is Front.Lisp.Closure)) {
NodeDescriptor n = c.GetDescriptor(s.GlobalValue);
n.NodePath = s.Name;
n.NodeName = s.Name;
res.Add(n);
c.Add(n);
}
}
return res;
}
public override ArrayListSerialized Trace(NodesCollection c, NodeDescriptor d, string arcName)
{
arcName = (arcName == null) ? null : arcName.ToLower();
ArrayListSerialized res = new ArrayListSerialized();
int x = arcName.IndexOf(":");
string ns = "";
if (x >= 0) {
ns = arcName.Substring(0, x).Trim();
arcName = arcName.Substring(x + 1).Trim();
}
if (ns == "special") {
if (arcName == "subnodes") {
// TODO: рефлектим на запчасти!
res = SubNodes(c, d);
}
} else {
if (ns == "") {
// TODO: ищем Member'ы c именем arcName
} else {
// TODO: пока ничего... потом придумаем :-)
}
}
return res;
}
//.........................................................................
protected virtual ArrayListSerialized SubNodes(NodesCollection c, NodeDescriptor node)
{
if (node.MembersCount == 0) return null;
if (node.NodeObject == null) return null;
if (node.SubNodes == null) node.SubNodes = new ArrayListSerialized();
if (node.SubNodes.Count > 0)
return node.SubNodes;
node.SubNodes.AddRange(GetPublicFields(c, node));
node.SubNodes.AddRange(GetPrivateFields(c, node));
node.SubNodes.AddRange(GetPublicProperties(c, node));
node.SubNodes.AddRange(GetPrivateProperties(c, node));
return node.SubNodes;
}
protected virtual ArrayList GetPublicProperties(NodesCollection c, NodeDescriptor node)
{
ArrayList publishedFields = new ArrayList();
Type typeresolver = node.NodeObject.GetType();
PropertyInfo[] publicProperties = typeresolver.GetProperties(BindingFlags.NonPublic | BindingFlags.Instance);
if (publicProperties.Length > 0) {
foreach (PropertyInfo property in publicProperties) {
NodeDescriptor subNode = ExtractProperty(c, node, property);
subNode.NodeName = property.Name;
subNode.NodeMembership = NodeMemberships.isProperty;
subNode.NodePublicity = NodePublicities.isNonPublic;
node.SubNodes.Add(subNode);
}
}
return publishedFields;
}
//Public'i Fields
protected virtual ArrayList GetPublicFields(NodesCollection c, NodeDescriptor node)
{
ArrayList publishedFields = new ArrayList();
Type typeresolver = node.NodeObject.GetType();
FieldInfo[] publicFields = typeresolver.GetFields(BindingFlags.Public | BindingFlags.Instance);
if (publicFields.Length > 0) {
foreach (FieldInfo field in publicFields) {
object obj = field.GetValue(node.NodeObject);
NodeDescriptor subNode = c.GetDescriptor(obj);
subNode.NodeName = field.Name;
subNode.NodeMembership = NodeMemberships.isField;
subNode.NodePublicity = NodePublicities.isPublic;
node.SubNodes.Add(subNode);
}
}
return publishedFields;
}
public abstract ArrayListSerialized Trace(NodesCollection c, NodeDescriptor d, string arcName);
protected virtual NodeDescriptor ExtractProperty(NodesCollection c, NodeDescriptor node, PropertyInfo property)
{
NodeDescriptor subNode;
object obj = null;
ParameterInfo[] parInfos = property.GetIndexParameters();
if (parInfos.Length == 0) {
try {
obj = property.GetValue(node.NodeObject, null);
subNode = c.GetDescriptor(obj);
} catch (Exception ex){
return c.GetDescriptor(ex);
}
} else {
obj = property;
subNode = c.GetDescriptor(obj);
subNode.MembersCount = parInfos.Length;
subNode.TypeName = property.ReflectedType.Name;
subNode.Value = "";
foreach (ParameterInfo parInfo in parInfos) {
subNode.Value += string.Format("[{0} {1}] ", parInfo.Name, parInfo.ParameterType.Name);
}
}
return subNode;
}
public override ArrayListSerialized Trace(NodesCollection c, NodeDescriptor d, string arcName)
{
ArrayListSerialized res = new ArrayListSerialized();
return res;
}