blob: 0e0dc961ec17a546577030337dae3593ce6217f3 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# CHDEPOSIT -- Deposit a character in a string at the offset OP. Bump OP,
# taking care not to overflow the string.
procedure chdeposit (ch, str, maxch, op)
char ch # character to be deposited
char str[ARB] # output string
int maxch # maxch chars in output string
int op # pointer into output string
begin
str[op] = ch
if (op < maxch)
op = op + 1
end
|
