517 lines
13 KiB
C
517 lines
13 KiB
C
/* $NetBSD: ss_scanjet.c,v 1.10 1996/12/22 10:35:08 cgd Exp $ */
|
|
|
|
/*
|
|
* Copyright (c) 1995 Kenneth Stailey. All rights reserved.
|
|
*
|
|
* Redistribution and use in source and binary forms, with or without
|
|
* modification, are permitted provided that the following conditions
|
|
* are met:
|
|
* 1. Redistributions of source code must retain the above copyright
|
|
* notice, this list of conditions and the following disclaimer.
|
|
* 2. Redistributions in binary form must reproduce the above copyright
|
|
* notice, this list of conditions and the following disclaimer in the
|
|
* documentation and/or other materials provided with the distribution.
|
|
* 3. All advertising materials mentioning features or use of this software
|
|
* must display the following acknowledgement:
|
|
* This product includes software developed by Kenneth Stailey.
|
|
* 4. The name of the author may not be used to endorse or promote products
|
|
* derived from this software without specific prior written permission.
|
|
*
|
|
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
|
|
* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
|
|
* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
|
|
* IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
|
|
* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
|
|
* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
|
|
* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
|
|
* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
|
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
|
|
* THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
*/
|
|
|
|
/*
|
|
* special functions for the HP ScanJet IIc and IIcx
|
|
*/
|
|
|
|
#include <sys/types.h>
|
|
#include <sys/param.h>
|
|
#include <sys/systm.h>
|
|
#include <sys/fcntl.h>
|
|
#include <sys/errno.h>
|
|
#include <sys/ioctl.h>
|
|
#include <sys/malloc.h>
|
|
#include <sys/buf.h>
|
|
#include <sys/proc.h>
|
|
#include <sys/user.h>
|
|
#include <sys/device.h>
|
|
#include <sys/conf.h> /* for cdevsw */
|
|
#include <sys/scanio.h>
|
|
|
|
#include <scsi/scsi_all.h>
|
|
#include <scsi/scsi_scanner.h>
|
|
#include <scsi/scsiconf.h>
|
|
#include <scsi/ssvar.h>
|
|
|
|
#define SCANJET_RETRIES 4
|
|
|
|
int scanjet_get_params __P((struct ss_softc *));
|
|
int scanjet_set_params __P((struct ss_softc *, struct scan_io *));
|
|
int scanjet_trigger_scanner __P((struct ss_softc *));
|
|
int scanjet_read __P((struct ss_softc *, struct buf *));
|
|
|
|
/* only used internally */
|
|
int scanjet_ctl_write __P((struct ss_softc *, char *, u_int, int));
|
|
int scanjet_ctl_read __P((struct ss_softc *, char *, u_int, int));
|
|
int scanjet_set_window __P((struct ss_softc *));
|
|
int scanjet_compute_sizes __P((struct ss_softc *));
|
|
/* Maybe move to libkern? */
|
|
__inline static int atoi __P((const char *));
|
|
__inline static char *strchr __P((const char *, char));
|
|
|
|
|
|
/*
|
|
* structure for the special handlers
|
|
*/
|
|
struct ss_special scanjet_special = {
|
|
scanjet_set_params,
|
|
scanjet_trigger_scanner,
|
|
scanjet_get_params,
|
|
NULL, /* no special minphys */
|
|
scanjet_read, /* scsi 6-byte read */
|
|
NULL, /* no "rewind" code (yet?) */
|
|
NULL, /* no adf support right now */
|
|
NULL /* no adf support right now */
|
|
};
|
|
|
|
/*
|
|
* scanjet_attach: attach special functions to ss
|
|
*/
|
|
void
|
|
scanjet_attach(ss, sa)
|
|
struct ss_softc *ss;
|
|
struct scsibus_attach_args *sa;
|
|
{
|
|
#ifdef SCSIDEBUG
|
|
struct scsi_link *sc_link = sa->sa_sc_link;
|
|
#endif
|
|
int error;
|
|
|
|
SC_DEBUG(sc_link, SDEV_DB1, ("scanjet_attach: start\n"));
|
|
ss->sio.scan_scanner_type = 0;
|
|
|
|
printf("\n%s: ", ss->sc_dev.dv_xname);
|
|
|
|
/* first, check the model (which determines nothing yet) */
|
|
|
|
if (!bcmp(sa->sa_inqbuf->product, "C1750A", 6)) {
|
|
ss->sio.scan_scanner_type = HP_SCANJET_IIC;
|
|
printf("HP ScanJet IIc");
|
|
}
|
|
if (!bcmp(sa->sa_inqbuf->product, "C2500A", 6)) {
|
|
ss->sio.scan_scanner_type = HP_SCANJET_IIC;
|
|
printf("HP ScanJet IIcx");
|
|
}
|
|
if (!bcmp(sa->sa_inqbuf->product, "C1130A", 6)) {
|
|
ss->sio.scan_scanner_type = HP_SCANJET_IIC;
|
|
printf("HP ScanJet 4p");
|
|
}
|
|
|
|
SC_DEBUG(sc_link, SDEV_DB1, ("scanjet_attach: scanner_type = %d\n",
|
|
ss->sio.scan_scanner_type));
|
|
|
|
/* now install special handlers */
|
|
ss->special = &scanjet_special;
|
|
|
|
/*
|
|
* populate the scanio struct with legal values
|
|
*/
|
|
ss->sio.scan_width = 1200;
|
|
ss->sio.scan_height = 1200;
|
|
ss->sio.scan_x_resolution = 100;
|
|
ss->sio.scan_y_resolution = 100;
|
|
ss->sio.scan_x_origin = 0;
|
|
ss->sio.scan_y_origin = 0;
|
|
ss->sio.scan_brightness = 128;
|
|
ss->sio.scan_contrast = 128;
|
|
ss->sio.scan_quality = 100;
|
|
ss->sio.scan_image_mode = SIM_GRAYSCALE;
|
|
|
|
error = scanjet_set_window(ss);
|
|
if (error) {
|
|
printf(" set_window failed\n");
|
|
return;
|
|
}
|
|
error = scanjet_compute_sizes(ss);
|
|
if (error) {
|
|
printf(" compute_sizes failed\n");
|
|
return;
|
|
}
|
|
|
|
printf("\n");
|
|
}
|
|
|
|
int
|
|
scanjet_get_params(ss)
|
|
struct ss_softc *ss;
|
|
{
|
|
|
|
return (0);
|
|
}
|
|
|
|
/*
|
|
* check the parameters if the scanjet is capable of fulfilling it
|
|
* but don't send the command to the scanner in case the user wants
|
|
* to change parameters by more than one call
|
|
*/
|
|
int
|
|
scanjet_set_params(ss, sio)
|
|
struct ss_softc *ss;
|
|
struct scan_io *sio;
|
|
{
|
|
int error;
|
|
|
|
#if 0
|
|
/*
|
|
* if the scanner is triggered, then rewind it
|
|
*/
|
|
if (ss->flags & SSF_TRIGGERED) {
|
|
error = scanjet_rewind_scanner(ss);
|
|
if (error)
|
|
return (error);
|
|
}
|
|
#endif
|
|
|
|
/* size constraints... */
|
|
if (sio->scan_width == 0 ||
|
|
sio->scan_x_origin + sio->scan_width > 10200 || /* 8.5" */
|
|
sio->scan_height == 0 ||
|
|
sio->scan_y_origin + sio->scan_height > 16800) /* 14" */
|
|
return (EINVAL);
|
|
|
|
/* resolution (dpi)... */
|
|
if (sio->scan_x_resolution < 100 ||
|
|
sio->scan_x_resolution > 400 ||
|
|
sio->scan_y_resolution < 100 ||
|
|
sio->scan_y_resolution > 400)
|
|
return (EINVAL);
|
|
|
|
switch (sio->scan_image_mode) {
|
|
case SIM_BINARY_MONOCHROME:
|
|
case SIM_DITHERED_MONOCHROME:
|
|
case SIM_GRAYSCALE:
|
|
case SIM_COLOR:
|
|
break;
|
|
default:
|
|
return (EINVAL);
|
|
}
|
|
|
|
/* change ss_softc to the new values, but save ro-variables */
|
|
sio->scan_scanner_type = ss->sio.scan_scanner_type;
|
|
bcopy(sio, &ss->sio, sizeof(struct scan_io));
|
|
|
|
error = scanjet_set_window(ss);
|
|
if (error) {
|
|
uprintf("%s: set_window failed\n", ss->sc_dev.dv_xname);
|
|
return (error);
|
|
}
|
|
error = scanjet_compute_sizes(ss);
|
|
if (error) {
|
|
uprintf("%s: compute_sizes failed\n", ss->sc_dev.dv_xname);
|
|
return (error);
|
|
}
|
|
|
|
return (0);
|
|
}
|
|
|
|
/*
|
|
* trigger the scanner to start a scan operation
|
|
* this includes sending the mode- and window-data,
|
|
* and starting the scanner
|
|
*/
|
|
int
|
|
scanjet_trigger_scanner(ss)
|
|
struct ss_softc *ss;
|
|
{
|
|
char escape_codes[20];
|
|
int error;
|
|
|
|
error = scanjet_set_window(ss);
|
|
if (error) {
|
|
uprintf("%s: set_window failed\n", ss->sc_dev.dv_xname);
|
|
return (error);
|
|
}
|
|
error = scanjet_compute_sizes(ss);
|
|
if (error) {
|
|
uprintf("%s: compute_sizes failed\n", ss->sc_dev.dv_xname);
|
|
return (error);
|
|
}
|
|
|
|
/* send "trigger" operation */
|
|
strcpy(escape_codes, "\033*f0S");
|
|
error = scanjet_ctl_write(ss, escape_codes, strlen(escape_codes), 0);
|
|
if (error) {
|
|
uprintf("%s: trigger_scanner failed\n", ss->sc_dev.dv_xname);
|
|
return (error);
|
|
}
|
|
|
|
return (0);
|
|
}
|
|
|
|
int
|
|
scanjet_read(ss, bp)
|
|
struct ss_softc *ss;
|
|
struct buf *bp;
|
|
{
|
|
struct scsi_rw_scanner cmd;
|
|
struct scsi_link *sc_link = ss->sc_link;
|
|
|
|
/*
|
|
* Fill out the scsi command
|
|
*/
|
|
bzero(&cmd, sizeof(cmd));
|
|
cmd.opcode = READ;
|
|
|
|
/*
|
|
* Handle "fixed-block-mode" tape drives by using the
|
|
* block count instead of the length.
|
|
*/
|
|
_lto3b(bp->b_bcount, cmd.len);
|
|
|
|
/*
|
|
* go ask the adapter to do all this for us
|
|
*/
|
|
if (scsi_scsi_cmd(sc_link, (struct scsi_generic *) &cmd, sizeof(cmd),
|
|
(u_char *) bp->b_data, bp->b_bcount, SCANJET_RETRIES, 100000, bp,
|
|
SCSI_NOSLEEP | SCSI_DATA_IN) != SUCCESSFULLY_QUEUED)
|
|
printf("%s: not queued\n", ss->sc_dev.dv_xname);
|
|
else {
|
|
ss->sio.scan_window_size -= bp->b_bcount;
|
|
if (ss->sio.scan_window_size < 0)
|
|
ss->sio.scan_window_size = 0;
|
|
}
|
|
|
|
return (0);
|
|
}
|
|
|
|
|
|
/*
|
|
* Do a synchronous write. Used to send control messages.
|
|
*/
|
|
int
|
|
scanjet_ctl_write(ss, buf, size, flags)
|
|
struct ss_softc *ss;
|
|
char *buf;
|
|
u_int size;
|
|
int flags;
|
|
{
|
|
struct scsi_rw_scanner cmd;
|
|
|
|
bzero(&cmd, sizeof(cmd));
|
|
cmd.opcode = WRITE;
|
|
_lto3b(size, cmd.len);
|
|
return (scsi_scsi_cmd(ss->sc_link, (struct scsi_generic *) &cmd,
|
|
sizeof(cmd), (u_char *) buf, size, 0, 100000, NULL,
|
|
flags | SCSI_DATA_OUT));
|
|
}
|
|
|
|
|
|
/*
|
|
* Do a synchronous read. Used to read responses to control messages.
|
|
*/
|
|
int
|
|
scanjet_ctl_read(ss, buf, size, flags)
|
|
struct ss_softc *ss;
|
|
char *buf;
|
|
u_int size;
|
|
int flags;
|
|
{
|
|
struct scsi_rw_scanner cmd;
|
|
|
|
bzero(&cmd, sizeof(cmd));
|
|
cmd.opcode = READ;
|
|
_lto3b(size, cmd.len);
|
|
return (scsi_scsi_cmd(ss->sc_link, (struct scsi_generic *) &cmd,
|
|
sizeof(cmd), (u_char *) buf, size, 0, 100000, NULL,
|
|
flags | SCSI_DATA_IN));
|
|
}
|
|
|
|
|
|
#ifdef SCANJETDEBUG
|
|
static void show_es(char *es)
|
|
{
|
|
char *p = es;
|
|
while (*p) {
|
|
if (*p == '\033')
|
|
printf("[Esc]");
|
|
else
|
|
printf("%c", *p);
|
|
++p;
|
|
}
|
|
printf("\n");
|
|
}
|
|
#endif
|
|
|
|
/*
|
|
* simulate SCSI_SET_WINDOW for ScanJets
|
|
*/
|
|
int
|
|
scanjet_set_window(ss)
|
|
struct ss_softc *ss;
|
|
{
|
|
char escape_codes[128], *p;
|
|
|
|
p = escape_codes;
|
|
|
|
p += sprintf(p, "\033*f%ldP", ss->sio.scan_width / 4);
|
|
p += sprintf(p, "\033*f%ldQ", ss->sio.scan_height / 4);
|
|
p += sprintf(p, "\033*f%ldX", ss->sio.scan_x_origin / 4);
|
|
p += sprintf(p, "\033*f%ldY", ss->sio.scan_y_origin / 4);
|
|
p += sprintf(p, "\033*a%dR", ss->sio.scan_x_resolution);
|
|
p += sprintf(p, "\033*a%dS", ss->sio.scan_y_resolution);
|
|
|
|
switch (ss->sio.scan_image_mode) {
|
|
case SIM_BINARY_MONOCHROME:
|
|
ss->sio.scan_bits_per_pixel = 1;
|
|
/* use "line art" mode */
|
|
strcpy(p, "\033*a0T");
|
|
p += strlen(p);
|
|
/* make image data be "min-is-white ala PBM */
|
|
strcpy(p, "\033*a0I");
|
|
p += strlen(p);
|
|
break;
|
|
case SIM_DITHERED_MONOCHROME:
|
|
ss->sio.scan_bits_per_pixel = 1;
|
|
/* use dithered mode */
|
|
strcpy(p, "\033*a3T");
|
|
p += strlen(p);
|
|
/* make image data be "min-is-white ala PBM */
|
|
strcpy(p, "\033*a0I");
|
|
p += strlen(p);
|
|
break;
|
|
case SIM_GRAYSCALE:
|
|
ss->sio.scan_bits_per_pixel = 8;
|
|
/* use grayscale mode */
|
|
strcpy(p, "\033*a4T");
|
|
p += strlen(p);
|
|
/* make image data be "min-is-black ala PGM */
|
|
strcpy(p, "\033*a1I");
|
|
p += strlen(p);
|
|
break;
|
|
case SIM_COLOR:
|
|
ss->sio.scan_bits_per_pixel = 24;
|
|
/* use RGB color mode */
|
|
strcpy(p, "\033*a5T");
|
|
p += strlen(p);
|
|
/* make image data be "min-is-black ala PPM */
|
|
strcpy(p, "\033*a1I");
|
|
p += strlen(p);
|
|
/* use pass-through matrix (disable NTSC) */
|
|
strcpy(p, "\033*u2T");
|
|
p += strlen(p);
|
|
break;
|
|
}
|
|
|
|
p += sprintf(p, "\033*a%dG", ss->sio.scan_bits_per_pixel);
|
|
p += sprintf(p, "\033*a%dL", (int)(ss->sio.scan_brightness) - 128);
|
|
p += sprintf(p, "\033*a%dK", (int)(ss->sio.scan_contrast) - 128);
|
|
|
|
return (scanjet_ctl_write(ss, escape_codes, p - escape_codes, 0));
|
|
}
|
|
|
|
/* atoi() and strchr() are from /sys/arch/amiga/dev/ite.c
|
|
and are only used in scanjet_compute_sizes */
|
|
|
|
__inline static int
|
|
atoi(cp)
|
|
const char *cp;
|
|
{
|
|
int n;
|
|
|
|
for (n = 0; *cp && *cp >= '0' && *cp <= '9'; cp++)
|
|
n = n * 10 + *cp - '0';
|
|
|
|
return (n);
|
|
}
|
|
|
|
__inline static char *
|
|
strchr(cp, ch)
|
|
const char *cp;
|
|
char ch;
|
|
{
|
|
while (*cp && *cp != ch) cp++;
|
|
return (*cp ? (char *)cp : 0); /* XXX kills const */
|
|
}
|
|
|
|
int
|
|
scanjet_compute_sizes(ss)
|
|
struct ss_softc *ss;
|
|
{
|
|
int error;
|
|
static char *wfail = "%s: interrogate write failed\n";
|
|
static char *rfail = "%s: interrogate read failed\n";
|
|
static char *dfail = "%s: bad data returned\n";
|
|
char escape_codes[20];
|
|
char response[20];
|
|
char *p;
|
|
|
|
/*
|
|
* Deal with the fact that the HP ScanJet IIc uses 1/300" not 1/1200"
|
|
* as its base unit of measurement. PINT uses 1/1200" (yes I know
|
|
* ScanJet II's use decipoints as well but 1200 % 720 != 0)
|
|
*/
|
|
ss->sio.scan_width = (ss->sio.scan_width + 3) & 0xfffffffc;
|
|
ss->sio.scan_height = (ss->sio.scan_height + 3) & 0xfffffffc;
|
|
|
|
switch (ss->sio.scan_image_mode) {
|
|
case SIM_BINARY_MONOCHROME:
|
|
case SIM_DITHERED_MONOCHROME:
|
|
strcpy(escape_codes, "\033*s1025E"); /* bytes wide */
|
|
break;
|
|
case SIM_GRAYSCALE:
|
|
case SIM_COLOR:
|
|
strcpy(escape_codes, "\033*s1024E"); /* pixels wide */
|
|
break;
|
|
}
|
|
error = scanjet_ctl_write(ss, escape_codes, strlen(escape_codes), 0);
|
|
if (error) {
|
|
uprintf(wfail, ss->sc_dev.dv_xname);
|
|
return (error);
|
|
}
|
|
error = scanjet_ctl_read(ss, response, 20, 0);
|
|
if (error) {
|
|
uprintf(rfail, ss->sc_dev.dv_xname);
|
|
return (error);
|
|
}
|
|
p = strchr(response, 'd');
|
|
if (p == 0) {
|
|
uprintf(dfail, ss->sc_dev.dv_xname);
|
|
return (EIO);
|
|
}
|
|
ss->sio.scan_pixels_per_line = atoi(p + 1);
|
|
if (ss->sio.scan_image_mode < SIM_GRAYSCALE)
|
|
ss->sio.scan_pixels_per_line *= 8;
|
|
|
|
strcpy(escape_codes, "\033*s1026E"); /* pixels high */
|
|
error = scanjet_ctl_write(ss, escape_codes, strlen(escape_codes), 0);
|
|
if (error) {
|
|
uprintf(wfail, ss->sc_dev.dv_xname);
|
|
return (error);
|
|
}
|
|
error = scanjet_ctl_read(ss, response, 20, 0);
|
|
if (error) {
|
|
uprintf(rfail, ss->sc_dev.dv_xname);
|
|
return (error);
|
|
}
|
|
p = strchr(response, 'd');
|
|
if (p == 0) {
|
|
uprintf(dfail, ss->sc_dev.dv_xname);
|
|
return (EIO);
|
|
}
|
|
ss->sio.scan_lines = atoi(p + 1);
|
|
|
|
ss->sio.scan_window_size = ss->sio.scan_lines *
|
|
((ss->sio.scan_pixels_per_line * ss->sio.scan_bits_per_pixel) / 8);
|
|
|
|
return (0);
|
|
}
|