1 /* laserbar -- filter to print barcodes on postscript printer */
2 
3 #define MAIN 1
4 
5 #define	LABEL	01
6 #define	NFLAG	02
7 #define	SFLAG	04
8 
9 #include <stdio.h>
10 #include <ctype.h>
11 
12 static int code39[256] = {
13 	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
14 	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
15 /*	sp    !     "     #     $     %     &     '	*/
16 	0304, 0,    0,    0,    0250, 0052, 0,    0,   
17 /*	(     )     *     +     ,     -     -     /	*/
18 	0,    0,    0224, 0212, 0,    0205, 0604, 0242,
19 /*	0     1     2     3     4     5     6     7	*/
20 	0064, 0441, 0141, 0540, 0061, 0460, 0160, 0045,
21 /*	8     9     :     ;     <     =     >     ?	*/
22 	0444, 0144, 0,    0,    0,    0,    0,    0,   
23 /*	@     A     B     C     D     E     F     G	*/
24 	0,    0411, 0111, 0510, 0031, 0430, 0130, 0015,
25 /*	H     I     J     K     L     M     N     O	*/
26 	0414, 0114, 0034, 0403, 0103, 0502, 0023, 0422,
27 /*	P     Q     R     S     T     U     V     W	*/
28 	0122, 0007, 0406, 0106, 0026, 0601, 0301, 0700,
29 /*	X     Y     Z     [     \     ]     ^     _	*/
30 	0221, 0620, 0320, 0,    0,    0,    0,    0,
31 /*	`     a     b     c     d     e     f     g	*/
32 	0,    0411, 0111, 0510, 0031, 0430, 0130, 0015,
33 /*	h     i     j     k     l     m     n     o	*/
34 	0414, 0114, 0034, 0403, 0103, 0502, 0023, 0422,
35 /*	p     q     r     s     t     u     v     w	*/
36 	0122, 0007, 0406, 0106, 0026, 0601, 0301, 0700,
37 /*	x     y     z     {     |     }     ~     del	*/
38 	0221, 0620, 0320, 0,    0,    0,    0,    0,
39 	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
40 	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
41 	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
42 	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
43 	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
44 	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
45 	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
46 	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
47 };
48 
49 static void barprt();
50 void laserbar();
51 
52 #ifdef MAIN
53 
54 main(argc, argv)
55 char **argv;
56 {
57 	int c, flags = 0, error = 0;
58 	double rotate = 0, xoffset = 0, yoffset = 0, xscale = 1, yscale = 1;
59 	extern char *optarg;
60 	extern int optind;
61 	extern double atof();
62 	extern void exit();
63 
64 	while ((c = getopt(argc, argv, "r:x:y:X:Y:lns")) != EOF) {
65 		switch(c) {
66 		    case 'r':
67 			rotate = atof(optarg);
68 			break;
69 		    case 'x':
70 			xoffset = atof(optarg);
71 			break;
72 		    case 'y':
73 			yoffset = atof(optarg);
74 			break;
75 		    case 'X':
76 			xscale = atof(optarg);
77 			break;
78 		    case 'Y':
79 			yscale = atof(optarg);
80 			break;
81 		    case 'l':
82 			flags |= LABEL;
83 			break;
84 		    case 'n':
85 			flags |= NFLAG;
86 			break;
87 		    case 's':
88 			flags |= SFLAG;
89 			break;
90 		    case '?':
91 			++error;
92 		}
93 	}
94 	if ((argc - optind) != 1)
95 		++error;
96 	if (error) {
97 		(void) fprintf(stderr,
98 "Usage: %s [-r rotate] [-x xoffset] [-y yoffset] [-X xscale] [-Y yscale] [-lns] string\n",
99 		    *argv);
100 		exit(1);
101 	}
102 	laserbar(stdout, argv[optind], rotate, xoffset, yoffset, xscale, yscale, flags);
103 	return 0;
104 }
105 
106 #endif /*MAIN*/
107 
108 static int right = 0;
109 
110 void
111 laserbar(fp, str, rotate, xoffset, yoffset, xscale, yscale, flags)
112 FILE *fp;
113 char *str;
114 double rotate, xoffset, yoffset, xscale, yscale;
115 int flags;
116 {
117 	xoffset *= 72.;
118 	yoffset *= 72.;
119 	(void) fprintf(fp, "gsave %s\n", (flags & NFLAG) ? "newpath" : "");
120 	if (xoffset || yoffset)
121 		(void) fprintf(fp, "%f %f moveto\n", xoffset, yoffset);
122 	if (xscale != 1 || yscale != 1)
123 		(void) fprintf(fp, "%f %f scale\n", xscale, yscale);
124 	if (rotate)
125 		(void) fprintf(fp, "%f rotate\n", rotate);
126 	(void) fputs("/Helvetica findfont 16 scalefont setfont\n", fp);
127 	(void) fputs("/w { 0 rmoveto gsave 3 setlinewidth 0 -72 rlineto stroke grestore } def\n", fp);
128 	(void) fputs("/n { 0 rmoveto gsave 1 setlinewidth 0 -72 rlineto stroke grestore } def\n", fp);
129 	(void) fputs("/l { gsave 2 -88 rmoveto show grestore } def\n", fp);
130 	barprt(fp, '*', 0);
131 	while (*str)
132 		barprt(fp, *(str++), (flags & LABEL));
133 	barprt(fp, '*', 0);
134 	(void) fprintf(fp, "%sgrestore\n", (flags & SFLAG) ? "showpage " : "");
135 	right = 0;
136 }
137 
138 static void
139 barprt(fp, c, label)
140 FILE *fp;
141 int c, label;
142 {
143 	int i, mask, bar, wide;
144 
145 	if (!(i = code39[c]))
146 		return;
147 	if (islower(c))
148 		c = toupper(c);
149 	if (label)
150 		(void) fprintf(fp, "(%c) l", c);
151 	else
152 		(void) fputs("     ", fp);
153 	for (bar = 1, mask = 0400; mask; bar = 1 - bar, mask >>= 1) {
154 		wide = mask & i;
155 		if (bar) {
156 			if (wide)
157 				++right;
158 			(void) fprintf(fp, " %d %s", right, wide ? "w" : "n");
159 			right = (wide ? 2 : 1);
160 		}
161 		else
162 			right += (wide ? 3 : 1);
163 	}
164 	(void) fputs("\n", fp);
165 	++right;
166 }