=================================================================== RCS file: /home/cvs/OpenXM_contrib2/windows/asir32gui/asir32guiview.cpp,v retrieving revision 1.1.1.1 retrieving revision 1.28 diff -u -p -r1.1.1.1 -r1.28 --- OpenXM_contrib2/windows/asir32gui/asir32guiview.cpp 2000/11/22 06:14:29 1.1.1.1 +++ OpenXM_contrib2/windows/asir32gui/asir32guiview.cpp 2013/08/07 07:54:16 1.28 @@ -7,6 +7,8 @@ #include "asir32guiDoc.h" #include "asir32guiView.h" #include "FatalDialog.h" +#include +#include #ifdef _DEBUG #define new DEBUG_NEW @@ -14,9 +16,8 @@ static char THIS_FILE[] = __FILE__; #endif -const WindowHeight = 200; -const WindowWidth = 400; -const TextBufferSize = 32768; +// const TextBufferSize = 32768; +const int TextBufferSize = 16384; CAsir32guiView *theView; @@ -32,9 +33,10 @@ void loadfile(char *); void put_line(char *); void send_intr(void); void insert_to_theView(char *); -void get_rootdir(char *,int,char *); +BOOL get_rootdir(char *,int,char *); extern int bigfloat, prtime, prresult; extern char *asir_libdir; +extern int asirgui_kind; void insert_to_theView(char *str) { @@ -63,6 +65,25 @@ BEGIN_MESSAGE_MAP(CAsir32guiView, CEditView) ON_COMMAND(ID_ASIRHELP, OnAsirhelp) ON_UPDATE_COMMAND_UI(ID_FILE_LOG, OnUpdateFileLog) 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) @@ -77,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() @@ -162,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++; } @@ -180,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]; @@ -221,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); @@ -234,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 ) { @@ -277,30 +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 ( OpenClipboard() == FALSE ) { - Beep(); return; + if ( asirgui_kind == ASIRGUI_MESSAGE ) { + 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 @@ -339,7 +376,13 @@ void CAsir32guiView::OnChar(UINT nChar, UINT nRepCnt, { // TODO: この位置にメッセージ ハンドラ用のコードを追加するかまたはデフォルトの処理を呼び出してください char *exp_result; + char tmp[BUFSIZ]; + int i; + if ( asirgui_kind == ASIRGUI_MESSAGE ) { + Beep(); return; + } + switch ( nChar ) { case CTRL('M'): case CTRL('J'): UpdateCursor(EndPos); @@ -395,8 +438,13 @@ 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; + case CTRL('Y'): + Paste(); return; + case CTRL('I'): + return; default : if ( nChar >= 0x20 && nChar < 0x7f ) PutChar(nChar); @@ -427,8 +475,17 @@ void CAsir32guiView::OnFileOpen() // TODO: この位置にコマンド ハンドラ用のコードを追加してください char cmd[BUFSIZ*2]; // XXX char *p; + static char errmsg[BUFSIZ]; + static char prevdir[BUFSIZ]; + if ( !prevdir[0] ) { + get_rootdir(prevdir,sizeof(prevdir),errmsg); + strcat(prevdir,"\\lib"); + } + + _chdir(prevdir); CFileDialog fileDialog(TRUE); + fileDialog.m_ofn.lpstrInitialDir = prevdir; if ( fileDialog.DoModal() == IDOK ) { CString pathName = fileDialog.GetPathName(); sprintf(cmd,"load(\"%s\");",pathName); @@ -436,17 +493,40 @@ void CAsir32guiView::OnFileOpen() if ( *p == '\\' ) *p = '/'; put_line(cmd); + strcpy(cmd,pathName); + p = strrchr(cmd,'\\'); + if ( p ) { + *p = 0; + 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() @@ -485,4 +565,191 @@ void CAsir32guiView::OnEditPaste() { // TODO: この位置にコマンド ハンドラ用のコードを追加してください 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_PTR ret; + 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); + if ( f ) + delete f; + f = new CFont; + f->CreateFontIndirect(&lf); + SetFont(f); + UpdateMetrics(); + } +} + +int CAsir32guiView::OnCreate(LPCREATESTRUCT lpCreateStruct) +{ + if (CEditView::OnCreate(lpCreateStruct) == -1) + return -1; + + // TODO: この位置に固有の作成用コードを追加してください + + LOGFONT logFont; memset(&logFont, 0, sizeof(LOGFONT)); + logFont.lfHeight = 20; + logFont.lfCharSet = DEFAULT_CHARSET; + strcpy(logFont.lfFaceName, "Terminal"); + CFont *f = new CFont; + f->CreateFontIndirect(&logFont); + SetFont(f); + UpdateMetrics(); + GetEditCtrl().LimitText(nMaxSize); + 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 = NULL; + char *temp; + char rootdir[BUFSIZ], errmsg[BUFSIZ], hndname[_MAX_PATH]; + + if (get_rootdir(rootdir, BUFSIZ, errmsg)) { + sprintf(hndname, "%s\\bin\\asirgui.hnd", rootdir); + fp = fopen(hndname,"w"); + if ( fp ) { + fprintf(fp,"%d",(unsigned int)theView->m_hWnd); + fclose(fp); + } + } + if ( temp = getenv("TEMP") ) { + sprintf(hndname,"%s\\asirgui.hnd", temp); + fp = fopen(hndname,"w"); + if ( fp ) { + fprintf(fp,"%d",(unsigned int)theView->m_hWnd); + fclose(fp); + } + } + return ret; }