Initial commit
This commit is contained in:
243
engines/glk/alan3/scan.cpp
Normal file
243
engines/glk/alan3/scan.cpp
Normal file
@@ -0,0 +1,243 @@
|
||||
/* 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/alan3/scan.h"
|
||||
#include "glk/alan3/lists.h"
|
||||
#include "glk/alan3/dictionary.h"
|
||||
#include "glk/alan3/debug.h"
|
||||
#include "glk/alan3/exe.h"
|
||||
#include "glk/alan3/glkio.h"
|
||||
#include "glk/alan3/inter.h"
|
||||
#include "glk/alan3/literal.h"
|
||||
#include "glk/alan3/memory.h"
|
||||
#include "glk/alan3/msg.h"
|
||||
#include "glk/alan3/options.h"
|
||||
#include "glk/alan3/output.h"
|
||||
#include "glk/alan3/params.h"
|
||||
#include "glk/alan3/syserr.h"
|
||||
#include "glk/alan3/word.h"
|
||||
|
||||
namespace Glk {
|
||||
namespace Alan3 {
|
||||
|
||||
/* PUBLIC DATA */
|
||||
bool continued = FALSE;
|
||||
|
||||
|
||||
/* PRIVATE DATA */
|
||||
static char buf[1000]; /* The input buffer */
|
||||
static char isobuf[1000]; /* The input buffer in ISO */
|
||||
static bool eol = TRUE; /* Looking at End of line? Yes, initially */
|
||||
static char *token = nullptr;
|
||||
|
||||
|
||||
/*======================================================================*/
|
||||
void forceNewPlayerInput() {
|
||||
setEndOfArray(&playerWords[currentWordIndex]);
|
||||
}
|
||||
|
||||
|
||||
/*----------------------------------------------------------------------*/
|
||||
static void unknown(CONTEXT, char tok[]) {
|
||||
char *str = scumm_strdup(tok);
|
||||
Parameter *messageParameters = newParameterArray();
|
||||
|
||||
addParameterForString(messageParameters, str);
|
||||
printMessageWithParameters(M_UNKNOWN_WORD, messageParameters);
|
||||
deallocate(messageParameters);
|
||||
free(str);
|
||||
CALL0(abortPlayerCommand)
|
||||
}
|
||||
|
||||
|
||||
/*----------------------------------------------------------------------*/
|
||||
static int number(char tok[]) {
|
||||
int i;
|
||||
|
||||
(void)sscanf(tok, "%d", &i);
|
||||
return i;
|
||||
}
|
||||
|
||||
|
||||
/*----------------------------------------------------------------------*/
|
||||
static int lookup(CONTEXT, char wrd[]) {
|
||||
int i;
|
||||
|
||||
for (i = 0; !isEndOfArray(&dictionary[i]); i++) {
|
||||
if (compareStrings(wrd, (char *) pointerTo(dictionary[i].string)) == 0) {
|
||||
return (i);
|
||||
}
|
||||
}
|
||||
R0CALL1(unknown, wrd)
|
||||
return (int)EOD;
|
||||
}
|
||||
|
||||
|
||||
/*----------------------------------------------------------------------*/
|
||||
static bool isWordCharacter(int ch) {
|
||||
return isISOLetter(ch) || Common::isDigit(ch) || ch == '\'' || ch == '-' || ch == '_';
|
||||
}
|
||||
|
||||
/*----------------------------------------------------------------------*/
|
||||
static char *gettoken(char *txtBuf) {
|
||||
static char *marker;
|
||||
static char oldch;
|
||||
|
||||
if (txtBuf == nullptr)
|
||||
*marker = oldch;
|
||||
else
|
||||
marker = txtBuf;
|
||||
while (*marker != '\0' && isSpace(*marker) && *marker != '\n')
|
||||
marker++;
|
||||
txtBuf = marker;
|
||||
if (isISOLetter(*marker))
|
||||
while (*marker && isWordCharacter(*marker))
|
||||
marker++;
|
||||
else if (Common::isDigit((int)*marker))
|
||||
while (Common::isDigit((int)*marker))
|
||||
marker++;
|
||||
else if (*marker == '\"') {
|
||||
marker++;
|
||||
while (*marker != '\"')
|
||||
marker++;
|
||||
marker++;
|
||||
} else if (*marker == '\0' || *marker == '\n' || *marker == ';')
|
||||
return nullptr;
|
||||
else
|
||||
marker++;
|
||||
oldch = *marker;
|
||||
*marker = '\0';
|
||||
return txtBuf;
|
||||
}
|
||||
|
||||
|
||||
/*----------------------------------------------------------------------*/
|
||||
// TODO replace dependency to exe.c with injection of quitGame() and undo()
|
||||
static void getLine(CONTEXT) {
|
||||
para();
|
||||
do {
|
||||
CALL0(g_io->statusLine)
|
||||
|
||||
if (header->prompt) {
|
||||
anyOutput = FALSE;
|
||||
CALL1(interpret, header->prompt)
|
||||
|
||||
if (anyOutput)
|
||||
printAndLog(" ");
|
||||
needSpace = FALSE;
|
||||
} else
|
||||
printAndLog("> ");
|
||||
|
||||
bool flag;
|
||||
FUNC2(g_io->readLine, flag, buf, 255);
|
||||
if (!flag) {
|
||||
newline();
|
||||
CALL0(quitGame)
|
||||
}
|
||||
|
||||
getPageSize();
|
||||
anyOutput = FALSE;
|
||||
if (transcriptOption || logOption) {
|
||||
// TODO: Refactor out the logging to log.c?
|
||||
g_io->glk_put_string_stream(logFile, buf);
|
||||
g_io->glk_put_char_stream(logFile, '\n');
|
||||
}
|
||||
/* If the player input an empty command he forfeited his command */
|
||||
if (strlen(buf) == 0) {
|
||||
clearWordList(playerWords);
|
||||
LONG_JUMP_LABEL("forfeit")
|
||||
}
|
||||
|
||||
Common::strcpy_s(isobuf, buf);
|
||||
token = gettoken(isobuf);
|
||||
if (token != nullptr) {
|
||||
if (strcmp("debug", token) == 0 && header->debug) {
|
||||
debugOption = TRUE;
|
||||
CALL3(debug, FALSE, 0, 0)
|
||||
|
||||
token = nullptr;
|
||||
} else if (strcmp("undo", token) == 0) {
|
||||
token = gettoken(nullptr);
|
||||
if (token != nullptr) /* More tokens? */
|
||||
CALL1(error, M_WHAT)
|
||||
CALL0(undo)
|
||||
}
|
||||
}
|
||||
} while (token == nullptr);
|
||||
eol = FALSE;
|
||||
}
|
||||
|
||||
|
||||
|
||||
/*======================================================================*/
|
||||
void scan(CONTEXT) {
|
||||
int i;
|
||||
int w;
|
||||
|
||||
if (continued) {
|
||||
/* Player used '.' to separate commands. Read next */
|
||||
para();
|
||||
token = gettoken(nullptr); /* Or did he just finish the command with a full stop? */
|
||||
if (token == nullptr) {
|
||||
CALL0(getLine)
|
||||
}
|
||||
continued = FALSE;
|
||||
} else {
|
||||
CALL0(getLine)
|
||||
}
|
||||
|
||||
freeLiterals();
|
||||
playerWords[0].code = 0; // TODO This means what?
|
||||
i = 0;
|
||||
do {
|
||||
ensureSpaceForPlayerWords(i + 1);
|
||||
playerWords[i].start = token;
|
||||
playerWords[i].end = strchr(token, '\0');
|
||||
if (isISOLetter(token[0])) {
|
||||
FUNC1(lookup, w, token);
|
||||
if (!isNoise(w))
|
||||
playerWords[i++].code = w;
|
||||
} else if (Common::isDigit((int)token[0]) || token[0] == '\"') {
|
||||
if (Common::isDigit((int)token[0])) {
|
||||
createIntegerLiteral(number(token));
|
||||
} else {
|
||||
char *unquotedString = scumm_strdup(token);
|
||||
unquotedString[strlen(token) - 1] = '\0';
|
||||
createStringLiteral(&unquotedString[1]);
|
||||
free(unquotedString);
|
||||
}
|
||||
playerWords[i++].code = dictionarySize + litCount; /* Word outside dictionary = literal */
|
||||
} else if (token[0] == ',') {
|
||||
playerWords[i++].code = conjWord;
|
||||
} else if (token[0] == '.') {
|
||||
continued = TRUE;
|
||||
setEndOfArray(&playerWords[i]);
|
||||
eol = TRUE;
|
||||
break;
|
||||
} else
|
||||
CALL1(unknown, token)
|
||||
setEndOfArray(&playerWords[i]);
|
||||
eol = (token = gettoken(nullptr)) == nullptr;
|
||||
} while (!eol);
|
||||
}
|
||||
|
||||
} // End of namespace Alan3
|
||||
} // End of namespace Glk
|
||||
Reference in New Issue
Block a user