blob: 1087ca028dd476ab55477e3dd3ff56e624802ddc (
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
29
30
31
32
33
34
35
36
37
38
39
40
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <ctype.h>
# IDB_FILSTR -- Filter a string, removing any tabs or control characters.
# This is used to clean up strings we want to put in image headers. A count
# of the output, filtered string is returned as the function value. Tabs or
# newlines in the input are replaced by blanks. Illegal or unprintable
# control characters in the input are deleted.
int procedure idb_filstr (s1, s2, maxch)
char s1[ARB] #I input string
char s2[ARB] #O output string
int maxch #I max chars out
int op, ch, i
begin
op = 1
do i = 1, ARB {
ch = s1[i]
if (ch == EOS)
break
else if (ch == '\t' || ch == '\n')
ch = ' '
else if (!IS_PRINT (ch))
next
s2[op] = ch
op = op + 1
if (op > maxch)
break
}
s2[op] = EOS
return (op - 1)
end
|
