HP 9000 User Manual page 171

8
1*
set status o£ terminal driver with echo o££
*1
i£ (ioctl( 1, TCSETAF, ttbu£)
==
-1) {
Perror( "ioctl");
return FALSE;
}
1*
turn o££ handshaking (G t H straps on)
*1
i£ (£puts( on_straps, stdout)
==
EOF) {
Perror( "£puts");
return FALSE;
}
1*
get alpha-numeric capabilities: ordering is byte 2, bit 4
*1
i£ (£puts( an_cap, stdout)
==
EOF) {
Perror( "£puts");
return FALSE;
}
i£ (! £gets( buI, MAX_TBUF, stdin» {
Perror( "£gets");
return FALSE;
}
*te~order
=
(bu£[D1SPLAY] t ORDER) ? IL_KEY IL_SCREEI;
1*
get secondary status: mode is byte 13, bit 3
*1
i£ (£puts( sec_status, stdout)
==
EOF) {
Perror( "£puts");
return FALSE;
}
i£
(!
£gets( buI, MAX_TBUF, stdin» {
Perror( "£gets");
return FALSE;
}
*te~mode = (bu£[RTL_SEC] t MODE)
?
IL_IOILAT11 IL_LATII;
1*
turn on D1 handshaking (G t H straps o££)
*1
i£ (£puts( o££_straps, stdout)
==
EOF) {
Perror( "£puts");
return FALSE;
}
1*
restore status o£ terminal driver
*1
i£ (ioctl( 1, TCSETAF, ttbu£save)
==
-1) {
Perror( "ioctl");
return FALSE;
}
return TRUE;
}
8-14 Example of Internationalized Software