* name in V5+.
*
*/
-
-void script_open (void)
+void script_open(void)
{
- static bool script_valid = FALSE;
-
- char *new_name;
-
- h_flags &= ~SCRIPTING_FLAG;
-
- if (h_version >= V5 || !script_valid) {
-
- new_name = os_read_file_name(f_setup.script_name, FILE_SCRIPT);
- if (new_name == NULL)
- goto done;
-
- free(f_setup.script_name);
- f_setup.script_name = strdup(new_name);
- }
-
- /* Opening in "at" mode doesn't work for script_erase_input... */
-
- if ((sfp = fopen (f_setup.script_name, "r+t")) != NULL ||
- (sfp = fopen (f_setup.script_name, "w+t")) != NULL) {
+ static bool script_valid = FALSE;
- fseek (sfp, 0, SEEK_END);
+ char *new_name;
- h_flags |= SCRIPTING_FLAG;
+ h_flags &= ~SCRIPTING_FLAG;
- script_valid = TRUE;
- ostream_script = TRUE;
-
- script_width = 0;
+ if (h_version >= V5 || !script_valid) {
+ new_name = os_read_file_name(f_setup.script_name, FILE_SCRIPT);
+ if (new_name == NULL)
+ goto done;
+ free(f_setup.script_name);
+ f_setup.script_name = strdup(new_name);
+ }
- } else print_string ("Cannot open file\n");
+ /* Opening in "at" mode doesn't work for script_erase_input... */
+ if ((sfp = fopen (f_setup.script_name, "r+t")) != NULL ||
+ (sfp = fopen(f_setup.script_name, "w+t")) != NULL) {
+ fseek (sfp, 0, SEEK_END);
+ h_flags |= SCRIPTING_FLAG;
+ script_valid = TRUE;
+ ostream_script = TRUE;
+ script_width = 0;
+ } else
+ print_string ("Cannot open file\n");
done:
+ SET_WORD(H_FLAGS, h_flags);
+} /* script_open */
- SET_WORD (H_FLAGS, h_flags);
-
-}/* script_open */
/*
* script_close
* Stop transcription.
*
*/
-
-void script_close (void)
+void script_close(void)
{
+ h_flags &= ~SCRIPTING_FLAG;
+ SET_WORD(H_FLAGS, h_flags);
+ fclose (sfp);
+ ostream_script = FALSE;
+} /* script_close */
- h_flags &= ~SCRIPTING_FLAG;
- SET_WORD (H_FLAGS, h_flags);
-
- fclose (sfp); ostream_script = FALSE;
-
-}/* script_close */
/*
* script_new_line
* Write a newline to the transcript file.
*
*/
-
-void script_new_line (void)
+void script_new_line(void)
{
+ if (fputc ('\n', sfp) == EOF)
+ script_close ();
+ script_width = 0;
+} /* script_new_line */
- if (fputc ('\n', sfp) == EOF)
- script_close ();
-
- script_width = 0;
-
-}/* script_new_line */
/*
* script_char
* Write a single character to the transcript file.
*
*/
-
-void script_char (zchar c)
+void script_char(zchar c)
{
+ if (c == ZC_INDENT && script_width != 0)
+ c = ' ';
+
+ if (c == ZC_INDENT) {
+ script_char(' ');
+ script_char (' ');
+ script_char (' ');
+ return;
+ }
- if (c == ZC_INDENT && script_width != 0)
- c = ' ';
-
- if (c == ZC_INDENT)
- { script_char (' '); script_char (' '); script_char (' '); return; }
- if (c == ZC_GAP)
- { script_char (' '); script_char (' '); return; }
+ if (c == ZC_GAP) {
+ script_char (' ');
+ script_char (' ');
+ return;
+ }
#ifdef __MSDOS__
- if (c > 0xff)
- c = '?';
- if (c >= ZC_LATIN1_MIN)
- c = latin1_to_ibm[c - ZC_LATIN1_MIN];
-
- fputc (c, sfp);
- script_width++;
-
+ if (c > 0xff)
+ c = '?';
+ if (c >= ZC_LATIN1_MIN)
+ c = latin1_to_ibm[c - ZC_LATIN1_MIN];
+ fputc(c, sfp);
+ script_width++;
#else
-
/* Encode as UTF-8 */
-
- if (c > 0x7ff) {
-
- fputc (0xe0 | ((c >> 12) & 0xf), sfp);
- fputc (0x80 | ((c >> 6) & 0x3f), sfp);
- fputc (0x80 | (c & 0x3f), sfp);
-
- }
- else if (c > 0x7f) {
-
- fputc (0xc0 | ((c >> 6) & 0x1f), sfp);
- fputc (0x80 | (c & 0x3f), sfp);
-
- }
- else
-
- fputc (c, sfp);
-
- script_width++;
-
+ if (c > 0x7ff) {
+ fputc(0xe0 | ((c >> 12) & 0xf), sfp);
+ fputc(0x80 | ((c >> 6) & 0x3f), sfp);
+ fputc(0x80 | (c & 0x3f), sfp);
+ } else if (c > 0x7f) {
+ fputc(0xc0 | ((c >> 6) & 0x1f), sfp);
+ fputc(0x80 | (c & 0x3f), sfp);
+ } else
+ fputc(c, sfp);
+
+ script_width++;
#endif
-}/* script_char */
+} /* script_char */
+
/*
* script_word
* Write a string to the transcript file.
*
*/
-
-void script_word (const zchar *s)
+void script_word(const zchar *s)
{
- int width;
- int i;
-
- if (*s == ZC_INDENT && script_width != 0)
- script_char (*s++);
-
- for (i = 0, width = 0; s[i] != 0; i++)
-
- if (s[i] == ZC_NEW_STYLE || s[i] == ZC_NEW_FONT)
- i++;
- else if (s[i] == ZC_GAP)
- width += 3;
- else if (s[i] == ZC_INDENT)
- width += 2;
- else
- width += 1;
-
- if (f_setup.script_cols != 0 && script_width + width > f_setup.script_cols) {
-
- if (*s == ' ' || *s == ZC_INDENT || *s == ZC_GAP)
- s++;
-
- script_new_line ();
-
- }
+ int width;
+ int i;
- for (i = 0; s[i] != 0; i++)
+ if (*s == ZC_INDENT && script_width != 0)
+ script_char (*s++);
+
+ for (i = 0, width = 0; s[i] != 0; i++) {
+ if (s[i] == ZC_NEW_STYLE || s[i] == ZC_NEW_FONT)
+ i++;
+ else if (s[i] == ZC_GAP)
+ width += 3;
+ else if (s[i] == ZC_INDENT)
+ width += 2;
+ else
+ width += 1;
+ }
- if (s[i] == ZC_NEW_FONT || s[i] == ZC_NEW_STYLE)
- i++;
- else
- script_char (s[i]);
+ if (f_setup.script_cols != 0 && script_width + width > f_setup.script_cols) {
+ if (*s == ' ' || *s == ZC_INDENT || *s == ZC_GAP)
+ s++;
+ script_new_line ();
+ }
+ for (i = 0; s[i] != 0; i++) {
+ if (s[i] == ZC_NEW_FONT || s[i] == ZC_NEW_STYLE)
+ i++;
+ else
+ script_char (s[i]);
+ }
+} /* script_word */
-}/* script_word */
/*
* script_write_input
* Send an input line to the transcript file.
*
*/
-
-void script_write_input (const zchar *buf, zchar key)
+void script_write_input(const zchar *buf, zchar key)
{
- int width;
- int i;
+ int width;
+ int i;
- for (i = 0, width = 0; buf[i] != 0; i++)
- width++;
+ for (i = 0, width = 0; buf[i] != 0; i++)
+ width++;
- if (f_setup.script_cols != 0 && script_width + width > f_setup.script_cols)
- script_new_line ();
+ if (f_setup.script_cols != 0 && script_width + width > f_setup.script_cols)
+ script_new_line();
- for (i = 0; buf[i] != 0; i++)
- script_char (buf[i]);
+ for (i = 0; buf[i] != 0; i++)
+ script_char(buf[i]);
- if (key == ZC_RETURN)
- script_new_line ();
+ if (key == ZC_RETURN)
+ script_new_line();
+} /* script_write_input */
-}/* script_write_input */
/*
* script_erase_input
* Remove an input line from the transcript file.
*
*/
-
-void script_erase_input (const zchar *buf)
+void script_erase_input(const zchar *buf)
{
- int width;
- int i;
+ int width;
+ int i;
- for (i = 0, width = 0; buf[i] != 0; i++)
- width++;
+ for (i = 0, width = 0; buf[i] != 0; i++)
+ width++;
- fseek (sfp, -width, SEEK_CUR); script_width -= width;
+ fseek(sfp, -width, SEEK_CUR); script_width -= width;
+} /* script_erase_input */
-}/* script_erase_input */
/*
* script_mssg_on
* Start sending a "debugging" message to the transcript file.
*
*/
-
-void script_mssg_on (void)
+void script_mssg_on(void)
{
+ if (script_width != 0)
+ script_new_line();
- if (script_width != 0)
- script_new_line ();
-
- script_char (ZC_INDENT);
+ script_char(ZC_INDENT);
+} /* script_mssg_on */
-}/* script_mssg_on */
/*
* script_mssg_off
* Stop writing a "debugging" message.
*
*/
-
-void script_mssg_off (void)
+void script_mssg_off(void)
{
+ script_new_line();
- script_new_line ();
+} /* script_mssg_off */
-}/* script_mssg_off */
/*
* record_open
* Open a file to record the player's input.
*
*/
-
-void record_open (void)
+void record_open(void)
{
- char *new_name;
-
- new_name = os_read_file_name(f_setup.command_name, FILE_RECORD);
- if (new_name != NULL) {
-
- free(f_setup.command_name);
- f_setup.command_name = strdup(new_name);
+ char *new_name;
- if ((rfp = fopen (new_name, "wt")) != NULL)
- ostream_record = TRUE;
- else
- print_string ("Cannot open file\n");
+ new_name = os_read_file_name(f_setup.command_name, FILE_RECORD);
+ if (new_name != NULL) {
+ free(f_setup.command_name);
+ f_setup.command_name = strdup(new_name);
- }
+ if ((rfp = fopen(new_name, "wt")) != NULL)
+ ostream_record = TRUE;
+ else
+ print_string("Cannot open file\n");
+ }
+} /* record_open */
-}/* record_open */
/*
* record_close
* Stop recording the player's input.
*
*/
-
void record_close (void)
{
-
fclose (rfp); ostream_record = FALSE;
}/* record_close */
+
/*
* record_code
*
* Helper function for record_char.
*
*/
-
-static void record_code (int c, bool force_encoding)
+static void record_code(int c, bool force_encoding)
{
+ if (force_encoding || c == '[' || c < 0x20 || c > 0x7e) {
+ int i;
- if (force_encoding || c == '[' || c < 0x20 || c > 0x7e) {
-
- int i;
-
- fputc ('[', rfp);
-
- for (i = 10000; i != 0; i /= 10)
- if (c >= i || i == 1)
- fputc ('0' + (c / i) % 10, rfp);
+ fputc('[', rfp);
- fputc (']', rfp);
+ for (i = 10000; i != 0; i /= 10) {
+ if (c >= i || i == 1)
+ fputc('0' + (c / i) % 10, rfp);
+ }
+ fputc(']', rfp);
+ } else
+ fputc(c, rfp);
- } else fputc (c, rfp);
+} /* record_code */
-}/* record_code */
/*
* record_char
* Write a character to the command file.
*
*/
-
-static void record_char (zchar c)
+static void record_char(zchar c)
{
+ if (c != ZC_RETURN) {
+ if (c < ZC_HKEY_MIN || c > ZC_HKEY_MAX) {
+ record_code (translate_to_zscii (c), FALSE);
+ if (c == ZC_SINGLE_CLICK || c == ZC_DOUBLE_CLICK) {
+ record_code (mouse_x, TRUE);
+ record_code (mouse_y, TRUE);
+ }
+ } else
+ record_code (1000 + c - ZC_HKEY_MIN, TRUE);
+ }
+} /* record_char */
- if (c != ZC_RETURN) {
- if (c < ZC_HKEY_MIN || c > ZC_HKEY_MAX) {
- record_code (translate_to_zscii (c), FALSE);
- if (c == ZC_SINGLE_CLICK || c == ZC_DOUBLE_CLICK) {
- record_code (mouse_x, TRUE);
- record_code (mouse_y, TRUE);
- }
- } else record_code (1000 + c - ZC_HKEY_MIN, TRUE);
- }
-
-}/* record_char */
/*
* record_write_key
* Copy a keystroke to the command file.
*
*/
-
-void record_write_key (zchar key)
+void record_write_key(zchar key)
{
+ record_char(key);
+ if (fputc('\n', rfp) == EOF)
+ record_close();
+} /* record_write_key */
- record_char (key);
-
- if (fputc ('\n', rfp) == EOF)
- record_close ();
-
-}/* record_write_key */
/*
* record_write_input
* Copy a line of input to a command file.
*
*/
-
-void record_write_input (const zchar *buf, zchar key)
+void record_write_input(const zchar *buf, zchar key)
{
- zchar c;
-
- while ((c = *buf++) != 0)
- record_char (c);
+ zchar c;
- record_char (key);
+ while ((c = *buf++) != 0)
+ record_char(c);
+ record_char(key);
+ if (fputc('\n', rfp) == EOF)
+ record_close();
+} /* record_write_input */
- if (fputc ('\n', rfp) == EOF)
- record_close ();
-
-}/* record_write_input */
/*
* replay_open
* Open a file of commands for playback.
*
*/
-
-void replay_open (void)
+void replay_open(void)
{
- char *new_name;
-
- new_name = os_read_file_name(f_setup.command_name, FILE_PLAYBACK);
- if (new_name != NULL) {
-
- free(f_setup.command_name);
- f_setup.command_name = strdup(new_name);
-
- if ((pfp = fopen (new_name, "rt")) != NULL) {
-
- set_more_prompts (read_yes_or_no ("Do you want MORE prompts"));
-
- istream_replay = TRUE;
-
- } else print_string ("Cannot open file\n");
-
- }
+ char *new_name;
+
+ new_name = os_read_file_name(f_setup.command_name, FILE_PLAYBACK);
+ if (new_name != NULL) {
+ free(f_setup.command_name);
+ f_setup.command_name = strdup(new_name);
+
+ if ((pfp = fopen(new_name, "rt")) != NULL) {
+ set_more_prompts(read_yes_or_no("Do you want MORE prompts"));
+ istream_replay = TRUE;
+ } else
+ print_string("Cannot open file\n");
+ }
+} /* replay_open */
-}/* replay_open */
/*
* replay_close
* Stop playback of commands.
*
*/
-
-void replay_close (void)
+void replay_close(void)
{
+ set_more_prompts(TRUE);
+ fclose (pfp);
+ istream_replay = FALSE;
+} /* replay_close */
- set_more_prompts (TRUE);
-
- fclose (pfp); istream_replay = FALSE;
-
-}/* replay_close */
/*
* replay_code
* Helper function for replay_key and replay_line.
*
*/
-
-static int replay_code (void)
+static int replay_code(void)
{
- int c;
-
- if ((c = fgetc (pfp)) == '[') {
+ int c;
- int c2;
+ if ((c = fgetc(pfp)) == '[') {
+ int c2;
- c = 0;
+ c = 0;
+ while ((c2 = fgetc(pfp)) != EOF && c2 >= '0' && c2 <= '9')
+ c = 10 * c + c2 - '0';
- while ((c2 = fgetc (pfp)) != EOF && c2 >= '0' && c2 <= '9')
- c = 10 * c + c2 - '0';
-
- return (c2 == ']') ? c : EOF;
-
- } else return c;
+ return (c2 == ']') ? c : EOF;
+ } else
+ return c;
+} /* replay_code */
-}/* replay_code */
/*
* replay_char
* Read a character from the command file.
*
*/
-
static zchar replay_char (void)
{
- int c;
-
- if ((c = replay_code ()) != EOF) {
-
- if (c != '\n') {
-
- if (c < 1000) {
-
- c = translate_from_zscii (c);
-
- if (c == ZC_SINGLE_CLICK || c == ZC_DOUBLE_CLICK) {
- mouse_x = replay_code ();
- mouse_y = replay_code ();
+ int c;
+
+ if ((c = replay_code()) != EOF) {
+ if (c != '\n') {
+ if (c < 1000) {
+ c = translate_from_zscii (c);
+ if (c == ZC_SINGLE_CLICK || c == ZC_DOUBLE_CLICK) {
+ mouse_x = replay_code();
+ mouse_y = replay_code();
+ }
+ return c;
+
+ } else
+ return ZC_HKEY_MIN + c - 1000;
}
+ ungetc('\n', pfp);
+ return ZC_RETURN;
+ } else
+ return ZC_BAD;
+} /* replay_char */
- return c;
-
- } else return ZC_HKEY_MIN + c - 1000;
- }
-
- ungetc ('\n', pfp);
-
- return ZC_RETURN;
-
- } else return ZC_BAD;
-
-}/* replay_char */
/*
* replay_read_key
* Read a keystroke from a command file.
*
*/
-
zchar replay_read_key (void)
{
- zchar key;
-
- key = replay_char ();
-
- if (fgetc (pfp) != '\n') {
+ zchar key;
- replay_close ();
- return ZC_BAD;
+ key = replay_char();
- } else return key;
+ if (fgetc(pfp) != '\n') {
+ replay_close();
+ return ZC_BAD;
+ } else
+ return key;
+} /* replay_read_key */
-}/* replay_read_key */
/*
* replay_read_input
* Read a line of input from a command file.
*
*/
-
-zchar replay_read_input (zchar *buf)
+zchar replay_read_input(zchar *buf)
{
- zchar c;
-
- for (;;) {
-
- c = replay_char ();
+ zchar c;
- if (c == ZC_BAD || is_terminator (c))
- break;
-
- *buf++ = c;
-
- }
-
- *buf = 0;
-
- if (fgetc (pfp) != '\n') {
-
- replay_close ();
- return ZC_BAD;
+ for (;;) {
+ c = replay_char();
+ if (c == ZC_BAD || is_terminator(c))
+ break;
+ *buf++ = c;
+ }
+ *buf = 0;
- } else return c;
+ if (fgetc(pfp) != '\n') {
+ replay_close();
+ return ZC_BAD;
+ } else
+ return c;
-}/* replay_read_input */
+} /* replay_read_input */
Scope-eye.net Git Repository / liskon_frotz.git / commitdiff