blob: 97bd1bc168ebcec1825a6ccf48a8f84b064deb42 (
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
|
/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
*/
#define import_spp
#define import_knames
#include <iraf.h>
/* STRUPK -- Unpack a kernel (C style) string into an SPP string. The unpacking
* operation can be performed in place. A kernel string consists of a sequence
* of host characters stored one character per byte, delimited by EOS='\0'.
* We assume here that the host character set is ASCII. If this is not the
* case code must be added to convert from the host character set to ASCII in
* the unpacked string.
*
* N.B.: If sizeof(XCHAR)=1, XEOS=EOS, and the host character set is ASCII,
* and the operation is being performed in place, then this procedure should
* do nothing.
*/
STRUPK (instr, outstr, maxch)
PKCHAR *instr;
XCHAR *outstr;
XINT *maxch;
{
register char *ip = (char *)instr;
register XCHAR *op = outstr;
register int n;
/* Is is necessary to determine the length of the string in order to
* be able to unpack the string in place, i.e., from right to left.
*/
for (n=0; *ip++; n++)
;
n = (n < *maxch) ? n : *maxch;
op[n] = XEOS;
for (ip = (char *)instr; --n >= 0; )
op[n] = ip[n];
op[*maxch] = XEOS;
}
|
