* 川合のプログラミング言語自作のためのテキスト#0001
-(by [[K]], 2019.02.25)
** (1) はじめに
-「プログラミング言語を作ってみたい」と思ったことがある人は、プログラマの中にはけっこうたくさんいるのではないかと思います。・・・でも、実際に作ってみた人はそれほどには多くないかもしれません。それはなぜでしょうか。
-おそらくは、多く人にとってプログラミング言語を作るのは難しいということになっているからだと思います。そう思うからこそ、チャレンジするまでもなくあきらめてしまうわけです。とてももったいないです。
-私はプログラミング言語は（世間の人が思っているよりは）ずっと簡単に作れるものだと思っています。・・・今からここにそのためのテキストを置きます。これを読んで是非作れるようになってください。そうすれば「作りたいけど、作り方が分からない」を卒業することができます。そして今後は「じゃあどんな言語を作ろうか」をメインで考えられるようになるのです。それはとても素敵なことだと思います。
-この時点では「本当にプログラミング言語を作るのは簡単なのか？」という疑問を持つ人は少なくないと思いますが、かつてはタイニーベーシックのような言語があり、それはたった数キロバイトの機械語でした。それらの言語はもちろん言語を作りやすくするために文法規約にいろいろと制限がありましたが、つまり逆に言えば、適切な制限を導入すれば言語は簡単に作れるということなのです。私はこの観点で言語の作り方をどう教えるかを研究してきたのです。
** (2) インタプリタかコンパイラか
-プログラミング言語は、大きく分けるとインタプリタ型とコンパイラ型に二分できると思います。コンパイラ型は、ソースコードをコンパイラにかけると実行ファイルが出力されてきます（アセンブラソースが出力されるタイプもあります）。実行に際しては、この実行ファイルだけがあればよく、ソースコードもコンパイラ本体も不要です。一般にコンパイラ型はアプリケーションの実行速度が高速で、上級のプログラマに人気があります。またコンパイルはソースコードが大きくなってくるとそれなりに時間を要するようにもなります。
-一方でインタプリタ型は、ソースコードを実行前にコンパイルしておく必要はなく、そのまますぐに実行できます。ただ実行に際しては、ソースコードと言語本体の両方が必要です。また実行速度はコンパイラには劣るというのが普通です。コンパイルを必要としないので、気軽に実行することができ、コンパイラと比較すれば初心者に人気がある言語だと言えるかと思います。
-こう書くとなんだかコンパイラ型がとてもよさそうに思えますが、実は私はまったくそう思っていません。コンパイラ型には「未来」や「発展性」がないのです。なぜならeval命令との相性がよくないからです。
-eval命令というのは、プログラムの中で "i = 3;"みたいな文字列を生成すれば、eval命令によってそれをただちに実行することができる、という機能を指します。・・・この機能をインタプリタ型の言語に持たせるのはかなり容易です。なぜならインタプリタはまさにその機能を使ってプログラムを実行しているからです。・・・しかしコンパイラはそうはいきません。コンパイラによって生成された実行ファイルは、もうその言語を解釈するための仕組みは持っておらず、変換された結果の機械語しかないからです。
-eval命令はそんなに重要でしょうか？・・・その話をする前に、JITコンパイラの話をしようと思います。・・・JITコンパイラというのは、（その名称にもかかわらず）インタプリタ型の言語を作るためのテクニックです。これにより、インタプリタ型でありながら、コンパイラ型に負けない実行速度でプログラムを実行することができるようになります。
-どうしてそんな魔法みたいなことができるのかと言えば、つまり言語は実行に際してソースコードを機械語に変換してしまうからです。その変換をしてから実行するのです。たいていこの変換時間はかなり軽微で、ほとんど体感できないので、ユーザはインタプリタとしてこの言語を扱えます。
-ここで既存のプログラミング言語で新しいJITコンパイラを作ることを考えてみましょう。もしeval命令があればJITコンパイラを作るのは簡単です。実行したいプログラムを適当に変換して、それをevalすればすぐに実行できるからです。でもコンパイラ型の言語にはeval命令がないので、言語プログラムはevalしたい文字列から''自力で''（＝言語の助けなしに）''機械語を生成しなければいけません''。ライブラリとかを使えばできる場合もあるかもしれませんが、それはどちらかというとレアケースで、何のサポートもない場合だって十分にあり得ます（たとえばあなたはC言語のソースコードをevalできるライブラリに心当たりがありますか？かなりメジャーな言語であるC言語でさえそんな状況なのですよ）。
-evalがない言語でJITコンパイラを書こうと思ったら、機械語の勉強をしなければいけないですって？ちょっと待ってください、今は21世紀ですよね。新しい言語をJITコンパイラで作ろうと思ったら機械語に戻らなければいけないんて、いったい今までのソフトウェア技術の積み上げは何だったのでしょうか。みんな機械語やアセンブラをやらずに済ませるためにプログラミング言語を開発してきたのではなかったのですか？・・・つまりコンパイラは根本的なところで、ソフトウェア技術を進歩させていなかったのです。進歩していたのは表面だけなんです。コンパイラはコンパイラを機械語の知識なしで作ることができますが、JITコンパイラを作ることはできないのです。・・・一方でインタプリタは機械語の知識なしにJITコンパイラを作ることができるのです。インタプリタで普通のコンパイラももちろん作れます。つまりインタプリタは万能なのです。
-そして今まではインタプリタは遅いとバカにされてきましたが、JITコンパイラの技術を使えば、それはもはや問題にならないのです。
-いろいろ書きましたが、つまり川合はJITコンパイラで作ったインタプリタが大好きで、コンパイラはあまり好きじゃないということです。だからこのテキストでは、普通のインタプリタと、JITコンパイラの作り方しか紹介しません。
--コンパイラは好きじゃないとか言いつつ、組み込み向けとかではコンパイラの方がいいのはよくわかっていますし、自分自身も今はC言語（＝コンパイラ）をよく利用しているので、絶対にコンパイラがダメだと思っているわけではありません。
--要するにここで作り方を説明していないことに対するいいわけみたいなものです（苦笑）。
** (3) TL-1
-うざい説明はこれくらいにして、とにかく言語を作ってみようじゃないですか。これは「TL-1」です。C言語で書いています。
#include <stdio.h>
#include <stdlib.h>
void loadText(int argc, const char **argv, unsigned char *t, int siz)
{
FILE *fp;
int i;
if (argc < 2) { // 引数が少ないのでエラー表示して終了.
printf("usage>%s program-file\n", argv[0]);
exit(1);
}
fp = fopen(argv[1], "rt"); // テキストモードでファイルを開く.
if (fp == 0) { // ファイルを開けなかった.
printf("fopen error : %s\n", argv[1]);
exit(1);
}
i = fread(t, 1, siz - 1, fp);
fclose(fp);
t[i] = 0; // 終端マークを書いておく.
}
int var[256]; // 変数.
unsigned char txt[10000]; // ソースコード.
int pc = 0; // プログラムカウンタ.
int getNumber(unsigned char c)
{
if ('0' <= c && c <= '9')
return c - '0'; // 1桁の定数.
return var[c]; // 1文字の変数名.
}
int main(int argc, const char **argv)
{
int i, pc0;
loadText(argc, argv, txt, 10000);
for (;;) {
pc0 = pc;
if (txt[pc] == 0) // ファイル終端.
exit(0);
if (txt[pc] == '\n' || txt[pc] == ' ' || txt[pc] == '\t' ||txt[pc] == ';') { // 空行など.
if (txt[pc] == '\n' || txt[pc] == ' ' || txt[pc] == '\t' || txt[pc] == ';') { // 空行など.
pc++;
continue;
}
if (txt[pc + 1] == '=') { // 2文字目が"=".
i = txt[pc];
if (txt[pc + 3] == ';') { // 単純代入.
var[i] = getNumber(txt[pc + 2]);
} else if (txt[pc + 3] == '+' && txt[pc + 5] == ';') { // 加算.
var[i] = getNumber(txt[pc + 2]) + getNumber(txt[pc + 4]);
} else if (txt[pc + 3] == '-' && txt[pc + 5] == ';') { // 減算.
var[i] = getNumber(txt[pc + 2]) - getNumber(txt[pc + 4]);
} else
goto err;
} else if (txt[pc] == 'p' && txt[pc + 1] == 'r' && txt[pc + 5] == ' ' && txt[pc + 7] == ';') { // 最初の2文字しか調べてない(手抜き).
printf("%d\n", var[txt[pc + 6]]);
} else
goto err;
while (txt[pc] != ';')
pc++;
}
err:
printf("syntax error : %.10s\n", &txt[pc0]);
exit(1);
}
-はいこれだけです。C言語でたったの''65行''です。もちろん機能は限定的です。
--変数名は半角一文字のみ。
--数値定数は整数で一桁のみ。
--「a=3;」みたいにスペースを入れずに書かなければいけない。
--ひとまず足し算と引き算とprintができればいい。
-ええ本当にひどい仕様だと思います。・・・かつてのタイニーベーシックよりもさらに低機能です。でもとにかく出発点としては悪くないと思うんです。だってたったの65行ですよ？
-しかも<stdio.h>と<stdlib.h>しか使っていません。それでも65行でここまでできるんです。
-このTL-1は以下のプログラムを問題なく実行する能力があります。以下の内容のテキストファイルを作って保存して（たとえば prog1.txt ）、そのファイル名をTL-1のコマンドライン引数に渡せば実行できます。
a=1;
b=2;
c=a+b;
print c;
-今は足し算と引き算しかないですが、掛け算や割り算を追加するとしたらどうしたらいいかわかりますか？分かりますよね。
-この先で、最初に課した制約を少しずつ減らしていきます。いつの間にかけっこうまともな言語になります。差分を追いかければ、どの制約をなくすことが言語を複雑にしているのか、理解できるようになるでしょう。
** (4) TL-1の簡単な説明
-関数：
--loadText() : コマンドライン引数で指定されたソースファイルを配列変数に読み込む。
--getNumber() : 変数名もしくは数字を一文字渡すと、その値を返す。
--main() : 言語処理の本体。
-変数：
--var[] : 変数の値を記憶しておくための変数。
--txt[] : ソースコードを記憶しておくための変数。
--pc : 現在プログラムのどこを実行しているのかを記憶するための変数。
-C言語での文字列の扱いに不慣れな人のために、簡単な説明ページを作りました。必要な人はご利用ください。→[[text0001a]]
-[隠れたこだわり]
--このTL-1やそれ以降のプログラムは、C言語が得意じゃない人でも分かりやすくなるように一定の配慮をしています。
--ポインタはやむをえないときは使ってもいいが、ポインタに対する加算や減算はしない（ポインタは配列みたいなものだと理解している場合、ポインタに対する演算があるとそこで難しく感じてしまうので）。
--文字列を扱うときは極力標準関数で扱える形式にする。
** 次回に続く
-次回： [[text0002]]
*こめんと欄
-(2)の内容について、コンパイラが上級者向けで、インタプリタがそれと比較すれば初心者向きであるという説明は、少なくとも近年の傾向とは違うのではないかという指摘を受けました。そうかもしれません。これらの記述は以降の説明の本質とは無関係なので、私としては結論がどちらでも構いません。 -- [[K]] SIZE(10){2019-02-25 (月) 23:10:33}
#comment
![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
