/*============================================
* assign_iden -- Assign ident value in symtab
*==========================================*/
void
assign_iden (SYMTAB stab, STRING id, PVALUE value)
{
SYMTAB tab = stab;
if (!in_symtab(stab, id) && in_symtab(globtab, id))
tab = globtab;
insert_symtab(tab, id, value);
return;
}
void addIdentifier(attrType *Attrib,const char *symtab,const char *outfile){
printf("\ngoing Inserting '%s' is symtab\n",Attrib->string);
int result=insert_symtab(symtab,Attrib->string);
char token[100];
sprintf(token,"%d %s",IDNTIFIER,Attrib->string);
printf("outfile >> %s",token);
writeline(outfile,token);
return;
}
void addIdentifier_KeyWord(attrType *Attrib,const char *symtab,const char *outfile){
printf("\ngoing Inserting '%s' is symtab\n",Attrib->string);
int result=insert_symtab(symtab,Attrib->string);
char token[100];
if(result==IDNTIFIER){
// means inserted it was a identifier
sprintf(token,"%d %s",IDNTIFIER,Attrib->string);
printf("outfile >> %s",token);
}else{
// its a key word
sprintf(token,"%d %s",result,Attrib->string);
}
writeline(outfile,token);
return;
}
/*================================================+
* evaluate_ufunc -- Evaluate user defined function
* node: [in] parsed node of function definition
* stab: [in] function's symbol table
* eflg: [out] error flag
*===============================================*/
PVALUE
evaluate_ufunc (PNODE node, SYMTAB stab, BOOLEAN *eflg)
{
STRING procname = (STRING) iname(node);
PNODE func, arg, parm;
SYMTAB newstab = NULL;
PVALUE val=NULL;
INTERPTYPE irc;
INT count=0;
*eflg = TRUE;
/* find func in local or global table */
func = get_proc_node(procname, irptinfo(node)->functab, gfunctab, &count);
if (!func) {
if (!count)
prog_error(node, _("Undefined func: %s"), procname);
else
prog_error(node, _("Ambiguous call to func: %s"), procname);
goto ufunc_leave;
}
newstab = create_symtab_proc(procname, stab);
arg = (PNODE) iargs(node);
parm = (PNODE) iargs(func);
while (arg && parm) {
BOOLEAN eflg=TRUE;
PVALUE value = evaluate(arg, stab, &eflg);
if (eflg) {
if (getlloptint("FullReportCallStack", 0) > 0)
prog_error(node, "In user function %s()", procname);
return INTERROR;
}
insert_symtab(newstab, iident(parm), value);
arg = inext(arg);
parm = inext(parm);
}
if (arg || parm) {
prog_error(node, "``%s'': mismatched args and params\n", procname);
goto ufunc_leave;
}
irc = interpret((PNODE) ibody(func), newstab, &val);
switch (irc) {
case INTRETURN:
case INTOKAY:
#ifdef DEBUG
llwprintf("Successful ufunc call -- val returned was ");
show_pvalue(val);
llwprintf("\n");
#endif
*eflg = FALSE;
goto ufunc_leave;
case INTBREAK:
case INTCONTINUE:
case INTERROR:
break;
}
if (getlloptint("FullReportCallStack", 0) > 0)
prog_error(node, "In user function %s()", procname);
*eflg = TRUE;
delete_pvalue(val);
val=NULL;
ufunc_leave:
if (newstab) {
remove_symtab(newstab);
newstab = NULL;
}
return val;
}
int main(int argc,char *argv[])
{
if(argc!=2)
{
printf("Usage: %s <input file>\n",argv[0]);
exit(1);
}
/* Load Optab */
char ***optab=NULL;
int num_ops;
if( (optab=load_optab("opfile",&num_ops)) == NULL)
{
printf("Optab generation failed\n");
exit(2);
}
/* Now let us load and initialize the symtab */
sym_tab *symtab=NULL;
if( (symtab=init_symtab())==NULL )
{
printf("Failed to initiate symtab\n");
free_optab(optab,num_ops);
exit(3);
}
FILE *inp_file=NULL;
if( (inp_file=fopen(argv[1],"r")) == NULL )
{
printf("Failed to open input file\n");
free_optab(optab,num_ops);
free_symtab(symtab);
exit(4);
}
FILE *out_file=NULL;
char *int_filename=NULL;
if( (int_filename=(char *)malloc(strlen(argv[1])+5)) == NULL )
{
printf("Out of memory\n");
free_optab(optab,num_ops);
free_symtab(symtab);
exit(5);
}
strcpy(int_filename,argv[1]);
strcat(int_filename,"_INT");
FILE *int_file=NULL;
if( (int_file=fopen(int_filename,"w+")) == NULL )
{
printf("Failed to open intermediate file\n");
free_optab(optab,num_ops);
free_symtab(symtab);
free(int_filename);
fclose(inp_file);
exit(6);
}
/* And Here We Go */
long int LOCCTR=0;
long int start_addr;
char *read_line=NULL;
size_t to_read = 0;
ssize_t read_len;
char *work_string=NULL;
char *work_string2=NULL;
char *prog_name=NULL;
char *search_space=NULL;
int start_loop=0;
while( (read_len=getline(&read_line,&to_read,inp_file)) != -1 )
{
if( (search_space=(char *)malloc(read_len+1)) == NULL )
{
printf("Out of memory\n");
fclose(inp_file);
fclose(int_file);
free(int_filename);
free(read_line);
free_optab(optab,num_ops);
free_symtab(symtab);
exit(10);
}
strcpy(search_space,"");
sscanf(read_line,"%s",search_space);
if(((*search_space)=='\0')||((*search_space)==';'))
{
free(search_space);
search_space=NULL;
free(read_line);
read_line=NULL;
continue;
}
free(search_space);
search_space=NULL;
if( (prog_name=malloc(read_len+1)) == NULL )
{
printf("Out of memory\n");
fclose(inp_file);
fclose(int_file);
free(int_filename);
free_optab(optab,num_ops);
free_symtab(symtab);
exit(7);
}
if( (work_string=malloc( (read_len-strlen(prog_name)) +1) ) == NULL)
{
printf("Out of memory\n");
fclose(inp_file);
fclose(int_file);
free(prog_name);
free(int_filename);
free_optab(optab,num_ops);
free_symtab(symtab);
exit(7);
}
sscanf(read_line,"%s%s",prog_name,work_string);
if(!strcmp(work_string,"START"))
{
if( (work_string2=malloc((read_len-strlen(work_string))+1)) == NULL )
{
free(work_string);
free(prog_name);
fclose(inp_file);
fclose(int_file);
free(int_filename);
free_optab(optab,num_ops);
free_symtab(symtab);
printf("Out of memory\n");
exit(8);
}
char *searched=strstr(read_line,work_string);
sscanf(searched+strlen(work_string),"%s",work_string2);
if((*work_string2)=='\0')
{
printf("START directive requires an argument\n");
free(work_string);
free(prog_name);
free(work_string2);
fclose(inp_file);
fclose(int_file);
free(int_filename);
free_optab(optab,num_ops);
free_symtab(symtab);
exit(9);
}
char *waste;
LOCCTR=strtol(work_string2,&waste,16);
if(waste == work_string2)
{
printf("Bad Assembly coding...\n");
printf("No suitable value for operand for START directive\n");
free(work_string);
free(prog_name);
free(work_string2);
fclose(inp_file);
fclose(int_file);
free(int_filename);
free_optab(optab,num_ops);
free_symtab(symtab);
exit(9);
}
start_addr=LOCCTR;
fprintf(int_file,"%lX\t%s\t%s\t%lX\n",LOCCTR,prog_name,work_string,start_addr);
free(work_string2);
free(prog_name);
prog_name=NULL;
free(work_string);
work_string=NULL;
free(read_line);
read_line=NULL;
to_read=0;
while( (read_len=getline(&read_line,&to_read,inp_file)) != -1)
{
if( (search_space=(char *)malloc(read_len+1)) == NULL )
{
printf("Out of memory\n");
fclose(inp_file);
fclose(int_file);
free(int_filename);
free(read_line);
free_optab(optab,num_ops);
free_symtab(symtab);
exit(10);
}
strcpy(search_space,"");
sscanf(read_line,"%s",search_space);
if(((*search_space)=='\0')||((*search_space)==';'))
{
free(search_space);
search_space=NULL;
free(read_line);
read_line=NULL;
continue;
}
free(search_space);
search_space=NULL;
break;
}
start_loop=1;
}
else
{
LOCCTR=start_addr=0;
start_loop=1;
}
if(start_loop)
break;
}
// Check if the loop exited becuase the EOF was reached. If so exit...
if(read_len == -1)
{
if(read_line)
free(read_line);
fclose(inp_file);
fclose(int_file);
free(int_filename);
free_optab(optab,num_ops);
free_symtab(symtab);
exit(0);
}
if( (work_string=malloc(read_len+1)) == NULL )
{
printf("Out of memory\n");
fclose(inp_file);
fclose(int_file);
free(int_filename);
free(read_line);
free_optab(optab,num_ops);
free_symtab(symtab);
exit(11);
}
char *label=NULL;
char *pneumonic=NULL;
char *operand=NULL;
decode(read_line,read_len,&label,&pneumonic,&operand,int_filename,inp_file,int_file,NULL,optab,num_ops,symtab,LOCCTR,NULL);
if(label)
label[strlen(label)-1]='\0';
while(strcmp(pneumonic,"END"))
{
if(label)
fprintf(int_file,"%lX\t%s\t%s\t%s\n",LOCCTR,label,pneumonic,operand);
else
{
if(operand)
fprintf(int_file,"%lX\t%s\t%s\n",LOCCTR,pneumonic,operand);
else
fprintf(int_file,"%lX\t%s\n",LOCCTR,pneumonic);
}
if(label)
{
label[strlen(label)-1]='\0';
if(search_symtab(symtab,label)>0)
{
printf("Duplicate symbol at %lX\n",LOCCTR);
fclose(inp_file);
fclose(int_file);
free(int_filename);
free(read_line);
if(label)
free(label);
if(operand)
free(operand);
if(pneumonic)
free(pneumonic);
free_optab(optab,num_ops);
free_symtab(symtab);
exit(12);
}
else
{
if(insert_symtab(label,symtab,LOCCTR)!=0)
{
printf("Failed to insert into symtab\n");
fclose(inp_file);
fclose(int_file);
free(int_filename);
free(read_line);
if(label)
free(label);
if(operand)
free(operand);
if(pneumonic)
free(pneumonic);
free_optab(optab,num_ops);
free_symtab(symtab);
exit(13);
}
}
}
char *opcode,*waste;
if( (opcode=search_optab(optab,pneumonic,num_ops)) != NULL)
{
LOCCTR+=3;
}
else if(!strcmp(pneumonic,"WORD"))
{
LOCCTR+=3;
}
else if(!strcmp(pneumonic,"RESW"))
{
if(operand == NULL)
{
printf("Bad assembly coding...\n");
printf("No value given for operand near RESW directive at %lX\n",LOCCTR);
fclose(inp_file);
fclose(int_file);
free(int_filename);
free(read_line);
if(label)
free(label);
if(operand)
free(operand);
if(pneumonic)
free(pneumonic);
free_optab(optab,num_ops);
free_symtab(symtab);
exit(23);
}
else
{
LOCCTR+=(3*strtol(operand,&waste,10));
if(waste == operand)
{
printf("Bad assembly coding...\n");
printf("No suitable value was found for allocating memory for RESW directive at %lX\n",LOCCTR);
fclose(inp_file);
fclose(int_file);
free(int_filename);
free(read_line);
if(label)
free(label);
if(operand)
free(operand);
if(pneumonic)
free(pneumonic);
free_optab(optab,num_ops);
free_symtab(symtab);
exit(21);
}
}
}
else if(!strcmp(pneumonic,"RESB"))
{
if(operand == NULL)
{
printf("Bad assembly coding...\n");
printf("No value given for operand near RESB directive at %lX\n",LOCCTR);
fclose(inp_file);
fclose(int_file);
free(int_filename);
free(read_line);
if(label)
free(label);
if(operand)
free(operand);
if(pneumonic)
free(pneumonic);
free_optab(optab,num_ops);
free_symtab(symtab);
exit(23);
}
else
{
LOCCTR+=(strtol(operand,&waste,10));
if(waste == operand)
{
printf("Bad assembly coding...\n");
printf("No suitable value was found for allocating memory for RESB directive at %lX\n",LOCCTR);
fclose(inp_file);
fclose(int_file);
free(int_filename);
free(read_line);
if(label)
free(label);
if(operand)
free(operand);
if(pneumonic)
free(pneumonic);
free_optab(optab,num_ops);
free_symtab(symtab);
exit(22);
}
}
}
else if(!strcmp(pneumonic,"BYTE"))
{
long int old_locctr=LOCCTR;
if(!operand)
{
printf("Bad assembly coding...\n");
printf("No operand corresponding to BYTE directive at %lX\n",LOCCTR);
fclose(inp_file);
fclose(int_file);
free(int_filename);
free(read_line);
if(label)
free(label);
if(operand)
free(operand);
if(pneumonic)
free(pneumonic);
free_optab(optab,num_ops);
free_symtab(symtab);
exit(52);
}
if( ((*operand)=='c')|| ((*operand)=='C'))
LOCCTR+=(strlen(operand)-3);
else if( ((*operand)=='x')|| ((*operand)=='X'))
{
LOCCTR+=(strlen(operand)-3)/2;
if( (strlen(operand)-3)%2)
LOCCTR+=1;
}
else
{
printf("Bad assembly coding...\n");
printf("Wrong format for constant\n");
fclose(inp_file);
fclose(int_file);
free(int_filename);
free(read_line);
if(label)
free(label);
if(operand)
free(operand);
if(pneumonic)
free(pneumonic);
free_optab(optab,num_ops);
free_symtab(symtab);
exit(14);
}
if( (LOCCTR-old_locctr)>MC_SIZE )
{
printf("Constant value too long...\n");
fclose(inp_file);
fclose(int_file);
free(int_filename);
free(read_line);
if(label)
free(label);
if(operand)
free(operand);
if(pneumonic)
free(pneumonic);
free_optab(optab,num_ops);
free_symtab(symtab);
exit(50);
}
if( !( (strlen(operand)>=4)&&(operand[1]=='\'')&&(operand[strlen(operand)-1]=='\'') ) )
{
printf("Format for constant is convoluted at %lX...\n",old_locctr);
fclose(inp_file);
fclose(int_file);
free(int_filename);
free(read_line);
if(label)
free(label);
if(operand)
free(operand);
if(pneumonic)
free(pneumonic);
free_optab(optab,num_ops);
free_symtab(symtab);
exit(51);
}
}
else
{
printf("Opcode not found at %lX...\n",LOCCTR);
fclose(inp_file);
fclose(int_file);
free(int_filename);
free(read_line);
if(label)
free(label);
if(operand)
free(operand);
if(pneumonic)
free(pneumonic);
free_optab(optab,num_ops);
free_symtab(symtab);
exit(15);
}
if(label)
free(label);
if(operand)
free(operand);
if(pneumonic)
free(pneumonic);
read_line=NULL;
to_read=0;
while( (read_len=getline(&read_line,&to_read,inp_file)) != -1)
{
if( (search_space=(char *)malloc(read_len+1)) == NULL )
{
printf("Out of memory\n");
fclose(inp_file);
fclose(int_file);
free(int_filename);
free(read_line);
free_optab(optab,num_ops);
free_symtab(symtab);
exit(10);
}
strcpy(search_space,"");
sscanf(read_line,"%s",search_space);
if(((*search_space)=='\0')||((*search_space)==';'))
{
free(search_space);
search_space=NULL;
free(read_line);
read_line=NULL;
continue;
}
free(search_space);
search_space=NULL;
break;
}
if(read_len == -1)
{
printf("Bad assembly coding...\n");
printf("End of file was reached before END directive\n");
fclose(int_file);
fclose(inp_file);
free(int_filename);
free_optab(optab,num_ops);
free_symtab(symtab);
exit(16);
}
label=NULL;
pneumonic=NULL;
operand=NULL;
decode(read_line,read_len,&label,&pneumonic,&operand,int_filename,inp_file,int_file,NULL,optab,num_ops,symtab,LOCCTR,NULL);
}
//First Pass finished... Beginning second pass
if(label)
free(label);
if(operand)
free(operand);
if(pneumonic)
free(pneumonic);
fprintf(int_file,"%lX\t%s",LOCCTR,read_line);
free(read_line);
label=NULL;
operand=NULL;
pneumonic=NULL;
read_line=NULL;
fclose(inp_file);
out_file=fopen("a.out","w+");
if( out_file == NULL)
{
printf("Failed to open output file...\n");
fclose(int_file);
free(int_filename);
free_optab(optab,num_ops);
free_symtab(symtab);
exit(30);
}
//Write out the intermediate file and re-open it for second pass
fclose(int_file);
int_file=fopen(int_filename,"r");
if( int_file == NULL)
{
printf("Failed to open intermediate file...\n");
fclose(out_file);
free(int_filename);
free_optab(optab,num_ops);
free_symtab(symtab);
exit(31);
}
int_file=fopen(int_filename,"r");
if( int_file == NULL)
{
printf("Failed to open intermediate file...\n");
fclose(out_file);
free(int_filename);
free_optab(optab,num_ops);
free_symtab(symtab);
exit(31);
}
char *read_raw_line=NULL;
char string_loc[35];
while( (read_len=getline(&read_raw_line,&to_read,int_file)) != -1)
{
read_raw_line[strlen(read_raw_line)-1]='\0';
fprintf(out_file,"%s",read_raw_line);
read_raw_line[strlen(read_raw_line)]='\n';
memset(mc,0,MC_SIZE);
//We dont have to worry about about newlines spaces etc
sscanf(read_raw_line,"%s",string_loc);
read_line=read_raw_line+strlen(string_loc)+1;
decode(read_line,read_len,&label,&pneumonic,&operand,int_filename,NULL,int_file,out_file,optab,num_ops,symtab,LOCCTR,read_raw_line);
if(!label)
fprintf(out_file,"\t");
if(!operand)
fprintf(out_file,"\t");
char *opcode;
long int add;
if( (opcode=search_optab(optab,pneumonic,num_ops)) != NULL )
{
sprintf(mc,"%s",opcode);
if(operand)
{
if( (add=search_symtab(symtab,operand)) > 0 )
{
sprintf(mc+strlen(mc),"%lX",add);
}
else
{
printf("Operand not available in symbol table\n");
fclose(int_file);
fclose(out_file);
free(int_filename);
free(read_raw_line);
free_optab(optab,num_ops);
free_symtab(symtab);
exit(35);
}
}
}
else if(!strcmp(pneumonic,"BYTE"))
{
convert_const(&operand);
}
read_raw_line[strlen(read_raw_line)-1]='\0';
fprintf(out_file,"\t\t%s\n",mc);
if(label)
free(label);
if(operand)
free(operand);
if(pneumonic)
free(pneumonic);
label=pneumonic=operand=NULL;
free(read_raw_line);
read_raw_line=NULL;
}
if(label)
free(label);
if(operand)
free(operand);
if(pneumonic)
free(pneumonic);
fclose(int_file);
fclose(out_file);
free(int_filename);
free_optab(optab,num_ops);
free_symtab(symtab);
return 0;
}