MakeHPI/cpp/chapter6

型の追加サンプル †

[編集]

ここでは HSP3 より可能になった型の追加サンプルをいくつか書いてみます。型の追加に関しては今のところ参考になるのが HSP3SDK に添付されている vartype フォルダのサンプルしかありません。
とても分かりづらいので早速作ってみましょう。

参考サイト: HSP3.0Plugin(Var)

型の追加サンプル

↑

目標 †

[編集]

様々な HSP3 拡張型変数を作り、使用してみる
- 符号なし整数(uint)型
- 1byte 変数(char)型(予定)
- 短精度整数(short)型(予定)
- 連想配列変数(hash)型(予定)
- 他にも作成してサンプルとしてソースを公開してもよければ追記してください

↑

注意事項 †

[編集]

間違いがある可能性が非常に高いためご注意ください
- (修正できる人は率先して修正お願いします)
どうやら、直接代入したり mes/dialog にパラメータとして渡せないようです
とりあえず Microsoft Visual C++ 2005 Express Edition で作成しました
- Windows Platform SDK もインストールしてください

↑

ソースファイル †

[編集]

↑

UINT(unsigned int) †

[編集]

main.cpp

//
//		uint(unsigned int) type variable sample
//
 
#define WIN32_LEAN_AND_MEAN        // Exclude rarely-used stuff from Windows headers
#include "hspvar_uint.h"
#pragma comment(linker, "/entry:\"_DllMainCRTStartup\"")
 
/*------------------------------------------------------------*/
 
BOOL WINAPI DllMain (HINSTANCE hInstance, DWORD fdwReason, PVOID pvReserved)
{
    //		DLLエントリー (何もする必要はありません)
    //
    return TRUE;
}
 
/*------------------------------------------------------------*/
 
BOOL WINAPI _DllMainCRTStartup(HINSTANCE hInstance, DWORD reason, LPVOID lpReserved)
{
    return DllMain(hInstance,reason,lpReserved);
}
 
/*------------------------------------------------------------*/

hspvar_uint.h

#ifndef __hspvar_uint_h
#define __hspvar_uint_h
 
#include <windows.h>
#include <stdio.h>
#include <stdlib.h>
#include "hsp3plugin.h"
#include "strbuf.h"
#include "supio.h"
 
#endif

hspvar_uint.cpp

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
!
 
 
-
|
|
|
|
-
|
|
|
|
|
|
|
|
|
|
|
!
|
!
 
 
 
 
 
 
 
-
|
|
|
|
|
-
|
|
|
|
|
|
|
|
|
|
|
!
|
!
 
 
-
|
|
|
|
|
|
|
|
|
|
!
 
 
-
|
|
|
|
|
!
 
 
-
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
-
|
|
!
|
|
|
!
 
 
 
-
|
!
 
 
 
-
|
|
|
!
 
 
 
-
|
|
|
!
 
 
 
-
|
|
|
!
 
 
 
-
|
|
|
!
 
 
 
-
|
|
|
|
|
!
 
 
 
-
|
|
|
|
|
!
 
 
 
-
|
|
|
!
 
 
 
-
|
|
|
!
 
 
 
-
|
|
|
!
 
 
 
 
-
|
|
|
!
 
 
 
-
|
|
|
!
 
 
 
-
|
|
|
!
 
 
 
-
|
|
|
!
 
 
 
-
|
|
|
!
 
 
 
-
|
|
|
!
 
 
 
-
|
|
|
!
 
 
 
-
|
|
|
!
 
 
 
-
|
|
!
 
 
-
|
!
 
 
 
-
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
!
 
 
-
|
|
|
|
|
-
|
|
|
|
|
|
|
|
|
|
|
!
|
!
 
 
-
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
-
|
|
|
|
|
|
|
!
|
|
|
|
|
|
|
|
!
 
 
-
|
|
|
|
!
 
 
-
|
|
|
|
|
|
|
|
|
|
!

#include "hspvar_uint.h"
 
