Commit: 78cdb09623dbbe94001c56e078c809a92af1a17e - kmbasic2 (git)

BASIC compiler/interpreter for PIC32MX/MZ-80K

Commit MetaInfo

• Révision: 78cdb09623dbbe94001c56e078c809a92af1a17e (tree)
• l'heure: 2019-02-18 09:24:53
• Auteur: Katsumi <kmorimatsu@sour...>
• Commiter: Katsumi

Message de Log

Update zoea.

Change Summary

• modified: mips/zoea/class.c
• modified: mips/zoea/class.txt
• modified: mips/zoea/debug.c
• modified: mips/zoea/file.c
• modified: mips/zoea/help.txt
• modified: mips/zoea/main.h
• modified: mips/zoea/memory.c

Modification

--- a/mips/zoea/class.c
+++ b/mips/zoea/class.c
@@ -790,6 +790,7 @@ char* static_method(char type){
 	// Check class name
 	i=check_var_name();
 	if (i<65536) return ERR_SYNTAX;
+	record[0]=i;
 	// Check if the class exists
 	cmpdata_reset();
 	while(data=cmpdata_find(CMPDATA_CLASS)){
@@ -799,7 +800,6 @@ char* static_method(char type){
 			break;
 		}
 	}
-	record[0]=i;
 	// Check '::'
 	if (g_source[g_srcpos]!=':') return ERR_SYNTAX;
 	g_srcpos++;
@@ -844,7 +844,7 @@ char* static_method(char type){
 		                                                        // label2:	
 	// Register CMPDATA if required.
 	if (!data) {
-		cmpdata_insert(CMPDATA_UNSOLVED,CMPTYPE_STATIC_METHOD,(int*)record[0],3);
+		cmpdata_insert(CMPDATA_UNSOLVED,CMPTYPE_STATIC_METHOD,(int*)&record[0],3);
 		g_allow_shift_obj=0;
 	}
 	// Remove stack

--- a/mips/zoea/class.txt
+++ b/mips/zoea/class.txt
@@ -119,8 +119,8 @@ DELETEするだけではこれらの領域は破棄されません。その場
 ＜フィールドへのアクセス方法＞
 
 パブリックフィールドへアクセスする場合は、オブジェクトを含む変数に続けて「.」と
-フィールド名を記述して下さい。フィールドが文字列の場合は「$」を後ろに付けて下さ
-い。
+フィールド名を記述して下さい。フィールドが文字列の場合は「$」を、実数の場合は
+「#」を、それぞれ後ろに付けて下さい。
 
 記述例：
 　USECLASS CLASS1
@@ -132,8 +132,8 @@ DELETEするだけではこれらの領域は破棄されません。その場
 
 パブリックメソッドへアクセスする場合は、オブジェクトを含む変数に続けて「.」と
 メソッド名、続けて「( )」を記述して下さい。メソッドが戻り値として文字列を返す場
-合、メソッド名の後ろに「$」を付けて下さい。メソッドは関数と同じ扱いですが、戻
-り値を利用しない場合は、CALL命令により呼び出す事も出来ます。
+合、メソッド名の後ろに「$」を付けて下さい（実数の場合は「#」）。メソッドは関数
+と同じ扱いですが、戻り値を利用しない場合は、CALL命令により呼び出す事も出来ます。
 
 CALL x
 	xで指定されたオブジェクトのメソッドを呼び出す。

--- a/mips/zoea/debug.c
+++ b/mips/zoea/debug.c
@@ -32,7 +32,8 @@ const unsigned char _debug_filename[] __attribute__((address(FILENAME_FLASH_ADDR
 
 static const char initext[];
 static const char bastext[];
-static const char classtext[];
+static const char class1text[];
+static const char class2text[];
 
 static char* readtext;
 static int filepos;
@@ -130,10 +131,12 @@ FSFILE* FSfopen(const char * fileName, const char *mode){
 		// INI file
 		readtext=(char*)&initext[0];
 	} else if (fileName[i+1]=='B' && fileName[i+2]=='A' && fileName[i+3]=='S') {
-		// BAS file
+		// Select BAS file
 		if (fileName[i-6]=='C' && fileName[i-5]=='L' && fileName[i-4]=='A' &&
-			fileName[i-3]=='S' && fileName[i-2]=='S' && fileName[i-1]=='1') {
-			readtext=(char*)&classtext[0];
+			fileName[i-3]=='S' && fileName[i-2]=='S') {
+			if (fileName[i-1]=='1') readtext=(char*)&class1text[0];
+			else if (fileName[i-1]=='2') readtext=(char*)&class2text[0];
+			else readtext=(char*)&bastext[0];
 		} else {
 			readtext=(char*)&bastext[0];
 		}
@@ -228,19 +231,39 @@ static const char initext[]=
 static const char bastext[]=
 "USECLASS CLASS1\n"
 "CLS\n"
-"a=new(CLASS1)\n"
-"print a.T3()\n"
-"\n"
-"\n"
-"\n"
+"dim o(9)\n"
+"for j=1 to 100\n"
+" cursor 0,0\n"
+" for i=1 to 9\n"
+"   o(i)=new(CLASS1)\n"
+" next\n"
+" for i=1 to 9\n"
+"  a=o(i)\n"
+"  print hex$(a),\n"
+"  delete a\n"
+" next\n"
+"next\n"
 "\n"
 "\n"
 "\n";
 
+static const char class1text[]=
+"STATIC T1\n"
+"useclass CLASS2\n"
+"method T3\n"
+" return CLASS2::T2\n"
+"method T5\n"
+" return T1\n"
+"\n"
+"\n";
 
-static const char classtext[]=
-"METHOD T3\n"
-" return 123\n"
+static const char class2text[]=
+"STATIC T2\n"
+"useclass CLASS1\n"
+"method T4\n"
+" return CLASS1::T1\n"
+"method T6\n"
+" return T2\n"
 "\n"
 "\n"
 "\n"

--- a/mips/zoea/file.c
+++ b/mips/zoea/file.c
@@ -109,7 +109,7 @@ char* compile_file(){
 }
 
 int compile_and_link_file(char* buff,char* appname){
-	int i;
+	int i,j;
 	char* err;
 
 	while(1){
@@ -129,7 +129,9 @@ int compile_and_link_file(char* buff,char* appname){
 
 		// If compiling a class file is required, do it.
 		if (err==ERR_COMPILE_CLASS) {
+			j=g_compiling_class;
 			i=compile_and_link_class(buff, g_class);
+			g_compiling_class=j;
 			if (i) return i;
 			// Continue compiling current file from the beginning.
 			continue;

--- a/mips/zoea/help.txt
+++ b/mips/zoea/help.txt
@@ -127,6 +127,12 @@ PCG x,y,z
 	ターデーター。詳細は、下記<PCG>の項を参照。
 POKE x,y
 	xで示される物理的アドレスに、yで示される値(１バイト値)を書き込む。
+PEEK16(x)
+	xで示される物理アドレスに、yで示される値(16ビット値)を書き込む。xが奇数値の
+	場合、例外停止するので注意。
+PEEK32(x)
+	xで示される物理アドレスに、yで示される値(32ビット値)を書き込む。xが４の倍数で
+	無い場合、例外停止するので注意。
 PRINT [ xまたはx$またはx# [ ,または; [ yまたはy$またはy# [ ... ]]]]
 	ディスプレイに、整数値または文字列を表示する。「;」を使用した場
 	合、次の表示が続けて行われる。「,」を使用した場合、１０文字ずつ
@@ -237,8 +243,11 @@ FSEEK x
 ABS(x)
 	xの絶対値を返す。
 ARGS(x)
-	サブルーチン中で、GOSUBに渡されたx番目の引数を整数値として取り出す。x=0の場
-	合、引数の数を返す(引数がない時は、0)。
+	サブルーチン中で、GOSUBもしくはメソッドに渡されたx番目の引数を整数値として取
+	り出す。但し、
+		ARGS(0)は、引数の数を返す。
+		ARGS(-1)は、一つ前に使われた引数を格納する配列へのポインターを返す。
+		ARGS(-2)は、クラスで用いられた場合、オブジェクトへのポインターを返す。
 ASC(x$)
 	文字列の最初の一文字の、アスキーコードを返す。
 CREAD()
@@ -285,6 +294,12 @@ NOT(x)
 	x=0の場合に１を、そうでない場合に０を返す。
 PEEK(x)
 	xで示される物理アドレスから１バイト読み取り、返す。
+PEEK16(x)
+	xで示される物理アドレスから２バイト読み取り、16ビット値で返す。xが奇数値の場
+	合、例外停止するので注意。
+PEEK32(x)
+	xで示される物理アドレスから４バイト読み取り、32ビット値で返す。xが４の倍数で
+	無い場合、例外停止するので注意。
 PLAYWAVE([x])
 	xを指定しない場合、もしくは０を指定した場合、再生中のWAVEファイルの残りサン
 	プリング数を返す。１を指定した場合、現在再生中のサンプリング番号を、２を指
@@ -310,7 +325,8 @@ VAL(x$)
 ACOS#(x#)
 	x# の逆余弦を実数値で返す。
 ARGS#(x)
-	サブルーチン中で、GOSUBに渡されたx番目の引数を実数値として取り出す。
+	サブルーチン中で、GOSUBもしくはメソッドに渡されたx番目の引数を実数値として取
+	り出す。
 ASIN#(x#)
 	x# の逆正弦を実数値で返す。
 ATAN#(x#)
@@ -367,7 +383,8 @@ A$(x [,y])など
 	xの値が負のとき、文字列の右側x文字を返す。
 	yが指定された場合、y文字分の文字列を返す。
 ARGS$(x)
-	サブルーチン中で、GOSUBに渡されたx番目の引数を文字列として取り出す。
+	サブルーチン中で、GOSUBもしくはメソッドに渡されたx番目の引数を文字列として取
+	り出す。
 CHR$(x)
 	xをアスキーコードとする文字を返す。
 DEC$(x)
@@ -394,6 +411,8 @@ READ$()
 	DATA文の後から、一つずつ文字列データーを読み出す。
 
 ＜整数演算子＞
+&x
+	変数xの格納アドレス(ポインター)
 -x
 	符号を反転
 x + y
@@ -431,7 +450,7 @@ x XOR y
 
 なお、整数演算子の優先順位は、優先度が高いものから以下の順です。
 
-+ - (単項演算子)
++ - (単項演算子) &
 * / %
 + - (加算・減算)
 << >>
@@ -608,6 +627,10 @@ FIELD [PUBLIC] x[,y[,z[, ... ]]]
 FIELD PRIVATE x[,y[,z[, ... ]]]
 	クラスファイル中で、プライベートフィールドを宣言する。x,y,z等はフィールド
 	名を6文字以内の英数字で指定。
+STATIC [PUBLIC] x[,y[,z[, ... ]]]
+	クラスファイル中で、パブリックスなタティック変数を宣言する。"PUBLIC"は省略可。
+STATIC PRIVATE x[,y[,z[, ... ]]]
+	クラスファイル中で、プライベートなスタティック変数を宣言する。USEVARと同じ。
 METHOD x
 	クラスファイル中で、メソッドを宣言する。xは、メソッド名を6文字以内の英
 	数字で指定。
@@ -620,10 +643,10 @@ CALL x
 	xで指定されたオブジェクトのメソッドを呼び出す。
 
 ＜ヒント＞
-FOR-NEXTループ、WHILE-WENDループ、DO-LOOPループの途中で、GOTO文でループの
-外に飛んだり、RETURN文を実行したりすると、予期せぬ結果（機器のリセット等）を
-引き起こします。ただし、GOSUB文でサブルーチンを呼んだり、別のループをネスト
-して使う事は可能です。
+KM-1207以降、FOR-NEXTループ、WHILE-WENDループ、DO-LOOPループの途中で、
+RETURN文が使えるようになりました。ただし、GOTO文でループの外に飛ぶと、予期せぬ結
+果（機器のリセット等）を引き起こします。ただし、GOSUB文でサブルーチンを呼んだり、別の
+ループをネストして使う事は可能です。
 
 ON GOTO分やON GOSUB文はサポートしていません。ただし、例えば次のように記述す
 ることで、同様の動作をさせることは可能です。
@@ -639,11 +662,12 @@ ON GOTO分やON GOSUB文はサポートしていません。ただし、例え
 てみて下さい。
 
 ＜バージョン履歴＞
-・KM-1207 20xx年x月公開。
-TODO:
-　１．PUTBMPの第５引数に長文字変数が使えないとのバグ報告有り。
-
-
+・KM-1207 2019年x月公開。
+　１．PUTBMPの第５引数に長い名前の変数が使えなかったバグの修正
+　２．オブジェクト指向プログラミングに対応
+　３．args(0)で引数の数を取得できるようにした
+　４．POKE16, POKE32, PEEK16(), PEEK32()を追加
+　５．&演算子を追加
 ・KM-1206 2018年8月公開。
 　１．WAVEファイルの再生に対応。
 ・KM-1205 2018年2月公開。

--- a/mips/zoea/main.h
+++ b/mips/zoea/main.h
@@ -8,7 +8,7 @@
 #define ZOEA
 #define SYSVER1 "Zoea"
 #define SYSVER2 "1.08"
-#define BASVER "KM-1206"
+#define BASVER "KM-1207"
 
 #define INIFILE "MACHIKAZ.INI" // 初期設定ファイル
 #define HEXFILE "MACHIKAZ.HEX" // 実行中HEXファイル名がこれと一致した場合はエディタ起動

--- a/mips/zoea/memory.c
+++ b/mips/zoea/memory.c
@@ -26,22 +26,33 @@
 */
 
 static int g_temp_var_num_candidate=ALLOC_PERM_BLOCK;
-static int g_last_deleted_pointer;
-static int g_last_deleted_size=0;
 
-#define register_deleted_block(x,y) \
-	do {\
-		g_last_deleted_pointer=(x);\
-		g_last_deleted_size=(y);\
-	} while(0)
+#define DELETE_LIST_SIZE 10
+static int g_deleted_num;
+static int g_deleted_pointer[DELETE_LIST_SIZE];
+static int g_deleted_size[DELETE_LIST_SIZE];
+
+void register_deleted_block(int pointer, int size){
+	// There is maximum
+	if (DELETE_LIST_SIZE<=g_deleted_num) return;
+	if (g_deleted_num) {
+		// Avoid duplication
+		if (g_deleted_pointer[g_deleted_num-1]==pointer) return;
+	}
+	g_deleted_pointer[g_deleted_num]=pointer;
+	g_deleted_size[g_deleted_num]=size;
+	g_deleted_num++;
+} 
 
 void set_free_area(void* begin, void* end){
+	// Initialize heap area
 	int i;
 	for(i=0;i<ALLOC_BLOCK_NUM;i++){
 		g_var_size[i]=0;
 	}
 	g_heap_mem=(int*)begin;
 	g_max_mem=(int)((end-begin)/4);
+	g_deleted_num=0;
 }
 
 void* calloc_memory(int size, int var_num){
@@ -97,14 +108,23 @@ void* _alloc_memory_main(int size, int var_num){
 	g_var_size[var_num]=0;
 	g_var_pointer[var_num]=0;
 	while(1){
-		// Try the block previously deleted
-		if (size<=g_last_deleted_size) {
-			g_last_deleted_size=0;
-			candidate=g_last_deleted_pointer;
-			break;
-		} else {
-			// Last deleted block is a candidate only once
-			g_last_deleted_size=0;
+		// Try the block previously deleted, not for temporary block.
+		// This is for fast allocation of memory for class object.
+		if (var_num<26 || ALLOC_VAR_NUM<=var_num) {
+			candidate=0;
+			while(g_deleted_num){
+				// Check if the last deleted block fits
+				// If not, these cannot be used anymore
+				g_deleted_num--;
+				if (size<=g_deleted_size[g_deleted_num]) {
+					candidate=g_deleted_pointer[g_deleted_num];
+					break;
+				}
+			}
+			if (candidate || g_deleted_num) {
+				// Candidate found
+				break;
+			}
 		}
 		// Try the block after last block
 		candidate=0;
@@ -114,7 +134,29 @@ void* _alloc_memory_main(int size, int var_num){
 				candidate=g_var_pointer[i]+g_var_size[i];
 			}
 		}
-		if (candidate+size<=g_max_mem) break;
+		if (candidate+size<=g_max_mem) {
+			// Check after deleted block
+			j=candidate;
+			for(i=0;i<g_deleted_num;i++){
+				if (j<g_deleted_pointer[i]+g_deleted_size[i]) {
+					j=g_deleted_pointer[i]+g_deleted_size[i];
+				}
+			}
+			if (j+size<=g_max_mem) {
+				// Candidate block found after previously deleted blokcs
+				candidate=j;
+				break;
+			} else {
+				// Candidate is before previously deleted blocks,
+				// and there is no candidate block after previously deleted blocks.
+				// Therefore, use the current candidate, which may invade previously
+				// deleted blocks. Therefore, erase the previously deleted blocks list.
+				g_deleted_num=0;
+				break;
+			}
+		}
+		// Peviously deleted blocks cannot be used any more
+		g_deleted_num=0;
 		// Check between blocks
 		// Note that there is at least one block with zero pointer and zero size (see above).
 		for(i=0;i<ALLOC_BLOCK_NUM;i++){
@@ -178,7 +220,7 @@ void free_non_temp_str(char* str){
 		}
 	}
 	for(i=ALLOC_VAR_NUM;i<ALLOC_BLOCK_NUM;i++){
-		if (g_var_pointer[i]==pointer && g_var_size[i]) {
+		if (g_var_pointer[i]==pointer) {
 			if (g_var_size[i] && g_var_mem[i]==(int)str) {
 				register_deleted_block(pointer,g_var_size[i]);
 				g_var_size[i]=0;