Thread Modul: export constant Werte (0 answers)
Opened by Kuerbis at 2015-08-11 12:50

Kuerbis
 2015-08-11 12:50
#181774 #181774
User since
2011-03-20
943 Artikel
BenutzerIn
[default_avatar]
Hallo!

Ist dieser Code in Ordnung? Das ist mein Versuch Term::Choose::Constants in Perl 6 umzuwandeln.

Code (perl): (dl )
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
use v6;

unit module Term::Choose::Constants;


constant ROW is export(:choose) = 0;
constant COL is export(:choose) = 1;
constant MIN is export(:choose) = 0;
constant MAX is export(:choose) = 1;


constant LF                     is export(:choose) = "\n";
constant CR                     is export(:choose) = "\r";

constant BEEP                   is export(:choose) = "\a";
constant CLEAR_SCREEN           is export(:linux)  = "\e[H\e[J";
constant CLEAR_TO_END_OF_SCREEN is export(:linux)  = "\e[0J";
constant RESET                  is export(:linux)  = "\e[0m";
constant BOLD_UNDERLINE         is export(:linux)  = "\e[1m\e[4m";
constant REVERSE                is export(:linux)  = "\e[7m";

constant HIDE_CURSOR            is export(:linux)  = "\e[?25l";
constant SHOW_CURSOR            is export(:linux)  = "\e[?25h";
constant WIDTH_CURSOR           is export(:choose) = 1;


constant GET_CURSOR_POSITION           is export(:linux) = "\e[6n";

constant SET_ANY_EVENT_MOUSE_1003      is export(:linux) = "\e[?1003h";
constant SET_EXT_MODE_MOUSE_1005       is export(:linux) = "\e[?1005h";
constant SET_SGR_EXT_MODE_MOUSE_1006   is export(:linux) = "\e[?1006h";
constant UNSET_ANY_EVENT_MOUSE_1003    is export(:linux) = "\e[?1003l";
constant UNSET_EXT_MODE_MOUSE_1005     is export(:linux) = "\e[?1005l";
constant UNSET_SGR_EXT_MODE_MOUSE_1006 is export(:linux) = "\e[?1006l";

constant MAX_ROW_MOUSE_1003            is export(:choose) = 223;
constant MAX_COL_MOUSE_1003            is export(:choose) = 223;

constant MOUSE_WHEELED                 is export(:win32) = 0x0004;

constant LEFTMOST_BUTTON_PRESSED       is export(:win32) = 0x0001;
constant RIGHTMOST_BUTTON_PRESSED      is export(:win32) = 0x0002;
constant FROM_LEFT_2ND_BUTTON_PRESSED  is export(:win32) = 0x0004;


constant NEXT_get_key  is export(:choose, :linux, :win32) = -1;

constant CONTROL_SPACE is export(:choose,         :win32) = 0x00;
constant CONTROL_A     is export(:choose                ) = 0x01;
# ...
# ...
constant VK_INSERT     is export(         :linux, :win32) = 45,   # unused
constant VK_DELETE     is export(         :linux, :win32) = 46,   # unused

View full thread Modul: export constant Werte