Context Navigation

source: dev/trunk/abdev/BasicCompiler_Common/Compile.cpp@ 315

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

File size: 17.2 KB

Rev	Line
[206]	1	#include "stdafx.h"
	2
[182]	3	#include <jenga/include/smoothie/Smoothie.h>
	4	#include <jenga/include/smoothie/LexicalAnalysis.h>
	5	#include <jenga/include/smoothie/SmoothieException.h>
	6
[248]	7	#include <LexicalScope.h>
[182]	8	#include <CodeGenerator.h>
[193]	9	#include <Compiler.h>
[195]	10	#include <NamespaceSupporter.h>
[182]	11
[4]	12	#include "../BasicCompiler_Common/common.h"
	13
	14	#ifdef _AMD64_
	15	#include "../BasicCompiler64/opcode.h"
	16	#else
[5]	17	#include "../BasicCompiler32/opcode.h"
[4]	18	#endif
	19
[182]	20	#include <Exception.h>
	21
[4]	22	//With情報
	23	WITHINFO WithInfo;
	24
[263]	25	//デバッグ用行番号情報
	26	SourceLines oldSourceLines;
[4]	27
[89]	28
[263]	29
[16]	30	///////////////////////////////////////////////////
[17]	31	// トークンを取得
	32	///////////////////////////////////////////////////
[296]	33	void GetIdentifierToken( char token, const char source, int &pos )
	34	{
[17]	35	for( int i=0; ; i++, pos++ ){
	36	if( ! IsVariableChar( source[pos] ) ){
	37	token[i] = 0;
	38	break;
	39	}
	40	token[i] = source[pos];
	41	}
	42	}
[296]	43	void GetCommandToken( char token, const char source, int &pos )
	44	{
	45	for( int i=0; ; i++, pos++ ){
	46	if( IsCommandDelimitation( source[pos] ) ){
	47	token[i] = 0;
	48	break;
	49	}
	50	token[i] = source[pos];
	51	}
	52	}
[17]	53
	54
	55	///////////////////////////////////////////////////
[296]	56	// ジェネリクスのクラス型記述を分析
	57	///////////////////////////////////////////////////
[299]	58	void SplitGenericClassInstance( const char fullName, char className, Jenga::Common::Strings &typeParameters )
[296]	59	{
	60	int i = 0;
	61	typeParameters.clear();
	62
	63	//クラス名を取得
	64	GetIdentifierToken( className, fullName, i );
	65
	66
	67	/////////////////////////////////////////////////////////
	68	// ☆★☆ ジェネリクスサポート ☆★☆
	69	if( fullName[i] == '<' )
	70	{
	71	while( true )
	72	{
	73	i++;
	74
	75	// 型パラメータを取得
	76	char temporary[VN_SIZE];
	77	GetIdentifierToken( temporary, fullName, i );
	78	if( temporary[0] == '\0' )
	79	{
	80	extern int cp;
	81	SetError(1,NULL,cp);
	82	}
	83
	84	typeParameters.push_back( temporary );
	85
	86	if( fullName[i] == ',' )
	87	{
	88	continue;
	89	}
	90	else if( fullName[i] == '>' )
	91	{
	92	break;
	93	}
	94	else
	95	{
	96	extern int cp;
	97	SetError(1,NULL,cp);
	98	}
	99	}
	100	}
	101	/////////////////////////////////////////////////////////
	102	}
	103
	104
	105	///////////////////////////////////////////////////
[16]	106	// 対になっているステートメントを飛び越す
	107	// ※グローバル領域用
	108	///////////////////////////////////////////////////
	109	int JumpStatement(const char *source, int &pos){
	110	if( source[pos] != 1 ) return 0;
	111
	112	if( ! IsCommandDelimitation( source[pos - 1] ) ){
	113	//直前がコマンド区切りではない場合
	114	return 0;
	115	}
	116
	117	char cStatement = source[pos + 1];
	118
	119	char cEnd = GetEndXXXCommand( cStatement );
	120	if( cEnd == 0 ) return 0;
	121
	122	pos += 2;
	123	while( ! ( source[pos] == 1 && source[pos + 1] == cEnd ) ){
	124
	125	if( source[pos] == '\0' ){
	126	char temporary[64];
	127	GetDefaultNameFromES( cStatement, temporary );
	128	SetError( 22, temporary, pos );
	129	return -1;
	130	}
	131
	132	pos++;
	133	}
	134	if( ! ( source[pos] == '\0' \|\| source[pos + 2] == '\0' ) ){
	135	pos += 2;
	136	}
	137
	138	return 1;
	139	}
	140
