?? fc-interactive.cpp
字號:
MessageBox("錯誤的 FCR 中間代碼文件！","FC 2.2",MB_OK|MB_ICONEXCLAMATION);
return;
}
else
{
if(buf[3]<20)
{
MessageBox("未知的 FCR 中間代碼文件版本！","FC 2.2",MB_OK|MB_ICONEXCLAMATION);
return;
}
else if(buf[3]<22)
{
MessageBox("不兼容的 FCR 中間代碼文件版本！","FC 2.2",MB_OK|MB_ICONEXCLAMATION);
return;
}
if(buf[3]>22)
{
MessageBox(
"無法打開 "+FileName+" !\n請使用高版本的 FCR 解釋器解釋執(zhí)行 "+FileName+" .",
"FC 2.2",MB_OK|MB_ICONEXCLAMATION);
return;
}
}
fin.Read(&m_iCode,4);
for(i=0;i<m_iCode;i++)
{
fin.Read(&ch,sizeof(char));
m_code[i].op=(ZOperator)ch;
switch(m_code[i].op)
{
case OP_OUTPUTS://不定長字符串
fin.Read(&t,4);
m_code[i].sd.string=new char[t+1];
fin.Read(m_code[i].sd.string,t);
m_code[i].sd.string[t]='\0';
break;
case OP_LOADCONSTD://8字節(jié)*1
fin.Read(&m_code[i].sd.dNumber,sizeof(double));
break;
case OP_PARAMTRANSD:case OP_PARAMTRANSI://8字節(jié)*2
fin.Read(&m_code[i].sd.iNumber,sizeof(int));
fin.Read(&m_code[i].sd.nParam,sizeof(int));
break;
case OP_JUMPC:case OP_JUMP:case OP_LOADCONSTI:
case OP_LOADVARI:case OP_LOADVARD:case OP_SAVEI:
case OP_SAVED:case OP_INPUTI:case OP_INPUTD:
case OP_RETURNI:case OP_RETURND:case OP_RETURN:
case OP_NULL:case OP_I2D:case OP_D2I:
case OP_CALL:case OP_NEWARRAYI:case OP_NEWARRAYD:
case OP_SAVEARRAYI:case OP_SAVEARRAYD:
case OP_LOADARRAYI:case OP_LOADARRAYD:
case OP_DELARRAYI:case OP_DELARRAYD:
case OP_INPUTARRAYI:case OP_INPUTARRAYD://4字節(jié)*26
fin.Read(&m_code[i].sd.iNumber,sizeof(int));
break;
/*
case OP_COPYI:case OP_COPYD:case OP_DELETE:
case OP_EXIT:case OP_AND:case OP_OR:
case OP_NOT:case OP_OUTPUTI:case OP_OUTPUTD:
case OP_CHANGESIGNALI:case OP_CHANGESIGNALD:
case OP_PLUSI:case OP_PLUSD:case OP_MINUSI:
case OP_MINUSD:case OP_TIMESI:case OP_TIMESD:
case OP_SLASHI:case OP_SLASHD:case OP_MOD:
case OP_EQUALI:case OP_EQUALD:case OP_NOTEQUALI:
case OP_NOTEQUALD:case OP_LESSI:case OP_LESSD:
case OP_LESSEQUALI:case OP_LESSEQUALD:
case OP_GREATI:case OP_GREATD:case OP_GREATEQUALI:
case OP_GREATEQUALD://0字節(jié)*29
break;//*/
}
}
fin.Close();
SetWindowText("FC 2.2 解釋器 - "+FileName);
m_bCompiled=TRUE;
m_iErrorCount=0;
m_strEdit="";
UpdateData(FALSE);
}
void CFCDlg::On_OpenSource()
{
if(!m_bSaved)
{
CString message;
if(m_strFile=="")
message="源代碼沒有保存，要保存嗎？";
else
message=m_strFile+" 的內(nèi)容已經(jīng)改變，要保存嗎？";
switch(MessageBox(message,"FC 2.2",MB_YESNOCANCEL|MB_ICONQUESTION))
{
case IDYES:
On_SaveSource();
break;
case IDNO:
break;
case IDCANCEL:
return;
}
}
CFileDialog dlg(TRUE,"txt",m_strFile,
OFN_HIDEREADONLY|OFN_OVERWRITEPROMPT,
"文本文件 (*.txt)|*.txt|任意文件 (*.*)|*.*||");
if(dlg.DoModal()!=IDOK)
return;
m_strFile=dlg.GetFileName();
m_strEdit="";
CFile fin(m_strFile,CFile::modeRead);
char buf[1025];
int length;
do
{
length=fin.Read(buf,1024);
buf[length]='\0';
m_strEdit+=buf;
}
while(length==1024);
fin.Close();
SetWindowText("FC 2.2 - "+m_strFile);
m_bSaved=TRUE;
}
void CFCDlg::On_SaveAbout()
{
CString FileName;
GetWindowText(FileName);
CFileDialog dlg(FALSE,"txt",FileName+".txt",
OFN_HIDEREADONLY|OFN_OVERWRITEPROMPT,
"文本文件 (*.txt)|*.txt|任意文件 (*.*)|*.*||");
if(dlg.DoModal()!=IDOK)
return;
FileName=dlg.GetFileName();
CFile fout(FileName,CFile::modeWrite|CFile::modeCreate);
fout.Write(m_strEdit,m_strEdit.GetLength());
fout.Close();
}
void CFCDlg::On_SaveAsSource()
{
CFileDialog dlg(FALSE,"txt",m_strFile,
OFN_HIDEREADONLY|OFN_OVERWRITEPROMPT,
"文本文件 (*.txt)|*.txt|任意文件 (*.*)|*.*||");
if(dlg.DoModal()!=IDOK)
return;
m_strFile=dlg.GetFileName();
CFile fout(m_strFile,CFile::modeWrite|CFile::modeCreate);
fout.Write(m_strEdit,m_strEdit.GetLength());
fout.Close();
SetWindowText("FC 2.2 - "+m_strFile);
m_bSaved=TRUE;
}
void CFCDlg::On_SaveCode()
{
if(!m_bCompiled)
return;
int i,t;
char ch;
CString FileName;
for(i=m_strFile.GetLength()-1;i>=0;i--)
if(m_strFile[i]=='.' || m_strFile[i]=='\\' || m_strFile[i]=='/')
break;
if(i<0)
FileName=m_strFile;
else if(m_strFile[i]=='.')
FileName=m_strFile.Left(i);
else
FileName=m_strFile;
CFileDialog dlg(FALSE,"fcr",FileName+".fcr",
OFN_HIDEREADONLY|OFN_OVERWRITEPROMPT,
"FC中間代碼文件 (*.fcr)|*.fcr||");
if(dlg.DoModal()!=IDOK)
return;
FileName=dlg.GetFileName();
CFile fout(FileName,CFile::modeCreate|CFile::modeWrite);
char buf[5]="FCR ";
buf[3]=(char)22;//版本2.2
fout.Write(buf,4);
fout.Write(&m_iCode,4);
for(i=0;i<m_iCode;i++)
{
ch=(char)m_code[i].op;
fout.Write(&ch,sizeof(char));
switch(m_code[i].op)
{
case OP_OUTPUTS://不定長字符串
t=(int)strlen(m_code[i].sd.string);
fout.Write(&t,4);
fout.Write(m_code[i].sd.string,t);
break;
case OP_LOADCONSTD://8字節(jié)*1
fout.Write(&m_code[i].sd.dNumber,sizeof(double));
break;
case OP_PARAMTRANSD:case OP_PARAMTRANSI://8字節(jié)*2
fout.Write(&m_code[i].sd.iNumber,sizeof(int));
fout.Write(&m_code[i].sd.nParam,sizeof(int));
break;
case OP_JUMPC:case OP_JUMP:case OP_LOADCONSTI:
case OP_LOADVARI:case OP_LOADVARD:case OP_SAVEI:
case OP_SAVED:case OP_INPUTI:case OP_INPUTD:
case OP_RETURNI:case OP_RETURND:case OP_RETURN:
case OP_NULL:case OP_I2D:case OP_D2I:
case OP_CALL:case OP_NEWARRAYI:case OP_NEWARRAYD:
case OP_SAVEARRAYI:case OP_SAVEARRAYD:
case OP_LOADARRAYI:case OP_LOADARRAYD:
case OP_DELARRAYI:case OP_DELARRAYD:
case OP_INPUTARRAYI:case OP_INPUTARRAYD://4字節(jié)*26
fout.Write(&m_code[i].sd.iNumber,sizeof(int));
break;
/*
case OP_COPYI:case OP_COPYD:case OP_DELETE:
case OP_EXIT:case OP_AND:case OP_OR:
case OP_NOT:case OP_OUTPUTI:case OP_OUTPUTD:
case OP_CHANGESIGNALI:case OP_CHANGESIGNALD:
case OP_PLUSI:case OP_PLUSD:case OP_MINUSI:
case OP_MINUSD:case OP_TIMESI:case OP_TIMESD:
case OP_SLASHI:case OP_SLASHD:case OP_MOD:
case OP_EQUALI:case OP_EQUALD:case OP_NOTEQUALI:
case OP_NOTEQUALD:case OP_LESSI:case OP_LESSD:
case OP_LESSEQUALI:case OP_LESSEQUALD:
case OP_GREATI:case OP_GREATD:case OP_GREATEQUALI:
case OP_GREATEQUALD://0字節(jié)*29
break;//*/
}
}
fout.Close();
SetWindowText("FC 2.2 解釋器 - "+FileName);
}
void CFCDlg::On_SaveResult()
{
CString FileName;
for(int i=m_strFile.GetLength()-1;i>=0;i--)
if(m_strFile[i]=='.' || m_strFile[i]=='\\' || m_strFile[i]=='/')
break;
if(i<0)
FileName=m_strFile;
else if(m_strFile[i]=='.')
FileName=m_strFile.Left(i);
else
FileName=m_strFile;
FileName+=" 運行結(jié)果.txt";
CFileDialog dlg(FALSE,"txt",FileName,
OFN_HIDEREADONLY|OFN_OVERWRITEPROMPT,
"文本文件 (*.txt)|*.txt|任意文件 (*.*)|*.*||");
if(dlg.DoModal()!=IDOK)
return;
FileName=dlg.GetFileName();
CFile fout(FileName,CFile::modeWrite|CFile::modeCreate);
fout.Write(m_strEdit,m_strEdit.GetLength());
fout.Close();
}
void CFCDlg::On_SaveSource()
{
if(m_strFile=="")
{
CFileDialog dlg(FALSE,"txt",m_strFile,
OFN_HIDEREADONLY|OFN_OVERWRITEPROMPT,
"文本文件 (*.txt)|*.txt|任意文件 (*.*)|*.*||");
if(dlg.DoModal()!=IDOK)
return;
m_strFile=dlg.GetFileName();
SetWindowText("FC 2.2 - "+m_strFile);
}
CFile fout(m_strFile,CFile::modeWrite|CFile::modeCreate);
fout.Write(m_strEdit,m_strEdit.GetLength());
fout.Close();
SetWindowText("FC 2.2 - "+m_strFile);
m_bSaved=TRUE;
}
void CFCDlg::On_Translate()
{
if(!m_bSaved)
{
CString message="翻譯前要進行語法檢查。";
if(m_strFile=="")
message+="源代碼沒有保存，要保存嗎？";
else
message+=m_strFile+" 的內(nèi)容已經(jīng)改變，要保存嗎？";
switch(MessageBox(message,"FC 2.2",MB_YESNOCANCEL|MB_ICONQUESTION))
{
case IDYES:
On_SaveSource();
break;
case IDNO:
break;
case IDCANCEL:
return;
}
}
m_source=m_strEdit;
m_SourceLength=m_source.GetLength();
m_iStatus=4;
m_strEdit="";
((CEdit*)GetDlgItem(IDC_EDIT))->SetReadOnly(TRUE);
GetDlgItem(IDB_OPEN)->ShowWindow(SW_HIDE);
GetDlgItem(IDB_SAVE)->ShowWindow(SW_HIDE);
GetDlgItem(IDB_SAVE_AS)->ShowWindow(SW_HIDE);
GetDlgItem(IDB_RUN)->ShowWindow(SW_HIDE);
GetDlgItem(IDB_CLEAR)->ShowWindow(SW_HIDE);
GetDlgItem(IDC_STATIC_PRECISION)->ShowWindow(SW_HIDE);
GetDlgItem(IDC_PRECISION)->ShowWindow(SW_HIDE);
GetDlgItem(IDC_POSITION)->ShowWindow(SW_HIDE);
GetDlgItem(IDB_SET_POSITION)->ShowWindow(SW_HIDE);
GetDlgItem(IDB_TRANSLATE)->ShowWindow(SW_HIDE);
GetDlgItem(IDB_ABOUT_EDIT)->ShowWindow(SW_HIDE);
GetDlgItem(IDB_ABOUT_GRM)->ShowWindow(SW_HIDE);
GetDlgItem(ID_APP_ABOUT)->ShowWindow(SW_HIDE);
GetDlgItem(IDCANCEL)->SetWindowText("返回");
if(m_strFile=="")
SetWindowText("FC 2.2 編譯器");
else
SetWindowText("FC 2.2 編譯器 - "+m_strFile);
if(Compile())
m_bCompiled=TRUE;
if(m_iStatus==4)
{
On_ExitTranslate();
UpdateData(FALSE);
if(m_bCompiled && m_iErrorCount==0)
Translate();
else
{
CString message;
message.Format("源代碼中發(fā)現(xiàn) %d 處錯誤，無法翻譯為C++語言，請修正源代碼\r\n",m_iErrorCount);
MessageBox(message,"FC 2.2",MB_OK|MB_ICONEXCLAMATION);
}
}
}
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -