Changeset 54 in dev for BasicCompiler_Common/Intermediate_Step1.cpp

Timestamp:

Feb 12, 2007, 2:09:55 PM (17 years ago)

Author:

dai_9181

Message:

DeclareのLib、AliasにConst定義された文字列定数を指定できるようにした。

File:

• BasicCompiler_Common/Intermediate_Step1.cpp (modified) (7 diffs)

BasicCompiler_Common/Intermediate_Step1.cpp

@@ -414 +414 @@
     char *temporary,temp2[VN_SIZE];
 
-    temporary=(char *)GlobalAlloc(GMEM_FIXED,lstrlen(buffer)*2);
+    temporary=(char *)HeapAlloc(hHeap,HEAP_ZERO_MEMORY,lstrlen(buffer)*2);
     for(i=0,i2=0,IsStr=0;;i++,i2++){
         if(buffer[i]=='\"') IsStr^=1;
@@ -594 +594 @@
                     if(lstrcmpi(temporary+i3,"Declare")==0){
                         i2=i3;
+                        int i9=i2;
                         temporary[i2]=1;
                         temporary[++i2]=ESC_DECLARE;
                         i++;
                         while(buffer[i]==' '||buffer[i]=='\t') i++;
+
+                        // Sub/Function
                         for(i4=0;;i++,i4++){
                             if(!IsVariableChar(buffer[i])){
@@ -608 +611 @@
                         else if(lstrcmpi(temp2,"Function")==0) temporary[++i2]=ESC_FUNCTION;
                         while(buffer[i]==' '||buffer[i]=='\t') i++;
+
+                        // 関数名
                         for(i2++;;i++,i2++){
                             if(!IsVariableChar(buffer[i])){
@@ -616 +621 @@
                         }
                         while(buffer[i]==' '||buffer[i]=='\t') i++;
+
                         for(i4=0;;i++,i4++){
                             if(!IsVariableChar(buffer[i])){
@@ -638 +644 @@
                         if(lstrcmpi(temp2,"Lib")==0) temporary[++i2]=',';
                         while(buffer[i]==' '||buffer[i]=='\t') i++;
+
                         if(buffer[i]=='\"'){
                             temporary[++i2]=buffer[i];
@@ -649 +656 @@
                             }
                         }
+                        else{
+                            for(i2++;;i++,i2++){
+                                if(!IsVariableChar(buffer[i])){
+                                    i2--;
+                                    break;
+                                }
+                                temporary[i2]=buffer[i];
+                            }
+                        }
                         while(buffer[i]==' '||buffer[i]=='\t') i++;
-                        for(i4=0;;i++,i4++){
-                            if(!IsVariableChar(buffer[i])){
-                                temp2[i4]=0;
-                                break;
+
+                        temporary[++i2]=',';
+
+                        if( memicmp( buffer + i, "Alias", 5 ) ==0 ){
+                            i+=5;
+                            for(i++,i2++;;i++,i2++){
+                                temporary[i2]=buffer[i];
+                                if(buffer[i]=='('){
+                                    i2--;
+                                    break;
+                                }
+                                if(buffer[i]=='\0') break;
                             }
-                            temp2[i4]=buffer[i];
-                        }
-                        if(lstrcmpi(temp2,"Alias")==0)
-                            temporary[++i2]=',';
+                        }
+
+                        temporary[++i2]=',';
+
                         i--;
                     }
@@ -942 +966 @@
     }
     lstrcpy(buffer,temporary);
-    GlobalFree(temporary);
+    HeapDefaultFree(temporary);
 }
 void DefCommandFormat(char *buffer){