Changeset 578 in dev for trunk/ab5.0/abdev/BasicCompiler_Common/src/LexicalAnalyzer_Const.cpp

Timestamp:

May 8, 2008, 2:20:23 PM (16 years ago)

Author:

dai_9181

Message:

LexicalAnalyzer::ConstMacroToExpressionメソッドを実装。

File:

• trunk/ab5.0/abdev/BasicCompiler_Common/src/LexicalAnalyzer_Const.cpp (modified) (1 diff)

trunk/ab5.0/abdev/BasicCompiler_Common/src/LexicalAnalyzer_Const.cpp

@@ -202 +202 @@
     compiler.GetObjectModule().meta.GetGlobalConstMacros().Iterator_Init();
 }
+
+bool LexicalAnalyzer::ConstMacroToExpression( const ConstMacro &constMacro, const char *parameterStr, char *dest )
+{
+    extern HANDLE hHeap;
+    int i2,i3,i4,num;
+    char temporary[VN_SIZE];
+    char *pParms[MAX_PARMS];
+    num=0;
+    i2=0;
+    while(1){
+        i2=GetOneParameter(parameterStr,i2,temporary);
+
+        pParms[num]=(char *)HeapAlloc(hHeap,0,lstrlen(temporary)+1);
+        lstrcpy(pParms[num],temporary);
+
+        num++;
+        if(parameterStr[i2]=='\0') break;
+    }
+    if( num != constMacro.GetParameters().size() ){
+        extern int cp;
+        for(i2=0;i2<num;i2++) HeapDefaultFree(pParms[i2]);
+        compiler.errorMessenger.Output(10,constMacro.GetName().c_str(),cp);
+        lstrcpy(dest,"0");
+        return true;
+    }
+
+    i2=0;
+    i4=0;
+    while(1){
+
+        //数式内の項を取得
+        for(i3=0;;i2++,i3++){
+            if(!IsVariableChar( constMacro.GetExpression()[i2] )){
+                temporary[i3]=0;
+                break;
+            }
+            temporary[i3] = constMacro.GetExpression()[i2];
+        }
+
+        //パラメータと照合する
+        for( i3=0; i3<(int)constMacro.GetParameters().size(); i3++ ){
+            if( constMacro.GetParameters()[i3] == temporary ) break;
+        }
+
+        if( i3 == (int)constMacro.GetParameters().size() ){
+            //パラメータでないとき
+            lstrcpy(dest+i4,temporary);
+            i4+=lstrlen(temporary);
+        }
+        else{
+            //パラメータのとき
+            lstrcpy(dest+i4,pParms[i3]);
+            i4+=lstrlen(pParms[i3]);
+        }
+
+        //演算子をコピー
+        for(;;i2++,i4++){
+            if( constMacro.GetExpression()[i2] == 1 ){
+                dest[i4++] = constMacro.GetExpression()[i2++];
+                dest[i4] = constMacro.GetExpression()[i2];
+                continue;
+            }
+            if(IsVariableTopChar( constMacro.GetExpression()[i2] )) break;
+            dest[i4] = constMacro.GetExpression()[i2];
+            if( constMacro.GetExpression()[i2] == '\0' ) break;
+        }
+
+        if( constMacro.GetExpression()[i2] == '\0' ) break;
+    }
+
+    for(i2=0;i2<num;i2++) HeapDefaultFree(pParms[i2]);
+
+    return true;
+}