|
public AsObjectClosure ( ) : |
||
| Résultat | ||
// オリジナルでは、强制的に int で返す(アドレスになるかもしれない)もののようだが……
/// <exception cref="Kirikiri.Tjs2.VariantException"></exception>
/// <exception cref="Kirikiri.Tjs2.TJSException"></exception>
private static int TryFuncCallViaPropGet(VariantClosure tvclosure, int flag, Variant
result, Variant[] param, Dispatch2 objthis)
{
// retry using PropGet
Variant tmp = new Variant();
Dispatch2 disp = tvclosure.mObjThis != null ? tvclosure.mObjThis : objthis;
int er = tvclosure.mObject.PropGet(0, null, tmp, disp);
if (er >= 0)
{
tvclosure = tmp.AsObjectClosure();
disp = tvclosure.mObjThis != null ? tvclosure.mObjThis : objthis;
er = tvclosure.mObject.FuncCall(flag, null, result, param, disp);
}
return er;
}
// class instance matching returns false or true
/// <exception cref="Kirikiri.Tjs2.VariantException"></exception>
/// <exception cref="Kirikiri.Tjs2.TJSException"></exception>
public override int IsInstanceOf(int flag, string membername, string classname, Dispatch2
objthis)
{
if (!GetValidity())
{
return Error.E_INVALIDOBJECT;
}
if (membername == null)
{
switch (mContextType)
{
case ContextType.TOP_LEVEL:
case ContextType.PROPERTY_SETTER:
case ContextType.PROPERTY_GETTER:
case ContextType.SUPER_CLASS_GETTER:
{
break;
}
case ContextType.FUNCTION:
case ContextType.EXPR_FUNCTION:
{
if ("Function".Equals(classname))
{
return Error.S_TRUE;
}
break;
}
case ContextType.PROPERTY:
{
if ("Property".Equals(classname))
{
return Error.S_TRUE;
}
break;
}
case ContextType.CLASS:
{
if ("Class".Equals(classname))
{
return Error.S_TRUE;
}
break;
}
}
}
int hr = base.IsInstanceOf(flag, membername, classname, objthis);
if (membername != null && hr == Error.E_MEMBERNOTFOUND && mContextType == ContextType
.CLASS && mSuperClassGetter != null)
{
// look up super class
int[] pointer = mSuperClassGetter.mSuperClassGetterPointer;
int count = pointer.Length;
if (count != 0)
{
Variant res = new Variant();
for (int i = count - 1; i >= 0; i--)
{
mSuperClassGetter.ExecuteAsFunction(null, null, res, pointer[i]);
VariantClosure clo = res.AsObjectClosure();
hr = clo.IsInstanceOf(flag, membername, classname, objthis);
if (hr != Error.E_MEMBERNOTFOUND)
{
break;
}
}
}
}
return hr;
}
/// <exception cref="Kirikiri.Tjs2.VariantException"></exception>
/// <exception cref="Kirikiri.Tjs2.TJSException"></exception>
protected internal static int DefaultPropSet(int flag, Variant targ, Variant param
, Dispatch2 objthis)
{
if ((flag & Interface.IGNOREPROP) == 0)
{
if (targ.IsObject())
{
// roughly the same as TJSDefaultPropGet
VariantClosure tvclosure = targ.AsObjectClosure();
int hr = Error.E_NOTIMPL;
if (tvclosure.mObject != null)
{
Dispatch2 disp = tvclosure.mObjThis != null ? tvclosure.mObjThis : objthis;
hr = tvclosure.mObject.PropSet(0, null, param, disp);
}
if (hr >= 0)
{
return hr;
}
if (hr != Error.E_NOTIMPL && hr != Error.E_INVALIDTYPE && hr != Error.E_INVALIDOBJECT)
{
return hr;
}
}
}
// normal substitution
if (param == null)
{
return Error.E_INVALIDPARAM;
}
targ.CopyRef(param);
return Error.S_OK;
}
/// <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 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);
}
}
}
}
/// <summary>TJSGetExceptionObject : retrieves TJS 'Exception' object</summary>
/// <exception cref="TJSException">TJSException</exception>
/// <exception cref="VariantException">VariantException</exception>
/// <exception cref="Kirikiri.Tjs2.VariantException"></exception>
/// <exception cref="Kirikiri.Tjs2.TJSException"></exception>
public static void GetExceptionObject(TJS tjs, Variant res, Variant msg, Variant
trace)
{
if (res == null)
{
return;
}
// not prcess
// retrieve class "Exception" from global
Dispatch2 global = tjs.GetGlobal();
Variant val = new Variant();
int hr = global.PropGet(0, EXCEPTION_NAME, val, global);
if (hr < 0)
{
throw new TJSException(ExceptionNotFound);
}
// create an Exception object
Holder<Dispatch2> excpobj = new Holder<Dispatch2>(null);
VariantClosure clo = val.AsObjectClosure();
Variant[] pmsg = new Variant[1];
pmsg[0] = msg;
hr = clo.CreateNew(0, null, excpobj, pmsg, clo.mObjThis);
if (hr < 0)
{
throw new TJSException(ExceptionNotFound);
}
Dispatch2 disp = excpobj.mValue;
if (trace != null)
{
string trace_name = "trace";
disp.PropSet(Interface.MEMBERENSURE, trace_name, trace, disp);
}
res.Set(disp, disp);
excpobj = null;
}
//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);
}
}
}
}
// get member count
/// <exception cref="Kirikiri.Tjs2.VariantException"></exception>
/// <exception cref="Kirikiri.Tjs2.TJSException"></exception>
public override int GetCount(IntWrapper result, string membername, Dispatch2 objthis
)
{
int hr = base.GetCount(result, membername, objthis);
if (membername != null && hr == Error.E_MEMBERNOTFOUND && mContextType == ContextType
.CLASS && mSuperClassGetter != null)
{
// look up super class
int[] pointer = mSuperClassGetter.mSuperClassGetterPointer;
int count = pointer.Length;
if (count != 0)
{
Variant res = new Variant();
for (int i = count - 1; i >= 0; i--)
{
mSuperClassGetter.ExecuteAsFunction(null, null, res, pointer[i]);
VariantClosure clo = res.AsObjectClosure();
hr = clo.GetCount(result, membername, objthis);
if (hr != Error.E_MEMBERNOTFOUND)
{
break;
}
}
}
}
return hr;
}
/// <exception cref="Kirikiri.Tjs2.VariantException"></exception>
/// <exception cref="Kirikiri.Tjs2.TJSException"></exception>
protected internal static int DefaultCreateNew(int flag, Variant targ, Holder<Dispatch2
> result, Variant[] param, Dispatch2 objthis)
{
if (targ.IsObject())
{
VariantClosure tvclosure = targ.AsObjectClosure();
if (tvclosure.mObject != null)
{
// bypass
Dispatch2 disp = tvclosure.mObjThis != null ? tvclosure.mObjThis : objthis;
return tvclosure.mObject.CreateNew(flag, null, result, param, disp);
}
}
return Error.E_INVALIDTYPE;
}
// create new object
/// <exception cref="Kirikiri.Tjs2.VariantException"></exception>
/// <exception cref="Kirikiri.Tjs2.TJSException"></exception>
public override int CreateNew(int flag, string membername, Holder<Dispatch2> result
, Variant[] param, Dispatch2 objthis)
{
if (!GetValidity())
{
return Error.E_INVALIDOBJECT;
}
if (membername == null)
{
if (mContextType != ContextType.CLASS)
{
return Error.E_INVALIDTYPE;
}
Dispatch2 dsp = new CustomObject();
ExecuteAsFunction(dsp, null, null, 0);
FuncCall(0, mName, null, param, dsp);
result.Set(dsp);
return Error.S_OK;
}
int hr = base.CreateNew(flag, membername, result, param, objthis);
if (membername != null && hr == Error.E_MEMBERNOTFOUND && mContextType == ContextType
.CLASS && mSuperClassGetter != null)
{
// look up super class
int[] pointer = mSuperClassGetter.mSuperClassGetterPointer;
int count = pointer.Length;
if (count != 0)
{
Variant res = new Variant();
for (int i = count - 1; i >= 0; i--)
{
mSuperClassGetter.ExecuteAsFunction(null, null, res, pointer[i]);
VariantClosure clo = res.AsObjectClosure();
hr = clo.CreateNew(flag, membername, result, param, objthis);
if (hr != Error.E_MEMBERNOTFOUND)
{
break;
}
}
}
}
return hr;
}
// Dispatch2 implementation
// function invocation
/// <exception cref="Kirikiri.Tjs2.VariantException"></exception>
/// <exception cref="Kirikiri.Tjs2.TJSException"></exception>
public override int FuncCall(int flag, string membername, Variant result, Variant
[] param, Dispatch2 objthis)
{
if (!GetValidity())
{
return Error.E_INVALIDOBJECT;
}
if (membername == null)
{
switch (mContextType)
{
case ContextType.TOP_LEVEL:
{
ExecuteAsFunction(objthis != null ? objthis : mBlock.GetTJS().GetGlobal(), null,
result, 0);
break;
}
case ContextType.FUNCTION:
case ContextType.EXPR_FUNCTION:
case ContextType.PROPERTY_GETTER:
case ContextType.PROPERTY_SETTER:
{
ExecuteAsFunction(objthis, param, result, 0);
break;
}
case ContextType.CLASS:
{
// on super class' initialization
ExecuteAsFunction(objthis, param, result, 0);
break;
}
case ContextType.PROPERTY:
{
return Error.E_INVALIDTYPE;
}
}
return Error.S_OK;
}
int hr = base.FuncCall(flag, membername, result, param, objthis);
if (membername != null && hr == Error.E_MEMBERNOTFOUND && mContextType == ContextType
.CLASS && mSuperClassGetter != null)
{
// look up super class
int[] pointer = mSuperClassGetter.mSuperClassGetterPointer;
int count = pointer.Length;
if (count > 0)
{
Variant res = new Variant();
for (int i = count - 1; i >= 0; i--)
{
int v = pointer[i];
mSuperClassGetter.ExecuteAsFunction(null, null, res, v);
VariantClosure clo = res.AsObjectClosure();
hr = clo.FuncCall(flag, membername, result, param, objthis);
if (hr != Error.E_MEMBERNOTFOUND)
{
break;
}
}
}
}
return hr;
}
// property set
/// <exception cref="Kirikiri.Tjs2.VariantException"></exception>
/// <exception cref="Kirikiri.Tjs2.TJSException"></exception>
public override int PropSet(int flag, string membername, Variant param, Dispatch2
objthis)
{
if (!GetValidity())
{
return Error.E_INVALIDOBJECT;
}
if (membername == null)
{
if (mContextType == ContextType.PROPERTY)
{
// executed as a property setter
if (mPropSetter != null)
{
Variant[] @params = new Variant[1];
@params[0] = param;
return mPropSetter.FuncCall(0, null, null, @params, objthis);
}
else
{
return Error.E_ACCESSDENYED;
}
}
}
// WARNING!! const tTJSVariant ** -> tTJSVariant** force casting
int hr;
if (membername != null && mContextType == ContextType.CLASS && mSuperClassGetter
!= null)
{
int pseudo_flag = (flag & Interface.IGNOREPROP) != 0 ? flag : (flag & ~Interface.
MEMBERENSURE);
// member ensuring is temporarily disabled unless Interface.IGNOREPROP
hr = base.PropSet(pseudo_flag, membername, param, objthis);
if (hr == Error.E_MEMBERNOTFOUND)
{
int[] pointer = mSuperClassGetter.mSuperClassGetterPointer;
int count = pointer.Length;
if (count != 0)
{
Variant res = new Variant();
for (int i = count - 1; i >= 0; i--)
{
mSuperClassGetter.ExecuteAsFunction(null, null, res, pointer[i]);
VariantClosure clo = res.AsObjectClosure();
hr = clo.PropSet(pseudo_flag, membername, param, objthis);
if (hr != Error.E_MEMBERNOTFOUND)
{
break;
}
}
}
}
if (hr == Error.E_MEMBERNOTFOUND && (flag & Interface.MEMBERENSURE) != 0)
{
// re-ensure the member for "this" object
hr = base.PropSet(flag, membername, param, objthis);
}
}
else
{
hr = base.PropSet(flag, membername, param, objthis);
}
return hr;
}
// property get
/// <exception cref="Kirikiri.Tjs2.VariantException"></exception>
/// <exception cref="Kirikiri.Tjs2.TJSException"></exception>
public override int PropGet(int flag, string membername, Variant result, Dispatch2
objthis)
{
if (!GetValidity())
{
return Error.E_INVALIDOBJECT;
}
if (membername == null)
{
if (mContextType == ContextType.PROPERTY)
{
// executed as a property getter
if (mPropGetter != null)
{
return mPropGetter.FuncCall(0, null, result, null, objthis);
}
else
{
return Error.E_ACCESSDENYED;
}
}
}
int hr = base.PropGet(flag, membername, result, objthis);
if (membername != null && hr == Error.E_MEMBERNOTFOUND && mContextType == ContextType
.CLASS && mSuperClassGetter != null)
{
// look up super class
int[] pointer = mSuperClassGetter.mSuperClassGetterPointer;
int count = pointer.Length;
if (count != 0)
{
Variant res = new Variant();
for (int i = count - 1; i >= 0; i--)
{
mSuperClassGetter.ExecuteAsFunction(null, null, res, pointer[i]);
VariantClosure clo = res.AsObjectClosure();
hr = clo.PropGet(flag, membername, result, objthis);
if (hr != Error.E_MEMBERNOTFOUND)
{
break;
}
}
}
}
return hr;
}
// operation with member
/// <exception cref="Kirikiri.Tjs2.VariantException"></exception>
/// <exception cref="Kirikiri.Tjs2.TJSException"></exception>
public override int Operation(int flag, string membername, Variant result, Variant
param, Dispatch2 objthis)
{
if (membername == null)
{
if (mContextType == ContextType.PROPERTY)
{
// operation for property object
return base.DispatchOperation(flag, membername, result, param, objthis);
}
else
{
return base.Operation(flag, membername, result, param, objthis);
}
}
int hr;
if (membername != null && mContextType == ContextType.CLASS && mSuperClassGetter
!= null)
{
int pseudo_flag = (flag & Interface.IGNOREPROP) != 0 ? flag : (flag & ~Interface.
MEMBERENSURE);
hr = base.Operation(pseudo_flag, membername, result, param, objthis);
if (hr == Error.E_MEMBERNOTFOUND)
{
// look up super class
int[] pointer = mSuperClassGetter.mSuperClassGetterPointer;
int count = pointer.Length;
if (count != 0)
{
Variant res = new Variant();
for (int i = count - 1; i >= 0; i--)
{
mSuperClassGetter.ExecuteAsFunction(null, null, res, pointer[i]);
VariantClosure clo = res.AsObjectClosure();
hr = clo.Operation(pseudo_flag, membername, result, param, objthis);
if (hr != Error.E_MEMBERNOTFOUND)
{
break;
}
}
}
}
if (hr == Error.E_MEMBERNOTFOUND)
{
hr = base.Operation(flag, membername, result, param, objthis);
}
return hr;
}
else
{
return base.Operation(flag, membername, result, param, objthis);
}
}
/// <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;
}
/// <exception cref="Kirikiri.Tjs2.VariantException"></exception>
/// <exception cref="Kirikiri.Tjs2.TJSException"></exception>
protected internal static int DefaultFuncCall(int flag, Variant targ, Variant result
, Variant[] param, Dispatch2 objthis)
{
if (targ.IsObject())
{
int er = Error.E_INVALIDTYPE;
VariantClosure tvclosure = targ.AsObjectClosure();
if (tvclosure.mObject != null)
{
// bypass
Dispatch2 disp = tvclosure.mObjThis != null ? tvclosure.mObjThis : objthis;
er = tvclosure.mObject.FuncCall(flag, null, result, param, disp);
if (er == Error.E_INVALIDTYPE)
{
// retry using PropGet
er = TryFuncCallViaPropGet(tvclosure, flag, result, param, objthis);
}
}
return er;
}
return Error.E_INVALIDTYPE;
}
/// <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>
protected internal static int DefaultInvalidate(int flag, Variant targ, Dispatch2
objthis)
{
if (targ.IsObject())
{
VariantClosure tvclosure = targ.AsObjectClosure();
if (tvclosure.mObject != null)
{
// bypass
Dispatch2 disp = tvclosure.mObjThis != null ? tvclosure.mObjThis : objthis;
return tvclosure.mObject.Invalidate(flag, null, disp);
}
}
return Error.S_FALSE;
}
/// <exception cref="Kirikiri.Tjs2.VariantException"></exception>
public static object VariantToJavaObject(Variant param, Type type)
{
if (type.IsPrimitive)
{
// プリミティブタイプの场合
if (type.Equals(typeof(int)))
{
return Sharpen.Extensions.ValueOf(param.AsInteger());
}
else
{
if (type.Equals(typeof(double)))
{
return (param.AsDouble());
}
else
{
if (type.Equals(typeof(bool)))
{
return Sharpen.Extensions.ValueOf(param.AsInteger() != 0 ? true : false);
}
else
{
if (type.Equals(typeof(float)))
{
return ((float)param.AsDouble());
}
else
{
if (type.Equals(typeof(long)))
{
return Sharpen.Extensions.ValueOf(param.AsInteger());
}
else
{
if (type.Equals(typeof(char)))
{
return ((char)param.AsInteger());
}
else
{
if (type.Equals(typeof(byte)))
{
return (unchecked((byte)param.AsInteger()));
}
else
{
if (type.Equals(typeof(short)))
{
return ((short)param.AsInteger());
}
else
{
// may be Void.TYPE
return null;
}
}
}
}
}
}
}
}
}
else
{
if (type.Equals(typeof(string)))
{
return param.AsString();
}
else
{
if (type.Equals(typeof(ByteBuffer)))
{
return param.AsOctet();
}
else
{
if (type.Equals(typeof(Variant)))
{
return param;
}
else
{
if (type.Equals(typeof(VariantClosure)))
{
return param.AsObjectClosure();
}
else
{
if (type.Equals(typeof(Dispatch2)))
{
return param.AsObject();
}
else
{
if (type.Equals(param.ToJavaObject().GetType()))
{
return param.ToJavaObject();
}
else
{
// その他 のクラス
return null;
}
}
}
}
}
}
}
}
/// <exception cref="Kirikiri.Tjs2.VariantException"></exception>
/// <exception cref="Kirikiri.Tjs2.TJSException"></exception>
protected internal static int DefaultIsValid(int flag, Variant targ, Dispatch2 objthis
)
{
if (targ.IsObject())
{
VariantClosure tvclosure = targ.AsObjectClosure();
if (tvclosure.mObject != null)
{
// bypass
Dispatch2 disp = tvclosure.mObjThis != null ? tvclosure.mObjThis : objthis;
return tvclosure.mObject.IsValid(flag, null, disp);
}
}
// the target type is not tvtObject
return Error.S_TRUE;
}
/// <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);
}
}
}
}
/// <exception cref="Kirikiri.Tjs2.VariantException"></exception>
/// <exception cref="Kirikiri.Tjs2.TJSException"></exception>
protected internal static int DefaultOperation(int flag, Variant targ, Variant result
, Variant param, Dispatch2 objthis)
{
int op = flag & OP_MASK;
if (op != OP_INC && op != OP_DEC && param == null)
{
return Error.E_INVALIDPARAM;
}
if (op < OP_MIN || op > OP_MAX)
{
return Error.E_INVALIDPARAM;
}
if (targ.IsObject())
{
// the member may be a property handler if the member's type is "tvtObject"
// so here try to access the object.
int hr;
VariantClosure tvclosure = targ.AsObjectClosure();
if (tvclosure.mObject != null)
{
Dispatch2 ot = tvclosure.mObjThis != null ? tvclosure.mObjThis : objthis;
Variant tmp = new Variant();
hr = tvclosure.mObject.PropGet(0, null, tmp, ot);
if (hr >= 0)
{
DoVariantOperation(op, tmp, param);
hr = tvclosure.mObject.PropSet(0, null, tmp, ot);
if (hr < 0)
{
return hr;
}
if (result != null)
{
result.CopyRef(tmp);
}
return Error.S_OK;
}
else
{
if (hr != Error.E_NOTIMPL && hr != Error.E_INVALIDTYPE && hr != Error.E_INVALIDOBJECT)
{
return hr;
}
}
}
}
// normal operation is proceeded if "PropGet" is failed.
DoVariantOperation(op, targ, param);
if (result != null)
{
result.CopyRef(targ);
}
return Error.S_OK;
}
/// <exception cref="Kirikiri.Tjs2.TJSException"></exception>
/// <exception cref="Kirikiri.Tjs2.VariantException"></exception>
protected internal static void ThrowScriptException(Variant val, ScriptBlock block
, int srcpos)
{
string msg = null;
if (val.IsObject())
{
VariantClosure clo = val.AsObjectClosure();
if (clo.mObject != null)
{
Variant v2 = new Variant();
string message_name = "message";
int hr = clo.PropGet(0, message_name, v2, null);
if (hr >= 0)
{
msg = "script exception : " + v2.AsString();
}
}
}
if (msg == null || msg.Length == 0)
{
msg = "script exception";
}
throw new TJSScriptException(msg, block, srcpos, val);
}
/// <exception cref="Kirikiri.Tjs2.VariantException"></exception>
/// <exception cref="Kirikiri.Tjs2.TJSException"></exception>
protected internal static int DefaultPropGet(int flag, Variant targ, Variant result
, Dispatch2 objthis)
{
if ((flag & Interface.IGNOREPROP) == 0)
{
// if IGNOREPROP is not specified
// if member's type is tvtObject, call the object's PropGet with "member=NULL"
// ( default member invocation ). if it is succeeded, return its return value.
// if the PropGet's return value is TJS_E_ACCESSDENYED,
// return as an error, otherwise return the member itself.
if (targ.IsObject())
{
VariantClosure tvclosure = targ.AsObjectClosure();
int hr = Error.E_NOTIMPL;
if (tvclosure.mObject != null)
{
Dispatch2 disp = tvclosure.mObjThis != null ? tvclosure.mObjThis : objthis;
hr = tvclosure.mObject.PropGet(0, null, result, disp);
}
if (hr >= 0)
{
return hr;
}
if (hr != Error.E_NOTIMPL && hr != Error.E_INVALIDTYPE && hr != Error.E_INVALIDOBJECT)
{
return hr;
}
}
}
// return the member itself
if (result == null)
{
return Error.E_INVALIDPARAM;
}
result.CopyRef(targ);
return Error.S_OK;
}
/// <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.VariantException"></exception>
/// <exception cref="Kirikiri.Tjs2.TJSException"></exception>
public virtual bool Callback(string name, int flags, Variant value)
{
if ((flags & Interface.HIDDENMEMBER) != 0)
{
return true;
}
if (mCalled)
{
mStream.Write(",\n");
}
mCalled = true;
mStream.Write(mIndentStr);
mStream.Write("\"");
mStream.Write(LexBase.EscapeC(name));
mStream.Write("\" => ");
if (value.IsObject())
{
// object
VariantClosure clo = value.AsObjectClosure();
ArrayNI.SaveStructuredDataForObject(clo.SelectObject(), mStack, mStream, mIndentStr
);
}
else
{
mStream.Write(Utils.VariantToExpressionString(value));
}
return true;
}
