Context Navigation

source: dev/BasicCompiler_Common/Variable.cpp@ 20

Last change on this file since 20 was 20, checked in by dai_9181, 17 years ago
参照型パラメータに関数の戻り値オブジェクトを指定した場合などの、一時オブジェクトの扱いを可能にした。 Dimで指定される初期値を見分けることで、As指定を省略できるようにした。
File size: 25.8 KB

Line
1	#include "../BasicCompiler_Common/common.h"
2
3	#ifdef _AMD64_
4	#include "../BasicCompiler64/opcode.h"
5	#else
6	#include "../BasicCompiler32/opcode.h"
7	#endif
8
9	BOOL IsVariableTopChar(char c){
10	if((c>='A'&&c<='Z')\|\|(c>='a'&&c<='z')\|\|c=='_') return 1;
11	return 0;
12	}
13	BOOL IsVariableChar(char c){
14	if((c>='A'&&c<='Z')\|\|(c>='a'&&c<='z')\|\|(c>='0'&&c<='9')\|\|
15	c=='%'\|\|c=='!'\|\|c=='#'\|\|c=='$'\|\|
16	c=='_'\|\|c=='.') return 1;
17	return 0;
18	}
19	BOOL IsPtrType(int type){
20	if(type==-1) return 0;
21
22	if(PTR_LEVEL(type)\|\|type==DEF_PTR_VOID\|\|type==DEF_PTR_PROC\|\|
23	(type&FLAG_PTR) ) return 1;
24
25	return 0;
26	}
27	BOOL IsSignedType(int type){
28	switch(type){
29	case DEF_CHAR:
30	case DEF_INTEGER:
31	case DEF_LONG:
32	case DEF_INT64:
33	case DEF_SINGLE:
34	case DEF_DOUBLE:
35	return 1;
36	default:
37	break;
38	}
39	return 0;
40	}
41	BOOL IsNaturalWholeNumberType(int type){
42	switch(type){
43	case DEF_CHAR:
44	case DEF_BYTE:
45	case DEF_INTEGER:
46	case DEF_WORD:
47	case DEF_LONG:
48	case DEF_DWORD:
49	case DEF_INT64:
50	case DEF_QWORD:
51	return 1;
52	default:
53	break;
54	}
55	return 0;
56	}
57	BOOL IsWholeNumberType(int type){
58	return (IsNaturalWholeNumberType(type)\|\|IsPtrType(type));
59	}
60	BOOL IsRealNumberType(int type){
61	switch(type){
62	case DEF_DOUBLE:
63	case DEF_SINGLE:
64	return 1;
65	default:
66	break;
67	}
68	return 0;
69	}
70	BOOL Is64Type(int type){
71	switch(type){
72	case DEF_INT64:
73	case DEF_QWORD:
74	return 1;
75	default:
76	break;
77	}
78	#ifdef _AMD64_
79	return IsPtrType(type);
80	#else
81	return 0;
82	#endif
83	}
84	int GetSignedType(int type){
85	switch(type){
86	case DEF_BYTE:
87	return DEF_CHAR;
88	case DEF_WORD:
89	return DEF_INTEGER;
90	case DEF_DWORD:
91	return DEF_LONG;
92	case DEF_QWORD:
93	return DEF_INT64;
94	default:
95	break;
96	}
97	#ifdef _AMD64_
98	if(IsPtrType(type)) return DEF_INT64;
99	#else
100	if(IsPtrType(type)) return DEF_LONG;
101	#endif
102	return type;
103	}
104	int GetUnsignedType(int type){
105	switch(type){
106	case DEF_CHAR:
107	return DEF_BYTE;
108	case DEF_INTEGER:
109	return DEF_WORD;
110	case DEF_LONG:
111	return DEF_DWORD;
112	case DEF_INT64:
113	return DEF_QWORD;
114	}
115	return type;
116	}
117	int GetTypeSize(int type,LONG_PTR lpIndex){
118	if(type==DEF_LONG){
119	if(lpIndex==LITERAL_NULL\|\|lpIndex==LITERAL_M128_0\|\|lpIndex==LITERAL_0_255)
120	return sizeof(BYTE);
121	else if(lpIndex==LITERAL_M32768_0\|\|lpIndex==LITERAL_0_65535)
122	return sizeof(WORD);
123
124	return sizeof(DWORD);
125	}
126
127	//整数型
128	if(type==DEF_INT64\|\|type==DEF_QWORD)
129	return sizeof(_int64);
130	else if(type==DEF_LONG\|\|type==DEF_DWORD)
131	return sizeof(DWORD);
132	else if(type==DEF_INTEGER\|\|type==DEF_WORD)
133	return sizeof(WORD);
134	else if(type==DEF_CHAR\|\|type==DEF_BYTE)
135	return sizeof(BYTE);
136
137	//実数型
138	else if(type==DEF_DOUBLE) return sizeof(double);
139	else if(type==DEF_SINGLE) return sizeof(float);
140
141	//ポインタ型
142	else if(IsPtrType(type)) return PTR_SIZE;
143
144	else if(type==DEF_OBJECT){
145	CClass *pobj_c;
146	pobj_c=(CClass *)lpIndex;
147	if(!pobj_c) return 0;
148	return GetSizeOfClass(pobj_c);
149	}
150	else{
151	SetError(300,NULL,cp);
152	}
153	return 0;
154	}
155	int GetPtrType(int type,LONG_PTR lpIndex){
156	return MAKE_PTR_TYPE(NATURAL_TYPE(type),PTR_LEVEL(type)+1);
157	}
158	int GetTypeFixed(char TypeName,LONG_PTR lpNum){
159	int type;
160
161	if(lpNum) *lpNum=-1;
162
163	if(TypeName[0]=='*'){
164	if(TypeName[1]==1&&(TypeName[2]==ESC_FUNCTION\|\|TypeName[2]==ESC_SUB)){
165	//関数ポインタ（*Function）
166	return DEF_PTR_PROC;
167	}
168
169	type=GetTypeFixed(TypeName+1,lpNum);
170	if(type==-1) return -1;
171
172	return GetPtrType(type,*lpNum);
173	}
174
175	//整数型
176	if(lstrcmpi(TypeName,"Char")==0) return DEF_CHAR;
177	else if(lstrcmpi(TypeName,"Byte")==0) return DEF_BYTE;
178	else if(lstrcmpi(TypeName,"Integer")==0) return DEF_INTEGER;
179	else if(lstrcmpi(TypeName,"WORD")==0) return DEF_WORD;
180	else if(lstrcmpi(TypeName,"Long")==0) return DEF_LONG;
181	else if(lstrcmpi(TypeName,"DWORD")==0) return DEF_DWORD;
182	else if(lstrcmpi(TypeName,"Int64")==0) return DEF_INT64;
183	else if(lstrcmpi(TypeName,"QWORD")==0) return DEF_QWORD;
184
185	//実数型
186	else if(lstrcmpi(TypeName,"Single")==0) return DEF_SINGLE;
187	else if(lstrcmpi(TypeName,"Double")==0) return DEF_DOUBLE;
188
189	//ポインタ型
190	//※VoidPtr型以外のポインタ型はTypeDef宣言により定義される
191	else if(lstrcmpi(TypeName,"VoidPtr")==0) return DEF_PTR_VOID;
192
193	//その他
194	else if(lstrcmpi(TypeName,"Any")==0) return DEF_ANY;
195
196
197	////////////////////
198	// TypeDefされた型
199	////////////////////
200	int i;
201	i=pobj_DBTypeDef->check(TypeName);
202	if(i!=-1){
203	return GetTypeFixed(pobj_DBTypeDef->ppobj_TypeDef[i]->lpszBaseName,lpNum);
204	}
205
206	if(!lpNum) return -1;
207
208	//クラス
209	CClass *pobj_c;
210	pobj_c=pobj_DBClass->check(TypeName);
211	if(pobj_c){
212	*lpNum=(LONG_PTR)pobj_c;
213	return DEF_OBJECT;
214	}
215
216	return -1;
217	}
218	void GetOriginalTypeName(char *buffer){
219	// TypeDefされた型に対して、オリジナルの型の名前に変更する
220
221	if(buffer[0]=='*'){
222	if(buffer[1]==1&&(buffer[2]==ESC_FUNCTION\|\|buffer[2]==ESC_SUB)) return;
223
224	GetOriginalTypeName(buffer+1);
225	return;
226	}
227
228	int i;
229	i=pobj_DBTypeDef->check(buffer);
230	if(i!=-1){
231	lstrcpy(buffer,pobj_DBTypeDef->ppobj_TypeDef[i]->lpszBaseName);
232	GetOriginalTypeName(buffer);
233	}
234	}
235	BOOL GetTypeName(int type,LONG_PTR lpIndex,char *name){
236	if(PTR_LEVEL(type)){
237	//ポインタ型
238	name[0]='*';
239	return GetTypeName(MAKE_PTR_TYPE(NATURAL_TYPE(type),PTR_LEVEL(type)-1),lpIndex,name+1);
240	}
241
242	//整数型
243	if(type==DEF_CHAR) lstrcpy(name,"Char");
244	else if(type==DEF_BYTE) lstrcpy(name,"Byte");
245	else if(type==DEF_INTEGER) lstrcpy(name,"Integer");
246	else if(type==DEF_WORD) lstrcpy(name,"Word");
247	else if(type==DEF_LONG) lstrcpy(name,"Long");
248	else if(type==DEF_DWORD) lstrcpy(name,"DWord");
249	else if(type==DEF_INT64) lstrcpy(name,"Int64");
250	else if(type==DEF_QWORD) lstrcpy(name,"QWord");
251
252	//実数型
253	else if(type==DEF_SINGLE) lstrcpy(name,"Single");
254	else if(type==DEF_DOUBLE) lstrcpy(name,"Double");
255
256	//オブジェクト
257	else if(type==DEF_OBJECT){
258	if(lpIndex==0) lstrcpy(name,"non");
259	else{
260	lstrcpy(name,((CClass *)lpIndex)->name);
261	}
262	}
263
264	//ポインタ型
265	else if(type==DEF_PTR_VOID) lstrcpy(name,"VoidPtr");
266
267	else if(type==DEF_PTR_PROC){
268	if(lpIndex==-1) lstrcpy(name,"VoidPtr");
269	else{
270	extern PROCPTRINFO *pProcPtrInfo;
271	if(pProcPtrInfo[lpIndex].ReturnType==-1)
272	lstrcpy(name,"*Sub");
273	else lstrcpy(name,"*Function");
274	}
275	}
276
277	else{
278	extern int cp;
279	SetError(1,NULL,cp);
280	return 0;
281	}
282	return 1;
283	}
284
285	TYPEINFO GetStringTypeInfo(){
286	extern CClass *pobj_StringClass;
287	TYPEINFO TypeInfo = { DEF_OBJECT, (LONG_PTR)pobj_StringClass };
288	return TypeInfo;
289	}
290
291	BOOL GetVarFormatString(char buffer,char array,char array2,char NestMember,int *pRefType){
292	extern int cp;
293	int i,i2,i3;
294	char cPare_Open,cPare_Close;
295
296	array[0]=0;
297	array2[0]=0;
298	NestMember[0]=0;
299	*pRefType=0;
300	for(i=0;;i++){
301	if(buffer[i]=='\"'){
302	for(i++;;i++){
303	if(IsDBCSLeadByte(buffer[i])){
304	i++;
305	continue;
306	}
307	if(buffer[i]=='\"') break;
308	}
309	}
310	if(buffer[i]=='['\|\|buffer[i]=='('){
311	if(buffer[i]=='['){
312	cPare_Open='[';
313	cPare_Close=']';
314	}
315	else{
316	cPare_Open='(';
317	cPare_Close=')';
318	}
319	buffer[i]=0;
320	for(i++,i2=0;;i++,i2++){
321	if(buffer[i]==cPare_Open){
322	if(cPare_Open=='[') i3=GetStringInBracket(array+i2,buffer+i);
323	else i3=GetStringInPare(array+i2,buffer+i);
324	i+=i3-1;
325	i2+=i3-1;
326	continue;
327	}
328	if(buffer[i]==cPare_Close){
329	array[i2]=0;
330	break;
331	}
332	array[i2]=buffer[i];
333	}
334	if(buffer[i+1]==cPare_Open){
335	for(i+=2,i2=0;;i++,i2++){
336	if(buffer[i]==cPare_Open){
337	if(cPare_Open=='[') i3=GetStringInBracket(array2+i2,buffer+i);
338	else i3=GetStringInPare(array2+i2,buffer+i);
339	i+=i3-1;
340	i2+=i3-1;
341	continue;
342	}
343	if(buffer[i]==cPare_Close){
344	array2[i2]=0;
345	break;
346	}
347	array2[i2]=buffer[i];
348	}
349	if(buffer[i+1]==cPare_Open){
350	SetError(14,buffer,cp);
351	return 0;
352	}
353	}
354	continue;
355	}
356	if(buffer[i]=='.'){
357	lstrcpy(NestMember,buffer+i+1);
358	*pRefType=DEF_OBJECT;
359	buffer[i]=0;
360	break;
361	}
362	if(buffer[i]==1&&buffer[i+1]==ESC_PSMEM){
363	lstrcpy(NestMember,buffer+i+2);
364	*pRefType=DEF_PTR_OBJECT;
365	buffer[i]=0;
366	break;
367	}
368	if(buffer[i]=='\0') break;
369	}
370	return 1;
371	}
372
373	void GetArrayElement(char buffer,char variable,char *array_element){
374	array_element[0]=0;
375
376	if(buffer[lstrlen(buffer)-1]!=']'){
377	lstrcpy(variable,buffer);
378	return;
379	}
380
381	int i,i2;
382	for(i=0;;i++){
383	if(buffer[i]=='\0') break;
384	if(buffer[i]=='['){
385	i2=GetStringInBracket(array_element,buffer+i);
386	i+=i2-1;
387	continue;
388	}
389	}
390
391	lstrcpy(variable,buffer);
392	variable[lstrlen(variable)-lstrlen(array_element)]=0;
393
394	RemoveStringBracket(array_element);
395	}
396
397	BOOL CheckVarNameError(char *name,int NowLine){
398	int i2;
399
400	if(!IsVariableTopChar(name[0])){
401	SetError(1,NULL,NowLine);
402	return 0;
403	}
404	for(i2=1;;i2++){
405	if(name[i2]=='\0') break;
406	if(!IsVariableChar(name[i2])){
407	SetError(1,NULL,NowLine);
408	return 0;
409	}
410	}
411	return 1;
412	}
413
414	int JumpSubScripts(int *ss){
415	//DIMで定義された並んだ配列の数だけアドレスを進める
416	int i,i2;
417	for(i=0,i2=1;i<255;i++){
418	if(ss[i]==-1) break;
419	i2*=ss[i]+1;
420	}
421	return i2;
422	}
423	void GetArrange(char variable,char variAnswer,int *SubScripts){
424	extern int cp;
425	int i,i2,i3,i4;
426	double dbl;
427	_int64 i64data;
428	BOOL bBracket;
429	char temporary[VN_SIZE];
430
431	for(i=0;;i++){
432	if(variable[i]=='('\|\|variable[i]=='['){
433	if(variable[i]=='[') bBracket=1;
434	else bBracket=0;
435
436	variAnswer[i]=0;
437	for(i++,i2=0,i3=0;;i++,i2++){
438	if(variable[i]==','){
439	temporary[i2]=0;
440
441	i2=StaticCalculation(true, temporary,0,&i64data,0);
442	if(IsRealNumberType(i2)){
443	memcpy(&dbl,&i64data,sizeof(double));
444	i64data=(_int64)dbl;
445	}
446
447	if(i64data<0){
448	//error
449	SubScripts[i3]=0;
450	}
451	else SubScripts[i3]=(int)i64data;
452	i3++;
453	i2=-1;
454	continue;
455	}
456	if(variable[i]=='('){
457	i4=GetStringInPare(temporary+i2,variable+i);
458	i2+=i4-1;
459	i+=i4-1;
460	continue;
461	}
462	if(variable[i]=='['){
463	i4=GetStringInBracket(temporary+i2,variable+i);
464	i2+=i4-1;
465	i+=i4-1;
466	continue;
467	}
468	if(variable[i]==')'&&bBracket==0\|\|
469	variable[i]==']'&&bBracket){
470	temporary[i2]=0;
471	if(i2==0){
472	SubScripts[i3]=-2;
473	break;
474	}
475
476	i2=StaticCalculation(true, temporary,0,&i64data,0);
477	if(IsRealNumberType(i2)){
478	memcpy(&dbl,&i64data,sizeof(double));
479	i64data=(_int64)dbl;
480	}
481
482	if(i64data<0){
483	//error
484	SubScripts[i3]=0;
485	}
486	else SubScripts[i3]=(int)i64data;
487	SubScripts[i3+1]=-1;
488	break;
489	}
490	if(variable[i]=='\"'){
491	SetError(1,NULL,cp);
492	return;
493	}
494	temporary[i2]=variable[i];
495	}
496	break;
497	}
498	variAnswer[i]=variable[i];
499	if(variable[i]=='\0'){
500	SubScripts[0]=-1;
501	break;
502	}
503	}
504	}
505
506	int GetTypeFromSimpleName(char *variable){
507	extern char DefIntVari[26],DefSngVari[26],DefStrVari[26],divNum,dsvNum,dStrvNum;
508	int i;
509	char name[VN_SIZE];
510
511	//構造体メンバの場合を考慮
512	for(i=lstrlen(variable);i>0;i--){
513	if(variable[i]=='.'){
514	i++;
515	break;
516	}
517	}
518
519	for(;;i++){
520	if(variable[i]=='('\|\|variable[i]=='\0'){
521	name[i]=0;
522	break;
523	}
524	name[i]=variable[i];
525	}
526	//変数名から選択
527	i--;
528	if(name[i]=='#') return DEF_DOUBLE;
529	if(name[i]=='!') return DEF_SINGLE;
530	if(name[i]=='%') return DEF_INTEGER;
531	return DEF_DOUBLE;
532	}
533
534
535	int GetMemberType(CClass pobj_c,char member,LONG_PTR *plpNestIndex,BOOL bPrivateAccess,BOOL bError){
536	extern int cp;
537	int i;
538
539	//クラス、配列の構成要素を解析する
540	char VarName[VN_SIZE]; //変数名
541	char array[VN_SIZE]; //第1次配列
542	char lpPtrOffset[VN_SIZE]; //第2次配列
543	char NestMember[VN_SIZE]; //入れ子メンバ
544	int object_type; //"."参照のときは0、"->"参照のときは1
545	lstrcpy(VarName,member);
546	if(!GetVarFormatString(VarName,array,lpPtrOffset,NestMember,&object_type)) return 0;
547
548	for(i=0;i<pobj_c->iMemberNum;i++){
549	if(lstrcmp(pobj_c->ppobj_Member[i]->name,VarName)==0) break;
550	}
551	if(i==pobj_c->iMemberNum){
552	if(bError) SetError(103,VarName,cp);
553	return -1;
554	}
555
556	//アクセシビリティをチェック
557	if(pobj_c==pobj_CompilingClass){
558	//同一クラスオブジェクトの場合はプライベートアクセスを容認する
559	if(pobj_c->ppobj_Member[i]->dwAccess==ACCESS_NON){
560	if(bError) SetError(107,VarName,cp);
561	return -1;
562	}
563	}
564	else{
565	if((bPrivateAccess==0&&pobj_c->ppobj_Member[i]->dwAccess==ACCESS_PRIVATE)\|\|
566	pobj_c->ppobj_Member[i]->dwAccess==ACCESS_NON){
567	if(bError) SetError(107,VarName,cp);
568	return -1;
569	}
570	else if(bPrivateAccess==0&&pobj_c->ppobj_Member[i]->dwAccess==ACCESS_PROTECTED){
571	if(bError) SetError(108,VarName,cp);
572	return -1;
573	}
574	}
575
576	int type;
577	type=pobj_c->ppobj_Member[i]->TypeInfo.type;
578	*plpNestIndex=pobj_c->ppobj_Member[i]->TypeInfo.u.lpIndex;
579
580	//ポインタ変数の場合
581	if(IsPtrType(type)){
582	if(pobj_c->ppobj_Member[i]->SubScripts[0]==-1){
583	lstrcpy(lpPtrOffset,array);
584	array[0]=0;
585	}
586	}
587	else{
588	if(lpPtrOffset[0]){
589	if(bError) SetError(16,member,cp);
590	return 0;
591	}
592	}
593
594	if(object_type){
595	//入れ子構造の場合
596
597	return GetMemberType(pobj_c->ppobj_Member[i]->TypeInfo.u.pobj_Class,
598	NestMember,
599	plpNestIndex,
600	0,
601	bError);
602	}
603
604	if(array[0]==0&&pobj_c->ppobj_Member[i]->SubScripts[0]!=-1){
605	return type\|FLAG_PTR;
606	}
607
608	if(lpPtrOffset[0]){
609	if(PTR_LEVEL(type)){
610	type=MAKE_PTR_TYPE(NATURAL_TYPE(type),PTR_LEVEL(type)-1);
611	}
612	else{
613	//エラー
614	if(bError) SetError(1,NULL,cp);
615	return -1;
616	}
617	}
618
619	return type;
620	}
621	int GetVarType(char NameBuffer,LONG_PTR plpIndex,BOOL bError){
622	extern BOOL bCompilingGlobal;
623	int i;
624	char variable[VN_SIZE],member[VN_SIZE],VarName[VN_SIZE],array[VN_SIZE],lpPtrOffset[VN_SIZE];
625
626	if(NameBuffer[0]=='.'){
627	GetWithName(variable);
628	lstrcat(variable,NameBuffer);
629	}
630	else lstrcpy(variable,NameBuffer);
631
632	lstrcpy(VarName,variable);
633	GetVarFormatString(VarName,array,lpPtrOffset,member,&i);
634
635	int *pSubScripts;
636	int type;
637	LONG_PTR lpIndex;
638
639	extern int MaxGlobalVarNum;
640	extern VARIABLE *GlobalVar;
641	extern int MaxLocalVarNum;
642	extern VARIABLE *LocalVar;
643
644	if(bCompilingGlobal==0){
645	/////////////////
646	// ローカル変数
647	/////////////////
648
649	for(i=MaxLocalVarNum-1;i>=0;i--){ //レキシカルスコープを考慮してバックサーチ
650	if(LocalVar[i].bLiving){
651	if(lstrcmp(VarName,LocalVar[i].name)==0) break;
652	}
653	}
654	if(i>=0){
655	//ポインタ変数の場合
656	if(IsPtrType(LocalVar[i].type)){
657	if(LocalVar[i].SubScripts[0]==-1){
658	lstrcpy(lpPtrOffset,array);
659	array[0]=0;
660	}
661	}
662	else{
663	if(lpPtrOffset[0]){
664	if(bError) SetError(16,variable,cp);
665	return -1;
666	}
667	}
668
669	type=LocalVar[i].type;
670	lpIndex=LocalVar[i].u.index;
671	pSubScripts=LocalVar[i].SubScripts;
672
673	goto ok;
674	}
675	}
676
677	if(pobj_CompilingClass){
678	///////////////////////
679	// クラスメンバの参照
680	///////////////////////
681
682	if(lstrcmpi(variable,"This")==0){
683	//Thisオブジェクト
684	*plpIndex=(LONG_PTR)pobj_CompilingClass;
685	return DEF_OBJECT;
686	}
687
688	if(_memicmp(variable,"This.",5)==0){
689	//Thisオブジェクトのメンバを参照するとき
690	SlideString(variable+5,-5);
691	lstrcpy(VarName,variable);
692	}
693	else{
694	//クラス内メンバを参照するとき（通常）
695
696	for(i=0;i<pobj_CompilingClass->iMemberNum;i++){
697	if(lstrcmp(VarName,pobj_CompilingClass->ppobj_Member[i]->name)==0) break;
698	}
699	if(i==pobj_CompilingClass->iMemberNum) goto NonClassMember;
700	}
701
702	return GetMemberType(pobj_CompilingClass,variable,plpIndex,1,bError);
703	}
704
705	NonClassMember:
706
707	//////////////////////////
708	// 静的ローカル変数
709	// ※"Static.Object.Method.Variable"
710	//////////////////////////
711
712	char temporary[VN_SIZE];
713	extern SUBINFO *pCompilingSubInfo;
714	if(pCompilingSubInfo){
715	GetNowStaticVarFullName(VarName,temporary);
716
717	for(i=0;i<MaxGlobalVarNum;i++){
718	if(lstrcmp(temporary,GlobalVar[i].name)==0) break;
719	}
720	if(i!=MaxGlobalVarNum){
721	goto GlobalOk;
722	}
723	}
724
725
726	////////////////////
727	// グローバル変数
728	////////////////////
729
730	for(i=MaxGlobalVarNum-1;i>=0;i--){ //レキシカルスコープを考慮してバックサーチ
731	if(GlobalVar[i].bLiving){
732	if(lstrcmp(VarName,GlobalVar[i].name)==0) break;
733	}
734	}
735
736	if(i>=0){
737	goto GlobalOk;
738	}
739
740
741	//////////////////////////
742	// クラスの静的メンバ
743	//////////////////////////
744
745	if(member[0]){
746	lstrcpy(temporary,member);
747	GetVarFormatString(temporary,array,lpPtrOffset,member,&i);
748
749	char temp2[VN_SIZE];
750	sprintf(temp2,"%s.%s",VarName,temporary);
751	for(i=0;i<MaxGlobalVarNum;i++){
752	if(lstrcmp(temp2,GlobalVar[i].name)==0) break;
753	}
754
755	if(i!=MaxGlobalVarNum){
756	goto GlobalOk;
757	}
758	}
759
760	if(pobj_CompilingClass){
761	//自身のクラスから静的メンバを参照する場合
762	char temp2[VN_SIZE];
763	sprintf(temp2,"%s.%s",pobj_CompilingClass->name,VarName);
764	for(i=0;i<MaxGlobalVarNum;i++){
765	if(lstrcmp(temp2,GlobalVar[i].name)==0) break;
766	}
767
768	if(i!=MaxGlobalVarNum){
769	goto GlobalOk;
770	}
771	}
772
773	//変数として見つからなかったとき
774	if(bError) SetError(3,variable,cp);
775	return -1;
776
777	GlobalOk:
778
779	//ポインタ変数の場合
780	if(IsPtrType(GlobalVar[i].type)){
781	if(GlobalVar[i].SubScripts[0]==-1){
782	lstrcpy(lpPtrOffset,array);
783	array[0]=0;
784	}
785	}
786	else{
787	if(lpPtrOffset[0]){
788	if(bError) SetError(16,variable,cp);
789	return -1;
790	}
791	}
792
793	type=GlobalVar[i].type;
794	lpIndex=GlobalVar[i].u.index;
795	pSubScripts=GlobalVar[i].SubScripts;
796
797	ok:
798
799	if(member[0]){
800	if(NATURAL_TYPE(type)==DEF_OBJECT)
801	return GetMemberType((CClass *)lpIndex,member,plpIndex,0,bError);
802	}
803
804	if(array[0]==0&&pSubScripts[0]!=-1){
805	//配列の先頭ポインタを示す場合
806	type\|=FLAG_PTR;
807	}
808
809	if(lpPtrOffset[0]){
810	if(PTR_LEVEL(type)){
811	type=MAKE_PTR_TYPE(NATURAL_TYPE(type),PTR_LEVEL(type)-1);
812	}
813	else{
814	//エラー
815	if(bError) SetError(1,NULL,cp);
816	return -1;
817	}
818	}
819
820	*plpIndex=lpIndex;
821	return type;
822	}
823
824	BOOL GetVarOffsetReadOnly(char NameBuffer,int pType,RELATIVE_VAR pRelativeVar,LONG_PTR plpIndex,int *pss){
825	//読み取り専用で変数へアクセス
826	return GetVarOffset(
827	true, //エラー表示有効
828	false, //書き込みアクセスは無し
829	NameBuffer,
830	pType,
831	pRelativeVar,
832	plpIndex,
833	pss);
834	}
835	BOOL GetVarOffsetReadWrite(char NameBuffer,int pType,RELATIVE_VAR pRelativeVar,LONG_PTR plpIndex,int *pss){
836	//読み書き両用で変数へアクセス
837	return GetVarOffset(
838	true, //エラー表示有効
839	true, //書き込みアクセス
840	NameBuffer,
841	pType,
842	pRelativeVar,
843	plpIndex,
844	pss);
845	}
846
847
848
849	BOOL GetDimentionFormat(char buffer,char VarName,int SubScripts,TYPEINFO pTypeInfo,char InitBuf,char ConstractParameter){
850	int i,i2,i3,IsStr;
851	char variable[VN_SIZE],temporary[8192];
852
853	for(i=0;;i++){
854	if((buffer[i]==1&&buffer[i+1]==ESC_AS)\|\|
855	buffer[i]=='='\|\|
856	buffer[i]=='\0'){
857	variable[i]=0;
858	break;
859	}
860	variable[i]=buffer[i];
861	}
862
863	if(buffer[i]=='='){
864	////////////////////////////////////
865	// 初期化データが指定されいるとき
866	////////////////////////////////////
867
868	for(i++,i2=0,IsStr=0;;i++,i2++){
869	if(buffer[i]=='\"') IsStr^=1;
870	if(buffer[i]=='('&&IsStr==0){
871	i3=GetStringInPare(InitBuf+i2,buffer+i);
872	i+=i3-1;
873	i2+=i3-1;
874	continue;
875	}
876	if(buffer[i]=='['&&IsStr==0){
877	i3=GetStringInBracket(InitBuf+i2,buffer+i);
878	i+=i3-1;
879	i2+=i3-1;
880	continue;
881	}
882	if((buffer[i]==1&&buffer[i+1]==ESC_AS)\|\|
883	(buffer[i]==','&&IsStr==0)\|\|
884	buffer[i]=='\0'){
885	InitBuf[i2]=0;
886	break;
887	}
888	InitBuf[i2]=buffer[i];
889	}
890	}
891	else{
892	//初期化データなし
893	InitBuf[0]=0;
894	}
895
896	ConstractParameter[0]=0;
897	if(buffer[i]==1&&buffer[i+1]==ESC_AS){
898	/////////////////////////////
899	// "As ～" による型指定あり
900	/////////////////////////////
901
902	for(i+=2,i2=0;;i++,i2++){
903	if(buffer[i]==','\|\|buffer[i]=='('\|\|buffer[i]=='\0'){
904	temporary[i2]=0;
905	break;
906	}
907	temporary[i2]=buffer[i];
908	}
909	pTypeInfo->type=GetTypeFixed(temporary,&pTypeInfo->u.lpIndex);
910	if(pTypeInfo->type==-1){
911	SetError(3,temporary,cp);
912	return 0;
913	}
914
915	if(pTypeInfo->type==DEF_PTR_PROC){
916	if(temporary[0]=='*'&&
917	temporary[1]==1&&
918	(temporary[2]==ESC_FUNCTION\|\|temporary[2]==ESC_SUB)){
919	if(buffer[i]!='('){
920	SetError(10,temporary,cp);
921	return 0;
922	}
923	i3=GetStringInPare(temporary+3,buffer+i);
924	i+=i3;
925	i2+=i3;
926
927	if(temporary[2]==ESC_FUNCTION&&buffer[i]==1&&buffer[i+1]==ESC_AS){
928	temporary[i2++]=buffer[i++];
929	temporary[i2++]=buffer[i++];
930	for(;;i++,i2++){
931	if(!IsVariableChar(buffer[i])){
932	temporary[i2]=0;
933	break;
934	}
935	temporary[i2]=buffer[i];
936	}
937	}
938	}
939	else{
940	//TypeDefをする前のベース型を取得
941	GetOriginalTypeName(temporary);
942	}
943
944	if(temporary[3]!='('){
945	SetError(10,temporary,cp);
946	return 0;
947	}
948
949	//関数ポインタ
950	pTypeInfo->u.lpIndex=AddProcPtrInfo(temporary+3,temporary[2]);
951	}
952
953	if(buffer[i]=='('){
954	//コンストラクタに渡すパラメータを取得
955	i2=GetStringInPare(ConstractParameter,buffer+i);
956	i+=i2;
957	RemoveStringPare(ConstractParameter);
958
959	if(pTypeInfo->type!=DEF_OBJECT){
960	SetError(112,variable,cp);
961	return 0;
962	}
963	}
964	}
965	else{
966	/////////////////
967	// As指定なし
968	/////////////////
969
970	if( InitBuf[0] == '\0' ){
971	//As指定も、初期値指定もない場合
972	pTypeInfo->type=GetTypeFromSimpleName(variable);
973
974	i2=lstrlen(variable)-1;
975	if(i2>=0){
976	if(!(variable[i2]=='#'\|\|variable[i2]=='!'\|\|variable[i2]=='%'\|\|variable[i2]=='$'))
977	SetError(-103,variable,cp);
978	}
979	}
980	else{
981	//初期値の型を判別して自動的に型情報を付加する
982
983	TYPEINFO BaseType = GetStringTypeInfo();
984	int result = NumOpe_GetType( InitBuf, &BaseType, &pTypeInfo->u.lpIndex );
985
986	//エラーの場合
987	if( result == -1 ) return 0;
988
989	pTypeInfo->type = result;
990	}
991
992	}
993
994	if( InitBuf[0] != '\0' && ConstractParameter[0] != '\0' ){
995	//初期値とコンストラクタパラメータが同時に呼び出されているとき
996	SetError(132, NULL, cp);
997	}
998
999	if( pTypeInfo->type == DEF_OBJECT && InitBuf[0] != '\0' && InitBuf[0] != '[' ){
1000	lstrcpy( ConstractParameter, InitBuf );
1001	InitBuf[0] = 0;
1002	}
1003
1004	GetArrange(variable,VarName,SubScripts);
1005	return 1;
1006	}
1007
1008	BOOL GetNowStaticVarFullName(char VarName,char FullName){
1009	extern SUBINFO *pCompilingSubInfo;
1010	if(!pCompilingSubInfo) return 0;
1011
1012	//Static識別
1013	lstrcpy(FullName,"Static%");
1014
1015	//クラス名
1016	if(pobj_CompilingClass){
1017	lstrcat(FullName,pobj_CompilingClass->name);
1018	lstrcat(FullName,"%");
1019	}
1020
1021	//関数名
1022	lstrcat(FullName,pCompilingSubInfo->name);
1023	lstrcat(FullName,"%");
1024
1025	//ID
1026	char temp[255];
1027	sprintf(temp,"%x",pCompilingSubInfo->id);
1028	lstrcat(FullName,temp);
1029	lstrcat(FullName,"%");
1030
1031	lstrcat(FullName,VarName);
1032
1033	return 1;
1034	}
1035
1036
1037	void AddGlobalVariable(char name,int SubScripts,TYPEINFO pTypeInfo,int TypeSize,char InitBuf,char *ConstractParameter,DWORD dwFlag){
1038	/////////////////////////
1039	// グローバル変数を追加
1040	/////////////////////////
1041	extern VARIABLE *GlobalVar;
1042	extern int MaxGlobalVarNum;
1043	extern int AllInitGlobalVarSize;
1044	extern int AllGlobalVarSize;
1045
1046	int i2,i3,VarSize;
1047
1048	for(i2=0;i2<MaxGlobalVarNum;i2++){
1049	if(GlobalVar[i2].bLiving&&obj_LexScopes.GetNowLevel()==GlobalVar[i2].ScopeLevel){
1050	if(lstrcmp(GlobalVar[i2].name,name)==0){
1051	//２重定義のエラー
1052	SetError(15,name,cp);
1053	return;
1054	}
1055	}
1056	}
1057
1058	GlobalVar=(VARIABLE )HeapReAlloc(hHeap,0,GlobalVar,(MaxGlobalVarNum+1)sizeof(VARIABLE));
1059
1060	for(i2=1,i3=0;i3<255;i3++){
1061	//配列要素数
1062	GlobalVar[MaxGlobalVarNum].SubScripts[i3]=SubScripts[i3];
1063
1064	if(SubScripts[i3]==-1) break;
1065	i2*=SubScripts[i3]+1;
1066	}
1067	VarSize=TypeSize*i2;
1068	if(VarSize%PTR_SIZE) VarSize+=PTR_SIZE-(VarSize%PTR_SIZE);
1069
1070	//新しいオブジェクトポインタを取得
1071	VARIABLE *pVar = &GlobalVar[MaxGlobalVarNum];
1072
1073	//グローバル変数の個数を増加
1074	MaxGlobalVarNum++;
1075
1076	lstrcpy(pVar->name,name);
1077	if(dwFlag & DIMFLAG_CONST) pVar->bConst = true;
1078	else pVar->bConst = false;
1079	if(SubScripts[0]==-1) pVar->bArray=0;
1080	else pVar->bArray=1;
1081	pVar->type=pTypeInfo->type;
1082	pVar->u.index=pTypeInfo->u.lpIndex;
1083
1084	//コンストラクタ用パラメータ
1085	pVar->ConstractParameter=(char *)HeapAlloc(hHeap,0,lstrlen(ConstractParameter)+1);
1086	lstrcpy(pVar->ConstractParameter,ConstractParameter);
1087
1088	if(InitBuf[0]\|\|dwFlag==DIMFLAG_INITDEBUGVAR){
1089	//初期バッファがあるとき
1090	pVar->offset=AllInitGlobalVarSize;
1091	AllInitGlobalVarSize+=VarSize;
1092	}
1093	else{
1094	//初期バッファがないとき
1095	pVar->offset=AllGlobalVarSize \| 0x80000000;
1096	AllGlobalVarSize+=VarSize;
1097	}
1098
1099	//レキシカルスコープ
1100	pVar->ScopeLevel=obj_LexScopes.GetNowLevel();
1101	pVar->ScopeStartAddress=obj_LexScopes.GetStartAddress();
1102	pVar->bLiving=TRUE;
1103
1104	//エラー用
1105	pVar->source_code_address=cp;
1106
1107	//初期バッファにデータをセット
1108	extern BYTE *initGlobalBuf;
1109	initGlobalBuf=(BYTE *)HeapReAlloc(hHeap,
1110	HEAP_ZERO_MEMORY,
1111	initGlobalBuf,
1112	AllInitGlobalVarSize);
1113	if(InitBuf[0]){
1114	if( pVar->type == DEF_OBJECT && InitBuf[0] != '[' ){
1115	//単発式が初期値のオブジェクトの場合
1116	//初期値をコピーコンストラクタに渡す
1117	}
1118	else{
1119	int result = SetInitGlobalData(pVar->offset,
1120	pVar->type,
1121	pVar->u.index,
1122	pVar->SubScripts,
1123	InitBuf);
1124
1125	if(!result){
1126	//動的な式だった場合は代入演算を行う
1127
1128	//初期代入時のみ、書き込みアクセスを許可する
1129	bool bConstBack = pVar->bConst;
1130	pVar->bConst = false;
1131
1132	//代入
1133	char temporary[8192];
1134	sprintf(temporary,"%s=%s",name,InitBuf);
1135	OpcodeCalc(temporary);
1136
1137	//アクセス制限を元に戻す
1138	pVar->bConst = bConstBack;
1139	}
1140	}
1141	}
1142
1143
1144
1145
1146	if(pTypeInfo->type==DEF_OBJECT){
1147	//利用対象のクラスコンストラクタ、デストラクタに使用チェックをつける
1148	for(i2=0;i2<pTypeInfo->u.pobj_Class->iMethodNum;i2++){
1149	if(lstrcmp(pTypeInfo->u.pobj_Class->ppobj_Method[i2]->psi->name,pTypeInfo->u.pobj_Class->name)==0){
1150	//コンストラクタ
1151	pTypeInfo->u.pobj_Class->ppobj_Method[i2]->psi->bUse=1;
1152	}
1153	if(pTypeInfo->u.pobj_Class->ppobj_Method[i2]->psi->name[0]=='~'){
1154	//デストラクタ
1155	pTypeInfo->u.pobj_Class->ppobj_Method[i2]->psi->bUse=1;
1156	}
1157	}
1158	}
1159	}

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

Download in other formats: