blob: 968bfebdd437b8f2be95fc67e76a62db995c2e54 (
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
|
#-h- sdupl 374 local 12/01/80 15:55:03
# sdupl --- duplicate a string in dynamic storage space
include defs
pointer function sdupl (str)
character str (ARB)
DS_DECL(mem, MEMSIZE)
integer i
integer length
pointer j
pointer dsget
j = dsget (length (str) + 1)
sdupl = j
for (i = 1; str (i) != EOS; i = i + 1) {
mem (j) = str (i)
j = j + 1
}
mem (j) = EOS
return
end
|
