===================================================================
RCS file: /home/cvs/OpenXM_contrib2/windows/asir32gui/asir32guiview.cpp,v
retrieving revision 1.8
retrieving revision 1.16
diff -u -p -r1.8 -r1.16
--- OpenXM_contrib2/windows/asir32gui/asir32guiview.cpp	2002/09/12 03:12:56	1.8
+++ OpenXM_contrib2/windows/asir32gui/asir32guiview.cpp	2006/12/05 01:41:43	1.16
@@ -68,7 +68,17 @@ 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)
 	//}}AFX_MSG_MAP
 	// 標準印刷コマンド
 //	ON_COMMAND(ID_FILE_PRINT, CEditView::OnFilePrint)
@@ -83,13 +93,13 @@ CAsir32guiView::CAsir32guiView()
 {
 	// TODO: この場所に構築用のコードを追加してください。
 	static int tmpView_created = 0;
-	char errmsg[BUFSIZ];
+	char errmsg[BUFSIZ],view_handle[BUFSIZ];
 
 	init_input_history();
 	read_input_history();
 	DebugMode = 0;
 	DebugInMain = 0;
-	MaxLineLength = 80;
+//	MaxLineLength = 80;
 	LogStart = 0;
 	Logging = 0;
 	Logfp = NULL;
@@ -193,9 +203,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];
@@ -305,7 +313,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 +323,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 +368,7 @@ void CAsir32guiView::OnChar(UINT nChar, UINT nRepCnt, 
 {
 	// TODO: この位置にメッセージ ハンドラ用のコードを追加するかまたはデフォルトの処理を呼び出してください
 	char *exp_result;
+	char tmp[BUFSIZ];
 	
 	if ( asirgui_kind == ASIRGUI_MESSAGE ) {
 		Beep(); return;
@@ -419,7 +429,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 )
@@ -461,6 +472,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);
@@ -482,8 +494,8 @@ void CAsir32guiView::OnAsirhelp() 
 	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);
+	sprintf(helpfile,"%s\\help\\asirhelp.chm",root);
+	::HtmlHelp(NULL, helpfile, HH_DISPLAY_TOPIC, 0);
 }
 
 void CAsir32guiView::OnFileLog() 
@@ -524,14 +536,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);
@@ -540,6 +566,7 @@ void CAsir32guiView::OnFont() 
 		f = new CFont;
 		f->CreateFontIndirect(&lf);
 		SetFont(f);
+		UpdateMetrics();
 	}
 }
 
@@ -549,7 +576,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 +584,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;
 }
@@ -569,22 +597,134 @@ void CAsir32guiView::OnContribhelp() 
 	char root[BUFSIZ],errmsg[BUFSIZ],helpfile[BUFSIZ];
 
 	get_rootdir(root,sizeof(root),errmsg);
-	sprintf(helpfile,"%s\\bin\\cmanhelp.chm",root);
-	HtmlHelp(NULL, helpfile, HH_DISPLAY_TOPIC, 0);
+	sprintf(helpfile,"%s\\help\\cmanhelp.chm",root);
+	::HtmlHelp(NULL, helpfile, HH_DISPLAY_TOPIC, 0);
 }
 
