現状、本稿ははげしくかきかけです。フィードバックをおまちしております。
Perl で C の拡張がスラスラと書けたら……。C の拡張がスラスラ書けたら、ネイティブのバインディングもスラスラ書けるし、ホットスポットを C で最適化するなんてこともお手の物。書けたらいいけど、XS ってなんかむずかしそう……。
ちがうんです! 今までの XS の教え方がまちがっていたんです!この教材をつかえば、誰でも簡単に今すぐに XS を書けるようになるんです。Perl の C 拡張を書いて同僚や上司を アッー! と言わせちゃおう!
この教材では XS のややこしい機能をつかわずに、Perl の C 拡張を書く方法を伝授!初心者でもすぐに C 拡張が書けるようになるぞ!
本稿では一般的な C の知識および Perl の知識を読者がもっていることを想定しています。XS の知識や Perl の内部構造に関する知識はもっていない前提ですので、万が一そういったものが要求されている!! と感じた場合には、github issues などで教えてください。
Perl の世界では、XS という言語をつかって C 拡張を記述します。これは基本的には C にたいするマクロ言語です。正規表現でがんばって置換しているだけなので、あまりかしこくはありません。かなりいろいろな機能があるのですが、いろいろできすぎて初心者にやさしくないので、本稿では、ごくごくシンプルな記法のみを紹介します。
XS は本当にいろいろできて便利なのですが、いざこったことをやろうとすると、基本的な方法にもどらざるをえない、というようなことも多発しますので、本稿ではただひたすらに基本的な方法を紹介しつづけます。
Perl の内部データは構造体におさまっています。そのあたりを把握していきましょう。
Perl のすべての値は SV から派生しています。SV は Scalar Value のことです。
継承関係にあるものは親にキャストが可能です。たとえば、AV* は SV* にキャストできます。
(画像は illguts より)
AV is-a SV の関係です。配列データがはいっています。SV にキャストしてつかうことができます。
HV is-a SV の関係です。ハッシュです。SV にキャストしてつかうことができます。
RV is-a SV の関係です。Reference Value の略です。
SV の中には整数値や文字列値などが格納できます。文字列値と整数値は同時に両方もつことができる、というのが Perl5 のかわっているところです。
SV has-a IV の関係です。SV 構造体の中に IV が格納されている、とおもってください。整数値がはいっています。
IV iv = SvIV(sv);
とすることで、SV* を IV に変換できます。
SV* sv = newSViv(iv);
とすることで、IV を SV* に変換できます。
SV has-a UV の関係です。UV は unsigned value のことです。符号なし整数値ですね。 普段はあまり意識してつかうこともないかとおもいます。
SV has-a NV の関係です。SV 構造体の中に NV が格納されている、とおもってください。浮動小数点値がはいっています。
SV の中に PV(Pointer Value) が格納されています。 Pointer Value というのはつまり文字列のことです。
char *str = SvPV_nolen(sv);
とすることで、文字列をとりだすことができます。
Perl5 におけるメモリの管理はリファレンスカウントという方式でおこなわれています。これはつまり、変数ごとに「この変数は○箇所から参照されているョ」というマークをつけておき、どこからも参照されなくなったらその部分のメモリを再利用するというだけの仕組みです。
リファレンスカウンタ方式のメモリ管理では、このリファレンスカウンターの操作を、拡張モジュールの作者が気をつけておこなわなければなりません。
一方で、メモリの増減などが予測しやすい、デバッグがしやすいというメリットもあります。
各 Perl API の、どのタイミングでリファレンスカウントが増減するのかを把握することが、拡張モジュールを書く上での第一歩だといえます。
参照カウントで一番問題になるのは、今自分がもっている参照カウントをどうやって手放すか、ということです。 今てばなしたら0になってしまってSVが開放されてしまうし、手放さなければメモリリーク。どうしたものか!
ということで、Perl5 の世界では「このスコープをぬけたらこれ開放しておいてね!」と Perl5 本体にいっておくことができるようになっています。この「あとで開放しておいてね!」といっておくことを「mortal 状態にする」といいます。
コードで、SV を mortal にするには、sv_2mortal(sv) とします。sv_2mortal の返り値は、引数にわたした SV* です。
sv_2mortal は、やたらめったらつかうところが多いので、XS の世界にはさまざまなショートカットが用意されています。たとえば XPUSHs(sv_2mortal(sv)) を mXPUSHs(sv) などという風に省略して書けるのです。これは便利なのですが、おぼえることがふえてしまうので本稿ではこういった省略記法はふれないです。
(なお、iPhone/OSX のアプリケーションを開発していらっしゃる方なら autorelease みたいなものだと考えればわかりやすいです! っていうと最近はよかったのですが、最近は autorelease って時代遅れなかんじがするのでこの比喩ももはやつかえません。)
前提知識の羅列が続く文章ほどダルいものもないので、実際のコードを見たい、とおもっている方も多かろう。まずは、もっともシンプルなケースを見ていこう。以下は、標準出力に "Hello, world!" という文字列を表示するだけの簡単なコードだ。
今回のコードはすべてgithub で見ることができる。
以下が今回よむ XS コードの全貌である。XS で書かれたコードはなんとも珍妙な見た目をしているが、慣れてしまえばどうということはない。美人は三日で飽きるがブスは三日で慣れるというではないか。
#define PERL_NO_GET_CONTEXT
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "ppport.h"
MODULE = Hello PACKAGE = Hello
void
hello(...)
PPCODE:
{
PerlIO_printf(PerlIO_stdout(), "Hello, world!\n");
XSRETURN(0);
}
まず最初に、引数の受取および返り値の返却においては、スタック構造がつかわれていることを意識してください。引数をスタックにつんだ状態で XS の関数(XSUB)はコールされます。返却値はスタックにつんでから return します。これを常に意識しながらすすむことが肝要です。
#define PERL_NO_GET_CONTEXT
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
の部分はヘッダファイルをよみこんでいるだけなので問題ないかとおもいます。PERL_NO_GET_CONTEXT は、指定すると効率がよくなる場合があるマクロなので、なんとなく指定しておけばよい。
MODULE = Hello PACKAGE = Hello
ここは、モジュールとパッケージの指定だ。一つのファイルに複数個書くことができる。この宣言以下の部分は、PACKAGE= で指定したパッケージにひもづくこととなる。
void
hello(...)
PPCODE:
ここは、もうなんというか、そういうものだとおもってください!! ってかんじである。値を返そうが返すまいがとりあえず void を指定し、引数は可変長かのように指定し、PPCODE: という修飾子を指定することにより、おぼえることをすごくへらすことができるんです! そういうものなんです! なお、hello の部分が関数名となることはいうまでもない。
さていよいよ本文だ。PerlIO_printf() は printf 関数を XSUB の世界からコールするときにつかう API です。PerlIO を通しておこなってくれるのがポイントです。PerlIO_stdout() は *STDOUT に対して処理をおこなうよ、という意味ですね。あとの引数は通常の printf(1) とおなじです。
XSRETURN(0) では返り値の数を指定しています。今回は一個も返り値はないので XSRETURN(0) としています。
XS モジュールは XSLoader というモジュールをつかってロードする。DynaLoader というモジュールでロードしてもよいのだが、原状では XSLoader をつかう方が主流なので、こちらをつかっておけば間違いはない。
使い方は簡単で、以下のようにすればよい。
package Hello;
our $VERSION="0.01";
require XSLoader;
XSLoader::load(__PACKAGE__, $VERSION);
これはもうテンプレだとおもってつかっていればよい。
なお、Minilla のようなスケルトンジェネレータをつかえば、このあたりのコードは自動生成されるので、通常は意識する必要はない。
Hello, world の例では引数の処理や値を返す処理がなかった。説明を簡略化するためにはぶいたのだが、実際のところ、引数もなく値もかえさない XS など通常は意味がないだろう。
そういうわけで、そういった処理をする XS を書いてみよう。
MODULE = Sum PACKAGE = Sum
void
sum(...)
PPCODE:
{
if (items != 2) {
croak("Invalid argument count: %d", items);
}
SV *a = ST(0);
SV *b = ST(1);
IV ret = SvIV(a) + SvIV(b);
XPUSHs(sv_2mortal(newSViv(ret)));
XSRETURN(1);
}
前回よりぐっと本格的になっている。
if (items != 2) {
croak("Invalid argument count: %d", items);
}
ここで、引数の個数をチェックしている。items は引数の数をあらわす変数で、XS の中の人が勝手に用意してくれる変数のうちのひとつだ。せっかく用意してもらったのでありがたく使わせていただく。croak は Perl の Carp::croak とおなじように、ただ死ぬという関数である。Perl の Carp::croak とちがって、printf 的機能も内蔵しているのがちょっとちがうところなので注意。
SV *a = ST(0);
SV *b = ST(1);
ST(n) はスタックにつまれた値のうち、n番目のものをとりだすというマクロ。これもどうということはない。ただ第一引数と第二引数をとりだして変数にいれただけだ。
IV ret = SvIV(a) + SvIV(b);
SvIV(SV*) は SV 構造体の中にはいっている IV (整数値)をとりだすマクロだ。さて、ここで注意が必要なのが、Perl の世界では文字列と整数がなんとなく自動的に変換されるということだ。そう。この SvIV で、SV の中身が文字列だった場合も IV (整数値)に変換されるのだ。そういうわけなので Sum::sum("5963", "4649") のような呼出の場合でも問題なく処理はおこなわれる。
加算自体は普通の C レベルの加算となっていて、その結果を IV に保存している。IV は int ととかそういうものが typedef されたものだ(Configure script の設定によって IV のビット幅は変更されることに注意せよ)。
さて、計算がおわったので、いよいよ値を返却しよう。
XPUSHs(sv_2mortal(newSViv(ret)));
ここは3つもマクロ/関数がいりまじっていてちょっとだけややこしい。まずは内側から見ていこう。newSViv(IV) で、該当の IV をもった SV を生成している。IV は C の世界での整数型なので、そのまま Perl の世界にもどすことはできないのだ。Perl の世界であつかえるのはただ SV 型のみであることを思いだしていただきたい。
sv_2mortal(SV*) は、SV 構造体の SVs_TEMP フラッグをたてる君です。このフラッグがたっているとどうなるかというと、スコープをぬけたタイミングで、参照カウンタを1へらしてくれます。これはつまり、Objective-C でいうところの autorelease みたいなものだとおもってください。
XSRETURN(1);
最後に XSRETURN(1) として、返り値の数を報告したらすべての作業は完了となる。
GIMME_V という値を参照することで、Perl における wantarray と同等のことができます。
MODULE = Gimme PACKAGE = Gimme
void
gimme(...)
PPCODE:
{
if (GIMME_V == G_ARRAY) {
XPUSHs(sv_2mortal(newSViv(1)));
XPUSHs(sv_2mortal(newSViv(2)));
XPUSHs(sv_2mortal(newSViv(3)));
XSRETURN(3);
} else if (GIMME_V == G_VOID) {
XSRETURN(0);
} else if (GIMME_V == G_SCALAR) {
XPUSHs(sv_2mortal(newSViv(5963)));
XSRETURN(1);
} else {
abort();
}
}
GIMME_V は G_ARRAY, G_VOID, G_SCALAR のうちいずれかを取ります。
use Gimme;
say join(",", Gimme::gimme());
say scalar(Gimme::gimme());
という風にすれば、
1,2,3
5963
という風に、コンテキストによりちがう値を返せていることがわかります。
たとえば以下のような「点」をあつかうライブラリがあったとしましょう。
typedef struct {
int x;
int y;
} Point;
Point* Point_new(int x, int y) {
Point *p = malloc(sizeof(Point));
p->x = x;
p->y = y;
return p;
}
void Point_free(Point* point) {
free(point);
}
このとき、XS のコードは以下のように書けます。
#define XS_STATE(type, x) (INT2PTR(type, SvROK(x) ? SvIV(SvRV(x)) : SvIV(x)))
#define XS_STRUCT2OBJ(sv, class, obj) \
sv = newSViv(PTR2IV(obj)); \
sv = newRV_noinc(sv); \
sv_bless(sv, gv_stashpv(class, 1)); \
SvREADONLY_on(sv);
MODULE = Point PACKAGE = Point
void
new(...)
PPCODE:
{
if (items != 3) {
croak("Bad argument count: %d", items);
}
const char *klass = SvPV_nolen(ST(0));
IV x = SvIV(ST(1));
IV y = SvIV(ST(2));
Point *point = Point_new(x, y);
SV *sv;
XS_STRUCT2OBJ(sv, klass, point);
XPUSHs(sv_2mortal(sv));
XSRETURN(1);
}
void
x(...)
PPCODE:
{
if (items != 1) {
croak("Bad argument count: %d", items);
}
Point* point = XS_STATE(Point*, ST(0));
XPUSHs(sv_2mortal(newSViv(point->x)));
XSRETURN(1);
}
void
y(...)
PPCODE:
{
if (items != 1) {
croak("Bad argument count: %d", items);
}
Point* point = XS_STATE(Point*, ST(0));
XPUSHs(sv_2mortal(newSViv(point->y)));
XSRETURN(1);
}
void
DESTROY(...)
PPCODE:
{
if (items != 1) {
croak("Bad argument count: %d", items);
}
Point* point = XS_STATE(Point*, ST(0));
Point_free(point);
XSRETURN(0);
}
以外とかわっている点はすくないですね。
const char *klass = SvPV_nolen(ST(0));
SvPV_nolen(SV*) は、SV から char* つまり PV をとりだすという指令です。
そして、本題は XS_STRUCT2OBJ と XS_STATE の2つのマクロですね。どうみても。 それではこの2つをよんでいきましょう。
#define XS_STRUCT2OBJ(sv, class, obj) \
sv = newSViv(PTR2IV(obj)); \
sv = newRV_noinc(sv); \
sv_bless(sv, gv_stashpv(class, 1)); \
SvREADONLY_on(sv);
4行もある! ややこしいですね。こんなのみてられないので、マクロを展開しながら考えてみましょう。
Point *point = Point_new(x, y);
SV *sv = newSViv(PTR2IV(point));
sv = newRV_noinc(sv);
sv_bless(sv, gv_stashpv(klass, 1));
SvREADONLY_on(sv);
XPUSHs(sv_2mortal(sv));
XSRETURN(1);
はい。わかりやすくなりました! よね?
ではあらためて一行ずつよんでいきましょう。
Point *point = Point_new(x, y);
C の API をよんで、ポインタをえました。
SV *sv = newSViv(PTR2IV(point));
ポインタを IV PTR2IV(void*) のマクロで、IV 型に変換します。そして SV* newSViv(IV) で SV 型に変換。
sv = newRV_noinc(sv);
これで、リファレンスにしています。ここまでで、\do { my $ptr = 0xdeadfhbeef } ってやったときの状態になっているわけですね。
sv_bless(sv, gv_stashpv(klass, 1));
さらに、ここから bless します。bless \do { my $ptr = 0xdeadfhbeef }, "Point" とした状態になったわけです。gv_stashpv というのは stash ってやつをとりだす関数です。あまり深くかんがえなくていいです。
以下のようにして動作確認ができます。
use Point;
my $p = Point->new(5,9);
say $p->x; # => 5
say $p->y; # => 9
以下に基本的な Perl API について説明します。ベーシックな操作は網羅しているつもりですが、「これがあったほうがいいのでは?」という意見があれば github issues にておしらせください。
高速化のためにつかえるものや、2つの関数の組み合わせで可能な処理などについてはここには記述していません。
use Devel::Peek;
Dump($sv);
みたいなのを XS の世界ではどうやるのでしょうか?
sv_dump(sv)
SV の中身をダンプして出力します。Devel::Peek::Dump とおなじです。 デバッグ時にはやたらとつかいます。
SV* sv = newSViv(5963);
簡単ですね。
SV* sv = newSVuv(5963);
簡単ですね。
SV* sv = newSVpvn("hello", strlen("hello"));
簡単ですね。
ここで、newSVpv という API もあるのですが、これは文字列の長さに 0 をあたえると strlen がよばれるという余計なお世話的機能がついていて、バグの元になりやすいので、newSVpvn をつかうようにするのがオススメです。
SV* new_sv = newSVsv(sv);
SVをコピーして新しいSVを作ります。XSの世界ではPerlの世界とちがって代入や配列への保存時にコピーが発生しないので、必要なときにきちんとコピーをしないとバグのもとになります。たとえば、XSUBの引数をオブジェクトに保存するときはnewSVsvなどでコピーすべきです。
bool b = SvTRUE(sv);
SvTRUE でわかります。
SV* sv = newSVpvf("%d", 3);
newSVpvf でできます。
SvREFCNT_inc(sv);
SV のリファレンスカウントをインクリメントします。
SvREFCNT_dec(sv);
SV のリファレンスカウントをインクリメントします。
IV iv = SvIV(sv);
SV 構造体から IV をとりだします。IV がふくまれていない SV だった場合には、自動的に変換がはしります。
NV nv = SvNV(sv);
SV 構造体から IV をとりだします。IV がふくまれていない SV だった場合には、自動的に変換がはしります。
char* ptr = SvPV_nolen(SV* sv);
SV から文字列をとりだします。
文字列長さも必要なときは SvPV() をつかえばいいのですが、
STRLEN len;
char* ptr = SvPV(sv, len);
これは曲者。SV から文字列をとりだしつつ、長さの情報もえます。マクロでやってるので奇妙なかんじになってしまっている。 len のところにしれっと長さ情報がかきこまれます。
I32 is_utf8 = SvUTF8(sv);
文字列が UTF-8 フラッグをもっているかは SvUTF8() でしらべられます。
if (SvROK(ref)) {
SV *sv = SvRV(ref);
sv_dump(sv);
}
SvRV で、リファレンスの先をとりだすことができます。
ここで注意すべきは、SvRV をする前には SvROK でデリファレンス可能かどうかをチェックしておく必要があるってコト。 リファレンスじゃないものを SvRV すると一発で SEGV なので注意して!SvROK をよばないで
bless $ref, 'Class';
みたいなのをやるにはどうしたらいいのでしょうか。
ref = sv_bless(ref, gv_stash_pv("Class::Name", 1));
とすればいいです。ここで ref はリファレンスがはいった SV* で、Class::Name はクラス名です。
if (sv_isobject(sv) && sv_derived_from(sv, class)) { ... }
あるオブジェクトがあるクラスからの派生であるかを見るには、sv_derived_from をつかいます。 sv_isobject で先に、そもそもオブジェクトなのかは確認しておきましょう。
SV* sv = newSViv(PTR2IV(ptr));
としてください。逆向きにやるには
void* ptr = INT2PTR(SvIV(sv));
とします。
my @av;
みたいなのをやるにはどうしたらいいのでしょうか。
AV* av = newAV();
配列をつくります。できあがった変数のリファレンスカウントはもちろん1です。
I32 len = av_len(av) + 1;
歴史的事情により、1ひいた値がかえってくるので注意。自分で1をたしてあげましょう。
push @a, $sv;
みたいなのをやるにはどうしたらいいのでしょうか。
av_push(av, newSVsv(sv));
配列に要素を push します。
av_push にかぎらず、配列やハッシュに保存するAPIはSVのコピーを行いませんので自分でコピーします。パフォーマンスのためにコピーを省略したい場合は、SvREFCNT_inc でリファレンスカウントを増やしてください。
$sv = pop @a;
みたいなのをやるにはどうしたらいいのでしょうか。
SV* sv = av_pop(av);
av_pop で配列の要素を pop します。空の配列だったときには &PL_sv_undef がかえってきます。
$sv = shift @av;
みたいなのをやるにはどうしたらいいのでしょうか。
SV* sv = av_shift(av);
配列の要素を shift します。Perl で shift @a するのとおなじです。
unshift @av, $sv;
みたいなのをやるにはどうしたらいいのでしょうか。
av_unshift(av, newSVsv(sv));
av_push と同じく、SVのコピーを作って入れます。
my $key = 59;
my $sv = $av[$key];
みたいなのをやるにはどうしたらいいのでしょうか。
I32 key = 59;
SV **ssv = av_fetch(av, key, 0)
if (!ssv) { croak("av[59] is null"); }
SV * sv = *sv;
av_fetch をつかいましょう。SV** がかえってくるので、NULL かどうかを確認するのをわすれずに。
my $key = 59;
$av[$key] = $sv;
みたいなのをやるにはどうしたらいいのでしょうか。
I32 key = 59;
sv_setsv(*av_fetch(av, key, TRUE), sv);
av_store を使うこともできますが、av_storeには癖があるのでav_fetchの第三引数lvalueをtrueにし、それに対してsv_setsvで代入するのがよいです。代入したい値がIVやNVなら、sv_setsvのかわりにsv_setivやsv_setnvを使ってもかまいません。
使い方がややこしいので av_push や av_unshift ですませられるときは、そちらをつかっといた方が楽です。
my %hash;
新しい Hash をつくるには newHV() をよびます。
HV* = newHV();
この HV の参照カウントは1です。
$hv{key} = $sv;
は以下のようにかけます。
hv_store(hv, "key", strlen("key"), sv, 0);
最後の 0 の部分は、ハッシュ値を自分で計算している場合にわたせるよ、という意味なのですが、通常は0をわたすとおぼえておいて問題ないです。
my $sv = $hv{key};
は以下のようにかけます。
SV **ssv = hv_fetch(hv, "key", strlen("key"), 0);
if (ssv) {
SV*sv = *ssv;
}
最後の 0 は、lvalue としてつかえる値をかえすかどうか、です。通常は0を指定してください。
exists $hv{key};
は以下のようにかけます。
bool ok = hv_exists(hv, key, strlen(key));
簡単ですね。
delete $hv{key};
は以下のようにかけます。
hv_delete(hv, key, strlen(key), 0);
SV* ref = newRV_noinc(sv);
リファレンスをつくります。
$Package::Name::Var をとりだしたいSV * sv = get_sv("Package::Name::Var", GV_ADD);
$Package::Variable みたいなグローバル変数をとりだします。
第二引数には GV_ADD をわたせばなかったときには作成されます。0 をわたしたら、なかったときには NULL がかえります。 通常は GV_ADD わたしとく使い方がメインだとおもいます。
@Package::Name::Var をとりだしたいAV* av = get_av("Package::Name::Var", GV_ADD);
@Package::Variable みたいなグローバル変数をとりだします。
flags には GV_ADD をわたせばなかったときには作成されます。0 をわたしたら、なかったときには NULL がかえります。
本稿に書かれている範囲よりもさらに深く知りたいという方は以下のようなページを見てください。
XS のチュートリアルドキュメントです。
XS のリファレンスドキュメントです。本ドキュメントではだいぶはしょってる部分があるので、他のライブラリでのつかいかたを知るためにはこれを読む必要があるかもしれません。
Perl の外部向け API が網羅されています。
Perl の内部のことが解説されてます。
C標準ライブラリを使用する際の、注意点(主に代替すべき API)について記載されています。
Perl の内部構造を画像まじりで解説してくれるページです。
本編では触れなかった、ニッチというかエッジというか、そういう話題についてふれます。
Visual Studio では C99 がサポートされていないので、C99 スタイルで書いてあるモジュールを CPAN にあげていると、バグレポートがくるので注意が必要です。
対応策は以下の3つのうちのいずれかです。
XS モジュールを Windows でうごくようにがんばっても、そもそも OS の問題や Perl の Windows 対応の問題などで問題がおきて面倒なことになるだけだったりするので、Visual Studio のときは Makefile.PL で N/A にしてしまってもよいかな、と最近は考えています(重要なモジュールはのぞく)。
XS のモジュールにはだいたい ppport.h というファイルがふくまれている。これはいったいなんなのだろうか。
これは Devel::PPPort というモジュールが生成するヘッダだ。Perl5 に API が新規に追加された際に ppport.h が、互換性の問題を吸収してくれる。
Minilla をつかっていれば、ppport.h は自動的によみこまれるので通常は気にする必要はないのだが、そういうモノなのだ、ということだけ認識しておくとよいと思う。
なお、ppport.h は以下のコマンドで再生成できる。
perl -MDevel::PPPort -e 'Devel::PPPort::WriteFile()'
Minilla で XS を書くには
minli new -p XS My::XS::Module
とすれば、それっぽいスケルトンができあがります。
typemap というファイルが XS モジュールのドキュメントにはいっていることがあります。これは XS の機能のひとつで、引数や返り値の型の変換を typemap という DSL で書くことにより自動的に行ってしまおう、という野心的なやつです。
初心者の人はとくに知る必要はないのですが、おおきなライブラリをつくるときには知りたくなるかもしれません。
具体的には perldoc perlxs をみてください。
本稿は、いかがでしたでしょうか。XS を「書く」ことについての基本的な知識はついたのではないかとおもいます。
XS でいろいろかいて CPAN にジャンジャンとアップしましょう。
質問、ご要望は github issues にてうけつけていますので、お気軽にどうぞ。
tokuhirom