XSをまったく使ったことが無かったので試してみることにした。XSUBをPerlに組込むわけではないので、xsubppで出力した結果(XSUB)を見ながらにやにやするにとどまる。 まずは、MODULE、PACKAGE、PROTOTYPE、INPUT、PREINIT、CODEから。今回は引数スタックをPPしないので、ただのCODE。以下に試したXSを示す。 hoge.xs MODULE = HOGE PACKAGE = HOGE char * hoge_hello (num) PROTOTYPE:$ INPUT: int num; PREINIT: int i; static char *no = "no"; static char *ok = "ok"; CODE: if (num < 0) { RETVAL = no; } else {