1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <chars.h>
include "tty.h"
# TTYCLEARLN -- Clear the current line. The cursor is left positioned at the
# left margin. If the clear has to be performed by overwriting the line with
# blanks, the final column is not cleared.
procedure ttyclearln (fd, tty)
int fd
pointer tty
pointer sp, buf
int nchars, ttygets()
errchk salloc, ttygets, putc, ttywrite, fprintf, pargi
begin
call smark (sp)
call salloc (buf, SZ_CTRLSTR, TY_CHAR)
nchars = ttygets (tty, "ce", Memc[buf], SZ_CTRLSTR)
if (nchars > 0) {
call putci (fd, '\r')
call ttywrite (fd, tty, Memc[buf], nchars, 1)
} else {
call fprintf (fd, "\r%*w\r")
call pargi (T_NCOLS(tty) - 1)
}
call sfree (sp)
end
|
