d/freebsd-skq
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Obtained from: looked at the fix in 1.1.5 and rewrote it

Browse Source 
Fix entabbing.
This commit is contained in:
Bruce Evans 1995-01-17 07:02:31 +00:00
parent 2d2fb1bf6b
commit f746e67c46
1 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
usr.bin/col/col.c
View File

@ -106,8 +106,10 @@ int nblank_lines; /* # blanks after last flushed line */
int no_backspaces; /* if not to output any backspaces */
#define PUTC(ch) \
if (putchar(ch) == EOF) \
wrerr();
do { \
if (putchar(ch) == EOF) \
wrerr(); \
} while (0)
int
main(argc, argv)
@ -432,12 +434,20 @@ flush_line(l)
int nspace = this_col - last_col;
if (compress_spaces && nspace > 1) {
int ntabs;
while (1) {
int tab_col, tab_size;;
ntabs = this_col / 8 - last_col / 8;
nspace -= ntabs * 8;
while (--ntabs >= 0)
PUTC('\t');
tab_col = (last_col + 8) & ~7;
if (tab_col > this_col)
break;
tab_size = tab_col - last_col;
if (tab_size == 1)
PUTC(' ');
else
PUTC('\t');
nspace -= tab_size;
last_col = tab_col;
}
}
while (--nspace >= 0)
PUTC(' ');