a22_txt03_1b
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
* 「10日くらいでできる！プログラミング言語自作入門」の続...
-(by [[K]], 2022.06.24)
** (1) 今回の改造テーマ
-[[a22_txt03_1a]]の続きで、今回はdouble型の変数を利用でき...
** (2-1) dblToInt()関数の追加、ついでにOpCpyDblも追加
-intToDbl()関数の直後あたりに以下を追記。
int dblToInt(int i)
{
if (isInt(i) || i < 0) return i; // 最初からintなら...
int k = tmpAlloc();
putIc(OpDblToInt, varP(k), varP(i), 0, 0);
tmpFree(i);
return k;
}
-OpIntToDblの宣言の後にOpDblToIntとOpCpyDblを追加。
enum { OpCpy = 0, OpCeq, OpCne, OpClt, OpCge, OpCle, OpC...
OpAdd1, OpNeg, OpGoto, OpJeq, OpJne, OpJlt, OpJge, O...
OpPrints, OpAryNew, OpAryInit, OpArySet, OpAryGet, O...
OpXorShift, OpGetPix, OpFilRct0, OpPrm, OpF16Sin, Op...
OpPrintd, OpAddDbl, OpSubDbl, OpMulDbl, OpDivDbl, Op...
-case OpIntToDbl:の後に以下を追加。
case OpDblToInt: *icp[1] = *icpd[2]; ...
case OpCpyDbl: *icpd[1] = *icpd[2]; ...
** (2-2) 代入処理を改造する
-before:
} else if (tc[epc] == TcEqu && priority >= 15) {
epc++;
e0 = exprSub(15); // 右結合なので15のまま.
putIc(OpCpy, &var[i], &var[e0], 0, 0);
-after:
} else if (tc[epc] == TcEqu && priority >= 15) {
epc++;
e0 = exprSub(15); // 右結合なので15のまま.
if (isInt(i)) {
e0 = dblToInt(e0);
putIc(OpCpy, varP(i), varP(e0), 0, 0);
} else {
e0 = intToDbl(e0);
putIc(OpCpyDbl, varP(i), varP(e0), 0, 0);
}
** (2-3) int用の構文にdoubleが適合しないようにする
-before:
if (phrCmp( 1, "!!*0 = !!*1;", pc)) { // 単純代入.
putIc(OpCpy, &var[tc[wpc[0]]], &var[tc[wpc[...
} else if (phrCmp(10, "!!*0 = !!*1 + 1; if (!!*2...
putIc(OpLop, &var[tc[wpc[4]]], &var[tc[wpc[0...
} else if (phrCmp( 9, "!!*0 = !!*1 + 1;", pc) &&...
putIc(OpAdd1, &var[tc[wpc[0]]], 0, 0, 0);
} else if (phrCmp( 2, "!!*0 = !!*1 !!*2 !!*3;", ...
putIc(tc[wpc[2]] - TcEEq + OpCeq, &var[tc[w...
-after:
if (phrCmp( 1, "!!*0 = !!*1;", pc) && isInt(tc[w...
putIc(OpCpy, &var[tc[wpc[0]]], &var[tc[wpc[...
} else if (phrCmp(10, "!!*0 = !!*1 + 1; if (!!*2...
putIc(OpLop, &var[tc[wpc[4]]], &var[tc[wpc[0...
} else if (phrCmp( 9, "!!*0 = !!*1 + 1;", pc) &&...
putIc(OpAdd1, &var[tc[wpc[0]]], 0, 0, 0);
} else if (phrCmp( 2, "!!*0 = !!*1 !!*2 !!*3;", ...
putIc(tc[wpc[2]] - TcEEq + OpCeq, &var[tc[w...
** (2-4) 変数の型宣言命令に対応
-before:
} else if (phrCmp(33, "int", pc) || phrCmp(34, "...
while (tc[pc] != TcSemi)
pc++;
ppc1 = pc;
-after:
} else if (phrCmp(33, "int", pc) || phrCmp(34, "...
pc++;
while (tc[pc] != TcSemi) {
if (tc[pc] != TcComma)
varTyp[tc[pc]] = TypInt;
pc++;
}
ppc1 = pc;
} else if (phrCmp(36, "double", pc)) {
pc++;
while (tc[pc] != TcSemi) {
if (tc[pc] != TcComma)
varTyp[tc[pc]] = TypDbl;
pc++;
}
ppc1 = pc;
** (2-5) （おまけ）型変換（キャスト）に対応
-before:
if (phrCmp(99, "( !!**0 )", epc)) { // かっこ.
i = expr(0);
} else if (tc[epc] == TcPlPlus) { // 前置インクリメ...
-after:
if (phrCmp(80, "(int)", epc)) {
epc = ppc1;
ppc1 = 0;
i = exprSub(3);
i = dblToInt(i);
} else if (phrCmp(81, "(double)", epc)) {
epc = ppc1;
ppc1 = 0;
i = exprSub(3);
i = intToDbl(i);
} else if (phrCmp(99, "( !!**0 )", epc)) { // かっこ.
i = expr(0);
} else if (tc[epc] == TcPlPlus) { // 前置インクリメ...
** (3) テスト
>double a; a = 1; printd a;
1.000000
>printd 10 / (double) 3
3.333333
** 次回に続く
次回: ''a22_txt03_2''
*こめんと欄
#comment
終了行:
* 「10日くらいでできる！プログラミング言語自作入門」の続...
-(by [[K]], 2022.06.24)
** (1) 今回の改造テーマ
-[[a22_txt03_1a]]の続きで、今回はdouble型の変数を利用でき...
** (2-1) dblToInt()関数の追加、ついでにOpCpyDblも追加
-intToDbl()関数の直後あたりに以下を追記。
int dblToInt(int i)
{
if (isInt(i) || i < 0) return i; // 最初からintなら...
int k = tmpAlloc();
putIc(OpDblToInt, varP(k), varP(i), 0, 0);
tmpFree(i);
return k;
}
-OpIntToDblの宣言の後にOpDblToIntとOpCpyDblを追加。
enum { OpCpy = 0, OpCeq, OpCne, OpClt, OpCge, OpCle, OpC...
OpAdd1, OpNeg, OpGoto, OpJeq, OpJne, OpJlt, OpJge, O...
OpPrints, OpAryNew, OpAryInit, OpArySet, OpAryGet, O...
OpXorShift, OpGetPix, OpFilRct0, OpPrm, OpF16Sin, Op...
OpPrintd, OpAddDbl, OpSubDbl, OpMulDbl, OpDivDbl, Op...
-case OpIntToDbl:の後に以下を追加。
case OpDblToInt: *icp[1] = *icpd[2]; ...
case OpCpyDbl: *icpd[1] = *icpd[2]; ...
** (2-2) 代入処理を改造する
-before:
} else if (tc[epc] == TcEqu && priority >= 15) {
epc++;
e0 = exprSub(15); // 右結合なので15のまま.
putIc(OpCpy, &var[i], &var[e0], 0, 0);
-after:
} else if (tc[epc] == TcEqu && priority >= 15) {
epc++;
e0 = exprSub(15); // 右結合なので15のまま.
if (isInt(i)) {
e0 = dblToInt(e0);
putIc(OpCpy, varP(i), varP(e0), 0, 0);
} else {
e0 = intToDbl(e0);
putIc(OpCpyDbl, varP(i), varP(e0), 0, 0);
}
** (2-3) int用の構文にdoubleが適合しないようにする
-before:
if (phrCmp( 1, "!!*0 = !!*1;", pc)) { // 単純代入.
putIc(OpCpy, &var[tc[wpc[0]]], &var[tc[wpc[...
} else if (phrCmp(10, "!!*0 = !!*1 + 1; if (!!*2...
putIc(OpLop, &var[tc[wpc[4]]], &var[tc[wpc[0...
} else if (phrCmp( 9, "!!*0 = !!*1 + 1;", pc) &&...
putIc(OpAdd1, &var[tc[wpc[0]]], 0, 0, 0);
} else if (phrCmp( 2, "!!*0 = !!*1 !!*2 !!*3;", ...
putIc(tc[wpc[2]] - TcEEq + OpCeq, &var[tc[w...
-after:
if (phrCmp( 1, "!!*0 = !!*1;", pc) && isInt(tc[w...
putIc(OpCpy, &var[tc[wpc[0]]], &var[tc[wpc[...
} else if (phrCmp(10, "!!*0 = !!*1 + 1; if (!!*2...
putIc(OpLop, &var[tc[wpc[4]]], &var[tc[wpc[0...
} else if (phrCmp( 9, "!!*0 = !!*1 + 1;", pc) &&...
putIc(OpAdd1, &var[tc[wpc[0]]], 0, 0, 0);
} else if (phrCmp( 2, "!!*0 = !!*1 !!*2 !!*3;", ...
putIc(tc[wpc[2]] - TcEEq + OpCeq, &var[tc[w...
** (2-4) 変数の型宣言命令に対応
-before:
} else if (phrCmp(33, "int", pc) || phrCmp(34, "...
while (tc[pc] != TcSemi)
pc++;
ppc1 = pc;
-after:
} else if (phrCmp(33, "int", pc) || phrCmp(34, "...
pc++;
while (tc[pc] != TcSemi) {
if (tc[pc] != TcComma)
varTyp[tc[pc]] = TypInt;
pc++;
}
ppc1 = pc;
} else if (phrCmp(36, "double", pc)) {
pc++;
while (tc[pc] != TcSemi) {
if (tc[pc] != TcComma)
varTyp[tc[pc]] = TypDbl;
pc++;
}
ppc1 = pc;
** (2-5) （おまけ）型変換（キャスト）に対応
-before:
if (phrCmp(99, "( !!**0 )", epc)) { // かっこ.
i = expr(0);
} else if (tc[epc] == TcPlPlus) { // 前置インクリメ...
-after:
if (phrCmp(80, "(int)", epc)) {
epc = ppc1;
ppc1 = 0;
i = exprSub(3);
i = dblToInt(i);
} else if (phrCmp(81, "(double)", epc)) {
epc = ppc1;
ppc1 = 0;
i = exprSub(3);
i = intToDbl(i);
} else if (phrCmp(99, "( !!**0 )", epc)) { // かっこ.
i = expr(0);
} else if (tc[epc] == TcPlPlus) { // 前置インクリメ...
** (3) テスト
>double a; a = 1; printd a;
1.000000
>printd 10 / (double) 3
3.333333
** 次回に続く
次回: ''a22_txt03_2''
*こめんと欄
#comment
ページ名:
![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
