118 lines
3.0 KiB
C++
118 lines
3.0 KiB
C++
/* ScummVM - Graphic Adventure Engine
|
|
*
|
|
* ScummVM is the legal property of its developers, whose names
|
|
* are too numerous to list here. Please refer to the COPYRIGHT
|
|
* file distributed with this source distribution.
|
|
*
|
|
* 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/>.
|
|
*
|
|
*/
|
|
|
|
#include "glk/tads/tads2/lib.h"
|
|
#include "glk/tads/tads2/run.h"
|
|
#include "glk/tads/tads2/vocabulary.h"
|
|
#include "glk/tads/os_frob_tads.h"
|
|
|
|
namespace Glk {
|
|
namespace TADS {
|
|
namespace TADS2 {
|
|
|
|
|
|
/*
|
|
* Globals for the script reader
|
|
*/
|
|
osfildef *scrfp = (osfildef *)nullptr; /* script file */
|
|
int scrquiet = 0; /* flag: true ==> script is NOT shown as read */
|
|
|
|
int qasopn(char *scrnam, int quiet) {
|
|
if (scrfp) return 1; /* already reading from script */
|
|
if ((scrfp = osfoprt(scrnam, OSFTCMD)) == nullptr) return 1;
|
|
scrquiet = quiet;
|
|
return 0;
|
|
}
|
|
|
|
void qasclose() {
|
|
/* only close the script file if there's one open */
|
|
if (scrfp)
|
|
{
|
|
osfcls(scrfp);
|
|
scrfp = nullptr; /* no more script file */
|
|
scrquiet = 0;
|
|
}
|
|
}
|
|
|
|
char *qasgets(char *buf, int bufl) {
|
|
/* shouldn't be here at all if there's no script file */
|
|
if (scrfp == nullptr)
|
|
return nullptr;
|
|
|
|
/* update status line */
|
|
runstat();
|
|
|
|
/* keep going until we find something we like */
|
|
for (;;)
|
|
{
|
|
int c;
|
|
|
|
/*
|
|
* Read the next character of input. If it's not a newline,
|
|
* there's more on the same line, so read the rest and see what
|
|
* to do.
|
|
*/
|
|
c = osfgetc(scrfp);
|
|
if (c != '\n' && c != '\r')
|
|
{
|
|
/* read the rest of the line */
|
|
if (!osfgets(buf, bufl, scrfp))
|
|
{
|
|
/* end of file: close the script and return eof */
|
|
qasclose();
|
|
return nullptr;
|
|
}
|
|
|
|
/* if the line started with '>', strip '\n' and return line */
|
|
if (c == '>')
|
|
{
|
|
int l;
|
|
|
|
/* remove the trailing newline */
|
|
if ((l = strlen(buf)) > 0
|
|
&& (buf[l-1] == '\n' || buf[l-1] == '\r'))
|
|
buf[l-1] = 0;
|
|
|
|
/*
|
|
* if we're not in quiet mode, echo the command to the
|
|
* display
|
|
*/
|
|
if (!scrquiet)
|
|
outformat(buf);
|
|
|
|
/* flush the current line without adding any blank lines */
|
|
outflushn(1);
|
|
|
|
/* return the command */
|
|
return buf;
|
|
}
|
|
} else if (c == EOF) {
|
|
/* end of file - close the script and return eof */
|
|
qasclose();
|
|
return nullptr;
|
|
}
|
|
}
|
|
}
|
|
|
|
} // End of namespace TADS2
|
|
} // End of namespace TADS
|
|
} // End of namespace Glk
|