Context Navigation

source: dev/trunk/abdev/BasicCompiler_Common/VarList.cpp@ 280

Last change on this file since 280 was 280, checked in by dai_9181, 17 years ago

File size: 39.3 KB

Line
1	#include "stdafx.h"
2
3	#include <jenga/include/smoothie/Smoothie.h>
4
5	#include <Compiler.h>
6
7	#include "../BasicCompiler_Common/common.h"
8
9	//デバッグ用
10	#include "../BasicCompiler_Common/debug.h"
11
12	//変数リストのツリーハンドル
13	HWND hVarTree_Global,hVarTree_Local,hVarTree_This;
14
15	int VarList_Array(HWND hVarTree,HTREEITEM hParent,LONG_PTR offset,const Type &type,const Subscripts &subscripts);
16	void VarList_Member(HWND hVarTree,HTREEITEM hParent,LONG_PTR pTopOffset,const CClass &objClass,BOOL bPtr);
17	void VarList_Insert(HWND hVarTree,TV_INSERTSTRUCT lptv,const char VarName,const Type &type,LONG_PTR offset){
18	extern HANDLE hDebugProcess;
19	int i2;
20	char temporary[255],temp2[255];
21	LONG_PTR pData;
22	SIZE_T accessBytes;
23	double dbl;
24	float flt;
25	WORD wData;
26	BYTE byteData;
27	HTREEITEM hParent;
28	_int64 i64data;
29
30	if( type.IsObject() \|\| type.IsStruct() ){
31	i2=1;
32	if( type.IsObject() ){
33	// 参照型ということを考慮する
34	i2=ReadProcessMemory(hDebugProcess,(void )offset,&pData,sizeof(void ),&accessBytes);
35	offset = pData;
36	}
37
38	sprintf(lptv->item.pszText,"%s %s(&H%X)",VarName,STRING_OBJECT,(ULONG_PTR)offset);
39	lptv->item.iImage=1;
40	lptv->item.iSelectedImage=1;
41	hParent=TreeView_InsertItem(hVarTree,lptv);
42
43	if(i2 && offset) VarList_Member(hVarTree,hParent,offset,type.GetClass(),0);
44	return;
45	}
46	else if( type.IsObjectPtr() \|\| type.IsStructPtr() ){
47	i2=ReadProcessMemory(hDebugProcess,(void )offset,&pData,sizeof(void ),&accessBytes);
48
49	sprintf(lptv->item.pszText,"%s %s(&H%X)",VarName,STRING_POINTEROFOBJECT,(ULONG_PTR)pData);
50	lptv->item.iImage=4;
51	lptv->item.iSelectedImage=4;
52	hParent=TreeView_InsertItem(hVarTree,lptv);
53
54	if(i2) VarList_Member(hVarTree,hParent,pData,type.GetClass(),1);
55	return;
56	}
57	else{
58	if(type.GetBasicType()==MAKE_PTR_TYPE(DEF_SBYTE,1)\|\|type.GetBasicType()==MAKE_PTR_TYPE(DEF_BYTE,1)){
59	if(ReadProcessMemory(hDebugProcess,(void )offset,&pData,sizeof(void ),&accessBytes)){
60	for(i2=0;;i2++){
61	if(!ReadProcessMemory(hDebugProcess,(void *)(pData+i2),&temporary[i2],1,&accessBytes)){
62	i2=-1;
63	break;
64	}
65	if(temporary[i2]=='\0') break;
66	if(i2==64){
67	lstrcpy(temporary+i2,"...");
68	break;
69	}
70	}
71	if(i2==-1) sprintf(lptv->item.pszText,"%s %d(&H%X)",VarName,(ULONG_PTR)pData,(ULONG_PTR)pData);
72	else sprintf(lptv->item.pszText,"%s %d(&H%X) \"%s\"",VarName,(ULONG_PTR)pData,(ULONG_PTR)pData,temporary);
73	}
74	else sprintf(lptv->item.pszText,"%s %s",VarName,STRING_CANNOTACCESS);
75	}
76	else if(type.IsDouble()){
77	if(ReadProcessMemory(hDebugProcess,(void *)offset,&dbl,sizeof(double),&accessBytes)){
78	sprintf(lptv->item.pszText,"%s %.15g",VarName,dbl);
79	}
80	else sprintf(lptv->item.pszText,"%s %s",VarName,STRING_CANNOTACCESS);
81	}
82	else if(type.IsSingle()){
83	if(ReadProcessMemory(hDebugProcess,(void *)offset,&flt,sizeof(float),&accessBytes)){
84	sprintf(lptv->item.pszText,"%s %.6g",VarName,flt);
85	}
86	else sprintf(lptv->item.pszText,"%s %s",VarName,STRING_CANNOTACCESS);
87	}
88	else if(type.IsInt64()){
89	_int64 i64data;
90	if(ReadProcessMemory(hDebugProcess,(void *)offset,&i64data,sizeof(_int64),&accessBytes)){
91	_i64toa(i64data,temporary,10);
92	_i64toa(i64data,temp2,16);
93	CharUpper(temp2);
94	sprintf(lptv->item.pszText,"%s %s(&H%s)",VarName,temporary,temp2);
95	}
96	else sprintf(lptv->item.pszText,"%s %s",VarName,STRING_CANNOTACCESS);
97	}
98	else if(type.IsQWord()\|\|(type.IsPointer()&&PTR_SIZE==sizeof(_int64))){
99	if(ReadProcessMemory(hDebugProcess,(void *)offset,&i64data,sizeof(_int64),&accessBytes)){
100	_ui64toa(i64data,temporary,10);
101	_ui64toa(i64data,temp2,16);
102	CharUpper(temp2);
103	sprintf(lptv->item.pszText,"%s %s(&H%s)",VarName,temporary,temp2);
104	}
105	else sprintf(lptv->item.pszText,"%s %s",VarName,STRING_CANNOTACCESS);
106	}
107	else if(type.IsLong()){
108	long l;
109	if(ReadProcessMemory(hDebugProcess,(void *)offset,&l,sizeof(long),&accessBytes)){
110	sprintf(lptv->item.pszText,"%s %d(&H%X)",VarName,l,l);
111	}
112	else sprintf(lptv->item.pszText,"%s %s",VarName,STRING_CANNOTACCESS);
113	}
114	else if(type.IsDWord()\|\|(type.IsPointer()&&PTR_SIZE==sizeof(long))){
115	if(ReadProcessMemory(hDebugProcess,(void *)offset,&i64data,sizeof(_int64),&accessBytes)){
116	sprintf(lptv->item.pszText,"%s %u(&H%X)",VarName,(int)i64data,(int)i64data);
117	}
118	else sprintf(lptv->item.pszText,"%s %s",VarName,STRING_CANNOTACCESS);
119	}
120	else if(type.IsInteger()){
121	if(ReadProcessMemory(hDebugProcess,(void *)offset,&wData,sizeof(WORD),&accessBytes)){
122	sprintf(lptv->item.pszText,"%s %d(&H%X)",VarName,(short)wData,(short)wData);
123	}
124	else sprintf(lptv->item.pszText,"%s %s",VarName,STRING_CANNOTACCESS);
125	}
126	else if(type.IsWord()){
127	if(ReadProcessMemory(hDebugProcess,(void *)offset,&wData,sizeof(WORD),&accessBytes)){
128	sprintf(lptv->item.pszText,"%s %u(&H%X)",VarName,wData,wData);
129	}
130	else sprintf(lptv->item.pszText,"%s %s",VarName,STRING_CANNOTACCESS);
131	}
132	else if(type.IsSByte()){
133	if(ReadProcessMemory(hDebugProcess,(void *)offset,&byteData,sizeof(BYTE),&accessBytes)){
134	temporary[0]=byteData;
135	temporary[1]=0;
136	sprintf(lptv->item.pszText,"%s %d(&H%X)'%s'",VarName,(char)byteData,byteData,temporary);
137	}
138	else sprintf(lptv->item.pszText,"%s %s",VarName,STRING_CANNOTACCESS);
139	}
140	else if(type.IsByte()){
141	if(ReadProcessMemory(hDebugProcess,(void *)offset,&byteData,sizeof(BYTE),&accessBytes)){
142	temporary[0]=byteData;
143	temporary[1]=0;
144	sprintf(lptv->item.pszText,"%s %d(&H%X)'%s'",VarName,byteData,byteData,temporary);
145	}
146	else sprintf(lptv->item.pszText,"%s %s",VarName,STRING_CANNOTACCESS);
147	}
148	else if(type.IsBoolean()){
149	if(ReadProcessMemory(hDebugProcess,(void *)offset,&byteData,sizeof(BYTE),&accessBytes)){
150	if( byteData ) lstrcpy( temporary, "True" );
151	else lstrcpy( temporary, "False" );
152
153	wsprintf(lptv->item.pszText,"%s %s",VarName,temporary);
154	}
155	else sprintf(lptv->item.pszText,"%s %s",VarName,STRING_CANNOTACCESS);
156	}
157	lptv->item.iImage=2;
158	lptv->item.iSelectedImage=2;
159	}
160	TreeView_InsertItem(hVarTree,lptv);
161	}
162	void VarList_Member(HWND hVarTree,HTREEITEM hParent,LONG_PTR pTopOffset,const CClass &objClass,BOOL bPtr){
163	char VarData[VN_SIZE],VarName[VN_SIZE];
164	TV_INSERTSTRUCT tv;
165
166	memset(&tv,0,sizeof(TV_INSERTSTRUCT));
167	tv.hInsertAfter=TVI_LAST;
168	tv.item.mask=TVIF_TEXT\|TVIF_IMAGE\|TVIF_SELECTEDIMAGE;
169	tv.hParent=hParent;
170	tv.item.pszText=VarData;
171
172	BOOST_FOREACH( CMember *pMember, objClass.GetDynamicMembers() ){
173	if(bPtr){
174	lstrcpy(VarName,"->");
175	lstrcat(VarName,pMember->GetName().c_str());
176	}
177	else{
178	lstrcpy(VarName,".");
179	lstrcat(VarName,pMember->GetName().c_str());
180	}
181
182	LONG_PTR offset;
183	int i2;
184	offset=objClass.GetMemberOffset( pMember->GetName().c_str(), &i2 );
185
186	if( pMember->GetSubscripts().size() > 0 ){
187	//構造体内の配列
188	sprintf(VarData,"%s %s(&H%X)",VarName,STRING_ARRAY,pTopOffset+offset);
189	tv.item.iImage=0;
190	tv.item.iSelectedImage=0;
191	hParent=TreeView_InsertItem(hVarTree,&tv);
192
193	VarList_Array(
194	hVarTree,
195	hParent,
196	pTopOffset + offset,
197	pMember->GetType(),
198	pMember->GetSubscripts()
199	);
200	}
201	else{
202	//メンバ変数
203	VarList_Insert(hVarTree,
204	&tv,
205	VarName,
206	pMember->GetType(),
207	pTopOffset+offset);
208	}
209	}
210	}
211	int VarList_Array(HWND hVarTree,HTREEITEM hParent,LONG_PTR offset,const Type &type, const Subscripts &subscripts ){
212	int i,i2,i3,ElementNum,MemCounter,UseCount[255];
213	char temporary[VN_SIZE],temp2[DIGIT_SIZE];
214
215	TV_INSERTSTRUCT tv;
216	memset(&tv,0,sizeof(TV_INSERTSTRUCT));
217	tv.hInsertAfter=TVI_LAST;
218	tv.item.mask=TVIF_TEXT\|TVIF_IMAGE\|TVIF_SELECTEDIMAGE;
219	tv.hParent=hParent;
220	tv.item.pszText=temporary;
221
222	for(i=0;i<(int)subscripts.size();i++){
223	UseCount[i]=0;
224	}
225	UseCount[i]=-2;
226	MemCounter=0;
227	i--;
228	while(1){
229	UseCount[i]++;
230	for(ElementNum=0;subscripts[i-ElementNum]<UseCount[i-ElementNum];ElementNum++){
231	UseCount[i-ElementNum]=0;
232	if(i-ElementNum-1<0) return MemCounter;
233	UseCount[i-ElementNum-1]++;
234	}
235
236	if(MemCounter<50){
237	temporary[0]='[';
238	temporary[1]=0;
239	for(i2=0;i2<i;i2++){
240	sprintf(temp2,"%d",UseCount[i2]);
241	lstrcat(temporary,temp2);
242	lstrcat(temporary,",");
243	}
244	i3=lstrlen(temporary);
245	temporary[i3-1]=']';
246	temporary[i3]=0;
247
248	VarList_Insert(hVarTree,&tv,temporary,type,
249	offset+MemCounter*type.GetSize());
250	}
251
252	MemCounter++;
253	if(MemCounter==50){
254	lstrcpy(tv.item.pszText,"...");
255	TreeView_InsertItem(hVarTree,&tv);
256	}
257	}
258	return 0;
259	}
260	void RefreshGlobalVar(void){
261	extern DWORD ImageBase;
262	char temporary[VN_SIZE];
263	TV_INSERTSTRUCT tv;
264	HTREEITEM hParent;
265
266	TreeView_DeleteAllItems(hVarTree_Global);
267
268	memset(&tv,0,sizeof(TV_INSERTSTRUCT));
269	tv.hInsertAfter=TVI_LAST;
270	tv.item.mask=TVIF_TEXT\|TVIF_IMAGE\|TVIF_SELECTEDIMAGE;
271	tv.hParent=TVI_ROOT;
272	tv.item.pszText=temporary;
273
274	extern HANDLE hDebugProcess;
275	extern int MemPos_RWSection;
276
277	BOOST_FOREACH( Variable *pVar, compiler.GetObjectModule().meta.GetGlobalVars() ){
278
279	//スコープ外の場合は無視
280	if(pVar->GetScopeLevel()!=0){
281	if(rva_to_real(pVar->GetScopeStartAddress()) <= pobj_dti->lplpObp[0] &&
282	pobj_dti->lplpObp[0] < rva_to_real(pVar->GetScopeEndAddress())){
283	//範囲内
284	}
285	else{
286	//範囲外
287	continue;
288	}
289	}
290
291
292	if(!pobj_nv->bShow_DefaultSystem_Var){
293	if(memcmp(pVar->GetName().c_str(),"_System_",8)==0\|\|
294	memcmp(pVar->GetName().c_str(),"_DebugSys_",10)==0\|\|
295	memcmp(pVar->GetName().c_str(),"_PromptSys_",11)==0) continue;
296	}
297	if(!pobj_nv->bShow_Rad_Var){
298	if(memcmp(pVar->GetName().c_str(),"_RadSys_",8)==0) continue;
299	}
300	if(!pobj_nv->bShow_GUID_Var){
301	if(memcmp(pVar->GetName().c_str(),"GUID_",5)==0\|\|
302	memcmp(pVar->GetName().c_str(),"IID_",4)==0\|\|
303	memcmp(pVar->GetName().c_str(),"CLSID_",6)==0) continue;
304	}
305
306	//静的メンバ
307	if(strstr(pVar->GetName().c_str(),".")) continue;
308
309	if(pVar->IsArray()){
310	sprintf(temporary,"%s %s(&H%X)",
311	pVar->GetName().c_str(),
312	STRING_ARRAY,
313	ImageBase+MemPos_RWSection+pVar->GetOffsetAddress());
314	tv.item.iImage=0;
315	tv.item.iSelectedImage=0;
316	hParent=TreeView_InsertItem(hVarTree_Global,&tv);
317
318	VarList_Array(
319	hVarTree_Global,
320	hParent,
321	(LONG_PTR)(ImageBase+MemPos_RWSection + pVar->GetOffsetAddress()),
322	pVar->GetType(),
323	pVar->GetSubscripts()
324	);
325	}
326	else{
327	VarList_Insert(hVarTree_Global,
328	&tv,
329	pVar->GetName().c_str(),
330	pVar->GetType(),
331	(LONG_PTR)(ImageBase+MemPos_RWSection+pVar->GetOffsetAddress()));
332	}
333	}
334	}
335	void RefreshLocalVar(void){
336	int i2;
337	char temporary[VN_SIZE];
338	TV_INSERTSTRUCT tv;
339	HTREEITEM hParent;
340	LONG_PTR offset;
341	SIZE_T accessBytes;
342	LONG_PTR lpData;
343
344	TreeView_DeleteAllItems(hVarTree_Local);
345
346	memset(&tv,0,sizeof(TV_INSERTSTRUCT));
347	tv.hInsertAfter=TVI_LAST;
348	tv.item.mask=TVIF_TEXT\|TVIF_IMAGE\|TVIF_SELECTEDIMAGE;
349	tv.hParent=TVI_ROOT;
350	tv.item.pszText=temporary;
351
352	extern HANDLE hDebugProcess;
353	extern HWND hDebugWnd;
354	i2=(int)SendDlgItemMessage(hDebugWnd,IDC_PROCCOMBO,CB_GETCURSEL,0,0);
355	i2=pobj_dti->iProcLevel-i2;
356
357	if(pobj_dti->lplpSpBase[i2]==0) return;
358
359	UserProc *pUserProc = NULL;
360	compiler.GetObjectModule().meta.GetUserProcs().Iterator_Reset();
361	while( compiler.GetObjectModule().meta.GetUserProcs().Iterator_HasNext() )
362	{
363	pUserProc = compiler.GetObjectModule().meta.GetUserProcs().Iterator_GetNext();
364	if(rva_to_real(pUserProc->GetBeginOpAddress()) <= pobj_dti->lplpObp[i2] &&
365	pobj_dti->lplpObp[i2] < rva_to_real(pUserProc->GetEndOpAddress())){
366	break;
367	}
368	}
369	if(!pUserProc) return;
370
371	BOOST_FOREACH( Variable *pVar, pUserProc->GetLocalVars() ){
372
373	//スコープ外の場合は無視
374	if(pVar->GetScopeLevel()!=0){
375	if(rva_to_real(pVar->GetScopeStartAddress()) <= pobj_dti->lplpObp[i2] &&
376	pobj_dti->lplpObp[i2] < rva_to_real(pVar->GetScopeEndAddress())){
377	//範囲内
378	}
379	else{
380	//範囲外
381	continue;
382	}
383	}
384
385	if(pVar->IsArray()){
386	sprintf(temporary,"%s %s(&H%X)",
387	pVar->GetName().c_str(),
388	STRING_ARRAY,
389	pobj_dti->lplpSpBase[i2]+pVar->GetOffsetAddress());
390	tv.item.iImage=0;
391	tv.item.iSelectedImage=0;
392	hParent=TreeView_InsertItem(hVarTree_Local,&tv);
393
394	VarList_Array(
395	hVarTree_Local,
396	hParent,
397	pobj_dti->lplpSpBase[i2] + pVar->GetOffsetAddress(),
398	pVar->GetType(),
399	pVar->GetSubscripts()
400	);
401	}
402	else{
403	offset=pobj_dti->lplpSpBase[i2]+pVar->GetOffsetAddress();
404	if(pVar->IsRef()){
405	ReadProcessMemory(hDebugProcess,(void *)offset,&lpData,sizeof(LONG_PTR),&accessBytes);
406	offset=lpData;
407	}
408	VarList_Insert(hVarTree_Local,&tv,
409	pVar->GetName().c_str(),
410	pVar->GetType(),
411	offset);
412	}
413	}
414
415
416
417	/////////////////////////////
418	// Thisオブジェクトのリスト
419	/////////////////////////////
420
421	TreeView_DeleteAllItems(hVarTree_This);
422	if( pUserProc->IsGlobalProcedure() ) return;
423
424	//Thisポインタを取得
425	LONG_PTR pThis;
426	const Variable *pVar = pUserProc->GetLocalVars().Find( Symbol( "_System_LocalThis" ) );
427	if( !pVar ){
428	return;
429	}
430	lpData=pobj_dti->lplpSpBase[i2]+pVar->GetOffsetAddress();
431	ReadProcessMemory(hDebugProcess,(void *)lpData,&pThis,sizeof(LONG_PTR),&accessBytes);
432
433	BOOST_FOREACH( CMember *pMember, pUserProc->GetParentClassPtr()->GetDynamicMembers() ){
434	offset=pUserProc->GetParentClassPtr()->GetMemberOffset( pMember->GetName().c_str(),&i2);
435
436	if( pMember->GetSubscripts().size() > 0 ){
437	//配列
438	sprintf(temporary,"%s %s(&H%X)",
439	pMember->GetName().c_str(),
440	STRING_ARRAY,
441	(ULONG_PTR)offset);
442	tv.item.iImage=0;
443	tv.item.iSelectedImage=0;
444	hParent=TreeView_InsertItem(hVarTree_This,&tv);
445
446	VarList_Array(
447	hVarTree_This,
448	hParent,
449	pThis + offset,
450	pMember->GetType(),
451	pMember->GetSubscripts()
452	);
453	}
454	else{
455	VarList_Insert(hVarTree_This,&tv,
456	pMember->GetName().c_str(),
457	pMember->GetType(),
458	pThis+offset);
459	}
460	}
461	}
462	void RefreshGlobalVar_with_WindowLock(void){
463	extern HWND hDebugWnd;
464
465	//処理時間を短くするため、一時的に非表示にする
466	LockWindowUpdate(hDebugWnd);
467	ShowWindow(GetParent(hVarTree_Global),SW_HIDE);
468
469	//リフレッシュ
470	RefreshGlobalVar();
471
472	LockWindowUpdate(NULL);
473	ShowWindow(GetParent(hVarTree_Global),SW_SHOW);
474	}
475	void RefreshLocalVar_with_WindowLock(void){
476	extern HWND hDebugWnd;
477
478	//処理時間を短くするため、一時的に非表示にする
479	LockWindowUpdate(hDebugWnd);
480	ShowWindow(GetParent(hVarTree_Local),SW_HIDE);
481
482	//リフレッシュ
483	RefreshLocalVar();
484
485	LockWindowUpdate(NULL);
486	ShowWindow(GetParent(hVarTree_Local),SW_SHOW);
487	}
488
489	void SetCalcToWatchList(HWND hListView,int iItem,char *buffer){
490	char temporary[255],temp2[255];
491
492	//エスケープシーケンスをセット
493	SetEscapeSequenceFormat(buffer);
494
495	KillStringSpaces(buffer);
496
497	//カッコを相互チェック
498	if(!CheckParenthesis2(buffer)){
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517	ListView_SetItemText(hListView,iItem,1,"式の解析に失敗");
518	return;
519	}
520
521	double dbl;
522	_int64 i64data;
523	Type resultType;
524	bool isMemoryAccessError;
525	if( !StaticCalculation(true, buffer,0,&i64data,resultType,1,&isMemoryAccessError) ){
526	ListView_SetItemText(hListView,iItem,1,"式の解析に失敗");
527	}
528	else if(isMemoryAccessError){
529	ListView_SetItemText(hListView,iItem,1,"アクセスできません");
530	}
531	else{
532	if(resultType.IsReal()){
533	memcpy(&dbl,&i64data,sizeof(double));
534	sprintf(temporary,"%.15g (&H%08X)",dbl,(int)dbl);
535	}
536	else if(resultType.Is64()){
537	_i64toa(i64data,temporary,10);
538	_i64toa(i64data,temp2,16);
539	CharUpper(temp2);
540	sprintf(temporary+lstrlen(temporary)," (&H%s)",temp2);
541	}
542	else sprintf(temporary,"%d (&H%08X)",(long)i64data,(long)i64data);
543
544	ListView_SetItemText(hListView,iItem,1,temporary);
545	}
546	}
547	void RefreshWatchList(void){
548	extern HWND hDebugWnd;
549	HWND hListView;
550	int i,i2;
551	char temporary[VN_SIZE];
552
553	hListView=GetDlgItem(hDebugWnd,IDC_WATCHLIST);
554	i2=ListView_GetItemCount(hListView);
555	for(i=0;i<i2-1;i++){
556	ListView_GetItemText(hListView,i,0,temporary,VN_SIZE);
557
558	//演算結果を表示
559	SetCalcToWatchList(hListView,i,temporary);
560	}
561	}
562
563	BOOL SetDebugProcCombo(HWND hProcCombo){
564	int i2,i3;
565	char temporary[255];
566
567	extern DWORD ImageBase;
568	extern int MemPos_CodeSection;
569
570	//行番号情報
571	extern SourceLines oldSourceLines;
572	for(i3=0;i3<(int)pobj_dti->iProcLevel+1;i3++){
573	for(i2=0;i2<(int)oldSourceLines.size()-2;i2++){
574	if((ULONG_PTR)(oldSourceLines[i2].GetNativeCodePos()+ImageBase+MemPos_CodeSection)<=pobj_dti->lplpObp[i3]&&
575	pobj_dti->lplpObp[i3]<=(ULONG_PTR)(oldSourceLines[i2+1].GetNativeCodePos()+ImageBase+MemPos_CodeSection)) break;
576	}
577	if(i2==oldSourceLines.size()-1) pobj_dti->lpdwCp[i3]=-1;
578	else
579	{
580	pobj_dti->lpdwCp[i3]=oldSourceLines[i2].GetSourceCodePos();
581	pobj_dti->lpdwSourceIndex[i3]=oldSourceLines[i2].GetSourceIndex();
582	}
583	}
584	for(i3=0;i3<(int)pobj_dti->iProcLevel+1;i3++){
585	if(pobj_dti->lpdwCp[i3]==-1){
586	pobj_dti->iProcLevel--;
587	for(i2=i3;i2<(int)pobj_dti->iProcLevel+1;i2++){
588	pobj_dti->lplpObp[i2]=pobj_dti->lplpObp[i2+1];
589	pobj_dti->lplpSpBase[i2]=pobj_dti->lplpSpBase[i2+1];
590	pobj_dti->lpdwCp[i2]=pobj_dti->lpdwCp[i2+1];
591	pobj_dti->lpdwSourceIndex[i2]=pobj_dti->lpdwSourceIndex[i2+1];
592	}
593	i3--;
594	continue;
595	}
596	}
597
598	std::string dummyStr;
599	if(!compiler.GetObjectModule().GetSource( pobj_dti->lpdwSourceIndex[pobj_dti->iProcLevel] ).GetLineInfo( pobj_dti->lpdwCp[pobj_dti->iProcLevel], i2, dummyStr )){
600	extern HWND hMainDlg;
601	//"デバッグ情報の取得に失敗"
602	MessageBox(hMainDlg,STRING_DEBUG_FAILED,"ActiveBasic error",MB_OK);
603	return 0;
604	}
605	ShowErrorLine(i2,dummyStr.c_str());
606
607	//プロシージャコンボボックス
608	SendMessage(hProcCombo,CB_RESETCONTENT,0,0);
609	for(i2=pobj_dti->iProcLevel;i2>=0;i2--){
610
611	UserProc *pUserProc = NULL;
612	compiler.GetObjectModule().meta.GetUserProcs().Iterator_Reset();
613	while( compiler.GetObjectModule().meta.GetUserProcs().Iterator_HasNext() )
614	{
615	pUserProc = compiler.GetObjectModule().meta.GetUserProcs().Iterator_GetNext();
616
617	if(rva_to_real(pUserProc->GetBeginOpAddress()) <= pobj_dti->lplpObp[i2] &&
618	pobj_dti->lplpObp[i2] < rva_to_real(pUserProc->GetEndOpAddress()))
619	{
620	lstrcpy(temporary,pUserProc->GetName().c_str());
621	break;
622	}
623	}
624	if(!pUserProc){
625	if(i2==0){
626	lstrcpy(temporary,"Global");
627	pobj_dti->lplpSpBase[i2]=0;
628	}
629	else lstrcpy(temporary,"error");
630	}
631	SendMessage(hProcCombo,CB_ADDSTRING,0,(LPARAM)temporary);
632	}
633	SendMessage(hProcCombo,CB_SETCURSEL,0,0);
634
635	return pobj_dti->iProcLevel;
636	}
637
638	//IDC_THREADCOMBOプロシージャ
639	LRESULT CALLBACK ThreadComboProc(HWND hwnd,UINT message,WPARAM wParam,LPARAM lParam){
640	extern WNDPROC OldThreadComboProc;
641	int i2;
642	DWORD dwThreadID;
643	char temporary[255];
644
645	switch(message){
646	case WM_COMMAND:
647	if(HIWORD(wParam)==CBN_SELCHANGE){
648	SendMessage(hwnd,CB_GETLBTEXT,SendMessage(hwnd,CB_GETCURSEL,0,0),(LPARAM)temporary);
649	sscanf(temporary+2,"%X",&dwThreadID);
650
651	extern DWORD _DebugSys_dwThreadID[256];
652	i2=0;
653	while(_DebugSys_dwThreadID[i2]!=dwThreadID) i2++;
654
655	//次回のステップ実行対象を指定
656	extern int NextStepThreadNum;
657	NextStepThreadNum=i2;
658
659	//スレッド情報をリフレッシュ
660	pobj_dti->Reflesh(i2);
661
662	SetDebugProcCombo(GetDlgItem(GetParent(hwnd),IDC_PROCCOMBO));
663
664	SendDlgItemMessage(GetParent(hwnd),IDC_PROCCOMBO,WM_COMMAND,MAKELONG(0,CBN_SELCHANGE),0);
665	}
666	break;
667	}
668	return CallWindowProc(OldThreadComboProc,hwnd,message,wParam,lParam);
669	}
670	//IDC_PROCCOMBOプロシージャ
671	LRESULT CALLBACK ProcComboProc(HWND hwnd,UINT message,WPARAM wParam,LPARAM lParam){
672	extern WNDPROC OldProcComboProc;
673	int i2,i3;
674
675	switch(message){
676	case WM_COMMAND:
677	if(HIWORD(wParam)==CBN_SELCHANGE){
678	i2=(int)SendMessage(hwnd,CB_GETCURSEL,0,0);
679
680	std::string dummyStr;
681	compiler.GetObjectModule().GetSource( pobj_dti->lpdwSourceIndex[pobj_dti->iProcLevel] ).GetLineInfo( pobj_dti->lpdwCp[pobj_dti->iProcLevel-i2], i3, dummyStr );
682	ShowErrorLine(i3,dummyStr.c_str());
683
684	RefreshLocalVar_with_WindowLock();
685	}
686	break;
687	}
688	return CallWindowProc(OldProcComboProc,hwnd,message,wParam,lParam);
689	}
690	void InitVarList(DWORD dwThreadId){
691	extern HWND hDebugWnd;
692	int i2,i5;
693	char temporary[255];
694
695
696	//スレッド
697	SendDlgItemMessage(hDebugWnd,IDC_THREADCOMBO,CB_RESETCONTENT,0,0);
698	extern DWORD _DebugSys_dwThreadID[256];
699	for(i2=0;i2<256;i2++){
700	if(_DebugSys_dwThreadID[i2]){
701	sprintf(temporary,"&H%08X",_DebugSys_dwThreadID[i2]);
702	SendDlgItemMessage(hDebugWnd,IDC_THREADCOMBO,CB_ADDSTRING,0,(LPARAM)temporary);
703	if(_DebugSys_dwThreadID[i2]==dwThreadId){
704	extern int NextStepThreadNum;
705	NextStepThreadNum=i2;
706	}
707	}
708	}
709	sprintf(temporary,"&H%08X",dwThreadId);
710	i5=(int)SendDlgItemMessage(hDebugWnd,IDC_THREADCOMBO,CB_FINDSTRING,0,(LPARAM)temporary);
711	SendDlgItemMessage(hDebugWnd,IDC_THREADCOMBO,CB_SETCURSEL,i5,0);
712
713	i2=SetDebugProcCombo(GetDlgItem(hDebugWnd,IDC_PROCCOMBO));
714
715
716	///////////////////////////////////////////////
717	// 実行中のプロシージャのローカル変数をセット
718	///////////////////////////////////////////////
719
720	i2=(int)SendDlgItemMessage(hDebugWnd,IDC_PROCCOMBO,CB_GETCURSEL,0,0);
721	i2=pobj_dti->iProcLevel-i2;
722
723	if(pobj_dti->lplpSpBase[i2]){
724
725	UserProc *pUserProc = NULL;
726	compiler.GetObjectModule().meta.GetUserProcs().Iterator_Reset();
727	while( compiler.GetObjectModule().meta.GetUserProcs().Iterator_HasNext() )
728	{
729	pUserProc = compiler.GetObjectModule().meta.GetUserProcs().Iterator_GetNext();
730
731	if(rva_to_real(pUserProc->GetBeginOpAddress()) <= pobj_dti->lplpObp[i2] &&
732	pobj_dti->lplpObp[i2] < rva_to_real(pUserProc->GetEndOpAddress())){
733	break;
734	}
735	}
736
737	if(pUserProc){
738	compiler.pCompilingClass = pUserProc->GetParentClassPtr();
739	UserProc::CompileStartForUserProc( pUserProc );
740	}
741	}
742
743
744	////////////////////////
745	// 変数リストを再表示
746	////////////////////////
747
748	//処理時間を短くするため、一時的に非表示にする
749	LockWindowUpdate(hDebugWnd);
750	ShowWindow(GetParent(hVarTree_Global),SW_HIDE);
751	ShowWindow(GetDlgItem(hDebugWnd,IDC_WATCHLIST),SW_HIDE);
752
753	//リフレッシュ
754	RefreshLocalVar();
755	RefreshGlobalVar();
756	RefreshWatchList();
757
758	LockWindowUpdate(NULL);
759	ShowWindow(GetParent(hVarTree_Global),SW_SHOW);
760	ShowWindow(GetDlgItem(hDebugWnd,IDC_WATCHLIST),SW_SHOW);
761	}
762
763
764
765
766	//////////////////////////////////////
767	// エディタに埋め込み表示のデバッガ
768	//////////////////////////////////////
769
770	BOOL CALLBACK DebuggerButtonsProc(HWND hwnd,UINT message,WPARAM wParam,LPARAM lParam){
771	extern HINSTANCE hInst;
772	extern DWORD dwStepRun;
773
774	//デバッガ用ツールバー
775	#define BMPNUM_DEBUGGERTOOLBAR 3
776	#define BTNNUM_DEBUGGERTOOLBAR 4
777	TBBUTTON DebuggerToolBar[]={
778	{0,IDC_DEBUG_START,TBSTATE_ENABLED,TBSTYLE_BUTTON,0,0},
779	{0,0,TBSTATE_ENABLED,TBSTYLE_SEP,0,0},
780	{1,IDC_DEBUG_STEPOVER,TBSTATE_ENABLED,TBSTYLE_BUTTON,0,0},
781	{2,IDC_DEBUG_STEPIN,TBSTATE_ENABLED,TBSTYLE_BUTTON,0,0},
782	};
783	TOOLTIPTEXT *pTipText;
784
785	static HIMAGELIST hImageList,hImageList_Disabled;
786
787	switch(message){
788	case WM_INITDIALOG:
789	//ツールバーを生成
790	extern HWND hDebuggerToolbar;
791	hDebuggerToolbar=CreateToolbarEx(hwnd,WS_CHILD\|WS_VISIBLE\|CCS_NODIVIDER\|TBSTYLE_FLAT\|TBSTYLE_TOOLTIPS\|WS_CLIPSIBLINGS,
792	NULL,
793	0,0,0,
794	DebuggerToolBar,
795	BTNNUM_DEBUGGERTOOLBAR, /アイテムの個数/
796	0,0,16,15,sizeof(TBBUTTON));
797
798	hImageList = ImageList_LoadImage(hInst, MAKEINTRESOURCE(IDR_DEBUGGERTOOLBAR),
799	16, 0, RGB(192,192,192),IMAGE_BITMAP, LR_CREATEDIBSECTION);
800	SendMessage(hDebuggerToolbar, TB_SETIMAGELIST, 0, (LPARAM)hImageList);
801	hImageList_Disabled = ImageList_LoadImage(hInst, MAKEINTRESOURCE(IDR_DEBUGGERTOOLBAR_DISABLED),
802	16, 0, RGB(192,192,192),IMAGE_BITMAP, LR_CREATEDIBSECTION);
803	SendMessage(hDebuggerToolbar, TB_SETDISABLEDIMAGELIST, 0, (LPARAM)hImageList_Disabled);
804
805	break;
806	case WM_COMMAND:
807	switch(LOWORD(wParam)){
808	case IDC_DEBUG_START:
809	DestroyWindow(GetParent(hwnd));
810	return 1;
811	case IDC_DEBUG_STEPIN:
812	dwStepRun=1;
813	return 1;
814	case IDC_DEBUG_STEPOVER:
815	dwStepRun=2;
816	return 1;
817	}
818	break;
819	case WM_NOTIFY:
820	pTipText=(TOOLTIPTEXT *)lParam;
821	if(pTipText->hdr.code==TTN_NEEDTEXT){
822	//ツールチップを表示
823	switch(pTipText->hdr.idFrom){
824	case IDC_DEBUG_START:
825	pTipText->lpszText="実行";
826	break;
827	case IDC_DEBUG_STEPOVER:
828	pTipText->lpszText="ステップアウト";
829	break;
830	case IDC_DEBUG_STEPIN:
831	pTipText->lpszText="ステップイン";
832	break;
833	}
834	}
835	break;
836	case WM_SIZE:
837	MoveWindow(hDebuggerToolbar,0,0,LOWORD(lParam),HIWORD(lParam),1);
838	return 1;
839
840	case WM_DESTROY:
841	ImageList_Destroy(hImageList);
842	ImageList_Destroy(hImageList_Disabled);
843	return 1;
844	}
845	return 0;
846	}
847
848	WNDPROC OldTabProc;
849	LRESULT CALLBACK TabProc(HWND hwnd,UINT message,WPARAM wParam,LPARAM lParam){
850	extern HINSTANCE hInst;
851
852	static HMENU hDummyMenu,hMenu=0;
853
854	switch(message){
855	case WM_CONTEXTMENU:
856	if(hMenu==0){
857	hDummyMenu=LoadMenu(hInst,MAKEINTRESOURCE(IDR_DEBUGGER_VARLIST_MENU));
858	hMenu=GetSubMenu(hDummyMenu,0);
859	}
860
861	MENUITEMINFO mi;
862	mi.cbSize=sizeof(MENUITEMINFO);
863	mi.fMask=MIIM_STATE;
864	mi.fState=MFS_CHECKED;
865
866	if(pobj_nv->bShow_DefaultSystem_Var)
867	SetMenuItemInfo(hMenu,IDM_SHOW_DEFAULTSYSTEM_VAR,0,&mi);
868	if(pobj_nv->bShow_Rad_Var)
869	SetMenuItemInfo(hMenu,IDM_SHOW_RAD_VAR,0,&mi);
870	if(pobj_nv->bShow_GUID_Var)
871	SetMenuItemInfo(hMenu,IDM_SHOW_GUID_VAR,0,&mi);
872
873	TrackPopupMenu(hMenu,TPM_LEFTALIGN,LOWORD(lParam),HIWORD(lParam),0,hwnd,0);
874
875	break;
876	case WM_COMMAND:
877	mi.cbSize=sizeof(MENUITEMINFO);
878	mi.fMask=MIIM_STATE;
879	switch(LOWORD(wParam)){
880	case IDM_SHOW_DEFAULTSYSTEM_VAR:
881	if(pobj_nv->bShow_DefaultSystem_Var){
882	pobj_nv->bShow_DefaultSystem_Var=0;
883	mi.fState=MFS_UNCHECKED;
884	}
885	else{
886	pobj_nv->bShow_DefaultSystem_Var=1;
887	mi.fState=MFS_CHECKED;
888	}
889	SetMenuItemInfo(hMenu,IDM_SHOW_DEFAULTSYSTEM_VAR,0,&mi);
890	RefreshGlobalVar_with_WindowLock();
891	break;
892	case IDM_SHOW_RAD_VAR:
893	if(pobj_nv->bShow_Rad_Var){
894	pobj_nv->bShow_Rad_Var=0;
895	mi.fState=MFS_UNCHECKED;
896	}
897	else{
898	pobj_nv->bShow_Rad_Var=1;
899	mi.fState=MFS_CHECKED;
900	}
901	SetMenuItemInfo(hMenu,IDM_SHOW_RAD_VAR,0,&mi);
902	RefreshGlobalVar_with_WindowLock();
903	break;
904	case IDM_SHOW_GUID_VAR:
905	if(pobj_nv->bShow_GUID_Var){
906	pobj_nv->bShow_GUID_Var=0;
907	mi.fState=MFS_UNCHECKED;
908	}
909	else{
910	pobj_nv->bShow_GUID_Var=1;
911	mi.fState=MFS_CHECKED;
912	}
913	SetMenuItemInfo(hMenu,IDM_SHOW_GUID_VAR,0,&mi);
914	RefreshGlobalVar_with_WindowLock();
915	break;
916	}
917	break;
918	case WM_DESTROY:
919	DestroyMenu(hMenu);
920	hMenu=0;
921	break;
922	}
923	return CallWindowProc(OldTabProc,hwnd,message,wParam,lParam);
924	}
925
926	BOOL CALLBACK DlgDebugger(HWND hwnd,UINT message,WPARAM wParam,LPARAM lParam){
927	extern HANDLE hHeap;
928	extern HINSTANCE hInst;
929	extern DWORD dwStepRun;
930	extern double width_ratio_VarList;
931	RECT rect;
932	int i,i2,i3;
933	char temporary[VN_SIZE];
934	LV_DISPINFO *lvinfo;
935	LVITEM ListView_Item;
936
937	static POINT pos_VarList;
938	static POINT pos_WatchList;
939
940	switch(message){
941	case WM_INITDIALOG:
942	extern HWND hDebugWnd;
943	hDebugWnd=hwnd;
944
945	//変数リストの初期位置を取得
946	GetWindowRect(GetDlgItem(hwnd,IDC_VARPOS),&rect);
947	pos_VarList.x=rect.left;
948	pos_VarList.y=rect.top;
949	ScreenToClient(hwnd,&pos_VarList);
950
951	//ウォッチリストの初期位置を取得
952	pos_WatchList.x=pos_VarList.x+(rect.right-rect.left)+LEVER_THICK;
953	pos_WatchList.y=0;
954
955	//ツールバーのベースウィンドウを生成
956	static HWND hBase_ToolBar;
957	hBase_ToolBar=CreateDialog(hInst,MAKEINTRESOURCE(IDD_DEBUGGER_TOOLBARBASE),hwnd,(DLGPROC)DebuggerButtonsProc);
958	MoveWindow(hBase_ToolBar,50,0,20*BTNNUM_DEBUGGERTOOLBAR,22,1);
959
960	extern WNDPROC OldThreadComboProc;
961	OldThreadComboProc=(WNDPROC)GetWindowLongPtr(GetDlgItem(hwnd,IDC_THREADCOMBO),GWLP_WNDPROC);
962	SetWindowLongPtr(GetDlgItem(hwnd,IDC_THREADCOMBO),GWLP_WNDPROC,(LONG_PTR)ThreadComboProc);
963
964	extern WNDPROC OldProcComboProc;
965	OldProcComboProc=(WNDPROC)GetWindowLongPtr(GetDlgItem(hwnd,IDC_PROCCOMBO),GWLP_WNDPROC);
966	SetWindowLongPtr(GetDlgItem(hwnd,IDC_PROCCOMBO),GWLP_WNDPROC,(LONG_PTR)ProcComboProc);
967
968
969	///////////////////////////
970	// タブコントロールを生成
971	///////////////////////////
972
973	static HWND hTab;
974	HFONT hFont;
975	hFont=(HFONT)SendMessage(hwnd,WM_GETFONT,0,0);
976	hTab=CreateWindow(WC_TABCONTROL,NULL,
977	WS_CHILD \| WS_CLIPCHILDREN \| WS_VISIBLE,
978	0,0,0,0,hwnd,0,hInst,0);
979	SendMessage(hTab,WM_SETFONT,(WPARAM)hFont,0);
980	OldTabProc=(WNDPROC)GetWindowLongPtr(hTab,GWLP_WNDPROC);
981	SetWindowLongPtr(hTab,GWLP_WNDPROC,(LONG_PTR)TabProc);
982
983	//タブを設定
984	TC_ITEM tcItem;
985	tcItem.mask=TCIF_TEXT;
986	tcItem.pszText="グローバル";
987	SendMessage(hTab,TCM_INSERTITEM,0,(LPARAM)&tcItem);
988	tcItem.mask=TCIF_TEXT;
989	tcItem.pszText="ローカル";
990	SendMessage(hTab,TCM_INSERTITEM,1,(LPARAM)&tcItem);
991	tcItem.mask=TCIF_TEXT;
992	tcItem.pszText="This";
993	SendMessage(hTab,TCM_INSERTITEM,2,(LPARAM)&tcItem);
994
995	//グローバル変数リストのツリーを作成
996	hVarTree_Global=CreateWindowEx(WS_EX_CLIENTEDGE,WC_TREEVIEW,"",
997	WS_CHILD\|TVS_HASLINES\|TVS_HASBUTTONS\|TVS_LINESATROOT\|TVS_SHOWSELALWAYS,
998	0,0,0,0,
999	hTab,0,hInst,0);
1000
1001	//ローカル変数リストのツリーを作成
1002	hVarTree_Local=CreateWindowEx(WS_EX_CLIENTEDGE,WC_TREEVIEW,"",
1003	WS_CHILD\|TVS_HASLINES\|TVS_HASBUTTONS\|TVS_LINESATROOT\|TVS_SHOWSELALWAYS,
1004	0,0,0,0,
1005	hTab,0,hInst,0);
1006
1007	//This変数リストのツリーを作成
1008	hVarTree_This=CreateWindowEx(WS_EX_CLIENTEDGE,WC_TREEVIEW,"",
1009	WS_CHILD\|TVS_HASLINES\|TVS_HASBUTTONS\|TVS_LINESATROOT\|TVS_SHOWSELALWAYS,
1010	0,0,0,0,
1011	hTab,0,hInst,0);
1012
1013	ShowWindow(hVarTree_Global,SW_SHOW);
1014
1015
1016	//イメージリスト読み込み、設定
1017	static HIMAGELIST hVariOrderImageList;
1018	hVariOrderImageList=ImageList_Create(16,16,ILC_COLOR4\|ILC_MASK,4,0);
1019	ImageList_AddIcon(hVariOrderImageList,LoadIcon(hInst,MAKEINTRESOURCE(IDI_VARARRAY)));
1020	ImageList_AddIcon(hVariOrderImageList,LoadIcon(hInst,MAKEINTRESOURCE(IDI_VARSTRUCT)));
1021	ImageList_AddIcon(hVariOrderImageList,LoadIcon(hInst,MAKEINTRESOURCE(IDI_VARDATA)));
1022	ImageList_AddIcon(hVariOrderImageList,LoadIcon(hInst,MAKEINTRESOURCE(IDI_VARSTR)));
1023	ImageList_AddIcon(hVariOrderImageList,LoadIcon(hInst,MAKEINTRESOURCE(IDI_VARPTRSTRUCT)));
1024	TreeView_SetImageList(hVarTree_Global,hVariOrderImageList,TVSIL_NORMAL);
1025	TreeView_SetImageList(hVarTree_Local,hVariOrderImageList,TVSIL_NORMAL);
1026	TreeView_SetImageList(hVarTree_This,hVariOrderImageList,TVSIL_NORMAL);
1027
1028
1029	/////////////////////////
1030	// ウォッチリスト
1031	/////////////////////////
1032
1033	//コラムの設定
1034	static HWND hListView;
1035	LV_COLUMN ListView_Column;
1036	DWORD dwStyle;
1037
1038	hListView=GetDlgItem(hwnd,IDC_WATCHLIST);
1039	GetClientRect(hListView,&rect);
1040	dwStyle=ListView_GetExtendedListViewStyle(hListView);
1041	dwStyle\|=LVS_EX_FULLROWSELECT;
1042	ListView_SetExtendedListViewStyle(hListView,dwStyle);
1043
1044	ListView_Column.mask=LVCF_FMT \| LVCF_WIDTH \| LVCF_TEXT \| LVCF_SUBITEM;
1045	ListView_Column.fmt=LVCFMT_LEFT;
1046
1047	extern int width_WatchColumn_Expression;
1048	ListView_Column.cx=width_WatchColumn_Expression;
1049	ListView_Column.pszText="ウォッチ式";
1050	ListView_Column.iSubItem=0;
1051	ListView_InsertColumn(hListView,0,&ListView_Column);
1052
1053	extern int width_WatchColumn_Value;
1054	ListView_Column.cx=width_WatchColumn_Value;
1055	ListView_Column.pszText="値";
1056	ListView_Column.iSubItem=1;
1057	ListView_InsertColumn(hListView,1,&ListView_Column);
1058
1059	//アイテムの設定
1060	ListView_Item.mask=LVIF_TEXT;
1061	ListView_Item.iSubItem=0;
1062	for(i=0;i<pobj_nv->WatchNum;i++){
1063	ListView_Item.pszText=pobj_nv->ppWatchStr[i];
1064	ListView_Item.iItem=i;
1065	ListView_InsertItem(hListView,&ListView_Item);
1066	}
1067	ListView_Item.pszText="...";
1068	ListView_Item.iItem=i;
1069	ListView_InsertItem(hListView,&ListView_Item);
1070
1071
1072	///////////////////////
1073	// 変数リストの初期化
1074	///////////////////////
1075	InitVarList((DWORD)lParam);
1076
1077	break;
1078	case WM_NOTIFY:
1079	NMHDR *hdr;
1080	hdr=(NMHDR *)lParam;
1081	if(hdr->hwndFrom==hTab&&hdr->code==TCN_SELCHANGE){
1082	i=TabCtrl_GetCurSel(hTab);
1083
1084	if(i==0){
1085	//グローバル変数を表示
1086	ShowWindow(hVarTree_Global,SW_SHOW);
1087	ShowWindow(hVarTree_Local,SW_HIDE);
1088	ShowWindow(hVarTree_This,SW_HIDE);
1089	}
1090	else if(i==1){
1091	//ローカル変数を表示
1092	ShowWindow(hVarTree_Global,SW_HIDE);
1093	ShowWindow(hVarTree_Local,SW_SHOW);
1094	ShowWindow(hVarTree_This,SW_HIDE);
1095	}
1096	else if(i==2){
1097	//This変数を表示
1098	ShowWindow(hVarTree_Global,SW_HIDE);
1099	ShowWindow(hVarTree_Local,SW_HIDE);
1100	ShowWindow(hVarTree_This,SW_SHOW);
1101	}
1102	}
1103
1104	if(hdr->hwndFrom==hListView){
1105	lvinfo=(LV_DISPINFO *)hdr;
1106	if(hdr->code==NM_DBLCLK){
1107	i2=ListView_GetItemCount(hListView);
1108	for(i=0;i<i2;i++){
1109	if(ListView_GetItemState(hListView,i,LVIS_SELECTED)) break;
1110	}
1111	if(i==i2) break;
1112
1113	ListView_EditLabel(hListView,i);
1114	}
1115
1116	static HWND hEdit;
1117	if(hdr->code==LVN_BEGINLABELEDIT){
1118	hEdit=ListView_GetEditControl(hListView);
1119
1120	GetWindowText(hEdit,temporary,VN_SIZE);
1121	if(lstrcmp(temporary,"...")==0) SetWindowText(hEdit,"");
1122	}
1123	if(hdr->code==LVN_ENDLABELEDIT){
1124	GetWindowText(hEdit,temporary,VN_SIZE);
1125	if(temporary[0]=='\0'){
1126	if(ListView_GetItemCount(hListView)-1==lvinfo->item.iItem) break;
1127
1128	//空白入力の場合はそのアイテムを削除する
1129	ListView_DeleteItem(hListView,lvinfo->item.iItem);
1130	break;
1131	}
1132	ListView_SetItemText(hListView,lvinfo->item.iItem,0,temporary);
1133
1134	//演算結果を表示
1135	SetCalcToWatchList(hListView,lvinfo->item.iItem,temporary);
1136
1137	if(lvinfo->item.iItem==ListView_GetItemCount(hListView)-1){
1138	//リストアイテムを追加
1139	ListView_Item.mask=LVIF_TEXT;
1140	ListView_Item.pszText="...";
1141	ListView_Item.iItem=lvinfo->item.iItem+1;
1142	ListView_Item.iSubItem=0;
1143	ListView_InsertItem(hListView,&ListView_Item);
1144	}
1145	}
1146
1147	if(hdr->code==LVN_KEYDOWN){
1148	LV_KEYDOWN *plvKeydown;
1149	plvKeydown=(LV_KEYDOWN *)hdr;
1150	if(plvKeydown->wVKey==VK_DELETE){
1151	i2=ListView_GetItemCount(hListView);
1152	for(i=i2-2;i>=0;i--){
1153	if(ListView_GetItemState(hListView,i,LVIS_SELECTED)){
1154	ListView_DeleteItem(hListView,i);
1155	i3=i;
1156	}
1157	}
1158
1159	ListView_SetItemState(hListView,i3,LVIS_SELECTED,LVIS_SELECTED);
1160	}
1161	}
1162	}
1163	break;
1164
1165	case WM_SIZE:
1166	//変数リストの位置
1167	int width_VarList;
1168	width_VarList=
1169	(int)((double)(LOWORD(lParam)-pos_VarList.x)*width_ratio_VarList);
1170
1171	MoveWindow(hTab,
1172	pos_VarList.x,
1173	pos_VarList.y,
1174	width_VarList,
1175	HIWORD(lParam)-pos_VarList.y,
1176	1);
1177
1178	GetClientRect(hTab,&rect);
1179	TabCtrl_AdjustRect(hTab,FALSE,&rect);
1180	rect.left-=2;
1181	rect.right++;
1182	rect.bottom++;
1183
1184	MoveWindow(hVarTree_Global,
1185	rect.left,rect.top,rect.right-rect.left,rect.bottom-rect.top,1);
1186	MoveWindow(hVarTree_Local,
1187	rect.left,rect.top,rect.right-rect.left,rect.bottom-rect.top,1);
1188	MoveWindow(hVarTree_This,
1189	rect.left,rect.top,rect.right-rect.left,rect.bottom-rect.top,1);
1190
1191	pos_WatchList.x=pos_VarList.x+width_VarList+LEVER_THICK;
1192	pos_WatchList.y=0;
1193
1194	//ウォッチリストの位置
1195	MoveWindow(GetDlgItem(hwnd,IDC_WATCHLIST),
1196	pos_WatchList.x,
1197	pos_WatchList.y,
1198	LOWORD(lParam)-pos_WatchList.x,
1199	HIWORD(lParam)-pos_WatchList.y,
1200	1);
1201
1202	return 1;
1203
1204	case WM_VARLIST_CLOSE:
1205	DestroyWindow(hwnd);
1206	return 1;
1207	case WM_DESTROY:
1208	ImageList_Destroy(hVariOrderImageList);
1209
1210
1211	//////////////////////////////////////////////////////////////
1212	// ウォッチリストの以前の内容を破棄し、新しい内容に書き換える
1213	//////////////////////////////////////////////////////////////
1214
1215	for(i=0;i<pobj_nv->WatchNum;i++){
1216	HeapDefaultFree(pobj_nv->ppWatchStr[i]);
1217	}
1218	HeapDefaultFree(pobj_nv->ppWatchStr);
1219
1220	pobj_nv->WatchNum=ListView_GetItemCount(hListView)-1;
1221	pobj_nv->ppWatchStr=(char *)HeapAlloc(hHeap,0,pobj_nv->WatchNumsizeof(char *)+1);
1222	for(i=0;i<pobj_nv->WatchNum;i++){
1223	ListView_GetItemText(hListView,i,0,temporary,VN_SIZE);
1224	pobj_nv->ppWatchStr[i]=(char *)HeapAlloc(hHeap,0,lstrlen(temporary)+1);
1225	lstrcpy(pobj_nv->ppWatchStr[i],temporary);
1226	}
1227
1228
1229	//////////////////////////////
1230	// デバッグダイアログを破棄
1231	//////////////////////////////
1232
1233	hDebugWnd=0;
1234
1235	extern BOOL bClipCompileView;
1236	if(bClipCompileView){
1237	extern HWND hOwnerEditor;
1238	SendMessage(hOwnerEditor,WM_DESTROYDEBUGGERVIEW,0,0);
1239	}
1240
1241	return 1;
1242
1243
1244
1245	///////////////////////
1246	// デバッグコマンド
1247	///////////////////////
1248
1249	case WM_DEBUG_CONTINUE:
1250	DestroyWindow(hwnd);
1251	return 1;
1252	case WM_STEP_IN:
1253	Debugger_StepIn();
1254	return 1;
1255	case WM_STEP_OVER:
1256	Debugger_StepOver();
1257	return 1;
1258	case WM_STEP_CURSOR:
1259	Debugger_StepCursor();
1260	return 1;
1261	}
1262	return 0;
1263	}
1264
1265
1266
1267
1268	//////////////////////////////////
1269	// ポップアップ表示の変数リスト
1270	//////////////////////////////////
1271
1272	BOOL CALLBACK DlgVarList(HWND hwnd,UINT message,WPARAM wParam,LPARAM lParam){
1273	extern HANDLE hHeap;
1274	extern HINSTANCE hInst;
1275	extern DWORD dwStepRun;
1276	RECT rect;
1277	POINT pos;
1278	SIZE size;
1279
1280	switch(message){
1281	case WM_INITDIALOG:
1282	extern HWND hDebugWnd;
1283	hDebugWnd=hwnd;
1284
1285	pos.x=pobj_nv->VarDlgRect.left;
1286	pos.y=pobj_nv->VarDlgRect.top;
1287	size.cx=pobj_nv->VarDlgRect.right-pobj_nv->VarDlgRect.left;
1288	size.cy=pobj_nv->VarDlgRect.bottom-pobj_nv->VarDlgRect.top;
1289	MoveWindow(hwnd,pos.x,pos.y,size.cx,size.cy,1);
1290
1291	extern WNDPROC OldThreadComboProc;
1292	OldThreadComboProc=(WNDPROC)GetWindowLongPtr(GetDlgItem(hwnd,IDC_THREADCOMBO),GWLP_WNDPROC);
1293	SetWindowLongPtr(GetDlgItem(hwnd,IDC_THREADCOMBO),GWLP_WNDPROC,(LONG_PTR)ThreadComboProc);
1294
1295	extern WNDPROC OldProcComboProc;
1296	OldProcComboProc=(WNDPROC)GetWindowLongPtr(GetDlgItem(hwnd,IDC_PROCCOMBO),GWLP_WNDPROC);
1297	SetWindowLongPtr(GetDlgItem(hwnd,IDC_PROCCOMBO),GWLP_WNDPROC,(LONG_PTR)ProcComboProc);
1298
1299	//イメージリスト読み込み、設定
1300	static HIMAGELIST hVariOrderImageList;
1301	hVariOrderImageList=ImageList_Create(16,16,ILC_COLOR4\|ILC_MASK,4,0);
1302	ImageList_AddIcon(hVariOrderImageList,LoadIcon(hInst,MAKEINTRESOURCE(IDI_VARARRAY)));
1303	ImageList_AddIcon(hVariOrderImageList,LoadIcon(hInst,MAKEINTRESOURCE(IDI_VARSTRUCT)));
1304	ImageList_AddIcon(hVariOrderImageList,LoadIcon(hInst,MAKEINTRESOURCE(IDI_VARDATA)));
1305	ImageList_AddIcon(hVariOrderImageList,LoadIcon(hInst,MAKEINTRESOURCE(IDI_VARSTR)));
1306	ImageList_AddIcon(hVariOrderImageList,LoadIcon(hInst,MAKEINTRESOURCE(IDI_VARPTRSTRUCT)));
1307	TreeView_SetImageList(GetDlgItem(hwnd,IDC_VARTREE),hVariOrderImageList,TVSIL_NORMAL);
1308
1309	InitVarList((DWORD)lParam);
1310	break;
1311	case WM_COMMAND:
1312	switch(LOWORD(wParam)){
1313	case IDCANCEL:
1314	DestroyWindow(hwnd);
1315	return 1;
1316	case IDC_STEPIN:
1317	dwStepRun=1;
1318	return 1;
1319	case IDC_STEPOVER:
1320	dwStepRun=2;
1321	return 1;
1322	}
1323	break;
1324	case WM_SIZE:
1325	GetWindowRect(GetDlgItem(hwnd,IDC_VARTREE),&rect);
1326	pos.x=rect.left;
1327	pos.y=rect.top;
1328	ScreenToClient(hwnd,&pos);
1329	MoveWindow(GetDlgItem(hwnd,IDC_VARTREE),0,pos.y,LOWORD(lParam),HIWORD(lParam)-pos.y,TRUE);
1330	SetWindowPos(GetDlgItem(hwnd,IDCANCEL),0,LOWORD(lParam)-91,9,0,0,SWP_NOSIZE);
1331	return 1;
1332	case WM_VARLIST_CLOSE:
1333	DestroyWindow(hwnd);
1334	return 1;
1335	case WM_DESTROY:
1336	ImageList_Destroy(hVariOrderImageList);
1337
1338	GetWindowRect(hwnd,&pobj_nv->VarDlgRect);
1339
1340	hDebugWnd=0;
1341
1342	return 1;
1343	}
1344	return 0;
1345	}

Note: See TracBrowser for help on using the repository browser.

Download in other formats: