selphy_print/backend_mitsup95d.c

820 lines
19 KiB
C

/*
* Mitsubishi P93D/P95D Monochrome Thermal Photo Printer CUPS backend
*
* (c) 2016-2018 Solomon Peachy <pizza@shaftnet.org>
*
* Development of this backend was sponsored by:
*
* A benefactor who wishes to remain anonymous
*
* The latest version of this program can be found at:
*
* http://git.shaftnet.org/cgit/selphy_print.git
*
* This program is free software; you can redistribute it and/or modify it
* under the terms of the GNU General Public License as published by the Free
* Software Foundation; either version 3 of the License, or (at your option)
* any later version.
*
* This program is distributed in the hope that it will be useful, but
* WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
* or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
* for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*
* [http://www.gnu.org/licenses/gpl-3.0.html]
*
* SPDX-License-Identifier: GPL-3.0+
*
*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <signal.h>
#define BACKEND mitsup95d_backend
#include "backend_common.h"
#define USB_VID_MITSU 0x06D3
#define USB_PID_MITSU_P93D 0x0398
#define USB_PID_MITSU_P95D 0x3b10
/* Private data structure */
struct mitsup95d_printjob {
uint8_t *databuf;
uint32_t datalen;
uint8_t hdr[2]; // 1b 51
uint8_t hdr1[50]; // 1b 57 20 2e ...
uint8_t hdr2[50]; // 1b 57 21 2e ...
uint8_t hdr3[50]; // 1b 57 22 2e ...
uint8_t hdr4[42]; // 1b 58 ...
int hdr4_len; // 36 (P95) or 42 (P93)
uint8_t plane[12]; // 1b 5a 74 00 ...
uint8_t mem_clr[4]; // 1b 5a 43 00
int mem_clr_present;
uint8_t ftr[2];
};
struct mitsup95d_ctx {
struct libusb_device_handle *dev;
uint8_t endp_up;
uint8_t endp_down;
int type;
struct marker marker;
};
#define QUERYRESP_SIZE_MAX 9
static const char *mitsup93d_errors(uint8_t code)
{
switch (code) {
case 0x6f: return "Door Open";
case 0x50: return "No Paper";
default: return "Unknown Error";
}
}
static const char *mitsup95d_errors(uint8_t code)
{
switch (code & 0xf) {
case 3: return "Door Open";
case 4: return "No Paper";
default: return "Unknown Error";
}
}
static void *mitsup95d_init(void)
{
struct mitsup95d_ctx *ctx = malloc(sizeof(struct mitsup95d_ctx));
if (!ctx) {
ERROR("Memory Allocation Failure!\n");
return NULL;
}
memset(ctx, 0, sizeof(struct mitsup95d_ctx));
return ctx;
}
static int mitsup95d_get_status(struct mitsup95d_ctx *ctx, uint8_t *resp)
{
uint8_t querycmd[4] = { 0x1b, 0x72, 0x00, 0x00 };
int ret;
int num;
/* P93D is ... special. Windows switches to this halfway through
but it seems be okay to use it everywhere */
if (ctx->type == P_MITSU_P93D) {
querycmd[2] = 0x03;
}
/* Query Status to sanity-check job */
if ((ret = send_data(ctx->dev, ctx->endp_down,
querycmd, sizeof(querycmd))))
return CUPS_BACKEND_FAILED;
ret = read_data(ctx->dev, ctx->endp_up,
resp, QUERYRESP_SIZE_MAX, &num);
if (ret < 0)
return CUPS_BACKEND_FAILED;
if (ctx->type == P_MITSU_P95D && num != 9) {
return CUPS_BACKEND_FAILED;
} else if (ctx->type == P_MITSU_P93D && num != 8) {
return CUPS_BACKEND_FAILED;
}
return CUPS_BACKEND_OK;
}
static int mitsup95d_attach(void *vctx, struct libusb_device_handle *dev, int type,
uint8_t endp_up, uint8_t endp_down, uint8_t jobid)
{
struct mitsup95d_ctx *ctx = vctx;
UNUSED(jobid);
ctx->dev = dev;
ctx->endp_up = endp_up;
ctx->endp_down = endp_down;
ctx->type = type;
ctx->marker.color = "#000000"; /* Ie black! */
ctx->marker.name = "Unknown";
ctx->marker.levelmax = -1;
ctx->marker.levelnow = -2;
return CUPS_BACKEND_OK;
}
static void mitsup95d_cleanup_job(const void *vjob)
{
const struct mitsup95d_printjob *job = vjob;
if (job->databuf)
free(job->databuf);
free((void*)job);
}
static void mitsup95d_teardown(void *vctx) {
struct mitsup95d_ctx *ctx = vctx;
if (!ctx)
return;
free(ctx);
}
static int mitsup95d_read_parse(void *vctx, const void **vjob, int data_fd, int copies) {
struct mitsup95d_ctx *ctx = vctx;
uint8_t buf[2]; /* Enough to read in any header */
uint8_t tmphdr[50];
uint8_t *ptr;
int i;
int remain;
int ptr_offset;
struct mitsup95d_printjob *job = NULL;
if (!ctx)
return CUPS_BACKEND_FAILED;
job = malloc(sizeof(*job));
if (!job) {
ERROR("Memory allocation failure!\n");
return CUPS_BACKEND_RETRY_CURRENT;
}
memset(job, 0, sizeof(*job));
job->mem_clr_present = 0;
top:
i = read(data_fd, buf, sizeof(buf));
if (i == 0) {
mitsup95d_cleanup_job(job);
return CUPS_BACKEND_CANCEL;
}
if (i < 0) {
mitsup95d_cleanup_job(job);
return CUPS_BACKEND_CANCEL;
}
if (buf[0] != 0x1b) {
ERROR("malformed data stream\n");
mitsup95d_cleanup_job(job);
return CUPS_BACKEND_CANCEL;
}
switch (buf[1]) {
case 0x50: /* Footer */
remain = 2;
ptr = job->ftr;
break;
case 0x51: /* Job Header */
remain = 2;
ptr = job->hdr;
break;
case 0x57: /* Geeneral headers */
remain = sizeof(tmphdr);
ptr = tmphdr;
break;
case 0x58: /* User Comment */
if (ctx->type == P_MITSU_P93D)
job->hdr4_len = 42;
else
job->hdr4_len = 36;
remain = job->hdr4_len;
ptr = job->hdr4;
break;
case 0x5a: /* Plane header OR printer reset */
// reset memory: 1b 5a 43 ... [len 04]
// plane header: 1b 5a 74 ... [len 12]
// Read in the minimum length, and clean it up later */
ptr = tmphdr;
remain = 4;
break;
default:
ERROR("Unrecognized command! (%02x %02x)\n", buf[0], buf[1]);
mitsup95d_cleanup_job(job);
return CUPS_BACKEND_CANCEL;
}
memcpy(ptr, buf, sizeof(buf));
remain -= sizeof(buf);
ptr_offset = sizeof(buf);
while (remain) {
i = read(data_fd, ptr + ptr_offset, remain);
if (i == 0) {
mitsup95d_cleanup_job(job);
return CUPS_BACKEND_CANCEL;
}
if (i < 0) {
mitsup95d_cleanup_job(job);
return CUPS_BACKEND_CANCEL;
}
remain -= i;
ptr_offset += i;
/* Handle the ambiguous 0x5a block */
if (buf[1] == 0x5a && remain == 0) {
if (tmphdr[2] == 0x74) { /* plane header */
ptr = job->plane;
remain = 12 - ptr_offset; /* Finish reading */
} else if (tmphdr[2] == 0x43) { /* reset memory */
ptr = job->mem_clr;
job->mem_clr_present = 1;
remain = 4 - ptr_offset;
}
memcpy(ptr, tmphdr, ptr_offset);
buf[1] = 0xff;
}
}
if (ptr == tmphdr) {
if (tmphdr[3] != 46) {
ERROR("Unexpected header chunk: %02x %02x %02x %02x\n",
tmphdr[0], tmphdr[1], tmphdr[2], tmphdr[3]);
mitsup95d_cleanup_job(job);
return CUPS_BACKEND_CANCEL;
}
switch (tmphdr[2]) {
case 0x20:
ptr = job->hdr1;
break;
case 0x21:
ptr = job->hdr2;
break;
case 0x22:
ptr = job->hdr3;
break;
default:
WARNING("Unexpected header chunk: %02x %02x %02x %02x\n",
tmphdr[0], tmphdr[1], tmphdr[2], tmphdr[3]);
}
memcpy(ptr, tmphdr, sizeof(tmphdr));
} else if (ptr == job->plane) {
uint16_t rows = job->plane[10] << 8 | job->plane[11];
uint16_t cols = job->plane[8] << 8 | job->plane[9];
remain = rows * cols;
/* Allocate buffer for the payload */
job->datalen = 0;
job->databuf = malloc(remain);
if (!job->databuf) {
ERROR("Memory allocation failure!\n");
mitsup95d_cleanup_job(job);
return CUPS_BACKEND_RETRY_CURRENT;
}
/* Read it in */
while (remain) {
i = read(data_fd, job->databuf + job->datalen, remain);
if (i == 0) {
mitsup95d_cleanup_job(job);
return CUPS_BACKEND_CANCEL;
}
if (i < 0) {
mitsup95d_cleanup_job(job);
return CUPS_BACKEND_CANCEL;
}
remain -= i;
job->datalen += i;
}
} else if (ptr == job->ftr) {
/* XXX Update unknown header field to match sniffs */
if (ctx->type == P_MITSU_P95D) {
if (job->hdr1[18] == 0x00)
job->hdr1[18] = 0x01;
}
/* Update printjob header to reflect number of requested copies */
if (job->hdr2[13] != 0xff)
job->hdr2[13] = copies;
*vjob = job;
return CUPS_BACKEND_OK;
}
goto top;
}
static int mitsup95d_main_loop(void *vctx, const void *vjob) {
struct mitsup95d_ctx *ctx = vctx;
uint8_t queryresp[QUERYRESP_SIZE_MAX];
int ret;
const struct mitsup95d_printjob *job = vjob;
if (!ctx)
return CUPS_BACKEND_FAILED;
if (!job)
return CUPS_BACKEND_FAILED;
INFO("Waiting for printer idle\n");
/* Query Status to make sure printer is idle */
do {
ret = mitsup95d_get_status(ctx, queryresp);
if (ret)
return ret;
if (ctx->type == P_MITSU_P95D) {
if (queryresp[6] & 0x40) {
INFO("Printer Status: %s (%02x)\n", mitsup95d_errors(queryresp[6]), queryresp[6]);
return CUPS_BACKEND_STOP;
}
if (queryresp[5] == 0x00)
break;
} else {
if (queryresp[6] == 0x45) {
ERROR("Printer error %02x\n", queryresp[7]);
return CUPS_BACKEND_STOP;
}
if (queryresp[6] == 0x30)
break;
}
sleep(1);
} while (1);
INFO("Sending print job\n");
/* Send over Memory Clear, if present */
if (job->mem_clr_present) {
if ((ret = send_data(ctx->dev, ctx->endp_down,
job->mem_clr, sizeof(job->mem_clr))))
return CUPS_BACKEND_FAILED;
}
/* Send Job Start */
if ((ret = send_data(ctx->dev, ctx->endp_down,
job->hdr, sizeof(job->hdr))))
return CUPS_BACKEND_FAILED;
/* Send over headers */
if ((ret = send_data(ctx->dev, ctx->endp_down,
job->hdr1, sizeof(job->hdr1))))
return CUPS_BACKEND_FAILED;
if ((ret = send_data(ctx->dev, ctx->endp_down,
job->hdr2, sizeof(job->hdr2))))
return CUPS_BACKEND_FAILED;
if ((ret = send_data(ctx->dev, ctx->endp_down,
job->hdr3, sizeof(job->hdr3))))
return CUPS_BACKEND_FAILED;
if ((ret = send_data(ctx->dev, ctx->endp_down,
job->hdr4, job->hdr4_len)))
return CUPS_BACKEND_FAILED;
/* Send plane header and image data */
if ((ret = send_data(ctx->dev, ctx->endp_down,
job->plane, sizeof(job->plane))))
return CUPS_BACKEND_FAILED;
if ((ret = send_data(ctx->dev, ctx->endp_down,
job->databuf, job->datalen)))
return CUPS_BACKEND_FAILED;
/* Query Status to sanity-check job */
ret = mitsup95d_get_status(ctx, queryresp);
if (ret)
return ret;
if (ctx->type == P_MITSU_P95D) {
if (queryresp[6] & 0x40) {
INFO("Printer Status: %s (%02x)\n", mitsup95d_errors(queryresp[6]), queryresp[6]);
return CUPS_BACKEND_STOP;
}
if (queryresp[5] != 0x00) {
ERROR("Printer not ready (%02x)!\n", queryresp[5]);
return CUPS_BACKEND_CANCEL;
}
} else {
if (queryresp[6] == 0x45) {
INFO("Printer Status: %s (%02x)\n", mitsup93d_errors(queryresp[7]), queryresp[7]);
return CUPS_BACKEND_STOP;
}
if (queryresp[6] != 0x30) {
ERROR("Printer not ready (%02x)!\n", queryresp[6]);
return CUPS_BACKEND_CANCEL;
}
}
/* Send over Footer */
if ((ret = send_data(ctx->dev, ctx->endp_down,
job->ftr, sizeof(job->ftr))))
return CUPS_BACKEND_FAILED;
INFO("Waiting for completion\n");
/* Query status until we're done.. */
do {
sleep(1);
/* Query Status */
ret = mitsup95d_get_status(ctx, queryresp);
if (ret)
return ret;
if (ctx->type == P_MITSU_P95D) {
if (queryresp[6] & 0x40) {
INFO("Printer Status: %s (%02x)\n", mitsup95d_errors(queryresp[6]), queryresp[6]);
return CUPS_BACKEND_STOP;
}
if (queryresp[5] == 0x00)
break;
if (queryresp[7] > 0) {
if (fast_return) {
INFO("Fast return mode enabled.\n");
break;
}
}
} else {
if (queryresp[6] == 0x45) {
INFO("Printer Status: %s (%02x)\n", mitsup93d_errors(queryresp[7]), queryresp[7]);
return CUPS_BACKEND_STOP;
}
if (queryresp[6] == 0x30)
break;
if (queryresp[6] == 0x43 && queryresp[7] > 0) {
if (fast_return) {
INFO("Fast return mode enabled.\n");
break;
}
}
}
} while(1);
INFO("Print complete\n");
return CUPS_BACKEND_OK;
}
static int mitsup95d_dump_status(struct mitsup95d_ctx *ctx)
{
uint8_t queryresp[QUERYRESP_SIZE_MAX];
int ret;
ret = mitsup95d_get_status(ctx, queryresp);
if (ret)
return ret;
if (ctx->type == P_MITSU_P95D) {
if (queryresp[6] & 0x40) {
INFO("Printer Status: %s (%02x)\n", mitsup95d_errors(queryresp[6]), queryresp[6]);
} else if (queryresp[5] == 0x00) {
INFO("Printer Status: Idle\n");
} else if (queryresp[5] == 0x02 && queryresp[7] > 0) {
INFO("Printer Status: Printing (%d) copies remaining\n", queryresp[7]);
}
} else {
if (queryresp[6] == 0x45) {
INFO("Printer Status: %s (%02x)\n", mitsup93d_errors(queryresp[7]), queryresp[7]);
} else if (queryresp[6] == 0x30) {
INFO("Printer Status: Idle\n");
} else if (queryresp[6] == 0x43 && queryresp[7] > 0) {
INFO("Printer Status: Printing (%d) copies remaining\n", queryresp[7]);
}
}
return CUPS_BACKEND_OK;
}
static void mitsup95d_cmdline(void)
{
DEBUG("\t\t[ -s ] # Query status\n");
}
static int mitsup95d_cmdline_arg(void *vctx, int argc, char **argv)
{
struct mitsup95d_ctx *ctx = vctx;
int i, j = 0;
if (!ctx)
return -1;
while ((i = getopt(argc, argv, GETOPT_LIST_GLOBAL "s")) >= 0) {
switch(i) {
GETOPT_PROCESS_GLOBAL
case 's':
j = mitsup95d_dump_status(ctx);
break;
default:
break; /* Ignore completely */
}
if (j) return j;
}
return 0;
}
static int mitsup95d_query_markers(void *vctx, struct marker **markers, int *count)
{
struct mitsup95d_ctx *ctx = vctx;
uint8_t queryresp[QUERYRESP_SIZE_MAX];
if (mitsup95d_get_status(ctx, queryresp))
return CUPS_BACKEND_FAILED;
ctx->marker.levelnow = -3;
if (ctx->type == P_MITSU_P95D) {
if (queryresp[6] & 0x40) {
ctx->marker.levelnow = 0;
}
} else {
if (queryresp[6] == 0x45) {
ctx->marker.levelnow = 0;
}
}
/* Lot state */
if (ctx->marker.levelnow)
STATE("-media-empty\n");
else
STATE("+media-empty\n");
*markers = &ctx->marker;
*count = 1;
return CUPS_BACKEND_OK;
}
static const char *mitsup95d_prefixes[] = {
"mitsup9x", // Family driver name
"mitsubishi-p95d", "mitsubishi-p93d",
// backwards compatibility
"mitsup95d", "mitsup93d",
NULL
};
/* Exported */
struct dyesub_backend mitsup95d_backend = {
.name = "Mitsubishi P93D/P95D",
.version = "0.12",
.uri_prefixes = mitsup95d_prefixes,
.cmdline_arg = mitsup95d_cmdline_arg,
.cmdline_usage = mitsup95d_cmdline,
.init = mitsup95d_init,
.attach = mitsup95d_attach,
.teardown = mitsup95d_teardown,
.cleanup_job = mitsup95d_cleanup_job,
.read_parse = mitsup95d_read_parse,
.main_loop = mitsup95d_main_loop,
.query_markers = mitsup95d_query_markers,
.devices = {
{ USB_VID_MITSU, USB_PID_MITSU_P93D, P_MITSU_P93D, NULL, "mitsubishi-p93d"},
{ USB_VID_MITSU, USB_PID_MITSU_P95D, P_MITSU_P95D, NULL, "mitsubishi-p95d"},
{ 0, 0, 0, NULL, NULL}
}
};
/*****************************************************
Mitsubishi P93D/P95D Spool Format
...All fields are BIG ENDIAN.
MEMORY_CLEAR (optional)
1b 5a 43 00
JOB_HDR
1b 51
PRINT_SETUP
1b 57 20 2e 00 0a 00 ZZ 00 00 00 00 00 00 CC CC
RR RR XX 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00
XX == 01 seen in sniffs, 00 seen in dumps. Unknown purpose.
ZZ == 00 on P93D, 02 on P95D
CC CC = columns, RR RR = rows (print dimensions)
PRINT_OPTIONS
P95:
1b 57 21 2e 00 4a aa 00 20 TT 00 00 64 NN 00 MM
[[ 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 ]] 00 00 00 02 00 00 00 00 00 00 00 00 00 00
00 XY
P93:
1b 57 21 2e 00 4a aa 00 00 TT 00 00 00 NN 00 MM
[[ 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 ]] 00 00 00 02 00 00 00 00 00 00 00 00 00 00
00 XY
NN = copies
1..200
0xff (continuous print)
MM = comment type
00 = None
01 = Printer Setting
02 = Date
03 = DateTime
[[ .. ]] = actual comment (18 bytes), see below.
TT = media type
P95D:
00 = Standard
01 = High Density
02 = High Glossy
03 = High Glossy (K95HG)
P93D:
00 = High Density
01 = High Glossy
02 = Standard
X = media cut length (P95D ONLY. P93 is 0)
4..8 (mm)
Y = flags
0x04 = Paper save
0x03 = Buzzer (3 = high, 2 = low, 0 = off)
GAMMA (P95)
1b 57 22 2e 00 15 TT 00 00 00 00 00 LL BB CC 00
[[ 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 ]]
LL = Gamma table
00 = Printer Setting
01..05 Gamma table 1..5
10 = Use LUT
BB = Brightness (signed 8-bit)
CC = Contrast (signed 8-bit)
TT = Table present
00 = No
01 = Yes
[[ .. ]] = Gamma table, loaded from LUT on disk. (skip first 16 bytes)
GAMMA (P93)
1b 57 22 2e 00 d5 00 00 00 00 00 00 SS 00 LL 00
BB 00 CC 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00
SS = Sharpening (0 = low, 1 = normal, 2 = high)
LL = Gamma table
00..04 Gamma table 1..5
BB = Brightness (signed 8-bit)
CC = Contrast (signed 8-bit)
USER_COMMENT (P95)
1b 58 [[ 20 20 20 20 20 20 20 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20 20 20 ]]
[[ .. ]] = Actual comment. 34 bytes payload, 0x20 -> 0x7e
(Null terminated?)
USER_COMMENT (P93)
1b 58 [[ 20 20 20 20 20 20 20 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20 20 20 20 20 20 20 20 20 20 ]]
[[ .. ]] = Actual comment. 40 bytes payload, 0x20 -> 0x7e
(Null terminated?)
IMAGE_DATA
1b 5a 74 00 00 00 YY YY CC CC RR RR
[[ .. data ... ]]
CC CC = columns
RR CC = rows
YY YY = row offset
Followed by C*R bytes of monochrome data, 0xff = white, 0x00 = black
PRINT_START
1b 50
*********************************
P95D Printer Comms:
STATUS query
-> 1b 72 00 00
<- e4 72 00 00 04 XX ZZ YY 00
YY == remaining copies
XX == Status?
00 == Idle
02 == Printing
ZZ == Error!
00 == None
43 == Door open
44 == No Paper
4? == "Button"
4? == "Gear Lock"
4? == Head Up
^
\--- 0x40 appears to be a flag that indicates error.
P93D Printer Comms:
STATUS query
-> 1b 72 0? 00
<- e4 72 0? 00 03 XX YY ZZ
? could be 0x00 or 0x03. Seen both.
Seen: 30 30 30
30 43 01 <- 1 copies remaining
30 43 00 <- 0 copies remaining
^^
\-- 30 == idle, 43 == printing
30 45 6f <- door open
30 45 50 <- no paper
45 == error?
****************************
UNKNOWNS:
* How multiple images are stacked for printing on a single page
(col offset too? write four, then tell PRINT?)
* How to adjust P95D printer sharpness?
* Serial number query (iSerial appears bogus)
* What "custom gamma" table does to spool file?
*/