#include <stdio.h> #include <stdlib.h> #include <string.h> typedef struct node{ char words[255]; struct node *next; }NODE; char word[255]; //判断默认字符 int acceptation_logic_key(char *ch); int acceptation_logic(char *ch); //判断数字 int acceptation_number(char *str); int acceptation_number_key(char ch); //判断字符 int acceptation_string(char *str); int acceptation_string_key(char ch); //截取 int acceptation_str(char ch,char *str,int i,char *sch,NODE *tnode); void splitter_node_add(char *str,NODE *node); int splitter_start(char *str); void splitter_node_add(char *str,NODE *node); void word_acceptation(char *ch,NODE *tnode); void word_node(char *ch,NODE *node); void word_splitter(char* str,NODE *node); //逻辑判断 int acceptation_logic(char *ch){ int key=0; if(strcmp(ch,"begin")==0){ printf("<%s 1 > ",ch); } else if(strcmp(ch,"if")==0){ printf("<%s 2 > ",ch); } else if(strcmp(ch,"then")==0){ printf("<%s 3 > ",ch); } else if(strcmp(ch,"while")==0){ printf("<%s 4 > ",ch); } else if(strcmp(ch,"do")==0){ printf("<%s 5 > ",ch); } else if(strcmp(ch,"end")==0){ printf("<%s 6 > ",ch); } else if(strcmp(ch,"+")==0){ printf("<%s 13> ",ch); } else if(strcmp(ch,"-")==0){ printf("<%s 14> ",ch); } else if(strcmp(ch,"*")==0){ printf("<%s 15> ",ch); } else if(strcmp(ch,"/")==0){ printf("<%s 16> ",ch); } else if(strcmp(ch,":")==0){ printf("<%s 17> ",ch); } else if(strcmp(ch,":=")==0){ printf("<%s 18> ",ch); } else if(strcmp(ch,"<")==0){ printf("<%s 20> ",ch); } else if(strcmp(ch,"<=")==0){ printf("<%s 21> ",ch); } else if(strcmp(ch,"<>")==0){ printf("<%s 22> ",ch); } else if(strcmp(ch,">")==0){ printf("<%s 23> ",ch); } else if(strcmp(ch,">=")==0){ printf("<%s 24> ",ch); } else if(strcmp(ch,"=")==0){ printf("<%s 25> ",ch); } else if(strcmp(ch,";")==0){ printf("<%s 26> ",ch); } else if(strcmp(ch,"(")==0){ printf("<%s 27> ",ch); } else if(strcmp(ch,")")==0){ printf("<%s 28> ",ch); } else if(strcmp(ch,"#")==0){ printf("<%s 0> ",ch); } else{ key=1; } return key; } int acceptation_logic_key(char *ch){ int key=0; if(strcmp(ch,"begin")==0); else if(strcmp(ch,"if")==0); else if(strcmp(ch,"then")==0); else if(strcmp(ch,"while")==0); else if(strcmp(ch,"do")==0); else if(strcmp(ch,"end")==0); else if(strcmp(ch,"+")==0); else if(strcmp(ch,"-")==0); else if(strcmp(ch,"*")==0); else if(strcmp(ch,"/")==0); else if(strcmp(ch,":")==0); else if(strcmp(ch,":=")==0); else if(strcmp(ch,"<")==0); else if(strcmp(ch,"<=")==0); else if(strcmp(ch,"<>")==0); else if(strcmp(ch,">")==0); else if(strcmp(ch,">=")==0); else if(strcmp(ch,"=")==0); else if(strcmp(ch,";")==0); else if(strcmp(ch,"(")==0); else if(strcmp(ch,")")==0); else if(strcmp(ch,"#")==0); else{ key=1; } return key; } int acceptation_string_key(char ch); int acceptation_string(char *str){ int key=1; char *ch= NULL; ch=str; if(acceptation_string_key(str[0])==0){ printf("<%s 11> ",str); key=0; } return key; } int acceptation_number_key(char ch){ int key=0; if(ch<='9'&&ch>='0'){ key=0; } else key=1; return key; } int acceptation_number(char *str){ int key=0; char *ch=NULL; ch=str; while(*ch!=' '){ key+=acceptation_number_key(*ch); //printf("keynumber=%d,ch=%c ",key,*ch); *ch++; } if(key==0) printf("<%s 10> ",str); return key; } int acceptation_string_key(char ch){ int key=0; if(ch<='z'&&ch>='a'){ key=0; } else key=1; return key; } //重置 int acceptation_str(char ch,char *str,int i,char *sch,NODE *tnode){ *sch++; //printf("%d ",acceptation_string_key(ch)); if(acceptation_string_key(ch)==0){ if(acceptation_string_key(*sch)!=0&&acceptation_number_key(*sch)!=0){ //printf("str=%s",str); //acceptation_string(str); splitter_node_add(str,tnode); memset(str, 0,i); i=0; } } if(acceptation_logic_key(str)==0){ splitter_node_add(str,tnode); memset(str, 0,i); i=0; } if(acceptation_number_key(ch)==0){ if(acceptation_number_key(*sch)!=0){ //acceptation_number(str); splitter_node_add(str,tnode); memset(str, 0,i); i=0; } } return i; } //判断词意 void word_acceptation(char *ch,NODE *tnode){ char *str=NULL; char **sstr=NULL; int i=1,k=0,key=1; sstr=&ch; str=(char *)malloc(1); str[0]=*ch; str[1]=' '; //存入str while(*ch!=' '){ *ch++; k++; str[i]=*ch; i++; str[i]=' '; **sstr++; sstr=&ch; i=acceptation_str(*ch,str,i,*sstr,tnode); //puts(str); } } //存入节点 void splitter_node_add(char *str,NODE *node){ NODE *p,*q; p=node; while(p->next!=NULL){ p=p->next; } q=(NODE *)malloc(sizeof(NODE)); q->next=NULL; strcpy(q->words,str); p->next=q; p=q; } //判断空格回车位置 int splitter_start(char *str){ int i=0; while(*str!=' '){ *str++; i++; if(*str==' ') break; if(*str==' ') break; } return i; } //将每个字母以空格或回车分成一段词 void word_splitter(char* str,NODE *node){ char *aword=NULL; char **sword=NULL; sword=&str; //截取第一段 aword=(char *)malloc(splitter_start(*sword)); strncpy(aword,*sword,splitter_start(*sword)); aword[splitter_start(*sword)]=' '; splitter_node_add(aword,node); memset(aword, 0, splitter_start(*sword)); while(*str!=' '){ //printf("%c ",*str); *str++; *aword++; if(*str==' '||*str==' '){ aword=(char *)malloc(splitter_start(*sword)); *str++;//截取空格或回车 **sword++; sword=&str; //printf("splitter_start=%d ",splitter_start(*sword)); //puts(*sword); strncpy(aword,*sword,splitter_start(*sword)); aword[splitter_start(*sword)]=' '; splitter_node_add(aword,node); //puts(aword); memset(aword, 0, splitter_start(*sword)); } } } void word_node(char *ch,NODE *node){ NODE *p,*tnode; puts(word); tnode=(NODE *)malloc(sizeof(NODE)); tnode->next=NULL; word_splitter(word,node); p=node; while(p->next!=NULL){ p=p->next; word_acceptation(p->words,tnode); } printf("执行： "); p=tnode; while(p->next!=NULL){ p=p->next; if(acceptation_logic(p->words)==0); else if(acceptation_string(p->words)==0); else if(acceptation_number(p->words)==0); else{ printf("<错误> "); } } } int main(){ NODE *node; node=(NODE *)malloc(sizeof(NODE)); node->next=NULL; printf("请输入： "); scanf("%[^#]s",word); word_node(word,node); return 0; }