DIbawah ini merupakan contoh dari program analisis leksikal, program ini menggunakan bahasa c :

 

#include<string.h>
#include<ctype.h>
#include<stdio.h>
#include<iostream.h>
#include<conio.h>
void keyword(char str[10])
{ if(strcmp(“for”,str)==0||strcmp(“while”,str)==0||strcmp(“do”,str)==0||
strcmp(“int”,str)==0||strcmp(“float”,str)==0||strcmp(“char”,str)==0||
strcmp(“double”,str)==0||strcmp(“static”,str)==0||strcmp(“switch”,str)==0||
strcmp(“case”,str)==0)
printf(“\n%s adalah keyword”,str);
else
printf(“\n%s adalah identifier”,str);
}
main()
{
FILE *f1,*f2,*f3;
char c,str[10],st1[10];
int num[100],lineno=0,tokenvalue=0,i=0,j=0,k=0;
printf(“\nEnter the c program\n”);/*gets(st1);*/
f1=fopen(“input”,”w”);
while((c=getchar())!=EOF)
putc(c,f1);
fclose(f1);
f1=fopen(“input”,”r”);
f2=fopen(“identifier”,”w”);
f3=fopen(“specialchar”,”w”);
while((c=getc(f1))!=EOF)
{
if(isdigit(c))
{
tokenvalue=c-‘0’;
c=getc(f1);
while(isdigit(c))
{
tokenvalue*=10+c-‘0′;
c=getc(f1);
}
num[i++]=tokenvalue;
ungetc(c,f1);
} else if(isalpha(c))
{
putc(c,f2);
c=getc(f1);
while(isdigit(c)||isalpha(c)||c==’_’||c==’$’)
{
putc(c,f2);
c=getc(f1);
}
putc(‘ ‘,f2);
ungetc(c,f1);
} else if(c==’ ‘||c==’\t’)
printf(” “);
else if(c==’\n’)
lineno++;
else
putc(c,f3);
}
fclose(f2);
fclose(f3);
fclose(f1);
printf(“\n Number dalam program : “);
for(j=0;j<i;j++)
printf(“%d”,num[j]);
printf(“\n”);
f2=fopen(“identifier”,”r”);
k=0;
printf(“Identifier : “);
while((c=getc(f2))!=EOF)
{
if(c!=’ ‘)
str[k++]=c;
else
{
str[k]=”;
keyword(str);
k=0;
}
}
fclose(f2);
f3=fopen(“specialchar”,”r”);
printf(“\n  Simbol dalam program : “);
while((c=getc(f3))!=EOF)
printf(“%c”,c);
printf(“\n”);
fclose(f3);
printf(“Baris dalam program : %d”,lineno);
getch();
}

Output :

output