blob: 23e302139b0a7599d6b797a09de5b4539641940a (
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
40
41
42
43
|
/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
*/
#include "ratdef.h"
void REMARK (strarg)
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);
}
|
