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
29
30
31
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# ENTAB -- Given a list of files and a list of tabstops, replace sequences
# of blanks in the files by equivalent sequences of tab characters and blanks.
procedure t_entab()
char tablist[SZ_LINE], line[SZ_LINE], outline[SZ_LINE]
char in_fname[SZ_FNAME]
int list, in, nchars
int clpopni(), decode_tablist(), tabs[SZ_LINE], clgfil(), getline()
int gstrentab(), open()
begin
list = clpopni ("files")
call clgstr ("tablist", tablist, SZ_LINE)
if (decode_tablist (tablist, tabs, SZ_LINE) == ERR)
call error (1, "Unable to decode list of tabs.")
while (clgfil (list, in_fname, SZ_FNAME) != EOF) {
in = open (in_fname, READ_ONLY, TEXT_FILE)
while (getline (in, line) != EOF) {
nchars = gstrentab (line, outline, SZ_LINE, tabs)
call putline (STDOUT, outline)
}
call close (in)
}
call clpcls (list)
end
|
