Ejemplo n.º 1
0
Archivo: host.c Proyecto: erukiti/ma
FILE	*op_pool(char *name)
{
	char	buf[LN_buf+1];

	name_pooldir(buf);
	strcat(buf,name);
	return !fchk(buf,"ab")?NULL:fopr(buf);
}
Ejemplo n.º 2
0
void flblcompile(FILE *finp,FILE *flbl,char inp[], char op[], int* z) {
	int a,b;
	while(!feof(finp)) {
		fscanf(finp,"%s",inp);
		if((strcasecmp(inp,"JMP")==0)||(strcasecmp(inp,"JC")==0)||(strcasecmp(inp,"JNC")==0)||(strcasecmp(inp,"JZ")==0)||(strcasecmp(inp,"JNZ")==0)||(strcasecmp(inp,"JP")==0)||(strcasecmp(inp,"JM")==0)||(strcasecmp(inp,"JPE")==0)||(strcasecmp(inp,"JPO")==0)) {
			fchk(finp,flbl,inp,op,&b);
			if(b==0) {
				printf("\n%s Label not found!\n\nAvailable declared labels are:-\n",inp);
				z=0;
				fprt(flbl);
			}
		}
	}
	rewind(finp);
}
Ejemplo n.º 3
0
void regnerr(FILE *finp,FILE *freg,char inp[],int icnt, int* chk) {
	int flag=0;
	char c,stray[17],op[17],org[17];
	strcpy(stray,inp);
	if(((inp[0]=='r'||inp[0]=='R')&&(inp[1]>47&&inp[1]<58))||(strcasecmp(inp,",")==0)||(strcasecmp(inp,".")==0)) {
		c=stray[strlen(stray)-1];
		if (c<48 || c>57) {
			stray[strlen(stray)-1]='\0';
			rewind(freg);
			while(!feof(freg)) {
				fscanf(freg,"%s",op);
				if(strcasecmp(stray,op)==0) {
					fscanf(freg,"%s",op);
					flag=1; break;
				} else {
					fscanf(freg,"%s",op);
					flag=0;
				}
			}
		}
		if (flag==1) {
			printf("\nLine %d: Invalid character found after %s.\n",icnt,stray);
		}
		else if((strcasecmp(inp,",")==0)||(strcasecmp(inp,".")==0)) {
			fseek(finp,-(strlen(inp)+4),SEEK_CUR);
			fscanf(finp,"%s",inp);
			strcpy(org,inp);
			fscanf(finp,"%s",inp);
			printf("\nLine %d: Invalid character found after %s. '%s' not allowed between instructions.\n",icnt,org,inp);
			fchk(finp,freg,inp,op,&flag);
			if(flag==0) regnerr(finp,freg,inp,icnt,chk);
		}
		else {
			printf("\nLine %d: %s Register not found!\n\nAvailable registers are:-\n",icnt,inp);
			fprt(freg);
		}
	}
	else *chk=0;
}
Ejemplo n.º 4
0
int fcompile(FILE *finp,FILE *fout,FILE *fopc,FILE *freg,FILE *fhex,FILE *flbl,FILE *fhlp,char inp[17],char op[17],int* z) {
	int a,b,c,d,e,f,g,i=0,icnt=0;
	*z=1;
	char inpp[17];
	rewind(finp);
	while(!feof(finp)) {
		rewind(fopc);
		fscanf(finp,"%s",inp);
		fseek(fhlp,0,SEEK_SET);
		while(!feof(fopc)) {
			fscanf(fopc,"%s",op);
			if(strcasecmp(inp,op)==0) {
				fscanf(fopc,"%s",op);
				a=1; break;
			} else {
				i=0;
				while(i<strlen(inp)) {
					inp[i]=toupper(inp[i]);
					i++;
				}
				if ((strstr(inp,op)!=0)||(strstr(op,inp)!=0)) {
					fprintf(fhlp, "\n%s %s",op,inp);
				}
				fscanf(fopc,"%s",op);
				a=0;
			}
		}
		if(icnt==0 && (strcasecmp(inp,"start")!=0)) {
			fprintf(fout, "%s", "\n1111111111101111");
			printf("\nLINE 0: 'START' instruction not found at beginning of input\n");
			icnt++;
		}
		if(icnt==1 && (strcasecmp(inp,"rst")!=0)) {
			fprintf(fout, "%s", "\n1111111111101110");
			printf("\nLINE 0: 'RST' instruction not found at beginning of input following START\n");
			icnt++;
		}
		if(a==0) {
			if(inp[strlen(inp)-1]==':') {
				inp[strlen(inp)-1]='\0';
				rewind(flbl);
				while(!feof(flbl)) {
					fscanf(flbl,"%s",op);
					if(strcasecmp(inp,op)==0) {
						fscanf(flbl,"%s",op);
						d=1; break;
					} else {
						fscanf(flbl,"%s",op);
						d=0;
					}
				}
				if(d==1) {
					printf("\nLine %d: Label '%s' already declared earlier!\n",icnt+1,inp);
					*z=0;
				}
				else {
					fprintf(flbl,"\n%s ",inp);
					dec2bin(flbl, icnt+1);
				}
				continue;
			}
			strcpy(inpp,inp);
			fscanf(finp,"%s",inp);
			if(strcasecmp(inp,":")==0) {
				printf("\nLine %d: Incorrect syntax for label declaration. Space between 'label_Name' and ':' not allowed.",icnt+1);
				*z=0;
			}
			else {
				fseek(finp,-strlen(inp)-1,SEEK_CUR);
				strcpy(inp,inpp);
				if(inp[1]>47&&inp[1]<58) printf("\nLine %d: INVALID Instruction\n",icnt);
				else {
					printf("\nLine %d: '%s' Instruction not found!\n\nAvailable options are:-\n",icnt+1,inp);
					fprt(fhlp);
					//-------------------------------------------------------
				}
				*z=0; return 0;
			}
		}
		else {
			icnt++;
			if((strcasecmp(inp,"JMP")==0)||(strcasecmp(inp,"JC")==0)||(strcasecmp(inp,"JNC")==0)||(strcasecmp(inp,"JZ")==0)||(strcasecmp(inp,"JNZ")==0)||(strcasecmp(inp,"JP")==0)||(strcasecmp(inp,"JM")==0)||(strcasecmp(inp,"JPE")==0)||(strcasecmp(inp,"JPO")==0)) {
				fscanf(finp,"%s",inp);
			}
			else if(strlen(op)==4){
				fchk(finp,freg,inp,op,&b);
				if(b==0) regnerr(finp,freg,inp,icnt,&g);
				if(g==0) {
					printf("\nLINE %d: INVALID Instruction\n",icnt);
					*z=0; return 0;
				}
				fchk(finp,freg,inp,op,&e);
				if(e==0) regnerr(finp,freg,inp,icnt,&g);
				if(g==0) {
					printf("\nLINE %d: INVALID Instruction\n",icnt);
					*z=0; return 0;
				}
				fchk(finp,freg,inp,op,&f);
				if(f==0) regnerr(finp,freg,inp,icnt,&g);
				if(g==0) {
					printf("\nLINE %d: INVALID Instruction\n",icnt);
					*z=0; return 0;
				}
				if(b==0||e==0||f==0) *z=0;
			}
			else if(strlen(op)==8){
				fchk(finp,freg,inp,op,&b);
				if(b==0) regnerr(finp,freg,inp,icnt,&g);
				if(g==0) {
					printf("\nLINE %d: INVALID Instruction\n",icnt);
					*z=0; return 0;
				}
				fchk(finp,freg,inp,op,&e);
				if(e==0) regnerr(finp,freg,inp,icnt,&g);
				if(g==0) {
					printf("\nLINE %d: INVALID Instruction\n",icnt);
					*z=0; return 0;
				}
				if(b==0||e==0) *z=0;
			}
			else if(strlen(op)==12){
				char ins[17];
				strcpy(ins,inp);
				fchk(finp,freg,inp,op,&b);
				if(b==0) {
					regnerr(finp,freg,inp,icnt,&g);
					if(g==0) {
						printf("\nLINE %d: INVALID Instruction\n",icnt);
						*z=0; return 0;
					}
					*z=0;
				}
				if((ins[strlen(ins)-1]=='i')||(ins[strlen(ins)-1]=='I')){
					fchk(finp,fhex,inp,op,&c);
					strcpy(inpp,inp);
					if(c==1) icnt++;
					else {
						fchk(finp,fhex,inp,op,&g);
						if(g==0) {
							printf("\nLINE %d: INVALID Instruction\n",icnt);
							*z=0; return 0;
						}
						fseek(finp,-strlen(inp)-1,SEEK_CUR);
						strcpy(inp,inpp);
						printf("\nLine %d: '%s' Invalid Value!\n\nPlease input the value in hexadecimal in range (0,FFFF)\n",icnt,inp);
						*z=0;
					}
				}
			}
		}
	}
	if(strcasecmp(inp,"HLT")!=0) {
		printf("\nCheck whether you have included 'HLT' at the end of your program or your source code is not EMPTY.\n");
		*z=0;
	}
	rewind(finp);
	return icnt;
}