a22_txt03_1a のバックアップ(No.3)

バックアップ一覧
差分を表示
現在との差分を表示
ソースを表示
a22_txt03_1a へ行く。
- 1 (2022-06-22 (水) 01:47:09)
- 2 (2022-06-22 (水) 02:16:03)
- 3 (2022-06-22 (水) 12:43:03)
- 4 (2022-06-22 (水) 19:57:33)
- 5 (2022-06-22 (水) 23:13:31)
- 6 (2022-06-22 (水) 23:13:31)
- 7 (2022-06-24 (金) 01:16:59)
- 8 (2022-06-24 (金) 02:16:39)

「10日くらいでできる！プログラミング言語自作入門」の続編#2-1a (HL-30a)

(by K, 2022.06.22)

↑

(1) 今回の改造テーマ

a22_txt03の続きで、今回は小数の計算をやりたいと思います。
いきなりたくさんやると大変なので、とりあえず代入処理と、二項演算子の四則演算だけを考えます。

↑

(2-1) isInt(), isDbl() の追加

before:

enum { TypInt, TypDbl };
AInt varTyp[MAX_TC + 1]; // そのトークンは、int型か、double型か?
AInt var[MAX_TC + 1];	// int変数.
double varDbl[MAX_TC + 1]; // double変数.

after:

enum { TypInt, TypDbl };
AInt varTyp[MAX_TC + 1]; // そのトークンは、int型か、double型か?
AInt var[MAX_TC + 1];	// int変数.
double varDbl[MAX_TC + 1]; // double変数.

int isInt(int i) { return varTyp[i] == TypInt; }
int isDbl(int i) { return varTyp[i] == TypDbl; }

↑

(2-2) double用の一時変数を整備(1)

before:

enum { TcSemi = 0, TcDot, TcWiCard, Tc0, Tc1, Tc2, Tc3, Tc4, Tc5, Tc6, Tc7, Tc8, TcBrOpn, TcBrCls, TcSqBrOpn, TcSqBrCls, TcCrBrOpn, TcCrBrCls,
    TcEEq, TcNEq, TcLt, TcGe, TcLe, TcGt, TcPlus, TcMinus, TcAster, TcSlash, TcPerce, TcAnd, TcShr, TcPlPlus, TcEqu,
    TcComma, TcExpr, TcExpr0, TcTmp0, TcTmp1, TcTmp2, TcTmp3, TcTmp4, TcTmp5, TcTmp6, TcTmp7, TcTmp8, TcTmp9 };

char tcInit[] = "; . !!* 0 1 2 3 4 5 6 7 8 ( ) [ ] { } == != < >= <= > + - * / % & >> ++ = , !!** !!*** _t0 _t1 _t2 _t3 _t4 _t5 _t6 _t7 _t8 _t9"

after:

enum { TcSemi = 0, TcDot, TcWiCard, Tc0, Tc1, Tc2, Tc3, Tc4, Tc5, Tc6, Tc7, Tc8, TcBrOpn, TcBrCls, TcSqBrOpn, TcSqBrCls, TcCrBrOpn, TcCrBrCls,
    TcEEq, TcNEq, TcLt, TcGe, TcLe, TcGt, TcPlus, TcMinus, TcAster, TcSlash, TcPerce, TcAnd, TcShr, TcPlPlus, TcEqu,
    TcComma, TcExpr, TcExpr0, TcTmp0, TcTmp1, TcTmp2, TcTmp3, TcTmp4, TcTmp5, TcTmp6, TcTmp7, TcTmp8, TcTmp9,
    TcTmpDbl0, TcTmpDbl1, TcTmpDbl2, TcTmpDbl3, TcTmpDbl4, TcTmpDbl5, TcTmpDbl6, TcTmpDbl7, TcTmpDbl8, TcTmpDbl9 };

char tcInit[] = "; . !!* 0 1 2 3 4 5 6 7 8 ( ) [ ] { } == != < >= <= > + - * / % & >> ++ = , !!** !!*** _t0 _t1 _t2 _t3 _t4 _t5 _t6 _t7 _t8 _t9"
    " _td0 _td1 _td2 _td3 _td4 _td5 _td6 _td7 _td8 _td9";

↑

(2-3) double用の一時変数を整備(2)

before:

char tmp_flag[10];

int tmpAlloc()
{
    int i;
    for (i = 0; i < 10; i++) {
        if (tmp_flag[i] == 0) break;
    }
    if (i >= 10) {
        printf("tmpAlloc: error\n");
        return -1;
    }
    tmp_flag[i] = 1;
    return i + TcTmp0;
}

void tmpFree(int i)
{
    if (TcTmp0 <= i && i <= TcTmp9) {
        tmp_flag[i - TcTmp0] = 0;
    }
}

after:

char tmp_flag[10], tmpDbl_flag[10];

int tmpAlloc()
{
    int i;
    for (i = 0; i < 10; i++) {
        if (tmp_flag[i] == 0) break;
    }
    if (i >= 10) {
        printf("tmpAlloc: error\n");
        return -1;
    }
    tmp_flag[i] = 1;
    return i + TcTmp0;
}

int tmpAllocDbl()
{
    int i;
    for (i = 0; i < 10; i++) {
        if (tmpDbl_flag[i] == 0) break;
    }
    if (i >= 10) {
        printf("tmpAllocDbl: error\n");
        return -1;
    }
    tmpDbl_flag[i] = 1;
    varTyp[i] = TypDbl;
    return i + TcTmpDbl0;
}

void tmpFree(int i)
{
    if (TcTmp0 <= i && i <= TcTmp9) {
        tmp_flag[i - TcTmp0] = 0;
    }
    if (TcTmpDbl0 <= i && i <= TcTmpDbl9) {
        tmpDbl_flag[i - TcTmpDbl0] = 0;
    }
}

↑

(2-4) exprSub1Dbl()関数を追加

exprSub1()関数の後あたりに、以下を追加。

int intToDbl(int i)
{
    if (isDbl(i) || i < 0) return i; // 最初からdoubleなら何もしない、エラーなら何もしない。
    int k = tmpAllocDbl();
    putIc(OpIntToDbl, varP(k), varP(i), 0, 0);
    tmpFree(i);
    return k;
}

int exprSub1Dbl(int i, int priority, int op)	// 二項演算子の処理の標準形.
{
    int j, k;
    epc++;
    i = intToDbl(i);
    j = intToDbl(exprSub(priority));
    k = tmpAllocDbl();
    putIc(op, varP(k), varP(i), varP(j), 0);
    tmpFree(i);
    tmpFree(j);
    if (i < 0 || j < 0) return -1;
    return k;
}

（以下編集中）

↑

次回に続く

次回: a22_txt03_1b

↑

こめんと欄

コメント	お名前	NameLink