Commit: 5025b7002e63c4f661ea6926925df1a3f09d6f92 - kmbasic2 (git)

BASIC compiler/interpreter for PIC32MX/MZ-80K

Commit MetaInfo

• Révision: 5025b7002e63c4f661ea6926925df1a3f09d6f92 (tree)
• l'heure: 2019-01-17 07:46:56
• Auteur: Katsumi <kmorimatsu@sour...>
• Commiter: Katsumi

Message de Log

Allow using string in fields, and dimension in private fields.
Methods returning strings.
Allow inserting space(s) in integer/float literals.

Change Summary

• modified: mips/megalopa/class.c
• add: mips/megalopa/class.txt
• modified: mips/megalopa/compiler.h
• modified: mips/megalopa/debug.c
• modified: mips/megalopa/error.c
• modified: mips/megalopa/float.c
• modified: mips/megalopa/help.txt
• modified: mips/megalopa/megalopa.mcp
• modified: mips/megalopa/memory.c
• modified: mips/megalopa/statement.c
• modified: mips/megalopa/string.c
• modified: mips/megalopa/value.c

Modification

--- a/mips/megalopa/class.c
+++ b/mips/megalopa/class.c
@@ -124,7 +124,7 @@ char* construct_class_structure(int class){
 	num=((num>>8)&0xff)+(num&0xff);
 	for(i=1;i<=num;i++){
 		if ((
-			g_class_structure[i*2+1]=search_var_name(g_class_structure[i*2])+ALLOC_LNV_BLOCK
+			g_class_structure[i*2+1]=search_var_name(0x7FFFFFFF & g_class_structure[i*2])+ALLOC_LNV_BLOCK
 			)<ALLOC_LNV_BLOCK) return ERR_UNKNOWN;
 	}
 	return 0;
@@ -246,7 +246,18 @@ char* field_statement(){
 		// Register varname
 		err=register_var_name(i);
 		if (err) return err;
-		if (g_source[g_srcpos]=='#' || g_source[g_srcpos]=='$') g_srcpos++;
+		if (g_source[g_srcpos]=='#') {
+			g_srcpos++;
+		} else if (g_source[g_srcpos]=='$') {
+			// String field. Raise 31st bit.
+			g_srcpos++;
+			i|=0x80000000;
+		} else if (g_source[g_srcpos]=='(' && g_source[g_srcpos+1]==')' && is_private) {
+			// Dimension field (private only). Raise 31st bit.
+			g_srcpos++;
+			g_srcpos++;
+			i|=0x80000000;
+		}
 		// Register field
 		data[0]=i;
 		if (is_private) {
@@ -330,23 +341,40 @@ char* obj_method(int method){
 
 /*
 	char* integer_obj_field();
+	char* string_obj_field();
+	char* float_obj_field();
 	Implementation of access to field of object.
 	This feature is recursive. When an object is applied to the field of another object, 
 	following expression is possible (for example):
 		obj1.field1.field2
 	
 */
-char* integer_obj_field(){
+
+#define OBJ_FIELD_INTEGER 0
+#define OBJ_FIELD_STRING  '$'
+#define OBJ_FIELD_FLOAT   '#'
+
+char* _obj_field(char mode){
 	// $v0 contains the address of object.
 	int i;
 	char* err;
 	do {
 		i=check_var_name(); // TODO: consider accepting reserbed var names for field name
 		if (i<65536) return ERR_SYNTAX;
-		if (g_source[g_srcpos]=='(') {
+		if (g_source[g_srcpos]=='(' && mode==OBJ_FIELD_INTEGER) {
 			// This is a method
 			g_srcpos++;
 			return obj_method(i);
+		} else if (g_source[g_srcpos+1]=='(') {
+			if (g_source[g_srcpos]==mode) {
+				// This is a string/float method
+				g_srcpos++;
+				g_srcpos++;
+				return obj_method(i);
+			}
+		} else if (g_source[g_srcpos]==mode && mode==OBJ_FIELD_STRING) {
+			// This is a string field. Raise 31st bit.
+			i|=0x80000000;
 		}
 		check_obj_space(2);
 		g_object[g_objpos++]=0x3C050000|((i>>16)&0x0000FFFF); // lui   a1,xxxx
@@ -360,10 +388,27 @@ char* integer_obj_field(){
 			continue;
 		}
 	} while(0);
-	return 0;
+	// All done. Check variable type
+	if (mode==OBJ_FIELD_INTEGER) return 0;
+	else if (g_source[g_srcpos]==mode) {
+		g_srcpos++;
+		return 0;
+	} else return ERR_SYNTAX;
 }
 
-unsigned long long lib_obj_field(int* object, int fieldname){
+char* integer_obj_field(){
+	return _obj_field(OBJ_FIELD_INTEGER);
+}
+
+char* string_obj_field(){
+	return _obj_field(OBJ_FIELD_STRING);
+}
+
+char* float_obj_field(){
+	return _obj_field(OBJ_FIELD_FLOAT);
+}
+
+int lib_obj_field(int* object, int fieldname){
 	int* class;
 	int i,numfield;
 	// Check if this is an object (if within the RAM).
@@ -377,7 +422,21 @@ unsigned long long lib_obj_field(int* object, int fieldname){
 	}
 	if (i==numfield) err_not_field(fieldname,class[0]);
 	// Got address of field. Return value as $v0 and address as $v1.
-	return (((unsigned long long)(unsigned long)(&object[1+i]))<<32) | (unsigned long long)object[1+i];
+	g_temp=(int)(&object[1+i]);
+	asm volatile("la $v1,%0"::"i"(&g_temp));
+	asm volatile("lw $v1,0($v1)");
+	return object[1+i];
+}
+
+/*
+	Library for letting string field 
+*/
+
+void lib_let_str_field(char* prev_str, char* new_str){
+	int var_num=get_permanent_var_num();
+	free_perm_str(prev_str);
+	lib_let_str(new_str,var_num);
+	return;
 }
 
 /*
@@ -398,12 +457,16 @@ int lib_pre_method(int* object, int methodname){
 		// Public fields
 		class+=2;
 		g_var_mem[class[1]]=object[i+1];
+		// When string, move from permanent block
+		if (0x80000000&class[0]) move_from_perm_block_if_exists(class[1]);
 	}
 	num+=(nums>>8)&0xff;
 	for(i=i;i<num;i++){
 		// Private fields
 		class+=2;
 		g_var_mem[class[1]]=object[i+1];
+		// When string/dimension, move from permanent block
+		if (0x80000000&class[0]) move_from_perm_block_if_exists(class[1]);
 	}
 	// Seek method
 	num+=(nums>>16)&0xff;
@@ -432,12 +495,20 @@ int lib_post_method(int* object, int methodname, int v0){
 		// Public fields
 		class+=2;
 		object[i+1]=g_var_mem[class[1]];
+		// When string, move to permanent block
+		if (0x80000000&class[0]) {
+			if (g_var_size[class[1]]) move_to_perm_block(class[1]);
+		}
 	}
 	num+=(nums>>8)&0xff;
 	for(i=i;i<num;i++){
 		// Private fields
 		class+=2;
 		object[i+1]=g_var_mem[class[1]];
+		// When string/dimension, move to permanent block
+		if (0x80000000&class[0]) {
+			if (g_var_size[class[1]]) move_to_perm_block(class[1]);
+		}
 	}
 	// all done
 	return v0;

--- /dev/null
+++ b/mips/megalopa/class.txt
@@ -0,0 +1,129 @@
+＜クラスとオブジェクトの利用方法＞
+
+ここでは、オブジェクト指向プログラミングについて述べます。MachiKaniaでは、クラス
+ベースのオブジェクト指向プログラミングが可能です。次のような特徴があります。
+
+　１）オブジェクトは、フィールド(public もしくは private)とメソッド(public のみ)
+　を持つ。
+　２）クラスの記述は別ファイルに於いて行ない、１ファイルに１クラスの記述とする。
+　３）複数のクラスを利用出来る。また、クラス中で別のクラスを利用出来る。
+　４）クラスの継承は、未実装。
+　５）フィールド名とメソッド名には、６文字以内の英数字が指定出来る。
+
+別ファイルとしてクラスを記述し、このファイルをクラス指定する事で、複数のファイル
+からなるプログラムを作成する事が可能です。クラス間の接続はフィールドとメソッドを
+介してのみ行なわれます。したがって、同じ名前の変数やラベルが複数のファイルに於い
+て存在していたとしても、それぞれファイルごとに制御が行なわれますので、名前の衝突
+が起きる事はありません。
+
+＜クラスの記述の仕方＞
+
+クラスを作成するには、"クラス名.BAS"の名でテキストファイルを準備します。ただし、
+クラス名は６文字以内の英数字です。クラスファイルでは、FIELDとMETHODの２種類の命
+令が必須です(どちらか一方だけでも使えます)。
+
+FIELD [PUBLIC] x[,y[,z[, ... ]]]
+	クラスファイル中で、パブリックフィールドを宣言する。"PUBLIC"は省略可。
+	x,y,z等はフィールド名を6文字以内の英数字で指定。
+FIELD PRIVATE x[,y[,z[, ... ]]]
+	クラスファイル中で、プライベートフィールドを宣言する。x,y,z等はフィールド
+	名を6文字以内の英数字で指定。
+METHOD x
+	クラスファイル中で、メソッドを宣言する。xは、メソッド名を6文字以内の英
+	数字で指定。
+
+クラスファイル中でフィールド値（パブリック・プライベートの両方）にアクセスする場
+合は、FIELD指定した長い名前の変数に直接アクセス(読み込み及び書き込み)して下さい。
+「THIS」などの表記は必要ありません。
+
+オブジェクトのフィールドではないスタティックな変数を扱いたい時は、USEVAR命令を
+使って下さい。ここで使用した長い名前の変数は、他のファイルでの同一名の変数の値に
+影響しません。ただし、変数A-Zの読み出し・変更は、他のファイルで使用する値に影響し
+ます。
+
+METHOD命令で宣言されたメソッドは、すべてパブリックです。プライベートなサブルー
+チン呼び出しには、LABEL命令とGOSUB命令/関数を用いて下さい。メソッド呼び出しの際
+の引数は、ARGS()関数で取り出す事が可能です。
+
+コンストラクターを指定する場合は、「METHOD INIT」として下さい。このようにINIT
+メソッドが指定された場合、オブジェクト作成時に、このメソッドが呼ばれます。INIT
+メソッドに引数を与える事も可能です(引数は必須ではありません)。
+
+記述例(CLASS1.BASの名前で保存)：
+　FIELD PUBLIC TEST1,TEST2
+　FIELD PRIVATE TEST3
+　METHOD INIT
+　　IF ARGS(0)=2 THEN
+　　　TEST1=ARGS(1)
+　　　TEST2=ARGS(2)
+　　ENDIF
+　RETURN
+　METHOD TEST4
+　　TEST1=ARGS(1)
+　　TEST2=ARGS(2)
+　RETURN
+　METHOD TEST5
+　　TEST3=TEST1+TEST2
+　RETURN
+　METHOD TEST6
+　RETURN TEST3
+
+＜オブジェクトの作成方法＞
+
+オブジェクトを作成するためには、まずUSECLASS命令で使用するクラスを指定し、次に
+NEW関数を用います。
+
+USECLASS x[,y[,z[, ... ]]]
+	クラスの利用を宣言する。x,y,z等は、クラス名を6文字以内の英数字で指定。
+NEW(x[,y[,z[, ... ]]])
+	クラスオブジェクトを作成し、オブジェクトへのポインターを返す。xはクラス名
+	を指定。y,z等はコンストラクターがある際に利用される引数。
+
+記述例１：
+　USECLASS CLASS1
+　A=NEW(CLASS1)
+
+記述例２（コンストラクターに引数を指定する場合）：
+　USECLASS CLASS1
+　A=NEW(CLASS1,123,456)
+
+＜オブジェクトの破棄方法＞
+
+作成したオブジェクトは、DELETE命令を用いて破棄する事も出来ます。ただし、デストラ
+クターは実装していませんので、必要ならば、それ用のメソッドを作成して破棄する直前に
+呼び出して下さい。
+
+記述例：
+　USECLASS CLASS1
+　A=NEW(CLASS1)
+　DELETE A
+
+＜フィールドへのアクセス方法＞
+
+パブリックフィールドへアクセスする場合は、オブジェクトを含む変数に続けて「.」と
+フィールド名を記述して下さい。
+
+記述例：
+　USECLASS CLASS1
+　A=NEW(CLASS1)
+　A.TEST1=123
+　PRINT A.TEST2
+
+＜メソッドへのアクセス方法＞
+
+パブリックメソッドへアクセスする場合は、オブジェクトを含む変数に続けて「.」と
+メソッド名、続けて「( )」を記述して下さい。メソッドは関数と同じ扱いですが、戻
+り値を利用しない場合は、CALL命令により呼び出す事も出来ます。
+
+CALL x
+	xで指定されたオブジェクトのメソッドを呼び出す。
+
+記述例（579が表示される）：
+　USECLASS CLASS1
+　A=NEW(CLASS1)
+　CALL A.TEST4(123,456)
+　CALL A.TEST5()
+　PRINT A.TEST6()
+
+＜バージョン履歴＞
+・KM-1207/KM1302 20xx年x月公開。

--- a/mips/megalopa/compiler.h
+++ b/mips/megalopa/compiler.h
@@ -282,10 +282,12 @@ void call_library(void);
 void reset_dataread();
 
 void free_temp_str(char* str);
+void free_perm_str(char* str);
 void* alloc_memory(int size, int var_num);
 void* calloc_memory(int size, int var_num);
 void move_to_perm_block(int var_num);
 void move_from_perm_block(int var_num);
+int move_from_perm_block_if_exists(int var_num);
 int get_permanent_var_num(void);
 int get_varnum_from_address(void* address);
 void* lib_calloc_memory(int size);
@@ -335,12 +337,15 @@ void delete_cmpdata_for_class();
 char* new_function();
 char* field_statement();
 char* integer_obj_field();
-unsigned long long lib_obj_field(int* object, int fieldname);
+char* string_obj_field();
+char* float_obj_field();
+int lib_obj_field(int* object, int fieldname);
 int lib_pre_method(int* object, int methodname);
 int lib_post_method(int* object, int methodname, int v0);
 char* method_statement();
 char* delete_statement();
 char* call_statement();
+void lib_let_str_field(char* str, char* prev_str);
 
 /* Error messages */
 #define ERR_SYNTAX (char*)(g_err_str[0])

--- a/mips/megalopa/debug.c
+++ b/mips/megalopa/debug.c
@@ -227,13 +227,17 @@ static const char initext[]=
 
 static const char bastext[]=
 "CLS\n"
-"dim a(0)\n"
-"a(0)=0x89ABCDEF\n"
-"print hex$(peek(a)),\n"
-"print hex$(peek16(a)),\n"
-"print hex$(peek32(a)),\n"
+"print 12 345.6,12 345 678,hex$(0x0ABC 123),hex$(0x0123 CDEF)\n"
+"end\n"
+"REM \x80\n"
 "\n"
 "\n"
+"USECLASS CLASS1\n"
+"a=new(CLASS1)\n"
+"print a.TEST$,a.TEST2$(),\n"
+"a.TEST$=\"ABC\"\n"
+"print a.TEST$,\n"
+"\n"
 "\n"
 "\n"
 "\n"
@@ -242,15 +246,17 @@ static const char bastext[]=
 
 static const char classtext[]=
 "REM\n"
-"FIELD test,test2\n"
-"FIELD PRIVATE test3,test4\n"
-"METHOD mtest\n"
-"PRINT ARGS(0),ARGS(1),ARGS(2)\n"
-"test2=7890\n"
-"return test+10000\n"
+"FIELD TEST$,TEST3\n"
 "METHOD INIT\n"
-"PRINT \"INIT\"\n"
+"TEST$=\"MachiKania\"\n"
+"TEST3#=1.2345\n"
 "return\n"
+"METHOD TEST2\n"
+"return \"Objective\"\n"
+"METHOD TEST4\n"
+"return PI#\n"
+"\n"
+"\n"
 "\n"
 "\n";
 
@@ -265,9 +271,7 @@ static const void* debugjumptable[]={
 
 int _debug_test(int a0, int a1, int a2, int a3, int param4, int param5){
 	asm volatile(".set noreorder");
-	asm volatile("lbu $v0,0($v0)");
-	asm volatile("lhu $v0,0($v0)");
-	asm volatile("lw $v0,0($v0)");
+	asm volatile("lw    $a0,0($v1)");
 	asm volatile("nop");
 	asm volatile("nop");
 	asm volatile("nop");

--- a/mips/megalopa/error.c
+++ b/mips/megalopa/error.c
@@ -187,7 +187,7 @@ void err_not_obj(void){
 void err_not_field(int fieldname, int classname){
 	printstr(resolve_label(classname));
 	printchar('.');
-	printstr(resolve_label(fieldname));
+	printstr(resolve_label(fieldname & 0x7FFFFFFF));
 	printstr(ERR_NOT_FIELD);
 	end_exec();	
 }

--- a/mips/megalopa/float.c
+++ b/mips/megalopa/float.c
@@ -68,6 +68,13 @@ char* get_simple_float(void){
 				// Must be a function.
 				return float_function();
 			}
+			if (g_source[g_srcpos]=='.') {
+				// This is an object field or method to return string
+				check_obj_space(1);
+				g_object[g_objpos++]=0x8FC20000|(i*4); // lw v0,xx(s8)
+				g_srcpos++;
+				return float_obj_field();
+			}
 			if (g_source[g_srcpos]!='#') return ERR_SYNTAX;
 			g_srcpos++;
 			if (g_source[g_srcpos]=='(') {

--- a/mips/megalopa/help.txt
+++ b/mips/megalopa/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# [ ... ]]]]
 	ディスプレイに、整数値または文字列を表示する。「;」を使用した場
 	合、次の表示が続けて行われる。「,」を使用した場合、１０文字ずつ
@@ -287,6 +293,12 @@ NOT(x)
 	x=0の場合に１を、そうでない場合に０を返す。
 PEEK(x)
 	xで示される物理アドレスから１バイト読み取り、返す。
+PEEK16(x)
+	xで示される物理アドレスから２バイト読み取り、16ビット値で返す。xが奇数値の場
+	合、例外停止するので注意。
+PEEK32(x)
+	xで示される物理アドレスから４バイト読み取り、32ビット値で返す。xが４の倍数で
+	無い場合、例外停止するので注意。
 PLAYWAVE([x])
 	xを指定しない場合、もしくは０を指定した場合、再生中のWAVEファイルの残りサン
 	プリング数を返す。１を指定した場合、現在再生中のサンプリング番号を、２を指
@@ -396,6 +408,8 @@ READ$()
 	DATA文の後から、一つずつ文字列データーを読み出す。
 
 ＜整数演算子＞
+&x
+	変数xの格納アドレス(ポインター)
 -x
 	符号を反転
 x + y
@@ -433,7 +447,7 @@ x XOR y
 
 なお、整数演算子の優先順位は、優先度が高いものから以下の順です。
 
-+ - (単項演算子)
++ - (単項演算子) &
 * / %
 + - (加算・減算)
 << >>
@@ -710,6 +724,11 @@ ON GOTO分やON GOSUB文はサポートしていません。ただし、例え
 てみて下さい。
 
 ＜バージョン履歴＞
+・KM-1302 2019年xx月公開。
+　・オブジェクト指向プログラミングに対応
+　・args(0)で引数の数を取得できるようにした
+　・POKE16, POKE32, PEEK16(), PEEK32()を追加
+　・&演算子を追加
 ・KM-1301 2018年12月公開。
 　・I2C機能を搭載
 　・SPI機能を搭載

--- a/mips/megalopa/megalopa.mcp
+++ b/mips/megalopa/megalopa.mcp
@@ -68,6 +68,7 @@ file_040=.
 file_041=.
 file_042=.
 file_043=.
+file_044=.
 [GENERATED_FILES]
 file_000=no
 file_001=no
@@ -113,6 +114,7 @@ file_040=no
 file_041=no
 file_042=no
 file_043=no
+file_044=no
 [OTHER_FILES]
 file_000=no
 file_001=no
@@ -158,6 +160,7 @@ file_040=no
 file_041=no
 file_042=yes
 file_043=yes
+file_044=yes
 [FILE_INFO]
 file_000=compiler.c
 file_001=debug.c
@@ -203,6 +206,7 @@ file_040=lib_videoout_megalopa.X.a
 file_041=app_p32MX370F512H.ld
 file_042=help.txt
 file_043=reservednames.js
+file_044=class.txt
 [SUITE_INFO]
 suite_guid={62D235D8-2DB2-49CD-AF24-5489A6015337}
 suite_state=

--- a/mips/megalopa/memory.c
+++ b/mips/megalopa/memory.c
@@ -17,11 +17,9 @@
 	                  This number also includes temporary area used for string construction etc.
 	                  Temporary area is cleared every line of BASIC code in alloc_memory().
 	ALLOC_BLOCK_NUM:  # of blocks that can be used for memory allocation.
-	                  This # also includes the ones for ALLOC_VAR_NUM.
+	                  This # includes the ones for ALLOC_VAR_NUM, ALLOC_PCG_BLOCK etc, ALLOC_LNV_BLOCK,
+	                  ALLOC_PERM_BLOCK.
 	                  After ALLOC_VAR_NUM area, dedicated memory area and permanent area follows.
-	                  Currently, only PCG is used for permanent pourpose.
-                      10 permanant blocks can be used.
-	                  Therefore, ALLOC_VAR_NUM+11 == ALLOC_BLOCK_NUM
 	ALLOC_PERM_BLOCK: Start # of permanent blocks.
                       The blocks after this number is permanently stored.
                       Therefore, it must be released when it's not used any more.
@@ -144,6 +142,20 @@ void free_temp_str(char* str){
 	}
 }
 
+void free_perm_str(char* str){
+	int i,pointer;
+	if (!str) return;
+	pointer=(int)str-(int)g_heap_mem;
+	pointer>>=2;
+	// Search permanent block and delete a block if found.
+	for(i=ALLOC_PERM_BLOCK;i<ALLOC_BLOCK_NUM;i++){
+		if (g_var_pointer[i]==pointer) {
+			g_var_size[i]=0;
+			break;
+		}
+	}
+}
+
 void move_to_perm_block(int var_num){
 	int i;
 	// Find available permanent block
@@ -161,7 +173,7 @@ void move_to_perm_block(int var_num){
 	g_var_mem[var_num]=0;
 }
 
-void move_from_perm_block(int var_num){
+int move_from_perm_block_if_exists(int var_num){
 	int i,pointer;
 	pointer=(int)g_var_mem[var_num]-(int)g_heap_mem;
 	pointer>>=2;
@@ -169,13 +181,19 @@ void move_from_perm_block(int var_num){
 	for (i=ALLOC_PERM_BLOCK;i<ALLOC_BLOCK_NUM;i++){
 		if (0<g_var_size[i] && g_var_pointer[i]==pointer) break;
 	}
-	if (ALLOC_BLOCK_NUM<=i) err_unknown(); // Not found
+	if (ALLOC_BLOCK_NUM<=i) return 0; // Not found
 	// Stored block found.
 	// Replace pointer
 	g_var_size[var_num]=g_var_size[i];
 	g_var_pointer[var_num]=g_var_pointer[i];
 	// Clear block
 	g_var_size[i]=0;
+	return 1;
+}
+
+void move_from_perm_block(int var_num){
+	if (move_from_perm_block_if_exists(var_num)) return; // Found
+	err_unknown(); // Not found
 }
 
 int get_permanent_var_num(){

--- a/mips/megalopa/statement.c
+++ b/mips/megalopa/statement.c
@@ -18,7 +18,7 @@ char* rem_statement(){
 		// Delete $s6-setting command if exists.
 		if ((g_object[g_objpos-1]&0xffff0000)==0x34160000) g_objpos--;
 	}
-	while(0x20<=g_source[g_srcpos]){
+	while(0xE0 & g_source[g_srcpos]){
 		g_srcpos++;
 	}
 	return 0;
@@ -641,7 +641,7 @@ char* let_dim_sub(int i){
 char* let_statement(){
 	char* err;
 	char b2,b3;
-	int i;
+	int i,spos,opos;
 	next_position();
 	i=get_var_number();
 	if (i<0) return ERR_SYNTAX;
@@ -706,23 +706,61 @@ char* let_statement(){
 		g_srcpos++;
 		check_obj_space(1);
 		g_object[g_objpos++]=0x8FC20000|(i*4);        // lw    v0,xx(s8)
-		err=integer_obj_field();
-		if (err) return err;
+		spos=g_srcpos;
+		opos=g_objpos;
+		// Try string field, first
+		err=string_obj_field();
+		if (err) {
+			// Integer or float field
+			g_srcpos=spos;
+			g_objpos=opos;
+			err=integer_obj_field();
+			if (err) return err;
+			b3=g_source[g_srcpos];
+			if (b3=='#') g_srcpos++;
+		} else {
+			// String field
+			b3='$';
+		}
+		if (g_source[g_srcpos-1]==')') {
+			// This is a CALL statement
+			return 0;
+		}
 		// $v1 is address to store value. Save it in stack.
 		check_obj_space(1);
 		g_object[g_objpos++]=0x27BDFFFC;              // addiu sp,sp,-4
 		g_object[g_objpos++]=0xAFA30004;              // sw    v1,4(sp)
-		// Get value
-		next_position();
-		if (g_source[g_srcpos]!='=') return ERR_SYNTAX;
-		g_srcpos++;
-		err=get_value();
+		if (b3=='$') {
+			// String field
+			// Get value
+			next_position();
+			if (g_source[g_srcpos]!='=') return ERR_SYNTAX;
+			g_srcpos++;
+			err=get_string();
+		} else if (b3=='#') {
+			// Float field
+			// Get value
+			next_position();
+			if (g_source[g_srcpos]!='=') return ERR_SYNTAX;
+			g_srcpos++;
+			err=get_float();
+		} else {
+				// Integer field
+				// Get value
+				next_position();
+				if (g_source[g_srcpos]!='=') return ERR_SYNTAX;
+				g_srcpos++;
+				err=get_value();
+		}
 		if (err) return err;
 		// Store in field of object
-		check_obj_space(3);
+		check_obj_space(4);
 		g_object[g_objpos++]=0x8FA30004;              // lw    v1,4(sp)
 		g_object[g_objpos++]=0x27BD0004;              // addiu sp,sp,4
+		g_object[g_objpos++]=0x8C640000;              // lw    a0,0(v1)
 		g_object[g_objpos++]=0xAC620000;              // sw    v0,0(v1)
+		// Handle permanent block for string field
+		if (b3=='$') call_quicklib_code(lib_let_str_field,ASM_ADDU_A1_V0_ZERO);
 	} else {
 		// Integer A-Z
 		next_position();

--- a/mips/megalopa/string.c
+++ b/mips/megalopa/string.c
@@ -92,6 +92,13 @@ char* simple_string(void){
 			g_temp_area_used=1;
 			return 0;
 		}
+		if (g_source[g_srcpos]=='.') {
+			// This is an object field or method to return string
+			check_obj_space(1);
+			g_object[g_objpos++]=0x8FC20000|(i*4); // lw v0,xx(s8)
+			g_srcpos++;
+			return string_obj_field();
+		}
 		if (g_source[g_srcpos]!='$') return ERR_SYNTAX;
 		g_srcpos++;
 		// String variable

--- a/mips/megalopa/value.c
+++ b/mips/megalopa/value.c
@@ -103,7 +103,7 @@ char* get_simple_value(void){
 				} else if ('A'<=b1 && b1<='F') {
 					i*=16;
 					i+=b1-'A'+0x0A;
-				} else {
+				} else if (b1!=' ') { // Skip ' '
 					break;
 				}
 				g_srcpos++;
@@ -127,7 +127,7 @@ char* get_simple_value(void){
 				if ('0'<=b1 && b1<='9') {
 					i*=10;
 					i+=b1-'0';
-				} else {
+				} else if (b1!=' ') { // Skip ' '
 					break;
 				}
 				g_srcpos++;