192
|
1 C with Continuation (CwC) and Continuation based C (CbC)
|
|
2 $Id$
|
|
3 河野 真治
|
|
4 琉球大学情報工学科
|
|
5
|
|
6 0. What is this.
|
|
7
|
|
8 これはC言語の拡張であり、下位言語でもあります。サブルーチン
|
|
9 の代わりに code segment というプログラミング単位を持つ言語
|
|
10 です。code segment は、軽量継続(light weight continuation)
|
|
11 によって接続されます。C の機能をすべて含む時は、C with
|
|
12 Continuation と呼びます。
|
|
13
|
|
14 #include <stdio.h>
|
|
15
|
|
16 code factorial(int n,int result,int orig,
|
|
17 code(*print)(),code(*exit1)(), void *exit1env)
|
|
18 {
|
|
19 if (n<0) {
|
|
20 printf("err %d!\n",n);
|
|
21 goto (*exit1)(0),exit1env;
|
|
22 }
|
|
23 if (n==0)
|
|
24 goto (*print)(n,result,orig,print,exit1,exit1env);
|
|
25 else {
|
|
26 result *= n;
|
|
27 n--;
|
|
28 goto factorial(n,result,orig,print,exit1,exit1env);
|
|
29 }
|
|
30 }
|
|
31
|
|
32 int main( int ac, char *av[])
|
|
33 {
|
|
34 int n;
|
|
35 n = 10;
|
|
36 goto factorial(n,1,n,print,return,environment);
|
|
37 }
|
|
38
|
|
39 code print(int n,int result,int orig,code(*print)(),(*exit1)(),void*exit1env)
|
|
40 {
|
|
41 printf("%d! = %d\n",orig, result);
|
|
42 goto (*exit1)(0),exit1env;
|
|
43 }
|
|
44
|
|
45 code segment だけを使い、手続き呼び出しをしないと、Cの下位言語
|
|
46 となります。これを、Continuation based B (Cbc) と呼びます。
|
|
47 実際、C をCbCにコンパイルすることが可能です。
|
|
48
|
|
49 CbC は、アーキテクチャに依存しないアセンブラ言語だと思えば良いでしょう。
|
|
50
|
|
51 1. 構文
|
|
52
|
|
53 code code_segment_name(interfaces) {
|
|
54 body;
|
|
55 }
|
|
56
|
|
57 code は code segment を表す型です。code segment ではreturn
|
|
58 文を使用することはできません。
|
|
59
|
|
60 Interfaces は引数です。構造体も使うことができます。Inteface
|
|
61 の一部はレジスタにマップされるので参照を取ることはできません。
|
|
62 構造体は常に可能です。
|
|
63
|
|
64 code segment から移動するには goto 文を使います。
|
|
65
|
|
66 goto segment_name(interfaces);
|
|
67
|
|
68 間接gotoも可能です。同じinterfaceを持つcode segment間では、
|
|
69 効率の良い移動ができます。普通はjmp命令一つです。(stack
|
|
70 pointer の移動を含む場合もあるので、そうとは限らないんですが..)
|
|
71 異なるInterfaceの場合は、並列代入が起きます。
|
|
72
|
|
73
|
|
74 2. C との関係。
|
|
75
|
|
76 CwC からは自由にCの関数を呼び出すことができます。
|
|
77
|
|
78 C の関数からcode segment にgotoするのは自由ですが、
|
|
79 戻る場合には、Cの関数の環境を明示する必要があります。
|
|
80
|
|
81 goto factorial(n,1,n,print,return,environment);
|
|
82
|
|
83 return と environment は特殊な変数で、それぞれ、呼び出した
|
|
84 関数の継続(呼び出した関数に戻ることはできません)と、
|
|
85 その関数の環境(つまりスタック)です。setjump のjump_buf
|
|
86 に似てますが、allocate することはできません。
|
|
87
|
|
88 void *environment;
|
|
89
|
|
90 という型を持ちます。return 変数は、元の関数の継続、
|
|
91 つまりreturn文そのものです。その型は元の関数に
|
|
92 依存します。
|
|
93
|
|
94 code (*return)(int return_value);
|
|
95
|
|
96 ここにgotoするには環境を明示したgotoを使います。
|
|
97 普通にgotoしてはいけません。コンパイラはチェックしてません。
|
|
98 ごめんなさい。多重にfunction-code-function-codeして、
|
|
99 一番外のheavy continuationに抜けることはできます。
|
|
100
|
|
101 goto (*exit1)(0),exit1env;
|
|
102
|
|
103 thread として使うことは今のところはできません。
|
|
104
|
|
105 3. 使い方
|
|
106
|
|
107 mc-powerpc, mc-ia32 がコンパイラです。アセンブラソースを出力します。
|
|
108 アセンブルとリンクにはgccを使って下さい。
|
|
109
|
|
110 mc-powerpc source.c
|
|
111 gcc source.s
|
|
112 a.out を生成。
|
|
113 mc-powerpc source.c
|
|
114 gcc -c sources.s
|
|
115 .o を生成。
|
|
116
|
|
117 -s comments in assembler source.
|
|
118 -c check only.
|
|
119 -oname output file names
|
|
120 -Idir add library include directory
|
|
121
|
|
122 test の下にいくつか例題があります。
|
|
123
|
|
124 3. 実装されてない部分
|
|
125
|
|
126 Mips コンパイラはまだ動きません。
|
|
127
|
245
|
128 64 bit long long が動きます。
|
|
129 // long long, long double は型として使うことはできますが、
|
|
130 // 演算はできません。変数の定義もできないと思う。
|
|
131 // Long long value (0LL) は使えますが、単なるlongを返します。
|
|
132 // long は32bit. int もpointerも同じ。
|
192
|
133
|
|
134 Mac OS X と Red hat Linux だけでテストしてあります。
|
|
135
|
245
|
136 Inline は無視され、普通のstatic関数にコンパイルされます。
|
192
|
137
|
245
|
138 //浮動小数点レジスタへの代入計算はできません。
|
|
139 // *=, /=, +=.
|
192
|
140
|
|
141 built-in allocaはありません。
|
|
142
|
|
143 varargs もないです。
|
|
144
|
|
145 Switch 文は、分岐にコンパイルされます。テーブルは生成されません。
|
|
146
|
245
|
147 マクロの機能のうち連結とかは動きません。
|
192
|
148
|
|
149 マクロはコルーチンで、プリプロセッサではありません。振舞いがcppと
|
|
150 少し異なります。
|
|
151
|
|
152 デバッグ用の -g はありません。
|
|
153
|
|
154 CbC のcode segment から実行を始めることはできません。
|
|
155
|
245
|
156 // #include は、呼び出したソースコードのカレントディレクトリをサーチしません。
|
|
157 #include は、呼び出したソースコードのカレントディレクトリをサーチします。
|
192
|
158
|
|
159 その他、たくさん。ANSI コンパチを目指しているわけではないので...
|
|
160
|