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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# STRDETAB -- Procedure to remove tabs from a line of text and replace with
# blanks.
procedure strdetab (line, outline, maxch, tabsize)
int ip, op, maxch, tabsize
char line[ARB], outline [ARB]
begin
op=1
ip=1
while (line[ip] != EOS && op <= maxch) {
if (line[ip] == '\t') {
repeat {
outline[op] = ' '
op = op + 1
} until ((mod (op, tabsize) == 1) || (op > maxch))
ip = ip + 1
} else {
outline[op] = line[ip]
op = op + 1
ip = ip + 1
}
}
outline[op] = EOS
end
# STRENTAB -- Procedure to replace blanks with tabs and blanks.
procedure strentab (line, outline, maxch, tabsize)
int maxch, tabsize
char line[ARB], outline[ARB]
int ip, op, ltab
begin
op = 1
ip = 1
repeat {
ltab = ip
while (line[ltab] == ' ' && op <= maxch) {
ltab = ltab + 1
if (mod(ltab, tabsize) == 1) {
outline[op] = '\t'
ip = ltab
op = op + 1
}
}
for (; ip < ltab && op <= maxch; ip = ip + 1) {
outline[op] = ' '
op = op + 1
}
if (line[ip] == EOS || op >= maxch+1)
break
outline[op] = line[ip]
op = op + 1
ip = ip + 1
} until (line[ip] == EOS || op >= maxch+1)
outline[op] = EOS
end
|
