From a760e8a749af60cd3598ebe113b7692bc6592f57 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C5=82=20Konopacki?= <konopacki.m@gmail.com>
Date: Wed, 8 Aug 2012 02:23:38 +0200
Subject: Cleanups

---
 src/CBot/tests/TestCBot/PerformDlg.cpp | 177 +++++++++++++++++++++++++++++++++
 1 file changed, 177 insertions(+)
 create mode 100644 src/CBot/tests/TestCBot/PerformDlg.cpp

(limited to 'src/CBot/tests/TestCBot/PerformDlg.cpp')

diff --git a/src/CBot/tests/TestCBot/PerformDlg.cpp b/src/CBot/tests/TestCBot/PerformDlg.cpp
new file mode 100644
index 0000000..8abbb4b
--- /dev/null
+++ b/src/CBot/tests/TestCBot/PerformDlg.cpp
@@ -0,0 +1,177 @@
+// * This file is part of the COLOBOT source code
+// * Copyright (C) 2001-2008, Daniel ROUX & EPSITEC SA, www.epsitec.ch
+// *
+// * This program is free software: you can redistribute it and/or modify
+// * it under the terms of the GNU General Public License as published by
+// * the Free Software Foundation, either version 3 of the License, or
+// * (at your option) any later version.
+// *
+// * This program is distributed in the hope that it will be useful,
+// * but WITHOUT ANY WARRANTY; without even the implied warranty of
+// * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+// * GNU General Public License for more details.
+// *
+// * You should have received a copy of the GNU General Public License
+// * along with this program. If not, see  http://www.gnu.org/licenses/.
+
+// PerformDlg.cpp : implementation file
+//
+
+#include "stdafx.h"
+#include "testcbot.h"
+#include "PerformDlg.h"
+
+//#include <stdio.h>
+#include <sys/timeb.h>
+//#include <time.h>
+
+#ifdef _DEBUG
+#define new DEBUG_NEW
+#undef THIS_FILE
+static char THIS_FILE[] = __FILE__;
+#endif
+
+/////////////////////////////////////////////////////////////////////////////
+// CPerformDlg dialog
+
+
+CPerformDlg::CPerformDlg(CWnd* pParent /*=NULL*/)
+	: CDialog(CPerformDlg::IDD, pParent)
+{
+	//{{AFX_DATA_INIT(CPerformDlg)
+		// NOTE: the ClassWizard will add member initialization here
+	//}}AFX_DATA_INIT
+}
+
+
+void CPerformDlg::DoDataExchange(CDataExchange* pDX)
+{
+	CDialog::DoDataExchange(pDX);
+	//{{AFX_DATA_MAP(CPerformDlg)
+	DDX_Control(pDX, IDC_EDIT3, m_Edit3);
+	DDX_Control(pDX, IDC_EDIT1, m_Edit1);
+	//}}AFX_DATA_MAP
+}
+
+
+BEGIN_MESSAGE_MAP(CPerformDlg, CDialog)
+	//{{AFX_MSG_MAP(CPerformDlg)
+	//}}AFX_MSG_MAP
+END_MESSAGE_MAP()
+
+/////////////////////////////////////////////////////////////////////////////
+// CPerformDlg message handlers
+
+/* Pauses for a specified number of milliseconds. */
+
+/*void sleep( double waitseconds )
+{
+   clock_t wait = (clock_t)(waitseconds * CLOCKS_PER_SEC);
+   clock_t goal;
+   goal = wait + clock();
+   while( goal > clock() )
+      ;
+}*/
+
+void sleep( clock_t wait )
+{
+   clock_t goal;
+   goal = wait + clock();
+   while( goal > clock() )
+      TRACE("%d \n", clock() );
+}
+
+void sleep2( clock_t wait )
+{
+   struct _timeb timebuffer;
+   char *timeline;
+
+   _ftime( &timebuffer );
+   timeline = ctime( & ( timebuffer.time ) );
+   long x = timebuffer.millitm;
+   while( x == timebuffer.millitm ) _ftime( &timebuffer );
+}
+
+#define	NBLP	20
+
+UINT ThreadProc2(ThreadInfo2 *info)
+{
+	int		lp = NBLP;
+	int		i;
+	clock_t start = clock();
+
+	while ( !info->m_bStop )
+	{
+		for ( i = 0; i< info->m_nbscripts; i++ )
+		{
+			info->m_pProg[i]->Run();
+		}
+
+#ifdef	_DEBUG
+		sleep2( 1 );
+#else
+		CString s ( "xx" );
+		for ( long z = 0x5000; z>0; z-- ) s = s.Left(1);
+#endif
+		if ( --lp == 0 )
+		{
+			clock_t finish = clock();
+			double n = (double)NBLP / (double)(finish-start) * CLOCKS_PER_SEC;
+			char	b[30];
+			sprintf( b, "%f", n);
+			info->m_pEdit->SetWindowText(b);
+
+			n = n * 1100 / 200;	// performances
+			sprintf( b, "%f", n);
+			info->m_pEdit3->SetWindowText(b);
+			start = finish;
+			lp = NBLP;
+		}
+	}
+
+	return 0 ;
+}
+
+BOOL CPerformDlg::OnInitDialog() 
+{
+	CDialog::OnInitDialog();
+
+
+	CBotStringArray liste;
+	// crée les scripts pour les tests
+	for ( int i = 0; i < 100; i++ )
+	{
+		m_pProg[i] = new CBotProgram();
+		m_pProg[i]->Compile(m_Script, liste);
+		m_pProg[i]->Start(liste[0]);
+	}
+
+	// lance un processus paralèle pour l'exécution
+//	m_threadinfo2.m_pWndMessage = this ;
+
+	m_threadinfo2.m_pEdit  = &m_Edit1;
+	m_threadinfo2.m_pEdit3 = &m_Edit3;
+	m_threadinfo2.m_pProg  = m_pProg;
+	m_threadinfo2.m_bStop  = FALSE;
+	m_threadinfo2.m_nbscripts = 30;
+
+
+	AfxBeginThread((AFX_THREADPROC)ThreadProc2, &m_threadinfo2) ;
+	// TODO: Add extra initialization here
+	
+	return TRUE;  // return TRUE unless you set the focus to a control
+	              // EXCEPTION: OCX Property Pages should return FALSE
+}
+
+void CPerformDlg::OnCancel() 
+{
+	m_threadinfo2.m_bStop  = TRUE;
+	sleep ( 2000 );
+
+	CDialog::OnCancel();
+
+	for ( int i = 0; i < 100; i++ )
+	{
+		delete m_pProg[i];
+	}
+}
-- 
cgit v1.2.3-1-g7c22