Changeset 329 in dev for trunk/abdev

Timestamp:

Sep 25, 2007, 11:13:33 PM (17 years ago)

Author:

dai_9181

Message:

"obj+=value" など、オブジェクトに対する代入演算の構文を "obj=obj+value" と置換して解釈するようにした。

Location:

trunk/abdev

Files:

• BasicCompiler32/increment.cpp (modified) (1 diff)
• BasicCompiler64/increment.cpp (modified) (2 diffs)

trunk/abdev/BasicCompiler32/increment.cpp

@@ -6 +6 @@
 #include "Opcode.h"
 
-void IncDec(int idCalc, const char *lpszLeft, const char *lpszRight){
+void IncDec(int idCalc, const char *lpszLeft, const char *lpszRight)
+{
+    Type varType;
+    if( GetVarType( lpszLeft, varType, false ) )
+    {
+        if( varType.IsObject() )
+        {
+            // オブジェクトが対象だったとき
+            char temporary[8192];
+            char calcStr[32];
+            GetCalcName( idCalc, calcStr );
+            sprintf( temporary, "%s=%s %s %s", lpszLeft, lpszLeft, calcStr, lpszRight );
+            SetEscapeSequenceFormat( temporary );
+            KillStringSpaces( temporary );
+            OpcodeCalc( temporary );
+            return;
+        }
+    }
 
     ///////////////////////////
     // 変数アドレスを取得
     ///////////////////////////
-
     RELATIVE_VAR VarRelativeVar;
-    Type varType;
     if(!GetVarOffsetReadWrite(
         lpszLeft,

trunk/abdev/BasicCompiler64/increment.cpp

@@ -6 +6 @@
 #include "Opcode.h"
 
-void IncDec(int idCalc, const char *lpszLeft, const char *lpszRight){
+void IncDec(int idCalc, const char *lpszLeft, const char *lpszRight)
+{
+    Type varType;
+    if( GetVarType( lpszLeft, varType, false ) )
+    {
+        if( varType.IsObject() )
+        {
+            // オブジェクトが対象だったとき
+            char temporary[8192];
+            char calcStr[32];
+            GetCalcName( idCalc, calcStr );
+            sprintf( temporary, "%s=%s %s %s", lpszLeft, lpszLeft, calcStr, lpszRight );
+            SetEscapeSequenceFormat( temporary );
+            KillStringSpaces( temporary );
+            OpcodeCalc( temporary );
+            return;
+        }
+    }
 
     ///////////////////////////
@@ -13 +30 @@
 
     RELATIVE_VAR VarRelativeVar;
-    Type varType;
     if(!GetVarOffsetReadWrite(
         lpszLeft,