?? sal.cpp
字號(hào):
// SAL.cpp : Defines the entry point for the console application.
//
# include "stdafx.h"
# include <stdio.h> //定義I / O庫(kù)所用的某些宏和變量
# include <string> //定義字符串庫(kù)函數(shù)
# include <iostream>
using namespace std;
char prog[100]; //數(shù)據(jù)存儲(chǔ)變量
char ch;
char token[8];
int p=0;
int m=0,n=0;
int syn=-1; //種別編碼
int sum;
int row=1; //記錄行
int pos=0; //記錄行位置
int WordRow; //記錄每一特碼的所在行
int WordPos; //記錄每一物碼的所在列
char LastEffectiveCode[8]; //記錄最后有效字符
int FourGroupIndex=1000; //四元組索引
int RecursionIndex=0; //遞歸索引
int RecursionError=-1; //遞歸錯(cuò)誤位置
char *codeTable[15]={"." , "const" , "var" , "read" , "write" , "+" , "-" ,
"*" , "/" , "=" , ":=" , "," , ";" , "(" , ")"}; //種別編碼表
FILE *f_Input=fopen("InputFile.txt","r"); //輸入文件指針
FILE *f_DualGroup=fopen("OutPutDualGroup.txt","w"); //輸入文件指針
FILE *f_FourGroup=fopen("OutPutFourGroup.txt","w"); //輸出四元組
struct node
{
int codeID;
char value[8];
int row;
int pos;
};
struct FourGroup{
char oper[3];
char var_01[10];
char var_02[10];
char Add[12];
};
int DA_index=0;
node *DataArray[200];
int FGA_index=0;
FourGroup *FourGroupArray[200];
char *e();
//***************************************/
//函數(shù)名:isNum */
//作 用:判斷一個(gè)字符是否為0~9的數(shù)字字符 */
//參 數(shù):ch 要判斷的字符 */
//反回值:是 1 */
// 不是 0 */
//***************************************/
int isNum(char ch){
return (int(ch) >=48 && int(ch)<=57);
}
//***************************************/
//函數(shù)名:isChar */
//作 用:判斷是否為a~z || A~Z的數(shù)字字符 */
//參 數(shù):ch 要判斷的字符 */
//反回值:是 1 */
// 不是 0 */
//***************************************/
int isChar(char ch){
return (int(ch) >=65 && int(ch)<=90) || (int(ch) >=97 && int(ch)<=122);
}
//***************************************/
//函數(shù)名:CodeEdit */
//作 用:打印錯(cuò)誤位置 */
//參 數(shù):無(wú) */
//反回值:無(wú) */
//***************************************/
void CodeEdit(){
printf("error:row(%i),pos(%i) the sign '%c' occur behind '%s'!\n",row,pos,ch,LastEffectiveCode);
system("notepad InputFile.txt");
}
//***************************************/
//函數(shù)名:getOneChar */
//作 用:從文本讀取一個(gè)字符 */
//參 數(shù):f 文件操作指針 */
//反回值:一個(gè)字符 */
//***************************************/
char getOneChar(FILE *f)
{
char ch=fgetc(f);
if(ch != '\n'){
pos++;
}else{
row++;
pos=0;
}
return ch;
}
//***************************************/
//函數(shù)名:OutPutDualGroup */
//作 用:輸出二元組 */
//參 數(shù):無(wú) */
//反回值:無(wú) */
//***************************************/
void OutPutDualGroup(){
for(int i=0; i<DA_index; i++){
fprintf(f_DualGroup,"(%2i,%8s)\n",DataArray[i]->codeID,DataArray[i]->value);
}
printf("詞法分析成功...\n");
}
//***************************************/
//函數(shù)名:createFourGroup */
//作 用:創(chuàng)建四元組 */
//參 數(shù):oper 操作符 */
// var_01操作數(shù)01 */
// var_02操作數(shù)02 */
// Add 結(jié)果地址或變量 */
//反回值:無(wú) */
//***************************************/
void createFourGroup(char *oper, char *var_01, char *var_02, char *Add){
// printf("(%2s,%10s,%10s,%10s)\n",oper,var_01,var_02,Add);
FourGroup *newNode=(FourGroup*)malloc(sizeof(FourGroup));
strcpy(newNode->oper,oper);
strcpy(newNode->var_01,var_01);
strcpy(newNode->var_02,var_02);
strcpy(newNode->Add,Add);
FourGroupArray[FGA_index++]=newNode;
}
//***************************************/
//函數(shù)名:OutPutFourGroup */
//作 用:輸出四元組 */
//參 數(shù):oper 操作符 */
// var_01操作數(shù)01 */
// var_02操作數(shù)02 */
// Add 結(jié)果地址或變量] */
//反回值:無(wú) */
//***************************************/
void OutPutFourGroup(){
for(int i=0; i<FGA_index; i++){
fprintf(f_FourGroup,"(%2s,%10s,%10s,%10s)\n",FourGroupArray[i]->oper,FourGroupArray[i]->var_01,FourGroupArray[i]->var_02,FourGroupArray[i]->Add);
}
printf("語(yǔ)法分析成功...\n");
}
//***************************************/
//函數(shù)名:scaner */
//作 用:詞法分析,并存貯每個(gè)一詞 */
//參 數(shù):無(wú) */
//反回值:無(wú) */
//***************************************/
void scaner(){
memset(token,'\0',8);
ch=getOneChar(f_Input);
while (ch==' ' || ch=='\n' || ch=='\t') ch=getOneChar(f_Input) ; //設(shè)置下標(biāo)P為第一位不為空的位置
int m=0;
//關(guān)鍵字字符,以字母開(kāi)頭
if (isChar(ch)){
WordRow=row;
WordPos=pos;
while(isNum(ch) || isChar(ch)){
token[m++]=ch;
ch=getOneChar(f_Input);
}
fseek(f_Input,-1,SEEK_CUR); //向前移回一位
pos--;
syn=15; //先設(shè)成標(biāo)識(shí)符的種別編碼
for (n=1; n<=4; n++ ){ //與關(guān)鍵字?jǐn)?shù)組中的值進(jìn)行關(guān)鍵關(guān)匹配
if (strcmp(token, codeTable[n])==0) {
syn=n;
return;
}
}
}
//數(shù)字字符
else if (isNum(ch)) { //ch 是數(shù)字字符
WordRow=row;
WordPos=pos;
sum=0;
while (isNum(ch)) { ///ch 為數(shù)字字符
token[m++]=ch;
ch=getOneChar(f_Input); //讀下一個(gè)字符;
}
fseek(f_Input,-1,SEEK_CUR); //向前移回一位
pos--;
syn=16;
return;
}else{ //運(yùn)算比較符
WordRow=row;
WordPos=pos;
switch(ch)
{
case ':': //" := "
token[m++]=ch ;
ch=getOneChar(f_Input); //讀下一個(gè)字符;
if (ch=='='){
syn=10;
token[m++]=ch ;
}else{
syn=-1;
}
break;
case '+': syn=5; token[0]=ch; break;
case '-': syn=6; token[0]=ch; break;
case '*': syn=7; token[0]=ch; break;
case '/': syn=8; token[0]=ch; break;
case '=': syn=9; token[0]=ch; break;
case ',': syn=11; token[0]=ch; break;
case ';': syn=12; token[0]=ch; break;
case '(': syn=13; token[0]=ch; break;
case ')': syn=14; token[0]=ch; break;
case '.': syn=0; token[0]=ch; break;
default: syn= -1;
}
}
}
//***************************************/
//函數(shù)名:f() */
//作 用:遞歸語(yǔ)法分析---處理括號(hào) */
//參 數(shù):無(wú) */
//反回值:可處理標(biāo)識(shí)符 或 變量存放地址 */
//***************************************/
char *f ()
{
if (DataArray[RecursionIndex]->codeID == 15 || DataArray[RecursionIndex]->codeID == 16){ //標(biāo)識(shí)符節(jié)||常數(shù)
return DataArray[RecursionIndex++]->value;
}else if (DataArray[RecursionIndex++]->codeID ==13) { //=='('
char *place=new char[8];
memset(place,'\0',8);
strcpy(place,e());
if (DataArray[RecursionIndex++]->codeID == 14){ //==')'
return place;
}else{
RecursionError=RecursionIndex-1;
}
}
else RecursionError=RecursionIndex;
return "";
}
//***************************************/
//函數(shù)名:t() */
//作 用:遞歸語(yǔ)法分析---處理乘除 */
//參 數(shù):無(wú) */
//反回值:可處理標(biāo)識(shí)符 或 變量存放地址 */
//***************************************/
char* t (){
char *t1_place=new char[8];
memset(t1_place,'\0',8);
strcpy(t1_place,f());
while (DataArray[RecursionIndex]->codeID ==7 || DataArray[RecursionIndex]->codeID==8){ //=='*' || '/'
char sign[2];
memset(sign,'\0',2);
strcpy(sign,DataArray[RecursionIndex++]->value);
char t2_place[8];
memset(t2_place,'\0',8);
strcpy(t2_place,f());
char buff[10];
memset(buff,'\0',10);
sprintf(buff,"#ADD_%d",FourGroupIndex++);
createFourGroup(sign,t1_place,t2_place,buff); //產(chǎn)生四元組
strcpy(t1_place,buff);
}
return t1_place;
}
//***************************************/
//函數(shù)名:e() */
//作 用:遞歸語(yǔ)法分析---處理加減 */
//參 數(shù):無(wú) */
//反回值:可處理標(biāo)識(shí)符 或 變量存放地址 */
//***************************************/
char *e () //處理加減
{
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -