apps/plugins/frotz/redirect.c

   1 /* redirect.c - Output redirection to Z-machine memory
   2  *      Copyright (c) 1995-1997 Stefan Jokisch
   3  *
   4  * This file is part of Frotz.
   5  *
   6  * Frotz is free software; you can redistribute it and/or modify
   7  * it under the terms of the GNU General Public License as published by
   8  * the Free Software Foundation; either version 2 of the License, or
   9  * (at your option) any later version.
  10  *
  11  * Frotz is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14  * GNU General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU General Public License
  17  * along with this program; if not, write to the Free Software
  18  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
  19  */
  20
  21 #include "frotz.h"
  22
  23 #define MAX_NESTING 16
  24
  25 extern zword get_max_width (zword);
  26
  27 static int depth = -1;
  28
  29 static struct {
  30     zword xsize;
  31     zword table;
  32     zword width;
  33     zword total;
  34 } redirect[MAX_NESTING];
  35
  36 /*
  37  * memory_open
  38  *
  39  * Begin output redirection to the memory of the Z-machine.
  40  *
  41  */
  42
  43 void memory_open (zword table, zword xsize, bool buffering)
  44 {
  45
  46     if (++depth < MAX_NESTING) {
  47
  48         if (!buffering)
  49             xsize = 0xffff;
  50         if (buffering && (short) xsize <= 0)
  51             xsize = get_max_width ((zword) (- (short) xsize));
  52
  53         storew (table, 0);
  54
  55         redirect[depth].table = table;
  56         redirect[depth].width = 0;
  57         redirect[depth].total = 0;
  58         redirect[depth].xsize = xsize;
  59
  60         ostream_memory = TRUE;
  61
  62    } else runtime_error (ERR_STR3_NESTING);
  63
  64 }/* memory_open */
  65
  66 /*
  67  * memory_new_line
  68  *
  69  * Redirect a newline to the memory of the Z-machine.
  70  *
  71  */
  72
  73 void memory_new_line (void)
  74 {
  75     zword size;
  76     zword addr;
  77
  78     redirect[depth].total += redirect[depth].width;
  79     redirect[depth].width = 0;
  80
  81     addr = redirect[depth].table;
  82
  83     LOW_WORD (addr, size)
  84     addr += 2;
  85
  86     if (redirect[depth].xsize != 0xffff) {
  87
  88         redirect[depth].table = addr + size;
  89         size = 0;
  90
  91     } else storeb ((zword) (addr + (size++)), 13);
  92
  93     storew (redirect[depth].table, size);
  94
  95 }/* memory_new_line */
  96
  97 /*
  98  * memory_word
  99  *
 100  * Redirect a string of characters to the memory of the Z-machine.
 101  *
 102  */
 103
 104 void memory_word (const zchar *s)
 105 {
 106     zword size;
 107     zword addr;
 108     zchar c;
 109
 110     if (h_version == V6) {
 111
 112         int width = os_string_width (s);
 113
 114         if (redirect[depth].xsize != 0xffff)
 115
 116             if (redirect[depth].width + width > redirect[depth].xsize) {
 117
 118                 if (*s == ' ' || *s == ZC_INDENT || *s == ZC_GAP)
 119                     width = os_string_width (++s);
 120
 121                 memory_new_line ();
 122
 123             }
 124
 125         redirect[depth].width += width;
 126
 127     }
 128
 129     addr = redirect[depth].table;
 130
 131     LOW_WORD (addr, size)
 132     addr += 2;
 133
 134     while ((c = *s++) != 0)
 135         storeb ((zword) (addr + (size++)), translate_to_zscii (c));
 136
 137     storew (redirect[depth].table, size);
 138
 139 }/* memory_word */
 140
 141 /*
 142  * memory_close
 143  *
 144  * End of output redirection.
 145  *
 146  */
 147
 148 void memory_close (void)
 149 {
 150
 151     if (depth >= 0) {
 152
 153         if (redirect[depth].xsize != 0xffff)
 154             memory_new_line ();
 155
 156         if (h_version == V6) {
 157
 158             h_line_width = (redirect[depth].xsize != 0xffff) ?
 159                 redirect[depth].total : redirect[depth].width;
 160
 161             SET_WORD (H_LINE_WIDTH, h_line_width)
 162
 163         }
 164
 165         if (depth == 0)
 166             ostream_memory = FALSE;
 167
 168         depth--;
 169
 170     }
 171
 172 }/* memory_close */