Changeset 209 in dev for trunk/abdev/BasicCompiler_Common/src/Procedure.cpp

Timestamp:

Jul 13, 2007, 4:22:02 AM (17 years ago)

Author:

dai_9181

Message:

DllProcsクラスを追加。

File:

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

trunk/abdev/BasicCompiler_Common/src/Procedure.cpp

@@ -759 +759 @@
 }
 
+void DllProcs::Add(const NamespaceScopes &namespaceScopes, char *buffer,int nowLine){
+    int i2;
+
+    int i=0;
+
+    //Sub/Function
+    Procedure::Kind kind = Procedure::Sub;
+    if(buffer[i]==ESC_SUB){
+    }
+    else if(buffer[i]==ESC_FUNCTION){
+        kind = Procedure::Function;
+    }
+    else{
+        SetError(1,NULL,nowLine);
+        return;
+    }
+    i++;
+
+    //プロシージャ名
+    char procName[VN_SIZE];
+    bool isCdecl = false;
+    for(i2=0;;i++,i2++){
+        if(buffer[i]==1&&buffer[i+1]==ESC_CDECL){
+            isCdecl = true;
+
+            i+=2;
+            procName[i2]=0;
+            break;
+        }
+        if(buffer[i]==','){
+            procName[i2]=0;
+            break;
+        }
+        if(buffer[i]=='\0'){
+            SetError(1,NULL,nowLine);
+            return;
+        }
+        procName[i2]=buffer[i];
+    }
+    i++;
+
+    //ユーザー定義関数との重複チェック
+    if(GetSubHash(procName)){
+        SetError(15,procName,nowLine);
+        return;
+    }
+
+
+    //ライブラリ
+    char dllFileName[MAX_PATH];
+    i = GetOneParameter( buffer, i, dllFileName );
+    Type resultType;
+    _int64 i64data;
+    if( !StaticCalculation( true, dllFileName, 0, &i64data, resultType ) ){
+        return;
+    }
+    if( resultType.GetBasicType() != typeOfPtrChar ){
+        SetError(1,NULL,nowLine);
+        return;
+    }
+    lstrcpy( dllFileName, (char *)i64data );
+    CharUpper(dllFileName);
+    if(!strstr(dllFileName,".")){
+        lstrcat(dllFileName,".DLL");
+        if(lstrlen(dllFileName)>=16){
+            SetError(7,NULL,nowLine);
+            return;
+        }
+    }
+
+    //エイリアス
+    char alias[VN_SIZE];
+    i = GetOneParameter( buffer, i, alias );
+    if( alias[0] ){
+        if( !StaticCalculation( true, alias, 0, &i64data, resultType ) ){
+            return;
+        }
+        if( resultType.GetBasicType() != typeOfPtrChar ){
+            SetError(1,NULL,nowLine);
+            return;
+        }
+        lstrcpy( alias, (char *)i64data );
+    }
+    else{
+        //省略されたときは関数名
+        lstrcpy( alias, procName );
+    }
+
+
+    // オブジェクトを生成
+    DllProc *pDllProc = new DllProc( namespaceScopes, procName, kind, isCdecl, dllFileName, alias );
+
+    // パラメータを解析
+    // ※第1パラメータにに指定するデータの例："( s As String ) As String"
+    pDllProc->SetParamsAndReturnType( buffer + i, nowLine );
+
+    // パラメータのエラーチェック
+    BOOST_FOREACH( const Parameter *pParam, pDllProc->Params() ){
+        if( pParam->IsObject() ){
+            SetError(25,pParam->GetVarName(),nowLine);
+        }
+        if( !pParam->IsRef() ){
+            if( pParam->IsStruct() ){
+                SetError(28,pParam->GetVarName(),nowLine);
+            }
+        }
+    }
+
+    //戻り値のエラーチェック
+    if( pDllProc->IsFunction() ){
+        // Function定義
+
+        if( pDllProc->ReturnType().IsObject() ){
+            // DLL関数ではオブジェクトを戻り値にできない
+            SetError(40,pDllProc->GetName(),nowLine);
+        }
+    }
+
+    // ハッシュマップに追加
+    this->Put( pDllProc );
+}
+
 bool ProcPointer::SetParamsAndReturnType( const char *sourceOfParams, int nowLine ){
     int i = 0;