Initial import of sane-backends version 1.0.24-1.2

1 files changed, 1341 insertions, 0 deletions

diff --git a/backend/s9036.c b/backend/s9036.c
new file mode 100644
index 0000000..9313622
--- /dev/null
+++ b/backend/s9036.c
@@ -0,0 +1,1341 @@
+/* sane - Scanner Access Now Easy.
+
+   This file (C) 1997 Ingo Schneider
+
+   This file is part of the SANE package.
+
+   SANE 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.
+
+   SANE 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 sane; see the file COPYING.  If not, write to the Free
+   Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+   This file implements a SANE backend for Siemens 9036 flatbed scanners.  */
+
+#include "../include/sane/config.h"
+
+#include <stdlib.h>
+#include <unistd.h>
+#include <string.h>
+#include <sys/types.h>
+
+#ifndef PATH_MAX
+# define PATH_MAX	1024
+#endif
+
+#include "../include/sane/sane.h"
+#include "../include/sane/sanei.h"
+#include "../include/sane/sanei_config.h"
+#include "../include/sane/saneopts.h"
+#include "../include/sane/sanei_scsi.h"
+#include "s9036.h"
+
+#define BACKEND_NAME	s9036
+#include "../include/sane/sanei_backend.h"
+
+
+#undef Byte
+#define Byte SANE_Byte
+
+static int num_devices;
+static S9036_Device *s9036_devices;
+
+
+/* sets loc_s bytes long value at offset loc in scsi command to value size  */
+static void 
+set_size (Byte * loc, int loc_s, size_t size)
+{
+  int i;
+
+  for (i = 0; i < loc_s; i++)
+    {
+      loc[loc_s - i - 1] = (size >> (i * 8)) & 0xff;
+    }
+}
+
+static long 
+reserve_unit (int fd)
+{
+  const Byte scsi_reserve[] =
+  {
+    0x16, 0x00, 0x00, 0x00, 0x00, 0x00
+  };
+  DBG (3, "reserve_unit()\n");
+  return sanei_scsi_cmd (fd, scsi_reserve, sizeof (scsi_reserve), 0, 0);
+}
+
+static long 
+release_unit (int fd)
+{
+  const Byte scsi_release[] =
+  {
+    0x17, 0x00, 0x00, 0x00, 0x00, 0x00
+  };
+  DBG (3, "release_unit()\n");
+  return sanei_scsi_cmd (fd, scsi_release, sizeof (scsi_release), 0, 0);
+}
+
+static SANE_Status
+test_ready (int fd)
+{
+  static const Byte scsi_test_ready[] =
+  {
+    0x00, 0x00, 0x00, 0x00, 0x00, 0x00
+  };
+
+  SANE_Status status;
+  int try;
+
+  for (try = 0; try < 1000; ++try)
+    {
+      DBG (3, "test_ready: sending TEST_UNIT_READY\n");
+      status = sanei_scsi_cmd (fd, scsi_test_ready, sizeof (scsi_test_ready),
+			       0, 0);
+
+      switch (status)
+	{
+	case SANE_STATUS_DEVICE_BUSY:
+	  usleep (100000);	/* retry after 100ms */
+	  break;
+
+	case SANE_STATUS_GOOD:
+	  return status;
+
+	default:
+	  DBG (1, "test_ready: test unit ready failed (%s)\n",
+	       sane_strstatus (status));
+	  return status;
+	}
+    }
+
+  DBG (1, "test_ready: timed out after %d attempts\n", try);
+  return SANE_STATUS_IO_ERROR;
+}
+
+static SANE_Status
+sense_handler (int scsi_fd, u_char *result, void *arg)
+{
+  scsi_fd = scsi_fd;
+  arg = arg; /* silence compilation warnings */
+
+  if (result[0])
+    {
+      DBG (0, "sense_handler() : sense code = %02x\n", result[0]);
+      return SANE_STATUS_IO_ERROR;
+    }
+  else
+    {
+      return SANE_STATUS_GOOD;
+    }
+}
+
+static SANE_Status
+stop_scan (int fd)
+{
+  fd = fd; /* silence compilation warnings */
+
+  /* XXX don't know how to stop the scanner. To be tested ! */
+#if 0
+  const Byte scsi_rewind[] =
+  {
+    0x01, 0x00, 0x00, 0x00, 0x00, 0x00
+  };
+  DBG (1, "Trying to stop scanner...\n");
+  return sanei_scsi_cmd (fd, scsi_rewind, sizeof (scsi_rewind), 0, 0);
+#else
+  return SANE_STATUS_GOOD;
+#endif
+}
+
+
+static SANE_Status
+start_scan (int fd, SANE_Bool cont)
+{
+  struct
+  {
+    /* Command */
+    Byte cmd;
+    Byte lun;
+    Byte res[2];
+    Byte tr_len;
+    Byte ctrl;
+
+    /* Data */
+    Byte wid;
+  }
+  scsi_start_scan;
+
+  memset (&scsi_start_scan, 0, sizeof (scsi_start_scan));
+  scsi_start_scan.cmd = 0x1b;
+  scsi_start_scan.tr_len = 1;
+  scsi_start_scan.wid = 0;
+  scsi_start_scan.ctrl = (cont == SANE_TRUE) ? 0x80 : 0x00;
+
+  DBG (1, "Starting scanner ...\n");
+  return sanei_scsi_cmd (fd, &scsi_start_scan, sizeof (scsi_start_scan), 0, 0);
+}
+
+static void
+wait_ready (int fd)
+{
+# define WAIT_READY_READ_SIZE 4
+  const Byte scsi_read[] =
+  {
+    0x28, 0x00,				/* opcode, lun */
+    0x80,				/* data type 80 == read time left */
+    0x00, 0x00, 0x00,			/* reserved */
+    0x00, 0x00, WAIT_READY_READ_SIZE,	/* transfer length */
+    0x00,				/* control byte */
+  };
+
+  Byte result[WAIT_READY_READ_SIZE];
+  size_t size = WAIT_READY_READ_SIZE;
+  SANE_Status status;
+
+  while (1)
+    {
+      status = sanei_scsi_cmd (fd, scsi_read, sizeof (scsi_read),
+			       result, &size);
+
+      if (status != SANE_STATUS_GOOD || size != WAIT_READY_READ_SIZE)
+	{
+	  /*
+	     Command failed, the assembler code of the windows scan library
+	     ignores this condition, and so do I
+	   */
+	  break;
+	}
+      else
+	{
+	  /* left is the amount of seconds left till the scanner is
+             ready * 100 */
+	  int left = result[2] * 256 + result[3];
+
+	  DBG (1, "wait_ready() : %d left...\n", left);
+
+	  if (!left)
+	    break;
+	  /* We delay only for half the given time */
+	  else if (left < 200)
+	    usleep (left * 5000);
+	  else
+	    sleep (left / 200);
+	}
+    }
+
+  return;
+}
+
+static SANE_Status
+get_read_sizes (int fd, int *lines_available, int *bpl, int *total_lines)
+{
+# define GET_READ_SIZES_READ_SIZE 24
+
+  const Byte scsi_read[] =
+  {
+    0x28, 0x00,				/* opcode, lun */
+    0x81,				/* data type 81 == read time left */
+    0x00, 0x00, 0x00,				/* reserved */
+    0x00, 0x00, GET_READ_SIZES_READ_SIZE,	/* transfer length */
+    0x00,				/* control byte */
+  };
+
+  Byte result[GET_READ_SIZES_READ_SIZE];
+  size_t size = GET_READ_SIZES_READ_SIZE;
+  SANE_Status status;
+
+  status = sanei_scsi_cmd (fd, scsi_read, sizeof (scsi_read), result, &size);
+
+  if (status != SANE_STATUS_GOOD || size != GET_READ_SIZES_READ_SIZE)
+    {
+      /* Command failed */
+      return SANE_STATUS_IO_ERROR;
+    }
+  else
+    {
+      *lines_available = result[14] * 256 + result[15];
+      *bpl = result[12] * 256 + result[13];
+      if (total_lines)
+	*total_lines = result[10] * 256 + result[11];
+    }
+
+  DBG (1, "get_read_sizes() : %d of %d, %d\n",
+       *lines_available, total_lines ? *total_lines : -1, *bpl);
+
+  return SANE_STATUS_GOOD;
+}
+
+static SANE_Status
+set_window (S9036_Scanner * s)
+/* This function sets and sends the window for scanning */
+{
+  double pixels_per_mm = (double) s->val[OPT_RESOLUTION] / MM_PER_INCH;
+
+  SANE_Bool auto_bright = !(s->opt[OPT_BRIGHT_ADJUST].cap & SANE_CAP_INACTIVE);
+  SANE_Bool auto_contr = !(s->opt[OPT_CONTR_ADJUST].cap & SANE_CAP_INACTIVE);
+
+  /* ranges down 255 (dark) down to 1(bright) */
+  int brightness = auto_bright ? 0 : (SANE_UNFIX (s->val[OPT_BRIGHTNESS])
+				      * -1.27 + 128.5);
+  /* ranges from 1 (little contrast) up to 255 (much contrast) */
+  int contrast = auto_contr ? 0 : (SANE_UNFIX (s->val[OPT_CONTRAST])
+				   * 1.27 + 128.5);
+
+  /* ranges from 40 (dark) down to 0 (bright) */
+  int bright_adjust = auto_bright ? 20 - s->val[OPT_BRIGHT_ADJUST] : 0;
+  /* ranges from 20 (little contrast) down to -20 = 235 (much contrast) */
+  int contr_adjust = auto_contr ? (256 - s->val[OPT_CONTR_ADJUST]) % 256 : 0;
+
+  /* Warning ! The following structur SEEMS to be an valid SCSI-2
+     SET_WINDOW command.  But e.g. the limits for the window are only
+     2 Bytes instead of 4.  The scanner was built at about 1990, so
+     SCSI-2 wasn't available for development...
+   */
+
+  struct
+    {
+      Byte cmd;
+      Byte lun;
+      Byte re1[4];
+      Byte tr_len[3];
+      Byte ctrl;
+
+      Byte re2[6];
+      Byte wd_len[2];
+
+      struct
+	{
+	  Byte wid;
+	  Byte autobit;
+	  Byte x_axis_res[2];
+	  Byte y_axis_res[2];
+
+	  Byte x_axis_ul[2];
+	  Byte y_axis_ul[2];
+
+	  Byte wwidth[2];
+	  Byte wlength[2];
+
+	  Byte contrast;
+	  Byte threshold;
+	  Byte brightness;
+
+	  Byte image_comp;
+	  Byte bpp;
+
+	  Byte ht_pattern;
+	  Byte rif_padding;
+	  Byte three;
+
+	  Byte null1[2];
+	  Byte null2[8];
+
+	  Byte null_eins;
+	  Byte eins_null;
+
+	  Byte contr_adjust;
+	  Byte bright_adjust;
+
+	  Byte null3;
+
+	}
+      wd;
+
+    }
+  cmd;
+
+  DBG (3,
+       "Setting parameters: bpp %d, res %d, bri %d, con %d, bad %d, cad %d\n",
+       s->val[OPT_DEPTH], s->val[OPT_RESOLUTION],
+       brightness, contrast, bright_adjust, contr_adjust);
+
+  memset (&cmd, 0, sizeof (cmd));
+
+  /* Commands and sizes.  Original comment in German: Kommando und Groessen. */
+  cmd.cmd = 0x24;
+  set_size (cmd.tr_len, 3, 37 + 8);
+  set_size (cmd.wd_len, 2, 37);
+
+  /* Resolution.  Original comment in German: Aufloesung */
+  set_size (cmd.wd.x_axis_res, 2, s->val[OPT_RESOLUTION]);
+  set_size (cmd.wd.y_axis_res, 2, s->val[OPT_RESOLUTION]);
+
+  /* Scan window position/size.  Original comment in German:
+     Fensterposition / Groesse */
+  set_size (cmd.wd.x_axis_ul, 2,
+	    SANE_UNFIX (s->val[OPT_TL_X]) * pixels_per_mm + 0.5);
+  set_size (cmd.wd.y_axis_ul, 2,
+	    SANE_UNFIX (s->val[OPT_TL_Y]) * pixels_per_mm + 0.5);
+  set_size (cmd.wd.wwidth, 2, SANE_UNFIX (s->val[OPT_BR_X] - s->val[OPT_TL_X])
+	    * pixels_per_mm + 0.5);
+  set_size (cmd.wd.wlength, 2, SANE_UNFIX (s->val[OPT_BR_Y] - s->val[OPT_TL_Y])
+	    * pixels_per_mm + 0.5);
+
+  cmd.wd.contrast = contrast;
+  cmd.wd.threshold = 0x00;
+  cmd.wd.brightness = brightness;
+
+  cmd.wd.image_comp = (s->val[OPT_DEPTH] == 1) ? 0 : 2;
+  cmd.wd.bpp = s->val[OPT_DEPTH];
+
+  cmd.wd.ht_pattern = 0;
+  cmd.wd.rif_padding = 0x00;
+  cmd.wd.three = 3;
+
+  cmd.wd.null_eins = (s->val[OPT_DEPTH] == 1) ? 0 : 1;
+  cmd.wd.eins_null = (s->val[OPT_DEPTH] == 1) ? 1 : 0;
+
+  cmd.wd.contr_adjust = contr_adjust;
+  cmd.wd.bright_adjust = bright_adjust;
+
+  return sanei_scsi_cmd (s->fd, &cmd, sizeof (cmd), 0, 0);
+}
+
+/* Tell scanner to scan more data.  Original comment in German:
+   Fordert Scanner auf, weiter zu scannen... */
+static SANE_Status
+request_more_data (S9036_Scanner * s)
+{
+  SANE_Status status;
+  int lines_available;
+  int bytes_per_line;
+
+  status = start_scan (s->fd, SANE_TRUE);
+  if (status != SANE_STATUS_GOOD)
+    return status;
+
+  wait_ready (s->fd);
+
+  status = get_read_sizes (s->fd, &lines_available, &bytes_per_line, 0);
+
+  if (!lines_available || bytes_per_line != s->params.bytes_per_line)
+    {
+      return SANE_STATUS_INVAL;
+    }
+
+  if (s->lines_read + lines_available > s->params.lines)
+    return SANE_STATUS_INVAL;
+
+  s->lines_in_scanner = lines_available;
+
+  return SANE_STATUS_GOOD;
+}
+
+/* May only be called when there is at least one row of data to
+   be read.
+
+   Original comment in German: Darf nur aufgerufen werden, wenn
+   wirklich noch Zeilen zu scannen/lesen sind !  */
+static SANE_Status
+read_more_data (S9036_Scanner * s)
+{
+
+  static Byte cmd[] =
+  {
+    0x28, 0x00,			/* opcode, lun */
+    0x00,			/* data type 80 == read time left */
+    0x00, 0x00, 0x00,		/* reserved */
+    0x00, 0x00, 0x00,		/* transfer length */
+    0x00,			/* control byte */
+  };
+
+  SANE_Status status;
+  size_t size;
+  int lines_read;
+  int bpl = s->params.bytes_per_line;
+  unsigned int i;
+
+  if (s->lines_in_scanner == 0)
+    {
+      /* No lines in scanner ? scan some more */
+      status = request_more_data (s);
+
+      if (status != SANE_STATUS_GOOD)
+	return status;
+
+    }
+
+  /* We try this 3 times */
+  while (1)
+    {
+
+      /* Request as much lines as would fit into the buffer ... */
+      lines_read = s->bufsize / bpl;
+
+      /* buffer is too small for one line: we can't handle this */
+      if (!lines_read)
+	return SANE_STATUS_INVAL;
+
+      /* We only request as many lines as there are already scanned */
+      if (lines_read > s->lines_in_scanner)
+	lines_read = s->lines_in_scanner;
+
+      set_size (&cmd[6], 3, lines_read);
+      size = lines_read * s->params.bytes_per_line;
+
+      DBG (1, "Requesting %d lines, in scanner: %d, total: %d\n", lines_read,
+	   s->lines_in_scanner, s->params.lines);
+
+      status = sanei_scsi_cmd (s->fd, cmd, sizeof (cmd), s->buffer, &size);
+
+      if (status != SANE_STATUS_GOOD)
+	{
+	  if (s->bufsize > 4096)
+	    {
+	      DBG (1, "sanei_scsi_cmd(): using 4k buffer\n");
+	      s->bufsize = 4096;
+	      continue;
+	    }
+
+	  DBG (1, "sanei_scsi_cmd() = %d\n", status);
+	  return SANE_STATUS_IO_ERROR;
+	}
+
+      if (size != (unsigned int) lines_read * s->params.bytes_per_line)
+	{
+	  DBG (1, "sanei_scsi_cmd(): got %lu bytes, expected %d\n",
+	       (u_long) size, lines_read * s->params.bytes_per_line);
+	  return SANE_STATUS_INVAL;
+	}
+
+      DBG (1, "Got %lu bytes\n", (u_long) size);
+      break;
+    }
+
+
+  /* Reverse: */
+  if (s->params.depth != 1)
+    for (i = 0; i < size; i++)
+      s->buffer[i] = (255 - s->buffer[i]);
+
+  s->in_buffer += size;
+  s->lines_in_scanner -= lines_read;
+  s->lines_read += lines_read;
+
+  return SANE_STATUS_GOOD;
+}
+
+
+static SANE_Status
+attach (const char *devname, S9036_Device ** devp)
+{
+#define ATTACH_SCSI_INQ_LEN 55
+  const Byte scsi_inquiry[] =
+  {
+    0x12, 0x00, 0x00, 0x00, ATTACH_SCSI_INQ_LEN, 0x00
+  };
+  Byte result[ATTACH_SCSI_INQ_LEN];
+
+  int fd;
+  S9036_Device *dev;
+  SANE_Status status;
+  size_t size;
+  int i;
+
+  for (dev = s9036_devices; dev; dev = dev->next)
+    if (strcmp (dev->sane.name, devname) == 0)
+      {
+	if (devp)
+	  *devp = dev;
+	return SANE_STATUS_GOOD;
+      }
+
+  DBG (3, "attach: opening %s\n", devname);
+  status = sanei_scsi_open (devname, &fd, sense_handler, 0);
+  if (status != SANE_STATUS_GOOD)
+    {
+      DBG (1, "attach: open failed (%s)\n", sane_strstatus (status));
+      return SANE_STATUS_INVAL;
+    }
+
+  DBG (3, "attach: sending INQUIRY\n");
+  size = sizeof (result);
+  status = sanei_scsi_cmd (fd, scsi_inquiry, sizeof (scsi_inquiry),
+			   result, &size);
+  if (status != SANE_STATUS_GOOD || size != ATTACH_SCSI_INQ_LEN)
+    {
+      DBG (1, "attach: inquiry failed (%s)\n", sane_strstatus (status));
+      sanei_scsi_close (fd);
+      return status;
+    }
+
+  status = test_ready (fd);
+  sanei_scsi_close (fd);
+  if (status != SANE_STATUS_GOOD)
+    return status;
+
+  /* The structure send by the scanner after inquiry is not SCSI-2
+     compatible.  The standard manufacturer/model fields are no ASCII
+     strings, but ?  At offset 36 my SIEMENS scanner identifies as an
+     AGFA one ?!   */
+
+  if (result[0] != 6 || strncmp ((char *)result + 36, "AGFA03", 6))
+    {
+      DBG (1, "attach: device doesn't look like a Siemens 9036 scanner\n");
+      return SANE_STATUS_INVAL;
+    }
+
+  DBG (3, "Inquiry data:\n");
+  for (i = 5; i < 55; i += 10)
+    DBG (3, "%02x %02x %02x %02x %02x %02x %02x %02x %02x %02x\n",
+      result[i], result[i + 1], result[i + 2], result[i + 3], result[i + 4],
+	 result[i + 5], result[i + 6], result[i + 7], result[i + 8],
+	 result[i + 9]);
+
+  dev = malloc (sizeof (*dev));
+
+  if (!dev)
+    return SANE_STATUS_NO_MEM;
+
+  memset (dev, 0, sizeof (*dev));
+
+  dev->sane.name = strdup (devname);
+  dev->sane.vendor = "Siemens";
+  dev->sane.model = "9036";
+  dev->sane.type = "flatbed scanner";
+
+  dev->handle = 0;
+
+  DBG (3, "attach: found S9036 scanner model\n");
+
+  ++num_devices;
+  dev->next = s9036_devices;
+  s9036_devices = dev;
+
+  if (devp)
+    *devp = dev;
+
+  return SANE_STATUS_GOOD;
+}
+
+static SANE_Status
+do_cancel (S9036_Scanner * s)
+{
+  s->scanning = SANE_FALSE;
+
+  if (s->fd >= 0)
+    {
+      stop_scan (s->fd);
+      release_unit (s->fd);
+      sanei_scsi_close (s->fd);
+      s->fd = -1;
+    }
+
+  if (s->buffer)
+    {
+      free (s->buffer);
+      s->buffer = 0;
+    }
+
+  return SANE_STATUS_CANCELLED;
+}
+
+
+static SANE_Status
+init_options (S9036_Scanner * s)
+{
+  int i;
+
+  /* Hardware Limitations: must be static ! */
+  static const SANE_Int depth_list[] =
+  {2, 1, 8};
+
+  static const SANE_Int dpi_list[] =
+  {8, 100, 200, 300, 400, 500, 600, 700, 800};
+
+  static const SANE_Range percentage_range =
+  {
+    -100 << SANE_FIXED_SCALE_SHIFT,	/* minimum */
+    100 << SANE_FIXED_SCALE_SHIFT,	/* maximum */
+    1 << SANE_FIXED_SCALE_SHIFT	/* quantization */
+  };
+
+  static const SANE_Range automatic_adjust_range =
+  {-20, 20, 1};
+
+  static const SANE_Range x_range =
+  {0, SANE_FIX (8.27 * MM_PER_INCH), 0};
+  static const SANE_Range y_range =
+  {0, SANE_FIX (12.72 * MM_PER_INCH), 0};
+
+  /* ------ */
+
+  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] = 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;
+
+  /* depth */
+  s->opt[OPT_DEPTH].name = SANE_NAME_BIT_DEPTH;
+  s->opt[OPT_DEPTH].title = SANE_TITLE_BIT_DEPTH;
+  s->opt[OPT_DEPTH].desc = SANE_DESC_BIT_DEPTH;
+  s->opt[OPT_DEPTH].type = SANE_TYPE_INT;
+  s->opt[OPT_DEPTH].unit = SANE_UNIT_BIT;
+  s->opt[OPT_DEPTH].constraint_type = SANE_CONSTRAINT_WORD_LIST;
+  s->opt[OPT_DEPTH].constraint.word_list = depth_list;
+  s->val[OPT_DEPTH] = 1;
+
+  /* resolution */
+  s->opt[OPT_RESOLUTION].name = SANE_NAME_SCAN_RESOLUTION;
+  s->opt[OPT_RESOLUTION].title = SANE_TITLE_SCAN_RESOLUTION;
+  s->opt[OPT_RESOLUTION].desc = SANE_DESC_SCAN_RESOLUTION;
+  s->opt[OPT_RESOLUTION].type = SANE_TYPE_INT;
+  s->opt[OPT_RESOLUTION].unit = SANE_UNIT_DPI;
+  s->opt[OPT_RESOLUTION].constraint_type = SANE_CONSTRAINT_WORD_LIST;
+  s->opt[OPT_RESOLUTION].constraint.word_list = dpi_list;
+  s->val[OPT_RESOLUTION] = 100;
+
+  /* "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_FIXED;
+  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] = 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_FIXED;
+  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] = 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_FIXED;
+  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] = 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_FIXED;
+  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] = 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_FIXED;
+  s->opt[OPT_BRIGHTNESS].cap |= SANE_CAP_AUTOMATIC;
+  s->opt[OPT_BRIGHTNESS].unit = SANE_UNIT_PERCENT;
+  s->opt[OPT_BRIGHTNESS].constraint_type = SANE_CONSTRAINT_RANGE;
+  s->opt[OPT_BRIGHTNESS].constraint.range = &percentage_range;
+  s->val[OPT_BRIGHTNESS] = 0;
+
+  /* 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_FIXED;
+  s->opt[OPT_CONTRAST].cap |= SANE_CAP_AUTOMATIC;
+  s->opt[OPT_CONTRAST].unit = SANE_UNIT_PERCENT;
+  s->opt[OPT_CONTRAST].constraint_type = SANE_CONSTRAINT_RANGE;
+  s->opt[OPT_CONTRAST].constraint.range = &percentage_range;
+  s->val[OPT_CONTRAST] = 0;
+
+  /* brightness automatic correct */
+  s->opt[OPT_BRIGHT_ADJUST].name = "adjust-bright";
+  s->opt[OPT_BRIGHT_ADJUST].title = "Automatic brightness adjust";
+  s->opt[OPT_BRIGHT_ADJUST].desc = "Controls the automatic brightness of the "
+    "acquired image. This option is active for automatic brightness only.";
+  s->opt[OPT_BRIGHT_ADJUST].type = SANE_TYPE_INT;
+  s->opt[OPT_BRIGHT_ADJUST].cap |= SANE_CAP_INACTIVE;
+  s->opt[OPT_BRIGHT_ADJUST].unit = SANE_UNIT_NONE;
+  s->opt[OPT_BRIGHT_ADJUST].constraint_type = SANE_CONSTRAINT_RANGE;
+  s->opt[OPT_BRIGHT_ADJUST].constraint.range = &automatic_adjust_range;
+  s->val[OPT_BRIGHT_ADJUST] = 0;
+
+  /* contrast automatic correct */
+  s->opt[OPT_CONTR_ADJUST].name = "adjust-contr";
+  s->opt[OPT_CONTR_ADJUST].title = "Automatic contrast adjust";
+  s->opt[OPT_CONTR_ADJUST].desc = "Controls the automatic contrast of the "
+    " acquired image. This option is active for automatic contrast only.";
+  s->opt[OPT_CONTR_ADJUST].type = SANE_TYPE_INT;
+  s->opt[OPT_CONTR_ADJUST].cap |= SANE_CAP_INACTIVE;
+  s->opt[OPT_CONTR_ADJUST].unit = SANE_UNIT_NONE;
+  s->opt[OPT_CONTR_ADJUST].constraint_type = SANE_CONSTRAINT_RANGE;
+  s->opt[OPT_CONTR_ADJUST].constraint.range = &automatic_adjust_range;
+  s->val[OPT_CONTR_ADJUST] = 0;
+
+  return SANE_STATUS_GOOD;
+}
+
+static SANE_Status
+attach_one (const char *dev)
+{
+  attach (dev, 0);
+  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 compilation warnings */
+
+  DBG_INIT ();
+
+  if (version_code)
+    *version_code = SANE_VERSION_CODE (SANE_CURRENT_MAJOR, V_MINOR, 0);
+
+  fp = sanei_config_open ("s9036.conf");
+  if (!fp)
+    {
+      /* default to /dev/scanner instead of insisting on config file */
+      attach ("/dev/scanner", 0);
+      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 */
+
+      sanei_config_attach_matching_devices (dev_name, attach_one);
+    }
+  fclose (fp);
+  return SANE_STATUS_GOOD;
+}
+
+void
+sane_exit (void)
+{
+  S9036_Device *dev, *next;
+
+  for (dev = s9036_devices; dev; dev = next)
+    {
+      next = dev->next;
+      if (dev->handle)
+	sane_close (dev->handle);
+      free (dev);
+    }
+}
+
+SANE_Status
+sane_get_devices (const SANE_Device *** device_list, SANE_Bool local_only)
+{
+  static const SANE_Device **devlist = 0;
+  S9036_Device *dev;
+  int i;
+  
+  local_only = local_only; /* silence compilation warnings */
+
+  if (devlist)
+    free (devlist);
+
+  devlist = malloc ((num_devices + 1) * sizeof (devlist[0]));
+  if (!devlist)
+    return SANE_STATUS_NO_MEM;
+
+  for (dev = s9036_devices, i = 0; 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)
+{
+  S9036_Device *dev;
+  SANE_Status status;
+  S9036_Scanner *s;
+
+  if (devicename[0])
+    {
+      status = attach (devicename, &dev);
+      if (status != SANE_STATUS_GOOD)
+	return status;
+    }
+  else
+    {
+      /* empty devicname -> use first device */
+      dev = s9036_devices;
+    }
+
+  if (!dev)
+    return SANE_STATUS_INVAL;
+
+  if (dev->handle)
+    return SANE_STATUS_DEVICE_BUSY;
+
+  s = malloc (sizeof (*s));
+  if (!s)
+    return SANE_STATUS_NO_MEM;
+
+  memset (s, 0, sizeof (*s));
+  s->scanning = SANE_FALSE;
+  s->fd = -1;
+  s->hw = dev;
+  s->hw->handle = s;
+
+  init_options (s);
+
+  *handle = s;
+  return SANE_STATUS_GOOD;
+}
+
+void
+sane_close (SANE_Handle handle)
+{
+  S9036_Scanner *s = handle;
+
+  if (s->scanning)
+    do_cancel (handle);
+
+  s->hw->handle = 0;
+
+  free (handle);
+}
+
+const SANE_Option_Descriptor *
+sane_get_option_descriptor (SANE_Handle handle, SANE_Int option)
+{
+  S9036_Scanner *s = handle;
+
+  if ((unsigned) option >= NUM_OPTIONS)
+    return 0;
+  return s->opt + option;
+}
+
+SANE_Status
+sane_control_option (SANE_Handle handle, SANE_Int option,
+		     SANE_Action action, void *val, SANE_Int * info)
+{
+  S9036_Scanner *s = handle;
+  SANE_Status status;
+
+  if (info)
+    *info = 0;
+
+  if (s->scanning)
+    return SANE_STATUS_DEVICE_BUSY;
+
+  if (option >= NUM_OPTIONS || !SANE_OPTION_IS_ACTIVE (s->opt[option].cap))
+    return SANE_STATUS_UNSUPPORTED;
+
+  if (action == SANE_ACTION_GET_VALUE)
+    {
+
+      switch (option)
+	{
+	case OPT_DEPTH:
+	case OPT_RESOLUTION:
+	case OPT_TL_X:
+	case OPT_TL_Y:
+	case OPT_BR_X:
+	case OPT_BR_Y:
+	case OPT_NUM_OPTS:
+	case OPT_BRIGHTNESS:
+	case OPT_CONTRAST:
+	case OPT_BRIGHT_ADJUST:
+	case OPT_CONTR_ADJUST:
+	  *(SANE_Word *) val = s->val[option];
+	  break;
+	default:
+	  return SANE_STATUS_UNSUPPORTED;
+	}
+
+    }
+  else if (action == SANE_ACTION_SET_VALUE)
+    {
+
+      if (!SANE_OPTION_IS_SETTABLE (s->opt[option].cap))
+	return SANE_STATUS_UNSUPPORTED;
+
+      status = sanei_constrain_value (s->opt + option, val, info);
+      if (status != SANE_STATUS_GOOD)
+	return status;
+
+      switch (option)
+	{
+	case OPT_DEPTH:
+	case OPT_RESOLUTION:
+	case OPT_TL_X:
+	case OPT_TL_Y:
+	case OPT_BR_X:
+	case OPT_BR_Y:
+	  if (info)
+	    *info |= SANE_INFO_RELOAD_PARAMS;
+	case OPT_BRIGHT_ADJUST:
+	case OPT_CONTR_ADJUST:
+	  s->val[option] = *(SANE_Word *) val;
+	  break;
+	case OPT_BRIGHTNESS:
+	  if (SANE_OPTION_IS_ACTIVE (s->opt[OPT_BRIGHT_ADJUST].cap))
+	    {
+	      s->opt[OPT_BRIGHT_ADJUST].cap |= SANE_CAP_INACTIVE;
+	      if (info)
+		*info |= SANE_INFO_RELOAD_OPTIONS;
+	    }
+	  s->val[option] = *(SANE_Word *) val;
+	  break;
+	case OPT_CONTRAST:
+	  if (SANE_OPTION_IS_ACTIVE (s->opt[OPT_CONTR_ADJUST].cap))
+	    {
+	      s->opt[OPT_CONTR_ADJUST].cap |= SANE_CAP_INACTIVE;
+	      if (info)
+		*info |= SANE_INFO_RELOAD_OPTIONS;
+	    }
+	  s->val[option] = *(SANE_Word *) val;
+	  break;
+	default:
+	  return SANE_STATUS_UNSUPPORTED;
+	}
+
+    }
+  else if (action == SANE_ACTION_SET_AUTO)
+    {
+
+      if (!SANE_OPTION_IS_SETTABLE (s->opt[option].cap))
+	return SANE_STATUS_UNSUPPORTED;
+
+      switch (option)
+	{
+	case OPT_BRIGHTNESS:
+	  if (!SANE_OPTION_IS_ACTIVE (s->opt[OPT_BRIGHT_ADJUST].cap))
+	    {
+	      s->opt[OPT_BRIGHT_ADJUST].cap &= ~SANE_CAP_INACTIVE;
+	      if (info)
+		*info |= SANE_INFO_RELOAD_OPTIONS;
+	    }
+	  break;
+	case OPT_CONTRAST:
+	  if (!SANE_OPTION_IS_ACTIVE (s->opt[OPT_CONTR_ADJUST].cap))
+	    {
+	      s->opt[OPT_CONTR_ADJUST].cap &= ~SANE_CAP_INACTIVE;
+	      if (info)
+		*info |= SANE_INFO_RELOAD_OPTIONS;
+	    }
+	  break;
+	default:
+	  return SANE_STATUS_UNSUPPORTED;
+	}
+
+    }
+  else
+    return SANE_STATUS_UNSUPPORTED;
+  return SANE_STATUS_GOOD;
+}
+
+SANE_Status
+sane_get_parameters (SANE_Handle handle, SANE_Parameters * params)
+{
+  S9036_Scanner *s = handle;
+
+  if (!s->scanning)
+    {
+      double width, height, dpi;
+
+      memset (&s->params, 0, sizeof (s->params));
+
+      s->params.format = SANE_FRAME_GRAY;
+      s->params.last_frame = SANE_TRUE;
+
+      s->params.depth = s->val[OPT_DEPTH];
+
+      width = SANE_UNFIX (s->val[OPT_BR_X] - s->val[OPT_TL_X]);
+      height = SANE_UNFIX (s->val[OPT_BR_Y] - s->val[OPT_TL_Y]);
+      dpi = s->val[OPT_RESOLUTION];
+
+      /* make best-effort guess at what parameters will look like once
+         scanning starts.  */
+      if (dpi > 0.0 && width > 0.0 && height > 0.0)
+	{
+	  double dots_per_mm = dpi / MM_PER_INCH;
+
+	  s->params.pixels_per_line = width * dots_per_mm + 0.5;
+	  s->params.lines = height * dots_per_mm + 0.5;
+	}
+
+      s->params.bytes_per_line =
+	(s->params.pixels_per_line + (8 - s->params.depth))
+	/ (8 / s->params.depth);
+    }
+
+  if (params)
+    *params = s->params;
+  return SANE_STATUS_GOOD;
+}
+
+SANE_Status
+sane_start (SANE_Handle handle)
+{
+  S9036_Scanner *s = handle;
+  SANE_Status status;
+
+  if (s->scanning)
+    do_cancel (s);
+
+  /* First make sure we have a current parameter set.  Some of the
+     parameters will be overwritten below, but that's OK.  */
+  status = sane_get_parameters (s, 0);
+  if (status != SANE_STATUS_GOOD)
+    return status;
+
+  if (s->fd < 0)
+    {
+      status = sanei_scsi_open (s->hw->sane.name, &s->fd, sense_handler, 0);
+      if (status != SANE_STATUS_GOOD)
+	{
+	  DBG (1, "open: open of %s failed: %s\n",
+	       s->hw->sane.name, sane_strstatus (status));
+	  s->fd = -1;
+	  return status;
+	}
+    }
+
+  status = test_ready (s->fd);
+  if (status != SANE_STATUS_GOOD)
+    {
+      DBG (1, "open: test_ready() failed: %s\n", sane_strstatus (status));
+      sanei_scsi_close (s->fd);
+      s->fd = -1;
+      return status;
+    }
+
+  status = reserve_unit (s->fd);
+  if (status != SANE_STATUS_GOOD)
+    {
+      DBG (1, "open: reserve_unit() failed: %s\n", sane_strstatus (status));
+      sanei_scsi_close (s->fd);
+      s->fd = -1;
+      return status;
+    }
+
+  status = set_window (s);
+  if (status != SANE_STATUS_GOOD)
+    {
+      DBG (1, "open: set_window() failed: %s\n", sane_strstatus (status));
+      release_unit (s->fd);
+      sanei_scsi_close (s->fd);
+      s->fd = -1;
+      return status;
+    }
+
+  s->scanning = SANE_TRUE;
+
+  status = start_scan (s->fd, SANE_FALSE);
+  if (status != SANE_STATUS_GOOD)
+    {
+      DBG (1, "open: start_scan() failed: %s\n", sane_strstatus (status));
+      do_cancel (s);
+      return status;
+    }
+
+  wait_ready (s->fd);
+
+  {
+    int lines_available = 0, bytes_per_line = 0, total_lines = 0;
+
+    status = get_read_sizes (s->fd, &lines_available, &bytes_per_line,
+			     &total_lines);
+    if (status != SANE_STATUS_GOOD)
+      {
+	DBG (1, "open: get_read_sizes() failed: %s\n",
+	     sane_strstatus (status));
+	do_cancel (s);
+	return status;
+      }
+
+    if (!lines_available || !bytes_per_line || !total_lines)
+      {
+	DBG (1, "open: invalid_sizes(): %d, %d, %d\n",
+	     lines_available, bytes_per_line, total_lines);
+	do_cancel (s);
+	return SANE_STATUS_INVAL;
+      }
+
+    s->params.lines = total_lines;
+    s->params.bytes_per_line = bytes_per_line;
+    s->params.pixels_per_line = bytes_per_line * (8 / s->params.depth);
+
+    s->lines_in_scanner = lines_available;
+    s->lines_read = 0;
+
+    /* Buffer must be at least 4k */
+    s->bufsize = (sanei_scsi_max_request_size < 4096) ?
+	4096 : sanei_scsi_max_request_size;
+
+    s->buffer = (Byte *) malloc (s->bufsize * sizeof (Byte));
+
+    if (!s->buffer)
+      {
+	DBG (1, "open  malloc(%lu) failed.\n", (u_long) s->bufsize);
+	do_cancel (s);
+	return SANE_STATUS_NO_MEM;
+      }
+    s->bufstart = s->buffer;
+    s->in_buffer = 0;
+  }
+
+  return SANE_STATUS_GOOD;
+}
+
+static void 
+copy_buffer (S9036_Scanner * s, SANE_Byte ** buf, SANE_Int * max_len,
+	     SANE_Int * len)
+{
+  if (*max_len > (SANE_Int) s->in_buffer)
+    {
+      memcpy (*buf, s->bufstart, s->in_buffer);
+      *buf += s->in_buffer;
+      *len += s->in_buffer;
+      *max_len -= s->in_buffer;
+
+      s->bufstart = s->buffer;
+      s->in_buffer = 0;
+    }
+  else
+    {
+      memcpy (*buf, s->bufstart, *max_len);
+      s->bufstart += *max_len;
+      s->in_buffer -= *max_len;
+
+      *buf += *max_len;
+      *len += *max_len;
+      *max_len = 0;
+    }
+}
+
+
+SANE_Status
+sane_read (SANE_Handle handle, SANE_Byte * buf, SANE_Int max_len,
+	   SANE_Int * len)
+{
+  S9036_Scanner *s = handle;
+  SANE_Status status;
+
+  if (s->scanning != SANE_TRUE || max_len == 0)
+    return SANE_STATUS_INVAL;
+
+  *len = 0;
+
+  DBG (3, "sane_read(%d) : lines_read %d\n", max_len, s->lines_read);
+
+  while (max_len > (SANE_Int) s->in_buffer && s->lines_read < s->params.lines)
+    {
+
+      if (s->in_buffer == 0)
+	{
+	  status = read_more_data (s);
+
+	  if (status != SANE_STATUS_GOOD)
+	    {
+	      DBG (1, "sane_read: read_more_data() failed (%s)\n",
+		   sane_strstatus (status));
+	      do_cancel (s);
+	      return status;
+	    }
+	}
+
+      copy_buffer (s, &buf, &max_len, len);
+
+      if (!max_len || s->lines_read >= s->params.lines)
+	return SANE_STATUS_GOOD;
+    }
+
+  /* If we reached this point, there are either enough bytes in the buffer,
+     or, if the buffer is empty, we already reached the end of the page */
+
+  if (s->in_buffer > 0)
+    {
+      copy_buffer (s, &buf, &max_len, len);
+      return SANE_STATUS_GOOD;
+    }
+  else
+    {
+      do_cancel (s);
+      DBG (1, "EOF\n");
+      return SANE_STATUS_EOF;
+    }
+}
+
+void
+sane_cancel (SANE_Handle handle)
+{
+  S9036_Scanner *s = handle;
+  do_cancel (s);
+}
+
+SANE_Status
+sane_set_io_mode (SANE_Handle handle, SANE_Bool non_blocking)
+{
+  handle = handle; /* silence compilation warnings */
+  
+  DBG (1, "sane_set_io_mode(%d)\n", non_blocking);
+
+  return (non_blocking == SANE_TRUE) ?
+      SANE_STATUS_UNSUPPORTED : SANE_STATUS_GOOD;
+}
+
+SANE_Status
+sane_get_select_fd (SANE_Handle handle, SANE_Int * fd)
+{
+  handle = handle;
+  fd = fd; /* silence compilation warnings */
+
+  return SANE_STATUS_UNSUPPORTED;
+}