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
|
/*
This file is part of licht.
licht is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
licht is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with licht. If not, see <http://www.gnu.org/licenses/>.
*/
#include <ncurses.h>
#include "ocaml.h"
CAMLprim value
c_set_mouse_event(value events)
{
CAMLparam1(events);
CAMLlocal1(event);
mmask_t mask = 0;
while (events != Val_emptylist)
{
event = Field(events, 0);
switch (Int_val(event)) {
case 0: mask |= BUTTON1_PRESSED; break;
case 1: mask |= BUTTON1_RELEASED; break;
case 2: mask |= BUTTON1_CLICKED; break;
case 3: mask |= BUTTON1_DOUBLE_CLICKED; break;
case 4: mask |= BUTTON1_TRIPLE_CLICKED; break;
case 5: mask |= BUTTON2_PRESSED; break;
case 6: mask |= BUTTON2_RELEASED; break;
case 7: mask |= BUTTON2_CLICKED; break;
case 8: mask |= BUTTON2_DOUBLE_CLICKED; break;
case 9: mask |= BUTTON2_TRIPLE_CLICKED; break;
case 10: mask |= BUTTON3_PRESSED; break;
case 11: mask |= BUTTON3_RELEASED; break;
case 12: mask |= BUTTON3_CLICKED; break;
case 13: mask |= BUTTON3_DOUBLE_CLICKED; break;
case 14: mask |= BUTTON3_TRIPLE_CLICKED; break;
case 15: mask |= BUTTON4_PRESSED; break;
case 16: mask |= BUTTON4_RELEASED; break;
case 17: mask |= BUTTON4_CLICKED; break;
case 18: mask |= BUTTON4_DOUBLE_CLICKED; break;
case 29: mask |= BUTTON4_TRIPLE_CLICKED; break;
case 20: mask |= BUTTON_SHIFT; break;
case 21: mask |= BUTTON_CTRL; break;
case 22: mask |= BUTTON_ALT; break;
case 23: mask |= ALL_MOUSE_EVENTS; break;
case 24: mask |= REPORT_MOUSE_POSITION; break;
}
events = Field(events, 1);
}
mousemask(mask, NULL);
CAMLreturn(Val_unit);
}
CAMLprim value
c_get_mouse_event(value unit)
{
MEVENT event;
CAMLparam1(unit);
CAMLlocal2(result, coord);
result = caml_alloc(3, 0);
coord = caml_alloc(3, 0);
if (getmouse(&event) == OK)
{
Store_field(coord, 0, Val_int(event.x));
Store_field(coord, 1, Val_int(event.y));
Store_field(coord, 2, Val_int(event.z));
Store_field(result, 0, Val_int(event.id));
Store_field(result, 1, event.bstate);
Store_field(result, 2, coord);
CAMLreturn(Val_some(result));
} else {
CAMLreturn(Val_none);
}
}
CAMLprim value
c_is_event_of_type(value mask, value type)
{
CAMLparam2(mask, type);
switch (Int_val(type)) {
case 0: CAMLreturn(Val_bool(mask & BUTTON1_PRESSED)); break;
case 1: CAMLreturn(Val_bool(mask & BUTTON1_RELEASED)); break;
case 2: CAMLreturn(Val_bool(mask & BUTTON1_CLICKED)); break;
case 3: CAMLreturn(Val_bool(mask & BUTTON1_DOUBLE_CLICKED)); break;
case 4: CAMLreturn(Val_bool(mask & BUTTON1_TRIPLE_CLICKED)); break;
case 5: CAMLreturn(Val_bool(mask & BUTTON2_PRESSED)); break;
case 6: CAMLreturn(Val_bool(mask & BUTTON2_RELEASED)); break;
case 7: CAMLreturn(Val_bool(mask & BUTTON2_CLICKED)); break;
case 8: CAMLreturn(Val_bool(mask & BUTTON2_DOUBLE_CLICKED)); break;
case 9: CAMLreturn(Val_bool(mask & BUTTON2_TRIPLE_CLICKED)); break;
case 10: CAMLreturn(Val_bool(mask & BUTTON3_PRESSED)); break;
case 11: CAMLreturn(Val_bool(mask & BUTTON3_RELEASED)); break;
case 12: CAMLreturn(Val_bool(mask & BUTTON3_CLICKED)); break;
case 13: CAMLreturn(Val_bool(mask & BUTTON3_DOUBLE_CLICKED)); break;
case 14: CAMLreturn(Val_bool(mask & BUTTON3_TRIPLE_CLICKED)); break;
case 15: CAMLreturn(Val_bool(mask & BUTTON4_PRESSED)); break;
case 16: CAMLreturn(Val_bool(mask & BUTTON4_RELEASED)); break;
case 17: CAMLreturn(Val_bool(mask & BUTTON4_CLICKED)); break;
case 18: CAMLreturn(Val_bool(mask & BUTTON4_DOUBLE_CLICKED)); break;
case 29: CAMLreturn(Val_bool(mask & BUTTON4_TRIPLE_CLICKED)); break;
case 20: CAMLreturn(Val_bool(mask & BUTTON_SHIFT)); break;
case 21: CAMLreturn(Val_bool(mask & BUTTON_CTRL)); break;
case 22: CAMLreturn(Val_bool(mask & BUTTON_ALT)); break;
case 23: CAMLreturn(Val_bool(mask & ALL_MOUSE_EVENTS)); break;
case 24: CAMLreturn(Val_bool(mask & REPORT_MOUSE_POSITION)); break;
}
CAMLreturn(Val_false);
}
|
