blob: 3b9a22ba00a7958ec1cd4b5a4050f3fdc3195ea1 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
include defs
# ctoc --- convert EOS-terminated string to EOS-terminated string
integer function ctoc (from, to, len)
integer len
character from (ARB), to (len)
integer i
for (i = 1; i < len & from (i) != EOS; i = i + 1)
to (i) = from (i)
to (i) = EOS
return (i - 1)
end
|
