1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354
|
/*
* ux_text.c
*
* Unix interface, text functions
*
*/
#define __UNIX_PORT_FILE
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#ifdef USE_NCURSES_H
#include <ncurses.h>
#else
#include <curses.h>
#endif
#include "frotz.h"
#include "ux_frotz.h"
#ifdef COLOR_SUPPORT
int current_color = 0;
#endif
static char latin1_to_ascii[] =
" ! c L >o<Y | S '' C a << not- R _ "
"^0 +/-^2 ^3 ' my P . , ^1 o >> 1/41/23/4? "
"A A A A Ae A AE C E E E E I I I I "
"Th N O O O O Oe * O U U U Ue Y Th ss "
"a a a a ae a ae c e e e e i i i i "
"th n o o o o oe : o u u u ue y th y ";
/*
* os_font_data
*
* Return true if the given font is available. The font can be
*
* TEXT_FONT
* PICTURE_FONT
* GRAPHICS_FONT
* FIXED_WIDTH_FONT
*
* The font size should be stored in "height" and "width". If
* the given font is unavailable then these values must _not_
* be changed.
*
*/
int os_font_data (int font, int *height, int *width)
{
if (font == TEXT_FONT) {
*height = 1; *width = 1; return 1; /* Truth in advertising */
}
return 0;
}/* os_font_data */
#ifdef COLOR_SUPPORT
/*
* unix_convert
*
* Converts frotz's (and Infocom's) color values to ncurses color values.
*
*/
static int unix_convert(int color)
{
switch(color) {
case BLACK_COLOUR: return COLOR_BLACK;
case RED_COLOUR: return COLOR_RED;
case GREEN_COLOUR: return COLOR_GREEN;
case YELLOW_COLOUR: return COLOR_YELLOW;
case BLUE_COLOUR: return COLOR_BLUE;
case MAGENTA_COLOUR: return COLOR_MAGENTA;
case CYAN_COLOUR: return COLOR_CYAN;
case WHITE_COLOUR: return COLOR_WHITE;
}
return 0;
}
#endif
/*
* os_set_colour
*
* Set the foreground and background colours which can be:
*
* DEFAULT_COLOUR
* BLACK_COLOUR
* RED_COLOUR
* GREEN_COLOUR
* YELLOW_COLOUR
* BLUE_COLOUR
* MAGENTA_COLOUR
* CYAN_COLOUR
* WHITE_COLOUR
*
* MS-DOS 320 columns MCGA mode only:
*
* GREY_COLOUR
*
* Amiga only:
*
* LIGHTGREY_COLOUR
* MEDIUMGREY_COLOUR
* DARKGREY_COLOUR
*
* There may be more colours in the range from 16 to 255; see the
* remarks on os_peek_colour.
*
*/
#ifdef COLOR_SUPPORT
static int colorspace[10][10];
static int count = 0;
#endif
void os_set_colour (int new_foreground, int new_background)
{
#ifdef COLOR_SUPPORT
int saved_style;
saved_style = current_text_style;
if (new_foreground == 1) new_foreground = h_default_foreground;
if (new_background == 1) new_background = h_default_background;
if (!colorspace[new_foreground][new_background]) {
init_pair(++count, unix_convert(new_foreground), unix_convert(new_background));
colorspace[new_foreground][new_background] = count;
}
current_color = COLOR_PAIR(colorspace[new_foreground][new_background]);
os_set_text_style(saved_style);
#endif
}/* os_set_colour */
/*
* os_set_text_style
*
* Set the current text style. Following flags can be set:
*
* REVERSE_STYLE
* BOLDFACE_STYLE
* EMPHASIS_STYLE (aka underline aka italics)
* FIXED_WIDTH_STYLE
*
*/
void os_set_text_style (int new_style)
{
int temp = 0;
current_text_style = new_style;
if (new_style & REVERSE_STYLE) temp |= A_REVERSE;
if (new_style & BOLDFACE_STYLE) temp |= A_BOLD;
if (new_style & EMPHASIS_STYLE) temp |= A_UNDERLINE;
#ifdef COLOR_SUPPORT
attrset(temp | current_color);
#else
attrset(temp);
#endif
}/* os_set_text_style */
/*
* os_set_font
*
* Set the font for text output. The interpreter takes care not to
* choose fonts which aren't supported by the interface.
*
*/
void os_set_font (int new_font)
{
/* Not implemented */
}/* os_set_font */
/*
* os_display_char
*
* Display a character of the current font using the current colours and
* text style. The cursor moves to the next position. Printable codes are
* all ASCII values from 32 to 126, ISO Latin-1 characters from 160 to
* 255, ZC_GAP (gap between two sentences) and ZC_INDENT (paragraph
* indentation). The screen should not be scrolled after printing to the
* bottom right corner.
*
*/
void os_display_char (zchar c)
{
if (c >= ZC_LATIN1_MIN && c <= ZC_LATIN1_MAX) {
if (unix_plain_ascii) {
char *ptr = latin1_to_ascii + 3 * (c - ZC_LATIN1_MIN);
char c1 = *ptr++;
char c2 = *ptr++;
char c3 = *ptr++;
addch(c1);
if (c2 != ' ')
addch(c2);
if (c3 != ' ')
addch(c3);
} else
addch(c);
return;
}
if (c >= 32 && c <= 126) {
addch(c);
return;
}
if (c == ZC_INDENT) {
addch(' '); addch(' '); addch(' ');
return;
}
if (c == ZC_GAP) {
addch(' '); addch(' ');
return;
}
}/* os_display_char */
/*
* os_display_string
*
* Pass a string of characters to os_display_char.
*
*/
void os_display_string (const zchar *s)
{
zchar c;
while ((c = (unsigned char) *s++) != 0)
if (c == ZC_NEW_FONT || c == ZC_NEW_STYLE) {
int arg = (unsigned char) *s++;
if (c == ZC_NEW_FONT)
os_set_font (arg);
if (c == ZC_NEW_STYLE)
os_set_text_style (arg);
} else os_display_char (c);
}/* os_display_string */
/*
* os_char_width
*
* Return the width of the character in screen units.
*
*/
int os_char_width (zchar c)
{
if (c >= ZC_LATIN1_MIN && c <= ZC_LATIN1_MAX && unix_plain_ascii) {
int width = 0;
const char *ptr = latin1_to_ascii + 3 * (c - ZC_LATIN1_MIN);
char c1 = *ptr++;
char c2 = *ptr++;
char c3 = *ptr++;
width++;
if (c2 != ' ')
width++;
if (c3 != ' ')
width++;
return width;
}
return 1;
}/* os_char_width*/
/*
* os_string_width
*
* Calculate the length of a word in screen units. Apart from letters,
* the word may contain special codes:
*
* NEW_STYLE - next character is a new text style
* NEW_FONT - next character is a new font
*
*/
int os_string_width (const zchar *s)
{
int width = 0;
zchar c;
while ((c = *s++) != 0)
if (c == ZC_NEW_STYLE || c == ZC_NEW_FONT) {
s++;
/* No effect */
} else width += os_char_width(c);
return width;
}/* os_string_width */
/*
* os_set_cursor
*
* Place the text cursor at the given coordinates. Top left is (1,1).
*
*/
void os_set_cursor (int y, int x)
{
/* Curses thinks the top left is (0,0) */
move(--y, --x);
}/* os_set_cursor */
/*
* os_more_prompt
*
* Display a MORE prompt, wait for a keypress and remove the MORE
* prompt from the screen.
*
*/
void os_more_prompt (void)
{
int saved_style, saved_x, saved_y;
/* Save some useful information */
saved_style = current_text_style;
getyx(stdscr, saved_y, saved_x);
os_set_text_style(0);
addstr("[MORE]");
os_read_key(0, TRUE);
move(saved_y, saved_x);
addstr(" ");
move(saved_y, saved_x);
os_set_text_style(saved_style);
}/* os_more_prompt */
|