summaryrefslogtreecommitdiff
path: root/japi/Sane.c
diff options
context:
space:
mode:
authorJörg Frings-Fürst <debian@jff-webhosting.net>2014-10-06 14:00:40 +0200
committerJörg Frings-Fürst <debian@jff-webhosting.net>2014-10-06 14:00:40 +0200
commit6e9c41a892ed0e0da326e0278b3221ce3f5713b8 (patch)
tree2e301d871bbeeb44aa57ff9cc070fcf3be484487 /japi/Sane.c
Initial import of sane-backends version 1.0.24-1.2
Diffstat (limited to 'japi/Sane.c')
-rw-r--r--japi/Sane.c493
1 files changed, 493 insertions, 0 deletions
diff --git a/japi/Sane.c b/japi/Sane.c
new file mode 100644
index 0000000..1ddb4fc
--- /dev/null
+++ b/japi/Sane.c
@@ -0,0 +1,493 @@
+/* sane - Scanner Access Now Easy.
+ Copyright (C) 1997 Jeffrey S. Freedman
+ 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. */
+
+/**
+ ** Sane.c - Native methods for the SANE Java API.
+ **
+ ** Written: 10/9/97 - JSF
+ **/
+
+#include "Sane.h"
+#include <sane/sane.h>
+#include <string.h>
+
+#include <stdio.h> /* Debugging */
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+/*
+ * Class: Sane
+ * Method: init
+ * Signature: ([I)I
+ */
+JNIEXPORT jint JNICALL Java_Sane_init
+ (JNIEnv *env, jobject jobj, jintArray versionCode)
+ {
+ jsize len; /* Gets array length. */
+ jint *versionCodeBody; /* Gets ->array. */
+ SANE_Int version; /* Gets version. */
+ SANE_Status status; /* Get SANE return. */
+
+ status = sane_init(&version, 0);
+ len = (*env)->GetArrayLength(env, versionCode);
+ versionCodeBody = (*env)->GetIntArrayElements(env, versionCode, 0);
+ if (len > 0) /* Return version. */
+ versionCodeBody[0] = version;
+ (*env)->ReleaseIntArrayElements(env, versionCode, versionCodeBody, 0);
+ return (status);
+ }
+/*
+ * Class: Sane
+ * Method: exit
+ * Signature: ()V
+ */
+JNIEXPORT void JNICALL Java_Sane_exit
+ (JNIEnv *env, jobject jobj)
+ {
+ sane_exit();
+ }
+
+
+/*
+ * Class: Sane
+ * Method: getDevices
+ * Signature: ([LSaneDevice;Z)I
+ */
+JNIEXPORT jint JNICALL Java_Sane_getDevicesNative
+ (JNIEnv *env, jobject jobj, jobjectArray devList, jboolean localOnly)
+ {
+ /* Gets device list. */
+ const SANE_Device **device_list;
+ SANE_Status status; /* Gets status. */
+ int devListLen; /* Gets length of devList. */
+ jobject devObj; /* Gets each SaneDevice object. */
+ jclass devClass; /* Gets SaneDevice class. */
+ jfieldID fid; /* Gets each field ID. */
+ int i;
+
+ /* Get the list. */
+ status = sane_get_devices(&device_list, localOnly);
+ if (status != SANE_STATUS_GOOD)
+ return (status);
+ /* Get length of Java array. */
+ devListLen = (*env)->GetArrayLength(env, devList);
+ /* Return devices to user. */
+ for (i = 0; i < devListLen - 1 && device_list[i]; i++)
+ {
+ /* Get Java object, class. */
+ devObj = (*env)->GetObjectArrayElement(env, devList, i);
+ devClass = (*env)->GetObjectClass(env, devObj);
+ /* Fill in each member. */
+ fid = (*env)->GetFieldID(env, devClass, "name",
+ "Ljava/lang/String;");
+ (*env)->SetObjectField(env, devObj, fid,
+ (*env)->NewStringUTF(env, device_list[i]->name));
+ fid = (*env)->GetFieldID(env, devClass, "vendor",
+ "Ljava/lang/String;");
+ (*env)->SetObjectField(env, devObj, fid,
+ (*env)->NewStringUTF(env, device_list[i]->vendor));
+ fid = (*env)->GetFieldID(env, devClass, "model",
+ "Ljava/lang/String;");
+ (*env)->SetObjectField(env, devObj, fid,
+ (*env)->NewStringUTF(env, device_list[i]->model));
+ fid = (*env)->GetFieldID(env, devClass, "type",
+ "Ljava/lang/String;");
+ (*env)->SetObjectField(env, devObj, fid,
+ (*env)->NewStringUTF(env, device_list[i]->type));
+ }
+ /* End list with a null. */
+ (*env)->SetObjectArrayElement(env, devList, i, 0);
+ return (status);
+ }
+
+/*
+ * Class: Sane
+ * Method: open
+ * Signature: (Ljava/lang/String;[J)I
+ */
+JNIEXPORT jint JNICALL Java_Sane_open
+ (JNIEnv *env, jobject jobj, jstring deviceName, jintArray handle)
+ {
+ SANE_Handle sane_handle; /* Gets handle. */
+ jint s_handle;
+ const char *device_name; /* Gets dev. name. */
+ int status; /* Gets return code. */
+
+ device_name = (*env)->GetStringUTFChars(env, deviceName, 0);
+ /* Open it. */
+ status = sane_open(device_name, &sane_handle);
+ (*env)->ReleaseStringUTFChars(env, deviceName, device_name);
+ /* Return handle. */
+ s_handle = (jint) sane_handle;
+ (*env)->SetIntArrayRegion(env, handle, 0, 1, &s_handle);
+ return (status);
+ }
+
+/*
+ * Class: Sane
+ * Method: close
+ * Signature: (J)V
+ */
+JNIEXPORT void JNICALL Java_Sane_close
+ (JNIEnv *env, jobject jobj, jint handle)
+ {
+ sane_close((SANE_Handle) handle);
+ }
+
+/*
+ * Class: Sane
+ * Method: getOptionNative
+ * Signature: (IILSaneOption;)V
+ */
+JNIEXPORT void JNICALL Java_Sane_getOptionNative
+ (JNIEnv *env, jobject jobj, jint handle, jint option, jobject optObj)
+ {
+ jclass optClass; /* Gets its class. */
+ jfieldID fid; /* Gets each field ID. */
+ jstring str; /* Gets strings. */
+
+ /* Get info from sane. */
+ const SANE_Option_Descriptor *sopt = sane_get_option_descriptor(
+ (SANE_Handle) handle, option);
+ /* Get class info. */
+ optClass = (*env)->GetObjectClass(env, optObj);
+ /* Fill in each member. */
+ fid = (*env)->GetFieldID(env, optClass, "name", "Ljava/lang/String;");
+ if (!sopt) /* Failed. */
+ { /* Set name to null. */
+ (*env)->SetObjectField(env, optObj, fid, 0);
+ return;
+ }
+ /* Return name. */
+ (*env)->SetObjectField(env, optObj, fid,
+ (*env)->NewStringUTF(env, sopt->name));
+ /* Return title. */
+ fid = (*env)->GetFieldID(env, optClass, "title", "Ljava/lang/String;");
+ str = sopt->title ? (*env)->NewStringUTF(env, sopt->title) : 0;
+ (*env)->SetObjectField(env, optObj, fid, str);
+ /* Return descr. */
+ fid = (*env)->GetFieldID(env, optClass, "desc", "Ljava/lang/String;");
+ (*env)->SetObjectField(env, optObj, fid,
+ (*env)->NewStringUTF(env, sopt->desc));
+ /* Return type. */
+ fid = (*env)->GetFieldID(env, optClass, "type", "I");
+ (*env)->SetIntField(env, optObj, fid, sopt->type);
+ /* Return unit. */
+ fid = (*env)->GetFieldID(env, optClass, "unit", "I");
+ (*env)->SetIntField(env, optObj, fid, sopt->unit);
+ /* Return size. */
+ fid = (*env)->GetFieldID(env, optClass, "size", "I");
+ (*env)->SetIntField(env, optObj, fid, sopt->size);
+ /* Return cap. */
+ fid = (*env)->GetFieldID(env, optClass, "cap", "I");
+ (*env)->SetIntField(env, optObj, fid, sopt->cap);
+ /* Return constraint_type. */
+ fid = (*env)->GetFieldID(env, optClass, "constraintType", "I");
+ (*env)->SetIntField(env, optObj, fid, sopt->constraint_type);
+ /*
+ * Now for the constraint itself.
+ */
+ if (sopt->constraint_type == SANE_CONSTRAINT_RANGE)
+ {
+ /* Create range object. */
+ jclass rangeClass = (*env)->FindClass(env, "SaneRange");
+ jobject range = (*env)->AllocObject(env, rangeClass);
+ /* Fill in fields. */
+ fid = (*env)->GetFieldID(env, rangeClass, "min", "I");
+ (*env)->SetIntField(env, range, fid,
+ sopt->constraint.range->min);
+ fid = (*env)->GetFieldID(env, rangeClass, "max", "I");
+ (*env)->SetIntField(env, range, fid,
+ sopt->constraint.range->max);
+ fid = (*env)->GetFieldID(env, rangeClass, "quant", "I");
+ (*env)->SetIntField(env, range, fid,
+ sopt->constraint.range->quant);
+ fid = (*env)->GetFieldID(env, optClass, "rangeConstraint",
+ "LSaneRange;");
+ /* Store range. */
+ (*env)->SetObjectField(env, optObj, fid, range);
+ }
+ else if (sopt->constraint_type == SANE_CONSTRAINT_WORD_LIST)
+ { /* Get array of integers. */
+ jintArray wordList;
+ jint *elements;
+ int i;
+ /* First word. is the length. */
+ wordList = (*env)->NewIntArray(env,
+ sopt->constraint.word_list[0]);
+ /* Copy in the integers. */
+ elements = (*env)->GetIntArrayElements(env, wordList, 0);
+ for (i = 0; i < sopt->constraint.word_list[0]; i++)
+ elements[i] = sopt->constraint.word_list[i];
+ (*env)->ReleaseIntArrayElements(env, wordList, elements, 0);
+ /* Set the field. */
+ fid = (*env)->GetFieldID(env, optClass, "wordListConstraint",
+ "[I");
+ (*env)->SetObjectField(env, optObj, fid, wordList);
+ }
+ else if (sopt->constraint_type == SANE_CONSTRAINT_STRING_LIST)
+ {
+ jclass stringClass = (*env)->FindClass(env, "java/lang/String");
+ jobjectArray stringList;
+ int len; /* Gets # elements */
+ int i;
+
+ for (len = 0; sopt->constraint.string_list[len]; len++)
+ ;
+ stringList = (*env)->NewObjectArray(env, len + 1,
+ stringClass, 0);
+ /* Add each string. */
+ for (i = 0; i < len; i++)
+ {
+ (*env)->SetObjectArrayElement(env, stringList, i,
+ (*env)->NewStringUTF(env,
+ sopt->constraint.string_list[i]));
+ }
+ /* 0 at end. */
+ (*env)->SetObjectArrayElement(env, stringList, len, 0);
+ /* Set the field. */
+ fid = (*env)->GetFieldID(env, optClass,
+ "stringListConstraint", "[Ljava/lang/String;");
+ (*env)->SetObjectField(env, optObj, fid, stringList);
+ }
+ }
+
+/*
+ * Class: Sane
+ * Method: getControlOption
+ * Signature: (II[I[I)I
+ */
+JNIEXPORT jint JNICALL Java_Sane_getControlOption__II_3I_3I
+ (JNIEnv *env, jobject jobj, jint handle, jint option, jintArray value,
+ jintArray info)
+ {
+ SANE_Status status; /* Gets status. */
+ SANE_Int i; /* Gets info. passed back. */
+ int v;
+
+ status = sane_control_option((SANE_Handle) handle, option,
+ SANE_ACTION_GET_VALUE, &v, &i);
+ if (value)
+ (*env)->SetIntArrayRegion(env, value, 0, 1, &v);
+ if (info)
+ (*env)->SetIntArrayRegion(env, info, 0, 1, &i);
+ return (status);
+ }
+
+/*
+ * Class: Sane
+ * Method: getControlOption
+ * Signature: (II[B[I)I
+ */
+JNIEXPORT jint JNICALL Java_Sane_getControlOption__II_3B_3I
+ (JNIEnv *env, jobject jobj, jint handle, jint option, jbyteArray value,
+ jintArray info)
+ {
+ SANE_Status status; /* Gets status. */
+ SANE_Int i; /* Gets info. passed back. */
+ char *str;
+
+ str = (*env)->GetByteArrayElements(env, value, 0);
+ status = sane_control_option((SANE_Handle) handle, option,
+ SANE_ACTION_GET_VALUE, str, &i);
+ (*env)->ReleaseByteArrayElements(env, value, str, 0);
+ if (info)
+ (*env)->SetIntArrayRegion(env, info, 0, 1, &i);
+ return (status);
+ }
+
+/*
+ * Class: Sane
+ * Method: setControlOption
+ * Signature: (IIII[I)I
+ */
+JNIEXPORT jint JNICALL Java_Sane_setControlOption__IIII_3I
+ (JNIEnv *env, jobject jobj, jint handle, jint option, jint action,
+ jint value, jintArray info)
+ {
+ SANE_Status status; /* Gets status. */
+ SANE_Int i; /* Gets info. passed back. */
+ status = sane_control_option((SANE_Handle) handle, option, action,
+ &value, &i);
+ if (info)
+ (*env)->SetIntArrayRegion(env, info, 0, 1, &i);
+ return (status);
+ }
+
+/*
+ * Get string length. This exists because sometimes strings seem to be
+ * padded with negatives.
+ */
+
+static int String_length
+ (
+ const char *str
+ )
+ {
+ const char *ptr;
+ for (ptr = str; *ptr > 0; ptr++)
+ ;
+ return ((int) (ptr - str));
+ }
+
+/*
+ * Class: Sane
+ * Method: setControlOption
+ * Signature: (IIILjava/lang/String;[I)I
+ */
+JNIEXPORT jint JNICALL Java_Sane_setControlOption__IIILjava_lang_String_2_3I
+ (JNIEnv *env, jobject jobj, jint handle, jint option, jint action,
+ jstring value, jintArray info)
+ {
+ SANE_Status status; /* Gets status. */
+ SANE_Int i; /* Gets info. passed back. */
+ const char *valuep;
+ char buf[512]; /* Hope this is big enough. */
+ int len; /* Gets string length. */
+
+ valuep = (*env)->GetStringUTFChars(env, value, 0);
+ len = String_length(valuep);
+ if (len >= sizeof(buf))
+ len = sizeof(buf) - 1;
+ strncpy(buf, valuep, len);
+ buf[len] = 0; /* Insure it's 0-delimited. */
+ status = sane_control_option((SANE_Handle) handle, option, action,
+ (void *) &buf[0], &i);
+ /* +++++++Want to return new val? */
+ (*env)->ReleaseStringUTFChars(env, value, valuep);
+ if (info)
+ (*env)->SetIntArrayRegion(env, info, 0, 1, &i);
+ return (status);
+ }
+
+/*
+ * Class: Sane
+ * Method: getParameters
+ * Signature: (ILSaneParameters;)I
+ */
+JNIEXPORT jint JNICALL Java_Sane_getParameters
+ (JNIEnv *env, jobject jobj, jint handle, jobject paramsObj)
+ {
+ SANE_Status status; /* Gets status. */
+ SANE_Parameters params; /* Gets params. */
+ jclass paramsClass; /* Gets its class. */
+ jfieldID fid; /* Gets each field ID. */
+
+ status = sane_get_parameters((SANE_Handle) handle, &params);
+ /* Get class info. */
+ paramsClass = (*env)->GetObjectClass(env, paramsObj);
+ /* Fill in each member. */
+ fid = (*env)->GetFieldID(env, paramsClass, "format", "I");
+ (*env)->SetIntField(env, paramsObj, fid, params.format);
+ fid = (*env)->GetFieldID(env, paramsClass, "lastFrame", "Z");
+ (*env)->SetBooleanField(env, paramsObj, fid, params.last_frame);
+ fid = (*env)->GetFieldID(env, paramsClass, "bytesPerLine", "I");
+ (*env)->SetIntField(env, paramsObj, fid, params.bytes_per_line);
+ fid = (*env)->GetFieldID(env, paramsClass, "pixelsPerLine", "I");
+ (*env)->SetIntField(env, paramsObj, fid, params.pixels_per_line);
+ fid = (*env)->GetFieldID(env, paramsClass, "lines", "I");
+ (*env)->SetIntField(env, paramsObj, fid, params.lines);
+ fid = (*env)->GetFieldID(env, paramsClass, "depth", "I");
+ (*env)->SetIntField(env, paramsObj, fid, params.depth);
+ return (status);
+ }
+
+/*
+ * Class: Sane
+ * Method: start
+ * Signature: (I)I
+ */
+JNIEXPORT jint JNICALL Java_Sane_start
+ (JNIEnv *env, jobject jobj, jint handle)
+ {
+ return (sane_start((SANE_Handle) handle));
+ }
+
+/*
+ * Class: Sane
+ * Method: read
+ * Signature: (I[BI[I)I
+ */
+JNIEXPORT jint JNICALL Java_Sane_read
+ (JNIEnv *env, jobject jobj, jint handle, jbyteArray data, jint maxLength,
+ jintArray length)
+ {
+ int status;
+ jbyte *dataElements;
+ int read_len; /* # bytes read. */
+
+ /* Get actual data ptr. */
+ dataElements = (*env)->GetByteArrayElements(env, data, 0);
+ /* Do the read. */
+ status = sane_read((SANE_Handle) handle, dataElements,
+ maxLength, &read_len);
+ (*env)->ReleaseByteArrayElements(env, data, dataElements, 0);
+ /* Return # bytes read. */
+ (*env)->SetIntArrayRegion(env, length, 0, 1, &read_len);
+ return (status);
+ }
+
+/*
+ * Class: Sane
+ * Method: cancel
+ * Signature: (I)V
+ */
+JNIEXPORT void JNICALL Java_Sane_cancel
+ (JNIEnv *env, jobject jobj, jint handle)
+ {
+ sane_cancel((SANE_Handle) handle);
+ }
+
+/*
+ * Class: Sane
+ * Method: strstatus
+ * Signature: (I)Ljava/lang/String;
+ */
+JNIEXPORT jstring JNICALL Java_Sane_strstatus
+ (JNIEnv *env, jobject jobj, jint status)
+ {
+ const char *str = sane_strstatus(status);
+ return ((*env)->NewStringUTF(env, str));
+ }
+
+#ifdef __cplusplus
+}
+#endif