Changeset 372 in dev for trunk/abdev/BasicCompiler_Common

Timestamp:

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

Author:

dai_9181

Message:

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

Location:

trunk/abdev/BasicCompiler_Common

Files:

• Compile.cpp (modified) (2 diffs)
• Intermediate_Step2.cpp (modified) (1 diff)

trunk/abdev/BasicCompiler_Common/Compile.cpp

@@ -139 +139 @@
 }
 
+void Compile( const char *source )
+{
+    char *temporary = (char *)malloc( lstrlen( source ) + 8192 );
+    lstrcpy( temporary, source );
+    int backCp = cp;
+    MakeMiddleCode( temporary );
+    ChangeOpcode( temporary );
+    cp = backCp;
+    free( temporary );
+}
+
 void ChangeOpcode(char *Command){
     extern HANDLE hHeap;
@@ -337 +348 @@
         case COM_FOR:
             OpcodeFor(Command+2);
+            break;
+        case COM_FOREACH:
+            OpcodeForeach(Command+2);
             break;
         case COM_DO:

trunk/abdev/BasicCompiler_Common/Intermediate_Step2.cpp

@@ -451 +451 @@
         ComNum=COM_FOR;
     }
+    else if(lstrcmpi(com,"Foreach")==0){
+        KillSpaces(Command+i,pam);
+        ComNum=COM_FOREACH;
+    }
     else if(lstrcmpi(com,"Next")==0){
         KillSpaces(Command+i,pam);