Changeset 381 in dev for trunk/abdev/BasicCompiler_Common/Intermediate_Step2.cpp

Timestamp:

Dec 19, 2007, 3:31:03 AM (17 years ago)

Author:

dai_9181

Message:

Foreach文のパラメータをInで区切るようにした。

File:

• trunk/abdev/BasicCompiler_Common/Intermediate_Step2.cpp (modified) (1 diff)

trunk/abdev/BasicCompiler_Common/Intermediate_Step2.cpp

@@ -451 +451 @@
         ComNum=COM_FOR;
     }
-    else if(lstrcmpi(com,"Foreach")==0){
-        KillSpaces(Command+i,pam);
+    else if(lstrcmpi(com,"Foreach")==0)
+    {
+        for(i2=0,IsStr=0;;i++,i2++)
+        {
+            while(Command[i]==' '||Command[i]=='\t') i++;
+            if(Command[i]=='\"') IsStr^=1;
+            if((Command[i-1]==' '||Command[i-1]=='\t')&&(Command[i]=='i'||Command[i]=='I')&&(Command[i+1]=='n'||Command[i+1]=='N')&&(Command[i+2]==' '||Command[i+2]=='\t')&&IsStr==0){
+                pam[i2++] = 1;
+                pam[i2] = ESC_IN;
+                break;
+            }
+            pam[i2]=Command[i];
+            if(Command[i]=='\0') break;
+        }
+        if(Command[i])
+        {
+            lstrcpy( pam + i2 + 1, Command + i + 3 );
+        }
         ComNum=COM_FOREACH;
     }