本文探讨了如何利用编译原理中的概念实现简单及复杂的计算器。通过DFA方法完成基本四则运算，并借助yacc和lex处理更复杂的表达式。
HinM_COMPILER_cale项目的计划和实现
HinM_COMPILER_cale项目是在学习编译原理的时候结合实际写出的子项目，这里讨论的是用编译的思想来实现一个高效能的计算器。
项目分为两个部分，一个是采用DFA的方式生成一个简单的四则运算的计算器。第二个部分是结合使用yacc和lex生成一个复杂的计算器。项目实现时间计划为一个星期。（2008-6-16—2008-6-22）
一个采用DFA的方式生成的简单的四则运算的计算器
这个项目我的实现参考了别人的例子，所以还是比较顺利的。
DFA的意思就是有穷自动机，是词法分析的内容，其实用词法分析的方法编写这个程序对于我自己来说教益非常大，可以说获得了智慧。我感觉如果我们把机器的状态用更加形式化的方法表示出来，将更容易控制。这个简单的，只可以处理四则运算的计算器的DFA如下：
态涵涵盖了简单的四则运算计算器可能出现的所有状态，首先能够在头脑中将所有的状态思考出来，然后用图表或其它抽象的方法将其形式化表现，用程序语言叙述，这是计算机程序编写的基本过程。
这样，就可以来编写代码，实现这个DFA，比较简答的实现方法是两层select的嵌套
Select(0)
{
Case 1……
Case 2……
Case 3
{
Select(input)
{
Case GOTO1……
Case GOTO2……
Case GOTO3……
……
}
……
}
这样正好对于了状态和状态的转换，而且DFA又只是双层的，比较贴切，这个只是也是积累到的；另一个方面，比较重要的就是对于非常的输入DFA可以不相应,因为本来在这个输入下DFA本身就没有合适的状态来转移嘛.当然，不响应是对于计算器这个程序的特性来说的，对于其它不同的程序，可以统一导向到一个错误收集区域中去，这样整个程序的架构就合理了。
示例代码采用c+win32api实现，采用api的好处是以后移植到HinM中去的时候，修改相应的api就可以了。下面分析代码
// 各函数参数表含义见其定义处/////////////////////////////////////////////
//
// DFA模拟函数 //
void MiniDFA(HWND hWnd, UINT uInput); //
// 向显示区追加一位数字 //
void AppendNumber(HWND hWnd, TCHAR ch); //
// 在显示区退格删去一位数字 //
void BackSpace(HWND hWnd); //
// 改变显示区数字的符号 //
void ChangeSign(HWND hWnd); //
// 显示数字 //
void ShowNumber (HWND hWnd, double dwNumber); //
// 返回显示的浮点数 //
double DisplayToNumber(HWND hWnd); //
// 对两个操作数做加减乘除运算，返回运算结果 //
double CalcIt(double dwLeftNum, UINT uOperation, double dwRightNum); //
// 显示区清屏 //
void Clear(HWND hWnd); //
// 显示当前运算符 //
void SetOperator(HWND hWnd, UINT uOperator); //
// 显示记忆标志 //
void SetMemoSign(HWND hWnd, BOOL bSet); //
//////////////////////////////////////////////////////////////////////////
这里就是这个minicale中用到的一些函数了，可以看到比DFA那个图中的要实际一些，包括下面几个类别
1. 主函数，程序入口 MiNiDFA
2. 数据运算 CalcIt
3. 对当前数据的增加，删除，修改 AppendNumber，BackSpace，ChangeSign
4. 显示存储数据 ShowNumbe，DisplayToNumber，SetOperator，SetMemoSign
5. 其它 Clear
其实只有前面三个比较重要，后面两个不一定需要成为函数。
下面从细节到整体分析程序
//AppendNumber 追加显示数字
// hWnd 编辑控件所在窗口句柄
// ch 读取的数字或小数点
void AppendNumber(HWND hWnd, TCHAR ch)
{
TCHAR szBuffer[40], // 用于接收当前显示数字串
szAppend[2] = {'0', '/0'}; // szAppend[0] 为要添加的数字字符
GetWindowText(GetDlgItem(hWnd, IDC_EDITDISPLAY), szBuffer, 30);
szAppend[0] = ch;
strcat(szBuffer, szAppend);
SetWindowText(GetDlgItem(hWnd, IDC_EDITDISPLAY), szBuffer);
} //
函数平淡无奇，但是给我编写操作系统的提示是需要有类似于GetWindowText,SetWindowText,和GetDlgitem之类的在class和View 之间传递消息的函数，我认为这是很合理的。
//BackSpace 退格，删去显示中的一位
// hWnd 编辑控件所在窗口句柄
void BackSpace(HWND hWnd)
{
TCHAR szBuffer[40]; // 用于接收当前显示数字串
int length;
length = GetWindowText(GetDlgItem(hWnd, IDC_EDITDISPLAY), szBuffer, 30);
szBuffer[length - 1] = '/0';
}
//ChangeSign 改变符号
// hWnd 编辑控件所在窗口句柄
void ChangeSign(HWND hWnd)
{
TCHAR szBuffer[40]; // 当前显示数字串
int length;
length = GetWindowText(GetDlgItem(hWnd, IDC_EDITDISPLAY), szBuffer, 30);
if(TEXT('0') == szBuffer[0])
return; //无数，所以不变
if(TEXT('-') == szBuffer[0]) // 负数
szBuffer[0] = TEXT(' ');
else // 正数 ,它的length被减小了1
{
strrev(szBuffer);
if(TEXT(' ') == szBuffer[length - 1])
length -= 1;
szBuffer[length] = TEXT('-');
szBuffer[length + 1] = TEXT('/0');
strrev(szBuffer);
}
SetWindowText(GetDlgItem(hWnd, IDC_EDITDISPLAY), szBuffer);
}
计算函数
double CalcIt(double dwLeftNum, UINT uOperation, double dwRightNum)
{
switch (uOperation)
{
case '+': return dwLeftNum + dwRightNum ;
case '-': return dwLeftNum - dwRightNum ;
case '*': return dwLeftNum * dwRightNum ;
case '/': return dwLeftNum / dwRightNum;
default: return 0;
}
}
下面是这个程序的核心，其实就是将那个图程序化的一个东西：计算器的确定有穷自动机(DFA)模拟函数
//MiNiDfa 计算器的确定有穷自动机(DFA)模拟函数
// hWnd 主窗口句柄
// uInput 读取的输入符号
// 状态的转换 (一个状态)-输入->(另一状态)
void MiniDFA(HWND hWnd, UINT uInput)
{
static UINT uState = 0, uOperator = '='; // 状态，运算符
static double dwLeftNum = 0, dwRightNum = 0; // 左右操作数
static double dwMemo = 0; // 保存一个数的空间
static UINT uIntegralCount = 0, // 整数位数计数器
uDecCount = 0; // 小数位数计数器
// 在各状态下BackSpace, CE, C, MC, MR, MS, M+, SQRT, %, 1 / X， + / -
// 的处理较为统一, 所以先行处理以简化后面DFA主体的设计
switch(uInput)
{
………………………………
// DFA主体代码
// (OneState)-input->(AnotherState)
switch(uState)
{
case 0:
switch(uInput)
{
case '0':
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9':
uIntegralCount = 1;
Clear(hWnd);
AppendNumber(hWnd, uInput);
uState = 1; // (0)-num->(1)
break;
case '.':
uIntegralCount = 0; // 整数位计数器归零
Clear(hWnd);
AppendNumber(hWnd, '0'), AppendNumber(hWnd, '.'); // 显示"0."
uState = 2; // (0)-dot->(2)
break;
case '+':
case '-':
case '*':
case '/':
uIntegralCount = 0; // 整数位计数器归零
uOperator = uInput;
SetOperator(hWnd, uOperator);
uState = 3; // (0)-op->(3)
break;
}
break;
// 其它的都是trival，不可能实现的。
case 1:
switch(uInput)
{
case '0':
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9':
uIntegralCount ++;
AppendNumber(hWnd, uInput);
uState = 1; // (1)-num->(1)
break;
case '.':
AppendNumber(hWnd, '.');
uState = 2; // (1)-dot->(2)
break;
case '+':
case '-':
case '*':
case '/':
dwLeftNum = DisplayToNumber(hWnd);
uOperator = uInput;
SetOperator(hWnd, uOperator);
uState = 3; // (1)-op->(3)
break;
}
break;
case 2:
switch(uInput)
{
case '0':
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9':
uDecCount++;
AppendNumber(hWnd, uInput);
uState = 2; // (2)-num->(2)
break;
case '+':
case '-':
case '*':
case '/':
uDecCount = 0; // 小数位计数器归零
dwLeftNum = DisplayToNumber(hWnd);
uOperator = uInput;
SetOperator(hWnd, uOperator);
uState = 3; // (2)-op->(3)
break;
}
break;
case 3:
switch(uInput)
{
case '0':
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9':
uIntegralCount = 1;
Clear(hWnd);
AppendNumber(hWnd, uInput);
uState = 4; // (3)-num->(4)
break;
case '.':
uIntegralCount = 0; // 整数位计数器归零
Clear(hWnd);
AppendNumber(hWnd, '0'), AppendNumber(hWnd, '.'); // 显示"0."
uState = 5; // (3)-dot->(5)
break;
case '+':
case '-':
case '*':
case '/':
uIntegralCount = 0; // 整数位计数器归零
uOperator = uInput;
SetOperator(hWnd, uOperator);
uState = 3; // (3)-op->(3)
break;
}
break;
case 4:
switch(uInput)
{
case '0':
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9':
uIntegralCount ++;
AppendNumber(hWnd, uInput);
uState = 4; // (4)-num->(4)
break;
case '.':
AppendNumber(hWnd, '.');
uState = 5; // (4)-dot->(5)
break;
case '+':
case '-':
case '*':
case '/':
uIntegralCount = 0; // 整数位计数器归零
dwRightNum = DisplayToNumber(hWnd);
dwLeftNum = CalcIt(dwLeftNum, uOperator, dwRightNum);
ShowNumber(hWnd, dwLeftNum);
uOperator = uInput;
SetOperator(hWnd, uOperator);
uState = 3; // (4)-op->(3)
break;
case '=':
uIntegralCount = 0; // 整数位计数器归零
dwRightNum = DisplayToNumber(hWnd);
dwLeftNum = CalcIt(dwLeftNum, uOperator, dwRightNum);
ShowNumber(hWnd, dwLeftNum);
uOperator = '=';
SetOperator(hWnd, ' ');
uState = 0; // (4)-op->(0) ，接受状态
break;
}
break;
case 5:
switch(uInput)
{
case '0':
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9':
uDecCount++;
AppendNumber(hWnd, uInput);
uState = 5; // (5)-num->(5)
break;
case '+':
case '-':
case '*':
case '/':
uIntegralCount = 0; // 整数位计数器归零
uDecCount = 0; // 小数位计数器归零
dwRightNum = DisplayToNumber(hWnd);
dwLeftNum = CalcIt(dwLeftNum, uOperator, dwRightNum);
ShowNumber(hWnd, dwLeftNum);
uOperator = uInput;
SetOperator(hWnd, uOperator);
uState = 3; // (5)-op->(3)
break;
case '=':
uIntegralCount = 0; // 整数位计数器归零
uDecCount = 0; // 小数位计数器归零
dwRightNum = DisplayToNumber(hWnd);
dwLeftNum = CalcIt(dwLeftNum, uOperator, dwRightNum);
ShowNumber(hWnd, dwLeftNum);
uOperator = '=';
SetOperator(hWnd, ' ');
uState = 0; // (5)-op->(0)
break;
}
break;
}
}
结合使用yacc和lex生成一个复杂的计算器
光是学习yacc就很头疼，但是谁叫它那么有用了，是吧，所以所有努力都是值得的。首先说一下为什么在复杂的情况下DFA失去作用。最为显著的就是括号，这种需要前后匹配的东西，如果采取类似DFA的方法，构造一个DFA，可能是类似于下面这个样子：
其中符号的含义：
圆圈：状态 （同心圆代表接受状态）
箭头：状态的转换方向
num: 输入数字
dot: 输入小数点
( 和 ): 输入括号
op: 输入运算符号 （+、 -、 *、 /）
=： 输入等于号
I ： 括号计数器
那么会存在这个问题，那就是形如 (1+2+(3+4)) 的嵌套的式子的时候，在处理中间一个式子的时候，需要对前面的计算值和符号做保存，而由于嵌套的层数未知，所以这里无法控制，需要用更强的上下文无关文法作为编程思想。
在编译原理(陈意云)的100页就提供了一个计算器的yacc代码，我现在了解到yacc是可以直接嵌入vc6的，既然是这样，就可以更好地将代码移植过去。对这方面的知识我进行了学习后积累了以下知识：
扫一扫
3210
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
