Context Navigation

source: dev/BasicCompiler_Common/Intermediate_Step1.cpp@ 72

Last change on this file since 72 was 67, checked in by dai_9181, 18 years ago
[32bit Compiler]op_push_value → op_push_V Nothingに対応。
File size: 28.3 KB

Rev	Line
[4]	1	#include "../BasicCompiler_Common/common.h"
	2
	3	void ChangeReturnCode(char *buffer){
[64]	4
	5	#ifdef _DEBUG
	6	//改行コードの整合性チェック
	7	for( int i=0; ; i++ ){
	8	if( buffer[i] == '\0' ){
	9	break;
	10	}
	11	if( buffer[i]!='\r' && buffer[i+1]=='\n'
	12	\|\| buffer[i]=='\r' && buffer[i+1]!='\n' ){
	13	char temporary[255];
	14	strncpy( temporary, buffer + i-100, 130 );
	15	temporary[130] = 0;
	16	for(int i2=0; ;i2++){
	17	if(temporary[i2]=='\r') temporary[i2]='A';
	18	if(temporary[i2]=='\n') temporary[i2]='B';
	19	if(temporary[i2]=='\0') break;
	20	}
	21	MessageBox( hOwnerEditor, temporary, "改行コードの整合性チェック", MB_OK \| MB_ICONEXCLAMATION );
	22	}
	23	}
	24	#endif
	25
[4]	26	//改行コードのCRLFをLFに変換
[64]	27	for(int i=0,i2=0;;i++,i2++){
[4]	28	if(buffer[i]=='\r'&&buffer[i+1]=='\n') i++;
	29	buffer[i2]=buffer[i];
	30	if(buffer[i]=='\0') break;
	31	}
	32	}
	33	void DeleteComment(char *buffer){ //注釈「'」の取り除き
	34	int i,i2,i3,IsStr;
	35	char *temporary;
	36	temporary=(char *)GlobalAlloc(GMEM_FIXED,lstrlen(buffer)+1);
	37	for(i=0,i2=0,i3=0,IsStr=0;;i++,i2++){
	38	if(buffer[i]=='\"') IsStr^=1;
	39	if(buffer[i]=='\n'\|\|buffer[i]=='\0'){
	40	i2--;
	41	while(temporary[i2]==' '\|\|temporary[i2]=='\t') i2--;
	42	i2++;
	43
	44	if(i3){
	45	//複数行に渡る注釈文の中に改行が存在するとき
	46	memset(temporary+i2,'\n',i3);
	47	i2+=i3;
	48	i3=0;
	49	}
	50	}
	51	if(buffer[i]=='\''&&IsStr==0){
	52	//注釈文
	53	i2--;
	54	while(temporary[i2]==' '\|\|temporary[i2]=='\t') i2--;
	55	i2++;
	56	while(buffer[i]!='\n'&&buffer[i]!='\0') i++;
	57	}
	58	if(buffer[i]=='/'&&buffer[i+1]=='*'&&IsStr==0){
	59	//注釈文（複数行）
	60	i+=2;
	61	i3=0;
	62	while(!(buffer[i]=='*'&&buffer[i+1]=='/')){
	63	if(buffer[i]=='\n') i3++;
	64	if(buffer[i]=='\0') break;
	65	i++;
	66	}
	67	if(buffer[i]){
	68	i+=2;
	69	}
	70	i--;
	71	i2--;
	72	continue;
	73	}
	74	temporary[i2]=buffer[i];
	75	if(buffer[i]=='\0') break;
	76	}
	77	lstrcpy(buffer,temporary);
	78	GlobalFree(temporary);
	79	}
	80	int KillReturnCode_InParameter(char buffer,int pRnum,char cBeginPare,char cEndPare){
	81	int i,i2,i3,IsStr;
	82
	83	//カッコ'('直下の改行
	84	while(buffer[0]=='\n'){
	85	SlideString(buffer+1,-1);
	86	(*pRnum)++;
	87	}
	88
	89	for(i=0,IsStr=0;;i++){
	90	if(IsDBCSLeadByte(buffer[i])&&buffer[i+1]){
	91	i++;
	92	continue;
	93	}
	94
	95	if(buffer[i]=='\"') IsStr^=1;
	96
	97	if(buffer[i]=='\0') break; //エラー
	98	if(buffer[i]=='\n'){
	99	i2=0;
	100	i3=0;
	101	while(buffer[i+i2]=='\n'){
	102	i2++;
	103	i3++;
	104	while(buffer[i+i2]==' '\|\|buffer[i+i2]=='\t') i2++;
	105	}
	106	while(buffer[i+i2]==' '\|\|buffer[i+i2]=='\t') i2++;
	107
	108	if(buffer[i+i2]==cEndPare){
	109	SlideString(buffer+i+i2,-i2);
	110	(*pRnum)+=i3;
	111	break;
	112	}
	113
	114	//エラー
	115	break;
	116	}
	117
	118	if(buffer[i]==cBeginPare&&IsStr==0){
	119	i++;
	120	i2=KillReturnCode_InParameter(buffer+i,pRnum,cBeginPare,cEndPare);
	121	i+=i2;
	122	if(buffer[i]!=cEndPare) break;
	123	continue;
	124	}
	125	if(buffer[i]==cEndPare&&IsStr==0) break;
	126
	127	if(buffer[i]==','&&buffer[i+1]=='\n'&&IsStr==0){
	128	i++;
	129	while(buffer[i]=='\n'){
	130	SlideString(buffer+i+1,-1);
	131	(*pRnum)++;
	132	}
	133	i--;
	134	}
	135	}
	136	return i;
	137	}
	138	void KillReturnCode(char *buffer){
	139	int i,i2;
	140
	141	//アンダーバーによる改行
	142	for(i=0;;i++){
	143	i2=0;
	144	while(buffer[i]=='_'&&buffer[i+1]=='\n'){
	145	i2++;
	146	SlideString(buffer+i+2,-2);
	147	while(buffer[i]=='\n'){
	148	SlideString(buffer+i+1,-1);
	149	i2++;
	150	}
	151	for(;;i++){
	152	if(buffer[i]=='_'&&buffer[i+1]=='\n') break;
	153	if(buffer[i]=='\n'\|\|buffer[i]=='\0'){
	154	SlideString(buffer+i,i2);
	155	memset(buffer+i,'\n',i2);
	156	break;
	157	}
	158	}
	159	}
	160	if(buffer[i]=='\0') break;
	161	}
	162
	163	//カッコ内パラメータの改行
	164	int IsStr,rnum;
	165	for(i=0,IsStr=0,rnum=0;;i++){
	166	if(IsDBCSLeadByte(buffer[i])&&buffer[i+1]){
	167	i++;
	168	continue;
	169	}
	170	if(buffer[i]=='\0') break;
	171	if(buffer[i]=='\n'){
	172	if(rnum){
	173	SlideString(buffer+i+1,rnum);
	174	memset(buffer+i+1,'\n',rnum);
	175	rnum=0;
	176	}
	177	}
	178	if(buffer[i]=='\"') IsStr^=1;
	179	if(buffer[i]=='('&&IsStr==0){
	180	i++;
	181	i2=KillReturnCode_InParameter(buffer+i,&rnum,'(',')');
	182	i+=i2;
	183	if(buffer[i]!=')') break;
	184	}
	185	if(buffer[i]=='['&&IsStr==0){
	186	i++;
	187	i2=KillReturnCode_InParameter(buffer+i,&rnum,'[',']');
	188	i+=i2;
	189	if(buffer[i]!=']') break;
	190	}
	191	}
	192	}
	193	void CheckParenthesis(char *buffer){
	194	int i,IsStr,PareNum,sw;
	195	_int8 bracket[1024];
	196
	197	for(i=0,IsStr=0,PareNum=0,sw=0;;i++){
	198	if(buffer[i]=='\"'){
	199	IsStr^=1;
	200	continue;
	201	}
	202
	203	else if(buffer[i]=='('&&IsStr==0){
	204	bracket[PareNum]=0;
	205	PareNum++;
	206	}
	207	else if(buffer[i]=='['&&IsStr==0){
	208	bracket[PareNum]=1;
	209	PareNum++;
	210	}
	211
	212	else if(buffer[i]==')'&&IsStr==0){
	213	PareNum--;
	214	if(bracket[PareNum]!=0\|\|PareNum<0){
	215	//"カッコ \'( )\'"
	216	SetError(4,STRING_PARENTHESIS,i);
	217	return;
	218	}
	219	}
	220	else if(buffer[i]==']'&&IsStr==0){
	221	PareNum--;
	222	if(bracket[PareNum]!=1\|\|PareNum<0){
	223	//"カッコ \'( )\'"
	224	SetError(4,STRING_PARENTHESIS,i);
	225	return;
	226	}
	227	}
	228
	229	else if(buffer[i]=='\n'\|\|buffer[i]=='\0'){
	230
	231	//"カッコ \'( )\'"
	232	if(PareNum!=0) SetError(4,STRING_PARENTHESIS,i);
	233
	234	if(IsStr!=0) SetError(5,NULL,i);
	235	if(buffer[i]=='\0') break;
	236	PareNum=0;
	237	IsStr=0;
	238
	239	sw=0;
	240	}
	241
	242	else if((IsDBCSLeadByte(buffer[i])\|\|buffer[i]==1)&&IsStr==0){
	243	//不正な文字コード
	244	if(sw==0){
	245	//全角スペース
	246	if(buffer[i]==(char)0x81&&buffer[i+1]==(char)0x40)
	247	SetError(20,NULL,i);
	248
	249	//その他の全角文字
	250	else SetError(8,NULL,i);
	251	sw=1;
	252	}
	253	}
	254	}
	255	}
	256	BOOL CheckParenthesis2(char *buffer){
	257	int i,IsStr,PareNum,sw;
	258	_int8 bracket[1024];
	259
	260	for(i=0,IsStr=0,PareNum=0,sw=0;;i++){
	261	if(buffer[i]=='\"'){
	262	IsStr^=1;
	263	continue;
	264	}
	265
	266	else if(buffer[i]=='('&&IsStr==0){
	267	bracket[PareNum]=0;
	268	PareNum++;
	269	}
	270	else if(buffer[i]=='['&&IsStr==0){
	271	bracket[PareNum]=1;
	272	PareNum++;
	273	}
	274
	275	else if(buffer[i]==')'&&IsStr==0){
	276	PareNum--;
	277	if(bracket[PareNum]!=0\|\|PareNum<0){
	278	//"カッコ \'( )\'"
	279	return 0;
	280	}
	281	}
	282	else if(buffer[i]==']'&&IsStr==0){
	283	PareNum--;
	284	if(bracket[PareNum]!=1\|\|PareNum<0){
	285	//"カッコ \'( )\'"
	286	return 0;
	287	}
	288	}
	289
	290	else if(buffer[i]=='\n'\|\|buffer[i]=='\0'){
	291
	292	//"カッコ \'( )\'"
	293	if(PareNum!=0){
	294	return 0;
	295	}
	296
	297	if(IsStr!=0){
	298	return 0;
	299	}
	300	if(buffer[i]=='\0') break;
	301	PareNum=0;
	302	IsStr=0;
	303
	304	sw=0;
	305	}
	306
	307	else if((IsDBCSLeadByte(buffer[i])\|\|buffer[i]==1)&&IsStr==0){
	308	//不正な文字コード
	309	if(sw==0){
	310	//全角スペース
	311	if(buffer[i]==(char)0x81&&buffer[i+1]==(char)0x40){
	312	return 0;
	313	}
	314
	315	//その他の全角文字
	316	else return 0;
	317	sw=1;
	318	}
	319	}
	320	}
	321	return 1;
	322	}
	323	void DirectiveCheck(void){
	324	extern char *basbuf;
	325	extern char BasicCurDir[MAX_PATH];
	326	int i,i2,i3;
	327	char temporary[VN_SIZE];
	328
	329	extern BOOL bStrict;
	330	bStrict=0;
	331
	332	for(i=0;;i++){
	333	if(basbuf[i]=='\0') break;
	334	if(((basbuf[i-2]==0&&basbuf[i-1]==-1)\|\|basbuf[i-1]=='\n')&&
	335	basbuf[i]=='#'){
	336	for(i2=i+1,i3=0;;i2++,i3++){
	337	if(!IsVariableChar(basbuf[i2])){
	338	temporary[i3]=0;
	339	break;
	340	}
	341	temporary[i3]=basbuf[i2];
	342	}
	343	if(lstrcmpi(temporary,"noprompt")==0){
	344	//#noprompt
	345	//旧機能なので、無視
	346	for(;;i2++){
	347	if(basbuf[i2]=='\n'\|\|basbuf[i2]=='\0') break;
	348	}
	349	SlideString(basbuf+i2,i-i2);
	350	}
	351	else if(lstrcmpi(temporary,"strict")==0){
	352	//#strict
	353	for(;;i2++){
	354	if(basbuf[i2]=='\n'\|\|basbuf[i2]=='\0') break;
	355	}
	356	SlideString(basbuf+i2,i-i2);
	357
	358	//型チェックを厳密に行う
	359	bStrict=1;
	360	}
	361	else if(lstrcmpi(temporary,"struct")==0){
	362	//#struct code
	363	//旧機能なので、無視
	364	for(;;i2++){
	365	if(basbuf[i2]=='\n'\|\|basbuf[i2]=='\0') break;
	366	}
	367	SlideString(basbuf+i2,i-i2);
	368	}
	369	else if(lstrcmpi(temporary,"resource")==0){
	370	//#resource
	371	while(basbuf[i2]==' '\|\|basbuf[i2]=='\t') i2++;
	372	if(basbuf[i2]!='\"'){
	373	SetError(1,NULL,i2);
	374	return;
	375	}
	376	for(i3=0,i2++;;i2++,i3++){
	377	if(basbuf[i2]=='\"'){
	378	temporary[i3]=0;
	379	break;
	380	}
	381	temporary[i3]=basbuf[i2];
	382	}
	383	GetFullPath(temporary,BasicCurDir);
	384
	385	extern char ResourceFileName[MAX_PATH];
	386	lstrcpy(ResourceFileName,temporary);
	387
	388	for(;;i2++){
	389	if(basbuf[i2]=='\n'\|\|basbuf[i2]=='\0') break;
	390	}
	391	SlideString(basbuf+i2,i-i2);
	392	}
	393	}
	394	}
	395	}
	396	void NextCommandFormat(char *buffer){
	397	int i,i2,i3;
	398	char temporary[255];
	399
	400	//Next命令語のフォーマット
	401	for(i=0;;i++){
	402	if(buffer[i]=='\n'\|\|buffer[i]==':'\|\|i==0){
	403	if(buffer[i]=='\n'\|\|buffer[i]==':') i++;
	404	while(buffer[i]==' '\|\|buffer[i]=='\t') i++;
	405	while(buffer[i]>='0'&&buffer[i]<='9') i++;
	406	while(buffer[i]==' '\|\|buffer[i]=='\t') i++;
	407	if((buffer[i]=='n'\|\|buffer[i]=='N')&&(buffer[i+1]=='e'\|\|buffer[i+1]=='E')&&(buffer[i+2]=='x'\|\|buffer[i+2]=='X')&&(buffer[i+3]=='t'\|\|buffer[i+3]=='T')&&
	408	(buffer[i+4]==' '\|\|buffer[i+4]=='\t')){
	409	i2=i+5;
	410	while(buffer[i2]==' '\|\|buffer[i2]=='\t') i2++;
	411	if(buffer[i2]!='\n'){
	412	lstrcpy(temporary,"NEXT");
	413	for(i3=0;;i2++){
	414	if(buffer[i2]=='\n'\|\|buffer[i2]==':'\|\|buffer[i2]=='\0') break;
	415	if(buffer[i2]==','){
	416	lstrcat(temporary,":NEXT");
	417	i3=1;
	418	}
	419	}
	420	if(i3){
	421	i3=lstrlen(temporary);
	422	SlideString(buffer+i2,i-i2+i3);
	423	memcpy(buffer+i,temporary,i3);
	424	}
	425	}
	426	}
	427	}
	428	if(buffer[i]=='\0') break;
	429	}
	430	}
	431	void SetEscapeSequenceFormat(char *buffer){
	432	/*「MOD」「AND」「OR」
	433	その他制御文字をエスケープシーケンスを使用した記号へ変換 */
	434	int i,i2,i3,i4,i5,i6,sw1,IsStr;
	435	char *temporary,temp2[VN_SIZE];
	436
[54]	437	temporary=(char )HeapAlloc(hHeap,HEAP_ZERO_MEMORY,lstrlen(buffer)2);
[4]	438	for(i=0,i2=0,IsStr=0;;i++,i2++){
	439	if(buffer[i]=='\"') IsStr^=1;
	440	if(buffer[i]=='-'&&buffer[i+1]=='>'&&IsStr==0){
	441	buffer[i]=1;
	442	buffer[i+1]=ESC_PSMEM;
	443	}
	444	if(IsVariableChar(buffer[i])&&IsStr==0){
	445	i3=i2;
	446	for(;;i++,i2++){
	447	if(!IsVariableChar(buffer[i])){
	448	temporary[i2]=0;
	449	break;
	450	}
	451	temporary[i2]=buffer[i];
	452	}
	453	if(lstrcmpi(temporary+i3,"End")==0) i6=1;
	454	else if(lstrcmpi(temporary+i3,"Exit")==0) i6=2;
	455	else if(lstrcmpi(temporary+i3,"Select")==0) i6=3;
	456	else if(lstrcmpi(temporary+i3,"Case")==0) i6=4;
	457	else if(lstrcmpi(temporary+i3,"Else")==0) i6=5;
	458	else i6=0;
	459	if(i6){
	460	i4=i;
	461	while(buffer[i4]==' '\|\|buffer[i4]=='\t') i4++;
	462	for(i5=0;;i4++,i5++){
	463	if(!IsVariableChar(buffer[i4])){
	464	temp2[i5]=0;
	465	break;
	466	}
	467	temp2[i5]=buffer[i4];
	468	}
	469	sw1=0;
	470	if(i6==3){
	471	//Select～
	472	if(lstrcmpi(temp2,"Case")==0) sw1=1;
	473	}
	474	else if(i6==4){
	475	//Case～
	476	if(lstrcmpi(temp2,"Else")==0) sw1=1;
	477	}
	478	else if(i6==5){
	479	//Else If
	480	if(lstrcmpi(temp2,"If")==0) sw1=1;
	481	}
	482	else if(i6==1){
	483	//End～
	484	switch(temp2[0]){
	485	case 'c':
	486	case 'C':
	487	if(lstrcmpi(temp2,"Class")==0) sw1=1;
	488	break;
	489	case 'e':
	490	case 'E':
	491	if(lstrcmpi(temp2,"Enum")==0) sw1=1;
	492	break;
	493	case 'i':
	494	case 'I':
	495	if(lstrcmpi(temp2,"If")==0) sw1=1;
	496	else if(lstrcmpi(temp2,"Interface")==0) sw1=1;
	497	break;
	498	case 'f':
	499	case 'F':
	500	if(lstrcmpi(temp2,"Function")==0) sw1=1;
	501	break;
	502	case 'm':
	503	case 'M':
	504	if(lstrcmpi(temp2,"Macro")==0) sw1=1;
	505	break;
	506	case 's':
	507	case 'S':
	508	if(lstrcmpi(temp2,"Sub")==0) sw1=1;
	509	else if(lstrcmpi(temp2,"Select")==0) sw1=1;
	510	break;
	511	case 't':
	512	case 'T':
	513	if(lstrcmpi(temp2,"Type")==0) sw1=1;
	514	break;
	515	case 'w':
	516	case 'W':
	517	if(lstrcmpi(temp2,"With")==0) sw1=1;
	518	break;
	519	}
	520	}
	521	else if(i6==2){
	522	//Exit～
	523	if(
	524	lstrcmpi(temp2,"For")==0\|\|
	525	lstrcmpi(temp2,"While")==0\|\|
	526	lstrcmpi(temp2,"Do")==0\|\|
	527	lstrcmpi(temp2,"Function")==0\|\|
	528	lstrcmpi(temp2,"Sub")==0\|\|
	529	lstrcmpi(temp2,"Macro")==0
	530	) sw1=1;
	531	}
	532
	533	if(sw1){
	534	i=i4;
	535	memcpy(temporary+i2,temp2,i5);
	536	i2+=i5;
	537	temporary[i2]=0;
	538	}
	539	}
	540	i--;
	541	i2--;
	542
	543	switch(temporary[i3]){
	544	case 'a':
	545	case 'A':
	546	if(lstrcmpi(temporary+i3,"And")==0){
	547	i2=i3;
	548	temporary[i2++]=1;
	549	temporary[i2]=ESC_AND;
	550	}
	551	else if(lstrcmpi(temporary+i3,"Abstract")==0){
	552	i2=i3;
	553	temporary[i2++]=1;
	554	temporary[i2]=ESC_ABSTRACT;
	555	}
	556	else if(lstrcmpi(temporary+i3,"As")==0){
	557	i2=i3;
	558	temporary[i2++]=1;
	559	temporary[i2]=ESC_AS;
	560	}
	561	break;
	562	case 'b':
	563	case 'B':
	564	if(lstrcmpi(temporary+i3,"ByVal")==0){
	565	i2=i3;
	566	temporary[i2++]=1;
	567	temporary[i2]=ESC_BYVAL;
	568	}
	569	else if(lstrcmpi(temporary+i3,"ByRef")==0){
	570	i2=i3;
	571	temporary[i2++]=1;
	572	temporary[i2]=ESC_BYREF;
	573	}
	574	break;
	575	case 'c':
	576	case 'C':
	577	if(lstrcmpi(temporary+i3,"Catch")==0){
	578	i2=i3;
	579	temporary[i2++]=1;
	580	temporary[i2]=ESC_CATCH;
	581	}
	582	else if(lstrcmpi(temporary+i3,"Continue")==0){
	583	i2=i3;
	584	temporary[i2++]=1;
	585	temporary[i2]=ESC_CONTINUE;
	586	}
	587	else if(lstrcmpi(temporary+i3,"cdecl")==0){
	588	i2=i3;
	589	temporary[i2++]=1;
	590	temporary[i2]=ESC_CDECL;
	591	}
	592	else if(lstrcmpi(temporary+i3,"Case")==0){
	593	i2=i3;
	594	temporary[i2++]=1;
	595	temporary[i2]=ESC_CASE;
	596	}
	597	else if(lstrcmpi(temporary+i3,"CaseElse")==0){
	598	i2=i3;
	599	temporary[i2++]=1;
	600	temporary[i2]=ESC_CASEELSE;
	601	}
	602	else if(lstrcmpi(temporary+i3,"Const")==0){
	603	i2=i3;
	604	temporary[i2++]=1;
	605	temporary[i2]=ESC_CONST;
	606	}
	607	else if(lstrcmpi(temporary+i3,"Class")==0){
	608	i2=i3;
	609	temporary[i2++]=1;
	610	temporary[i2]=ESC_CLASS;
	611	}
	612	break;
	613	case 'd':
	614	case 'D':
	615	if(lstrcmpi(temporary+i3,"Declare")==0){
	616	i2=i3;
[54]	617	int i9=i2;
[4]	618	temporary[i2]=1;
	619	temporary[++i2]=ESC_DECLARE;
	620	i++;
	621	while(buffer[i]==' '\|\|buffer[i]=='\t') i++;
[54]	622
	623	// Sub/Function
[4]	624	for(i4=0;;i++,i4++){
	625	if(!IsVariableChar(buffer[i])){
	626	temp2[i4]=0;
	627	break;
	628	}
	629	temp2[i4]=buffer[i];
	630	}
	631	if(lstrcmpi(temp2,"Sub")==0) temporary[++i2]=ESC_SUB;
	632	else if(lstrcmpi(temp2,"Function")==0) temporary[++i2]=ESC_FUNCTION;
	633	while(buffer[i]==' '\|\|buffer[i]=='\t') i++;
[54]	634
	635	// 関数名
[4]	636	for(i2++;;i++,i2++){
	637	if(!IsVariableChar(buffer[i])){
	638	i2--;
	639	break;
	640	}
	641	temporary[i2]=buffer[i];
	642	}
	643	while(buffer[i]==' '\|\|buffer[i]=='\t') i++;
[54]	644
[4]	645	for(i4=0;;i++,i4++){
	646	if(!IsVariableChar(buffer[i])){
	647	temp2[i4]=0;
	648	break;
	649	}
	650	temp2[i4]=buffer[i];
	651	}
	652	if(lstrcmpi(temp2,"cdecl")==0){
	653	temporary[++i2]=1;
	654	temporary[++i2]=ESC_CDECL;
	655
	656	while(buffer[i]==' '\|\|buffer[i]=='\t') i++;
	657	for(i4=0;;i++,i4++){
	658	if(!IsVariableChar(buffer[i])){
	659	temp2[i4]=0;
	660	break;
	661	}
	662	temp2[i4]=buffer[i];
	663	}
	664	}
	665	if(lstrcmpi(temp2,"Lib")==0) temporary[++i2]=',';
	666	while(buffer[i]==' '\|\|buffer[i]=='\t') i++;
[54]	667
[4]	668	if(buffer[i]=='\"'){
	669	temporary[++i2]=buffer[i];
	670	for(i++,i2++;;i++,i2++){
	671	temporary[i2]=buffer[i];
	672	if(buffer[i]=='\"'){
	673	i++;
	674	break;
	675	}
	676	if(buffer[i]=='\0') break;
	677	}
	678	}
[54]	679	else{
	680	for(i2++;;i++,i2++){
	681	if(!IsVariableChar(buffer[i])){
	682	i2--;
	683	break;
	684	}
	685	temporary[i2]=buffer[i];
	686	}
	687	}
[4]	688	while(buffer[i]==' '\|\|buffer[i]=='\t') i++;
[54]	689
	690	temporary[++i2]=',';
	691
	692	if( memicmp( buffer + i, "Alias", 5 ) ==0 ){
	693	i+=5;
	694	for(i++,i2++;;i++,i2++){
	695	temporary[i2]=buffer[i];
	696	if(buffer[i]=='('){
	697	i2--;
	698	break;
	699	}
	700	if(buffer[i]=='\0') break;
[4]	701	}
	702	}
[54]	703
	704	temporary[++i2]=',';
	705
[4]	706	i--;
	707	}
	708	else if(lstrcmpi(temporary+i3,"Def")==0){
	709	i2=i3;
	710	temporary[i2++]=1;
	711	temporary[i2]=ESC_DEF;
	712	}
	713	break;
	714	case 'e':
	715	case 'E':
	716	if(lstrcmpi(temporary+i3,"ElseIf")==0){
	717	i2=i3;
	718	temporary[i2++]=1;
	719	temporary[i2]=ESC_ELSEIF;
	720	}
	721	else if(lstrcmpi(temporary+i3,"Else")==0){
	722	i2=i3;
	723	temporary[i2++]=1;
	724	temporary[i2]=ESC_ELSE;
	725	}
	726	else if(lstrcmpi(temporary+i3,"Export")==0){
	727	i2=i3;
	728	temporary[i2++]=1;
	729	temporary[i2]=ESC_EXPORT;
	730	}
	731	else if(lstrcmpi(temporary+i3,"Enum")==0){
	732	i2=i3;
	733	temporary[i2++]=1;
	734	temporary[i2]=ESC_ENUM;
	735	}
	736
	737	else if(temporary[i3+1]=='n'\|\|temporary[i3+1]=='N'){
	738	//終了記述
	739	if(lstrcmpi(temporary+i3,"EndIf")==0){
	740	i2=i3;
	741	temporary[i2++]=1;
	742	temporary[i2]=ESC_ENDIF;
	743	}
	744	else if(lstrcmpi(temporary+i3,"EndFunction")==0){
	745	i2=i3;
	746	temporary[i2++]=1;
	747	temporary[i2]=ESC_ENDFUNCTION;
	748	}
	749	else if(lstrcmpi(temporary+i3,"EndSub")==0){
	750	i2=i3;
	751	temporary[i2++]=1;
	752	temporary[i2]=ESC_ENDSUB;
	753	}
	754	else if(lstrcmpi(temporary+i3,"EndMacro")==0){
	755	i2=i3;
	756	temporary[i2++]=1;
	757	temporary[i2]=ESC_ENDMACRO;
	758	}
	759	else if(lstrcmpi(temporary+i3,"EndClass")==0){
	760	i2=i3;
	761	temporary[i2++]=1;
	762	temporary[i2]=ESC_ENDCLASS;
	763	}
	764	else if(lstrcmpi(temporary+i3,"EndInterface")==0){
	765	i2=i3;
	766	temporary[i2++]=1;
	767	temporary[i2]=ESC_ENDINTERFACE;
	768	}
	769	else if(lstrcmpi(temporary+i3,"EndTry")==0){
	770	i2=i3;
	771	temporary[i2++]=1;
	772	temporary[i2]=ESC_ENDTRY;
	773	}
	774	else if(lstrcmpi(temporary+i3,"EndType")==0){
	775	i2=i3;
	776	temporary[i2++]=1;
	777	temporary[i2]=ESC_ENDTYPE;
	778	}
	779	else if(lstrcmpi(temporary+i3,"EndEnum")==0){
	780	i2=i3;
	781	temporary[i2++]=1;
	782	temporary[i2]=ESC_ENDENUM;
	783	}
	784	else if(lstrcmpi(temporary+i3,"EndSelect")==0){
	785	i2=i3;
	786	temporary[i2++]=1;
	787	temporary[i2]=ESC_ENDSELECT;
	788	}
	789	else if(lstrcmpi(temporary+i3,"EndWith")==0){
	790	i2=i3;
	791	temporary[i2++]=1;
	792	temporary[i2]=ESC_ENDWITH;
	793	}
	794	}
	795	else if(temporary[i3+1]=='x'\|\|temporary[i3+1]=='X'){
	796	if(lstrcmpi(temporary+i3,"ExitFor")==0){
	797	i2=i3;
	798	temporary[i2++]=1;
	799	temporary[i2]=ESC_EXITFOR;
	800	}
	801	else if(lstrcmpi(temporary+i3,"ExitWhile")==0){
	802	i2=i3;
	803	temporary[i2++]=1;
	804	temporary[i2]=ESC_EXITWHILE;
	805	}
	806	else if(lstrcmpi(temporary+i3,"ExitDo")==0){
	807	i2=i3;
	808	temporary[i2++]=1;
	809	temporary[i2]=ESC_EXITDO;
	810	}
	811	else if(lstrcmpi(temporary+i3,"ExitFunction")==0){
	812	i2=i3;
	813	temporary[i2++]=1;
	814	temporary[i2]=ESC_EXITFUNCTION;
	815	}
	816	else if(lstrcmpi(temporary+i3,"ExitSub")==0){
	817	i2=i3;
	818	temporary[i2++]=1;
	819	temporary[i2]=ESC_EXITSUB;
	820	}
	821	else if(lstrcmpi(temporary+i3,"ExitMacro")==0){
	822	i2=i3;
	823	temporary[i2++]=1;
	824	temporary[i2]=ESC_EXITMACRO;
	825	}
	826	}
	827	break;
	828	case 'f':
	829	case 'F':
	830	if(lstrcmpi(temporary+i3,"Finally")==0){
	831	i2=i3;
	832	temporary[i2++]=1;
	833	temporary[i2]=ESC_FINALLY;
	834	}
	835	else if(lstrcmpi(temporary+i3,"Function")==0){
	836	i2=i3;
	837	temporary[i2++]=1;
	838	temporary[i2]=ESC_FUNCTION;
	839	}
	840	break;
	841	case 'i':
	842	case 'I':
	843	if(lstrcmpi(temporary+i3,"If")==0){
	844	i2=i3;
	845	temporary[i2++]=1;
	846	temporary[i2]=ESC_IF;
	847	}
	848	else if(lstrcmpi(temporary+i3,"Inherits")==0){
	849	i2=i3;
	850	temporary[i2++]=1;
	851	temporary[i2]=ESC_INHERITS;
	852	}
	853	else if(lstrcmpi(temporary+i3,"Interface")==0){
	854	i2=i3;
	855	temporary[i2++]=1;
	856	temporary[i2]=ESC_INTERFACE;
	857	}
	858	break;
	859	case 'm':
	860	case 'M':
	861	if(lstrcmpi(temporary+i3,"Mod")==0){
	862	i2=i3;
	863	temporary[i2++]=1;
	864	temporary[i2]=ESC_MOD;
	865	}
	866	else if(lstrcmpi(temporary+i3,"Macro")==0){
	867	i2=i3;
	868	temporary[i2++]=1;
	869	temporary[i2]=ESC_MACRO;
	870	}
	871	break;
	872	case 'n':
	873	case 'N':
[67]	874	if(lstrcmpi(temporary+i3,"New")==0){
[4]	875	i2=i3;
	876	temporary[i2++]=1;
[67]	877	temporary[i2]=ESC_NEW;
[4]	878	}
[67]	879	else if(lstrcmpi(temporary+i3,"Not")==0){
[4]	880	i2=i3;
	881	temporary[i2++]=1;
[67]	882	temporary[i2]=ESC_NOT;
[4]	883	}
	884	break;
	885	case 'o':
	886	case 'O':
	887	if(lstrcmpi(temporary+i3,"Or")==0){
	888	i2=i3;
	889	temporary[i2++]=1;
	890	temporary[i2]=ESC_OR;
	891	}
	892	else if(lstrcmpi(temporary+i3,"Override")==0){
	893	i2=i3;
	894	temporary[i2++]=1;
	895	temporary[i2]=ESC_OVERRIDE;
	896	}
	897	else if(lstrcmpi(temporary+i3,"Operator")==0){
	898	i2=i3;
	899	temporary[i2++]=1;
	900	temporary[i2]=ESC_OPERATOR;
	901	}
	902	break;
	903	case 's':
	904	case 'S':
	905	if(lstrcmpi(temporary+i3,"Sub")==0){
	906	i2=i3;
	907	temporary[i2++]=1;
	908	temporary[i2]=ESC_SUB;
	909	}
	910	else if(lstrcmpi(temporary+i3,"SelectCase")==0){
	911	i2=i3;
	912	temporary[i2++]=1;
	913	temporary[i2]=ESC_SELECTCASE;
	914	}
	915	else if(lstrcmpi(temporary+i3,"Static")==0){
	916	i2=i3;
	917	temporary[i2++]=1;
	918	temporary[i2]=ESC_STATIC;
	919	}
	920	break;
	921	case 't':
	922	case 'T':
	923	if(lstrcmpi(temporary+i3,"Then")==0){
	924	i2=i3;
	925	temporary[i2++]=1;
	926	temporary[i2]=ESC_THEN;
	927	}
	928	else if(lstrcmpi(temporary+i3,"Throw")==0){
	929	i2=i3;
	930	temporary[i2++]=1;
	931	temporary[i2]=ESC_THROW;
	932	}
	933	else if(lstrcmpi(temporary+i3,"Try")==0){
	934	i2=i3;
	935	temporary[i2++]=1;
	936	temporary[i2]=ESC_TRY;
	937	}
	938	else if(lstrcmpi(temporary+i3,"Type")==0){
	939	i2=i3;
	940	temporary[i2++]=1;
	941	temporary[i2]=ESC_TYPE;
	942	}
	943	else if(lstrcmpi(temporary+i3,"TypeDef")==0){
	944	i2=i3;
	945	temporary[i2++]=1;
	946	temporary[i2]=ESC_TYPEDEF;
	947	}
	948	break;
	949	case 'u':
	950	case 'U':
	951	if(lstrcmpi(temporary+i3,"Using")==0){
	952	i2=i3;
	953	temporary[i2++]=1;
	954	temporary[i2]=ESC_USING;
	955	}
	956	break;
	957	case 'v':
	958	case 'V':
	959	if(lstrcmpi(temporary+i3,"Virtual")==0){
	960	i2=i3;
	961	temporary[i2++]=1;
	962	temporary[i2]=ESC_VIRTUAL;
	963	}
	964	break;
	965	case 'w':
	966	case 'W':
	967	if(lstrcmpi(temporary+i3,"With")==0){
	968	i2=i3;
	969	temporary[i2++]=1;
	970	temporary[i2]=ESC_WITH;
	971	}
	972	break;
	973	case 'x':
	974	case 'X':
	975	if(lstrcmpi(temporary+i3,"Xor")==0){
	976	i2=i3;
	977	temporary[i2++]=1;
	978	temporary[i2]=ESC_XOR;
	979	}
	980	break;
	981	}
	982
	983	continue;
	984	}
	985	temporary[i2]=buffer[i];
	986	if(buffer[i]=='\0') break;
	987	}
	988	lstrcpy(buffer,temporary);
[54]	989	HeapDefaultFree(temporary);
[4]	990	}
	991	void DefCommandFormat(char *buffer){
	992	int i,i2,PareNum;
	993	char temporary[255];
	994
	995	//Def命令語からFunction命令語へ
	996	for(i=0;;i++){
	997	if(buffer[i]==1&&buffer[i+1]==ESC_DEF){
	998	buffer[i+1]=ESC_FUNCTION;
	999	i+=2;
	1000	while(buffer[i]==' '\|\|buffer[i]=='\t') i++;
	1001	for(i2=0;;i++,i2++){
	1002	if(!IsVariableChar(buffer[i])){
	1003	temporary[i2]=0;
	1004	break;
	1005	}
	1006	temporary[i2]=buffer[i];
	1007	}
	1008	while(buffer[i]==' '\|\|buffer[i]=='\t') i++;
	1009	if(buffer[i]!='('){
	1010	SetError(1,NULL,i);
	1011	return;
	1012	}
	1013	i++;
	1014	while(1){
	1015	while(buffer[i]==' '\|\|buffer[i]=='\t') i++;
	1016	if(buffer[i]==')') break;
	1017	SlideString(buffer+i,2);
	1018	buffer[i]=1;
	1019	buffer[i+1]=ESC_BYVAL;
	1020	i+=2;
	1021	PareNum=0;
	1022	for(;;i++){
	1023	if(buffer[i]=='(') PareNum++;
	1024	if(buffer[i]==')'){
	1025	PareNum--;
	1026	if(PareNum<0) break;
	1027	}
	1028	if(buffer[i]==','&&PareNum==0) break;
	1029	}
	1030	if(buffer[i]==')') break;
	1031	i++;
	1032	}
	1033	i++;
	1034	while(buffer[i]==' '\|\|buffer[i]=='\t') i++;
	1035	if(buffer[i]!='='){
	1036	SetError(1,NULL,i);
	1037	break;
	1038	}
	1039	i2=lstrlen(temporary);
	1040	SlideString(buffer+i,i2+1);
	1041	buffer[i]=':';
	1042	i++;
	1043	memcpy(buffer+i,temporary,i2);
	1044	i+=i2;
	1045	while(!IsCommandDelimitation(buffer[i])) i++;
	1046	SlideString(buffer+i,3);
	1047	buffer[i]=':';
	1048	buffer[i+1]=1;
	1049	buffer[i+2]=ESC_ENDFUNCTION;
	1050	}
	1051	if(buffer[i]=='\0') break;
	1052	}
	1053	}
	1054
	1055	void ChangeOneIf(char write,int &wp,char read,int &rp){
	1056	int IsStr,sw;
	1057
	1058	//ブロック形式でないときはThenの後に区切り文字を入れる
	1059	for(IsStr=0,sw=0;;wp++,rp++){
	1060	if(read[rp]=='\"') IsStr^=1;
	1061
	1062	write[wp]=read[rp];
	1063
	1064	if(IsCommandDelimitation(read[rp])&&IsStr==0) return;
	1065	if(read[rp]==1&&read[rp+1]==ESC_THEN&&
	1066	(read[rp+2]==' '\|\|read[rp+2]=='\t')){
	1067	write[wp+1]=read[rp+1];
	1068	write[wp+2]=':';
	1069	rp+=3;
	1070	wp+=3;
	1071	while(read[rp]==' '\|\|read[rp]=='\t') rp++;
	1072	if((read[rp]>='0'&&read[rp]<='9')\|\|read[rp]=='*'){
	1073	memcpy(write+wp,"Goto ",5);
	1074	wp+=5;
	1075	}
	1076	break;
	1077	}
	1078	}
	1079
	1080	//Elseの後に区切り文字を入れる
	1081	for(IsStr=0;;wp++,rp++){
	1082	if(read[rp]=='\"') IsStr^=1;
	1083
	1084	write[wp]=read[rp];
	1085
	1086	if(read[rp]=='\n'\|\|read[rp]=='\0') break;
	1087	if(read[rp]==1&&read[rp+1]==ESC_IF){
	1088	write[wp+1]=read[rp+1];
	1089	wp+=2;
	1090	rp+=2;
	1091	ChangeOneIf(write,wp,read,rp);
	1092	wp--;
	1093	rp--;
	1094	continue;
	1095	}
	1096	if(read[rp]==1&&read[rp+1]==ESC_ELSE){
	1097	write[wp++]=':';
	1098
	1099	write[wp]=read[rp];
	1100	write[wp+1]=read[rp+1];
	1101	wp+=2;
	1102	rp+=2;
	1103
	1104	write[wp++]=':';
	1105
	1106	while(read[rp]==' '\|\|read[rp]=='\t') rp++;
	1107	if((read[rp]>='0'&&read[rp]<='9')\|\|read[rp]=='*'){
	1108	memcpy(write+wp,"Goto ",5);
	1109	wp+=5;
	1110	}
	1111	break;
	1112	}
	1113	}
	1114
	1115	//"End If" を付加
	1116	for(;;rp++,wp++){
	1117	if(read[rp]=='\n'\|\|read[rp]=='\0') break;
	1118
	1119	if(read[rp]==1&&read[rp+1]==ESC_IF){
	1120	write[wp+1]=read[rp+1];
	1121	wp+=2;
	1122	rp+=2;
	1123	ChangeOneIf(write,wp,read,rp);
	1124	wp--;
	1125	rp--;
	1126	continue;
	1127	}
	1128	if(read[rp]==1&&read[rp+1]==ESC_ELSE) break;
	1129
	1130	write[wp]=read[rp];
	1131	}
	1132	write[wp]=':';
	1133	write[wp+1]=1;
	1134	write[wp+2]=ESC_ENDIF;
	1135	wp+=3;
	1136	}
	1137	void OutsideIfFormat(char write,int &wp,char read,int &rp){
	1138	int ElseCount=1;
	1139
	1140	for(;;rp++,wp++){
	1141	if(read[rp]==1){
	1142	if(read[rp+1]==ESC_IF){
	1143	write[wp++]=read[rp++];
	1144	write[wp++]=read[rp++];
	1145	OutsideIfFormat(write,wp,read,rp);
	1146	wp--,rp--;
	1147	continue;
	1148	}
	1149	if(read[rp+1]==ESC_ENDIF){
	1150	for(;ElseCount>0;wp+=3,ElseCount--){
	1151	write[wp]=1;
	1152	write[wp+1]=ESC_ENDIF;
	1153	write[wp+2]=':';
	1154	}
	1155	rp+=2;
	1156	break;
	1157	}
	1158	if(read[rp+1]==ESC_ELSEIF){
	1159	write[wp]=1;
	1160	write[wp+1]=ESC_ELSE;
	1161	write[wp+2]=':';
	1162
	1163	write[wp+3]=1;
	1164	write[wp+4]=ESC_IF;
	1165
	1166	wp+=4;
	1167	rp++;
	1168
	1169	ElseCount++;
	1170	continue;
	1171	}
	1172	}
	1173
	1174	write[wp]=read[rp];
	1175	if(read[rp]=='\0') break;
	1176	}
	1177	}
	1178	void IfCommandFormat(char *buffer){
	1179	int i,i2;
	1180
	1181	char *temporary;
	1182	temporary=(char )HeapAlloc(hHeap,0,lstrlen(buffer)2+1024);
	1183
	1184	//１行Ifをブロック形式にする
	1185	for(i=0,i2=0;;i++,i2++){
	1186	if(buffer[i]==1&&buffer[i+1]==ESC_IF){
	1187	temporary[i2++]=buffer[i++];
	1188	temporary[i2++]=buffer[i++];
	1189	ChangeOneIf(temporary,i2,buffer,i);
	1190	i2--,i--;
	1191	continue;
	1192	}
	1193
	1194	temporary[i2]=buffer[i];
	1195	if(buffer[i]=='\0') break;
	1196	}
	1197
	1198	//ElseIfを入れ子構造に変更する
	1199	for(i=0,i2=0;;i++,i2++){
	1200	if(temporary[i]==1&&temporary[i+1]==ESC_IF){
	1201	buffer[i2++]=temporary[i++];
	1202	buffer[i2++]=temporary[i++];
	1203	OutsideIfFormat(buffer,i2,temporary,i);
	1204	i2--,i--;
	1205	continue;
	1206	}
	1207
	1208	buffer[i2]=temporary[i];
	1209	if(temporary[i]=='\0') break;
	1210	}
	1211
	1212	HeapDefaultFree(temporary);
	1213	}
	1214	void CheckPareCommand(void){
	1215	extern char *basbuf;
	1216	int i2,i3;
	1217
	1218	int FuncNum=0;
	1219	int FuncType=0;
	1220	int FuncPtr=-1;
	1221	for(i2=0;;i2++){
	1222	if(basbuf[i2]=='\0') break;
	1223	if(IsCommandDelimitation(basbuf[i2])){
	1224	if(basbuf[i2+1]==1){
	1225	i2++;
	1226	switch(basbuf[i2+1]){
	1227	case ESC_FUNCTION:
	1228	case ESC_SUB:
	1229	case ESC_MACRO:
	1230	if(FuncNum!=0){
	1231	if(FuncType==ESC_FUNCTION)
	1232	SetError(54,"End Function",FuncPtr);
	1233	else if(FuncType==ESC_SUB)
	1234	SetError(54,"End Sub",FuncPtr);
	1235	else if(FuncType==ESC_MACRO)
	1236	SetError(54,"End Macro",FuncPtr);
	1237	return;
	1238	}
	1239	FuncType=basbuf[i2+1];
	1240	FuncNum++;
	1241	FuncPtr=i2;
	1242	break;
	1243	case ESC_ENDFUNCTION:
	1244	case ESC_ENDSUB:
	1245	case ESC_ENDMACRO:
	1246	if(basbuf[i2+1]==ESC_ENDFUNCTION) i3=ESC_FUNCTION;
	1247	else if(basbuf[i2+1]==ESC_ENDSUB) i3=ESC_SUB;
	1248	else if(basbuf[i2+1]==ESC_ENDMACRO) i3=ESC_MACRO;
	1249
	1250	FuncNum--;
	1251
	1252	if(FuncNum!=0\|\|i3!=FuncType){
	1253	if(basbuf[i2+1]==ESC_ENDFUNCTION)
	1254	SetError(12,"End Function",i2);
	1255	else if(basbuf[i2+1]==ESC_ENDSUB)
	1256	SetError(12,"End Sub",i2);
	1257	else if(basbuf[i2+1]==ESC_ENDMACRO)
	1258	SetError(12,"End Macro",i2);
	1259	return;
	1260	}
	1261	break;
	1262	}
	1263	}
	1264
	1265
	1266	}
	1267	}
	1268	}

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

Download in other formats: