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
40
41
42
43
44
45
|
/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
*/
#include "ratdef.h"
void
REMARK (
int *strarg /* hollerith string is an integer array */
)
{
register char *strin = (char *)strarg;
register char c;
while (((c = *strin++) != '.') && (c != '\0'))
if (c == '@') {
switch (*strin) {
case '.':
putc ('.', stderr);
strin++;
break;
case 't':
putc ('\t', stderr);
strin++;
break;
case 'b':
putc ('\b', stderr);
strin++;
break;
case 'n':
putc ('\n', stderr);
strin++;
break;
default:
putc ('@', stderr);
break;
}
} else
putc (c, stderr);
putc ('\n', stderr);
}
|
