a4_0013
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
* acl4のページ0013
-(by [[K]], 2026.02.11)
** (1)
#if (a_Version >= 1)
#define Preprocessor_incl0 a_Preprocessor_i...
#define Preprocessor_Put0 a_Preprocessor_P...
#define Preprocessor_Put0_ini a_Preprocessor_P...
#define Preprocessor_Put0_din a_Preprocessor_P...
#define Preprocessor_put0 a_Preprocessor_p...
#define Preprocessor a_Preprocessor
#define Preprocessor_ini a_Preprocessor_ini
#define Preprocessor_din a_Preprocessor_din
#define Preprocessor_line a_Preprocessor_l...
#define Preprocessor_main a_Preprocessor_m...
#endif
a_static int a_Preprocessor_incl0(void *w, char *s, char...
{
(void) w;
while (s < s1 && *(unsigned char *) s <= ' ') s++;
if (*s == 0x22) {
char *t = strchr(s + 1, 0x22);
if (t == NULL) t = s1;
a_Preprocessor_SourceFiles_addFile(sfs, s + 1, t...
return 1;
}
if (*s == '<') {
char *t = strchr(s + 1, '>');
if (t == NULL) t = s1;
if (t[-2] == '.' && t[-1] == 'h') return 0; // t...
a_Preprocessor_SourceFiles_addFile(sfs, s + 1, t...
return 1;
}
return 0;
}
a_class(a_Preprocessor_Put0) {
a_Preprocessor_SourceFiles *sfs;
a_VecChr *dst, path[1];
intptr_t lin;
};
a_static void a_Preprocessor_Put0_ini(a_Preprocessor_Put...
a_static void a_Preprocessor_Put0_din(a_Preprocessor_Put...
a_static void a_Preprocessor_put0(a_Preprocessor_Put0 *w...
{
a_Preprocessor_SourceFile *sf = a_Preprocessor_Sourc...
if (w->path->n != sf->path->n || (w->path->n > 0 && ...
char *s = a_malloc(_arg_ sf->path->n + 64);
sprintf(s, "#line %d \"%.*s\"\n", (int) sf->lin,...
a_VecChr_puts(w->dst, s, s + strlen(s));
a_free(_arg_ s, sf->path->n + 64);
a_VecChr_replace(w->path, 0, w->path->n, sf->pat...
} else if (w->lin + 1 < sf->lin && sf->lin < w->lin ...
while (w->lin + 1 < sf->lin) {
char *s = "\n";
a_VecChr_puts(w->dst, s, s + 1);
w->lin++;
}
} else if (w->lin + 1 != sf->lin) {
char s[64];
sprintf(s, "#line %d\n", (int) sf->lin);
a_VecChr_puts(w->dst, s, s + strlen(s));
}
a_VecChr_puts(w->dst, lin->p, lin->p + lin->n);
w->lin = sf->lin;
}
a_class(a_Preprocessor) {
a_Token0 t0[1];
a_Preprocessor_SourceFiles sfs[1];
a_Set0 set[1];
a_Preprocessor_If ppIf[1];
a_Preprocessor_Eval ppEv[1];
a_Preprocessor_Put0 put0[1];
int (*incl)(void *, const char *, const char *, a_Pr...
void (*put)(void *, a_VecChr *, a_Preprocessor_Sourc...
void *w_incl, *w_put;
};
a_static void a_Preprocessor_ini(a_Preprocessor *w)
{
a_Token0_ini1(w->t0);
a_Preprocessor_SourceFiles_ini(w->sfs);
a_Preprocessor_if0(w->ppIf);
a_Set0_ini(w->set);
// 以下はとりあえずのデフォルト設定. 不要なら上書き...
w->ppIf->eval = (void *) a_Preprocessor_eval;
w->ppIf->w_eval = w->ppEv;
w->incl = (void *) a_Preprocessor_incl0;
w->w_incl = NULL;
a_Preprocessor_Put0_ini(w->put0);
w->put = (void *) a_Preprocessor_put0;
w->w_put = w->put0;
w->put0->sfs = w->sfs;
a_Preprocessor_define7(w->set, -1, "ifdef", "if ...
a_Preprocessor_define7(w->set, -1, "ifndef", "if ...
a_Preprocessor_define7(w->set, -1, "elifdef", "elif...
a_Preprocessor_define7(w->set, -1, "elifndef", "elif...
}
a_static void a_Preprocessor_din(a_Preprocessor *w)
{
a_Preprocessor_define3(w->set);
a_Preprocessor_if3(w->ppIf);
a_Preprocessor_SourceFiles_din(w->sfs);
a_Preprocessor_Put0_din(w->put0);
}
a_static void a_Preprocessor_line(a_Preprocessor *w)
{
a_Preprocessor_SourceFile *sf = a_Preprocessor_Sourc...
const char *t = a_Token1_get(w->t0);
sf->lin = strtol(t, NULL, 0) - 1;
t = a_Token1_get(w->t0);
if (w->t0->len >= 2 && *t == 0x22) {
sf->path->n = 0;
a_VecChr_puts(sf->path, t + 1, t + w->t0->len - ...
}
}
a_static void a_Preprocessor_main(a_Preprocessor *w)
{
int defC = 1, retryCount = 0;
a_VecChr lin[1], tmp[1], stkDef[1]; a_VecChr_ini4(li...
for (;;) {
if (w->sfs->s >= w->sfs->buf->p + w->sfs->buf->n...
a_Preprocessor_SourceFiles_gets(w->sfs, lin);
if (lin->n == 0) break;
for (;;) { // 末尾が "\\\n"であれば、後続行を接続.
char *p1 = lin->p + lin->n;
if (!(lin->n >= 2 && p1[-2] == '\\' && p1[-1...
a_Preprocessor_SourceFiles_gets(w->sfs, tmp);
a_VecChr_replace(lin, lin->n - 2, 2, tmp->p,...
}
if (retryCount >= 64) {
if (w->ppIf->phase != 0)
w->put(w->w_put, lin, w->sfs);
continue;
}
if (a_Preprocessor_isDirective(lin->p, lin->p + ...
a_Preprocessor_SourceFile *sf = a_Preprocess...
if (a_Preprocessor_define2(w->set, w->t0, li...
retry:
a_Preprocessor_SourceFiles_addBuf(w->sf...
retryCount++; continue;
}
if (w->ppIf->phase != 0)
w->put(w->w_put, lin, w->sfs);
continue;
}
const char *s = lin->p, *s1 = lin->p + lin->n;
while (s < s1 && *(const unsigned char *) s <= '...
s++; // '#'.
if (strncmp(s, "if", 2) == 0 || strncmp(s, "elif...
a_Preprocessor_SourceFile *sf = a_Preprocess...
if (a_Preprocessor_define2(w->set, w->t0, li...
}
w->t0->s = s + 1; w->t0->s1 = lin->p + lin->n; a...
if (w->ppIf->phase != 0) {
if (strncmp(s, "include", 7) == 0) { if (w->...
if (strncmp(s, "define", 6) == 0) { a_Prepro...
if (strncmp(s, ".def", 4) == 0) { a_Prepro...
if (strncmp(s, ".addTl", 6) == 0) { a_Prepro...
if (strncmp(s, ".addHd", 6) == 0) { a_Prepro...
if (strncmp(s, "undef", 5) == 0) { if (a_Pr...
if (strncmp(s, ".undef", 6) == 0) { if (a_Pr...
if (strncmp(s, "line", 4) == 0) { a_Prepro...
}
w->t0->s = s; w->t0->s1 = lin->p + lin->n;
char *t = a_Token1_get(w->t0);
if (a_Preprocessor_if2(w->ppIf, lin, w->t0, t) >...
if (w->ppIf->phase != 0)
w->put(w->w_put, lin, w->sfs); // エラー検出...
continue;
}
while (stkDef->n > 0) {
a_Preprocessor_Define *sp = a_VecChr_stkRmv(stkD...
a_Preprocessor_Define_din(sp);
}
a_VecChr_din4(lin, tmp, stkDef, 0);
}
** (2) 説明
-Preprocessor_incl0 → #include 処理をどうするかをプログラ...
-Preprocessor_put0 → プリプロセッサからの出力処理をプログ...
-Preprocessor_line → #line の処理関数です。
-Preprocessor_main → プリプロセッサ処理のmainです。
** (3) サンプルプログラム: t0013a.c [13行]
-acl4ライブラリは以下のようにして利用します。
-[1]まずa4_0001～a4_0013のプログラムをつなげて"acl4.c"と...
-[2]次にacl4を使ったプログラムを書きます。
-[3]コンパイル時に、"acl4.c"のあるパスをインクルードパス...
#define a_Version 1
#include <acl4.c>
int main(int argc, const char **argv)
{
if (argc < 2) return 1;
Preprocessor pp[1]; Preprocessor_ini(pp); ...
Preprocessor_SourceFiles_addFile(pp->sfs, argv[1], s...
VecChr dst[1]; VecChr_ini(dst); pp->put0->dst = dst;...
Preprocessor_main(pp); Preprocessor_din(pp); ...
VecChr_reserve0(dst); puts(dst->p); VecChr_din(dst);...
a_malloc_debugList(_arg); ...
}
-これは、ちゃんと動く（と思われる）プリプロセッサです。ac...
-動作テストとして、t0013a.exe を使って t0013a.c 自身をプ...
-手元の環境では t0013a.exe は 20.0KB になりました（まあ私...
-ちなみに「 prompt>t0013a t0013a.c > t0013a.txt 」とする...
#line 7 "a4_0001.c"
#line 19
#include <ctype.h>
#include <errno.h>
#include <float.h>
（中略）
#line 3 "t0013a.c"
int main(int argc, const char **argv)
{
if (argc < 2) return 1;
a_Preprocessor pp[1]; a_Preprocessor_ini(pp); ...
a_Preprocessor_SourceFiles_addFile(pp->sfs, argv[1],...
a_VecChr dst[1]; a_VecChr_ini(dst); pp->put0->dst = ...
a_Preprocessor_main(pp); a_Preprocessor_din(pp); ...
a_VecChr_reserve0(dst); puts(dst->p); a_VecChr_din(d...
a_malloc_debugList("t0013a.c", 12); ...
}
-目視でも、正しく変換できていると思います。
-なお、標準ライブラリの #include が処理されずにそのままに...
-Preprocessor_incl0 で < ... .h> な include については、...
--まだインクルードパスを探す処理を書いていないので、無理...
** (3) サンプルプログラム: t0013b.c [101行]
-[[a4_p0002]] の p0002b.c の main だけを改造して、この言...
-acl4ライブラリは以下のようにして利用します。
-[1]まずa4_0001～a4_0013のプログラムをつなげて"acl4.c"と...
-[2]次にacl4を使ったプログラムを書きます。
-[3]コンパイル時に、"acl4.c"のあるパスをインクルードパス...
#define a_Version 1
#include <acl4.c>
class_(Var) { SetElm elm[1]; double d; };
Set0 setVar[1];
double *getVarPtr(const char *s, intptr_t n) → p0002b.c ...
int np = 0;
double eval(Token0 *t0, int pri) → p0002b.c のものをその...
void myPut(Preprocessor_Put0 *w, VecChr *lin)
{
// エラーが起きて未処理扱いになったプリプロセッサ制...
if (Preprocessor_isDirective(lin->p, lin->p + lin->n...
fprintf(stderr, "[err] %.*s", (int) lin->n, lin-...
else
VecChr_puts(w->dst, lin->p, lin->p + lin->n);
}
int main(int argc, const char **argv)
{
if (argc < 2) return 1;
Preprocessor pp[1]; Preprocessor_ini(pp); ...
pp->put = (void *) myPut; ...
Preprocessor_SourceFiles_addFile(pp->sfs, argv[1], s...
VecChr vc[1]; VecChr_ini(vc); pp->put0->dst = vc; ...
Preprocessor_main(pp); Preprocessor_din(pp); ...
Token0 t0[1]; Token0_ini1(t0); // ここから下は p0002...
Set0_ini(setVar);
t0->s = vc->p; t0->s1 = vc->p + vc->n;
double d = eval(t0, 99);
if (np == 0)
printf("%f\n", d);
VecChr_din(vc);
intptr_t i, n = setVar->tbl->n / sizeof (Var *);
for (i = 0; i < n; i++)
free_(_arg_ ((Var **) setVar->tbl->p)[i], sizeo...
Set0_din(setVar);
a_malloc_debugList(_arg);
return 0;
}
-元の [[p0002b.c>a4_p0002]] は86行だったので、行数的には'...
-でもこれだけで、 #include や #if や #define が使えるよう...
~
-増えた行数は15行ですが、では実行ファイルサイズとしてはど...
--p0002b.exe → 13.5KB
--t0013b.exe → 22.0KB
-ということで、''8.5KB''しか増えていません（これはいい！...
-acl4を使って作った適当な自作言語があったとして、それに15...
~
-もし「プログラム内でincludeを書かなくても、決まったファ...
Preprocessor_SourceFiles_addFile(pp->sfs, "default.t...
-という1行を「入力ファイルを指定」の直後に書き足せば実現...
--default.txt に #define Pi 3.14159265358979323 とかを書...
~
-もし「いや、デフォルトで定義しておきたいのは Pi だけしか...
Preprocessor_define7(pp->set, -1, "Pi", "3.141592653...
-を「入力ファイルを指定」の直前に書き足せば実現できます。
** (99) 更新履歴
-2026.02.11(水) 初版
-2026.02.12(木) t0013b.c を追記
-2026.02.15(日) a_Preprocessor_main を修正。retry回数を最...
終了行:
* acl4のページ0013
-(by [[K]], 2026.02.11)
** (1)
#if (a_Version >= 1)
#define Preprocessor_incl0 a_Preprocessor_i...
#define Preprocessor_Put0 a_Preprocessor_P...
#define Preprocessor_Put0_ini a_Preprocessor_P...
#define Preprocessor_Put0_din a_Preprocessor_P...
#define Preprocessor_put0 a_Preprocessor_p...
#define Preprocessor a_Preprocessor
#define Preprocessor_ini a_Preprocessor_ini
#define Preprocessor_din a_Preprocessor_din
#define Preprocessor_line a_Preprocessor_l...
#define Preprocessor_main a_Preprocessor_m...
#endif
a_static int a_Preprocessor_incl0(void *w, char *s, char...
{
(void) w;
while (s < s1 && *(unsigned char *) s <= ' ') s++;
if (*s == 0x22) {
char *t = strchr(s + 1, 0x22);
if (t == NULL) t = s1;
a_Preprocessor_SourceFiles_addFile(sfs, s + 1, t...
return 1;
}
if (*s == '<') {
char *t = strchr(s + 1, '>');
if (t == NULL) t = s1;
if (t[-2] == '.' && t[-1] == 'h') return 0; // t...
a_Preprocessor_SourceFiles_addFile(sfs, s + 1, t...
return 1;
}
return 0;
}
a_class(a_Preprocessor_Put0) {
a_Preprocessor_SourceFiles *sfs;
a_VecChr *dst, path[1];
intptr_t lin;
};
a_static void a_Preprocessor_Put0_ini(a_Preprocessor_Put...
a_static void a_Preprocessor_Put0_din(a_Preprocessor_Put...
a_static void a_Preprocessor_put0(a_Preprocessor_Put0 *w...
{
a_Preprocessor_SourceFile *sf = a_Preprocessor_Sourc...
if (w->path->n != sf->path->n || (w->path->n > 0 && ...
char *s = a_malloc(_arg_ sf->path->n + 64);
sprintf(s, "#line %d \"%.*s\"\n", (int) sf->lin,...
a_VecChr_puts(w->dst, s, s + strlen(s));
a_free(_arg_ s, sf->path->n + 64);
a_VecChr_replace(w->path, 0, w->path->n, sf->pat...
} else if (w->lin + 1 < sf->lin && sf->lin < w->lin ...
while (w->lin + 1 < sf->lin) {
char *s = "\n";
a_VecChr_puts(w->dst, s, s + 1);
w->lin++;
}
} else if (w->lin + 1 != sf->lin) {
char s[64];
sprintf(s, "#line %d\n", (int) sf->lin);
a_VecChr_puts(w->dst, s, s + strlen(s));
}
a_VecChr_puts(w->dst, lin->p, lin->p + lin->n);
w->lin = sf->lin;
}
a_class(a_Preprocessor) {
a_Token0 t0[1];
a_Preprocessor_SourceFiles sfs[1];
a_Set0 set[1];
a_Preprocessor_If ppIf[1];
a_Preprocessor_Eval ppEv[1];
a_Preprocessor_Put0 put0[1];
int (*incl)(void *, const char *, const char *, a_Pr...
void (*put)(void *, a_VecChr *, a_Preprocessor_Sourc...
void *w_incl, *w_put;
};
a_static void a_Preprocessor_ini(a_Preprocessor *w)
{
a_Token0_ini1(w->t0);
a_Preprocessor_SourceFiles_ini(w->sfs);
a_Preprocessor_if0(w->ppIf);
a_Set0_ini(w->set);
// 以下はとりあえずのデフォルト設定. 不要なら上書き...
w->ppIf->eval = (void *) a_Preprocessor_eval;
w->ppIf->w_eval = w->ppEv;
w->incl = (void *) a_Preprocessor_incl0;
w->w_incl = NULL;
a_Preprocessor_Put0_ini(w->put0);
w->put = (void *) a_Preprocessor_put0;
w->w_put = w->put0;
w->put0->sfs = w->sfs;
a_Preprocessor_define7(w->set, -1, "ifdef", "if ...
a_Preprocessor_define7(w->set, -1, "ifndef", "if ...
a_Preprocessor_define7(w->set, -1, "elifdef", "elif...
a_Preprocessor_define7(w->set, -1, "elifndef", "elif...
}
a_static void a_Preprocessor_din(a_Preprocessor *w)
{
a_Preprocessor_define3(w->set);
a_Preprocessor_if3(w->ppIf);
a_Preprocessor_SourceFiles_din(w->sfs);
a_Preprocessor_Put0_din(w->put0);
}
a_static void a_Preprocessor_line(a_Preprocessor *w)
{
a_Preprocessor_SourceFile *sf = a_Preprocessor_Sourc...
const char *t = a_Token1_get(w->t0);
sf->lin = strtol(t, NULL, 0) - 1;
t = a_Token1_get(w->t0);
if (w->t0->len >= 2 && *t == 0x22) {
sf->path->n = 0;
a_VecChr_puts(sf->path, t + 1, t + w->t0->len - ...
}
}
a_static void a_Preprocessor_main(a_Preprocessor *w)
{
int defC = 1, retryCount = 0;
a_VecChr lin[1], tmp[1], stkDef[1]; a_VecChr_ini4(li...
for (;;) {
if (w->sfs->s >= w->sfs->buf->p + w->sfs->buf->n...
a_Preprocessor_SourceFiles_gets(w->sfs, lin);
if (lin->n == 0) break;
for (;;) { // 末尾が "\\\n"であれば、後続行を接続.
char *p1 = lin->p + lin->n;
if (!(lin->n >= 2 && p1[-2] == '\\' && p1[-1...
a_Preprocessor_SourceFiles_gets(w->sfs, tmp);
a_VecChr_replace(lin, lin->n - 2, 2, tmp->p,...
}
if (retryCount >= 64) {
if (w->ppIf->phase != 0)
w->put(w->w_put, lin, w->sfs);
continue;
}
if (a_Preprocessor_isDirective(lin->p, lin->p + ...
a_Preprocessor_SourceFile *sf = a_Preprocess...
if (a_Preprocessor_define2(w->set, w->t0, li...
retry:
a_Preprocessor_SourceFiles_addBuf(w->sf...
retryCount++; continue;
}
if (w->ppIf->phase != 0)
w->put(w->w_put, lin, w->sfs);
continue;
}
const char *s = lin->p, *s1 = lin->p + lin->n;
while (s < s1 && *(const unsigned char *) s <= '...
s++; // '#'.
if (strncmp(s, "if", 2) == 0 || strncmp(s, "elif...
a_Preprocessor_SourceFile *sf = a_Preprocess...
if (a_Preprocessor_define2(w->set, w->t0, li...
}
w->t0->s = s + 1; w->t0->s1 = lin->p + lin->n; a...
if (w->ppIf->phase != 0) {
if (strncmp(s, "include", 7) == 0) { if (w->...
if (strncmp(s, "define", 6) == 0) { a_Prepro...
if (strncmp(s, ".def", 4) == 0) { a_Prepro...
if (strncmp(s, ".addTl", 6) == 0) { a_Prepro...
if (strncmp(s, ".addHd", 6) == 0) { a_Prepro...
if (strncmp(s, "undef", 5) == 0) { if (a_Pr...
if (strncmp(s, ".undef", 6) == 0) { if (a_Pr...
if (strncmp(s, "line", 4) == 0) { a_Prepro...
}
w->t0->s = s; w->t0->s1 = lin->p + lin->n;
char *t = a_Token1_get(w->t0);
if (a_Preprocessor_if2(w->ppIf, lin, w->t0, t) >...
if (w->ppIf->phase != 0)
w->put(w->w_put, lin, w->sfs); // エラー検出...
continue;
}
while (stkDef->n > 0) {
a_Preprocessor_Define *sp = a_VecChr_stkRmv(stkD...
a_Preprocessor_Define_din(sp);
}
a_VecChr_din4(lin, tmp, stkDef, 0);
}
** (2) 説明
-Preprocessor_incl0 → #include 処理をどうするかをプログラ...
-Preprocessor_put0 → プリプロセッサからの出力処理をプログ...
-Preprocessor_line → #line の処理関数です。
-Preprocessor_main → プリプロセッサ処理のmainです。
** (3) サンプルプログラム: t0013a.c [13行]
-acl4ライブラリは以下のようにして利用します。
-[1]まずa4_0001～a4_0013のプログラムをつなげて"acl4.c"と...
-[2]次にacl4を使ったプログラムを書きます。
-[3]コンパイル時に、"acl4.c"のあるパスをインクルードパス...
#define a_Version 1
#include <acl4.c>
int main(int argc, const char **argv)
{
if (argc < 2) return 1;
Preprocessor pp[1]; Preprocessor_ini(pp); ...
Preprocessor_SourceFiles_addFile(pp->sfs, argv[1], s...
VecChr dst[1]; VecChr_ini(dst); pp->put0->dst = dst;...
Preprocessor_main(pp); Preprocessor_din(pp); ...
VecChr_reserve0(dst); puts(dst->p); VecChr_din(dst);...
a_malloc_debugList(_arg); ...
}
-これは、ちゃんと動く（と思われる）プリプロセッサです。ac...
-動作テストとして、t0013a.exe を使って t0013a.c 自身をプ...
-手元の環境では t0013a.exe は 20.0KB になりました（まあ私...
-ちなみに「 prompt>t0013a t0013a.c > t0013a.txt 」とする...
#line 7 "a4_0001.c"
#line 19
#include <ctype.h>
#include <errno.h>
#include <float.h>
（中略）
#line 3 "t0013a.c"
int main(int argc, const char **argv)
{
if (argc < 2) return 1;
a_Preprocessor pp[1]; a_Preprocessor_ini(pp); ...
a_Preprocessor_SourceFiles_addFile(pp->sfs, argv[1],...
a_VecChr dst[1]; a_VecChr_ini(dst); pp->put0->dst = ...
a_Preprocessor_main(pp); a_Preprocessor_din(pp); ...
a_VecChr_reserve0(dst); puts(dst->p); a_VecChr_din(d...
a_malloc_debugList("t0013a.c", 12); ...
}
-目視でも、正しく変換できていると思います。
-なお、標準ライブラリの #include が処理されずにそのままに...
-Preprocessor_incl0 で < ... .h> な include については、...
--まだインクルードパスを探す処理を書いていないので、無理...
** (3) サンプルプログラム: t0013b.c [101行]
-[[a4_p0002]] の p0002b.c の main だけを改造して、この言...
-acl4ライブラリは以下のようにして利用します。
-[1]まずa4_0001～a4_0013のプログラムをつなげて"acl4.c"と...
-[2]次にacl4を使ったプログラムを書きます。
-[3]コンパイル時に、"acl4.c"のあるパスをインクルードパス...
#define a_Version 1
#include <acl4.c>
class_(Var) { SetElm elm[1]; double d; };
Set0 setVar[1];
double *getVarPtr(const char *s, intptr_t n) → p0002b.c ...
int np = 0;
double eval(Token0 *t0, int pri) → p0002b.c のものをその...
void myPut(Preprocessor_Put0 *w, VecChr *lin)
{
// エラーが起きて未処理扱いになったプリプロセッサ制...
if (Preprocessor_isDirective(lin->p, lin->p + lin->n...
fprintf(stderr, "[err] %.*s", (int) lin->n, lin-...
else
VecChr_puts(w->dst, lin->p, lin->p + lin->n);
}
int main(int argc, const char **argv)
{
if (argc < 2) return 1;
Preprocessor pp[1]; Preprocessor_ini(pp); ...
pp->put = (void *) myPut; ...
Preprocessor_SourceFiles_addFile(pp->sfs, argv[1], s...
VecChr vc[1]; VecChr_ini(vc); pp->put0->dst = vc; ...
Preprocessor_main(pp); Preprocessor_din(pp); ...
Token0 t0[1]; Token0_ini1(t0); // ここから下は p0002...
Set0_ini(setVar);
t0->s = vc->p; t0->s1 = vc->p + vc->n;
double d = eval(t0, 99);
if (np == 0)
printf("%f\n", d);
VecChr_din(vc);
intptr_t i, n = setVar->tbl->n / sizeof (Var *);
for (i = 0; i < n; i++)
free_(_arg_ ((Var **) setVar->tbl->p)[i], sizeo...
Set0_din(setVar);
a_malloc_debugList(_arg);
return 0;
}
-元の [[p0002b.c>a4_p0002]] は86行だったので、行数的には'...
-でもこれだけで、 #include や #if や #define が使えるよう...
~
-増えた行数は15行ですが、では実行ファイルサイズとしてはど...
--p0002b.exe → 13.5KB
--t0013b.exe → 22.0KB
-ということで、''8.5KB''しか増えていません（これはいい！...
-acl4を使って作った適当な自作言語があったとして、それに15...
~
-もし「プログラム内でincludeを書かなくても、決まったファ...
Preprocessor_SourceFiles_addFile(pp->sfs, "default.t...
-という1行を「入力ファイルを指定」の直後に書き足せば実現...
--default.txt に #define Pi 3.14159265358979323 とかを書...
~
-もし「いや、デフォルトで定義しておきたいのは Pi だけしか...
Preprocessor_define7(pp->set, -1, "Pi", "3.141592653...
-を「入力ファイルを指定」の直前に書き足せば実現できます。
** (99) 更新履歴
-2026.02.11(水) 初版
-2026.02.12(木) t0013b.c を追記
-2026.02.15(日) a_Preprocessor_main を修正。retry回数を最...
ページ名:
![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
