procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(speeds): Make it ints. Add some higher speeds.

Browse source 
(tputs) [emacs]: If speed is high, convert to smaller units.
(tputs): Really use SPEED to calculate PADCOUNT.
This commit is contained in:
Richard M. Stallman 1995-02-14 07:43:44 +00:00
parent b87c5d3d05
commit 0c0b6c7911
1 changed files with 12 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
src/termcap.c
View file

@ -267,14 +267,14 @@ char PC;
/* Actual baud rate if positive;
- baud rate / 100 if negative. */
static short speeds[] =
static int speeds[] =
{
#ifdef VMS
0, 50, 75, 110, 134, 150, -3, -6, -12, -18,
-20, -24, -36, -48, -72, -96, -192
#else /* not VMS */
0, 50, 75, 110, 135, 150, -2, -3, -6, -12,
-18, -24, -48, -96, -192, -384
-18, -24, -48, -96, -192, -288, -384, -576, -1152
#endif /* not VMS */
};
@ -290,6 +290,10 @@ tputs (str, nlines, outfun)
#ifdef emacs
extern baud_rate;
speed = baud_rate;
/* For quite high speeds, convert to the smaller
units to avoid overflow. */
if (speed > 10000)
speed = - speed / 100;
#else
if (ospeed == 0)
speed = tputs_baud_rate;
@ -318,11 +322,14 @@ tputs (str, nlines, outfun)
while (*str)
(*outfun) (*str++);
/* padcount is now in units of tenths of msec. */
padcount *= speeds[ospeed];
/* PADCOUNT is now in units of tenths of msec.
SPEED is mesured in characters per 10 seconds
or in characters per .1 seconds (if negative).
We use the smaller units for larger speeds to avoid overflow. */
padcount *= speed;
padcount += 500;
padcount /= 1000;
if (speeds[ospeed] < 0)
if (speed < 0)
padcount = -padcount;
else
{