/*------------------------------------------------------------*/
/*
		HSPVAR core interface (uint)
*/
/*------------------------------------------------------------*/
 
#define GetPtr(pdat) ((UINT *)pdat)
 
static UINT conv;
static short *aftertype;
static short vflag;
 
 
// Core
static PDAT *HspVarUInt_GetPtr(PVal *pval)
{
    return (PDAT *)(((UINT *)(pval->pt)) + pval->offset);
}
 
static void *HspVarUInt_Cnv(const void *buffer, int flag)
{
    //  リクエストされた型 -> 自分の型への変換を行なう
    //  (組み込み型にのみ対応でOK)
    //  (参照元のデータを破壊しないこと)
    //
    switch(flag) {
    case HSPVAR_FLAG_STR:
        conv = (UINT)atoi((char *)buffer);
        return &conv;
    case HSPVAR_FLAG_INT:
        conv = (UINT)(*(int *)buffer);
        return &conv;
    case HSPVAR_FLAG_DOUBLE:
        conv = (UINT)(*(double *)buffer);
        return &conv;
    default:
        throw HSPVAR_ERROR_TYPEMISS;
    }
    //return buffer;
}
 
static int    ref_ival;     // 返値のための変数領域(int)
static double ref_dval;     // 返値のための変数領域(double)
static char   ref_str[11];  // 返値のための変数領域(str)
static UINT   ref_uival;    // 返値のための変数領域(UINT)
 
static void *HspVarUInt_CnvCustom(const void *buffer, int flag)
{
    //    (カスタムタイプのみ)
    //    自分の型 -> リクエストされた型 への変換を行なう
    //    (組み込み型に対応させる)
    //    (参照元のデータを破壊しないこと)
    //
    switch(flag) {
    case HSPVAR_FLAG_STR:
        wsprintf(ref_str, "%u", *(UINT *)buffer);
        return ref_str;
    case HSPVAR_FLAG_INT:
        ref_ival = (int)(*(UINT *)buffer);
        return &ref_ival;
    case HSPVAR_FLAG_DOUBLE:
        ref_dval = (double)(*(UINT *)buffer);
        return &ref_dval;
    default:
        throw HSPVAR_ERROR_TYPEMISS;
    }
    return (void *)buffer;
}
 
static int GetVarSize(PVal *pval)
{
    //    PVALポインタの変数が必要とするサイズを取得する
    //    (sizeフィールドに設定される)
    //
    int size;
    size = pval->len[1];
    if (pval->len[2]) size *= pval->len[2];
    if (pval->len[3]) size *= pval->len[3];
    if (pval->len[4]) size *= pval->len[4];
    size *= sizeof(UINT);
    return size;
}
 
static void HspVarUInt_Free(PVal *pval)
{
    //    PVALポインタの変数メモリを解放する
    //
    if (pval->mode == HSPVAR_MODE_MALLOC) { sbFree(pval->pt); }
    pval->pt   = NULL;
    pval->mode = HSPVAR_MODE_NONE;
}
 
static void HspVarUInt_Alloc(PVal *pval, const PVal *pval2)
{
    //    pval変数が必要とするサイズを確保する。
    //    (pvalがすでに確保されているメモリ解放は呼び出し側が行なう)
    //    (pval2がNULLの場合は、新規データ)
    //    (pval2が指定されている場合は、pval2の内容を継承して再確保)
    //
    int size;
    char *pt;
    UINT *fv;
 
    if (pval->len[1] < 1) pval->len[1] = 1;   // 配列を最低1は確保する
    size = GetVarSize(pval);
    pval->mode = HSPVAR_MODE_MALLOC;
    pt = sbAlloc(size);
 
    fv = (UINT *)pt;
    for (int i = 0; i < (int)(size/sizeof(UINT)); i++) { fv[i] = 0; }
    if (pval2 != NULL) {
        memcpy(pt, pval->pt, pval->size);
        sbFree(pval->pt);
    }
    pval->pt   = pt;
    pval->size = size;
    return;
}
 
