2012-08-08 20:35:17 +00:00
|
|
|
|
// * 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/.
|
|
|
|
|
|
|
|
|
|
// definition of methods for class FILE
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
// Static variables
|
|
|
|
|
|
|
|
|
|
static CBotClass* m_pClassFILE;
|
|
|
|
|
static CBotProgram* m_pFuncFile;
|
|
|
|
|
static int m_CompteurFileOpen = 0;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
// Prepares a file name.
|
|
|
|
|
|
|
|
|
|
void PrepareFilename(CBotString &filename) //DD!
|
|
|
|
|
{
|
|
|
|
|
int pos;
|
|
|
|
|
|
|
|
|
|
pos = filename.ReverseFind('\\');
|
|
|
|
|
if ( pos > 0 )
|
|
|
|
|
{
|
|
|
|
|
filename = filename.Mid(pos+1); // remove the records (files)??
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
pos = filename.ReverseFind('/');
|
|
|
|
|
if ( pos > 0 )
|
|
|
|
|
{
|
|
|
|
|
filename = filename.Mid(pos+1); // also those with /
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
pos = filename.ReverseFind(':');
|
|
|
|
|
if ( pos > 0 )
|
|
|
|
|
{
|
|
|
|
|
filename = filename.Mid(pos+1); // also removes the drive letter C:
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
filename = CBotString("files\\") + filename;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
// constructor of the class
|
|
|
|
|
// gets the filename as a parameter
|
|
|
|
|
|
|
|
|
|
// execution
|
2013-05-26 15:47:54 +00:00
|
|
|
|
bool rfconstruct (CBotVar* pThis, CBotVar* pVar, CBotVar* pResult, int& Exception)
|
2012-08-08 20:35:17 +00:00
|
|
|
|
{
|
|
|
|
|
CBotString mode;
|
|
|
|
|
|
|
|
|
|
// accepts no parameters
|
|
|
|
|
if ( pVar == NULL ) return true;
|
|
|
|
|
|
|
|
|
|
// must be a string
|
2012-08-11 18:59:35 +00:00
|
|
|
|
if ( pVar->GetType() != CBotTypString ) { Exception = CBotErrBadString; return false; }
|
2012-08-08 20:35:17 +00:00
|
|
|
|
|
2012-08-11 18:59:35 +00:00
|
|
|
|
CBotString filename = pVar->GetValString();
|
2012-08-08 20:35:17 +00:00
|
|
|
|
PrepareFilename(filename); //DR
|
|
|
|
|
|
|
|
|
|
// there may be a second parameter
|
2012-08-11 18:59:35 +00:00
|
|
|
|
pVar = pVar->GetNext();
|
2012-08-08 20:35:17 +00:00
|
|
|
|
if ( pVar != NULL )
|
|
|
|
|
{
|
|
|
|
|
// recovers the mode
|
2012-08-11 18:59:35 +00:00
|
|
|
|
mode = pVar->GetValString();
|
2012-08-08 20:35:17 +00:00
|
|
|
|
if ( mode != "r" && mode != "w" ) { Exception = CBotErrBadParam; return false; }
|
|
|
|
|
|
|
|
|
|
// no third parameter, only two or one possible
|
2012-08-11 18:59:35 +00:00
|
|
|
|
if ( pVar->GetNext() != NULL ) { Exception = CBotErrOverParam; return false; }
|
2012-08-08 20:35:17 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// save the file name
|
2012-08-11 18:59:35 +00:00
|
|
|
|
pVar = pThis->GetItem("filename");
|
2012-08-08 20:35:17 +00:00
|
|
|
|
pVar->SetValString(filename);
|
|
|
|
|
|
|
|
|
|
if ( ! mode.IsEmpty() )
|
|
|
|
|
{
|
|
|
|
|
// open the called file
|
|
|
|
|
FILE* pFile = fopen( filename, mode );
|
|
|
|
|
if ( pFile == NULL ) { Exception = CBotErrFileOpen; return false; }
|
|
|
|
|
|
|
|
|
|
m_CompteurFileOpen ++;
|
|
|
|
|
|
|
|
|
|
// save the handle of file
|
2012-08-11 18:59:35 +00:00
|
|
|
|
pVar = pThis->GetItem("handle");
|
2012-08-08 20:35:17 +00:00
|
|
|
|
pVar->SetValInt((long)pFile);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return true;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// compilation
|
|
|
|
|
CBotTypResult cfconstruct (CBotVar* pThis, CBotVar* &pVar)
|
|
|
|
|
{
|
|
|
|
|
// accepts no parameters
|
|
|
|
|
if ( pVar == NULL ) return CBotTypResult( 0 );
|
|
|
|
|
|
|
|
|
|
// must be a string
|
2012-08-11 18:59:35 +00:00
|
|
|
|
if ( pVar->GetType() != CBotTypString )
|
2012-08-08 20:35:17 +00:00
|
|
|
|
return CBotTypResult( CBotErrBadString );
|
|
|
|
|
|
|
|
|
|
// there may be a second parameter
|
2012-08-11 18:59:35 +00:00
|
|
|
|
pVar = pVar->GetNext();
|
2012-08-08 20:35:17 +00:00
|
|
|
|
if ( pVar != NULL )
|
|
|
|
|
{
|
|
|
|
|
// must be a string
|
2012-08-11 18:59:35 +00:00
|
|
|
|
if ( pVar->GetType() != CBotTypString )
|
2012-08-08 20:35:17 +00:00
|
|
|
|
return CBotTypResult( CBotErrBadString );
|
|
|
|
|
// no third parameter
|
2012-08-11 18:59:35 +00:00
|
|
|
|
if ( pVar->GetNext() != NULL ) return CBotTypResult( CBotErrOverParam );
|
2012-08-08 20:35:17 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// le r<>sultat est de type void (constructeur)
|
|
|
|
|
return CBotTypResult( 0 );
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
// destructor of the class
|
|
|
|
|
|
|
|
|
|
// execution
|
|
|
|
|
bool rfdestruct (CBotVar* pThis, CBotVar* pVar, CBotVar* pResult, int& Exception)
|
|
|
|
|
{
|
|
|
|
|
// retrieves the element "handle"
|
2012-08-11 18:59:35 +00:00
|
|
|
|
pVar = pThis->GetItem("handle");
|
2012-08-08 20:35:17 +00:00
|
|
|
|
|
|
|
|
|
// not open? no problem
|
2012-08-11 18:59:35 +00:00
|
|
|
|
if ( pVar->GetInit() != IS_DEF) return true;
|
2012-08-08 20:35:17 +00:00
|
|
|
|
|
2012-08-11 18:59:35 +00:00
|
|
|
|
FILE* pFile= (FILE*)pVar->GetValInt();
|
2012-08-08 20:35:17 +00:00
|
|
|
|
fclose(pFile);
|
|
|
|
|
m_CompteurFileOpen --;
|
|
|
|
|
|
|
|
|
|
pVar->SetInit(IS_NAN);
|
|
|
|
|
|
|
|
|
|
return true;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
// FILE :: open method
|
|
|
|
|
// get the r / w mode as a parameter
|
|
|
|
|
|
|
|
|
|
// execution
|
|
|
|
|
bool rfopen (CBotVar* pThis, CBotVar* pVar, CBotVar* pResult, int& Exception)
|
|
|
|
|
{
|
|
|
|
|
// there must be a parameter
|
|
|
|
|
if ( pVar == NULL ) { Exception = CBotErrLowParam; return false; }
|
|
|
|
|
|
|
|
|
|
// must be a string
|
2012-08-11 18:59:35 +00:00
|
|
|
|
if ( pVar->GetType() != CBotTypString ) { Exception = CBotErrBadString; return false; }
|
2012-08-08 20:35:17 +00:00
|
|
|
|
|
|
|
|
|
// there may be a second parameter
|
2012-08-11 18:59:35 +00:00
|
|
|
|
if ( pVar->GetNext() != NULL )
|
2012-08-08 20:35:17 +00:00
|
|
|
|
{
|
|
|
|
|
// in this case the first parameter is the file name
|
2012-08-11 18:59:35 +00:00
|
|
|
|
CBotString filename = pVar->GetValString();
|
2012-08-08 20:35:17 +00:00
|
|
|
|
PrepareFilename(filename); //DR
|
|
|
|
|
|
|
|
|
|
// saves the file name
|
2012-08-11 18:59:35 +00:00
|
|
|
|
CBotVar* pVar2 = pThis->GetItem("filename");
|
2012-08-08 20:35:17 +00:00
|
|
|
|
pVar2->SetValString(filename);
|
|
|
|
|
|
|
|
|
|
// next parameter is the mode
|
2012-08-11 18:59:35 +00:00
|
|
|
|
pVar = pVar -> GetNext();
|
2012-08-08 20:35:17 +00:00
|
|
|
|
}
|
|
|
|
|
|
2012-08-11 18:59:35 +00:00
|
|
|
|
CBotString mode = pVar->GetValString();
|
2012-08-08 20:35:17 +00:00
|
|
|
|
if ( mode != "r" && mode != "w" ) { Exception = CBotErrBadParam; return false; }
|
|
|
|
|
|
|
|
|
|
// No third parameter
|
2012-08-11 18:59:35 +00:00
|
|
|
|
if ( pVar->GetNext() != NULL ) { Exception = CBotErrOverParam; return false; }
|
2012-08-08 20:35:17 +00:00
|
|
|
|
|
|
|
|
|
// retrieves the element "handle"
|
2012-08-11 18:59:35 +00:00
|
|
|
|
pVar = pThis->GetItem("handle");
|
2012-08-08 20:35:17 +00:00
|
|
|
|
|
|
|
|
|
// which must not be initialized
|
2012-08-11 18:59:35 +00:00
|
|
|
|
if ( pVar->GetInit() == IS_DEF) { Exception = CBotErrFileOpen; return false; }
|
2012-08-08 20:35:17 +00:00
|
|
|
|
|
|
|
|
|
// contains filename
|
2012-08-11 18:59:35 +00:00
|
|
|
|
pVar = pThis->GetItem("filename");
|
|
|
|
|
CBotString filename = pVar->GetValString();
|
2012-08-08 20:35:17 +00:00
|
|
|
|
|
|
|
|
|
PrepareFilename(filename); //DD! (if the name was assigned by h.filename = "...";
|
|
|
|
|
|
|
|
|
|
// open requsted file
|
|
|
|
|
FILE* pFile = fopen( filename, mode );
|
|
|
|
|
if ( pFile == NULL ) //DR
|
|
|
|
|
{
|
|
|
|
|
pResult->SetValInt(false); //DR
|
|
|
|
|
return true; //DR
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
m_CompteurFileOpen ++;
|
|
|
|
|
|
|
|
|
|
// saves the handle of file
|
2012-08-11 18:59:35 +00:00
|
|
|
|
pVar = pThis->GetItem("handle");
|
2012-08-08 20:35:17 +00:00
|
|
|
|
pVar->SetValInt((long)pFile);
|
|
|
|
|
|
|
|
|
|
pResult->SetValInt(true); //DR
|
|
|
|
|
return true;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// compilation
|
|
|
|
|
CBotTypResult cfopen (CBotVar* pThis, CBotVar* &pVar)
|
|
|
|
|
{
|
|
|
|
|
// there must be a parameter
|
|
|
|
|
if ( pVar == NULL ) return CBotTypResult( CBotErrLowParam );
|
|
|
|
|
|
|
|
|
|
// must be a string
|
2012-08-11 18:59:35 +00:00
|
|
|
|
if ( pVar->GetType() != CBotTypString )
|
2012-08-08 20:35:17 +00:00
|
|
|
|
return CBotTypResult( CBotErrBadString );
|
|
|
|
|
|
|
|
|
|
// there may be a second parameter
|
2012-08-11 18:59:35 +00:00
|
|
|
|
pVar = pVar->GetNext();
|
2012-08-08 20:35:17 +00:00
|
|
|
|
if ( pVar != NULL )
|
|
|
|
|
{
|
|
|
|
|
// must be a string
|
2012-08-11 18:59:35 +00:00
|
|
|
|
if ( pVar->GetType() != CBotTypString )
|
2012-08-08 20:35:17 +00:00
|
|
|
|
return CBotTypResult( CBotErrBadString );
|
|
|
|
|
|
|
|
|
|
// no third parameter
|
2012-08-11 18:59:35 +00:00
|
|
|
|
if ( pVar->GetNext() != NULL ) return CBotTypResult( CBotErrOverParam );
|
2012-08-08 20:35:17 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// the result is of type bool
|
|
|
|
|
return CBotTypResult(CBotTypBoolean); //DR
|
|
|
|
|
}
|
|
|
|
|
|
2013-05-26 15:47:54 +00:00
|
|
|
|
|
2012-08-08 20:35:17 +00:00
|
|
|
|
// FILE :: close method
|
|
|
|
|
|
|
|
|
|
// execution
|
|
|
|
|
bool rfclose (CBotVar* pThis, CBotVar* pVar, CBotVar* pResult, int& Exception)
|
|
|
|
|
{
|
|
|
|
|
// it should not be any parameter
|
|
|
|
|
if ( pVar != NULL ) return CBotErrOverParam;
|
|
|
|
|
|
|
|
|
|
// retrieves the element "handle"
|
2012-08-11 18:59:35 +00:00
|
|
|
|
pVar = pThis->GetItem("handle");
|
2012-08-08 20:35:17 +00:00
|
|
|
|
|
2012-08-11 18:59:35 +00:00
|
|
|
|
if ( pVar->GetInit() != IS_DEF) { Exception = CBotErrNotOpen; return false; }
|
2012-08-08 20:35:17 +00:00
|
|
|
|
|
2012-08-11 18:59:35 +00:00
|
|
|
|
FILE* pFile= (FILE*)pVar->GetValInt();
|
2012-08-08 20:35:17 +00:00
|
|
|
|
fclose(pFile);
|
|
|
|
|
m_CompteurFileOpen --;
|
|
|
|
|
|
|
|
|
|
pVar->SetInit(IS_NAN);
|
|
|
|
|
|
|
|
|
|
return true;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// compilation
|
|
|
|
|
CBotTypResult cfclose (CBotVar* pThis, CBotVar* &pVar)
|
|
|
|
|
{
|
|
|
|
|
// it should not be any parameter
|
|
|
|
|
if ( pVar != NULL ) return CBotTypResult( CBotErrOverParam );
|
|
|
|
|
|
|
|
|
|
// function returns a result "void"
|
|
|
|
|
return CBotTypResult( 0 );
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// FILE :: writeln method
|
|
|
|
|
|
|
|
|
|
// execution
|
|
|
|
|
bool rfwrite (CBotVar* pThis, CBotVar* pVar, CBotVar* pResult, int& Exception)
|
|
|
|
|
{
|
|
|
|
|
// there must be a parameter
|
|
|
|
|
if ( pVar == NULL ) { Exception = CBotErrLowParam; return false; }
|
|
|
|
|
|
|
|
|
|
// must be a string
|
2012-08-11 18:59:35 +00:00
|
|
|
|
if ( pVar->GetType() != CBotTypString ) { Exception = CBotErrBadString; return false; }
|
2012-08-08 20:35:17 +00:00
|
|
|
|
|
2012-08-11 18:59:35 +00:00
|
|
|
|
CBotString param = pVar->GetValString();
|
2012-08-08 20:35:17 +00:00
|
|
|
|
|
|
|
|
|
//retrieves the element "handle"
|
2012-08-11 18:59:35 +00:00
|
|
|
|
pVar = pThis->GetItem("handle");
|
2012-08-08 20:35:17 +00:00
|
|
|
|
|
2012-08-11 18:59:35 +00:00
|
|
|
|
if ( pVar->GetInit() != IS_DEF) { Exception = CBotErrNotOpen; return false; }
|
2012-08-08 20:35:17 +00:00
|
|
|
|
|
2012-08-11 18:59:35 +00:00
|
|
|
|
FILE* pFile= (FILE*)pVar->GetValInt();
|
2013-05-26 15:47:54 +00:00
|
|
|
|
|
2012-08-08 20:35:17 +00:00
|
|
|
|
int res = fputs(param+CBotString("\n"), pFile);
|
|
|
|
|
|
|
|
|
|
// on error throws an exception
|
|
|
|
|
if ( res < 0 ) { Exception = CBotErrWrite; return false; }
|
|
|
|
|
|
|
|
|
|
return true;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// compilation
|
|
|
|
|
CBotTypResult cfwrite (CBotVar* pThis, CBotVar* &pVar)
|
|
|
|
|
{
|
|
|
|
|
// there must be a parameter
|
|
|
|
|
if ( pVar == NULL ) return CBotTypResult( CBotErrLowParam );
|
|
|
|
|
|
|
|
|
|
// must be a string
|
2012-08-11 18:59:35 +00:00
|
|
|
|
if ( pVar->GetType() != CBotTypString ) return CBotTypResult( CBotErrBadString );
|
2012-08-08 20:35:17 +00:00
|
|
|
|
|
|
|
|
|
// no other parameter
|
2012-08-11 18:59:35 +00:00
|
|
|
|
if ( pVar->GetNext() != NULL ) return CBotTypResult( CBotErrOverParam );
|
2012-08-08 20:35:17 +00:00
|
|
|
|
|
|
|
|
|
// function returns "void" result
|
|
|
|
|
return CBotTypResult( 0 );
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// FILE :: readln method
|
|
|
|
|
|
|
|
|
|
// execution
|
|
|
|
|
bool rfread (CBotVar* pThis, CBotVar* pVar, CBotVar* pResult, int& Exception)
|
|
|
|
|
{
|
|
|
|
|
// there shouldn't be any parameter
|
|
|
|
|
if ( pVar != NULL ) { Exception = CBotErrOverParam; return false; }
|
|
|
|
|
|
|
|
|
|
//retrieves the element "handle"
|
2012-08-11 18:59:35 +00:00
|
|
|
|
pVar = pThis->GetItem("handle");
|
2012-08-08 20:35:17 +00:00
|
|
|
|
|
2012-08-11 18:59:35 +00:00
|
|
|
|
if ( pVar->GetInit() != IS_DEF) { Exception = CBotErrNotOpen; return false; }
|
2012-08-08 20:35:17 +00:00
|
|
|
|
|
2012-08-11 18:59:35 +00:00
|
|
|
|
FILE* pFile= (FILE*)pVar->GetValInt();
|
2012-08-08 20:35:17 +00:00
|
|
|
|
|
|
|
|
|
char chaine[2000];
|
|
|
|
|
int i;
|
|
|
|
|
for ( i = 0 ; i < 2000 ; i++ ) chaine[i] = 0;
|
|
|
|
|
|
|
|
|
|
fgets(chaine, 1999, pFile);
|
|
|
|
|
|
|
|
|
|
for ( i = 0 ; i < 2000 ; i++ ) if (chaine[i] == '\n') chaine[i] = 0;
|
|
|
|
|
|
|
|
|
|
// on error throws an exception
|
|
|
|
|
if ( ferror(pFile) ) { Exception = CBotErrRead; return false; }
|
|
|
|
|
|
|
|
|
|
pResult->SetValString( chaine );
|
|
|
|
|
|
|
|
|
|
return true;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// compilation
|
|
|
|
|
CBotTypResult cfread (CBotVar* pThis, CBotVar* &pVar)
|
|
|
|
|
{
|
|
|
|
|
// there shouldn't be any parameter
|
|
|
|
|
if ( pVar != NULL ) return CBotTypResult( CBotErrOverParam );
|
|
|
|
|
|
|
|
|
|
// function return "string" result
|
|
|
|
|
return CBotTypResult( CBotTypString );
|
|
|
|
|
}
|
|
|
|
|
// FILE :: readln method
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
// execution
|
|
|
|
|
bool rfeof (CBotVar* pThis, CBotVar* pVar, CBotVar* pResult, int& Exception)
|
|
|
|
|
{
|
|
|
|
|
// there shouldn't be any parameter
|
|
|
|
|
if ( pVar != NULL ) { Exception = CBotErrOverParam; return false; }
|
|
|
|
|
|
|
|
|
|
// retrieves the element "handle"
|
2012-08-11 18:59:35 +00:00
|
|
|
|
pVar = pThis->GetItem("handle");
|
2012-08-08 20:35:17 +00:00
|
|
|
|
|
2012-08-11 18:59:35 +00:00
|
|
|
|
if ( pVar->GetInit() != IS_DEF) { Exception = CBotErrNotOpen; return false; }
|
2012-08-08 20:35:17 +00:00
|
|
|
|
|
2012-08-11 18:59:35 +00:00
|
|
|
|
FILE* pFile= (FILE*)pVar->GetValInt();
|
2012-08-08 20:35:17 +00:00
|
|
|
|
|
|
|
|
|
pResult->SetValInt( feof( pFile ) );
|
|
|
|
|
|
|
|
|
|
return true;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// compilation
|
|
|
|
|
CBotTypResult cfeof (CBotVar* pThis, CBotVar* &pVar)
|
|
|
|
|
{
|
|
|
|
|
// there shouldn't be any parameter
|
|
|
|
|
if ( pVar != NULL ) return CBotTypResult( CBotErrOverParam );
|
|
|
|
|
|
|
|
|
|
// function return boolean result
|
|
|
|
|
return CBotTypResult( CBotTypBoolean );
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
void InitClassFILE()
|
|
|
|
|
{
|
|
|
|
|
// creates a class for file management
|
|
|
|
|
// the usage is as follows:
|
|
|
|
|
// file canal( "NomFichier.txt" )
|
|
|
|
|
// canal.open( "r" ); // open reading
|
|
|
|
|
// s = canal.readln( ); // reads a line
|
|
|
|
|
// canal.close(); // closes the file
|
|
|
|
|
|
|
|
|
|
// create class FILE
|
|
|
|
|
m_pClassFILE = new CBotClass("file", NULL);
|
|
|
|
|
// add the component ".filename"
|
|
|
|
|
m_pClassFILE->AddItem("filename", CBotTypString);
|
|
|
|
|
// add the component ".handle"
|
|
|
|
|
m_pClassFILE->AddItem("handle", CBotTypInt, PR_PRIVATE);
|
|
|
|
|
|
|
|
|
|
// define a constructor and destructor
|
|
|
|
|
m_pClassFILE->AddFunction("file", rfconstruct, cfconstruct );
|
|
|
|
|
m_pClassFILE->AddFunction("~file", rfdestruct, NULL );
|
|
|
|
|
|
|
|
|
|
// defined associated methods
|
|
|
|
|
m_pClassFILE->AddFunction("open", rfopen, cfopen );
|
|
|
|
|
m_pClassFILE->AddFunction("close", rfclose, cfclose );
|
|
|
|
|
m_pClassFILE->AddFunction("writeln", rfwrite, cfwrite );
|
|
|
|
|
m_pClassFILE->AddFunction("readln", rfread, cfread );
|
|
|
|
|
m_pClassFILE->AddFunction("eof", rfeof, cfeof );
|
|
|
|
|
|
|
|
|
|
m_pFuncFile = new CBotProgram( );
|
|
|
|
|
CBotStringArray ListFonctions;
|
|
|
|
|
m_pFuncFile->Compile( "public file openfile(string name, string mode) {return new file(name, mode);}", ListFonctions);
|
|
|
|
|
m_pFuncFile->SetIdent(-2); // restoreState as a special identifier for this function
|
|
|
|
|
}
|
|
|
|
|
|