cmake_minimum_required(VERSION 2.6)

FILE(GLOB SRC *.c *.cpp)

ADD_EXECUTABLE(spectrum_frotz_backend ${SRC})

target_link_libraries(spectrum_frotz_backend transport pthread)

 * Copy the contents of the text buffer to the output streams.

 *

 */

void flush_buffer (void)

{

    /* Make sure we stop when flush_buffer is called from flush_buffer.

       Note that this is difficult to avoid as we might print a newline

       during flush_buffer, which might cause a newline interrupt, that

       might execute any arbitrary opcode, which might flush the buffer. */

 * High level output function.

 *

 */

void print_char (zchar c)

{

    if (message || ostream_memory || enable_buffering) {

	if (!flag) {

	    /* Characters 0 and ZC_RETURN are special cases */

 * 	no zargs used

 *

 */

void z_restart (void)

{

    flush_buffer ();

    os_restart_game (RESTART_BEGIN);

    seed_random (0);

#ifndef SEEK_SET

#define SEEK_SET 0

#define SEEK_CUR 1

#define SEEK_END 2

#endif

char script_name[MAX_FILE_NAME + 1] = DEFAULT_SCRIPT_NAME;

char command_name[MAX_FILE_NAME + 1] = DEFAULT_COMMAND_NAME;

#ifdef __MSDOS__

extern char latin1_to_ibm[];

 * name in V5+.

 *

 */

void script_open (void)

{

    char new_name[MAX_FILE_NAME + 1];

    h_flags &= ~SCRIPTING_FLAG;

    if (h_version >= V5 || !script_valid) {

 * record_code

 *

 * Helper function for record_char.

 *

 */

{

    if (force_encoding || c == '[' || c < 0x20 || c > 0x7e) {

	int i;

 * frotz.h

 *

 * Global declarations and definitions

 *

 */

   But since no os_* function uses it, it's safe to let the frotz core see

   this definition, but have the unix port see the curses version. */

/* #include "../config.h" */

#ifndef __UNIX_PORT_FILE

#include <signal.h>

#ifndef TRUE

#define TRUE 1

#endif

#ifndef FALSE

extern zword *fp;

extern zword frame_count;

extern zword zargs[8];

extern int zargc;

extern int cwin;

extern int mwin;

extern int mouse_x;

extern int mouse_y;

extern char *option_zcode_path;	/* dg */

extern long reserve_mem;

void 	stream_mssg_on (void);

void 	stream_mssg_off (void);

void	ret (zword);

void 	store (zword);

void	storeb (zword, zbyte);

void	storew (zword, zword);

/*** Interface functions ***/

void 	os_start_sample (int, int, int, zword);

void 	os_stop_sample (int);

int  	os_string_width (const zchar *);

void	os_init_setup (void);

int	os_speech_output(const zchar *);

#include "setup.h"

#include "frotz.h"

extern int restore_undo (void);

extern int read_number (void);

extern void replay_open (void);

extern void replay_close (void);

extern void record_open (void);

extern void record_close (void);

 * hot_key_debugging

 *

 * ...allows user to toggle cheating options on/off.

 *

 */

{

    print_string ("Debugging options\n");

    f_setup.attribute_assignment = read_yes_or_no ("Watch attribute assignment");

    f_setup.attribute_testing = read_yes_or_no ("Watch attribute testing");

 * hot_key_help

 *

 * ...displays a list of all hot keys.

 *

 */

    print_string ("Help\n");

    print_string (

	"\n"

	"Alt-D  debugging options\n"

 * hot_key_playback

 *

 * ...allows user to turn playback on.

 *

 */

{

    print_string ("Playback on\n");

    if (!istream_replay)

	replay_open ();

 * hot_key_recording

 *

 * ...allows user to turn recording on/off.

 *

 */

{

    if (istream_replay) {

	print_string ("Playback off\n");

	replay_close ();

    } else if (ostream_record) {

 * hot_key_seed

 *

 * ...allows user to seed the random number seed.

 *

 */

{

    print_string ("Seed random numbers\n");

    print_string ("Enter seed value (or return to randomize): ");

    seed_random (read_number ());

 * hot_key_undo

 *

 * ...allows user to undo the previous turn.

 *

 */

{

    print_string ("Undo one turn\n");

    if (restore_undo ()) {

 * hot_key_restart

 *

 * ...allows user to start a new game.

 *

 */

{

    print_string ("New game\n");

    if (read_yes_or_no ("Do you wish to restart")) {

 * hot_key_quit

 *

 * ...allows user to exit the game.

 *

 */

{

    print_string ("Exit game\n");

    if (read_yes_or_no ("Do you wish to quit")) {

 *

 * Perform the action associated with a so-called hot key. Return

 * true to abort the current input action.

 *

 */

{

    if (cwin == 0) {

	aborting = FALSE;

	print_string ("\nHot key -- ");

	switch (key) {

 */

#include "frotz.h"

extern int save_undo (void);

/*

 * is_terminator

 *

 * Check if the given key is an input terminator.

 *

 */

{

    if (key == ZC_TIME_OUT)

	return TRUE;

    if (key == ZC_RETURN)

	return TRUE;

 * read_yes_or_no

 *

 * Ask the user a question; return true if the answer is yes.

 *

 */

{

    zchar key;

    print_string (s);

    print_string ("? (y/n) >");

 * first byte plus all the bits in the second byte for long branches.

 * Uniquely, an offset of 0 means return false, and an offset of 1 is

 * return true.

 *

 */

{

    long pc;

    zword offset;

    zbyte specifier;

    zbyte off1;

    zbyte off2;

#define write_chnk(fp,id,len) \

    (write_long (fp, (id))      && write_long (fp, (len)))

#define write_run(fp,run) \

    (write_byte (fp, 0)         && write_byte (fp, (run)))

/* Read one word from file; return TRUE if OK. */

{

    int a, b;

    if ((a = get_c (f)) == EOF) return FALSE;

    if ((b = get_c (f)) == EOF) return FALSE;

    *result = ((zword) a << 8) | (zword) b;

    return TRUE;

}

/* Read one long from file; return TRUE if OK. */

{

    int a, b, c, d;

    if ((a = get_c (f)) == EOF) return FALSE;

    if ((b = get_c (f)) == EOF) return FALSE;

    if ((c = get_c (f)) == EOF) return FALSE;

 * memory_open

 *

 * Begin output redirection to the memory of the Z-machine.

 *

 */

{

    if (++depth < MAX_NESTING) {

	if (!buffering)

	    xsize = 0xffff;

    {   UNKNOWN,  0,   0,   0 }

};

static int font_height = 1;

static int font_width = 1;

static int input_window = 0;

static struct {

    zword y_pos;

    zword x_pos;

 * set_more_prompts

 *

 * Turn more prompts on/off.

 *

 */

{

    if (flag && !more_prompts)

	cwp->line_count = 0;

    more_prompts = flag;

 * console_read_input

 *

 * Read an input line from the keyboard and return the terminating key.

 *

 */

{

    zchar key;

    int i;

    /* Make sure there is some space for input */

 * Return false if the last mouse click occured outside the current

 * mouse window; otherwise write the mouse arrow coordinates to the

 * memory of the header extension table and return true.

 *

 */

{

    if (mwin >= 0) {

	if (mouse_y < wp[mwin].y_pos || mouse_y >= wp[mwin].y_pos + wp[mwin].y_size)

	    return FALSE;

    zword pic = zargs[0];

    zword table = zargs[1];

    int height, width;

    int i;

    for (i = 0; mapper[i].story_id != UNKNOWN; i++)

	if (story_id == mapper[i].story_id) {

	    if (pic == mapper[i].pic) {

{

    zword global0;

    zword global1;

    zword global2;

    zword addr;

    /* One V5 game (Wishbringer Solid Gold) contains this opcode by

       accident, so just return if the version number does not fit */

    if (h_version >= V4)

	return;