Context Navigation

source: dev/trunk/abdev/BasicCompiler_Common/VariableOpe.cpp@ 201

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

File size: 26.1 KB

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

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

Download in other formats: