github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-15 15:57:13 +00:00
Code Issues Projects Releases Wiki Activity
Interlisp.maiko/src/ocr.c
Nick Briggs 6528ac38e3 Remove proprietary license from all files. 
The code is being re-licensed under the MIT license.

	modified:   bin/fixid
	modified:   bin/launch.asm
	modified:   bin/makefile-hpux.hp9000-x
	modified:   bin/makefile-init.sgi
	modified:   bin/makefile-init.sparc
	modified:   bin/makefile-init.sparc-multi
	modified:   bin/makefile-irix.sgi-x
	modified:   bin/makefile-sunos4.sparc
	modified:   bin/makefile-sunos4.sparc%
	modified:   bin/makefile-sunos4.sparc-multi
	modified:   bin/makefile-sunos5.386-x
	modified:   bin/makefile-sunos5.i386-x
	modified:   bin/makefile-sunos5.sparc-x
	modified:   bin/makefile-tail
	modified:   bin/makeisc
	modified:   bin/makeright
	modified:   inc/Check.h
	modified:   inc/MyWindow.h
	modified:   inc/Stipple.h
	modified:   inc/XCursors.h
	modified:   inc/XKeymap.h
	modified:   inc/XVersion.h
	modified:   inc/Xdeflt.h
	modified:   inc/Xicon.h
	modified:   inc/address.h
	modified:   inc/arith.h
	modified:   inc/arith2.h
	modified:   inc/array.h
	modified:   inc/bb.h
	modified:   inc/cell.h
	modified:   inc/cell.h%
	modified:   inc/copyright
	modified:   inc/dbprint.h
	modified:   inc/debug.h
	modified:   inc/devif.h
	modified:   inc/display.h
	modified:   inc/dspdata.h
	modified:   inc/ether.h
	modified:   inc/fast_dsp.h
	modified:   inc/fp.h
	modified:   inc/gc.h
	modified:   inc/gc.h.save
	modified:   inc/gcscan.h
	modified:   inc/hdw_conf.h
	modified:   inc/ifpage.h
	modified:   inc/inlineC.h
	modified:   inc/inlnMIPS.h
	modified:   inc/inlnPS2.h
	modified:   inc/inlndos.h
	modified:   inc/iopage.h
	modified:   inc/kbdif.h
	modified:   inc/keyboard.h
	modified:   inc/keyboard.h%
	modified:   inc/keysym.h
	modified:   inc/ldeXdefs.h
	modified:   inc/lispemul.h
	modified:   inc/lispemul.h.save
	modified:   inc/lispmap.h
	modified:   inc/lldsp.h
	modified:   inc/lnk-Xdeflt.h
	modified:   inc/lnk-debug.h
	modified:   inc/lnk-fast_dsp.h
	modified:   inc/lnk-inlineC.h
	modified:   inc/lnk-lispmap.h
	modified:   inc/lnk-tosfns.h
	modified:   inc/lnk-tosret.h
	modified:   inc/locfile.h
	modified:   inc/lpdefs.h
	modified:   inc/lpglobl.h
	modified:   inc/lspglob.h
	modified:   inc/lsptypes.h
	modified:   inc/medleyfp.h
	modified:   inc/mnxdefs.h
	modified:   inc/my.h
	modified:   inc/native.h
	modified:   inc/ocr.h
	modified:   inc/osmsg.h
	modified:   inc/picture.h
	modified:   inc/pilotbbt.h
	modified:   inc/print.h
	modified:   inc/profile.h
	modified:   inc/rawrs232c.h
	modified:   inc/return.h
	modified:   inc/rs232c.h
	modified:   inc/stack.h
	modified:   inc/stream.h
	modified:   inc/stream.h%
	modified:   inc/stream.h2
	modified:   inc/sysatms.h
	modified:   inc/timeout.h
	modified:   inc/tos1defs.h
	modified:   inc/tosfns.h
	modified:   inc/tosret.h
	modified:   inc/tty.h
	modified:   inc/version.h
	modified:   inc/vmemsave.h
	modified:   inc/xbitmaps.h
	modified:   inc/xdefs.h
	modified:   src/Cldeetr.c
	modified:   src/allocmds.c
	modified:   src/arith2.c
	modified:   src/arith3.c
	modified:   src/arith4.c
	modified:   src/array.c
	modified:   src/array2.c
	modified:   src/array3.c
	modified:   src/array4.c
	modified:   src/array5.c
	modified:   src/array6.c
	modified:   src/asmbbt.c
	modified:   src/asmbitblt.c
	modified:   src/atom.c
	modified:   src/bbtSPARC.s
	modified:   src/bbtsub.c
	modified:   src/bin.c
	modified:   src/binds.c
	modified:   src/bitblt.c
	modified:   src/blt.c
	modified:   src/byteswap.c
	modified:   src/call-c.c
	modified:   src/car-cdr.c
	modified:   src/cdaudio.c
	modified:   src/cdrom.c
	modified:   src/chardev.c
	modified:   src/chatter.c
	modified:   src/codeconv.c
	modified:   src/codetbl.c
	modified:   src/colorbltfns.c
	modified:   src/common.c
	modified:   src/conspage.c
	modified:   src/cr
	modified:   src/dbgtool.c
	modified:   src/dir.c
	modified:   src/doscomm.c
	modified:   src/doskbd.c
	modified:   src/dosmouse.c
	modified:   src/draw.c
	modified:   src/dsk.c
	modified:   src/dspif.c
	modified:   src/dspsubrs.c
	modified:   src/ejlisp.c
	modified:   src/eqf.c
	modified:   src/ether.c
	modified:   src/findkey.c
	modified:   src/foreign.c
	modified:   src/fp.c
	modified:   src/fvar.c
	modified:   src/gc.c
	modified:   src/gc2.c
	modified:   src/gcarray.c
	modified:   src/gccode.c
	modified:   src/gcfinal.c
	modified:   src/gchtfind.c
	modified:   src/gcmain3.c
	modified:   src/gcoflow.c
	modified:   src/gcr.c
	modified:   src/gcrcell.c
	modified:   src/gcscan.c
	modified:   src/gvar2.c
	modified:   src/hacks.c
	modified:   src/hardrtn.c
	modified:   src/imagefile.c
	modified:   src/imagefile2.c
	modified:   src/inet.c
	modified:   src/initdsp.c
	modified:   src/initkbd.c
	modified:   src/initsout.c
	modified:   src/intcall.c
	modified:   src/kbdif.c
	modified:   src/kbdsubrs.c
	modified:   src/keyevent.c
	modified:   src/keylib.c
	modified:   src/keymaker.c
	modified:   src/keytst.c
	modified:   src/keytstno.c
	modified:   src/kprint.c
	modified:   src/launch.asm
	modified:   src/ldeboot.c
	modified:   src/ldeether.c
	modified:   src/ldsout.c
	modified:   src/lineblt8.c
	modified:   src/lisp2c.c
	modified:   src/llcolor.c
	modified:   src/llstk.c
	modified:   src/loader.c
	modified:   src/loopsops.c
	modified:   src/lowlev1.c
	modified:   src/lowlev2.c
	modified:   src/lpdual.c
	modified:   src/lpkit.c
	modified:   src/lplexyy.c
	modified:   src/lpmain.c
	modified:   src/lpread.c
	modified:   src/lpsolve.c
	modified:   src/lptran.c
	modified:   src/lpwrite.c
	modified:   src/lpytab.c
	modified:   src/lsthandl.c
	modified:   src/main.c
	modified:   src/misc7.c
	modified:   src/miscn.c
	modified:   src/mkatom.c
	modified:   src/mkcell.c
	modified:   src/mkkey.c
	modified:   src/mkvdate.c
	modified:   src/mnwevent.c
	modified:   src/mnxmeth.c
	modified:   src/mouseif.c
	modified:   src/mvs.c
	modified:   src/ocr.c
	modified:   src/ocrproc.c
	modified:   src/oether.c
	modified:   src/oldeether.c
	modified:   src/optck.c
	modified:   src/osmsg.c
	modified:   src/perrno.c
	modified:   src/picture.c
	modified:   src/rawcolor.c
	modified:   src/rawrs232c.c
	modified:   src/return.c
	modified:   src/rpc.c
	modified:   src/rplcons.c
	modified:   src/rs232c.c
	modified:   src/setsout.c
	modified:   src/shift.c
	modified:   src/socdvr.c
	modified:   src/storage.c
	modified:   src/subr.c
	modified:   src/subr0374.c
	modified:   src/sxhash.c
	modified:   src/testdsp.c
	modified:   src/testtool.c
	modified:   src/timeoday.c
	modified:   src/timeofday.c
	modified:   src/timer.c
	modified:   src/truecolor.c
	modified:   src/tstsout.c
	modified:   src/tty.c
	modified:   src/typeof.c
	modified:   src/ubf1.c
	modified:   src/ubf2.c
	modified:   src/ubf3.c
	modified:   src/ufn.c
	modified:   src/ufs.c
	modified:   src/unixcomm.c
	modified:   src/unixfork.c
	modified:   src/unwind.c
	modified:   src/uraid.c
	modified:   src/usrsubr.c
	modified:   src/uutils.c
	modified:   src/vars3.c
	modified:   src/vesafns.asm
	modified:   src/vesainit.c
	modified:   src/vgainit.c
	modified:   src/vmemsave.c
	modified:   src/xbbt.c
	modified:   src/xc.c
	modified:   src/xc.c.orig
	modified:   src/xcursor.c
	modified:   src/xinit.c
	modified:   src/xlspwin.c
	modified:   src/xmkicon.c
	modified:   src/xrdopt.c
	modified:   src/xscroll.c
	modified:   src/xwinman.c
	modified:   src/z2.c
