blob: ac96f50e102aaf75a231acf65a3cc432b009d152 (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <ctype.h>
define SZ_CCSTR 5
# PUTCC -- Put a character to a file. This procedure is identical to PUTC,
# except that nonprintable characters are rendered as escape sequences.
procedure putcc (fd, ch)
int fd
char ch
char ccstr[SZ_CCSTR]
int ip, n, ctocc()
begin
if (IS_PRINT (ch))
call putc (fd, ch)
else {
n = ctocc (ch, ccstr, SZ_CCSTR)
do ip = 1, n
call putc (fd, ccstr[ip])
}
end
|