// Size
static int HspVarUInt_GetSize(const PDAT *pval)
{
    return sizeof(UINT);
}
 
// Set
static void HspVarUInt_Set(PVal *pval, PDAT *pdat, const void *in)
{
    *GetPtr(pdat) = *((UINT *)(in));
    *aftertype = vflag;
    return;
}
 
// Add
static void HspVarUInt_AddI(PDAT *pdat, const void *val)
{
    *GetPtr(pdat) += *((UINT *)(val));
    *aftertype = vflag;
    return;
}
 
// Sub
static void HspVarUInt_SubI(PDAT *pdat, const void *val)
{
    *GetPtr(pdat) -= *((UINT *)(val));
    *aftertype = vflag;
    return;
}
 
// Mul
static void HspVarUInt_MulI(PDAT *pdat, const void *val)
{
    *GetPtr(pdat) *= *((UINT *)(val));
    *aftertype = vflag;
    return;
}
 
// Div
static void HspVarUInt_DivI(PDAT *pdat, const void *val)
{
    UINT p = *((UINT *)(val));
    if (p == 0) throw(HSPVAR_ERROR_DIVZERO);
    *GetPtr(pdat) /= p;
    *aftertype = vflag;
    return;
}
 
// Mod
static void HspVarUInt_ModI(PDAT *pdat, const void *val)
{
    UINT p = *((UINT *)(val));
    if (p == 0) throw(HSPVAR_ERROR_DIVZERO);
    *GetPtr(pdat) %= p;
    *aftertype = vflag;
    return;
}
 
// And
static void HspVarUInt_AndI(PDAT *pdat, const void *val)
{
    *GetPtr(pdat) &= *((UINT *)(val));
    *aftertype = vflag;
    return;
}
 
// Or
static void HspVarUInt_OrI(PDAT *pdat, const void *val)
{
    *GetPtr(pdat) |= *((UINT *)(val));
    *aftertype = vflag;
    return;
}
 
// Xor
static void HspVarUInt_XorI(PDAT *pdat, const void *val)
{
    *GetPtr(pdat) ^= *((UINT *)(val));
    *aftertype = vflag;
    return;
}
 
 
// Eq
static void HspVarUInt_EqI(PDAT *pdat, const void *val)
{
    *((UINT *)pdat) = ( *GetPtr(pdat) == *((UINT *)(val)) );
    *aftertype = HSPVAR_FLAG_INT;
    return;
}
 
// Ne
static void HspVarUInt_NeI(PDAT *pdat, const void *val)
{
    *((UINT *)pdat) = ( *GetPtr(pdat) != *((UINT *)(val)) );
    *aftertype = HSPVAR_FLAG_INT;
    return;
}
 
// Gt
static void HspVarUInt_GtI( PDAT *pdat, const void *val)
{
    *((UINT *)pdat) = ( *GetPtr(pdat) > *((UINT *)(val)) );
    *aftertype = HSPVAR_FLAG_INT;
    return;
}
 
// Lt
static void HspVarUInt_LtI(PDAT *pdat, const void *val)
{
    *((UINT *)pdat) = ( *GetPtr(pdat) < *((UINT *)(val)) );
    *aftertype = HSPVAR_FLAG_INT;
    return;
}
 
// GtEq
static void HspVarUInt_GtEqI(PDAT *pdat, const void *val)
{
    *((UINT *)pdat) = ( *GetPtr(pdat) >= *((UINT *)(val)) );
    *aftertype = HSPVAR_FLAG_INT;
    return;
}
 
// LtEq
static void HspVarUInt_LtEqI(PDAT *pdat, const void *val)
{
    *((UINT *)pdat) = ( *GetPtr(pdat) <= *((UINT *)(val)) );
    *aftertype = HSPVAR_FLAG_INT;
    return;
}
 
// Rr
static void HspVarUInt_RrI(PDAT *pdat, const void *val)
{
    *GetPtr(pdat) >>= *((UINT *)(val));
    *aftertype = vflag;
    return;
}
 
