Mercurial > mplayer.hg
annotate osdep/getch2.c @ 17246:e2aae45168cf
Merry Christmas and happy cola-chugging!
author | gpoirier |
---|---|
date | Mon, 26 Dec 2005 06:27:56 +0000 |
parents | 11459d1ff17c |
children | 3d02f6e2a432 |
rev | line source |
---|---|
1 | 1 /* GyS-TermIO v2.0 (for GySmail v3) (C) 1999 A'rpi/ESP-team */ |
2 | |
16985 | 3 #include "config.h" |
1 | 4 |
5 //#define USE_TERMCAP | |
12122 | 6 #if !defined(__OS2__) && !defined(__MORPHOS__) |
1 | 7 #define USE_IOCTL |
5300 | 8 #endif |
1 | 9 |
10 #define MAX_KEYS 64 | |
11 #define BUF_LEN 256 | |
12 | |
13 #include <stdio.h> | |
14 #include <stdlib.h> | |
15 #include <string.h> | |
16 #include <sys/time.h> | |
17 #include <sys/types.h> | |
18 #ifdef USE_IOCTL | |
19 #include <sys/ioctl.h> | |
20 #endif | |
3281
310c0b9bea21
detect termios.h if no sys/termios.h (qnx getch2 support working)
alex
parents:
3014
diff
changeset
|
21 |
3009 | 22 #ifdef HAVE_TERMIOS |
3281
310c0b9bea21
detect termios.h if no sys/termios.h (qnx getch2 support working)
alex
parents:
3014
diff
changeset
|
23 #ifdef HAVE_TERMIOS_H |
310c0b9bea21
detect termios.h if no sys/termios.h (qnx getch2 support working)
alex
parents:
3014
diff
changeset
|
24 #include <termios.h> |
310c0b9bea21
detect termios.h if no sys/termios.h (qnx getch2 support working)
alex
parents:
3014
diff
changeset
|
25 #endif |
3282 | 26 #ifdef HAVE_SYS_TERMIOS_H |
1 | 27 #include <sys/termios.h> |
3009 | 28 #endif |
3281
310c0b9bea21
detect termios.h if no sys/termios.h (qnx getch2 support working)
alex
parents:
3014
diff
changeset
|
29 #endif |
310c0b9bea21
detect termios.h if no sys/termios.h (qnx getch2 support working)
alex
parents:
3014
diff
changeset
|
30 |
1 | 31 #include <unistd.h> |
32 | |
33 #include "keycodes.h" | |
34 | |
3009 | 35 #ifdef HAVE_TERMIOS |
1 | 36 static struct termios tio_orig; |
3009 | 37 #endif |
1 | 38 static int getch2_len=0; |
39 static char getch2_buf[BUF_LEN]; | |
40 | |
41 int screen_width=80; | |
42 int screen_height=24; | |
17240
11459d1ff17c
Use termcap "erase to end of line" character code instead of using spaces
ods15
parents:
16985
diff
changeset
|
43 char * erase_to_end_of_line = "\033[J"; |
1 | 44 |
45 typedef struct { | |
46 int len; | |
47 int code; | |
48 char chars[8]; | |
49 } keycode_st; | |
50 static keycode_st getch2_keys[MAX_KEYS]; | |
51 static int getch2_key_db=0; | |
52 | |
53 #ifdef USE_TERMCAP | |
54 | |
55 #if 0 | |
56 #include <termcap.h> | |
57 #else | |
58 extern int tgetent (char *BUFFER, char *TERMTYPE); | |
59 extern int tgetnum (char *NAME); | |
60 extern int tgetflag (char *NAME); | |
61 extern char *tgetstr (char *NAME, char **AREA); | |
62 #endif | |
63 | |
64 static char term_buffer[4096]; | |
65 static char term_buffer2[4096]; | |
66 static char *term_p=term_buffer2; | |
67 | |
68 static void termcap_add(char *id,int code){ | |
69 char *p=tgetstr(id,&term_p); | |
70 if(!p) return; | |
71 if(getch2_key_db>=MAX_KEYS) return; | |
72 getch2_keys[getch2_key_db].len=strlen(p); | |
73 strncpy(getch2_keys[getch2_key_db].chars,p,8); | |
74 getch2_keys[getch2_key_db].code=code; | |
75 ++getch2_key_db; | |
76 /* printf("%s=%s\n",id,p); */ | |
77 } | |
78 | |
79 static int success=0; | |
80 | |
81 int load_termcap(char *termtype){ | |
17240
11459d1ff17c
Use termcap "erase to end of line" character code instead of using spaces
ods15
parents:
16985
diff
changeset
|
82 char * p; |
1 | 83 if(!termtype) termtype=getenv("TERM"); |
8889
18427eee9205
The attached little patch fixes a core dump on termcap systems when
arpi
parents:
8016
diff
changeset
|
84 if(!termtype) termtype="unknown"; |
1 | 85 success=tgetent(term_buffer, termtype); |
86 if(success<0){ printf("Could not access the 'termcap' data base.\n"); return 0; } | |
87 if(success==0){ printf("Terminal type `%s' is not defined.\n", termtype);return 0;} | |
88 | |
89 screen_width=tgetnum("co"); | |
90 screen_height=tgetnum("li"); | |
91 if(screen_width<1 || screen_width>255) screen_width=80; | |
92 if(screen_height<1 || screen_height>255) screen_height=24; | |
17240
11459d1ff17c
Use termcap "erase to end of line" character code instead of using spaces
ods15
parents:
16985
diff
changeset
|
93 if ((p = tgetstr("cd",&term_p))) erase_to_end_of_line=p; |
1 | 94 |
95 termcap_add("kP",KEY_PGUP); | |
96 termcap_add("kN",KEY_PGDWN); | |
97 termcap_add("kh",KEY_HOME); | |
98 termcap_add("kH",KEY_END); | |
99 termcap_add("kI",KEY_INS); | |
100 termcap_add("kD",KEY_DEL); | |
101 termcap_add("kb",KEY_BS); | |
102 termcap_add("kl",KEY_LEFT); | |
103 termcap_add("kd",KEY_DOWN); | |
104 termcap_add("ku",KEY_UP); | |
105 termcap_add("kr",KEY_RIGHT); | |
106 termcap_add("k0",KEY_F+0); | |
107 termcap_add("k1",KEY_F+1); | |
108 termcap_add("k2",KEY_F+2); | |
109 termcap_add("k3",KEY_F+3); | |
110 termcap_add("k4",KEY_F+4); | |
111 termcap_add("k5",KEY_F+5); | |
112 termcap_add("k6",KEY_F+6); | |
113 termcap_add("k7",KEY_F+7); | |
114 termcap_add("k8",KEY_F+8); | |
115 termcap_add("k9",KEY_F+9); | |
116 termcap_add("k;",KEY_F+10); | |
117 return getch2_key_db; | |
118 } | |
119 | |
120 #endif | |
121 | |
122 void get_screen_size(){ | |
123 #ifdef USE_IOCTL | |
124 struct winsize ws; | |
125 if (ioctl(0, TIOCGWINSZ, &ws) < 0 || !ws.ws_row || !ws.ws_col) return; | |
126 /* printf("Using IOCTL\n"); */ | |
127 screen_width=ws.ws_col; | |
128 screen_height=ws.ws_row; | |
129 #endif | |
130 } | |
131 | |
132 int getch2(int time){ | |
133 int len=0; | |
134 int code=0; | |
135 int i=0; | |
136 | |
137 while(!getch2_len || (getch2_len==1 && getch2_buf[0]==27)){ | |
138 fd_set rfds; | |
139 struct timeval tv; | |
140 int retval; | |
141 /* Watch stdin (fd 0) to see when it has input. */ | |
142 FD_ZERO(&rfds); FD_SET(0,&rfds); | |
143 /* Wait up to 'time' microseconds. */ | |
144 tv.tv_sec=time/1000; tv.tv_usec = (time%1000)*1000; | |
145 retval=select(1, &rfds, NULL, NULL, &tv); | |
3014
16576e05b93a
Profiling fix by Artur Skawina <skawina@geocities.com>
atmos4
parents:
3009
diff
changeset
|
146 if(retval<=0) return -1; |
1 | 147 /* Data is available now. */ |
148 retval=read(0,&getch2_buf[getch2_len],BUF_LEN-getch2_len); | |
149 if(retval<1) return -1; | |
150 getch2_len+=retval; | |
151 } | |
152 | |
153 /* First find in the TERMCAP database: */ | |
154 for(i=0;i<getch2_key_db;i++){ | |
155 if((len=getch2_keys[i].len)<=getch2_len) | |
156 if(memcmp(getch2_keys[i].chars,getch2_buf,len)==0){ | |
157 code=getch2_keys[i].code; goto found; | |
158 } | |
159 } | |
160 len=1;code=getch2_buf[0]; | |
161 /* Check the well-known codes... */ | |
162 if(code!=27){ | |
163 if(code=='A'-64){ code=KEY_HOME; goto found;} | |
164 if(code=='E'-64){ code=KEY_END; goto found;} | |
165 if(code=='D'-64){ code=KEY_DEL; goto found;} | |
166 if(code=='H'-64){ code=KEY_BS; goto found;} | |
167 if(code=='U'-64){ code=KEY_PGUP; goto found;} | |
168 if(code=='V'-64){ code=KEY_PGDWN; goto found;} | |
169 if(code==8 || code==127){ code=KEY_BS; goto found;} | |
170 if(code==10 || code==13){ | |
171 if(getch2_len>1){ | |
172 int c=getch2_buf[1]; | |
173 if(c==10 || c==13) if(c!=code) len=2; | |
174 } | |
175 code=KEY_ENTER; | |
176 goto found; | |
177 } | |
178 } else if(getch2_len>1){ | |
179 int c=getch2_buf[1]; | |
180 if(c==27){ code=KEY_ESC; len=2; goto found;} | |
181 if(c>='0' && c<='9'){ code=c-'0'+KEY_F; len=2; goto found;} | |
182 if(getch2_len>=4 && c=='[' && getch2_buf[2]=='['){ | |
183 int c=getch2_buf[3]; | |
184 if(c>='A' && c<'A'+12){ code=KEY_F+1+c-'A';len=4;goto found;} | |
185 } | |
186 if(c=='[' || c=='O') if(getch2_len>=3){ | |
187 int c=getch2_buf[2]; | |
188 static short int ctable[]={ KEY_UP,KEY_DOWN,KEY_RIGHT,KEY_LEFT,0, | |
189 KEY_END,KEY_PGDWN,KEY_HOME,KEY_PGUP,0,0,KEY_INS,0,0,0, | |
190 KEY_F+1,KEY_F+2,KEY_F+3,KEY_F+4}; | |
191 if(c>='A' && c<='S') | |
192 if(ctable[c-'A']){ code=ctable[c-'A']; len=3; goto found;} | |
193 } | |
194 if(getch2_len>=4 && c=='[' && getch2_buf[3]=='~'){ | |
195 int c=getch2_buf[2]; | |
196 int ctable[8]={KEY_HOME,KEY_INS,KEY_DEL,KEY_END,KEY_PGUP,KEY_PGDWN,KEY_HOME,KEY_END}; | |
197 if(c>='1' && c<='8'){ code=ctable[c-'1']; len=4; goto found;} | |
198 } | |
199 if(getch2_len>=5 && c=='[' && getch2_buf[4]=='~'){ | |
200 int i=getch2_buf[2]-'0'; | |
201 int j=getch2_buf[3]-'0'; | |
202 if(i>=0 && i<=9 && j>=0 && j<=9){ | |
203 static short int ftable[20]={ | |
204 11,12,13,14,15, 17,18,19,20,21, | |
205 23,24,25,26,28, 29,31,32,33,34 }; | |
206 int a=i*10+j; | |
207 for(i=0;i<20;i++) if(ftable[i]==a){ code=KEY_F+1+i;len=5;goto found;} | |
208 } | |
209 } | |
210 } | |
211 found: | |
212 if((getch2_len-=len)>0){ | |
213 int i; | |
214 for(i=0;i<getch2_len;i++) getch2_buf[i]=getch2_buf[len+i]; | |
215 } | |
216 return code; | |
217 } | |
218 | |
1632 | 219 static int getch2_status=0; |
220 | |
1 | 221 void getch2_enable(){ |
3009 | 222 #ifdef HAVE_TERMIOS |
1 | 223 struct termios tio_new; |
12063
e11fc0ef72db
The attached patch fixes a minor build problem on GNU/k*BSD: getch2.c should
diego
parents:
9380
diff
changeset
|
224 #if defined(__NetBSD__) || defined(__svr4__) || defined(__CYGWIN__) || defined(__OS2__) || defined(__GLIBC__) |
1038
b36fb1ae4b53
applied solaris8/netbsd/other fixes patch by J¸«ärgen Keil <jk@tools.de>
arpi_esp
parents:
958
diff
changeset
|
225 tcgetattr(0,&tio_orig); |
15566 | 226 #elif defined(__FreeBSD__) || defined(__OpenBSD__) || defined(__bsdi__) || defined(__APPLE__) || defined(__DragonFly__) |
1038
b36fb1ae4b53
applied solaris8/netbsd/other fixes patch by J¸«ärgen Keil <jk@tools.de>
arpi_esp
parents:
958
diff
changeset
|
227 ioctl(0,TIOCGETA,&tio_orig); |
958
162a78d3cc08
FreeBSD support by Vladimir Kushnir vkushnir@Alfacom.net
arpi_esp
parents:
1
diff
changeset
|
228 #else |
1038
b36fb1ae4b53
applied solaris8/netbsd/other fixes patch by J¸«ärgen Keil <jk@tools.de>
arpi_esp
parents:
958
diff
changeset
|
229 ioctl(0,TCGETS,&tio_orig); |
958
162a78d3cc08
FreeBSD support by Vladimir Kushnir vkushnir@Alfacom.net
arpi_esp
parents:
1
diff
changeset
|
230 #endif |
1 | 231 tio_new=tio_orig; |
232 tio_new.c_lflag &= ~(ICANON|ECHO); /* Clear ICANON and ECHO. */ | |
233 tio_new.c_cc[VMIN] = 1; | |
234 tio_new.c_cc[VTIME] = 0; | |
12063
e11fc0ef72db
The attached patch fixes a minor build problem on GNU/k*BSD: getch2.c should
diego
parents:
9380
diff
changeset
|
235 #if defined(__NetBSD__) || defined(__svr4__) || defined(__CYGWIN__) || defined(__OS2__) || defined(__GLIBC__) |
1038
b36fb1ae4b53
applied solaris8/netbsd/other fixes patch by J¸«ärgen Keil <jk@tools.de>
arpi_esp
parents:
958
diff
changeset
|
236 tcsetattr(0,TCSANOW,&tio_new); |
15566 | 237 #elif defined(__FreeBSD__) || defined(__OpenBSD__) || defined(__bsdi__) || defined(__APPLE__) || defined(__DragonFly__) |
1038
b36fb1ae4b53
applied solaris8/netbsd/other fixes patch by J¸«ärgen Keil <jk@tools.de>
arpi_esp
parents:
958
diff
changeset
|
238 ioctl(0,TIOCSETA,&tio_new); |
958
162a78d3cc08
FreeBSD support by Vladimir Kushnir vkushnir@Alfacom.net
arpi_esp
parents:
1
diff
changeset
|
239 #else |
1038
b36fb1ae4b53
applied solaris8/netbsd/other fixes patch by J¸«ärgen Keil <jk@tools.de>
arpi_esp
parents:
958
diff
changeset
|
240 ioctl(0,TCSETS,&tio_new); |
958
162a78d3cc08
FreeBSD support by Vladimir Kushnir vkushnir@Alfacom.net
arpi_esp
parents:
1
diff
changeset
|
241 #endif |
3009 | 242 #endif |
1632 | 243 getch2_status=1; |
1 | 244 } |
245 | |
246 void getch2_disable(){ | |
1632 | 247 if(!getch2_status) return; // already disabled / never enabled |
3009 | 248 #ifdef HAVE_TERMIOS |
12063
e11fc0ef72db
The attached patch fixes a minor build problem on GNU/k*BSD: getch2.c should
diego
parents:
9380
diff
changeset
|
249 #if defined(__NetBSD__) || defined(__svr4__) || defined(__CYGWIN__) || defined(__OS2__) || defined(__GLIBC__) |
1038
b36fb1ae4b53
applied solaris8/netbsd/other fixes patch by J¸«ärgen Keil <jk@tools.de>
arpi_esp
parents:
958
diff
changeset
|
250 tcsetattr(0,TCSANOW,&tio_orig); |
15566 | 251 #elif defined(__FreeBSD__) || defined(__OpenBSD__) || defined(__bsdi__) || defined(__APPLE__) || defined(__DragonFly__) |
1038
b36fb1ae4b53
applied solaris8/netbsd/other fixes patch by J¸«ärgen Keil <jk@tools.de>
arpi_esp
parents:
958
diff
changeset
|
252 ioctl(0,TIOCSETA,&tio_orig); |
958
162a78d3cc08
FreeBSD support by Vladimir Kushnir vkushnir@Alfacom.net
arpi_esp
parents:
1
diff
changeset
|
253 #else |
1038
b36fb1ae4b53
applied solaris8/netbsd/other fixes patch by J¸«ärgen Keil <jk@tools.de>
arpi_esp
parents:
958
diff
changeset
|
254 ioctl(0,TCSETS,&tio_orig); |
958
162a78d3cc08
FreeBSD support by Vladimir Kushnir vkushnir@Alfacom.net
arpi_esp
parents:
1
diff
changeset
|
255 #endif |
3009 | 256 #endif |
1632 | 257 getch2_status=0; |
1 | 258 } |
259 |