scummvm-cursorfix/engines/glk/alan3/scan.cpp

/* 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