Changeset 511 in dev for trunk/ab5.0/abdev/BasicCompiler_Common/Subroutine.cpp

Timestamp:

Apr 30, 2008, 8:04:04 PM (17 years ago)

Author:

dai_9181

Message:

幾つかの構文解析系の処理をLexicalAnalyzerに実装し直した

File:

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

trunk/ab5.0/abdev/BasicCompiler_Common/Subroutine.cpp

@@ -321 +321 @@
 
     return true;
-}
-
-void CollectProcedures( const BasicSource &source, UserProcs &userProcs, DllProcs &dllProcs )
-{
-    extern HANDLE hHeap;
-    int i,i2,i3;
-    char temporary[8192];
-
-    // 名前空間管理
-    NamespaceScopes &namespaceScopes = compiler.GetNamespaceSupporter().GetLivingNamespaceScopes();
-    namespaceScopes.clear();
-
-    // Importsされた名前空間の管理
-    NamespaceScopesCollection &importedNamespaces = compiler.GetNamespaceSupporter().GetImportedNamespaces();
-    importedNamespaces.clear();
-
-    i=-1;
-    while(1){
-        i++;
-
-        if(source[i]==1&&(source[i+1]==ESC_CLASS||source[i+1]==ESC_INTERFACE)){
-            /*  Class ～ End Class
-                Interface ～ End Interface
-                を飛び越す           */
-            i3=GetEndXXXCommand(source[i+1]);
-            for(i+=2,i2=0;;i++,i2++){
-                if(source[i]=='\0') break;
-                if(source[i]==1&&source[i+1]==(char)i3){
-                    i++;
-                    break;
-                }
-            }
-            if(source[i]=='\0') break;
-            continue;
-        }
-
-        if( source[i] == 1 && source[i+1] == ESC_NAMESPACE ){
-            for(i+=2,i2=0;;i2++,i++){
-                if( IsCommandDelimitation( source[i] ) ){
-                    temporary[i2]=0;
-                    break;
-                }
-                temporary[i2]=source[i];
-            }
-            namespaceScopes.push_back( temporary );
-
-            continue;
-        }
-        else if( source[i] == 1 && source[i+1] == ESC_ENDNAMESPACE ){
-            if( namespaceScopes.size() <= 0 ){
-                compiler.errorMessenger.Output(12, "End Namespace", i );
-            }
-            else{
-                namespaceScopes.pop_back();
-            }
-
-            i += 2;
-            continue;
-        }
-        else if( source[i] == 1 && source[i+1] == ESC_IMPORTS ){
-            for(i+=2,i2=0;;i2++,i++){
-                if( IsCommandDelimitation( source[i] ) ){
-                    temporary[i2]=0;
-                    break;
-                }
-                temporary[i2]=source[i];
-            }
-            if( !compiler.GetNamespaceSupporter().ImportsNamespace( temporary ) )
-            {
-                compiler.errorMessenger.Output(64,temporary,cp );
-            }
-
-            continue;
-        }
-        else if( source[i] == 1 && source[i+1] == ESC_CLEARNAMESPACEIMPORTED ){
-            importedNamespaces.clear();
-            continue;
-        }
-
-        if(source[i]==1&&source[i+1]==ESC_DECLARE){
-            for(i+=2,i2=0;;i2++,i++){
-                if(source[i]=='\n'){
-                    temporary[i2]=0;
-                    break;
-                }
-                temporary[i2]=source[i];
-                if(source[i]=='\0') break;
-            }
-            dllProcs.Add(namespaceScopes,temporary,i);
-
-            continue;
-        }
-        if(source[i]==1&&(source[i+1]==ESC_SUB||source[i+1]==ESC_FUNCTION||source[i+1]==ESC_MACRO)){
-            char statementChar = source[i+1];
-
-            for(i2=0;;i2++,i++){
-                if(IsCommandDelimitation(source[i])){
-                    temporary[i2]=0;
-                    break;
-                }
-                temporary[i2]=source[i];
-                if(source[i]=='\0') break;
-            }
-            userProcs.AddUserProc(namespaceScopes, importedNamespaces, temporary,i,false,NULL,false);
-
-            /*  Sub ～ End Sub
-                Function ～ End Function
-                Macro ～ End Macro
-                を飛び越す           */
-            char endStatementChar = GetEndXXXCommand( statementChar );
-            for(i2=0;;i++,i2++){
-                if( source[i] == '\0' ) break;
-                if( source[i] == 1 && source[i+1] == endStatementChar ){
-                    i++;
-                    break;
-                }
-            }
-            if(source[i]=='\0') break;
-            continue;
-        }
-
-        //次の行
-        for(;;i++){
-            if(IsCommandDelimitation(source[i])) break;
-        }
-        if(source[i]=='\0') break;
-    }
-
-    ////////////
-    // 特殊関数
-    ////////////
-    namespaceScopes.clear();
-    importedNamespaces.clear();
-
-    compiler.globalAreaProcName = "_System_GlobalArea_" + compiler.GetModuleName();
-    sprintf(temporary,"%c%c%s()",1,ESC_SUB,compiler.globalAreaProcName.c_str());
-    userProcs.AddUserProc( namespaceScopes, importedNamespaces, temporary,0,false,NULL,false);
 }