-void CAsir32guiView::OnUpdateContribhelp(CCmdUI* pCmdUI) 
+void CAsir32guiView::OnSize(UINT nType, int cx, int cy) 
 {
-	// TODO: この位置に command update UI ハンドラ用のコードを追加してください
+	CEditView::OnSize(nType, cx, cy);
+	
+	// TODO: この位置にメッセージ ハンドラ用のコードを追加してください
+	UpdateMetrics();
+}
+
+void CAsir32guiView::OnDsolv() 
+{
+	// TODO: この位置にコマンド ハンドラ用のコードを追加してください
 	char root[BUFSIZ],errmsg[BUFSIZ],helpfile[BUFSIZ];
 
-	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;
-		}
-	}
-	pCmdUI->Enable( FALSE );
+	get_rootdir(root,sizeof(root),errmsg);
+	sprintf(helpfile,"%s\\help\\dsolvhelp.chm",root);
+	::HtmlHelp(NULL, helpfile, HH_DISPLAY_TOPIC, 0);
+}
+
+void CAsir32guiView::OnGnuplot() 
+{
+	// TODO: この位置にコマンド ハンドラ用のコードを追加してください
+	char root[BUFSIZ],errmsg[BUFSIZ],helpfile[BUFSIZ];
+
+	get_rootdir(root,sizeof(root),errmsg);
+	sprintf(helpfile,"%s\\help\\gnuplothelp.chm",root);
+	::HtmlHelp(NULL, helpfile, HH_DISPLAY_TOPIC, 0);
+	
+}
+
+void CAsir32guiView::OnOkdiff() 
+{
+	// TODO: この位置にコマンド ハンドラ用のコードを追加してください
+	char root[BUFSIZ],errmsg[BUFSIZ],helpfile[BUFSIZ];
+
+	get_rootdir(root,sizeof(root),errmsg);
+	sprintf(helpfile,"%s\\help\\ok_diffhelp.chm",root);
+	::HtmlHelp(NULL, helpfile, HH_DISPLAY_TOPIC, 0);
+	
+}
+
+void CAsir32guiView::OnOkdmodule() 
+{
+	// TODO: この位置にコマンド ハンドラ用のコードを追加してください
+	char root[BUFSIZ],errmsg[BUFSIZ],helpfile[BUFSIZ];
+
+	get_rootdir(root,sizeof(root),errmsg);
+	sprintf(helpfile,"%s\\help\\ok_dmodulehelp.chm",root);
+	::HtmlHelp(NULL, helpfile, HH_DISPLAY_TOPIC, 0);
+	
+}
+
+void CAsir32guiView::OnOm() 
+{
+	// TODO: この位置にコマンド ハンドラ用のコードを追加してください
+	char root[BUFSIZ],errmsg[BUFSIZ],helpfile[BUFSIZ];
+
+	get_rootdir(root,sizeof(root),errmsg);
+	sprintf(helpfile,"%s\\help\\omhelp.chm",root);
+	::HtmlHelp(NULL, helpfile, HH_DISPLAY_TOPIC, 0);
+	
+}
+
+void CAsir32guiView::OnPfpcoh() 
+{
+	// TODO: この位置にコマンド ハンドラ用のコードを追加してください
+	char root[BUFSIZ],errmsg[BUFSIZ],helpfile[BUFSIZ];
+
+	get_rootdir(root,sizeof(root),errmsg);
+	sprintf(helpfile,"%s\\help\\pfpcohhelp.chm",root);
+	::HtmlHelp(NULL, helpfile, HH_DISPLAY_TOPIC, 0);
+	
+}
+
+void CAsir32guiView::OnPlucker() 
+{
+	// TODO: この位置にコマンド ハンドラ用のコードを追加してください
+	char root[BUFSIZ],errmsg[BUFSIZ],helpfile[BUFSIZ];
+
+	get_rootdir(root,sizeof(root),errmsg);
+	sprintf(helpfile,"%s\\help\\pluckerhelp.chm",root);
+	::HtmlHelp(NULL, helpfile, HH_DISPLAY_TOPIC, 0);
+	
+}
+
+void CAsir32guiView::OnSm1() 
+{
+	// TODO: この位置にコマンド ハンドラ用のコードを追加してください
+	char root[BUFSIZ],errmsg[BUFSIZ],helpfile[BUFSIZ];
+
+	get_rootdir(root,sizeof(root),errmsg);
+	sprintf(helpfile,"%s\\help\\sm1help.chm",root);
+	::HtmlHelp(NULL, helpfile, HH_DISPLAY_TOPIC, 0);
+	
+}
+
+void CAsir32guiView::OnTigers() 
+{
+	// TODO: この位置にコマンド ハンドラ用のコードを追加してください
+	char root[BUFSIZ],errmsg[BUFSIZ],helpfile[BUFSIZ];
+
+	get_rootdir(root,sizeof(root),errmsg);
+	sprintf(helpfile,"%s\\help\\tigershelp.chm",root);
+	::HtmlHelp(NULL, helpfile, HH_DISPLAY_TOPIC, 0);
+	
+}
+
+void CAsir32guiView::OnTodoparametrize() 
+{
+	// TODO: この位置にコマンド ハンドラ用のコードを追加してください
+	char root[BUFSIZ],errmsg[BUFSIZ],helpfile[BUFSIZ];
+
+	get_rootdir(root,sizeof(root),errmsg);
+	sprintf(helpfile,"%s\\help\\todo_parametrizehelp.chm",root);
+	::HtmlHelp(NULL, helpfile, HH_DISPLAY_TOPIC, 0);
+	
+}
+
+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");
+	fprintf(fp,"%d",(unsigned int)theView->m_hWnd);
+	fclose(fp);
+	return ret;
 }