[4]	141	void ChangeOpcode(char *Command){
	142	extern HANDLE hHeap;
	143
[206]	144	if(Command[0]=='\0')
	145	{
	146	return;
	147	}
	148
	149	trace_for_sourcecodestep( FormatEscapeSequenceStringToDefaultString(Command) );
	150
[4]	151	if(Command[0]=='*'&&IsVariableTopChar(Command[1])){
	152	//Goto先ラベル
[276]	153	compiler.codeGenerator.gotoLabels.push_back( GotoLabel( Command + 1, compiler.codeGenerator.GetNativeCodeSize() ) );
[4]	154
	155	//書き込みスケジュール
[253]	156	GotoLabelSchedules::iterator it = compiler.codeGenerator.gotoLabelSchedules.begin();
[246]	157	while( it != compiler.codeGenerator.gotoLabelSchedules.end() )
	158	{
[253]	159	if( (*it)->GetName() == Command+1 )
[246]	160	{
[253]	161	compiler.codeGenerator.opfix_JmpPertialSchedule( (*it) );
[246]	162
[4]	163	//詰める
[246]	164	it = compiler.codeGenerator.gotoLabelSchedules.erase( it );
[4]	165	}
[246]	166	else
	167	{
	168	it++;
	169	}
[4]	170	}
	171	return;
	172	}
	173	if(Command[0]==1){
	174	switch(Command[1]){
	175	case ESC_CONST:
[7]	176	OpcodeDim(Command+2, DIMFLAG_CONST);
	177	break;
	178
[4]	179	case ESC_TYPEDEF:
[113]	180	if( UserProc::IsLocalAreaCompiling() ){
	181	// ローカル領域をコンパイルしているとき
	182	SetError(65,"TypeDef",cp );
	183	}
	184
[78]	185	//既に収集済み
[4]	186	break;
	187
	188	case ESC_STATIC:
	189	OpcodeDim(Command+2,DIMFLAG_STATIC);
	190	break;
	191
	192	case ESC_IF:
	193	OpcodeIf(Command+2);
	194	break;
	195	case ESC_EXITWHILE:
[182]	196	{
[248]	197	LexicalScope *pScope = compiler.codeGenerator.lexicalScopes.SearchScope( LexicalScope::SCOPE_TYPE_WHILE );
[182]	198	if( !pScope ){
	199	SetError(12,"Exit While",cp);
	200	return;
	201	}
	202	pScope->Break();
	203	}
[4]	204	break;
	205	case ESC_EXITFOR:
[182]	206	{
[248]	207	LexicalScope *pScope = compiler.codeGenerator.lexicalScopes.SearchScope( LexicalScope::SCOPE_TYPE_FOR );
[182]	208	if( !pScope ){
	209	SetError(12,"Exit For",cp);
	210	return;
	211	}
	212	pScope->Break();
	213	}
[4]	214	break;
	215	case ESC_EXITDO:
[182]	216	{
[248]	217	LexicalScope *pScope = compiler.codeGenerator.lexicalScopes.SearchScope( LexicalScope::SCOPE_TYPE_DO );
[182]	218	if( !pScope ){
	219	SetError(12,"Exit Do",cp);
	220	return;
	221	}
	222	pScope->Break();
	223	}
[4]	224	break;
	225	case ESC_CONTINUE:
	226	OpcodeContinue();
	227	break;
	228
	229	case ESC_EXITSUB:
	230	case ESC_EXITFUNCTION:
	231	case ESC_EXITMACRO:
	232	OpcodeExitSub();
	233	break;
	234
	235	case ESC_SELECTCASE:
	236	OpcodeSelect(Command+2);
	237	break;
	238	case ESC_CASE:
	239	case ESC_CASEELSE:
	240	OpcodeCase(Command+2);
	241	break;
	242
	243	case ESC_WITH:
	244	extern WITHINFO WithInfo;
	245
	246	WithInfo.ppName=(char *)HeapReAlloc(hHeap,0,WithInfo.ppName,(WithInfo.num+1)sizeof(char **));
	247	WithInfo.ppName[WithInfo.num]=(char *)HeapAlloc(hHeap,0,lstrlen(Command+2)+1);
	248	lstrcpy(WithInfo.ppName[WithInfo.num],Command+2);
	249
	250	WithInfo.pWithCp=(int )HeapReAlloc(hHeap,0,WithInfo.pWithCp,(WithInfo.num+1)sizeof(int));
	251	WithInfo.pWithCp[WithInfo.num]=cp;
	252
	253	WithInfo.num++;
	254	break;
	255	case ESC_ENDWITH:
	256	if(WithInfo.num<=0){
	257	SetError(12,"End With",cp);
	258	return;
	259	}
	260	WithInfo.num--;
	261	HeapDefaultFree(WithInfo.ppName[WithInfo.num]);
	262	break;
	263	case ESC_DECLARE:
[113]	264	if( UserProc::IsLocalAreaCompiling() ){
	265	// ローカル領域をコンパイルしているとき
	266	SetError(65,"Declare",cp );
	267	}
[4]	268	break;
[26]	269
[99]	270	case ESC_NAMESPACE:
[199]	271	compiler.GetNamespaceSupporter().GetLivingNamespaceScopes().push_back( Command + 2 );
[103]	272	break;
[99]	273	case ESC_ENDNAMESPACE:
[199]	274	if( compiler.GetNamespaceSupporter().GetLivingNamespaceScopes().size() <= 0 ){
[103]	275	SetError(12,"End Namespace",cp);
	276	}
[199]	277	compiler.GetNamespaceSupporter().GetLivingNamespaceScopes().pop_back();
[99]	278	break;
[107]	279	case ESC_IMPORTS:
[199]	280	compiler.GetNamespaceSupporter().ImportsNamespace( Command + 2 );
[107]	281	break;
	282	case ESC_CLEARNAMESPACEIMPORTED:
[199]	283	compiler.GetNamespaceSupporter().GetImportedNamespaces().clear();
[107]	284	break;
[99]	285
[26]	286	//Tryによる例外処理
	287	case ESC_TRY:
	288	Exception::TryCommand();
	289	break;
	290	case ESC_CATCH:
	291	Exception::CatchCommand();
	292	break;
	293	case ESC_FINALLY:
	294	Exception::FinallyCommand();
	295	break;
	296	case ESC_ENDTRY:
	297	Exception::EndTryCommand();
	298	break;
	299	case ESC_THROW:
	300	Exception::ThrowCommand( Command + 2 );
	301	break;
	302
[4]	303	default:
	304	char temporary[64];
	305	GetDefaultNameFromES(Command[1],temporary);
	306	SetError(30,temporary,cp);
	307	break;
	308	}
	309	return;
	310	}
	311	switch(MAKEWORD(Command[1],Command[0])){
	312	case COM_DIM:
	313	OpcodeDim(Command+2,0);
	314	break;
	315	case COM_DELETE:
[64]	316	OpcodeDelete(Command+2, false);
[4]	317	break;
[64]	318	case COM_SWEEPINGDELETE:
	319	OpcodeDelete(Command+2, true);
	320	break;
[4]	321
	322	case COM_GOTO:
	323	OpcodeGoto(Command+2);
	324	break;
	325	case COM_WHILE:
	326	OpcodeWhile(Command+2);
	327	break;
	328	case COM_FOR:
	329	OpcodeFor(Command+2);
	330	break;
	331	case COM_DO:
	332	OpcodeDo(Command+2);
	333	break;
	334
	335	case COM_GOSUB:
	336	OpcodeGosub(Command+2);
	337	break;
	338	case COM_RETURN:
	339	OpcodeReturn(Command+2);
	340	break;
	341
	342	case COM_SETDOUBLE:
	343	OpcodeSetPtrData(Command+2,DEF_DOUBLE);
	344	break;
	345	case COM_SETSINGLE:
	346	OpcodeSetPtrData(Command+2,DEF_SINGLE);
	347	break;
	348	case COM_SETQWORD:
	349	OpcodeSetPtrData(Command+2,DEF_QWORD);
	350	break;
	351	case COM_SETDWORD:
	352	OpcodeSetPtrData(Command+2,DEF_DWORD);
	353	break;
	354	case COM_SETWORD:
	355	OpcodeSetPtrData(Command+2,DEF_WORD);
	356	break;
	357	case COM_SETBYTE:
	358	OpcodeSetPtrData(Command+2,DEF_BYTE);
	359	break;
	360
	361	case COM_DEBUG:
	362	extern BOOL bDebugCompile;
	363	//int 3
[253]	364	if(bDebugCompile)
	365	{
	366	breakpoint;
	367	}
	368	else
	369	{
[263]	370	//#if defined(_DEBUG)
[253]	371	breakpoint;
[263]	372	//#endif
[253]	373	}
[4]	374	break;
	375
	376	case COM_LET:
	377	OpcodeCalc(Command+2);
	378	break;
	379	default:
	380	OpcodeOthers(Command);
	381	break;
	382	}
	383	}
	384
	385	void GetGlobalDataForDll(void){
	386	extern char *basbuf;
	387	extern HANDLE hHeap;
	388	int i2,BufferSize;
	389	char *Command;
	390	DWORD dwRetCode;
	391
	392	dwRetCode=0;
	393	BufferSize=128;
	394	Command=(char *)HeapAlloc(hHeap,0,BufferSize);
	395	for(cp++,i2=0;;cp++,i2++){
	396	if(i2>=BufferSize){
	397	//バッファ領域が足りなくなった場合はバッファを増量する
	398	BufferSize+=128;
	399	Command=(char *)HeapReAlloc(hHeap,0,Command,BufferSize);
	400	}
	401	if(basbuf[cp]=='\"'){
	402	Command[i2]=basbuf[cp];
	403	for(cp++,i2++;;cp++,i2++){
	404	if(i2>=BufferSize){
	405	//バッファ領域が足りなくなった場合はバッファを増量する
	406	BufferSize+=128;
	407	Command=(char *)HeapReAlloc(hHeap,0,Command,BufferSize);
	408	}
	409	Command[i2]=basbuf[cp];
	410	if(basbuf[cp]=='\"') break;
	411	}
	412	continue;
	413	}
	414	if(IsCommandDelimitation(basbuf[cp])){
	415	Command[i2]=0;
	416
	417	if(Command[0]==1&&Command[1]==ESC_SUB){
	418	i2=cp;
	419	while(!(basbuf[cp]==1&&basbuf[cp+1]==ESC_ENDSUB)){
	420	if(basbuf[cp]=='\0'){
	421	SetError(22,"Sub",i2);
	422	break;
	423	}
	424	cp++;
	425	}
	426	if(basbuf[cp+2]=='\0'\|\|basbuf[cp]=='\0') break;
	427	cp+=2;
	428	i2=-1;
	429	continue;
	430	}
	431	if(Command[0]==1&&Command[1]==ESC_FUNCTION){
	432	i2=cp;
	433	while(!(basbuf[cp]==1&&basbuf[cp+1]==ESC_ENDFUNCTION)){
	434	if(basbuf[cp]=='\0'){
	435	SetError(22,"Function",i2);
	436	break;
	437	}
	438	cp++;
	439	}
	440	if(basbuf[cp+2]=='\0'\|\|basbuf[cp]=='\0') break;
	441	cp+=2;
	442	i2=-1;
	443	continue;
	444	}
	445	if(Command[0]==1&&Command[1]==ESC_MACRO){
	446	i2=cp;
	447	while(!(basbuf[cp]==1&&basbuf[cp+1]==ESC_ENDMACRO)){
	448	if(basbuf[cp]=='\0'){
	449	SetError(22,"Macro",i2);
	450	break;
	451	}
	452	cp++;
	453	}
	454	if(basbuf[cp+2]=='\0'\|\|basbuf[cp]=='\0') break;
	455	cp+=2;
	456	i2=-1;
	457	continue;
	458	}
	459	if(Command[0]==1&&Command[1]==ESC_TYPE){
	460	i2=cp;
	461	while(!(basbuf[cp]==1&&basbuf[cp+1]==ESC_ENDTYPE)){
	462	if(basbuf[cp]=='\0'){
	463	SetError(22,"Type",i2);
	464	break;
	465	}
	466	cp++;
	467	}
	468	if(basbuf[cp+2]=='\0'\|\|basbuf[cp]=='\0') break;
	469	cp+=2;
	470	i2=-1;
	471	continue;
	472	}
	473	if(Command[0]==1&&Command[1]==ESC_CLASS){
	474	i2=cp;
	475	while(!(basbuf[cp]==1&&basbuf[cp+1]==ESC_ENDCLASS)){
	476	if(basbuf[cp]=='\0'){
	477	SetError(22,"Class",i2);
	478	break;
	479	}
	480	cp++;
	481	}
	482	if(basbuf[cp+2]=='\0'\|\|basbuf[cp]=='\0') break;
	483	cp+=2;
	484	i2=-1;
	485	continue;
	486	}
	487	if(Command[0]==1&&Command[1]==ESC_INTERFACE){
	488	i2=cp;
	489	while(!(basbuf[cp]==1&&basbuf[cp+1]==ESC_ENDINTERFACE)){
	490	if(basbuf[cp]=='\0'){
	491	SetError(22,"Interface",i2);
	492	break;
	493	}
	494	cp++;
	495	}
	496	if(basbuf[cp+2]=='\0'\|\|basbuf[cp]=='\0') break;
	497	cp+=2;
	498	i2=-1;
	499	continue;
	500	}
	501
	502	//DLLのグローバルデータに必要なコマンドだけ
	503	if(MAKEWORD(Command[1],Command[0])==COM_DIM)
	504	OpcodeDim(Command+2,0);
	505
	506	if(basbuf[cp]=='\0') break;
	507	i2=-1;
	508	continue;
	509	}
	510	Command[i2]=basbuf[cp];
	511	}
	512	HeapDefaultFree(Command);
	513	}
	514	DWORD CompileBuffer(char Return_Sequence,WORD Return_Command){
	515	extern char *basbuf;
	516	extern HANDLE hHeap;
	517	int i,i2,i3,i4,BufferSize,ScopeStart;
	518	char Command,temporary[VN_SIZE],temp2,temp3[32];
	519	DWORD dwRetCode;
	520
	521	ScopeStart=cp;
	522
	523	dwRetCode=0;
	524	BufferSize=128;
	525	Command=(char *)HeapAlloc(hHeap,0,BufferSize);
[15]	526
[4]	527	for(cp++,i2=0;;cp++,i2++){
	528	if(i2>=BufferSize){
	529	//バッファ領域が足りなくなった場合はバッファを増量する
	530	BufferSize+=128;
	531	Command=(char *)HeapReAlloc(hHeap,0,Command,BufferSize);
	532	}
	533	if(basbuf[cp]=='\"'){
	534	Command[i2]=basbuf[cp];
	535	for(cp++,i2++;;cp++,i2++){
	536	if(i2>=BufferSize){
	537	//バッファ領域が足りなくなった場合はバッファを増量する
	538	BufferSize+=128;
	539	Command=(char *)HeapReAlloc(hHeap,0,Command,BufferSize);
	540	}
	541	Command[i2]=basbuf[cp];
	542	if(basbuf[cp]=='\"') break;
	543	}
	544	continue;
	545	}
	546	if(IsCommandDelimitation(basbuf[cp])){
	547	Command[i2]=0;
	548
	549	if(Command[0]==1&&Command[1]==ESC_LINENUM){
	550	for(i=2,i2=0;;i++,i2++){
	551	if(Command[i]==','){
	552	temporary[i2]=0;
	553	break;
	554	}
	555	temporary[i2]=Command[i];
	556	}
	557	i3=atoi(temporary);
	558	i4=i+1;
	559
	560	//Goto先ラベル
[276]	561	compiler.codeGenerator.gotoLabels.push_back( GotoLabel( (long)i3, compiler.codeGenerator.GetNativeCodeSize() ) );
[4]	562
	563	//書き込みスケジュール
[253]	564	GotoLabelSchedules::iterator it = compiler.codeGenerator.gotoLabelSchedules.begin();
[246]	565	while( it != compiler.codeGenerator.gotoLabelSchedules.end() )
	566	{
[253]	567	if( (it)->GetName().size() == 0 && (it)->GetLineNum() == i3 )
[246]	568	{
[253]	569	compiler.codeGenerator.opfix_JmpPertialSchedule( (*it) );
	570
[4]	571	//詰める
[246]	572	it = compiler.codeGenerator.gotoLabelSchedules.erase( it );
[4]	573	}
[246]	574	else
	575	{
	576	it++;
	577	}
[4]	578	}
	579
	580	temp2=(char *)HeapAlloc(hHeap,0,lstrlen(Command+i4)+1);
	581	lstrcpy(temp2,Command+i4);
	582	lstrcpy(Command,temp2);
	583	HeapDefaultFree(temp2);
	584	}
	585
	586	if(Command[0]==1&&
	587	(((Command[1]==ESC_VIRTUAL\|\|Command[1]==ESC_OVERRIDE)&&Command[2]==1&&(Command[3]==ESC_SUB\|\|Command[3]==ESC_FUNCTION))\|\|
	588	Command[1]==ESC_SUB\|\|
	589	Command[1]==ESC_FUNCTION\|\|
	590	Command[1]==ESC_MACRO\|\|
	591	Command[1]==ESC_TYPE\|\|
	592	Command[1]==ESC_CLASS\|\|
	593	Command[1]==ESC_INTERFACE\|\|
	594	Command[1]==ESC_ENUM\|\|
	595	(Command[1]==ESC_CONST&&Command[2]==1&&Command[3]==ESC_ENUM)
	596	)
	597	){
	598	if(Command[1]==ESC_VIRTUAL\|\|Command[1]==ESC_OVERRIDE\|\|Command[1]==ESC_CONST){
	599	GetDefaultNameFromES(Command[3],temporary);
	600	}
	601	else{
	602	GetDefaultNameFromES(Command[1],temporary);
	603	}
	604	if(Return_Sequence){
	605	SetError(12,temporary,cp);
	606	break;
	607	}
	608
	609	if(Command[1]==ESC_CONST) i3=GetEndXXXCommand(Command[3]);
	610	else i3=GetEndXXXCommand(Command[1]);
	611	for(i2=cp;;cp++){
	612	if(basbuf[cp]==1){
	613	if(basbuf[cp+1]==i3) break;
	614	if(Command[1]==ESC_CLASS\|\|Command[1]==ESC_INTERFACE){
	615	//クラス、インターフェイスではSub、Functionの定義を可能にしておく
	616	if(basbuf[cp+1]==ESC_MACRO\|\|
	617	basbuf[cp+1]==ESC_TYPE\|\|
	618	basbuf[cp+1]==ESC_CLASS\|\|
	619	basbuf[cp+1]==ESC_INTERFACE\|\|
	620	basbuf[cp+1]==ESC_ENUM){
	621	GetDefaultNameFromES(basbuf[cp+1],temp3);
	622	SetError(12,temp3,cp);
	623	}
	624	}
	625	else{
	626	if(basbuf[cp-1]!='*'&&(
	627	basbuf[cp+1]==ESC_VIRTUAL\|\|
	628	basbuf[cp+1]==ESC_OVERRIDE\|\|
	629	basbuf[cp+1]==ESC_SUB\|\|
	630	basbuf[cp+1]==ESC_FUNCTION\|\|
	631	basbuf[cp+1]==ESC_MACRO\|\|
	632	basbuf[cp+1]==ESC_TYPE\|\|
	633	basbuf[cp+1]==ESC_CLASS\|\|
	634	basbuf[cp+1]==ESC_INTERFACE\|\|
	635	basbuf[cp+1]==ESC_ENUM)){
	636	GetDefaultNameFromES(basbuf[cp+1],temp3);
	637	SetError(12,temp3,cp);
	638	}
	639	}
	640	}
	641	if(basbuf[cp]=='\0'){
	642	//error
	643	//既にエラー発行済みのため、何もせずに抜ける
	644	break;
	645	}
	646	}
	647	if(basbuf[cp+2]=='\0'\|\|basbuf[cp]=='\0') break;
	648	cp+=2;
	649	i2=-1;
	650	continue;
	651	}
	652
	653	if(Command[0]==0x10\|\|Command[0]==0x11){
	654	//Wend、Next、Loopなど
	655	if(Return_Command==MAKEWORD(Command[1],Command[0])){
	656	if(Return_Command==COM_NEXT){
	657	//Nextの場合は、パラメータ（省略化）の整合性を判断する必要がある（OpcodeFor関数を参照）
	658	extern char szNextVariable[VN_SIZE];
	659	if(Command[2]) lstrcpy(szNextVariable,Command+2);
	660	else szNextVariable[0]=0;
	661	}
	662	break;
	663	}
	664	}
	665
[263]	666	compiler.codeGenerator.NextSourceLine();
[4]	667
	668	if(Command[0]==1){
	669	if(Return_Sequence==ESC_ENDIF&&Command[1]==ESC_ELSE){
	670	dwRetCode=ESC_ELSE;
	671	break;
	672	}
	673
	674	if(Command[1]==Return_Sequence){
	675	dwRetCode=Command[1];
	676	break;
	677	}
	678	}
	679
[182]	680	try
	681	{
	682	ChangeOpcode(Command);
	683	}
	684	catch( const SmoothieException &smoothieException )
	685	{
	686	SetError(
	687	smoothieException.GetErrorCode(),
	688	smoothieException.GetKeyword(),
	689	smoothieException.GetNowLine()
	690	);
	691	}
[4]	692
[232]	693
[4]	694	epi_check();
	695
[232]	696
[4]	697	//コンパイルを中断するとき
	698	extern BOOL bStopCompile;
	699	if(bStopCompile) return 0;
	700
	701	if(basbuf[cp]=='\0'){
	702	switch(Return_Command){
	703	case COM_WEND:
	704	SetError(4,"\"While\" - \"Wend\" ",ScopeStart);
	705	break;
	706	case COM_NEXT:
	707	SetError(4,"\"For\" - \"Next\" ",ScopeStart);
	708	break;
	709	case COM_LOOP:
	710	SetError(4,"\"Do\" - \"Loop\" ",ScopeStart);
	711	break;
	712	}
	713	switch(Return_Sequence){
	714	case ESC_ENDSUB:
	715	SetError(4,"\"Sub\" - \"End Sub\" ",ScopeStart);
	716	break;
	717	case ESC_ENDFUNCTION:
	718	SetError(4,"\"Function\" - \"End Function\" ",ScopeStart);
	719	break;
	720	case ESC_ENDMACRO:
	721	SetError(4,"\"Macro\" - \"End Macro\" ",ScopeStart);
	722	break;
	723	case ESC_ENDIF:
	724	SetError(22,"If",ScopeStart);
	725	break;
	726	}
	727	break;
	728	}
	729	i2=-1;
	730	continue;
	731	}
	732	Command[i2]=basbuf[cp];
	733	}
	734	HeapDefaultFree(Command);
	735
	736	return dwRetCode;
	737	}

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

Download in other formats: