/* Copyright (C) 1999-2002 Ricardo Ueda Karpischek This is free software; you can redistribute it and/or modify it under the terms of the version 2 of the GNU General Public License as published by the Free Software Foundation. This software 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 software; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* clara.c: Startup and OCR run control */ /* version number */ char *version = "0.9.9"; /* system headers */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #ifdef HAVE_SIGNAL #include #endif /* Clara headers */ #include "common.h" #include "gui.h" /* The pixmap The pixmap is the map of pixels of the loaded page. By now, maybe a 1bpp bitmap or a 8bpp graymap (in fact, only 8bpp is currently maintained, because PBMs are being automatically converted to PGM on loading. The code that handles 1bpp is not being maintained, may be broken and may be removed in the future): pm_t .. type (1=black-and-white, 8=graymap). These variables are used when reading the pixmap buffer as if it were a file through the I/O selector (services z*): pm_p .. current position to be read on the PBM header. pm_b .. current position to be read on the graymap. pm_w .. graymap width pm_h .. graymap height */ unsigned char *pixmap = NULL; int thresh_val = 128; int pm_p,pm_b,pm_w,pm_h,pm_t; int graydist[256]; int pp_deskew=0,pp_bal=0,pp_double=0,pp_deskew_accurate=0,pp_test=0; float pp_dark=1.0, pp_avoid_links=0.0; int p_match=1; int bin_method=2; /* The closures. */ int clsz=0,topcl=-1; cldesc *cl=NULL; /* text lines */ int lnsz=0,topln=-1; lndesc *line = NULL; /* text words */ int wsz=0,topw=-1; wdesc *word = NULL; /* common buffer for HTML generation */ char *text=NULL,*ptext=NULL; int textsz=0,topt=-1; int ptextsz=0,ptopt=-1; int outp_format=1; /* per-page statistics */ int *dl_ne=NULL, *dl_db=NULL, *dl_r=NULL, *dl_t=NULL, *dl_lr=NULL, *dl_c=NULL, *dl_w=NULL; /* optimization flags */ int shift_opt = 1; int jump_opt = 1; int shape_opt = 1; int square_opt = 1; int copy_opt = 1; int i64_opt = 1; int disp_opt = 1; /* 64-bit pixel mapping. */ unsigned long long p64[256]; int s64[256]; /* Number of bits 1 on each 8-bit value. */ int np8[256]; /* Page size and image resolution (density). */ int XRES,YRES,DENSITY; /* Buffers for revision. The function wrmc8 writes on these buffers the symbol to be revised and its context (the word that surrounds it), in order to dumped to disk or exhibit it on the display. */ int RWX=200,RWY=50,RCX=50,RCY=50; unsigned char *rw=NULL,*rc=NULL; /* (book) A first OCR project ------------------- Clara OCR is intended to OCR a relatively large collection of pages at once, typically a book. So we will refer the material that we are OCRing as "the book". Let's describe a small but real project as an example on how to use Clara to OCR one "book". This section is in fact an in-depth tutorial on using Clara OCR. In order to try all techniques explained along this section, please download and uncompress the file referred as "page 143" of Manuel Bernardes Branco Dictionary (Lisbon, 1879), available at http://www.claraocr.org. It's a tarball containing the two text columns (one per file) of that page. Just to make the things easier, we will assume that the files 143-l.pgm and 143-r.pgm were downloaded to the directory /home/clara/books/MBB/pgm/. We will assume also that the programs "clara", and "selthresh.pl" are on the PATH. Some programs required to handle PBM files (pgmtopbm, pnmrotate and others, by Jef Poskanzer) are also required. These programs can be easily found around there, and are included on most free operating systems. The work directory ------------------ Clara OCR expects to find on one same directory one or more images of scanned pages. In our case, this directory is assumed to be /home/clara/books/BC/pbm. By default, on this same directory, various files will be created to store the OCR data structures. So, if 143-l.pbm and 143-r.pbm are the pages to OCR, then after processing all pages at least once (not done yet) the work directory will contain the following files: 143-l.pbm 143-l.html 143-l.session 143-r.pbm 143-r.html 143-r.session acts patterns The files "*.pbm" are the PBM images, the files "*.html" are the current OCR output, the file "patterns" is the current "bookfont", the file "143-l.session" contains the OCR data structures for the page 143-l.pbm, and the file "acts" stores the human revision effort already spent. When Clara OCR is processing the page x.pbm, the files "x.session", "acts" and "patterns" are in memory. These three files together are generally referred as "the section". So the menu option "save session" means saving all three files. Using two directories --------------------- In order to make easier the usage of read-only media, Clara OCR allows splitting the files in two directories, one for images and other for work files. The path of the first is stored on pagesdir, and the second, on workdir. For instance: (pagesdir) | +- 1.pbm | +- 2.pbm (workdir) | +- 1.session | +- 1.html | +- 2.session | +- 2.html | +- acts | +- font In this example, there are 2 pages (files "1.pbm" and "2.pbm"). The current font is the file "pattern". The files 1.session and 2.session are the dumps of the data structures built when processing the pages 1 and 2. The files 1.html and 2.html contain the current OCR output generated for pages 1 and 2. Multiple books -------------- A somewhat rigid directory structure is recommended for high-volume digitalization projects based on Clara and using the web interface. In this case, there will be multiple "pagesdir" directories ("book1" and "book2" from the docsroot in the figure) and, for each one, a corresponding "workdir" ("book1" and "book2" from the workroot in the figure). (booksroot) | +- book1/ | +- 1.pbm | | | +- 2.pbm | | +- book2/ +- 1.pbm | +- 2.pbm (workroot) | +- book1/ | +- 1.session | | | +- 1.html | | | +- 2.session | | | +- 2.html | | | +- acts | | | +- doubts/ | | +- s.1.319.pbm | | | | | +- u.2.7015.pbm | | | | | +- 1.958225189.17423.hal | | | +- pattern | +- book2/ | +- 1.session | | For each book subdirectory on the workroot subtree, there will be a "doubts" directory, used to communicate with the web server. Each OCR run on some page of this book will generate files of the form "u.page.symbol.pbm", that contains a pbm image of one symbol. Once the CGI is claimed to produce a revision page, it will choose one of these files and rename it to s.page.symbol.pbm. This procedure is performed without using locks, so two simultaneous revision acesses may access the same symbol. The revision submission generates a qmail-style file doc.time.pid.host. */ /* (devel) Path variables -------------- Most path variables are computed from the path given through the -f command line option. The variable "pagename" is the filename of the PBM image of the page being processed, not including the path eventually specified through the -f switch. For instance, if the OCR is started with clara -f mydocs/test.pbm Then the value of the variable "pagename" will be just "test.pbm". The variable pagebase is pagename without the suffix ".pbm" ("test", in the example). Clara stores on the variable pagelist the null-separated list of all names of pbm files found on this directory. Even in this case, the variable pagename will store the filename of the page being processed (at any moment Clara will be processing one and only one page). The directory that contains the pbm files that Clara will process is stored on the variable pagesdir. In the example above, the value of the variable pagesdir is "mydocs/". The variable workdir stores the path of the directory where Clara will create the files *.html, *.session, "patterns" and "acts". This path is assumed to be equal to pagesdir, unless another path is given through the -w switch. The variable doubtsdir will be the concatenation of workdir with the string "doubts/" (doubtsdir is ignored if -W is not used). */ char book[MAXFNL+1]; char f_arg[MAXFNL+1]; char pagename[MAXFNL+1]; char pagebase[MAXFNL+1]; char pagesdir[MAXFNL+1]; char workdir[MAXFNL+1]; char patterns[MAXFNL+1]; char acts[MAXFNL+1]; char xfont[MAXFNL+1]; char urlpath[MAXFNL+1]; char session[MAXFNL+1]; char fqdn[MAXFNL+1] = ""; char host[MAXFNL+1] = ""; char *doubtsdir = NULL; char *pagelist = NULL; int dls = 0, npages, cpage; /* session flags */ int finish; int sess_changed = 0; int font_changed = 0; int hist_changed = 0; int form_changed = 0; int cl_ready = 0; int tskel_ready = 0; int wnd_ready; int web=0; int batch_mode = 0; int complexdir = 0; int dkeys = 0; int reset_book = 0; int zsession = 0; /* TUNE form bf_auto: build bookfont automatically. st_auto: tune skeletons automatically (globally). mf_*: flags for merging fragments. */ int classifier = CL_SKEL; int bf_auto=0, st_auto=0; float st_bq = -1.0; int mf_i=0,mf_b=0,mf_c=0,mf_r,mf_l; /* Override color buttons when painting pixel. This status is not being used anymore, perhaps it'll be removed soon. */ int overr_cb = 0; /* page input formats */ #define PBM 1 #define PGM 2 int inp_format = PBM; /* (devel) OCR statuses ------------ The OCR run in course (if any) stores various statuses on global variables. For instance, the ocring macro will be nonzero if one OCR run is in course. The GUI informs the OCR control routines about what to do along the OCR run using various global variables. Some of them drive the classification procedures: justone .. Classify only one symbol this_pattern .. Use only one pattern to classify recomp_cl .. Ignore current classes The first two are used for testing purposes, for instance when checking why the classification routines classified some symbol unexpected way. The stop_ocr variable is set by the GUI when the STOP button is pressed. Its status will be tested by the routines that control the OCR run in course. Note that the variable cannot_stop may be set by the current OCR step in course. It's effect is to inhibit the GUI setting the stop_ocr status. It's used by routines that cannot be stopped, otherwise the data structures they're handling would rest in a irrecuperable inconsistency. The OCR control routines handle the following statuses: ocr_all .. OCR all pages starting .. continue_ocr was not called until now onlystep .. run only this OCR step The buttons CLASSIFY, BUILD, etc, start one specific OCR step. The OCR step to be executed is stored on onlystep. The to_ocr variable stores the page where the OCR run will be executed. The other to_* variables together with nopropag store information about the revision operation requested from the GUI: to_tr .. the transliteration to submit to the current symbol to_rev .. the type of revision nopropag .. propagation flag for the result to_arg .. integer argument to revision operation The types of revision are: transliteration submission (1), fragment merging (2), symbol disassemble (3) and word extension (4). The to_arg variable stores the flagment to merge to the current symbol or the symbol to add to the current word. The variable ocr_other stores which operation to perform by the OCR_OTHER step. This step is reserved to operations that are outside the OCR run main stream, but require the control provided by the continue_ocr function. */ int ocring = 0; int justone=0, this_pattern=-1; int recomp_cl = 0; int ocr_all, starting=0, onlystep=-1; int stop_ocr=0,cannot_stop=0; int to_ocr; char to_tr[MFTL+1] = ""; int nopropag=0; int to_rev=0; int to_arg; int ocr_other; /* Automatic presentation of the OCR features. If allow_pres==1, just allow to start the presentation using the "View" menu. If allow_pres==2, start the presentation automatically, ignore the delays and exits just after finishing the presentation. The presentation is under development, but it already offers a small tour. It expects to find the file "imre.pbm" on the current directory (or that one informed through -f). */ int pmode=0,allow_pres=0; #ifdef FUN_CODES int fun_code=0; #endif /* Output generation flags. */ int verbose=0, trace=0, debug=0, selthresh=0; /* symbols mc is the array of symbols, and ssz the size of the memory area currently reserved for mc. curr_mc is the current symbol (the one under the cursor). */ int ssz=0; sdesc *mc=NULL; int curr_mc=-1; /* OCR statistics */ int tops=-1,symbols,words,doubts,runs,classes,links; time_t ocr_time,ocr_start; int ocr_r; /* (book) Page geometry parameters ------------------------ For best results, when OCRing an entire book, it's convenient to spend some time gathering geometric parameters common to all pages. These parameters will be useful to drive the OCR heuristics. Currently there are 9 such parameters: LW, LH, DD, LS, TC, SL, LM, RM, TM and BM, all floats except TC and SL. Not all them are currently used by the engine. Each one can be informed using the var=value syntax. For example: TC=2 SL=1 For documentation purposes we divide these 9 parameters into 4 groups: 1. Symbol typical dimensions. LW .. letter width measured in millimeters. LH .. letter height measured in millimeters. DD .. dot diameter measured in millimeters. 2. Vertical separation between lines. LS .. vertical line separation measured in millimeters. 3. Number of text columns. TC .. number of text columns. Use "1" for just one text column, "2" or "3" for two or three text columns. SL .. separation line. Use "1" if there exists a vertical line separating text columns, "0" otherwise. 4. Page margins. LM .. left margin measured in millimeters. RM .. right margin measured in millimeters. TM .. top margin measured in millimeters. BM .. bottom margin measured in millimeters. Useful remarks: a) 1 inch = 25.4 milimetres b) scanning resolution is a linear measure. So when scanning at 600 dpi, there will be 600/25.4=23.6 lines per millimeter. So, for instance, 3 millimeters will correspond to 3*23.6=71 pixels. */ #define DEF_LW (((float)40)/23.6) #define DEF_LH (((float)60)/23.6) #define DEF_DD (((float)12)/23.6) #define DEF_LS (((float)80)/23.6) #define DEF_TC 1 #define DEF_LM 20 #define DEF_RM 20 #define DEF_TM 20 #define DEF_BM 20 #define DEF_SL 0 float LW = DEF_LW, LH = DEF_LH, DD = DEF_DD, LS = DEF_LS, LM = DEF_LM, RM = DEF_RM, TM = DEF_TM, BM = DEF_BM; int PG_AUTO=1, TC = DEF_TC, SL = DEF_SL; /* Doubts. */ /* deprecated */ /* int doubtsz=30,topdoubt=-1; int *doubt=NULL; int curr_doubt,editing_doubts=0; char **revstr,*rbuffer; */ int max_doubts; /* The list of all preferred symbols is built by the make_pmc function and put into the pmc array. */ int *ps=NULL,pssz,topps=-1; /* The alarm queue */ int *alrmq = NULL, topalrmq=-1, alrmqsz=0; /* The acts */ adesc *act = NULL; int actsz=0, topa=-1; int curr_act=0; /* Reduction factor for the list of patterns. */ int plist_rf = 2; /* Fatal error handler. */ void fatal(int code,char *m, ...) { va_list args; va_start(args,m); fprintf(stderr,"Clara fatal error type %d (",code); if (code == DI) fprintf(stderr,"data inconsistency)\n"); else if (code == BO) fprintf(stderr,"buffer overflow)\n"); else if (code == FD) fprintf(stderr,"invalid field)\n"); else if (code == IE) fprintf(stderr,"internal error)\n"); else if (code == ME) fprintf(stderr,"memory exhausted)\n"); else if (code == XE) fprintf(stderr,"X error)\n"); else if (code == IO) fprintf(stderr,"I/O error)\n"); else if (code == BI) fprintf(stderr,"bad input)\n"); if (m != NULL) { vfprintf(stderr,m,args); fprintf(stderr,"\n"); if (code == FD) { fprintf(stderr,"It seems that some session file (*.session,\n"); fprintf(stderr,"patterns or acts) contains bad data.\n"); } } exit(code); } /* Print trace message. */ void tr(char *m, ...) { va_list args; if (!trace) return; va_start(args,m); vfprintf(stderr,m,args); fprintf(stderr,"\n"); } /* Print debug message. */ void db(char *m, ...) { va_list args; if (!debug) return; va_start(args,m); vfprintf(stderr,m,args); fprintf(stderr,"\n"); } /* Print warning. */ void warn(char *m, ...) { va_list args; va_start(args,m); vfprintf(stderr,m,args); fprintf(stderr,"\n"); } /* (devel) The memory allocator -------------------- Clara OCR relies on the memory allocator both for allocation or resizing of some large blocks used by the main data structures, and for allocation of a large number of small arrays. Currently Clara OCR does not include or use an special memory allocator, but implements an interface to realloc. The alloca function is also used sometimes along the code, generally to allocate buffers for sorting arrays. The interface is the function c_realloc. The function c_free must be used to free the blocks allocated or resized by c_realloc. In the near future, c_realloc will build a list of the currently allocated blocks, their sizes and some bits more in order to help to trace flaws. */ /* Alloc memory or die. The third parameter is an optional informative string to be appended to the error message generated when the memory becomes exhausted. */ void *c_realloc(void *p,int m,const char *s) { void *nptr; if (p == NULL) nptr = malloc(m); else nptr = realloc(p,m); if (nptr == NULL) { if (s == NULL) fatal(ME,"memory exhausted"); else fatal(ME,"memory exhausted (%s)",s); } return(nptr); } /* Free a memory block. */ void c_free(void *p) { if (p != NULL) free(p); } /* Check invalid index. */ #ifdef MEMCHECK int dontcheck = 1; int check(int i,int s,char *w) { int r=1; if ((i<0) || (s<=i)) { warn("invalid index %d at %s (size %d)\n",i,w,s); r = 0; } return(r); } #endif /* Open a (perhaps compressed) I/O stream to read or write file f. */ FILE *zfopen(char *f,char *mode,int *pio) { FILE *F = NULL; /* "open" the pixmap file */ if (f == ((char *)pixmap)) { if (pixmap != NULL) { pm_p = -1; pm_b = 0; pm_w = XRES; pm_h = YRES; return((FILE *) pixmap); } else return(NULL); } else { #ifdef HAVE_POPEN int t; char *a; t = strlen(f); if ((t >= 4) && (strcmp(f+t-3,".gz")==0)) { if ((a = alloca(t+20)) == NULL) { fatal(ME,"at zfopen"); } if (strcmp(mode,"r") == 0) { struct stat b; if (stat(f,&b) < 0) return(NULL); sprintf(a,"gunzip -c %s",f); F = popen(a,"r"); } else if (strcmp(mode,"w") == 0) { sprintf(a,"gzip -c >%s",f); F = popen(a,"w"); } *pio = 1; } else { F = fopen(f,mode); *pio = 0; } #else F = fopen(f,mode); *pio = 0; #endif } return(F); } /* Read a (perhaps compressed) I/O stream. */ int zfgetc(FILE *stream) { static char h[50]; int r = -1; /* Reading the pixmap. This code assumes that the caller reads the entire header through zfgetc (see pbm2bm). */ if ((pixmap != NULL) && (stream == ((FILE *)pixmap))) { if (pm_p < 0) { snprintf(h,49,"P4\n%d %d\n",XRES,YRES); h[49] = 0; pm_p = 0; } if (h[pm_p] == 0) fatal(IE,"not prepared for binarizing from zfgetc"); else r = h[pm_p++]; } /* reading from file. */ else r = fgetc(stream); /* return the char */ return(r); } /* Read a (perhaps compressed) I/O stream. */ size_t zfread(void *ptr,size_t size,size_t nmemb,FILE *stream) { unsigned char *p,*q; int i,m,t,bpl; /* reading the pixmap */ if ((pixmap != NULL) && (stream == ((FILE *)pixmap))) { /* number of bytes per bitmap line */ bpl = (pm_w/8) + ((pm_w%8) != 0); /* Convert the graymap (8bpp) to bitmap (1bpp). This simplistic code assumes that the caller reads one bitmap line at a time. */ if (pm_t == 8) { /* finished reading */ if (pm_b > (pm_w*pm_h)) return(0); /* the number of bytes to read must equal the bitmap line width */ t = size*nmemb; if (t != bpl) fatal(IE,"trying to read the pixmap outside line boundaries"); /* prepare */ memset(ptr,0,t); q = ptr; p = pixmap + pm_b; /* binarize one line */ for (i=0, m=128; i>=1) == 0) { m = 128; ++q; } } /* next position to read */ pm_b += pm_w; } /* just copying the pixmap */ else { /* finished reading */ if (pm_b > (bpl*pm_h)) return(0); /* the number of bytes to read must equal the bitmap line width */ t = size*nmemb; if (t != bpl) fatal(IE,"trying to read the pixmap outside line boundaries"); /* just copy */ memcpy(ptr,pixmap+pm_b,t); /* next position to read */ pm_b += bpl; } /* number of items */ return(nmemb); } /* reading file */ else return(fread(ptr,size,nmemb,stream)); } /* Write a (perhaps compressed) I/O stream. */ size_t zfwrite(const void *ptr,size_t size,size_t nmemb,FILE *stream) { return(fwrite(ptr,size,nmemb,stream)); } /* Close a (perhaps compressed) I/O stream. */ void zfclose(FILE *F,int pio) { /* reading the pixmap */ if ((pixmap != NULL) && (F == ((FILE *)pixmap))) { /* c_free(pixmap); pixmap = NULL; */ return; } #ifdef HAVE_POPEN if (pio) pclose(F); else fclose(F); #else fclose(F); #endif } /* Sort the array a[l..r] of integers. */ void true_qss(int *a,int l,int r) { int b,i,j,m; m = a[l]; i = l; j = r; while (i <= j) { for (; (i<=r) && (a[i]<=m); ++i); for (; (j>=l) && (a[j]>m); --j); if (i < j) { b = a[i]; a[i] = a[j]; a[j] = b; ++i; --j; } } if (i > r) { a[l] = a[r]; a[r] = m; if (l < r-1) true_qss(a,l,r-1); } else { if (l < i-1) true_qss(a,l,i-1); if (j+1 < r) true_qss(a,j+1,r); } } /* Entry point for true_qss. */ void qss(int *a,int l,int r) { if (r >= l) true_qss(a,l,r); } /* Sort the array a[l..r] of integers using as criterion of comparison the function cmpf. */ void true_qsf(int *a,int l,int r,int inv,int cmpf(int,int)) { int i,j,m,b; m = a[l]; i = l; j = r; while (i <= j) { if (inv == 0) { for (; (i<=r) && (cmpf(a[i],m) <= 0); ++i); for (; (j>=l) && (cmpf(a[j],m) > 0); --j); } else { for (; (i<=r) && (cmpf(a[i],m) >= 0); ++i); for (; (j>=l) && (cmpf(a[j],m) < 0); --j); } if (i < j) { b = a[i]; a[i] = a[j]; a[j] = b; ++i; --j; } } if (i > r) { a[l] = a[r]; a[r] = m; if (l < r-1) true_qsf(a,l,r-1,inv,cmpf); } else { if (l < i-1) true_qsf(a,l,i-1,inv,cmpf); if (j+1 < r) true_qsf(a,j+1,r,inv,cmpf); } } /* Entry point for true_qsf. */ void qsf(int *a,int l,int r,int inv,int cmpf(int,int)) { if (r >= l) true_qsf(a,l,r,inv,cmpf); } /* Given an array a[l..r] of integers and an array t of structures, sort the array a using the "p" field of the indexed (by the entries of a) entries of t. */ #define qsie(x) (*((int *)(t+x*sz+p))) void true_qsi(int *a,int l,int r,char *t,int sz,int p,int inv) { int i,j,m,b,me; m = a[l]; me = qsie(m); i = l; j = r; while (i <= j) { if (inv == 0) { for (; (i<=r) && (qsie(a[i]) <= me); ++i); for (; (j>=l) && (qsie(a[j]) > me); --j); } else { for (; (i<=r) && (qsie(a[i]) >= me); ++i); for (; (j>=l) && (qsie(a[j]) < me); --j); } if (i < j) { b = a[i]; a[i] = a[j]; a[j] = b; ++i; --j; } } if (i > r) { a[l] = a[r]; a[r] = m; if (l < r-1) true_qsi(a,l,r-1,t,sz,p,inv); } else { if (l < i-1) true_qsi(a,l,i-1,t,sz,p,inv); if (j+1 < r) true_qsi(a,j+1,r,t,sz,p,inv); } } /* Entry point for true_qsi. */ #define qsie(x) (*((int *)(t+x*sz+p))) void qsi(int *a,int l,int r,char *t,int sz,int p,int inv) { if (r >= l) true_qsi(a,l,r,t,sz,p,inv); } /* Given an array a[l..r] of pointers to structures, sort it using the "p" field of the structure. If inv is nonzero, then sort in reverse order. */ #define qse(x) (*((int *)((x)+p))) void true_qs(char *a[],int l,int r,int p,int inv) { int i,j,me; char *m,*b; m = a[l]; me = qse(m); i = l; j = r; while (i <= j) { if (inv == 0) { for (; (i<=r) && (qse(a[i]) <= me); ++i); for (; (j>=l) && (qse(a[j]) > me); --j); } else { for (; (i<=r) && (qse(a[i]) >= me); ++i); for (; (j>=l) && (qse(a[j]) < me); --j); } if (i < j) { b = a[i]; a[i] = a[j]; a[j] = b; ++i; --j; } } if (i > r) { a[l] = a[r]; a[r] = m; if (l < r-1) true_qs(a,l,r-1,p,inv); } else { if (l < i-1) true_qs(a,l,i-1,p,inv); if (j+1 < r) true_qs(a,j+1,r,p,inv); } } /* Entry point for true_qs. */ void qs(char *a[],int l,int r,int p,int inv) { if (r >= l) true_qs(a,l,r,p,inv); } /* Compute the size of the intersection between segments (a,b) and (c,d). Note that the segments (a,b) and (c,d) are seen as the discrete lists of points (a,a+1,...,b) and (c,c+1,...,d), and not as the segments [a,b] and [c,d] of the Real Line, so the size of the intersection of (4,8) and (8,12) is 1, not 0. If e and f are non-null, returns on them the coordinates of the intersection (leftmost and rightmost). */ int intersize(int a,int b,int c,int d,int *e,int *f) { if (a <= c) { /* a--c--d--b */ if (b >= d) { if (e != NULL) *e = c; if (f != NULL) *f = d; return(d-c+1); } /* a--b c--d */ else if (b < c) { return(0); } /* a--c--b--d */ else { if (e != NULL) *e = c; if (f != NULL) *f = b; return(b-c+1); } } /* c--a--b--d */ else if (d >= b) { if (e != NULL) *e = a; if (f != NULL) *f = b; return(b-a+1); } /* c--d a--b */ else if (d < a) { return(0); } /* c--a--d--b */ else { if (e != NULL) *e = a; if (f != NULL) *f = d; return(d-a+1); } } /* Compute the linear distance between segments [a,b] and [c,d]. */ int ldist(int a,int b,int c,int d) { if (a <= c) { /* a--c--d--b */ if (b >= d) { return(0); } /* a--b c--d */ else if (b < c) { return(c-b); } /* a--c--b--d */ else { return(0); } } /* c--a--b--d */ else if (d >= b) { return(0); } /* c--d a--b */ else if (d < a) { return(a-d); } /* c--a--d--b */ else { return(0); } } /* List preferred symbols. */ void make_pmc(void) { int i; /* count preferred symbols */ for (i=0, topps=-1; i<=tops; ++i) if (C_ISSET(mc[i].f,F_ISP)) ++topps; /* enlarge area for the list */ if (pssz <= tops) { ps = c_realloc(ps,(pssz=(topps+512))*sizeof(int),NULL); } /* copy */ for (i=0, topps=-1; i<=tops; ++i) if (C_ISSET(mc[i].f,F_ISP)) ps[++topps] = i; } /* Make sure that cl has at least m entries. */ void checkcl(int m) { /* must enlarge allocated area for cl */ if (m >= clsz) { int n = clsz; cl = c_realloc(cl,(clsz+=1000)*sizeof(cldesc),NULL); for (; n < clsz; ++n) { cl[n].sup = NULL; cl[n].bm = NULL; } } } /* Return the color of pixel of absolute coordinates (x,y) on the closure c. It's assumed that the closure bounding box contains the pixel with absolute coordinates (x,y). The macro "pix" can be used instead of this service. */ int pixel(cldesc *c,int x,int y) { int k; unsigned m; unsigned char *p; x -= c->l; y -= c->t; k = (c->r-c->l+1)/8 + (((c->r-c->l+1)%8)!=0); p = c->bm + k*y + x/8; m = ((unsigned) 1) << (7 - (x%8)); if ((*p & m) == m) return(BLACK); return(WHITE); } /* Return the color of the pixel value at absolute coordinates (x,y) in regard of symbol m. */ int spixel(sdesc *m,int x,int y) { int n; cldesc *c; for (n=0; nncl; ++n) { c = cl + m->cl[n]; if ((c->l <= x) && (x <= c->r) && (c->t <= y) && (y <= c->b)) { return(pixel(c,x,y)); } } return(WHITE); } /* Generates a web revision file. */ void gen_wrf() { int F; char n[MAXFNL+1]; /* make sure that MAXFNL suffices */ if (strlen(doubtsdir)+strlen(pagebase)+18+strlen(host) > MAXFNL) { fatal(BO,"filenames for revision material too long!\n"); } /* revision filename */ sprintf(n,"%s%s.%d.%d.%s",doubtsdir,pagebase,(int)time(NULL),getpid(),host); /* write new record */ F = open(n,O_WRONLY|O_CREAT,0660); write(F,text,strlen(text)); close(F); } /* Process revision file. */ int prf(char *f) { int F; int n; if ((F = open(f,O_RDONLY)) < 0) { if (verbose) warn("could not open revision file \"%s\"",f); return(0); } /* for each record on the revision file */ /* for (n=1; fgets(s,MAXRRL+1,F) != NULL; ++n) { prs(s,f,n); } */ if (textsz < MAXRRL+1) c_realloc(text,textsz=MAXRRL+1024,NULL); /* process the file contents as a revision stream */ n = read(F,text,MAXRRL); text[n] = 0; review(1,NULL); while (review(0,NULL)); return(1); } /* Read the bookfont handling options from the argument to the command-line option -a. */ void read_bf(char *s) { int i,j,n; char b[21]; for (n=i=j=0; j<=strlen(s); ++j) { if ((s[j] == ',') || (s[j] == 0)) { /* copy next argument to b */ if (j-i > 20) { fatal(DI,"argument to -a too long"); } if (j > i) strncpy(b,s+i,j-i); b[j-i] = 0; /* bf_auto */ if (n == 0) { if (strlen(b) > 0) bf_auto = atoi(b); if (bf_auto) bf_auto = 1; } /* st_auto */ else if (n == 1) { if (strlen(b) > 0) st_auto = (atoi(b) != 0); } /* black square threshold */ else if (n == 2) { if (strlen(b) > 0) classifier = atoi(b); if ((classifier < CL_BOT) || (CL_TOP < classifier)) fatal(DI,"invalid classifier %s\n",b); } else { fatal(DI,"too many arguments to -a"); } /* prepare next iteration */ i = j + 1; ++n; } } if (n < 3) { fatal(DI,"too few arguments to -a (%d)",n); } } /* Read the pixel number thresholds from the argument to the command-line option -P (received as parameter s). */ void read_pnt(char *s) { int i,j,n; char b[21]; for (n=i=j=0; j<=strlen(s); ++j) { if ((s[j] == ',') || (s[j] == 0)) { /* copy next argument to b */ if (j-i > 20) { fatal(DI,"argument to -P too long"); } if (j > i) strncpy(b,s+i,j-i); b[j-i] = 0; /* PNT1 */ if (n == 0) { if (strlen(b) > 0) PNT1 = atoi(b); if (PNT1 > 100) PNT1 = 100; if (PNT1 < 1) PNT1 = 1; } /* PNT2 */ else if (n == 1) { if (strlen(b) > 0) PNT2 = atoi(b); if (PNT2 > 100) PNT2 = 100; if (PNT2 < 1) PNT2 = 1; } /* black square threshold */ else if (n == 2) { if (strlen(b) > 0) MD = atoi(b); if (MD < 4) MD = 4; if (30 < MD) MD = 30; } else { fatal(DI,"too many arguments to -P"); } /* prepare next iteration */ i = j + 1; ++n; } } if (n < 3) { fatal(DI,"too few arguments to -P (%d)",n); } } /* Returns +1 if one of the dimensions w or h is larger than FS. Otherwise (and in this order), returns -1 if one of the dimensions w or h is smaller than the expected value (in pixels) of the dot diameter. Otherwise returns 0. Dots have a typical diameter of 0.02 inches. see also sdim() */ int swh(int w,int h) { int d; d = 0.01*DENSITY; if ((w>FS) || (h>FS)) return(1); else if ((wr - t->l > d) && (t->b - t->t > d) && (t->r-t->l < LFS) && (t->b-t->t < FS)) { return(1); } else return(0); } /* Compares two filenames as numbers. */ int cmp_fn(int a,int b) { int i,na,nb,r; /* the first filename is a number? */ for (i=a, na=0; ('0' <= pagelist[i]) && (pagelist[i] <= '9'); ++i) { na += (na*10) + (pagelist[i]-'0'); } if (pagelist[i] != '.') na = -1; /* the second filename is a number? */ for (i=b, nb=0; ('0' <= pagelist[i]) && (pagelist[i] <= '9'); ++i) { nb += (nb*10) + (pagelist[i]-'0'); } if (pagelist[i] != '.') nb = -1; /* compare the filenames as numbers */ if ((na >= 0) && (nb >= 0)) r = (na < nb) ? -1 : ((na > nb) ? 1 : 0); /* compare the filenames as strings */ else { r = strcmp(pagelist+a,pagelist+b); } return(r); } /* Build list of pages. */ void build_plist(void) { struct stat statbuf; int i; npages = 0; pagesdir[0] = 0; book[0] = 0; /* bad argument */ if (stat(f_arg,&statbuf) != 0) { snprintf(mba,MMB+1,"could not stat %s",f_arg); show_hint(2,mba); } /* -f argument is a file */ if (S_ISREG(statbuf.st_mode)) { /* build pagelist */ for (i=strlen(f_arg)-1; (i>=0) && (f_arg[i]!='/'); --i); pagelist = c_realloc(NULL,dls=strlen(f_arg+i+1)+1,NULL); strcpy(pagelist,f_arg+i+1); npages = 1; /* compute pagesdir */ strcpy(pagesdir,f_arg); for (i=strlen(pagesdir); (--i>=0) && (pagesdir[i]!='/'); ); if (i >= 0) pagesdir[i+1] = 0; else strcpy(pagesdir,"./"); } /* argument to -f is a directory */ else if (S_ISDIR(statbuf.st_mode)) { DIR *D; int t,s; struct dirent *e; char *a; /* f_arg becomes pagesdir */ strcpy(pagesdir,f_arg); t = strlen(pagesdir); if (pagesdir[t-1] != '/') { if (t < MAXFNL) strcpy(pagesdir+t,"/"); else { fatal(DI,"argument to -f too long"); } } /* search all pages on the pagesdir directory */ if ((D = opendir(pagesdir)) == NULL) { fatal(IO,"could not open directory \"%s\"",pagesdir); } for (s=npages=0; ((e=readdir(D)) != NULL); ) { /* if the spec match, append to pagelist */ a = e->d_name; t = strlen(a); if (((t >= 5) && (strcmp(a+t-4,".pbm")==0)) || ((t >= 5) && (strcmp(a+t-4,".pgm")==0)) || ((t >= 8) && (strcmp(a+t-7,".pbm.gz")==0)) || ((t >= 8) && (strcmp(a+t-7,".pgm.gz")==0))) { while (s+t+1 > dls) pagelist = c_realloc(pagelist,dls+=1000,NULL); strcpy(pagelist+s,a); s += t+1; ++npages; } } closedir(D); /* sort pages */ { char *a; int i,j,*p,t,l; /* sorting buffers */ p = alloca(npages*sizeof(int)); a = alloca(s); /* sort the filenames */ for (i=j=0; i0) && (book[t-1] == '/')) book[--t] = 0; while ((t>=0) && (book[t]!='/')) --t; if (t >= 0) memmove(book,book+t+1,strlen(book+t+1)+1); } if (cdir[0] != 0) chdir(cdir); } */ /* book name unknown */ if (book[0] == 0) strncpy(book,"unknown",MAXFNL); /* per-page counters for symbols and doubts */ if (npages > 0) { int i; dl_ne = c_realloc(dl_ne,npages*sizeof(int),NULL); dl_db = c_realloc(dl_db,npages*sizeof(int),NULL); dl_r = c_realloc(dl_r,npages*sizeof(int),NULL); dl_t = c_realloc(dl_t,npages*sizeof(int),NULL); dl_lr = c_realloc(dl_lr,npages*sizeof(int),NULL); dl_w = c_realloc(dl_w,npages*sizeof(int),NULL); dl_c = c_realloc(dl_c,npages*sizeof(int),NULL); for (i=0; i1)) || (((val[i] < '0') || ('9' < val[i])) && (val[i] != '.'))) { warn("invalid float specification %s (ignored)",val); return(0); } } v = atof(val); } if ((v < min) || (max < v)) { warn("parameter %d outside range %d..%d (ignored)",v,min,max); return(0); } *prm = v; return(1); } /* Convert string to integer if within informed range. */ int criticize_int(char *val,int *prm,int min,int max) { int i,l,v; if (val == NULL) v = 1; else { l = strlen(val); for (i=0; i= lsz) { disp = c_realloc(disp,(lsz+=32)*sizeof(int),NULL); } l = strlen(a); if ((l+1+topb+1) > bsz) argb = c_realloc(argb,(bsz+=l+256),NULL); disp[largc] = topb + 1; sprintf(argb+topb+1,a); topb += l+1; ++largc; } } largv = c_realloc(NULL,(largc+2)*sizeof(char **),NULL); for (i=0; i=0) && ('0'<=optarg[i]) && (optarg[i]<='9'); --i); /* yes: it's the number of graylevels */ if (i < 0) { glevels = atoi(optarg); /* force 4 graylevels */ if ((glevels != 4) && (glevels != 2)) { warn("%d graylevels unsupported, resizing to 4",glevels); glevels = 4; } } /* no: it's the color scheme */ else { cschema = c_realloc(NULL,strlen(optarg)+1,NULL); strcpy(cschema,optarg); } } /* (book) -D or -display X Display to connect (by default read the environment variable DISPLAY). */ else if (c == 'D') { displayname = c_realloc(displayname,strlen(optarg)+1,NULL); strcpy(displayname,optarg); } /* (book) -d Run in debug mode. Debug messages will be sent to stderr. Debug messages are generated when an acceptable but not reasonable event is detected. */ else if (c == 'd') { debug = 1; verbose = 1; } /* (book) -e reviewer,type Reviewer and reviewer type. All revision data is assigned by Clara to its originator. By default the reviewer name is "nobody" and its type is "A". The reviewer generally will be an email address or a nickname, The type may be T (trusted), A (arbiter) or N (anonymous). Example: -e ueda@ime.usp.br,T */ else if (c == 'e') { int a,t; t = strlen(optarg); a = optarg[t-1]; if ((t < 3) || (optarg[t-2] != ',') || ((a!='T') && (a!='A') && (a!='N'))) { fatal(DI,"argument to -e must be reviewer,type"); } reviewer = c_realloc(NULL,t-1,NULL); strncpy(reviewer,optarg,t-2); reviewer[t-2] = 0; revtype = (a=='A') ? ARBITER : ((a=='T') ? TRUSTED : ANON); } /* (book) -F fontname The X font to use (must be a font with fixed column size, e.g. "fixed" or "9x15"). */ else if (c == 'F') { if (strlen(optarg) > MAXFNL) { fatal(BO,"X font specification too long"); } strncpy(xfont,optarg,MAXFNL); } /* (book) -f path Scanned page or page directory. Defaults to the current directory. The argument must be a pbm file (with absolute or relative path) or the path (absolute or relative) of the directory where the pbm file(s) was (were) placed. */ else if (c == 'f') { if (strlen(optarg) > MAXFNL) { fatal(BO,"argument to -f too long"); } strncpy(f_arg,optarg,MAXFNL); } /* (book) -g wxh(+|-)x(+|-)y X geometry. */ else if (c == 'g') { int i,p,v,s,l,c; for (i=p=0; optarg[i] != 0; ) { /* remember signal */ s = 1; if ((c=optarg[i]) == '+') ++i; else if (c == '-') ++i, s=-1; /* decimal integer.. */ for (v=l=0; ('0'<=(c=optarg[i])) && (c<='9'); ++i,++l) v = v*10 + (c - '0'); /* ..and its signal */ if (s < 0) v = -v; /* empty integer: error */ if (l == 0) p = -1; /* terminator */ c = optarg[i]; /* begins with size or position? */ if (p == 0) { /* size */ if (c == 'x') p = 1, ++i; /* position */ else if ((c == '+') || (c == '-')) p = 3; /* none (error) */ else p = -1; } /* just read the width */ if (p == 1) { if ((WW = v) < 0) p = -1; } /* height must terminate with 0, '+' or '-' */ else if (p == 2) { if (((WH = v) < 0) || ((c != 0) && (c != '+') && (c != '-'))) p = -1; } /* x position must terminate with 0, '+' or '-' */ else if (p == 3) { if ((abs(WX = v) > 16535) || ((c != 0) && (c != '+') && (c != '-'))) p = -1; } /* y position must terminate with 0 */ else if (p == 4) { if ((abs(WY = v) > 16535) || (c != 0)) p = -1; } /* error detected */ if (p < 0) fatal(DI,"invalid geometry specification"); ++p; } } /* (book) -h Display short help and exit. */ else if (c == 'h') { print_help(); exit(0); } /* (book) -i Emulate dead keys functionality. */ else if (c == 'i') { dkeys = 1; } /* (book) -k list Parameters SA,RR,MA,MP,ML,MB,RX,BT used to compute skeletons. BUG: these parameters are ignored when a "patterns" already exists. In this case, Clara will read the parameters from the "patterns" file. */ else if (c == 'k') { skel_parms(optarg); /* change defaults */ spcpy(SP_DEF,SP_GLOBAL); /* no need to call skel_parms anymore */ havek = 1; } /* (book) -N list Switch off optimizations. Generally useful only for debug purposes. Non-supported displays depths (if any) may require '-N d'. The argument is the list of the (one or more) optimizations to switch off (s, a, j, q, c, x or d). Examples: -N s -N aq -N jq */ else if (c == 'N') { if (optarg) { for (i=0; i 1000) max_doubts = 1000; if (max_doubts < 1) max_doubts = 1; } /* -r Reset the book (destroy the sessions, the patterns and reprocess all revision acts). */ /* else if (c == 'r') { reset_book = 1; } */ /* (book) -T Avoid loading and creation of session files. Also reports bookfont size on stdout before exiting. This option is intended to be used by the selthresh.pl script. */ else if (c == 'T') { selthresh = 1; } /* (book) -t Switch on trace messages. Trace messages depict the execution flow, and are useful for developers. Trace messages are written to stderr. */ else if (c == 't') { trace = 1; } /* -u Unbuffered X I/O (won't allocate memory on the X server). Obs: as buffered I/O is in fact experimental, -u is assumed as default. To use buffered I/O, change the initialization of use_xb to 1 and recompile. */ else if (c == 'u') { use_xb = 0; } /* -U URL URL revision path to be inserted on the output. */ /* else if (c == 'U') { if (strlen(optarg) > MAXFNL) { fatal(BO,"URL string too long"); } strncpy(urlpath,optarg,MAXFNL); web = 1; } */ /* (book) -v Verbose mode. Without this option, Clara runs quietly (default). Otherwise, informative warnings about potentially relevant events are sent to stderr. */ else if (c == 'v') { verbose = 1; } /* (book) -V Print version and compilation options and exit. */ else if (c == 'V') { warn("this is Clara OCR version %s",version); #ifdef HAVE_POPEN warn("compiled with HAVE_POPEN"); #else warn("compiled without HAVE_POPEN"); #endif #ifdef MEMCHECK warn("compiled with MEMCHECK"); #else warn("compiled without MEMCHECK"); #endif #ifdef FUN_CODES warn("compiled with FUN_CODES"); #else warn("compiled without FUN_CODES"); #endif exit(0); } /* (book) -W Web mode. Will read from the doubts subdir the input collected from web, and will dump on that same directory the doubts to be reviewed. */ else if (c == 'W') { web = 1; } /* (book) -w path Work directory. Defaults to the page directory (see -f). The path of the directory where the OCR will write the output, the acts, the book font and the session files. The doubts directory (web operation) is assumed to be a subdirectory of the work directory. */ else if (c == 'w') { int t; t = strlen(optarg); if (t+1 > MAXFNL) { fatal(BO,"workdir path too long"); } strncpy(workdir,optarg,MAXFNL); if (t == 0) strcpy(workdir,"./"); else if (workdir[t-1] != '/') { workdir[t] = '/'; workdir[t+1] = 0; } complexdir = 1; } /* (book) -X 0|1 Switch off (0) or on (1) index checking. Index checking is performed in some critical points in order to detect memory leaks. Index checking is unavailable when Clara is compiled with the symbol MEMCHECK undefined. */ else if (c == 'X') { if (strcmp(optarg,"0") == 0) { #ifdef MEMCHECK dontcheck = 1; #endif } if (strcmp(optarg,"1") == 0) { #ifdef MEMCHECK dontcheck = 0; #else warn("oops.. index checking is unavailable\n"); #endif } } /* (book) -y resolution Inform the resolution of the scanned image in dots per inch (default 600). This resolution applies for all pages to be processed until the program exits. */ else if (c == 'y') { DENSITY = atoi(optarg); consist_density(); } /* (book) -z Write (and read) compressed session files (*.session, acts and patters will be compressed using GNU zip). Be careful: if -z is used, any existing uncompressed file (*.session, acts or patterns) will be ignored. So if you start using uncompressed files and suddenly decides to begin using compressed files, then compress manually all existing files before starting Clara with the -z switch. Clara OCR support for reading and writing compressed files depends on the platform, and requires gzip and gunzip to be installed in some directory of binaries included in the PATH. */ else if (c == 'z') { zsession = 1; } /* (book) -Z ZPS ZPS, that is, the size of the bitmap pixels measured in display pixels, when in fat bit mode. Must be a small odd integer (1, 3, 5, 7 or 9). */ else if (c == 'Z') { ZPS = atoi(optarg); if ((ZPS % 2) != 1) --ZPS; if (ZPS < 1) ZPS = 1; if (ZPS > 9) ZPS = 9; } /* Error detected. The error message will be generated by getopt, so we just exit. */ else if (c == ':') { fatal(DI,NULL); } else if (c == '?') { fatal(DI,NULL); } /* parse finished */ else if (c == -1) e = 1; /* hope this will never happen */ else { fatal(IE,"unexpected getopt return value"); } } /* workdir */ if (!complexdir) { strcpy(workdir,pagesdir); } /* book font path */ strcpy(patterns,workdir); strcpy(acts,workdir); if (zsession) { strcat(patterns,"patterns.gz"); strcat(acts,"acts.gz"); } else { strcat(patterns,"patterns"); strcat(acts,"acts"); } /* doubts dir */ if (web) { doubtsdir = c_realloc(NULL,MAXFNL+1,NULL); strcpy(doubtsdir,workdir); strncat(doubtsdir,"doubts/",MAXFNL-strlen(doubtsdir)); doubtsdir[MAXFNL] = 0; } /* no current page by now */ cpage = -1; /* use default skeleton parameters */ if (havek == 0) skel_parms(",,,,,,,"); /* free buffers */ c_free(argb); c_free(largv); c_free(disp); } /* Register new GUI button. */ void register_button(int b,char *l) { if (BUTT_PER_COL >= bl_sz) { bl_sz = BUTT_PER_COL+16; BL = c_realloc(BL,sizeof(char *)*bl_sz,NULL); button = c_realloc(button,bl_sz,NULL); } BL[BUTT_PER_COL] = c_realloc(NULL,strlen(l)+1,NULL); strcpy(BL[BUTT_PER_COL],l); button[BUTT_PER_COL] = 0; ++BUTT_PER_COL; } /* Initialize main data structures */ void init_ds(void) { int i,j; #ifdef HAVE_SIGNAL /* alarm queue */ alrmq = c_realloc(NULL,(alrmqsz=20)*sizeof(int),NULL); #endif /* register GUI buttons */ register_button(bzoom,"zoom"); register_button(bzone,"zone"); register_button(bocr,"OCR"); register_button(bstop,"stop"); register_button(balpha,""); register_button(btype,""); register_button(bbad,"bad"); if (pp_test) register_button(btest,"test"); /* alphabets data */ init_alphabet(); /* build list of pages */ build_plist(); /* alloc HTML text buffer */ text = c_realloc(NULL,textsz=15000,NULL); text[0] = 0; /* cfont initialization */ for (i=0; i=1; j>>=1) { #endif p64[i] = (p64[i] << 8); if (i & j) { p64[i] += BLACK; ++(s64[i]); } else p64[i] += WHITE; } } } /* number of bits 1 per 8-bit value. */ snbp(-1,NULL,NULL); /* pre-computed circumferences */ comp_circ(30); } /* Count number of classes used. */ int count_classes(void) { char *used; int i,k,c,*p; used = alloca(topp+1); memset(used,0,topp+1); for (k=0, p=ps; k<=topps; ++k, ++p) { i = id2idx(mc[*p].bm); if ((0 <= i) && (i <= topp)) { used[i] = 1; } } for (c=0, i=0; i<=topp; ++i) { c += used[i]; } return(c); } /* Step 1 Save session. */ int step_1(int reset) { int r=1; static int st,myreset; if (reset) { /* A full OCR request, but the page to ocr is already loaded, so don't save it. */ if ((onlystep<0) && (to_ocr==cpage)) return(0); /* -T inhibits session saving */ if (selthresh) return(0); /* if quitting, ask for session saving */ if (finish == 2) { if (hist_changed || font_changed || sess_changed) enter_wait("save session before quitting?",1,3); else { finish = 1; return(0); } } st = 1; myreset = 1; return(1); } /* first save the acts */ if (st == 1) { /* quit without saving */ if (finish == 2) { if (key_pressed == 0) { finish = 1; return(0); } else show_hint(3,NULL); } /* no need to save the acts */ if (myreset && (!hist_changed)) { myreset = 1; st = 2; } /* still saving */ else if (dump_acts(acts,myreset)) myreset = 0; /* just finished */ else { st = 2; myreset = 1; } r = 1; } /* second save the patterns */ else if (st == 2) { /* no need to save the font */ if (myreset && (!font_changed)) { st = 3; myreset = 1; r = 1; } /* still saving */ else if (dump_patterns(patterns,myreset)) { myreset = 0; r = 1; } /* just finished */ else { if (cpage >= 0) { st = 3; myreset = 1; r = 1; } else r = 0; } } /* third save the session */ else if (st == 3) { /* free the pixmap */ if ((myreset) && (pixmap!=NULL)) { spyhole(0,0,1,0); c_free(pixmap); pixmap = NULL; } /* No need to save (as the flag sess_changed was recently introduced, we always save the session to avoid data losses, however we expect to uncomment the sess_changed test below in the near future) */ if ((myreset) && ((cpage < 0) || (npages <= cpage) || (!cl_ready) /* || (sess_changed == 0) */)) { r = 0; } /* still saving */ else if (dump_session(session,myreset)) { myreset = 0; r = 1; } /* just finished */ else { r = 0; } } /* now we can quit the program */ if ((r == 0) && (finish == 2)) finish = 1; return(r); } /* Step 2 Load the page. */ int step_2(int reset) { int r=1; static int st,myreset,k; if (reset) { free_page(); setview(PAGE_LIST); st = 0; myreset = 1; } /* read acts */ if (st == 0) { if (act == NULL) recover_acts(acts); st = 1; myreset = 1; r = 1; } /* read patterns */ else if (st == 1) { if (pattern == NULL) { recover_patterns(patterns); st = 2; k = 0; } else st = 3; myreset = 1; r = 1; } /* compute skeletons */ else if (st == 2) { if (k eps) avoid_links(pp_avoid_links); /* now double resolution, if requested */ if (pp_double) { int i,t,p; hqbin(); for (t=0; t MAXFNL)) { fatal(BO,"filenames for revision material too long!"); exit(1); } /* Process revision data (web case). Scan the working directory looking for files doc.[0-9]+.[0-9]+.[A-Za-z0-9]+ and read their contents to generate new font entries and confirm the transliteration of the page symbols. The revision file has one revision act codified as XML. */ if (web) { if ((D = opendir(doubtsdir)) == NULL) { fatal(IO,"could not open doubts dir \"%s\"",doubtsdir); } while ((e=readdir(D)) != NULL) { /* does the doubt filename spec match? */ a = e->d_name; if (strncmp(a,pagebase,i=strlen(pagebase)) != 0) continue; if (a[i] != '.') continue; for (++i; isdigit(a[i]); ++i); if ((i <= 0) || (a[i] != '.')) continue; for (j=++i; isdigit(a[i]); ++i); if ((i <= j) || (a[i] != '.')) continue; for (j=++i; isalnum(a[i]); ++i); if ((i > j) && (a[i]==0)) { if (trace) tr("revision data file %s found",a); /* process and remove revision file */ sprintf(r,"%s%s",doubtsdir,a); prf(r); unlink(r); } } closedir(D); } } /* Step 8 Process revision data. */ int step_8(int reset) { static int st,myreset; int r; /* reset */ if (reset) { st = 1; r = 1; } else if (st == 1) { /* process the material received from the web */ if (web && batch_mode) { process_webdata(); r = 0; } /* collect the revision data into one revision "act" */ else { r = from_gui(); if (r) { push_text(); st = 2; myreset = 1; } else { st = 0; } } } else if (st == 2) { pop_text(); r = review(myreset,NULL); myreset = 0; if (r == 0) { to_rev = 0; st = 0; } } return(r); } /* Selector for bitmap comparison methods. */ int selbc(int c) { int r; if (classifier == CL_SKEL) r = classify(c,bmpcmp_skel,1); else if (classifier == CL_BM) r = classify(c,bmpcmp_map,1); else if (classifier == CL_PD) r = classify(c,bmpcmp_pd,1); else r = 0; return(r); } /* Step 9 Classify the symbols */ int step_9(int reset) { static int k; /* unavailable if nonsegmented */ if (!cl_ready) return(0); /* prepare */ if (reset) { /* choose first symbol to visit */ show_hint(3,NULL); k = (justone) ? curr_mc : 0; selbc(-1); return(1); } /* compute the zone */ if (mc[k].c < 0) { int i,x,y; x = (mc[k].l + mc[k].r) / 2; y = (mc[k].t + mc[k].b) / 2; for (i=0; (if,F_BAD))) && (sdim(k))) { int i; /* TODO: read alphabet and flags from surrounding word */ i = update_pattern(k,NULL,-1,UNDEF,-1,-1,0); C_SET(mc[k].f,F_SS); mc[k].bm = pattern[i].id; pattern[topp].cm = 1; } /* start next step */ if ((justone == 1) || (++k > tops)) { k = -1; return(0); } /* ready to visit next symbol */ else { selbc(-1); } } /* did not complete */ return(1); } /* Step 10 Geometric merging */ int step_10(int reset) { static int k; int r; /* unavailable if nonsegmented */ if (!cl_ready) return(0); if (reset) { k = 0; } geo_merge(k); if (++k > tops) { r = 0; } else { r = 1; } return(r); } /* Step 11 Detect text lines and words. */ int step_11(int reset) { /* unavailable if nonsegmented */ if (!cl_ready) return(0); /* Wakeup */ if (reset) { build(1); return(1); } /* compute text lines and words */ if (build(0) == 0) { /* ready to start next step */ dw[PAGE_OUTPUT].rg = 1; dw[PAGE_SYMBOL].rg = 1; redraw_dw = 1; return(0); } /* did not complete */ return(1); } /* Step 12 Generate hints from dictionary. */ int step_12(int reset) { static int w; /* unavailable if nonsegmented */ if (!cl_ready) return(0); if (reset) { } /* Wakeup */ if (reset) { w = 0; return(1); } /* compute text lines and words */ if (w <= topw) { int a,s; char t[81]; /* transliteration of word w */ for (s=0, a=word[w].F; (s<80) && (a>=0); a=mc[a].E) { /* send to output the number of this symbol */ if (mc[a].tr == NULL) t[s++] = '?'; /* concatenate the transliteration of this symbol */ else if (80-s >= strlen(mc[a].tr->t)) { strcpy(t+s,mc[a].tr->t); s += strlen(mc[a].tr->t); } } if (s > 0) { t[s] = 0; /* printf("examining word %d (%s)\n",w,t); */ } /* prepare the next */ ++w; return(1); } /* complete */ return(0); } /* Step 13 Generates output and stats. */ int step_13(int reset) { /* unavailable if nonsegmented */ if (!cl_ready) return(0); if (cpage >= 0) { /* count classes */ classes = count_classes(); /* generates output, count symbols and doubts */ mk_page_output(outp_format); /* estimate links */ { int i,mw,mh; sdesc *s; mw = mh = 0; for (i=0; i mw) mw = pattern[i].bw; if (pattern[i].bh > mh) mh = pattern[i].bh; } } if (mw == 0) mw = FS; if (mh == 0) mh = FS; links = 0; for (i=0; i<=topps; ++i) { s = mc + ps[i]; if (((s->r - s->l + 1) > FS) || ((s->b - s->t + 1) > FS)) { ++links; } } } } if (cpage >= 0) { char txt[MAXFNL+1]; char st[80]; int F,n; float r; time_t tp; /* save recognized text to file */ strcpy(txt,workdir); strcat(txt,pagebase); if (outp_format == 1) strcat(txt,".html"); else strcat(txt,".txt"); F = open(txt,O_WRONLY|O_CREAT|O_TRUNC,0644); if ((!selthresh) && (F < 0)) { if (verbose) warn("oops.. unable to open \"%s\"",txt); } else if (!selthresh) { /* include stats on the output. OOPS.. if you change this code, change clara.pl accordingly, so it will be able to recover the stats from the .html file. */ if (outp_format == 1) { if (dl_ne[cpage] > 0) r = ((float) dl_ne[cpage] - dl_db[cpage]) / dl_ne[cpage]; else r = 0.0; n = sprintf(st,"

