Changeset 372 in dev for trunk/abdev/BasicCompiler32

Timestamp:

Nov 23, 2007, 1:44:13 PM (16 years ago)

Author:

dai_9181

Message:

Foreachステートメントを実装中…

Location:

trunk/abdev/BasicCompiler32

Files:

• Compile_Statement.cpp (modified) (1 diff)
• Opcode.h (modified) (2 diffs)
• commandvalue.h (modified) (1 diff)

trunk/abdev/BasicCompiler32/Compile_Statement.cpp

@@ -568 +568 @@
     //レキシカルスコープをレベルアップ
     compiler.codeGenerator.lexicalScopes.Start( compiler.codeGenerator.GetNativeCodeSize(), LexicalScope::SCOPE_TYPE_FOR );
+
+    //For内をコンパイル
+    CompileBuffer(0,COM_NEXT);
+
+    compiler.codeGenerator.lexicalScopes.CallDestructorsOfScopeEnd();
+
+    if(szNextVariable[0]){
+        if(lstrcmp(szNextVariable,variable)!=0){
+            SetError(55,szNextVariable,cp);
+        }
+    }
+
+    //jmp ...
+    compiler.codeGenerator.op_jmp_continue();
+
+    //レキシカルスコープをレベルダウン
+    compiler.codeGenerator.lexicalScopes.End();
+
+    //jeジャンプ先のオフセット値
+    compiler.codeGenerator.opfix_JmpPertialSchedule( pTempPertialSchedule );
+
+    //Continueアドレスを復元
+    compiler.codeGenerator.ContinueAreaEnd();
+}
+
+void OpcodeForeach( const char *Parameter )
+{
+    Type resultType;
+    int i;
+    char temporary[VN_SIZE],variable[VN_SIZE],collectionVar[VN_SIZE];
+    bool isError = false;
+
+    //第１パラメータを取得
+    i=GetOneParameter(Parameter,0,temporary);
+    if(!Parameter[i]){
+        SetError(12,"Foreach",cp);
+        isError = true;
+        goto ErrorStep;
+    }
+
+    lstrcpy( variable, temporary );
+
+    //第２パラメータを取得（in～）
+    i=GetOneParameter(Parameter,i,collectionVar);
+
+    // Resetメソッドを呼び出す
+    sprintf( temporary, "%s.Reset()", collectionVar );
+    Compile( temporary );
+
+    //Continueアドレスのバックアップとセット
+    compiler.codeGenerator.ContinueAreaBegin();
+
+    // MoveNextメソッドを呼び出す
+    sprintf( temporary, "%s.MoveNext()", collectionVar );
+    NumOpe(temporary,Type(),Type());
+
+    //pop eax
+    compiler.codeGenerator.op_pop(REG_EAX);
+
+    //cmp eax,0
+    compiler.codeGenerator.op_cmp_value( sizeof(long), REG_EAX, 0 );
+
+ErrorStep:
+
+    //je ...
+    const PertialSchedule *pTempPertialSchedule = compiler.codeGenerator.op_je( 0, sizeof(long), true );
+
+    //レキシカルスコープをレベルアップ
+    compiler.codeGenerator.lexicalScopes.Start( compiler.codeGenerator.GetNativeCodeSize(), LexicalScope::SCOPE_TYPE_FOR );
+
+    // Currentプロパティから現在の値を取得
+    // TODO: 型指定が未完成
+    sprintf( temporary, "%s=%s.Current As String", variable, collectionVar );
+    Compile( temporary );
 
     //For内をコンパイル

trunk/abdev/BasicCompiler32/Opcode.h

@@ -41 +41 @@
 
 //Compile.cpp
+void Compile( const char *source );
 void ChangeOpcode(char *Command);
 void GetGlobalDataForDll(void);
@@ -230 +231 @@
 void OpcodeWhile(char *Parameter);
 void OpcodeFor(char *Parameter);
+void OpcodeForeach( const char *Parameter );
 void OpcodeDo(char *Parameter);
 void OpcodeContinue(void);

trunk/abdev/BasicCompiler32/commandvalue.h

@@ -14 +14 @@
 #define COM_WHILE   0x1036
 #define COM_WEND    0x1037
+#define COM_FOREACH 0x1038
 
 //データ操作