blob: 1123e2ac502879bb25b44715641d93ab414df9dd (
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
c STRUPK -- Unpack a kernel (C style) string into an SPP string. The unpacking
c operation can be performed in place. A kernel string consists of a sequence
c of host characters stored one character per byte, delimited by EOS='\0'.
c We assume here that the host character set is ASCII. If this is not the
c case code must be added to convert from the host character set to ASCII in
c the unpacked string.
c
c N.B.: If sizeof(XCHAR)=1, XEOS=EOS, and the host character set is ASCII,
c and the operation is being performed in place, then this procedure should
c do nothing.
c
c N.B.: This code ASSUMES that XCHAR is implemented as INTEGER*2 and that
c both XEOS and EOS are 0.
subroutine strupk (instr, outstr, maxch)
character*1 instr(*)
integer*2 outstr(*)
integer maxch, EOS
parameter (EOS=0)
integer i
c Determine length of string so that we can unpack it in the reverse
c direction.
i = 1
10 continue
if (ichar (instr(i)) .eq. EOS .or. i .gt. maxch) goto 20
i = i + 1
goto 10
20 continue
c Unpack the string from right to left.
c
outstr(i) = EOS
do 30 i=i, 1, -1
outstr(i) = ichar (instr(i))
30 continue
end
|