// Lr
static void HspVarUInt_LrI(PDAT *pdat, const void *val)
{
    *GetPtr(pdat) <<= *((UINT *)(val));
    *aftertype = vflag;
    return;
}
 
 
static void *GetBlockSize(PVal *pval, PDAT *pdat, int *size)
{
    *size = pval->size - ( ((char *)pdat) - pval->pt );
    return (pdat);
}
 
static void AllocBlock(PVal *pval, PDAT *pdat, int size)
{
    return;
}
 
 
static void HspVarUInt_Init(HspVarProc *p)
{
    vflag           = p->flag;
    aftertype       = &p->aftertype;
 
    p->Set          = HspVarUInt_Set;
    p->Cnv          = HspVarUInt_Cnv;
    p->GetPtr       = HspVarUInt_GetPtr;
    p->CnvCustom    = HspVarUInt_CnvCustom;
    p->GetSize      = HspVarUInt_GetSize;
    p->GetBlockSize = GetBlockSize;
    p->AllocBlock   = AllocBlock;
 
    p->Alloc        = HspVarUInt_Alloc;
    p->Free         = HspVarUInt_Free;
 
    p->AddI         = HspVarUInt_AddI;
    p->SubI         = HspVarUInt_SubI;
    p->MulI         = HspVarUInt_MulI;
    p->DivI         = HspVarUInt_DivI;
    p->ModI         = HspVarUInt_ModI;
 
    p->AndI         = HspVarUInt_AndI;
    p->OrI          = HspVarUInt_OrI;
    p->XorI         = HspVarUInt_XorI;
 
    p->EqI          = HspVarUInt_EqI;
    p->NeI          = HspVarUInt_NeI;
    p->GtI          = HspVarUInt_GtI;
    p->LtI          = HspVarUInt_LtI;
    p->GtEqI        = HspVarUInt_GtEqI;
    p->LtEqI        = HspVarUInt_LtEqI;
 
    p->RrI          = HspVarUInt_RrI;
    p->LrI          = HspVarUInt_LrI;
 
    p->vartype_name = "uint";      // タイプ名
    p->version      = 0x001;         // 型タイプランタイムバージョン(0x100 = 1.0)
    p->support      = HSPVAR_SUPPORT_STORAGE | HSPVAR_SUPPORT_FLEXARRAY;
                    // サポート状況フラグ(HSPVAR_SUPPORT_*)
    p->basesize     = sizeof(UINT);      // １つのデータが使用するサイズ(byte) / 可変長の時は-1
    return;
}
 
static int cmdfunc( int cmd )
{
    // 実行処理 (命令実行時に呼ばれます)
    //
    PVal *pval;
    int p1, p2, p3, p4;
    code_next();            // 次のコードを取得(最初に必ず必要です)
    switch( cmd ) {         // サブコマンドごとの分岐
    case 0x00:              // uidim
        // これで正しいのかよく分からない
        code_getva(&pval);
        p1 = code_getdi(1);
        p2 = code_getdi(0);
        p3 = code_getdi(0);
        p4 = code_getdi(0);
        exinfo->HspFunc_dim(pval, vflag, 0, p1, p2, p3, p4);
        break;
    default:
        puterror( HSPERR_UNSUPPORTED_FUNCTION );
    }
    return RUNMODE_RUN;
}
 
static void *reffunc( int *type_res, int cmd )
{
    // 関数として動作する際の実行処理
    // a = newcmd(0)等
    // または
    // システム変数として動作する際の実行処理
    // a = newcmd等
    void *ref_ptr;
    int chk;
 
    *type_res = vflag;
    ref_ptr   = &ref_uival;
 
    // 関数として処理する場合
    // '(' で始まるかを調べる
    //
    if ( *type != TYPE_MARK ) puterror( HSPERR_INVALID_FUNCPARAM );
    if ( *val != '(' ) puterror( HSPERR_INVALID_FUNCPARAM );
    code_next();
 
    switch(cmd) {
    case 0x01: // uint()
        chk = code_getprm();
        if (chk <= PARAM_END) puterror( HSPERR_INVALID_FUNCPARAM );
        ref_uival = *(UINT*)HspVarUInt_Cnv((void*)mpval->pt, mpval->flag);
        break;
    default:
        puterror( HSPERR_UNSUPPORTED_FUNCTION );
    }
 
    // ')' で終わるかを調べる
    //
    if ( *type != TYPE_MARK ) puterror( HSPERR_INVALID_FUNCPARAM );
    if ( *val != ')' ) puterror( HSPERR_INVALID_FUNCPARAM );
    code_next();
 
    return ref_ptr;
}
 
