Scribd
Upload
83 views

Ex4 PDF

The document describes a lexical analyzer for a simple programming language. It defines tokens for keywords, identifiers, numbers, relational operators, arithmetic operators, and punctuation. It includes code for lexically analyzing identifiers, numbers, and operators and returning the appropriate token. It also tracks line numbers and handles identifier lookup and duplication checks.

Uploaded by

Stan
Copyright
© © All Rights Reserved
Available Formats
Download as PDF, TXT or read online on Scribd
83 views

Ex4 PDF

The document describes a lexical analyzer for a simple programming language. It defines tokens for keywords, identifiers, numbers, relational operators, arithmetic operators, and punctuation. It includes code for lexically analyzing identifiers, numbers, and operators and returning the appropriate token. It also tracks line numbers and handles identifier lookup and duplication checks.

Uploaded by

Stan
Copyright
© © All Rights Reserved
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 14

Subc.

l:

%{
#include <stdio.h>
#include <string.h>
#include "subc.tab.h"

void yyerror(char *);

char identifier[50][50];
int total_id = 0;
extern YYSTYPE yylval;
int lineNum = 0;

%}
digit [0-9]
letter [a-zA-Z]
mulop [*/%]
addop [+-]

%%{
"if" {
return IF;
}
"else" {
return ELSE;
}
"while" {return WHILE;}

"for" { yyerror("Reserved Word for");}


"repeat" { yyerror("Reserved Word repeat");}
"until" { yyerror("Reserved Word until");}
"return" { yyerror("Reserved Word return");}
"main" { yyerror("Reserved Word main");}
{letter}({letter}|{digit}|"_")({letter}|{digit}|"_")({letter}|{digit}|"_")({letter}|{digit}|"_")({letter}|{digit}|"
_")+ {

/*yyerror("Identifier greater than 5 characters");*/

{letter}({letter}|{digit}|"_")?({letter}|{digit}|"_")?({letter}|{digit}|"_")?({letter}|{digit}|"_")?
{
int i;
int flag=0;
for (i = 0; i<total_id; i++) {
if (strcmp(identifier[i], yytext)==0)
{
flag=1;
break;
}
}
//yylval.STRING = malloc(strlen(yytext)+1);
strcpy(yylval.STRING, yytext);

if(flag==0)
{
if(total_id==0) puts("");
//printf("\r%s\n", yylval.string);
//token_number = total_id;
strcpy(identifier[total_id++],yylval.STRING);

}
return ID;

{digit}+|({digit}+("."){digit}+) { yylval.VALUE = atof(yytext); return NUM;}


"=="|">="|"<="|">"|"<"|"!=" {

strcpy(yylval.STRING, yytext);
return RELOP;
}
{addop}|("||") {

strcpy(yylval.STRING, yytext);
return ADDOP;
}
{mulop}|("&&") {

strncpy(yylval.STRING, yytext,
strlen(yytext));
return MULOP;
}
"=" {return ASSIGN;}
";" {return END;}
"!" {return NOT;}
"[" {return SQRBO;}
"]" {return SQRBC;}
"(" {return STRBO;}
")" {return STRBC;}
"{" {return CURBO;}
"}" {return CURBC;}
"\n" {lineNum++;}
[._]+ {yyerror("Invalid character");}
[ \t]+;
%%

subc.y:
%{
#include<stdio.h>
#include<string.h>

extern FILE *yyin;


extern int lineNum;

int ErrorRecovered = 0;
char message[100];

char idflag[50][50];
int nModId = 0;

struct QUAD{
char operation[10];
char arg1[20];
char arg2[20];
char result[10];
}quads[100];

int Q = 0, T = 0;
int L = 0;

int LABEL_STACK[100];
int LABEL_STACK_TOP=0;

void LABEL_STACK_push(int l){


LABEL_STACK[LABEL_STACK_TOP++] = l;
}

char STMT_STACK[100][100];
int STACK_TOP = 0;

void STMT_STACK_push(char str[100]){


strcpy(STMT_STACK[STACK_TOP++], str);
}
struct ST{
char symbol[100];
float value;
}SYMBOL_TABLE[100];

int total_symbol=0;

float GET_SYMBOL_VALUE( char symbol[100]){


int i;
for(i=0;i<total_symbol;i++){
if(strcmp(symbol,SYMBOL_TABLE[i].symbol)==0){
return SYMBOL_TABLE[i].value;
}
}
strcpy(SYMBOL_TABLE[total_symbol].symbol, symbol);
SYMBOL_TABLE[total_symbol].value = 0;
total_symbol++;
return 0;
}

void SET_SYMBOL_VALUE(char symbol[100], float value){

int i;
for(i=0;i<total_symbol;i++){
if(strcmp(symbol,SYMBOL_TABLE[i].symbol)==0){
SYMBOL_TABLE[i].value = value;
return;
}
}

float CALCULATE(float x, float y, char operation[5] ){

if(strcmp(operation,"*")==0) return x*y;


if(strcmp(operation,"/")==0) return x/y;
if(strcmp(operation,"%")==0) return ((int)x) % ((int)y);
if(strcmp(operation,"&&")==0) return x&&y;

if(strcmp(operation,"+")==0) return x+y;


if(strcmp(operation,"-")==0) return x-y;
if(strcmp(operation,"||")==0) return x||y;

if(strcmp(operation,"==")==0) return x ==y;


if(strcmp(operation,"!=")==0) return x != y;
if(strcmp(operation,">=")==0) return x >= y;
if(strcmp(operation,"<=")==0) return x <= y;
if(strcmp(operation,">")==0) return x > y;
if(strcmp(operation,"<")==0) return x < y;

int IF_NO=1;

%}

%union{
float VALUE;
char STRING[100];
}

%start Start
%token ID NUM RELOP ADDOP MULOP ASSIGN NOT SQRBO SQRBC STRBO STRBC END NEWLINE CURBO
CURBC IF ELSE WHILE

%type <VALUE> NUM


%type <STRING> ID RELOP ADDOP MULOP ASSIGN Factor Term Simple_expression Expression Variable

%%

Start : Stmt_list
{
int i;
for(i=0;i<STACK_TOP;i++){
printf("\r%s\n", STMT_STACK[i]);
}

};

Stmt_list : Stmt
{
strcpy(message, "Missing expression!");
}

| Stmt_list Stmt

{
strcpy(message,"It's not the last line of the file!");
};
Stmt : Variable ASSIGN Expression END
{
char str[100], result[100], num[100];

strcpy(num, $3);
strcpy(result, $1);

strcpy(quads[Q].operation, $2);
strcpy(quads[Q].arg1, "");
strcpy(quads[Q].arg2, num);
strcpy(quads[Q].result, result);
Q++;

float Num = GET_SYMBOL_VALUE(num);

SET_SYMBOL_VALUE(result, Num);

sprintf(str, "%s = %s", result, num);


STMT_STACK_push(str);

strcpy(message,"Variable or expression missing. Cannot


assign anything!");
}

| IF STRBO Expression STRBC


{

char str[100], num[100], label[100];


IF_NO = 1;

strcpy(label, "label"); sprintf(str, "%d", ++L); strcat(label,str);

strcpy(num, $3);

sprintf(str, "if !(%s) goto %s", num,label);


STMT_STACK_push(str);

}
CURBO Stmt_list CURBC
{

char str[100],label[100];

strcpy(label, "label"); sprintf(str, "%d", ++L); strcat(label,str);


sprintf(str, "goto %s", label);
STMT_STACK_push(str);

strcpy(label, "label"); sprintf(str, "%d", L-IF_NO);


strcat(label,str);
sprintf(str, "%s:", label);
STMT_STACK_push(str);

ELSE CURBO Stmt_list CURBC


{
char str[100],label[100];
strcpy(label, "label"); sprintf(str, "%d", L); strcat(label,str);
sprintf(str, "%s:", label);
STMT_STACK_push(str);
IF_NO+=2;

| WHILE
{
char str[100],label[100];
IF_NO = 1;

strcpy(label, "label"); sprintf(str, "%d", ++L);


strcat(label,str);

sprintf(str, "%s:", label);


STMT_STACK_push(str);
}
STRBO Expression STRBC
{
char str[100], num[100], label[100];

strcpy(label, "label"); sprintf(str, "%d", ++L);


strcat(label,str);

strcpy(num, $4);
sprintf(str, "if %s is false goto %s", num,label);
STMT_STACK_push(str);
}
CURBO Stmt_list CURBC
{
char str[100],label[100];
strcpy(label, "label"); sprintf(str, "%d", L-IF_NO);
strcat(label,str);
sprintf(str, "goto %s", label);

STMT_STACK_push(str);

strcpy(label, "label"); sprintf(str, "%d", L-IF_NO+1);


strcat(label,str);
sprintf(str, "%s:", label);
STMT_STACK_push(str);
IF_NO+=2;

}
;

Variable : ID
{
strcpy($$,$1);

GET_SYMBOL_VALUE($1);

strcpy(message,"Expecting something else!");


}
;

Expression : Simple_expression
{

strcpy($$, $1);

strcpy(message,"Missing expression!");
}
| Simple_expression RELOP Simple_expression
{

char str[100], result[100], num1[100], num2[100];


strcpy(num1, $1);
strcpy(num2, $3);

sprintf(str, "%s %s %s", num1, $2, num2);

strcpy($$, str);

float Num1 = GET_SYMBOL_VALUE(num1);


float Num2 = GET_SYMBOL_VALUE(num2);

GET_SYMBOL_VALUE(str);
SET_SYMBOL_VALUE(str, CALCULATE(Num1, Num2,
$2));

strcpy(message,"Conditional operation cannot be


done");
}
;

Simple_expression: Term
{
strcpy($$, $1);

}
| Simple_expression ADDOP Term
{
char str[100], result[100], num1[100], num2[100];
strcpy(result, "T"); sprintf(str, "%d", ++T);
strcat(result,str);

strcpy(num1, $1);
strcpy(num2, $3);

strcpy(quads[Q].operation, $2);
strcpy(quads[Q].arg1, num1);
strcpy(quads[Q].arg2, num2);
strcpy(quads[Q].result, result);
Q++;

float Num1 = GET_SYMBOL_VALUE(num1);


float Num2 = GET_SYMBOL_VALUE(num2);
float Result = CALCULATE(Num1, Num2, $2);

//printf("%s %f...\n",result, Result);

GET_SYMBOL_VALUE(result);
SET_SYMBOL_VALUE(result, Result);

sprintf(str, "%s = %s %s %s", result, num1, $2, num2);


STMT_STACK_push(str);

strcpy($$, result);

strcpy(message,"Additive operation cannot be done");


}
;

Term : Factor
{

strcpy($$, $1);

}
| Term MULOP Factor
{

char str[100], result[100], num1[100], num2[100];


strcpy(result, "T"); sprintf(str, "%d", ++T);
strcat(result,str);

strcpy(num1, $1);
strcpy(num2, $3);

strcpy(quads[Q].operation, $2);
strcpy(quads[Q].arg1, num1);
strcpy(quads[Q].arg2, num2);
strcpy(quads[Q].result, result);
Q++;

float Num1 = GET_SYMBOL_VALUE(num1);


float Num2 = GET_SYMBOL_VALUE(num2);
float Result = CALCULATE(Num1, Num2, $2);
SET_SYMBOL_VALUE(result, Result);

sprintf(str, "%s = %s %s %s", result, num1, $2, num2);


STMT_STACK_push(str);

strcpy($$, result);

strcpy(message,"Multiplicative operation cannot be


done!");
}
;

Factor : ID
{

strcpy($$,$1);

GET_SYMBOL_VALUE($1);

strcpy(message,"Expecting something else!");


}

| NUM

{
char str[100], result[100], num[100];
strcpy(result, "T"); sprintf(str, "%d", ++T);
strcat(result,str);

sprintf(num, "%f", $1);

strcpy(quads[Q].operation, "");
strcpy(quads[Q].arg1, "");
strcpy(quads[Q].arg2, num);
strcpy(quads[Q].result, result);
Q++;

GET_SYMBOL_VALUE(result);
SET_SYMBOL_VALUE(result, $1);

sprintf(str, "%s = %s", result, num);


STMT_STACK_push(str);
strcpy($$,result);

strcpy(message,"Unrecognized number format!");

}
| STRBO Expression STRBC
{
strcpy(message,"'(' or ')' missing OR expression not
found!");
}
| NOT Factor
{
char str[100], result[100], num[100];
strcpy(result, "T"); sprintf(str, "%d", ++T);
strcat(result,str);

sprintf(num, "%s", $2);

strcpy(quads[Q].operation, "!");
strcpy(quads[Q].arg1, "");
strcpy(quads[Q].arg2, num);
strcpy(quads[Q].result, result);
Q++;

sprintf(str, "%s = !%s", result, num);


STMT_STACK_push(str);

strcpy($$,result);

strcpy(message,"Unrecognized number/ID format!");

}
;
%%

int yywrap()
{
return 1;
}

int main()
{
yyin=fopen("input.txt","r");
yyparse();
fclose(yyin);
if(ErrorRecovered==0) printf("Success!\n");

printf("\n------Symbol Table & Final Value------\n\n");


int i;
for(i=0;i<total_symbol;i++){
printf("%s = %f\n", SYMBOL_TABLE[i].symbol, SYMBOL_TABLE[i].value);
}

return 0;
}

int yyerror(char str[100])


{
if(ErrorRecovered==0){
{

printf("Error Found @ line #%d: ", lineNum+1);


if(strcmp(str,"Invalid character")==0 ||
strcmp(str,"Identifier greater than 5 characters")==0)
printf("%s!", str);
else if(strlen(message))
printf("%s\n",message);
else printf("%s\n", str);
}
printf("\n");
ErrorRecovered = 1;

Input.txt:

b = b + 1;
if(b > a){b = 2 + c;} else{b = d - 2;}
a = c + b * d;
Output:

You might also like