source: dev/trunk/ab5.0/abdev/abdev/CClassInfo.cpp

Last change on this file was 829, checked in by イグトランス (egtra), 11 years ago

svn:eol-styleとsvn:mime-type（文字コード指定含む）の設定
  • Property svn:eol-style set to native
  • Property svn:mime-type set to text/plain; charset=Shift_JIS
File size: 6.0 KB
Line 
1#include "stdafx.h"
2
3#include "Common.h"
4
5#if defined(JPN)
6//日本語
7#include "pj_msg_jpn.h"
8#else
9//英語
10#include "pj_msg_eng.h"
11#endif
12
13
14CClassInfo::CClassInfo(){
15    pMemberInfo=(MEMBERINFO *)HeapAlloc(hHeap,0,1);
16    MemberNum=0;
17}
18CClassInfo::~CClassInfo(){
19    int i;
20    for(i=0;i<MemberNum;i++){
21        HeapDefaultFree(pMemberInfo[i].pName);
22    }
23    HeapDefaultFree(pMemberInfo);
24}
25
26int CClassInfo::Analyze(char *pBuf,int *p){
27    int i,i2;
28    char temporary[VN_SIZE];
29
30    i=*p;
31
32    DWORD dwAccess;
33
34    //種類を取得
35    DWORD dwClassType;
36    if(memicmp(pBuf+i,"Class",5)==0){
37        dwClassType=ESC_CLASS;
38        i+=5;
39
40        dwAccess=ACCESS_PRIVATE;
41    }
42    else if(memicmp(pBuf+i,"Type",4)==0){
43        dwClassType=ESC_TYPE;
44        i+=4;
45
46        dwAccess=ACCESS_PUBLIC;
47    }
48    else if(memicmp(pBuf+i,"Interface",9)==0){
49        dwClassType=ESC_INTERFACE;
50        i+=9;
51
52        dwAccess=ACCESS_PUBLIC;
53    }
54    else return 0;
55    JumpBlank(pBuf,&i);
56
57
58    //クラス名を取得
59    for(i2=0;;i++,i2++){
60        if(!(IsVariableChar(pBuf[i])||pBuf[i]=='~')){
61            ClassName[i2]=0;
62            break;
63        }
64        ClassName[i2]=pBuf[i];
65    }
66    JumpBlank(pBuf,&i);
67
68
69    //メンバ変数、関数を取得
70    while(1){
71        if(pBuf[i]=='\0') break;
72        if(memicmp(pBuf+i,"End",3)==0){
73            /*  End Class
74                End Type
75                の検出 */
76            i2=i+3;
77            while(pBuf[i2]==' '||pBuf[i2]=='\t') i2++;
78
79            if(memicmp(pBuf+i2,"Class",5)==0&&(!IsVariableChar(pBuf[i2+5]))||
80                memicmp(pBuf+i2,"Interface",9)==0&&(!IsVariableChar(pBuf[i2+9]))||
81                memicmp(pBuf+i2,"Type",4)==0&&(!IsVariableChar(pBuf[i2+4]))){
82                while(!IsCommandDelimitation(pBuf,i2)) i2++;
83                i=i2;
84                break;
85            }
86        }
87
88        // Static/Constを飛ばす
89        if( memicmp(pBuf+i,"Static",6)==0 ){
90            // Static
91            i+=6;
92            while(pBuf[i]==' '||pBuf[i]=='\t') i++;
93        }
94        if(pBuf[i]=='c'||pBuf[i]=='C'){
95            // Const
96            i+=5;
97            while(pBuf[i]==' '||pBuf[i]=='\t') i++;
98        }
99
100        DWORD dwProc;
101        if(memicmp(pBuf+i,"Abstract",8)==0&&(pBuf[i+8]==' '||pBuf[i+8]=='\t')||
102            memicmp(pBuf+i,"Virtual",7)==0&&(pBuf[i+7]==' '||pBuf[i+7]=='\t')||
103            memicmp(pBuf+i,"Override",8)==0&&(pBuf[i+8]==' '||pBuf[i+8]=='\t')||
104            memicmp(pBuf+i,"Function",8)==0&&(pBuf[i+8]==' '||pBuf[i+8]=='\t')||
105            memicmp(pBuf+i,"Sub",3)==0&&(pBuf[i+3]==' '||pBuf[i+3]=='\t')){
106            //メンバ関数のとき
107
108            if(pBuf[i]=='a'||pBuf[i]=='A'){
109                i+=9;
110                dwProc=ESC_ABSTRACT;
111
112                while(pBuf[i]==' '||pBuf[i]=='\t') i++;
113                if(memicmp(pBuf+i,"Function",8)==0&&(pBuf[i+8]==' '||pBuf[i+8]=='\t')) i+=9;
114                else if(memicmp(pBuf+i,"Sub",3)==0&&(pBuf[i+3]==' '||pBuf[i+3]=='\t')) i+=4;
115            }
116            else if(pBuf[i]=='v'||pBuf[i]=='V'){
117                i+=8;
118                dwProc=ESC_VIRTUAL;
119
120                while(pBuf[i]==' '||pBuf[i]=='\t') i++;
121                if(memicmp(pBuf+i,"Function",8)==0&&(pBuf[i+8]==' '||pBuf[i+8]=='\t')) i+=9;
122                else if(memicmp(pBuf+i,"Sub",3)==0&&(pBuf[i+3]==' '||pBuf[i+3]=='\t')) i+=4;
123            }
124            else if(pBuf[i]=='o'||pBuf[i]=='O'){
125                i+=9;
126                dwProc=ESC_OVERRIDE;
127
128                while(pBuf[i]==' '||pBuf[i]=='\t') i++;
129                if(memicmp(pBuf+i,"Function",8)==0&&(pBuf[i+8]==' '||pBuf[i+8]=='\t')) i+=9;
130                else if(memicmp(pBuf+i,"Sub",3)==0&&(pBuf[i+3]==' '||pBuf[i+3]=='\t')) i+=4;
131            }
132            else if(pBuf[i]=='f'||pBuf[i]=='F'){
133                i+=9;
134                dwProc=ESC_FUNCTION;
135            }
136            else if(pBuf[i]=='s'||pBuf[i]=='S'){
137                i+=4;
138                dwProc=ESC_SUB;
139            }
140
141            while(pBuf[i]==' '||pBuf[i]=='\t') i++;
142        }
143        else{
144            //メンバ変数のとき
145            dwProc=0;
146        }
147
148        int code_pos;
149        code_pos=i;
150
151        //変数名または関数名を取得
152        if(pBuf[i]=='~'){
153            temporary[0]='~';
154            i2=1;
155            i++;
156        }
157        else i2=0;
158        for(;;i++,i2++){
159            if(!IsVariableChar(pBuf[i])){
160                temporary[i2]=0;
161                break;
162            }
163            temporary[i2]=pBuf[i];
164        }
165
166        //次の行をサーチ
167        for(;;i++){
168            if(pBuf[i]=='\0') break;
169            if(pBuf[i]=='\''||(pBuf[i]=='/'&&pBuf[i+1]=='*')){
170                //コメント中
171                JumpBlank(pBuf,&i);
172                break;
173            }
174            i2=IsCommandDelimitation(pBuf,i);
175            if(i2){
176                i+=i2;
177                break;
178            }
179        }
180        JumpBlank(pBuf,&i);
181
182        if(lstrcmpi(temporary,"Inherits")==0){
183            //継承指定の場合（ツリーに反映すべきデータはないので無視する）
184            continue;
185        }
186
187        //アクセスを変更
188        if(lstrcmpi(temporary,"Private")==0){
189            dwAccess=ACCESS_PRIVATE;
190            continue;
191        }
192        if(lstrcmpi(temporary,"Public")==0){
193            dwAccess=ACCESS_PUBLIC;
194            continue;
195        }
196        if(lstrcmpi(temporary,"Protected")==0){
197            dwAccess=ACCESS_PROTECTED;
198            continue;
199        }
200
201        //重複チェック（オーバーライド関数を考慮）
202        for(i2=0;i2<MemberNum;i2++){
203            if(lstrcmp(pMemberInfo[i2].pName,temporary)==0){
204                lstrcat(temporary," ");
205                break;
206            }
207        }
208
209        pMemberInfo=
210            (MEMBERINFO *)HeapReAlloc(hHeap,
211                0,
212                pMemberInfo,
213                (MemberNum+1)*sizeof(MEMBERINFO));
214
215        //メンバ名
216        pMemberInfo[MemberNum].pName=
217            (char *)HeapAlloc(hHeap,0,lstrlen(temporary)+1);
218        lstrcpy(pMemberInfo[MemberNum].pName,
219            temporary);
220
221        //メンバの種類（変数、Virtual、Sub、Function）
222        pMemberInfo[MemberNum].dwProc=dwProc;
223
224        //アクセシビリティ
225        pMemberInfo[MemberNum].dwAccess=dwAccess;
226
227        //コードの位置
228        pMemberInfo[MemberNum].code_pos=code_pos;
229
230        MemberNum++;
231
232        if(dwProc){
233            //Abstract定義以外はEnd Sub、End Functionをサーチする
234            if(dwProc==ESC_ABSTRACT) continue;
235            if(dwClassType==ESC_INTERFACE) continue;
236
237            while(1){
238                if(pBuf[i]=='\0'){
239                    i2=0;
240                    break;
241                }
242
243                if(memicmp(pBuf+i,"End",3)==0){
244                    /*  End Sub
245                        End Function
246                        の検出 */
247                    i+=3;
248                    while(pBuf[i]==' '||pBuf[i]=='\t') i++;
249
250                    if(memicmp(pBuf+i,"Sub",3)==0&&(!IsVariableChar(pBuf[i+3]))||
251                        memicmp(pBuf+i,"Function",8)==0&&(!IsVariableChar(pBuf[i+8]))){
252                        i2=1;
253                        break;
254                    }
255
256                    if(memicmp(pBuf+i,"Class",5)==0&&(!IsVariableChar(pBuf[i+5]))||
257                        memicmp(pBuf+i,"Interface",9)==0&&(!IsVariableChar(pBuf[i+9]))||
258                        memicmp(pBuf+i,"Type",4)==0&&(!IsVariableChar(pBuf[i+4]))){
259                        i2=0;
260                        break;
261                    }
262                }
263
264                //次の行をサーチ
265                for(;;i++){
266                    if(pBuf[i]=='\0') break;
267                    i2=IsCommandDelimitation(pBuf,i);
268                    if(i2){
269                        i+=i2;
270                        break;
271                    }
272                }
273                JumpBlank(pBuf,&i);
274            }
275
276            if(i2==0){
277                //コード解析が不正に終了
278                *p=i;
279                return 0;
280            }
281
282            //次の行をサーチ
283            for(;;i++){
284                if(pBuf[i]=='\0') break;
285                i2=IsCommandDelimitation(pBuf,i);
286                if(i2){
287                    i+=i2;
288                    break;
289                }
290            }
291            JumpBlank(pBuf,&i);
292        }
293    }
294
295    *p=i;
296
297    return 1;
298}
299
300
Note: See TracBrowser for help on using the repository browser.