Mercurial > hg > xemacs-beta

comparison src/console-tty.c @ 280:7df0dd720c89 r21-0b38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b38
author cvs
date Mon, 13 Aug 2007 10:32:22 +0200
parents c5d627a313b1
children 8626e4521993
comparison
equal deleted inserted replaced
279:c20b2fb5bb0a 280:7df0dd720c89
214 XSETCONSOLE (console, decode_console (console)); 214 XSETCONSOLE (console, decode_console (console));
215 CHECK_TTY_CONSOLE (console); 215 CHECK_TTY_CONSOLE (console);
216 return XCONSOLE (console); 216 return XCONSOLE (console);
217 } 217 }
218 218
219 DEFUN ("console-tty-terminal-type", Fconsole_tty_terminal_type, 0, 1, 0, /* 219 DEFUN ("console-tty-terminal-type", Fconsole_tty_terminal_type,
220 0, 1, 0, /*
220 Return the terminal type of TTY console CONSOLE. 221 Return the terminal type of TTY console CONSOLE.
221 */ 222 */
222 (console)) 223 (console))
223 { 224 {
224 return CONSOLE_TTY_DATA (decode_tty_console (console))->terminal_type; 225 return CONSOLE_TTY_DATA (decode_tty_console (console))->terminal_type;
225 } 226 }
226 227
227 DEFUN ("console-tty-controlling-process", 228 DEFUN ("console-tty-controlling-process", Fconsole_tty_controlling_process,
228 Fconsole_tty_controlling_process, 0, 1, 0, /* 229 0, 1, 0, /*
229 Return the controlling process of tty console CONSOLE. 230 Return the controlling process of tty console CONSOLE.
230 */ 231 */
231 (console)) 232 (console))
232 { 233 {
233 return CONSOLE_TTY_DATA (decode_tty_console (console))->controlling_process; 234 return CONSOLE_TTY_DATA (decode_tty_console (console))->controlling_process;
234 } 235 }
235 236
236 #ifdef MULE 237 #ifdef MULE
237 238
238 DEFUN ("console-tty-input-coding-system", 239 DEFUN ("console-tty-input-coding-system", Fconsole_tty_input_coding_system,
239 Fconsole_tty_input_coding_system, 0, 1, 0, /* 240 0, 1, 0, /*
240 Return the input coding system of tty console CONSOLE. 241 Return the input coding system of tty console CONSOLE.
241 */ 242 */
242 (console)) 243 (console))
243 { 244 {
244 return decoding_stream_coding_system 245 return decoding_stream_coding_system
245 (XLSTREAM (CONSOLE_TTY_DATA (decode_tty_console (console))->instream)); 246 (XLSTREAM (CONSOLE_TTY_DATA (decode_tty_console (console))->instream));
246 } 247 }
247 248
248 DEFUN ("set-console-tty-input-coding-system", 249 DEFUN ("set-console-tty-input-coding-system", Fset_console_tty_input_coding_system,
249 Fset_console_tty_input_coding_system, 0, 2, 0, /* 250 0, 2, 0, /*
250 Set the input coding system of tty console CONSOLE to CODESYS. 251 Set the input coding system of tty console CONSOLE to CODESYS.
251 CONSOLE defaults to the selected console. 252 CONSOLE defaults to the selected console.
252 CODESYS defaults to the value of `keyboard-coding-system'. 253 CODESYS defaults to the value of `keyboard-coding-system'.
253 */ 254 */
254 (console, codesys)) 255 (console, codesys))
257 (XLSTREAM (CONSOLE_TTY_DATA (decode_tty_console (console))->instream), 258 (XLSTREAM (CONSOLE_TTY_DATA (decode_tty_console (console))->instream),
258 Fget_coding_system (NILP (codesys) ? Vkeyboard_coding_system : codesys)); 259 Fget_coding_system (NILP (codesys) ? Vkeyboard_coding_system : codesys));
259 return Qnil; 260 return Qnil;
260 } 261 }
261 262
262 DEFUN ("console-tty-output-coding-system", 263 DEFUN ("console-tty-output-coding-system", Fconsole_tty_output_coding_system,
263 Fconsole_tty_output_coding_system, 0, 1, 0, /* 264 0, 1, 0, /*
264 Return TTY CONSOLE's output coding system. 265 Return TTY CONSOLE's output coding system.
265 */ 266 */
266 (console)) 267 (console))
267 { 268 {
268 return encoding_stream_coding_system 269 return encoding_stream_coding_system
269 (XLSTREAM (CONSOLE_TTY_DATA (decode_tty_console (console))->outstream)); 270 (XLSTREAM (CONSOLE_TTY_DATA (decode_tty_console (console))->outstream));
270 } 271 }
271 272
272 DEFUN ("set-console-tty-output-coding-system", 273 DEFUN ("set-console-tty-output-coding-system", Fset_console_tty_output_coding_system,
273 Fset_console_tty_output_coding_system, 0, 2, 0, /* 274 0, 2, 0, /*
274 Set the coding system of tty output of console CONSOLE to CODESYS. 275 Set the coding system of tty output of console CONSOLE to CODESYS.
275 CONSOLE defaults to the selected console. 276 CONSOLE defaults to the selected console.
276 CODESYS defaults to the value of `terminal-coding-system'. 277 CODESYS defaults to the value of `terminal-coding-system'.
277 */ 278 */
278 (console, codesys)) 279 (console, codesys))
282 Fget_coding_system (NILP (codesys) ? Vterminal_coding_system : codesys)); 283 Fget_coding_system (NILP (codesys) ? Vterminal_coding_system : codesys));
283 return Qnil; 284 return Qnil;
284 } 285 }
285 286
286 /* ### Move this function to lisp */ 287 /* ### Move this function to lisp */
287 DEFUN ("set-console-tty-coding-system", 288 DEFUN ("set-console-tty-coding-system", Fset_console_tty_coding_system,
288 Fset_console_tty_coding_system, 0, 2, 0, /* 289 0, 2, 0, /*
289 Set the input and output coding systems of tty console CONSOLE to CODESYS. 290 Set the input and output coding systems of tty console CONSOLE to CODESYS.
290 CONSOLE defaults to the selected console. 291 CONSOLE defaults to the selected console.
291 If CODESYS is nil, the values of `keyboard-coding-system' and 292 If CODESYS is nil, the values of `keyboard-coding-system' and
292 `terminal-coding-system' will be used for the input and 293 `terminal-coding-system' will be used for the input and
293 output coding systems of CONSOLE. 294 output coding systems of CONSOLE.