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
|
/* Copyright (c) 1998, 1999, 2001 John E. Davis
* This file is part of the S-Lang library.
*
* You may distribute under the terms of either the GNU General Public
* License or the Perl Artistic License.
*/
#include <stdio.h>
#ifndef SLANG_VERSION
# include <slang.h>
#endif
/* This is a temporary hack until lynx is fixed to not include this file. */
#ifndef LYCURSES_H
typedef struct
{
unsigned int _begy, _begx, _maxy, _maxx;
unsigned int _curx, _cury;
unsigned int nrows, ncols;
unsigned int scroll_min, scroll_max;
SLsmg_Char_Type **lines;
SLsmg_Char_Type color;
int is_subwin;
SLtt_Char_Type attr;
int delay_off;
int scroll_ok;
int modified;
int has_box;
int use_keypad;
}
SLcurses_Window_Type;
extern int SLcurses_wclrtobot (SLcurses_Window_Type *);
extern int SLcurses_wscrl (SLcurses_Window_Type *, int);
extern int SLcurses_wrefresh (SLcurses_Window_Type *);
extern int SLcurses_delwin (SLcurses_Window_Type *);
extern int SLcurses_wprintw (SLcurses_Window_Type *, char *, ...);
extern SLcurses_Window_Type *SLcurses_newwin (unsigned int, unsigned int,
unsigned int, unsigned int);
extern SLcurses_Window_Type *SLcurses_subwin (SLcurses_Window_Type *,
unsigned int, unsigned int,
unsigned int, unsigned int);
extern int SLcurses_wnoutrefresh (SLcurses_Window_Type *);
extern int SLcurses_wclrtoeol (SLcurses_Window_Type *);
extern int SLcurses_wmove (SLcurses_Window_Type *, unsigned int, unsigned int);
extern int SLcurses_waddch (SLcurses_Window_Type *, SLtt_Char_Type);
extern int SLcurses_waddnstr (SLcurses_Window_Type *, char *, int);
#define waddnstr SLcurses_waddnstr
#define waddch SLcurses_waddch
#define waddstr(w,s) waddnstr((w),(s),-1)
#define addstr(x) waddstr(stdscr, (x))
#define addnstr(s,n) waddnstr(stdscr,(s),(n))
#define addch(ch) waddch(stdscr,(ch))
#define mvwaddnstr(w,y,x,s,n) \
(-1 == wmove((w),(y),(x)) ? -1 : waddnstr((w),(s),(n)))
#define mvwaddstr(w,y,x,s) \
(-1 == wmove((w),(y),(x)) ? -1 : waddnstr((w),(s), -1))
#define mvaddnstr(y,x,s,n) mvwaddnstr(stdscr,(y),(x),(s),(n))
#define mvaddstr(y,x,s) mvwaddstr(stdscr,(y),(x),(s))
#define mvwaddch(w,y,x,c) \
((-1 == wmove((w),(y),(x))) ? -1 : waddch((w),(c)))
#define mvaddch(y,x,c) mvwaddch(stdscr,(y),(x),(c))
extern int SLcurses_wclear (SLcurses_Window_Type *w);
extern int SLcurses_printw (char *, ...);
#if 0
/* Why are these functions part of curses??? */
extern int SLcurses_mvwscanw (SLcurses_Window_Type *, unsigned int, unsigned int,
char *, ...);
extern int SLcurses_wscanw (SLcurses_Window_Type *, char *, ...);
extern int SLcurses_scanw (char *, ...);
#define mvwscanw SLcurses_mvwscanw
#define wscanw SLcurses_wscanw
#define scanw SLcurses_scanw
#endif
extern SLcurses_Window_Type *SLcurses_Stdscr;
#define WINDOW SLcurses_Window_Type
#define stdscr SLcurses_Stdscr
#define subwin SLcurses_subwin
#define wclrtobot SLcurses_wclrtobot
#define wscrl SLcurses_wscrl
#define scrl(n) wscrl(stdscr,(n))
#define scroll(w) wscrl((w),1)
#define wrefresh SLcurses_wrefresh
#define delwin SLcurses_delwin
#define wmove SLcurses_wmove
#define newwin SLcurses_newwin
#define wnoutrefresh SLcurses_wnoutrefresh
#define werase(w) SLcurses_wmove((w),0,0); SLcurses_wclrtobot(w)
#define wclear(w) SLcurses_wmove((w),0,0); SLcurses_wclrtobot(w)
#define wprintw SLcurses_wprintw
#define mvwprintw SLcurses_mvwprintw
#define winch(w) \
((((w)->_cury < (w)->nrows) && ((w)->_curx < (w)->ncols)) \
? ((w)->lines[(w)->_cury][(w)->_curx]) : 0)
#define inch() winch(stdscr)
#define mvwinch(w,x,y) \
((-1 != wmove((w),(x),(y))) ? winch(w) : (-1))
#define doupdate SLsmg_refresh
#define mvwin(w,a,b) ((w)->_begy = (a), (w)->_begx = (b))
extern int SLcurses_mvprintw (int, int, char *, ...);
extern int SLcurses_mvwprintw (SLcurses_Window_Type *, int, int, char *, ...);
extern int SLcurses_has_colors(void);
extern int SLcurses_nil (void);
extern int SLcurses_wgetch (SLcurses_Window_Type *);
extern int SLcurses_getch (void);
extern int SLcurses_wattrset (SLcurses_Window_Type *, SLtt_Char_Type);
extern int SLcurses_wattron (SLcurses_Window_Type *, SLtt_Char_Type);
extern int SLcurses_wattroff (SLcurses_Window_Type *, SLtt_Char_Type);
#define attrset(x) SLcurses_wattrset(stdscr, (x))
#define attron(x) SLcurses_wattron(stdscr, (x))
#define attroff(x) SLcurses_wattroff(stdscr, (x))
#define wattrset(w, x) SLcurses_wattrset((w), (x))
#define wattron(w, x) SLcurses_wattron((w), (x))
#define wattroff(w, x) SLcurses_wattroff((w), (x))
#define wattr_get(w) ((w)->color << 8)
#define attr_get() wattr_get(stdscr)
#define COLOR_PAIR(x) ((x) << 8)
extern int SLcurses_start_color (void);
#define start_color SLcurses_start_color
#define ERR 0xFFFF
#define wgetch SLcurses_wgetch
#define getch SLcurses_getch
extern int SLcurses_nodelay (SLcurses_Window_Type *, int);
extern SLcurses_Window_Type *SLcurses_initscr (void);
#define initscr SLcurses_initscr
extern int SLcurses_cbreak (void);
extern int SLcurses_raw (void);
#define cbreak SLcurses_cbreak
#define crmode SLcurses_cbreak
#define raw SLcurses_raw
#define noraw SLang_reset_tty
#define nocbreak SLang_reset_tty
#define mvprintw SLcurses_mvprintw
#define has_colors SLcurses_has_colors
#define nodelay SLcurses_nodelay
#define ungetch SLang_ungetkey
#define COLS SLtt_Screen_Cols
#define LINES SLtt_Screen_Rows
#define move(x,y) SLcurses_wmove(stdscr, (x), (y))
#define wclrtoeol SLcurses_wclrtoeol
#define clrtoeol() SLcurses_wclrtoeol(stdscr)
#define clrtobot() SLcurses_wclrtobot(stdscr)
#define printw SLcurses_printw
#define mvprintw SLcurses_mvprintw
#define wstandout(w) SLcurses_wattrset((w),A_STANDOUT)
#define wstandend(w) SLcurses_wattrset((w),A_NORMAL)
#define standout() SLcurses_wattrset(stdscr,A_STANDOUT)
#define standend() SLcurses_wattrset(stdscr,A_NORMAL)
#define refresh() SLcurses_wrefresh(stdscr)
#define clear() SLcurses_wclear(stdscr)
#define erase() werase(stdscr)
#define touchline SLsmg_touch_lines
#define resetterm SLang_reset_tty
extern int SLcurses_endwin (void);
#define endwin SLcurses_endwin
extern int SLcurses_Is_Endwin;
#define isendwin() SLcurses_Is_Endwin
#define keypad(w,x) ((w)->use_keypad = (x))
#define KEY_MIN SL_KEY_UP
#define KEY_DOWN SL_KEY_DOWN
#define KEY_UP SL_KEY_UP
#define KEY_LEFT SL_KEY_LEFT
#define KEY_RIGHT SL_KEY_RIGHT
#define KEY_A1 SL_KEY_A1
#define KEY_B1 SL_KEY_B1
#define KEY_C1 SL_KEY_C1
#define KEY_A2 SL_KEY_A2
#define KEY_B2 SL_KEY_B2
#define KEY_C2 SL_KEY_C2
#define KEY_A3 SL_KEY_A3
#define KEY_B3 SL_KEY_B3
#define KEY_C3 SL_KEY_C3
#define KEY_REDO SL_KEY_REDO
#define KEY_UNDO SL_KEY_UNDO
#define KEY_BACKSPACE SL_KEY_BACKSPACE
#define KEY_PPAGE SL_KEY_PPAGE
#define KEY_NPAGE SL_KEY_NPAGE
#define KEY_HOME SL_KEY_HOME
#define KEY_END SL_KEY_END
#define KEY_F0 SL_KEY_F0
#define KEY_F SL_KEY_F
#define KEY_ENTER SL_KEY_ENTER
#define KEY_MAX 0xFFFF
/* Ugly Hacks that may not work */
#define flushinp SLcurses_nil
#define winsertln(w) \
((w)->scroll_min=(w)->_cury, \
(w)->scroll_max=(w)->nrows, \
wscrl((w), -1))
extern SLtt_Char_Type SLcurses_Acs_Map [128];
#define acs_map SLcurses_Acs_Map
#define ACS_ULCORNER (acs_map[SLSMG_ULCORN_CHAR])
#define ACS_URCORNER (acs_map[SLSMG_URCORN_CHAR])
#define ACS_LRCORNER (acs_map[SLSMG_LRCORN_CHAR])
#define ACS_LLCORNER (acs_map[SLSMG_LLCORN_CHAR])
#define ACS_TTEE (acs_map[SLSMG_UTEE_CHAR])
#define ACS_LTEE (acs_map[SLSMG_LTEE_CHAR])
#define ACS_RTEE (acs_map[SLSMG_RTEE_CHAR])
#define ACS_BTEE (acs_map[SLSMG_DTEE_CHAR])
#define ACS_PLUS (acs_map[SLSMG_PLUS_CHAR])
#define ACS_VLINE (acs_map[SLSMG_VLINE_CHAR])
#define ACS_HLINE (acs_map[SLSMG_HLINE_CHAR])
#define ACS_S1 '-'
#define ACS_S9 '-'
#define ACS_DIAMOND '&'
#define ACS_CKBOARD (acs_map[SLSMG_CKBRD_CHAR])
#define ACS_DEGREE 'o'
#define ACS_PLMINUS '+'
#define ACS_BULLET '*'
#define ACS_LARROW '<'
#define ACS_RARROW '>'
#define ACS_DARROW 'v'
#define ACS_UARROW '^'
#define ACS_BOARD '#'
#define ACS_LANTERN '#'
#define ACS_BLOCK '#'
#if 1
#define hline(x,y) SLcurses_nil ()
#define vline(x,y) SLcurses_nil ()
#endif
#define A_CHARTEXT 0x00FF
#define A_NORMAL 0
#define A_BOLD 0x1000
#define A_REVERSE 0x2000
#define A_STANDOUT A_REVERSE
#define A_UNDERLINE 0x4000
#define A_BLINK 0
#define A_COLOR 0x0700
#define A_ALTCHARSET 0x8000
#define A_DIM 0
#define A_PROTECT 0
#define A_INVIS 0
#define COLOR_BLACK SLSMG_COLOR_BLACK
#define COLOR_RED SLSMG_COLOR_RED
#define COLOR_GREEN SLSMG_COLOR_GREEN
#define COLOR_YELLOW SLSMG_COLOR_BROWN
#define COLOR_BLUE SLSMG_COLOR_BLUE
#define COLOR_MAGENTA SLSMG_COLOR_MAGENTA
#define COLOR_CYAN SLSMG_COLOR_CYAN
#define COLOR_WHITE SLSMG_COLOR_LGRAY
extern int SLcurses_Num_Colors;
#define COLORS SLcurses_Num_Colors
#define COLOR_PAIRS (SLcurses_Num_Colors*SLcurses_Num_Colors)
#define init_pair(_x,_f,_b) \
SLtt_set_color_object((_x), ((_f) == (_b) ? 0x0700 : ((_f) | ((_b) << 8)) << 8))
#define scrollok(a,b) ((a)->scroll_ok = (b))
#define getyx(a,y,x) (y=(a)->_cury, x=(a)->_curx)
#define getmaxyx(a,y,x) (y=(a)->nrows, x=(a)->ncols)
#define napms(x) usleep(1000 * (x))
typedef SLtt_Char_Type chtype;
#define beep SLtt_beep
#define curs_set(x) SLtt_set_cursor_visibility(x)
#define touchwin(x) SLsmg_touch_lines((x)->_begy, (x)->nrows)
#define flash SLtt_beep
#define wsetscrreg(w,a,b) ((w)->scroll_min = (a), (w)->scroll_max = (b))
#define wtimeout(a,b) (a)->delay_off = ((b >= 0) ? (b) / 100 : -1)
#define timeout(a) wtimeout(stdscr, a)
extern int SLcurses_wdelch (SLcurses_Window_Type *);
#define wdelch SLcurses_wdelch
#define delch() wdelch(stdscr)
extern int SLcurses_winsch (SLcurses_Window_Type *, int);
#define winsch SLcurses_winsch
extern int SLcurses_Esc_Delay;/* ESC expire time in milliseconds (ncurses compatible) */
#define ESCDELAY SLcurses_Esc_Delay
extern int SLcurses_clearok (SLcurses_Window_Type *, int);
#define clearok SLcurses_clearok
/* Functions that have not been implemented. */
#define copywin(w,v,a,b,c,d,e,f,g) SLcurses_nil()
#define wdeleteln(win) SLcurses_nil()
#define resetty SLcurses_nil
#define savetty SLcurses_nil
#define overlay(u,v) SLcurses_nil()
/* These functions do nothing */
#define savetty SLcurses_nil
#define nonl SLcurses_nil
#define echo SLcurses_nil
#define noecho SLcurses_nil
#define saveterm SLcurses_nil
#define box(w,y,z) ((w)->has_box = 1, (w)->modified = 1)
#define leaveok(a,b) SLcurses_nil()
#define nl() SLcurses_nil()
#define trace(x) SLcurses_nil()
#define tigetstr(x) NULL
/* These have no place in C */
#define TRUE 1
#define FALSE 0
#define bool int
/* Lynx compatability */
#else
#define stdscr NULL
#define COLS SLtt_Screen_Cols
#define LINES SLtt_Screen_Rows
#define move SLsmg_gotorc
#define addstr SLsmg_write_string
#define clear SLsmg_cls
#define standout SLsmg_reverse_video
#define standend SLsmg_normal_video
#define clrtoeol SLsmg_erase_eol
#define scrollok(a,b) SLsmg_Newline_Moves = ((b) ? 1 : -1)
#define addch SLsmg_write_char
#define echo()
#define printw SLsmg_printf
#define endwin SLsmg_reset_smg(),SLang_reset_tty
#endif
|
