86 lines
2.4 KiB
C#
86 lines
2.4 KiB
C#
|
namespace tlang
|
||
|
|
{
|
||
|
|
internal class ArraySubscriptNode : MemberGetVariableValue
|
||
|
|
{
|
||
|
|
public Node Argument {get;set;}
|
||
|
|
|
||
|
|
public ArraySubscriptNode(Node parent, string text, Node arg) : base(parent,text)
|
||
|
|
{
|
||
|
|
|
||
|
|
Argument = arg;
|
||
|
|
}
|
||
|
|
public override TObject Execute(IScopeEnvironment nodeEnv)
|
||
|
|
{
|
||
|
|
var arg = Argument.Execute(nodeEnv);
|
||
|
|
var p=Parent.Execute(nodeEnv);
|
||
|
|
var dict = p as TDictionary;
|
||
|
|
var ls = p as TArray;
|
||
|
|
var str = p as TString;
|
||
|
|
if(dict != null)
|
||
|
|
{
|
||
|
|
var sArg = arg as TString;
|
||
|
|
var at = dict["at"] as ICallable;
|
||
|
|
|
||
|
|
if(at != null)
|
||
|
|
{
|
||
|
|
return at.Call(arg);
|
||
|
|
}
|
||
|
|
|
||
|
|
if(sArg != null)
|
||
|
|
{
|
||
|
|
|
||
|
|
return dict[sArg.Value];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if(ls != null)
|
||
|
|
{
|
||
|
|
var nArg = arg as TNumber;
|
||
|
|
if(nArg != null && nArg.Value < ls.Items.Count)
|
||
|
|
{
|
||
|
|
return ls.Items[(int)nArg.Value];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if(str != null)
|
||
|
|
{
|
||
|
|
var nArg = arg as TNumber;
|
||
|
|
if(nArg != null && nArg.Value < str.Value.Length)
|
||
|
|
{
|
||
|
|
return new TChar(str.Value[(int)nArg.Value]);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return TObject.Uninit;
|
||
|
|
}
|
||
|
|
public override void SetValue(IScopeEnvironment nodeEnv, TObject value)
|
||
|
|
{
|
||
|
|
var arg = Argument.Execute(nodeEnv);
|
||
|
|
var p=Parent.Execute(nodeEnv);
|
||
|
|
var dict = p as TDictionary;
|
||
|
|
var ls = p as TArray;
|
||
|
|
var str = p as TString;
|
||
|
|
if(dict != null)
|
||
|
|
{
|
||
|
|
var sArg = arg as TString;
|
||
|
|
var at = dict["setAt"] as ICallable;
|
||
|
|
|
||
|
|
if(at != null)
|
||
|
|
{
|
||
|
|
at.Call(arg,value);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
if(sArg != null)
|
||
|
|
{
|
||
|
|
|
||
|
|
dict[sArg.Value] = value;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if(ls != null)
|
||
|
|
{
|
||
|
|
var nArg = arg as TNumber;
|
||
|
|
if(nArg != null && nArg.Value < ls.Items.Count)
|
||
|
|
{
|
||
|
|
ls.Items[(int)nArg.Value] = value;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|