HP 9000 User Manual page 170

return slashj
}
1*
**************************************************************************
** rtl_termO
**
** description:
** right-to-Ieft terminal
** If right-to-Ieft terminal get primary and secondary status
** and see ghat the mode of order to the terminal is.
**
** assumptions:
** only a hp150 or hp2392 can be a right-to-Ieft terminal
** TERM set to reflect the terminal type.
**
** return value:
** TRUE if right-to-Ieft terminal
** FALSE if not right-to-Ieft terminal
**************************************************************************
*1
static int
rtl_term( term~ode, term_order, term)
nl_mode *term-modej
1*
mode of terminal
*1
nl_order *term-orderj
1*
order of terminal
*1
char **termj
1*
terminal name
*1
{
char buf[MAI_TBUF]j
1*
buffer for terminal information
*1
struct termio tbufj
1*
buffer for termio structure
*1
struct termio tbufsavej
1*
save old info
*1
1*
assume right-to-Ieft terminal is hp150 or hp2392
*1
*term = getenv( "TERM")j
if (strncmp( *term, "hp150", 5) tt strncmp( *term, "hp2392", 6» {
return FALSE j
}
1*
fetch t save current status of terminal driver
*1
if (ioctlC 1, TCGETA, ttbuf) == -1) {
Perror( "ioctl")j
return FALSE j
}
tbufsave = tbufj
1*
turn off echo to prevent status bytes from appearing
on screen
*1
tbuf.c_Iflag t= -ECHOj
Example of Internationalized Software 8·13
B