void HspVarCoreDup( PVal *pval, PVal *arg, APTR aptr )
{
// 指定された変数のクローンになる
//
int size;
PDAT *buf;
HspVarProc *p;
p = &hspvarproc[ arg->flag ];
buf = HspVarCorePtrAPTR( arg, aptr );
HspVarCoreGetBlockSize( arg, buf, &size );
HspVarCoreDupPtr( pval, arg->flag, buf, size );
}
static void *reffunc_intfunc( int *type_res, int arg )
{
// reffunc : TYPE_INTFUNC
// (内蔵関数)
//
void *ptr;
int chk;
HSPREAL dval;
HSPREAL dval2;
int ival;
char *sval;
int p1,p2,p3;
// '('で始まるかを調べる
//
if ( *type != TYPE_MARK ) throw HSPERR_INVALID_FUNCPARAM;
if ( *val != '(' ) throw HSPERR_INVALID_FUNCPARAM;
code_next();
// 返値のタイプをargをもとに設定する
// 0〜255 : int
// 256〜383 : string
// 384〜511 : double(HSPREAL)
//
switch( arg>>7 ) {
case 2: // 返値がstr
*type_res = HSPVAR_FLAG_STR; // 返値のタイプを指定する
ptr = NULL; // 返値のポインタ
break;
case 3: // 返値がdouble
*type_res = HSPVAR_FLAG_DOUBLE; // 返値のタイプを指定する
ptr = &reffunc_intfunc_value; // 返値のポインタ
break;
default: // 返値がint
*type_res = HSPVAR_FLAG_INT; // 返値のタイプを指定する
ptr = &reffunc_intfunc_ivalue; // 返値のポインタ
break;
}
switch( arg ) {
// int function
case 0x000: // int
{
int *ip;
chk = code_get();
if ( chk <= PARAM_END ) { throw HSPERR_INVALID_FUNCPARAM; }
ip = (int *)HspVarCoreCnvPtr( mpval, HSPVAR_FLAG_INT );
reffunc_intfunc_ivalue = *ip;
break;
}
case 0x001: // rnd
ival = code_geti();
if ( ival == 0 ) throw HSPERR_DIVIDED_BY_ZERO;
#ifdef HSPRANDMT
{
std::uniform_int_distribution<int> dist( 0, ival - 1 );
reffunc_intfunc_ivalue = dist( mt );
}
#else
reffunc_intfunc_ivalue = rand()%ival;
#endif
break;
case 0x002: // strlen
sval = code_gets();
reffunc_intfunc_ivalue = (int) strlen( sval );
break;
case 0x003: // length(3.0)
case 0x004: // length2(3.0)
case 0x005: // length3(3.0)
case 0x006: // length4(3.0)
{
PVal *pv;
pv = code_getpval();
reffunc_intfunc_ivalue = pv->len[ arg - 0x002 ];
break;
}
case 0x007: // vartype(3.0)
{
PVal *pv;
HspVarProc *proc;
if ( *type == TYPE_STRING ) {
sval = code_gets();
proc = HspVarCoreSeekProc( sval );
if ( proc == NULL ) throw HSPERR_ILLEGAL_FUNCTION;
reffunc_intfunc_ivalue = proc->flag;
} else {
code_getva( &pv );
reffunc_intfunc_ivalue = pv->flag;
}
break;
}
case 0x008: // gettime
ival = code_geti();
reffunc_intfunc_ivalue = gettime( ival );
break;
case 0x009: // peek
case 0x00a: // wpeek
case 0x00b: // lpeek
{
PVal *pval;
char *ptr;
int size;
ptr = code_getvptr( &pval, &size );
p1 = code_getdi( 0 );
if ( p1<0 ) throw HSPERR_ILLEGAL_FUNCTION;
ptr += p1;
if ( arg == 0x09 ) {
if ( (p1+1)>size ) throw HSPERR_ILLEGAL_FUNCTION;
reffunc_intfunc_ivalue = ((int)(*ptr)) & 0xff;
} else if ( arg == 0x0a ) {
if ( (p1+2)>size ) throw HSPERR_ILLEGAL_FUNCTION;
reffunc_intfunc_ivalue = ((int)(*(short *)ptr)) & 0xffff;
} else {
if ( (p1+4)>size ) throw HSPERR_ILLEGAL_FUNCTION;
reffunc_intfunc_ivalue = *(int *)ptr;
}
break;
}
case 0x00c: // varptr
{
PVal *pval;
APTR aptr;
PDAT *pdat;
STRUCTDAT *st;
if ( *type == TYPE_DLLFUNC ) {
st = &(ctx->mem_finfo[ *val ]);
reffunc_intfunc_ivalue = (int)(size_t)(st->proc);
code_next();
break;
}
aptr = code_getva( &pval );
pdat = HspVarCorePtrAPTR( pval, aptr );
reffunc_intfunc_ivalue = (int)(size_t)(pdat);
HspVarCoreGetBlockSize(pval, pdat, &ctx->strsize);
break;
}
case 0x00d: // varuse
{
PVal *pval;
APTR aptr;
PDAT *pdat;
aptr = code_getva( &pval );
if ( pval->support & HSPVAR_SUPPORT_VARUSE ) {
pdat = HspVarCorePtrAPTR( pval, aptr );
reffunc_intfunc_ivalue = HspVarCoreGetUsing( pval, pdat );
} else throw HSPERR_TYPE_MISMATCH;
break;
}
case 0x00e: // noteinfo
ival = code_getdi(0);
note_update();
switch( ival ) {
case 0:
reffunc_intfunc_ivalue = note.GetMaxLine();
break;
case 1:
reffunc_intfunc_ivalue = note.GetSize();
break;
default:
throw HSPERR_ILLEGAL_FUNCTION;
}
break;
case 0x00f: // instr
{
PVal *pval;
char *ptr;
char *ps;
char *ps2;
int size;
int p1;
ptr = code_getvptr( &pval, &size );
if ( pval->flag != HSPVAR_FLAG_STR ) throw HSPERR_TYPE_MISMATCH;
p1 = code_getdi(0);
if ( p1 >= size ) throw HSPERR_BUFFER_OVERFLOW;
ps = code_gets();
if ( p1 >= 0 ) {
ptr += p1;
ps2 = strstr2( ptr, ps );
} else {
ps2 = NULL;
}
if ( ps2 == NULL ) {
reffunc_intfunc_ivalue = -1;
} else {
reffunc_intfunc_ivalue = (int)(ps2 - ptr);
}
break;
}
case 0x010: // abs
reffunc_intfunc_ivalue = code_geti();
if ( reffunc_intfunc_ivalue < 0 ) reffunc_intfunc_ivalue = -reffunc_intfunc_ivalue;
break;
case 0x011: // limit
p1 = code_geti();
p2 = code_getdi(INT_MIN);
p3 = code_getdi(INT_MAX);
reffunc_intfunc_ivalue = GetLimit( p1, p2, p3 );
break;
case 0x012: // getease
p1 = code_geti();
p2 = code_getdi(-1);
reffunc_intfunc_ivalue = getEaseInt( p1, p2 );
break;
case 0x013: // notefind
{
char *ps;
char *p;
int findopt;
ps = code_gets();
p = code_stmpstr( ps );
findopt = code_getdi(0);
note_update();
reffunc_intfunc_ivalue = note.FindLine( p, findopt );
break;
}
// str function
case 0x100: // str
{
char *sp;
chk = code_get();
if ( chk <= PARAM_END ) { throw HSPERR_INVALID_FUNCPARAM; }
sp = (char *)HspVarCoreCnvPtr( mpval, HSPVAR_FLAG_STR );
ptr = (void *)sp;
break;
}
case 0x101: // strmid
{
PVal *pval;
char *sptr;
char *p;
char chrtmp;
int size;
int i;
int slen;
sptr = code_getvptr( &pval, &size );
if ( pval->flag != HSPVAR_FLAG_STR ) throw HSPERR_TYPE_MISMATCH;
p1 = code_geti();
p2 = code_geti();
slen=(int)strlen( sptr );
if ( p1 < 0 ) {
p1=slen - p2;
if ( p1 < 0 ) p1 = 0;
}
if ( p1 >= slen )
p2 = 0;
if ( p2 > slen ) p2 = slen;
sptr += p1;
ptr = p = code_stmp( p2 + 1 );
for(i=0;i<p2;i++) {
chrtmp = *sptr++;
*p++ = chrtmp;
if (chrtmp==0) break;
}
*p = 0;
break;
}
case 0x103: // strf
ptr = cnvformat();
break;
case 0x104: // getpath
{
char *p;
char pathname[HSP_MAX_PATH];
p = ctx->stmp;
strncpy( pathname, code_gets(), HSP_MAX_PATH-1 );
p1=code_geti();
getpath( pathname, p, p1 );
ptr = p;
break;
}
case 0x105: // strtrim
{
PVal *pval;
char *sptr;
char *p;
int size;
sptr = code_getvptr( &pval, &size );
if ( pval->flag != HSPVAR_FLAG_STR ) throw HSPERR_TYPE_MISMATCH;
p1 = code_getdi(0);
p2 = code_getdi(32);
ptr = p = code_stmp( size + 1 );
strcpy( p, sptr );
switch( p1 ) {
case 0:
TrimCodeL( p, p2 );
TrimCodeR( p, p2 );
break;
case 1:
TrimCodeL( p, p2 );
break;
case 2:
TrimCodeR( p, p2 );
break;
case 3:
TrimCode( p, p2 );
break;
}
break;
}
// double function
case 0x180: // sin
dval = code_getd();
reffunc_intfunc_value = sin( dval );
break;
case 0x181: // cos
dval = code_getd();
reffunc_intfunc_value = cos( dval );
break;
case 0x182: // tan
dval = code_getd();
reffunc_intfunc_value = tan( dval );
break;
case 0x183: // atan
dval = code_getd();
dval2 = code_getdd( 1.0 );
reffunc_intfunc_value = atan2( dval, dval2 );
break;
case 0x184: // sqrt
dval = code_getd();
reffunc_intfunc_value = sqrt( dval );
break;
case 0x185: // double
{
HSPREAL *dp;
chk = code_get();
if ( chk <= PARAM_END ) { throw HSPERR_INVALID_FUNCPARAM; }
dp = (HSPREAL *)HspVarCoreCnvPtr( mpval, HSPVAR_FLAG_DOUBLE );
reffunc_intfunc_value = *dp;
break;
}
case 0x186: // absf
reffunc_intfunc_value = code_getd();
if ( reffunc_intfunc_value < 0 ) reffunc_intfunc_value = -reffunc_intfunc_value;
break;
case 0x187: // expf
dval = code_getd();
reffunc_intfunc_value = exp( dval );
break;
case 0x188: // logf
dval = code_getd();
reffunc_intfunc_value = log( dval );
break;
case 0x189: // limitf
{
HSPREAL d1,d2,d3;
d1 = code_getd();
d2 = code_getdd(-DBLINF);
d3 = code_getdd(DBLINF);
if ( d1 < d2 ) d1 = d2;
if ( d1 > d3 ) d1 = d3;
reffunc_intfunc_value = d1;
break;
}
case 0x18a: // powf
dval = code_getd();
dval2 = code_getd();
reffunc_intfunc_value = pow( dval, dval2 );
break;
case 0x18b: // geteasef
dval = code_getd();
dval2 = code_getdd(1.0);
if ( dval2 == 1.0 ) {
reffunc_intfunc_value = getEase( dval );
} else {
reffunc_intfunc_value = getEase( dval, dval2 );
}
break;
default:
throw HSPERR_UNSUPPORTED_FUNCTION;
}
// ')'で終わるかを調べる
//
if ( *type != TYPE_MARK ) throw HSPERR_INVALID_FUNCPARAM;
if ( *val != ')' ) throw HSPERR_INVALID_FUNCPARAM;
code_next();
return ptr;
}
static int cmdfunc_ctrlcmd( int cmd )
{
// cmdfunc : TYPE_DLLCTRL
// (拡張DLLコントロールコマンド)
//
code_next(); // 次のコードを取得(最初に必ず必要です)
if ( cmd >= TYPE_OFFSET_COMOBJ ) {
#ifdef HSP_COM_UNSUPPORTED
throw ( HSPERR_UNSUPPORTED_FUNCTION );
#else
// COM インターフェースメソッドの呼び出し
STRUCTDAT *st;
st = GetPRM( cmd - TYPE_OFFSET_COMOBJ );
hspctx->stat = code_expand_and_call( st );
return RUNMODE_RUN;
#endif
}
switch( cmd ) { // サブコマンドごとの分岐
case 0x00: // newcom
#ifdef HSP_COM_UNSUPPORTED
throw ( HSPERR_UNSUPPORTED_FUNCTION );
#else
{
PVal *pval;
APTR aptr;
IUnknown **ppunkNew, *punkDef;
CLSID clsid;
char *clsid_name;
const IID *piid, *piid2;
void *iptr;
LIBDAT *lib;
STRUCTDAT *st;
int inimode;
// 第１パラメータ：新しいインターフェースポインタを格納する変数
// (変数にNULLポインタを格納)
aptr = code_getva( &pval );
iptr = NULL;
code_setva( pval, aptr, TYPE_COMOBJ, &iptr );
ppunkNew = (IUnknown **)HspVarCorePtrAPTR( pval, aptr );
// CLSID / IID 情報を取得
if ( !code_getexflg() && *type == TYPE_DLLCTRL ) {
// 第２パラメータ：#usecom 登録情報
st = code_getcomst();
if ( st->otindex != -1 ) throw HSPERR_TYPE_MISMATCH;
lib = &hspctx->mem_linfo[ st->index ];
if ( lib->clsid == -1 ) throw HSPERR_INVALID_PARAMETER;
clsid_name = strp(lib->clsid);
piid = (IID *)strp( lib->nameidx );
piid2 = NULL;
} else {
// 第２パラメータ：文字列 CLSID
// (IID はデフォルトで IID_IDispatch, サポートされていなければ IID_IUnknown )
clsid_name = code_getds("");
piid = &IID_IDispatch;
piid2 = &IID_IUnknown;
}
inimode = code_getdi(0); // 初期化モード
punkDef = (IUnknown *)code_getdi(0); // デフォルトオブジェクト
// 新規CLSIDからインスタンスを作成
hspctx->stat = 0;
switch ( inimode ) {
case 0:
// 新規にロード
if ( clsid_name[0]!='\0' ) {
if ( GetIIDFromString(&clsid,clsid_name,true) != FALSE &&
SUCCEEDED( CoCreateInstance( clsid, NULL, CLSCTX_SERVER, *piid, (void**)ppunkNew )) &&
*ppunkNew != NULL )
{
break;
}
if ( piid2 != NULL &&
SUCCEEDED( CoCreateInstance( clsid, NULL, CLSCTX_SERVER, *piid2, (void**)ppunkNew )) &&
*ppunkNew != NULL )
{
break;
}
hspctx->stat = 1;
}
break;
case -2:
// オブジェクトを明示的に指定する場合 ( AddRef() あり)
if ( punkDef != NULL ) punkDef->AddRef();
case -1:
// オブジェクトを明示的に指定する場合 ( AddRef() なし)
*ppunkNew = punkDef;
break;
default:
throw HSPERR_UNSUPPORTED_FUNCTION;
}
#ifdef HSP_COMOBJ_DEBUG
COM_DBG_MSG( "newcom : pObj=%p : &pObj=%p\n", *ppunkNew, ppunkNew);
#endif
break;
}
#endif // HSP_COM_UNSUPPORTED
case 0x01: // querycom
#ifdef HSP_COM_UNSUPPORTED
throw HSPERR_UNSUPPORTED_FUNCTION;
#else
{
PVal *pval, *pvalNew;
APTR aptr, aptrNew;
IUnknown **ppunkDst, **ppunkSrc;
IID iid;
const IID *piid;
void *iptr;
STRUCTDAT *st;
LIBDAT *lib;
// 第１パラメータ：新しいインターフェースポインタを格納する変数
aptrNew = code_getva( &pvalNew );
// 第２パラメータ：既存のCOMオブジェクト
aptr = code_getva( &pval );
if ( pval->flag != TYPE_COMOBJ ) throw ( HSPERR_TYPE_MISMATCH );
ppunkSrc = (IUnknown **)HspVarCorePtrAPTR( pval, aptr );
if ( ! IsVaridComPtr(ppunkSrc) ) throw ( HSPERR_COMDLL_ERROR );
// IID 情報を取得
if ( *type == TYPE_DLLCTRL ) {
// 第３パラメータ：#usecom 登録情報
st = code_getcomst();
if ( st->otindex != -1 ) throw ( HSPERR_TYPE_MISMATCH );
lib = &hspctx->mem_linfo[ st->index ];
piid = (IID *)strp( lib->nameidx );
} else {
// 第３パラメータ：文字列 IID
GetIIDFromString( &iid, code_gets() );
piid = &iid;
}
if ( pvalNew->flag != TYPE_COMOBJ ) {
// 代入により型変換
iptr = NULL;
code_setva( pvalNew, aptrNew, TYPE_COMOBJ, &iptr );
}
ppunkDst = (IUnknown **)HspVarCorePtrAPTR( pvalNew, aptrNew );
// query によりインスタンスを得る
QueryComPtr( ppunkDst, *ppunkSrc, piid );
if ( IsVaridComPtr(ppunkSrc) )
hspctx->stat = 0;
else
hspctx->stat = 1;
break;
}
#endif // HSP_COM_UNSUPPORTED
case 0x02: // delcom
#ifdef HSP_COM_UNSUPPORTED
throw ( HSPERR_UNSUPPORTED_FUNCTION );
#else
{
PVal *pval;
APTR aptr;
IUnknown **ppunk;
VARIANT *var;
void *ptr;
// 第１パラメータ：解放するCOMオブジェクト変数
aptr = code_getva( &pval );
ptr = HspVarCorePtrAPTR( pval, aptr );
switch ( pval->flag ) {
case TYPE_COMOBJ:
ppunk = (IUnknown **)ptr;
ReleaseComPtr( ppunk );
break;
case TYPE_VARIANT:
var = (VARIANT *)ptr;
VariantClear( var );
break;
default:
throw HSPERR_TYPE_MISMATCH;
}
// このタイミングで一時オブジェクトも削除しちゃう
if ( comconv_var.vt != VT_EMPTY ) VariantClear( &comconv_var );
break;
}
#endif // HSP_COM_UNSUPPORTED
case 0x03: // cnvstow
{
PVal *pval;
char *ptr;
char *ps;
int size;
ptr = code_getvptr( &pval, &size );
ps = code_gets();
cnvwstr( ptr, ps, size/2 );
break;
}
case 0x04: // comres
#ifdef HSP_COM_UNSUPPORTED
throw ( HSPERR_UNSUPPORTED_FUNCTION );
#else
if ( code_getexflg() ) {
comres_pval = NULL;
comres_aptr = 0;
} else {
comres_aptr = code_getva( &comres_pval );
}
break;
#endif // HSP_COM_UNSUPPORTED
case 0x05: // axobj
#ifdef HSP_COM_UNSUPPORTED
throw ( HSPERR_UNSUPPORTED_FUNCTION );
#else
{
PVal *pval;
APTR aptr;
const IID *piid;
void *iptr;
BMSCR *bm;
HWND hwnd;
int id,sx,sy;
char clsid_name[1024];
IUnknown **ppunk, *punkObj, *punkObj2;
STRUCTDAT *st;
LIBDAT *lib;
HRESULT hr;
bm = GetBMSCR();
// 第１パラメータ：新しいインターフェースポインタを格納する変数
// (あらかじめ変数にNULLを格納)
aptr = code_getva( &pval );
iptr = NULL;
code_setva( pval, aptr, TYPE_COMOBJ, &iptr );
ppunk = (IUnknown **)HspVarCorePtrAPTR( pval, aptr );
// オブジェクトの CLSID, ProgID, etc.
if ( *type == TYPE_DLLCTRL ) {
// 第２パラメータ：#usecom 登録情報から取得
st = code_getcomst();
if ( st->otindex != -1 ) throw ( HSPERR_TYPE_MISMATCH );
lib = &hspctx->mem_linfo[ st->index ];
piid = (IID *)strp( lib->nameidx );
if ( lib->clsid == -1 ) throw ( HSPERR_INVALID_PARAMETER );
strncpy( clsid_name, strp(lib->clsid), sizeof(clsid_name)-1 );
} else {
// 第２パラメータ：文字列 CLSID or ProgID を取得 (IID は IDispatch)
piid = &IID_IDispatch;
strncpy( clsid_name, code_gets(), sizeof(clsid_name)-1 );
}
// コントロールのサイズ
sx = code_getdi( bm->sx );
sy = code_getdi( bm->sy );
// ActiveXとしてロード
//
if ( fn_atxinit == NULL ) throw ( HSPERR_UNSUPPORTED_FUNCTION );
hwnd = CreateWindow( atxwndclass, clsid_name,
WS_CHILD, // 最初は WS_VISIBLE なし (後で ShowWindow() )
bm->cx, bm->cy, sx, sy,
bm->hwnd, (HMENU)0, (HINSTANCE)hspctx->instance, NULL );
punkObj2 = NULL;
if ( hwnd ) {
punkObj = NULL;
fn_atxgetctrl( hwnd, (void**)&punkObj );
if ( punkObj ) {
// 指定 IID が存在するかどうか
hr = punkObj->QueryInterface( *piid, (void**)&punkObj2 );
punkObj->Release();
}
}
if ( punkObj2 == NULL ) {
// 目的オブジェクトではないときコントロールを削除
if (hwnd) { DestroyWindow( hwnd ); }
hspctx->stat = -1;
break;
}
// COM 型変数に格納
*ppunk = punkObj2;
// HSPのウインドゥオブジェクトとして登録する
ShowWindow( hwnd, SW_SHOW );
id = AddHSPObject( hwnd, HSPOBJ_TAB_SKIP, sy );
#ifdef HSP_COMOBJ_DEBUG
Alertf( "axobj : pObj=%p : &pObj=%p\n", *ppunk, ppunk);
#endif
break;
}
#endif // HSP_COM_UNSUPPORTED
case 0x06: // winobj
{
#ifdef HSPDISH
throw ( HSPERR_UNSUPPORTED_FUNCTION );
#else
char clsname[1024];
char winname[1024];
HWND hwnd;
char *ps;
BMSCR *bm;
int i;
int prm[6];
ps = code_gets(); strncpy( clsname, ps, 1023 );
ps = code_gets(); strncpy( winname, ps, 1023 );
bm = GetBMSCR();
for(i=0;i<6;i++) {
prm[i] = code_getdi(0);
}
if ( prm[2] <= 0 ) prm[2] = bm->ox;
if ( prm[3] <= 0 ) prm[3] = bm->oy;
hwnd = CreateWindowEx(
(DWORD) prm[0], // 拡張ウィンドウスタイル
clsname, // ウィンドウクラス名
winname, // ウィンドウ名
(DWORD) prm[1], // ウィンドウスタイル
bm->cx, bm->cy, prm[2], prm[3], // X,Y,SIZEX,SIZEY
bm->hwnd, // 親ウィンドウのハンドル
(HMENU) prm[4], // メニューハンドルまたは子ウィンドウID
bm->hInst, // インスタンスハンドル
(PVOID) prm[5] // ウィンドウ作成データ
);
// AddHSPObject( hwnd, HSPOBJ_TAB_SKIP, prm[3], NULL, 0 ); // HSPのウインドゥオブジェクトとして登録する
AddHSPObject( hwnd, HSPOBJ_TAB_SKIP, prm[3] );
break;
#endif // HSPDISH
}
case 0x07: // sendmsg
{
int hw,p1,p2,p3,p4,fl,sz;
char *vptr;
hw = code_getdi(0);
p1 = code_getdi(0);
vptr = code_getsptr( &fl );
if ( fl == TYPE_STRING ) {
p2 = (int)code_stmpstr( vptr );
} else {
p2 = *(int *)vptr;
}
vptr = code_getsptr( &fl );
if ( fl == TYPE_STRING ) {
p3 = (int)vptr;
} else {
p3 = *(int *)vptr;
}
//Alertf( "SEND[%x][%x][%x]",p1,p2,p3 );
hspctx->stat = (int)SendMessage( (HWND)hw, p1, p2, p3 );
break;
}
case 0x08: // comevent
#ifdef HSP_COM_UNSUPPORTED
throw ( HSPERR_UNSUPPORTED_FUNCTION );
#else
{
PVal *pval;
APTR aptr;
void* iptr;
char *ps;
IID iid, *piid;
unsigned short *subr;
IUnknown **ppunk, **ppunkEvent;
// 第１パラメータ：イベントハンドラオブジェクト (IEventHandler) を格納する変数
// (あらかじめ NULL で初期化)
aptr = code_getva( &pval );
iptr = NULL;
code_setva( pval, aptr, TYPE_COMOBJ, &iptr );
ppunkEvent = (IUnknown **)HspVarCorePtrAPTR( pval, aptr );
// 第２パラメータ：COMオブジェクトを格納した変数
aptr = code_getva( &pval );
if ( pval->flag != TYPE_COMOBJ ) throw ( HSPERR_TYPE_MISMATCH );
ppunk = (IUnknown **)HspVarCorePtrAPTR( pval, aptr );
if ( ! IsVaridComPtr(ppunk) ) throw ( HSPERR_COMDLL_ERROR );
// 第３パラメータ：コネクションポイントIID (文字列形式)
ps = code_getds("");
if ( ps[0] != '\0' ) {
piid = &iid;
GetIIDFromString( piid, ps );
} else {
piid = NULL; // NULL のときデフォルトIID が自動的に取得される
}
// 第４パラメータ：コールバック用のサブルーチンラベル
subr = code_getlb2();
// イベントハンドラ作成・接続
SetComEvent( ppunkEvent, ppunk, piid, subr );
#ifdef HSP_COMOBJ_DEBUG
COM_DBG_MSG( "comevent : pEvent=%p : pObj=%p\n", *ppunkEvent, *ppunk);
#endif
break;
}
#endif // HSP_COM_UNSUPPORTED
case 0x09: // comevarg
#ifdef HSP_COM_UNSUPPORTED
throw ( HSPERR_UNSUPPORTED_FUNCTION );
#else
{
PVal *pval, *pval2;
APTR aptr, aptr2;
VARIANT *v;
void *ptr;
int p1,p2;
int res;
IUnknown **ppunk;
VARIANT varTemp;
// 第１パラメータ：イベントのパラメータを格納する変数
aptr = code_getva( &pval );
// 第２パラメータ：イベントハンドラオブジェクト変数
aptr2 = code_getva( &pval2 );
if ( pval2->flag != TYPE_COMOBJ ) throw ( HSPERR_TYPE_MISMATCH );
ppunk = (IUnknown **)HspVarCorePtrAPTR( pval2, aptr2 );
if ( ! IsVaridComPtr(ppunk) ) throw ( HSPERR_COMDLL_ERROR );
// 第３パラメータ：パラメータインデックス
p1 = code_getdi(0);
// 第４パラメータ：文字列変換フラグ
p2 = code_getdi(0);
// イベントのパラメータ取得
v = GetEventArg( *ppunk, p1 );
if ( v == NULL ) throw ( HSPERR_ILLEGAL_FUNCTION );
switch ( p2 ) {
case 0:
VariantInit( &varTemp );
VariantCopyInd( &varTemp, v );
ptr = comget_variant( &varTemp, &res );
VariantClear( &varTemp );
break;
case 1:
VariantInit( &varTemp );
if FAILED( VariantChangeType( &varTemp, v, VARIANT_ALPHABOOL, VT_BSTR ) )
throw ( HSPERR_TYPE_INITALIZATION_FAILED );
ptr = comget_variant( &varTemp, &res );
VariantClear( &varTemp );
break;
case 2:
ptr = v;
res = HSPVAR_FLAG_VARIANT;
break;
default:
throw ( HSPERR_ILLEGAL_FUNCTION );
}
code_setva( pval, aptr, res, ptr );
hspctx->stat = res;
break;
}
#endif // HSP_COM_UNSUPPORTED
case 0x0a: // sarrayconv
#ifdef HSP_COM_UNSUPPORTED
throw ( HSPERR_UNSUPPORTED_FUNCTION );
#else
{
PVal *pval1, *pval2;
APTR aptr1, aptr2;
int convdir, size;
VARIANT *variant, varTemp;
VARTYPE vt;
SAFEARRAY *psa;
long lbound, ubound;
HRESULT hr;
aptr1 = code_getva( &pval1 );
aptr2 = code_getva( &pval2 );
convdir = code_getdi(0);
size = code_getdi(0);
switch ( convdir ) {
case 0:
case 2:
case 4:
// 配列変数から SafeArray に変換
VariantInit( &varTemp );
code_setva( pval1, aptr1, HSPVAR_FLAG_VARIANT, &varTemp );
variant = (VARIANT *)HspVarCorePtrAPTR( pval1, aptr1 );
VariantClear( variant ); // 一応
if ( convdir == 2 ) {
// バイナリデータ（一次元のみ）
void *ptr = HspVarCorePtrAPTR( pval2, aptr2 );
psa = CreateBinarySafeArray( ptr, size, &vt );
} else {
BOOL bVariant = ( convdir == 4 );
psa = ConvVar2SafeArray( pval2, bVariant, &vt );
}
variant->vt = vt | VT_ARRAY;
variant->parray = psa;
break;
case 1:
case 3:
// SafeArray から配列変数に変換
if ( pval2->flag != HSPVAR_FLAG_VARIANT ) throw HSPERR_INVALID_TYPE;
variant = (VARIANT *)HspVarCorePtrAPTR( pval2, aptr2 );
if ( (variant->vt & VT_ARRAY) == 0 ) throw HSPERR_INVALID_TYPE;
psa = variant->parray;
if ( psa == NULL ) throw HSPERR_ARRAY_OVERFLOW;
vt = variant->vt & VT_TYPEMASK;
if ( vt == VT_EMPTY ) {
hr = SafeArrayGetVartype( psa, &vt );
if ( FAILED(hr) || vt == VT_EMPTY ) throw HSPERR_INVALID_ARRAYSTORE;
}
if ( convdir == 1 ) {
ConvSafeArray2Var( pval1, psa, vt );
} else {
// バイナリデータ（一次元のみ）
int varsize;
void *ptr = HspVarCorePtrAPTR( pval1, aptr1 ); if ( vt != VT_UI1 && vt != VT_I1 ) throw HSPERR_INVALID_TYPE;
SafeArrayGetLBound( psa, 1, &lbound );
hr = SafeArrayGetUBound( psa, 1, &ubound );
if ( FAILED(hr) ) throw HSPERR_ARRAY_OVERFLOW;
size = ubound - lbound + 1;
HspVarCoreGetBlockSize( pval1, (PDAT*)ptr, &varsize );
if ( varsize < size ) throw HSPERR_BUFFER_OVERFLOW;
GetBinarySafeArray( ptr, size, psa );
}
break;
default:
throw ( HSPERR_UNSUPPORTED_FUNCTION );
}
break;
}
#endif // HSP_COM_UNSUPPORTED
default:
throw ( HSPERR_SYNTAX );
}
return RUNMODE_RUN;
}
