a4_0021
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
* acl4のページ0021
-(by [[K]], 2026.04.26)
** (1) 概要
-a4_0021 は、 acl4v1 にとっての6番目のライブラリプログラ...
-提供される主な機能は、以下の通りです。
--(1-1)プリプロセッサの#define/#typedDef/#undefに関する機能
-以下、それぞれについてもう少し詳しく説明します。
~
-関数 a_Preprocessor_substitute0(): ## によるトークン連結...
-関数 a_TypedDef_getTypeList(): #typedDef における型情報...
-関数 a_TypedDef_cmpTyp(): #typedDef における型情報がマッ...
-関数 a_TypedDef_cmpTyps(): a_TypedDef_cmpTyp() をすべて...
-関数 a_Preprocessor_findDef(): テキスト上の記述から、マ...
-関数 a_Preprocessor_substitute1(): defined()、definedx()...
-関数 a_Preprocessor_marking0(): #define/#typedDef の置換...
-関数 a_Preprocessor_marking1(): #define/#typedDef の置換...
-関数 a_Preprocessor_define1(): #define/#typedDef の定義...
-関数 a_Preprocessor_define2(): プログラム中から、#define...
** (2) デモ
** (3) ライブラリプログラム
a_static int a_Preprocessor_substitute0(a_Token0 *t0, a_...
{
char *p = lin->p; t0->s1 = p + a_VecChr_N(lin);
int rv = 0;
for (t0->s = p;;) {
char *t = a_Token1_get(t0);
if (t0->len == 0 || t0->c == stpTkn) break;
if (t0->len == 2 && t[0] == '#' && t[1] == '#') ...
intptr_t pos0 = t - p, pos1 = pos0 + 2;
while (pos0 > 0 && p[pos0 - 1] <= ' ') pos0--;
while (pos1 < a_VecChr_N(lin) && p[pos1] <= ...
a_VecChr_replace(lin, pos0, pos1 - pos0, NUL...
t0->s = p; // 長さが短くなるだけなのでpは変...
t0->s1 = p + a_VecChr_N(lin);
rv = 1;
}
}
if (rv != 0) return rv;
cont0:
t0->c = 0; intptr_t pos0 = 0;
for (t0->s = p;;) {
intptr_t c0 = t0->c, pos00 = pos0;
cont1:
char *t = a_Token1_get(t0);
if (t0->len == 0 || t0->c == stpTkn) break;
pos0 = t - p;
if (t0->c == '.' && t[1] == '(') {
a_VecChr_replace(lin, pos0, 2, "(_a, ", 5); ...
}
if (c0 == '(' && t0->c == ',') { *t = ' '; rv = ...
if (c0 == '{' && t0->c == ',') { *t = ' '; rv = ...
if (c0 == ',' && t0->c == ',') { *t = ' '; rv = ...
if (c0 == ',' && t0->c == ')') { puts(p); p[pos0...
if (c0 == ',' && t0->c == '}') { p[pos00] = ' ';...
if (t0->cTyp != 3) continue;
if (t0->len == 8 && memcmp(t, "__FILE__", 8) == ...
a_VecChr_N(tmp) = 0; a_VecChr_printf(tmp, "\...
a_VecChr_replace(lin, pos0, t0->len, tmp->p,...
}
if (t0->len == 8 && memcmp(t, "__LINE__", 8) == ...
a_VecChr_N(tmp) = 0; a_VecChr_printf(tmp, "%...
a_VecChr_replace(lin, pos0, t0->len, tmp->p,...
}
if (t0->len == 8 && &t[8] < t0->s1 && memcmp(t, ...
t0->s = &t[9]; a_parseArgs(t0, tmp); a_parse...
if (t0->c == ')' && a_VecChr_N(tmp) == 2 * (...
a_VecChr vca[1], vcb[1];
a_VecChr_iniCpy0(_a_ vca, paa[0].s, paa[...
a_VecChr_iniCpy0(_a_ vcb, paa[1].s, paa[...
char *ssp = strstr(vca->p, vcb->p);
if (ssp != NULL) {
intptr_t len1 = a_VecChr_N(vca) - (s...
a_VecChr_replace(lin, pos0, t0->s - ...
a_VecChr_din4(_a_ vca, vcb, 0, 0);
cont2:
p = lin->p;
t0->s = p + pos0;
t0->s1 = p + a_VecChr_N(lin);
goto cont0;
}
a_VecChr_din4(_a_ vca, vcb, 0, 0);
}
t0->s = t; a_Token1_get(t0); // 巻き戻す.
}
if (t0->len == 7 && &t[7] < t0->s1 && memcmp(t, ...
t0->s = &t[8]; a_parseArgs(t0, tmp); a_parse...
if (t0->c == ')' && a_VecChr_N(tmp) == 2 * (...
a_VecChr vca[1], vcb[1];
a_VecChr_iniCpy0(_a_ vca, paa[0].s, paa[...
a_VecChr_iniCpy0(_a_ vcb, paa[1].s, paa[...
char *ssp = strstr(vca->p, vcb->p);
if (ssp != NULL) {
intptr_t len1 = ssp - vca->p;
a_VecChr_replace(lin, pos0, t0->s - ...
a_VecChr_din4(_a_ vca, vcb, 0, 0);
goto cont2;
}
a_VecChr_din4(_a_ vca, vcb, 0, 0);
}
t0->s = t; a_Token1_get(t0); // 巻き戻す.
}
if (t0->len == 6 && &t[6] < t0->s1 && memcmp(t, ...
t0->s = &t[7]; a_parseArgs(t0, tmp); a_parse...
if (t0->c == ')' && a_VecChr_N(tmp) == 3 * (...
a_VecChr vca[1], vcb[1], vcc[1];
a_VecChr_iniCpy0(_a_ vca, paa[0].s, paa[...
a_VecChr_iniCpy0(_a_ vcb, paa[1].s, paa[...
a_VecChr_iniCpy0(_a_ vcc, paa[2].s, paa[...
char *ssp = strstr(vca->p, vcb->p);
if (ssp != NULL) {
char *ssq = strstr(ssp + paa[1].n, v...
if (ssq != NULL) {
intptr_t len1 = ssq - (ssp + paa...
a_VecChr_replace(lin, pos0, t0->...
a_VecChr_din4(_a_ vca, vcb, 0, 0);
goto cont2;
}
}
a_VecChr_din4(_a_ vca, vcb, vcc, 0);
}
t0->s = t; a_Token1_get(t0); // 巻き戻す.
}
if (t0->len == 7 && &t[7] < t0->s1 && memcmp(t, ...
t0->s = &t[8]; a_parseArgs(t0, tmp); a_parse...
if (t0->c == ')' && a_VecChr_N(tmp) == 2 * (...
intptr_t i = strtol(paa[0].s, NULL, 0), ...
a_VecChr_resize0(defEnum, (i + 1) * size...
*(intptr_t *) defEnum->p = j;
a_VecChr_replace(lin, pos0, t0->s - t, N...
}
if (t0->c == ')' && a_VecChr_N(tmp) == 1 * (...
intptr_t i = strtol(paa[0].s, NULL, 0), j;
a_VecChr_resize0(defEnum, (i + 1) * size...
j = *(intptr_t *) defEnum->p;
char s[16]; sprintf(s, "%d", (int) j);
*(intptr_t *) defEnum->p = j + 1;
a_VecChr_replace(lin, pos0, t0->s - t, s...
}
t0->s = t; a_Token1_get(t0); // 巻き戻す.
}
}
return rv;
}
a_static void a_SetElm_mallocCpy(a_SetElm *w, const char...
{
w->k = a_malloc(_a_ n); memcpy((char *) w->k, s, n)...
}
a_class(a_TypedDef_TypeCache) { a_SetElm elm[1]; a_VecCh...
a_static void a_TypedDef_TypeCache_din(a_SetElm *elm)
{
a_TypedDef_TypeCache *p = (a_TypedDef_TypeCache *) e...
a_VecChr *q = (a_VecChr *) p->typ->p;
intptr_t i, i1 = a_VecChr_N(p->typ) / sizeof (a_VecC...
for (i = 0; i < i1; i++)
a_VecChr_din(_a_ &q[i]);
a_free(_a_ (char *) p->elm->k, p->elm->n);
a_VecChr_din(_a_ p->typ);
a_free(_a_ p, sizeof(a_TypedDef_TypeCache));
}
a_static a_VecChr *a_TypedDef_getTypeList(a_Set0 *cache,...
{
a_TypedDef_TypeCache *p;
a_VecChr *q;
intptr_t i, i1;
if (n == 0) {
static a_VecChr nulSub[1] = { (char *) &a_VecChr...
static void *nulPtr[3] = { (void *) sizeof (a_Ve...
static a_VecChr nul[1] = { (char *) &nulPtr[2] };
return nul;
}
p = a_Set0_findKn(cache, s, n);
if (p == NULL) {
p = a_malloc(_a_ sizeof(a_TypedDef_TypeCache));
a_SetElm_mallocCpy(p->elm, s, n);
t0->s = s; t0->s1 = s + n;
if (*s == '(' || *s == '{' || *s == '[') t0->s++;
a_parseArgs(t0, tmp);
a_parseArgs_Arg *paa = (a_parseArgs_Arg *) tmp->...
a_VecChr_ini(_a_ p->typ); a_VecChr_resize(p->typ...
q = (a_VecChr *) p->typ->p;
for (i = 0; i < i1; i++)
a_VecChr_iniCpy(_a_ &q[i], paa[i].s, paa[i]....
a_Set0_add(cache, p->elm);
}
return p->typ;
}
a_static int a_TypedDef_cmpTyp(a_VecChr *typ, const char...
{
a_VecChr *q = (a_VecChr *) typ->p;
intptr_t i, i1 = a_VecChr_N(typ) / sizeof (a_VecChr);
for (i = 0; i < i1; i++) {
intptr_t qin = a_VecChr_N(&q[i]);
if (qin == 0) return 1;
if (n >= qin && memcmp(s, q[i].p, qin) == 0) ret...
}
return 0;
}
a_static int a_TypedDef_cmpTyps(a_VecChr *typs, a_parseA...
{
intptr_t i;
if (a_VecChr_N(typs) == 0) return 1;
a_VecChr **tp = (a_VecChr **) typs->p;
for (i = 0; i < an; i++) {
if (a_TypedDef_cmpTyp(tp[i], paa[i].s, paa[i].n)...
}
return 1;
}
a_class(a_Preprocessor_Define0) { a_SetElm elm[1]; a_Vec...
a_class(a_Preprocessor_Define1) { a_VecChr typs[1], def[...
a_static void a_Preprocessor_Define0_din(a_SetElm *elm)
{
a_Preprocessor_Define0 *p = (a_Preprocessor_Define0 ...
a_VecChr *anp = (a_VecChr *) p->vc->p; intptr_t ani ...
for (; ani >= 0; ani--) {
a_Preprocessor_Define1 *d1p = (a_Preprocessor_De...
intptr_t d1i = a_VecChr_N(&anp[ani]) / sizeof (a...
for (; d1i >= 0; d1i--)
a_VecChr_din4(_a_ d1p[d1i].typs, d1p[d1i].de...
a_VecChr_din(_a_ &anp[ani]);
}
a_free(_a_ (char *) p->elm->k, p->elm->n);
a_VecChr_din(_a_ p->vc);
a_free(_a_ p, sizeof(a_Preprocessor_Define0));
}
a_static a_VecChr *a_Preprocessor_findDef(a_Set0 *set, c...
{
intptr_t n = t0->len, i;
a_Preprocessor_Define0 *pd = a_Set0_findKn(set, t, n);
if (pd == NULL) return NULL;
a_VecChr *vcp = (a_VecChr *) pd->vc->p;
intptr_t vcn = a_VecChr_N(pd->vc) / sizeof (a_VecChr...
a_Preprocessor_Define1 *def1p;
if (t + n < t0->s1 && t[n] == '(') {
a_Token1_get(t0);
a_parseArgs(t0, tmp);
an = a_VecChr_N(tmp) / sizeof (a_parseArgs_Arg);
if (an + 1 >= vcn) goto skip;
def1n = a_VecChr_N(&vcp[an + 1]) / sizeof (a_Pre...
if (def1n == 0) goto skip;
def1p = (a_Preprocessor_Define1 *) vcp[an + 1].p;
rl = t0->s - t;
for (i = def1n - 1; i >= 0; i--) {
if (a_TypedDef_cmpTyps(def1p[i].typs, (a_par...
}
}
skip:
an = -1;
def1n = a_VecChr_N(&vcp[0]) / sizeof (a_Preprocessor...
def1p = (a_Preprocessor_Define1 *) vcp[0].p;
if (def1n == 0) return NULL;
i = def1n - 1;
find:
if (rmvFlg != 0) {
a_VecChr_din4(_a_ def1p[i].typs, def1p[i].def, 0...
a_VecChr_replace(&vcp[an + 1], i * sizeof (a_Pre...
while (vcn > 0) {
if (a_VecChr_N(&vcp[vcn - 1]) > 0) break;
a_VecChr_din(_a_ &vcp[vcn - 1]);
vcn--;
}
a_VecChr_N(pd->vc) = vcn * sizeof (a_VecChr);
if (vcn == 0) {
a_SetElm elm[1];
elm->k = t;
elm->n = n;
a_Set0_rmv(set, elm);
a_VecChr_din(_a_ pd->vc);
}
return NULL;
}
*repLen = rl;
return def1p[i].def;
}
a_static int a_Preprocessor_substitute1(a_Token0 *t0, a_...
{
char *p = lin->p; t0a->s1 = t0->s1 = p + a_VecChr_N(...
a_Preprocessor_Define0 *pd;
for (t0->s = p;;) {
char *t = a_Token1_get(t0), *u; intptr_t repLen;
if (t0->len == 0 || t0->c == stpTkn) break;
if (t0->cTyp != 3) continue;
if (t0->len == 7 && &t[7] < t0->s1 && memcmp(t, ...
t0a->s = &t[8]; a_parseArgs(t0a, tmp);
if (t0a->c == ')' && a_VecChr_N(tmp) == size...
a_parseArgs_Arg *paa = (a_parseArgs_Arg ...
pd = a_Set0_findKn(set, paa->s, paa->n);
defined1: ;
char c = '0';
if (pd != NULL) c = '1';
a_VecChr_replace(lin, t - p, t0a->s - t,...
return 1;
}
}
if (t0->len == 7 && memcmp(t, "defined", 7) == 0...
t0a->s = &t[7]; u = a_Token1_get(t0a);
pd = a_Set0_findKn(set, u, t0a->len);
goto defined1;
}
if (t0->len == 8 && &t[8] < t0->s1 && memcmp(t, ...
t0a->s = &t[9]; t = a_Token1_get(t0a);
char c = '0';
if (a_Preprocessor_findDef(set, t, t0a, tmp,...
a_VecChr_replace(lin, t - p, repLen, &c, 1);
return 1;
}
// マクロ展開.
t0a->s = t; t = a_Token1_get(t0a);
a_VecChr *def = a_Preprocessor_findDef(set, t, t...
a_parseArgs_Arg *paa = (a_parseArgs_Arg *) tmp->p;
if (def != NULL) {
a_VecChr_resize(tmp1, a_VecChr_N(def));
memcpy(tmp1->p, def->p, a_VecChr_N(def));
for (;;) {
char *q = memchr(tmp1->p, defC, a_VecChr...
if (q == NULL) break;
int i = ((unsigned char *) q)[1] - defC;
a_VecChr_replace(tmp1, q - tmp1->p, 2, p...
}
a_VecChr_replace(lin, t - p, repLen, tmp1->p...
return 1;
}
}
return 0;
}
a_static void a_Preprocessor_marking0(a_VecChr *tmp, a_p...
// #defineの引数を [01 01] とか [01 02] などに置換する.
{
int i;
a_Set0 set[1]; a_Set0_ini(_a_ set, NULL); a_SetElm e...
char mark[2], *t; mark[0] = (char) c;
if (an + c > 256) a_errExit("Preprocessor_define1: t...
for (i = 0; i < an; i++) {
elm[i].k = paa->s;
elm[i].n = paa->n;
paa += as;
a_Set0_add(set, &elm[i]);
}
t0->s = tmp->p; t0->s1 = tmp->p + a_VecChr_N(tmp); a...
for (;;) {
t = a_Token1_get(t0);
if (t0->len == 0) break;
a_VecChr_N(tmp) = t + t0->len - tmp->p;
}
t0->s = tmp->p; t0->s1 = tmp->p + a_VecChr_N(tmp);
for (;;) {
t = a_Token1_get(t0);
if (t0->len == 0) break;
if (t0->len >= 2 && t[0] == '/' && t[1] == '/') {
a_VecChr_N(tmp) = t - tmp->p; // コメントが...
break;
}
}
while (a_VecChr_N(tmp) > 0 && ((unsigned char *) tmp...
t0->s = tmp->p; t0->s1 = tmp->p + a_VecChr_N(tmp);
for (;;) {
t = a_Token1_get(t0);
if (t0->len == 0) break;
a_SetElm *e = a_Set0_findKn(set, t, t0->len);
if (e != NULL) {
mark[1] = (char) (c + (e - elm));
intptr_t pos0 = t - tmp->p;
a_VecChr_replace(tmp, pos0, t0->len, mark, 2...
t0->s = tmp->p + pos0 + t0->len;
t0->s1 = tmp->p + a_VecChr_N(tmp);
}
}
a_Set0_din(_a_ set);
}
a_static void a_Preprocessor_marking1(a_VecChr *tmp, a_p...
{
int i; // Token1_getをあえて使わずに、strstrで見つけ...
for (i = 0; i < an; i++) {
a_VecChr_N(tmp1) = 0;
a_VecChr_puts(tmp1, paa->s, paa->n);
char *p = strstr(tmp->p, tmp1->p), mark[2];
mark[0] = (char) c;
mark[1] = (char) (c + i);
while (p != NULL) {
intptr_t pos = p - tmp->p;
a_VecChr_replace(tmp, pos, a_VecChr_N(tmp1),...
p = strstr(tmp->p + pos + 2, tmp1->p);
}
paa += as;
}
}
a_static void a_Preprocessor_define0(a_Set0 *set, const ...
{
a_Preprocessor_Define0 *pd0 = a_Set0_findKn(set, s, ...
if (pd0 == NULL) {
pd0 = a_malloc(_a_ sizeof (a_Preprocessor_Define...
a_SetElm_mallocCpy(pd0->elm, s, sn);
a_VecChr_ini(_a_ pd0->vc);
a_Set0_add(set, pd0->elm);
}
while ((an + 1) * sizeof (a_VecChr) >= (unsigned int...
a_VecChr *tvc = a_VecChr_stkAdd(pd0->vc, sizeof ...
a_VecChr_ini(_a_ tvc);
}
a_VecChr *vcp = (a_VecChr *) pd0->vc->p;
a_Preprocessor_Define1 *pd1 = a_VecChr_stkAdd(&vcp[a...
a_VecChr_ini(_a_ pd1->typs);
a_VecChr_iniCpy(_a_ pd1->def, t, tn);
if (an > 0 && tyPaa != NULL) {
a_VecChr_resize(pd1->typs, an * sizeof (a_VecChr...
a_VecChr **tp = (a_VecChr **) pd1->typs->p;
intptr_t i;
for (i = 0; i < an; i++) {
tp[i] = a_TypedDef_getTypeList(typCache, tyP...
tyPaa += as;
}
}
}
a_static void a_Preprocessor_define1(int mod, a_Token0 *...
{
char *k = a_Token1_get(t0); intptr_t kn = t0->len, a...
if (k[kn] == '(') {
t0->s++; a_parseArgs(t0, args);
if (t0->len == 0) return;
an = a_VecChr_N(args) / sizeof (a_parseArgs_Arg);
if (an + defC > 256) a_errExit("Preprocessor_def...
}
if (mod == 1 && an < 2) return;
char *t = a_Token1_get(t0), *s1 = lin->p + a_VecChr_...
a_VecChr_replace(tmp, 0, a_VecChr_N(tmp), t, s1 - t);
a_VecChr_reserve0(tmp);
int mod1 = 0;
if (t + 1 < s1 && t[0] == '[' && t[1] == '^') {
mod1 = 1;
a_VecChr_replace(tmp, 0, 2, NULL, 0);
int mc = 1;
char *u = strstr(tmp->p, "^]");
if (u != NULL) {
mc = 0;
a_VecChr_N(tmp) = u - tmp->p;
}
while (mc > 0) {
a_Preprocessor_SourceFiles_gets(sfs, tmp1);
if (a_VecChr_N(tmp1) == 0) break;
u = strstr(tmp1->p, "^]");
if (strstr(tmp1->p, "[^") != NULL) mc++;
if (u != NULL) mc--;
if (mc > 0)
a_VecChr_replace(tmp, a_VecChr_N(tmp), 0...
else
a_VecChr_replace(tmp, a_VecChr_N(tmp), 0...
}
} else {
while (a_VecChr_N(tmp) > 0 && tmp->p[a_VecChr_N(...
}
if (mod1 == 0)
a_Preprocessor_marking0(tmp, ((a_parseArgs_Arg *...
else
a_Preprocessor_marking1(tmp, ((a_parseArgs_Arg *...
if (mod == 0)
a_Preprocessor_define0(set, k, kn, tmp->p, a_Vec...
else
a_Preprocessor_define0(set, k, kn, tmp->p, a_Vec...
}
a_static void a_Preprocessor_define2(int mod, const char...
{
a_VecChr lin[1], args[1], tmp[1], tmp1[1]; a_VecChr_...
a_VecChr_puts(lin, s, -1); t0->s = lin->p; t0->s1 = ...
a_Preprocessor_define1(mod, t0, lin, NULL, args, tmp...
a_VecChr_din4(_a_ lin, args, tmp, tmp1);
}
** (99) 更新履歴
-2026.04.26(日) 初版
-2026.05.03(日) defLeft, defMid を追加
終了行:
* acl4のページ0021
-(by [[K]], 2026.04.26)
** (1) 概要
-a4_0021 は、 acl4v1 にとっての6番目のライブラリプログラ...
-提供される主な機能は、以下の通りです。
--(1-1)プリプロセッサの#define/#typedDef/#undefに関する機能
-以下、それぞれについてもう少し詳しく説明します。
~
-関数 a_Preprocessor_substitute0(): ## によるトークン連結...
-関数 a_TypedDef_getTypeList(): #typedDef における型情報...
-関数 a_TypedDef_cmpTyp(): #typedDef における型情報がマッ...
-関数 a_TypedDef_cmpTyps(): a_TypedDef_cmpTyp() をすべて...
-関数 a_Preprocessor_findDef(): テキスト上の記述から、マ...
-関数 a_Preprocessor_substitute1(): defined()、definedx()...
-関数 a_Preprocessor_marking0(): #define/#typedDef の置換...
-関数 a_Preprocessor_marking1(): #define/#typedDef の置換...
-関数 a_Preprocessor_define1(): #define/#typedDef の定義...
-関数 a_Preprocessor_define2(): プログラム中から、#define...
** (2) デモ
** (3) ライブラリプログラム
a_static int a_Preprocessor_substitute0(a_Token0 *t0, a_...
{
char *p = lin->p; t0->s1 = p + a_VecChr_N(lin);
int rv = 0;
for (t0->s = p;;) {
char *t = a_Token1_get(t0);
if (t0->len == 0 || t0->c == stpTkn) break;
if (t0->len == 2 && t[0] == '#' && t[1] == '#') ...
intptr_t pos0 = t - p, pos1 = pos0 + 2;
while (pos0 > 0 && p[pos0 - 1] <= ' ') pos0--;
while (pos1 < a_VecChr_N(lin) && p[pos1] <= ...
a_VecChr_replace(lin, pos0, pos1 - pos0, NUL...
t0->s = p; // 長さが短くなるだけなのでpは変...
t0->s1 = p + a_VecChr_N(lin);
rv = 1;
}
}
if (rv != 0) return rv;
cont0:
t0->c = 0; intptr_t pos0 = 0;
for (t0->s = p;;) {
intptr_t c0 = t0->c, pos00 = pos0;
cont1:
char *t = a_Token1_get(t0);
if (t0->len == 0 || t0->c == stpTkn) break;
pos0 = t - p;
if (t0->c == '.' && t[1] == '(') {
a_VecChr_replace(lin, pos0, 2, "(_a, ", 5); ...
}
if (c0 == '(' && t0->c == ',') { *t = ' '; rv = ...
if (c0 == '{' && t0->c == ',') { *t = ' '; rv = ...
if (c0 == ',' && t0->c == ',') { *t = ' '; rv = ...
if (c0 == ',' && t0->c == ')') { puts(p); p[pos0...
if (c0 == ',' && t0->c == '}') { p[pos00] = ' ';...
if (t0->cTyp != 3) continue;
if (t0->len == 8 && memcmp(t, "__FILE__", 8) == ...
a_VecChr_N(tmp) = 0; a_VecChr_printf(tmp, "\...
a_VecChr_replace(lin, pos0, t0->len, tmp->p,...
}
if (t0->len == 8 && memcmp(t, "__LINE__", 8) == ...
a_VecChr_N(tmp) = 0; a_VecChr_printf(tmp, "%...
a_VecChr_replace(lin, pos0, t0->len, tmp->p,...
}
if (t0->len == 8 && &t[8] < t0->s1 && memcmp(t, ...
t0->s = &t[9]; a_parseArgs(t0, tmp); a_parse...
if (t0->c == ')' && a_VecChr_N(tmp) == 2 * (...
a_VecChr vca[1], vcb[1];
a_VecChr_iniCpy0(_a_ vca, paa[0].s, paa[...
a_VecChr_iniCpy0(_a_ vcb, paa[1].s, paa[...
char *ssp = strstr(vca->p, vcb->p);
if (ssp != NULL) {
intptr_t len1 = a_VecChr_N(vca) - (s...
a_VecChr_replace(lin, pos0, t0->s - ...
a_VecChr_din4(_a_ vca, vcb, 0, 0);
cont2:
p = lin->p;
t0->s = p + pos0;
t0->s1 = p + a_VecChr_N(lin);
goto cont0;
}
a_VecChr_din4(_a_ vca, vcb, 0, 0);
}
t0->s = t; a_Token1_get(t0); // 巻き戻す.
}
if (t0->len == 7 && &t[7] < t0->s1 && memcmp(t, ...
t0->s = &t[8]; a_parseArgs(t0, tmp); a_parse...
if (t0->c == ')' && a_VecChr_N(tmp) == 2 * (...
a_VecChr vca[1], vcb[1];
a_VecChr_iniCpy0(_a_ vca, paa[0].s, paa[...
a_VecChr_iniCpy0(_a_ vcb, paa[1].s, paa[...
char *ssp = strstr(vca->p, vcb->p);
if (ssp != NULL) {
intptr_t len1 = ssp - vca->p;
a_VecChr_replace(lin, pos0, t0->s - ...
a_VecChr_din4(_a_ vca, vcb, 0, 0);
goto cont2;
}
a_VecChr_din4(_a_ vca, vcb, 0, 0);
}
t0->s = t; a_Token1_get(t0); // 巻き戻す.
}
if (t0->len == 6 && &t[6] < t0->s1 && memcmp(t, ...
t0->s = &t[7]; a_parseArgs(t0, tmp); a_parse...
if (t0->c == ')' && a_VecChr_N(tmp) == 3 * (...
a_VecChr vca[1], vcb[1], vcc[1];
a_VecChr_iniCpy0(_a_ vca, paa[0].s, paa[...
a_VecChr_iniCpy0(_a_ vcb, paa[1].s, paa[...
a_VecChr_iniCpy0(_a_ vcc, paa[2].s, paa[...
char *ssp = strstr(vca->p, vcb->p);
if (ssp != NULL) {
char *ssq = strstr(ssp + paa[1].n, v...
if (ssq != NULL) {
intptr_t len1 = ssq - (ssp + paa...
a_VecChr_replace(lin, pos0, t0->...
a_VecChr_din4(_a_ vca, vcb, 0, 0);
goto cont2;
}
}
a_VecChr_din4(_a_ vca, vcb, vcc, 0);
}
t0->s = t; a_Token1_get(t0); // 巻き戻す.
}
if (t0->len == 7 && &t[7] < t0->s1 && memcmp(t, ...
t0->s = &t[8]; a_parseArgs(t0, tmp); a_parse...
if (t0->c == ')' && a_VecChr_N(tmp) == 2 * (...
intptr_t i = strtol(paa[0].s, NULL, 0), ...
a_VecChr_resize0(defEnum, (i + 1) * size...
*(intptr_t *) defEnum->p = j;
a_VecChr_replace(lin, pos0, t0->s - t, N...
}
if (t0->c == ')' && a_VecChr_N(tmp) == 1 * (...
intptr_t i = strtol(paa[0].s, NULL, 0), j;
a_VecChr_resize0(defEnum, (i + 1) * size...
j = *(intptr_t *) defEnum->p;
char s[16]; sprintf(s, "%d", (int) j);
*(intptr_t *) defEnum->p = j + 1;
a_VecChr_replace(lin, pos0, t0->s - t, s...
}
t0->s = t; a_Token1_get(t0); // 巻き戻す.
}
}
return rv;
}
a_static void a_SetElm_mallocCpy(a_SetElm *w, const char...
{
w->k = a_malloc(_a_ n); memcpy((char *) w->k, s, n)...
}
a_class(a_TypedDef_TypeCache) { a_SetElm elm[1]; a_VecCh...
a_static void a_TypedDef_TypeCache_din(a_SetElm *elm)
{
a_TypedDef_TypeCache *p = (a_TypedDef_TypeCache *) e...
a_VecChr *q = (a_VecChr *) p->typ->p;
intptr_t i, i1 = a_VecChr_N(p->typ) / sizeof (a_VecC...
for (i = 0; i < i1; i++)
a_VecChr_din(_a_ &q[i]);
a_free(_a_ (char *) p->elm->k, p->elm->n);
a_VecChr_din(_a_ p->typ);
a_free(_a_ p, sizeof(a_TypedDef_TypeCache));
}
a_static a_VecChr *a_TypedDef_getTypeList(a_Set0 *cache,...
{
a_TypedDef_TypeCache *p;
a_VecChr *q;
intptr_t i, i1;
if (n == 0) {
static a_VecChr nulSub[1] = { (char *) &a_VecChr...
static void *nulPtr[3] = { (void *) sizeof (a_Ve...
static a_VecChr nul[1] = { (char *) &nulPtr[2] };
return nul;
}
p = a_Set0_findKn(cache, s, n);
if (p == NULL) {
p = a_malloc(_a_ sizeof(a_TypedDef_TypeCache));
a_SetElm_mallocCpy(p->elm, s, n);
t0->s = s; t0->s1 = s + n;
if (*s == '(' || *s == '{' || *s == '[') t0->s++;
a_parseArgs(t0, tmp);
a_parseArgs_Arg *paa = (a_parseArgs_Arg *) tmp->...
a_VecChr_ini(_a_ p->typ); a_VecChr_resize(p->typ...
q = (a_VecChr *) p->typ->p;
for (i = 0; i < i1; i++)
a_VecChr_iniCpy(_a_ &q[i], paa[i].s, paa[i]....
a_Set0_add(cache, p->elm);
}
return p->typ;
}
a_static int a_TypedDef_cmpTyp(a_VecChr *typ, const char...
{
a_VecChr *q = (a_VecChr *) typ->p;
intptr_t i, i1 = a_VecChr_N(typ) / sizeof (a_VecChr);
for (i = 0; i < i1; i++) {
intptr_t qin = a_VecChr_N(&q[i]);
if (qin == 0) return 1;
if (n >= qin && memcmp(s, q[i].p, qin) == 0) ret...
}
return 0;
}
a_static int a_TypedDef_cmpTyps(a_VecChr *typs, a_parseA...
{
intptr_t i;
if (a_VecChr_N(typs) == 0) return 1;
a_VecChr **tp = (a_VecChr **) typs->p;
for (i = 0; i < an; i++) {
if (a_TypedDef_cmpTyp(tp[i], paa[i].s, paa[i].n)...
}
return 1;
}
a_class(a_Preprocessor_Define0) { a_SetElm elm[1]; a_Vec...
a_class(a_Preprocessor_Define1) { a_VecChr typs[1], def[...
a_static void a_Preprocessor_Define0_din(a_SetElm *elm)
{
a_Preprocessor_Define0 *p = (a_Preprocessor_Define0 ...
a_VecChr *anp = (a_VecChr *) p->vc->p; intptr_t ani ...
for (; ani >= 0; ani--) {
a_Preprocessor_Define1 *d1p = (a_Preprocessor_De...
intptr_t d1i = a_VecChr_N(&anp[ani]) / sizeof (a...
for (; d1i >= 0; d1i--)
a_VecChr_din4(_a_ d1p[d1i].typs, d1p[d1i].de...
a_VecChr_din(_a_ &anp[ani]);
}
a_free(_a_ (char *) p->elm->k, p->elm->n);
a_VecChr_din(_a_ p->vc);
a_free(_a_ p, sizeof(a_Preprocessor_Define0));
}
a_static a_VecChr *a_Preprocessor_findDef(a_Set0 *set, c...
{
intptr_t n = t0->len, i;
a_Preprocessor_Define0 *pd = a_Set0_findKn(set, t, n);
if (pd == NULL) return NULL;
a_VecChr *vcp = (a_VecChr *) pd->vc->p;
intptr_t vcn = a_VecChr_N(pd->vc) / sizeof (a_VecChr...
a_Preprocessor_Define1 *def1p;
if (t + n < t0->s1 && t[n] == '(') {
a_Token1_get(t0);
a_parseArgs(t0, tmp);
an = a_VecChr_N(tmp) / sizeof (a_parseArgs_Arg);
if (an + 1 >= vcn) goto skip;
def1n = a_VecChr_N(&vcp[an + 1]) / sizeof (a_Pre...
if (def1n == 0) goto skip;
def1p = (a_Preprocessor_Define1 *) vcp[an + 1].p;
rl = t0->s - t;
for (i = def1n - 1; i >= 0; i--) {
if (a_TypedDef_cmpTyps(def1p[i].typs, (a_par...
}
}
skip:
an = -1;
def1n = a_VecChr_N(&vcp[0]) / sizeof (a_Preprocessor...
def1p = (a_Preprocessor_Define1 *) vcp[0].p;
if (def1n == 0) return NULL;
i = def1n - 1;
find:
if (rmvFlg != 0) {
a_VecChr_din4(_a_ def1p[i].typs, def1p[i].def, 0...
a_VecChr_replace(&vcp[an + 1], i * sizeof (a_Pre...
while (vcn > 0) {
if (a_VecChr_N(&vcp[vcn - 1]) > 0) break;
a_VecChr_din(_a_ &vcp[vcn - 1]);
vcn--;
}
a_VecChr_N(pd->vc) = vcn * sizeof (a_VecChr);
if (vcn == 0) {
a_SetElm elm[1];
elm->k = t;
elm->n = n;
a_Set0_rmv(set, elm);
a_VecChr_din(_a_ pd->vc);
}
return NULL;
}
*repLen = rl;
return def1p[i].def;
}
a_static int a_Preprocessor_substitute1(a_Token0 *t0, a_...
{
char *p = lin->p; t0a->s1 = t0->s1 = p + a_VecChr_N(...
a_Preprocessor_Define0 *pd;
for (t0->s = p;;) {
char *t = a_Token1_get(t0), *u; intptr_t repLen;
if (t0->len == 0 || t0->c == stpTkn) break;
if (t0->cTyp != 3) continue;
if (t0->len == 7 && &t[7] < t0->s1 && memcmp(t, ...
t0a->s = &t[8]; a_parseArgs(t0a, tmp);
if (t0a->c == ')' && a_VecChr_N(tmp) == size...
a_parseArgs_Arg *paa = (a_parseArgs_Arg ...
pd = a_Set0_findKn(set, paa->s, paa->n);
defined1: ;
char c = '0';
if (pd != NULL) c = '1';
a_VecChr_replace(lin, t - p, t0a->s - t,...
return 1;
}
}
if (t0->len == 7 && memcmp(t, "defined", 7) == 0...
t0a->s = &t[7]; u = a_Token1_get(t0a);
pd = a_Set0_findKn(set, u, t0a->len);
goto defined1;
}
if (t0->len == 8 && &t[8] < t0->s1 && memcmp(t, ...
t0a->s = &t[9]; t = a_Token1_get(t0a);
char c = '0';
if (a_Preprocessor_findDef(set, t, t0a, tmp,...
a_VecChr_replace(lin, t - p, repLen, &c, 1);
return 1;
}
// マクロ展開.
t0a->s = t; t = a_Token1_get(t0a);
a_VecChr *def = a_Preprocessor_findDef(set, t, t...
a_parseArgs_Arg *paa = (a_parseArgs_Arg *) tmp->p;
if (def != NULL) {
a_VecChr_resize(tmp1, a_VecChr_N(def));
memcpy(tmp1->p, def->p, a_VecChr_N(def));
for (;;) {
char *q = memchr(tmp1->p, defC, a_VecChr...
if (q == NULL) break;
int i = ((unsigned char *) q)[1] - defC;
a_VecChr_replace(tmp1, q - tmp1->p, 2, p...
}
a_VecChr_replace(lin, t - p, repLen, tmp1->p...
return 1;
}
}
return 0;
}
a_static void a_Preprocessor_marking0(a_VecChr *tmp, a_p...
// #defineの引数を [01 01] とか [01 02] などに置換する.
{
int i;
a_Set0 set[1]; a_Set0_ini(_a_ set, NULL); a_SetElm e...
char mark[2], *t; mark[0] = (char) c;
if (an + c > 256) a_errExit("Preprocessor_define1: t...
for (i = 0; i < an; i++) {
elm[i].k = paa->s;
elm[i].n = paa->n;
paa += as;
a_Set0_add(set, &elm[i]);
}
t0->s = tmp->p; t0->s1 = tmp->p + a_VecChr_N(tmp); a...
for (;;) {
t = a_Token1_get(t0);
if (t0->len == 0) break;
a_VecChr_N(tmp) = t + t0->len - tmp->p;
}
t0->s = tmp->p; t0->s1 = tmp->p + a_VecChr_N(tmp);
for (;;) {
t = a_Token1_get(t0);
if (t0->len == 0) break;
if (t0->len >= 2 && t[0] == '/' && t[1] == '/') {
a_VecChr_N(tmp) = t - tmp->p; // コメントが...
break;
}
}
while (a_VecChr_N(tmp) > 0 && ((unsigned char *) tmp...
t0->s = tmp->p; t0->s1 = tmp->p + a_VecChr_N(tmp);
for (;;) {
t = a_Token1_get(t0);
if (t0->len == 0) break;
a_SetElm *e = a_Set0_findKn(set, t, t0->len);
if (e != NULL) {
mark[1] = (char) (c + (e - elm));
intptr_t pos0 = t - tmp->p;
a_VecChr_replace(tmp, pos0, t0->len, mark, 2...
t0->s = tmp->p + pos0 + t0->len;
t0->s1 = tmp->p + a_VecChr_N(tmp);
}
}
a_Set0_din(_a_ set);
}
a_static void a_Preprocessor_marking1(a_VecChr *tmp, a_p...
{
int i; // Token1_getをあえて使わずに、strstrで見つけ...
for (i = 0; i < an; i++) {
a_VecChr_N(tmp1) = 0;
a_VecChr_puts(tmp1, paa->s, paa->n);
char *p = strstr(tmp->p, tmp1->p), mark[2];
mark[0] = (char) c;
mark[1] = (char) (c + i);
while (p != NULL) {
intptr_t pos = p - tmp->p;
a_VecChr_replace(tmp, pos, a_VecChr_N(tmp1),...
p = strstr(tmp->p + pos + 2, tmp1->p);
}
paa += as;
}
}
a_static void a_Preprocessor_define0(a_Set0 *set, const ...
{
a_Preprocessor_Define0 *pd0 = a_Set0_findKn(set, s, ...
if (pd0 == NULL) {
pd0 = a_malloc(_a_ sizeof (a_Preprocessor_Define...
a_SetElm_mallocCpy(pd0->elm, s, sn);
a_VecChr_ini(_a_ pd0->vc);
a_Set0_add(set, pd0->elm);
}
while ((an + 1) * sizeof (a_VecChr) >= (unsigned int...
a_VecChr *tvc = a_VecChr_stkAdd(pd0->vc, sizeof ...
a_VecChr_ini(_a_ tvc);
}
a_VecChr *vcp = (a_VecChr *) pd0->vc->p;
a_Preprocessor_Define1 *pd1 = a_VecChr_stkAdd(&vcp[a...
a_VecChr_ini(_a_ pd1->typs);
a_VecChr_iniCpy(_a_ pd1->def, t, tn);
if (an > 0 && tyPaa != NULL) {
a_VecChr_resize(pd1->typs, an * sizeof (a_VecChr...
a_VecChr **tp = (a_VecChr **) pd1->typs->p;
intptr_t i;
for (i = 0; i < an; i++) {
tp[i] = a_TypedDef_getTypeList(typCache, tyP...
tyPaa += as;
}
}
}
a_static void a_Preprocessor_define1(int mod, a_Token0 *...
{
char *k = a_Token1_get(t0); intptr_t kn = t0->len, a...
if (k[kn] == '(') {
t0->s++; a_parseArgs(t0, args);
if (t0->len == 0) return;
an = a_VecChr_N(args) / sizeof (a_parseArgs_Arg);
if (an + defC > 256) a_errExit("Preprocessor_def...
}
if (mod == 1 && an < 2) return;
char *t = a_Token1_get(t0), *s1 = lin->p + a_VecChr_...
a_VecChr_replace(tmp, 0, a_VecChr_N(tmp), t, s1 - t);
a_VecChr_reserve0(tmp);
int mod1 = 0;
if (t + 1 < s1 && t[0] == '[' && t[1] == '^') {
mod1 = 1;
a_VecChr_replace(tmp, 0, 2, NULL, 0);
int mc = 1;
char *u = strstr(tmp->p, "^]");
if (u != NULL) {
mc = 0;
a_VecChr_N(tmp) = u - tmp->p;
}
while (mc > 0) {
a_Preprocessor_SourceFiles_gets(sfs, tmp1);
if (a_VecChr_N(tmp1) == 0) break;
u = strstr(tmp1->p, "^]");
if (strstr(tmp1->p, "[^") != NULL) mc++;
if (u != NULL) mc--;
if (mc > 0)
a_VecChr_replace(tmp, a_VecChr_N(tmp), 0...
else
a_VecChr_replace(tmp, a_VecChr_N(tmp), 0...
}
} else {
while (a_VecChr_N(tmp) > 0 && tmp->p[a_VecChr_N(...
}
if (mod1 == 0)
a_Preprocessor_marking0(tmp, ((a_parseArgs_Arg *...
else
a_Preprocessor_marking1(tmp, ((a_parseArgs_Arg *...
if (mod == 0)
a_Preprocessor_define0(set, k, kn, tmp->p, a_Vec...
else
a_Preprocessor_define0(set, k, kn, tmp->p, a_Vec...
}
a_static void a_Preprocessor_define2(int mod, const char...
{
a_VecChr lin[1], args[1], tmp[1], tmp1[1]; a_VecChr_...
a_VecChr_puts(lin, s, -1); t0->s = lin->p; t0->s1 = ...
a_Preprocessor_define1(mod, t0, lin, NULL, args, tmp...
a_VecChr_din4(_a_ lin, args, tmp, tmp1);
}
** (99) 更新履歴
-2026.04.26(日) 初版
-2026.05.03(日) defLeft, defMid を追加
ページ名:
![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