2020-08-11 18:39:45 -07:00

1455 lines
49 KiB
C
Raw Blame History

/* $Id: ocr.c,v 1.2 1999/01/03 02:07:27 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
static char *id = "$Id: ocr.c,v 1.2 1999/01/03 02:07:27 sybalsky Exp $ Copyright (C) Venue";
/************************************************************************/
/* */
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
/* Manufactured in the United States of America. */
/* */
/************************************************************************/
#include "version.h"
#ifdef OCR
#include <sys/types.h>
#include <sys/socket.h>
#include <sys/un.h>
#include <sys/wait.h>
#include <errno.h>
#include <signal.h>
#include <unistd.h>
#include <fcntl.h>
#include <setjmp.h>
#include <string.h>
#include <stdio.h>
#include "adr68k.h"
#include "lispmap.h"
#include "lispemul.h"
#include "lsptypes.h"
#include "lspglob.h"
#include "cell.h"
#include "arith.h"
#include "timeout.h"
#include "ocr.h"
/*
* Socket descriptor to communicate with the OCR process
*/
int OCR_sock = -1;
u_int shifted_OCR_sock;
/*
* OCR process ID
*/
int OCR_procID = -1;
/*
* Lisp I/F to indicate wait status.
* Points to the value cell of IL:\OCR.STATE.FLAGS
*/
LispPTR *OCR_state_word = NULL;
/*
* Other Lisp I/F area
*/
struct ocr_image_info *OCR_iminfo_block = NULL;
/*
* Image size cache
*/
static u_int OCR_image_size = 0;
/*
* Local Definitions for clarify code
*/
#ifndef MIN
#define MIN(a, b) (((a) < (b)) ? (a) : (b))
#endif
#ifndef MAX
#define MAX(a, b) (((a) > (b)) ? (a) : (b))
#endif
#define NULL_STATE_WORD (OCR_state_word == NULL)
#define WAITING_REASON (*(u_int *)Addr68k_from_LADDR(*OCR_state_word))
#define INIT_STATE_WORD \
{ \
DLword an; \
extern int get_package_atom(); \
an = get_package_atom("\\OCR.STATE.FLAGS", 16, "INTERLISP", 9, NIL); \
OCR_state_word = GetDEFCELL68k(an); \
}
#define SET_WAIT_FLG(reason) \
{ \
u_int *flagp; \
flagp = (u_int *)Addr68k_from_LADDR(*OCR_state_word); \
*flagp = reason; \
}
#define CLR_WAIT_FLG \
{ \
u_int *flagp; \
flagp = (u_int *)Addr68k_from_LADDR(*OCR_state_word); \
*flagp = 0; \
}
#define FD_BLOCK 1
#define FD_NON_BLOCK 0
/*
* Local Functions
*/
static int ocr_open(), ocr_scan(), ocr_iminfo(), ocr_fork();
static int ocr_block_mode(), ocr_bulk_read(), ocr_wait();
static int ocr_set_rpara(), ocr_read();
static void ocr_close(), ocr_sig_handler(), ocr_irq(), ocr_set_handler();
static void ocr_clr_handler(), ocr_device_reset();
static void ocr_scan_finish(), ocr_img_upld_finish(), ocr_read_finish();
static void ocr_code_conv();
static LispPTR ocr_get_read_result();
/*
* Subr OCR_COMM:
*
* According to the command indicated by args[0], dispatch to the appropriate
* routines. Each subroutine should return one of 1, 0 and -1 as its value.
* 1 means the command is completed successfully. 0 means the command is failed
* but the OCR process is still alive. -1 means the command is failed and
* OCR process seems dead. In -1 case, issue an interrupt request with interrupt
* mode OCR_ST_PROC_DEAD. This causes Lisp fall into a debugger after establishing
* unwind protected contour to reset OCR.
*/
int ocr_comm(LispPTR *args)
{
int com;
LispPTR val;
N_GETNUMBER(args[0], com, INVAL);
switch (com) {
case DO_OPEN:
if (OCR_sock >= 0) {
val = GetSmallp(0);
} else {
val = ocr_open();
if (val > 0) {
val = GetSmallp(val);
} else {
val = GetSmallp(0);
}
}
break;
case DO_SCAN: {
switch (ocr_scan((struct ocr_scan_para *)Addr68k_from_LADDR(args[1]))) {
case 1: val = ATOM_T; break;
case -1:
val = NIL;
SET_WAIT_FLG(OCR_ST_PROC_DEAD);
ocr_irq();
break;
case 0:
default: val = NIL;
}
} break;
case DO_IMG_INFO:
if (OCR_sock < 0) {
val = NIL;
} else {
OCR_iminfo_block = (struct ocr_image_info *)Addr68k_from_LADDR(args[2]);
switch (ocr_iminfo((struct ocr_up_para *)Addr68k_from_LADDR(args[1]))) {
case 1: val = ATOM_T; break;
case -1:
val = NIL;
SET_WAIT_FLG(OCR_ST_PROC_DEAD);
ocr_irq();
break;
case 0:
default: val = NIL;
}
}
break;
case DO_IMG_UPLD: {
BITMAP *bmp;
int len;
bmp = (BITMAP *)Addr68k_from_LADDR(args[1]);
len = ocr_bulk_read(OCR_sock, (char *)Addr68k_from_LADDR(bmp->bmbase), 10);
val = (len < 0) ? NIL : ATOM_T;
} break;
case DO_SET_RPARA: {
int cnt;
u_char *pp;
pp = (u_char *)Addr68k_from_LADDR(args[1]);
N_GETNUMBER(args[2], cnt, INVAL);
switch (ocr_set_rpara(pp, cnt)) {
case 1: val = ATOM_T; break;
case -1:
val = NIL;
SET_WAIT_FLG(OCR_ST_PROC_DEAD);
ocr_irq();
break;
case 0:
default: val = NIL;
}
} break;
case DO_CLR_RPARA: {
switch (ocr_clr_rpara()) {
case 1: val = ATOM_T; break;
case -1:
val = NIL;
SET_WAIT_FLG(OCR_ST_PROC_DEAD);
ocr_irq();
break;
case 0:
default: val = NIL;
}
} break;
case DO_READ: {
switch (ocr_read()) {
case 1: val = ATOM_T; break;
case -1:
val = NIL;
SET_WAIT_FLG(OCR_ST_PROC_DEAD);
ocr_irq();
break;
case 0:
default: val = NIL;
}
} break;
case DO_GET_RESULT:
if (OCR_sock < 0) {
val = NIL;
} else {
val = ocr_get_read_result(OCR_sock);
}
break;
case DO_CLOSE:
if (OCR_sock < 0) {
val = NIL;
} else {
ocr_close();
val = ATOM_T;
}
break;
case DO_CODE_CONV: {
int len;
N_GETNUMBER(args[1], len, INVAL);
ocr_code_conv((u_char *)Addr68k_from_LADDR(args[2]), len);
val = ATOM_T;
} break;
case DO_TEST: {
extern DLword *createcell68k();
u_char *np, *np2;
LispPTR lp;
np = (u_char *)createcell68k(TYPE_VMEMPAGEP);
np2 = (u_char *)createcell68k(TYPE_VMEMPAGEP);
lp = cons(LADDR_from_68k(np2), NIL);
lp = cons(LADDR_from_68k(np), lp);
val = lp;
} break;
default: error("ocr_comm: Invalid Comm byte");
}
return (val);
INVAL:
return (NIL);
}
/*
* Subr OCR_COMM: comm = OCR_OPEN
*
* Fork OCR process and isssue 'O' command to open OCR device.
*/
static int ocr_open() {
int cnt;
u_char pkt[PKTLEN];
OCR_sock = ocr_fork();
if (OCR_sock < 0) {
return 0;
} else {
if (!ocr_block_mode(OCR_sock, FD_BLOCK)) return 0;
pkt[0] = 'O';
pkt[1] = pkt[2] = 0;
if (write(OCR_sock, pkt, sizeof(pkt)) < 0) {
ocr_close();
return 0;
}
SETJMP(0);
S_TOUT_TIME(cnt = read(OCR_sock, pkt, sizeof(pkt)), 20);
if (cnt == sizeof(pkt) && pkt[0] == 1) {
if (NULL_STATE_WORD) INIT_STATE_WORD;
ocr_set_handler();
shifted_OCR_sock = 1 << OCR_sock;
return (OCR_sock);
} else {
return 0;
}
}
}
/*
* Ask the pre-forked small emulator process to fork the OCR process
*/
static int ocr_fork() {
int sfd, nsfd;
char *addr;
int len, flag;
struct sockaddr_un sock;
u_char pkt[4];
extern char *build_socket_pathname();
extern int UnixPipeIn, UnixPipeOut;
sfd = socket(AF_UNIX, SOCK_STREAM, 0);
if (sfd < 0) {
perror("ocr_fork: socket open");
return -1;
}
addr = build_socket_pathname(sfd);
sock.sun_family = AF_UNIX;
strcpy(sock.sun_path, addr);
unlink(addr);
len = sizeof(sock.sun_family) + strlen(addr);
if (bind(sfd, &sock, len) < 0) {
perror("ocr_fork: bind");
close(sfd);
return -1;
}
if (listen(sfd, 1) < 0) {
perror("ocr_fork: listen");
unlink(addr);
close(sfd);
return -1;
}
pkt[0] = 'O';
pkt[3] = sfd;
write(UnixPipeOut, pkt, 4);
read(UnixPipeIn, pkt, 4);
if (pkt[3] == 1) {
retry:
SETJMP(-1);
S_TOUT_TIME(nsfd = accept(sfd, NULL, NULL), 20);
if (nsfd < 0) {
if (errno == EINTR) {
goto retry;
} else {
perror("ocr_fork: accept");
unlink(addr);
close(sfd);
return -1;
}
}
close(sfd);
unlink(addr);
OCR_procID = pkt[1] << 8 | pkt[2];
return (nsfd);
} else {
close(sfd);
unlink(addr);
return -1;
}
}
/*
* Change blocking mode of a file descriptor.
*/
static int ocr_block_mode(fd, doblock) int fd;
int doblock;
{
int flags;
if (fd < 0) return 0;
flags = fcntl(fd, F_GETFL, 0);
if (flags < 0) return 0;
if (doblock) {
flags &= ~FNDELAY;
} else {
flags |= FNDELAY;
}
if (fcntl(fd, F_SETFL, flags) < 0) return 0;
return 1;
}
/*
* Cleanup routines
*/
static void ocr_device_reset() {
if (OCR_sock >= 0) {
u_char pkt[PKTLEN];
pkt[0] = 'A';
pkt[1] = pkt[2] = 0;
write(OCR_sock, pkt, sizeof(pkt));
sleep(1);
}
return;
}
static int ocr_wait() {
u_char pkt[4];
int status;
if (OCR_procID > 0) {
pkt[0] = 'w';
pkt[1] = OCR_procID >> 8 & 0xFF;
pkt[2] = OCR_procID & 0xFF;
write(UnixPipeOut, pkt, sizeof(pkt));
read(UnixPipeIn, pkt, sizeof(pkt));
status = pkt[0] << 24 | pkt[1] << 16 | pkt[2] << 8 | pkt[3];
if (status != 0 && (WIFSIGNALED(status) || WIFEXITED(status))) {
return 1;
} else {
return 0;
}
}
return 1;
}
static void ocr_close() {
int status, pid;
if (OCR_sock >= 0) {
ocr_device_reset();
(void)shutdown(OCR_sock, 2);
}
OCR_sock = shifted_OCR_sock = -1;
ocr_clr_handler();
if (OCR_procID > 0) {
if (ocr_wait() == 0) {
int i;
kill(OCR_procID, SIGUSR1);
for (i = 0; i < 10; i++) {
if (ocr_wait()) break;
}
}
OCR_procID = -1;
}
return;
}
/*
* Subr OCR_COMM: comm = OCR_SCAN
*
* Issue 'S' command to start scanning. 'S' commmand returns immediatedly
* without waiting device to finish scanning.
*/
static int ocr_scan(sp) struct ocr_scan_para *sp;
{
int cnt;
u_char pkt[PKTLEN];
pkt[0] = 'S';
pkt[1] = 0;
pkt[2] = sizeof(struct ocr_scan_para);
if (write(OCR_sock, pkt, sizeof(pkt)) != sizeof(pkt)) { return 0; }
if (write(OCR_sock, (char *)sp, sizeof(struct ocr_scan_para)) != sizeof(struct ocr_scan_para)) {
return 0;
}
IF_TIMEOUT({
int i;
for (i = 0; i < 10; i++) {
if (ocr_wait()) return -1;
}
return 0;
});
S_TOUT_TIME(cnt = read(OCR_sock, pkt, sizeof(pkt)), 5);
if (cnt == sizeof(pkt) && pkt[0] == 1) {
SET_WAIT_FLG(OCR_ST_SCANNING);
return 1;
} else {
return 0;
}
}
/*
* Subr OCR_COMM: comm = OCR_IMG_INFO
*
* Issue 'I' command to get an information about the image being uploaded.
* 'I' commmand returns immediatedly without waiting OCR process to
* finish its work.
*/
static int ocr_iminfo(up) struct ocr_up_para *up;
{
int i, cnt;
u_char pkt[PKTLEN];
pkt[0] = 'I';
pkt[1] = 0;
pkt[2] = sizeof(struct ocr_up_para);
if (write(OCR_sock, pkt, sizeof(pkt)) != sizeof(pkt)) { return 0; }
if (write(OCR_sock, (char *)up, sizeof(struct ocr_up_para)) != sizeof(struct ocr_up_para)) {
return 0;
}
IF_TIMEOUT({
int i;
for (i = 0; i < 10; i++) {
if (ocr_wait()) return -1;
}
return 0;
});
S_TOUT_TIME(cnt = read(OCR_sock, pkt, sizeof(pkt)), 5);
if (cnt == sizeof(pkt) && pkt[0] == 1) {
SET_WAIT_FLG(OCR_ST_UPLDING);
return 1;
} else {
return 0;
}
}
/*
* Subr OCR_COMM: comm = OCR_SET_RPARA
*
* Issue 'P' command to set read parameters.
*/
static int ocr_set_rpara(pp, num) register u_char *pp;
register int num;
{
register int cnt;
u_char pkt[PKTLEN];
pkt[0] = 'P';
num = num * sizeof(struct ocr_read_para);
pkt[1] = num >> 8 & 0xFF;
pkt[2] = num & 0xFF;
if (write(OCR_sock, pkt, sizeof(pkt)) != sizeof(pkt)) { return 0; }
do {
cnt = write(OCR_sock, (char *)pp, num);
if (cnt < 0) {
return 0;
} else {
num -= cnt;
pp += cnt;
}
} while (num > 0);
IF_TIMEOUT({
int i;
for (i = 0; i < 10; i++) {
if (ocr_wait()) return -1;
}
return 0;
});
S_TOUT_TIME(cnt = read(OCR_sock, pkt, sizeof(pkt)), 15);
if (cnt == sizeof(pkt) && pkt[0] == 1) {
return 1;
} else {
return 0;
}
}
/*
* Subr OCR_COMM: comm = OCR_CLR_RPARA
*
* Issue 'C' command to clear all read parameters.
*/
static int ocr_clr_rpara() {
register int cnt;
u_char pkt[PKTLEN];
pkt[0] = 'C';
pkt[1] = pkt[2] = 0;
if (write(OCR_sock, pkt, sizeof(pkt)) != sizeof(pkt)) { return 0; }
IF_TIMEOUT({
int i;
for (i = 0; i < 10; i++) {
if (ocr_wait()) return -1;
}
return 0;
});
S_TOUT_TIME(cnt = read(OCR_sock, pkt, sizeof(pkt)), 15);
if (cnt == sizeof(pkt) && pkt[0] == 1) {
return 1;
} else {
return 0;
}
}
/*
* Subr OCR_COMM: comm = OCR_READ
*
* Issue 'R' command to start reading.
* 'R' commmand returns immediatedly without waiting OCR process to
* finish its work.
*/
static int ocr_read() {
register int cnt;
u_char pkt[PKTLEN];
pkt[0] = 'R';
pkt[1] = pkt[2] = 0;
if (write(OCR_sock, pkt, sizeof(pkt)) != sizeof(pkt)) { return 0; }
IF_TIMEOUT({
int i;
for (i = 0; i < 10; i++) {
if (ocr_wait()) return -1;
}
return 0;
});
S_TOUT_TIME(cnt = read(OCR_sock, pkt, sizeof(pkt)), 15);
if (cnt == sizeof(pkt) && pkt[0] == 1) {
SET_WAIT_FLG(OCR_ST_READING)
return 1;
} else {
return 0;
}
}
/*
* SIGUSR1 handler.
*
* If one of time consuming work is finished by OCR process, SIGUSR1 is signalled.
* Accoding to the waiting reason, do appropriate work, then to notify Lisp.
*/
static void ocr_sig_handler(sig, code, scp) int sig, code;
struct sigcontext *scp;
{
if (OCR_sock < 0) return;
switch (WAITING_REASON) {
case OCR_ST_SCANNING: ocr_scan_finish(); break;
case OCR_ST_UPLDING: ocr_img_upld_finish(); break;
case OCR_ST_READING: ocr_read_finish(); break;
default: SET_WAIT_FLG(OCR_ST_FAIL);
}
ocr_irq();
return;
}
static void ocr_set_handler() {
struct sigvec sv;
sv.sv_flags = sv.sv_mask = 0;
sv.sv_handler = ocr_sig_handler;
sigvec(SIGUSR1, &sv, NULL);
return;
}
static void ocr_clr_handler() {
struct sigvec sv;
extern void panicuraid();
sv.sv_flags = sv.sv_mask = 0;
sv.sv_handler = panicuraid;
sigvec(SIGUSR1, &sv, NULL);
return;
}
/*
* Handle SIGUSR1 interrupt if state is scanning
*/
static void ocr_scan_finish() {
int cnt;
u_char pkt[PKTLEN];
IF_TIMEOUT({
int i;
for (i = 0; i < 10; i++) {
if (ocr_wait()) {
SET_WAIT_FLG(OCR_ST_PROC_DEAD);
break;
}
}
return;
});
S_TOUT_TIME(cnt = read(OCR_sock, pkt, sizeof(pkt)), 5);
if (cnt == sizeof(pkt) && pkt[0] == 1) {
CLR_WAIT_FLG;
} else {
SET_WAIT_FLG(OCR_ST_FAIL);
}
return;
}
/*
* Handle SIGUSR1 interrupt if state is image uploading
*/
static void ocr_img_upld_finish() {
int cnt;
u_char pkt[PKTLEN];
IF_TIMEOUT({
int i;
for (i = 0; i < 10; i++) {
if (ocr_wait()) {
SET_WAIT_FLG(OCR_ST_PROC_DEAD);
break;
}
}
return;
});
S_TOUT_TIME(cnt = read(OCR_sock, pkt, sizeof(pkt)), 5);
if (cnt == sizeof(pkt) && pkt[0] == 1) {
S_TOUT_TIME(cnt = read(OCR_sock, (char *)OCR_iminfo_block, sizeof(struct ocr_image_info)), 5);
if (cnt == sizeof(struct ocr_image_info)) {
CLR_WAIT_FLG;
OCR_image_size = OCR_iminfo_block->size;
} else {
SET_WAIT_FLG(OCR_ST_FAIL);
}
} else {
SET_WAIT_FLG(OCR_ST_FAIL);
}
return;
}
/*
* Handle SIGUSR1 interrupt if state is reading
*/
static void ocr_read_finish() {
int cnt;
u_char pkt[PKTLEN];
IF_TIMEOUT({
int i;
for (i = 0; i < 10; i++) {
if (ocr_wait()) {
SET_WAIT_FLG(OCR_ST_PROC_DEAD);
break;
}
}
return;
});
S_TOUT_TIME(cnt = read(OCR_sock, pkt, sizeof(pkt)), 5);
if (cnt == sizeof(pkt) && pkt[0] == 1) {
CLR_WAIT_FLG;
} else {
SET_WAIT_FLG(OCR_ST_FAIL);
}
return;
}
/*
* Set up the interrupt stuff and issue a requst.
*/
static void ocr_irq() {
u_int *flagp;
extern LispPTR *IOINTERRUPTFLAGS_word;
extern LispPTR *IOINTERRUPTSTATE_word;
extern LispPTR *PENDINGINTERRUPT68k;
if (OCR_sock < 0) return;
flagp = (u_int *)Addr68k_from_LADDR(*IOINTERRUPTFLAGS_word);
*flagp = shifted_OCR_sock;
((INTSTAT *)Addr68k_from_LADDR(*INTERRUPTSTATE_word))->IOInterrupt = 1;
*PENDINGINTERRUPT68k = ATOM_T;
Irq_Stk_End = Irq_Stk_Check = 0;
return;
}
/*
* Bulk data transfer
*/
static int ocr_bulk_read(fd, buf, tout) int fd, tout;
register char *buf;
{
register u_int cnt, len = 0;
struct bd_header hd;
SETJMP(-1);
while (1) {
S_TOUT_TIME(cnt = read(fd, &hd, sizeof(struct bd_header)), tout);
if (cnt < 0) return -1;
if (hd.len == 0) return ((hd.cont == BD_LAST) ? len : -1);
do {
S_TOUT_TIME(cnt = read(fd, buf, hd.len), tout);
if (cnt < 0) return -1;
hd.len -= cnt;
len += cnt;
buf += cnt;
} while (hd.len > 0);
if (hd.cont == BD_LAST) return len;
}
}
static LispPTR ocr_get_read_result(fd) int fd;
{
register u_int cnt, len, buflen;
struct bd_header hd;
u_char *buf, *ptr;
LispPTR val;
SETJMP(NIL);
S_TOUT_TIME(cnt = read(fd, &hd, sizeof(struct bd_header)), 1);
val = 0;
ptr = buf = NULL;
buflen = 0;
while (hd.len > 0) {
if (buflen > 0) {
len = MIN(hd.len, buflen);
do {
S_TOUT_TIME(cnt = read(fd, ptr, len), 10);
if (cnt < 0) return (NIL);
hd.len -= cnt;
len -= cnt;
buflen -= cnt;
ptr += cnt;
} while (len > 0);
if (hd.len > 0) {
continue;
} else if (hd.cont != BD_CONT) {
break;
} else {
S_TOUT_TIME(cnt = read(fd, &hd, sizeof(struct bd_header)), 1);
continue;
}
} else {
ptr = buf = (u_char *)createcell68k(TYPE_VMEMPAGEP);
if (buf == NULL) {
return (NIL);
} else {
val = cons(LADDR_from_68k(buf), val);
buflen = 512;
}
}
}
return (val);
}
/*
* OCR specific code conversion
*/
static u_short jis0[256] = {0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x0020, 0x0021, 0x0022, 0x0023, 0x00A4, 0x0025, 0x0026, 0x0027, 0x0028,
0x0029, 0x002A, 0x002B, 0x002C, 0x002D, 0x002E, 0x002F,
0x0030, 0x0031, 0x0032, 0x0033, 0x0034, 0x0035, 0x0036, 0x0037, 0x0038,
0x0039, 0x003A, 0x003B, 0x003C, 0x003D, 0x003E, 0x003F,
0x0040, 0x0041, 0x0042, 0x0043, 0x0044, 0x0045, 0x0046, 0x0047, 0x0048,
0x0049, 0x004A, 0x004B, 0x004C, 0x004D, 0x004E, 0x004F,
0x0050, 0x0051, 0x0052, 0x0053, 0x0054, 0x0055, 0x0056, 0x0057, 0x0058,
0x0059, 0x005A, 0x005B, 0x00A5, 0x005D, 0x005E, 0x005F,
0x0060, 0x0061, 0x0062, 0x0063, 0x0064, 0x0065, 0x0066, 0x0067, 0x0068,
0x0069, 0x006A, 0x006B, 0x006C, 0x006D, 0x006E, 0x006F,
0x0070, 0x0071, 0x0072, 0x0073, 0x0074, 0x0075, 0x0076, 0x0077, 0x0078,
0x0079, 0x007A, 0x007B, 0x007C, 0x007D, 0x007E, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2123, 0x2156, 0x2157, 0x2122, 0x00B7, 0x2572, 0x2521, 0x2523,
0x2525, 0x2527, 0x2529, 0x2563, 0x2565, 0x2567, 0x2544,
0x213C, 0x2522, 0x2524, 0x2526, 0x2528, 0x252A, 0x252B, 0x252D, 0x252F,
0x2531, 0x2533, 0x2535, 0x2537, 0x2539, 0x253B, 0x253D,
0x253F, 0x2541, 0x2544, 0x2546, 0x2548, 0x254A, 0x254B, 0x254C, 0x254D,
0x254E, 0x254F, 0x2552, 0x2555, 0x2558, 0x255B, 0x255E,
0x255F, 0x2560, 0x2561, 0x2562, 0x2564, 0x2566, 0x2568, 0x2569, 0x256A,
0x256B, 0x256C, 0x256D, 0x256F, 0x2573, 0x212B, 0x212C,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223
};
static u_short jis1[256] = {0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2121, 0x2122, 0x2123, 0x002C, 0x002E, 0x00B7, 0x003A, 0x003B,
0x003F, 0x0021, 0x212B, 0x212C, 0x00C2, 0x00C1, 0x00C8,
0x00C3, 0x2223, 0x00CC, 0x2133, 0x2134, 0x2135, 0x2136, 0x2137, 0x2138,
0x2139, 0x213A, 0x213B, 0x213C, 0xEF24, 0x213E, 0x002F,
0x005C, 0x007E, 0x003D, 0x007C, 0x2144, 0x003A, 0x00A9, 0x0027, 0x00AA,
0x00BA, 0x0028, 0x0029, 0x214C, 0x214D, 0x005B, 0x005D,
0x007B, 0x007D, 0xEF32, 0xEF33, 0x00AB, 0x00BB, 0x2156, 0x2157, 0x2158,
0x2159, 0x215A, 0x215B, 0x002B, 0x002D, 0x00B1, 0x00B4,
0x00B8, 0x003D, 0x2162, 0x003C, 0x003E, 0x2165, 0x2166, 0x2167, 0x2168,
0x2169, 0x216A, 0x00B0, 0x216C, 0x216D, 0x216E, 0x00A5,
0x00A4, 0x00A2, 0x00A3, 0x0025, 0x0023, 0x0026, 0x002A, 0x0040, 0x00A7,
0x2179, 0x217A, 0x217B, 0x217C, 0x217D, 0x217E, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223
};
static u_short jis2[256] = {0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2221, 0x2222, 0x2223, 0x2224, 0x2225, 0x2226, 0x2227, 0x2228,
0x2229, 0x00AE, 0x00AC, 0x00AD, 0x00AF, 0x222E, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0xEF4A, 0xEF4C, 0xEF59, 0xEF58, 0xEF5B, 0xEF5A,
0xEF57, 0xEF56, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0xEFB6, 0xEFB7, 0xEF6A, 0xEF4F, 0xEF4E, 0xEFB5,
0xEFB4, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0xEF6C, 0xEF70, 0x2223, 0xEFBA,
0xEFB9, 0xEF72, 0x2223, 0xEF42, 0xEF43, 0x2223, 0x2223, 0xEF71, 0xEF6F,
0xEF75, 0x226A, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0xF128, 0xEF41, 0x2223, 0x2223, 0x2223, 0xEF30, 0xEF31,
0x00B0, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223
};
static u_short jis3[256] = {0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x0030, 0x0031, 0x0032, 0x0033, 0x0034, 0x0035, 0x0036, 0x0037, 0x0038,
0x0039, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x0041, 0x0042, 0x0043, 0x0044, 0x0045, 0x0046, 0x0047, 0x0048,
0x0049, 0x004A, 0x004B, 0x004C, 0x004D, 0x004E, 0x004F,
0x0050, 0x0051, 0x0052, 0x0053, 0x0054, 0x0055, 0x0056, 0x0057, 0x0058,
0x0059, 0x005A, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x0061, 0x0062, 0x0063, 0x0064, 0x0065, 0x0066, 0x0067, 0x0068,
0x0069, 0x006A, 0x006B, 0x006C, 0x006D, 0x006E, 0x006F,
0x0070, 0x0071, 0x0072, 0x0073, 0x0074, 0x0075, 0x0076, 0x0077, 0x0078,
0x0079, 0x007A, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223
};
static u_short jis6[256] = {0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2641, 0x2642, 0x2644, 0x2645, 0x2646, 0x2649, 0x264A, 0x264B,
0x264C, 0x264D, 0x264E, 0x264F, 0x2650, 0x2651, 0x2652,
0x2653, 0x2655, 0x2656, 0x2658, 0x2659, 0x265A, 0x265B, 0x265C, 0x265D,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2661, 0x2662, 0x2664, 0x2665, 0x2666, 0x2669, 0x266A, 0x266B,
0x266C, 0x266D, 0x266E, 0x266F, 0x2670, 0x2671, 0x2672,
0x2673, 0x2675, 0x2676, 0x2678, 0x2679, 0x267A, 0x267B, 0x267C, 0x267D,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223
};
static u_short jis84[256] = {0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x7521, 0x7522, 0x7523, 0x7524, 0x7525, 0x7526, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223
};
static u_short jis8[256] = {0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0xEF69,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0xF128, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x7421, 0x7421, 0xEFFC, 0xEFFC, 0x2220,
0x2220, 0xEFA8, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223
};
static u_short jis9[256] = {0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0xEFD1, 0xEFD2, 0xEFD3, 0xEFD4, 0xEFD5,
0xEFD6, 0xEFD7, 0xEFD8, 0xEFD9, 0xEFDA, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0xEFD1, 0xEFD2, 0xEFD3, 0xEFD4, 0xEFD5, 0xEFD6, 0xEFD7,
0xEFD8, 0xEFD9, 0xEFDA, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0xEFC2,
0xEFC3, 0xEFC4, 0x2223, 0xEFC6, 0xEFC7, 0xEFC8, 0xEFC9, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223
};
static u_short jis10[256] = {0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x7409, 0x7421, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223
};
static u_short jis14[256] = {0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2122, 0x2123, 0x2124, 0x2125, 0x2223, 0x2223, 0x213C, 0xEF24,
0x213E, 0x213B, 0x2223, 0x2223, 0x2144, 0x2145, 0x00A9,
0x0027, 0x00AA, 0x00BA, 0x0028, 0x0029, 0x214C, 0x214D, 0x005B, 0x005D,
0x007B, 0x007D, 0xEF32, 0xEF33, 0x00AB, 0x00BB, 0x2156,
0x2157, 0x2223, 0x2223, 0x215A, 0x215B, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223,
0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223, 0x2223
};
#define SJIS_TO_JIS(hp, lp) \
{ \
*(hp) -= (*(hp) > 0x9F) ? 0xB1 : 0x71; \
*(hp) = (*(hp) << 1) + 1; \
if (*(lp) > 0x9E) { \
*(lp) -= 0x7E; \
*(hp) += 1; \
} else if (*(lp) > 0x7E) { \
*(lp) -= 0x20; \
} else { \
*(lp) -= 0x1F; \
} \
}
static void ocr_code_conv(ptr, len) register u_char *ptr;
register int len;
{
while (len > 0) {
if (*ptr == 0xFF) { /* ASCII & Hankaku-kana */
*(u_short *)ptr = jis0[*(ptr + 1)];
} else {
SJIS_TO_JIS(ptr, ptr + 1);
switch (*ptr) {
case 0X21: /* 1 Ku */ *(u_short *)ptr = jis1[*(ptr + 1)]; break;
case 0X22: /* 2 Ku */ *(u_short *)ptr = jis2[*(ptr + 1)]; break;
case 0X23: /* 3 Ku */ *(u_short *)ptr = jis3[*(ptr + 1)]; break;
case 0X26: /* 6 Ku */ *(u_short *)ptr = jis6[*(ptr + 1)]; break;
case 0X28: /* 8 Ku */ *(u_short *)ptr = jis8[*(ptr + 1)]; break;
case 0X29: /* 9 Ku */ *(u_short *)ptr = jis9[*(ptr + 1)]; break;
case 0X2A: /* 10 Ku */ *(u_short *)ptr = jis10[*(ptr + 1)]; break;
case 0X2E: /* 14 Ku */ *(u_short *)ptr = jis14[*(ptr + 1)]; break;
case 0X74: /* 84 Ku */ *(u_short *)ptr = jis84[*(ptr + 1)]; break;
default: break;
}
}
ptr += 2;
len--;
}
}
#endif /* OCR */
Reference in New Issue View Git Blame Copy Permalink