text0005
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
* 川合のプログラミング言語自作のためのテキスト#0005
-(by [[K]], 2019.02.25)
** (10) TJ-02
-JITコンパイラの説明をすると言っておきながら、TJ-01は結局...
-実はここで示すTJ-02もまだ普通のインタプリタです。期待さ...
-ここではwhileとtimeを追加しています。ただしwhileの書き方...
#include <stdio.h>
#include <stdlib.h>
#include <time.h>
void loadText(int argc, const char **argv, unsigned char...
int var[256]; // 変数.
unsigned char txt[10000]; // ソースコード.
int pc = 0; // プログラムカウンタ.
int getNumber() → TJ-01と同じなので省略
int main(int argc, const char **argv)
{
int i, j, pc0, wpc = 0;
loadText(argc, argv, txt, 10000);
for (;;) {
pc0 = pc;
if (txt[pc] == 0) // ファイル終端.
exit(0);
if (txt[pc] == '\n' || txt[pc] == ' ' || txt[pc]...
pc++;
} else if (txt[pc + 1] == '=') { → TJ-01と同じな...
} else if (txt[pc] == 'p' && txt[pc + 1] == 'r' ...
pc += 6;
printf("%d\n", getNumber());
} else if (txt[pc] == 'w' && txt[pc + 1] == 'h' ...
wpc = pc;
i = var[txt[pc + 6]]; // 変数の値.
pc += 8;
j = getNumber();
if (txt[pc] != '{')
goto err;
pc++;
if (i >= j) { // 条件不成立なので } までを読...
while (txt[pc] != 0 && txt[pc] != '}')
pc++;
if (txt[pc] == '}')
pc++;
}
} else if (txt[pc] == '}') {
pc = wpc;
} else if (txt[pc] == 't' && txt[pc + 1] == 'i')...
pc += 4;
printf("time=%.3f[sec]\n", clock() / (double...
} else
goto err;
}
err:
printf("syntax error : %.10s\n", &txt[pc0]);
exit(1);
}
-このTJ-02は以下のプログラムを実行できます。1億回ループで...
i=0;
while i<100000000{
i=i+1;
}
print i;
time;
-TL-3とくらべてどちらが速いでしょうか？当方の環境では何倍...
** 次回に続く
-次回: [[text0006]]
*こめんと欄
#comment
終了行:
* 川合のプログラミング言語自作のためのテキスト#0005
-(by [[K]], 2019.02.25)
** (10) TJ-02
-JITコンパイラの説明をすると言っておきながら、TJ-01は結局...
-実はここで示すTJ-02もまだ普通のインタプリタです。期待さ...
-ここではwhileとtimeを追加しています。ただしwhileの書き方...
#include <stdio.h>
#include <stdlib.h>
#include <time.h>
void loadText(int argc, const char **argv, unsigned char...
int var[256]; // 変数.
unsigned char txt[10000]; // ソースコード.
int pc = 0; // プログラムカウンタ.
int getNumber() → TJ-01と同じなので省略
int main(int argc, const char **argv)
{
int i, j, pc0, wpc = 0;
loadText(argc, argv, txt, 10000);
for (;;) {
pc0 = pc;
if (txt[pc] == 0) // ファイル終端.
exit(0);
if (txt[pc] == '\n' || txt[pc] == ' ' || txt[pc]...
pc++;
} else if (txt[pc + 1] == '=') { → TJ-01と同じな...
} else if (txt[pc] == 'p' && txt[pc + 1] == 'r' ...
pc += 6;
printf("%d\n", getNumber());
} else if (txt[pc] == 'w' && txt[pc + 1] == 'h' ...
wpc = pc;
i = var[txt[pc + 6]]; // 変数の値.
pc += 8;
j = getNumber();
if (txt[pc] != '{')
goto err;
pc++;
if (i >= j) { // 条件不成立なので } までを読...
while (txt[pc] != 0 && txt[pc] != '}')
pc++;
if (txt[pc] == '}')
pc++;
}
} else if (txt[pc] == '}') {
pc = wpc;
} else if (txt[pc] == 't' && txt[pc + 1] == 'i')...
pc += 4;
printf("time=%.3f[sec]\n", clock() / (double...
} else
goto err;
}
err:
printf("syntax error : %.10s\n", &txt[pc0]);
exit(1);
}
-このTJ-02は以下のプログラムを実行できます。1億回ループで...
i=0;
while i<100000000{
i=i+1;
}
print i;
time;
-TL-3とくらべてどちらが速いでしょうか？当方の環境では何倍...
** 次回に続く
-次回: [[text0006]]
*こめんと欄
#comment
ページ名:
![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
