From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 8 Jul 2015 20:46:52 -0400 Subject: Initial commit --- sys/tty/ttydelay.x | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 sys/tty/ttydelay.x (limited to 'sys/tty/ttydelay.x') diff --git a/sys/tty/ttydelay.x b/sys/tty/ttydelay.x new file mode 100644 index 00000000..7fc6b3d4 --- /dev/null +++ b/sys/tty/ttydelay.x @@ -0,0 +1,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 -- cgit