static int termfunc( int option )
{
    //		終了処理 (アプリケーション終了時に呼ばれます)
    //
//	sbBye(); // バッファマネージャー開放
    return 0;
}
 
EXPORT void WINAPI hsp3_uintinit( HSP3TYPEINFO *info )
{
    //		プラグイン初期化 (実行・終了処理を登録します)
    //
    hsp3sdk_init( info );            // SDKの初期化(最初に行なって下さい)
    HSPVAR_COREFUNC func = HspVarUInt_Init;
    registvar(-1, func);
    sbInit(); // バッファマネージャー初期化
    info->cmdfunc  = cmdfunc;        // 実行関数(cmdfunc)の登録
    info->reffunc  = reffunc;        // 参照関数(reffunc)の登録
    info->termfunc = termfunc;        // 終了関数(termfunc)の登録
    return;
}

↑

サンプル †

[編集]

uint.as

; uint(unsigned int)
#ifndef __uint_as
#const __uint_as
#regcmd "_hsp3_uintinit@4", "uint.dll", 1
#cmd uidim $000
#cmd uint  $001
#endif

本体

#include "uint.as"
 
    uidim ui, 1    ; uint 型を宣言
    ui = uint(-1)  ; 直接代入できないため
    mes str(ui)    ; 直接表示できないため
    stop

↑

コメント †

[編集]

符号なし整数型と符号つき整数型(特に負値)の演算は不具合のように感じられる動作がでまくるからな・・・。
(符号なし整数型だけで起きる問題ではないけれど、符号なし整数型は符号つき整数型とよく似ているので勘違いされて問題が起きやすい。)

#include "uint.as"
 
; 一見やる意味の無い判定のように見えるが( uint 型の値は常に 0 以上)
; 実はやってはいけない判定。(この場合の条件式は真になるように見えてしまうが偽になる。)
a = uint(1)
if a > -1 : mes "a は -1 より大きい"
 
; 記述順序で異なる結果。
; HSP では当たり前の結果なのだが、符号つき整数型と符号なし整数型が異なる型だと理解しきれていないと混乱のもと。
a = -1
b = uint(1)
mes a * b
mes b * a
 
; 記述順序で異なる結果 2。同じ動作のようで異なる動作。
; (1)の条件式は真、(2)の条件式は偽。
if uint(2200000000) > 0 : mes "h1" ; (1)
if 0 < uint(2200000000) : mes "h2" ; (2)

プラグインのソースに不具合は無さそうだけれど HSP の本体仕様のせい(?)で問題(mes に直接渡せないとか)が出ています。 uint_r20060905.zip -- naznyark? 2006-09-06 (水) 01:56:31

あ、修正ありがとうございます。 PukiWiki で添付ファイルは削除した後に(ここはパスワードってかかっていなかったと思います)同名でアップロードし直せば置き換えられるはずですが今回の場合は残しておいたのでしょうか。(どちらにしろ添付ファイルのバックアップから DL できますが...)ところで、 uidim ってマクロの方が効率いいんでしょうかね。一応、 exinfo->HspFunc_dim がありますし、ネイティブな方がいいかなと取り敢えず入れておいたのですが。ぼくはこういう場合、できる限りマクロ使わない派だったりします。どうせプラグイン使っているのでついでにって感じで。ただ、マクロで十分っていえばそれまでなんですけど。 -- Irisawa 2006-09-06 (水) 04:20:50
(signed int における)数値の -1 は実質は 0xffffffff(4294967295) ですからね。これを signed int では -1 と見なすことで負数を表現しているだけで、これを unsigned int に変換した場合は 4294967295 と見なすだけという...。これは結構、ややこしくて難しい概念ですよね。ところで int 型は実際には Win32OS 上では signed long int 型なんですよね。 -- 2006-09-06 (水) 04:37:15

