annotate osdep/getch2-os2.c @ 33771:6e774a02d00c

Remove gtkClearStruct code from mplayer() in interface.c. Move it as static function guiInfoMediumClear() where it is used and rename the symbolic constants used with this code.
author ib
date Sat, 09 Jul 2011 11:48:13 +0000
parents 160052767c65
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
26016
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
1 /*
28924
d5d66bff938a cosmetics: Remove file names from file header, it only causes trouble.
diego
parents: 27393
diff changeset
2 * OS/2 TermIO
26016
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
3 *
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
4 * Copyright (c) 2007 KO Myung-Hun (komh@chollian.net)
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
5 *
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
6 * This file is part of MPlayer.
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
7 *
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
8 * MPlayer is free software; you can redistribute it and/or modify
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
9 * it under the terms of the GNU General Public License as published by
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
10 * the Free Software Foundation; either version 2 of the License, or
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
11 * (at your option) any later version.
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
12 *
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
13 * MPlayer is distributed in the hope that it will be useful,
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
16 * GNU General Public License for more details.
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
17 *
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
18 * You should have received a copy of the GNU General Public License along
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
19 * with MPlayer; if not, write to the Free Software Foundation, Inc.,
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
20 * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
21 */
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
22
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
23 #define INCL_KBD
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
24 #define INCL_VIO
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
25 #define INCL_DOS
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
26 #include <os2.h>
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
27
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
28 #include <stdio.h>
29290
ef46d5a66bb2 Use a malloced string for the get_term_charset return value.
reimar
parents: 28924
diff changeset
29 #include <string.h>
26016
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
30
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
31 #include "config.h"
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
32 #include "keycodes.h"
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
33 #include "input/input.h"
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
34 #include "mp_fifo.h"
31199
160052767c65 getch2-os2.c: Add #include for the header that declares the public functions.
diego
parents: 30633
diff changeset
35 #include "getch2.h"
26016
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
36
27393
4876c89bafdd Rename font-related preprocessor directives.
diego
parents: 27359
diff changeset
37 #if defined(HAVE_LANGINFO) && defined(CONFIG_ICONV)
26016
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
38 #include <locale.h>
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
39 #include <langinfo.h>
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
40 #endif
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
41
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
42 int mp_input_slave_cmd_func( int fd, char *dest, int size )
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
43 {
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
44 PPIB ppib;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
45 CHAR szPipeName[ 100 ];
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
46 HFILE hpipe;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
47 ULONG ulAction;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
48 ULONG cbActual;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
49 ULONG rc;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
50
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
51 DosGetInfoBlocks( NULL, &ppib );
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
52
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
53 sprintf( szPipeName, "\\PIPE\\MPLAYER\\%lx", ppib->pib_ulpid );
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
54
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
55 rc = DosOpen( szPipeName, &hpipe, &ulAction, 0, FILE_NORMAL,
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
56 OPEN_ACTION_OPEN_IF_EXISTS,
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
57 OPEN_SHARE_DENYREADWRITE | OPEN_ACCESS_READWRITE,
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
58 NULL );
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
59 if( rc )
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
60 return MP_INPUT_NOTHING;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
61
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
62 rc = DosRead( hpipe, dest, size, &cbActual );
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
63 if( rc )
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
64 return MP_INPUT_NOTHING;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
65
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
66 rc = cbActual;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
67
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
68 // Send ACK
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
69 DosWrite( hpipe, &rc, sizeof( ULONG ), &cbActual );
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
70
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
71 DosClose( hpipe );
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
72
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
73 return rc;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
74 }
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
75
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
76
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
77 int screen_width = 80;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
78 int screen_height = 24;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
79 char *erase_to_end_of_line = NULL;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
80
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
81 void get_screen_size( void )
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
82 {
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
83 VIOMODEINFO vmi;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
84
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
85 vmi.cb = sizeof( VIOMODEINFO );
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
86
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
87 VioGetMode( &vmi, 0 );
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
88
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
89 screen_width = vmi.col;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
90 screen_height = vmi.row;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
91 }
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
92
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
93 static int getch2_status = 0;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
94
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
95 static int getch2_internal( void )
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
96 {
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
97 KBDKEYINFO kki;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
98
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
99 if( !getch2_status )
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
100 return -1;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
101
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
102 if( KbdCharIn( &kki, IO_NOWAIT, 0 ))
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
103 return -1;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
104
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
105 // key pressed ?
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
106 if( kki.fbStatus )
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
107 {
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
108 // extended key ?
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
109 if(( kki.chChar == 0x00 ) || ( kki.chChar == 0xE0 ))
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
110 {
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
111 switch( kki.chScan )
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
112 {
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
113 case 0x4B : // Left
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
114 return KEY_LEFT;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
115
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
116 case 0x48 : // Up
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
117 return KEY_UP;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
118
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
119 case 0x4D : // Right
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
120 return KEY_RIGHT;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
121
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
122 case 0x50 : // Down
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
123 return KEY_DOWN;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
124
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
125 case 0x53 : // Delete
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
126 return KEY_DELETE;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
127
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
128 case 0x52 : // Insert
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
129 return KEY_INSERT;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
130
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
131 case 0x47 : // Home
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
132 return KEY_HOME;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
133
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
134 case 0x4F : // End
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
135 return KEY_END;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
136
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
137 case 0x49 : // Page Up
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
138 return KEY_PAGE_UP;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
139
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
140 case 0x51 : // Page Down
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
141 return KEY_PAGE_DOWN;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
142 }
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
143 }
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
144 else
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
145 {
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
146 switch( kki.chChar )
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
147 {
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
148 case 0x08 : // Backspace
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
149 return KEY_BS;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
150
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
151 case 0x1B : // Esc
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
152 return KEY_ESC;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
153
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
154 case 0x0D : // Enter
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
155 // Keypad Enter ?
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
156 if( kki.chScan == 0xE0 )
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
157 return KEY_KPENTER;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
158 break;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
159 }
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
160
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
161 return kki.chChar;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
162 }
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
163 }
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
164
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
165 return -1;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
166 }
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
167
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
168 void getch2( void )
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
169 {
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
170 int key;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
171
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
172 key = getch2_internal();
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
173 if( key != -1 )
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
174 mplayer_put_key( key );
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
175 }
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
176
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
177 void getch2_enable( void )
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
178 {
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
179 getch2_status = 1;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
180 }
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
181
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
182 void getch2_disable( void )
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
183 {
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
184 getch2_status = 0;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
185 }
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
186
27393
4876c89bafdd Rename font-related preprocessor directives.
diego
parents: 27359
diff changeset
187 #ifdef CONFIG_ICONV
26016
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
188 char *get_term_charset( void )
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
189 {
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
190 char *charset = NULL;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
191
27359
d788e177a35e Rename some preprocessor directives from CONFIG_* to HAVE_* where appropriate;
diego
parents: 27341
diff changeset
192 #ifdef HAVE_LANGINFO
26016
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
193 setlocale( LC_CTYPE, "");
29290
ef46d5a66bb2 Use a malloced string for the get_term_charset return value.
reimar
parents: 28924
diff changeset
194 charset = strdup( nl_langinfo( CODESET ));
26016
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
195 setlocale( LC_CTYPE, "C");
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
196 #endif
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
197
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
198 return charset;
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
199 }
528bdf17dd8a OS/2 getch2() support
diego
parents:
diff changeset
200 #endif