]>
git.gir.st - minesVIiper.git/blob - mines_2017.c
1 /*******************************************************************************
3 By Tobias Girstmair, 2015 - 2018
6 (see ./minesviiper -h for full list of options)
8 MOUSE MODE: - left click to open and choord
9 - right click to flag/unflag
10 VI MODE: - hjkl to move cursor left/down/up/right
11 - o/space to open and choord
13 - (see `./minesviiper -h' for all keybindings)
15 GNU GPL v3, see LICENSE or https://www.gnu.org/licenses/gpl-3.0.txt
16 *******************************************************************************/
19 #define _POSIX_C_SOURCE 2 /*for getopt, sigaction in c99*/
24 #include <sys/ioctl.h>
36 #define MIN(a,b) (a>b?b:a)
37 #define MAX(a,b) (a>b?a:b)
38 #define CLAMP(a,m,M) (a<m?m:(a>M?M:a))
39 #define printm(n, s) for (int _loop = 0; _loop < n; _loop++) fputs (s, stdout)
40 #define print(str) fputs (str?str:"", stdout)
41 #define EMOT(e) op.scheme->emoticons[EMOT_ ## e]
42 #define BORDER(l, c) op.scheme->border[B_ ## l][B_ ## c]
45 unsigned m
:2; /* mine?1:killmine?2:0 */
46 unsigned o
:1; /* open?1:0 */
47 unsigned f
:2; /* flagged?1:questioned?2:0 */
48 unsigned n
:4; /* 0<= neighbours <=8 */
52 //TODO: rename w, h to L, C
55 int m
; /* number of mines */
57 int f
; /* flags counter */
58 int t
; /* time of game start */
59 int p
[2]; /* cursor position {line, col} */
60 int s
; /* space mode */
65 struct minescheme
* scheme
;
66 int mode
; /* allow flags? quesm? */
74 void fill_minefield (int, int);
76 void cursor_move (int, int);
77 void to_next_boundary (int l
, int c
, char direction
);
78 int getch (unsigned char*);
79 int getctrlseq (unsigned char*);
80 int everything_opened (void);
81 int wait_mouse_up (int, int);
82 void partial_show_minefield (int, int, int);
83 void show_minefield (int);
84 int get_neighbours (int, int, int);
85 int uncover_square (int, int);
86 void flag_square (int, int);
87 void quesm_square (int, int);
88 int choord_square (int, int);
89 int do_uncover (int*);
90 struct minecell
** alloc_array (int, int);
91 void free_field (void);
92 char* get_emoticon(void);
93 int screen2field_l (int);
94 int screen2field_c (int);
95 int field2screen_l (int);
96 int field2screen_c (int);
97 int clicked_emoticon (unsigned char*);
99 void signal_handler (int signum
);
100 void timer_setup (int);
113 enum fieldopenstates
{
129 /* for getctrlseq() */
135 CTRSEQ_MOUSE_LEFT
= -4,
136 CTRSEQ_MOUSE_MIDDLE
= -5,
137 CTRSEQ_MOUSE_RIGHT
= -6,
138 CTRSEQ_CURSOR_LEFT
= -7,
139 CTRSEQ_CURSOR_DOWN
= -8,
140 CTRSEQ_CURSOR_UP
= -9,
141 CTRSEQ_CURSOR_RIGHT
= -10,
149 #define CW op.scheme->cell_width
150 void signal_handler (int signum
) {
154 dtime
= difftime (time(NULL
), f
.t
);
155 move (1, f
.w
*CW
-(CW
%2)-3-(dtime
>999));
156 printf ("[%03d]", f
.t
?dtime
:0);
164 /* http://users.csc.calpoly.edu/~phatalsk/357/lectures/code/sigalrm.c */
165 struct termios saved_term_mode
;
166 struct termios
set_raw_term_mode() {
167 struct termios cur_term_mode
, raw_term_mode
;
169 tcgetattr(STDIN_FILENO
, &cur_term_mode
);
170 raw_term_mode
= cur_term_mode
;
171 raw_term_mode
.c_lflag
&= ~(ICANON
| ECHO
);
172 raw_term_mode
.c_cc
[VMIN
] = 1 ;
173 raw_term_mode
.c_cc
[VTIME
] = 0;
174 tcsetattr(STDIN_FILENO
, TCSAFLUSH
, &raw_term_mode
);
176 return cur_term_mode
;
178 void restore_term_mode(struct termios saved_term_mode
) {
179 tcsetattr(STDIN_FILENO
, TCSAFLUSH
, &saved_term_mode
);
183 int main (int argc
, char** argv
) {
184 struct sigaction saction
;
186 saction
.sa_handler
= signal_handler
;
187 sigemptyset(&saction
.sa_mask
);
188 saction
.sa_flags
= 0;
189 if (sigaction(SIGALRM
, &saction
, NULL
) < 0 ) {
194 if (sigaction(SIGINT
, &saction
, NULL
) < 0 ) {
198 /* end screen setup */
200 op
.scheme
= &symbols_mono
;
205 opterr
= 0; /* don't print message on unrecognized option */
206 while ((optget
= getopt (argc
, argv
, "+hnfqcdx")) != -1) {
208 case 'n': op
.mode
= NOFLAG
; break;
209 case 'f': op
.mode
= FLAG
; break; /*default*/
210 case 'q': op
.mode
= QUESM
; break;
211 case 'c': op
.scheme
= &symbols_col1
; break;
212 case 'd': op
.scheme
= &symbols_doublewidth
; break;
215 fprintf (stderr
, "%s [OPTIONS] [FIELDSPEC]\n"
219 " -q(uestion marks)\n"
220 " -c(olored symbols)\n"
221 " -d(ec charset symbols)\n"
223 " WxH[xM] (width 'x' height 'x' mines)\n"
224 " defaults to 30x16x99; mines default to ~20%%\n"
227 " hjkl: move left/down/up/right\n"
228 " bduw: move to next boundary\n"
229 " ^Gg$: move to the left/bottom/top/right\n"
230 " z: center cursor on minefield\n"
233 " space:modeful cursor (either open or flag)\n"
234 " a: toggle mode for space (open/flag)\n"
235 " mX: set a mark for letter X\n"
236 " `X: move to mark X (aliased to ')\n"
237 " r: start a new game\n"
238 " q: quit\n", argv
[0]);
239 _exit(optget
=='h'?0:1);
242 /* end parse options*/
243 if (optind
< argc
) { /* parse Fieldspec */
244 int n
= sscanf (argv
[optind
], "%dx%dx%d", &f
.w
, &f
.h
, &f
.m
);
246 ioctl(STDOUT_FILENO
, TIOCGWINSZ
, &w
);
247 #define CW op.scheme->cell_width
248 #define WW w.ws_col /*window width */
249 #define WH w.ws_row /*window height */
250 #define FW f.w /* field width */
251 #define FH f.h /* field height */
252 #define MM 231 /* mouse maximum*/
253 #define LB 2 /* left border */
254 #define RB 2 /* right border */
255 #define TB 3 /* top border */
256 #define BB 2 /*bottom border */
258 if (LB
+ FW
*CW
+ RB
> WW
) FW
= WW
/CW
- (LB
+RB
);
259 if (TB
+ FH
+ BB
> WH
) FH
= WH
- (TB
+BB
);
260 if (LB
+ FW
*CW
> MM
) FW
= MM
/CW
- LB
;
261 if (TB
+ FH
> MM
) FH
= MM
- TB
;
264 fprintf (stderr
, "FIELDSPEC: WxH[xM]"
265 " (width 'x' height 'x' mines)\n");
268 if (f
.w
< 30) f
.m
= f
.w
*f
.h
*.15625;
269 else f
.m
= f
.w
*f
.h
*.20625;
281 } else { /* use defaults */
286 /* check boundaries */
287 if (f
.m
> (f
.w
-1) * (f
.h
-1)) {
288 f
.m
= (f
.w
-1) * (f
.h
-1);
289 fprintf (stderr
, "too many mines. reduced to %d.\r\n", f
.m
);
294 f
.c
= alloc_array (f
.h
, f
.w
);
305 struct line_col markers
[26];
306 for (int i
=26; i
; markers
[--i
].l
= -1);
308 /* setup the screen: */
309 saved_term_mode
= set_raw_term_mode();
311 /* switch to alternate screen */
312 printf ("\033[?47h");
313 /* reset cursor, clear screen */
314 printf ("\033[H\033[J");
316 /* swich charset, if necessary */
317 if (op
.scheme
->init_seq
!= NULL
) print (op
.scheme
->init_seq
);
319 show_minefield (NORMAL
);
321 /* enable mouse, hide cursor */
322 printf ("\033[?1000h\033[?25l");
327 unsigned char mouse
[3];
329 action
= getch(mouse
);
332 if (f
.s
== MODE_OPEN
||
333 f
.c
[f
.p
[0]][f
.p
[1]].o
== OPENED
) {
334 switch (do_uncover(&is_newgame
)) {
335 case GAME_LOST
: goto lose
;
336 case GAME_WON
: goto win
;
338 } else if (f
.s
== MODE_FLAG
) {
339 flag_square (f
.p
[0], f
.p
[1]);
340 } else if (f
.s
== MODE_QUESM
) {
341 quesm_square (f
.p
[0], f
.p
[1]);
345 f
.s
= (f
.s
+1)%(op
.mode
+1);
346 show_minefield (cheatmode
?SHOWMINES
:NORMAL
);
348 case CTRSEQ_MOUSE_LEFT
:
349 if (clicked_emoticon(mouse
)) {
353 if (screen2field_c (mouse
[1]) < 0 ||
354 screen2field_c (mouse
[1]) >= f
.w
||
355 screen2field_l (mouse
[2]) < 0 ||
356 screen2field_l (mouse
[2]) >= f
.h
) break;
357 f
.p
[0] = screen2field_l (mouse
[2]);
358 f
.p
[1] = screen2field_c (mouse
[1]);
361 switch (do_uncover(&is_newgame
)) {
362 case GAME_LOST
: goto lose
;
363 case GAME_WON
: goto win
;
366 case CTRSEQ_MOUSE_RIGHT
:
367 if (screen2field_c (mouse
[1]) < 0 ||
368 screen2field_c (mouse
[1]) >= f
.w
||
369 screen2field_l (mouse
[2]) < 0 ||
370 screen2field_l (mouse
[2]) >= f
.h
) break;
371 f
.p
[0] = screen2field_l (mouse
[2]);
372 f
.p
[1] = screen2field_c (mouse
[1]);
374 case 'i': flag_square (f
.p
[0], f
.p
[1]); break;
375 case '?':quesm_square (f
.p
[0], f
.p
[1]); break;
376 case CTRSEQ_CURSOR_LEFT
:
377 case 'h': cursor_move (f
.p
[0], f
.p
[1]-1 ); break;
378 case CTRSEQ_CURSOR_DOWN
:
379 case 'j': cursor_move (f
.p
[0]+1, f
.p
[1] ); break;
380 case CTRSEQ_CURSOR_UP
:
381 case 'k': cursor_move (f
.p
[0]-1, f
.p
[1] ); break;
382 case CTRSEQ_CURSOR_RIGHT
:
383 case 'l': cursor_move (f
.p
[0], f
.p
[1]+1 ); break;
384 case 'w': to_next_boundary (f
.p
[0], f
.p
[1], '>'); break;
385 case 'b': to_next_boundary (f
.p
[0], f
.p
[1], '<'); break;
386 case 'u': to_next_boundary (f
.p
[0], f
.p
[1], '^'); break;
387 case 'd': to_next_boundary (f
.p
[0], f
.p
[1], 'v'); break;
388 case '0': /* fallthrough */
389 case '^': cursor_move (f
.p
[0], 0 ); break;
390 case '$': cursor_move (f
.p
[0], f
.w
-1 ); break;
391 case 'g': cursor_move (0, f
.p
[1] ); break;
392 case 'G': cursor_move (f
.h
-1, f
.p
[1] ); break;
393 case 'z': cursor_move (f
.h
/2, f
.w
/2); break;
395 action
= tolower(getch(mouse
));
396 if (action
< 'a' || action
> 'z') break;/*out of bound*/
397 markers
[action
-'a'].l
= f
.p
[0];
398 markers
[action
-'a'].c
= f
.p
[1];
400 case'\'': /* fallthrough */
402 action
= tolower(getch(mouse
));
403 if (action
< 'a' || action
> 'z' /* out of bound or */
404 || markers
[action
-'a'].l
== -1) break; /* unset */
405 cursor_move (markers
[action
-'a'].l
, markers
[action
-'a'].c
);
407 case 'r': /* start a new game */
412 case '\014': /* Ctrl-L -- redraw */
413 show_minefield (NORMAL
);
418 fill_minefield (-1, -1);
421 show_minefield (cheatmode
?NORMAL
:SHOWMINES
);
422 cheatmode
= !cheatmode
;
427 win
: f
.o
= GAME_WON
; goto endgame
;
428 lose
: f
.o
= GAME_LOST
; goto endgame
;
430 timer_setup(0); /* stop timer */
431 show_minefield (SHOWMINES
);
434 unsigned char mouse
[3];
435 gotaction
= getch(mouse
);
436 if (gotaction
==CTRSEQ_MOUSE_LEFT
&& clicked_emoticon(mouse
)) {
439 } else if (gotaction
== 'r') {
442 } else if (gotaction
== 'q') {
452 //move(0,0); //move(f.h+LINE_OFFSET+2, 0);
453 printf ("\033[?9l\033[?25h"); /* disable mouse, show cursor */
454 print (op
.scheme
->reset_seq
); /* reset charset, if necessary */
455 printf ("\033[?47l"); /* revert to primary screen */
457 restore_term_mode(saved_term_mode
);
460 /* I haven't won as long as a cell exists, that
461 - I haven't opened, and
463 int everything_opened (void) {
464 for (int row
= 0; row
< f
.h
; row
++)
465 for (int col
= 0; col
< f
.w
; col
++)
466 if (f
.c
[row
][col
].o
== CLOSED
&&
467 f
.c
[row
][col
].m
== NO_MINE
) return 0;
471 int wait_mouse_up (int l
, int c
) {
472 unsigned char mouse2
[3];
477 move (1, field2screen_c (f
.w
/2)-1); print (EMOT(OHH
));
479 if (!(l
< 0 || l
>= f
.h
|| c
< 0 || c
>= f
.w
)) {
480 /* show a pushed-in button if cursor is on minefield */
481 move (l
+LINE_OFFSET
, field2screen_c(c
));
482 fputs (op
.scheme
->mouse_highlight
, stdout
);
486 if (getctrlseq (mouse2
) == CTRSEQ_MOUSE
) {
487 /* ignore mouse wheel events: */
488 if (mouse2
[0] & 0x40) continue;
490 else if (mouse2
[0]&3 == 3) level
--; /* release event */
491 else level
++; /* another button pressed */
495 move (1, field2screen_c (f
.w
/2)-1); print (get_emoticon());
497 if (!(l
< 0 || l
>= f
.h
|| c
< 0 || c
>= f
.w
)) {
498 partial_show_minefield (l
, c
, NORMAL
);
500 c2
= screen2field_c(mouse2
[1]);
501 l2
= screen2field_l(mouse2
[2]);
502 return ((l2
== l
) && (c2
== c
));
505 int choord_square (int line
, int col
) {
506 for (int l
= MAX(line
-1, 0); l
<= MIN(line
+1, f
.h
-1); l
++) {
507 for (int c
= MAX(col
-1, 0); c
<= MIN(col
+1, f
.w
-1); c
++) {
508 if (f
.c
[l
][c
].f
!= FLAG
) {
509 if (uncover_square (l
, c
))
518 int uncover_square (int l
, int c
) {
519 f
.c
[l
][c
].o
= OPENED
;
520 f
.c
[l
][c
].f
= NOFLAG
; /*must not be QUESM, otherwise rendering issues*/
521 partial_show_minefield (l
, c
, NORMAL
);
524 f
.c
[l
][c
].m
= DEATH_MINE
;
528 /* check for chording */
529 if (f
.c
[l
][c
].n
== 0) {
530 for (int choord_l
= -1; choord_l
<= 1; choord_l
++) {
531 for (int choord_c
= -1; choord_c
<= 1; choord_c
++) {
532 int newl
= l
+ choord_l
;
533 int newc
= c
+ choord_c
;
534 if (newl
>= 0 && newl
< f
.h
&&
535 newc
>= 0 && newc
< f
.w
&&
536 f
.c
[newl
][newc
].o
== CLOSED
&&
537 uncover_square (newl
, newc
)) {
547 void flag_square (int l
, int c
) {
548 static char modechar
[] = {'*', '!', '?'};
550 if (f
.c
[l
][c
].o
!= CLOSED
) return;
551 /* cycles through flag/quesm/noflag (uses op.mode to detect which ones
553 f
.c
[l
][c
].f
= (f
.c
[l
][c
].f
+ 1) % (op
.mode
+ 1);
554 if (f
.c
[l
][c
].f
==FLAG
) f
.f
++;
555 else f
.f
--; //WARN: breaks on `-q'!
556 partial_show_minefield (l
, c
, NORMAL
);
557 move (1, op
.scheme
->cell_width
);
558 printf ("[%03d%c]", f
.m
- f
.f
, modechar
[f
.s
]);
561 void quesm_square (int l
, int c
) {
562 /* toggle question mark / none. won't turn flags into question marks.
563 unlike flag_square, this function doesn't respect `-q'. */
564 if (f
.c
[l
][c
].o
!= CLOSED
) return;
565 else if (f
.c
[l
][c
].f
== NOFLAG
) f
.c
[l
][c
].f
= QUESM
;
566 else if (f
.c
[l
][c
].f
== QUESM
) f
.c
[l
][c
].f
= NOFLAG
;
567 partial_show_minefield (l
, c
, NORMAL
);
570 int do_uncover (int* is_newgame
) {
573 fill_minefield (f
.p
[0], f
.p
[1]);
577 if (f
.c
[f
.p
[0]][f
.p
[1]].f
== FLAG
) return GAME_INPROGRESS
;
578 if (f
.c
[f
.p
[0]][f
.p
[1]].o
== CLOSED
) {
579 if (uncover_square (f
.p
[0], f
.p
[1])) return GAME_LOST
;
580 } else if (get_neighbours (f
.p
[0], f
.p
[1], 1) == 0) {
581 if (choord_square (f
.p
[0], f
.p
[1])) return GAME_LOST
;
583 if (everything_opened()) return GAME_WON
;
585 return GAME_INPROGRESS
;
588 void fill_minefield (int l
, int c
) {
592 int line
= rand() % f
.h
;
593 int col
= rand() % f
.w
;
595 if (f
.c
[line
][col
].m
) {
596 /* skip if field already has a mine */
598 } else if ((line
== l
) && (col
== c
)) {
599 /* don't put a mine on the already opened (first click) field */
603 f
.c
[line
][col
].m
= STD_MINE
;
607 /* precalculate neighbours */
608 for (int l
=0; l
< f
.h
; l
++)
609 for (int c
=0; c
< f
.w
; c
++)
610 f
.c
[l
][c
].n
= get_neighbours (l
, c
, NORMAL
);
613 void move (int line
, int col
) {
614 printf ("\033[%d;%dH", line
+1, col
+1);
617 /* absolute coordinates! */
618 void cursor_move (int l
, int c
) {
619 partial_show_minefield (f
.p
[0], f
.p
[1], NORMAL
);
621 f
.p
[0] = CLAMP(l
, 0, f
.h
-1);
622 f
.p
[1] = CLAMP(c
, 0, f
.w
-1);
623 move (f
.p
[0]+LINE_OFFSET
, field2screen_c(f
.p
[1]));
624 //fputs (op.scheme->mouse_highlight, stdout);
626 /* invert unless ! or ? (and flag_offset is used in the scheme): */
627 if (!f
.c
[f
.p
[0]][f
.p
[1]].f
|| !op
.scheme
->flag_offset
)
629 partial_show_minefield (f
.p
[0], f
.p
[1], HIGHLIGHT
);
630 print("\033[0m");//un-invert
633 /* to_next_boundary(): move into the supplied direction until a change in open-
634 state or flag-state is found and move there. falls back to BIG_MOVE. */
635 #define FIND_NEXT(X, L, C, L1, C1, MAX, OP) do {\
636 new_ ## X OP ## = BIG_MOVE;\
637 for (int i = X OP 1; i > 0 && i < f.MAX-1; i OP ## OP)\
638 if ((f.c[L ][C ].o<<2 + f.c[L ][C ].f) \
639 != (f.c[L1][C1].o<<2 + f.c[L1][C1].f)) {\
644 void to_next_boundary (int l
, int c
, char direction
) {
648 case '>': FIND_NEXT(c
, l
, i
, l
, i
+1, w
, +); break;
649 case '<': FIND_NEXT(c
, l
, i
, l
, i
-1, w
, -); break;
650 case '^': FIND_NEXT(l
, i
, c
, i
-1, c
, h
, -); break;
651 case 'v': FIND_NEXT(l
, i
, c
, i
+1, c
, h
, +); break;
654 cursor_move (new_l
, new_c
);
658 char* cell2schema (int l
, int c
, int mode
) {
659 struct minecell cell
= f
.c
[l
][c
];
660 /* move past invert-ctrlsequence when highlighting the cursor: */
661 int offset
= ((mode
==HIGHLIGHT
)*op
.scheme
->flag_offset
);
663 if (mode
== SHOWMINES
) return (
664 cell
.f
== FLAG
&& cell
.m
? op
.scheme
->field_flagged
+offset
:
665 cell
.f
== FLAG
&& !cell
.m
? op
.scheme
->mine_wrongf
:
666 cell
.m
== STD_MINE
? op
.scheme
->mine_normal
:
667 cell
.m
== DEATH_MINE
? op
.scheme
->mine_death
:
668 cell
.o
== CLOSED
? op
.scheme
->field_closed
:
669 /*.......................*/ op
.scheme
->number
[f
.c
[l
][c
].n
]);
671 cell
.f
== FLAG
? op
.scheme
->field_flagged
+offset
:
672 cell
.f
== QUESM
? op
.scheme
->field_question
+offset
:
673 cell
.o
== CLOSED
? op
.scheme
->field_closed
:
674 cell
.m
== STD_MINE
? op
.scheme
->mine_normal
:
675 cell
.m
== DEATH_MINE
? op
.scheme
->mine_death
:
676 /*.......................*/ op
.scheme
->number
[f
.c
[l
][c
].n
]);
679 void partial_show_minefield (int l
, int c
, int mode
) {
680 move (l
+LINE_OFFSET
, field2screen_c(c
));
682 print (cell2schema(l
, c
, mode
));
685 char* get_emoticon(void) {
686 return f
.o
==GAME_WON
? EMOT(WON
):
687 f
.o
==GAME_LOST
? EMOT(DEAD
):
691 /* https://zserge.com/blog/c-for-loop-tricks.html */
692 #define print_line(which) \
693 for (int _break = (printf(BORDER(which,LEFT)), 1); _break; \
694 _break = 0, printf("%s\r\n", BORDER(which,RIGHT)))
695 #define print_border(which, width) \
696 print_line(which) printm (width, BORDER(which,MIDDLE))
697 void show_minefield (int mode
) {
698 int dtime
= difftime (time(NULL
), f
.t
)*!!f
.t
;
699 int half_spaces
= f
.w
*op
.scheme
->cell_width
/2;
700 int left_spaces
= MAX(0,half_spaces
-7-(f
.m
-f
.f
>999));
701 int right_spaces
= MAX(0,half_spaces
-6-(dtime
>999));
702 static char modechar
[] = {'*', '!', '?'};
706 print_border(TOP
, f
.w
);
708 printf("[%03d%c]%*s%s%*s[%03d]",
709 /* [ */ f
.m
- f
.f
, modechar
[f
.s
], /* ] */
710 left_spaces
,"", get_emoticon(), right_spaces
,"",
711 /* [ */ dtime
/* ] */);
713 print_border(DIVIDER
, f
.w
);
715 for (int l
= 0; l
< f
.h
; l
++) print_line(FIELD
)
716 printm (f
.w
, cell2schema(l
, _loop
, mode
));
717 print_border(BOTTOM
, f
.w
);
720 int get_neighbours (int line
, int col
, int reduced_mode
) {
721 /* counts mines surrounding a square
722 modes: 0=normal; 1=reduced */
726 for (int l
= MAX(line
-1, 0); l
<= MIN(line
+1, f
.h
-1); l
++) {
727 for (int c
= MAX(col
-1, 0); c
<= MIN(col
+1, f
.w
-1); c
++) {
728 if (!l
&& !c
) continue;
730 count
+= !!f
.c
[l
][c
].m
;
731 count
-= reduced_mode
* f
.c
[l
][c
].f
==FLAG
;
737 struct minecell
** alloc_array (int lines
, int cols
) {
738 struct minecell
** a
= malloc (lines
* sizeof(struct minecell
*));
739 if (a
== NULL
) return NULL
;
740 for (int l
= 0; l
< lines
; l
++) {
741 a
[l
] = calloc (cols
, sizeof(struct minecell
));
742 if (a
[l
] == NULL
) goto unalloc
;
747 for (int l
= 0; l
< lines
; l
++)
752 void free_field (void) {
753 if (f
.c
== NULL
) return;
754 for (int l
= 0; l
< f
.h
; l
++) {
762 int screen2field_l (int l
) {
763 return (l
-LINE_OFFSET
) - 1;
765 /* some trickery is required to extract the mouse position from the cell width,
766 depending on wheather we are using full width characters or double line width.
767 WARN: tested only with scheme.cell_width = 1 and scheme.cell_width = 2. */
768 #define CW op.scheme->cell_width
769 int screen2field_c (int c
) {
770 return (c
-COL_OFFSET
+1 - 2*(CW
%2))/2 - CW
/2;
772 int field2screen_l (int l
) {
773 return 0; //TODO: is never used, therefore not implemented
775 int field2screen_c (int c
) {
776 return (CW
*c
+COL_OFFSET
- (CW
%2));
778 int clicked_emoticon (unsigned char* mouse
) {
779 /* :D clicked: TODO: won't work in single-width mode! */
780 return (mouse
[2] == LINE_OFFSET
-1 && (
781 mouse
[1] == (f
.w
*CW
/2)+COL_OFFSET
||
782 mouse
[1] == (f
.w
*CW
/2)+COL_OFFSET
+1));
792 int getctrlseq (unsigned char* buf
) {
795 int offset
= 0x20; /* never sends control chars as data */
796 while ((c
= getchar()) != EOF
) {
800 case '\033': state
=ESC_SENT
; break;
806 case '[': state
=CSI_SENT
; break;
807 default: return CTRSEQ_INVALID
;
812 case 'A': return CTRSEQ_CURSOR_UP
;
813 case 'B': return CTRSEQ_CURSOR_DOWN
;
814 case 'C': return CTRSEQ_CURSOR_RIGHT
;
815 case 'D': return CTRSEQ_CURSOR_LEFT
;
816 case 'M': state
=MOUSE_EVENT
; break;
817 default: return CTRSEQ_INVALID
;
822 buf
[1] = getchar() - offset
;
823 buf
[2] = getchar() - offset
;
826 return CTRSEQ_INVALID
;
832 int getch(unsigned char* buf
) {
833 /* returns a character, EOF, or constant for an escape/control sequence - NOT
834 compatible with the ncurses implementation of same name */
835 int action
= getctrlseq(buf
);
839 l
= screen2field_l (buf
[2]);
840 c
= screen2field_c (buf
[1]);
842 if (buf
[0] > 3) break; /* ignore all but left/middle/right/up */
843 int success
= wait_mouse_up(l
, c
);
845 /* mouse moved while pressed: */
846 if (!success
) return CTRSEQ_INVALID
;
849 case 0: return CTRSEQ_MOUSE_LEFT
;
850 case 1: return CTRSEQ_MOUSE_MIDDLE
;
851 case 2: return CTRSEQ_MOUSE_RIGHT
;
858 void timer_setup (int enable
) {
859 static struct itimerval tbuf
;
860 tbuf
.it_interval
.tv_sec
= 1;
861 tbuf
.it_interval
.tv_usec
= 0;
865 tbuf
.it_value
.tv_sec
= 1;
866 tbuf
.it_value
.tv_usec
= 0;
867 if (setitimer(ITIMER_REAL
, &tbuf
, NULL
) == -1) {
872 tbuf
.it_value
.tv_sec
= 0;
873 tbuf
.it_value
.tv_usec
= 0;
874 if ( setitimer(ITIMER_REAL
, &tbuf
, NULL
) == -1 ) {