Commit: 155 - kmbasic (svn)

BASIC compiler/interpreter for PIC32MX/MZ-80K (suspended)

Commit MetaInfo

• Revision: 155 (tree)
• Time: 2016-08-24 06:44:27
• Author: kmorimatsu

Log Message

Add ATAN2#() function.

Change Summary

• modified: mips/branches/zoea/compiler.h
• modified: mips/branches/zoea/debug.c
• modified: mips/branches/zoea/function.c
• modified: mips/branches/zoea/help.txt
• modified: mips/branches/zoea/library.c

Incremental Difference

--- mips/branches/zoea/compiler.h	(revision 154)
+++ mips/branches/zoea/compiler.h	(revision 155)
@@ -110,6 +110,7 @@
 	FUNC_ASIN,
 	FUNC_ACOS,
 	FUNC_ATAN,
+	FUNC_ATAN2,
 	FUNC_SINH,
 	FUNC_COSH,
 	FUNC_TANH,

--- mips/branches/zoea/debug.c	(revision 154)
+++ mips/branches/zoea/debug.c	(revision 155)
@@ -139,11 +139,7 @@
 
 static const char bastext[]=
 "CLS\n"
-"for i=1 to 10\n"
-" print i;\n"
-" continue\n"
-" print \"NG\";\n"
-"next\n"
+"print ATAN#(1/2),ATAN2#(1,2),ATAN2#(1,0),ATAN2#(-1,0),\n"
 "\n";
 
 /*

--- mips/branches/zoea/function.c	(revision 154)
+++ mips/branches/zoea/function.c	(revision 155)
@@ -391,6 +391,8 @@
 		err=float_1param_function(FUNC_ACOS);
 	} else if (nextCodeIs("ATAN#(")) {
 		err=float_1param_function(FUNC_ATAN);
+	} else if (nextCodeIs("ATAN2#(")) {
+		err=float_2param_function(FUNC_ATAN2);
 	} else if (nextCodeIs("SINH#(")) {
 		err=float_1param_function(FUNC_SINH);
 	} else if (nextCodeIs("COSH#(")) {

--- mips/branches/zoea/help.txt	(revision 154)
+++ mips/branches/zoea/help.txt	(revision 155)
@@ -37,6 +37,9 @@
 	スクリーン消去。
 COLOR x
 	テキスト色指定。
+CONTINUE
+	FOR-NEXT, DO-LOOP, WHILE-WENDループ中で、以降のコードをスキップす
+	る。
 CURSOR x,y
 	カーソル位置指定。
 CDATA xxx[,yyy[,zzz[...]]]
@@ -247,6 +250,8 @@
 	x# の逆正弦を実数値で返す。
 ATAN#(x#)
 	x# の逆正接を実数値で返す。
+ATAN2#(y#,x#)
+	y#/x# の逆正接を実数値で返す。
 CEIL#(x#)
 	x# 以上の最小の整数を実数値で返す。
 COS#(x#)
@@ -542,6 +547,11 @@
 てみて下さい。
 
 ＜バージョン履歴＞
+・KM-1201 2016年?月公開。
+　１．CONTINUEステートメントを追加。
+　２．ATAN2#()関数を追加。
+　３．IF-THEN-ELSEステートメントでエラーがでる不具合を修正。
+　４．負の実数値の扱いにおける不具合を修正。
 ・KM-1200 2016年8月公開。
 　１．グラフィックディスプレイ機能および、関連のステートメント群を追加。
 　２．浮動小数点演算機能、及び、算術演算関数群を追加。

--- mips/branches/zoea/library.c	(revision 154)
+++ mips/branches/zoea/library.c	(revision 155)
@@ -767,6 +767,9 @@
 		case FUNC_ATAN:
 			v0=atanf(v0);
 			break;
+		case FUNC_ATAN2:
+			v0=atan2f(v0,a0);
+			break;
 		case FUNC_SINH:
 			v0=sinhf(v0);
 			break;