/* stream.c - IO stream implementation
 *		Copyright (c) 1995-1997 Stefan Jokisch
 *
 * This file is part of Frotz.
 *
 * Frotz 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 2 of the License, or
 * (at your option) any later version.
 *
 * Frotz 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, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
 */

#include "frotz.h"

/* glkify */
zchar console_read_input (int max, zchar *buf, zword timeout, bool continued)
{
    return os_read_line(max, buf, timeout, max, continued);
}
zchar console_read_key (zword timeout)
{
    return os_read_key(timeout, 0);
}

extern bool validate_click (void);

extern void replay_open (void);
extern void replay_close (void);
extern void memory_open (zword, zword, bool);
extern void memory_close (void);
extern void record_open (void);
extern void record_close (void);
extern void script_open (void);
extern void script_close (void);

extern void memory_word (const zchar *);
extern void memory_new_line (void);
extern void record_write_key (zchar);
extern void record_write_input (const zchar *, zchar);
extern void script_char (zchar);
extern void script_word (const zchar *);
extern void script_new_line (void);
extern void script_write_input (const zchar *, zchar);
extern void script_erase_input (const zchar *);
extern void script_mssg_on (void);
extern void script_mssg_off (void);
extern void screen_char (zchar);
extern void screen_word (const zchar *);
extern void screen_new_line (void);
extern void screen_write_input (const zchar *, zchar);
extern void screen_erase_input (const zchar *);
extern void screen_mssg_on (void);
extern void screen_mssg_off (void);

extern zchar replay_read_key (void);
extern zchar replay_read_input (zchar *);
extern zchar console_read_key (zword);
extern zchar console_read_input (int, zchar *, zword, bool);

extern int direct_call (zword);

/*
 * stream_mssg_on
 *
 * Start printing a "debugging" message.
 *
 */

void stream_mssg_on (void)
{

    flush_buffer ();

    if (ostream_screen)
		    screen_mssg_on ();
    if (ostream_script && enable_scripting)
		script_mssg_on ();

    message = TRUE;

}/* stream_mssg_on */

/*
 * stream_mssg_off
 *
 * Stop printing a "debugging" message.
 *
 */

void stream_mssg_off (void)
{

    flush_buffer ();

    if (ostream_screen)
		screen_mssg_off ();
    if (ostream_script && enable_scripting)
		script_mssg_off ();

    message = FALSE;

}/* stream_mssg_off */

/*
 * z_output_stream, open or close an output stream.
 *
 *		zargs[0] = stream to open (positive) or close (negative)
 *		zargs[1] = address to redirect output to (stream 3 only)
 *		zargs[2] = width of redirected output (stream 3 only, optional)
 *
 */

void z_output_stream (void)
{

    flush_buffer ();

    switch ((short) zargs[0]) {

    case  1: ostream_screen = TRUE;
		     break;
    case -1: ostream_screen = FALSE;
		     break;
    case  2: if (!ostream_script) script_open ();
		     break;
    case -2: if (ostream_script) script_close ();
		     break;
    case  3: memory_open (zargs[1], zargs[2], zargc >= 3);
		     break;
    case -3: memory_close ();
		     break;
    case  4: if (!ostream_record) record_open ();
		     break;
    case -4: if (ostream_record) record_close ();
		     break;

    }

}/* z_output_stream */

/*
 * stream_char
 *
 * Send a single character to the output stream.
 *
 */

void stream_char (zchar c)
{

    if (ostream_screen)
		screen_char (c);
    if (ostream_script && enable_scripting)
		script_char (c);

}/* stream_char */

/*
 * stream_word
 *
 * Send a string of characters to the output streams.
 *
 */

void stream_word (const zchar *s)
{

    if (ostream_memory && !message)

		memory_word (s);

    else {

		if (ostream_screen)
		    screen_word (s);
		if (ostream_script && enable_scripting)
		    script_word (s);

    }

}/* stream_word */

/*
 * stream_new_line
 *
 * Send a newline to the output streams.
 *
 */

void stream_new_line (void)
{

    if (ostream_memory && !message)

		memory_new_line ();

    else {

		if (ostream_screen)
		    screen_new_line ();
		if (ostream_script && enable_scripting)
		    script_new_line ();

    }

}/* stream_new_line */

/*
 * z_input_stream, select an input stream.
 *
 *		zargs[0] = input stream to be selected
 *
 */

void z_input_stream (void)
{

    flush_buffer ();

    if (zargs[0] == 0 && istream_replay)
		replay_close ();
    if (zargs[0] == 1 && !istream_replay)
		replay_open ();

}/* z_input_stream */

/*
 * stream_read_key
 *
 * Read a single keystroke from the current input stream.
 *
 */

zchar stream_read_key ( zword timeout, zword routine )
{
    zchar key = ZC_BAD;

    flush_buffer ();

    /* Read key from current input stream */

continue_input:

    do {

		if (istream_replay)
		    key = replay_read_key ();
		else
		    key = console_read_key (timeout);

    } while (key == ZC_BAD);

    /* Verify mouse clicks */

/* glkify
    if (key == ZC_SINGLE_CLICK || key == ZC_DOUBLE_CLICK)
		if (!validate_click ())
		    goto continue_input;
*/

    /* Copy key to the command file */

    if (ostream_record && !istream_replay)
		record_write_key (key);

    /* Handle timeouts */

    if (key == ZC_TIME_OUT)
		if (direct_call (routine) == 0)
		    goto continue_input;

    /* Return key */

    return key;

}/* stream_read_key */

/*
 * stream_read_input
 *
 * Read a line of input from the current input stream.
 *
 */

zchar stream_read_input ( int max, zchar *buf,
						  zword timeout, zword routine,
						  bool no_scripting )
{
    zchar key = ZC_BAD;

    flush_buffer ();

    /* Remove initial input from the transscript file or from the screen */

    if (ostream_script && enable_scripting && !no_scripting)
		script_erase_input (buf);
//glkify    if (istream_replay)
//glkify		screen_erase_input (buf);

    /* Read input line from current input stream */

continue_input:

    do {

		if (istream_replay)
		    key = replay_read_input (buf);
		else
		    key = console_read_input (max, buf, timeout, key != ZC_BAD);

    } while (key == ZC_BAD);

    /* Verify mouse clicks */

/* glkify
    if (key == ZC_SINGLE_CLICK || key == ZC_DOUBLE_CLICK)
		if (!validate_click ())
		    goto continue_input;
*/

    /* Copy input line to the command file */

    if (ostream_record && !istream_replay)
		record_write_input (buf, key);

    /* Handle timeouts */

    if (key == ZC_TIME_OUT)
		if (direct_call (routine) == 0)
		    goto continue_input;

    /* Copy input line to transscript file or to the screen */

    if (ostream_script && enable_scripting && !no_scripting)
		script_write_input (buf, key);
//glkify    if (istream_replay)
//glkify		screen_write_input (buf, key);

    /* Return terminating key */

    return key;

}/* stream_read_input */
