static void HspVarComobj_Alloc( PVal *pval, const PVal *pval2 )
{
// pval変数が必要とするサイズを確保する。
// (pvalがすでに確保されているメモリ解放は呼び出し側が行なう)
// (pval2がNULLの場合は、新規データ)
// (pval2が指定されている場合は、pval2の内容を継承して再確保)
//
int count,size;
IUnknown **ppunk;
#ifdef HSP_COMOBJ_DEBUG
COM_DBG_MSG( "HspVarComobj_Alloc()\n" );
#endif
if ( pval->len[1] < 1 ) pval->len[1] = 1; // 配列を最低 1 は確保する
count = HspVarCoreCountElems(pval);
size = count * sizeof( IUnknown* );
ppunk = (IUnknown **)sbAlloc( size );
pval->mode = HSPVAR_MODE_MALLOC;
for (int i=0; i<count; i++) { ppunk[i] = NULL; }
if ( pval2 != NULL ) {
memcpy( ppunk, pval->pt, pval->size );
sbFree( pval->pt );
if ( pval->master ) sbFree( pval->master );
}
pval->master = NULL; // ComDispParams 用
pval->pt = (char *)ppunk;
pval->size = size;
}
static void HspVarInt_Alloc( PVal *pval, const PVal *pval2 )
{
// pval変数が必要とするサイズを確保する。
// (pvalがすでに確保されているメモリ解放は呼び出し側が行なう)
// (pval2がNULLの場合は、新規データ)
// (pval2が指定されている場合は、pval2の内容を継承して再確保)
//
int i,size;
char *pt;
int *fv;
if ( pval->len[1] < 1 ) pval->len[1] = 1; // 配列を最低1は確保する
size = GetVarSize( pval );
pval->mode = HSPVAR_MODE_MALLOC;
pt = sbAlloc( size );
fv = (int *)pt;
for(i=0; i<(int)(size/sizeof(int)); i++) {
fv[i]=0;
}
if ( pval2 != NULL ) {
memcpy( pt, pval->pt, pval->size );
sbFree( pval->pt );
}
pval->pt = pt;
pval->size = size;
}
static void HspVarStruct_Alloc( PVal *pval, const PVal *pval2 )
{
// pval変数が必要とするサイズを確保する。
// (pvalがすでに確保されているメモリ解放は呼び出し側が行なう)
// (pval2がNULLの場合は、新規データ)
// (pval2が指定されている場合は、pval2の内容を継承して再確保)
//
int i,size;
char *pt;
FlexValue *fv;
if ( pval->len[1] < 1 ) pval->len[1] = 1; // 配列を最低1は確保する
pval->mode = HSPVAR_MODE_MALLOC;
size = sizeof(FlexValue) * pval->len[1];
pt = sbAlloc( size );
fv = (FlexValue *)pt;
for(i=0;i<pval->len[1];i++) {
/*
rev 53
BT#113: dimtypeでstruct型(モジュール型)変数が不完全な状態で作成される
に対処。
*/
memset( fv, 0, sizeof( FlexValue ) );
fv->type = FLEXVAL_TYPE_NONE;
fv++;
}
if ( pval2 != NULL ) {
memcpy( pt, pval->pt, pval->size );
sbFree( pval->pt );
}
pval->pt = pt;
pval->size = size;
}
void HspVarCoreInit( void )
{
int i;
hspvarproc = (HspVarProc *)sbAlloc( sizeof(HspVarProc) * HSPVAR_FLAG_MAX );
hspvartype_max = HSPVAR_FLAG_MAX;
for(i=0;i<HSPVAR_FLAG_MAX;i++) {
hspvarproc[i].flag = 0;
}
// mpval(テンポラリ変数)を初期化します
// (実態の初期化は、変数使用時に行なわれます)
PVal *pval;
mem_pval = (PVal *)sbAlloc( sizeof(PVal) * HSPVAR_FLAG_MAX );
for(i=0;i<HSPVAR_FLAG_MAX;i++) {
pval = &mem_pval[i];
pval->mode = HSPVAR_MODE_NONE;
pval->flag = HSPVAR_FLAG_INT; // 仮の型
}
}
void execdllfunc(HSPCTX * hspctx,int cmd,int num,void **args,int *argtypes)
{
STRUCTDAT *st;
int size;
HSPROUTINE *r;
char *p;
STRUCTPRM *prm;
char *out;
st = &hspctx->mem_finfo[cmd];
size = sizeof(HSPROUTINE) + st->size;
r = (HSPROUTINE *)StackPushSize( TYPE_EX_CUSTOMFUNC, size );
p = (char *)(r+1);
prm = &hspctx->mem_minfo[ st->prmindex ];
for(int i=0;i<num;i++)
{
out = p + prm->offset;
switch(argtypes[i])
{
case MPTYPE_STRING://2
{
char *ss;
ss = sbAlloc( (int)strlen(((char*)args[i])+1 ));
strcpy( ss, (char*)args[i] );
*(char **)out = ss;
break;
}
case MPTYPE_DNUM://3
{
memcpy(out, args[i], sizeof(double));
break;
}
case MPTYPE_INUM://4
{
*(int *)out = (int)args[i];
break;
}
}
prm++;
}
r->oldtack = hspctx->prmstack;
hspctx->prmstack = (void *)p;
r->mcsret = code_getpcbak();
r->stacklev = hspctx->sublev++;
r->param = st;
code_setpc((unsigned short *)( hspctx->mem_mcs + (hspctx->mem_ot[ st->otindex ]) ));
runproc();
}
BSTR comget_bstr( char *ps )
{
int size;
BSTR bstr;
void *temp;
size = cnvwstr( NULL, ps, 0 ) + 1;
if ( size * sizeof(WCHAR) > HSPCTX_REFSTR_MAX ) {
temp = sbAlloc( size * sizeof(WCHAR) );
cnvwstr( temp, ps, size );
bstr = SysAllocString( (LPOLESTR)temp );
sbFree( temp );
} else {
cnvwstr( hspctx->stmp, ps, size );
bstr = SysAllocString( (LPOLESTR)hspctx->stmp );
}
return bstr;
}
static char *cnvformat( void )
{
// フォーマット付き文字列を作成する
//
#if ( WIN32 || _WIN32 ) && ! __CYGWIN__
#define SNPRINTF _snprintf
#else
#define SNPRINTF snprintf
#endif
char fstr[1024];
char *fp;
int capacity;
int len;
char *p;
strncpy( fstr, code_gets(), sizeof fstr );
fstr[sizeof(fstr)-1] = '\0';
fp = fstr;
capacity = 1024;
p = sbAlloc(capacity);
len = 0;
CAutoSbFree autofree(&p);
while (1) {
char fmt[32];
int i;
int val_type;
void *val_ptr;
// '%' までをコピー
i = 0;
while( fp[i] != '\0' && fp[i] != '%' ) {
i ++;
}
cnvformat_expand( &p, &capacity, len, i );
memcpy( p + len, fp, i );
len += i;
fp += i;
if ( *fp == '\0' ) break;
// 変換指定を読み fmt にコピー
i = (int)strspn( fp + 1, " #+-.0123456789" ) + 1;
strncpy( fmt, fp, sizeof fmt );
fmt[sizeof(fmt)-1] = '\0';
if ( i + 1 < (int)(sizeof fmt) ) fmt[i+1] = '\0';
fp += i;
char specifier = *fp;
fp ++;
#if ( WIN32 || _WIN32 ) && ! __CYGWIN__
if ( specifier == 'I' ) { // I64 prefix対応(VC++のみ)
if ((fp[0]=='6')&&(fp[1]='4')) {
memcpy( fmt+i+1, fp, 3 );
fmt[i+4] = 0;
specifier = 'f';
fp += 3;
}
}
#endif
if ( specifier == '\0' ) break;
if ( specifier == '%' ) {
cnvformat_expand( &p, &capacity, len, 1 );
p[len++] = '%';
continue;
}
// 引数を取得
if ( code_get() <= PARAM_END ) throw HSPERR_INVALID_FUNCPARAM;
switch (specifier) {
case 'd': case 'i': case 'c': case 'o': case 'x': case 'X': case 'u': case 'p':
val_type = HSPVAR_FLAG_INT;
val_ptr = HspVarCoreCnvPtr( mpval, HSPVAR_FLAG_INT );
break;
case 'f': case 'e': case 'E': case 'g': case 'G':
val_type = HSPVAR_FLAG_DOUBLE;
val_ptr = HspVarCoreCnvPtr( mpval, HSPVAR_FLAG_DOUBLE );
break;
case 's':
val_type = HSPVAR_FLAG_STR;
val_ptr = HspVarCoreCnvPtr( mpval, HSPVAR_FLAG_STR );
break;
default:
throw HSPERR_INVALID_FUNCPARAM;
}
// snprintf が成功するまでバッファを広げていき、変換を行う
while (1) {
int n;
int space = capacity - len - 1;
if ( val_type == HSPVAR_FLAG_INT ) {
n = SNPRINTF( p + len, space, fmt, *(int *)val_ptr );
} else if ( val_type == HSPVAR_FLAG_DOUBLE ) {
n = SNPRINTF( p + len, space, fmt, *(HSPREAL *)val_ptr );
} else {
n = SNPRINTF( p + len, space, fmt, (char *)val_ptr );
}
if ( n >= 0 && n < space ) {
len += n;
break;
}
if ( n >= 0 ) {
space = n + 1;
} else {
space *= 2;
if ( space < 32 ) space = 32;
}
cnvformat_expand( &p, &capacity, len, space );
}
}
p[len] = '\0';
char *result = code_stmp(len + 1);
strcpy(result, p);
return result;
}
static int cmdfunc_intcmd( int cmd )
{
// cmdfunc : TYPE_INTCMD
// (内蔵コマンド)
//
int p1,p2,p3;
//
code_next(); // 次のコードを取得(最初に必ず必要です)
switch( cmd ) { // サブコマンドごとの分岐
case 0x00: // onexit
case 0x01: // onerror
case 0x02: // onkey
case 0x03: // onclick
case 0x04: // oncmd
{
/*
rev 45
不具合 : (onxxx系命令) (ラベル型変数) 形式の書式でエラー
に対処
*/
int tval = *type;
int opt = IRQ_OPT_GOTO;
int cust;
int actid;
IRQDAT *irq;
unsigned short *sbr;
if ( tval == TYPE_VAR ) {
if ( ( ctx->mem_var + *val )->flag == HSPVAR_FLAG_LABEL )
tval = TYPE_LABEL;
}
if (( tval != TYPE_PROGCMD )&&( tval != TYPE_LABEL )) { // ON/OFF切り替え
int i = code_geti();
code_enableirq( cmd, i );
break;
}
if ( tval == TYPE_PROGCMD ) { // ジャンプ方法指定
opt = *val;
if ( opt >= 2 ) throw HSPERR_SYNTAX;
code_next();
}
sbr = code_getlb2();
if ( cmd != 0x04 ) {
code_setirq( cmd, opt, -1, sbr );
break;
}
cust = code_geti();
actid = *(exinfo->actscr);
irq = code_seekirq( actid, cust );
if ( irq == NULL ) irq = code_addirq();
irq->flag = IRQ_FLAG_ENABLE;
irq->opt = opt;
irq->ptr = sbr;
irq->custom = cust;
irq->custom2 = actid;
break;
}
case 0x11: // exist
case 0x12: // delete
case 0x13: // mkdir
case 0x14: // chdir
code_event( HSPEVENT_FNAME, 0, 0, code_gets() );
code_event( HSPEVENT_FEXIST + (cmd - 0x11), 0, 0, NULL );
break;
case 0x15: // dirlist
{
PVal *pval;
APTR aptr;
char *ptr;
aptr = code_getva( &pval );
code_event( HSPEVENT_FNAME, 0, 0, code_gets() );
p1=code_getdi(0);
code_event( HSPEVENT_FDIRLIST1, p1, 0, &ptr );
code_setva( pval, aptr, TYPE_STRING, ptr );
code_event( HSPEVENT_FDIRLIST2, 0, 0, NULL );
break;
}
case 0x16: // bload
case 0x17: // bsave
{
PVal *pval;
char *ptr;
int size;
int tmpsize;
code_event( HSPEVENT_FNAME, 0, 0, code_gets() );
ptr = code_getvptr( &pval, &size );
p1 = code_getdi( -1 );
p2 = code_getdi( -1 );
if (( p1 < 0 )||( p1 > size )) p1 = size;
if ( cmd == 0x16 ) {
tmpsize = p2;if ( tmpsize<0 ) tmpsize = 0;
code_event( HSPEVENT_FREAD, tmpsize, p1, ptr );
} else {
code_event( HSPEVENT_FWRITE, p2, p1, ptr );
}
break;
}
case 0x18: // bcopy
code_event( HSPEVENT_FNAME, 0, 0, code_gets() );
code_event( HSPEVENT_FCOPY, 0, 0, code_gets() );
break;
case 0x19: // memfile
{
PVal *pval;
char *ptr;
int size;
ptr = code_getvptr( &pval, &size );
p1=code_getdi( 0 );
p2=code_getdi( 0 );
if ( p2==0 ) p2 = size - p1;
dpm_memfile( ptr+p1, p2 );
break;
}
case 0x1a: // poke
case 0x1b: // wpoke
case 0x1c: // lpoke
{
PVal *pval;
char *ptr;
int size;
int fl;
int len;
char *bp;
ptr = code_getvptr( &pval, &size );
p1 = code_getdi( 0 );
if ( p1<0 ) throw HSPERR_BUFFER_OVERFLOW;
ptr += p1;
if ( code_get() <= PARAM_END ) {
fl = HSPVAR_FLAG_INT;
bp = (char *)&p2; p2 = 0;
} else {
fl = mpval->flag;
bp = mpval->pt;
}
if ( cmd == 0x1a ) {
switch( fl ) {
case HSPVAR_FLAG_INT:
if ( p1 >= size ) throw HSPERR_BUFFER_OVERFLOW;
*ptr = *bp;
break;
case HSPVAR_FLAG_STR:
len = (int)strlen( bp );
ctx->strsize = len;
len++;
if ( (p1+len)>size ) throw HSPERR_BUFFER_OVERFLOW;
strcpy( ptr, bp );
break;
default:
throw HSPERR_TYPE_MISMATCH;
}
break;
}
if ( fl != HSPVAR_FLAG_INT ) throw HSPERR_TYPE_MISMATCH;
if ( cmd == 0x1b ) {
if ( (p1+2)>size ) throw HSPERR_BUFFER_OVERFLOW;
*(short *)ptr = (short)(*(short *)bp);
} else {
if ( (p1+4)>size ) throw HSPERR_BUFFER_OVERFLOW;
*(int *)ptr = (*(int *)bp);
}
break;
}
case 0x1d: // getstr
{
PVal *pval2;
PVal *pval;
APTR aptr;
char *ptr;
char *p;
int size;
aptr = code_getva( &pval );
ptr = code_getvptr( &pval2, &size );
p1 = code_getdi( 0 );
p2 = code_getdi( 0 );
p3 = code_getdi( 1024 );
if ( p1 >= size ) throw HSPERR_BUFFER_OVERFLOW;
ptr += p1;
p = code_stmp( p3 + 1 );
strsp_ini();
ctx->stat = strsp_get( ptr, p, p2, p3 );
ctx->strsize = strsp_getptr();
code_setva( pval, aptr, HSPVAR_FLAG_STR, p );
break;
}
case 0x1e: // chdpm
code_event( HSPEVENT_FNAME, 0, 0, code_gets() );
p1 = code_getdi( -1 );
dpm_bye();
p2 = dpm_ini( ctx->fnbuffer, 0, -1, p1 );
if ( p2 ) throw HSPERR_FILE_IO;
#ifndef HSP3IMP
#ifdef HSPWIN
Sleep( 1000 );
#endif
#endif
break;
case 0x1f: // memexpand
{
PVal *pval;
APTR aptr;
PDAT *ptr;
aptr = code_getva( &pval );
ptr = HspVarCorePtrAPTR( pval, aptr );
if (( pval->support & HSPVAR_SUPPORT_FLEXSTORAGE ) == 0 ) throw HSPERR_TYPE_MISMATCH;
p1 = code_getdi( 0 );
if ( p1 < 64 ) p1 = 64;
HspVarCoreAllocBlock( pval, ptr, p1 );
break;
}
case 0x20: // memcpy
{
PVal *pval;
char *sptr;
char *tptr;
int bufsize_t,bufsize_s;
tptr = code_getvptr( &pval, &bufsize_t );
sptr = code_getvptr( &pval, &bufsize_s );
p1 = code_getdi( 0 );
p2 = code_getdi( 0 );
p3 = code_getdi( 0 );
if( p2 < 0 || p3 < 0 ) throw HSPERR_BUFFER_OVERFLOW;
tptr += p2;
sptr += p3;
if ( (p1+p2)>bufsize_t ) throw HSPERR_BUFFER_OVERFLOW;
if ( (p1+p3)>bufsize_s ) throw HSPERR_BUFFER_OVERFLOW;
if ( p1>0 ) {
memmove( tptr, sptr, p1 );
}
break;
}
case 0x21: // memset
{
PVal *pval;
char *ptr;
int size;
ptr = code_getvptr( &pval, &size );
p1 = code_getdi( 0 );
p2 = code_getdi( 0 );
p3 = code_getdi( 0 );
if ( p3 < 0 ) throw HSPERR_BUFFER_OVERFLOW;
ptr += p3;
if ( (p3+p2)>size ) throw HSPERR_BUFFER_OVERFLOW;
if ( p2>0 ) {
memset( ptr, p1, p2 );
}
break;
}
case 0x22: // notesel
ctx->notep_aptr = ctx->note_aptr;
ctx->notep_pval = ctx->note_pval;
ctx->note_aptr = code_getva( &ctx->note_pval );
if ( ctx->note_pval->flag != HSPVAR_FLAG_STR ) {
code_setva( ctx->note_pval, ctx->note_aptr, TYPE_STRING, "" );
}
break;
case 0x23: // noteadd
{
char *np;
char *ps;
char *tmp;
int size;
np = note_update();
ps = code_gets();
size = (int)strlen( ps ) + 8;
HspVarCoreAllocBlock( ctx->note_pval, (PDAT *)np, (int)strlen(np) + size );
tmp = code_stmpstr( ps );
p1 = code_getdi( -1 );
p2 = code_getdi( 0 );
np = note_update();
note.PutLine( tmp, p1, p2 );
break;
}
case 0x24: // notedel
p1 = code_getdi( 0 );
note_update();
note.PutLine( NULL, p1, 1 );
break;
case 0x25: // noteload
{
int size;
char *ptr;
char *pdat;
code_event( HSPEVENT_FNAME, 0, 0, code_gets() );
p1 = code_getdi( -1 );
code_event( HSPEVENT_FEXIST, 0, 0, NULL );
size = ctx->strsize;
if ( size < 0 ) throw HSPERR_FILE_IO;
if ( p1>=0 ) if ( size >= p1 ) { ctx->strsize = size = p1; }
pdat = note_update();
HspVarCoreAllocBlock( ctx->note_pval, (PDAT *)pdat, size+1 );
ptr = (char *)note_update();
code_event( HSPEVENT_FREAD, 0, size, ptr );
ptr[size] = 0;
break;
}
case 0x26: // notesave
{
char *pdat;
int size;
code_event( HSPEVENT_FNAME, 0, 0, code_gets() );
pdat = note_update();
size = (int)strlen( pdat );
code_event( HSPEVENT_FWRITE, -1, size, pdat );
break;
}
case 0x27: // randomize
#ifdef HSPWIN
p2 = (int)GetTickCount(); // Windowsの場合はtickをシード値とする
#else
p2 = (int)time(0); // Windows以外のランダムシード値
#endif
p1 = code_getdi( p2 );
#ifdef HSPRANDMT
mt.seed( p1 );
#else
srand( p1 );
#endif
break;
case 0x28: // noteunsel
ctx->note_aptr = ctx->notep_aptr;
ctx->note_pval = ctx->notep_pval;
break;
case 0x29: // noteget
{
PVal *pval;
APTR aptr;
char *p;
note_update();
aptr = code_getva( &pval );
p1 = code_getdi( 0 );
p = note.GetLineDirect( p1 );
code_setva( pval, aptr, TYPE_STRING, p );
note.ResumeLineDirect();
break;
}
case 0x2a: // split
{
// 指定した文字列で分割された要素を代入する(fujidig)
PVal *pval = NULL;
int aptr = 0;
char *sptr;
char *sep;
char *newsptr;
int size;
int sep_len;
int n = 0;
int is_last = 0;
sptr = code_getvptr( &pval, &size );
if ( pval->flag != HSPVAR_FLAG_STR ) throw HSPERR_TYPE_MISMATCH;
sep = code_gets();
sep_len = (int)strlen( sep );
while (1) {
newsptr = strstr2( sptr, sep );
if ( !is_last && *exinfo->npexflg & EXFLG_1 ) {
// 分割結果の数が格納する変数より多ければ最後の変数に配列で格納していく
// ただし最後の要素が a.2 のように要素指定があればそれ以降は全く格納しない
if ( aptr != 0 ) pval = NULL;
is_last = 1;
aptr = 0;
}
if ( is_last ) {
aptr ++;
if ( pval != NULL && aptr >= pval->len[1] ) {
if ( pval->len[2] != 0 ) throw HSPVAR_ERROR_ARRAYOVER;
HspVarCoreReDim( pval, 1, aptr+1 );
}
} else {
aptr = code_getva( &pval );
}
if ( pval != NULL ) {
if ( newsptr == NULL ) {
code_setva( pval, aptr, HSPVAR_FLAG_STR, sptr );
} else {
var_set_str_len( pval, aptr, sptr, (int)(newsptr - sptr) );
}
}
n ++;
if ( newsptr == NULL ) {
// 格納する変数の数が分割できた数より多ければ残った変数それぞれに空文字列を格納する
while( ( *exinfo->npexflg & EXFLG_1 ) == 0 ) {
aptr = code_getva( &pval );
code_setva( pval, aptr, HSPVAR_FLAG_STR, "" );
}
break;
}
sptr = newsptr + sep_len;
}
ctx->stat = n;
break;
}
case 0x02b: // strrep
{
PVal *pval;
APTR aptr;
char *ss;
char *s_rep;
char *s_buffer;
char *s_match;
char *s_result;
int len_match;
int len_result;
int len_buffer;
aptr = code_getva( &pval );
if ( pval->flag != HSPVAR_FLAG_STR ) throw HSPERR_TYPE_MISMATCH;
s_buffer = (char *)HspVarCorePtrAPTR( pval, aptr );
ss = code_gets();
if ( *ss == 0 ) throw HSPERR_ILLEGAL_FUNCTION;
len_match = (int)strlen( ss );
s_match = sbAlloc( len_match + 1 );
memcpy( s_match, ss, len_match + 1 );
len_buffer = (int)strlen( s_buffer );
len_result = len_buffer + 0x4000;
if ( len_result < 0x8000 ) len_result = 0x8000;
s_result = sbAlloc( len_result );
*s_result = 0;
s_rep = code_gets();
ReplaceSetMatch( s_buffer, s_match, s_result, len_buffer, len_match, len_result );
ReplaceStr( s_rep );
code_setva( pval, aptr, TYPE_STRING, s_result );
ctx->stat = ReplaceDone();
sbFree( s_match );
sbFree( s_result );
break;
}
case 0x02c: // setease
{
HSPREAL dval;
HSPREAL dval2;
dval = code_getd();
dval2 = code_getd();
p1 = code_getdi( ease_type );
setEase( p1, dval, dval2 );
break;
}
case 0x02d: // sortval
{
int a,i;
PVal *p1;
APTR ap;
int order;
ap = code_getva( &p1 ); // パラメータ1:変数
order = code_getdi( 0 ); // パラメータ2:数値
i=p1->len[1];
if (i<=0) throw HSPERR_ILLEGAL_FUNCTION;
switch(p1->flag) {
case HSPVAR_FLAG_DOUBLE:
{
double *dp;
dp=(double *)p1->pt;
DataIni( i );
for(a=0;a<i;a++) {
dtmp[a].as.dkey=dp[a];
dtmp[a].info=a;
}
if (order == 0) {
std::sort(dtmp, dtmp + i, less_double_1);
}
else {
std::sort(dtmp, dtmp + i, less_double_0);
}
for(a=0;a<i;a++) {
code_setva( p1, a, HSPVAR_FLAG_DOUBLE, &(dtmp[a].as.dkey) ); // 変数に値を代入
}
break;
}
case HSPVAR_FLAG_INT:
{
int *p;
p=(int *)p1->pt;
DataIni( i );
for(a=0;a<i;a++) {
dtmp[a].as.ikey=p[a];
dtmp[a].info=a;
}
if (order == 0) {
std::sort(dtmp, dtmp + i, less_int_1);
}
else {
std::sort(dtmp, dtmp + i, less_int_0);
}
for(a=0;a<i;a++) {
p[a]=dtmp[a].as.ikey;
}
break;
}
default:
throw HSPERR_ILLEGAL_FUNCTION;
}
break;
}
case 0x02e: // sortstr
{
int i,len,order;
char *p;
PVal *pv;
APTR ap;
HspVarProc *proc;
char **pvstr;
ap = code_getva( &pv ); // パラメータ1:変数
order = code_getdi( 0 ); // パラメータ2:数値
if ( pv->flag != 2 ) throw HSPERR_TYPE_MISMATCH;
if (( pv->len[2] != 0 )||( ap != 0 )) throw HSPERR_ILLEGAL_FUNCTION;
proc = HspVarCoreGetProc( pv->flag );
len = pv->len[1];
DataIni( len );
for(i=0;i<len;i++) {
p = (char *)HspVarCorePtrAPTR( pv, i );
dtmp[i].as.skey = p;
dtmp[i].info = i;
}
if (order == 0) {
std::sort(dtmp, dtmp + i, less_str_1);
}
else {
std::sort(dtmp, dtmp + i, less_str_0);
}
pvstr = (char **)(pv->master); // 変数に直接sbポインタを書き戻す
for(i=0;i<len;i++) {
if ( i == 0 ) {
pv->pt = dtmp[i].as.skey;
sbSetOption(pv->pt, &pv->pt);
} else {
pvstr[i] = dtmp[i].as.skey;
sbSetOption(pvstr[i], &pvstr[i]);
}
}
break;
}
case 0x02f: // sortnote
{
int i,sflag;
char *p;
char *stmp;
PVal *pv;
APTR ap;
ap = code_getva( &pv ); // パラメータ1:変数
sflag = code_getdi( 0 ); // パラメータ2:数値
p = (char *)HspVarCorePtrAPTR( pv, ap );
i = GetNoteLines(p);
if ( i <= 0 ) throw HSPERR_ILLEGAL_FUNCTION;
DataIni( i );
NoteToData( p, dtmp );
if (sflag == 0) {
std::sort(dtmp, dtmp + i, less_str_1);
}
else {
std::sort(dtmp, dtmp + i, less_str_0);
}
stmp = code_stmp( (int)DataToNoteLen( dtmp, i ) + 1 );
DataToNote( dtmp, stmp, i );
code_setva( pv, ap, HSPVAR_FLAG_STR, stmp ); // 変数に値を代入
break;
}
case 0x030: // sortget
{
PVal *pv;
APTR ap;
int result;
int n;
ap = code_getva( &pv );
n = code_getdi( 0 );
if ( dtmp == NULL ) throw HSPERR_ILLEGAL_FUNCTION;
if (0 <= n && n < dtmp_size ) {
result=dtmp[n].info;
} else {
result=0;
}
code_setva( pv, ap, HSPVAR_FLAG_INT, &result );
break;
}
default:
throw HSPERR_UNSUPPORTED_FUNCTION;
}
return RUNMODE_RUN;
}
static int cmdfunc_intcmd( int cmd )
{
// cmdfunc : TYPE_INTCMD
// (内蔵コマンド)
//
int p1,p2,p3;
//
code_next(); // 次のコードを取得(最初に必ず必要です)
switch( cmd ) { // サブコマンドごとの分岐
case 0x00: // onexit
case 0x01: // onerror
case 0x02: // onkey
case 0x03: // onclick
case 0x04: // oncmd
{
/*
rev 45
不具合 : (onxxx系命令) (ラベル型変数) 形式の書式でエラー
に対処
*/
int tval = *type;
int opt = IRQ_OPT_GOTO;
int cust;
int actid;
IRQDAT *irq;
unsigned short *sbr;
if ( tval == TYPE_VAR ) {
if ( ( ctx->mem_var + *val )->flag == HSPVAR_FLAG_LABEL )
tval = TYPE_LABEL;
}
if (( tval != TYPE_PROGCMD )&&( tval != TYPE_LABEL )) { // ON/OFF切り替え
int i = code_geti();
code_enableirq( cmd, i );
break;
}
if ( tval == TYPE_PROGCMD ) { // ジャンプ方法指定
opt = *val;
if ( opt >= 2 ) throw HSPERR_SYNTAX;
code_next();
}
sbr = code_getlb2();
if ( cmd != 0x04 ) {
code_setirq( cmd, opt, -1, sbr );
break;
}
cust = code_geti();
actid = *(exinfo->actscr);
irq = code_seekirq( actid, cust );
if ( irq == NULL ) irq = code_addirq();
irq->flag = IRQ_FLAG_ENABLE;
irq->opt = opt;
irq->ptr = sbr;
irq->custom = cust;
irq->custom2 = actid;
break;
}
case 0x11: // exist
case 0x12: // delete
case 0x13: // mkdir
case 0x14: // chdir
code_event( HSPEVENT_FNAME, 0, 0, code_gets() );
code_event( HSPEVENT_FEXIST + (cmd - 0x11), 0, 0, NULL );
break;
case 0x15: // dirlist
{
PVal *pval;
APTR aptr;
char *ptr;
aptr = code_getva( &pval );
code_event( HSPEVENT_FNAME, 0, 0, code_gets() );
p1=code_getdi(0);
code_event( HSPEVENT_FDIRLIST1, p1, 0, &ptr );
code_setva( pval, aptr, TYPE_STRING, ptr );
code_event( HSPEVENT_FDIRLIST2, 0, 0, NULL );
break;
}
case 0x16: // bload
case 0x17: // bsave
{
PVal *pval;
char *ptr;
int size;
int tmpsize;
code_event( HSPEVENT_FNAME, 0, 0, code_gets() );
ptr = code_getvptr( &pval, &size );
p1 = code_getdi( -1 );
p2 = code_getdi( -1 );
if (( p1 < 0 )||( p1 > size )) p1 = size;
if ( cmd == 0x16 ) {
tmpsize = p2;if ( tmpsize<0 ) tmpsize = 0;
code_event( HSPEVENT_FREAD, tmpsize, p1, ptr );
} else {
code_event( HSPEVENT_FWRITE, p2, p1, ptr );
}
break;
}
case 0x18: // bcopy
code_event( HSPEVENT_FNAME, 0, 0, code_gets() );
code_event( HSPEVENT_FCOPY, 0, 0, code_gets() );
break;
case 0x19: // memfile
{
PVal *pval;
char *ptr;
int size;
ptr = code_getvptr( &pval, &size );
p1=code_getdi( 0 );
p2=code_getdi( 0 );
if ( p2==0 ) p2 = size - p1;
dpm_memfile( ptr+p1, p2 );
break;
}
case 0x1a: // poke
case 0x1b: // wpoke
case 0x1c: // lpoke
{
PVal *pval;
char *ptr;
int size;
int fl;
int len;
char *bp;
ptr = code_getvptr( &pval, &size );
p1 = code_getdi( 0 );
if ( p1<0 ) throw HSPERR_BUFFER_OVERFLOW;
ptr += p1;
if ( code_get() <= PARAM_END ) {
fl = HSPVAR_FLAG_INT;
bp = (char *)&p2; p2 = 0;
} else {
fl = mpval->flag;
bp = mpval->pt;
}
if ( cmd == 0x1a ) {
switch( fl ) {
case HSPVAR_FLAG_INT:
if ( p1 >= size ) throw HSPERR_BUFFER_OVERFLOW;
*ptr = *bp;
break;
case HSPVAR_FLAG_STR:
len = (int)strlen( bp );
ctx->strsize = len;
len++;
if ( (p1+len)>size ) throw HSPERR_BUFFER_OVERFLOW;
strcpy( ptr, bp );
break;
default:
throw HSPERR_TYPE_MISMATCH;
}
break;
}
if ( fl != HSPVAR_FLAG_INT ) throw HSPERR_TYPE_MISMATCH;
if ( cmd == 0x1b ) {
if ( (p1+2)>size ) throw HSPERR_BUFFER_OVERFLOW;
*(short *)ptr = (short)(*(short *)bp);
} else {
if ( (p1+4)>size ) throw HSPERR_BUFFER_OVERFLOW;
*(int *)ptr = (*(int *)bp);
}
break;
}
case 0x1d: // getstr
{
PVal *pval2;
PVal *pval;
APTR aptr;
char *ptr;
char *p;
int size;
aptr = code_getva( &pval );
ptr = code_getvptr( &pval2, &size );
p1 = code_getdi( 0 );
p2 = code_getdi( 0 );
p3 = code_getdi( 1024 );
if ( p1 >= size ) throw HSPERR_BUFFER_OVERFLOW;
ptr += p1;
p = code_stmp( p3 + 1 );
strsp_ini();
ctx->stat = strsp_get( ptr, p, p2, p3 );
ctx->strsize = strsp_getptr();
code_setva( pval, aptr, HSPVAR_FLAG_STR, p );
break;
}
case 0x1e: // chdpm
code_event( HSPEVENT_FNAME, 0, 0, code_gets() );
p1 = code_getdi( -1 );
dpm_bye();
p2 = dpm_ini( ctx->fnbuffer, 0, -1, p1 );
if ( p2 ) throw HSPERR_FILE_IO;
#ifndef HSP3IMP
#ifdef HSPWIN
Sleep( 1000 );
#endif
#endif
break;
case 0x1f: // memexpand
{
PVal *pval;
APTR aptr;
PDAT *ptr;
aptr = code_getva( &pval );
ptr = HspVarCorePtrAPTR( pval, aptr );
if (( pval->support & HSPVAR_SUPPORT_FLEXSTORAGE ) == 0 ) throw HSPERR_TYPE_MISMATCH;
p1 = code_getdi( 0 );
if ( p1 < 64 ) p1 = 64;
HspVarCoreAllocBlock( pval, ptr, p1 );
break;
}
case 0x20: // memcpy
{
PVal *pval;
char *sptr;
char *tptr;
int bufsize_t,bufsize_s;
tptr = code_getvptr( &pval, &bufsize_t );
sptr = code_getvptr( &pval, &bufsize_s );
p1 = code_getdi( 0 );
p2 = code_getdi( 0 );
p3 = code_getdi( 0 );
if( p2 < 0 || p3 < 0 ) throw HSPERR_BUFFER_OVERFLOW;
tptr += p2;
sptr += p3;
if ( (p1+p2)>bufsize_t ) throw HSPERR_BUFFER_OVERFLOW;
if ( (p1+p3)>bufsize_s ) throw HSPERR_BUFFER_OVERFLOW;
if ( p1>0 ) {
memmove( tptr, sptr, p1 );
}
break;
}
case 0x21: // memset
{
PVal *pval;
char *ptr;
int size;
ptr = code_getvptr( &pval, &size );
p1 = code_getdi( 0 );
p2 = code_getdi( 0 );
p3 = code_getdi( 0 );
if ( p3 < 0 ) throw HSPERR_BUFFER_OVERFLOW;
ptr += p3;
if ( (p3+p2)>size ) throw HSPERR_BUFFER_OVERFLOW;
if ( p2>0 ) {
memset( ptr, p1, p2 );
}
break;
}
case 0x22: // notesel
ctx->notep_aptr = ctx->note_aptr;
ctx->notep_pval = ctx->note_pval;
ctx->note_aptr = code_getva( &ctx->note_pval );
if ( ctx->note_pval->flag != HSPVAR_FLAG_STR ) {
code_setva( ctx->note_pval, ctx->note_aptr, TYPE_STRING, "" );
}
break;
case 0x23: // noteadd
{
char *np;
char *ps;
char *tmp;
int size;
np = note_update();
ps = code_gets();
size = (int)strlen( ps ) + 8;
HspVarCoreAllocBlock( ctx->note_pval, (PDAT *)np, (int)strlen(np) + size );
tmp = sbAlloc( size );
strcpy( tmp, ps );
p1 = code_getdi( -1 );
p2 = code_getdi( 0 );
np = note_update();
note.PutLine( tmp, p1, p2 );
sbFree( tmp );
break;
}
case 0x24: // notedel
p1 = code_getdi( 0 );
note_update();
note.PutLine( NULL, p1, 1 );
break;
case 0x25: // noteload
{
int size;
char *ptr;
char *pdat;
code_event( HSPEVENT_FNAME, 0, 0, code_gets() );
p1 = code_getdi( -1 );
code_event( HSPEVENT_FEXIST, 0, 0, NULL );
size = ctx->strsize;
if ( size < 0 ) throw HSPERR_FILE_IO;
if ( p1>=0 ) if ( size >= p1 ) { ctx->strsize = size = p1; }
pdat = note_update();
HspVarCoreAllocBlock( ctx->note_pval, (PDAT *)pdat, size+1 );
ptr = (char *)note_update();
code_event( HSPEVENT_FREAD, 0, size, ptr );
ptr[size] = 0;
break;
}
case 0x26: // notesave
{
char *pdat;
int size;
code_event( HSPEVENT_FNAME, 0, 0, code_gets() );
pdat = note_update();
size = (int)strlen( pdat );
code_event( HSPEVENT_FWRITE, -1, size, pdat );
break;
}
case 0x27: // randomize
#ifdef HSPWIN
p2 = (int)GetTickCount(); // Windowsの場合はtickをシード値とする
#else
p2 = (int)time(0); // Windows以外のランダムシード値
#endif
p1 = code_getdi( p2 );
srand( p1 );
break;
case 0x28: // noteunsel
ctx->note_aptr = ctx->notep_aptr;
ctx->note_pval = ctx->notep_pval;
break;
case 0x29: // noteget
{
PVal *pval;
APTR aptr;
char *p;
note_update();
aptr = code_getva( &pval );
p1 = code_getdi( 0 );
p = note.GetLineDirect( p1 );
code_setva( pval, aptr, TYPE_STRING, p );
note.ResumeLineDirect();
break;
}
case 0x2a: // split
{
// 指定した文字列で分割された要素を代入する(fujidig)
PVal *pval = NULL;
int aptr = 0;
char *sptr;
char *sep;
char *newsptr;
int size;
int sep_len;
int n = 0;
int is_last = 0;
sptr = code_getvptr( &pval, &size );
if ( pval->flag != HSPVAR_FLAG_STR ) throw HSPERR_TYPE_MISMATCH;
sep = code_gets();
sep_len = (int)strlen( sep );
while (1) {
newsptr = strstr2( sptr, sep );
if ( !is_last && *exinfo->npexflg & EXFLG_1 ) {
// 分割結果の数が格納する変数より多ければ最後の変数に配列で格納していく
// ただし最後の要素が a.2 のように要素指定があればそれ以降は全く格納しない
if ( aptr != 0 ) pval = NULL;
is_last = 1;
aptr = 0;
}
if ( is_last ) {
aptr ++;
if ( pval != NULL && aptr >= pval->len[1] ) {
if ( pval->len[2] != 0 ) throw HSPVAR_ERROR_ARRAYOVER;
HspVarCoreReDim( pval, 1, aptr+1 );
}
} else {
aptr = code_getva( &pval );
}
if ( pval != NULL ) {
if ( newsptr == NULL ) {
code_setva( pval, aptr, HSPVAR_FLAG_STR, sptr );
} else {
var_set_str_len( pval, aptr, sptr, (int)(newsptr - sptr) );
}
}
n ++;
if ( newsptr == NULL ) {
// 格納する変数の数が分割できた数より多ければ残った変数それぞれに空文字列を格納する
while( ( *exinfo->npexflg & EXFLG_1 ) == 0 ) {
aptr = code_getva( &pval );
code_setva( pval, aptr, HSPVAR_FLAG_STR, "" );
}
break;
}
sptr = newsptr + sep_len;
}
ctx->stat = n;
break;
}
default:
throw HSPERR_UNSUPPORTED_FUNCTION;
}
return RUNMODE_RUN;
}