?? zheng111.c
字號:
#include <stdio.h>
#include <string.h>
#include <process.h>
struct shaomiao_type
{
char danci[12];
int zhongbiema;
}
shaomiao1[60]={{"and",1},{"array",2},{"begin",3},{"bool",4},{"call",5},{"case",6},{"char",7},{"constant",8},{"do",9},{"else",10},{"end",11},{"false",12},{"for",13},{"if",14},{"input",15},{"int",16},{"not",17},{"of",18},{"or",19},{"output",20},{"procedure",21},{"program",22},{"read",23},{"repeat",24},{"set",25},{"true",26},{"until",27},{"var",28},{"while",29},{"write",30}};
struct teshufu_type
{
char yiyi[12];
int erer;
}teshufu1[60]={{"'",38},{"(",39},{")",40},{"*",41},{"+",42},{",",43},{"-",44},{"、",45},{":",46},{">",47},{";",48},{"<",49},{"=",50}};
void main()
{
FILE *in,*out;/*存放輸入字符串和輸出單詞串的文件*/
char arr[1024];/*arr數組存放單詞符號*/
int ch;
char N;/*currentchar存放當前輸入字符*/
int i=0;/*arr數組的一個指針*/
int j;
int n;
int m;
int p;
/*以讀方式打開輸入文件*/
if((in=fopen("infile.txt","r"))==NULL)
{
printf("can not open file\n");
}
exit(0);
/*以寫方式打開輸出文件*/
if((out=fopen("outfile.txt","w"))==NULL)
{
printf("cannout open outfile\n");
exit(1);
}
/*if((guanjianzi=fopen("guanjianzifile.txt","r"))==NULL)
{
printf("cannout open guanjianzifile\n");
exit(2);
}
if((fuhao=fopen("fuhaofile.txt","r"))==NULL)
{
printf("cannout open fuhaofile\n");
exit(3);
}
*/
//去掉開頭空格
N=fgetc(in);
while(N==' ')
{
N=fgetc(in);
}
while(N!='$')
{
/*常數部分判斷*/
if((N>='a'&&N<='z')||(N>='A'&&N<='Z')
||(N>='0'&&N<='9')||N=='('||N==')'||N=='{'||N=='}'||N=='>'||N=='<'||N==';'||N==':'||N=='+'||N=='-'
||N=='*'||N=='/'||N=='='||N=='!'||N=='&'||(ch=N)=='\n'||N==' '||N=='['||N==']')
{
i=0;//清空arr字符數組
if(N>='0'&&N<='9')
{
arr[i++]=N;
N=fgetc(in);//再讀入下一個字符
while(N>='0'&&N<='9')
{
arr[i++]=N;
N=fgetc(in);
}
if(N!='.')//如果當前讀入的符號不為小數點，則常數讀完畢，輸出此常數
{
arr[i++]='\0';
fprintf(out,"%s%d,%c%s%c%s\n","(",15,'"',arr,'"',")");//格式化輸出到目標文件，15代表種別碼， arr為內碼值，規定用數字本身代表
}
else //當前字符為小數點則繼續向下讀入
{
arr[i++]=N;
N=fgetc(in);
while(N>='0'&&N<='9')
{
arr[i++]=N;
N=fgetc(in);
}
if(N=='e')
{
arr[i++]=N;
N=fgetc(in);
while(N>='0'&&N<='9')
{
arr[i++]=N;
N=fgetc(in);
}
arr[i++]='\0';
fprintf(out,"%s%d,%c%s%c%s\n","(",15,'"',arr,'"',")");
}
else
{
arr[i++]='\0';
fprintf(out,"%s%d,%c%s%c%s\n","(",15,'"',arr,'"',")");
}
}
while(N==' ')
{
N=fgetc(in);
}
}
/*識別注釋*/
/*判斷標識符和關鍵字部分*/
if((N>='a'&&N<='z')||(N>='A'&&N<='Z'))
{
i=0;//清空arr字符數組
while((N>='a'&&N<='z')||(N>='0'&&N<='9')||(N>='A'&&N<='Z'))
{
arr[i++]=N;
N=fgetc(in);
}
//把字符數組arr和關鍵字表比較，判斷單詞串是關鍵字還是標識符
arr[i++]='\0';
for(j=0;j<60;j++)
{
n=strcmp(arr,shaomiao1[j].danci);
if(n==0)
{
fprintf(out,"%s%d,%c%s%c%s\n","(",shaomiao1[j].zhongbiema,'"',arr,'"',")");
}
else
fprintf(out,"%s%d,%c%s%c%s\n","(",14,'"',arr,'"',")");
}
/*if(strcmp(arr,"and")==0)
fprintf(out,"%s%d,%c%s%c%s\n","(",0,'"',arr,'"',")");
else if(strcmp(arr,"array")==0)
fprintf(out,"%s%d,%c%s%c%s\n","(",1,'"',arr,'"',")");
else if(strcmp(arr,"begin")==0)
fprintf(out,"%s%d,%c%s%c%s\n","(",2,'"',arr,'"',")");
else if(strcmp(arr,"bool")==0)
fprintf(out,"%s%d,%c%s%c%s\n","(",3,'"',arr,'"',")");
else if(strcmp(arr,"call")==0)
fprintf(out,"%s%d,%c%s%c%s\n","(",4,'"',arr,'"',")");
else if(strcmp(arr,"case")==0)
fprintf(out,"%s%d,%c%s%c%s\n","(",5,'"',arr,'"',")");
else if(strcmp(arr,"char")==0)
fprintf(out,"%s%d,%c%s%c%s\n","(",6,'"',arr,'"',")");
else if(strcmp(arr,"constant")==0)
fprintf(out,"%s%d,%c%s%c%s\n","(",7,'"',arr,'"',")");
else if(strcmp(arr,"do")==0)
fprintf(out,"%s%d,%c%s%c%s\n","(",8,'"',arr,'"',")");
else if(strcmp(arr,"else")==0)
fprintf(out,"%s%d,%c%s%c%s\n","(",9,'"',arr,'"',")");
else if(strcmp(arr,"end")==0)
fprintf(out,"%s%d,%c%s%c%s\n","(",10,'"',arr,'"',")");
else if(strcmp(arr,"false")==0)
fprintf(out,"%s%d,%c%s%c%s\n","(",11,'"',arr,'"',")");
else if(strcmp(arr,"for")==0)
fprintf(out,"%s%d,%c%s%c%s\n","(",12,'"',arr,'"',")");
else if(strcmp(arr,"if")==0)
fprintf(out,"%s%d,%c%s%c%s\n","(",13,'"',arr,'"',")");
else
fprintf(out,"%s%d,%c%s%c%s\n","(",14,'"',arr,'"',")");*/
}
while(N==' ')
{
N=fgetc(in);
}
//判斷標識符包括：+, -, *, /, (, ), {, }, <, >, ;, :, !=, >=, <=, ==, =.
if(N=='('||N==')'||N=='{'||N=='}'||N=='>'||N=='<'||N==';'||N==':'||N=='+'||N=='-'
||N=='*'||N=='/'||N=='='||N=='!'||N=='&'||(ch=N)=='\n'||N==' '||N=='['||N==']')
for(m=0;m<60;m++)
{
p=strcmp(arr,teshufu[m].yiyi);
if(p==0)
{
fprintf(out,"%s%d,%c%s%c%s\n","(",teshufu[j].erer,'"',arr,'"',")");
}
N=fgetc(in);
}
/*if(N=='+')
{
fprintf(out,"%s%d,%c%c%c%s\n","(",9,'"',N,'"',")");
N=fgetc(in);
}*/
while(N==' ')
{
N=fgetc(in);
}
/*if(N=='-')
{
fprintf(out,"%s%d,%c%c%c%s\n","(",10,'"',N,'"',")");
N=fgetc(in);
}
while(N==' ')
{
N=fgetc(in);
}
if(N=='*')
{
fprintf(out,"%s%d,%c%c%c%s\n","(",11,'"',N,'"',")");
N=fgetc(in);
}
while(N==' ')
{
N=fgetc(in);
}*/
if(N=='/')
{i=0;
arr[i++]=N;
N=fgetc(in);
if (N=='*')
{
arr[i++]=N;
N=fgetc(in);
while(N!='*')
{
arr[i++]=N;
N=fgetc(in);
}
if(N=='*')
{
arr[i++]=N;
N=fgetc(in);
if(N=='/')
{arr[i++]=N;
arr[i++]='\0';
fprintf(out,"%s%d,%c%s%c%s\n","(",20,'"',arr,'"',")");
N=fgetc(in);
}
}
}
else
{arr[i++]='\0';
fprintf(out,"%s%d,%c%c%c%s\n","(",12,'"',N,'"',")");
N=fgetc(in);}
}
while(N==' ')
{
N=fgetc(in);
}
if(N=='=')
{
i=0;
arr[i++]=N;
N=fgetc(in);
if(N=='=')
{
arr[i++]=N;
arr[i++]='\0';
fprintf(out,"%s%d,%c%s%c%s\n","(",13,'"',arr,'"',")");
N=fgetc(in);
}
else
{ arr[i++]='\0';
fprintf(out,"%s%d,%c%s%c%s\n","(",17,'"',arr,'"',")");
}
}
while(N==' ')
{
N=fgetc(in);
}
if(N==';')
{
fprintf(out,"%s%d,%c%c%c%s\n","(",4,'"',N,'"',")");
N=fgetc(in);
}
while(N==' ')
{
N=fgetc(in);
}
if(N=='{')
{
fprintf(out,"%s%d,%c%c%c%s\n","(",5,'"',N,'"',")");
N=fgetc(in);
}
while(N==' ')
{
N=fgetc(in);
}
if(N=='}')
{
fprintf(out,"%s%d,%c%c%c%s\n","(",6,'"',N,'"',")");
N=fgetc(in);
}
while(N==' ')
{
N=fgetc(in);
}
if(N=='[')
{
fprintf(out,"%s%d,%c%c%c%s\n","(",20,'"',N,'"',")");
N=fgetc(in);
}
while(N==' ')
{
N=fgetc(in);
}
if(N==']')
{
fprintf(out,"%s%d,%c%c%c%s\n","(",21,'"',N,'"',")");
N=fgetc(in);
}
while(N==' ')
{
N=fgetc(in);
}
/*if(N=='(')
{
fprintf(out,"%s%d,%c%c%c%s\n","(",7,'"',N,'"',")");
N=fgetc(in);
}
while(N==' ')
{
N=fgetc(in);
}
if(N==')')
{
fprintf(out,"%s%d,%c%c%c%s\n","(",8,'"',N,'"',")");
N=fgetc(in);
}
while(N==' ')
{
N=fgetc(in);
}*/
if(N==':')
{
i=0;
arr[i++]=N;
N=fgetc(in);
if(N==':')
{
arr[i++]=N;
arr[i++]='\0';
fprintf(out,"%s%d,%c%s%c%s\n","(",18,'"',arr,'"',")");
N=fgetc(in);
}
else
{ arr[i++]='\0';
fprintf(out,"%s%d,%c%s%c%s\n","(",16,'"',arr,'"',")");
}
}
while(N==' ')
{
N=fgetc(in);
}
if(N=='>')
{
i=0;
arr[i++]=N;
N=fgetc(in);
if(N=='=')
{
arr[i++]=N;
arr[i++]='\0';
fprintf(out,"%s%d,%c%s%c%s\n","(",13,'"',arr,'"',")");
N=fgetc(in);
}
else
{ arr[i++]='\0';
fprintf(out,"%s%d,%c%s%c%s\n","(",13,'"',arr,'"',")");
}
}
while(N==' ')
{
N=fgetc(in);
}
if(N=='<')
{
i=0;
arr[i++]=N;
N=fgetc(in);
if(N=='=')
{
arr[i++]=N;
arr[i++]='\0';
fprintf(out,"%s%d,%c%s%c%s\n","(",13,'"',arr,'"',")");
N=fgetc(in);
}
else
{ arr[i++]='\0';
fprintf(out,"%s%d,%c%s%c%s\n","(",13,'"',arr,'"',")");
}
}
while(N==' ')
{
N=fgetc(in);
}
if(N=='!')
{
i=0;
arr[i++]=N;
N=fgetc(in);
if(N=='=')
{
arr[i++]=N;
arr[i++]='\0';
fprintf(out,"%s%d,%c%s%c%s\n","(",13,'"',arr,'"',")");
N=fgetc(in);
}
}
while(N==' ')
{
N=fgetc(in);
}
if(N=='&')
{
fprintf(out,"%s%d,%c%c%c%s\n","(",19,'"',N,'"',")");
N=fgetc(in);
}
while(N==' ')
{
N=fgetc(in);
}
while((ch=N)=='\n')
{
N=fgetc(in);
}
while(N==' ')
{
N=fgetc(in);
}
}
else
{
fprintf(out,"%s,%c%c%c\n","error",'"',N,'"');
N=fgetc(in);
}
}//結束開頭while語句
/*關閉文件退出*/
fclose(in);
fclose(out);
}
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -