匿名ラベル

匿名ラベル

他の言語の匿名関数のようにラベルオブジェクトを生成するマクロ。 button命令なんかに渡すラベルをいちいち書くのが面倒なときなどに便利。

CommonLispっぽくバッククオート記号に割り当てました。

改良求みます。

#define global ` %tquote *%i : if 0 : *%o

サンプル

#define ` %tquote *%i : if 0 : *%o

button gosub "test",  `{
        dialog "TEST"
        
        return
}

入れ子のサンプル

#define ` %tquote *%i : if 0 : *%o

button gosub "test",  `{
        dialog "TEST1"

        gosub `{
                dialog "TEST2"

                return
        }
        
        return
}