tlaserbar.c - plan9port - [fork] Plan 9 from user space
HTML git clone git://src.adamsgaard.dk/plan9port
DIR Log
DIR Files
DIR Refs
DIR README
DIR LICENSE
---
tlaserbar.c (4499B)
---
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 }