Mercurial > hg > xemacs-beta

comparison src/console-tty.c @ 255:084402c475ba r20-5b26

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b26
author cvs
date Mon, 13 Aug 2007 10:21:18 +0200
parents e45d5e7c476e
children 11cf20601dec
comparison
equal deleted inserted replaced
254:e92abcaa252b 255:084402c475ba
224 (console)) 224 (console))
225 { 225 {
226 return CONSOLE_TTY_DATA (decode_tty_console (console))->controlling_process; 226 return CONSOLE_TTY_DATA (decode_tty_console (console))->controlling_process;
227 } 227 }
228 228
229 #ifdef MULE
230 DEFUN ("set-console-tty-coding-system", Fset_console_tty_coding_system, 0, 2, 0, /*
231 Set the coding system of tty console CONSOLE to CODESYS.
232 CONSOLE defaults to the selected console.
233 CODESYS defaults to the value of `terminal-coding-system'.
234 */
235 (console, codesys))
236 {
237 struct console *con = decode_tty_console (console);
238 codesys = NILP (codesys) ?
239 Vterminal_coding_system :
240 Fget_coding_system (codesys);
241 set_encoding_stream_coding_system (XLSTREAM (CONSOLE_TTY_DATA (con)->outstream),
242 codesys);
243 return Qnil;
244 }
245 #endif /* MULE */
246
247
248 /* redefine coding system for console tty */
249 #ifdef MULE
250 DEFUN ("console-tty-input-coding-system", Fconsole_tty_input_coding_system, 1, 1, 0, /*
251 Return TTY CONSOLE's input coding system.
252 */
253 (console))
254 {
255 struct console *con = decode_tty_console (console);
256 return decoding_stream_coding_system (XLSTREAM (CONSOLE_TTY_DATA (con)->instream));
257 }
258
259 DEFUN ("set-console-tty-input-coding-system", Fset_console_tty_input_coding_system, 0, 2, 0, /*
260 Set the coding system of tty input of console CONSOLE to CODESYS.
261 CONSOLE defaults to the selected console.
262 CODESYS defaults to the value of `keyboard-coding-system'.
263 */
264 (console, codesys))
265 {
266 struct console *con;
267 if (!NILP(console)) {
268 con = decode_tty_console (console);
269 codesys = NILP (codesys) ?
270 Vkeyboard_coding_system :
271 Fget_coding_system (codesys);
272 set_encoding_stream_coding_system (XLSTREAM (CONSOLE_TTY_DATA (con)->instream),
273 codesys);
274 }
275 return Qnil;
276 }
277
278 DEFUN ("console-tty-output-coding-system", Fconsole_tty_output_coding_system, 1, 1, 0, /*
279 Return TTY CONSOLE's output coding system.
280 */
281 (console))
282 {
283 struct console *con = decode_tty_console (console);
284 return encoding_stream_coding_system (XLSTREAM (CONSOLE_TTY_DATA (con)->outstream) );
285 }
286
287 DEFUN ("set-console-tty-output-coding-system", Fset_console_tty_output_coding_system, 0, 2, 0, /*
288 Set the coding system of tty output of console CONSOLE to CODESYS.
289 CONSOLE defaults to the selected console.
290 CODESYS defaults to the value of `terminal-coding-system'.
291 */
292 (console, codesys))
293 {
294 struct console *con;
295 if (!NILP(console)) {
296 con = decode_tty_console (console);
297 codesys = NILP (codesys) ?
298 Vterminal_coding_system :
299 Fget_coding_system (codesys);
300 set_encoding_stream_coding_system (XLSTREAM (CONSOLE_TTY_DATA (con)->outstream),
301 codesys);
302 }
303 return Qnil;
304 }
305
306 #endif /* MULE */
307
308
229 Lisp_Object 309 Lisp_Object
230 tty_semi_canonicalize_console_connection (Lisp_Object connection, 310 tty_semi_canonicalize_console_connection (Lisp_Object connection,
231 Error_behavior errb) 311 Error_behavior errb)
232 { 312 {
233 return stream_semi_canonicalize_console_connection (connection, errb); 313 return stream_semi_canonicalize_console_connection (connection, errb);
264 { 344 {
265 DEFSUBR (Fconsole_tty_terminal_type); 345 DEFSUBR (Fconsole_tty_terminal_type);
266 DEFSUBR (Fconsole_tty_controlling_process); 346 DEFSUBR (Fconsole_tty_controlling_process);
267 defsymbol (&Qterminal_type, "terminal-type"); 347 defsymbol (&Qterminal_type, "terminal-type");
268 defsymbol (&Qcontrolling_process, "controlling-process"); 348 defsymbol (&Qcontrolling_process, "controlling-process");
349 #ifdef MULE
350 DEFSUBR (Fconsole_tty_output_coding_system);
351 DEFSUBR (Fset_console_tty_output_coding_system);
352 DEFSUBR (Fconsole_tty_input_coding_system);
353 DEFSUBR (Fset_console_tty_input_coding_system);
354 DEFSUBR (Fset_console_tty_coding_system);
355 #endif
269 } 356 }
270 357
271 void 358 void
272 console_type_create_tty (void) 359 console_type_create_tty (void)
273 { 360 {