blob: ec324af069e458cf106a8159f295538c6be0162a (
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
|
include defs
# getwrd - get non-blank word from in (i) into out, increment i
integer function getwrd (in, i, out)
character in (ARB), out (ARB)
integer i
integer j
while (in (i) == BLANK | in (i) == TAB)
i = i + 1
j = 1
while (in (i) != EOS & in (i) != BLANK
& in (i) != TAB & in (i) != NEWLINE) {
out (j) = in (i)
i = i + 1
j = j + 1
}
out (j) = EOS
getwrd = j - 1
return
end
|
