blob: 36924353b4a9dd0d06efdfb88c9ec3a43143138f (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
*/
#include "ratdef.h"
/* Convert a Ratfor string (one character per integer, terminated
* by an EOS) to a C string (one character per 8-bit byte, terminated
* by a byte of zero).
*/
void r4tocstr(rstr, cstr)
register RCHAR *rstr;
register char *cstr;
{
while (*rstr != REOS) {
if (*rstr > 0177) {
*cstr++ = *((char *)rstr);
rstr++;
} else
*cstr++ = *rstr++;
}
*cstr = '\0';
}
|
