?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
revert between 56095 -> 55830 in arch
[AROS.git] / workbench / printers / skeleton / skeleton.c
blob238b23bdfe7f6f92b2a140c5ca47f996368940c9
1 /*
2 * Copyright (C) 2012, The AROS Development Team. All rights reserved.
3 * Author: Jason S. McMullan <jason.mcmullan@gmail.com>
4 *
5 * Licensed under the AROS PUBLIC LICENSE (APL) Version 1.1
6 */
7
8 #include <aros/debug.h>
9 #include <aros/printertag.h>
10
11 #include <clib/alib_protos.h>
12 #include <devices/printer.h>
13 #include <devices/prtgfx.h>
14 #include <prefs/printergfx.h>
15 #include <prefs/printertxt.h>
16 #include <exec/rawfmt.h>
17
18 #include <proto/exec.h>
19 #include <proto/graphics.h>
20
21 /* Support binary compatability with AOS */
22 #ifdef __mc68000
23 #undef RAWFMTFUNC_STRING
24 #define RAWFMTFUNC_STRING (VOID (*)())"\x16\xC0\x4E\x75"
25 #endif
26
27 static LONG sk_Init(struct PrinterData *pd);
28 static VOID sk_Expunge(VOID);
29 static LONG sk_Open(union printerIO *ior);
30 static VOID sk_Close(union printerIO *ior);
31
32 static LONG sk_Render(SIPTR ct, LONG x, LONG y, LONG status);
33 static LONG sk_ConvFunc(UBYTE *buf, UBYTE c, LONG crlf_flag);
34 static LONG sk_DoPreferences(union printerIO *ior, LONG command);
35 static VOID sk_CallErrHook(union printerIO *ior, struct Hook *hook);
36 static LONG sk_DoSpecial(UWORD *command, UBYTE output_buffer[],
37 BYTE *current_line_position,
38 BYTE *current_line_spacing,
39 BYTE *crlf_flag, UBYTE params[]);
40
41 static CONST_STRPTR PED_Commands[] = {
42 "\377", /* 0 aRIS (reset) */
43 "\377\377", /* 1 aRIN (initialize) */
44 "\377", /* 2 aIND (linefeed) */
45 "\377", /* 3 aNEL (CR/LF) */
46 "\377", /* 4 aRI (reverse LF) */
47 "\377", /* 5 aSGR0 (Courier) */
48 "\377", /* 6 aSGR3 (italics) */
49 "\377", /* 7 aSGR23 (no italics) */
50 "\377", /* 8 aSGR4 (underline) */
51 "\377", /* 9 aSGR24 (no underline) */
52 "\377", /* 10 aSGR1 (boldface) */
53 "\377", /* 11 aSGR21 (no boldface) */
54 "\377", /* 12 aSFC (set text color) */
55 "\377", /* 13 aSBC (set background color) */
56 "\377", /* 14 aSHORP0 (normal pitch) */
57 "\377", /* 15 aSHORP2 (elite) */
58 "\377", /* 16 aSHORP1 (no elite) */
59 "\377", /* 17 aSHORP4 (condensed) */
60 "\377", /* 18 aSHORP3 (no condensed) */
61 "\377", /* 19 aSHORP6 (enlarge) */
62 "\377", /* 20 aSHORT5 (no enlarge) */
63 "\377", /* 21 aDEN6 (shadow) */
64 "\377", /* 22 aDEN5 (no shadow) */
65 "\377", /* 23 aDEN4 (double strike) */
66 "\377", /* 24 aDEN3 (no double strike) */
67 "\377", /* 25 aDEN2 (NLQ) */
68 "\377", /* 26 aDEN1 (no NLQ) */
69 "\377", /* 27 aSUS2 (superscript) */
70 "\377", /* 28 aSUS1 (no superscript) */
71 "\377", /* 29 aSUS4 (subscript) */
72 "\377", /* 30 aSUS3 (no subscript) */
73 "\377", /* 31 aSUS0 (normal) */
74 "\377", /* 32 aPLU (partial line up) */
75 "\377", /* 33 aPLD (partial line down) */
76 "\377", /* 34 aFNT0 (Courier) */
77 "\377", /* 35 aFNT1 (Helvetica) */
78 "\377", /* 36 aFNT2 (Font 2) */
79 "\377", /* 37 aFNT3 (Font 3) */
80 "\377", /* 38 aFNT4 (Font 4) */
81 "\377", /* 39 aFNT5 (Font 5) */
82 "\377", /* 40 aFNT6 (Font 6) */
83 "\377", /* 41 aFNT7 (Font 7) */
84 "\377", /* 42 aFNT8 (Font 8) */
85 "\377", /* 43 aFNT9 (Font 9) */
86 "\377", /* 44 aFNT10 (Font 10) */
87 "\377", /* 45 aPROP2 (proportional) */
88 "\377", /* 46 aPROP1 (no proportional) */
89 "\377", /* 47 aPROP0 (default proportion) */
90 "\377", /* 48 aTSS (set proportional offset) */
91 "\377", /* 49 aJFY5 (left justify) */
92 "\377", /* 50 aJFY7 (right justify) */
93 "\377", /* 51 aJFY6 (full justify) */
94 "\377", /* 52 aJFY0 (no justify) */
95 "\377", /* 53 aJFY3 (letter space) */
96 "\377", /* 54 aJFY1 (word fill) */
97 "\377", /* 55 aVERP0 (1/8" line spacing) */
98 "\377", /* 56 aVERP1 (1/6" line spacing) */
99 "\377", /* 57 aSLPP (form length) */
100 "\377", /* 58 aPERF (skip n perfs) */
101 "\377", /* 59 aPERF0 (no skip perfs) */
102 "\377", /* 60 aLMS (left margin) */
103 "\377", /* 61 aRMS (right margin) */
104 "\377", /* 62 aTMS (top margin) */
105 "\377", /* 63 aBMS (bot margin) */
106 "\377", /* 64 aSTBM (top & bottom margin) */
107 "\377", /* 65 aSLRM (left & right margin) */
108 "\377", /* 66 aCAM (no margins) */
109 "\377", /* 67 aHTS (horizontal tabs) */
110 "\377", /* 68 aVTS (vertical tabs) */
111 "\377", /* 69 aTBC0 (clear horizontal tab) */
112 "\377", /* 70 aTBC3 (clear all horiz. tabs) */
113 "\377", /* 71 aTBC1 (clear vertical tab) */
114 "\377", /* 72 aTBC4 (clear all vertical tabs) */
115 "\377", /* 73 aTBCALL (clear all tabs) */
116 "\377", /* 74 aTBSALL (default tabs) */
117 "\377", /* 75 aEXTEND (extended chars) */
118 "\377", /* 76 aRAW (next N chars are literal) */
119 };
120
121 static CONST_STRPTR cmdTable[] = {
122 "aRIS", /* 0 */
123 "aRIN", /* 1 */
124 "aIND", /* 2 */
125 "aNEL", /* 3 */
126 "aRI", /* 4 */
127 "aSGR0", /* 5 */
128 "aSGR3", /* 6 */
129 "aSGR23", /* 7 */
130 "aSGR4", /* 8 */
131 "aSGR24", /* 9 */
132 "aSGR1", /* 10 */
133 "aSGR21", /* 11 */
134 "aSFC", /* 12 */
135 "aSBC", /* 13 */
136 "aSHORP0", /* 14 */
137 "aSHORP2", /* 15 */
138 "aSHORP1", /* 16 */
139 "aSHORP4", /* 17 */
140 "aSHORP3", /* 18 */
141 "aSHORP6", /* 19 */
142 "aSHORT5", /* 20 */
143 "aDEN6", /* 21 */
144 "aDEN5", /* 22 */
145 "aDEN4", /* 23 */
146 "aDEN3", /* 24 */
147 "aDEN2", /* 25 */
148 "aDEN1", /* 26 */
149 "aSUS2", /* 27 */
150 "aSUS1", /* 28 */
151 "aSUS4", /* 29 */
152 "aSUS3", /* 30 */
153 "aSUS0", /* 31 */
154 "aPLU", /* 32 */
155 "aPLD", /* 33 */
156 "aFNT0", /* 34 */
157 "aFNT1", /* 35 */
158 "aFNT2", /* 36 */
159 "aFNT3", /* 37 */
160 "aFNT4", /* 38 */
161 "aFNT5", /* 39 */
162 "aFNT6", /* 40 */
163 "aFNT7", /* 41 */
164 "aFNT8", /* 42 */
165 "aFNT9", /* 43 */
166 "aFNT10", /* 44 */
167 "aPROP2", /* 45 */
168 "aPROP1", /* 46 */
169 "aPROP0", /* 47 */
170 "aTSS", /* 48 */
171 "aJFY5", /* 49 */
172 "aJFY7", /* 50 */
173 "aJFY6", /* 51 */
174 "aJFY0", /* 52 */
175 "aJFY3", /* 53 */
176 "aJFY1", /* 54 */
177 "aVERP0", /* 55 */
178 "aVERP1", /* 56 */
179 "aSLPP", /* 57 */
180 "aPERF", /* 58 */
181 "aPERF0", /* 59 */
182 "aLMS", /* 60 */
183 "aRMS", /* 61 */
184 "aTMS", /* 62 */
185 "aBMS", /* 63 */
186 "aSTBM", /* 64 */
187 "aSLRM", /* 65 */
188 "aCAM", /* 66 */
189 "aHTS", /* 67 */
190 "aVTS", /* 68 */
191 "aTBC0", /* 69 */
192 "aTBC3", /* 70 */
193 "aTBC1", /* 71 */
194 "aTBC4", /* 72 */
195 "aTBCALL", /* 73 */
196 "aTBSALL", /* 74 */
197 "aEXTEND", /* 75 */
198 "aRAW", /* 76 */
199 };
200
201 static CONST_STRPTR PED_8BitChars[] = {
202
203 " ", /* SPC (160) */
204 "?", /* ! */
205 "?", /* c */
206 "?", /* £ */
207 "?", /* o */
208 "?", /* Y */
209 "|",
210 "?", /* S */
211 "?",
212 "?", /* Copyright */
213 "?", /* a */
214 "?", /* < */
215 "?", /* - */
216 "?", /* SHY */
217 "?", /* R */
218 "?", /* - */
219 "?", /* o (176) */
220 "?", /* +- */
221 "?", /* 2 */
222 "?", /* 3 */
223 "?",
224 "?", /* u */
225 "?", /* P */
226 "?", /* . */
227 "?", /* , */
228 "?", /* 1 */
229 "?", /* o */
230 "?", /* > */
231 "?", /* 1/4 */
232 "?", /* 1/2 */
233 "?", /* 3/4 */
234 "?", /* ? */
235 "?", /* A' (192) */
236 "?", /* A' */
237 "?", /* A^ */
238 "?", /* A~ */
239 "?", /* A: */
240 "?", /* Ao */
241 "?", /* AE */
242 "?", /* C */
243 "?", /* E' */
244 "?", /* E' */
245 "?", /* E^ */
246 "?", /* E: */
247 "?", /* I' */
248 "?", /* I' */
249 "?", /* I^ */
250 "?", /* I: */
251 "?", /* D- (208) */
252 "?", /* N~ */
253 "?", /* O' */
254 "?", /* O' */
255 "?", /* O^ */
256 "?", /* O~ */
257 "?", /* O: */
258 "?", /* x */
259 "?", /* 0 */
260 "?", /* U' */
261 "?", /* U' */
262 "?", /* U^ */
263 "?", /* U: */
264 "?", /* Y' */
265 "?", /* p */
266 "?", /* B */
267 "?", /* a' (224) */
268 "?", /* a' */
269 "?", /* a^ */
270 "?", /* a~ */
271 "?", /* a: */
272 "?", /* ao */
273 "?", /* ae */
274 "?", /* c */
275 "?", /* e' */
276 "?", /* e' */
277 "?", /* e^ */
278 "?", /* e: */
279 "?", /* i' */
280 "?", /* i' */
281 "?", /* i^ */
282 "?", /* i: */
283 "?", /* o (240) */
284 "?", /* n~ */
285 "?", /* o' */
286 "?", /* o' */
287 "?", /* o^ */
288 "?", /* o~ */
289 "?", /* o: */
290 "?", /* / */
291 "?", /* 0 */
292 "?", /* u' */
293 "?", /* u' */
294 "?", /* u^ */
295 "?", /* u: */
296 "?", /* y' */
297 "?", /* p */
298 "?", /* y: */
299 };
300
301 static struct TagItem PED_TagList[] = {
302 { PRTA_8BitGuns, TRUE }, /* 0 */
303 { PRTA_MixBWColor, TRUE }, /* 1 */
304 { PRTA_LeftBorder, 0 }, /* 2 */
305 { PRTA_TopBorder, 0 }, /* 3 */
306 // { PRTA_ConvertSource, TRUE }, /* 4 */
307 { PRTA_ColorCorrection, TRUE }, /* 5 */
308 { TAG_END }
309 };
310
311 AROS_PRINTER_TAG(PED, 44, 0,
312 .ped_PrinterName = "Skeleton",
313 .ped_Init = sk_Init,
314 .ped_Expunge = sk_Expunge,
315 .ped_Open = sk_Open,
316 .ped_Close = sk_Close,
317
318 /* Settings for a 'graphics only' printer */
319 .ped_PrinterClass = PPC_COLORGFX | PPCF_EXTENDED,
320 .ped_MaxColumns = 0, /* Set during render */
321 .ped_ColorClass = PCC_YMCB | PCC_MULTI_PASS,
322 .ped_NumCharSets = 2,
323 .ped_NumRows = 1, /* minimum pixels/row in gfx mode */
324 .ped_MaxXDots = 0, /* Set during render */
325 .ped_MaxYDots = 0, /* Set during render */
326 .ped_XDotsInch = 0, /* Set during render */
327 .ped_YDotsInch = 0, /* Set during render */
328 .ped_Commands = (STRPTR *)PED_Commands, /* No ANSI commands */
329 .ped_DoSpecial = sk_DoSpecial,
330 .ped_Render = sk_Render,
331 .ped_TimeoutSecs = 1000, /* For print-to-file timeouts */
332 .ped_8BitChars = (STRPTR *)PED_8BitChars,
333 .ped_PrintMode = 1,
334 .ped_ConvFunc = sk_ConvFunc,
335 .ped_TagList = &PED_TagList[0],
336 .ped_DoPreferences = sk_DoPreferences,
337 .ped_CallErrHook = sk_CallErrHook,
338 );
339
340 struct PrinterData *PD;
341 static CONST_STRPTR sk_PaperSize;
342 static LONG sk_PrintBufLen;
343 static LONG sk_SpacingLPI;
344 static LONG sk_FontCPI;
345
346 static LONG sk_Init(struct PrinterData *pd)
347 {
348 D(bug("sk_Init: pd=%p\n", pd));
349 PD = pd;
350 return 0;
351 }
352
353 static VOID sk_Expunge(VOID)
354 {
355 D(bug("sk_Expunge\n"));
356 PD = NULL;
357 }
358
359 static struct {
360 char buff_a[16];
361 char buff_b[16];
362 char *buff;
363 int len;
364 } sk_PState = {
365 .buff = &sk_PState.buff_a[0]
366 };
367
368 #define PFLUSH() do { \
369 PD->pd_PWrite(sk_PState.buff, sk_PState.len); \
370 if (sk_PState.buff == &sk_PState.buff_a[0]) \
371 sk_PState.buff = &sk_PState.buff_b[0]; \
372 else \
373 sk_PState.buff = &sk_PState.buff_a[0]; \
374 sk_PState.len = 0; \
375 } while (0)
376
377
378 static AROS_UFH2(void, sk_PPutC,
379 AROS_UFHA(UBYTE, c, D0),
380 AROS_UFHA(APTR, dummy, A3))
381 {
382 AROS_USERFUNC_INIT
383
384 /* Ignore the trailing 0 that RawDoFmt() tacks on the end */
385 if (c == 0)
386 return;
387
388 sk_PState.buff[sk_PState.len++]=c;
389 if (sk_PState.len >= 16)
390 PFLUSH();
391
392 AROS_USERFUNC_EXIT
393 }
394
395 #define sk_PWrite(fmt, ...) \
396 do { \
397 IPTR args[] = { AROS_PP_VARIADIC_CAST2IPTR(__VA_ARGS__) }; \
398 RawDoFmt(fmt, args, (VOID_FUNC)sk_PPutC, NULL); \
399 PFLUSH(); \
400 } while (0);
401
402 #define sk_VWrite(buf, fmt, ...) \
403 do { \
404 IPTR args[] = { AROS_PP_VARIADIC_CAST2IPTR(__VA_ARGS__) }; \
405 RawDoFmt(fmt, args, RAWFMTFUNC_STRING, buf); \
406 } while (0);
407
408 static LONG sk_Open(union printerIO *ior)
409 {
410 D(bug("sk_Open: ior=%p\n", ior));
411
412 return 0;
413 }
414
415 static VOID sk_Close(union printerIO *ior)
416 {
417 D(bug("sk_Close: ior=%p\n", ior));
418 }
419
420 static LONG sk_RenderInit(struct IODRPReq *io, LONG width, LONG height)
421 {
422 D(bug("sk_RenderInit: Dump raster %ldx%ld pixels, io_RastPort=%p\n", width, height, io->io_RastPort));
423 D(bug("\t@%ldx%ld (%ldx%ld) => @%ldx%ld\n",
424 io->io_SrcX, io->io_SrcY, io->io_SrcWidth,
425 io->io_SrcHeight, io->io_DestCols, io->io_DestRows));
426 LONG alignOffsetX = 0;
427 LONG alignOffsetY = 0;
428 LONG x, y;
429
430 sk_PrintBufLen = width;
431 PD->pd_PrintBuf = AllocMem(sk_PrintBufLen * 6, MEMF_ANY);
432 if (PD->pd_PrintBuf == NULL)
433 return PDERR_BUFFERMEMORY;
434
435 if (PD->pd_Preferences.PrintFlags & PGFF_CENTER_IMAGE) {
436 alignOffsetX = (PED->ped_MaxXDots - width) / 2;
437 alignOffsetY = (PED->ped_MaxYDots - height) / 2;
438 }
439
440 sk_PWrite("[IMAGE]\n");
441
442 return PDERR_NOERR;
443 }
444
445 static LONG sk_RenderTransfer(struct PrtInfo *pi, LONG color, LONG y)
446 {
447 UBYTE *ptr = PD->pd_PrintBuf;
448 union colorEntry *src = pi->pi_ColorInt;
449 int x;
450
451 D(bug("\tSource=%p\n", src));
452
453 sk_PWrite("[Image %ld] ", y);
454 for (x = 0; x < pi->pi_width; x++, src++, ptr++) {
455 *ptr = " ..ccooCCOO@@##"[(src->colorByte[PCMBLACK] >> 4) & 0xf];
456 }
457
458 return PDERR_NOERR;
459 }
460
461 static LONG sk_RenderFlush(LONG rows)
462 {
463 PD->pd_PWrite(PD->pd_PrintBuf, sk_PrintBufLen);
464 PD->pd_PWrite("\n", 1);
465 return PDERR_NOERR;
466 }
467
468 static LONG sk_RenderClear(void)
469 {
470 memset(PD->pd_PrintBuf, ' ', sk_PrintBufLen);
471 return PDERR_NOERR;
472 }
473
474 static LONG sk_RenderPreInit(struct IODRPReq *io, LONG flags)
475 {
476 ULONG dpiX, dpiY;
477 ULONG width, height;
478
479 /* Select DPI */
480 switch (flags & SPECIAL_DENSITYMASK) {
481 case SPECIAL_DENSITY1:
482 dpiX = 72;
483 dpiY = 72;
484 break;
485 case SPECIAL_DENSITY2:
486 dpiX = 10;
487 dpiY = 10;
488 break;
489 case SPECIAL_DENSITY3:
490 dpiX = 120;
491 dpiY = 120;
492 break;
493 case SPECIAL_DENSITY4:
494 dpiX = 150;
495 dpiY = 150;
496 break;
497 case SPECIAL_DENSITY5:
498 dpiX = 300;
499 dpiY = 300;
500 break;
501 case SPECIAL_DENSITY6:
502 dpiX = 600;
503 dpiY = 600;
504 break;
505 case SPECIAL_DENSITY7:
506 dpiX = 1200;
507 dpiY = 1200;
508 break;
509 default:
510 dpiX = 72;
511 dpiY = 72;
512 }
513
514 switch (PD->pd_Preferences.PrintPitch) {
515 case PP_ELITE: sk_FontCPI = 120; break;
516 case PP_FINE: sk_FontCPI = 171; break;
517 case PP_PICA: sk_FontCPI = 100; break;
518 default:
519 return PDERR_BADDIMENSION;
520 }
521
522 switch (PD->pd_Preferences.PrintSpacing) {
523 case PS_SIX_LPI: sk_SpacingLPI = 6; break;
524 case PS_EIGHT_LPI: sk_SpacingLPI = 8; break;
525 default:
526 return PDERR_BADDIMENSION;
527 }
528
529 switch (PD->pd_Preferences.PaperSize) {
530 /* PaperSize (in units of 0.0001 meters) */
531 case US_LETTER: sk_PaperSize = "Letter"; break; /* 8.5"x11" */
532 case US_LEGAL: sk_PaperSize = "Legal"; break; /* 8.5"x14" */
533 case N_TRACTOR: sk_PaperSize = "80-Col"; break; /* 9.5"x11" */
534 case W_TRACTOR: sk_PaperSize = "132-Col"; break; /* 14.86"x11" */
535 /* European sizes */
536 case EURO_A0: sk_PaperSize = "A0"; break; /* A0: 841 x 1189 */
537 case EURO_A1: sk_PaperSize = "A1"; break; /* A1: 594 x 841 */
538 case EURO_A2: sk_PaperSize = "A2"; break; /* A2: 420 x 594 */
539 case EURO_A3: sk_PaperSize = "A3"; break; /* A3: 297 x 420 */
540 case EURO_A4: sk_PaperSize = "A4"; break; /* A4: 210 x 297 */
541 case EURO_A5: sk_PaperSize = "A5"; break; /* A5: 148 x 210 */
542 case EURO_A6: sk_PaperSize = "A6"; break; /* A6: 105 x 148 */
543 case EURO_A7: sk_PaperSize = "A7"; break; /* A7: 74 x 105 */
544 case EURO_A8: sk_PaperSize = "A8"; break; /* A8: 52 x 74 */
545 case CUSTOM: sk_PaperSize = "Custom"; break;
546 default: return PDERR_BADDIMENSION;
547 }
548
549 /* Set up for the page size */
550 switch (PD->pd_Preferences.PaperSize) {
551 /* PaperSize (in units of 0.0001 meters) */
552 case US_LETTER: width = 2159; height = 2794; break; /* 8.5"x11" */
553 case US_LEGAL: width = 2159; height = 3556; break; /* 8.5"x14" */
554 case N_TRACTOR: width = 2413; height = 2794; break; /* 9.5"x11" */
555 case W_TRACTOR: width = 3774; height = 2794; break; /* 14.86"x11" */
556 /* European sizes */
557 case EURO_A0: width = 8410; height = 11890; break; /* A0: 841 x 1189 */
558 case EURO_A1: width = 5940; height = 8410; break; /* A1: 594 x 841 */
559 case EURO_A2: width = 4200; height = 5940; break; /* A2: 420 x 594 */
560 case EURO_A3: width = 2970; height = 4200; break; /* A3: 297 x 420 */
561 case EURO_A4: width = 2100; height = 2970; break; /* A4: 210 x 297 */
562 case EURO_A5: width = 1480; height = 2100; break; /* A5: 148 x 210 */
563 case EURO_A6: width = 1050; height = 1480; break; /* A6: 105 x 148 */
564 case EURO_A7: width = 740; height = 1050; break; /* A7: 74 x 105 */
565 case EURO_A8: width = 520; height = 740; break; /* A8: 52 x 74 */
566 case CUSTOM: width = PD->pd_Preferences.PrintMaxWidth * 254 / 10;
567 height = PD->pd_Preferences.PrintMaxHeight * 254 / 10;
568 break;
569 default: return PDERR_CANCEL;
570 }
571
572 PED->ped_MaxColumns = width * sk_FontCPI / 2540;
573 PED->ped_XDotsInch = dpiX;
574 PED->ped_YDotsInch = dpiY;
575 PED->ped_MaxXDots = width * dpiX / 254;
576 PED->ped_MaxYDots = height * dpiY / 254;
577 D(bug("MaxColumns=%d, dpiX=%d, dpiY=%d, MaxXDots=%d, MaxYDots=%d (%d x %d in)\n",
578 PED->ped_MaxColumns, PED->ped_XDotsInch, PED->ped_YDotsInch,
579 PED->ped_MaxXDots, PED->ped_MaxYDots,
580 PED->ped_MaxXDots / dpiX, PED->ped_MaxYDots / dpiY));
581
582 return PDERR_NOERR;
583 }
584
585 static LONG sk_RenderClose(SIPTR error, ULONG flags)
586 {
587 if (error != PDERR_CANCEL) {
588 /* Send formfeed */
589 if (!(flags & SPECIAL_NOFORMFEED))
590 sk_PWrite("[FF]\n");
591 }
592
593 sk_PWrite("[Close]\n");
594
595 return PDERR_NOERR;
596 }
597
598 static LONG sk_RenderNextColor(void)
599 {
600 return PDERR_NOERR;
601 }
602
603 /* If Tag PRTA_ConvertSource is set, this function is called instead
604 * of the printer.device built-in to convert.
605 *
606 * The size of each entry is either sizeof(union colorEntry), or
607 * Tag PRTA_ColorSize (if set)
608 *
609 * The conversion is done in-place.
610 */
611 static LONG sk_RenderConvert(APTR row, LONG entries, LONG is_pixels)
612 {
613 return PDERR_NOERR;
614 }
615
616 /* If Tag PRTA_ColorCorrection is set, this function is called instead
617 * of the printer.device built-in to correct printer-space colors.
618 *
619 * The size of each entry is either sizeof(union colorEntry), or
620 * Tag PRTA_ColorSize (if set)
621 *
622 * The conversion is done in-place.
623 */
624 static LONG sk_RenderCorrect(APTR row, LONG entries, LONG is_pixels)
625 {
626 return PDERR_NOERR;
627 }
628
629 static LONG sk_Render(SIPTR ct, LONG x, LONG y, LONG status)
630 {
631 LONG err = PDERR_NOERR;
632
633 switch (status) {
634 case PRS_INIT:
635 D(bug("PRS_INIT: IODRPReq=%p, width=%d, height=%d\n", ct, x, y));
636 err = sk_RenderInit((struct IODRPReq *)ct, x, y);
637 break;
638 case PRS_TRANSFER:
639 D(bug("PRS_TRANSFER: PrtInfo=%p, color=%d, row=%d\n", ct, x, y));
640 err = sk_RenderTransfer((struct PrtInfo *)ct, x, y);
641 break;
642 case PRS_FLUSH:
643 D(bug("PRS_FLUSH: ct=%p, x=%d, rows=%d\n", ct, x, y));
644 err = sk_RenderFlush(y);
645 break;
646 case PRS_CLEAR:
647 D(bug("PRS_CLEAR: ct=%p, x=%d, y=%d\n", ct, x, y));
648 err = sk_RenderClear();
649 break;
650 case PRS_CLOSE:
651 D(bug("PRS_CLOSE: error=%d, io_Special=0x%0x, y=%d\n", ct, x, y));
652 err = sk_RenderClose(ct, x);
653 break;
654 case PRS_PREINIT:
655 D(bug("PRS_PREINIT: IODRPReq=%p, io_Special=0x%0x, y=%d\n", ct, x, y));
656 err = sk_RenderPreInit((struct IODRPReq *)ct, x);
657 break;
658 case PRS_NEXTCOLOR:
659 D(bug("PRS_NEXTCOLOR: ct=%p, x=0x%0x, y=%d\n", ct, x, y));
660 err = sk_RenderNextColor();
661 break;
662 case PRS_UNKNOWN:
663 D(bug("PRS_UNKNOWN: ct=%p, x=0x%0x, y=%d\n", ct, x, y));
664 err = PDERR_NOERR;
665 break;
666 case PRS_CONVERT:
667 D(bug("PRS_CONVERT: row=%p, entries=%d, type=%s\n", ct, x, y ? "pixels" : "union colorEntry"));
668 err = sk_RenderConvert((APTR)ct, x, y);
669 break;
670 case PRS_CORRECT:
671 D(bug("PRS_CORRECT: row=%p, entries=%d, type=%s\n", ct, x, y ? "pixels" : "union colorEntry"));
672 err = sk_RenderCorrect((APTR)ct, x, y);
673 break;
674 default:
675 D(bug("PRS_xxxx(%d): ct=%p, x=0x%0x, y=%d\n", status, ct, x, y));
676 break;
677 }
678
679 return err;
680 }
681
682 /* Text output:
683 * > 0 = processed, add N chars
684 * 0 = not handled by DoSpecial
685 * -1 = Unsupported command
686 * -2 = Processed, but no additional chars in the buffer
687 */
688 static LONG sk_DoSpecial(UWORD *command, UBYTE output_buffer[],
689 BYTE *current_line_position,
690 BYTE *current_line_spacing,
691 BYTE *crlf_flag, UBYTE params[])
692 {
693 D(bug("sk_DoSpecial: command=0x%04x, output_buffer=%p, current_line_position=%d, current_line_spacing=%d, crlf_flag=%d, params=%s\n",
694 *command, output_buffer, *current_line_position, *current_line_spacing, *crlf_flag, params));
695
696 sk_VWrite(output_buffer, "[%s %ld,%ld,%ld,%ld]", cmdTable[*command], params[0], params[1], params[2], params[3]);
697
698 return strlen(output_buffer);
699 }
700
701 static LONG sk_ConvFunc(UBYTE *buf, UBYTE c, LONG crlf_flag)
702 {
703 D(bug("sk_ConvFunc: %p '%c' %d\n", buf, c, crlf_flag));
704
705 /* NOTE: For compatability with AOS 3.x, do
706 * not attempt to convert ESC or \377
707 * characters if you want DoSpecial() to work.
708 */
709 if (c == 0x1b || c == 0xff)
710 return -1;
711
712 /* As a demo, we're going to UPPERCASE all characters,
713 * and put a '\' in front of the modified character.
714 */
715 if (c >= 'a' && c <= 'z') {
716 *(buf++) = '\\';
717 *(buf++) = c;
718 return 2;
719 }
720
721 return -1;
722 }
723
724 static LONG sk_DoPreferences(union printerIO *ior, LONG command)
725 {
726 D(bug("sk_DoPreferences: ior=%p, command=%d\n"));
727 return 0;
728 }
729
730 static VOID sk_CallErrHook(union printerIO *ior, struct Hook *hook)
731 {
732 D(bug("sk_CallErrHook: ior=%p, hook=%p\n", ior, hook));
733 }
Mirror of AROS' svn.