a22_txt03_1a
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
* 「10日くらいでできる！プログラミング言語自作入門」の続...
-(by [[K]], 2022.06.22)
** (1) 今回の改造テーマ
-[[a22_txt03]]の続きで、今回は小数の計算をやりたいと思い...
-いきなりたくさんやると大変なので、とりあえず二項演算子の...
** (2-1) isInt(), isDbl() の追加
-before:
enum { TypInt, TypDbl };
AInt varTyp[MAX_TC + 1]; // そのトークンは、int型か、dou...
AInt var[MAX_TC + 1]; // int変数.
double varDbl[MAX_TC + 1]; // double変数.
-after:
enum { TypInt, TypDbl };
AInt varTyp[MAX_TC + 1]; // そのトークンは、int型か、dou...
AInt var[MAX_TC + 1]; // int変数.
double varDbl[MAX_TC + 1]; // double変数.
int isInt(int i) { return i >= 0 && varTyp[i] == TypInt; }
int isDbl(int i) { return i >= 0 && varTyp[i] == TypDbl; }
** (2-2) double用の一時変数を整備(1)
-before:
enum { TcSemi = 0, TcDot, TcWiCard, Tc0, Tc1, Tc2, Tc3, ...
TcEEq, TcNEq, TcLt, TcGe, TcLe, TcGt, TcPlus, TcMinu...
TcComma, TcExpr, TcExpr0, TcTmp0, TcTmp1, TcTmp2, Tc...
char tcInit[] = "; . !!* 0 1 2 3 4 5 6 7 8 ( ) [ ] { } =...
-after:
enum { TcSemi = 0, TcDot, TcWiCard, Tc0, Tc1, Tc2, Tc3, ...
TcEEq, TcNEq, TcLt, TcGe, TcLe, TcGt, TcPlus, TcMinu...
TcComma, TcExpr, TcExpr0, TcTmp0, TcTmp1, TcTmp2, Tc...
TcTmpDbl0, TcTmpDbl1, TcTmpDbl2, TcTmpDbl3, TcTmpDbl...
char tcInit[] = "; . !!* 0 1 2 3 4 5 6 7 8 ( ) [ ] { } =...
" _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 + TcTmpDbl0] = 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) 内部コードに命令を追加
-before:
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 };
-after:
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...
** (2-5) exprSub1()関数を改造
-before:
int exprSub1(int i, int priority, int op) // 二項演算子...
{
int j, k;
epc++;
j = exprSub(priority);
k = tmpAlloc();
putIc(op, &var[k], &var[i], &var[j], 0);
tmpFree(i);
tmpFree(j);
if (i < 0 || j < 0) return -1;
return k;
}
-after:
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 exprSub1(int i, int priority, int op) // 二項演算子...
{
int j, k;
epc++;
int opDbl = 0;
if (op == OpAdd) opDbl = OpAddDbl;
if (op == OpSub) opDbl = OpSubDbl;
if (op == OpMul) opDbl = OpMulDbl;
if (op == OpDiv) opDbl = OpDivDbl;
j = exprSub(priority);
if (opDbl > 0 && (isDbl(i) || isDbl(j))) { // もしど...
i = intToDbl(i);
j = intToDbl(j);
k = tmpAllocDbl();
op = opDbl;
} else {
k = tmpAlloc();
}
putIc(op, varP(k), varP(i), varP(j), 0);
tmpFree(i);
tmpFree(j);
if (i < 0 || j < 0) return -1;
return k;
}
** (2-6) exec()関数に追加
-以下を適当な位置に追加します。
case OpAddDbl: *icpd[1] = *icpd[2] + *icpd[3];...
case OpSubDbl: *icpd[1] = *icpd[2] - *icpd[3];...
case OpMulDbl: *icpd[1] = *icpd[2] * *icpd[3];...
case OpDivDbl: *icpd[1] = *icpd[2] / *icpd[3];...
case OpIntToDbl: *icpd[1] = *icp[2]; ...
** (3) 計算のテスト
>printd 10.0 / 3.0
3.333333
>printd 11.111111 / 9
1.234568
** 次回に続く
次回: [[a22_txt03_1b]]
*こめんと欄
#comment
終了行:
* 「10日くらいでできる！プログラミング言語自作入門」の続...
-(by [[K]], 2022.06.22)
** (1) 今回の改造テーマ
-[[a22_txt03]]の続きで、今回は小数の計算をやりたいと思い...
-いきなりたくさんやると大変なので、とりあえず二項演算子の...
** (2-1) isInt(), isDbl() の追加
-before:
enum { TypInt, TypDbl };
AInt varTyp[MAX_TC + 1]; // そのトークンは、int型か、dou...
AInt var[MAX_TC + 1]; // int変数.
double varDbl[MAX_TC + 1]; // double変数.
-after:
enum { TypInt, TypDbl };
AInt varTyp[MAX_TC + 1]; // そのトークンは、int型か、dou...
AInt var[MAX_TC + 1]; // int変数.
double varDbl[MAX_TC + 1]; // double変数.
int isInt(int i) { return i >= 0 && varTyp[i] == TypInt; }
int isDbl(int i) { return i >= 0 && varTyp[i] == TypDbl; }
** (2-2) double用の一時変数を整備(1)
-before:
enum { TcSemi = 0, TcDot, TcWiCard, Tc0, Tc1, Tc2, Tc3, ...
TcEEq, TcNEq, TcLt, TcGe, TcLe, TcGt, TcPlus, TcMinu...
TcComma, TcExpr, TcExpr0, TcTmp0, TcTmp1, TcTmp2, Tc...
char tcInit[] = "; . !!* 0 1 2 3 4 5 6 7 8 ( ) [ ] { } =...
-after:
enum { TcSemi = 0, TcDot, TcWiCard, Tc0, Tc1, Tc2, Tc3, ...
TcEEq, TcNEq, TcLt, TcGe, TcLe, TcGt, TcPlus, TcMinu...
TcComma, TcExpr, TcExpr0, TcTmp0, TcTmp1, TcTmp2, Tc...
TcTmpDbl0, TcTmpDbl1, TcTmpDbl2, TcTmpDbl3, TcTmpDbl...
char tcInit[] = "; . !!* 0 1 2 3 4 5 6 7 8 ( ) [ ] { } =...
" _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 + TcTmpDbl0] = 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) 内部コードに命令を追加
-before:
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 };
-after:
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...
** (2-5) exprSub1()関数を改造
-before:
int exprSub1(int i, int priority, int op) // 二項演算子...
{
int j, k;
epc++;
j = exprSub(priority);
k = tmpAlloc();
putIc(op, &var[k], &var[i], &var[j], 0);
tmpFree(i);
tmpFree(j);
if (i < 0 || j < 0) return -1;
return k;
}
-after:
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 exprSub1(int i, int priority, int op) // 二項演算子...
{
int j, k;
epc++;
int opDbl = 0;
if (op == OpAdd) opDbl = OpAddDbl;
if (op == OpSub) opDbl = OpSubDbl;
if (op == OpMul) opDbl = OpMulDbl;
if (op == OpDiv) opDbl = OpDivDbl;
j = exprSub(priority);
if (opDbl > 0 && (isDbl(i) || isDbl(j))) { // もしど...
i = intToDbl(i);
j = intToDbl(j);
k = tmpAllocDbl();
op = opDbl;
} else {
k = tmpAlloc();
}
putIc(op, varP(k), varP(i), varP(j), 0);
tmpFree(i);
tmpFree(j);
if (i < 0 || j < 0) return -1;
return k;
}
** (2-6) exec()関数に追加
-以下を適当な位置に追加します。
case OpAddDbl: *icpd[1] = *icpd[2] + *icpd[3];...
case OpSubDbl: *icpd[1] = *icpd[2] - *icpd[3];...
case OpMulDbl: *icpd[1] = *icpd[2] * *icpd[3];...
case OpDivDbl: *icpd[1] = *icpd[2] / *icpd[3];...
case OpIntToDbl: *icpd[1] = *icp[2]; ...
** (3) 計算のテスト
>printd 10.0 / 3.0
3.333333
>printd 11.111111 / 9
1.234568
** 次回に続く
次回: [[a22_txt03_1b]]
*こめんと欄
#comment
ページ名:
![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
