=================================================================== RCS file: /home/cvs/OpenXM_contrib2/windows/asir32gui/asir32guiview.cpp,v retrieving revision 1.3 retrieving revision 1.25 diff -u -p -r1.3 -r1.25 --- OpenXM_contrib2/windows/asir32gui/asir32guiview.cpp 2001/04/02 01:03:31 1.3 +++ OpenXM_contrib2/windows/asir32gui/asir32guiview.cpp 2012/03/10 01:09:15 1.25 @@ -8,6 +8,7 @@ #include "asir32guiView.h" #include "FatalDialog.h" #include +#include #ifdef _DEBUG #define new DEBUG_NEW @@ -15,7 +16,8 @@ static char THIS_FILE[] = __FILE__; #endif -const TextBufferSize = 32768; +// const TextBufferSize = 32768; +const int TextBufferSize = 16384; CAsir32guiView *theView; @@ -65,6 +67,23 @@ BEGIN_MESSAGE_MAP(CAsir32guiView, CEditView) ON_COMMAND(ID_EDIT_PASTE, OnEditPaste) ON_COMMAND(IDR_FONT, OnFont) ON_WM_CREATE() + ON_COMMAND(ID_CONTRIBHELP, OnContribhelp) + ON_WM_SIZE() + ON_COMMAND(ID_DSOLV, OnDsolv) + ON_COMMAND(ID_GNUPLOT, OnGnuplot) + ON_COMMAND(ID_OKDIFF, OnOkdiff) + ON_COMMAND(ID_OKDMODULE, OnOkdmodule) + ON_COMMAND(ID_OM, OnOm) + ON_COMMAND(ID_PFPCOH, OnPfpcoh) + ON_COMMAND(ID_PLUCKER, OnPlucker) + ON_COMMAND(ID_SM1, OnSm1) + ON_COMMAND(ID_TIGERS, OnTigers) + ON_COMMAND(ID_TODOPARAMETRIZE, OnTodoparametrize) + ON_COMMAND(ID_NOROMATRIX, OnNoromatrix) + ON_COMMAND(ID_NOROMWL, OnNoromwl) + ON_COMMAND(ID_NNNDBF, OnNnndbf) + ON_COMMAND(ID_NOROPD, OnNoropd) + ON_COMMAND(ID_NSTWLG, OnNstwistedlog) //}}AFX_MSG_MAP // 標準印刷コマンド // ON_COMMAND(ID_FILE_PRINT, CEditView::OnFilePrint) @@ -79,18 +98,21 @@ CAsir32guiView::CAsir32guiView() { // TODO: この場所に構築用のコードを追加してください。 static int tmpView_created = 0; - char errmsg[BUFSIZ]; init_input_history(); read_input_history(); DebugMode = 0; DebugInMain = 0; - MaxLineLength = 80; +// MaxLineLength = 80; LogStart = 0; Logging = 0; Logfp = NULL; ResetIndex(); theView = this; +#if _MSC_VER > 1300 + /* VS2003.NET or later */ + (AfxGetApp())->EnableHtmlHelp(); +#endif } CAsir32guiView::~CAsir32guiView() @@ -164,14 +186,21 @@ CAsir32guiDoc* CAsir32guiView::GetDocument() // 非デバ void CAsir32guiView::PutChar(int c) { - int i; + int i,len; char buf[2]; + if ( EndPos >= sizeof(Buffer)-1 ) { + Beep(); return; + } for ( i = EndPos-1; i >= CurrentPos; i-- ) - Buffer[i+1] = Buffer[i]; + Buffer[i+1] = Buffer[i]; Buffer[CurrentPos] = (char)c; - buf[0] = (char)c; buf[1] = 0; - Insert(buf,FALSE); +// buf[0] = (char)c; buf[1] = 0; +// Insert(buf,FALSE); + len = GetWindowTextLength(); + if ( len+1 >= TextBufferSize ) + DeleteTop(); + CEditView::OnChar(c, 1, 0); CurrentPos++; EndPos++; } @@ -182,9 +211,7 @@ void CAsir32guiView::DeleteChar(int count) { if ( count > (EndPos-CurrentPos) ) count = EndPos - CurrentPos; - if ( count == 0 ) - Beep(); - else { + if ( count > 0 ) { EndPos -= count; for ( i = CurrentPos; i < EndPos; i++ ) Buffer[i] = Buffer[i+count]; @@ -223,7 +250,7 @@ void CAsir32guiView::DeleteTop() const char *p,*q; const char *buf; char null = 0; - int len,len0,len1; + int len,len0; buf = LockBuffer(); len0 = len = strlen(buf); @@ -236,12 +263,12 @@ void CAsir32guiView::DeleteTop() } } if ( Logging ) { - len1 = (len0 - len - LogStart); - if ( len1 > 0 ) { - fwrite(buf+LogStart,1,len1,Logfp); - LogStart = 0; - } else - LogStart = -len1; + if ( len < LogStart ) + LogStart -= len; + else { + fwrite(buf+LogStart,1,len-LogStart,Logfp); + LogStart = 0; + } } UnlockBuffer(); if ( q ) { @@ -279,34 +306,38 @@ void CAsir32guiView::Beep(void) { } void CAsir32guiView::Paste(void) { - char buf[2*BUFSIZ]; - const char *src; - char c; - int i,j,l; - HGLOBAL hClip; + char buf[2*BUFSIZ]; + const char *src; + char c; + int i,j,l; + HGLOBAL hClip; - if ( asirgui_kind == ASIRGUI_MESSAGE ) { - Beep(); return; - } + if ( asirgui_kind == ASIRGUI_MESSAGE ) { + Beep(); return; + } - if ( OpenClipboard() == FALSE ) { - Beep(); return; + if ( OpenClipboard() == FALSE ) { + Beep(); return; } hClip = GetClipboardData(CF_TEXT); src = (const char *)::GlobalLock(hClip); - if ( !src || (l = strlen(src)) >= 2*BUFSIZ ) { + if ( !src || (l=strlen(src)) >= sizeof(Buffer)-EndPos ) { ::CloseClipboard(); Beep(); return; } - for ( i = j = 0; i < l; i++ ) - if ( (c = src[i]) != '\n' && c != '\r' ) - buf[j++] = c; - buf[j] = 0; + for ( i = j = 0; i < l; i++ ) + if ( (c = src[i]) != '\n' && c != '\r' ) + buf[j++] = c; + buf[j] = 0; ::GlobalUnlock(hClip); ::CloseClipboard(); GetEditCtrl().ReplaceSel(buf); - strncpy(Buffer+EndPos,buf,j); - EndPos += j; CurrentPos = EndPos; + l = strlen(buf); + for ( i = EndPos-1; i >= CurrentPos; i-- ) + Buffer[i+l] = Buffer[i]; + for ( j = 0, i = CurrentPos; j < l; j++, i++ ) + Buffer[i] = buf[j]; + EndPos += l; CurrentPos += l; } #define CTRL(c) (c)&0x1f @@ -345,6 +376,7 @@ void CAsir32guiView::OnChar(UINT nChar, UINT nRepCnt, { // TODO: この位置にメッセージ ハンドラ用のコードを追加するかまたはデフォルトの処理を呼び出してください char *exp_result; + char tmp[BUFSIZ]; if ( asirgui_kind == ASIRGUI_MESSAGE ) { Beep(); return; @@ -405,7 +437,8 @@ void CAsir32guiView::OnChar(UINT nChar, UINT nRepCnt, case CTRL('C'): send_intr(); /* wake up the engine */ - put_line(""); + tmp[0] = 0; + put_line(tmp); return; default : if ( nChar >= 0x20 && nChar < 0x7f ) @@ -447,6 +480,7 @@ void CAsir32guiView::OnFileOpen() _chdir(prevdir); CFileDialog fileDialog(TRUE); + fileDialog.m_ofn.lpstrInitialDir = prevdir; if ( fileDialog.DoModal() == IDOK ) { CString pathName = fileDialog.GetPathName(); sprintf(cmd,"load(\"%s\");",pathName); @@ -454,22 +488,40 @@ void CAsir32guiView::OnFileOpen() if ( *p == '\\' ) *p = '/'; put_line(cmd); - p = strrchr(pathName,'\\'); + strcpy(cmd,pathName); + p = strrchr(cmd,'\\'); if ( p ) { *p = 0; - strcpy(prevdir,pathName); + strcpy(prevdir,cmd); } } } +void CAsir32guiView::viewHtmlHelp(char *help) +{ + char *helpfile; + char fmt[] = "%s\\help\\%shelp.chm"; + char root[BUFSIZ],errmsg[BUFSIZ]; + get_rootdir(root,sizeof(root),errmsg); + helpfile = (char *)malloc(sizeof(fmt) + strlen(root) + strlen(help)); + sprintf(helpfile,fmt,root,help); +#if _MSC_VER < 1300 + /* Visual C++ 6.0 */ + ::HtmlHelp(NULL, helpfile, HH_DISPLAY_TOPIC, 0); +#else + CWinApp *top = AfxGetApp(); + top->SetHelpMode(AFX_HELP_TYPE::afxHTMLHelp); + if (top->m_pszHelpFilePath) { + free((void*)top->m_pszHelpFilePath); + } + top->m_pszHelpFilePath = helpfile; + HtmlHelp(HH_DISPLAY_TOPIC, 0); +#endif +} void CAsir32guiView::OnAsirhelp() { // TODO: この位置にコマンド ハンドラ用のコードを追加してください - char root[BUFSIZ],errmsg[BUFSIZ],helpfile[BUFSIZ]; - - get_rootdir(root,sizeof(root),errmsg); - sprintf(helpfile,"%s\\bin\\asirhelp.chm",root); - HtmlHelp(NULL, helpfile, HH_DISPLAY_TOPIC, 0); + viewHtmlHelp("asir"); } void CAsir32guiView::OnFileLog() @@ -510,14 +562,28 @@ void CAsir32guiView::OnEditPaste() Paste(); } +void CAsir32guiView::UpdateMetrics() +{ + TEXTMETRIC tm; + RECT r; + + GetEditCtrl().GetRect(&r); + CDC *pDC = GetDC(); + pDC->SelectObject(GetFont()); + pDC->GetTextMetrics(&tm); + MaxLineLength = (r.right-r.left)/tm.tmAveCharWidth-1; +} + void CAsir32guiView::OnFont() { // TODO: この位置にコマンド ハンドラ用のコードを追加してください int ret; - CFontDialog fd(NULL,CF_EFFECTS | CF_SCREENFONTS | CF_FIXEDPITCHONLY); - static CFont *f = 0; LOGFONT lf; + GetFont()->GetLogFont(&lf); + CFontDialog fd(&lf,CF_EFFECTS | CF_SCREENFONTS | CF_FIXEDPITCHONLY); + static CFont *f = 0; + ret = fd.DoModal(); if ( ret == IDOK ) { fd.GetCurrentFont(&lf); @@ -526,6 +592,7 @@ void CAsir32guiView::OnFont() f = new CFont; f->CreateFontIndirect(&lf); SetFont(f); + UpdateMetrics(); } } @@ -535,7 +602,7 @@ int CAsir32guiView::OnCreate(LPCREATESTRUCT lpCreateSt return -1; // TODO: この位置に固有の作成用コードを追加してください - + LOGFONT logFont; memset(&logFont, 0, sizeof(LOGFONT)); logFont.lfHeight = 20; logFont.lfCharSet = DEFAULT_CHARSET; @@ -543,8 +610,139 @@ int CAsir32guiView::OnCreate(LPCREATESTRUCT lpCreateSt CFont *f = new CFont; f->CreateFontIndirect(&logFont); SetFont(f); + UpdateMetrics(); GetEditCtrl().LimitText(nMaxSize); - GetEditCtrl().SetTabStops(m_nTabStops); + GetEditCtrl().SetTabStops(m_nTabStops); return 0; +} + +void CAsir32guiView::OnContribhelp() +{ + // TODO: この位置にコマンド ハンドラ用のコードを追加してください + viewHtmlHelp("cman"); +} + +void CAsir32guiView::OnSize(UINT nType, int cx, int cy) +{ + CEditView::OnSize(nType, cx, cy); + + // TODO: この位置にメッセージ ハンドラ用のコードを追加してください + UpdateMetrics(); +} + +void CAsir32guiView::OnDsolv() +{ + // TODO: この位置にコマンド ハンドラ用のコードを追加してください + viewHtmlHelp("dsolv"); +} + +void CAsir32guiView::OnGnuplot() +{ + // TODO: この位置にコマンド ハンドラ用のコードを追加してください + viewHtmlHelp("gnuplot"); +} + +void CAsir32guiView::OnOkdiff() +{ + // TODO: この位置にコマンド ハンドラ用のコードを追加してください + viewHtmlHelp("ok_diff"); +} + +void CAsir32guiView::OnOkdmodule() +{ + // TODO: この位置にコマンド ハンドラ用のコードを追加してください + viewHtmlHelp("ok_dmodule"); +} + +void CAsir32guiView::OnOm() +{ + // TODO: この位置にコマンド ハンドラ用のコードを追加してください + viewHtmlHelp("om"); +} + +void CAsir32guiView::OnPfpcoh() +{ + // TODO: この位置にコマンド ハンドラ用のコードを追加してください + viewHtmlHelp("pfpcoh"); +} + +void CAsir32guiView::OnPlucker() +{ + // TODO: この位置にコマンド ハンドラ用のコードを追加してください + viewHtmlHelp("plucker"); +} + +void CAsir32guiView::OnSm1() +{ + // TODO: この位置にコマンド ハンドラ用のコードを追加してください + viewHtmlHelp("sm1"); +} + +void CAsir32guiView::OnTigers() +{ + // TODO: この位置にコマンド ハンドラ用のコードを追加してください + viewHtmlHelp("tigers"); +} + +void CAsir32guiView::OnTodoparametrize() +{ + // TODO: この位置にコマンド ハンドラ用のコードを追加してください + viewHtmlHelp("todo_parametrize"); +} + +void CAsir32guiView::OnNoromatrix() +{ + // TODO: この位置にコマンド ハンドラ用のコードを追加してください + viewHtmlHelp("noro_matrix"); +} + +void CAsir32guiView::OnNoromwl() +{ + // TODO: この位置にコマンド ハンドラ用のコードを追加してください + viewHtmlHelp("noro_mwl"); +} + +void CAsir32guiView::OnNoropd() +{ + // TODO: この位置にコマンド ハンドラ用のコードを追加してください + viewHtmlHelp("noro_pd"); +} + +void CAsir32guiView::OnNnndbf() +{ + // TODO: この位置にコマンド ハンドラ用のコードを追加してください + viewHtmlHelp("nn_ndbf"); +} + +void CAsir32guiView::OnNstwistedlog() +{ + // TODO: この位置にコマンド ハンドラ用のコードを追加してください + viewHtmlHelp("ns_twistedlog"); +} + +BOOL CAsir32guiView::Create(LPCTSTR lpszClassName, LPCTSTR lpszWindowName, DWORD dwStyle, const RECT& rect, CWnd* pParentWnd, UINT nID, CCreateContext* pContext) +{ + // TODO: この位置に固有の処理を追加するか、または基本クラスを呼び出してください + + BOOL ret = CWnd::Create(lpszClassName, lpszWindowName, dwStyle, rect, pParentWnd, nID, pContext); + FILE *fp = fopen("asirgui.hnd","w"); + char *temp; + + if ( fp ) { + fprintf(fp,"%d",(unsigned int)theView->m_hWnd); + fclose(fp); + if ( temp = getenv("TEMP") ) { + int len; + char *name; + + len = strlen(temp); + name = (char *)malloc(len+BUFSIZ); + sprintf(name,"%s\\asirgui.hnd",temp); + fopen(name,"w"); + fprintf(fp,"%d",(unsigned int)theView->m_hWnd); + fclose(fp); + } + } + return ret; }