Commit: 34af68baeeaaf193851454f318db9988e2f28047 - kmbasic2 (git)

BASIC compiler/interpreter for PIC32MX/MZ-80K

Commit MetaInfo

• Révision: 34af68baeeaaf193851454f318db9988e2f28047 (tree)
• l'heure: 2019-03-24 10:43:49
• Auteur: Katsumi <kmorimatsu@sour...>
• Commiter: Katsumi

Message de Log

OPTION NOLINENUM in Zoea

Change Summary

• modified: mips/zoea/compiler.c
• modified: mips/zoea/compiler.h
• modified: mips/zoea/debug.c
• modified: mips/zoea/file.c
• modified: mips/zoea/globalvars.c
• modified: mips/zoea/help.txt
• modified: mips/zoea/reservednames.js
• modified: mips/zoea/statement.c
• modified: mips/zoea/varname.c

Modification

--- a/mips/zoea/compiler.c
+++ b/mips/zoea/compiler.c
@@ -160,8 +160,10 @@ char* compile_line(void){
 			printstr(resolve_label(g_line));
 			return ERR_MULTIPLE_LABEL;
 		}
-		check_obj_space(1);
-		g_object[g_objpos++]=0x34160000|g_line; //ori         s6,zero,xxxx;
+		if (!g_nolinenum) {
+			check_obj_space(1);
+			g_object[g_objpos++]=0x34160000|g_line; //ori         s6,zero,xxxx;
+		}
 	}
 	while(g_source[g_srcpos]!=0x0D && g_source[g_srcpos]!=0x0A){
 		err=statement();

--- a/mips/zoea/compiler.h
+++ b/mips/zoea/compiler.h
@@ -213,6 +213,7 @@ extern int g_var_mem[ALLOC_BLOCK_NUM];
 extern unsigned short g_var_pointer[ALLOC_BLOCK_NUM];
 extern unsigned short g_var_size[ALLOC_BLOCK_NUM];
 extern char g_temp_area_used;
+extern char g_nolinenum;
 extern int* g_heap_mem;
 extern int g_max_mem;
 extern char g_disable_break;

--- a/mips/zoea/debug.c
+++ b/mips/zoea/debug.c
@@ -228,13 +228,13 @@ static const char initext[]=
 "#PRINT\n";
 
 static const char bastext[]=
-"print getdir$()\n"
-"end\n"
-"\n"
-"\n"
-"\n"
+"REM 1\n"
+"REM 2\n"
+"REM 3\n"
 "\n"
+"CLS\n"
 "\n"
+"LABEL TST:PRINT\n"
 "\n";
 
 static const char class1text[]=

--- a/mips/zoea/file.c
+++ b/mips/zoea/file.c
@@ -122,7 +122,10 @@ int compile_and_link_file(char* buff,char* appname){
 			printchar('\n');
 			return -1;
 		}
-	
+
+		// Option initialization(s)
+		g_nolinenum=0;
+
 		// Compile the file
 		err=compile_file();
 		close_file();

--- a/mips/zoea/globalvars.c
+++ b/mips/zoea/globalvars.c
@@ -55,6 +55,9 @@ unsigned short g_var_size[ALLOC_BLOCK_NUM];
 // Flag to use temporary area when compiling
 char g_temp_area_used;
 
+// Flag to use option nolinenum
+char g_nolinenum;
+
 // Heap area
 int* g_heap_mem;
 int g_max_mem;

--- a/mips/zoea/help.txt
+++ b/mips/zoea/help.txt
@@ -105,6 +105,8 @@ LABEL xxx
 	代入する。「LET」は省略可。
 MUSIC x$
 	BGMを演奏する。詳細は、下記<MUSIC>の項を参照。
+OPTION x[,y[,z ... ]]]
+	各種オプションを指定する。オプションについては、下記＜オプション＞の項を参照。
 PLAYWAVE x$[,y]
 	音楽用のWAVEファイル(ファイル名をx$で指定)を演奏する。WAVEのフォーマットは、
 	モノラル、ビット長は８、サンプリング周波数が15700 Hzの物を指定する。16000 Hz
@@ -619,6 +621,16 @@ SYSTEM(105)
 SYSTEM 200,x
 	ディスプレイの表示を停止(xが0のとき)、もしくは開始(xが0以外の時)する。
 
+＜オプション＞
+OPTIONステートメントを使って、コンパイル時もしくは実行時に色々なオプションを指定
+する事が可能です。次のオプションが有ります。
+
+OPTION NOLINENUM
+	コンパイル時に、行番号を指定する命令を挿入しない。このオプションにより、プロ
+	グラムサイズを小さくして実行速度を増加する効果が見込める。ただし、エラーが発
+	生した場合に、どの行でのエラーかは分からなくなる。また、一時領域を使うような
+	場合（主に文字列操作）は、該当箇所にLABELステートメントを入れること。
+
 ＜クラス・オブジェクト関連機能＞
 
 クラスとオブジェクトの利用方法について、詳しくはclass.txtを参照して下さい。

--- a/mips/zoea/reservednames.js
+++ b/mips/zoea/reservednames.js
@@ -110,6 +110,7 @@ var namearray=[
 	'NEXT',
 	'NEW',
 	'NOT',
+	'OPTION',
 	'PCG',
 	'PEEK',
 	'PEEK16',

--- a/mips/zoea/statement.c
+++ b/mips/zoea/statement.c
@@ -1550,6 +1550,24 @@ char* setdir_statement(){
 	return 0;
 }
 
+char* option_statement(){
+	while(1){
+		next_position();
+		if (nextCodeIs("NOLINENUM")) {
+			g_nolinenum=1;
+		} else {
+			return ERR_SYNTAX;
+		}
+		next_position();
+		if (g_source[g_srcpos]==',') {
+			g_srcpos++;
+		} else {
+			break;
+		}
+	}
+	return 0;
+}
+
 #ifdef __DEBUG
 	char* debug_statement(){
 		call_lib_code(LIB_DEBUG);
@@ -1698,6 +1716,7 @@ static const void* statement_list[]={
 	"CALL ",call_statement,
 	"STATIC ",static_statement,
 	"SETDIR ",setdir_statement,
+	"OPTION ",option_statement,
 	// List of additional statements follows
 	ADDITIONAL_STATEMENTS
 };

--- a/mips/zoea/varname.c
+++ b/mips/zoea/varname.c
@@ -91,6 +91,7 @@ static const int reserved_var_names[]={
 	0x000b4321, /*NEXT*/
 	0x000148f8, /*NEW*/
 	0x00014a5d, /*NOT*/
+	0x38a658d7, /*OPTION*/
 	0x000152c0, /*PCG*/
 	0x000cacec, /*PEEK*/
 	0x3b1c6aea, /*PEEK16*/