転ばぬ先のXS入門 / YAPC::Fukuoka 2025

https://polamjag.hatenablog.jp/entry/yapc-fukuoka-2025-slide

Transcript

1. polamjag / Satoru Abe 転ばぬ先のXS⼊⾨ 2025-11-15 #yapcjapan #yapcjapanC YAPC::Fukuoka 2025
2. 突然ですが List::Util::min https://metacpan.org/pod/List::Util#min 2
3. 突然ですが List::Util::min 3 https://github.com/Pe rl/perl5/blob/c7aed9f/ cpan/Scalar-List-Utils/ ListUtil.xs#L270-L319
4. 突然ですが List::Util::min 4 https://github.com/Pe rl/perl5/blob/c7aed9f/ cpan/Scalar-List-Utils/ ListUtil.xs#L270-L319
5. % whoami - id:polamjag《ポラムジャグ》 - 株式会社はてな ノベルチーム - ex-ブログチーム、マンガメディアチーム - TypeScript, Perl, Go ほかいろいろ - 生まれも育ちも大分県 5
7. 緊急 アンケート 7
8. かつてPerlを 読み書きしていた 時期がある？ 8 1
9. ここ1年以内に Perlを 読み書きした？ 9 2
10. XSを読み書き したことがある？ 10 3
11. Perlに限らずRuby, Python, Node.jsなども含めて ネイティブ拡張つき ライブラリのインストールで 苦労したことがある？ 11 4
13. 🍵 13
14. 本セッションでは、普段Perlを読み書きしているがXSにはあ まり触れたことがない方を主な対象に、XSモジュールに対す る心理的なハードルを下げ、リファレンスなどを参照しなが ら既存のライブラリなどの実装を理解したり、トラブル シューティングができるようになることを目指します。ま た、Perlに馴染みがない方にとっても、スクリプト言語にお けるネイティブ拡張の仕組みのケーススタディとして楽しん でいただければと思います。 https://fortee.jp/yapc-fukuoka-2025/proposal/77fc7998-edaf-4e11-9dda-9f5e96cfe8b6 14
15. 本セッションでは、普段Perlを読み書きしているがXSにはあ まり触れたことがない方を主な対象に、XSモジュールに対す る心理的なハードルを下げ、リファレンスなどを参照しなが ら既存のライブラリなどの実装を理解したり、トラブル シューティングができるようになることを目指します。ま た、Perlに馴染みがない方にとっても、スクリプト言語にお けるネイティブ拡張の仕組みのケーススタディとして楽しん でいただければと思います。 https://fortee.jp/yapc-fukuoka-2025/proposal/77fc7998-edaf-4e11-9dda-9f5e96cfe8b6 15
16. 本セッションでは、普段Perlを読み書きしているがXSにはあ まり触れたことがない方を主な対象に、XSモジュールに対す る心理的なハードルを下げ、リファレンスなどを参照しなが ら既存のライブラリなどの実装を理解したり、トラブル シューティングができるようになることを目指します。ま た、Perlに馴染みがない方にとっても、スクリプト言語にお けるネイティブ拡張の仕組みのケーススタディとして楽しん でいただければと思います。 https://fortee.jp/yapc-fukuoka-2025/proposal/77fc7998-edaf-4e11-9dda-9f5e96cfe8b6 16
17. 本セッションでは、普段Perlを読み書きしているがXSにはあ まり触れたことがない方を主な対象に、XSモジュールに対す る心理的なハードルを下げ、リファレンスなどを参照しな がら既存のライブラリなどの実装を理解したり、トラブル シューティングができるようになることを目 指します。ま た、Perlに馴染みがない方にとっても、スクリプト言語にお けるネイティブ拡張の仕組みのケーススタディとして楽しん でいただければと思います。 https://fortee.jp/yapc-fukuoka-2025/proposal/77fc7998-edaf-4e11-9dda-9f5e96cfe8b6 17
18. XSモジュールにまつわるトラブル (俺調べ) 18 ※冗談です
19. XSモジュールにまつわるトラブル (俺調べ) 19
20. XSモジュールのインストールその前に - CPANモジュールインストール under the hood - XS、「ネイティブ拡張」とは - XSモジュールインストール under the hood 20
21. XSモジュールのインストールその前に - CPANモジュールインストール under the hood - XS、「ネイティブ拡張」とは - XSモジュールインストール under the hood 21
22. CPANモジュールをインストールすると き - ビルドツール - Makefile.PL: ExtUtils::MakeMaker - perl Makefile.PL で Makefile が生成される - Build.PL: Module::Build, Module::Build::Tiny - perl Build.PL で Build というファイル名のシェルスク リプトが生成される - オーサリングツール - Minilla, Dist::Zilla, … 22
23. CPANモジュールをインストールすると き - App::cpm のインストール処理を覗いてみると… - fetch, configure, install の三段階 - そのうち configure で Makefile.PL や Build.PL を探して実行 - install で↑ で生成されたものを実行 - https://github.com/skaji/cpm/blob/74e217556acec88fe798 d4935efe7a9c50d19e28/lib/App/cpm/Worker/Installer.pm - static install (ビルドスクリプトの実行なしに、ファイルのコピーのみ のインストール) という概念もある - https://github.com/Perl-Toolchain-Gang/cpan-static 23
24. XSモジュールのインストールその前に - CPANモジュールインストール under the hood ✅ - XS、「ネイティブ拡張」とは - XSモジュールインストール under the hood 24
25. XSモジュールのインストールその前に - CPANモジュールインストール under the hood - XS、「ネイティブ拡張」とは - XSモジュールインストール under the hood 25
26. “XS” is 何 XSはPerlとCのコード (またはCライブラリ) との間の拡張インターフェースを 作るのに使われるインターフェース記述ファイルフォーマットです。 XSインターフェースはライブラリと動的または静的にリンクされて、Perl とリンクすることのできる新しいライブラリを生成します。 XSインターフェース記述はXS言語で書かれており、Perl拡張インター フェースのコアコンポーネントです。 — https://perldoc.jp/docs/perl/5.20.1/perlxs.pod (一部略・強調は引用者による) 26
27. “XS” is 何 XSはPerlとCのコード (またはCライブラリ) との間の拡張インターフェースを 作るのに使われるインターフェース記述ファイルフォーマット です。 XSインターフェースはライブラリと動的または静的にリンクされて、Perl とリンクすることのできる新しいライブラリを生成します。 XSインターフェース記述はXS言語で書かれており、Perl拡張インター フェースのコアコンポーネントです。 — https://perldoc.jp/docs/perl/5.20.1/perlxs.pod (一部略・強調は引用者による) 27
28. 「XS」はプログラミング言語だった! - XS - xsubpp -> C - xsubpp - compiler to convert Perl XS code into C code - https://perldoc.perl.org/xsubpp - “This compiler is typically run by the makefiles created by ExtUtils::MakeMaker or by Module::Build or other Perl module build tools” - ExtUtils::ParseXSに実装がある - https://github.com/Perl/perl5/blob/blead/dist/ExtUtils-ParseXS/lib/ExtUtils /ParseXS.pm - 「大規模なリファクタリングが始まっている」！！ - https://speakerdeck.com/charsbar/2025nian-qiu-noperl?slide=59 28
29. “XS” is 何 XSはPerlとCのコード (またはCライブラリ) との間の拡張インターフェースを 作るのに使われるインターフェース記述ファイルフォーマットです。 XSインターフェースはライブラリと動的または静的にリンクされて、 Perl とリンクすることのできる新しいライブラリを生成します 。 XSインターフェース記述はXS言語で書かれており、Perl拡張インター フェースのコアコンポーネントです。 — https://perldoc.jp/docs/perl/5.20.1/perlxs.pod (一部略・強調は引用者による) 29
30. Perlランタイム Perlプログラム (*.pl, *.pm) 自分が書いたコード CPANモジュール …… 世界観 30
31. Perlランタイム Perlプログラム (*.pl/*.pm) https://github.com/Perl/perl5 31
32. Your C code 共有ライブラリ (*.dll, *.so, *.dylib, …) 静的ライブラリ ビルド時に静的リンク ビルド時に動的リンク or 実行時に動的ロード 32
33. “XS” is 何 XSはPerlとCのコード (またはCライブラリ) との間の拡張インターフェースを 作るのに使われるインターフェース記述ファイルフォーマットです。 XSインターフェースはライブラリと動的または静的にリンクされて、 Perl とリンクすることのできる新しいライブラリを生成します 。 XSインターフェース記述はXS言語で書かれており、Perl拡張インター フェースのコアコンポーネントです。 — https://perldoc.jp/docs/perl/5.20.1/perlxs.pod (一部略・強調は引用者による) 再掲 33
34. Perl ランタイム 共有ライブラリ (*.dll, *.so, *.dylib, …) 静的ライブラリ ビルド時に静的リンク ビルド時に動的リンク or 実行時に動的ロード PerlのXSは静的リンクも可能 (!) だが、Webアプリケーションの開発という文脈においては 動的ロードを想定したXSライブラリの利用がほとんどであるはず…… 😮 34
35. (Web開発でよく出会う) XSモジュールの類型 - 特定処理の最適化 - /デ?シリアライズ/ (e.g. JSON::XS) - テンプレートエンジン (e.g. Text::Xslate) - ネイティブライブラリのラッパー - e.g. DBD::mysql (→ libmysqlclient) - 言語ランタイムの機能拡張的な側面 - e.g. AnyEvent (RubyでいうEventMachine的な存在[要出典]) 35
36. Perlランタイム Perlプログラム (*.pl, *.pm) 共有 ライブラリ (XS由来) 動的ロード 共有 ライブラリ (外部) 動的リンク 「ネイティブライブラリのラッパー」 の典型的なシーン PerlのXSは静的リンクも可能 (!) だが、Webアプリケーションの開発という文脈においては 動的ロードを想定したXSライブラリの利用がほとんどであるはず…… 😮 36
37. Perlランタイム DBD::mysql (のPerl部分) DBD::mysql (のXS由来部分) 動的ロード libmysql- client 動的リンク DBD::mysqlの典型的な利用イメージ DBD::mysqlのXS由来部分から、どうlibmysqlclientをリンクするか話も当然ありまして…… https://metacpan.org/dist/DBD-mysql/view/lib/DBD/mysql/INSTALL.pod 💁 DBD::mysql 37
38. Perlランタイム DBD::mysql (のPerl部分) DBD::mysql (のXS由来部分) libmysql- client https://github.com/perl5-dbi/DBD-mysql /blob/6465c04c62d23ce42b08b90ea336 3630187e1739/dbdimp.h#L22-L24 #include して… 実装チラ見 38
39. Perlランタイム DBD::mysql (のPerl部分) DBD::mysql (のXS由来部分) libmysql- client https://github.com/perl5-dbi/DBD-mysql /blob/6465c04c62d23ce42b08b90ea336 3630187e1739/Makefile.PL#L423-L469 ビルド時の設定 あれこれ 実装チラ見 39
40. Perlランタイム Perlプログラム (*.pl, *.pm) 40
41. Perlランタイム Perlプログラム (*.pl, *.pm) イラスト出典: いらすとや 手のひらで踊らされる人のイラスト（男性） https://www.irasutoya.com/2018/03/blog-post_850.html ランタイムの手のひらの上 41
42. Perlランタイム Perlプログラム (*.pl, *.pm) XS 42
43. Perlランタイム Perlプログラム (*.pl, *.pm) XS イラスト出典: いらすとや 相撲の取組のイラスト https://www.irasutoya.com/2017/04/blog-post_51.html 相撲の土俵のイラスト（斜め） https://www.irasutoya.com/2017/06/blog-post_605.html ランタイムと同じ土俵に立つ 43
44. 「ネイティブ拡張」？ - perlxstut - Tutorial for writing XSUBs (Perl) https://perldoc.perl.org/perlxstut - “a Perl extension” - Gems with Extensions (RubyGems) https://guides.rubygems.org/gems-with-extensions/ - “Many gems use extensions to wrap libraries …” - Extending Python with C or C++ (Python) https://docs.python.org/3/extending/extending.html - “extension modules” - C++ addons (Node.js) https://nodejs.org/api/addons.html - “Addons are dynamically-linked shared objects written in C++” 44
45. 「ネイティブ拡張」？ - perlxstut - Tutorial for writing XSUBs (Perl) https://perldoc.perl.org/perlxstut - “a Perl extension” - Gems with Extensions (RubyGems) https://guides.rubygems.org/gems-with-extensions/ - “Many gems use extensions to wrap libraries …” - Extending Python with C or C++ (Python) https://docs.python.org/3/extending/extending.html - “extension modules” - C++ addons (Node.js) https://nodejs.org/api/addons.html - “Addons are dynamically-linked shared objects written in C++” 45
46. 「ネイティブ拡張」？ - 単に “extension” や “addon” くらいが一般的なのかも - このトークでは、ネイティブコードの呼び出しを伴うこ とを強調するために「ネイティブ拡張」と呼ぶことにし ます - (そこまで気にしなくても、たいてい通じるでしょう…) 46
47. 余談 47
48. XSモジュールのインストールその前に - CPANモジュールインストール under the hood ✅ - XS、「ネイティブ拡張」とは ✅ - XSモジュールインストール under the hood 48
49. XSモジュールのインストールその前に - CPANモジュールインストール under the hood - XS、「ネイティブ拡張」とは - XSモジュールインストール under the hood 49
50. こういうことやりませんでしたか $ cpanm -L local DBD::mysql \ --configure-args="--cflags='$(pkg-config --cflags mysqlclient)' \ --libs='$(pkg-config --libs mysqlclient)'" $ CFLAGS="-I$(brew --prefix openssl)/include" LDFLAGS="-L$(brew --prefix openssl)/lib" carton install 50
51. Perlランタイム Perlプログラム (*.pl, *.pm) 共有 ライブラリ 動的ロード 共有 ライブラリ 動的リンク 「ネイティブライブラリのラッパー」 的なシーン 51 再掲
52. Perlランタイム Perlプログラム (*.pl, *.pm) 共有 ライブラリ 動的ロード 共有 ライブラリ 動的リンク 「ネイティブライブラリのラッパー」 的なシーン どれを？ どれを？ 🤔 52
53. Perlランタイム Perlプログラム (*.pl, *.pm) 共有 ライブラリ 動的ロード 共有 ライブラリ 動的リンク 「ネイティブライブラリのラッパー」 的なシーン CPAN モジュールの 単位 53
54. Perlランタイム Perlプログラム (*.pl, *.pm) 共有 ライブラリ 動的ロード 共有 ライブラリ 「ネイティブライブラリのラッパー」 的なシーン XSから生成される共有ライブラリと、 OSのどこかにあるライブラリとの間の関係 動的リンク 54
55. こういうことやりませんでしたか $ cpanm -L local DBD::mysql \ --configure-args="--cflags='$(pkg-config --cflags mysqlclient)' \ --libs='$(pkg-config --libs mysqlclient)'" $ CFLAGS="-I$(brew --prefix openssl)/include" LDFLAGS="-L$(brew --prefix openssl)/lib" carton install XSから生成される共有ライブラリを ビルドするにあたり、 OSのどこにあるライブラリと 紐づけるかの指定 55
56. 大変 - ツール・ライブラリごとに指定方法が違う - 環境変数、コマンドラインオプション、… - Makefile.PL、Build.PL は普通のPerlスクリプトなの で、なんでもできるという側面 56
57. Perlランタイム DBD::mysql (のPerl部分) DBD::mysql (のXS由来部分) mysql_configコマンドを 呼び出したり 環境変数やオプションで指 定できたり (写ってない) DBD::mysqlの Makefile.PL再び 57 https://github.com/perl5-dbi/DBD-mysql/ blob/6465c04c62d23ce42b08b90ea33636 30187e1739/Makefile.PL#L423-L469
58. こういう苦労話 - 最近は以前ほど見なくなった…かも？ - コンパイル済みバイナリ込みでの配布が一般化 - Dockerエコシステムの普及 - いわゆる手元環境も、Dev ContainersやDocker Composeなどで一元管理するのが一般化したことで、 環境の差異に由来する困りごとは減ってそう 58
59. ところで - Perlのモジュールをpacman -Sできるように するためのガイドがArchWikiにあり、これが 一番まとまっていてわかりやすいかも - Perl パッケージガイドライン - ArchWiki 59
60. https://gitlab.archlinux.org/arch linux/packaging/packages/perl-d bd-mysql/-/blob/main/PKGBUILD ?ref_type=heads 60
61. XSモジュールのインストールその前に - CPANモジュールインストール under the hood ✅ - XS、「ネイティブ拡張」とは ✅ - XSモジュールインストール under the hood ✅ 61
62. XSモジュールにまつわるトラブル (俺調べ) 62
63. XSモジュールにまつわるトラブル (俺調べ) 63
64. perldocの歩き方 - perlxs, perlapi など perl*** みたいな名前の ドキュメントがたくさん - C APIもしっかりドキュメントがある - 例: perlguts (Perl APIの導入) を読むには… - https://perldoc.perl.org/perlguts - https://perldoc.jp/docs/perl/perlguts.pod - $ perldoc perlguts 64
65. https://perldoc.jp/index/core#:~:text=perl%20%E7 %94%A8%E8%AA%9E%E9%9B%86-,%E5%86%85%E 9%83%A8%E3%81%A8C%E8%A8%80%E8%AA%9E %E3%81%AE%E3%82%A4%E3%83%B3%E3%82%BF %E3%83%BC%E3%83%95%E3%82%A7%E3%83%BC %E3%82%B9,-perlembed%20%2D%20C%20%E3%83 %97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83 %A0 65
66. というわけで 66
67. 実践! XS コードリー ディング 67
68. お品書き - Cpanel::JSON::XS - https://github.com/rurban/Cpanel-JSON-XS - DBD::mysql - https://github.com/perl5-dbi/DBD-mysql - Inline::Ruby - https://github.com/shlomif/Inline-Ruby 68
69. Cpanel::JSON::XS use Cpanel::JSON::XS qw(encode_json decode_json); my $encoded = encode_json( { foo => 1, bar => [2, 3] } ); my $parsed = decode_json('{"foo":1,"bar":[2,3]}'); 69
70. encode_json で grep すると関数定義が2個 どっちが本物？ 70
71. “キーワード MODULE は XS コードの始まりと、定義する関数のパッケージ を指定するのに使われます。 キーワード MODULE よりも前にあるテキスト はCプログラムとして扱われ、 POD が除去されますが、それ以外は何の変更 も加えられずに出力されます” https://perldoc.jp/docs/perl/5.8.8/perlxs.pod#The32MODULE32Keyword 71
73. 引数 ALIAS: 関数の別名指定 「XSUB」 73
74. XSUB - perldoc.jp/docs/perl/perlxs.pod - “XSUB は XS インターフェースの基本単位を形成し ます。xsubpp コンパイラによるコンパイル後、 それ ぞれの XSUB は Perl 呼び出し規則と C 呼び出し規則 の間の糊を提供する C 関数定義となります” - XSUB1個 = Perl上での関数定義1個 74
75. PPCODE: 実装部分 (引数・返り値のスタック操作アリ) 75
76. PUTBACK 〜 SPAGAIN Perlランタイムのスタックの退避〜復帰 XPUSHs(SV* sv) svをスタックにプッシュ ここではscalarが XSUBの返り値となる 76
77. SV - see perlguts - SV: Scalar Value - とる値: “整数 (IV)、符号なし整数 (UV)、 倍精度 (NV)、文字列 (PV)、その他のスカラ (SV)” - ほか AV (Array Value), HV (Hash Value), RV (Reference Value), … 77
78. https://speakerdeck.com/hatena/remote-internship-2023-perl SVのなかでも… 文字列 = PV 整数 = IV リファレンス = RV 78
79. 配列 = AV https://speakerdeck.com/hatena/remote-internship-2023-perl 79
80. ハッシュ = HV https://speakerdeck.com/hatena/remote-internship-2023-perl 80
81. スタックの管理 - Perlにおける関数の引数・戻り値のスタック の管理が必要 - 引数をスタックから取得 - 戻り値をスタックに積む - … - スタックの管理 = スタックポインタの操作 81
82. スタックの管理 - perldocの各所に説明がある - https://perldoc.perl.org/perlinterp#STACKS - https://perldoc.perl.org/perlguts#XSUBs-and-t he-Argument-Stack - ほか perlsub, perlfunc, perlcall 82
83. スタックの管理 - PUTBACK 〜 SPAGAIN - PUTBACK: XSUB内でのローカル変数なスタックポイ ンタの内容を、Perlランタイムのそれ (PL_stack_sp) に書き込み - SPAGAIN: ↑の逆 (Perlランタイム → XSUB内のローカ ル変数スタックポインタ) 83
84. PUSHMARK(SP) - PUTBACK間で 引数をスタックに PUSHs call_sv: Perlの関数呼び出し PUSHsされている物体が引数になる。 ここではmethod変数がサブルーチン リファレンス (see L1766) Perl上の関数呼出しの例 84
85. XSの関数定義 (XSUB) じゃな かった方の関数を呼び出し。 実処理はこっち 85
86. "コンテクストポインタ" を 受け取るマクロ mortalフラグのセット スコープを抜ける際に参照カウンタを デクリメント SvPVX: PV (文字列) へのポインタ SvEND: PV (文字列) の終端位置への ポインタ XSの関数定義 (XSUB) じゃなかった方の encode_jsonも見る 86
87. SvPOK_only: “SV に対し、その SV が文字列であり、 他の OK ビットをすべてディセーブルにするように指 示します。また、UTF-8 ステータスをオフにします” (perlapi) aTHx_: コンテキストポインタを 「渡す」マクロ SVの 文字数セット SVのUTF-8フラグを立てる encode_svがSV一つを エンコードする処理 87
88. encode_sv() - シリアライズ本丸的な関数 - https://github.com/rurban/Cpanel-JSON-XS/bl ob/2c3ad61969205b9a85749ea55e1af81f422e 96f7/XS.xs#L1940-L2729 - 789行 (!) - ざっくり: 型ごとに場合分けしてエンコード 88
89. ここまでの雑感 - xsubppにより前処理される部分と、PerlのC APIの部分と、各ライブラリの実装とが渾然一 体となっている - Perlランタイムを正常に動かすための変数の操作も、 xsubppやCマクロで隠蔽されている部分が多い - APIの命名に規則性はあったりもするが、全部を覚え るのは大変 89
90. ビルドしてみよう 90
91. xsubpp before/after 91
92. 92 xsubppを 直実行もできるぞ！
93. objdumpしてみよう 93
94. DBD::mysql - “MySQL driver for the Perl5 Database Interface (DBI)” - DBI: Database Interface - DBD: Database Driver - DBD::mysql の他には DBD::Pg, DBD::SQLite など - DBD::** implements DBI 的な関係 94
95. DBD::mysql - https://metacpan.org/pod/DBI::DBD に ドライバーの書き方ドキュメントがある - めっちゃ長い！ - まず https://metacpan.org/pod/DBI を読め、という のが最初に書かれている 95
96. ざっくり - DBI曰く、XSでドライバーを書くときは… - SELECT した結果を取得するために、dbdimp.c に dbd_st_fetch() 関数を実装してね、という世界観 - INSERT などのために、dbd_st_execute() を以下 略 96
97. https://github.com/perl5-dbi/DBD-mysql/blob/64 65c04c62d23ce42b08b90ea3363630187e1739/d bdimp.c#L2956-L3083 97 dbd_st_execute
98. https://github.com/perl5-dbi/DBD-mysql/blob/64 65c04c62d23ce42b08b90ea3363630187e1739/d bdimp.c#L2956-L3083 コンテクスト変数を 取得できるようにするマクロ DBIの初期化処理 sth がハッシュリファレ ンスかどうかチェック https://perldoc.perl.org /perlguts#References 98
99. sth (statement handler) に紐づくキャッシュのクリア Nullav (AVのヌルポインタ) の代入と、 SvREFCNT_dec でのリファレンスカウ ントの減算 hv_fetch: ハッシュの値取得 ここでは “Statement” がキーのものを 取得している 99
100. サーバサイドでのプリペアド ステートメント処理時の分岐 内部ではmysql_stmt_execute() (MySQL C API) を実行 100
101. mysql_send_query() asyncクエリ有効なら mysql_real_query() (MySQL C API) mysql_insert_id(): insertしたauto incrementの カラムの値取得 101
103. Inline::Ruby 103
104. Inline::Ruby - ネタモジュールと思うなかれ - 実装はガチ 104
105. https://metacpan.org/dist/Inlin e-Ruby/view/lib/Inline/Ruby.pod #Low-Level-Inline::Ruby 105
106. 上に PREFIX = my_ 指定があるので これが rb_eval 関数の定義になる (see perlxs) PREINIT: typemap 機能に影響されずに 変数宣言をするセクション 106
107. rb_rescue2, rb_str_new2 は Ruby の C API rb2pl() が本丸っぽさ 107
108. VALUE型 = Rubyオブジェクト newSViv = IV (integer) から SV を生 成 newSVnv = NV (double型) から SV newSVpvn = PV (char *) とその長さか ら SV https://docs.ruby-lang.org/en/ master/extension_rdoc.html rb2pl (!!) 108
109. rb_ary_entry でRubyの配列 から値を取り出し、その要素を 再帰的に rb2pl し、av_push で Perlの配列に追加 newRV_noinc() で AV (retval) からリファレンス を取得 _noinc はリファレンスカ ウントを増加させない版 API newAVで AV (Array Value) を 作成 newHVで HV (Hash Value) を 作成 109
110. ハッシュのキーだけの配列を 作り… rb_hash_arefでハッシュ の中身取得 キーがStringでなければ .to_s hv_storeでPerlのハッシュ に格納 110
111. typemap - see perlxstypemap - Cレベルの型 ←→ Perlのデータ型の変換機構 - char * を簡単にPVにしたい、みたいなことができる - xsubppで処理されるので、それが嬉しくないという ときは実装を PPCODE: セクションに書く…というの がCpanel::JSON::XSで出てきていた 111
112. XSモジュールにまつわるトラブル (俺調べ) 112 ✔
113. XSモジュールにまつわるトラブル (俺調べ) 113 ✗
114. イラスト出典: いらすとや 氷山の一角のイラスト https://www.irasutoya.com/2016/08/blog-post_175.html
115. 改めて List::Util::min https://github.com/P erl/perl5/blob/c7aed 9f/cpan/Scalar-List-U tils/ListUtil.xs#L270- L319 115
116. 改めて List::Util::min slu_sv_value: SVからUVかIVの値を 取り出すマクロ 116
117. 改めて List::Util::min 117
118. 改めて List::Util::min active magic = 演算子オーバーロード amagic_call(SV *left, SV *right, int method, int dir) 118 ix: ALIASごとのインデックス これを使ってmax/minを一つの XSUBで実装している
119. 🍵 119
120. XS 別解 - FFI - ex. https://metacpan.org/pod/FFI::Platypus - 別バイナリ化 + プロセス間通信 - WASM - XSと比べるとオーバーヘッドがあったり、ラ ンタイムの機能拡張は難しかったり 120
122. AI? - XSの既存実装調査は、AI丸投げでもそこそこうま くいく - Perlのソースコードで定義されているはずのこれ何？みたい な質問でも、特別コンテキストを与えずともパッと答えてく れがち - とはいえ、概略的なところからエコシステムまで薄 く広い知識を持っておけるとスムーズ (それはそ う) 122
123. まとめ - CPANモジュール、XSモジュールを取り巻く エコシステムについておさらいした - XS言語のコンセプトや基本的な構文から、 APIのあらましについて入門した - SV/AV/HV、スタック操作、参照カウント、… - Perlランタイムのソースコードに入門 (?) した 123
124. ここはYet Another Perl Conference - 今日紹介したモジュールのauthorや contributorの方がこの会場にたくさんい らっしゃるはず！！！！！！ - 懇親しましょう！！！！！！ 124
125. XSを書きたい人向け おすすめ参考文献 - Minillaを使ったモダンなCPANモジュール開発（1） https://gihyo.jp/dev/serial/01/perl-hackers-hub/005001 - https://metacpan.org/pod/Minilla - C による Perl 拡張入門 https://xsubtut.github.io/ - XS基礎文法最速マスター https://gfx.hatenadiary.org/entry/20100202/1265091606 125
126. (おまけ) 超私的・大分観光案内 - JR九州の割引きっぷがある (九州ネットきっぷ 他) - 別府の市営温泉に入ろう (“別府 市営温泉” で検索) - 別府で冷麺を食べよう (“別府冷麺” で検索”) - 焼鳥、アジ、ヒラメを食べよう - やまなみハイウェイをドライブしよう - ホバークラフトに乗ってみて感想教えてくだ さい (乗ったことない…) 126
128. hatena.co.jp/recruit 128 128