acl4のページ0009

↑

(1)

#if (a_Version >= 1)
    #define Preprocessor_Define     a_Preprocessor_Define
    #define Preprocessor_define0    a_Preprocessor_define0
    #define Preprocessor_define1    a_Preprocessor_define1
    #define Preprocessor_define2    a_Preprocessor_define2
    #define Preprocessor_define3    a_Preprocessor_define3
#endif

class_(a_Preprocessor_Define) { a_SetElm elm[1]; char *q; intptr_t n; };
a_static void a_Preprocessor_define1(a_VecChr *tmp, a_Token0 *t0, a_VecChr *args, int c);

a_static void a_Preprocessor_define0(a_Set0 *set, a_Token0 *t0, a_VecChr *linBuf, int c)
// #defineの登録処理. 
{
    a_VecChr args[1], tmp[1]; a_VecChr_ini4(args, tmp, 0, 0);
    char *k = a_Token1_get(t0);
    intptr_t kn = t0->len, argsN = 0xff;
    if (k[kn] == '(') {
        t0->s++; a_parseArgs(t0, args);
        if (t0->len == 0) goto fin;
        argsN = args->n / (2 * sizeof (char *));
    }
    char *t = a_Token1_get(t0);
    a_VecChr_resize(_arg_  tmp, linBuf->p + linBuf->n - t);
    memcpy(tmp->p, t, tmp->n);
    a_Preprocessor_define1(tmp, t0, args, c);
    a_Preprocessor_Define *d = a_malloc(_arg_  sizeof (a_Preprocessor_Define));
    d->elm->k = a_malloc(_arg_  kn + 1);
    d->elm->n = kn + 1;
    ((unsigned char *) d->elm->k)[0] = argsN;
    memcpy((char *) d->elm->k + 1, k, kn);
    d->q = a_malloc(_arg_  tmp->n);
    d->n = tmp->n;
    memcpy(d->q, tmp->p, tmp->n);
    a_Set0_add(set, d->elm);
fin:
    a_VecChr_din4(args, tmp, 0, 0);
}

a_static void a_Preprocessor_define1(a_VecChr *tmp, a_Token0 *t0, a_VecChr *args, int c)
// #defineの引数を [01 01] とか [01 02] などに置換する.
{
    int i, n = args->n / (2 * sizeof (char *));
    a_Set0 set[1]; Set0_ini(set); SetElm elm[256];
    char mark[2]; mark[0] = c;
    char **ap = (char **) args->p, *t;
    if (n + c > 256) errExit("Preprocessor_define1: too many args (c=%d, n=%d)", c, n);
    for (i = 0; i < n; i++) {
        elm[i].k = ap[i * 2];
        elm[i].n = ap[i * 2 + 1] - ap[i * 2];
        a_Set0_add(set, &elm[i]);
    }
    t0->s = tmp->p; t0->s1 = tmp->p + tmp->n;
    for (;;) {
        t = a_Token1_get(t0);
        if (t0->len == 0) break;
        if (t0->len >= 2 && t[0] == '/' && t[1] == '/') {
            tmp->n = t - tmp->p; // コメントが後続しているならそこから打ち切る。
            break;
        }
    }
    while (tmp->n > 0 && ((unsigned char *) tmp->p)[tmp->n - 1] <= ' ') tmp->n--;
    t0->s = tmp->p; t0->s1 = tmp->p + tmp->n;
    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] = c + (e - elm);
            intptr_t pos0 = t - tmp->p;
            a_VecChr_replace(tmp, pos0, t0->len, mark, 2); // 変数名を [01 xx] に置換.
            t0->s = tmp->p + pos0 + t0->len;
            t0->s1 = tmp->p + tmp->n;
        }
    }
    a_Set0_din(set);
}

a_static void a_Preprocessor_define2(a_Set0 *set, a_Token0 *t0, a_VecChr *linBuf, int c)
// 一般行に対して#defineの登録内容を適用する.
{
    a_VecChr args[1], tmp[1]; VecChr_ini4(args, tmp, 0, 0);
    char *p = linBuf->p;
    for (t0->s = p;;) {
        char *t = a_Token1_get(t0);
        if (t0->len == 0) 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 < linBuf->n && p[pos1] <= ' ') pos1++;
            a_VecChr_replace(linBuf, pos0, pos1 - pos0, NULL, 0); // 長さ0文字の文字列と置換することで削除を実現.
            t0->s = p;
            t0->s1 = p + linBuf->n;
            continue;
        }
        if (t0->cTyp != 3) continue;
        intptr_t kn = t0->len + 1;
        unsigned char *k = a_malloc(_arg_  kn);
        memcpy(k + 1, t, kn); k[0] = 0xff;
        intptr_t pos0 = t - p;
        a_Preprocessor_Define *d = a_Set0_findKn(set, k, kn); // 引数なしマクロで一致するものはあるか？.
        if (d != NULL) {
            a_VecChr_replace(linBuf, pos0, t0->len, d->q, d->n); // 置換する.
nxt:
            p = linBuf->p;
            t0->s = p + pos0;
            t0->s1 = p + linBuf->n;
            a_free(_arg_  k, kn);
            continue;
        }
        if (t[t0->len] == '(') {
            const char *t0s = t0->s++;
            t = a_parseArgs(t0, args);
            k[0] = args->n / (2 * sizeof (char *));
            d = a_Set0_findKn(set, k, kn); // 引数付きマクロで一致するものはあるか？.
            if (d != NULL) {
                a_VecChr_resize(_arg_  tmp, d->n);
                memcpy(tmp->p, d->q, d->n);
                for (;;) {
                    p = memchr(tmp->p, c, tmp->n);
                    if (p == NULL) break;
                    int i = ((unsigned char *) p)[1] - c;
                    char **ap = (char **) args->p;
                    a_VecChr_replace(tmp, p - tmp->p, 2, ap[i * 2], ap[i * 2 + 1] - ap[i * 2]); // 引数を代入.
                }
                a_VecChr_replace(linBuf, pos0, t + 1 - (linBuf->p + pos0), tmp->p, tmp->n); // 置換する.
                goto nxt;
            }
            t0->s = t0s;
        }
        a_free(_arg_  k, kn);
    }
    a_VecChr_din4(args, tmp, 0, 0);
}

a_static void a_Preprocessor_define3(Set0 *set)
{
    intptr_t i, n = set->tbl->n / sizeof (a_Preprocessor_Define *);
    a_Preprocessor_Define **tbl = (a_Preprocessor_Define **) set->tbl->p;
    for (i = 0; i < n; i++) {
        a_free(_arg_  (char *) tbl[i]->elm->k, tbl[i]->elm->n);
        a_free(_arg_  tbl[i]->q, tbl[i]->n);
        a_free(_arg_  tbl[i], sizeof (a_Preprocessor_Define));
    }
    a_Set0_din(set);
}
↑

(99) 更新履歴

トップ   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS