blob: 7fc6b3d40a5916f509a7da092916c9b1451e7063 (
plain) (
blame)
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "tty.h"
# TTYDELAY -- Output a sequence of pad characters to create a delay, giving
# the terminal time to complete some operation before being passed the next
# request.
procedure ttydelay (fd, tty, delay)
int fd # output file
pointer tty # tty descriptor
int delay # desired milliseconds of delay
int padchar, npadchars
real msec_per_char
int and()
begin
# Add padding if needed to generate delay. (8 = nbits per char,
# baud is in units of bits per second).
if (delay > 0 && T_BAUD(tty) > 0) {
padchar = and (T_PADCHAR(tty), 177B)
msec_per_char = real(8 * 1000) / real(T_BAUD(tty))
npadchars = int (delay / msec_per_char + 0.5)
for (; npadchars > 0; npadchars = npadchars - 1)
call putci (fd, padchar)
}
end
|
