Ignore:
Timestamp:
May 7, 2008, 10:27:02 AM (16 years ago)
Author:
dai_9181
Message:

Procedureクラスインスタンスを対象としたLexicalAnalyzer::SetParamsAndReturnTypeメソッドを実装。

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ab5.0/abdev/BasicCompiler_Common/src/Procedure.cpp

    r572 r573  
    134134}
    135135
    136 bool DllProc::SetParamsAndReturnType( const char *sourceOfParams, int nowLine ){
    137     int i = 0;
    138     int i2,i3,sw;
    139     char temporary[8192],temp2[VN_SIZE];
    140 
    141     //ソースコードの位置
    142     this->codePos = nowLine;
    143 
    144     //パラメータ
    145     if(sourceOfParams[i]!='('){
    146         compiler.errorMessenger.Output(1,NULL,nowLine);
    147         return 0;
    148     }
    149     i++;
    150 
    151     while(1){
    152         if(sourceOfParams[i]==')') break;
    153 
    154         //ByRef
    155         bool isRef;
    156         if(sourceOfParams[i]==1&&sourceOfParams[i+1]==ESC_BYVAL){
    157             isRef = false;
    158             i+=2;
    159         }
    160         else if(sourceOfParams[i]==1&&sourceOfParams[i+1]==ESC_BYREF){
    161             isRef = true;
    162             i+=2;
    163         }
    164         else isRef = false;
    165 
    166         //パラメータ名
    167         bool isArray = false;
    168         Subscripts subscripts;
    169         char name[VN_SIZE];
    170         sw=0;
    171         for(i2=0;;i++,i2++){
    172             if(sourceOfParams[i]=='('){
    173                 if(!sw) sw=1;
    174 
    175                 i3=GetStringInPare(name+i2,sourceOfParams+i);
    176                 i2+=i3-1;
    177                 i+=i3-1;
    178                 continue;
    179             }
    180             if(sourceOfParams[i]=='['){
    181                 if(!sw) sw=1;
    182 
    183                 i3=GetStringInBracket(name+i2,sourceOfParams+i);
    184                 i2+=i3-1;
    185                 i+=i3-1;
    186                 continue;
    187             }
    188             if(!IsVariableChar(sourceOfParams[i])){
    189                 name[i2]=0;
    190                 break;
    191             }
    192             name[i2]=sourceOfParams[i];
    193         }
    194         if(sw){
    195             //配列パラメータ
    196             if( isRef == false ) compiler.errorMessenger.Output(29,NULL,nowLine);
    197             isArray = true;
    198 
    199             if((name[i2-2]=='('&&name[i2-1]==')')||
    200                 (name[i2-2]=='['&&name[i2-1]==']'))
    201             {
    202                 subscripts.push_back( LONG_MAX );
    203 
    204                 name[i2-2]=0;
    205             }
    206             else{
    207                 GetArrange(name,temp2,subscripts);
    208                 lstrcpy(name,temp2);
    209             }
    210 
    211             i2=lstrlen(name);
    212         }
    213 
    214         //型
    215         Type type( DEF_NON );
    216         if(lstrcmp(name,"...")==0) type.SetBasicType( DEF_ELLIPSE );
    217         else if(sourceOfParams[i]==1&&sourceOfParams[i+1]==ESC_AS){
    218             i+=2;
    219 
    220             i2=0;
    221             while(sourceOfParams[i]=='*'){
    222                 temporary[i2]=sourceOfParams[i];
    223                 i++;
    224                 i2++;
    225             }
    226             for(;;i++,i2++){
    227                 if(!IsVariableChar(sourceOfParams[i])){
    228                     if(sourceOfParams[i]==1&&(sourceOfParams[i+1]==ESC_FUNCTION||sourceOfParams[i+1]==ESC_SUB)){
    229                         temporary[i2++]=sourceOfParams[i++];
    230                         temporary[i2]=sourceOfParams[i];
    231                         continue;
    232                     }
    233                     temporary[i2]=0;
    234                     break;
    235                 }
    236                 temporary[i2]=sourceOfParams[i];
    237             }
    238 
    239             compiler.StringToType( temporary, type );
    240 
    241             if( type.IsNull() ){
    242                 compiler.errorMessenger.Output(3,temporary,nowLine);
    243                 type.SetBasicType( DEF_PTR_VOID );
    244             }
    245         }
    246         else{
    247             type.SetBasicType( Type::GetBasicTypeFromSimpleName(temporary) );
    248             compiler.errorMessenger.Output(-103,temporary,nowLine);
    249         }
    250 
    251         Parameter *pParam = new Parameter( name, type, isRef );
    252         if( isArray ){
    253             pParam->SetArray( subscripts );
    254         }
    255 
    256         //パラメータを追加
    257         this->GetParameters().push_back( pParam );
    258 
    259         if(sourceOfParams[i]==','){
    260             i++;
    261             continue;
    262         }
    263         else if(sourceOfParams[i]==')') continue;
    264         else{
    265             compiler.errorMessenger.Output(1,NULL,nowLine);
    266             break;
    267         }
    268     }
    269     i++;
    270 
    271     if(sourceOfParams[i]){
    272         ///////////////////
    273         // 戻り値を取得
    274         ///////////////////
    275 
    276         i2=lstrlen(sourceOfParams)-2;
    277 
    278         int sw_as=0;
    279         for(;i2>0;i2--){
    280             if(sourceOfParams[i2]==')') break;
    281 
    282             if(sourceOfParams[i2]==1&&sourceOfParams[i2+1]==ESC_AS){
    283                 i2+=2;
    284                 i3=0;
    285                 while(sourceOfParams[i2]=='*') temporary[i3++]=sourceOfParams[i2++];
    286                 for(;;i2++,i3++){
    287                     if(!IsVariableChar(sourceOfParams[i2])){
    288                         temporary[i3]=0;
    289                         break;
    290                     }
    291                     temporary[i3]=sourceOfParams[i2];
    292                 }
    293                 compiler.StringToType( temporary, this->returnType );
    294                 if( this->returnType.IsNull() ) compiler.errorMessenger.Output(3,temporary,nowLine);
    295 
    296                 sw_as=1;
    297                 break;
    298             }
    299         }
    300     }
    301     else{
    302         //戻り値なしのSub定義
    303         this->returnType.SetNull();
    304     }
    305 
    306     return true;
    307 }
    308 
    309 bool ProcPointer::SetParamsAndReturnType( const char *sourceOfParams, int nowLine ){
    310     int i = 0;
    311     int i2,i3,sw;
    312     char temporary[8192],temp2[VN_SIZE];
    313 
    314     //ソースコードの位置
    315     this->codePos = nowLine;
    316 
    317     //パラメータ
    318     if(sourceOfParams[i]!='('){
    319         compiler.errorMessenger.Output(1,NULL,nowLine);
    320         return 0;
    321     }
    322     i++;
    323     while(1){
    324         if(sourceOfParams[i]==')') break;
    325 
    326         //ByRef
    327         bool isRef;
    328         if(sourceOfParams[i]==1&&sourceOfParams[i+1]==ESC_BYVAL){
    329             isRef = false;
    330             i+=2;
    331         }
    332         else if(sourceOfParams[i]==1&&sourceOfParams[i+1]==ESC_BYREF){
    333             isRef = true;
    334             i+=2;
    335         }
    336         else isRef = false;
    337 
    338         //パラメータ名
    339         bool isArray = false;
    340         Subscripts subscripts;
    341         char name[VN_SIZE];
    342         sw=0;
    343         for(i2=0;;i++,i2++){
    344             if(sourceOfParams[i]=='('){
    345                 if(!sw) sw=1;
    346 
    347                 i3=GetStringInPare(name+i2,sourceOfParams+i);
    348                 i2+=i3-1;
    349                 i+=i3-1;
    350                 continue;
    351             }
    352             if(sourceOfParams[i]=='['){
    353                 if(!sw) sw=1;
    354 
    355                 i3=GetStringInBracket(name+i2,sourceOfParams+i);
    356                 i2+=i3-1;
    357                 i+=i3-1;
    358                 continue;
    359             }
    360             if(!IsVariableChar(sourceOfParams[i])){
    361                 name[i2]=0;
    362                 break;
    363             }
    364             name[i2]=sourceOfParams[i];
    365         }
    366         if(sw){
    367             //配列パラメータ
    368             if( isRef == false ) compiler.errorMessenger.Output(29,NULL,nowLine);
    369             isArray = true;
    370 
    371             if((name[i2-2]=='('&&name[i2-1]==')')||
    372                 (name[i2-2]=='['&&name[i2-1]==']'))
    373             {
    374                 subscripts.push_back( LONG_MAX );
    375 
    376                 name[i2-2]=0;
    377             }
    378             else{
    379                 GetArrange(name,temp2,subscripts);
    380                 lstrcpy(name,temp2);
    381             }
    382 
    383             i2=lstrlen(name);
    384         }
    385 
    386         //型
    387         Type type( DEF_NON );
    388         if(sourceOfParams[i]==1&&sourceOfParams[i+1]==ESC_AS){
    389             i+=2;
    390 
    391             i2=0;
    392             while(sourceOfParams[i]=='*'){
    393                 temporary[i2]=sourceOfParams[i];
    394                 i++;
    395                 i2++;
    396             }
    397             for(;;i++,i2++){
    398                 if(!IsVariableChar(sourceOfParams[i])){
    399                     if(sourceOfParams[i]==1&&(sourceOfParams[i+1]==ESC_FUNCTION||sourceOfParams[i+1]==ESC_SUB)){
    400                         temporary[i2++]=sourceOfParams[i++];
    401                         temporary[i2]=sourceOfParams[i];
    402                         continue;
    403                     }
    404                     temporary[i2]=0;
    405                     break;
    406                 }
    407                 temporary[i2]=sourceOfParams[i];
    408             }
    409 
    410             compiler.StringToType( temporary, type );
    411 
    412             if( type.IsNull() ){
    413                 compiler.errorMessenger.Output(3,temporary,nowLine);
    414                 type.SetBasicType( DEF_PTR_VOID );
    415             }
    416         }
    417         else{
    418             type.SetBasicType( Type::GetBasicTypeFromSimpleName(temporary) );
    419             compiler.errorMessenger.Output(-103,temporary,nowLine);
    420         }
    421 
    422         Parameter *pParam = new Parameter( name, type, isRef );
    423         if( isArray ){
    424             pParam->SetArray( subscripts );
    425         }
    426 
    427         //パラメータを追加
    428         this->GetParameters().push_back( pParam );
    429 
    430         if(sourceOfParams[i]==','){
    431             i++;
    432             continue;
    433         }
    434         else if(sourceOfParams[i]==')') continue;
    435         else{
    436             compiler.errorMessenger.Output(1,NULL,nowLine);
    437             break;
    438         }
    439     }
    440     i++;
    441 
    442     if(sourceOfParams[i]){
    443         ///////////////////
    444         // 戻り値を取得
    445         ///////////////////
    446 
    447         i2=lstrlen(sourceOfParams)-2;
    448 
    449         int sw_as=0;
    450         for(;i2>0;i2--){
    451             if(sourceOfParams[i2]==')') break;
    452 
    453             if(sourceOfParams[i2]==1&&sourceOfParams[i2+1]==ESC_AS){
    454                 i2+=2;
    455                 i3=0;
    456                 while(sourceOfParams[i2]=='*') temporary[i3++]=sourceOfParams[i2++];
    457                 for(;;i2++,i3++){
    458                     if(!IsVariableChar(sourceOfParams[i2])){
    459                         temporary[i3]=0;
    460                         break;
    461                     }
    462                     temporary[i3]=sourceOfParams[i2];
    463                 }
    464                 compiler.StringToType( temporary, this->returnType );
    465                 if( this->returnType.IsNull() ) compiler.errorMessenger.Output(3,temporary,nowLine);
    466 
    467                 sw_as=1;
    468                 break;
    469             }
    470         }
    471     }
    472     else{
    473         //戻り値なしのSub定義
    474         this->returnType.SetNull();
    475     }
    476 
    477     //戻り値のエラーチェック
    478     if( IsFunction() ){
    479         // Function定義
    480 
    481         if( this->ReturnType().IsNull() ){
    482             // 戻り値がない
    483             compiler.errorMessenger.Output(26,this->GetName(),nowLine);
    484         }
    485     }
    486     else{
    487         if( !this->ReturnType().IsNull() ){
    488             // Sub定義なのに、戻り値がある
    489             compiler.errorMessenger.Output(38,this->GetName(),nowLine);
    490         }
    491     }
    492 
    493     return true;
    494 }
    495 
    496136int ProcPointers::Add( const std::string &typeExpression )
    497137{
    … …  
    508148    //buffer[0]は'('となっている
    509149    extern int cp;
    510     pProcPointer->SetParamsAndReturnType( paramStr.c_str(), cp );
     150    LexicalAnalyzer::SetParamsAndReturnType( pProcPointer, paramStr.c_str(), false, cp );
    511151
    512152    this->push_back( pProcPointer );
Note: See TracChangeset for help on using the changeset viewer.