Symbols: %d/%d (%0.2f)\n",dl_ne[cpage]-dl_db[cpage], dl_ne[cpage],r); if (verbose && (write(F,st,n) != n)) { warn("oops.. failure writing \"%s\"",txt); } tp = time(NULL); n = sprintf(st,"
Last processed at %s\n

",ctime(&tp)); if (write(F,st,n) != n) { warn("oops.. failure writing \"%s\"",txt); } } /* add the OCR result */ if (write(F,text,topt+1) != (topt+1)) { warn("oops.. failure writing \"%s\"",txt); } close(F); } return(0); } /* start next step */ return(0); } /* Step 14 Generate doubts for web revision. */ int step_14(int reset) { static int k=0; char n[MAXFNL+1]; int i/*,j*/; /* unavailable if nonsegmented */ if (!cl_ready) return(0); /* The variable n must be long enough to store the complete path and filename of the bitmap files for revision. */ if ((web) && (strlen(doubtsdir)+2+strlen(pagebase)-4+15 > MAXFNL)) { fatal(BO,"filenames for revision material too long!"); } /* Generate files for revision. The file u.page.symbol.pbm Contains the bitmap of the word surrounding the doubt and the doubtful symbol. The revision process must generate the file time.pid.host That will be processed by the next OCR run. */ if (web) { int *a,*p,b; int F,NNNN,D,U,AA,K; int nd; /* alloc memory on stack */ if (((a=alloca(sizeof(int)*(topps+1))) == NULL) || ((p=alloca(sizeof(int)*(tops+1))) == NULL)) { fatal(ME,"memory exhausted"); } /* Computes the revision preference of each preferred symbol. The revision preference of a symbol is the integer FKNNNNDUAA where K is 2 if the symbol is unknown, 1 if it is dubious, or 0 otherwise, F is 1 if the symbol is present on the font with null transliteration or 0 otherwise, NNNN is the number of cumulative matches of the pattern, when the symbol is present in the font, D is 1 if the transliteration status is FAIL, or 0 otherwise, U is 1 if the symbol surrounding word is defined and is different from itself, or 0 otherwise, and AA is 99 minus the number of anon revisions for this symbol (or 0 if this number is negative). */ for (i=0; i<=topps; ++i) { a[i] = b = ps[i]; F = 0; NNNN = 0; /* TODO: as the link between pattern and originating symbol does not exist anymore, this criteria must be changed to an analysis of the best match field. */ /* if (pattern != NULL) { for (j=0; j<=topp; ++j) if (pattern[j].e == b) { F = (pattern[j].tr == NULL); NNNN = pattern[j].cm; j = topp; } } */ D = (C_ISSET(mc[b].f,F_SS)); U = (mc[b].sw >= 0) && (mc[b].sw != b); K = (mc[b].tc == UNDEF) ? 2 : ((mc[b].tc == DUBIOUS) ? 1 : 0); AA = 99 - mc[b].pb; if (AA < 0) AA = 0; p[b] = F*1000000000 + K*100000000 + NNNN*10000 + D*1000 + U*100 + AA; } /* sort the symbols in revision preference order */ qsi(a,0,topps,(char *)p,sizeof(int),0,1); /* generate the bitmaps */ for (k=nd=0; (k<=topps) && (nd= 0) /*&& (p[b] >= 1000)*/) { tr("selected doubt %d, preference %d",b,p[b]); curr_mc = b; j = b; /* create entry on doubts dir */ if ((j == b) && (sdim(b) != 0)) { if (web) { sprintf(n,"%su.%s.%d.pbm",doubtsdir,pagebase,b); wrmc8(curr_mc,n,NULL); } /* doubt[nd] = b; mc[b].isd = 1; */ ++nd; ++mc[b].pb; } } } } /* completed */ return(0); } /* Step 15 Caller-defined action. This step executes special actions outside the OCR main steps. These actions are executed using the OCR thread just to take advantage of the existing architecture. By now the following actions exist: 1. Set pattern type 2. Search barcode 3. Instant thresholding 4. Image info 5. PP tests */ int step_15(int reset) { static int st; /* Set pattern type ---------------- */ if (ocr_other == 1) { char s[MMB+1]; static int t; if (reset) { snprintf(s,MMB,"Change types from 0 to [1-%d]: ",toppt); enter_wait(s,1,4); st = 1; return(1); } if (st == 1) { t = atoi(inp_str); if ((t < 0) || (100 < t)) { show_hint(2,"invalid pattern type %d",t); return(1); } else { char a[31]; if (t > toppt) enlarge_pt(t); strncpy(a,pt[t].n,30); a[30] = 0; snprintf(s,MMB,"Type %d (\"%s\") selected. Confirm?",t,a); s[MMB] = 0; enter_wait(s,1,3); st = 2; return(1); } } else if (st == 2) { if (key_pressed) { int i; for (i=0; i<=topp; ++i) { if (pattern[i].pt == 0) pattern[i].pt = t; } font_changed = 1; show_hint(1,"changed all types from 0 to %d",t); } else { show_hint(1,"operation cancelled"); } } return(0); } /* Search barcode -------------- */ else if (ocr_other == 2) { if (reset) { st = 1; show_hint(1,"wait..."); return(1); } if (st == 1) { search_barcode(); st = 2; return(1); } return(0); } /* Instant thresholding -------------------- */ else if (ocr_other == 3) { if (reset) { st = 1; return(1); } /* display instant thresholding help */ if (st == 1) { char s[MMB+1]; snprintf(s,MMB, "thresholding by %d (%1.2f), use <, >, + or - to change (ESC to finish)", thresh_val,((float)thresh_val)/256); enter_wait(s,0,5); st = 2; return(1); } /* apply user's selection */ if (st == 2) { if (key_pressed == 0) { return(0); } else { if (key_pressed == '<') thresh_val -= 10; else if (key_pressed == '>') thresh_val += 10; else if (key_pressed == '+') ++thresh_val; else if (key_pressed == '-') --thresh_val; if (thresh_val < 0) thresh_val = 0; else if (thresh_val > 256) thresh_val = 256; st = 1; redraw_dw = 1; return(1); } } } /* Image info ---------- */ else if (ocr_other == 4) { /* No page loaded. */ if (cpage < 0) { printf("No page loaded, sorry\n\n"); return(0); } /* basic geometrical data */ printf("Hello, the name of the loaded page is %s.\n",pagename); printf("It has %d lines and each line has %d pixels\n",YRES,XRES); /* When a PBM or PGM file is loaded, the "pixmap" pointer points to an array that stores the map of pixels as a sequence of lines. Each pixel uses one bit (PBM) or one byte (PGM). */ if (pixmap != NULL) { /* a bitmap (PBM file) is currently loaded */ if (pm_t == 1) { printf("It's an image where each pixel can assume just 'black' or 'white'.\n"); } /* a graymap (PGM file) is currently loaded */ else if (pm_t == 8) { printf("It's an image where each pixel can assume one from 256 different\n"); printf("'shades' (levels) of gray (0=Black, 255=White).\n"); } } /* When Clara OCR reads a page already segmented, the pixmap array points to NULL, so the original image is unavailable. Instead, we have "closures" storing small pieces of that image. */ else { printf("It's an already segmented image, read from a session file.\n"); } printf("\n"); return(0); } /* PP tests -------- */ else if (ocr_other == 5) { test(); } /* unknown action */ db("OCR_OTHER: unknown action %d\n",ocr_other); return(0); } /* (devel) The function start_ocr ---------------------- Starts a complete OCR run or some individual OCR step on one given page, or on all pages. For instance, start_ocr is called by the GUI when the user presses the "OCR" button or when the user requests loading of one specific page. In fact, almost all user requested operation is performed as an "ocr step"in order to take advantage from the execution model implemented by the function continue_ocr. So start_ocr is the starting point for attending almost all user requests. If p is -1, process all pages, if p < -1, process only the current page (cpage) otherwise process only the page p. If s>=0 then run only step s, otherwise run all steps. If the flag r is nonzero, will ignore the current classes (if any) and recompute them again (this is meaningful only to the symbol classification step). */ void start_ocr(int p,int s,int r) { /* ignore if OCRing */ if (ocring) return; /* someone generated a bad call */ if (s > LAST_STEP) { fatal(DI,"invalid page or step number when starting OCR"); } /* Unless an OCR operation in course, set the flags that will be tested by the main loop and will provoke the operation startup. */ if (!ocring) { starting = 1; ocring = 1; onlystep = s; if ((onlystep != OCR_SAVE) && (onlystep != OCR_LOAD)) { button[bocr] = 1; redraw_button = bocr; } if (p == -1) ocr_all = 1; else { ocr_all = 0; to_ocr = (p == -2) ? cpage : p; } recomp_cl = r; to_tr[0] = 0; } } /* Continue to OCR. */ void continue_ocr(void) { static int st,reset,fp,last_dw,no_pattern,last_cdfc,lcr; int r=1; /* This block is executed just once each time an OCR operation is requested. */ if (starting) { /* Remember the current page to come back after finishing, but do not go back to the WELCOME page. */ last_dw = (CDW == WELCOME) ? PAGE_LIST : CDW; starting = 0; stop_ocr = 0; cannot_stop = 0; st = 1; reset = 1; if (ocr_all) { if ((cpage < 0) || (npages <= cpage)) { to_ocr = 0; } else to_ocr = cpage; fp = to_ocr; } if ((!ocr_all) && (onlystep != OCR_LOAD) && (onlystep != OCR_SAVE) && ((cpage < 0) || (npages <= cpage))) { show_hint(1,"Please load a page before trying to OCR"); ocring = button[bocr] = 0; recomp_cl = 0; return; } /* if (limits_top <= 3) { show_hint(1,"Please define an OCR zone before OCR"); ocring = button[bocr] = 0; recomp_cl = 0; return; } */ /* avoiding exposing critial data structures to the display code */ if ((onlystep<0) && (CDW != PAGE_LIST)) setview(PAGE_LIST); /* remember statuses */ lcr = cl_ready; no_pattern = ((cdfc < 0) || (topp < cdfc)); last_cdfc = cdfc; } /* When the button "STOP" is pressed, a nonzero value is stored on the variable stop_ocr by the event handling routines. We test here the value of stop_ocr. If it's nonzero and the current OCR state is interruptible, then the current OCR operation is stopped. */ if ((stop_ocr) && (!cannot_stop)) { ocring = button[bocr] = 0; recomp_cl = 0; waiting_key = 0; ocr_all = -1; redraw_dw = 1; strcpy(mb,"OCR stopped"); redraw_stline = 1; button[bstop] = 0; redraw_button = -1; stop_ocr = 0; } /* prepare to account */ ocr_start = time(NULL); /* The OCR steps. */ switch (st) { /* 1. Save the session This step is executed when the user requested a session saving or a page load (in order to save the current page before). */ case 1: if ((onlystep <= 2) || ocr_all) r = step_1(reset); else r = 0; break; /* 2. Load the page. */ case 2: if ((onlystep == 2) || ocr_all) r = step_2(reset); else r = 0; break; /* 3. Preproc. */ case 3: if ((onlystep < 0) || (onlystep == 3)) r = step_3(reset); else r = 0; break; /* 4. Detect blocks. */ case 4: if ((onlystep < 0) || (onlystep == 4)) r = step_4(reset); else r = 0; break; /* 5. Binarization. */ case 5: if ((onlystep < 0) || (onlystep == 5)) r = step_5(reset); else r = 0; break; /* 6. Consist the data structures. */ case 6: if ((onlystep < 0) || (onlystep == 6)) r = step_6(reset); else r = 0; break; /* 7. Optimize patterns */ case 7: if ((onlystep < 0) || (onlystep == 7)) r = step_7(reset); else r = 0; break; /* 8. Process revision data. */ case 8: if ((onlystep < 0) || (onlystep == 8)) r = step_8(reset); else r = 0; break; /* 9. Classify the symbols */ case 9: if ((onlystep < 0) || (onlystep == 9) || ((onlystep==8) && (*cm_e_ac != ' '))) { r = step_9(reset); } else r = 0; break; /* 10. Geometric merging */ case 10: if ((onlystep < 0) || (onlystep == 10)) r = step_10(reset); else r = 0; break; /* 11. Detect text lines and words. */ case 11: if ((onlystep < 0) || (onlystep == 11)) r = step_11(reset); else r = 0; break; /* 12. Generate hints from dictionary. */ case 12: if ((onlystep < 0) || (onlystep == 12)) r = step_12(reset); else r = 0; break; /* 13. Generate output and stats. This step is mandatory. */ case 13: r = step_13(reset); break; /* 14. Generate doubts for web revision. */ case 14: if ((onlystep < 0) || (onlystep == 14)) r = step_14(reset); else r = 0; break; /* 15. Caller-defined action. */ case 15: if (onlystep == 15) r = step_15(reset); else r = 0; break; } /* account */ ocr_time += time(NULL) - ocr_start; /* prepare the next call of continue_ocr */ if (r == 0) { /* OCR finished */ if (++st > LAST_STEP) { st = 1; /* stats */ dl_r[cpage] = ++runs; dl_t[cpage] = ocr_time; dl_lr[cpage] = ocr_r; dl_c[cpage] = classes; /* prepare next page to OCR */ if (ocr_all) { /* next page to OCR */ if (++to_ocr >= npages) to_ocr = 0; /* just processed the last page */ if (to_ocr == fp) { ocr_all = 0; ocring = button[bocr] = 0; recomp_cl = 0; /* save session if batch mode */ if (batch_mode) { start_ocr(cpage,OCR_SAVE,0); } /* enter three-state PAGE */ if ((!lcr) && (cl_ready) && (*cm_o_pgo == 'X')) { *cm_o_pgo = ' '; opage_j1 = page_j1 = PT+TH+(PH-TH)/3; opage_j2 = page_j2 = PT+TH+2*(PH-TH)/3; setview(PAGE); check_dlimits(0); } dw[PAGE_LIST].rg = 1; redraw_dw = 1; } else ocr_start = time(NULL); } /* reset statuses */ else { ocring = button[bocr] = 0; recomp_cl = 0; /* enter three-state PAGE */ if ((!lcr) && (cl_ready) && (*cm_o_pgo == 'X')) { *cm_o_pgo = ' '; opage_j1 = page_j1 = PT+TH+(PH-TH)/3; opage_j2 = page_j2 = PT+TH+2*(PH-TH)/3; setview(PAGE); check_dlimits(0); } /* prepare to quit if batch mode and already saved sesseion */ if (batch_mode && (onlystep == OCR_SAVE)) { finish = 1; } /* save session if batch mode */ else if (batch_mode) { start_ocr(cpage,OCR_SAVE,0); } /* ack message for manual training */ else if ((dw[PAGE].v) && (onlystep == OCR_REV)) { /* no ack by now */ } } /* When the user requests page loading from the PAGE_LIST window, we jump to the loaded page on finishing, otherwise we go back to the last page. Furthermore, the loading page procedure cleared the v flag ("currently visible") for all windows, so we need to recompute that flag, setview will make that. */ if ((last_dw == PAGE_LIST) && (onlystep == OCR_LOAD)) setview(PAGE); else setview(last_dw); /* must regenerate PAGE_LIST */ dw[PAGE_LIST].rg = 1; /* must regenerate pattern form */ if ((no_pattern) || (cdfc != last_cdfc)) { edit_pattern(0); } redraw_dw = 1; } reset = 1; cannot_stop = 0; } else { reset = 0; cannot_stop = 1; } } #ifdef HAVE_SIGNAL /* SIGPIPE handler. Clara receives a SIGPIPE when the user presses the "destroy" decoration button. */ void handle_pipe(int p) { if (debug) fatal(IO,"SIGPIPE received (oh! have you killed me?)"); else exit(0); } /* Set new alarm (delay d in microseconds). */ void new_alrm(unsigned d,int who) { struct itimerval it; *alrmq = who; topalrmq = 0; it.it_interval.tv_sec = 0; it.it_interval.tv_usec = 0; it.it_value.tv_sec = d / 1000000; it.it_value.tv_usec = d % 1000000; setitimer(ITIMER_REAL,&it,NULL); } /* SIGALRM handler. */ void handle_alrm(int p) { int who; who = *alrmq; topalrmq = -1; switch(*alrmq) { #ifdef FUN_CODES /* slide banner */ case 1: /* continue */ if (dw[WELCOME].v) { redraw_dw = 1; new_alrm(50000,1); } /* disable */ else fun_code = 0; break; /* move flea around bitmap */ case 3: /* continue */ if (dw[PAGE_FATBITS].v) { /* Continue only if nobody stopped the flea and the last redraw request was attended. */ if ((fun_code == 3) && (last_fp < 0)) { last_fp = curr_fp; if (++curr_fp > topfp) curr_fp = 0; new_alrm(50000,3); } redraw_flea = 1; } break; #endif /* Presentation delay expired. Ideally we should only set a flag to inform xevents or some other routine outside the handler to call the function "presentation". */ case 2: cpresentation(0); break; } } #endif /* The program begins here. */ int main(int argc,char *argv[]) { #ifdef HAVE_SIGNAL /* install handlers */ signal(SIGPIPE,handle_pipe); signal(SIGALRM,handle_alrm); #endif /* Process command-line parameters. */ process_cl(argc,argv); /* Initialize main data structures. */ init_ds(); /* Initializes GUI. */ init_welcome(); xpreamble(); setview(WELCOME); /* start full OCR automatically when in batch mode */ if (batch_mode != 0) { if (npages <= 0) fatal(DI,"no pages to process!"); start_ocr(-1,-1,0); } #ifdef HAVE_SIGNAL /* start presentation automatically */ if (allow_pres == 2) { cpresentation(1); } #endif /* Now we alternate two "threads", one for handle user-generated GUI events, and other to run the various OCR steps (these are not true "threads", but ordinary subroutines). */ for (finish=0; finish != 1; ) { /* Event processing and display refresh. */ if (batch_mode == 0) { xevents(); } /* OCR. */ if ((ocring) && (waiting_key == 0)) { continue_ocr(); } } if (selthresh) { printf("bookfont size is %d, %d links\n",topp,links); } exit(0); }