词法分析

#include<stdio.h>
#include<string.h>
#include<iostream.h>
char prog[80],token[8];
char ch;
int syn,p,m=0,n,row,sum=0;
char *rwtab[6]={"begin","if","then","while","do","end"};
 
void scaner()
{
    for(n=0;n<8;n++) token[n]=NULL;
    ch=prog[p++];
    while(ch==‘ ‘)
    {
        ch=prog[p];
        p++;
    }
    if((ch>=‘a‘&&ch<=‘z‘)||(ch>=‘A‘&&ch<=‘Z‘))  
    {
        m=0;
        while((ch>=‘0‘&&ch<=‘9‘)||(ch>=‘a‘&&ch<=‘z‘)||(ch>=‘A‘&&ch<=‘Z‘))
        {
            token[m++]=ch;
            ch=prog[p++];
        }
        token[m++]=‘\0‘;
        p--;
        syn=10;
        for(n=0;n<6;n++)
            if(strcmp(token,rwtab[n])==0)
            {
                syn=n+1;
                break;
            }
    }
    else if((ch>=‘0‘&&ch<=‘9‘))  
    {
        {
            sum=0;
            while((ch>=‘0‘&&ch<=‘9‘))
            {
                sum=sum*10+ch-‘0‘;
                ch=prog[p++];
            }
        }
        p--;
        syn=11;
        if(sum>32767)
            syn=-1;
    }
    else switch(ch)  
    {
        case‘<‘:m=0;token[m++]=ch;
            ch=prog[p++];
            if(ch==‘>‘)
            {
                syn=21;
                token[m++]=ch;
            }
            else if(ch==‘=‘)
            {
                syn=22;
                token[m++]=ch;
            }
            else
            {
                syn=23;
                p--;
            }
            break;
        case‘>‘:m=0;token[m++]=ch;
            ch=prog[p++];
            if(ch==‘=‘)
            {
                syn=24;
                token[m++]=ch;
            }
            else
            {
                syn=20;
                p--;
            }
            break;
        case‘:‘:m=0;token[m++]=ch;
            ch=prog[p++];
            if(ch==‘=‘)
            {
                syn=18;
                token[m++]=ch;
            }
            else
            {
                syn=17;
                p--;
            }
            break;
        case‘+‘:syn=13;token[0]=ch;break;
        case‘-‘:syn=14;token[0]=ch;break;
        case‘*‘:syn=15;token[0]=ch;break;
        case‘/‘:syn=16;token[0]=ch;break;
        case‘:‘:syn=17;token[0]=ch;break;
        case‘:=‘:syn=18;token[0]=ch;break;
        case‘<‘:syn=20;token[0]=ch;break;
        case‘<=‘:syn=21;token[0]=ch;break;
        case‘<>‘:syn=22;token[0]=ch;break;
        case‘>‘:syn=23;token[0]=ch;break;
        case‘>=‘:syn=24;token[0]=ch;break;
        case‘=‘:syn=25;token[0]=ch;break;
        case‘;‘:syn=26;token[0]=ch;break;
        case‘(‘:syn=27;token[0]=ch;break;
        case‘)‘:syn=28;token[0]=ch;break;
        case‘#‘:syn=0;token[0]=ch;break;
    }
}

#完成一半