|
26
|
1 ---
|
|
|
2 marp: true
|
|
|
3 title: GearsOSのメタ計算
|
|
|
4 paginate: true
|
|
|
5 ---
|
|
|
6
|
|
|
7
|
|
116
|
8 # GearsOSのメタ計算
|
|
26
|
9
|
|
|
10 - 清水 隆博
|
|
116
|
11 - 琉球大学理工学研究科
|
|
26
|
12 - 198584B
|
|
|
13 - 河野研
|
|
|
14
|
|
116
|
15 ---
|
|
|
16 # 研究発表の構成
|
|
|
17 - 研究目的
|
|
|
18 - CbC、GearsOSの基礎概念
|
|
123
|
19 - GearsOSの新機能
|
|
116
|
20 - 本研究での新たなGearsOSのシステムの解説
|
|
|
21 - GearsOSのInterfaceシステムの改善
|
|
123
|
22 - Perlトランスパイラの改善
|
|
116
|
23
|
|
26
|
24
|
|
|
25 ---
|
|
|
26
|
|
|
27 # 研究目的
|
|
|
28
|
|
123
|
29 - OSとアプリケーションの信頼性の保証したい
|
|
26
|
30 - OSそのものも巨大なプログラム
|
|
123
|
31 - プログラムの信頼性の保証にはテストが使われる
|
|
|
32 - 並列並行処理などのバグや、そもそもOSを構成する処理が巨大
|
|
26
|
33 - テストコードで信頼性を保証しきれない
|
|
116
|
34 - 形式手法を用いてテストに頼らず信頼性を保証したい
|
|
123
|
35 - 既存のソースコードに形式手法を導入できるフレームワークを構築したい
|
|
26
|
36
|
|
|
37 ---
|
|
|
38
|
|
|
39 # ノーマルレベルとメタレベルを用いた信頼性の向上
|
|
|
40
|
|
|
41 - プログラムの実行部分は以下の2つからなる
|
|
|
42 - 入力と出力の関係を決める計算(ノーマルレベル)
|
|
|
43 - プログラムを実行したり、 信頼性を保証するために必要な計算(メタレベル)
|
|
|
44 - メタレベルの例
|
|
|
45 - メモリやCPUの資源管理
|
|
|
46 - システムコールの動作(副作用)
|
|
|
47 - 並行実行(他のプロセスとの干渉)
|
|
|
48 - モデル検査(可能な実行を列挙する方式の実行)
|
|
|
49 - 証明(入力時と出力時の論理的な条件)、(invariant)
|
|
|
50 - メタレベルの計算として信頼性を保証する
|
|
|
51
|
|
|
52 ---
|
|
116
|
53 # メタレベルの計算とGearsOS
|
|
|
54 - ノーマルレベル、メタレベルを一貫して記述できる言語CbCを用いてGearsOSを開発している
|
|
123
|
55 - CbCを使うとメタレベルの処理を分離して書ける
|
|
|
56 - メタレベルの処理を全部手で書くのは面倒
|
|
|
57 - メタレベルの処理を自動生成してくれるフレームワークを導入したい
|
|
|
58 - フレームワークに乗って実装すると等価なCbCに変換される
|
|
|
59 - CbCレベルではメタレベルの処理とノーマルレベルの処理が見れる
|
|
|
60 - メタ計算を自分で定義できるようにしたい
|
|
124
|
61 - 実装のコードをほとんど変えずにモデル検査を導入できるようにしたい
|
|
116
|
62
|
|
|
63 ---
|
|
123
|
64 # GearsOSのメタ計算フレームワーク
|
|
125
|
65 - GearsOSはPerlを中心としたメタコード生成のフレームワークが構築されている
|
|
123
|
66 - 計算に必要なデータの入出力のメタ計算を主に生成していた
|
|
125
|
67 - メタレベルの処理は従来のものは手動で作る方が多かった
|
|
123
|
68 - 計算で使うすべてのデータ構造の管理
|
|
|
69 - 別のInterfaceの出力を受けるメタレベルのデータ管理など
|
|
|
70 - Perlでメタレベルに変換された後で気づくエラーも多い
|
|
|
71 - 変換する前の時点でコード自体は間違えている
|
|
|
72 - 変換されてしまった後なのでコードを見比べないと原因が不明
|
|
26
|
73
|
|
|
74 ---
|
|
125
|
75 # GearsOSのメタ計算フレームワークとInterface
|
|
|
76 - CbCには無いモジュール化の仕組みとしてInterfaceがある
|
|
|
77 - Perlフレームワーク上に構築
|
|
|
78 - コンパイル時に等価な純粋なCbCに変換する
|
|
123
|
79 - Interfaceの機能が他の言語のInterfaceの機能とギャップがあった
|
|
125
|
80 - 実装していないAPIがあっても、変換前の時点でエラーが出ないなど
|
|
123
|
81 - Interfaceの定義ファイルもあるものと無いものがあった
|
|
|
82 - トランスパイラで統一な処理が出来ない
|
|
26
|
83
|
|
|
84 ---
|
|
123
|
85 # Perlを中心としたフレームワークによるメタ計算の生成
|
|
|
86 - GearsOSの例題を作製する場合も、コピペや手書きが多発していた
|
|
|
87 - フレームワークに実装したAPIを使って自動生成に変更したい
|
|
|
88 - Interfaceの機能充実も、 メタ計算の生成もCbCで行うのは難しい
|
|
|
89 - Perlを中心としたフレームワークを活用したい
|
|
|
90 - コード変換(トランスパイル)を行うために必要な環境の整備もする必要がある
|
|
125
|
91 - Perlを中心としたトランスパイルシステムの整備、拡張を行った
|
|
123
|
92 - GearsOSのメタ計算の生成がより柔軟かつ高い信頼性で可能となった
|
|
116
|
93
|
|
|
94 ---
|
|
|
95 # GearsOSの基礎概念
|
|
|
96 - CodeGear、DataGear
|
|
|
97 - Interface
|
|
|
98 - GearsOSのビルドシステム
|
|
|
99 - cmake
|
|
|
100 - Perlトランスパイラ
|
|
|
101
|
|
|
102 ---
|
|
26
|
103 # CbCとCodeGear(ノーマルレベル)
|
|
|
104 - 軽量継続で表現する単位をCodeGearと呼ぶ
|
|
|
105 - CodeGearはCの関数とアセンブラの中間の様に使える
|
|
|
106 - CodeGearは返り値の型の代わりに`__code`で宣言する
|
|
|
107
|
|
125
|
108 ```c
|
|
|
109 __code insertTest2(struct StackTestImpl3* stackTest, struct Stack* stack, __code next(...)) {
|
|
|
110 String* str = &ALLOCATE(context, String)->String;
|
|
|
111 str->size = 100;
|
|
|
112 goto stack->push((union Data*)str, pop2Test);
|
|
|
113 }
|
|
|
114 ```
|
|
|
115
|
|
26
|
116
|
|
|
117 ---
|
|
116
|
118 # DataGear
|
|
|
119 - GearsOSで扱うデータの単位
|
|
|
120 - Cの構造体の形でメタレベルでは表現される
|
|
|
121 - GearsOS自体の処理にかかわるMetaDataGearが存在する
|
|
|
122 - Context(プロセス)
|
|
|
123 - TaskManager
|
|
|
124 - Worker
|
|
|
125 - ...
|
|
|
126 - DataGearの定義ではInterfaceシステムが使用できる
|
|
26
|
127
|
|
|
128 ---
|
|
117
|
129 # Context(1)
|
|
|
130 - 従来のOSのプロセスに相当する機能(MetaDataGear)
|
|
|
131 - GearsOSでcontextを触るのはメタ計算部分だけ
|
|
|
132 - ノーマルレベルではcontextに降れない
|
|
|
133 - 従来は手書きでヘッダファイルの中に定義
|
|
|
134 - context.h
|
|
|
135 - Context自体は構造体で定義されている
|
|
|
136 - Contextの要素にDataGearの型がすべてはいった共用体がある
|
|
|
137 - context.hで同様に定義
|
|
|
138 ---
|
|
|
139 # Context(2)
|
|
|
140 - GearsOSでのプログラム実行に必要な情報を持っている
|
|
|
141 - DataGearの型定義
|
|
|
142 - CodeGearの名前とStubCodeGearへの対応
|
|
119
|
143 - goto時に引数を書き込むDataGearごとの場所
|
|
117
|
144 - DataGearを管理するヒープ情報
|
|
|
145 
|
|
|
146
|
|
|
147
|
|
|
148 ---
|
|
116
|
149 # Interface
|
|
|
150 - GearsOSのモジュール化の仕組み
|
|
|
151 - Interface はある Data Gear と、それに対する操作(API)を行う Code Gear とその操作に用いる Data Gear の集合を表現する。
|
|
|
152 - JavaのInteface、Haskellの型クラスに相当する
|
|
123
|
153 - ContextにInterfaceの引数の保存場所がある
|
|
|
154 - goto時にStubCodeGearでデータをとってくる
|
|
125
|
155 - `goto interfaceName->method()`のようにAPIを呼び出す
|
|
|
156 - Perlトランスパイラが`goto meta()`に書き直す
|
|
|
157 - `goto meta`はcontextから引数を取り出すMetaCodeGearに継続させるもの
|
|
26
|
158
|
|
116
|
159 ---
|
|
119
|
160 # GearsOSのビルドシステム
|
|
123
|
161 - CMakeとPerlを使ってビルドする
|
|
119
|
162 - CMakeはMakefileやbuild.ninjaを生成する
|
|
123
|
163 - Perlは2種類のスクリプトが自動的に呼ばれる
|
|
|
164 - Perlでエラーを出すとCMakeがビルドを止める
|
|
|
165 - 従来はエラーを出していなかったので怪しいコードを生成しても止まらない
|
|
120
|
166 
|
|
119
|
167
|
|
|
168 ---
|
|
|
169 # GearsOSのビルドシステム
|
|
121
|
170 - generate_stub.pl
|
|
125
|
171 - GearsOSで拡張したCbCを1行ずつ読む
|
|
|
172 - 純粋なCbCに変形したものを生成する
|
|
120
|
173 - CbCコンパイラがコンパイルする前にコードを変換する
|
|
|
174 - ユーザーが書いたGearsOSのソースコードにメタ情報をつける
|
|
125
|
175 - コードからコードを生成する、トランスパイラ
|
|
121
|
176 - generate\_context.pl
|
|
|
177 - Contextに関係するファイルを生成する
|
|
|
178 - Contextの初期化ルーチン
|
|
|
179 - CodeGear/DataGearの番号(enum)
|
|
120
|
180 - 変換したプロジェクトで使うすべてのCbCファイルを入力で受け取る
|
|
|
181 - すべてのCbCファイルを読み込み、使用しているCodeGearなどの情報を取得
|
|
119
|
182
|
|
117
|
183
|
|
|
184
|
|
|
185 ---
|
|
125
|
186 # 主なGearsOSに導入された新機能
|
|
|
187 - Interfaceシステムの強化
|
|
|
188 - 手書きからの解放
|
|
|
189 - MetaCodeGearの入れ替え機能の追加
|
|
121
|
190
|
|
|
191 ---
|
|
125
|
192 # Interfaceシステムの強化
|
|
121
|
193 - Interface構文の簡素化
|
|
|
194 - より簡潔に明確に記述できるように定義した。
|
|
|
195 - Interfaceの実装の型の導入
|
|
|
196 - GearsOSでの型定義の方法に一貫性が生まれた
|
|
|
197 - Interfaceの引数の確認
|
|
|
198 - Interfaceで未定義のAPIの検知
|
|
|
199 - InterfaceにないAPIの呼び出しの検知
|
|
|
200 - コード変換前にPerlレベルでエラーを発生させた
|
|
|
201 ---
|
|
125
|
202 # 手書きからの解放
|
|
121
|
203 - Interfaceの雛形ファイルの作製スクリプトの導入
|
|
|
204 - 別のInterfaceからの出力を取得するStubの自動生成
|
|
|
205 - 実装のCodeGear名からメタ情報の切り離し
|
|
|
206 - メタな型情報はビルド時に付与される
|
|
|
207 - DataGearの型集合ファイルであるcontext.hの自動生成
|
|
|
208 - GearsOSの初期化ルーチンの自動生成
|
|
|
209
|
|
|
210 ---
|
|
123
|
211 # GearsOSの新機能
|
|
|
212 - **自由なMetaCodeGearの作製、継続の入れ替え機能**
|
|
121
|
213 - Perlトランスパイラの変換ルーチンのデバッグ機能の追加
|
|
|
214 - ジェネリクスのサポート
|
|
|
215
|
|
|
216
|
|
123
|
217 ---
|
|
|
218 # Interfaceの改良
|
|
|
219 - 従来のInterfaceにまつわるPerlのフレームワークを改良した
|
|
|
220 - CbCの変換後のコードでなく、Perlレベルでエラー検知可能になった
|
|
117
|
221
|
|
|
222 ---
|
|
|
223 # Interfaceの定義構文の改良
|
|
|
224 - 従来は引数とCodeGearの定義を別けて記述していた
|
|
|
225 - Interfaceの宣言なので、書ける変数は引数/出力のもののみ
|
|
|
226 - Javaのクラス変数やインスタンス変数のようなものだと思われてしまった
|
|
|
227 - GearsOSに慣れてない
|
|
|
228 - シンタックスが問題
|
|
|
229 - シンタックスをgolangやJavaのInterfaceを参考に簡潔なものにした
|
|
|
230
|
|
123
|
231
|
|
117
|
232 ---
|
|
|
233 # 従来のInterface
|
|
124
|
234 - 引数の組とAPI(CodeGear)は別けて記述する必要があった
|
|
|
235 ```c
|
|
|
236 typedef struct Stack<Type, Impl>{
|
|
|
237 union Data* stack;
|
|
|
238 union Data* data;
|
|
|
239 union Data* data1;
|
|
117
|
240
|
|
124
|
241
|
|
|
242 __code whenEmpty(...);
|
|
|
243 __code clear(Impl* stack,__code next(...));
|
|
|
244 __code push(Impl* stack,Type* data, __code next(...));
|
|
|
245 __code pop(Impl* stack, __code next(Type* data, ...));
|
|
|
246 __code pop2(Impl* stack, __code next(Type* data, Type* data1, ...));
|
|
|
247 __code isEmpty(Impl* stack, __code next(...), __code whenEmpty(...));
|
|
|
248 __code get(Impl* stack, __code next(Type* data, ...));
|
|
|
249 __code get2(Impl* stack, __code next(Type* data, Type* data1, ...));
|
|
|
250 __code next(...);
|
|
|
251 } Stack;
|
|
|
252 ```
|
|
|
253
|
|
|
254 ---
|
|
117
|
255 # 定義し直したInterface構文
|
|
124
|
256 - APIのみを記述すれば良くなった
|
|
|
257 ```c
|
|
|
258 typedef struct Stack<>{
|
|
|
259 __code whenEmpty(...);
|
|
|
260 __code clear(Impl* stack,__code next(...));
|
|
|
261 __code push(Impl* stack,Type* data, __code next(...));
|
|
|
262 __code pop(Impl* stack, __code next(Type* data, ...));
|
|
|
263 __code pop2(Impl* stack, __code next(Type* data, Type* data1, ...));
|
|
|
264 __code isEmpty(Impl* stack, __code next(...), __code whenEmpty(...));
|
|
|
265 __code get(Impl* stack, __code next(Type* data, ...));
|
|
|
266 __code get2(Impl* stack, __code next(Type* data, Type* data1, ...));
|
|
|
267 __code next(...);
|
|
|
268 } Stack;
|
|
|
269 ```
|
|
117
|
270
|
|
|
271 ---
|
|
|
272 # Implementの型定義ファイルの導入
|
|
124
|
273 - Interfaceは型定義ファイルがあったが、実装側はなかった
|
|
|
274 - context.h上にメタな構造体に直した実装の型を手で書いていた
|
|
117
|
275 - これはメタ情報なので手で書きたくない
|
|
|
276 - 型定義の一貫性がない
|
|
124
|
277 - 実装側にも型定義ファイルを導入して一貫性を持たせたい
|
|
|
278 - Perlトランスパイラフレームワークで利用可能
|
|
117
|
279
|
|
|
280 ---
|
|
|
281 # Implementの型定義
|
|
|
282 - 基本はInterfaceと同じシンタックス
|
|
|
283 - どのInterfaceを実装しているかを`Impl`の後ろに書く
|
|
|
284 - Implの場合はフィールド変数を定義できる
|
|
|
285 - `実装名.h`の命名規則 (`PhilsImp.h` )
|
|
|
286 ```c
|
|
|
287 typedef struct PhilsImpl <> impl Phils {
|
|
|
288 int self;
|
|
|
289 struct AtomicT_int* Leftfork;
|
|
|
290 struct AtomicT_int* Rightfork;
|
|
|
291 __code next(...);
|
|
|
292 } PhilsImpl;
|
|
|
293 ```
|
|
123
|
294 ---
|
|
125
|
295 # Interfaceの実装時の型名の省略
|
|
|
296 - 従来は型名を必ず書かなければならなかった
|
|
|
297 - これはメタ情報なので変換時に書き換える
|
|
|
298 ### 従来
|
|
123
|
299
|
|
|
300 ```c
|
|
125
|
301 __code pickup_lforkPhilsImpl(struct PhilsImpl* phils, __code next(...)) {
|
|
|
302 struct AtomicT_int* left_fork = phils->Leftfork;
|
|
|
303 goto left_fork->checkAndSet(-1, phils->self, pickup_rforkPhilsImpl, eatingPhilsImpl);
|
|
|
304
|
|
|
305 }
|
|
|
306 ```
|
|
|
307 ### 現在
|
|
|
308
|
|
|
309 ```c
|
|
|
310 __code pickup_lfork(struct PhilsImpl* phils, __code next(...)) {
|
|
|
311 struct AtomicT_int* left_fork = phils->Leftfork;
|
|
|
312 goto left_fork->checkAndSet(-1, phils->self, pickup_rfork, eating);
|
|
|
313
|
|
123
|
314 }
|
|
|
315 ```
|
|
|
316
|
|
125
|
317 ---
|
|
|
318 ### トランスパイル前
|
|
123
|
319 ```c
|
|
125
|
320 __code pickup_lfork(struct PhilsImpl* phils, __code next(...)) {
|
|
|
321 struct AtomicT_int* left_fork = phils->Leftfork;
|
|
|
322 goto left_fork->checkAndSet(-1, phils->self, pickup_rfork, eating);
|
|
|
323
|
|
|
324 }
|
|
|
325 ```
|
|
|
326 ### トランスパイル後
|
|
|
327 ```c
|
|
|
328 __code pickup_lforkPhilsImpl(struct Context *context,struct PhilsImpl* phils, enum Code next) {
|
|
|
329 struct AtomicT_int* left_fork = phils->Leftfork;
|
|
|
330 Gearef(context, AtomicT_int)->atomicT_int = (union Data*) left_fork;
|
|
|
331 Gearef(context, AtomicT_int)->oldData = -1;
|
|
|
332 Gearef(context, AtomicT_int)->newData = phils->self;
|
|
|
333 Gearef(context, AtomicT_int)->next = C_pickup_rforkPhilsImpl;
|
|
|
334 Gearef(context, AtomicT_int)->fail = C_eatingPhilsImpl;
|
|
|
335 goto meta(context, left_fork->checkAndSet);
|
|
|
336
|
|
|
337 }
|
|
123
|
338 ```
|
|
125
|
339 ---
|
|
|
340 # Interfaceのパーサーの導入
|
|
|
341 - PerlでのInterfaceの情報の取得は、CbC自体のファイルの解析処理と共通だった
|
|
|
342 - Interfaceならではの情報が取れない
|
|
|
343 - スクリプトに直接書かれているので他のツールが使えない
|
|
|
344 - モジュール化したInterfaceのパーサーを導入した
|
|
|
345 - Perlフレームワークを使う一連のツールの作製が可能になった
|
|
|
346 - InterfaceとImplを見た実装の雛形ファイルの作製ツール
|
|
|
347 - コード変換時にInterfaceのAPIに関連するチェック機能
|
|
|
348
|
|
|
349
|
|
|
350 ---
|
|
|
351 # Interfaceの実装の雛形生成コマンドの実装
|
|
|
352 - Interfaceと実装する型が決まると、最低限書かないといけないCodeGearが決まる
|
|
|
353 - 従来は手作業でCbCファイルにCodeGearの定義を書いて実装していた
|
|
|
354 - コンストラクタも手書き
|
|
|
355 - JavaはIDEで、golangはコマンドとして雛形を生成するものを用意している
|
|
|
356 - GearsOSでも導入した
|
|
|
357 - 実装の型ファイルを引数で渡すと雛形を生成する
|
|
|
358 ```shell
|
|
|
359 $perl too/impl2cbc.pl SingleLinkedStack.h
|
|
|
360 ```
|
|
|
361
|
|
|
362 ---
|
|
|
363 # 生成された雛形cbcの一部
|
|
|
364 - 各CodeGearに実装したい内容をすぐに書き始めることが可能になった
|
|
|
365 - 自動生成されるのでエラーの発生も抑えられる
|
|
|
366
|
|
|
367 ```c
|
|
|
368 #include "../../../context.h"
|
|
|
369 #interface "Stack.h"
|
|
|
370
|
|
|
371 Stack* createSingleLinkedStack(struct Context* context) {
|
|
|
372 struct Stack* stack = new Stack();
|
|
|
373 struct SingleLinkedStack* single_linked_stack = new SingleLinkedStack();
|
|
|
374 stack->stack = (union Data*)single_linked_stack;
|
|
|
375 ...
|
|
|
376 stack->pop2 = C_pop2SingleLinkedStack;
|
|
|
377 stack->get2 = C_get2SingleLinkedStack;
|
|
|
378 return stack;
|
|
|
379 }
|
|
|
380 ...
|
|
|
381
|
|
|
382 __code push(struct SingleLinkedStack* stack,union Data* data, __code next(...)) {
|
|
|
383
|
|
|
384 goto next(...);
|
|
|
385 }
|
|
|
386 ```
|
|
|
387
|
|
|
388 ---
|
|
|
389 # PerlトランスパイラでのInterfaceのエラー生成
|
|
|
390 - Interfaceの実装時に様々なミスをする可能性がある
|
|
|
391 - APIを完全に実装していない
|
|
|
392 - 呼び出しの引数を間違えている
|
|
|
393 - 無いAPIを呼び出している
|
|
|
394 - 従来は変換した後CbCコンパイラがコンパイルする際や、実行時にしかエラーが出なかった
|
|
|
395 - どの記述でエラーが出たのかの特定が困難
|
|
|
396 - CbCコンパイラがコンパイルする前にトランスパイラで検知したい
|
|
127
|
397
|
|
|
398 ---
|
|
|
399 # 実装をし忘れているAPIがあった場合のエラー終了
|
|
|
400 - PerlトランスパイラでのInterfaceのエラー生成
|
|
|
401 - CbCコンパイラが動く前にエラーを検知
|
|
125
|
402
|
|
127
|
403 ```
|
|
|
404 [ 33%] Generating c/examples/DPP2/PhilsImpl.c
|
|
|
405 [ERROR] Not define eating at examples/DPP2/PhilsImpl.cbc
|
|
|
406 make[3]: *** [CMakeFiles/DPP2.dir/build.make:101: c/examples/DPP2/PhilsImpl.c] Error 25
|
|
|
407 make[2]: *** [CMakeFiles/Makefile2:442: CMakeFiles/DPP2.dir/all] Error 2
|
|
|
408 make[1]: *** [CMakeFiles/Makefile2:450: CMakeFiles/DPP2.dir/rule] Error 2
|
|
|
409 make: *** [Makefile:293: DPP2] Error 2
|
|
|
410 ```
|
|
123
|
411
|
|
|
412 ---
|
|
|
413 # Context定義ファイルの自動生成
|
|
|
414 - ContextはすべてのDataGearの型情報をunion Dataとして持つ必要がある
|
|
|
415 - すべてのDataGearの定義をunion Dataの定義内に書く
|
|
|
416 - これは今まで手書きで作製していた
|
|
|
417 - Interfaceの型定義ファイルを導入したので、自動生成が可能になった
|
|
124
|
418 - ビルド時に使用しているDataGearを回収し、 context.hを作製する
|
|
123
|
419 ```c
|
|
|
420 union Data {
|
|
|
421 struct Stack {
|
|
|
422 ...
|
|
|
423 } Stack;
|
|
|
424 struct SingleLinkedStack {
|
|
|
425 ...
|
|
|
426 } SingleLinkedStack;
|
|
|
427 }
|
|
|
428 ```
|
|
125
|
429 ---
|
|
|
430 # StubCodeGear
|
|
|
431 - 実行したいCodeGearの直前に実行されるMetaCodeGear
|
|
|
432 - contextからDataGearを取り出す操作をする
|
|
|
433 - すべてのノーマルレベルのCodeGearに付随する
|
|
|
434 - Perlトランスパイラでビルド時に自動生成
|
|
|
435 
|
|
|
436
|
|
|
437 ---
|
|
|
438 ## 別のInterfaceの出力を受けるCodeGearのメタ計算部分の自動生成
|
|
|
439 - Stackから`data`と`data1`を受け取ろうとする例
|
|
|
440 - 意図した通りに動かない
|
|
|
441
|
|
|
442 ```c
|
|
|
443 __code pop2Test(struct StackTestImpl3* stackTest, struct Stack* stack, __code next(...)) {
|
|
|
444 goto stack->pop2(pop2Test1);
|
|
|
445 }
|
|
|
446
|
|
|
447
|
|
|
448 __code pop2Test1(struct StackTestImpl3* stackTest, union Data* data, union Data* data1, struct Stack* stack, __code next(...)) {
|
|
|
449 String* str = (String*)data;
|
|
|
450 String* str2 = (String*)data1;
|
|
|
451
|
|
|
452 printf("%d\n", str->size);
|
|
|
453 printf("%d\n", str2->size);
|
|
|
454 goto next(...);
|
|
|
455 }
|
|
|
456 ```
|
|
123
|
457
|
|
124
|
458 ---
|
|
125
|
459 ## 別のInterfaceの出力を受けるCodeGearのメタ計算部分の自動生成
|
|
|
460 - Interfaceの継続に別のInterfaceを渡すと値の受け渡しが上手くいかない
|
|
|
461 - StubCodeGearがおかしい
|
|
|
462
|
|
|
463 ```c
|
|
|
464 __code pop2Test1StackTestImpl3_stub(struct Context* context) {
|
|
|
465 StackTestImpl3* stackTest = (StackTestImpl3*)GearImpl(context, StackTest, stackTest);
|
|
|
466 Data* data = Gearef(context, StackTest)->data;
|
|
|
467 Data* data1 = Gearef(context, StackTest)->data1;
|
|
|
468 Stack* stack = Gearef(context, StackTest)->stack;
|
|
|
469 enum Code next = Gearef(context, StackTest)->next;
|
|
|
470 goto pop2Test1StackTestImpl3(context, stackTest, data, data1, stack, next);
|
|
|
471 }
|
|
|
472 ```
|
|
|
473
|
|
124
|
474
|
|
|
475 ---
|
|
125
|
476 - メタ計算部分で取得するcontextの場所が異なっているのが問題
|
|
|
477 - 取得する場所を手書きする必要があった
|
|
|
478
|
|
|
479 
|
|
|
480
|
|
|
481 ---
|
|
|
482 ## 別のInterfaceの出力を受けるCodeGearのメタ計算部分の自動生成
|
|
|
483 - `goto interface->method()`している箇所を読み取る
|
|
|
484 - `interface`がどのInterfaceなのかをPerlトランスパイラで特定させた
|
|
|
485 - 特定したInterfaceをパーサーを呼び出して情報を取得
|
|
|
486 - APIごとに出力があるかを調査
|
|
|
487 - 出力があったら、継続で渡しているCodeGearの入力を、呼び出しているInterfaceからとるように修正
|
|
|
488 - データの取り出しはStubでしているので、新たなStubを作製した
|
|
|
489
|
|
|
490 ---
|
|
|
491 # メタ計算の切り替えAPI
|
|
124
|
492 - CodeGearが継続するMetaCodeGearを自由に選択できるPerlモジュールを導入した
|
|
|
493 - 従来はデフォルトで設定されるMetaCodeGearにしか継続しなかった
|
|
|
494 - Perlモジュールを書くことで特定のCodeGearの継続先を変更可能にした
|
|
|
495 - 様々な処理をMetaCodeGearですることが可能になった
|
|
125
|
496 - すでにモデル検査用のメタ計算を入れることが出来た
|
|
124
|
497
|
|
|
498 
|
|
|
499
|
|
117
|
500
|
|
|
501 ---
|
|
|
502 # まとめ
|
|
123
|
503 - Perlトランスパイラのフレームワークの機能を充実させた
|
|
125
|
504 - Interfaceシステムを改良した
|
|
|
505 - 型定義ファイルの導入を行った
|
|
|
506 - 定義方法に一貫性が出た
|
|
|
507 - Perlトランスパイラで警告を発生させるようになった
|
|
117
|
508 - 従来手書きしていたメタな定義をビルド時に自動的に生成するようにした
|
|
|
509 - 煩雑な処理や手で実装することによるバグの混入を回避
|
|
|
510 - MetaCodeGearの制御をユーザー側で行えるようにした
|
|
|
511 - モデル検査をメタ計算として自在に組み込むことが可能となった
|
|
124
|
512
|
|
|
513 ---
|
|
|
514
|
|
|
515 ```perl
|
|
|
516 sub replaceMeta {
|
|
|
517 return (
|
|
|
518 [qr/PhilsImpl/ => \&generateMcMeta],
|
|
|
519 );
|
|
|
520 }
|
|
|
521
|
|
|
522 sub generateMcMeta {
|
|
|
523 my ($context, $next) = @_;
|
|
|
524 return "goto mcMeta($context, $next);";
|
|
|
525 }
|
|
|
526 ``` |
