blob: 8892e89d6917ac61e5319aa7518d8de29e9cb45b (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# STRCPY -- Copy string s1 to s2.
procedure strcpy (s1, s2, maxch)
char s1[ARB], s2[ARB]
int maxch, i
begin
do i = 1, maxch {
s2[i] = s1[i]
if (s2[i] == EOS)
return
}
s2[maxch+1] = EOS
end
|
