meta/lib4014/label.c

#ifndef lint
static const char       RCSid[] = "$Id: label.c,v 1.1 2003/02/22 02:07:26 greg Exp $";
#endif

#include "local4014.h"
#include "lib4014.h"

#define N 0104
#define E 0101
#define NE 0105
#define S 0110
#define W 0102
#define SW 0112
/*      arrange by incremental plotting that an initial
 *      character such as +, X, *, etc will fall
 *      right on the point, and undo it so that further
 *      labels will fall properly in place
 */
char lbl_mv[] = {
        036,040,S,S,S,S,S,S,SW,SW,SW,SW,SW,SW,SW,SW,SW,SW,037,0
};
char lbl_umv[] = {
        036,040,N,N,N,N,N,N,NE,NE,NE,NE,NE,NE,NE,NE,NE,NE,037,0
};

extern void
label(
        char *s
)
{
        register int i,c;
        for(i=0; (c=lbl_mv[i]); i++)
                putch(c);
        for(i=0; (c=s[i]); i++)
                putch(c);
        for(i=0; (c=lbl_umv[i]); i++)
                putch(c);
}
Revision:	1.2
Committed:	Sat Nov 15 02:13:37 2003 UTC (20 years, 7 months ago) by schorsch
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rad3R6P1, rad3R6
Changes since 1.1:	+13 -10 lines
Log Message:	Continued ANSIfication, and reduced other compile warnings.
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2	schorsch	1.2	static const char RCSid[] = "$Id: label.c,v 1.1 2003/02/22 02:07:26 greg Exp $";
3	greg	1.1	#endif
4	schorsch	1.2
5			#include "local4014.h"
6			#include "lib4014.h"
7	greg	1.1
8			#define N 0104
9			#define E 0101
10			#define NE 0105
11			#define S 0110
12			#define W 0102
13			#define SW 0112
14			/* arrange by incremental plotting that an initial
15			* character such as +, X, *, etc will fall
16			* right on the point, and undo it so that further
17			* labels will fall properly in place
18			*/
19			char lbl_mv[] = {
20			036,040,S,S,S,S,S,S,SW,SW,SW,SW,SW,SW,SW,SW,SW,SW,037,0
21			};
22			char lbl_umv[] = {
23			036,040,N,N,N,N,N,N,NE,NE,NE,NE,NE,NE,NE,NE,NE,NE,037,0
24			};
25	schorsch	1.2
26			extern void
27			label(
28			char *s
29			)
30	greg	1.1	{
31	schorsch	1.2	register int i,c;
32			for(i=0; (c=lbl_mv[i]); i++)
33	greg	1.1	putch(c);
34	schorsch	1.2	for(i=0; (c=s[i]); i++)
35	greg	1.1	putch(c);
36	schorsch	1.2	for(i=0; (c=lbl_umv[i]); i++)
37	greg	1.1	putch(c);
38			}