blob: a8d06855d81a17e6487dc6166f279d92f578b0d3 (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <ctype.h>
include <printf.h>
# FMT_SETCOL -- Called when a control character is output, to keep track of
# the column index during output, for the "%nt" (tabulate) format. Columns
# are indexed from the start of the printf, rather than in absolute units on
# the output, unless a \r or \n is output during the print.
procedure fmt_setcol (ch, col)
char ch
int col
begin
switch (ch) {
case '\t': # next tab stop
col = ((col + TABSTOP-1) / TABSTOP) * TABSTOP + 1
case '\n', '\r', '\f':
col = 1
case '\b':
col = col - 1
default:
if (IS_PRINT (ch))
col = col + 1
}
end
|
