Michał Konopacki
parent
ef7e297efe
commit
7b03a6a2ac
|
|
@ -0,0 +1,15 @@
|
||||||
|
cmake_minimum_required(VERSION 2.8)
|
||||||
|
|
||||||
|
project(CBot_console C CXX)
|
||||||
|
|
||||||
|
# Build with debugging symbols
|
||||||
|
set(CMAKE_BUILD_TYPE debug)
|
||||||
|
|
||||||
|
# Global compile flags
|
||||||
|
set(CMAKE_CXX_FLAGS_RELEASE "-O2 -Wall -Wold-style-cast -std=gnu++0x")
|
||||||
|
set(CMAKE_CXX_FLAGS_DEBUG "-g -O0 -Wall -Wold-style-cast -std=gnu++0x")
|
||||||
|
|
||||||
|
# Include cmake directory
|
||||||
|
SET(CMAKE_MODULE_PATH ${CMAKE_MODULE_PATH} "${colobot_SOURCE_DIR}/cmake")
|
||||||
|
|
||||||
|
add_subdirectory(src bin)
|
||||||
|
|
@ -0,0 +1 @@
|
||||||
|
../../../../CBot/
|
||||||
|
|
@ -0,0 +1,32 @@
|
||||||
|
# CBot shared library is built separately
|
||||||
|
add_subdirectory(CBot)
|
||||||
|
|
||||||
|
|
||||||
|
# Configure options
|
||||||
|
option(DEBUG "Enable debug output" ON)
|
||||||
|
|
||||||
|
set(PLATFORM_LIBS "")
|
||||||
|
|
||||||
|
# Source files
|
||||||
|
# Commented out files are still dependent on DirectX or WinAPI
|
||||||
|
|
||||||
|
set(SOURCES
|
||||||
|
app/CClass.cpp
|
||||||
|
app/main.cpp
|
||||||
|
#app/routines.cpp
|
||||||
|
app/CBotDoc.cpp
|
||||||
|
app/CBotConsole.cpp
|
||||||
|
)
|
||||||
|
|
||||||
|
set(LIBS
|
||||||
|
CBot
|
||||||
|
)
|
||||||
|
|
||||||
|
include_directories(. ${CMAKE_CURRENT_BINARY_DIR}
|
||||||
|
)
|
||||||
|
|
||||||
|
link_directories(${CMAKE_CURRENT_SOURCE_DIR}/CBot)
|
||||||
|
|
||||||
|
add_executable(CBot_console ${SOURCES})
|
||||||
|
|
||||||
|
target_link_libraries(CBot_console ${LIBS})
|
||||||
|
|
@ -0,0 +1,175 @@
|
||||||
|
/*
|
||||||
|
* CBotConsole.cpp
|
||||||
|
*
|
||||||
|
* Created on: 08-08-2012
|
||||||
|
* Author: michal
|
||||||
|
*/
|
||||||
|
|
||||||
|
#include "CBotConsole.h"
|
||||||
|
#include "CClass.h"
|
||||||
|
#include <ctime>
|
||||||
|
#include <iostream>
|
||||||
|
|
||||||
|
CBotConsole::CBotConsole() {
|
||||||
|
// TODO Auto-generated constructor stub
|
||||||
|
m_pProg = NULL;
|
||||||
|
m_threadinfo.m_bRun = false;
|
||||||
|
m_code = 0;
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
CBotConsole::~CBotConsole() {
|
||||||
|
// TODO Auto-generated destructor stub
|
||||||
|
}
|
||||||
|
|
||||||
|
uint ThreadProc(ThreadInfo *info)
|
||||||
|
{
|
||||||
|
time_t t0,t1;
|
||||||
|
time(&t0);
|
||||||
|
|
||||||
|
int Cpt = 0;
|
||||||
|
|
||||||
|
info->m_pProg->Start("LaCommande");
|
||||||
|
while ( !info->m_bStop && !info->m_pProg->Run() )
|
||||||
|
{
|
||||||
|
#if 0
|
||||||
|
const char* FunctionName;
|
||||||
|
const char* FN;
|
||||||
|
int start, end;
|
||||||
|
|
||||||
|
info->m_pProg->GetRunPos(FunctionName, start, end);
|
||||||
|
|
||||||
|
if ( FunctionName != NULL )
|
||||||
|
{
|
||||||
|
info->m_pEditx->SetSel(start, end);
|
||||||
|
|
||||||
|
char buffer[200];
|
||||||
|
sprintf( buffer, "step %s, %d, %d",FunctionName, start, end);
|
||||||
|
AfxMessageBox( buffer );
|
||||||
|
|
||||||
|
int level = 0;
|
||||||
|
do
|
||||||
|
{
|
||||||
|
CBotVar* t = info->m_pProg->GivStackVars(FN, level--);
|
||||||
|
if ( FN != FunctionName ) break;
|
||||||
|
if ( t != NULL )
|
||||||
|
{
|
||||||
|
CString s ;
|
||||||
|
while ( t != NULL )
|
||||||
|
{
|
||||||
|
if (s.IsEmpty()) s+= "Stack -> ";
|
||||||
|
else s+= " , ";
|
||||||
|
s += t->GivValString();
|
||||||
|
t = t->GivNext();
|
||||||
|
}
|
||||||
|
AfxMessageBox(s);
|
||||||
|
}
|
||||||
|
} while (TRUE);
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
Cpt++;
|
||||||
|
if ( Cpt%50 == 0 ) std::cout << ".";
|
||||||
|
}
|
||||||
|
|
||||||
|
if ( info->m_bStop )
|
||||||
|
{
|
||||||
|
std::cout << "\nInterrupt\n";
|
||||||
|
}
|
||||||
|
else if (info->m_pProg->GivError() == 0)
|
||||||
|
{
|
||||||
|
time(&t1);
|
||||||
|
double prog_time = difftime(t0,t1);
|
||||||
|
|
||||||
|
char buffer[200];
|
||||||
|
sprintf( buffer, "\nExecution terminated in %f seconds.\nInterrupted %d time(s).\n",
|
||||||
|
prog_time, Cpt);
|
||||||
|
|
||||||
|
std::cout << buffer;
|
||||||
|
}
|
||||||
|
|
||||||
|
// info->m_pWndMessage->SendMessage(WM_ENDPROG, 0, 0) ;
|
||||||
|
return 0 ;
|
||||||
|
}
|
||||||
|
|
||||||
|
long CBotConsole::EndProg()
|
||||||
|
{
|
||||||
|
m_threadinfo.m_bRun = false;
|
||||||
|
|
||||||
|
if (m_pProg->GetError(m_code, m_start, m_end))
|
||||||
|
{
|
||||||
|
CBotString TextError;
|
||||||
|
TextError = CBotProgram::GivErrorText(m_code);
|
||||||
|
std::cout << TextError;
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
delete m_pProg;
|
||||||
|
m_pProg = NULL;
|
||||||
|
|
||||||
|
return 0 ;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
void CBotConsole::OnOK()
|
||||||
|
{
|
||||||
|
m_code = 0;
|
||||||
|
|
||||||
|
std::string Commande;
|
||||||
|
std::cin >> Commande;
|
||||||
|
|
||||||
|
std::string s = "void LaCommande() { " + Commande + " ;}";
|
||||||
|
m_pProg = new CBotProgram();
|
||||||
|
CBotStringArray liste;
|
||||||
|
m_pProg->Compile(s.c_str(), liste);
|
||||||
|
|
||||||
|
int err, start, end;
|
||||||
|
if ( m_pProg->GetError(err, start, end) )
|
||||||
|
{
|
||||||
|
CBotString TextError;
|
||||||
|
TextError = CBotProgram::GivErrorText(err);
|
||||||
|
std::cout << TextError;
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
std::cout << "\n" + Commande + " ->\n";
|
||||||
|
|
||||||
|
// m_Edit2.SetWindowText("");
|
||||||
|
// m_Edit1.SetFocus();
|
||||||
|
// m_Edit2.EnableWindow(FALSE);
|
||||||
|
// m_cOK.EnableWindow(FALSE);
|
||||||
|
|
||||||
|
// lance un processus paralèle pour l'exécution
|
||||||
|
// m_threadinfo.m_pWndMessage = this ;
|
||||||
|
|
||||||
|
// m_threadinfo.m_pEdit1 = &m_Edit1;
|
||||||
|
// m_threadinfo.m_pEditx = m_pEditx;
|
||||||
|
m_threadinfo.m_pProg = m_pProg;
|
||||||
|
m_threadinfo.m_bStop = false;
|
||||||
|
m_threadinfo.m_bRun = true;
|
||||||
|
|
||||||
|
ThreadProc(&m_threadinfo);
|
||||||
|
|
||||||
|
// here program starts
|
||||||
|
// AfxBeginThread((AFX_THREADPROC)ThreadProc, &m_threadinfo) ;
|
||||||
|
}
|
||||||
|
|
||||||
|
void CBotConsole::OnCancel()
|
||||||
|
{
|
||||||
|
m_threadinfo.m_bStop = true ;
|
||||||
|
}
|
||||||
|
|
||||||
|
bool CBotConsole::OnInitDialog()
|
||||||
|
{
|
||||||
|
// CDialog::OnInitDialog();
|
||||||
|
|
||||||
|
std::cout << "Following functions are availible:\n";
|
||||||
|
for ( int i = 0; i < m_pListe->GivSize(); i++ )
|
||||||
|
{
|
||||||
|
CBotString x = (*m_pListe)[i] + CBotString("\n");
|
||||||
|
std::cout << x;
|
||||||
|
}
|
||||||
|
std::cout << "Enter a command:\n";
|
||||||
|
|
||||||
|
|
||||||
|
return true; // return TRUE unless you set the focus to a control
|
||||||
|
// EXCEPTION: OCX Property Pages should return FALSE
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,44 @@
|
||||||
|
/*
|
||||||
|
* CBotConsole.h
|
||||||
|
*
|
||||||
|
* Created on: 08-08-2012
|
||||||
|
* Author: michal
|
||||||
|
*/
|
||||||
|
|
||||||
|
#ifndef CBOTCONSOLE_H_
|
||||||
|
#define CBOTCONSOLE_H_
|
||||||
|
#include "CClass.h"
|
||||||
|
|
||||||
|
struct ThreadInfo
|
||||||
|
{
|
||||||
|
// CEdit* m_pEdit1 ;
|
||||||
|
// CEdit* m_pEditx ;
|
||||||
|
CBotProgram* m_pProg;
|
||||||
|
// CWnd* m_pWndMessage;
|
||||||
|
bool m_bStop;
|
||||||
|
bool m_bRun;
|
||||||
|
};
|
||||||
|
|
||||||
|
class CBotConsole {
|
||||||
|
|
||||||
|
public:
|
||||||
|
CBotConsole();
|
||||||
|
virtual ~CBotConsole();
|
||||||
|
|
||||||
|
// CEdit m_Edit1;
|
||||||
|
|
||||||
|
CBotProgram* m_pProg;
|
||||||
|
ThreadInfo m_threadinfo;
|
||||||
|
|
||||||
|
CBotStringArray* m_pListe;
|
||||||
|
int m_code, m_start, m_end;
|
||||||
|
// CEdit* m_pEditx;
|
||||||
|
|
||||||
|
// Implementation
|
||||||
|
void OnOK();
|
||||||
|
void OnCancel();
|
||||||
|
bool OnInitDialog();
|
||||||
|
long EndProg() ;
|
||||||
|
};
|
||||||
|
|
||||||
|
#endif /* CBOTCONSOLE_H_ */
|
||||||
|
|
@ -0,0 +1,122 @@
|
||||||
|
/*
|
||||||
|
* CBotDoc.cpp
|
||||||
|
*
|
||||||
|
* Created on: 08-08-2012
|
||||||
|
* Author: michal
|
||||||
|
*/
|
||||||
|
#include "CBotDoc.h"
|
||||||
|
#include "CBotConsole.h"
|
||||||
|
#include <iostream>
|
||||||
|
|
||||||
|
CBotDoc::CBotDoc(std::string s) {
|
||||||
|
// TODO Auto-generated constructor stub
|
||||||
|
// TODO set m_DocText
|
||||||
|
// m_pEdit = NULL;
|
||||||
|
m_pProg = NULL;
|
||||||
|
// m_bModified = FALSE;
|
||||||
|
m_DocText = s;
|
||||||
|
std::cout << s << std::endl;
|
||||||
|
// std::cout << "Enter to continue..." << std::endl;
|
||||||
|
// getchar();
|
||||||
|
}
|
||||||
|
|
||||||
|
CBotDoc::~CBotDoc() {
|
||||||
|
|
||||||
|
// delete m_pEdit;
|
||||||
|
delete m_pProg;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
//static bool test = false;
|
||||||
|
|
||||||
|
void CBotDoc::OnRun()
|
||||||
|
{
|
||||||
|
|
||||||
|
// m_pEdit->GetWindowText(m_DocText);
|
||||||
|
CBotString s;
|
||||||
|
|
||||||
|
std::string TextError;
|
||||||
|
int code, start, end;
|
||||||
|
|
||||||
|
if ( m_pProg == NULL ) m_pProg = new CBotProgram();
|
||||||
|
|
||||||
|
if (!m_pProg->Compile(m_DocText.c_str(), m_Liste, NULL))
|
||||||
|
{
|
||||||
|
m_pProg->GetError(code, start, end);
|
||||||
|
delete m_pProg;
|
||||||
|
m_pProg = NULL;
|
||||||
|
|
||||||
|
TextError = CBotProgram::GivErrorText( code );
|
||||||
|
std::cout << TextError << std::endl;
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
if( m_Liste.GivSize() == 0 )
|
||||||
|
{
|
||||||
|
std::cout << "No function marked \"extern\" !\n";
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
for ( int i = 0; i < m_Liste.GivSize(); i++ )
|
||||||
|
{
|
||||||
|
int start, stop;
|
||||||
|
m_pProg->GetPosition(m_Liste[i], start, stop, GetPosNom, GetPosParam);
|
||||||
|
CBotString s(m_DocText.substr( start, stop-start ).c_str());
|
||||||
|
m_Liste[i] = s;
|
||||||
|
}
|
||||||
|
// TODO
|
||||||
|
CBotConsole dlg;
|
||||||
|
dlg.m_pListe = &m_Liste;
|
||||||
|
// dlg.m_pEditx = m_pEdit;
|
||||||
|
|
||||||
|
dlg.OnInitDialog();
|
||||||
|
dlg.OnOK();
|
||||||
|
dlg.EndProg();
|
||||||
|
// if ( dlg.m_code>0 )
|
||||||
|
// {
|
||||||
|
// std::string TextError;
|
||||||
|
//
|
||||||
|
// TextError = m_pProg->GivErrorText( dlg.m_code );
|
||||||
|
//
|
||||||
|
// std::cout <<TextError;
|
||||||
|
// }
|
||||||
|
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
bool CBotDoc::Compile()
|
||||||
|
{
|
||||||
|
// m_pEdit->GetWindowText(m_DocText);
|
||||||
|
|
||||||
|
std::string TextError;
|
||||||
|
int code, start, end;
|
||||||
|
|
||||||
|
if ( m_pProg == NULL ) m_pProg = new CBotProgram();
|
||||||
|
|
||||||
|
char buffer[100];
|
||||||
|
strcpy(buffer, "a pointer move to see");
|
||||||
|
|
||||||
|
if (!m_pProg->Compile(m_DocText.c_str(), m_Liste, static_cast<void*>(buffer)))
|
||||||
|
{
|
||||||
|
m_pProg->GetError(code, start, end);
|
||||||
|
delete m_pProg;
|
||||||
|
m_pProg = NULL;
|
||||||
|
|
||||||
|
// m_pEdit->SetSel( start, end );
|
||||||
|
// m_pEdit->SetFocus(); // higlights part of problem
|
||||||
|
|
||||||
|
TextError = CBotProgram::GivErrorText( code );
|
||||||
|
std::cout << TextError ;
|
||||||
|
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
// if ( m_pProg->GetPosition( "TheTest", start, end) )
|
||||||
|
// {
|
||||||
|
// m_pEdit->SetSel( start, end );
|
||||||
|
// m_pEdit->SetFocus(); // higlights part of problem
|
||||||
|
// }
|
||||||
|
|
||||||
|
// m_bModified = FALSE;
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,39 @@
|
||||||
|
/*
|
||||||
|
* CBotDoc.h
|
||||||
|
*
|
||||||
|
* Created on: 08-08-2012
|
||||||
|
* Author: michal
|
||||||
|
*/
|
||||||
|
|
||||||
|
#pragma once
|
||||||
|
#ifndef CBOTDOC_H_
|
||||||
|
#define CBOTDOC_H_
|
||||||
|
|
||||||
|
#include "CClass.h"
|
||||||
|
#include <string>
|
||||||
|
|
||||||
|
class CBotDoc {
|
||||||
|
|
||||||
|
public:
|
||||||
|
CBotDoc(std::string);
|
||||||
|
virtual ~CBotDoc();
|
||||||
|
|
||||||
|
// CEdit* m_pEdit; // to memorize the text, and display
|
||||||
|
CBotProgram* m_pProg; // the compiled program
|
||||||
|
std::string m_DocText;
|
||||||
|
CBotStringArray m_Liste;
|
||||||
|
|
||||||
|
// Operations
|
||||||
|
|
||||||
|
bool Compile();
|
||||||
|
|
||||||
|
// virtual bool OnNewDocument();
|
||||||
|
|
||||||
|
void OnRun();
|
||||||
|
void OnChangeEdit1();
|
||||||
|
void OnTest();
|
||||||
|
|
||||||
|
};
|
||||||
|
|
||||||
|
|
||||||
|
#endif /* CBOTDOC_H_ */
|
||||||
|
|
@ -0,0 +1,97 @@
|
||||||
|
#include "CClass.h"
|
||||||
|
|
||||||
|
#include "routines.cpp"
|
||||||
|
|
||||||
|
void rMajObject( CBotVar* pThis, void* pUser )
|
||||||
|
{
|
||||||
|
if (!pThis->IsElemOfClass("object"))
|
||||||
|
return ;
|
||||||
|
CBotVar* pPos = pThis->GivItem("position");
|
||||||
|
CBotVar* pX = pPos->GivItem("x");
|
||||||
|
CBotVar* pY = pPos->GivItem("y");
|
||||||
|
CBotVar* pZ = pPos->GivItem("z");
|
||||||
|
// CBotVar* pPt = pThis->GivItem("transport");
|
||||||
|
|
||||||
|
CBotString p = pX->GivValString();
|
||||||
|
|
||||||
|
// pX->SetValFloat( pUser == (void*)1 ? (float)12.5 : (float)44.4 );
|
||||||
|
pZ->SetValFloat( (float)0 );
|
||||||
|
pY->SetValFloat( (float)-3.33 );
|
||||||
|
pX->SetValFloat( pX->GivValFloat() + 10 ) ;
|
||||||
|
|
||||||
|
// pX = pThis->GivItem( "xx" );
|
||||||
|
// pX->SetValFloat( (float)22 );
|
||||||
|
|
||||||
|
// crée une instance sur une classe object
|
||||||
|
// CBotVar* pAutre = CBotVar::Create("autre", CBotTypClass, "object");
|
||||||
|
// pAutre->SetUserPtr( (void*)3 );
|
||||||
|
// pPt->SetPointer( pAutre );
|
||||||
|
// pPt->SetPointer( NULL );
|
||||||
|
// delete pAutre;
|
||||||
|
};
|
||||||
|
|
||||||
|
CClass::CClass()
|
||||||
|
{
|
||||||
|
m_pClassPoint= NULL;
|
||||||
|
}
|
||||||
|
|
||||||
|
bool CClass::InitInstance()
|
||||||
|
{
|
||||||
|
//////////////////////////////////////////////
|
||||||
|
// défini les mots clefs supplémentaires
|
||||||
|
// -------------------------------------------
|
||||||
|
|
||||||
|
CBotProgram::Init();
|
||||||
|
|
||||||
|
//////////////////////////////////////////////
|
||||||
|
// défini les fonctions "show()" et "print()"
|
||||||
|
// -------------------------------------------
|
||||||
|
|
||||||
|
//CBotProgram::AddFunction("show", rShow, cShow);
|
||||||
|
CBotProgram::AddFunction("print", rPrint, cPrint);
|
||||||
|
CBotProgram::AddFunction("println", rPrintLn, cPrint);
|
||||||
|
|
||||||
|
|
||||||
|
///////////////////////////////////
|
||||||
|
// définie la classe globale CPoint
|
||||||
|
// --------------------------------
|
||||||
|
|
||||||
|
m_pClassPoint = new CBotClass("CPoint", NULL);
|
||||||
|
// ajoute le composant ".x"
|
||||||
|
m_pClassPoint->AddItem("x", CBotTypFloat);
|
||||||
|
// ajoute le composant ".y"
|
||||||
|
m_pClassPoint->AddItem("y", CBotTypFloat);
|
||||||
|
|
||||||
|
// ajoute le constructeur pour cette classe
|
||||||
|
m_pClassPoint->AddFunction("CPoint", rCPoint, cCPoint);
|
||||||
|
|
||||||
|
m_pClassPointIntr = new CBotClass("point", NULL, true);
|
||||||
|
// ajoute le composant ".x"
|
||||||
|
m_pClassPointIntr->AddItem("x", CBotTypFloat);
|
||||||
|
// ajoute le composant ".y"
|
||||||
|
m_pClassPointIntr->AddItem("y", CBotTypFloat);
|
||||||
|
// ajoute le composant ".z"
|
||||||
|
m_pClassPointIntr->AddItem("z", CBotTypFloat);
|
||||||
|
|
||||||
|
// ajoute le constructeur pour cette classe
|
||||||
|
m_pClassPointIntr->AddFunction("point", rCPoint, cCPoint);
|
||||||
|
|
||||||
|
// défini la classe "object"
|
||||||
|
CBotClass* pClassObject = new CBotClass( "object", NULL ) ;
|
||||||
|
pClassObject->AddItem( "xx", CBotTypFloat );
|
||||||
|
pClassObject->AddItem( "position", CBotTypResult( CBotTypIntrinsic, "point" ) );
|
||||||
|
pClassObject->AddItem( "transport", CBotTypResult( CBotTypPointer, "object" ) );
|
||||||
|
pClassObject->AddUpdateFunc( rMajObject );
|
||||||
|
|
||||||
|
InitClassFILE();
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
void CClass::ExitInstance()
|
||||||
|
{
|
||||||
|
delete m_pFuncFile;
|
||||||
|
|
||||||
|
CBotProgram::Free();
|
||||||
|
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,18 @@
|
||||||
|
#pragma once
|
||||||
|
|
||||||
|
#include <CBot/CBot.h>
|
||||||
|
#include <string>
|
||||||
|
|
||||||
|
extern std::string s;
|
||||||
|
|
||||||
|
class CClass
|
||||||
|
{
|
||||||
|
public:
|
||||||
|
CClass();
|
||||||
|
|
||||||
|
CBotClass* m_pClassPoint;
|
||||||
|
CBotClass* m_pClassPointIntr;
|
||||||
|
|
||||||
|
bool InitInstance();
|
||||||
|
void ExitInstance();
|
||||||
|
};
|
||||||
|
|
@ -0,0 +1,45 @@
|
||||||
|
#include "CClass.h"
|
||||||
|
#include "CBotDoc.h"
|
||||||
|
#include <iostream>
|
||||||
|
|
||||||
|
|
||||||
|
#include <fstream>
|
||||||
|
|
||||||
|
std::string str;
|
||||||
|
|
||||||
|
// routine to update the instance of the class Bot common
|
||||||
|
|
||||||
|
int main(int argc, char* argv[])
|
||||||
|
{
|
||||||
|
CClass newclass;
|
||||||
|
CBotDoc *botdoc;
|
||||||
|
if (argc != 2)
|
||||||
|
{
|
||||||
|
std::cout << "Usage: "<<argv[0] << " <filename>" << std::endl;
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
std::ifstream in(argv[1]);
|
||||||
|
std::cout << argv[1] << std::endl;
|
||||||
|
if (!in.good())
|
||||||
|
{
|
||||||
|
std::cout << "Oh no, error!" << std::endl;
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
std::string contents((std::istreambuf_iterator<char>(in)),
|
||||||
|
std::istreambuf_iterator<char>());
|
||||||
|
str = contents;
|
||||||
|
|
||||||
|
if(!newclass.InitInstance())
|
||||||
|
{
|
||||||
|
std::cerr << "Initialization not complete!" << std::endl;
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
botdoc = new CBotDoc(str);
|
||||||
|
// std::cout << "Hello CBot!" << std::endl << s;
|
||||||
|
botdoc->OnRun();
|
||||||
|
delete botdoc;
|
||||||
|
newclass.ExitInstance();
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,141 @@
|
||||||
|
// * 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/.
|
||||||
|
|
||||||
|
////////////////////////////////////////////////////////////////////
|
||||||
|
// routine show()
|
||||||
|
// utilisable depuis le programme écrit en CBot
|
||||||
|
|
||||||
|
|
||||||
|
#include <iostream>
|
||||||
|
#include <string>
|
||||||
|
#include "CBot/ClassFILE.cpp"
|
||||||
|
//std::string s;
|
||||||
|
/*
|
||||||
|
// execution
|
||||||
|
bool rShow( CBotVar* pVar, CBotVar* pResult, int& Exception, void* pUser )
|
||||||
|
{
|
||||||
|
string::string s;
|
||||||
|
|
||||||
|
while ( pVar != NULL )
|
||||||
|
{
|
||||||
|
string::string ss;
|
||||||
|
|
||||||
|
ss.LoadString( TX_TYPENAMES + pVar->GivType() );
|
||||||
|
s += ss + " ";
|
||||||
|
|
||||||
|
ss = pVar->GivName();
|
||||||
|
if (ss.IsEmpty()) ss = "<sans nom>";
|
||||||
|
s += ss + " = ";
|
||||||
|
|
||||||
|
s += pVar->GivValString();
|
||||||
|
s += "\n";
|
||||||
|
pVar = pVar->GivNext();
|
||||||
|
}
|
||||||
|
|
||||||
|
AfxMessageBox(s, MB_OK|MB_ICONINFORMATION);
|
||||||
|
|
||||||
|
return TRUE; // pas d'interruption
|
||||||
|
}
|
||||||
|
|
||||||
|
CBotTypResult cShow( CBotVar* &pVar, void* pUser)
|
||||||
|
{
|
||||||
|
if ( pVar == NULL ) return CBotTypResult(5028);
|
||||||
|
return CBotTypResult(0); // tous paramètres acceptés, void en retour
|
||||||
|
}
|
||||||
|
|
||||||
|
*/
|
||||||
|
|
||||||
|
////////////////////////////////////////////////////////////////////
|
||||||
|
// routine print()
|
||||||
|
// utilisable depuis le programme écrit en CBot
|
||||||
|
|
||||||
|
// exécution
|
||||||
|
|
||||||
|
bool rPrintLn( CBotVar* pVar, CBotVar* pResult, int& Exception, void* pUser )
|
||||||
|
{
|
||||||
|
std::string s;
|
||||||
|
while ( pVar != NULL )
|
||||||
|
{
|
||||||
|
if ( !s.empty() ) s += " ";
|
||||||
|
s += pVar->GivValString();
|
||||||
|
pVar = pVar->GivNext();
|
||||||
|
}
|
||||||
|
s += "\n";
|
||||||
|
|
||||||
|
std::cout << s;
|
||||||
|
return true; // pas d'interruption
|
||||||
|
}
|
||||||
|
|
||||||
|
bool rPrint( CBotVar* pVar, CBotVar* pResult, int& Exception, void* pUser )
|
||||||
|
{
|
||||||
|
std::string s;
|
||||||
|
while ( pVar != NULL )
|
||||||
|
{
|
||||||
|
if ( !s.empty() ) s += " ";
|
||||||
|
s += pVar->GivValString();
|
||||||
|
pVar = pVar->GivNext();
|
||||||
|
}
|
||||||
|
s += " ";
|
||||||
|
std::cout << s;
|
||||||
|
return true; // pas d'interruption
|
||||||
|
}
|
||||||
|
|
||||||
|
CBotTypResult cPrint( CBotVar* &pVar, void* pUser)
|
||||||
|
{
|
||||||
|
return CBotTypResult(0); // tous paramètres acceptés, un entier en retour
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
//////////////////////////////////////////////////////////////////
|
||||||
|
// class CPoint pour essayer
|
||||||
|
|
||||||
|
// exécution
|
||||||
|
bool rCPoint( CBotVar* pThis, CBotVar* pVar, CBotVar* pResult, int& Exception )
|
||||||
|
{
|
||||||
|
if ( pVar == NULL )return true; // constructor with no parameters is ok
|
||||||
|
|
||||||
|
CBotVar* pX = pThis->GivItem("x");
|
||||||
|
pX->SetValFloat( pVar->GivValFloat() );
|
||||||
|
pVar = pVar->GivNext();
|
||||||
|
|
||||||
|
CBotVar* pY = pThis->GivItem("y");
|
||||||
|
pY->SetValFloat( pVar->GivValFloat() );
|
||||||
|
pVar = pVar->GivNext();
|
||||||
|
|
||||||
|
return true; // pas d'interruption
|
||||||
|
}
|
||||||
|
|
||||||
|
CBotTypResult cCPoint( CBotVar* pThis, CBotVar* &pVar)
|
||||||
|
{
|
||||||
|
// ok if no parameters!
|
||||||
|
if ( pVar == NULL ) return CBotTypResult(0);
|
||||||
|
|
||||||
|
// numeric type of parameter please
|
||||||
|
if ( pVar->GivType() > CBotTypDouble ) return CBotTypResult(5011);
|
||||||
|
pVar = pVar->GivNext();
|
||||||
|
|
||||||
|
// there must be a second parameter
|
||||||
|
if ( pVar == NULL ) return 5028;
|
||||||
|
// also numeric
|
||||||
|
if ( pVar->GivType() > CBotTypDouble )return CBotTypResult(5011);
|
||||||
|
pVar = pVar->GivNext();
|
||||||
|
|
||||||
|
// and not more than 2 parameters please
|
||||||
|
if ( pVar != NULL ) return CBotTypResult(5026);
|
||||||
|
|
||||||
|
return CBotTypResult(0); // This function returns void
|
||||||
|
}
|
||||||
|
|
||||||
|
|
@ -1,164 +0,0 @@
|
||||||
// BotConsoleDlg.cpp : implementation file
|
|
||||||
//
|
|
||||||
|
|
||||||
#include "stdafx.h"
|
|
||||||
#include "TstCBot.h"
|
|
||||||
#include "BotConsoleDlg.h"
|
|
||||||
|
|
||||||
#ifdef _DEBUG
|
|
||||||
#define new DEBUG_NEW
|
|
||||||
#undef THIS_FILE
|
|
||||||
static char THIS_FILE[] = __FILE__;
|
|
||||||
#endif
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
// CBotConsoleDlg dialog
|
|
||||||
|
|
||||||
|
|
||||||
CBotConsoleDlg::CBotConsoleDlg(CWnd* pParent /*=NULL*/)
|
|
||||||
: CDialog(CBotConsoleDlg::IDD, pParent)
|
|
||||||
{
|
|
||||||
//{{AFX_DATA_INIT(CBotConsoleDlg)
|
|
||||||
// NOTE: the ClassWizard will add member initialization here
|
|
||||||
//}}AFX_DATA_INIT
|
|
||||||
m_pProg = NULL;
|
|
||||||
m_threadinfo.m_bRun = FALSE;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
void CBotConsoleDlg::DoDataExchange(CDataExchange* pDX)
|
|
||||||
{
|
|
||||||
CDialog::DoDataExchange(pDX);
|
|
||||||
//{{AFX_DATA_MAP(CBotConsoleDlg)
|
|
||||||
DDX_Control(pDX, IDOK, m_cOK);
|
|
||||||
DDX_Control(pDX, IDC_EDIT2, m_Edit2);
|
|
||||||
DDX_Control(pDX, IDC_EDIT1, m_Edit1);
|
|
||||||
//}}AFX_DATA_MAP
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
BEGIN_MESSAGE_MAP(CBotConsoleDlg, CDialog)
|
|
||||||
//{{AFX_MSG_MAP(CBotConsoleDlg)
|
|
||||||
ON_MESSAGE(WM_ENDPROG, EndProg)
|
|
||||||
//}}AFX_MSG_MAP
|
|
||||||
END_MESSAGE_MAP()
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
// CBotConsoleDlg message handlers
|
|
||||||
|
|
||||||
UINT ThreadProc(ThreadInfo *info)
|
|
||||||
{
|
|
||||||
CTime t0 = CTime::GetCurrentTime();
|
|
||||||
int Cpt = 0;
|
|
||||||
|
|
||||||
info->m_pProg->Start("LaCommande");
|
|
||||||
while ( !info->m_bStop && !info->m_pProg->Run() )
|
|
||||||
{
|
|
||||||
Cpt++;
|
|
||||||
if ( Cpt%20 == 0 ) info->m_pEdit1->ReplaceSel(".");
|
|
||||||
}
|
|
||||||
|
|
||||||
if ( info->m_bStop )
|
|
||||||
{
|
|
||||||
info->m_pEdit1->ReplaceSel("\r\nInterrompu\r\n");
|
|
||||||
}
|
|
||||||
else if (info->m_pProg->GivError() == 0)
|
|
||||||
{
|
|
||||||
CTime t = CTime::GetCurrentTime();
|
|
||||||
CTimeSpan ts = t - t0;
|
|
||||||
|
|
||||||
char buffer[200];
|
|
||||||
sprintf( buffer, "\r\nExécution terminée en %d secondes.\r\nInterrompue %d fois.\r\n",
|
|
||||||
ts.GetTotalSeconds(), Cpt);
|
|
||||||
|
|
||||||
info->m_pEdit1->ReplaceSel(buffer);
|
|
||||||
}
|
|
||||||
|
|
||||||
info->m_pWndMessage->SendMessage(WM_ENDPROG, 0, 0) ;
|
|
||||||
return 0 ;
|
|
||||||
}
|
|
||||||
|
|
||||||
LONG CBotConsoleDlg::EndProg(UINT wparam, LONG lparam)
|
|
||||||
{
|
|
||||||
m_threadinfo.m_bRun = FALSE;
|
|
||||||
|
|
||||||
if (m_pProg->GetError(m_code, m_start, m_end))
|
|
||||||
{
|
|
||||||
AfxMessageBox(m_code);
|
|
||||||
CDialog::OnCancel();
|
|
||||||
return 1;
|
|
||||||
}
|
|
||||||
delete m_pProg;
|
|
||||||
m_pProg = NULL;
|
|
||||||
|
|
||||||
m_Edit2.EnableWindow(TRUE);
|
|
||||||
m_cOK.EnableWindow(TRUE);
|
|
||||||
|
|
||||||
m_Edit2.SetWindowText("");
|
|
||||||
m_Edit2.SetFocus();
|
|
||||||
return 0 ;
|
|
||||||
}
|
|
||||||
|
|
||||||
void CBotConsoleDlg::OnOK()
|
|
||||||
{
|
|
||||||
CTstCBotApp* pApp = (CTstCBotApp*)AfxGetApp();
|
|
||||||
pApp->m_pConsole = &m_Edit1;
|
|
||||||
|
|
||||||
CString Commande;
|
|
||||||
m_Edit2.GetWindowText(Commande);
|
|
||||||
|
|
||||||
CString s = "void LaCommande() { " + Commande + " ;}";
|
|
||||||
m_pProg = new CBotProgram();
|
|
||||||
CBotStringArray liste;
|
|
||||||
m_pProg->Compile(s, liste);
|
|
||||||
int err, start, end;
|
|
||||||
if ( m_pProg->GetError(err, start, end) )
|
|
||||||
{
|
|
||||||
AfxMessageBox(err);
|
|
||||||
m_Edit2.SetSel(start-20, end-20);
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
|
|
||||||
m_Edit1.ReplaceSel(Commande + " ->\r\n");
|
|
||||||
|
|
||||||
m_Edit2.SetWindowText("");
|
|
||||||
m_Edit1.SetFocus();
|
|
||||||
m_Edit2.EnableWindow(FALSE);
|
|
||||||
m_cOK.EnableWindow(FALSE);
|
|
||||||
|
|
||||||
// lance un processus paralèle pour l'exécution
|
|
||||||
m_threadinfo.m_pWndMessage = this ;
|
|
||||||
|
|
||||||
m_threadinfo.m_pEdit1 = &m_Edit1;
|
|
||||||
m_threadinfo.m_pProg = m_pProg;
|
|
||||||
m_threadinfo.m_bStop = FALSE;
|
|
||||||
m_threadinfo.m_bRun = TRUE;
|
|
||||||
|
|
||||||
AfxBeginThread((AFX_THREADPROC)ThreadProc, &m_threadinfo) ;
|
|
||||||
}
|
|
||||||
|
|
||||||
void CBotConsoleDlg::OnCancel()
|
|
||||||
{
|
|
||||||
if (!m_threadinfo.m_bRun) CDialog::OnCancel();
|
|
||||||
m_threadinfo.m_bStop = TRUE ;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
BOOL CBotConsoleDlg::OnInitDialog()
|
|
||||||
{
|
|
||||||
CTstCBotApp* pApp = (CTstCBotApp*)AfxGetApp();
|
|
||||||
|
|
||||||
CDialog::OnInitDialog();
|
|
||||||
|
|
||||||
m_Edit1.ReplaceSel("Les fonctions suivantes sont disponibles:\r\n");
|
|
||||||
for ( int i = 0; i < pApp->m_Liste.RetSize(); i++ )
|
|
||||||
{
|
|
||||||
CBotString x = CString(pApp->m_Liste[i]) + "\r\n";
|
|
||||||
m_Edit1.ReplaceSel(x);
|
|
||||||
}
|
|
||||||
m_Edit1.ReplaceSel("Entrez une commande ci-dessous.\r\n\r\n");
|
|
||||||
|
|
||||||
|
|
||||||
return TRUE; // return TRUE unless you set the focus to a control
|
|
||||||
// EXCEPTION: OCX Property Pages should return FALSE
|
|
||||||
}
|
|
||||||
|
|
@ -1,65 +0,0 @@
|
||||||
#if !defined(AFX_BOTCONSOLEDLG_H__A11450A2_8E09_11D4_A439_00D059085115__INCLUDED_)
|
|
||||||
#define AFX_BOTCONSOLEDLG_H__A11450A2_8E09_11D4_A439_00D059085115__INCLUDED_
|
|
||||||
|
|
||||||
#if _MSC_VER >= 1000
|
|
||||||
#pragma once
|
|
||||||
#endif // _MSC_VER >= 1000
|
|
||||||
// BotConsoleDlg.h : header file
|
|
||||||
//
|
|
||||||
|
|
||||||
struct ThreadInfo
|
|
||||||
{
|
|
||||||
CEdit* m_pEdit1 ;
|
|
||||||
CBotProgram* m_pProg;
|
|
||||||
CWnd* m_pWndMessage;
|
|
||||||
BOOL m_bStop;
|
|
||||||
BOOL m_bRun;
|
|
||||||
};
|
|
||||||
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
// CBotConsoleDlg dialog
|
|
||||||
|
|
||||||
class CBotConsoleDlg : public CDialog
|
|
||||||
{
|
|
||||||
// Construction
|
|
||||||
public:
|
|
||||||
CBotConsoleDlg(CWnd* pParent = NULL); // standard constructor
|
|
||||||
|
|
||||||
// Dialog Data
|
|
||||||
//{{AFX_DATA(CBotConsoleDlg)
|
|
||||||
enum { IDD = IDD_CONSOLE };
|
|
||||||
CButton m_cOK;
|
|
||||||
CEdit m_Edit2;
|
|
||||||
CEdit m_Edit1;
|
|
||||||
//}}AFX_DATA
|
|
||||||
|
|
||||||
CBotProgram* m_pProg;
|
|
||||||
ThreadInfo m_threadinfo;
|
|
||||||
|
|
||||||
int m_code, m_start, m_end;
|
|
||||||
|
|
||||||
// Overrides
|
|
||||||
// ClassWizard generated virtual function overrides
|
|
||||||
//{{AFX_VIRTUAL(CBotConsoleDlg)
|
|
||||||
protected:
|
|
||||||
virtual void DoDataExchange(CDataExchange* pDX); // DDX/DDV support
|
|
||||||
//}}AFX_VIRTUAL
|
|
||||||
|
|
||||||
// Implementation
|
|
||||||
protected:
|
|
||||||
|
|
||||||
// Generated message map functions
|
|
||||||
//{{AFX_MSG(CBotConsoleDlg)
|
|
||||||
virtual void OnOK();
|
|
||||||
virtual void OnCancel();
|
|
||||||
virtual BOOL OnInitDialog();
|
|
||||||
afx_msg LONG EndProg(UINT wparam, LONG lparam) ;
|
|
||||||
//}}AFX_MSG
|
|
||||||
DECLARE_MESSAGE_MAP()
|
|
||||||
};
|
|
||||||
|
|
||||||
//{{AFX_INSERT_LOCATION}}
|
|
||||||
// Microsoft Developer Studio will insert additional declarations immediately before the previous line.
|
|
||||||
|
|
||||||
#endif // !defined(AFX_BOTCONSOLEDLG_H__A11450A2_8E09_11D4_A439_00D059085115__INCLUDED_)
|
|
||||||
|
|
@ -1,56 +0,0 @@
|
||||||
// BotErrorDlg.cpp : implementation file
|
|
||||||
//
|
|
||||||
|
|
||||||
#include "stdafx.h"
|
|
||||||
#include "TstCBot.h"
|
|
||||||
#include "BotErrorDlg.h"
|
|
||||||
|
|
||||||
#ifdef _DEBUG
|
|
||||||
#define new DEBUG_NEW
|
|
||||||
#undef THIS_FILE
|
|
||||||
static char THIS_FILE[] = __FILE__;
|
|
||||||
#endif
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
// CBotErrorDlg dialog
|
|
||||||
|
|
||||||
|
|
||||||
CBotErrorDlg::CBotErrorDlg(CWnd* pParent /*=NULL*/)
|
|
||||||
: CDialog(CBotErrorDlg::IDD, pParent)
|
|
||||||
{
|
|
||||||
//{{AFX_DATA_INIT(CBotErrorDlg)
|
|
||||||
m_TextProgram = _T("");
|
|
||||||
//}}AFX_DATA_INIT
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
void CBotErrorDlg::DoDataExchange(CDataExchange* pDX)
|
|
||||||
{
|
|
||||||
CDialog::DoDataExchange(pDX);
|
|
||||||
//{{AFX_DATA_MAP(CBotErrorDlg)
|
|
||||||
DDX_Control(pDX, IDC_EDIT1, m_eProgram);
|
|
||||||
DDX_Control(pDX, IDC_STATIC1, m_sMessage);
|
|
||||||
DDX_Text(pDX, IDC_EDIT1, m_TextProgram);
|
|
||||||
//}}AFX_DATA_MAP
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
BEGIN_MESSAGE_MAP(CBotErrorDlg, CDialog)
|
|
||||||
//{{AFX_MSG_MAP(CBotErrorDlg)
|
|
||||||
//}}AFX_MSG_MAP
|
|
||||||
END_MESSAGE_MAP()
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
// CBotErrorDlg message handlers
|
|
||||||
|
|
||||||
BOOL CBotErrorDlg::OnInitDialog()
|
|
||||||
{
|
|
||||||
CDialog::OnInitDialog();
|
|
||||||
|
|
||||||
m_sMessage.SetWindowText(m_TextError);
|
|
||||||
m_eProgram.SetFocus();
|
|
||||||
m_eProgram.SetSel(m_start, m_end);
|
|
||||||
|
|
||||||
return FALSE; // return TRUE unless you set the focus to a control
|
|
||||||
// EXCEPTION: OCX Property Pages should return FALSE
|
|
||||||
}
|
|
||||||
|
|
@ -1,51 +0,0 @@
|
||||||
#if !defined(AFX_BOTERRORDLG_H__80E73D20_7454_11D4_A439_00D059085115__INCLUDED_)
|
|
||||||
#define AFX_BOTERRORDLG_H__80E73D20_7454_11D4_A439_00D059085115__INCLUDED_
|
|
||||||
|
|
||||||
#if _MSC_VER >= 1000
|
|
||||||
#pragma once
|
|
||||||
#endif // _MSC_VER >= 1000
|
|
||||||
// BotErrorDlg.h : header file
|
|
||||||
//
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
// CBotErrorDlg dialog
|
|
||||||
|
|
||||||
class CBotErrorDlg : public CDialog
|
|
||||||
{
|
|
||||||
// Construction
|
|
||||||
public:
|
|
||||||
CBotErrorDlg(CWnd* pParent = NULL); // standard constructor
|
|
||||||
|
|
||||||
// Dialog Data
|
|
||||||
//{{AFX_DATA(CBotErrorDlg)
|
|
||||||
enum { IDD = IDD_DIALOG1 };
|
|
||||||
CEdit m_eProgram;
|
|
||||||
CStatic m_sMessage;
|
|
||||||
CString m_TextProgram;
|
|
||||||
//}}AFX_DATA
|
|
||||||
|
|
||||||
|
|
||||||
CString m_TextError;
|
|
||||||
int m_start, m_end;
|
|
||||||
|
|
||||||
// Overrides
|
|
||||||
// ClassWizard generated virtual function overrides
|
|
||||||
//{{AFX_VIRTUAL(CBotErrorDlg)
|
|
||||||
protected:
|
|
||||||
virtual void DoDataExchange(CDataExchange* pDX); // DDX/DDV support
|
|
||||||
//}}AFX_VIRTUAL
|
|
||||||
|
|
||||||
// Implementation
|
|
||||||
protected:
|
|
||||||
|
|
||||||
// Generated message map functions
|
|
||||||
//{{AFX_MSG(CBotErrorDlg)
|
|
||||||
virtual BOOL OnInitDialog();
|
|
||||||
//}}AFX_MSG
|
|
||||||
DECLARE_MESSAGE_MAP()
|
|
||||||
};
|
|
||||||
|
|
||||||
//{{AFX_INSERT_LOCATION}}
|
|
||||||
// Microsoft Developer Studio will insert additional declarations immediately before the previous line.
|
|
||||||
|
|
||||||
#endif // !defined(AFX_BOTERRORDLG_H__80E73D20_7454_11D4_A439_00D059085115__INCLUDED_)
|
|
||||||
|
|
@ -1,36 +0,0 @@
|
||||||
|
|
||||||
extern void TheTest()
|
|
||||||
{
|
|
||||||
for (int x = 130; x>0; x--) print (x);
|
|
||||||
}
|
|
||||||
|
|
||||||
extern void Test()
|
|
||||||
{
|
|
||||||
int var = 10000 ;
|
|
||||||
while (var > 0) var = var -1;
|
|
||||||
}
|
|
||||||
// exécuté en 30 secondes
|
|
||||||
|
|
||||||
extern void Autre()
|
|
||||||
{
|
|
||||||
int var = 10000 ;
|
|
||||||
while (var > 0) if ( var > 0 ) var = var -1;
|
|
||||||
}
|
|
||||||
// exécuté en 45 secondes
|
|
||||||
|
|
||||||
int Y ( int n )
|
|
||||||
{
|
|
||||||
if ( n < 2 ) return n;
|
|
||||||
int a = Y(n-1) + Y(n-2);
|
|
||||||
return a;
|
|
||||||
}
|
|
||||||
|
|
||||||
extern int X ( int n )
|
|
||||||
{
|
|
||||||
if ( n < 2 ) { print(n); return n; }
|
|
||||||
int a = X(n-1) + Y(n-2);
|
|
||||||
print (a);
|
|
||||||
return a;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -1,107 +0,0 @@
|
||||||
// CMyThread.cpp : pour créer un processus pour la console
|
|
||||||
//
|
|
||||||
|
|
||||||
#include "stdafx.h"
|
|
||||||
#include "TstCBot.h"
|
|
||||||
#include "CMyThread.h"
|
|
||||||
#include "BotConsoleDlg.h"
|
|
||||||
|
|
||||||
|
|
||||||
//IMPLEMENT_DYNAMIC (CMyThread, CWinThread)
|
|
||||||
IMPLEMENT_DYNCREATE (CMyThread, CWinThread)
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
// CMyThread
|
|
||||||
|
|
||||||
BEGIN_MESSAGE_MAP(CMyThread, CWinThread)
|
|
||||||
//{{AFX_MSG_MAP(CMyThread)
|
|
||||||
//}}AFX_MSG_MAP
|
|
||||||
// Standard file based document commands
|
|
||||||
END_MESSAGE_MAP()
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
// CMyThread construction
|
|
||||||
|
|
||||||
CMyThread::CMyThread()
|
|
||||||
{
|
|
||||||
// TODO: add construction code here,
|
|
||||||
// Place all significant initialization in InitInstance
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
// CMyThread initialization
|
|
||||||
/*
|
|
||||||
BOOL CMyThread::InitInstance()
|
|
||||||
{
|
|
||||||
AfxEnableControlContainer();
|
|
||||||
|
|
||||||
CTstCBotApp* pApp = (CTstCBotApp*)AfxGetApp();
|
|
||||||
|
|
||||||
// ouvre une fenêtre pour afficher les sorties
|
|
||||||
CRect rect;
|
|
||||||
AfxGetMainWnd()->GetClientRect( rect );
|
|
||||||
rect += CPoint(30,30);
|
|
||||||
|
|
||||||
CWnd* pWnd = new CWnd();
|
|
||||||
pWnd->CreateEx( 0,
|
|
||||||
AfxRegisterWndClass(0, AfxGetApp()->LoadStandardCursor(IDC_ARROW)),
|
|
||||||
"CBot console", WS_POPUPWINDOW|WS_CAPTION|WS_VISIBLE,
|
|
||||||
rect,
|
|
||||||
AfxGetMainWnd()->GetParent(), NULL, NULL);
|
|
||||||
m_pMainWnd = pWnd;
|
|
||||||
|
|
||||||
pApp->m_pEdit2 = new CEdit();
|
|
||||||
|
|
||||||
m_pMainWnd->GetClientRect( rect );
|
|
||||||
rect.bottom -= 40;
|
|
||||||
pApp->m_pEdit2->Create( WS_VISIBLE|WS_BORDER|WS_TABSTOP|ES_MULTILINE|ES_WANTRETURN|
|
|
||||||
ES_AUTOVSCROLL|ES_READONLY,
|
|
||||||
rect, m_pMainWnd, IDC_EDIT2 );
|
|
||||||
|
|
||||||
pApp->m_pEdit2->ReplaceSel("Les fonctions suivantes sont disponibles:\n\r");
|
|
||||||
for ( int i = 0; i < pApp->m_Liste.RetSize(); i++ )
|
|
||||||
{
|
|
||||||
pApp->m_pEdit2->ReplaceSel(pApp->m_Liste[i] + "\r\n");
|
|
||||||
}
|
|
||||||
pApp->m_pEdit2->ReplaceSel("Entrez une commande ci-dessous.\r\r");
|
|
||||||
|
|
||||||
|
|
||||||
// pApp->m_pEdit2->SetFocus();
|
|
||||||
|
|
||||||
pApp->m_pEdit3 = new CEdit();
|
|
||||||
m_pMainWnd->GetClientRect( rect );
|
|
||||||
rect.top = rect.bottom-40;
|
|
||||||
pApp->m_pEdit3->Create( WS_VISIBLE|WS_BORDER|WS_TABSTOP,
|
|
||||||
rect, m_pMainWnd, IDC_EDIT1 );
|
|
||||||
pApp->m_pEdit3->SetFocus();
|
|
||||||
|
|
||||||
return TRUE;
|
|
||||||
}*/
|
|
||||||
|
|
||||||
BOOL CMyThread::InitInstance()
|
|
||||||
{
|
|
||||||
CBotConsoleDlg dlg;
|
|
||||||
m_pMainWnd = &dlg; // cela ferme l'application avec la DBOX !
|
|
||||||
|
|
||||||
int nResponse = dlg.DoModal();
|
|
||||||
|
|
||||||
return TRUE;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
int CMyThread::ExitInstance()
|
|
||||||
{
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
// CMyThread message handlers
|
|
||||||
|
|
||||||
|
|
||||||
void CMyThread::OnReturn()
|
|
||||||
{
|
|
||||||
// TODO: Add your command handler code here
|
|
||||||
__asm int 3;
|
|
||||||
}
|
|
||||||
|
|
@ -1,44 +0,0 @@
|
||||||
// CMyThread.h : pour créer un processus pour la console
|
|
||||||
//
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
|
|
||||||
#if !defined(AFX_MAINFRM_H__20B3756C_5DFD_11D4_A15E_00E0189013DF__INCLUDED_)
|
|
||||||
#define AFX_MAINFRM_H__20B3756C_5DFD_11D4_A15E_00E0189013DF__INCLUDED_
|
|
||||||
|
|
||||||
|
|
||||||
#include "stdafx.h"
|
|
||||||
#include "TstCBot.h"
|
|
||||||
|
|
||||||
class CMyThread : public CWinThread
|
|
||||||
{
|
|
||||||
// DECLARE_DYNAMIC(CMyThread)
|
|
||||||
DECLARE_DYNCREATE(CMyThread)
|
|
||||||
|
|
||||||
public:
|
|
||||||
|
|
||||||
|
|
||||||
// Constructor
|
|
||||||
CMyThread();
|
|
||||||
virtual BOOL InitInstance();
|
|
||||||
virtual int ExitInstance(); // return app exit code
|
|
||||||
|
|
||||||
// Implementation
|
|
||||||
|
|
||||||
//{{AFX_MSG(CTstCBotApp)
|
|
||||||
afx_msg void OnAppAbout();
|
|
||||||
// NOTE - the ClassWizard will add and remove member functions here.
|
|
||||||
// DO NOT EDIT what you see in these blocks of generated code !
|
|
||||||
//}}AFX_MSG
|
|
||||||
|
|
||||||
// Generated message map functions
|
|
||||||
protected:
|
|
||||||
//{{AFX_MSG(CMainFrame)
|
|
||||||
afx_msg void OnReturn();
|
|
||||||
//}}AFX_MSG
|
|
||||||
DECLARE_MESSAGE_MAP()
|
|
||||||
};
|
|
||||||
|
|
||||||
//{{AFX_INSERT_LOCATION}}
|
|
||||||
// Microsoft Developer Studio will insert additional declarations immediately before the previous line.
|
|
||||||
|
|
||||||
#endif // !defined(AFX_MAINFRM_H__20B3756C_5DFD_11D4_A15E_00E0189013DF__INCLUDED_)
|
|
||||||
|
|
@ -1,91 +0,0 @@
|
||||||
// MainFrm.cpp : implementation of the CMainFrame class
|
|
||||||
//
|
|
||||||
|
|
||||||
#include "stdafx.h"
|
|
||||||
#include "TstCBot.h"
|
|
||||||
|
|
||||||
#include "MainFrm.h"
|
|
||||||
#include "BotErrorDlg.h"
|
|
||||||
|
|
||||||
#ifdef _DEBUG
|
|
||||||
#define new DEBUG_NEW
|
|
||||||
#undef THIS_FILE
|
|
||||||
static char THIS_FILE[] = __FILE__;
|
|
||||||
#endif
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
// CMainFrame
|
|
||||||
|
|
||||||
IMPLEMENT_DYNCREATE(CMainFrame, CFrameWnd)
|
|
||||||
|
|
||||||
BEGIN_MESSAGE_MAP(CMainFrame, CFrameWnd)
|
|
||||||
//{{AFX_MSG_MAP(CMainFrame)
|
|
||||||
ON_WM_CREATE()
|
|
||||||
//}}AFX_MSG_MAP
|
|
||||||
END_MESSAGE_MAP()
|
|
||||||
|
|
||||||
static UINT indicators[] =
|
|
||||||
{
|
|
||||||
ID_SEPARATOR, // status line indicator
|
|
||||||
ID_INDICATOR_CAPS,
|
|
||||||
ID_INDICATOR_NUM,
|
|
||||||
ID_INDICATOR_SCRL,
|
|
||||||
};
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
// CMainFrame construction/destruction
|
|
||||||
|
|
||||||
CMainFrame::CMainFrame()
|
|
||||||
{
|
|
||||||
// TODO: add member initialization code here
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
CMainFrame::~CMainFrame()
|
|
||||||
{
|
|
||||||
}
|
|
||||||
|
|
||||||
int CMainFrame::OnCreate(LPCREATESTRUCT lpCreateStruct)
|
|
||||||
{
|
|
||||||
if (CFrameWnd::OnCreate(lpCreateStruct) == -1)
|
|
||||||
return -1;
|
|
||||||
|
|
||||||
if (!m_wndStatusBar.Create(this) ||
|
|
||||||
!m_wndStatusBar.SetIndicators(indicators,
|
|
||||||
sizeof(indicators)/sizeof(UINT)))
|
|
||||||
{
|
|
||||||
TRACE0("Failed to create status bar\n");
|
|
||||||
return -1; // fail to create
|
|
||||||
}
|
|
||||||
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
BOOL CMainFrame::PreCreateWindow(CREATESTRUCT& cs)
|
|
||||||
{
|
|
||||||
// TODO: Modify the Window class or styles here by modifying
|
|
||||||
// the CREATESTRUCT cs
|
|
||||||
|
|
||||||
return CFrameWnd::PreCreateWindow(cs);
|
|
||||||
}
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
// CMainFrame diagnostics
|
|
||||||
|
|
||||||
#ifdef _DEBUG
|
|
||||||
void CMainFrame::AssertValid() const
|
|
||||||
{
|
|
||||||
CFrameWnd::AssertValid();
|
|
||||||
}
|
|
||||||
|
|
||||||
void CMainFrame::Dump(CDumpContext& dc) const
|
|
||||||
{
|
|
||||||
CFrameWnd::Dump(dc);
|
|
||||||
}
|
|
||||||
|
|
||||||
#endif //_DEBUG
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
// CMainFrame message handlers
|
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -1,55 +0,0 @@
|
||||||
// MainFrm.h : interface of the CMainFrame class
|
|
||||||
//
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
|
|
||||||
#if !defined(AFX_MAINFRM_H__70B3756C_5DFD_11D4_A15E_00E0189013DF__INCLUDED_)
|
|
||||||
#define AFX_MAINFRM_H__70B3756C_5DFD_11D4_A15E_00E0189013DF__INCLUDED_
|
|
||||||
|
|
||||||
#if _MSC_VER >= 1000
|
|
||||||
#pragma once
|
|
||||||
#endif // _MSC_VER >= 1000
|
|
||||||
|
|
||||||
class CMainFrame : public CFrameWnd
|
|
||||||
{
|
|
||||||
protected: // create from serialization only
|
|
||||||
CMainFrame();
|
|
||||||
DECLARE_DYNCREATE(CMainFrame)
|
|
||||||
|
|
||||||
// Attributes
|
|
||||||
public:
|
|
||||||
|
|
||||||
// Operations
|
|
||||||
public:
|
|
||||||
|
|
||||||
// Overrides
|
|
||||||
// ClassWizard generated virtual function overrides
|
|
||||||
//{{AFX_VIRTUAL(CMainFrame)
|
|
||||||
virtual BOOL PreCreateWindow(CREATESTRUCT& cs);
|
|
||||||
//}}AFX_VIRTUAL
|
|
||||||
|
|
||||||
// Implementation
|
|
||||||
public:
|
|
||||||
virtual ~CMainFrame();
|
|
||||||
#ifdef _DEBUG
|
|
||||||
virtual void AssertValid() const;
|
|
||||||
virtual void Dump(CDumpContext& dc) const;
|
|
||||||
#endif
|
|
||||||
|
|
||||||
protected: // control bar embedded members
|
|
||||||
CStatusBar m_wndStatusBar;
|
|
||||||
|
|
||||||
// Generated message map functions
|
|
||||||
protected:
|
|
||||||
//{{AFX_MSG(CMainFrame)
|
|
||||||
afx_msg int OnCreate(LPCREATESTRUCT lpCreateStruct);
|
|
||||||
afx_msg void OnCp1();
|
|
||||||
//}}AFX_MSG
|
|
||||||
DECLARE_MESSAGE_MAP()
|
|
||||||
};
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
|
|
||||||
//{{AFX_INSERT_LOCATION}}
|
|
||||||
// Microsoft Developer Studio will insert additional declarations immediately before the previous line.
|
|
||||||
|
|
||||||
#endif // !defined(AFX_MAINFRM_H__70B3756C_5DFD_11D4_A15E_00E0189013DF__INCLUDED_)
|
|
||||||
|
|
@ -1,93 +0,0 @@
|
||||||
========================================================================
|
|
||||||
MICROSOFT FOUNDATION CLASS LIBRARY : TstCBot
|
|
||||||
========================================================================
|
|
||||||
|
|
||||||
|
|
||||||
AppWizard has created this TstCBot application for you. This application
|
|
||||||
not only demonstrates the basics of using the Microsoft Foundation classes
|
|
||||||
but is also a starting point for writing your application.
|
|
||||||
|
|
||||||
This file contains a summary of what you will find in each of the files that
|
|
||||||
make up your TstCBot application.
|
|
||||||
|
|
||||||
TstCBot.h
|
|
||||||
This is the main header file for the application. It includes other
|
|
||||||
project specific headers (including Resource.h) and declares the
|
|
||||||
CTstCBotApp application class.
|
|
||||||
|
|
||||||
TstCBot.cpp
|
|
||||||
This is the main application source file that contains the application
|
|
||||||
class CTstCBotApp.
|
|
||||||
|
|
||||||
TstCBot.rc
|
|
||||||
This is a listing of all of the Microsoft Windows resources that the
|
|
||||||
program uses. It includes the icons, bitmaps, and cursors that are stored
|
|
||||||
in the RES subdirectory. This file can be directly edited in Microsoft
|
|
||||||
Developer Studio.
|
|
||||||
|
|
||||||
res\TstCBot.ico
|
|
||||||
This is an icon file, which is used as the application's icon. This
|
|
||||||
icon is included by the main resource file TstCBot.rc.
|
|
||||||
|
|
||||||
res\TstCBot.rc2
|
|
||||||
This file contains resources that are not edited by Microsoft
|
|
||||||
Developer Studio. You should place all resources not
|
|
||||||
editable by the resource editor in this file.
|
|
||||||
|
|
||||||
TstCBot.clw
|
|
||||||
This file contains information used by ClassWizard to edit existing
|
|
||||||
classes or add new classes. ClassWizard also uses this file to store
|
|
||||||
information needed to create and edit message maps and dialog data
|
|
||||||
maps and to create prototype member functions.
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
|
|
||||||
For the main frame window:
|
|
||||||
|
|
||||||
MainFrm.h, MainFrm.cpp
|
|
||||||
These files contain the frame class CMainFrame, which is derived from
|
|
||||||
CFrameWnd and controls all SDI frame features.
|
|
||||||
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
|
|
||||||
AppWizard creates one document type and one view:
|
|
||||||
|
|
||||||
TstCBotDoc.h, TstCBotDoc.cpp - the document
|
|
||||||
These files contain your CTstCBotDoc class. Edit these files to
|
|
||||||
add your special document data and to implement file saving and loading
|
|
||||||
(via CTstCBotDoc::Serialize).
|
|
||||||
|
|
||||||
TstCBotView.h, TstCBotView.cpp - the view of the document
|
|
||||||
These files contain your CTstCBotView class.
|
|
||||||
CTstCBotView objects are used to view CTstCBotDoc objects.
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
Other standard files:
|
|
||||||
|
|
||||||
StdAfx.h, StdAfx.cpp
|
|
||||||
These files are used to build a precompiled header (PCH) file
|
|
||||||
named TstCBot.pch and a precompiled types file named StdAfx.obj.
|
|
||||||
|
|
||||||
Resource.h
|
|
||||||
This is the standard header file, which defines new resource IDs.
|
|
||||||
Microsoft Developer Studio reads and updates this file.
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
Other notes:
|
|
||||||
|
|
||||||
AppWizard uses "TODO:" to indicate parts of the source code you
|
|
||||||
should add to or customize.
|
|
||||||
|
|
||||||
If your application uses MFC in a shared DLL, and your application is
|
|
||||||
in a language other than the operating system's current language, you
|
|
||||||
will need to copy the corresponding localized resources MFC40XXX.DLL
|
|
||||||
from the Microsoft Visual C++ CD-ROM onto the system or system32 directory,
|
|
||||||
and rename it to be MFCLOC.DLL. ("XXX" stands for the language abbreviation.
|
|
||||||
For example, MFC40DEU.DLL contains resources translated to German.) If you
|
|
||||||
don't do this, some of the UI elements of your application will remain in the
|
|
||||||
language of the operating system.
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
|
|
@ -1,68 +0,0 @@
|
||||||
//{{NO_DEPENDENCIES}}
|
|
||||||
// Microsoft Developer Studio generated include file.
|
|
||||||
// Used by TstCBot.rc
|
|
||||||
//
|
|
||||||
#define IDD_ABOUTBOX 100
|
|
||||||
#define IDR_MAINFRAME 128
|
|
||||||
#define IDR_TSTCBOTYPE 129
|
|
||||||
#define IDD_DIALOG1 130
|
|
||||||
#define IDD_CONSOLE 131
|
|
||||||
#define IDC_EDIT1 1000
|
|
||||||
#define TX_TYPENAMES 1000
|
|
||||||
#define IDC_STATIC1 1001
|
|
||||||
#define IDC_EDIT2 1002
|
|
||||||
#define TX_OPENPAR 5000
|
|
||||||
#define TX_CLOSEPAR 5001
|
|
||||||
#define TX_NOTBOOL 5002
|
|
||||||
#define TX_UNDEFVAR 5003
|
|
||||||
#define TX_BADLEFT 5004
|
|
||||||
#define TX_ENDOF 5005
|
|
||||||
#define TX_OUTCASE 5006
|
|
||||||
#define TX_NOTERM 5007
|
|
||||||
#define TX_CLOSEBLK 5008
|
|
||||||
#define TX_ELSEWITHOUTIF 5009
|
|
||||||
#define TX_OPENBLK 5010
|
|
||||||
#define TX_BADTYPE 5011
|
|
||||||
#define TX_REDEFVAR 5012
|
|
||||||
#define TX_BAD2TYPE 5013
|
|
||||||
#define TX_UNDEFCALL 5014
|
|
||||||
#define TX_MISDOTS 5015
|
|
||||||
#define TX_WHILE 5016
|
|
||||||
#define TX_BREAK 5017
|
|
||||||
#define TX_LABEL 5018
|
|
||||||
#define TX_NOLABEL 5019
|
|
||||||
#define TX_NOCASE 5020
|
|
||||||
#define TX_BADNUM 5021
|
|
||||||
#define TX_VOID 5022
|
|
||||||
#define TX_NOTYP 5023
|
|
||||||
#define TX_NOVAR 5024
|
|
||||||
#define TX_NOFONC 5025
|
|
||||||
#define TX_OVERPARAM 5026
|
|
||||||
#define TX_REDEF 5027
|
|
||||||
#define TX_LOWPARAM 5028
|
|
||||||
#define TX_BADPARAM 5029
|
|
||||||
#define TX_NUMPARAM 5030
|
|
||||||
#define TX_NOITEM 5031
|
|
||||||
#define TX_DOT 5032
|
|
||||||
#define TX_NOCONST 5033
|
|
||||||
#define TX_REDEFCLASS 5034
|
|
||||||
#define TX_DIVZERO 6000
|
|
||||||
#define TX_NOTINIT 6001
|
|
||||||
#define TX_BADTHROW 6002
|
|
||||||
#define TX_NORETVAL 6003
|
|
||||||
#define TX_NORUN 6004
|
|
||||||
#define TX_NOCALL 6005
|
|
||||||
#define ID_CP1 32771
|
|
||||||
#define ID_EXE 32772
|
|
||||||
|
|
||||||
// Next default values for new objects
|
|
||||||
//
|
|
||||||
#ifdef APSTUDIO_INVOKED
|
|
||||||
#ifndef APSTUDIO_READONLY_SYMBOLS
|
|
||||||
#define _APS_3D_CONTROLS 1
|
|
||||||
#define _APS_NEXT_RESOURCE_VALUE 132
|
|
||||||
#define _APS_NEXT_COMMAND_VALUE 32775
|
|
||||||
#define _APS_NEXT_CONTROL_VALUE 1002
|
|
||||||
#define _APS_NEXT_SYMED_VALUE 101
|
|
||||||
#endif
|
|
||||||
#endif
|
|
||||||
|
|
@ -1,6 +0,0 @@
|
||||||
// stdafx.cpp : source file that includes just the standard includes
|
|
||||||
// TstCBot.pch will be the pre-compiled header
|
|
||||||
// stdafx.obj will contain the pre-compiled type information
|
|
||||||
|
|
||||||
#include "stdafx.h"
|
|
||||||
|
|
||||||
|
|
@ -1,26 +0,0 @@
|
||||||
// stdafx.h : include file for standard system include files,
|
|
||||||
// or project specific include files that are used frequently, but
|
|
||||||
// are changed infrequently
|
|
||||||
//
|
|
||||||
|
|
||||||
#if !defined(AFX_STDAFX_H__70B3756A_5DFD_11D4_A15E_00E0189013DF__INCLUDED_)
|
|
||||||
#define AFX_STDAFX_H__70B3756A_5DFD_11D4_A15E_00E0189013DF__INCLUDED_
|
|
||||||
|
|
||||||
#if _MSC_VER >= 1000
|
|
||||||
#pragma once
|
|
||||||
#endif // _MSC_VER >= 1000
|
|
||||||
|
|
||||||
#define VC_EXTRALEAN // Exclude rarely-used stuff from Windows headers
|
|
||||||
|
|
||||||
#include <afxwin.h> // MFC core and standard components
|
|
||||||
#include <afxext.h> // MFC extensions
|
|
||||||
#include <afxdisp.h> // MFC OLE automation classes
|
|
||||||
#ifndef _AFX_NO_AFXCMN_SUPPORT
|
|
||||||
#include <afxcmn.h> // MFC support for Windows Common Controls
|
|
||||||
#endif // _AFX_NO_AFXCMN_SUPPORT
|
|
||||||
|
|
||||||
|
|
||||||
//{{AFX_INSERT_LOCATION}}
|
|
||||||
// Microsoft Developer Studio will insert additional declarations immediately before the previous line.
|
|
||||||
|
|
||||||
#endif // !defined(AFX_STDAFX_H__70B3756A_5DFD_11D4_A15E_00E0189013DF__INCLUDED_)
|
|
||||||
|
|
@ -1,189 +0,0 @@
|
||||||
; CLW file contains information for the MFC ClassWizard
|
|
||||||
|
|
||||||
[General Info]
|
|
||||||
Version=1
|
|
||||||
LastClass=CTstCBotView
|
|
||||||
LastTemplate=CDialog
|
|
||||||
NewFileInclude1=#include "stdafx.h"
|
|
||||||
NewFileInclude2=#include "TstCBot.h"
|
|
||||||
LastPage=0
|
|
||||||
|
|
||||||
ClassCount=7
|
|
||||||
Class1=CTstCBotApp
|
|
||||||
Class2=CTstCBotDoc
|
|
||||||
Class3=CTstCBotView
|
|
||||||
Class4=CMainFrame
|
|
||||||
|
|
||||||
ResourceCount=6
|
|
||||||
Resource1=IDD_ABOUTBOX
|
|
||||||
Resource2=IDR_MAINFRAME
|
|
||||||
Class5=CAboutDlg
|
|
||||||
Resource3=IDD_ABOUTBOX (French (France))
|
|
||||||
Resource4=IDD_CONSOLE
|
|
||||||
Class6=CBotErrorDlg
|
|
||||||
Resource5=IDD_DIALOG1 (French (Switzerland))
|
|
||||||
Class7=CBotConsoleDlg
|
|
||||||
Resource6=IDR_MAINFRAME (French (France))
|
|
||||||
|
|
||||||
[CLS:CTstCBotApp]
|
|
||||||
Type=0
|
|
||||||
HeaderFile=TstCBot.h
|
|
||||||
ImplementationFile=TstCBot.cpp
|
|
||||||
Filter=N
|
|
||||||
|
|
||||||
[CLS:CTstCBotDoc]
|
|
||||||
Type=0
|
|
||||||
HeaderFile=TstCBotDoc.h
|
|
||||||
ImplementationFile=TstCBotDoc.cpp
|
|
||||||
Filter=N
|
|
||||||
BaseClass=CDocument
|
|
||||||
VirtualFilter=DC
|
|
||||||
LastObject=CTstCBotDoc
|
|
||||||
|
|
||||||
[CLS:CTstCBotView]
|
|
||||||
Type=0
|
|
||||||
HeaderFile=TstCBotView.h
|
|
||||||
ImplementationFile=TstCBotView.cpp
|
|
||||||
Filter=C
|
|
||||||
BaseClass=CView
|
|
||||||
VirtualFilter=VWC
|
|
||||||
LastObject=CTstCBotView
|
|
||||||
|
|
||||||
[CLS:CMainFrame]
|
|
||||||
Type=0
|
|
||||||
HeaderFile=MainFrm.h
|
|
||||||
ImplementationFile=MainFrm.cpp
|
|
||||||
Filter=T
|
|
||||||
BaseClass=CFrameWnd
|
|
||||||
VirtualFilter=fWC
|
|
||||||
LastObject=CMainFrame
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
[CLS:CAboutDlg]
|
|
||||||
Type=0
|
|
||||||
HeaderFile=TstCBot.cpp
|
|
||||||
ImplementationFile=TstCBot.cpp
|
|
||||||
Filter=D
|
|
||||||
|
|
||||||
[DLG:IDD_ABOUTBOX]
|
|
||||||
Type=1
|
|
||||||
Class=CAboutDlg
|
|
||||||
ControlCount=4
|
|
||||||
Control1=IDC_STATIC,static,1342177283
|
|
||||||
Control2=IDC_STATIC,static,1342308480
|
|
||||||
Control3=IDC_STATIC,static,1342308352
|
|
||||||
Control4=IDOK,button,1342373889
|
|
||||||
|
|
||||||
[MNU:IDR_MAINFRAME]
|
|
||||||
Type=1
|
|
||||||
Class=CMainFrame
|
|
||||||
Command1=ID_FILE_NEW
|
|
||||||
Command2=ID_FILE_OPEN
|
|
||||||
Command3=ID_FILE_SAVE
|
|
||||||
Command4=ID_FILE_SAVE_AS
|
|
||||||
Command5=ID_FILE_MRU_FILE1
|
|
||||||
Command6=ID_APP_EXIT
|
|
||||||
Command7=ID_EDIT_UNDO
|
|
||||||
Command8=ID_EDIT_CUT
|
|
||||||
Command9=ID_EDIT_COPY
|
|
||||||
Command10=ID_EDIT_PASTE
|
|
||||||
Command11=ID_VIEW_STATUS_BAR
|
|
||||||
Command12=ID_CP1
|
|
||||||
Command13=ID_EXE
|
|
||||||
Command14=ID_APP_ABOUT
|
|
||||||
CommandCount=14
|
|
||||||
|
|
||||||
[ACL:IDR_MAINFRAME]
|
|
||||||
Type=1
|
|
||||||
Class=CMainFrame
|
|
||||||
Command1=ID_CP1
|
|
||||||
Command2=ID_FILE_NEW
|
|
||||||
Command3=ID_FILE_OPEN
|
|
||||||
Command4=ID_FILE_SAVE
|
|
||||||
Command5=ID_EXE
|
|
||||||
Command6=ID_EDIT_UNDO
|
|
||||||
Command7=ID_EDIT_CUT
|
|
||||||
Command8=ID_EXE
|
|
||||||
Command9=ID_CP1
|
|
||||||
Command10=ID_EXE
|
|
||||||
CommandCount=10
|
|
||||||
|
|
||||||
[MNU:IDR_MAINFRAME (French (France))]
|
|
||||||
Type=1
|
|
||||||
Class=?
|
|
||||||
Command1=ID_FILE_NEW
|
|
||||||
Command2=ID_FILE_OPEN
|
|
||||||
Command3=ID_FILE_SAVE
|
|
||||||
Command4=ID_FILE_SAVE_AS
|
|
||||||
Command5=ID_FILE_MRU_FILE1
|
|
||||||
Command6=ID_APP_EXIT
|
|
||||||
Command7=ID_EDIT_UNDO
|
|
||||||
Command8=ID_EDIT_CUT
|
|
||||||
Command9=ID_EDIT_COPY
|
|
||||||
Command10=ID_EDIT_PASTE
|
|
||||||
Command11=ID_VIEW_STATUS_BAR
|
|
||||||
Command12=ID_CP1
|
|
||||||
Command13=ID_EXE
|
|
||||||
Command14=ID_APP_ABOUT
|
|
||||||
CommandCount=14
|
|
||||||
|
|
||||||
[ACL:IDR_MAINFRAME (French (France))]
|
|
||||||
Type=1
|
|
||||||
Class=?
|
|
||||||
Command1=ID_CP1
|
|
||||||
Command2=ID_FILE_NEW
|
|
||||||
Command3=ID_FILE_OPEN
|
|
||||||
Command4=ID_FILE_SAVE
|
|
||||||
Command5=ID_EXE
|
|
||||||
Command6=ID_EDIT_UNDO
|
|
||||||
Command7=ID_EDIT_CUT
|
|
||||||
Command8=ID_EXE
|
|
||||||
Command9=ID_CP1
|
|
||||||
Command10=ID_EXE
|
|
||||||
CommandCount=10
|
|
||||||
|
|
||||||
[DLG:IDD_ABOUTBOX (French (France))]
|
|
||||||
Type=1
|
|
||||||
Class=CAboutDlg
|
|
||||||
ControlCount=4
|
|
||||||
Control1=IDC_STATIC,static,1342177283
|
|
||||||
Control2=IDC_STATIC,static,1342308480
|
|
||||||
Control3=IDC_STATIC,static,1342308352
|
|
||||||
Control4=IDOK,button,1342373889
|
|
||||||
|
|
||||||
[CLS:CBotErrorDlg]
|
|
||||||
Type=0
|
|
||||||
HeaderFile=BotErrorDlg.h
|
|
||||||
ImplementationFile=BotErrorDlg.cpp
|
|
||||||
BaseClass=CDialog
|
|
||||||
Filter=D
|
|
||||||
VirtualFilter=dWC
|
|
||||||
LastObject=CBotErrorDlg
|
|
||||||
|
|
||||||
[DLG:IDD_DIALOG1 (French (Switzerland))]
|
|
||||||
Type=1
|
|
||||||
ControlCount=4
|
|
||||||
Control1=IDOK,button,1342242817
|
|
||||||
Control2=IDC_EDIT1,edit,1352728708
|
|
||||||
Control3=IDC_STATIC,static,1342308352
|
|
||||||
Control4=IDC_STATIC1,static,1342308352
|
|
||||||
|
|
||||||
[DLG:IDD_CONSOLE]
|
|
||||||
Type=1
|
|
||||||
Class=CBotConsoleDlg
|
|
||||||
ControlCount=4
|
|
||||||
Control1=IDC_STATIC,static,1342308352
|
|
||||||
Control2=IDC_EDIT2,edit,1350631552
|
|
||||||
Control3=IDOK,button,1342242817
|
|
||||||
Control4=IDC_EDIT1,edit,1352734724
|
|
||||||
|
|
||||||
[CLS:CBotConsoleDlg]
|
|
||||||
Type=0
|
|
||||||
HeaderFile=BotConsoleDlg.h
|
|
||||||
ImplementationFile=BotConsoleDlg.cpp
|
|
||||||
BaseClass=CDialog
|
|
||||||
Filter=D
|
|
||||||
VirtualFilter=dWC
|
|
||||||
LastObject=IDOK
|
|
||||||
|
|
||||||
|
|
@ -1,412 +0,0 @@
|
||||||
// TstCBot.cpp : Defines the class behaviors for the application.
|
|
||||||
//
|
|
||||||
|
|
||||||
#include "stdafx.h"
|
|
||||||
#include "TstCBot.h"
|
|
||||||
|
|
||||||
#include "MainFrm.h"
|
|
||||||
#include "TstCBotDoc.h"
|
|
||||||
#include "TstCBotView.h"
|
|
||||||
#include "CMyThread.h"
|
|
||||||
|
|
||||||
|
|
||||||
#ifdef _DEBUG
|
|
||||||
#define new DEBUG_NEW
|
|
||||||
#undef THIS_FILE
|
|
||||||
static char THIS_FILE[] = __FILE__;
|
|
||||||
#endif
|
|
||||||
|
|
||||||
|
|
||||||
////////////////////////////////////////////////////////////////////
|
|
||||||
// routine show()
|
|
||||||
// utilisable depuis le programme écrit en CBot
|
|
||||||
|
|
||||||
// exécution
|
|
||||||
BOOL rShow( CBotVar* pVar, CBotVar* pResult, int& Exception )
|
|
||||||
{
|
|
||||||
CString s;
|
|
||||||
|
|
||||||
if ( pVar == NULL )
|
|
||||||
{
|
|
||||||
Exception = 22; return FALSE;
|
|
||||||
}
|
|
||||||
|
|
||||||
while ( pVar != NULL )
|
|
||||||
{
|
|
||||||
CString ss;
|
|
||||||
ss.LoadString( TX_TYPENAMES + pVar->RetType() );
|
|
||||||
s += ss + " ";
|
|
||||||
|
|
||||||
ss = pVar->RetName();
|
|
||||||
if (ss.IsEmpty()) ss = "<sans nom>";
|
|
||||||
s += ss + " = ";
|
|
||||||
|
|
||||||
s += pVar->RetValString();
|
|
||||||
s += "\n";
|
|
||||||
pVar = pVar->RetNext();
|
|
||||||
}
|
|
||||||
|
|
||||||
AfxMessageBox(s, MB_OK|MB_ICONINFORMATION);
|
|
||||||
|
|
||||||
// if ( pResult && pResult->RetType() == CBotTypInt) pResult->SetValInt(123);
|
|
||||||
|
|
||||||
return TRUE; // pas d'interruption
|
|
||||||
}
|
|
||||||
|
|
||||||
int cShow( CBotVar* &pVar, CBotString& RetClass)
|
|
||||||
{
|
|
||||||
if ( pVar == NULL ) return 22;
|
|
||||||
return CBotTypInt; // tous paramètres acceptés, un entier en retour
|
|
||||||
}
|
|
||||||
|
|
||||||
int cErr( CBotVar* &pVar, CBotString& RetClass)
|
|
||||||
{
|
|
||||||
pVar = pVar->RetNext(); // avance le pointeur sur l'erreur
|
|
||||||
return 6666;
|
|
||||||
}
|
|
||||||
|
|
||||||
////////////////////////////////////////////////////////////////////
|
|
||||||
// routine print()
|
|
||||||
// utilisable depuis le programme écrit en CBot
|
|
||||||
|
|
||||||
// exécution
|
|
||||||
BOOL rPrintLn( CBotVar* pVar, CBotVar* pResult, int& Exception )
|
|
||||||
{
|
|
||||||
CString s;
|
|
||||||
|
|
||||||
CTstCBotApp* pApp = (CTstCBotApp*)AfxGetApp();
|
|
||||||
CEdit* pEdit = pApp->m_pConsole;
|
|
||||||
|
|
||||||
if (pEdit == NULL) return TRUE;
|
|
||||||
pEdit->GetWindowText(s);
|
|
||||||
|
|
||||||
while ( pVar != NULL )
|
|
||||||
{
|
|
||||||
if ( !s.IsEmpty() ) s += "\r\n";
|
|
||||||
s += pVar->RetValString();
|
|
||||||
pVar = pVar->RetNext();
|
|
||||||
}
|
|
||||||
|
|
||||||
pEdit->SetWindowText(s);
|
|
||||||
pEdit->SetSel(s.GetLength(), s.GetLength());
|
|
||||||
pEdit->SetFocus();
|
|
||||||
return TRUE; // pas d'interruption
|
|
||||||
}
|
|
||||||
|
|
||||||
BOOL rPrint( CBotVar* pVar, CBotVar* pResult, int& Exception )
|
|
||||||
{
|
|
||||||
CString s;
|
|
||||||
|
|
||||||
CTstCBotApp* pApp = (CTstCBotApp*)AfxGetApp();
|
|
||||||
CEdit* pEdit = pApp->m_pConsole;
|
|
||||||
|
|
||||||
if (pEdit == NULL) return TRUE;
|
|
||||||
pEdit->GetWindowText(s);
|
|
||||||
|
|
||||||
while ( pVar != NULL )
|
|
||||||
{
|
|
||||||
if ( !s.IsEmpty() ) s += " ";
|
|
||||||
s += pVar->RetValString();
|
|
||||||
pVar = pVar->RetNext();
|
|
||||||
}
|
|
||||||
|
|
||||||
pEdit->SetWindowText(s);
|
|
||||||
pEdit->SetSel(s.GetLength(), s.GetLength());
|
|
||||||
pEdit->SetFocus();
|
|
||||||
return TRUE; // pas d'interruption
|
|
||||||
}
|
|
||||||
|
|
||||||
int cPrint( CBotVar* &pVar, CBotString& RetClass)
|
|
||||||
{
|
|
||||||
return 0; // tous paramètres acceptés, un entier en retour
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
//////////////////////////////////////////////////////////////////
|
|
||||||
// class CPoint pour essayer
|
|
||||||
|
|
||||||
// exécution
|
|
||||||
BOOL rCPoint( CBotVar* pThis, CBotVar* pVar, CBotVar* pResult, int& Exception )
|
|
||||||
{
|
|
||||||
CString s;
|
|
||||||
|
|
||||||
if ( pVar == NULL )return TRUE; // constructeur sans paramètres est ok
|
|
||||||
|
|
||||||
if ( pVar->RetType() > CBotTypDouble )
|
|
||||||
{
|
|
||||||
Exception = 6023; return FALSE;
|
|
||||||
}
|
|
||||||
|
|
||||||
CBotVar* pX = pThis->RetItem("x");
|
|
||||||
if ( pX == NULL )
|
|
||||||
{
|
|
||||||
Exception = 6024; return FALSE;
|
|
||||||
}
|
|
||||||
|
|
||||||
pX->SetValFloat( pVar->RetValFloat() );
|
|
||||||
pVar = pVar->RetNext();
|
|
||||||
|
|
||||||
if ( pVar == NULL )
|
|
||||||
{
|
|
||||||
Exception = 6022; return FALSE;
|
|
||||||
}
|
|
||||||
|
|
||||||
if ( pVar->RetType() > CBotTypDouble )
|
|
||||||
{
|
|
||||||
Exception = 6023; return FALSE;
|
|
||||||
}
|
|
||||||
|
|
||||||
CBotVar* pY = pThis->RetItem("y");
|
|
||||||
if ( pY == NULL )
|
|
||||||
{
|
|
||||||
Exception = 6024; return FALSE;
|
|
||||||
}
|
|
||||||
|
|
||||||
pY->SetValFloat( pVar->RetValFloat() );
|
|
||||||
pVar = pVar->RetNext();
|
|
||||||
|
|
||||||
if ( pVar != NULL )
|
|
||||||
{
|
|
||||||
Exception = 6025; return FALSE;
|
|
||||||
}
|
|
||||||
|
|
||||||
return TRUE; // pas d'interruption
|
|
||||||
}
|
|
||||||
|
|
||||||
int cCPoint( CBotVar* pThis, CBotVar* &pVar, CBotString& RetClass)
|
|
||||||
{
|
|
||||||
// l'objet doit être de la classe CPoint
|
|
||||||
if ( !pThis->IsElemOfClass("CPoint") ) return 6021;
|
|
||||||
|
|
||||||
// ok si aucun paramètres !
|
|
||||||
if ( pVar == NULL ) return 0;
|
|
||||||
|
|
||||||
// paramètre de type numérique svp
|
|
||||||
if ( pVar->RetType() > CBotTypDouble ) return 6023;
|
|
||||||
pVar = pVar->RetNext();
|
|
||||||
|
|
||||||
// il doit y avoir un second paramètre
|
|
||||||
if ( pVar == NULL ) return 6022;
|
|
||||||
// également de type numérique
|
|
||||||
if ( pVar->RetType() > CBotTypDouble )return 6023;
|
|
||||||
pVar = pVar->RetNext();
|
|
||||||
|
|
||||||
// et pas plus de 2 paramètres svp
|
|
||||||
if ( pVar != NULL ) return 6025;
|
|
||||||
|
|
||||||
return 0; // cette fonction retourne void
|
|
||||||
}
|
|
||||||
|
|
||||||
// méthode déterminant l'opposé
|
|
||||||
BOOL rOppose( CBotVar* pThis, CBotVar* pVar, CBotVar* pResult, int& Exception )
|
|
||||||
{
|
|
||||||
CString s;
|
|
||||||
|
|
||||||
if ( pVar != NULL ) // pas de paramètre
|
|
||||||
{
|
|
||||||
Exception = 6025; return FALSE;
|
|
||||||
}
|
|
||||||
|
|
||||||
CBotVar* pvar = pThis->RetItemList(); // demande la chaîne des items
|
|
||||||
|
|
||||||
// tous les paramètres sont des nombres
|
|
||||||
while (pvar != NULL)
|
|
||||||
{
|
|
||||||
pvar->SetValFloat( -pvar->RetValFloat() );
|
|
||||||
pvar = pvar->RetNext();
|
|
||||||
}
|
|
||||||
|
|
||||||
pResult->Copy(pThis);
|
|
||||||
return TRUE; // pas d'interruption
|
|
||||||
}
|
|
||||||
|
|
||||||
int cOppose( CBotVar* pThis, CBotVar* &pVar, CBotString& RetClass)
|
|
||||||
{
|
|
||||||
// l'objet doit être de la classe CPoint
|
|
||||||
if ( !pThis->IsElemOfClass("CPoint") ) return 6021;
|
|
||||||
|
|
||||||
RetClass = "CPoint"; // l'objet rendu est de cette class
|
|
||||||
|
|
||||||
// ok si aucun paramètres !
|
|
||||||
if ( pVar == NULL ) return CBotTypClass; // le paramètre retourné est une instance de la classe
|
|
||||||
|
|
||||||
return TX_OVERPARAM; // ça va pas
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
// CTstCBotApp
|
|
||||||
|
|
||||||
BEGIN_MESSAGE_MAP(CTstCBotApp, CWinApp)
|
|
||||||
//{{AFX_MSG_MAP(CTstCBotApp)
|
|
||||||
ON_COMMAND(ID_APP_ABOUT, OnAppAbout)
|
|
||||||
// NOTE - the ClassWizard will add and remove mapping macros here.
|
|
||||||
// DO NOT EDIT what you see in these blocks of generated code!
|
|
||||||
//}}AFX_MSG_MAP
|
|
||||||
// Standard file based document commands
|
|
||||||
ON_COMMAND(ID_FILE_NEW, CWinApp::OnFileNew)
|
|
||||||
ON_COMMAND(ID_FILE_OPEN, CWinApp::OnFileOpen)
|
|
||||||
END_MESSAGE_MAP()
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
// CTstCBotApp construction
|
|
||||||
|
|
||||||
CTstCBotApp::CTstCBotApp()
|
|
||||||
{
|
|
||||||
// TODO: add construction code here,
|
|
||||||
// Place all significant initialization in InitInstance
|
|
||||||
}
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
// The one and only CTstCBotApp object
|
|
||||||
|
|
||||||
CTstCBotApp theApp;
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
// CTstCBotApp initialization
|
|
||||||
|
|
||||||
BOOL CTstCBotApp::InitInstance()
|
|
||||||
{
|
|
||||||
AfxEnableControlContainer();
|
|
||||||
|
|
||||||
// Standard initialization
|
|
||||||
// If you are not using these features and wish to reduce the size
|
|
||||||
// of your final executable, you should remove from the following
|
|
||||||
// the specific initialization routines you do not need.
|
|
||||||
|
|
||||||
#ifdef _AFXDLL
|
|
||||||
Enable3dControls(); // Call this when using MFC in a shared DLL
|
|
||||||
#else
|
|
||||||
Enable3dControlsStatic(); // Call this when linking to MFC statically
|
|
||||||
#endif
|
|
||||||
|
|
||||||
// Change the registry key under which our settings are stored.
|
|
||||||
// You should modify this string to be something appropriate
|
|
||||||
// such as the name of your company or organization.
|
|
||||||
SetRegistryKey(_T("Local AppWizard-Generated Applications"));
|
|
||||||
|
|
||||||
LoadStdProfileSettings(); // Load standard INI file options (including MRU)
|
|
||||||
|
|
||||||
// Register the application's document templates. Document templates
|
|
||||||
// serve as the connection between documents, frame windows and views.
|
|
||||||
|
|
||||||
CSingleDocTemplate* pDocTemplate;
|
|
||||||
pDocTemplate = new CSingleDocTemplate(
|
|
||||||
IDR_MAINFRAME,
|
|
||||||
RUNTIME_CLASS(CTstCBotDoc),
|
|
||||||
RUNTIME_CLASS(CMainFrame), // main SDI frame window
|
|
||||||
RUNTIME_CLASS(CTstCBotView));
|
|
||||||
AddDocTemplate(pDocTemplate);
|
|
||||||
|
|
||||||
// Parse command line for standard shell commands, DDE, file open
|
|
||||||
CCommandLineInfo cmdInfo;
|
|
||||||
ParseCommandLine(cmdInfo);
|
|
||||||
|
|
||||||
// Dispatch commands specified on the command line
|
|
||||||
if (!ProcessShellCommand(cmdInfo))
|
|
||||||
return FALSE;
|
|
||||||
|
|
||||||
// The one and only window has been initialized, so show and update it.
|
|
||||||
m_pMainWnd->ShowWindow(SW_SHOW);
|
|
||||||
m_pMainWnd->UpdateWindow();
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
///////////////////////////////////
|
|
||||||
// défini la fonction "show()"
|
|
||||||
// --------------------------------
|
|
||||||
|
|
||||||
CBotProgram::AddFunction("show", rShow, cShow);
|
|
||||||
CBotProgram::AddFunction("err", rShow, cErr);
|
|
||||||
CBotProgram::AddFunction("print", rPrint, cPrint);
|
|
||||||
CBotProgram::AddFunction("println", rPrintLn, cPrint);
|
|
||||||
|
|
||||||
|
|
||||||
///////////////////////////////////
|
|
||||||
// définie la classe globale CPoint
|
|
||||||
// --------------------------------
|
|
||||||
|
|
||||||
CBotClass* m_pClassPoint;
|
|
||||||
|
|
||||||
m_pClassPoint = new CBotClass("CPoint", NULL);
|
|
||||||
// ajoute le composant ".x"
|
|
||||||
m_pClassPoint->AddItem("x", CBotTypFloat);
|
|
||||||
// ajoute le composant ".y"
|
|
||||||
m_pClassPoint->AddItem("y", CBotTypFloat);
|
|
||||||
|
|
||||||
// ajoute le constructeur pour cette classe
|
|
||||||
m_pClassPoint->AddFunction("CPoint", rCPoint, cCPoint);
|
|
||||||
// ajoute la méthode Opposé
|
|
||||||
m_pClassPoint->AddFunction("Opposé", rOppose, cOppose);
|
|
||||||
|
|
||||||
|
|
||||||
//////////////////////////////////////////////////////////////////
|
|
||||||
// compile un bout de programme pour voir s'il est bien accessible
|
|
||||||
// depuis un autre "module"
|
|
||||||
|
|
||||||
CBotProgram* p = new CBotProgram;
|
|
||||||
CBotStringArray Liste;
|
|
||||||
p->Compile(" public void MonProgram( ) { show (\"mon programme\") ;}", Liste );
|
|
||||||
|
|
||||||
// l'objet n'est pas détruit et plus référencé
|
|
||||||
// je sais c'est pas bien
|
|
||||||
|
|
||||||
|
|
||||||
return TRUE;
|
|
||||||
}
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
// CAboutDlg dialog used for App About
|
|
||||||
|
|
||||||
class CAboutDlg : public CDialog
|
|
||||||
{
|
|
||||||
public:
|
|
||||||
CAboutDlg();
|
|
||||||
|
|
||||||
// Dialog Data
|
|
||||||
//{{AFX_DATA(CAboutDlg)
|
|
||||||
enum { IDD = IDD_ABOUTBOX };
|
|
||||||
//}}AFX_DATA
|
|
||||||
|
|
||||||
// ClassWizard generated virtual function overrides
|
|
||||||
//{{AFX_VIRTUAL(CAboutDlg)
|
|
||||||
protected:
|
|
||||||
virtual void DoDataExchange(CDataExchange* pDX); // DDX/DDV support
|
|
||||||
//}}AFX_VIRTUAL
|
|
||||||
|
|
||||||
// Implementation
|
|
||||||
protected:
|
|
||||||
//{{AFX_MSG(CAboutDlg)
|
|
||||||
// No message handlers
|
|
||||||
//}}AFX_MSG
|
|
||||||
DECLARE_MESSAGE_MAP()
|
|
||||||
};
|
|
||||||
|
|
||||||
CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD)
|
|
||||||
{
|
|
||||||
//{{AFX_DATA_INIT(CAboutDlg)
|
|
||||||
//}}AFX_DATA_INIT
|
|
||||||
}
|
|
||||||
|
|
||||||
void CAboutDlg::DoDataExchange(CDataExchange* pDX)
|
|
||||||
{
|
|
||||||
CDialog::DoDataExchange(pDX);
|
|
||||||
//{{AFX_DATA_MAP(CAboutDlg)
|
|
||||||
//}}AFX_DATA_MAP
|
|
||||||
}
|
|
||||||
|
|
||||||
BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)
|
|
||||||
//{{AFX_MSG_MAP(CAboutDlg)
|
|
||||||
// No message handlers
|
|
||||||
//}}AFX_MSG_MAP
|
|
||||||
END_MESSAGE_MAP()
|
|
||||||
|
|
||||||
// App command to run the dialog
|
|
||||||
void CTstCBotApp::OnAppAbout()
|
|
||||||
{
|
|
||||||
CAboutDlg aboutDlg;
|
|
||||||
aboutDlg.DoModal();
|
|
||||||
}
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
// CTstCBotApp commands
|
|
||||||
|
|
@ -1,180 +0,0 @@
|
||||||
# Microsoft Developer Studio Project File - Name="TstCBot" - Package Owner=<4>
|
|
||||||
# Microsoft Developer Studio Generated Build File, Format Version 5.00
|
|
||||||
# ** DO NOT EDIT **
|
|
||||||
|
|
||||||
# TARGTYPE "Win32 (x86) Application" 0x0101
|
|
||||||
|
|
||||||
CFG=TstCBot - Win32 Debug
|
|
||||||
!MESSAGE This is not a valid makefile. To build this project using NMAKE,
|
|
||||||
!MESSAGE use the Export Makefile command and run
|
|
||||||
!MESSAGE
|
|
||||||
!MESSAGE NMAKE /f "TstCBot.mak".
|
|
||||||
!MESSAGE
|
|
||||||
!MESSAGE You can specify a configuration when running NMAKE
|
|
||||||
!MESSAGE by defining the macro CFG on the command line. For example:
|
|
||||||
!MESSAGE
|
|
||||||
!MESSAGE NMAKE /f "TstCBot.mak" CFG="TstCBot - Win32 Debug"
|
|
||||||
!MESSAGE
|
|
||||||
!MESSAGE Possible choices for configuration are:
|
|
||||||
!MESSAGE
|
|
||||||
!MESSAGE "TstCBot - Win32 Release" (based on "Win32 (x86) Application")
|
|
||||||
!MESSAGE "TstCBot - Win32 Debug" (based on "Win32 (x86) Application")
|
|
||||||
!MESSAGE
|
|
||||||
|
|
||||||
# Begin Project
|
|
||||||
# PROP Scc_ProjName ""
|
|
||||||
# PROP Scc_LocalPath ""
|
|
||||||
CPP=cl.exe
|
|
||||||
MTL=midl.exe
|
|
||||||
RSC=rc.exe
|
|
||||||
|
|
||||||
!IF "$(CFG)" == "TstCBot - Win32 Release"
|
|
||||||
|
|
||||||
# PROP BASE Use_MFC 6
|
|
||||||
# PROP BASE Use_Debug_Libraries 0
|
|
||||||
# PROP BASE Output_Dir "Release"
|
|
||||||
# PROP BASE Intermediate_Dir "Release"
|
|
||||||
# PROP BASE Target_Dir ""
|
|
||||||
# PROP Use_MFC 6
|
|
||||||
# PROP Use_Debug_Libraries 0
|
|
||||||
# PROP Output_Dir "Release"
|
|
||||||
# PROP Intermediate_Dir "Release"
|
|
||||||
# PROP Target_Dir ""
|
|
||||||
# ADD BASE CPP /nologo /MD /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_AFXDLL" /Yu"stdafx.h" /FD /c
|
|
||||||
# ADD CPP /nologo /MD /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_AFXDLL" /FR /Yu"stdafx.h" /FD /c
|
|
||||||
# ADD BASE MTL /nologo /D "NDEBUG" /mktyplib203 /o NUL /win32
|
|
||||||
# ADD MTL /nologo /D "NDEBUG" /mktyplib203 /o NUL /win32
|
|
||||||
# ADD BASE RSC /l 0x40c /d "NDEBUG" /d "_AFXDLL"
|
|
||||||
# ADD RSC /l 0x40c /d "NDEBUG" /d "_AFXDLL"
|
|
||||||
BSC32=bscmake.exe
|
|
||||||
# ADD BASE BSC32 /nologo
|
|
||||||
# ADD BSC32 /nologo
|
|
||||||
LINK32=link.exe
|
|
||||||
# ADD BASE LINK32 /nologo /subsystem:windows /machine:I386
|
|
||||||
# ADD LINK32 /nologo /subsystem:windows /machine:I386
|
|
||||||
|
|
||||||
!ELSEIF "$(CFG)" == "TstCBot - Win32 Debug"
|
|
||||||
|
|
||||||
# PROP BASE Use_MFC 6
|
|
||||||
# PROP BASE Use_Debug_Libraries 1
|
|
||||||
# PROP BASE Output_Dir "Debug"
|
|
||||||
# PROP BASE Intermediate_Dir "Debug"
|
|
||||||
# PROP BASE Target_Dir ""
|
|
||||||
# PROP Use_MFC 6
|
|
||||||
# PROP Use_Debug_Libraries 1
|
|
||||||
# PROP Output_Dir "Debug"
|
|
||||||
# PROP Intermediate_Dir "Debug"
|
|
||||||
# PROP Target_Dir ""
|
|
||||||
# ADD BASE CPP /nologo /MDd /W3 /Gm /GX /Zi /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_AFXDLL" /Yu"stdafx.h" /FD /c
|
|
||||||
# ADD CPP /nologo /MDd /W3 /Gm /GX /Zi /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_AFXDLL" /FR /Yu"stdafx.h" /FD /c
|
|
||||||
# ADD BASE MTL /nologo /D "_DEBUG" /mktyplib203 /o NUL /win32
|
|
||||||
# ADD MTL /nologo /D "_DEBUG" /mktyplib203 /o NUL /win32
|
|
||||||
# ADD BASE RSC /l 0x40c /d "_DEBUG" /d "_AFXDLL"
|
|
||||||
# ADD RSC /l 0x40c /d "_DEBUG" /d "_AFXDLL"
|
|
||||||
BSC32=bscmake.exe
|
|
||||||
# ADD BASE BSC32 /nologo
|
|
||||||
# ADD BSC32 /nologo
|
|
||||||
LINK32=link.exe
|
|
||||||
# ADD BASE LINK32 /nologo /subsystem:windows /debug /machine:I386 /pdbtype:sept
|
|
||||||
# ADD LINK32 /nologo /subsystem:windows /debug /machine:I386 /pdbtype:sept
|
|
||||||
|
|
||||||
!ENDIF
|
|
||||||
|
|
||||||
# Begin Target
|
|
||||||
|
|
||||||
# Name "TstCBot - Win32 Release"
|
|
||||||
# Name "TstCBot - Win32 Debug"
|
|
||||||
# Begin Group "Source Files"
|
|
||||||
|
|
||||||
# PROP Default_Filter "cpp;c;cxx;rc;def;r;odl;idl;hpj;bat"
|
|
||||||
# Begin Source File
|
|
||||||
|
|
||||||
SOURCE=.\BotConsoleDlg.cpp
|
|
||||||
# End Source File
|
|
||||||
# Begin Source File
|
|
||||||
|
|
||||||
SOURCE=.\MainFrm.cpp
|
|
||||||
# End Source File
|
|
||||||
# Begin Source File
|
|
||||||
|
|
||||||
SOURCE=.\StdAfx.cpp
|
|
||||||
# ADD CPP /Yc"stdafx.h"
|
|
||||||
# End Source File
|
|
||||||
# Begin Source File
|
|
||||||
|
|
||||||
SOURCE=.\TstCBot.cpp
|
|
||||||
# End Source File
|
|
||||||
# Begin Source File
|
|
||||||
|
|
||||||
SOURCE=.\TstCBot.rc
|
|
||||||
|
|
||||||
!IF "$(CFG)" == "TstCBot - Win32 Release"
|
|
||||||
|
|
||||||
!ELSEIF "$(CFG)" == "TstCBot - Win32 Debug"
|
|
||||||
|
|
||||||
!ENDIF
|
|
||||||
|
|
||||||
# End Source File
|
|
||||||
# Begin Source File
|
|
||||||
|
|
||||||
SOURCE=.\TstCBotDoc.cpp
|
|
||||||
# End Source File
|
|
||||||
# Begin Source File
|
|
||||||
|
|
||||||
SOURCE=.\TstCBotView.cpp
|
|
||||||
# End Source File
|
|
||||||
# End Group
|
|
||||||
# Begin Group "Header Files"
|
|
||||||
|
|
||||||
# PROP Default_Filter "h;hpp;hxx;hm;inl"
|
|
||||||
# Begin Source File
|
|
||||||
|
|
||||||
SOURCE=.\BotConsoleDlg.h
|
|
||||||
# End Source File
|
|
||||||
# Begin Source File
|
|
||||||
|
|
||||||
SOURCE=.\MainFrm.h
|
|
||||||
# End Source File
|
|
||||||
# Begin Source File
|
|
||||||
|
|
||||||
SOURCE=.\Resource.h
|
|
||||||
# End Source File
|
|
||||||
# Begin Source File
|
|
||||||
|
|
||||||
SOURCE=.\StdAfx.h
|
|
||||||
# End Source File
|
|
||||||
# Begin Source File
|
|
||||||
|
|
||||||
SOURCE=.\TstCBot.h
|
|
||||||
# End Source File
|
|
||||||
# Begin Source File
|
|
||||||
|
|
||||||
SOURCE=.\TstCBotDoc.h
|
|
||||||
# End Source File
|
|
||||||
# Begin Source File
|
|
||||||
|
|
||||||
SOURCE=.\TstCBotView.h
|
|
||||||
# End Source File
|
|
||||||
# End Group
|
|
||||||
# Begin Group "Resource Files"
|
|
||||||
|
|
||||||
# PROP Default_Filter "ico;cur;bmp;dlg;rc2;rct;bin;cnt;rtf;gif;jpg;jpeg;jpe"
|
|
||||||
# Begin Source File
|
|
||||||
|
|
||||||
SOURCE=.\res\TstCBot.ico
|
|
||||||
# End Source File
|
|
||||||
# Begin Source File
|
|
||||||
|
|
||||||
SOURCE=.\res\TstCBot.rc2
|
|
||||||
# End Source File
|
|
||||||
# Begin Source File
|
|
||||||
|
|
||||||
SOURCE=.\res\TstCBotDoc.ico
|
|
||||||
# End Source File
|
|
||||||
# End Group
|
|
||||||
# Begin Source File
|
|
||||||
|
|
||||||
SOURCE=.\ReadMe.txt
|
|
||||||
# End Source File
|
|
||||||
# End Target
|
|
||||||
# End Project
|
|
||||||
|
|
@ -1,62 +0,0 @@
|
||||||
// TstCBot.h : main header file for the TSTCBOT application
|
|
||||||
//
|
|
||||||
|
|
||||||
#if !defined(AFX_TSTCBOT_H__70B37568_5DFD_11D4_A15E_00E0189013DF__INCLUDED_)
|
|
||||||
#define AFX_TSTCBOT_H__70B37568_5DFD_11D4_A15E_00E0189013DF__INCLUDED_
|
|
||||||
|
|
||||||
#if _MSC_VER >= 1000
|
|
||||||
#pragma once
|
|
||||||
#endif // _MSC_VER >= 1000
|
|
||||||
|
|
||||||
#ifndef __AFXWIN_H__
|
|
||||||
#error include 'stdafx.h' before including this file for PCH
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#include "resource.h" // main symbols
|
|
||||||
#include "..\CBotDll.h"
|
|
||||||
|
|
||||||
|
|
||||||
class CMyThread;
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
// CTstCBotApp:
|
|
||||||
// See TstCBot.cpp for the implementation of this class
|
|
||||||
//
|
|
||||||
|
|
||||||
class CTstCBotApp : public CWinApp
|
|
||||||
{
|
|
||||||
public:
|
|
||||||
CTstCBotApp();
|
|
||||||
|
|
||||||
CMyThread* m_pThread;
|
|
||||||
CWnd* m_pView;
|
|
||||||
CEdit* m_pConsole;
|
|
||||||
CBotStringArray m_Liste;
|
|
||||||
|
|
||||||
// Overrides
|
|
||||||
// ClassWizard generated virtual function overrides
|
|
||||||
//{{AFX_VIRTUAL(CTstCBotApp)
|
|
||||||
public:
|
|
||||||
virtual BOOL InitInstance();
|
|
||||||
//}}AFX_VIRTUAL
|
|
||||||
|
|
||||||
// Implementation
|
|
||||||
|
|
||||||
//{{AFX_MSG(CTstCBotApp)
|
|
||||||
afx_msg void OnAppAbout();
|
|
||||||
// NOTE - the ClassWizard will add and remove member functions here.
|
|
||||||
// DO NOT EDIT what you see in these blocks of generated code !
|
|
||||||
//}}AFX_MSG
|
|
||||||
DECLARE_MESSAGE_MAP()
|
|
||||||
};
|
|
||||||
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
|
|
||||||
//{{AFX_INSERT_LOCATION}}
|
|
||||||
// Microsoft Developer Studio will insert additional declarations immediately before the previous line.
|
|
||||||
|
|
||||||
#endif // !defined(AFX_TSTCBOT_H__70B37568_5DFD_11D4_A15E_00E0189013DF__INCLUDED_)
|
|
||||||
|
|
||||||
#define WM_STARTPROG WM_APP + 0
|
|
||||||
#define WM_ENDPROG WM_APP + 1
|
|
||||||
|
|
@ -1,471 +0,0 @@
|
||||||
//Microsoft Developer Studio generated resource script.
|
|
||||||
//
|
|
||||||
#include "resource.h"
|
|
||||||
|
|
||||||
#define APSTUDIO_READONLY_SYMBOLS
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
//
|
|
||||||
// Generated from the TEXTINCLUDE 2 resource.
|
|
||||||
//
|
|
||||||
#include "afxres.h"
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
#undef APSTUDIO_READONLY_SYMBOLS
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
// French (France) resources
|
|
||||||
|
|
||||||
#if !defined(AFX_RESOURCE_DLL) || defined(AFX_TARG_FRA)
|
|
||||||
#ifdef _WIN32
|
|
||||||
LANGUAGE LANG_FRENCH, SUBLANG_FRENCH
|
|
||||||
#pragma code_page(1252)
|
|
||||||
#endif //_WIN32
|
|
||||||
|
|
||||||
#ifdef APSTUDIO_INVOKED
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
//
|
|
||||||
// TEXTINCLUDE
|
|
||||||
//
|
|
||||||
|
|
||||||
1 TEXTINCLUDE DISCARDABLE
|
|
||||||
BEGIN
|
|
||||||
"resource.h\0"
|
|
||||||
END
|
|
||||||
|
|
||||||
2 TEXTINCLUDE DISCARDABLE
|
|
||||||
BEGIN
|
|
||||||
"#include ""afxres.h""\r\n"
|
|
||||||
"\0"
|
|
||||||
END
|
|
||||||
|
|
||||||
3 TEXTINCLUDE DISCARDABLE
|
|
||||||
BEGIN
|
|
||||||
"#define _AFX_NO_SPLITTER_RESOURCES\r\n"
|
|
||||||
"#define _AFX_NO_OLE_RESOURCES\r\n"
|
|
||||||
"#define _AFX_NO_TRACKER_RESOURCES\r\n"
|
|
||||||
"#define _AFX_NO_PROPERTY_RESOURCES\r\n"
|
|
||||||
"\r\n"
|
|
||||||
"#if !defined(AFX_RESOURCE_DLL) || defined(AFX_TARG_FRA)\r\n"
|
|
||||||
"#ifdef _WIN32\r\n"
|
|
||||||
"LANGUAGE 12, 1\r\n"
|
|
||||||
"#pragma code_page(1252)\r\n"
|
|
||||||
"#endif\r\n"
|
|
||||||
"#include ""res\\TstCBot.rc2"" // non-Microsoft Visual C++ edited resources\r\n"
|
|
||||||
"#include ""l.fra\\afxres.rc"" // Standard components\r\n"
|
|
||||||
"#endif\0"
|
|
||||||
END
|
|
||||||
|
|
||||||
#endif // APSTUDIO_INVOKED
|
|
||||||
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
//
|
|
||||||
// Icon
|
|
||||||
//
|
|
||||||
|
|
||||||
// Icon with lowest ID value placed first to ensure application icon
|
|
||||||
// remains consistent on all systems.
|
|
||||||
IDR_MAINFRAME ICON DISCARDABLE "res\\TstCBot.ico"
|
|
||||||
IDR_TSTCBOTYPE ICON DISCARDABLE "res\\TstCBotDoc.ico"
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
//
|
|
||||||
// Menu
|
|
||||||
//
|
|
||||||
|
|
||||||
IDR_MAINFRAME MENU PRELOAD DISCARDABLE
|
|
||||||
BEGIN
|
|
||||||
POPUP "&Fichier"
|
|
||||||
BEGIN
|
|
||||||
MENUITEM "&Nouveau\tCtrl+N", ID_FILE_NEW
|
|
||||||
MENUITEM "&Ouvrir...\tCtrl+O", ID_FILE_OPEN
|
|
||||||
MENUITEM "&Enregistrer\tCtrl+S", ID_FILE_SAVE
|
|
||||||
MENUITEM "En®istrer sous...", ID_FILE_SAVE_AS
|
|
||||||
MENUITEM SEPARATOR
|
|
||||||
MENUITEM "Fichier récent", ID_FILE_MRU_FILE1, GRAYED
|
|
||||||
MENUITEM SEPARATOR
|
|
||||||
MENUITEM "&Quitter", ID_APP_EXIT
|
|
||||||
END
|
|
||||||
POPUP "&Edition"
|
|
||||||
BEGIN
|
|
||||||
MENUITEM "&Annuler\tCtrl+Z", ID_EDIT_UNDO
|
|
||||||
MENUITEM SEPARATOR
|
|
||||||
MENUITEM "&Couper\tCtrl+X", ID_EDIT_CUT
|
|
||||||
MENUITEM "&Copier\tCtrl+C", ID_EDIT_COPY
|
|
||||||
MENUITEM "C&oller\tCtrl+V", ID_EDIT_PASTE
|
|
||||||
END
|
|
||||||
POPUP "&Affichage"
|
|
||||||
BEGIN
|
|
||||||
MENUITEM "Barre d'é&tat", ID_VIEW_STATUS_BAR
|
|
||||||
END
|
|
||||||
POPUP "&Tests"
|
|
||||||
BEGIN
|
|
||||||
MENUITEM "&Compile\tAlt+C", ID_CP1
|
|
||||||
MENUITEM "&Execute\tAlt+V", ID_EXE
|
|
||||||
END
|
|
||||||
POPUP "&?"
|
|
||||||
BEGIN
|
|
||||||
MENUITEM "&A propos de TstCBot...", ID_APP_ABOUT
|
|
||||||
END
|
|
||||||
END
|
|
||||||
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
//
|
|
||||||
// Accelerator
|
|
||||||
//
|
|
||||||
|
|
||||||
IDR_MAINFRAME ACCELERATORS PRELOAD MOVEABLE PURE
|
|
||||||
BEGIN
|
|
||||||
"C", ID_CP1, VIRTKEY, ALT, NOINVERT
|
|
||||||
"N", ID_FILE_NEW, VIRTKEY, CONTROL, NOINVERT
|
|
||||||
"O", ID_FILE_OPEN, VIRTKEY, CONTROL, NOINVERT
|
|
||||||
"S", ID_FILE_SAVE, VIRTKEY, CONTROL, NOINVERT
|
|
||||||
"V", ID_EXE, VIRTKEY, ALT, NOINVERT
|
|
||||||
VK_BACK, ID_EDIT_UNDO, VIRTKEY, ALT, NOINVERT
|
|
||||||
VK_DELETE, ID_EDIT_CUT, VIRTKEY, SHIFT, NOINVERT
|
|
||||||
VK_F5, ID_EXE, VIRTKEY, NOINVERT
|
|
||||||
VK_F7, ID_CP1, VIRTKEY, NOINVERT
|
|
||||||
"X", ID_EXE, VIRTKEY, ALT, NOINVERT
|
|
||||||
END
|
|
||||||
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
//
|
|
||||||
// Dialog
|
|
||||||
//
|
|
||||||
|
|
||||||
IDD_ABOUTBOX DIALOG DISCARDABLE 0, 0, 217, 55
|
|
||||||
STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
|
|
||||||
CAPTION "A propos de TstCBot"
|
|
||||||
FONT 8, "MS Sans Serif"
|
|
||||||
BEGIN
|
|
||||||
ICON IDR_MAINFRAME,IDC_STATIC,11,17,20,20
|
|
||||||
LTEXT "TstCBot version 1.0",IDC_STATIC,40,10,119,8,SS_NOPREFIX
|
|
||||||
LTEXT "Copyright (C) 1900",IDC_STATIC,40,25,119,8
|
|
||||||
DEFPUSHBUTTON "OK",IDOK,178,7,32,14,WS_GROUP
|
|
||||||
END
|
|
||||||
|
|
||||||
|
|
||||||
#ifndef _MAC
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
//
|
|
||||||
// Version
|
|
||||||
//
|
|
||||||
|
|
||||||
VS_VERSION_INFO VERSIONINFO
|
|
||||||
FILEVERSION 1,0,0,1
|
|
||||||
PRODUCTVERSION 1,0,0,1
|
|
||||||
FILEFLAGSMASK 0x3fL
|
|
||||||
#ifdef _DEBUG
|
|
||||||
FILEFLAGS 0x1L
|
|
||||||
#else
|
|
||||||
FILEFLAGS 0x0L
|
|
||||||
#endif
|
|
||||||
FILEOS 0x4L
|
|
||||||
FILETYPE 0x1L
|
|
||||||
FILESUBTYPE 0x0L
|
|
||||||
BEGIN
|
|
||||||
BLOCK "StringFileInfo"
|
|
||||||
BEGIN
|
|
||||||
BLOCK "040C04B0"
|
|
||||||
BEGIN
|
|
||||||
VALUE "CompanyName", "\0"
|
|
||||||
VALUE "FileDescription", "Application MFC TstCBot\0"
|
|
||||||
VALUE "FileVersion", "1, 0, 0, 1\0"
|
|
||||||
VALUE "InternalName", "TstCBot\0"
|
|
||||||
VALUE "LegalCopyright", "Copyright (C) 1900\0"
|
|
||||||
VALUE "LegalTrademarks", "\0"
|
|
||||||
VALUE "OriginalFilename", "TstCBot.EXE\0"
|
|
||||||
VALUE "ProductName", "Application TstCBot\0"
|
|
||||||
VALUE "ProductVersion", "1, 0, 0, 1\0"
|
|
||||||
END
|
|
||||||
END
|
|
||||||
BLOCK "VarFileInfo"
|
|
||||||
BEGIN
|
|
||||||
VALUE "Traduction", 0x40c, 1200
|
|
||||||
END
|
|
||||||
END
|
|
||||||
|
|
||||||
#endif // !_MAC
|
|
||||||
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
//
|
|
||||||
// DESIGNINFO
|
|
||||||
//
|
|
||||||
|
|
||||||
#ifdef APSTUDIO_INVOKED
|
|
||||||
GUIDELINES DESIGNINFO DISCARDABLE
|
|
||||||
BEGIN
|
|
||||||
IDD_ABOUTBOX, DIALOG
|
|
||||||
BEGIN
|
|
||||||
LEFTMARGIN, 7
|
|
||||||
RIGHTMARGIN, 210
|
|
||||||
TOPMARGIN, 7
|
|
||||||
BOTTOMMARGIN, 48
|
|
||||||
END
|
|
||||||
END
|
|
||||||
#endif // APSTUDIO_INVOKED
|
|
||||||
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
//
|
|
||||||
// String Table
|
|
||||||
//
|
|
||||||
|
|
||||||
STRINGTABLE PRELOAD DISCARDABLE
|
|
||||||
BEGIN
|
|
||||||
IDR_MAINFRAME "TstCBot\n\nTstCBo\n\n\nTstCBot.Document\nTstCBo Document"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRINGTABLE PRELOAD DISCARDABLE
|
|
||||||
BEGIN
|
|
||||||
AFX_IDS_APP_TITLE "TstCBot"
|
|
||||||
AFX_IDS_IDLEMESSAGE "Prêt"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRINGTABLE DISCARDABLE
|
|
||||||
BEGIN
|
|
||||||
ID_INDICATOR_EXT "EXT"
|
|
||||||
ID_INDICATOR_CAPS "MAJ"
|
|
||||||
ID_INDICATOR_NUM "NUM"
|
|
||||||
ID_INDICATOR_SCRL "DEF"
|
|
||||||
ID_INDICATOR_OVR "ECR"
|
|
||||||
ID_INDICATOR_REC "ENR"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRINGTABLE DISCARDABLE
|
|
||||||
BEGIN
|
|
||||||
ID_FILE_NEW "Crée un nouveau document\nNouveau"
|
|
||||||
ID_FILE_OPEN "Ouvre un document existant\nOuvrir"
|
|
||||||
ID_FILE_CLOSE "Ferme le document actif\nFermer"
|
|
||||||
ID_FILE_SAVE "Enregistre le document actif\nEnregistrer"
|
|
||||||
ID_FILE_SAVE_AS "Enregistre le document actif sous un nouveau nom\nEnregistrer sous"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRINGTABLE DISCARDABLE
|
|
||||||
BEGIN
|
|
||||||
ID_APP_ABOUT "Affiche des informations sur le programme, le numéro de version et le copyright\nA propos de"
|
|
||||||
ID_APP_EXIT "Ferme l'application ; propose d'enregistrer les documents\nQuitter"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRINGTABLE DISCARDABLE
|
|
||||||
BEGIN
|
|
||||||
ID_FILE_MRU_FILE1 "Ouvre ce document"
|
|
||||||
ID_FILE_MRU_FILE2 "Ouvre ce document"
|
|
||||||
ID_FILE_MRU_FILE3 "Ouvre ce document"
|
|
||||||
ID_FILE_MRU_FILE4 "Ouvre ce document"
|
|
||||||
ID_FILE_MRU_FILE5 "Ouvre ce document"
|
|
||||||
ID_FILE_MRU_FILE6 "Ouvre ce document"
|
|
||||||
ID_FILE_MRU_FILE7 "Ouvre ce document"
|
|
||||||
ID_FILE_MRU_FILE8 "Ouvre ce document"
|
|
||||||
ID_FILE_MRU_FILE9 "Ouvre ce document"
|
|
||||||
ID_FILE_MRU_FILE10 "Ouvre ce document"
|
|
||||||
ID_FILE_MRU_FILE11 "Ouvre ce document"
|
|
||||||
ID_FILE_MRU_FILE12 "Ouvre ce document"
|
|
||||||
ID_FILE_MRU_FILE13 "Ouvre ce document"
|
|
||||||
ID_FILE_MRU_FILE14 "Ouvre ce document"
|
|
||||||
ID_FILE_MRU_FILE15 "Ouvre ce document"
|
|
||||||
ID_FILE_MRU_FILE16 "Ouvre ce document"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRINGTABLE DISCARDABLE
|
|
||||||
BEGIN
|
|
||||||
ID_NEXT_PANE "Passe au volet de fenêtre suivant\nVolet suivant"
|
|
||||||
ID_PREV_PANE "Revient au volet précédent\nVolet précédent"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRINGTABLE DISCARDABLE
|
|
||||||
BEGIN
|
|
||||||
ID_WINDOW_SPLIT "Fractionne la fenêtre active en deux volets\nFractionner"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRINGTABLE DISCARDABLE
|
|
||||||
BEGIN
|
|
||||||
ID_EDIT_CLEAR "Efface la sélection\nEffacer"
|
|
||||||
ID_EDIT_CLEAR_ALL "Efface tout\nEffacer tout"
|
|
||||||
ID_EDIT_COPY "Copie la sélection et la place dans le Presse-papiers\nCopier"
|
|
||||||
ID_EDIT_CUT "Supprime la sélection et la place dans le Presse-papiers\nCopier"
|
|
||||||
ID_EDIT_FIND "Recherche le texte spécifié\nRechercher"
|
|
||||||
ID_EDIT_PASTE "Insère le contenu du Presse-papiers\nColler"
|
|
||||||
ID_EDIT_REPEAT "Répète la dernière action\nRépéter"
|
|
||||||
ID_EDIT_REPLACE "Remplace le texte spécifique par un texte différent\nRemplacer"
|
|
||||||
ID_EDIT_SELECT_ALL "Sélectionne le document entier\nSélectionner tout"
|
|
||||||
ID_EDIT_UNDO "Annule la dernière action\nAnnuler"
|
|
||||||
ID_EDIT_REDO "Rétablit l'action précédemment annulée\nRétablir"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRINGTABLE DISCARDABLE
|
|
||||||
BEGIN
|
|
||||||
ID_VIEW_STATUS_BAR "Affiche ou masque la barre d'état\nBarre d'état"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRINGTABLE DISCARDABLE
|
|
||||||
BEGIN
|
|
||||||
AFX_IDS_SCSIZE "Change la taille de la fenêtre"
|
|
||||||
AFX_IDS_SCMOVE "Change la position de la fenêtre"
|
|
||||||
AFX_IDS_SCMINIMIZE "Réduit la fenêtre en icône"
|
|
||||||
AFX_IDS_SCMAXIMIZE "Agrandit la fenêtre au format de l'écran"
|
|
||||||
AFX_IDS_SCNEXTWINDOW "Passe à la fenêtre de document suivante"
|
|
||||||
AFX_IDS_SCPREVWINDOW "Passe à la fenêtre de document précédente"
|
|
||||||
AFX_IDS_SCCLOSE "Ferme la fenêtre active et propose l'enregistrement des documents"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRINGTABLE DISCARDABLE
|
|
||||||
BEGIN
|
|
||||||
AFX_IDS_SCRESTORE "Restaure la fenêtre à sa taille d'origine"
|
|
||||||
AFX_IDS_SCTASKLIST "Active la liste des tâches"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRINGTABLE DISCARDABLE
|
|
||||||
BEGIN
|
|
||||||
TX_TYPENAMES "les différents types"
|
|
||||||
1001 "Byte"
|
|
||||||
1002 "Short"
|
|
||||||
1003 "Char"
|
|
||||||
1004 "Int"
|
|
||||||
1005 "Long"
|
|
||||||
1006 "Real"
|
|
||||||
1007 "Double"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRINGTABLE DISCARDABLE
|
|
||||||
BEGIN
|
|
||||||
1008 "Boolean"
|
|
||||||
1009 "Class"
|
|
||||||
1010 "String"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRINGTABLE DISCARDABLE
|
|
||||||
BEGIN
|
|
||||||
TX_OPENPAR "Il manque une parenthèse ouvrante."
|
|
||||||
TX_CLOSEPAR "Il manque une parenthèse fermante."
|
|
||||||
TX_NOTBOOL "L'expression doit être un boolean."
|
|
||||||
TX_UNDEFVAR "Variable non déclarée."
|
|
||||||
TX_BADLEFT "Assignation impossible."
|
|
||||||
TX_ENDOF "Instruction non terminée."
|
|
||||||
TX_OUTCASE "Instruction ""case"" hors d'un bloc ""switch""."
|
|
||||||
TX_NOTERM "Instructions après la fin."
|
|
||||||
END
|
|
||||||
|
|
||||||
STRINGTABLE DISCARDABLE
|
|
||||||
BEGIN
|
|
||||||
TX_CLOSEBLK "Il manque la fin du bloc."
|
|
||||||
TX_ELSEWITHOUTIF "Instruction ""else"" sans ""if"" correspondant."
|
|
||||||
TX_OPENBLK "Début d'un bloc attendu."
|
|
||||||
TX_BADTYPE "Mauvais type de résultat pour l'assignation."
|
|
||||||
TX_REDEFVAR "Redéfinition d'une variable."
|
|
||||||
TX_BAD2TYPE "Les deux opérandes ne sont pas de types compatibles."
|
|
||||||
TX_UNDEFCALL "Routine inconnue."
|
|
||||||
TX_MISDOTS "Séparateur "" : "" attendu."
|
|
||||||
TX_WHILE "Manque le mot ""while""."
|
|
||||||
TX_BREAK "Instruction ""break"" en dehors d'une boucle."
|
|
||||||
TX_LABEL "Un label ne peut se placer que devant un ""for"", un ""while"", un ""do"" ou un ""switch""."
|
|
||||||
TX_NOLABEL "Cette étiquette n'existe pas"
|
|
||||||
TX_NOCASE "Manque une instruction ""case""."
|
|
||||||
TX_BADNUM "Un nombre est attendu."
|
|
||||||
TX_VOID "Paramètre void."
|
|
||||||
TX_NOTYP "Déclaration de type attendu"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRINGTABLE DISCARDABLE
|
|
||||||
BEGIN
|
|
||||||
TX_DIVZERO "Division par zéro."
|
|
||||||
TX_NOTINIT "Variable non initialisée."
|
|
||||||
TX_BADTHROW "Valeur négative refusée pour ""throw""."
|
|
||||||
TX_NORETVAL "La fonction n'a pas retourné de résultat"
|
|
||||||
TX_NORUN "Pas de fonction en exécution"
|
|
||||||
TX_NOCALL "Appel d'une fonction inexistante"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRINGTABLE DISCARDABLE
|
|
||||||
BEGIN
|
|
||||||
TX_NOVAR "Nom d'une variable attendu"
|
|
||||||
TX_NOFONC "Nom de la fonction attendu."
|
|
||||||
TX_OVERPARAM "Trop de paramètres"
|
|
||||||
TX_REDEF "Cette fonction existe déjà."
|
|
||||||
TX_LOWPARAM "Pas assez de paramètres"
|
|
||||||
TX_BADPARAM "Aucune fonction de ce nom n'accepte ce(s) type(s) de paramètre(s)"
|
|
||||||
TX_NUMPARAM "Aucune fonction de ce nom n'accepte ce nombre de paramètres"
|
|
||||||
TX_NOITEM "Cet élément n'exite pas dans cette classe."
|
|
||||||
TX_DOT "L'objet n'est pas une instance d'une classe."
|
|
||||||
TX_NOCONST "Il n'y a pas de constructeur approprié."
|
|
||||||
TX_REDEFCLASS "Cette classe existe déjà."
|
|
||||||
END
|
|
||||||
|
|
||||||
#endif // French (France) resources
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
// French (Switzerland) resources
|
|
||||||
|
|
||||||
#if !defined(AFX_RESOURCE_DLL) || defined(AFX_TARG_FRS)
|
|
||||||
#ifdef _WIN32
|
|
||||||
LANGUAGE LANG_FRENCH, SUBLANG_FRENCH_SWISS
|
|
||||||
#pragma code_page(1252)
|
|
||||||
#endif //_WIN32
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
//
|
|
||||||
// Dialog
|
|
||||||
//
|
|
||||||
|
|
||||||
IDD_CONSOLE DIALOG DISCARDABLE 0, 0, 401, 210
|
|
||||||
STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
|
|
||||||
CAPTION "CBot Console"
|
|
||||||
FONT 8, "MS Sans Serif"
|
|
||||||
BEGIN
|
|
||||||
LTEXT "Commande :",IDC_STATIC,7,177,40,8
|
|
||||||
EDITTEXT IDC_EDIT2,7,189,329,14,ES_AUTOHSCROLL
|
|
||||||
DEFPUSHBUTTON "Exécute",IDOK,344,189,50,14
|
|
||||||
EDITTEXT IDC_EDIT1,7,7,387,167,ES_MULTILINE | ES_READONLY |
|
|
||||||
ES_WANTRETURN | WS_VSCROLL
|
|
||||||
END
|
|
||||||
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
//
|
|
||||||
// DESIGNINFO
|
|
||||||
//
|
|
||||||
|
|
||||||
#ifdef APSTUDIO_INVOKED
|
|
||||||
GUIDELINES DESIGNINFO DISCARDABLE
|
|
||||||
BEGIN
|
|
||||||
IDD_CONSOLE, DIALOG
|
|
||||||
BEGIN
|
|
||||||
LEFTMARGIN, 7
|
|
||||||
RIGHTMARGIN, 394
|
|
||||||
TOPMARGIN, 7
|
|
||||||
BOTTOMMARGIN, 203
|
|
||||||
END
|
|
||||||
END
|
|
||||||
#endif // APSTUDIO_INVOKED
|
|
||||||
|
|
||||||
#endif // French (Switzerland) resources
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#ifndef APSTUDIO_INVOKED
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
//
|
|
||||||
// Generated from the TEXTINCLUDE 3 resource.
|
|
||||||
//
|
|
||||||
#define _AFX_NO_SPLITTER_RESOURCES
|
|
||||||
#define _AFX_NO_OLE_RESOURCES
|
|
||||||
#define _AFX_NO_TRACKER_RESOURCES
|
|
||||||
#define _AFX_NO_PROPERTY_RESOURCES
|
|
||||||
|
|
||||||
#if !defined(AFX_RESOURCE_DLL) || defined(AFX_TARG_FRA)
|
|
||||||
#ifdef _WIN32
|
|
||||||
LANGUAGE 12, 1
|
|
||||||
#pragma code_page(1252)
|
|
||||||
#endif
|
|
||||||
#include "res\TstCBot.rc2" // non-Microsoft Visual C++ edited resources
|
|
||||||
#include "l.fra\afxres.rc" // Standard components
|
|
||||||
#endif
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
#endif // not APSTUDIO_INVOKED
|
|
||||||
|
|
||||||
|
|
@ -1,83 +0,0 @@
|
||||||
// TstCBotDoc.cpp : implementation of the CTstCBotDoc class
|
|
||||||
//
|
|
||||||
|
|
||||||
#include "stdafx.h"
|
|
||||||
#include "TstCBot.h"
|
|
||||||
|
|
||||||
#include "TstCBotDoc.h"
|
|
||||||
|
|
||||||
#ifdef _DEBUG
|
|
||||||
#define new DEBUG_NEW
|
|
||||||
#undef THIS_FILE
|
|
||||||
static char THIS_FILE[] = __FILE__;
|
|
||||||
#endif
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
// CTstCBotDoc
|
|
||||||
|
|
||||||
IMPLEMENT_DYNCREATE(CTstCBotDoc, CDocument)
|
|
||||||
|
|
||||||
BEGIN_MESSAGE_MAP(CTstCBotDoc, CDocument)
|
|
||||||
//{{AFX_MSG_MAP(CTstCBotDoc)
|
|
||||||
//}}AFX_MSG_MAP
|
|
||||||
END_MESSAGE_MAP()
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
// CTstCBotDoc construction/destruction
|
|
||||||
|
|
||||||
CTstCBotDoc::CTstCBotDoc()
|
|
||||||
{
|
|
||||||
// TODO: add one-time construction code here
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
CTstCBotDoc::~CTstCBotDoc()
|
|
||||||
{
|
|
||||||
}
|
|
||||||
|
|
||||||
BOOL CTstCBotDoc::OnNewDocument()
|
|
||||||
{
|
|
||||||
if (!CDocument::OnNewDocument())
|
|
||||||
return FALSE;
|
|
||||||
|
|
||||||
// TODO: add reinitialization code here
|
|
||||||
// (SDI documents will reuse this document)
|
|
||||||
|
|
||||||
return TRUE;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
// CTstCBotDoc serialization
|
|
||||||
|
|
||||||
void CTstCBotDoc::Serialize(CArchive& ar)
|
|
||||||
{
|
|
||||||
if (ar.IsStoring())
|
|
||||||
{
|
|
||||||
// TODO: add storing code here
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
// TODO: add loading code here
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
// CTstCBotDoc diagnostics
|
|
||||||
|
|
||||||
#ifdef _DEBUG
|
|
||||||
void CTstCBotDoc::AssertValid() const
|
|
||||||
{
|
|
||||||
CDocument::AssertValid();
|
|
||||||
}
|
|
||||||
|
|
||||||
void CTstCBotDoc::Dump(CDumpContext& dc) const
|
|
||||||
{
|
|
||||||
CDocument::Dump(dc);
|
|
||||||
}
|
|
||||||
#endif //_DEBUG
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
// CTstCBotDoc commands
|
|
||||||
|
|
||||||
|
|
@ -1,55 +0,0 @@
|
||||||
// TstCBotDoc.h : interface of the CTstCBotDoc class
|
|
||||||
//
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
|
|
||||||
#if !defined(AFX_TSTCBOTDOC_H__70B3756E_5DFD_11D4_A15E_00E0189013DF__INCLUDED_)
|
|
||||||
#define AFX_TSTCBOTDOC_H__70B3756E_5DFD_11D4_A15E_00E0189013DF__INCLUDED_
|
|
||||||
|
|
||||||
#if _MSC_VER >= 1000
|
|
||||||
#pragma once
|
|
||||||
#endif // _MSC_VER >= 1000
|
|
||||||
|
|
||||||
|
|
||||||
class CTstCBotDoc : public CDocument
|
|
||||||
{
|
|
||||||
protected: // create from serialization only
|
|
||||||
CTstCBotDoc();
|
|
||||||
DECLARE_DYNCREATE(CTstCBotDoc)
|
|
||||||
|
|
||||||
// Attributes
|
|
||||||
public:
|
|
||||||
|
|
||||||
// Operations
|
|
||||||
public:
|
|
||||||
|
|
||||||
// Overrides
|
|
||||||
// ClassWizard generated virtual function overrides
|
|
||||||
//{{AFX_VIRTUAL(CTstCBotDoc)
|
|
||||||
public:
|
|
||||||
virtual BOOL OnNewDocument();
|
|
||||||
virtual void Serialize(CArchive& ar);
|
|
||||||
//}}AFX_VIRTUAL
|
|
||||||
|
|
||||||
// Implementation
|
|
||||||
public:
|
|
||||||
virtual ~CTstCBotDoc();
|
|
||||||
#ifdef _DEBUG
|
|
||||||
virtual void AssertValid() const;
|
|
||||||
virtual void Dump(CDumpContext& dc) const;
|
|
||||||
#endif
|
|
||||||
|
|
||||||
protected:
|
|
||||||
|
|
||||||
// Generated message map functions
|
|
||||||
protected:
|
|
||||||
//{{AFX_MSG(CTstCBotDoc)
|
|
||||||
//}}AFX_MSG
|
|
||||||
DECLARE_MESSAGE_MAP()
|
|
||||||
};
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
|
|
||||||
//{{AFX_INSERT_LOCATION}}
|
|
||||||
// Microsoft Developer Studio will insert additional declarations immediately before the previous line.
|
|
||||||
|
|
||||||
#endif // !defined(AFX_TSTCBOTDOC_H__70B3756E_5DFD_11D4_A15E_00E0189013DF__INCLUDED_)
|
|
||||||
|
|
@ -1,291 +0,0 @@
|
||||||
// TstCBotView.cpp : implementation of the CTstCBotView class
|
|
||||||
//
|
|
||||||
|
|
||||||
#include "stdafx.h"
|
|
||||||
#include "TstCBot.h"
|
|
||||||
|
|
||||||
#include "TstCBotDoc.h"
|
|
||||||
#include "TstCBotView.h"
|
|
||||||
#include "BotConsoleDlg.h"
|
|
||||||
|
|
||||||
#ifdef _DEBUG
|
|
||||||
#define new DEBUG_NEW
|
|
||||||
#undef THIS_FILE
|
|
||||||
static char THIS_FILE[] = __FILE__;
|
|
||||||
#endif
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
// CTstCBotView
|
|
||||||
|
|
||||||
IMPLEMENT_DYNCREATE(CTstCBotView, CView)
|
|
||||||
|
|
||||||
BEGIN_MESSAGE_MAP(CTstCBotView, CView)
|
|
||||||
//{{AFX_MSG_MAP(CTstCBotView)
|
|
||||||
ON_WM_SIZE()
|
|
||||||
ON_COMMAND(ID_CP1, OnCp1)
|
|
||||||
ON_COMMAND(ID_EXE, OnExe)
|
|
||||||
ON_COMMAND(ID_FILE_SAVE, OnFileSave)
|
|
||||||
ON_COMMAND(ID_FILE_SAVE_AS, OnFileSaveAs)
|
|
||||||
//}}AFX_MSG_MAP
|
|
||||||
END_MESSAGE_MAP()
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
// CTstCBotView construction/destruction
|
|
||||||
|
|
||||||
CTstCBotView::CTstCBotView()
|
|
||||||
{
|
|
||||||
// TODO: add construction code here
|
|
||||||
m_pEdit = NULL;
|
|
||||||
m_pProg = NULL;
|
|
||||||
}
|
|
||||||
|
|
||||||
CTstCBotView::~CTstCBotView()
|
|
||||||
{
|
|
||||||
}
|
|
||||||
|
|
||||||
BOOL CTstCBotView::PreCreateWindow(CREATESTRUCT& cs)
|
|
||||||
{
|
|
||||||
// TODO: Modify the Window class or styles here by modifying
|
|
||||||
// the CREATESTRUCT cs
|
|
||||||
|
|
||||||
return CView::PreCreateWindow(cs);
|
|
||||||
}
|
|
||||||
|
|
||||||
void CTstCBotView::OnActivateView( BOOL bActivate, CView* pActivateView, CView* pDeactiveView )
|
|
||||||
{
|
|
||||||
if ( m_pEdit == NULL)
|
|
||||||
{
|
|
||||||
m_pEdit = new CEdit();
|
|
||||||
CRect rect;
|
|
||||||
GetClientRect( rect );
|
|
||||||
|
|
||||||
m_pEdit->Create( WS_VISIBLE|WS_BORDER|WS_TABSTOP|ES_MULTILINE|ES_WANTRETURN|ES_NOHIDESEL|ES_AUTOVSCROLL,
|
|
||||||
rect, this, IDC_EDIT1 );
|
|
||||||
m_pEdit->SetTabStops(12);
|
|
||||||
LoadEdition("CBotTest.txt");
|
|
||||||
m_pEdit->SetFocus();
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
// CTstCBotView drawing
|
|
||||||
|
|
||||||
void CTstCBotView::OnDraw(CDC* pDC)
|
|
||||||
{
|
|
||||||
CTstCBotDoc* pDoc = GetDocument();
|
|
||||||
ASSERT_VALID(pDoc);
|
|
||||||
|
|
||||||
// TODO: add draw code for native data here
|
|
||||||
}
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
// CTstCBotView diagnostics
|
|
||||||
|
|
||||||
#ifdef _DEBUG
|
|
||||||
void CTstCBotView::AssertValid() const
|
|
||||||
{
|
|
||||||
CView::AssertValid();
|
|
||||||
}
|
|
||||||
|
|
||||||
void CTstCBotView::Dump(CDumpContext& dc) const
|
|
||||||
{
|
|
||||||
CView::Dump(dc);
|
|
||||||
}
|
|
||||||
|
|
||||||
CTstCBotDoc* CTstCBotView::GetDocument() // non-debug version is inline
|
|
||||||
{
|
|
||||||
ASSERT(m_pDocument->IsKindOf(RUNTIME_CLASS(CTstCBotDoc)));
|
|
||||||
return (CTstCBotDoc*)m_pDocument;
|
|
||||||
}
|
|
||||||
#endif //_DEBUG
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
// CTstCBotView message handlers
|
|
||||||
|
|
||||||
void CTstCBotView::OnSize(UINT nType, int cx, int cy)
|
|
||||||
{
|
|
||||||
CView::OnSize(nType, cx, cy);
|
|
||||||
|
|
||||||
if ( m_pEdit != NULL )
|
|
||||||
{
|
|
||||||
CRect rect;
|
|
||||||
GetClientRect( rect );
|
|
||||||
m_pEdit->MoveWindow( rect );
|
|
||||||
m_pEdit->SetFocus();
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
void CTstCBotView::SaveEdition(const char* filename)
|
|
||||||
{
|
|
||||||
CString program;
|
|
||||||
|
|
||||||
m_pEdit->GetWindowText(program);
|
|
||||||
|
|
||||||
FILE* pf = fopen(filename, "wb");
|
|
||||||
if (pf==NULL) return;
|
|
||||||
|
|
||||||
fputs (program, pf);
|
|
||||||
fclose(pf);
|
|
||||||
}
|
|
||||||
|
|
||||||
void CTstCBotView::LoadEdition(const char* filename)
|
|
||||||
{
|
|
||||||
CString program("{ int x = 10000; while (x > 0) x = x-1; }");
|
|
||||||
|
|
||||||
FILE* pf = fopen(filename, "r");
|
|
||||||
if (pf!=NULL)
|
|
||||||
{
|
|
||||||
char buffer[10000];
|
|
||||||
program.Empty();
|
|
||||||
|
|
||||||
while (NULL != fgets (buffer, 100000, pf))
|
|
||||||
{
|
|
||||||
program += buffer;
|
|
||||||
program = program.Left(program.GetLength()-1) + "\r\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
fclose(pf);
|
|
||||||
}
|
|
||||||
|
|
||||||
m_pEdit->SetWindowText(program);
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
// compile le programme
|
|
||||||
#include <stdio.h>
|
|
||||||
|
|
||||||
void CTstCBotView::OnCp1()
|
|
||||||
{
|
|
||||||
CString program;
|
|
||||||
|
|
||||||
SaveEdition("CBotTest.txt");
|
|
||||||
|
|
||||||
m_pEdit->GetWindowText(program);
|
|
||||||
|
|
||||||
CString TextError;
|
|
||||||
int code, start, end;
|
|
||||||
|
|
||||||
if ( m_pProg == NULL ) m_pProg = new CBotProgram();
|
|
||||||
|
|
||||||
CTstCBotApp* pApp = (CTstCBotApp*)AfxGetApp();
|
|
||||||
|
|
||||||
if (m_pProg->Compile(program, pApp->m_Liste))
|
|
||||||
{
|
|
||||||
CString done = "Compilation sans erreur.\nLes fonctions suivantes sont externes:\n";
|
|
||||||
|
|
||||||
for ( int i = 0; i < pApp->m_Liste.RetSize(); i++)
|
|
||||||
{
|
|
||||||
done += CString(pApp->m_Liste[i]) + "\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
AfxMessageBox( done );
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
m_pProg->GetError(code, start, end);
|
|
||||||
delete m_pProg;
|
|
||||||
m_pProg = NULL;
|
|
||||||
|
|
||||||
m_pEdit->SetSel( start, end );
|
|
||||||
m_pEdit->SetFocus(); // met en évidence la partie avec problème
|
|
||||||
|
|
||||||
TextError.LoadString( code );
|
|
||||||
if (TextError.IsEmpty())
|
|
||||||
{
|
|
||||||
char buf[100];
|
|
||||||
sprintf(buf, "Erreur numéro %d.", code);
|
|
||||||
TextError = buf;
|
|
||||||
}
|
|
||||||
AfxMessageBox( TextError );
|
|
||||||
}
|
|
||||||
|
|
||||||
m_pEdit->SetFocus();
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
//////////////////////////////////////////////////////
|
|
||||||
|
|
||||||
|
|
||||||
void CTstCBotView::OnExe()
|
|
||||||
{
|
|
||||||
CTstCBotApp* pApp = (CTstCBotApp*)AfxGetApp();
|
|
||||||
|
|
||||||
if( m_pProg == NULL)
|
|
||||||
{
|
|
||||||
AfxMessageBox("Pas de programme compilé !");
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
|
|
||||||
if( pApp->m_Liste.RetSize() == 0 )
|
|
||||||
{
|
|
||||||
AfxMessageBox("Aucune fonction marquée \"extern\" !");
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
CBotConsoleDlg dlg;
|
|
||||||
dlg.DoModal(); // dialogue pour faire la console
|
|
||||||
|
|
||||||
if ( dlg.m_code>0 )
|
|
||||||
{
|
|
||||||
CString TextError;
|
|
||||||
|
|
||||||
m_pEdit->SetSel( dlg.m_start, dlg.m_end );
|
|
||||||
m_pEdit->SetFocus(); // met en évidence la partie avec problème
|
|
||||||
|
|
||||||
TextError.LoadString( dlg.m_code );
|
|
||||||
if (TextError.IsEmpty())
|
|
||||||
{
|
|
||||||
char buf[100];
|
|
||||||
sprintf(buf, "Erreur numéro %d.", dlg.m_code);
|
|
||||||
TextError = buf;
|
|
||||||
}
|
|
||||||
// AfxMessageBox( TextError );
|
|
||||||
}
|
|
||||||
|
|
||||||
m_pEdit->SetFocus();
|
|
||||||
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
void CTstCBotView::OnFileSave()
|
|
||||||
{
|
|
||||||
// TODO: Add your command handler code here
|
|
||||||
SaveEdition("CBotTest.txt");
|
|
||||||
}
|
|
||||||
|
|
||||||
void CTstCBotView::OnFileSaveAs()
|
|
||||||
{
|
|
||||||
CFileDialog *pDlg;
|
|
||||||
CString s;
|
|
||||||
|
|
||||||
pDlg = new CFileDialog(FALSE, "TXT", NULL,
|
|
||||||
OFN_OVERWRITEPROMPT|OFN_HIDEREADONLY,
|
|
||||||
"cboxtest|*.txt", this);
|
|
||||||
if ( pDlg == NULL ) return;
|
|
||||||
|
|
||||||
if ( pDlg->DoModal() == IDOK ) // choix du fichier ...
|
|
||||||
{
|
|
||||||
SaveEdition(pDlg->GetPathName());
|
|
||||||
}
|
|
||||||
|
|
||||||
delete pDlg;
|
|
||||||
}
|
|
||||||
|
|
||||||
#if 0
|
|
||||||
void test()
|
|
||||||
{
|
|
||||||
int y,z;
|
|
||||||
|
|
||||||
for (;;);
|
|
||||||
for (x = 0; y = 1; z = 3) int q = 6;
|
|
||||||
for (int x = 0; int y = 1; int z = 3) int q = 6;
|
|
||||||
// pour voir
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
|
|
@ -1,81 +0,0 @@
|
||||||
// TstCBotView.h : interface of the CTstCBotView class
|
|
||||||
//
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
|
|
||||||
#if !defined(AFX_TSTCBOTVIEW_H__70B37570_5DFD_11D4_A15E_00E0189013DF__INCLUDED_)
|
|
||||||
#define AFX_TSTCBOTVIEW_H__70B37570_5DFD_11D4_A15E_00E0189013DF__INCLUDED_
|
|
||||||
|
|
||||||
#if _MSC_VER >= 1000
|
|
||||||
#pragma once
|
|
||||||
#endif // _MSC_VER >= 1000
|
|
||||||
|
|
||||||
|
|
||||||
class CBotProgram;
|
|
||||||
class CBotClass;
|
|
||||||
|
|
||||||
|
|
||||||
class CTstCBotView : public CView
|
|
||||||
{
|
|
||||||
protected: // create from serialization only
|
|
||||||
CTstCBotView();
|
|
||||||
DECLARE_DYNCREATE(CTstCBotView)
|
|
||||||
|
|
||||||
CEdit* m_pEdit; // texte en édition
|
|
||||||
CWnd* m_pWnd;
|
|
||||||
CBotProgram* m_pProg; // programme compilé
|
|
||||||
|
|
||||||
// Attributes
|
|
||||||
public:
|
|
||||||
CTstCBotDoc* GetDocument();
|
|
||||||
|
|
||||||
// Operations
|
|
||||||
public:
|
|
||||||
void LoadEdition(const char* name);
|
|
||||||
void SaveEdition(const char* name);
|
|
||||||
|
|
||||||
// Overrides
|
|
||||||
// ClassWizard generated virtual function overrides
|
|
||||||
//{{AFX_VIRTUAL(CTstCBotView)
|
|
||||||
public:
|
|
||||||
virtual void OnDraw(CDC* pDC); // overridden to draw this view
|
|
||||||
virtual BOOL PreCreateWindow(CREATESTRUCT& cs);
|
|
||||||
virtual void OnActivateView( BOOL bActivate, CView* pActivateView, CView* pDeactiveView );
|
|
||||||
protected:
|
|
||||||
//}}AFX_VIRTUAL
|
|
||||||
|
|
||||||
// Implementation
|
|
||||||
public:
|
|
||||||
virtual ~CTstCBotView();
|
|
||||||
#ifdef _DEBUG
|
|
||||||
virtual void AssertValid() const;
|
|
||||||
virtual void Dump(CDumpContext& dc) const;
|
|
||||||
#endif
|
|
||||||
|
|
||||||
protected:
|
|
||||||
|
|
||||||
// Generated message map functions
|
|
||||||
protected:
|
|
||||||
//{{AFX_MSG(CTstCBotView)
|
|
||||||
afx_msg void OnSize(UINT nType, int cx, int cy);
|
|
||||||
afx_msg void OnCp1();
|
|
||||||
afx_msg void OnExe();
|
|
||||||
afx_msg void OnFileSave();
|
|
||||||
afx_msg void OnFileSaveAs();
|
|
||||||
//}}AFX_MSG
|
|
||||||
DECLARE_MESSAGE_MAP()
|
|
||||||
};
|
|
||||||
|
|
||||||
#ifndef _DEBUG // debug version in TstCBotView.cpp
|
|
||||||
inline CTstCBotDoc* CTstCBotView::GetDocument()
|
|
||||||
{ return (CTstCBotDoc*)m_pDocument; }
|
|
||||||
#endif
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
|
|
||||||
//{{AFX_INSERT_LOCATION}}
|
|
||||||
// Microsoft Developer Studio will insert additional declarations immediately before the previous line.
|
|
||||||
|
|
||||||
#endif // !defined(AFX_TSTCBOTVIEW_H__70B37570_5DFD_11D4_A15E_00E0189013DF__INCLUDED_)
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Binary file not shown.
|
Before Width: | Height: | Size: 1.1 KiB |
|
|
@ -1,13 +0,0 @@
|
||||||
//
|
|
||||||
// TSTCBOT.RC2 - resources Microsoft Visual C++ does not edit directly
|
|
||||||
//
|
|
||||||
|
|
||||||
#ifdef APSTUDIO_INVOKED
|
|
||||||
#error this file is not editable by Microsoft Visual C++
|
|
||||||
#endif //APSTUDIO_INVOKED
|
|
||||||
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
// Add manually edited resources here...
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////
|
|
||||||
Binary file not shown.
|
Before Width: | Height: | Size: 1.1 KiB |
|
|
@ -1,213 +0,0 @@
|
||||||
// test de l'interpréteur CBot, (c) D. Dumoulin 2000
|
|
||||||
|
|
||||||
Int Somme ( Int x, Int y )
|
|
||||||
{
|
|
||||||
return x + y;
|
|
||||||
}
|
|
||||||
|
|
||||||
Real Somme ( Real x, Real y )
|
|
||||||
{
|
|
||||||
return x + y;
|
|
||||||
}
|
|
||||||
|
|
||||||
void A_Faire()
|
|
||||||
{
|
|
||||||
CPoint position; // utilise une classe externe
|
|
||||||
position.x = 123.5;
|
|
||||||
position.y = -45.1;
|
|
||||||
|
|
||||||
show ( position );
|
|
||||||
}
|
|
||||||
|
|
||||||
/* Les nouveautés sont les suivantes
|
|
||||||
__________________________________________________
|
|
||||||
|
|
||||||
On peut définir des fonctions, avec la syntaxe habituelle au C
|
|
||||||
void MaFonction( Int x, Real y ) { ... }
|
|
||||||
|
|
||||||
Les caractéristiques sont pour l'instant les suivantes:
|
|
||||||
|
|
||||||
- ce programme TstCBot exécute la dernière fonction définie
|
|
||||||
|
|
||||||
- on peut définir deux fonctions du même nom,
|
|
||||||
si la liste de paramètres est différente.
|
|
||||||
Par exemple
|
|
||||||
Int Somme( Int x, Int y )
|
|
||||||
Real Somme( Real x, Real y );
|
|
||||||
Note: si la seconde n'existait pas, Somme ( 1.3, 4.8 )
|
|
||||||
serait fait sur les nombres entier 1 + 4
|
|
||||||
La priorité est donnée à la routine qui ne pert pas
|
|
||||||
de bits dans la conversion des paramètres.
|
|
||||||
|
|
||||||
- il n'y a pas d'erreur de compilation si une routine
|
|
||||||
ne retourne pas de valeur alors qu'elle devrait,
|
|
||||||
par contre il y a une erreur "correcte" à l'exécution
|
|
||||||
|
|
||||||
- il est possible d'utiliser une fonction qui est définie
|
|
||||||
plus bas dans le programme.
|
|
||||||
__________________________________________________
|
|
||||||
|
|
||||||
Tous les blocs d'instructions existent maintenant, à savoir
|
|
||||||
|
|
||||||
label :
|
|
||||||
while (condition) { instructions; break label; continue label; }
|
|
||||||
|
|
||||||
label :
|
|
||||||
do { instructions; break label; continue label; } while (condition)
|
|
||||||
|
|
||||||
label:
|
|
||||||
for (initial; condition; incrément) { instructions; break; continue }
|
|
||||||
|
|
||||||
switch ( valeur ) { case 1: instructions; case 2: break ; }
|
|
||||||
|
|
||||||
try {instructions; throw exception; } catch (exception) {instructions;}
|
|
||||||
catch (testlogique) {instructions;}
|
|
||||||
finally {instructions;}
|
|
||||||
// le bloc finally est exécuter dans tous les cas
|
|
||||||
// qu'il y ait eu exception ou non, et aussi en cas de break, continue ou return
|
|
||||||
__________________________________________________
|
|
||||||
|
|
||||||
Les "exceptions" sont juste des numéros (31 bits)
|
|
||||||
6000 = division par zéro
|
|
||||||
6001 = variable non initialisée
|
|
||||||
6002 = valeur négative pour un throw
|
|
||||||
6003 = la fonction n'a pas retourné de valeur
|
|
||||||
|
|
||||||
les autres numéros sont à disposition
|
|
||||||
(COLOBOT aura surement des numéros d'exception propre)
|
|
||||||
l'association d'un mot clef pour ces exceptions est à venir.
|
|
||||||
__________________________________________________
|
|
||||||
|
|
||||||
L'interpréteur a été un peu optimiser, une boucle de un millon de décrément
|
|
||||||
ne prend plus que
|
|
||||||
*/
|
|
||||||
|
|
||||||
void Test ()
|
|
||||||
{ // début du bloc d'instructions
|
|
||||||
|
|
||||||
Int z = 1000000;
|
|
||||||
while ( z>0 ) z--;
|
|
||||||
|
|
||||||
return;
|
|
||||||
{
|
|
||||||
// test la préséance pour les assignations
|
|
||||||
Int a = 9;
|
|
||||||
a += (a = 3);
|
|
||||||
if ( a != 12 ) 1/0; // le résultat correct est 12
|
|
||||||
|
|
||||||
Int b = 9;
|
|
||||||
b = b + (b = 3);
|
|
||||||
if (b != 12) 1/0; // même chose
|
|
||||||
|
|
||||||
// la fonction show est une fonction externe
|
|
||||||
// définie par TstCBot
|
|
||||||
// elle peut prendre un nombre quelconque de paramètres
|
|
||||||
show ( a, b );
|
|
||||||
}
|
|
||||||
|
|
||||||
{
|
|
||||||
// petit test sur les chaînes
|
|
||||||
String x = "ch." ;
|
|
||||||
String y ;
|
|
||||||
x += y = x + " de la brume.";
|
|
||||||
|
|
||||||
// concaténation de chaînes, accepte des autres types
|
|
||||||
String s = 1 + 2 + " test " + 3 + 4 ;
|
|
||||||
|
|
||||||
show( x, y, s );
|
|
||||||
|
|
||||||
// les tests sur les chaînes ne sont pas standard en Java
|
|
||||||
// mais c'est si pratique :
|
|
||||||
|
|
||||||
if ( s != "3 test 34" ) 1/0; // le résultat correct est "3 test 34"
|
|
||||||
// car 1+2 est évalué en premier entre 2 nombres
|
|
||||||
// et ensuite on additionne des chaînes "3" "4"
|
|
||||||
}
|
|
||||||
|
|
||||||
{
|
|
||||||
// teste toutes les opérations avec les entiers (32 bits)
|
|
||||||
Int a = 4;
|
|
||||||
Int b = 4;
|
|
||||||
|
|
||||||
Int c = a++ * --b; // post incrément, pré décrément
|
|
||||||
if ( c != 12 ) 1/0;
|
|
||||||
|
|
||||||
c = ++a * b--; // pré incrément, post décrément
|
|
||||||
if ( c!=18 ) 1/0;
|
|
||||||
|
|
||||||
a = a+b-a*b/a%3; // 6 + 2 - ( 6 * 2 / 6 % 3 ) -> 6
|
|
||||||
if ( a != 6 ) 1/0;
|
|
||||||
|
|
||||||
a += 2; a-=1; a*=3; a/=4; a%=3; // (6+2 -1) *3 /4 modulo 3 = 21 / 4 modulo 3 = 2
|
|
||||||
if ( a!= 2) 0/0;
|
|
||||||
|
|
||||||
if (-5 << 3 != -40) 0/0; // shift à gauche
|
|
||||||
if ( -5 >> 1 != -3) 0/0; // shift arithmétique à droite 11111011 -> 11111101 = -3
|
|
||||||
if ( -5 >>> 1 != 0x3ffffffd) 0/0; // shift non signé à droite
|
|
||||||
|
|
||||||
a = -10; // fait la même chose en assignation
|
|
||||||
a <<= 1; // -20
|
|
||||||
a >>= 2; // -5
|
|
||||||
a >>>= 1; // pert le signe
|
|
||||||
if ( a != 0x3ffffffd) 0/0; //
|
|
||||||
|
|
||||||
Int x = 5/3; // division d'entiers
|
|
||||||
if ( x != 1 ) 0/0;
|
|
||||||
Int xx = 5.0/3.0; // division de réels, assigné à un entier
|
|
||||||
if ( xx != 1 ) 0/0;
|
|
||||||
|
|
||||||
Int y = 0xF0035678;
|
|
||||||
if ( ~y != 0x0FFCA987 ) 0/0; // NOT bit à bit
|
|
||||||
if ( (0x3456 ^ 0x54f0) != 0x60A6) // XOR bit à bit
|
|
||||||
0/0;
|
|
||||||
if ( (0x23 | 0x83) != 0xA3 ) 0/0; // OR bit à bit
|
|
||||||
if ( (0x23 & 0x83) != 0x03 ) 0/0; // AND bit à bit
|
|
||||||
|
|
||||||
Int z = 0x0123;
|
|
||||||
z |= 0x8010; if ( z != 0x8133) 0/0;
|
|
||||||
z &= 0xF018; if ( z != 0x8010) 0/0;
|
|
||||||
z ^= 0xFF17; if ( z != 0x7F07) 0/0;
|
|
||||||
}
|
|
||||||
|
|
||||||
{
|
|
||||||
// test pour les booléens
|
|
||||||
Boolean a, b= true, c = false;
|
|
||||||
a = b | c & b;
|
|
||||||
if ( a != b ) 0/0;
|
|
||||||
if ( !a ) 0/0;
|
|
||||||
if ( b ^ a ) 0/0; // XOR
|
|
||||||
if ( true || 0/0<1 ) {};
|
|
||||||
if ( false && 0/0<1) {};
|
|
||||||
// a ? "vrai" : "faux";
|
|
||||||
}
|
|
||||||
|
|
||||||
{
|
|
||||||
// petit test sur les nombres réels
|
|
||||||
Real x = 1. / 3, y = 0;
|
|
||||||
|
|
||||||
if ( 3 * x != 1 ) x = x / y; // provoque une division par zéro
|
|
||||||
else y = 1.123;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
// test de durée
|
|
||||||
// attention, le programme de test ne stoppe qu'à la fin d'exécution
|
|
||||||
// bien que la boucle est interrompue plusieures fois
|
|
||||||
|
|
||||||
// la boucle est plus rapide si elle est au début du programme !
|
|
||||||
{
|
|
||||||
Int z = 10000;
|
|
||||||
while ( z > 0 ) z = z - 1;
|
|
||||||
}
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
void t()
|
|
||||||
{
|
|
||||||
A_Faire();
|
|
||||||
|
|
||||||
show ( Somme ( 1, 2 ) );
|
|
||||||
show ( Somme ( 1., 2 ) );
|
|
||||||
show ( Somme ( 4.5, 2.7 ) );
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
@ -1,43 +0,0 @@
|
||||||
// test de l'interpréteur CBot, (c) D. Dumoulin 2000
|
|
||||||
|
|
||||||
// pour l'instant, seule les primitives suivantes sont implémentées
|
|
||||||
|
|
||||||
// { ... ; ... ; ... } un bloc d'instructions
|
|
||||||
// int x, y = 12, z; // déclaration de nombre entier
|
|
||||||
// float a, b= 2/3, c=b+1; // déclaration de nombres réels
|
|
||||||
// boolean tst = true; // déclaration d'un booléen
|
|
||||||
// String x = "hello"; // déclaration d'une chaînes
|
|
||||||
|
|
||||||
// z = x = x * y / ( z + 1 - x ); // assignation en chaîne et les 4 opérations
|
|
||||||
|
|
||||||
// while ( x >= 0 ) x = x - 1; // boucle while, et test > >= < <= == !=
|
|
||||||
// if ( x < y ) x = x + 1; // test si
|
|
||||||
// else y = y + 1; // sinon
|
|
||||||
|
|
||||||
/* et les opérations suivantes:
|
|
||||||
+ plus unaire x = +y;
|
|
||||||
- moins unaire x = -y;
|
|
||||||
|
|
||||||
|| OU logique
|
|
||||||
&& ET logique
|
|
||||||
! NOT logique
|
|
||||||
| OU bit à bit
|
|
||||||
& ET bit à bit
|
|
||||||
^ XOR bit à bit
|
|
||||||
~ NON bit à bit
|
|
||||||
|
|
||||||
// les commentaires sont acceptés
|
|
||||||
/* y compris les commentaires
|
|
||||||
sur plusieures lignes */
|
|
||||||
|
|
||||||
|
|
||||||
{
|
|
||||||
String str ;
|
|
||||||
|
|
||||||
str = "abc" ;
|
|
||||||
|
|
||||||
show (str) ;
|
|
||||||
|
|
||||||
show( str = str + "+++" , ) ;
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
@ -2,7 +2,7 @@ extern public void x()
|
||||||
{
|
{
|
||||||
float a= 1, b = 2;
|
float a= 1, b = 2;
|
||||||
a = b * ( 2 + 2 );
|
a = b * ( 2 + 2 );
|
||||||
// print (a);
|
print (a);
|
||||||
a += 4;
|
a += 4;
|
||||||
// print (a);
|
print (a);
|
||||||
}
|
}
|
||||||
Loading…
Reference in New Issue