Pengantar Teknik Kompilasi

Contoh program analisis leksikal menggunakan 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]='\0';
            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 :