Initial import of sane-backends version 1.0.24-1.2

1 files changed, 1491 insertions, 0 deletions

diff --git a/backend/abaton.c b/backend/abaton.c
new file mode 100644
index 0000000..10f5c21
--- /dev/null
+++ b/backend/abaton.c
@@ -0,0 +1,1491 @@
+/* sane - Scanner Access Now Easy.
+
+   Copyright (C) 1998 David Huggins-Daines, heavily based on the Apple
+   scanner driver (since Abaton scanners are very similar to old Apple
+   scanners), which is (C) 1998 Milon Firikis, which is, in turn, based
+   on the Mustek driver, (C) 1996-7 David Mosberger-Tang.
+
+   This file is part of the SANE package.
+
+   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 2 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.
+
+   As a special exception, the authors of SANE give permission for
+   additional uses of the libraries contained in this release of SANE.
+
+   The exception is that, if you link a SANE library with other files
+   to produce an executable, this does not by itself cause the
+   resulting executable to be covered by the GNU General Public
+   License.  Your use of that executable is in no way restricted on
+   account of linking the SANE library code into it.
+
+   This exception does not, however, invalidate any other reasons why
+   the executable file might be covered by the GNU General Public
+   License.
+
+   If you submit changes to SANE to the maintainers to be included in
+   a subsequent release, you agree by submitting the changes that
+   those changes may be distributed with this exception intact.
+
+   If you write modifications of your own for SANE, it is your choice
+   whether to permit this exception to apply to your modifications.
+   If you do not wish that, delete this exception notice.
+
+   This file implements a SANE backend for Abaton flatbed scanners.  */
+
+#include "../include/sane/config.h"
+
+#include <ctype.h>
+#include <errno.h>
+#include <fcntl.h>
+#include <limits.h>
+#include <signal.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <unistd.h>
+
+#include <sys/time.h>
+#include <sys/types.h>
+#include <sys/wait.h>
+
+#include "../include/_stdint.h"
+
+#include "../include/sane/sane.h"
+#include "../include/sane/sanei.h"
+#include "../include/sane/saneopts.h"
+#include "../include/sane/sanei_scsi.h"
+
+#define BACKEND_NAME	abaton
+#include "../include/sane/sanei_backend.h"
+
+#ifndef PATH_MAX
+# define PATH_MAX	1024
+#endif
+
+#include "../include/sane/sanei_config.h"
+#define ABATON_CONFIG_FILE "abaton.conf"
+
+#include "abaton.h"
+
+
+
+static int num_devices;
+static Abaton_Device *first_dev;
+static Abaton_Scanner *first_handle;
+
+static SANE_String_Const mode_list[5];
+
+static const SANE_String_Const halftone_pattern_list[] =
+{
+  "spiral", "bayer",
+  0
+};
+
+static const SANE_Range dpi_range =
+{
+  /* min, max, quant */
+  72,
+  300,
+  1
+};
+
+static const SANE_Range enhance_range =
+{
+  1,
+  255,
+  1
+};
+
+static const SANE_Range x_range =
+{
+  0,
+  8.5 * MM_PER_INCH,
+  1
+};
+
+static const SANE_Range y_range =
+{
+  0,
+  14.0 * MM_PER_INCH,
+  1
+};
+
+#define ERROR_MESSAGE	1
+#define USER_MESSAGE	5
+#define FLOW_CONTROL	50
+#define VARIABLE_CONTROL 70
+#define DEBUG_SPECIAL	100
+#define IO_MESSAGE	110
+#define INNER_LOOP	120
+
+
+/* SCSI commands that the Abaton scanners understand: */
+#define TEST_UNIT_READY	0x00
+#define REQUEST_SENSE	0x03
+#define INQUIRY		0x12
+#define START_STOP	0x1b
+#define SET_WINDOW	0x24
+#define READ_10		0x28
+#define WRITE_10	0x2b	/* not used, AFAIK */
+#define GET_DATA_STATUS	0x34
+
+
+#define INQ_LEN	0x60
+static const uint8_t inquiry[] =
+{
+  INQUIRY, 0x00, 0x00, 0x00, INQ_LEN, 0x00
+};
+
+static const uint8_t test_unit_ready[] =
+{
+  TEST_UNIT_READY, 0x00, 0x00, 0x00, 0x00, 0x00
+};
+
+/* convenience macros */
+#define ENABLE(OPTION)  s->opt[OPTION].cap &= ~SANE_CAP_INACTIVE
+#define DISABLE(OPTION) s->opt[OPTION].cap |=  SANE_CAP_INACTIVE
+#define IS_ACTIVE(OPTION) (((s->opt[OPTION].cap) & SANE_CAP_INACTIVE) == 0)
+
+/* store an 8-bit-wide value at the location specified by ptr */
+#define STORE8(ptr, val) (*((uint8_t *) ptr) = val)
+
+/* store a 16-bit-wide value in network (big-endian) byte order */
+#define STORE16(ptr, val)			\
+  {						\
+  *((uint8_t *) ptr)     = (val >> 8) & 0xff;	\
+  *((uint8_t *) ptr+1)   = val & 0xff;		\
+  }
+
+/* store a 24-bit-wide value in network (big-endian) byte order */
+#define STORE24(ptr, val)			\
+  {						\
+  *((uint8_t *) ptr)     = (val >> 16) & 0xff;	\
+  *((uint8_t *) ptr+1)   = (val >> 8) & 0xff;	\
+  *((uint8_t *) ptr+2)   = val & 0xff;		\
+  }
+
+/* store a 32-bit-wide value in network (big-endian) byte order */
+#define STORE32(ptr, val)			\
+  {						\
+  *((uint8_t *) ptr)     = (val >> 24) & 0xff;	\
+  *((uint8_t *) ptr+1)   = (val >> 16) & 0xff;	\
+  *((uint8_t *) ptr+2)   = (val >> 8) & 0xff;	\
+  *((uint8_t *) ptr+3)   = val & 0xff;		\
+  }
+
+/* retrieve a 24-bit-wide big-endian value at ptr */
+#define GET24(ptr) \
+  (*((uint8_t *) ptr) << 16)  + \
+  (*((uint8_t *) ptr+1) << 8) + \
+  (*((uint8_t *) ptr+2))
+
+static SANE_Status
+wait_ready (int fd)
+{
+#define MAX_WAITING_TIME	60	/* one minute, at most */
+  struct timeval now, start;
+  SANE_Status status;
+
+  gettimeofday (&start, 0);
+
+  while (1)
+    {
+      DBG (USER_MESSAGE, "wait_ready: sending TEST_UNIT_READY\n");
+
+      status = sanei_scsi_cmd (fd, test_unit_ready, sizeof (test_unit_ready),
+			       0, 0);
+      switch (status)
+	{
+	default:
+	  /* Ignore errors while waiting for scanner to become ready.
+	     Some SCSI drivers return EIO while the scanner is
+	     returning to the home position.  */
+	  DBG (ERROR_MESSAGE, "wait_ready: test unit ready failed (%s)\n",
+	       sane_strstatus (status));
+	  /* fall through */
+	case SANE_STATUS_DEVICE_BUSY:
+	  gettimeofday (&now, 0);
+	  if (now.tv_sec - start.tv_sec >= MAX_WAITING_TIME)
+	    {
+	      DBG (ERROR_MESSAGE, "wait_ready: timed out after %ld seconds\n",
+		   (long) (now.tv_sec - start.tv_sec));
+	      return SANE_STATUS_INVAL;
+	    }
+	  usleep (100000);	/* retry after 100ms */
+	  break;
+
+	case SANE_STATUS_GOOD:
+	  return status;
+	}
+    }
+  return SANE_STATUS_INVAL;
+}
+
+static SANE_Status
+sense_handler (int scsi_fd, u_char * result, void *arg)
+{
+  scsi_fd = scsi_fd;			/* silence gcc */
+  arg = arg;					/* silence gcc */
+
+  switch (result[2] & 0x0F)
+    {
+    case 0:
+      DBG (USER_MESSAGE, "Sense: No sense Error\n");
+      return SANE_STATUS_GOOD;
+    case 2:
+      DBG (ERROR_MESSAGE, "Sense: Scanner not ready\n");
+      return SANE_STATUS_DEVICE_BUSY;
+    case 4:
+      DBG (ERROR_MESSAGE, "Sense: Hardware Error. Read more...\n");
+      return SANE_STATUS_IO_ERROR;
+    case 5:
+      DBG (ERROR_MESSAGE, "Sense: Illegal request\n");
+      return SANE_STATUS_UNSUPPORTED;
+    case 6:
+      DBG (ERROR_MESSAGE, "Sense: Unit Attention (Wait until scanner "
+	   "boots)\n");
+      return SANE_STATUS_DEVICE_BUSY;
+    case 9:
+      DBG (ERROR_MESSAGE, "Sense: Vendor Unique. Read more...\n");
+      return SANE_STATUS_IO_ERROR;
+    default:
+      DBG (ERROR_MESSAGE, "Sense: Unknown Sense Key. Read more...\n");
+      return SANE_STATUS_IO_ERROR;
+    }
+
+  return SANE_STATUS_GOOD;
+}
+
+static SANE_Status
+request_sense (Abaton_Scanner * s)
+{
+  uint8_t cmd[6];
+  uint8_t result[22];
+  size_t size = sizeof (result);
+  SANE_Status status;
+
+  memset (cmd, 0, sizeof (cmd));
+  memset (result, 0, sizeof (result));
+
+  cmd[0] = REQUEST_SENSE;
+  STORE8 (cmd + 4, sizeof (result));
+  sanei_scsi_cmd (s->fd, cmd, sizeof (cmd), result, &size);
+
+  if (result[7] != 14)
+    {
+      DBG (ERROR_MESSAGE, "Additional Length %u\n", (unsigned int) result[7]);
+      status = SANE_STATUS_IO_ERROR;
+    }
+
+
+  status = sense_handler (s->fd, result, NULL);
+  if (status == SANE_STATUS_IO_ERROR)
+    {
+
+      /* Since I haven't figured out the vendor unique error codes on
+	 this thing, I'll just handle the normal ones for now */
+
+      if (result[18] & 0x80)
+	DBG (ERROR_MESSAGE, "Sense: Dim Light (output of lamp below 70%%).\n");
+
+      if (result[18] & 0x40)
+	DBG (ERROR_MESSAGE, "Sense: No Light at all.\n");
+
+      if (result[18] & 0x20)
+	DBG (ERROR_MESSAGE, "Sense: No Home.\n");
+
+      if (result[18] & 0x10)
+	DBG (ERROR_MESSAGE, "Sense: No Limit. Tried to scan out of range.\n");
+    }
+
+  DBG (USER_MESSAGE, "Sense: Optical gain %u.\n", (unsigned int) result[20]);
+  return status;
+}
+
+static SANE_Status
+set_window (Abaton_Scanner * s)
+{
+  uint8_t cmd[10 + 40];
+  uint8_t *window = cmd + 10 + 8;
+  int invert;
+  
+  memset (cmd, 0, sizeof (cmd));
+  cmd[0] = SET_WINDOW;
+  cmd[8] = 40;
+
+  /* Just like the Apple scanners, we put the resolution here */
+  STORE16 (window + 2, s->val[OPT_X_RESOLUTION].w);
+  STORE16 (window + 4, s->val[OPT_Y_RESOLUTION].w);
+
+  /* Unlike Apple scanners, these are pixel values */
+  STORE16 (window + 6, s->ULx);
+  STORE16 (window + 8, s->ULy);
+  STORE16 (window + 10, s->Width);
+  STORE16 (window + 12, s->Height);
+
+  STORE8 (window + 14, s->val[OPT_BRIGHTNESS].w);
+  STORE8 (window + 15, s->val[OPT_THRESHOLD].w);
+  STORE8 (window + 16, s->val[OPT_CONTRAST].w);
+
+  invert = s->val[OPT_NEGATIVE].w;
+
+  if (!strcmp (s->val[OPT_MODE].s, SANE_VALUE_SCAN_MODE_LINEART))
+    {
+      STORE8 (window + 17, 0);
+    }
+  else if (!strcmp (s->val[OPT_MODE].s, SANE_VALUE_SCAN_MODE_HALFTONE))
+    {
+      STORE8 (window + 17, 1);
+    }
+  else if (!strcmp (s->val[OPT_MODE].s, "Gray256")
+	   || !strcmp (s->val[OPT_MODE].s, "Gray16"))
+    {
+      STORE8 (window + 17, 2);
+      invert = !s->val[OPT_NEGATIVE].w;
+    }
+  else
+    {
+      DBG (ERROR_MESSAGE, "Can't match mode %s\n", s->val[OPT_MODE].s);
+      return SANE_STATUS_INVAL;
+    }
+
+  STORE8 (window + 18, s->bpp);
+
+  if (!strcmp (s->val[OPT_HALFTONE_PATTERN].s, "spiral"))
+    {
+      STORE8 (window + 20, 0);
+    }
+  else if (!strcmp (s->val[OPT_HALFTONE_PATTERN].s, "bayer"))
+    {
+      STORE8 (window + 20, 1);
+    }
+  else
+    {
+      DBG (ERROR_MESSAGE, "Can't match haftone pattern %s\n",
+	   s->val[OPT_HALFTONE_PATTERN].s);
+      return SANE_STATUS_INVAL;
+    }
+  
+  /* We have to invert these ones for some reason, so why not
+     let the scanner do it for us... */
+  STORE8 (window + 21, invert ? 0x80 : 0);
+  
+  STORE16 (window + 22, (s->val[OPT_MIRROR].w != 0));
+
+  return sanei_scsi_cmd (s->fd, cmd, sizeof (cmd), 0, 0);
+}
+
+static SANE_Status
+start_scan (Abaton_Scanner * s)
+{
+  SANE_Status status;
+  uint8_t start[7];
+
+
+  memset (start, 0, sizeof (start));
+  start[0] = START_STOP;
+  start[4] = 1;
+
+  status = sanei_scsi_cmd (s->fd, start, sizeof (start), 0, 0);
+  return status;
+}
+
+static SANE_Status
+attach (const char *devname, Abaton_Device ** devp, int may_wait)
+{
+  char result[INQ_LEN];
+  const char *model_name = result + 44;
+  int fd, abaton_scanner;
+  Abaton_Device *dev;
+  SANE_Status status;
+  size_t size;
+
+  for (dev = first_dev; dev; dev = dev->next)
+    if (strcmp (dev->sane.name, devname) == 0)
+      {
+	if (devp)
+	  *devp = dev;
+	return SANE_STATUS_GOOD;
+      }
+
+  DBG (USER_MESSAGE, "attach: opening %s\n", devname);
+  status = sanei_scsi_open (devname, &fd, sense_handler, 0);
+  if (status != SANE_STATUS_GOOD)
+    {
+      DBG (ERROR_MESSAGE, "attach: open failed (%s)\n",
+	   sane_strstatus (status));
+      return SANE_STATUS_INVAL;
+    }
+
+  if (may_wait)
+    wait_ready (fd);
+
+  DBG (USER_MESSAGE, "attach: sending INQUIRY\n");
+  size = sizeof (result);
+  status = sanei_scsi_cmd (fd, inquiry, sizeof (inquiry), result, &size);
+  if (status != SANE_STATUS_GOOD)
+    {
+      DBG (ERROR_MESSAGE, "attach: inquiry failed (%s)\n",
+	   sane_strstatus (status));
+      sanei_scsi_close (fd);
+      return status;
+    }
+
+  status = wait_ready (fd);
+  sanei_scsi_close (fd);
+  if (status != SANE_STATUS_GOOD)
+    return status;
+
+  /* check that we've got an Abaton */
+  abaton_scanner = (strncmp (result + 8, "ABATON  ", 8) == 0);
+  model_name = result + 16;
+
+  /* make sure it's a scanner ;-) */
+  abaton_scanner = abaton_scanner && (result[0] == 0x06);
+
+  if (!abaton_scanner)
+    {
+      DBG (ERROR_MESSAGE, "attach: device doesn't look like an Abaton scanner "
+	   "(result[0]=%#02x)\n", result[0]);
+      return SANE_STATUS_INVAL;
+    }
+
+  dev = malloc (sizeof (*dev));
+  if (!dev)
+    return SANE_STATUS_NO_MEM;
+
+  memset (dev, 0, sizeof (*dev));
+
+  dev->sane.name = strdup (devname);
+  dev->sane.vendor = "Abaton";
+  dev->sane.model = strndup (model_name, 16);
+  dev->sane.type = "flatbed scanner";
+
+  if (!strncmp (model_name, "SCAN 300/GS", 11))
+    {
+      dev->ScannerModel = ABATON_300GS;
+    }
+  else if (!strncmp (model_name, "SCAN 300/S", 10))
+    {
+      dev->ScannerModel = ABATON_300S;
+    }
+
+  DBG (USER_MESSAGE, "attach: found Abaton scanner model %s (%s)\n",
+       dev->sane.model, dev->sane.type);
+
+  ++num_devices;
+  dev->next = first_dev;
+  first_dev = dev;
+
+  if (devp)
+    *devp = dev;
+
+  return SANE_STATUS_GOOD;
+}
+
+static SANE_Status
+attach_one (const char *devname)
+{
+  return attach (devname, 0, SANE_FALSE);
+}
+
+static SANE_Status
+calc_parameters (Abaton_Scanner * s)
+{
+  SANE_String val = s->val[OPT_MODE].s;
+  SANE_Status status = SANE_STATUS_GOOD;
+  SANE_Int dpix = s->val[OPT_X_RESOLUTION].w;
+  SANE_Int dpiy = s->val[OPT_Y_RESOLUTION].w;
+  double ulx, uly, width, height;
+  
+  DBG (FLOW_CONTROL, "Entering calc_parameters\n");
+
+  if (!strcmp (val, SANE_VALUE_SCAN_MODE_LINEART) || !strcmp (val, SANE_VALUE_SCAN_MODE_HALFTONE))
+    {
+      s->params.depth = 1;
+      s->bpp = 1;
+    }
+  else if (!strcmp (val, "Gray16"))
+    {
+      s->params.depth = 8;
+      s->bpp = 4;
+    }
+  else if (!strcmp (val, "Gray256"))
+    {
+      s->params.depth = 8;
+      s->bpp = 8;
+    }
+  else
+    {
+      DBG (ERROR_MESSAGE, "calc_parameters: Invalid mode %s\n", (char *) val);
+      status = SANE_STATUS_INVAL;
+    }
+
+  /* in inches */
+  ulx    = (double) s->val[OPT_TL_X].w / MM_PER_INCH;
+  uly    = (double) s->val[OPT_TL_Y].w / MM_PER_INCH;
+  width  = (double) s->val[OPT_BR_X].w / MM_PER_INCH - ulx;
+  height = (double) s->val[OPT_BR_Y].w / MM_PER_INCH - uly;
+
+  DBG (VARIABLE_CONTROL, "(inches) ulx: %f, uly: %f, width: %f, height: %f\n",
+       ulx, uly, width, height);
+
+  /* turn 'em into pixel quantities */
+  s->ULx    = ulx    * dpix;
+  s->ULy    = uly    * dpiy;
+  s->Width  = width  * dpix;
+  s->Height = height * dpiy;
+  
+  DBG (VARIABLE_CONTROL, "(pixels) ulx: %d, uly: %d, width: %d, height: %d\n",
+       s->ULx, s->ULy, s->Width, s->Height);
+
+  /* floor width to a byte multiple */
+  if ((s->Width * s->bpp) % 8)
+    {
+      s->Width /= 8;
+      s->Width *= 8;
+      DBG (VARIABLE_CONTROL, "Adapting to width %d\n", s->Width);
+    }
+
+  s->params.pixels_per_line = s->Width;
+  s->params.lines = s->Height;
+  s->params.bytes_per_line = s->params.pixels_per_line * s->params.depth / 8;
+
+
+  DBG (VARIABLE_CONTROL, "format=%d\n", s->params.format);
+  DBG (VARIABLE_CONTROL, "last_frame=%d\n", s->params.last_frame);
+  DBG (VARIABLE_CONTROL, "lines=%d\n", s->params.lines);
+  DBG (VARIABLE_CONTROL, "depth=%d (%d)\n", s->params.depth, s->bpp);
+  DBG (VARIABLE_CONTROL, "pixels_per_line=%d\n", s->params.pixels_per_line);
+  DBG (VARIABLE_CONTROL, "bytes_per_line=%d\n", s->params.bytes_per_line);
+  DBG (VARIABLE_CONTROL, "Pixels %dx%dx%d\n",
+       s->params.pixels_per_line, s->params.lines, 1 << s->params.depth);
+
+  DBG (FLOW_CONTROL, "Leaving calc_parameters\n");
+  return status;
+}
+
+static SANE_Status
+mode_update (SANE_Handle handle, char *val)
+{
+  Abaton_Scanner *s = handle;
+
+  if (!strcmp (val, SANE_VALUE_SCAN_MODE_LINEART))
+    {
+      DISABLE (OPT_BRIGHTNESS);
+      DISABLE (OPT_CONTRAST);
+      ENABLE (OPT_THRESHOLD);
+      DISABLE (OPT_HALFTONE_PATTERN);
+    }
+  else if (!strcmp (val, SANE_VALUE_SCAN_MODE_HALFTONE))
+    {
+      ENABLE (OPT_BRIGHTNESS);
+      ENABLE (OPT_CONTRAST);
+      DISABLE (OPT_THRESHOLD);
+      ENABLE (OPT_HALFTONE_PATTERN);
+    }
+  else if (!strcmp (val, "Gray16") || !strcmp (val, "Gray256"))
+    {
+      ENABLE (OPT_BRIGHTNESS);
+      ENABLE (OPT_CONTRAST);
+      DISABLE (OPT_THRESHOLD);
+      DISABLE (OPT_HALFTONE_PATTERN);
+    }				/* End of Gray */
+  else
+    {
+      DBG (ERROR_MESSAGE, "Invalid mode %s\n", (char *) val);
+      return SANE_STATUS_INVAL;
+    }
+
+  calc_parameters (s);
+
+  return SANE_STATUS_GOOD;
+}
+
+/* find the longest of a list of strings */
+static size_t
+max_string_size (const SANE_String_Const strings[])
+{
+  size_t size, max_size = 0;
+  int i;
+
+  for (i = 0; strings[i]; ++i)
+    {
+      size = strlen (strings[i]) + 1;
+      if (size > max_size)
+	max_size = size;
+    }
+
+  return max_size;
+}
+
+static SANE_Status
+init_options (Abaton_Scanner * s)
+{
+  int i;
+
+  memset (s->opt, 0, sizeof (s->opt));
+  memset (s->val, 0, sizeof (s->val));
+
+  for (i = 0; i < NUM_OPTIONS; ++i)
+    {
+      s->opt[i].size = sizeof (SANE_Word);
+      s->opt[i].cap = SANE_CAP_SOFT_SELECT | SANE_CAP_SOFT_DETECT;
+    }
+
+  s->opt[OPT_NUM_OPTS].title = SANE_TITLE_NUM_OPTIONS;
+  s->opt[OPT_NUM_OPTS].desc = SANE_DESC_NUM_OPTIONS;
+  s->opt[OPT_NUM_OPTS].type = SANE_TYPE_INT;
+  s->opt[OPT_NUM_OPTS].cap = SANE_CAP_SOFT_DETECT;
+  s->val[OPT_NUM_OPTS].w = NUM_OPTIONS;
+
+  
+  /* "Mode" group: */
+  s->opt[OPT_MODE_GROUP].title = "Scan Mode";
+  s->opt[OPT_MODE_GROUP].desc = "";
+  s->opt[OPT_MODE_GROUP].type = SANE_TYPE_GROUP;
+  s->opt[OPT_MODE_GROUP].cap = 0;
+  s->opt[OPT_MODE_GROUP].constraint_type = SANE_CONSTRAINT_NONE;
+
+  mode_list[0]=SANE_VALUE_SCAN_MODE_LINEART;
+  
+  switch (s->hw->ScannerModel)
+    {
+    case ABATON_300GS:
+      mode_list[1]=SANE_VALUE_SCAN_MODE_HALFTONE;
+      mode_list[2]="Gray16";
+      mode_list[3]="Gray256";
+      mode_list[4]=NULL;
+      break;
+    case ABATON_300S:
+    default:
+      mode_list[1]=NULL;
+      break;
+    }
+  
+  /* scan mode */
+  s->opt[OPT_MODE].name = SANE_NAME_SCAN_MODE;
+  s->opt[OPT_MODE].title = SANE_TITLE_SCAN_MODE;
+  s->opt[OPT_MODE].desc = SANE_DESC_SCAN_MODE;
+  s->opt[OPT_MODE].type = SANE_TYPE_STRING;
+  s->opt[OPT_MODE].constraint_type = SANE_CONSTRAINT_STRING_LIST;
+  s->opt[OPT_MODE].size = max_string_size (mode_list);
+  s->opt[OPT_MODE].constraint.string_list = mode_list;
+  s->val[OPT_MODE].s = strdup (mode_list[0]);
+
+  /* resolution - horizontal */
+  s->opt[OPT_X_RESOLUTION].name = SANE_NAME_SCAN_RESOLUTION;
+  s->opt[OPT_X_RESOLUTION].title = SANE_TITLE_SCAN_X_RESOLUTION;
+  s->opt[OPT_X_RESOLUTION].desc = SANE_DESC_SCAN_X_RESOLUTION;
+  s->opt[OPT_X_RESOLUTION].type = SANE_TYPE_INT;
+  s->opt[OPT_X_RESOLUTION].unit = SANE_UNIT_DPI;
+  s->opt[OPT_X_RESOLUTION].constraint_type = SANE_CONSTRAINT_RANGE;
+  s->opt[OPT_X_RESOLUTION].constraint.range = &dpi_range;
+  s->val[OPT_X_RESOLUTION].w = 150;
+
+  /* resolution - vertical */
+  s->opt[OPT_Y_RESOLUTION].name = SANE_NAME_SCAN_Y_RESOLUTION;
+  s->opt[OPT_Y_RESOLUTION].title = SANE_TITLE_SCAN_Y_RESOLUTION;
+  s->opt[OPT_Y_RESOLUTION].desc = SANE_DESC_SCAN_Y_RESOLUTION;
+  s->opt[OPT_Y_RESOLUTION].type = SANE_TYPE_INT;
+  s->opt[OPT_Y_RESOLUTION].unit = SANE_UNIT_DPI;
+  s->opt[OPT_Y_RESOLUTION].constraint_type = SANE_CONSTRAINT_RANGE;
+  s->opt[OPT_Y_RESOLUTION].constraint.range = &dpi_range;
+  s->val[OPT_Y_RESOLUTION].w = 150;
+
+  /* constrain resolutions */
+  s->opt[OPT_RESOLUTION_BIND].name = SANE_NAME_RESOLUTION_BIND;
+  s->opt[OPT_RESOLUTION_BIND].title = SANE_TITLE_RESOLUTION_BIND;
+  s->opt[OPT_RESOLUTION_BIND].desc = SANE_DESC_RESOLUTION_BIND;
+  s->opt[OPT_RESOLUTION_BIND].type = SANE_TYPE_BOOL;
+  s->opt[OPT_RESOLUTION_BIND].unit = SANE_UNIT_NONE;
+  s->opt[OPT_RESOLUTION_BIND].constraint_type = SANE_CONSTRAINT_NONE;
+  /* until I fix it */
+  s->val[OPT_RESOLUTION_BIND].w = SANE_FALSE;
+
+  /* preview mode */
+  s->opt[OPT_PREVIEW].name = SANE_NAME_PREVIEW;
+  s->opt[OPT_PREVIEW].title = SANE_TITLE_PREVIEW;
+  s->opt[OPT_PREVIEW].desc = SANE_DESC_PREVIEW;
+  s->opt[OPT_PREVIEW].cap = SANE_CAP_SOFT_DETECT | SANE_CAP_SOFT_SELECT;
+  s->opt[OPT_PREVIEW].type = SANE_TYPE_BOOL;
+  s->val[OPT_PREVIEW].w = SANE_FALSE;
+  
+  /* halftone pattern  */
+  s->opt[OPT_HALFTONE_PATTERN].name = SANE_NAME_HALFTONE_PATTERN;
+  s->opt[OPT_HALFTONE_PATTERN].title = SANE_TITLE_HALFTONE_PATTERN;
+  s->opt[OPT_HALFTONE_PATTERN].desc = SANE_DESC_HALFTONE_PATTERN;
+  s->opt[OPT_HALFTONE_PATTERN].size = max_string_size (halftone_pattern_list);
+  s->opt[OPT_HALFTONE_PATTERN].type = SANE_TYPE_STRING;
+  s->opt[OPT_HALFTONE_PATTERN].cap |= SANE_CAP_INACTIVE;
+  s->opt[OPT_HALFTONE_PATTERN].constraint_type = SANE_CONSTRAINT_STRING_LIST;
+  s->opt[OPT_HALFTONE_PATTERN].constraint.string_list = halftone_pattern_list;
+  s->val[OPT_HALFTONE_PATTERN].s = strdup (halftone_pattern_list[0]);
+
+
+  /* "Geometry" group: */
+  s->opt[OPT_GEOMETRY_GROUP].title = "Geometry";
+  s->opt[OPT_GEOMETRY_GROUP].desc = "";
+  s->opt[OPT_GEOMETRY_GROUP].type = SANE_TYPE_GROUP;
+  s->opt[OPT_GEOMETRY_GROUP].cap = SANE_CAP_ADVANCED;
+  s->opt[OPT_GEOMETRY_GROUP].constraint_type = SANE_CONSTRAINT_NONE;
+
+  /* top-left x */
+  s->opt[OPT_TL_X].name = SANE_NAME_SCAN_TL_X;
+  s->opt[OPT_TL_X].title = SANE_TITLE_SCAN_TL_X;
+  s->opt[OPT_TL_X].desc = SANE_DESC_SCAN_TL_X;
+  s->opt[OPT_TL_X].type = SANE_TYPE_INT;
+  s->opt[OPT_TL_X].unit = SANE_UNIT_MM;
+  s->opt[OPT_TL_X].constraint_type = SANE_CONSTRAINT_RANGE;
+  s->opt[OPT_TL_X].constraint.range = &x_range;
+  s->val[OPT_TL_X].w = 0;
+
+  /* top-left y */
+  s->opt[OPT_TL_Y].name = SANE_NAME_SCAN_TL_Y;
+  s->opt[OPT_TL_Y].title = SANE_TITLE_SCAN_TL_Y;
+  s->opt[OPT_TL_Y].desc = SANE_DESC_SCAN_TL_Y;
+  s->opt[OPT_TL_Y].type = SANE_TYPE_INT;
+  s->opt[OPT_TL_Y].unit = SANE_UNIT_MM;
+  s->opt[OPT_TL_Y].constraint_type = SANE_CONSTRAINT_RANGE;
+  s->opt[OPT_TL_Y].constraint.range = &y_range;
+  s->val[OPT_TL_Y].w = 0;
+
+  /* bottom-right x */
+  s->opt[OPT_BR_X].name = SANE_NAME_SCAN_BR_X;
+  s->opt[OPT_BR_X].title = SANE_TITLE_SCAN_BR_X;
+  s->opt[OPT_BR_X].desc = SANE_DESC_SCAN_BR_X;
+  s->opt[OPT_BR_X].type = SANE_TYPE_INT;
+  s->opt[OPT_BR_X].unit = SANE_UNIT_MM;
+  s->opt[OPT_BR_X].constraint_type = SANE_CONSTRAINT_RANGE;
+  s->opt[OPT_BR_X].constraint.range = &x_range;
+  s->val[OPT_BR_X].w = x_range.max;
+
+  /* bottom-right y */
+  s->opt[OPT_BR_Y].name = SANE_NAME_SCAN_BR_Y;
+  s->opt[OPT_BR_Y].title = SANE_TITLE_SCAN_BR_Y;
+  s->opt[OPT_BR_Y].desc = SANE_DESC_SCAN_BR_Y;
+  s->opt[OPT_BR_Y].type = SANE_TYPE_INT;
+  s->opt[OPT_BR_Y].unit = SANE_UNIT_MM;
+  s->opt[OPT_BR_Y].constraint_type = SANE_CONSTRAINT_RANGE;
+  s->opt[OPT_BR_Y].constraint.range = &y_range;
+  s->val[OPT_BR_Y].w = y_range.max;
+
+
+  /* "Enhancement" group: */
+  s->opt[OPT_ENHANCEMENT_GROUP].title = "Enhancement";
+  s->opt[OPT_ENHANCEMENT_GROUP].desc = "";
+  s->opt[OPT_ENHANCEMENT_GROUP].type = SANE_TYPE_GROUP;
+  s->opt[OPT_ENHANCEMENT_GROUP].cap = 0;
+  s->opt[OPT_ENHANCEMENT_GROUP].constraint_type = SANE_CONSTRAINT_NONE;
+
+  /* brightness */
+  s->opt[OPT_BRIGHTNESS].name = SANE_NAME_BRIGHTNESS;
+  s->opt[OPT_BRIGHTNESS].title = SANE_TITLE_BRIGHTNESS;
+  s->opt[OPT_BRIGHTNESS].desc = SANE_DESC_BRIGHTNESS;
+  s->opt[OPT_BRIGHTNESS].type = SANE_TYPE_INT;
+  s->opt[OPT_BRIGHTNESS].unit = SANE_UNIT_NONE;
+  s->opt[OPT_BRIGHTNESS].cap |= SANE_CAP_INACTIVE;
+  s->opt[OPT_BRIGHTNESS].constraint_type = SANE_CONSTRAINT_RANGE;
+  s->opt[OPT_BRIGHTNESS].constraint.range = &enhance_range;
+  s->val[OPT_BRIGHTNESS].w = 150;
+
+  /* contrast */
+  s->opt[OPT_CONTRAST].name = SANE_NAME_CONTRAST;
+  s->opt[OPT_CONTRAST].title = SANE_TITLE_CONTRAST;
+  s->opt[OPT_CONTRAST].desc = SANE_DESC_CONTRAST;
+  s->opt[OPT_CONTRAST].type = SANE_TYPE_INT;
+  s->opt[OPT_CONTRAST].unit = SANE_UNIT_NONE;
+  s->opt[OPT_CONTRAST].cap |= SANE_CAP_INACTIVE;
+  s->opt[OPT_CONTRAST].constraint_type = SANE_CONSTRAINT_RANGE;
+  s->opt[OPT_CONTRAST].constraint.range = &enhance_range;
+  s->val[OPT_CONTRAST].w = 150;
+
+  /* threshold */
+  s->opt[OPT_THRESHOLD].name = SANE_NAME_THRESHOLD;
+  s->opt[OPT_THRESHOLD].title = SANE_TITLE_THRESHOLD;
+  s->opt[OPT_THRESHOLD].desc = SANE_DESC_THRESHOLD;
+  s->opt[OPT_THRESHOLD].type = SANE_TYPE_INT;
+  s->opt[OPT_THRESHOLD].unit = SANE_UNIT_NONE;
+  s->opt[OPT_THRESHOLD].constraint_type = SANE_CONSTRAINT_RANGE;
+  s->opt[OPT_THRESHOLD].constraint.range = &enhance_range;
+  s->val[OPT_THRESHOLD].w = 150;
+
+  /* negative */
+  s->opt[OPT_NEGATIVE].name = SANE_NAME_NEGATIVE;
+  s->opt[OPT_NEGATIVE].title = SANE_TITLE_NEGATIVE;
+  s->opt[OPT_NEGATIVE].desc = SANE_DESC_NEGATIVE;
+  s->opt[OPT_NEGATIVE].type = SANE_TYPE_BOOL;
+  s->opt[OPT_NEGATIVE].unit = SANE_UNIT_NONE;
+  s->opt[OPT_NEGATIVE].constraint_type = SANE_CONSTRAINT_NONE;
+  s->val[OPT_NEGATIVE].w = SANE_FALSE;
+  
+  /* mirror-image */
+  s->opt[OPT_MIRROR].name = "mirror";
+  s->opt[OPT_MIRROR].title = "Mirror Image";
+  s->opt[OPT_MIRROR].desc = "Scan in mirror-image";
+  s->opt[OPT_MIRROR].type = SANE_TYPE_BOOL;
+  s->opt[OPT_MIRROR].unit = SANE_UNIT_NONE;
+  s->opt[OPT_MIRROR].constraint_type = SANE_CONSTRAINT_NONE;
+  s->val[OPT_MIRROR].w = SANE_FALSE;
+
+  return SANE_STATUS_GOOD;
+}
+
+SANE_Status
+sane_init (SANE_Int * version_code, SANE_Auth_Callback authorize)
+{
+  char dev_name[PATH_MAX];
+  size_t len;
+  FILE *fp;
+
+  authorize = authorize;		/* silence gcc */
+
+  DBG_INIT ();
+
+  if (version_code)
+    *version_code = SANE_VERSION_CODE (SANE_CURRENT_MAJOR, V_MINOR, 0);
+
+  fp = sanei_config_open (ABATON_CONFIG_FILE);
+  if (!fp)
+    {
+      /* default to /dev/scanner instead of insisting on config file */
+      attach ("/dev/scanner", 0, SANE_FALSE);
+      return SANE_STATUS_GOOD;
+    }
+
+  while (sanei_config_read (dev_name, sizeof (dev_name), fp))
+    {
+      if (dev_name[0] == '#')	/* ignore line comments */
+	continue;
+
+      len = strlen (dev_name);
+
+      if (!len)
+	continue;		/* ignore empty lines */
+
+      if (strncmp (dev_name, "option", 6) == 0
+	  && isspace (dev_name[6]))
+	{
+	  const char *str = dev_name + 7;
+
+	  while (isspace (*str))
+	    ++str;
+
+	  continue;
+	}
+
+      sanei_config_attach_matching_devices (dev_name, attach_one);
+    }
+  fclose (fp);
+  return SANE_STATUS_GOOD;
+}
+
+void
+sane_exit (void)
+{
+  Abaton_Device *dev, *next;
+
+  for (dev = first_dev; dev; dev = next)
+    {
+      next = dev->next;
+      free ((void *) dev->sane.name);
+      free ((void *) dev->sane.model);
+      free (dev);
+    }
+}
+
+SANE_Status
+sane_get_devices (const SANE_Device *** device_list, SANE_Bool local_only)
+{
+  static const SANE_Device **devlist = 0;
+  Abaton_Device *dev;
+  int i;
+
+  local_only = local_only;		/* silence gcc */
+
+  if (devlist)
+    free (devlist);
+
+  devlist = malloc ((num_devices + 1) * sizeof (devlist[0]));
+  if (!devlist)
+    return SANE_STATUS_NO_MEM;
+
+  i = 0;
+  for (dev = first_dev; i < num_devices; dev = dev->next)
+    devlist[i++] = &dev->sane;
+  devlist[i++] = 0;
+
+  *device_list = devlist;
+  return SANE_STATUS_GOOD;
+}
+
+SANE_Status
+sane_open (SANE_String_Const devicename, SANE_Handle * handle)
+{
+  Abaton_Device *dev;
+  SANE_Status status;
+  Abaton_Scanner *s;
+
+  if (devicename[0])
+    {
+      for (dev = first_dev; dev; dev = dev->next)
+	if (strcmp (dev->sane.name, devicename) == 0)
+	  break;
+
+      if (!dev)
+	{
+	  status = attach (devicename, &dev, SANE_TRUE);
+	  if (status != SANE_STATUS_GOOD)
+	    return status;
+	}
+    }
+  else
+    /* empty devicname -> use first device */
+    dev = first_dev;
+
+  if (!dev)
+    return SANE_STATUS_INVAL;
+
+  s = malloc (sizeof (*s));
+  if (!s)
+    return SANE_STATUS_NO_MEM;
+  memset (s, 0, sizeof (*s));
+  s->fd = -1;
+  s->hw = dev;
+
+  init_options (s);
+
+  /* set up some universal parameters */
+  s->params.last_frame = SANE_TRUE;
+  s->params.format = SANE_FRAME_GRAY;
+  
+  /* insert newly opened handle into list of open handles: */
+  s->next = first_handle;
+  first_handle = s;
+
+  *handle = s;
+  return SANE_STATUS_GOOD;
+}
+
+void
+sane_close (SANE_Handle handle)
+{
+  Abaton_Scanner *prev, *s;
+
+  /* remove handle from list of open handles: */
+  prev = 0;
+  for (s = first_handle; s; s = s->next)
+    {
+      if (s == (Abaton_Scanner *) handle)
+	break;
+      prev = s;
+    }
+  if (!s)
+    {
+      DBG (ERROR_MESSAGE, "close: invalid handle %p\n", handle);
+      return;			/* oops, not a handle we know about */
+    }
+
+  if (prev)
+    prev->next = s->next;
+  else
+    first_handle = s->next;
+
+  free (handle);
+}
+
+const SANE_Option_Descriptor *
+sane_get_option_descriptor (SANE_Handle handle, SANE_Int option)
+{
+  Abaton_Scanner *s = handle;
+
+  if ((unsigned) option >= NUM_OPTIONS)
+    return NULL;
+  
+  return s->opt + option;
+}
+
+SANE_Status
+sane_control_option (SANE_Handle handle, SANE_Int option,
+		     SANE_Action action, void *val, SANE_Int * info)
+{
+  Abaton_Scanner *s = handle;
+  SANE_Status status;
+  SANE_Word cap;
+
+
+  if (option < 0 || option >= NUM_OPTIONS)
+    return SANE_STATUS_INVAL;
+
+  if (info != NULL)
+    *info = 0;
+
+  if (s->scanning)
+    return SANE_STATUS_DEVICE_BUSY;
+
+  cap = s->opt[option].cap;
+
+  if (!SANE_OPTION_IS_ACTIVE (cap))
+    return SANE_STATUS_INVAL;
+
+  if (action == SANE_ACTION_GET_VALUE)
+    {
+      switch (option)
+	{
+	  /* word options: */
+	case OPT_NUM_OPTS:
+	case OPT_X_RESOLUTION:
+	case OPT_Y_RESOLUTION:
+	case OPT_RESOLUTION_BIND:
+	case OPT_PREVIEW:
+	case OPT_TL_X:
+	case OPT_TL_Y:
+	case OPT_BR_X:
+	case OPT_BR_Y:
+	case OPT_BRIGHTNESS:
+	case OPT_CONTRAST:
+	case OPT_THRESHOLD:
+	case OPT_NEGATIVE:
+	case OPT_MIRROR:
+	  *(SANE_Word *) val = s->val[option].w;
+	  return SANE_STATUS_GOOD;
+
+	  /* string options */
+
+	case OPT_MODE:
+	case OPT_HALFTONE_PATTERN:
+	  status = sanei_constrain_value (s->opt + option, s->val[option].s,
+					  info);
+	  strcpy (val, s->val[option].s);	  
+	  return SANE_STATUS_GOOD;
+	}
+    }
+  else if (action == SANE_ACTION_SET_VALUE)
+    {
+      if (!SANE_OPTION_IS_SETTABLE (cap))
+	return SANE_STATUS_INVAL;
+
+      status = sanei_constrain_value (s->opt + option, val, info);
+
+      if (status != SANE_STATUS_GOOD)
+	return status;
+
+
+      switch (option)
+	{
+	  /* resolution should be uniform for previews, or when the
+	     user says so. */
+	case OPT_PREVIEW:
+	  s->val[option].w = *(SANE_Word *) val;
+	  if (*(SANE_Word *) val) {
+	    s->val[OPT_Y_RESOLUTION].w = s->val[OPT_X_RESOLUTION].w;
+	    if (info)
+	      *info |= SANE_INFO_RELOAD_OPTIONS;
+	  }
+	  /* always recalculate! */
+	  calc_parameters (s);
+	  if (info)
+	    *info |= SANE_INFO_RELOAD_PARAMS;
+	  return SANE_STATUS_GOOD;
+	    
+	case OPT_RESOLUTION_BIND:
+	  s->val[option].w = *(SANE_Word *) val;
+	  if (*(SANE_Word *) val) {
+	    s->val[OPT_Y_RESOLUTION].w = s->val[OPT_X_RESOLUTION].w;
+	    calc_parameters (s);
+	    if (info)
+	      *info |= SANE_INFO_RELOAD_PARAMS |
+		SANE_INFO_RELOAD_OPTIONS;
+	  }
+	  return SANE_STATUS_GOOD;
+	  
+	case OPT_X_RESOLUTION:
+	  if (s->val[OPT_PREVIEW].w || s->val[OPT_RESOLUTION_BIND].w) {
+	    s->val[OPT_Y_RESOLUTION].w = *(SANE_Word *)val;
+	    if (info)
+	      *info |= SANE_INFO_RELOAD_OPTIONS;
+	  }
+	  s->val[option].w = *(SANE_Word *) val;
+	  calc_parameters (s);
+	  if (info)
+	    *info |= SANE_INFO_RELOAD_PARAMS;
+	  return SANE_STATUS_GOOD;
+
+	case OPT_Y_RESOLUTION:
+	  if (s->val[OPT_PREVIEW].w || s->val[OPT_RESOLUTION_BIND].w) {
+	    s->val[OPT_X_RESOLUTION].w = *(SANE_Word *)val;
+	    if (info)
+	      *info |= SANE_INFO_RELOAD_OPTIONS;
+	  }
+	  s->val[option].w = *(SANE_Word *) val;
+	  calc_parameters (s);
+	  if (info)
+	    *info |= SANE_INFO_RELOAD_PARAMS;
+	  return SANE_STATUS_GOOD;
+
+	  /* these ones don't have crazy side effects */
+	case OPT_TL_X:
+	case OPT_TL_Y:
+	case OPT_BR_Y:
+	  s->val[option].w = *(SANE_Word *) val;
+	  calc_parameters (s);
+	  if (info)
+	    *info |= SANE_INFO_RELOAD_PARAMS;
+	  return SANE_STATUS_GOOD;
+
+	  /* this one is somewhat imprecise */
+	case OPT_BR_X:
+	  s->val[option].w = *(SANE_Word *) val;
+	  calc_parameters (s);
+	  if (info)
+	    *info |= SANE_INFO_RELOAD_PARAMS
+	      | SANE_INFO_INEXACT;	  
+	  return SANE_STATUS_GOOD;
+
+	  /* no side-effects whatsoever */
+	case OPT_BRIGHTNESS:
+	case OPT_CONTRAST:
+	case OPT_THRESHOLD:
+	case OPT_NEGATIVE:
+	case OPT_MIRROR:
+
+	  s->val[option].w = *(SANE_Word *) val;
+	  return SANE_STATUS_GOOD;
+
+	  /* string options */
+	case OPT_HALFTONE_PATTERN:
+	  if (info)
+	    *info |= SANE_INFO_RELOAD_OPTIONS;
+	  if (s->val[option].s)
+	    free (s->val[option].s);
+	  s->val[option].s = strdup (val);
+	  return SANE_STATUS_GOOD;
+	  
+	case OPT_MODE:
+	  status = mode_update (s, val);
+	  if (status != SANE_STATUS_GOOD)
+	    return status;
+	  if (s->val[option].s)
+	    free (s->val[option].s);
+	  s->val[option].s = strdup (val);
+
+	  if (info)
+	    *info |= SANE_INFO_RELOAD_OPTIONS | SANE_INFO_RELOAD_PARAMS;
+	  return SANE_STATUS_GOOD;
+	}			/* End of switch */
+    }				/* End of SET_VALUE */
+  return SANE_STATUS_INVAL;
+}
+
+SANE_Status
+sane_get_parameters (SANE_Handle handle, SANE_Parameters * params)
+{
+  Abaton_Scanner *s = handle;
+
+  DBG (FLOW_CONTROL, "Entering sane_get_parameters\n");
+  calc_parameters (s);
+
+
+  if (params)
+    *params = s->params;
+  return SANE_STATUS_GOOD;
+}
+
+SANE_Status
+sane_start (SANE_Handle handle)
+{
+  Abaton_Scanner *s = handle;
+  SANE_Status status;
+
+  /* First make sure we have a current parameter set.  Some of the
+     parameters will be overwritten below, but that's OK.  */
+
+  calc_parameters (s);
+
+  if (s->fd < 0)
+    {
+      /* this is the first (and maybe only) pass... */
+
+      status = sanei_scsi_open (s->hw->sane.name, &s->fd, sense_handler, 0);
+      if (status != SANE_STATUS_GOOD)
+	{
+	  DBG (ERROR_MESSAGE, "open: open of %s failed: %s\n",
+	       s->hw->sane.name, sane_strstatus (status));
+	  return status;
+	}
+    }
+
+  status = wait_ready (s->fd);
+  if (status != SANE_STATUS_GOOD)
+    {
+      DBG (ERROR_MESSAGE, "open: wait_ready() failed: %s\n",
+	   sane_strstatus (status));
+      goto stop_scanner_and_return;
+    }
+
+  status = request_sense (s);
+  if (status != SANE_STATUS_GOOD)
+    {
+      DBG (ERROR_MESSAGE, "sane_start: request_sense revealed error: %s\n",
+	   sane_strstatus (status));
+      goto stop_scanner_and_return;
+    }
+
+  status = set_window (s);
+  if (status != SANE_STATUS_GOOD)
+    {
+      DBG (ERROR_MESSAGE, "open: set scan area command failed: %s\n",
+	   sane_strstatus (status));
+      goto stop_scanner_and_return;
+    }
+
+  s->scanning = SANE_TRUE;
+  s->AbortedByUser = SANE_FALSE;
+
+  status = start_scan (s);
+  if (status != SANE_STATUS_GOOD)
+    goto stop_scanner_and_return;
+
+  return SANE_STATUS_GOOD;
+
+stop_scanner_and_return:
+  s->scanning = SANE_FALSE;
+  s->AbortedByUser = SANE_FALSE;
+  return status;
+}
+
+SANE_Status
+sane_read (SANE_Handle handle, SANE_Byte * buf, SANE_Int max_len,
+	   SANE_Int * len)
+{
+  Abaton_Scanner *s = handle;
+  SANE_Status status;
+
+  uint8_t get_data_status[10];
+  uint8_t read[10];
+
+  uint8_t result[12];
+  size_t size;
+  SANE_Int data_av = 0;
+  SANE_Int data_length = 0;
+  SANE_Int offset = 0;
+  SANE_Int rread = 0;
+  SANE_Bool Pseudo8bit = SANE_FALSE;
+
+
+  *len = 0;
+
+  /* don't let bogus read requests reach the scanner */
+  /* this is a sub-optimal way of doing this, I'm sure */
+  if (!s->scanning)
+    return SANE_STATUS_EOF;
+  
+  if (!strcmp (s->val[OPT_MODE].s, "Gray16"))
+    Pseudo8bit = SANE_TRUE;
+
+  memset (get_data_status, 0, sizeof (get_data_status));
+  get_data_status[0] = GET_DATA_STATUS;
+  /* This means "block" for Apple scanners, it seems to be the same
+     for Abaton.  The scanner will do non-blocking I/O, but I don't
+     want to go there right now. */
+  get_data_status[1] = 1;
+  STORE8 (get_data_status + 8, sizeof (result));
+
+  memset (read, 0, sizeof (read));
+  read[0] = READ_10;
+
+  do
+    {
+      size = sizeof (result);
+      /* this isn't necessary */
+      /*  memset (result, 0, size); */
+      status = sanei_scsi_cmd (s->fd, get_data_status,
+			       sizeof (get_data_status), result, &size);
+
+      if (status != SANE_STATUS_GOOD)
+	return status;
+      if (!size)
+	{
+	  DBG (ERROR_MESSAGE, "sane_read: cannot get_data_status.\n");
+	  return SANE_STATUS_IO_ERROR;
+	}
+
+      /* this is not an accurate name, but oh well... */
+      data_length = GET24 (result);
+      data_av = GET24 (result + 9);
+
+      /* don't check result[3] here, because that screws things up
+	 somewhat */
+      if (data_length) {
+	DBG (IO_MESSAGE,
+	     "sane_read: (status) Available in scanner buffer %u.\n",
+	     data_av);
+
+	if (Pseudo8bit)
+	  {
+	    if ((data_av * 2) + offset > max_len)
+	      rread = (max_len - offset) / 2;
+	    else
+	      rread = data_av;
+	  }
+	else if (data_av + offset > max_len)
+	  {
+	    rread = max_len - offset;
+	  }
+	else
+	  {
+	    rread = data_av;
+	  }
+	
+	DBG (IO_MESSAGE,
+	     "sane_read: (action) Actual read request for %u bytes.\n",
+	     rread);
+
+	size = rread;
+      
+	STORE24 (read + 6, rread);
+
+	status = sanei_scsi_cmd (s->fd, read, sizeof (read),
+				 buf + offset, &size);
+
+	if (Pseudo8bit)
+	  {
+	    SANE_Int byte;
+	    SANE_Int pos = offset + (rread << 1) - 1;
+	    SANE_Byte B;
+	    for (byte = offset + rread - 1; byte >= offset; byte--)
+	      {
+		B = buf[byte];
+		/* don't invert these! */
+		buf[pos--] = B << 4;   /* low (right) nibble */
+		buf[pos--] = B & 0xF0; /* high (left) nibble */
+	      }
+	    /* putting an end to bitop abuse here */
+	    offset += size * 2;
+	  }
+	else
+	  offset += size;
+
+	DBG (IO_MESSAGE, "sane_read: Buffer %u of %u full %g%%\n",
+	     offset, max_len, (double) (offset * 100. / max_len));
+      }
+    }
+  while (offset < max_len && data_length != 0 && !s->AbortedByUser);
+
+  if (s->AbortedByUser)
+    {
+      s->scanning = SANE_FALSE;
+
+      if (status != SANE_STATUS_GOOD)
+	{
+	  DBG (ERROR_MESSAGE, "sane_read: request_sense revealed error: %s\n",
+	       sane_strstatus (status));
+	  return status;
+	}
+
+      status = sanei_scsi_cmd (s->fd, test_unit_ready,
+			       sizeof (test_unit_ready), 0, 0);
+      if (status != SANE_STATUS_GOOD || status != SANE_STATUS_INVAL)
+	return status;
+      return SANE_STATUS_CANCELLED;
+    }
+
+  if (!data_length)
+    {
+      s->scanning = SANE_FALSE;
+      DBG (IO_MESSAGE, "sane_read: (status) No more data...");
+      if (!offset)
+	{
+	  /* this shouldn't happen */
+	  *len = 0;
+	  DBG (IO_MESSAGE, "EOF\n");
+	  return SANE_STATUS_EOF;
+	}
+      else
+	{
+	  *len = offset;
+	  DBG (IO_MESSAGE, "GOOD\n");
+	  return SANE_STATUS_GOOD;
+	}
+    }
+
+
+  DBG (FLOW_CONTROL,
+       "sane_read: Normal Exiting, Aborted=%u, data_length=%u\n",
+       s->AbortedByUser, data_av);
+  *len = offset;
+
+  return SANE_STATUS_GOOD;
+}
+
+void
+sane_cancel (SANE_Handle handle)
+{
+  Abaton_Scanner *s = handle;
+
+  if (s->scanning)
+    {
+      if (s->AbortedByUser)
+	{
+	  DBG (FLOW_CONTROL,
+	       "sane_cancel: Already Aborted. Please Wait...\n");
+	}
+      else
+	{
+	  s->scanning = SANE_FALSE;
+	  s->AbortedByUser = SANE_TRUE;
+	  DBG (FLOW_CONTROL, "sane_cancel: Signal Caught! Aborting...\n");
+	}
+    }
+  else
+    {
+      if (s->AbortedByUser)
+	{
+	  DBG (FLOW_CONTROL, "sane_cancel: Scan has not been initiated yet."
+	       "we probably recieved a signal while writing data.\n");
+	  s->AbortedByUser = SANE_FALSE;
+	}
+      else
+	{
+	  DBG (FLOW_CONTROL, "sane_cancel: Scan has not been initiated "
+	       "yet (or it's over).\n");
+	}
+    }
+
+  return;
+}
+
+SANE_Status
+sane_set_io_mode (SANE_Handle handle, SANE_Bool non_blocking)
+{
+  handle = handle;			/* silence gcc */
+  non_blocking = non_blocking;	/* silence gcc */
+
+  DBG (FLOW_CONTROL, "sane_set_io_mode: Don't call me please. "
+       "Unimplemented function\n");
+  return SANE_STATUS_UNSUPPORTED;
+}
+
+SANE_Status
+sane_get_select_fd (SANE_Handle handle, SANE_Int * fd)
+{
+  handle = handle;			/* silence gcc */
+  fd = fd;						/* silence gcc */
+  
+  DBG (FLOW_CONTROL, "sane_get_select_fd: Don't call me please. "
+       "Unimplemented function\n");
+  return SANE_STATUS_UNSUPPORTED;
+}