workbench/printers/postscript.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 <clib/alib_protos.h>
  10 #include <devices/printer.h>
  11 #include <devices/prtgfx.h>
  12
  13 #include <proto/graphics.h>
  14
  15 #include "printers_intern.h"
  16
  17 static struct Library *GfxBase;
  18
  19 static VOID ps_Init(struct PrinterData *pd);
  20 static VOID ps_Expunge(VOID);
  21 static LONG ps_Open(union printerIO *ior);
  22 static VOID ps_Close(union printerIO *ior);
  23
  24 static LONG ps_Render(SIPTR ct, LONG x, LONG y, LONG status);
  25 static LONG ps_ConvFunc(UBYTE *buf, UBYTE c, LONG crlf_flag);
  26 static LONG ps_DoPreferences(union printerIO *ior, LONG command);
  27 static VOID ps_CallErrHook(union printerIO *ior, struct Hook *hook);
  28 static LONG ps_DoSpecial(UWORD *command, UBYTE output_buffer[],
  29                          BYTE *current_line_position,
  30                          BYTE *current_line_spacing,
  31                          BYTE *crlf_flag, UBYTE params[]);
  32
  33 static struct TagItem PED_TagList[] = {
  34     { PRTA_8BitGuns, TRUE },            /* 0 */
  35     { PRTA_NewColor, TRUE },            /* 1 */
  36     { PRTA_ColorSize, 3 },              /* 2 */
  37     { PRTA_NoScaling, TRUE },           /* 3 */
  38     { PRTA_MixBWColor, FALSE },         /* 4 */
  39     { PRTA_LeftBorder, 0 },             /* 5 */
  40     { PRTA_TopBorder,  0 },             /* 6 */
  41     { TAG_END }
  42 };
  43
  44 static CONST_STRPTR PED_Commands[] = {
  45     "\377",                             /*  0 aRIS   (reset) */
  46     "",                                 /*  1 aRIN   (initialize) */
  47     "\n",                               /*  2 aIND   (linefeed) */
  48     "\r\n",                             /*  3 aNEL   (CR/LF) */
  49     "\377",                             /*  4 aRI    (reverse LF) */
  50     "\377",                             /*  5 aSGR0  (Courier) */
  51     "\377",                             /*  6 aSGR3  (italics) */
  52     "\377",                             /*  7 aSGR23 (no italics) */
  53     "\377",                             /*  8 aSGR4  (underline) */
  54     "\377",                             /*  9 aSGR24 (no underline) */
  55     "\377",                             /* 10 aSGR1  (boldface) */
  56     "\377",                             /* 11 aSGR21 (no boldface) */
  57     "\377",                             /* 12 aSFC   (set text color) */
  58     "\377",                             /* 13 aSBC   (set background color) */
  59     "\377",                             /* 14 aSHORP0 (normal pitch) */
  60     "\377",                             /* 15 aSHORP2 (elite) */
  61     "\377",                             /* 16 aSHORP1 (no elite) */
  62     "\377",                             /* 17 aSHORP4 (condensed) */
  63     "\377",                             /* 18 aSHORP3 (no condensed) */
  64     "\377",                             /* 19 aSHORP6 (enlarge) */
  65     "\377",                             /* 20 aSHORT5 (no enlarge) */
  66     "\377",                             /* 21 aDEN6   (shadow) */
  67     "\377",                             /* 22 aDEN5   (no shadow) */
  68     "\377",                             /* 23 aDEN4   (double strike) */
  69     "\377",                             /* 24 aDEN3   (no double strike) */
  70     "\377",                             /* 25 aDEN2   (NLQ) */
  71     "\377",                             /* 26 aDEN1   (no NLQ) */
  72     "\377",                             /* 27 aSUS2   (superscript) */
  73     "\377",                             /* 28 aSUS1   (no superscript) */
  74     "\377",                             /* 29 aSUS4   (subscript) */
  75     "\377",                             /* 30 aSUS3   (no subscript) */
  76     "\377",                             /* 31 aSUS0   (normal) */
  77     "\377",                             /* 32 aPLU    (partial line up) */
  78     "\377",                             /* 33 aPLD    (partial line down) */
  79     "\377",                             /* 34 aFNT0   (Courier) */
  80     "\377",                             /* 35 aFNT1   (Helvetica) */
  81     "\377",                             /* 36 aFNT2   (Font 2) */
  82     "\377",                             /* 37 aFNT3   (Font 3) */
  83     "\377",                             /* 38 aFNT4   (Font 4) */
  84     "\377",                             /* 39 aFNT5   (Font 5) */
  85     "\377",                             /* 40 aFNT6   (Font 6) */
  86     "\377",                             /* 41 aFNT7   (Font 7) */
  87     "\377",                             /* 42 aFNT8   (Font 8) */
  88     "\377",                             /* 43 aFNT9   (Font 9) */
  89     "\377",                             /* 44 aFNT10  (Font 10) */
  90     "\377",                             /* 45 aPROP2  (proportional) */
  91     "\377",                             /* 46 aPROP1  (no proportional) */
  92     "\377",                             /* 47 aPROP0  (default proportion) */
  93     "\377",                             /* 48 aTSS    (set proportional offset) */
  94     "\377",                             /* 49 aJFY5   (left justify) */
  95     "\377",                             /* 50 aJFY7   (right justify) */
  96     "\377",                             /* 51 aJFY6   (full justify) */
  97     "\377",                             /* 52 aJFY0   (no justify) */
  98     "\377",                             /* 53 aJFY3   (letter space) */
  99     "\377",                             /* 54 aJFY1   (word fill) */
 100     "\377",                             /* 55 aVERP0  (1/8" line spacing) */
 101     "\377",                             /* 56 aVERP1  (1/6" line spacing) */
 102     "\377",                             /* 57 aSLPP   (form length) */
 103     "\377",                             /* 58 aPERF   (skip n perfs) */
 104     "\377",                             /* 59 aPERF0  (no skip perfs) */
 105     "\377",                             /* 60 aLMS    (left margin) */
 106     "\377",                             /* 61 aRMS    (right margin) */
 107     "\377",                             /* 62 aTMS    (top margin) */
 108     "\377",                             /* 63 aBMS    (bot margin) */
 109     "\377",                             /* 64 aSTBM   (top & bottom margin) */
 110     "\377",                             /* 65 aSLRM   (left & right margin) */
 111     "\377",                             /* 66 aCAM    (no margins) */
 112     "\377",                             /* 67 aHTS    (horizontal tabs) */
 113     "\377",                             /* 68 aVTS    (vertical tabs) */
 114     "\377",                             /* 69 aTBC0   (clear horizontal tab) */
 115     "\377",                             /* 70 aTBC3   (clear all horiz. tabs) */
 116     "\377",                             /* 71 aTBC1   (clear vertical tab) */
 117     "\377",                             /* 72 aTBC4   (clear all vertical tabs) */
 118     "\377",                             /* 73 aTBCALL (clear all tabs) */
 119     "\377",                             /* 74 aTBSALL (default tabs) */
 120     "\377",                             /* 75 aEXTEND (extended chars) */
 121     "\377",                             /* 76 aRAW    (next N chars are literal) */
 122 };
 123
 124 static CONST_STRPTR PED_8BitChars[] = {
 125
 126           " ", /* SPC (160) */
 127           "?", /* ! */
 128           "?", /* c */
 129           "?", /* £ */
 130           "?", /* o */
 131           "?", /* Y */
 132           "|",
 133           "?", /* S */
 134           "?",
 135           "?", /* Copyright */
 136           "?", /* a */
 137           "?", /* < */
 138           "?", /* - */
 139           "?", /* SHY */
 140           "?", /* R */
 141           "?", /* - */
 142           "?", /* o (176) */
 143           "?", /* +- */
 144           "?", /* 2 */
 145           "?", /* 3 */
 146           "?",
 147           "?", /* u */
 148           "?", /* P */
 149           "?", /* . */
 150           "?", /* , */
 151           "?", /* 1 */
 152           "?", /* o */
 153           "?", /* > */
 154           "?", /* 1/4 */
 155           "?", /* 1/2 */
 156           "?", /* 3/4 */
 157           "?", /* ? */
 158           "?", /* A' (192) */
 159           "?", /* A' */
 160           "?", /* A^ */
 161           "?", /* A~ */
 162           "?", /* A: */
 163           "?", /* Ao */
 164           "?", /* AE */
 165           "?", /* C */
 166           "?", /* E' */
 167           "?", /* E' */
 168           "?", /* E^ */
 169           "?", /* E: */
 170           "?", /* I' */
 171           "?", /* I' */
 172           "?", /* I^ */
 173           "?", /* I: */
 174           "?", /* D- (208) */
 175           "?", /* N~ */
 176           "?", /* O' */
 177           "?", /* O' */
 178           "?", /* O^ */
 179           "?", /* O~ */
 180           "?", /* O: */
 181           "?", /* x  */
 182           "?", /* 0  */
 183           "?", /* U' */
 184           "?", /* U' */
 185           "?", /* U^ */
 186           "?", /* U: */
 187           "?", /* Y' */
 188           "?", /* p  */
 189           "?", /* B  */
 190           "?", /* a' (224) */
 191           "?", /* a' */
 192           "?", /* a^ */
 193           "?", /* a~ */
 194           "?", /* a: */
 195           "?", /* ao */
 196           "?", /* ae */
 197           "?", /* c */
 198           "?", /* e' */
 199           "?", /* e' */
 200           "?", /* e^ */
 201           "?", /* e: */
 202           "?", /* i' */
 203           "?", /* i' */
 204           "?", /* i^ */
 205           "?", /* i: */
 206           "?", /* o (240) */
 207           "?", /* n~ */
 208           "?", /* o' */
 209           "?", /* o' */
 210           "?", /* o^ */
 211           "?", /* o~ */
 212           "?", /* o: */
 213           "?", /* /  */
 214           "?", /* 0  */
 215           "?", /* u' */
 216           "?", /* u' */
 217           "?", /* u^ */
 218           "?", /* u: */
 219           "?", /* y' */
 220           "?", /* p  */
 221           "?", /* y: */
 222 };
 223
 224 PRINTER_TAG(PED, 44, 0,
 225         .ped_PrinterName = "PostScript",
 226         .ped_Init = ps_Init,
 227         .ped_Expunge = ps_Expunge,
 228         .ped_Open = ps_Open,
 229         .ped_Close = ps_Close,
 230
 231         /* Settings for a 'graphics only' printer */
 232         .ped_PrinterClass = PPC_COLORGFX | PPCF_EXTENDED,
 233         .ped_MaxColumns = 0,    /* Set during render */
 234         .ped_ColorClass = PCC_BGR,
 235         .ped_NumCharSets = 2,
 236         .ped_NumRows = 1,
 237         .ped_MaxXDots = 0,       /* Set during render */
 238         .ped_MaxYDots = 0,       /* Set during render */
 239         .ped_XDotsInch = 0,      /* Set during render */
 240         .ped_YDotsInch = 0,      /* Set during render */
 241         .ped_Commands = (STRPTR *)PED_Commands, /* No ANSI commands */
 242         .ped_DoSpecial = ps_DoSpecial,
 243         .ped_Render = ps_Render,
 244         .ped_TimeoutSecs = 1000, /* For print-to-file timeouts */
 245         .ped_8BitChars = (STRPTR *)PED_8BitChars,
 246         .ped_PrintMode = 1,
 247         .ped_ConvFunc = ps_ConvFunc,
 248         .ped_TagList = &PED_TagList[0],
 249         .ped_DoPreferences = ps_DoPreferences,
 250         .ped_CallErrHook = ps_CallErrHook,
 251 );
 252
 253 struct PrinterData *PD;
 254
 255 static VOID ps_Init(struct PrinterData *pd)
 256 {
 257     D(bug("ps_Init: pd=%p\n", pd));
 258     PD = pd;
 259     GfxBase = OpenLibrary("graphics.library", 0);
 260 }
 261
 262 static VOID ps_Expunge(VOID)
 263 {
 264     D(bug("ps_Expunge\n"));
 265     PD = NULL;
 266     CloseLibrary(GfxBase);
 267 }
 268
 269 static void PWrite(const char *format, ...)
 270 {
 271     va_list args;
 272     char state = 0;
 273     int len = 0;
 274     LONG lval = 0;
 275     static char buff_a[16];
 276     static char buff_b[16];
 277     static char *buff = &buff_a[0];
 278
 279 #define PFLUSH() do { \
 280         PD->pd_PWrite(buff, len); \
 281         if (buff == &buff_a[0]) \
 282             buff = &buff_b[0]; \
 283         else \
 284             buff = &buff_a[0]; \
 285         len = 0; \
 286       } while (0)
 287
 288 #define PUTC(c) do { \
 289     buff[len++]=c; \
 290     if (len >= 16) PFLUSH(); \
 291   } while (0)
 292
 293     va_start(args, format);
 294
 295     for (; *format; format++) {
 296         switch (state) {
 297         case 0:
 298             if (*format == '%') {
 299                 state = '%';
 300             } else {
 301                 PUTC(*format);
 302             }
 303             break;
 304         case '%':
 305             switch (*format) {
 306             case 'd':
 307                 lval = va_arg(args, LONG);
 308                 if (lval == 0)
 309                     PUTC('0');
 310                 else {
 311                     BYTE out[10];
 312                     int olen = 0;
 313                     if (lval < 0) {
 314                         PUTC('-');
 315                         lval = -lval;
 316                     }
 317                     do {
 318                         out[olen++] = lval % 10;
 319                         lval /= 10;
 320                     } while (lval > 0);
 321                     while (olen--) {
 322                         PUTC(out[olen] + '0');
 323                     }
 324                 }
 325                 break;
 326             case '%':
 327                 PUTC('%');
 328                 break;
 329             default:
 330                 PUTC('?');
 331                 break;
 332             }
 333             state = 0;
 334             break;
 335         default:
 336             state = 0;
 337             break;
 338         }
 339     }
 340
 341     va_end(args);
 342
 343     PFLUSH();
 344 }
 345
 346 static BOOL ps_HeaderSent;
 347
 348 static void ps_SendHeader(void)
 349 {
 350     const TEXT header[] =
 351         "%%!PS-Adobe-2.0\n"
 352         "/Courier findfont 12 scalefont setfont\n"
 353         "5 %d moveto gsave\n"
 354         "(\\\n";
 355
 356     if (!ps_HeaderSent) {
 357         PWrite(header, PED->ped_MaxYDots * 72 / PED->ped_YDotsInch - 36);
 358         ps_HeaderSent = TRUE;
 359     }
 360 }
 361
 362
 363 static LONG ps_Open(union printerIO *ior)
 364 {
 365     D(bug("ps_Open: ior=%p\n", ior));
 366
 367     ps_HeaderSent = FALSE;
 368
 369     return 0;
 370 }
 371
 372 static VOID ps_Close(union printerIO *ior)
 373 {
 374     if (ps_HeaderSent)
 375         PWrite(") show showpage grestore\n");
 376     D(bug("ps_Close: ior=%p\n", ior));
 377 }
 378
 379 VOID color_get(struct ColorMap *cm,
 380                 UBYTE *r,
 381                 UBYTE *g,
 382                 UBYTE *b,
 383                 ULONG index)
 384 {
 385     UWORD hibits = ((UWORD *)cm->ColorTable)[index];
 386
 387     ULONG red8   = (hibits & 0x0f00) >> 4;
 388     ULONG green8 = (hibits & 0x00f0);
 389     ULONG blue8  = (hibits & 0x000f) << 4;
 390
 391     if (cm->Type > COLORMAP_TYPE_V1_2) {
 392         UWORD lobits = ((UWORD *)cm->LowColorBits)[index];
 393
 394         red8   |= (lobits & 0x0f00) >> 8;
 395         green8 |= (lobits & 0x00f0) >> 4;
 396         blue8  |= (lobits & 0x000f);
 397     }
 398
 399     *r = red8;
 400     *g = green8;
 401     *b = blue8;
 402 }
 403
 404 static LONG ps_PrintBufLen;
 405
 406 static LONG ps_RenderInit(struct IODRPReq *io, LONG x, LONG y)
 407 {
 408     D(bug("ps_RenderInit: Dump raster %dx%d pixels, io_RastPort=%p\n", x, y, io->io_RastPort));
 409     D(bug("\t@%dx%d (%dx%d) => @%dx%d\n",
 410            io->io_SrcX, io->io_SrcY, io->io_SrcWidth,
 411            io->io_SrcHeight, io->io_DestCols, io->io_DestRows));
 412
 413     ps_SendHeader();
 414
 415     ps_PrintBufLen = io->io_SrcWidth;
 416     PD->pd_PrintBuf = AllocMem(ps_PrintBufLen * 6, MEMF_ANY);
 417     if (PD->pd_PrintBuf == NULL)
 418         return PDERR_BUFFERMEMORY;
 419
 420     /* Write a postscript colorimage */
 421     PWrite(") show grestore gsave\n");
 422     PWrite("%d %d translate\n", PD->pd_Preferences.PrintXOffset * PED->ped_XDotsInch / 10 +
 423                                 (PED->ped_MaxXDots - x) / 2,
 424                                 (PED->ped_MaxYDots - y) / 2);
 425     PWrite("%d %d scale\n", x, y);
 426     PWrite("%d %d 8 [%d 0 0 %d 0 %d]\n",
 427             io->io_SrcWidth, io->io_SrcHeight,
 428             io->io_SrcWidth, -io->io_SrcHeight, io->io_SrcHeight);
 429     PWrite("{<\n");
 430
 431     return PDERR_NOERR;
 432 }
 433
 434 static UBYTE tohex(UBYTE val)
 435 {
 436     val &= 0xf;
 437     return (val < 10) ? ('0' + val) : ('a' + val - 10);
 438 }
 439
 440 static LONG ps_RenderTransfer(struct PrtInfo *pi, LONG x, LONG y)
 441 {
 442     UBYTE *ptr = PD->pd_PrintBuf;
 443     UBYTE *src = (UBYTE *)pi->pi_ColorInt;
 444     ptr += (2 * x);
 445
 446     for (x = 0; x < ps_PrintBufLen; x++, src += 3, ptr += 6) {
 447         int i;
 448         for (i = 0; i < 3; i++) {
 449             ptr[i*2+0] = tohex(src[2-i]>>4);
 450             ptr[i*2+1] = tohex(src[2-i]>>0);
 451         }
 452     }
 453
 454     return PDERR_NOERR;
 455 }
 456
 457 static LONG ps_RenderFlush(LONG rows)
 458 {
 459     PD->pd_PWrite(PD->pd_PrintBuf, ps_PrintBufLen * 6);
 460     PD->pd_PWrite("\n", 1);
 461     return PDERR_NOERR;
 462 }
 463
 464 static LONG ps_RenderClear(void)
 465 {
 466     memset(PD->pd_PrintBuf, '0', ps_PrintBufLen * 6);
 467     return PDERR_NOERR;
 468 }
 469
 470 static LONG ps_RenderPreInit(struct IODRPReq *io, LONG flags)
 471 {
 472     ULONG dpiX = 0, dpiY = 0;
 473     ULONG width, height;
 474
 475     /* Select DPI */
 476     switch (flags & SPECIAL_DENSITYMASK) {
 477     case SPECIAL_DENSITY1:
 478         dpiX = 72;
 479         dpiY = 72;
 480         break;
 481     case SPECIAL_DENSITY2:
 482         dpiX = 100;
 483         dpiY = 100;
 484         break;
 485     case SPECIAL_DENSITY3:
 486         dpiX = 120;
 487         dpiY = 120;
 488         break;
 489     case SPECIAL_DENSITY4:
 490         dpiX = 150;
 491         dpiY = 150;
 492         break;
 493     case SPECIAL_DENSITY5:
 494         dpiX = 300;
 495         dpiY = 300;
 496         break;
 497     case SPECIAL_DENSITY6:
 498         dpiX = 600;
 499         dpiY = 600;
 500         break;
 501     case SPECIAL_DENSITY7:
 502         dpiX = 1200;
 503         dpiY = 1200;
 504         break;
 505     }
 506
 507     /* Set up for the page size */
 508     switch (PD->pd_Preferences.PaperSize) {
 509 /* PaperSize (in um) */
 510     case US_LETTER: width = 2159; height = 2794; break;   /* 8.5"x11" */
 511     case US_LEGAL:  width = 2159; height = 3556; break;   /* 8.5"x14" */
 512     case N_TRACTOR: width = 2413; height = 2794; break;   /* 9.5"x11" */
 513     case W_TRACTOR: width = 3774; height = 2794; break;   /* 14.86"x11" */
 514 /* European sizes */
 515     case EURO_A0:   width = 8410; height = 11890; break;  /* A0: 841 x 1189 */
 516     case EURO_A1:   width = 5940; height =  8410; break;  /* A1: 594 x 841  */
 517     case EURO_A2:   width = 4200; height =  5940; break;  /* A2: 420 x 594  */
 518     case EURO_A3:   width = 2970; height =  4200; break;  /* A3: 297 x 420  */
 519     case EURO_A4:   width = 2100; height =  2970; break;  /* A4: 210 x 297  */
 520     case EURO_A5:   width = 1480; height =  2100; break;  /* A5: 148 x 210  */
 521     case EURO_A6:   width = 1050; height =  1480; break;  /* A6: 105 x 148  */
 522     case EURO_A7:   width =  740; height =  1050; break;  /* A7: 74 x 105   */
 523     case EURO_A8:   width =  520; height =   740; break;  /* A8: 52 x 74    */
 524     case CUSTOM:    width  = PD->pd_Preferences.PrintMaxWidth * 254 / 10;
 525                     height = PD->pd_Preferences.PrintMaxHeight * 254 / 10;
 526                     break;
 527     default:        return PDERR_CANCEL;
 528     }
 529
 530     PED->ped_MaxColumns = width * 10 / 254;
 531     PED->ped_XDotsInch = dpiX;
 532     PED->ped_YDotsInch = dpiY;
 533     PED->ped_MaxXDots = width * dpiX / 254;
 534     PED->ped_MaxYDots = height * dpiY / 254;
 535
 536     return PDERR_NOERR;
 537 }
 538
 539 static LONG ps_RenderClose(struct IODRPReq *io, ULONG flags)
 540 {
 541     if (ps_PrintBufLen) {
 542         PWrite(">}\nfalse 3 colorimage\n");
 543         PWrite("grestore (\n");
 544         FreeMem(PD->pd_PrintBuf, ps_PrintBufLen * 6);
 545         PD->pd_PrintBuf=NULL;
 546         ps_PrintBufLen=0;
 547     }
 548
 549     return PDERR_NOERR;
 550 }
 551
 552
 553 static LONG ps_Render(SIPTR ct, LONG x, LONG y, LONG status)
 554 {
 555     LONG err = PDERR_NOERR;
 556
 557     switch (status) {
 558     case PRS_INIT:
 559         D(bug("PRS_INIT: ct=%p, x=%d, y=%d\n", ct, x, y));
 560         err = ps_RenderInit((struct IODRPReq *)ct, x, y);
 561         break;
 562     case PRS_TRANSFER:
 563         D(bug("PRS_TRANSFER: ct=%p, x=%d, y=%d\n", ct, x, y));
 564         err = ps_RenderTransfer((struct PrtInfo *)ct, x, y);
 565         break;
 566     case PRS_FLUSH:
 567         D(bug("PRS_FLUSH: ct=%p, x=%d, y=%d\n", ct, x, y));
 568         err = ps_RenderFlush(y);
 569         break;
 570     case PRS_CLEAR:
 571         D(bug("PRS_CLEAR: ct=%p, x=%d, y=%d\n", ct, x, y));
 572         err = ps_RenderClear();
 573         break;
 574     case PRS_CLOSE:
 575         D(bug("PRS_CLOSE: ct=%p, x=0x%0x, y=%d\n", ct, x, y));
 576         err = ps_RenderClose((struct IODRPReq *)ct, x);
 577         break;
 578     case PRS_PREINIT:
 579         D(bug("PRS_PREINIT: ct=%p, x=0x%0x, y=%d\n", ct, x, y));
 580         err = ps_RenderPreInit((struct IODRPReq *)ct, x);
 581         break;
 582     case PRS_CONVERT:
 583         D(bug("PRS_CONVERT: ct=%p, x=0x%0x, y=%d\n", ct, x, y));
 584         err = PDERR_NOERR;
 585         break;
 586     case PRS_CORRECT:
 587         D(bug("PRS_CORRECT: ct=%p, x=0x%0x, y=%d\n", ct, x, y));
 588         err = PDERR_NOERR;
 589         break;
 590     default:
 591         D(bug("PRS_xxxx(%d): ct=%p, x=0x%0x, y=%d\n", status, ct, x, y));
 592         err = PDERR_CANCEL;
 593         break;
 594     }
 595
 596     return err;
 597 }
 598
 599 /* Text output */
 600 static LONG ps_DoSpecial(UWORD *command, UBYTE output_buffer[],
 601                          BYTE *current_line_position,
 602                          BYTE *current_line_spacing,
 603                          BYTE *crlf_flag, UBYTE params[])
 604 {
 605     D(bug("ps_DoSpecial: command=0x%04x, output_buffer=%p, current_line_position=%d, current_line_spacing=%d, crlf_flag=%d, params=%s\n",
 606                 *command, output_buffer,  *current_line_position, *current_line_spacing, *crlf_flag, params));
 607
 608     if (*command == aRIN) {
 609         ps_SendHeader();
 610     }
 611
 612     if (*command == aRIS) {
 613         PD->pd_PWaitEnabled = '\375';
 614     }
 615
 616     if (*command == aIND) {
 617         strcpy(output_buffer, "\\\n) show\n"
 618                 /* Get current point => x=5, y=currentline */
 619                     "currentpoint exch pop 5 exch moveto\n"
 620                     "(\\\n");
 621         return strlen(output_buffer);
 622     }
 623
 624     if (*command == aNEL) {
 625         strcpy(output_buffer, "\\\n) show\n"
 626                 /* Get current point => x=5, y=currentline-11 */
 627                     "currentpoint exch pop 5 exch 11 sub moveto\n"
 628                     "(\\\n");
 629         return strlen(output_buffer);
 630     }
 631
 632
 633     return -1;
 634 }
 635
 636 static LONG ps_ConvFunc(UBYTE *buf, UBYTE c, LONG crlf_flag)
 637 {
 638     D(bug("ps_ConvFunc: %p '%c' %d\n", buf, c, crlf_flag));
 639
 640     if (c < 0x1f || c > 0x7f)
 641         return -1;
 642
 643     if (c == '(' || c == ')') {
 644         *(buf++) = '\\';
 645         *(buf++) = c;
 646         *(buf++) = 0;
 647         return 2;
 648     }
 649
 650     if (c >= ' ' && c < 127) {
 651         *(buf++) = c;
 652         *(buf++) = 0;
 653         return 1;
 654     }
 655
 656     *(buf++) = '\\';
 657     *(buf++) = ((c >> 6) & 7) + '0';
 658     *(buf++) = ((c >> 3) & 7) + '0';
 659     *(buf++) = ((c >> 0) & 7) + '0';
 660     *(buf++) = 0;
 661     return 4;
 662 }
 663
 664 static LONG ps_DoPreferences(union printerIO *ior, LONG command)
 665 {
 666     D(bug("ps_DoPreferences: ior=%p, command=%d\n"));
 667     return 0;
 668 }
 669
 670 static VOID ps_CallErrHook(union printerIO *ior, struct Hook *hook)
 671 {
 672     D(bug("ps_CallErrHook: ior=%p, hook=%p\n", ior, hook));
 673 }