> 今回の場合は残しておいたのでしょうか。
あって邪魔になるものでもないし、個人的には他の人のアップしたファイルを削除するのは抵抗があるので残しておきました。

> uidim ってマクロの方が効率いいんでしょうかね。
未確認ですがマクロで使っている dimtype 命令も中では exinfo->HspFunc_dim と同じものを呼んでいると思うので実質ほとんど差は無いと思います。
私はこんなときぐらいにしか使い道の無い dimtype 命令があえて用意されている意味を尊重してマクロにしてみました。 -- naznyark? 2006-09-07 (木) 02:11:03
- > あって邪魔になるものでもないし、個人的には他の人のアップしたファイルを削除するのは抵抗があるので残しておきました。
  そうですね。あまりファイルが多くなりすぎるとどれがどれだか分かりにくくなるなどの問題はありますが...。あと、ファイルは自由に置き換えていただいてかまいません。そもそも、 Wiki なので意味もなくいたずらなどでファイルの削除等を行わなければ自由です。まあ、それについては書いていなかったので、妥当ですけど。 -- Irisawa 2006-09-07 (木) 15:55:47
- > 私はこんなときぐらいにしか使い道の無い dimtype 命令があえて用意されている意味を尊重してマクロにしてみました。
  ddim(double 型) がマクロですね。感じとしてはついでに exinfo->HspFunc_dim のサンプルにもなるかなと思っていたのですがまあ、マクロの方が簡単ではありますね。 -- Irisawa 2006-09-07 (木) 16:00:51

例えば動作仕様として
( int 型の負数) -> ( uint 型) の変換をエラーにする。
( 2147483648 (0x80000000) 以上の値の uint 型) -> ( int 型) の変換をエラーにする。(あるいは ( 2147483647 (0x7FFFFFFF) ) に丸める。)

という仕様にしてしまえば不具合と勘違いするような動作はしなくなります。
代わりにエラーが出やすくなりますが・・・。
( 2147483648 以上の uint 型の値は double や str 型から変換する。) -- naznyark? 2006-09-07 (木) 02:11:03
実際の所、 uint 型って現状の HSP ではあまり意味がない気もしますけどね。直接変数に代入できない, mes/dialog などの命令のパラメータとして指定できない, デバッグダイアログに内容が表示されないなど HSP の仕様上の問題でワザワザ unsigned int にしている意味がない。どうしても 0x7fffffff(2147483647) 以上の数値を扱いたい場合は表示のみの時は int 型を strf 関数に "%u" を指定して変換すれば uint になりますし...。つまり、これは(現状では)単なるサンプル程度の価値しかないということになります。もう少し HSP 本体が対応してくれれば別の話でしょうけど。 -- 2006-09-07 (木) 16:11:42
>デバッグダイアログに・・・
(余談)配列にしてダイアログの「配列変数」をチェックするとそこでは内容が表示される・・・ -- naznyark? 2006-09-08 (金) 02:03:05
>uint 型って現状の HSP ではあまり意味がない気もしますけどね
たしかにあまり必要になることってないかも。すでにbignum型のプラグインもありますしね。でもサンプルは重要です。 -- 2006-09-11 (月) 08:17:27
実際には、このページを更にサブページ化した方がいいような気もしますが。 short 型も hash 型もまだ着想さえできていませんので誰か代わりに作ってくれると嬉しいかも。 hash 型のようなただのデータ領域と異なる特殊な変数のサンプルがとにかくたくさん欲しいところですね。連想配列はうまくいけば構造体を実現できそうなのですが。 -- Irisawa 2006-10-31 (火) 02:04:48