*/

#include "common.h"

#include <stdio.h>

#include <string.h>

#include <stdlib.h>

#include <signal.h>

#include "os.h"

#include "trd.h"

#include "t3std.h"

#include "vmmain.h"

#include "vmvsn.h"

#include "vmmaincn.h"

#include "vmhostsi.h"

extern "C"

{

#include "osgen.h"

}

#include "frobtadsapp.h"

#include "frobappctx.h"

FrobTadsApplication* globalApp;

/* Wee need a signal handler to handle window resizes when running

 * inside a terminal.

 */

RETSIGTYPE winResizeHandler( int )

{

	// Re-initialize the screen.

	globalApp->resizeEvent();

	// Change the corresponding global variables that TADS uses to

	// tell the size.

	G_oss_screen_width = globalApp->width();

	G_oss_screen_height = globalApp->height();

	// Tell TADS that the size just changed.

	osssb_on_resize_screen();

	// Flush the screen just in case.

	globalApp->flush();

	// Restore the timeout.

	// FIXME: This resets the timeout to its initial

	// value.  We want to actually set it to the

	// remaining timeout.

	//globalApp->fGameWindow->setTimeout(0);

	// Not sure why, but on some systems the handler has to be

	// installed over and over again after the signal is handled.

#ifdef HAVE_SIGWINCH

	signal(SIGWINCH, winResizeHandler);

#endif

}

FrobTadsApplication::FrobTadsApplication( const FrobOptions& opts )

: options(opts), fRemainingTimeout(0), fColorsEnabled(false)

{

	// Initialize the global pointer to us.

	globalApp = this;

	// Install our window-resize signal handler.

#ifdef HAVE_SIGWINCH

	signal(SIGWINCH, winResizeHandler);

#endif

}

int

FrobTadsApplication::fRunTads2( char* filename )

{

	// Create the Tads 2 application container context (appctx).  We

	// make it static for no other reason than automatic null

	// initialization of the fields (C++ guarantees that); unused

	// fields *must* be 0, or else the VM would crash.

	static appctxdef appctx;

	// Set the file I/O safety level callback.

	appctx.get_io_safety_level = getIoSafetyLevel;

	// trdmain() requires argc/argv style arguments.  We create some

	// to make it happy.

	char argv0[] = "frob";

	char* argv[2] = {argv0, filename};

	// Run the Tads 2 VM.

	char savExt[] = "sav";

	int vmRet = trdmain(2, argv, &appctx, savExt);

	return vmRet;

}

int

FrobTadsApplication::fRunTads3( char* filename )

{

	// Create the Tads 3 host and client services interfaces.

	CVmMainClientConsole clientifc;

	CVmHostIfc* hostifc = new CVmHostIfcStdio("");

	// Set the file I/O safety level.

	hostifc->set_io_safety(this->options.safetyLevel);

	// Run the Tads 3 VM.

	int vmRet = vm_run_image(&clientifc, filename, hostifc, 0, 0, 0, false, 0, 0, false, false, 0, 0, 0, 0);

	delete hostifc;

	return vmRet;

}

int

FrobTadsApplication::runTads( const char* filename, int vm )

{

	// We might strip the path from the filename later, in case we

	// change the current directory.

	size_t filenameLen = strlen(filename);

	char* finalFilenamePtr;

	char* finalFilename = new char[filenameLen + 1];

	strcpy(finalFilename, filename);

	finalFilenamePtr = finalFilename;

	// We'll try setting the current directory to the game's

	// directory (if the user didn't tell us not to).

	if (this->options.changeDir) {

		char* gameDirBuf = new char[filenameLen + 1];

		gameDirBuf[0] = '\0'; // Paranoia.

		os_get_path_name(gameDirBuf, filenameLen, filename);

		// Try changing the current directory.

		if (this->changeDirectory(gameDirBuf)) {

			// Success.  Since we changed the current

			// directory, we must adapt the filename by

			// stripping it from its path.  For this

			// purpose, we'll just store the position of the

			// filename's first character.

			finalFilenamePtr = os_get_root_name(finalFilename);

		}

		// Done with the directory-name buffer.

		delete[] gameDirBuf;

	}

	// Initialize the screen.

	this->init();

	// The osgen layer uses these global variables to determine the

	// size of the screen; set them to the width and height of our

	// game window.

	G_oss_screen_width = this->width();

	G_oss_screen_height = this->height();

	// Initialize the osgen scrollback buffer.

	osssbini(this->options.scrollBufSize);

	// A kludge to circumvent a curses color problem; display one

	// character in reverse video then one in normal colors.  This

	// avoids the problem where the first block of text is shown in

	// wrong colors.

	int tmpColor = ossgetcolor(OSGEN_COLOR_STATUSLINE, OSGEN_COLOR_STATUSBG, 0, 0);

	ossdsp(0, 0, tmpColor, " ");

	globalApp->flush();

	tmpColor = ossgetcolor(OSGEN_COLOR_TEXT, OSGEN_COLOR_TEXTBG, 0, 0);

	ossdsp(0, 0, tmpColor, " ");

	globalApp->flush();

	// Run the VM.

	int vmRet = vm == 0 ? this->fRunTads2(finalFilenamePtr) : this->fRunTads3(finalFilenamePtr);

	// Done with the filename.

	delete[] finalFilename;

	// Pause.

	os_expause();

	// Delete the scrollback buffer.

	osssbdel();

	// Return the VM's exit code.

	return vmRet;

}

/* We implement changeDirectory() as a wrapper around chdir() or

 * SetCurrentDirectory(); whichever is available.  The former is in

 * <unistd.h>, the latter in <windows.h>.  If the system lacks both,

 * we'll always return false to indicate failure.

 */

#ifdef HAVE_CHDIR

#include <unistd.h>

#endif

#ifdef HAVE_SETCURRENTDIRECTORY

#include <windows.h>

#endif

bool

FrobTadsApplication::changeDirectory( const char* dir )

{

#ifdef HAVE_CHDIR

	if (chdir(dir) == 0) return true;

	return false;

#else

#ifdef HAVE_SETCURRENTDIRECTORY

	return SetCurrentDirectory(dir);

#else

	return false;

#endif

#endif