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
|
#ifndef _POSIX_SOURCE
#define _POSIX_SOURCE
#endif
/* Read one character from terminal, interpreting VT100/VT200
escape sequences. The program reads from standard input. */
/* To put the terminal into 'keypad application mode' send ESC =;
to reset, send ESC > */
/* DEC keyboards generate the following escape sequences.
CSI is either the single character 0x9B or the two
characters ESC (0x1B) [ (0x5B). SS3 is the character 0x8F or
the two characters ESC (0x1B) O (0x4F).
Key Code generated Value returned by GRGETC
Up arrow CSI A, SS3 A -1
Down arrow CSI B, SS3 B -2
Right arrow CSI C, SS3 C -3
Left arrow CSI D, SS3 D -4
Keypad 0 SS3 p -20
1 SS3 q -21
2 SS3 r -22
3 SS3 s -23
4 SS3 t -24
5 SS3 u -25
6 SS3 v -26
7 SS3 w -27
8 SS3 x -28
9 SS3 y -29
- SS3 m -17
, SS3 l -16
. SS3 n -18
Enter SS3 M -8
PF1 SS3 P -11
PF2 SS3 Q -12
PF3 SS3 R -13
PF4 SS3 S -14
The following are not implemented yet:
Find CSI 1 ~
Insert here CSI 2 ~
Remove CSI 3 ~
Select CSI 4 ~
Prev Screen CSI 5 ~
Next Screen CSI 6 ~
F6 CSI 1 7 ~
F7 CSI 1 8 ~
F8 CSI 1 9 ~
F9 CSI 2 0 ~
F10 CSI 2 1 ~
F11 CSI 2 3 ~
F12 CSI 2 4 ~
F13 CSI 2 5 ~
F14 CSI 2 6 ~
Help CSI 2 8 ~
Do CSI 2 9 ~
F17 CSI 3 1 ~
F18 CSI 3 2 ~
F19 CSI 3 3 ~
F20 CSI 3 4 ~
*/
#include <stdio.h>
#include <termios.h>
#include <fortran.h>
#define CSI (0x9B)
#define SS3 (0x8F)
#define ESC (0x1B)
void GRGETC(int *val)
{
static char valid_table[] = {
'A','B','C','D', 'P','Q','R','S',
'p','q','r','s','t','u','v','w','x','y',
'm','l','n', 'M' };
static short code_table[] = {
-1,-2,-3,-4, -11,-12,-13,-14,
-20,-21,-22,-23,-24,-25,-26,-27,-28,-29,
-17,-16,-18, -8 };
static struct termios term, saveterm;
int tmp=0, i;
int nextch;
static int init=1;
static int raw=0;
static int save_flags;
if (init) {
putchar(ESC);
putchar('=');
init = 0;
}
if (raw == 0) {
tcgetattr(0, &term);
saveterm = term;
term.c_lflag &= ~( ICANON );
term.c_cc[VMIN] = 1;
tcsetattr(0, TCSADRAIN, &term);
raw = 1;
}
tcflush(0, TCIOFLUSH);
nextch = getchar();
if (nextch == ESC) {
nextch = getchar();
if (nextch == '[') nextch = CSI;
if (nextch == 'O') nextch = SS3;
}
if (nextch == CSI || nextch == SS3) {
nextch = getchar();
for (i=0; i<22; i++)
if (valid_table[i] == nextch) {
nextch = code_table[i];
break;
}
}
*val = nextch;
/* If a special character was received, stay in CBREAK mode; this
is OK for PGPLOT cursor control, but may not be for other
applications */
if (nextch >= 0) {
tcsetattr(0, TCSADRAIN, &saveterm);
raw = 0;
}
return;
}
|
