static void HspVarStr_Alloc( PVal *pval, const PVal *pval2 ) { // pval変数が必要とするサイズを確保する。 // (pvalがすでに確保されているメモリ解放は呼び出し側が行なう) // (pval2がNULLの場合は、新規データ。len[0]に確保バイト数が代入される) // (pval2が指定されている場合は、pval2の内容を継承して再確保) // char **pp; int i, i2, size, bsize; PVal oldvar; if ( pval->len[1] < 1 ) pval->len[1] = 1; // 配列を最低1は確保する if ( pval2 != NULL ) oldvar = *pval2; // 拡張時は以前の情報を保存する size = GetVarSize( pval ); pval->mode = HSPVAR_MODE_MALLOC; pval->master = (char *)calloc( size, 1 ); if ( pval->master == NULL ) throw HSPERR_OUT_OF_MEMORY; if ( pval2 == NULL ) { // 配列拡張なし bsize = pval->len[0]; if ( bsize < 64 ) bsize = 64; for(i=0;i<(int)(size/sizeof(char *));i++) { pp = GetFlexBufPtr( pval, i ); *pp = sbAllocClear( bsize ); sbSetOption( *pp, (void *)pp ); } return; } i2 = oldvar.size / sizeof(char *); for(i=0;i<(int)(size/sizeof(char *));i++) { pp = GetFlexBufPtr( pval, i ); if ( i>=i2 ) { *pp = sbAllocClear( 64 ); // 新規確保分 } else { *pp = *GetFlexBufPtr( &oldvar, i ); // 確保済みバッファ } sbSetOption( *pp, (void *)pp ); } free( oldvar.master ); }
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_result; 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; ReplaceSetMatch( s_buffer, ss ); s_rep = code_gets(); s_result = ReplaceStr( s_rep ); code_setva( pval, aptr, TYPE_STRING, s_result ); ctx->stat = ReplaceDone(); 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; }