int Hsp3ExtLibInit( HSP3TYPEINFO *info )
{
int i;
STRUCTDAT *st;
char tmp[1024];
hspctx = info->hspctx;
exinfo = info->hspexinfo;
pmpval = exinfo->mpval;
libmax = hspctx->hsphed->max_linfo / sizeof(LIBDAT);
prmmax = hspctx->hsphed->max_finfo / sizeof(STRUCTDAT);
hpidat = NULL;
if ( Hsp3ExtAddPlugin() ) return 1;
for(i=0;i<prmmax;i++) {
st = GetPRM(i);
if ( BindFUNC( st, NULL ) == 1 ) {
sprintf( tmp,"No FUNC:%s",strp(st->nameidx) );
Alert( tmp );
}
}
return 0;
}
void Hsp3ExtLibTerm( void )
{
int i;
STRUCTDAT *st;
// クリーンアップ登録されているユーザー定義関数・命令呼び出し
for(i=0;i<prmmax;i++) {
st = GetPRM(i);
if ( st->index >= 0 ) {
if ( st->otindex & STRUCTDAT_OT_CLEANUP ) {
ExitFunc( st ); // クリーンアップ関数を呼び出す
}
}
}
}
static void *reffunc_ctrlfunc( int *type_res, int arg )
{
// reffunc : TYPE_DLLCTRL
// (拡張DLLコントロール関数)
//
void *ptr;
int p1,p2;
// '('で始まるかを調べる
//
if ( *type != TYPE_MARK ) throw ( HSPERR_INVALID_FUNCPARAM );
if ( *val != '(' ) throw ( HSPERR_INVALID_FUNCPARAM );
code_next();
ptr = &reffunc_intfunc_ivalue;
*type_res = HSPVAR_FLAG_INT;
switch( arg ) { // サブコマンドごとの分岐
case 0x100: // callfunc
{
PVal *pval;
PDAT *p;
pval = code_getpval();
p = HspVarCorePtrAPTR( pval, 0 );
p1 = code_geti();
p2 = code_geti();
reffunc_intfunc_ivalue = call_extfunc( (void *)p1, (int *)p, p2 );
break;
}
case 0x101: // cnvwtos
{
PVal *pval;
char *sptr;
int size;
sptr = code_getvptr( &pval, &size );
hspctx->stmp = sbExpand( hspctx->stmp, size );
ptr = hspctx->stmp;
cnvsjis( ptr, sptr, size );
*type_res = HSPVAR_FLAG_STR;
break;
}
case 0x102: // comevdisp
#ifdef HSP_COM_UNSUPPORTED
throw ( HSPERR_UNSUPPORTED_FUNCTION );
#else
{
PVal *pval;
APTR aptr;
IUnknown **ppunk;
// 第１パラメータ：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 );
// イベントの DISPID 取得
reffunc_intfunc_ivalue = GetEventDispID( *ppunk );
break;
}
#endif // HSP_COM_UNSUPPORTED
case 0x103: // libptr
{
//LIBDAT *lib;
STRUCTDAT *st;
switch( *type ) {
case TYPE_DLLFUNC:
case TYPE_MODCMD:
p1 = *val;
break;
case TYPE_DLLCTRL:
p1 = *val;
if ( p1 >= TYPE_OFFSET_COMOBJ ) {
p1 -= TYPE_OFFSET_COMOBJ;
break;
}
default:
throw ( HSPERR_TYPE_MISMATCH );
}
code_next();
st = GetPRM( p1 );
//lib = &hspctx->mem_linfo[ st->index ];
reffunc_intfunc_ivalue = (int)st;
break;
}
default:
throw ( HSPERR_SYNTAX );
}
// ')'で終わるかを調べる
//
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;
}