blob: f9ab4197952c126fc77e7414f5ec095f929f4ed4 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# CHFETCH -- Return the next character from a string, bump pointer.
char procedure chfetch (str, ip, ch)
char str[ARB], ch
int ip
begin
ch = str[ip]
if (ch != EOS)
ip = ip + 1
return (ch)
end
|
