workbench/printers/skeleton/skeleton.c

   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 }