thirdparty/scummvm
2
0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

DIRECTOR: LINGO: Implement FileIO(mReadFile)

Browse source
This commit is contained in:
djsrv 2021-08-10 14:21:43 -04:00
parent 1ef5ef6d0b
commit e84cdbd704
1 changed files with 15 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

18
engines/director/lingo/xlibs/fileio.cpp
View file

@ -293,9 +293,21 @@ void FileIO::m_readToken(int nargs) {
}
void FileIO::m_readFile(int nargs) {
g_lingo->printSTUBWithArglist("FileIO::m_readFile", nargs);
g_lingo->dropStack(nargs);
g_lingo->push(Datum());
FileObject *me = static_cast<FileObject *>(g_lingo->_currentMe.u.obj);
if (!me->_inStream || me->_inStream->eos() || me->_inStream->err()) {
g_lingo->push(Datum(""));
return;
}
Common::String res;
char ch = me->_inStream->readByte();
while (!me->_inStream->eos() && !me->_inStream->err()) {
res += ch;
ch = me->_inStream->readByte();
}
g_lingo->push(res);
}
// Write