source: dev/trunk/abdev/ProjectEditor/EndPairCommandComplement.cpp@ 366

Last change on this file since 366 was 366, checked in by dai_9181, 18 years ago

Tryスコープのコード補完機能のバグを修正（EndTryコード補間が過剰に行われていた）。
コンパイラのログ生成処理をきった。
File size: 12.1 KB
Line 
1#include "common.h"
2
3///////////////////////////////////////////////////////////////////
4// ここから、ペアステートメント補完を行うための関数郡
5///////////////////////////////////////////////////////////////////
6
7int GetStartCommandId_FromBuffer(char *buffer){
8 int i;
9 char temporary[VN_SIZE];
10
11 for(i=0;;i++){
12 if(!IsVariableChar(buffer[i])){
13 temporary[i]=0;
14 break;
15 }
16 temporary[i]=buffer[i];
17 }
18
19 if(lstrcmpi(temporary,"If")==0){
20 //If文の場合はブロック形式の有無を判定
21
22 int IsStr=0;
23 for(;;i++){
24 if(buffer[i]=='\"') IsStr^=1;
25 if((buffer[i]=='\''||IsCommandDelimitation(buffer,i))&&IsStr==0){
26 i--;
27 break;
28 }
29 }
30
31 while(buffer[i]==' '||buffer[i]=='\t') i--;
32
33 if(memicmp(buffer+i-3,"Then",4)==0){
34 //ブロック形式のIf
35 return COM_IF;
36 }
37 else{
38 //一行のみのIf
39 return 0;
40 }
41 }
42
43 if(lstrcmpi(temporary,"Virtual")==0||
44 lstrcmpi(temporary,"Override")==0||
45 lstrcmpi(temporary,"Static")==0){
46 if(temporary[0]=='s'||temporary[0]=='S')
47 i=7;
48 else if(temporary[0]=='v'||temporary[0]=='V')
49 i=8;
50 else i=9;
51
52 while(buffer[i]==' '||buffer[i]=='\t') i++;
53
54 int i2;
55 for(i2=0;;i++,i2++){
56 if(!IsVariableChar(buffer[i])){
57 temporary[i2]=0;
58 break;
59 }
60 temporary[i2]=buffer[i];
61 }
62
63 if(lstrcmpi(temporary,"Function")==0) return COM_FUNCTION;
64 if(lstrcmpi(temporary,"Sub")==0) return COM_SUB;
65 return 0;
66 }
67
68 if(lstrcmpi(temporary,"Class")==0) return COM_CLASS;
69 if(lstrcmpi(temporary,"Interface")==0) return COM_INTERFACE;
70 if(lstrcmpi(temporary,"Do")==0) return COM_DO;
71 if(lstrcmpi(temporary,"Enum")==0) return COM_ENUM;
72 if(lstrcmpi(temporary,"For")==0) return COM_FOR;
73 if(lstrcmpi(temporary,"Function")==0) return COM_FUNCTION;
74 if(lstrcmpi(temporary,"Namespace")==0) return COM_NAMESPACE;
75 if(lstrcmpi(temporary,"Select")==0) return COM_SELECT;
76 if(lstrcmpi(temporary,"Sub")==0) return COM_SUB;
77 if(lstrcmpi(temporary,"Try")==0) return COM_TRY;
78 if(lstrcmpi(temporary,"Type")==0) return COM_TYPE;
79 if(lstrcmpi(temporary,"While")==0) return COM_WHILE;
80 if(lstrcmpi(temporary,"With")==0) return COM_WITH;
81
82 return 0;
83}
84int GetEndCommandId_FromBuffer(char *buffer){
85 int i,i2;
86 char temporary[VN_SIZE];
87
88 for(i=0,i2=0;;i++,i2++){
89 if(!IsVariableChar(buffer[i])){
90 temporary[i2]=0;
91
92 if(lstrcmpi(temporary,"End")==0&&
93 (buffer[i]==' '||buffer[i]=='\t')){
94 while(buffer[i]==' '||buffer[i]=='\t') i++;
95 i--;
96 i2--;
97 continue;
98 }
99
100 break;
101 }
102 temporary[i2]=buffer[i];
103 }
104
105 if(lstrcmpi(temporary,"EndClass")==0) return COM_CLASS;
106 if(lstrcmpi(temporary,"EndInterface")==0) return COM_INTERFACE;
107 if(lstrcmpi(temporary,"Loop")==0) return COM_DO;
108 if(lstrcmpi(temporary,"EndEnum")==0) return COM_ENUM;
109 if(lstrcmpi(temporary,"Next")==0) return COM_FOR;
110 if(lstrcmpi(temporary,"EndFunction")==0) return COM_FUNCTION;
111 if(lstrcmpi(temporary,"EndIf")==0) return COM_IF;
112 if(lstrcmpi(temporary,"EndNamespace")==0) return COM_NAMESPACE;
113 if(lstrcmpi(temporary,"EndSelect")==0) return COM_SELECT;
114 if(lstrcmpi(temporary,"EndSub")==0) return COM_SUB;
115 if(lstrcmpi(temporary,"EndTry")==0) return COM_TRY;
116 if(lstrcmpi(temporary,"EndType")==0) return COM_TYPE;
117 if(lstrcmpi(temporary,"Wend")==0) return COM_WHILE;
118 if(lstrcmpi(temporary,"EndWith")==0) return COM_WITH;
119
120 return 0;
121}
122void GetNameOfEndCommand(int CmdId,char *buffer){
123 switch(CmdId){
124 case COM_CLASS:
125 lstrcpy(buffer,"End Class");
126 break;
127 case COM_INTERFACE:
128 lstrcpy(buffer,"End Interface");
129 break;
130 case COM_DO:
131 lstrcpy(buffer,"Loop");
132 break;
133 case COM_ENUM:
134 lstrcpy(buffer,"End Enum");
135 break;
136 case COM_FOR:
137 lstrcpy(buffer,"Next");
138 break;
139 case COM_FUNCTION:
140 lstrcpy(buffer,"End Function");
141 break;
142 case COM_IF:
143 lstrcpy(buffer,"End If");
144 break;
145 case COM_NAMESPACE:
146 lstrcpy(buffer,"End Namespace");
147 break;
148 case COM_SELECT:
149 lstrcpy(buffer,"End Select");
150 break;
151 case COM_SUB:
152 lstrcpy(buffer,"End Sub");
153 break;
154 case COM_TRY:
155 lstrcpy(buffer,"End Try");
156 break;
157 case COM_TYPE:
158 lstrcpy(buffer,"End Type");
159 break;
160 case COM_WHILE:
161 lstrcpy(buffer,"Wend");
162 break;
163 case COM_WITH:
164 lstrcpy(buffer,"End With");
165 break;
166 }
167}
168BOOL IsIntoStringQuotes(char *buffer,int i){
169 int i2;
170
171 i2=i;
172 while(i2&&buffer[i2]!='\n') i2--;
173 if(i2==-1) i2=0;
174 if(buffer[i2]=='\n') i2++;
175
176 int IsStr=0;
177 for(;i2<i;i2++){
178 if(buffer[i2]=='\"') IsStr^=1;
179 }
180 return IsStr;
181}
182BOOL GetEndPairCommandInfo(char *buffer,int p){
183 int i,i2,i3,CmdId;
184 char epcName[32];
185 char indent[255],LineNum;
186
187 int stack[255];
188 int sp;
189
190 CmdId=0;
191 LineNum=0;
192 sp=-1;
193
194 i=p;
195
196 //入力中の行を除く
197 for(i--;i>=0;i--){
198 i2=IsCommandDelimitation(buffer,i);
199 if(i2) break;
200 }
201
202 while(1){
203
204 //i2に一行前の先頭位置を格納
205 for(i--;i>=0;i--){
206 i2=IsCommandDelimitation(buffer,i);
207 if(i2){
208 if(IsIntoStringQuotes(buffer,i)){
209 //文字列中の場合
210 continue;
211 }
212
213 if(i2==1) i2=i+1;
214 else{
215 i2=i+2;
216 LineNum++;
217
218 if(LineNum>pobj_nv->BackNum_PairStatementComplement){
219 //設定された行数を超えた場合
220 return 0;
221 }
222 }
223
224 break;
225 }
226 }
227 if(i==-1) i2=i+1;
228
229 //インデント文字列をindentにコピー
230 for(i3=0;;i2++,i3++){
231 if(buffer[i2]!='\t'){
232 indent[i3]=0;
233 break;
234 }
235 indent[i3]=buffer[i2];
236 }
237
238 //空白文字を飛び越す
239 while(buffer[i2]==' '||buffer[i2]=='\t') i2++;
240
241 //終了コマンドを取得（End Class、End Sub、Next、Wendなど…）
242 i3=GetEndCommandId_FromBuffer(buffer+i2);
243 if(i3){
244 sp++;
245 stack[sp]=i3;
246 }
247
248 //開始コマンドを取得（Class、Sub、For、Whileなど…）
249 i3=GetStartCommandId_FromBuffer(buffer+i2);
250 if(i3){
251 if(sp==-1){
252 CmdId=i3;
253 break;
254 }
255
256 if(stack[sp]!=i3) return 0;
257 sp--;
258 }
259
260 if(i<=0) break;
261 }
262
263 if(!CmdId) return 0;
264
265 extern HANDLE hHeap;
266 extern COMPLEMENT_WINDOW_INFO ComplementWndInfo;
267 if(CmdId==COM_IF){
268 //Else、ElseIf、End Ifをリストに追加
269
270 ///////////////////////
271 // 補完情報
272 ///////////////////////
273
274 ComplementWndInfo.pMemberInfo=(MEMBERINFO *)HeapAlloc(hHeap,0,sizeof(MEMBERINFO)*2);
275 ComplementWndInfo.MemberNum=2;
276
277 ComplementWndInfo.pMemberInfo[0].pName=(char *)HeapAlloc(hHeap,0,5);
278 lstrcpy(ComplementWndInfo.pMemberInfo[0].pName,"Else");
279 ComplementWndInfo.pMemberInfo[0].dwProc=0;
280 ComplementWndInfo.pMemberInfo[0].dwAccess=ACCESS_PAIRCOMMAND;
281
282 ComplementWndInfo.pMemberInfo[1].pName=(char *)HeapAlloc(hHeap,0,7);
283 lstrcpy(ComplementWndInfo.pMemberInfo[1].pName,"End If");
284 ComplementWndInfo.pMemberInfo[1].dwProc=0;
285 ComplementWndInfo.pMemberInfo[1].dwAccess=ACCESS_PAIRCOMMAND;
286 }
287 else if(CmdId==COM_CLASS){
288 ComplementWndInfo.pMemberInfo=(MEMBERINFO *)HeapAlloc(hHeap,0,sizeof(MEMBERINFO)*4);
289 ComplementWndInfo.MemberNum=4;
290
291 ComplementWndInfo.pMemberInfo[0].pName=(char *)HeapAlloc(hHeap,0,10);
292 lstrcpy(ComplementWndInfo.pMemberInfo[0].pName,"End Class");
293 ComplementWndInfo.pMemberInfo[0].dwProc=0;
294 ComplementWndInfo.pMemberInfo[0].dwAccess=ACCESS_PAIRCOMMAND;
295
296 ComplementWndInfo.pMemberInfo[1].pName=(char *)HeapAlloc(hHeap,0,8);
297 lstrcpy(ComplementWndInfo.pMemberInfo[1].pName,"Private");
298 ComplementWndInfo.pMemberInfo[1].dwProc=0;
299 ComplementWndInfo.pMemberInfo[1].dwAccess=ACCESS_PAIRCOMMAND;
300
301 ComplementWndInfo.pMemberInfo[2].pName=(char *)HeapAlloc(hHeap,0,10);
302 lstrcpy(ComplementWndInfo.pMemberInfo[2].pName,"Protected");
303 ComplementWndInfo.pMemberInfo[2].dwProc=0;
304 ComplementWndInfo.pMemberInfo[2].dwAccess=ACCESS_PAIRCOMMAND;
305
306 ComplementWndInfo.pMemberInfo[3].pName=(char *)HeapAlloc(hHeap,0,7);
307 lstrcpy(ComplementWndInfo.pMemberInfo[3].pName,"Public");
308 ComplementWndInfo.pMemberInfo[3].dwProc=0;
309 ComplementWndInfo.pMemberInfo[3].dwAccess=ACCESS_PAIRCOMMAND;
310 }
311 else if(CmdId==COM_SELECT){
312 ComplementWndInfo.pMemberInfo=(MEMBERINFO *)HeapAlloc(hHeap,0,sizeof(MEMBERINFO)*4);
313 ComplementWndInfo.MemberNum=2;
314
315 ComplementWndInfo.pMemberInfo[0].pName=(char *)HeapAlloc(hHeap,0,10);
316 lstrcpy(ComplementWndInfo.pMemberInfo[0].pName,"End Select");
317 ComplementWndInfo.pMemberInfo[0].dwProc=0;
318 ComplementWndInfo.pMemberInfo[0].dwAccess=ACCESS_PAIRCOMMAND;
319
320 ComplementWndInfo.pMemberInfo[1].pName=(char *)HeapAlloc(hHeap,0,8);
321 lstrcpy(ComplementWndInfo.pMemberInfo[1].pName,"Case");
322 ComplementWndInfo.pMemberInfo[1].dwProc=0;
323 ComplementWndInfo.pMemberInfo[1].dwAccess=ACCESS_PAIRCOMMAND;
324 }
325 else if(CmdId==COM_TRY){
326 ComplementWndInfo.pMemberInfo=(MEMBERINFO *)HeapAlloc(hHeap,0,sizeof(MEMBERINFO)*4);
327 ComplementWndInfo.MemberNum=3;
328
329 ComplementWndInfo.pMemberInfo[0].pName=(char *)HeapAlloc(hHeap,0,10);
330 lstrcpy(ComplementWndInfo.pMemberInfo[0].pName,"End Try");
331 ComplementWndInfo.pMemberInfo[0].dwProc=0;
332 ComplementWndInfo.pMemberInfo[0].dwAccess=ACCESS_PAIRCOMMAND;
333
334 ComplementWndInfo.pMemberInfo[1].pName=(char *)HeapAlloc(hHeap,0,10);
335 lstrcpy(ComplementWndInfo.pMemberInfo[1].pName,"Catch");
336 ComplementWndInfo.pMemberInfo[1].dwProc=0;
337 ComplementWndInfo.pMemberInfo[1].dwAccess=ACCESS_PAIRCOMMAND;
338
339 ComplementWndInfo.pMemberInfo[2].pName=(char *)HeapAlloc(hHeap,0,8);
340 lstrcpy(ComplementWndInfo.pMemberInfo[2].pName,"Finally");
341 ComplementWndInfo.pMemberInfo[2].dwProc=0;
342 ComplementWndInfo.pMemberInfo[2].dwAccess=ACCESS_PAIRCOMMAND;
343 }
344 else{
345 //その他のコマンド
346
347 //エンドペアステートメントの名前を取得
348 GetNameOfEndCommand(CmdId,epcName);
349
350
351 ///////////////////////
352 // 補完情報
353 ///////////////////////
354
355 ComplementWndInfo.pMemberInfo=(MEMBERINFO *)HeapAlloc(hHeap,0,sizeof(MEMBERINFO));
356 ComplementWndInfo.MemberNum=1;
357
358 ComplementWndInfo.pMemberInfo[0].pName=(char *)HeapAlloc(hHeap,0,lstrlen(epcName)+1);
359 lstrcpy(ComplementWndInfo.pMemberInfo[0].pName,epcName);
360
361 ComplementWndInfo.pMemberInfo[0].dwProc=0;
362 ComplementWndInfo.pMemberInfo[0].dwAccess=ACCESS_PAIRCOMMAND;
363 }
364 lstrcpy(ComplementWndInfo.szIndent,indent);
365
366
367 return 1;
368}
369BOOL IsNeedNewIndentCommand(char *name){
370 if(lstrcmpi(name,"Case")==0) return 1;
371 return 0;
372}
373
374
375
376///////////////////////////////////////////////
377// Withで構成されるオブジェクト識別子を取得
378///////////////////////////////////////////////
379
380void GetWithObjectVariable(char *buffer,int p,char *pObjectVar){
381 int i,i2,i3,i4,CmdId;
382 char LineNum;
383 char temporary[VN_SIZE];
384
385 int stack[255];
386 int sp;
387
388 CmdId=0;
389 LineNum=0;
390 sp=-1;
391 pObjectVar[0]=0;
392
393 i=p;
394
395 //入力中の行を除く
396 for(i--;i>=0;i--){
397 i2=IsCommandDelimitation(buffer,i);
398 if(i2) break;
399 }
400
401 while(1){
402
403 //i2に一行前の先頭位置を格納
404 for(i--;i>=0;i--){
405 i2=IsCommandDelimitation(buffer,i);
406 if(i2){
407 if(i2==1) i2=i+1;
408 else{
409 i2=i+2;
410 LineNum++;
411
412 if(LineNum>pobj_nv->BackNum_PairStatementComplement){
413 //設定された行数を超えた場合
414 return;
415 }
416 }
417
418 break;
419 }
420 }
421 if(i==-1) i2=i+1;
422
423 //インデントを飛び越す
424 while(buffer[i2]==' '||buffer[i2]=='\t') i2++;
425
426 //終了コマンドを取得（End Class、End Sub、Next、Wendなど…）
427 CmdId=GetEndCommandId_FromBuffer(buffer+i2);
428 if(CmdId){
429 sp++;
430 stack[sp]=CmdId;
431 }
432
433 //開始コマンドを取得（Class、Sub、For、Whileなど…）
434 CmdId=GetStartCommandId_FromBuffer(buffer+i2);
435 if(CmdId){
436 if(sp==-1){
437 if(CmdId==COM_WITH){
438 //オブジェクト識別子を付加
439 i2+=5;
440 while(buffer[i2]==' '||buffer[i2]=='\t') i2++;
441
442 for(i3=0;;i2++,i3++){
443 if(buffer[i2]=='-'&&buffer[i2+1]=='>'){
444 temporary[i3++]=buffer[i2++];
445 temporary[i3]=buffer[i2];
446 continue;
447 }
448 if(buffer[i2]=='['){
449 i4=GetStringInBracket(temporary+i3,buffer+i2);
450 i2+=i4-1;
451 i3+=i4-1;
452 continue;
453 }
454 if(buffer[i2]=='('){
455 i4=GetStringInPare(temporary+i3,buffer+i2);
456 i2+=i4-1;
457 i3+=i4-1;
458 continue;
459 }
460 if(!(IsVariableChar(buffer[i2])||buffer[i2]=='.')){
461 temporary[i3]=0;
462 break;
463 }
464 temporary[i3]=buffer[i2];
465 }
466 lstrcat(temporary,pObjectVar);
467 lstrcpy(pObjectVar,temporary);
468 }
469 }
470 else{
471 if(stack[sp]!=CmdId){
472 pObjectVar[0]=0;
473 break;
474 }
475 sp--;
476 }
477 }
478
479 if(i<=0) break;
480 }
481}
Note: See TracBrowser for help on using the repository browser.