=================================================================== RCS file: /home/cvs/OpenXM_contrib2/windows/asir32gui/asir32guiview.cpp,v retrieving revision 1.8 retrieving revision 1.31 diff -u -p -r1.8 -r1.31 --- OpenXM_contrib2/windows/asir32gui/asir32guiview.cpp 2002/09/12 03:12:56 1.8 +++ OpenXM_contrib2/windows/asir32gui/asir32guiview.cpp 2014/05/10 08:23:33 1.31 @@ -17,7 +17,7 @@ static char THIS_FILE[] = __FILE__; #endif // const TextBufferSize = 32768; -const TextBufferSize = 16384; +const int TextBufferSize = 16384; CAsir32guiView *theView; @@ -33,7 +33,8 @@ 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 *); +const char *get_helpdir(); extern int bigfloat, prtime, prresult; extern char *asir_libdir; extern int asirgui_kind; @@ -68,7 +69,22 @@ BEGIN_MESSAGE_MAP(CAsir32guiView, CEditView) ON_COMMAND(IDR_FONT, OnFont) ON_WM_CREATE() ON_COMMAND(ID_CONTRIBHELP, OnContribhelp) - ON_UPDATE_COMMAND_UI(ID_CONTRIBHELP, OnUpdateContribhelp) + 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) @@ -83,18 +99,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() @@ -193,9 +212,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]; @@ -234,7 +251,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); @@ -305,7 +322,7 @@ void CAsir32guiView::Paste(void) { } hClip = GetClipboardData(CF_TEXT); src = (const char *)::GlobalLock(hClip); - if ( !src || (l = strlen(src)) >= sizeof(Buffer) ) { + if ( !src || (l=strlen(src)) >= sizeof(Buffer)-EndPos ) { ::CloseClipboard(); Beep(); return; } @@ -315,12 +332,13 @@ void CAsir32guiView::Paste(void) { buf[j] = 0; ::GlobalUnlock(hClip); ::CloseClipboard(); - if ( EndPos+j >= sizeof(Buffer)-1 ) { - Beep(); return; - } 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 @@ -359,6 +377,8 @@ void CAsir32guiView::OnChar(UINT nChar, UINT nRepCnt, { // TODO: この位置にメッセージ ハンドラ用のコードを追加するかまたはデフォルトの処理を呼び出してください char *exp_result; + char tmp[BUFSIZ]; + int i; if ( asirgui_kind == ASIRGUI_MESSAGE ) { Beep(); return; @@ -419,8 +439,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); @@ -461,6 +486,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); @@ -468,22 +494,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\\%shelp.chm"; + const char *dir = get_helpdir(); + helpfile = (char *)malloc(sizeof(fmt) + strlen(dir) + strlen(help)); + sprintf(helpfile,fmt,dir,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() @@ -524,14 +568,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; + 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); @@ -540,6 +598,7 @@ void CAsir32guiView::OnFont() f = new CFont; f->CreateFontIndirect(&lf); SetFont(f); + UpdateMetrics(); } } @@ -549,7 +608,7 @@ int CAsir32guiView::OnCreate(LPCREATESTRUCT lpCreateSt return -1; // TODO: この位置に固有の作成用コードを追加してください - + LOGFONT logFont; memset(&logFont, 0, sizeof(LOGFONT)); logFont.lfHeight = 20; logFont.lfCharSet = DEFAULT_CHARSET; @@ -557,8 +616,9 @@ 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; } @@ -566,25 +626,125 @@ int CAsir32guiView::OnCreate(LPCREATESTRUCT lpCreateSt void CAsir32guiView::OnContribhelp() { // TODO: この位置にコマンド ハンドラ用のコードを追加してください - char root[BUFSIZ],errmsg[BUFSIZ],helpfile[BUFSIZ]; + viewHtmlHelp("cman"); +} - get_rootdir(root,sizeof(root),errmsg); - sprintf(helpfile,"%s\\bin\\cmanhelp.chm",root); - HtmlHelp(NULL, helpfile, HH_DISPLAY_TOPIC, 0); +void CAsir32guiView::OnSize(UINT nType, int cx, int cy) +{ + CEditView::OnSize(nType, cx, cy); + + // TODO: この位置にメッセージ ハンドラ用のコードを追加してください + UpdateMetrics(); } -void CAsir32guiView::OnUpdateContribhelp(CCmdUI* pCmdUI) +void CAsir32guiView::OnDsolv() { - // TODO: この位置に command update UI ハンドラ用のコードを追加してください - char root[BUFSIZ],errmsg[BUFSIZ],helpfile[BUFSIZ]; + // TODO: この位置にコマンド ハンドラ用のコードを追加してください + viewHtmlHelp("dsolv"); +} - if ( getenv("OpenXM_WIN_ROOT") ) { - get_rootdir(root,sizeof(root),errmsg); - sprintf(helpfile,"%s\\bin\\cmanhelp.chm",root); - if ( _access(helpfile,04) != -1 ) { - pCmdUI->Enable( TRUE ); - return; +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 hndname[_MAX_PATH]; + + if ( asirgui_kind == ASIRGUI_MAIN ) { + 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); + } } } - pCmdUI->Enable( FALSE ); + return ret; }