/// <exception cref="Kirikiri.Tjs2.VariantException"></exception>
public static string VariantToExpressionString(Variant val)
{
// convert given variant to string which can be interpret as an expression.
// this function does not convert objects ( returns empty string )
if (val.IsVoid())
{
return "void";
}
else
{
if (val.IsInteger())
{
return val.AsString();
}
else
{
if (val.IsReal())
{
string s = Variant.RealToHexString(val.AsDouble());
return s + " /* " + val.AsString() + " */";
}
else
{
if (val.IsString())
{
string s = LexBase.EscapeC(val.AsString());
return "\"" + s + "\"";
}
else
{
if (val.IsOctet())
{
string s = Variant.OctetToListString(val.AsOctet());
return "<%" + s + "%>";
}
else
{
return string.Empty;
}
}
}
}
}
}
/// <exception cref="Kirikiri.Tjs2.TJSException"></exception>
/// <exception cref="Kirikiri.Tjs2.VariantException"></exception>
protected internal static void TypeOfMemberIndirect(Variant result, Variant target
, Variant member, Dispatch2 objthis, int flags)
{
if (target.IsObject())
{
VariantClosure clo = target.AsObjectClosure();
if (member.IsInteger() != true)
{
string str = member.AsString();
int hr = clo.PropGet(flags, str, result, clo.mObjThis != null ? clo.mObjThis : objthis
);
if (hr == Error.S_OK)
{
TypeOf(result);
}
else
{
if (hr == Error.E_MEMBERNOTFOUND)
{
result.Set("undefined");
}
else
{
if (hr < 0)
{
ThrowFrom_tjs_error(hr, str);
}
}
}
}
else
{
int hr = clo.PropGetByNum(flags, member.AsInteger(), result, clo.mObjThis != null
? clo.mObjThis : objthis);
if (hr == Error.S_OK)
{
TypeOf(result);
}
else
{
if (hr == Error.E_MEMBERNOTFOUND)
{
result.Set("undefined");
}
else
{
if (hr < 0)
{
ThrowFrom_tjs_error_num(hr, member.AsInteger());
}
}
}
}
}
else
{
if (target.IsString())
{
GetStringProperty(result, target, member);
TypeOf(result);
}
else
{
if (target.IsOctet())
{
GetOctetProperty(result, target, member);
TypeOf(result);
}
else
{
string mes = Error.VariantConvertErrorToObject.Replace("%1", Utils.VariantToReadableString
(target));
throw new VariantException(mes);
}
}
}
}
/// <exception cref="Kirikiri.Tjs2.TJSException"></exception>
/// <exception cref="Kirikiri.Tjs2.VariantException"></exception>
protected internal static void TypeOfMemberDirect(Variant result, Variant target,
int member, Dispatch2 objthis, int flags)
{
if (target.IsObject())
{
int hr;
VariantClosure clo = target.AsObjectClosure();
string name = Sharpen.Extensions.ToString(member);
hr = clo.PropGet(flags, name, result, clo.mObjThis != null ? clo.mObjThis : objthis
);
if (hr == Error.S_OK)
{
TypeOf(result);
}
else
{
if (hr == Error.E_MEMBERNOTFOUND)
{
result.Set("undefined");
}
else
{
if (hr < 0)
{
ThrowFrom_tjs_error(hr, name);
}
}
}
}
else
{
if (target.IsString())
{
GetStringProperty(result, target, member);
TypeOf(result);
}
else
{
if (target.IsOctet())
{
GetOctetProperty(result, target, member);
TypeOf(result);
}
else
{
string mes = Error.VariantConvertErrorToObject.Replace("%1", Utils.VariantToReadableString
(target));
throw new VariantException(mes);
}
}
}
}
/// <exception cref="Kirikiri.Tjs2.TJSException"></exception>
/// <exception cref="Kirikiri.Tjs2.VariantException"></exception>
protected internal static void SetPropertyIndirect(Variant target, Variant member
, Variant param, Dispatch2 objthis, int flags)
{
if (target.IsObject())
{
VariantClosure clo = target.AsObjectClosure();
if (member.IsInteger() != true)
{
string str = member.AsString();
int hr = clo.PropSet(flags, str, param, clo.mObjThis != null ? clo.mObjThis : objthis
);
if (hr < 0)
{
ThrowFrom_tjs_error(hr, str);
}
}
else
{
int hr = clo.PropSetByNum(flags, member.AsInteger(), param, clo.mObjThis != null ?
clo.mObjThis : objthis);
if (hr < 0)
{
ThrowFrom_tjs_error_num(hr, member.AsInteger());
}
}
}
else
{
if (target.IsString())
{
SetStringProperty(param, target, member);
}
else
{
if (target.IsOctet())
{
SetOctetProperty(param, target, member);
}
else
{
string mes = Error.VariantConvertErrorToObject.Replace("%1", Utils.VariantToReadableString
(target));
throw new VariantException(mes);
}
}
}
}
/// <exception cref="Kirikiri.Tjs2.TJSException"></exception>
/// <exception cref="Kirikiri.Tjs2.VariantException"></exception>
protected internal static void SetPropertyDirect(Variant target, int member, Variant
param, Dispatch2 objthis, int flags)
{
if (target.IsObject())
{
VariantClosure clo = target.AsObjectClosure();
string name = Sharpen.Extensions.ToString(member);
int hr = clo.PropSet(flags, name, param, clo.mObjThis != null ? clo.mObjThis : objthis
);
if (hr < 0)
{
ThrowFrom_tjs_error(hr, name);
}
}
else
{
if (target.IsString())
{
SetStringProperty(param, target, member);
}
else
{
if (target.IsOctet())
{
SetOctetProperty(param, target, member);
}
else
{
string mes = Error.VariantConvertErrorToObject.Replace("%1", Utils.VariantToReadableString
(target));
throw new VariantException(mes);
}
}
}
}
//getPropertyDirect( ra[ra_offset+ca[code+1]], ra[ra_offset+ca[code+2]], da[ca[code+3]], objthis, flags );
// member は、固定值なので、事前に条件分岐できる、文字か数值で割り分け
/// <exception cref="Kirikiri.Tjs2.TJSException"></exception>
/// <exception cref="Kirikiri.Tjs2.VariantException"></exception>
protected internal static void GetPropertyDirect(Variant result, Variant target,
string member, Dispatch2 objthis, int flags)
{
if (target.IsObject())
{
VariantClosure clo = target.AsObjectClosure();
int hr = clo.PropGet(flags, member, result, clo.mObjThis != null ? clo.mObjThis :
objthis);
if (hr < 0)
{
ThrowFrom_tjs_error(hr, member);
}
}
else
{
if (target.IsString())
{
GetStringProperty(result, target, member);
}
else
{
if (target.IsOctet())
{
GetOctetProperty(result, target, member);
}
else
{
string mes = Error.VariantConvertErrorToObject.Replace("%1", Utils.VariantToReadableString
(target));
throw new VariantException(mes);
}
}
}
}
/// <exception cref="Kirikiri.Tjs2.VariantException"></exception>
private int PutData(Variant val)
{
// 直近の20个の中で同じものがあるか调べる TODO 别コンパイルにするのなら、全データでチェックするようにした方がいいか
int size = mDataArea.Count;
int count = size > SEARCH_CONST_VAL_SIZE ? SEARCH_CONST_VAL_SIZE : size;
int offset = size - 1;
for (int i = 0; i < count; i++)
{
int pos = offset - i;
if (mDataArea[pos].DiscernCompareStrictReal(val))
{
return pos;
}
}
Variant v;
if (val.IsString())
{
v = new Variant(TJS.MapGlobalStringMap(val.AsString()));
}
else
{
v = new Variant(val);
object o = v.ToJavaObject();
if (o is InterCodeGenerator)
{
mInterCodeDataArea.AddItem(v);
}
}
mDataArea.AddItem(v);
return mDataArea.Count - 1;
}
/// <exception cref="Kirikiri.Tjs2.VariantException"></exception>
public static string VariantToReadableString(Variant val, int maxlen)
{
string ret = null;
if (val == null || val.IsVoid())
{
ret = "(void)";
}
else
{
if (val.IsInteger())
{
ret = "(int)" + val.AsString();
}
else
{
if (val.IsReal())
{
ret = "(real)" + val.AsString();
}
else
{
if (val.IsString())
{
ret = "(string)\"" + LexBase.EscapeC(val.AsString()) + "\"";
}
else
{
if (val.IsOctet())
{
ret = "(octet)<% " + Variant.OctetToListString(val.AsOctet()) + " %>";
}
else
{
if (val.IsObject())
{
VariantClosure c = (VariantClosure)val.AsObjectClosure();
StringBuilder str = new StringBuilder(128);
str.Append("(object)");
str.Append('(');
if (c.mObject != null)
{
str.Append('[');
if (c.mObject is NativeClass)
{
str.Append(((NativeClass)c.mObject).GetClassName());
}
else
{
if (c.mObject is InterCodeObject)
{
str.Append(((InterCodeObject)c.mObject).GetName());
}
else
{
if (c.mObject is CustomObject)
{
string name = ((CustomObject)c.mObject).GetClassNames();
if (name != null)
{
str.Append(name);
}
else
{
str.Append(c.mObject.GetType().FullName);
}
}
else
{
str.Append(c.mObject.GetType().FullName);
}
}
}
str.Append(']');
}
else
{
str.Append("0x00000000");
}
if (c.mObjThis != null)
{
str.Append('[');
if (c.mObjThis is NativeClass)
{
str.Append(((NativeClass)c.mObjThis).GetClassName());
}
else
{
if (c.mObjThis is InterCodeObject)
{
str.Append(((InterCodeObject)c.mObjThis).GetName());
}
else
{
if (c.mObjThis is CustomObject)
{
string name = ((CustomObject)c.mObjThis).GetClassNames();
if (name != null)
{
str.Append(name);
}
else
{
str.Append(c.mObjThis.GetType().FullName);
}
}
else
{
str.Append(c.mObjThis.GetType().FullName);
}
}
}
str.Append(']');
}
else
{
str.Append(":0x00000000");
}
str.Append(')');
ret = str.ToString();
}
else
{
// native object ?
ret = "(octet) [" + val.GetType().FullName + "]";
}
}
}
}
}
}
if (ret != null)
{
if (ret.Length > maxlen)
{
return Sharpen.Runtime.Substring(ret, 0, maxlen);
}
else
{
return ret;
}
}
return string.Empty;
}
/// <exception cref="Kirikiri.Tjs2.VariantException"></exception>
/// <exception cref="Kirikiri.Tjs2.TJSException"></exception>
public static int DefaultIsInstanceOf(int flag, Variant targ, string name, Dispatch2
objthis)
{
if (targ.IsVoid())
{
return Error.S_FALSE;
}
if ("Object".Equals(name))
{
return Error.S_TRUE;
}
if (targ.IsNumber())
{
if ("Number".Equals(name))
{
return Error.S_TRUE;
}
else
{
return Error.S_FALSE;
}
}
else
{
if (targ.IsString())
{
if ("String".Equals(name))
{
return Error.S_TRUE;
}
else
{
return Error.S_FALSE;
}
}
else
{
if (targ.IsOctet())
{
if ("Octet".Equals(name))
{
return Error.S_TRUE;
}
else
{
return Error.S_FALSE;
}
}
else
{
if (targ.IsObject())
{
VariantClosure tvclosure = targ.AsObjectClosure();
if (tvclosure.mObject != null)
{
// bypass
Dispatch2 disp = tvclosure.mObjThis != null ? tvclosure.mObjThis : objthis;
return tvclosure.mObject.IsInstanceOf(flag, null, name, disp);
}
return Error.S_FALSE;
}
}
}
}
return Error.S_FALSE;
}
