e576bb2002-10-11Martin Nilsson /* || This file is part of Pike. For copyright information see COPYRIGHT. || Pike is distributed under GPL, LGPL and MPL. See the file COPYING || for more information. */
8e7c8e2018-01-18Martin Nilsson #include "module.h"
5db8df2000-02-28Per Hedbor #include "config.h"
42f66e2005-07-05Henrik Grubbström (Grubba) #if (defined(HAVE_SANE_SANE_H) || defined(HAVE_SANE_H)) && defined(HAVE_LIBSANE)
5db8df2000-02-28Per Hedbor #ifdef HAVE_SANE_SANE_H #include <sane/sane.h>
42f66e2005-07-05Henrik Grubbström (Grubba) #elif defined(HAVE_SANE_H)
5db8df2000-02-28Per Hedbor #include <sane.h> #endif #include "pike_macros.h" #include "constants.h" #include "interpret.h" #include "threads.h"
b2d3e42000-12-01Fredrik Hübinette (Hubbe) #include "pike_error.h"
7d4f492000-02-28Per Hedbor #include "backend.h"
5db8df2000-02-28Per Hedbor #include "operators.h"
5a2da92014-08-25Henrik Grubbström (Grubba) #include "pike_types.h"
5db8df2000-02-28Per Hedbor #include "module_support.h" #include "builtin_functions.h" #include "../Image/image.h"
6dc2772000-07-28Fredrik Hübinette (Hubbe) 
6ad2372002-05-11Martin Nilsson #define sp Pike_sp
ac19a92002-07-29Martin Nilsson /*! @module SANE *! *! This module enables access to the SANE (Scanner Access Now Easy) *! library from pike */
9984912000-03-02Per Hedbor 
5db8df2000-02-28Per Hedbor static int sane_is_inited; struct scanner { SANE_Handle h; };
c9eefb2014-08-21Martin Nilsson static void init_sane(void)
5db8df2000-02-28Per Hedbor { if( sane_init( NULL, NULL ) )
b2d3e42000-12-01Fredrik Hübinette (Hubbe)  Pike_error( "Sane init failed.\n" );
5db8df2000-02-28Per Hedbor  sane_is_inited = 1; } static void push_device( SANE_Device *d ) {
5e9fc02015-08-18Per Hedbor  push_static_text( "name" ); push_text( d->name ); push_static_text( "vendor" ); push_text( d->vendor ); push_static_text( "model" ); push_text( d->model );
6a932b2014-08-18Martin Nilsson  ref_push_string( literal_type_string ); push_text( d->type );
5db8df2000-02-28Per Hedbor  f_aggregate_mapping( 8 ); }
ac19a92002-07-29Martin Nilsson /*! @decl array(mapping) list_scanners() *! *! Returns an array with all available scanners. *! *! @example *! Pike v0.7 release 120 running Hilfe v2.0 (Incremental Pike Frontend) *! > SANE.list_scanners(); *! Result: ({ *! ([ *! "model":"Astra 1220S ", *! "name":"umax:/dev/scg1f", *! "type":"flatbed scanner", *! "vendor":"UMAX " *! ]), *! ([ *! "model":"Astra 1220S ", *! "name":"net:lain.idonex.se:umax:/dev/scg1f", *! "type":"flatbed scanner", *! "vendor":"UMAX " *! ]) *! }) */
a051f22014-11-08Henrik Grubbström (Grubba) static void f_list_scanners( INT32 UNUSED(args) )
5db8df2000-02-28Per Hedbor { SANE_Device **devices; int i = 0; if( !sane_is_inited ) init_sane(); switch( sane_get_devices( (void *)&devices, 0 ) ) { case 0: while( devices[i] ) push_device( devices[i++] ); f_aggregate( i ); break; default:
b2d3e42000-12-01Fredrik Hübinette (Hubbe)  Pike_error("Failed to get device list\n");
5db8df2000-02-28Per Hedbor  } }
22cfb32000-07-07Marcus Comstedt #define THIS ((struct scanner *)Pike_fp->current_storage)
5db8df2000-02-28Per Hedbor  static void push_option_descriptor( const SANE_Option_Descriptor *o ) { int i; struct svalue *osp = sp;
5e9fc02015-08-18Per Hedbor  push_static_text( "name" );
5db8df2000-02-28Per Hedbor  if( o->name ) push_text( o->name ); else push_int( 0 );
5e9fc02015-08-18Per Hedbor  push_static_text( "title" );
5db8df2000-02-28Per Hedbor  if( o->title ) push_text( o->title ); else push_int( 0 );
5e9fc02015-08-18Per Hedbor  push_static_text( "desc" );
5db8df2000-02-28Per Hedbor  if( o->desc ) push_text( o->desc ); else push_int( 0 );
6a932b2014-08-18Martin Nilsson  ref_push_string( literal_type_string );
5db8df2000-02-28Per Hedbor  switch( o->type ) {
5e9fc02015-08-18Per Hedbor  case SANE_TYPE_BOOL: push_static_text( "boolean" ); break;
6a932b2014-08-18Martin Nilsson  case SANE_TYPE_INT: ref_push_string( literal_int_string ); break; case SANE_TYPE_FIXED: ref_push_string( literal_float_string ); break; case SANE_TYPE_STRING: ref_push_string( literal_string_string ); break;
5e9fc02015-08-18Per Hedbor  case SANE_TYPE_BUTTON: push_static_text( "button" ); break; case SANE_TYPE_GROUP: push_static_text( "group" ); break;
5db8df2000-02-28Per Hedbor  }
5e9fc02015-08-18Per Hedbor  push_static_text( "unit" );
5db8df2000-02-28Per Hedbor  switch( o->unit ) {
5e9fc02015-08-18Per Hedbor  case SANE_UNIT_NONE: push_static_text( "none" ); break; case SANE_UNIT_PIXEL: push_static_text( "pixel" ); break; case SANE_UNIT_BIT: push_static_text( "bit" ); break; case SANE_UNIT_MM: push_static_text( "mm" ); break; case SANE_UNIT_DPI: push_static_text( "dpi" ); break; case SANE_UNIT_PERCENT: push_static_text( "percent" ); break; case SANE_UNIT_MICROSECOND: push_static_text( "microsecond" ); break;
5db8df2000-02-28Per Hedbor  }
5e9fc02015-08-18Per Hedbor  push_static_text( "size" ); push_int( o->size );
5db8df2000-02-28Per Hedbor 
5e9fc02015-08-18Per Hedbor  push_static_text( "cap" );
5db8df2000-02-28Per Hedbor  { struct svalue *osp = sp;
5e9fc02015-08-18Per Hedbor  if( o->cap & SANE_CAP_SOFT_SELECT ) push_static_text( "soft_select" ); if( o->cap & SANE_CAP_HARD_SELECT ) push_static_text( "hard_select" ); if( o->cap & SANE_CAP_EMULATED ) push_static_text( "emulated" ); if( o->cap & SANE_CAP_AUTOMATIC ) push_static_text( "automatic" ); if( o->cap & SANE_CAP_INACTIVE ) push_static_text( "inactive" ); if( o->cap & SANE_CAP_ADVANCED ) push_static_text( "advanced" );
5db8df2000-02-28Per Hedbor  f_aggregate_multiset( sp - osp ); }
5e9fc02015-08-18Per Hedbor  push_static_text( "constaint" );
5db8df2000-02-28Per Hedbor  switch( o->constraint_type ) { case SANE_CONSTRAINT_NONE: push_int( 0 ); break; case SANE_CONSTRAINT_RANGE:
5e9fc02015-08-18Per Hedbor  ref_push_string( literal_type_string ); push_static_text( "range" ); push_static_text( "min" ); push_int( o->constraint.range->min ); push_static_text( "max" ); push_int( o->constraint.range->max ); push_static_text( "quant" ); push_int( o->constraint.range->quant );
5db8df2000-02-28Per Hedbor  f_aggregate_mapping( 8 ); break; case SANE_CONSTRAINT_WORD_LIST:
6a932b2014-08-18Martin Nilsson  ref_push_string( literal_type_string );
5e9fc02015-08-18Per Hedbor  push_static_text( "list" ); push_static_text( "list" );
5db8df2000-02-28Per Hedbor  for( i = 0; i<o->constraint.word_list[0]; i++ ) if( o->type == SANE_TYPE_FIXED ) push_float( SANE_UNFIX(o->constraint.word_list[i+1]) ); else push_int( o->constraint.word_list[i+1] ); f_aggregate( o->constraint.word_list[0] ); f_aggregate_mapping( 4 ); break; case SANE_CONSTRAINT_STRING_LIST:
6a932b2014-08-18Martin Nilsson  ref_push_string( literal_type_string );
5e9fc02015-08-18Per Hedbor  push_static_text( "list" ); push_static_text( "list" );
5db8df2000-02-28Per Hedbor  for( i = 0; o->constraint.string_list[i]; i++ ) push_text( o->constraint.string_list[i] ); f_aggregate( i ); f_aggregate_mapping( 4 ); break; } f_aggregate_mapping( sp - osp ); }
ac19a92002-07-29Martin Nilsson /*! @class Scanner */ /*! @decl void create(string name) */
5db8df2000-02-28Per Hedbor static void f_scanner_create( INT32 args ) { char *name; if(!sane_is_inited) init_sane(); get_all_args( "create", args, "%s", &name ); if( sane_open( name, &THIS->h ) )
b2d3e42000-12-01Fredrik Hübinette (Hubbe)  Pike_error("Failed to open scanner \"%s\"\n", name );
5db8df2000-02-28Per Hedbor }
ac19a92002-07-29Martin Nilsson /*! @decl array(mapping) list_options() *! *! This method returns an array where every element is a *! mapping, layed out as follows. *! *! @mapping *! @member string "name" *! *! @member string "title" *! *! @member string "desc" *! *! @member string "type" *! @string *! @value "boolean" *! @value "int" *! @value "float" *! @value "string" *! @value "button" *! @value "group" *! @endstring *! @member string "unit" *! @string *! @value "none" *! @value "pixel" *! @value "bit" *! @value "mm" *! @value "dpi" *! @value "percent" *! @value "microsend" *! @endstring *! @member int "size" *! *! @member multiset "cap" *! @multiset *! @index "soft_select" *! @index "hard_select" *! @index "emulate" *! @index "automatic" *! @index "inactive" *! @index "advanced" *! @endmultiset *! @member int(0..0)|mapping "constraint" *! Constraints can be of three different types; range, word list or string *! list. Constraint contains 0 if there are no constraints. *! *! @mapping range *! @member string "type" *! Contains the value "range". *! @member int "max" *! @member int "min" *! @member int "quant" *! @endmapping *! *! @mapping "word list" *! @member string "type" *! Contains the value "list". *! @member array(float|int) "list" *! @endmapping *! *! @mapping "string list" *! @member string "type" *! Contains the value "list". *! @member array(string) "list" *! @endmapping *! @endmapping */
5db8df2000-02-28Per Hedbor static void f_scanner_list_options( INT32 args ) { int i, n; const SANE_Option_Descriptor *d; pop_n_elems( args ); for( i = 1; (d = sane_get_option_descriptor( THIS->h, i) ); i++ ) push_option_descriptor( d ); f_aggregate( i-1 ); } static int find_option( char *name, const SANE_Option_Descriptor **p ) { int i; const SANE_Option_Descriptor *d; for( i = 1; (d = sane_get_option_descriptor( THIS->h, i ) ); i++ ) if(d->name && !strcmp( d->name, name ) ) { *p = d; return i; }
b2d3e42000-12-01Fredrik Hübinette (Hubbe)  Pike_error("No such option: %s\n", name );
5db8df2000-02-28Per Hedbor }
9984912000-03-02Per Hedbor 
ac19a92002-07-29Martin Nilsson /*! @decl void set_option( string name, mixed new_value ) *! @decl void set_option( string name ) *! If no value is specified, the option is set to it's default value */
5db8df2000-02-28Per Hedbor static void f_scanner_set_option( INT32 args ) { char *name; int no;
65a5492000-08-10Per Hedbor  INT_TYPE int_value; FLOAT_TYPE float_value;
5db8df2000-02-28Per Hedbor  SANE_Int tmp; const SANE_Option_Descriptor *d; get_all_args( "set_option", args, "%s", &name ); no = find_option( name, &d ); if( args > 1 ) { switch( d->type ) { case SANE_TYPE_BOOL: case SANE_TYPE_INT: case SANE_TYPE_BUTTON:
a92ad62003-10-13Henrik Grubbström (Grubba)  sp++;get_all_args( "set_option", args, "%I", &int_value );sp--;
5db8df2000-02-28Per Hedbor  sane_control_option( THIS->h, no, SANE_ACTION_SET_VALUE, &int_value, &tmp ); break; case SANE_TYPE_FIXED: sp++;get_all_args( "set_option", args, "%F", &float_value );sp--; int_value = SANE_FIX(((double)float_value)); sane_control_option( THIS->h, no, SANE_ACTION_SET_VALUE, &int_value, &tmp ); break; case SANE_TYPE_STRING: sp++;get_all_args( "set_option", args, "%s", &name );sp--; sane_control_option( THIS->h, no, SANE_ACTION_SET_VALUE, &name, &tmp ); case SANE_TYPE_GROUP: break; } } else { int_value = 1; sane_control_option( THIS->h, no, SANE_ACTION_SET_AUTO, &int_value, &tmp ); } }
9984912000-03-02Per Hedbor 
ac19a92002-07-29Martin Nilsson /*! @decl mixed get_option( string name ) */
5db8df2000-02-28Per Hedbor static void f_scanner_get_option( INT32 args ) { char *name; int no; SANE_Int int_value; float f; SANE_Int tmp; const SANE_Option_Descriptor *d; get_all_args( "get_option", args, "%s", &name ); no = find_option( name, &d ); switch( d->type ) { case SANE_TYPE_BOOL: case SANE_TYPE_INT: case SANE_TYPE_BUTTON: sane_control_option( THIS->h, no, SANE_ACTION_GET_VALUE, &int_value, &tmp ); pop_n_elems( args ); push_int( int_value ); return; case SANE_TYPE_FIXED: sane_control_option( THIS->h, no, SANE_ACTION_GET_VALUE, &int_value, &tmp ); pop_n_elems( args ); push_float( SANE_UNFIX( int_value ) ); break; case SANE_TYPE_STRING: sane_control_option( THIS->h, no, SANE_ACTION_GET_VALUE, &name, &tmp ); pop_n_elems( args ); push_text( name ); case SANE_TYPE_GROUP: break; } }
ac19a92002-07-29Martin Nilsson /*! @decl mapping(string:int) get_parameters() *! *! @returns *! @mapping *! @member int "format" *! @member int "last_frame" *! @member int "lines" *! @member int "depth" *! @member int "pixels_per_line" *! @member int "bytes_per_line" *! @endmapping */
5db8df2000-02-28Per Hedbor static void f_scanner_get_parameters( INT32 args ) { SANE_Parameters p; pop_n_elems( args ); sane_get_parameters( THIS->h, &p );
5e9fc02015-08-18Per Hedbor  push_static_text( "format" ); push_int( p.format ); push_static_text( "last_frame" ); push_int( p.last_frame ); push_static_text( "lines" ); push_int( p.lines ); push_static_text( "depth" ); push_int( p.depth ); push_static_text( "pixels_per_line" ); push_int( p.pixels_per_line ); push_static_text( "bytes_per_line" ); push_int( p.bytes_per_line );
5db8df2000-02-28Per Hedbor  f_aggregate_mapping( 12 ); } static struct program *image_program;
a051f22014-11-08Henrik Grubbström (Grubba) static void get_grey_frame( SANE_Handle h, SANE_Parameters *p, SANE_Byte *data )
5db8df2000-02-28Per Hedbor {
a051f22014-11-08Henrik Grubbström (Grubba)  SANE_Byte buffer[8000];
5db8df2000-02-28Per Hedbor  int nbytes = p->lines * p->bytes_per_line, amnt_read; while( nbytes ) {
a051f22014-11-08Henrik Grubbström (Grubba)  SANE_Byte *pp = buffer; if( sane_read( h, buffer, MINIMUM(8000,nbytes), &amnt_read ) )
5db8df2000-02-28Per Hedbor  return; while( amnt_read-- && nbytes--) { *(data++) = *(pp); *(data++) = *(pp); *(data++) = *(pp++); } } }
a051f22014-11-08Henrik Grubbström (Grubba) static void get_rgb_frame( SANE_Handle h, SANE_Parameters *p, SANE_Byte *data )
5db8df2000-02-28Per Hedbor {
a051f22014-11-08Henrik Grubbström (Grubba)  SANE_Byte buffer[8000];
5db8df2000-02-28Per Hedbor  int nbytes = p->lines * p->bytes_per_line, amnt_read; while( nbytes ) {
a051f22014-11-08Henrik Grubbström (Grubba)  SANE_Byte *pp = buffer; if( sane_read( h, buffer, MINIMUM(8000,nbytes), &amnt_read ) )
5db8df2000-02-28Per Hedbor  return; while( amnt_read-- && nbytes--) *(data++) = *(pp++); } }
a051f22014-11-08Henrik Grubbström (Grubba) static void get_comp_frame( SANE_Handle h, SANE_Parameters *p, SANE_Byte *data )
5db8df2000-02-28Per Hedbor {
a051f22014-11-08Henrik Grubbström (Grubba)  SANE_Byte buffer[8000];
5db8df2000-02-28Per Hedbor  int nbytes = p->lines * p->bytes_per_line, amnt_read; while( nbytes ) {
a051f22014-11-08Henrik Grubbström (Grubba)  SANE_Byte *pp = buffer;
5db8df2000-02-28Per Hedbor  if( sane_read( h, buffer, MINIMUM(8000,nbytes), &amnt_read ) ) return; while( amnt_read-- && nbytes--) { data[0] = *(pp++); data += 3; } } }
c9eefb2014-08-21Martin Nilsson static void assert_image_program(void)
5db8df2000-02-28Per Hedbor { if( !image_program ) {
5e9fc02015-08-18Per Hedbor  push_static_text( "Image.Image" );
5db8df2000-02-28Per Hedbor  APPLY_MASTER( "resolv", 1 ); image_program = program_from_svalue( sp - 1 );
e045c32000-02-28Per Hedbor  sp--;/* Do not free image program.. */
5db8df2000-02-28Per Hedbor  }
7d4f492000-02-28Per Hedbor  if( !image_program )
b2d3e42000-12-01Fredrik Hübinette (Hubbe)  Pike_error("No Image.Image?!\n");
5db8df2000-02-28Per Hedbor }
ac19a92002-07-29Martin Nilsson /*! @decl Image.Image simple_scan() */
5db8df2000-02-28Per Hedbor static void f_scanner_simple_scan( INT32 args ) { SANE_Parameters p; SANE_Handle h = THIS->h; struct object *o;
a051f22014-11-08Henrik Grubbström (Grubba)  SANE_Byte *r; /* Actually an rgb_group *. */
5db8df2000-02-28Per Hedbor 
e045c32000-02-28Per Hedbor  assert_image_program();
5db8df2000-02-28Per Hedbor  pop_n_elems( args );
b2d3e42000-12-01Fredrik Hübinette (Hubbe)  if( sane_start( THIS->h ) ) Pike_error("Start failed\n"); if( sane_get_parameters( THIS->h, &p ) ) Pike_error("Get parameters failed\n");
5db8df2000-02-28Per Hedbor  if( p.depth != 8 )
b2d3e42000-12-01Fredrik Hübinette (Hubbe)  Pike_error("Sorry, only depth 8 supported right now.\n");
5db8df2000-02-28Per Hedbor  push_int( p.pixels_per_line ); push_int( p.lines ); o = clone_object( image_program, 2 );
a051f22014-11-08Henrik Grubbström (Grubba)  r = (SANE_Byte *)((struct image *)o->storage)->img;
5db8df2000-02-28Per Hedbor  THREADS_ALLOW(); do { switch( p.format ) { case SANE_FRAME_GRAY:
a051f22014-11-08Henrik Grubbström (Grubba)  get_grey_frame( h, &p, r );
5db8df2000-02-28Per Hedbor  p.last_frame = 1; break; case SANE_FRAME_RGB:
a051f22014-11-08Henrik Grubbström (Grubba)  get_rgb_frame( h, &p, r );
5db8df2000-02-28Per Hedbor  p.last_frame = 1; break; case SANE_FRAME_RED:
a051f22014-11-08Henrik Grubbström (Grubba)  get_comp_frame( h, &p, r );
5db8df2000-02-28Per Hedbor  break; case SANE_FRAME_GREEN:
a051f22014-11-08Henrik Grubbström (Grubba)  get_comp_frame( h, &p, r + 1 );
5db8df2000-02-28Per Hedbor  break; case SANE_FRAME_BLUE:
a051f22014-11-08Henrik Grubbström (Grubba)  get_comp_frame( h, &p, r + 2 );
5db8df2000-02-28Per Hedbor  break; } } while( !p.last_frame ); THREADS_DISALLOW(); push_object( o ); }
ac19a92002-07-29Martin Nilsson /*! @decl void row_scan(function(Image.Image,int,Scanner:void) callback) */
5db8df2000-02-28Per Hedbor static void f_scanner_row_scan( INT32 args ) { SANE_Parameters p; SANE_Handle h = THIS->h; struct svalue *s; struct object *o;
a051f22014-11-08Henrik Grubbström (Grubba)  SANE_Byte *r; /* Actually an rgb_group *. */
5db8df2000-02-28Per Hedbor  int i, nr;
b2d3e42000-12-01Fredrik Hübinette (Hubbe)  if( sane_start( THIS->h ) ) Pike_error("Start failed\n"); if( sane_get_parameters( THIS->h, &p ) ) Pike_error("Get parameters failed\n"); if( p.depth != 8 ) Pike_error("Sorry, only depth 8 supported right now.\n");
5db8df2000-02-28Per Hedbor  assert_image_program(); switch( p.format ) { case SANE_FRAME_GRAY: case SANE_FRAME_RGB: break; case SANE_FRAME_RED: case SANE_FRAME_GREEN: case SANE_FRAME_BLUE:
b2d3e42000-12-01Fredrik Hübinette (Hubbe)  Pike_error("Composite frame mode not supported for row_scan\n");
5db8df2000-02-28Per Hedbor  break; } push_int( p.pixels_per_line ); push_int( 1 ); o = clone_object( image_program, 2 );
a051f22014-11-08Henrik Grubbström (Grubba)  r = (SANE_Byte *)((struct image *)o->storage)->img;
5db8df2000-02-28Per Hedbor  nr = p.lines; p.lines=1; for( i = 0; i<nr; i++ ) { THREADS_ALLOW(); switch( p.format ) { case SANE_FRAME_GRAY:
a051f22014-11-08Henrik Grubbström (Grubba)  get_grey_frame( h, &p, r );
5db8df2000-02-28Per Hedbor  break; case SANE_FRAME_RGB:
a051f22014-11-08Henrik Grubbström (Grubba)  get_rgb_frame( h, &p, r );
5db8df2000-02-28Per Hedbor  break; case SANE_FRAME_RED: case SANE_FRAME_GREEN: case SANE_FRAME_BLUE: break; } THREADS_DISALLOW(); ref_push_object( o ); push_int( i );
22cfb32000-07-07Marcus Comstedt  ref_push_object( Pike_fp->current_object );
5db8df2000-02-28Per Hedbor  apply_svalue( sp-args-3, 3 ); pop_stack(); } free_object( o ); }
7d4f492000-02-28Per Hedbor struct row_scan_struct { SANE_Handle h; SANE_Parameters p; rgb_group *r; struct object *o; struct object *t; int current_row;
a051f22014-11-08Henrik Grubbström (Grubba)  SANE_Byte *buffer;
7d4f492000-02-28Per Hedbor  int bufferpos, nonblocking; struct svalue callback; }; static void nonblocking_row_scan_callback( int fd, void *_c ) { struct row_scan_struct *c = (struct row_scan_struct *)_c; int done = 0; int nbytes; do { int ec; THREADS_ALLOW(); if( (ec = sane_read( c->h, c->buffer+c->bufferpos, c->p.bytes_per_line-c->bufferpos, &nbytes) ) ) { done = 1; } else { c->bufferpos += nbytes; if( c->bufferpos == c->p.bytes_per_line ) { int i; switch( c->p.format ) { case SANE_FRAME_GRAY: for( i=0; i<c->p.bytes_per_line; i++ ) { c->r[i].r = c->buffer[i]; c->r[i].g = c->buffer[i]; c->r[i].b = c->buffer[i]; } break; case SANE_FRAME_RGB:
c9d3972014-09-03Martin Nilsson  memcpy( c->r, c->buffer, c->p.bytes_per_line );
7d4f492000-02-28Per Hedbor  break; default:break; } c->bufferpos=0; } } THREADS_DISALLOW(); if( !nbytes || c->bufferpos ) return; /* await more data */ c->current_row++; if( c->current_row == c->p.lines ) done = 1; ref_push_object( c->o ); push_int( c->current_row-1 ); ref_push_object( c->t ); push_int( done ); apply_svalue( &c->callback, 4 ); pop_stack(); } while( c->nonblocking && !done ); if( done ) { set_read_callback( fd, 0, 0 ); free_object( c->o ); free_object( c->t ); free_svalue( &c->callback ); free( c->buffer ); free( c ); } }
ac19a92002-07-29Martin Nilsson /*! @decl void nonblocking_row_scan(function(Image.Image,int,Scanner,int:void) callback) */
a051f22014-11-08Henrik Grubbström (Grubba) static void f_scanner_nonblocking_row_scan( INT32 UNUSED(args) )
7d4f492000-02-28Per Hedbor { SANE_Parameters p; SANE_Handle h = THIS->h; struct svalue *s; int fd; struct row_scan_struct *rsp;
b2d3e42000-12-01Fredrik Hübinette (Hubbe)  if( sane_start( THIS->h ) ) Pike_error("Start failed\n"); if( sane_get_parameters( THIS->h, &p ) ) Pike_error("Get parameters failed\n"); if( p.depth != 8 ) Pike_error("Sorry, only depth 8 supported right now.\n");
7d4f492000-02-28Per Hedbor  switch( p.format ) { case SANE_FRAME_GRAY: case SANE_FRAME_RGB: break; case SANE_FRAME_RED: case SANE_FRAME_GREEN: case SANE_FRAME_BLUE:
b2d3e42000-12-01Fredrik Hübinette (Hubbe)  Pike_error("Composite frame mode not supported for row_scan\n");
7d4f492000-02-28Per Hedbor  break; } assert_image_program(); rsp = malloc( sizeof(struct row_scan_struct) ); push_int( p.pixels_per_line ); push_int( 1 ); rsp->o = clone_object( image_program, 2 );
22cfb32000-07-07Marcus Comstedt  rsp->t = Pike_fp->current_object;
50ea682003-03-14Henrik Grubbström (Grubba)  add_ref(Pike_fp->current_object);
7d4f492000-02-28Per Hedbor  rsp->r = ((struct image *)rsp->o->storage)->img; rsp->h = THIS->h; rsp->p = p; rsp->buffer = malloc( p.bytes_per_line ); rsp->current_row = 0; rsp->bufferpos = 0; rsp->callback = sp[-1]; rsp->nonblocking = !sane_set_io_mode( THIS->h, 1 ); sp--; if( sane_get_select_fd( THIS->h, &fd ) ) { free_object( rsp->o ); free_object( rsp->t ); free( rsp->buffer ); free( rsp );
b2d3e42000-12-01Fredrik Hübinette (Hubbe)  Pike_error("Failed to get select fd for scanning device!\n");
7d4f492000-02-28Per Hedbor  }
0f77fd2004-02-03Martin Nilsson  set_read_callback( fd, (file_callback)nonblocking_row_scan_callback, (void*)rsp );
7d4f492000-02-28Per Hedbor }
ac19a92002-07-29Martin Nilsson /*! @decl void cancel_scan() */
a051f22014-11-08Henrik Grubbström (Grubba) static void f_scanner_cancel_scan( INT32 UNUSED(args) )
5db8df2000-02-28Per Hedbor { sane_cancel( THIS->h ); }
ac19a92002-07-29Martin Nilsson /*! @endclass */ /*! @decl constant FrameGray *! @decl constant FrameRGB *! @decl constant FrameRed *! @decl constant FrameGreen
00cf4c2002-12-30Henrik Grubbström (Grubba)  *! @decl constant FrameBlue
ac19a92002-07-29Martin Nilsson  */ /*! @endmodule */
a051f22014-11-08Henrik Grubbström (Grubba) static void init_scanner_struct( struct object *UNUSED(p) )
5db8df2000-02-28Per Hedbor { THIS->h = 0; }
a051f22014-11-08Henrik Grubbström (Grubba) static void exit_scanner_struct( struct object *UNUSED(p) )
5db8df2000-02-28Per Hedbor { if( THIS->h ) sane_close( THIS->h ); }
51ef5c2002-10-21Marcus Comstedt PIKE_MODULE_INIT
5db8df2000-02-28Per Hedbor { struct program *p;
09959a2005-01-20Martin Nilsson  ADD_FUNCTION( "list_scanners", f_list_scanners, tFunc(tNone,tArr(tMapping)), 0 );
5db8df2000-02-28Per Hedbor 
7d4f492000-02-28Per Hedbor  add_integer_constant( "FrameGray", SANE_FRAME_GRAY,0 ); add_integer_constant( "FrameRGB", SANE_FRAME_RGB,0 ); add_integer_constant( "FrameRed", SANE_FRAME_RED,0 ); add_integer_constant( "FrameGreen",SANE_FRAME_GREEN,0 ); add_integer_constant( "FrameBlue", SANE_FRAME_BLUE,0 );
5db8df2000-02-28Per Hedbor  start_new_program(); ADD_STORAGE( struct scanner );
09959a2005-01-20Martin Nilsson  ADD_FUNCTION( "get_option", f_scanner_get_option, tFunc(tStr, tMix), 0 ); ADD_FUNCTION( "set_option", f_scanner_set_option, tFunc(tStr tOr(tVoid, tMix), tVoid), 0 ); ADD_FUNCTION( "list_options", f_scanner_list_options, tFunc(tNone, tArr(tMap(tStr, tMix))), 0 );
5db8df2000-02-28Per Hedbor 
09959a2005-01-20Martin Nilsson  ADD_FUNCTION( "simple_scan", f_scanner_simple_scan, tFunc(tNone, tObj), 0 );
5db8df2000-02-28Per Hedbor 
09959a2005-01-20Martin Nilsson  ADD_FUNCTION( "row_scan", f_scanner_row_scan, tFunc(tFunc(tObj tInt tObj,tVoid),tVoid), 0 );
5db8df2000-02-28Per Hedbor 
09959a2005-01-20Martin Nilsson  ADD_FUNCTION( "nonblocking_row_scan", f_scanner_nonblocking_row_scan, tFunc(tFunc(tObj tInt tObj tInt,tVoid),tVoid), 0 );
7d4f492000-02-28Per Hedbor 
09959a2005-01-20Martin Nilsson  ADD_FUNCTION( "cancel_scan", f_scanner_cancel_scan, tFunc(tNone, tObj), 0 );
5db8df2000-02-28Per Hedbor 
09959a2005-01-20Martin Nilsson  ADD_FUNCTION( "get_parameters", f_scanner_get_parameters, tFunc(tNone, tMapping), 0 );
5db8df2000-02-28Per Hedbor 
ecc9382008-06-29Martin Nilsson  ADD_FUNCTION( "create", f_scanner_create, tFunc(tStr, tVoid), ID_PROTECTED );
5db8df2000-02-28Per Hedbor 
09959a2005-01-20Martin Nilsson  set_init_callback(init_scanner_struct); set_exit_callback(exit_scanner_struct);
5db8df2000-02-28Per Hedbor  add_program_constant( "Scanner", (p=end_program( ) ), 0 ); free_program( p ); }
51ef5c2002-10-21Marcus Comstedt PIKE_MODULE_EXIT
5db8df2000-02-28Per Hedbor { if( sane_is_inited ) sane_exit();
e045c32000-02-28Per Hedbor  if( image_program ) free_program( image_program );
5db8df2000-02-28Per Hedbor } #else
5d4ff72005-11-16Henrik Grubbström (Grubba) #include "program.h"
1fbe3e2005-11-14Martin Nilsson PIKE_MODULE_INIT {
ecb2c02014-10-05Martin Nilsson  HIDE_MODULE();
1fbe3e2005-11-14Martin Nilsson }
51ef5c2002-10-21Marcus Comstedt PIKE_MODULE_EXIT {}
5db8df2000-02-28Per Hedbor #endif