/****************************************************************** * File: docqual.cpp (Formerly docqual.c) * Description: Document Quality Metrics * Author: Phil Cheatle * Created: Mon May 9 11:27:28 BST 1994 * * (C) Copyright 1994, Hewlett-Packard Ltd. ** Licensed under the Apache License, Version 2.0 (the "License"); ** you may not use this file except in compliance with the License. ** You may obtain a copy of the License at ** http://www.apache.org/licenses/LICENSE-2.0 ** Unless required by applicable law or agreed to in writing, software ** distributed under the License is distributed on an "AS IS" BASIS, ** WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. ** See the License for the specific language governing permissions and ** limitations under the License. * **********************************************************************/ #include "mfcpch.h" #include #include "docqual.h" #include "tstruct.h" #include "tfacep.h" #include "reject.h" #include "tessvars.h" #include "genblob.h" #include "secname.h" #include "globals.h" #define EXTERN EXTERN STRING_VAR (outlines_odd, "%| ", "Non standard number of outlines"); EXTERN STRING_VAR (outlines_2, "ij!?%\":;", "Non standard number of outlines"); EXTERN BOOL_VAR (docqual_excuse_outline_errs, FALSE, "Allow outline errs in unrejection?"); EXTERN BOOL_VAR (tessedit_good_quality_unrej, TRUE, "Reduce rejection on good docs"); EXTERN BOOL_VAR (tessedit_use_reject_spaces, TRUE, "Reject spaces?"); EXTERN double_VAR (tessedit_reject_doc_percent, 65.00, "%rej allowed before rej whole doc"); EXTERN double_VAR (tessedit_reject_block_percent, 45.00, "%rej allowed before rej whole block"); EXTERN double_VAR (tessedit_reject_row_percent, 40.00, "%rej allowed before rej whole row"); EXTERN double_VAR (tessedit_whole_wd_rej_row_percent, 70.00, "%of row rejects in whole word rejects which prevents whole row rejection"); EXTERN BOOL_VAR (tessedit_preserve_blk_rej_perfect_wds, TRUE, "Only rej partially rejected words in block rejection"); EXTERN BOOL_VAR (tessedit_preserve_row_rej_perfect_wds, TRUE, "Only rej partially rejected words in row rejection"); EXTERN BOOL_VAR (tessedit_dont_blkrej_good_wds, FALSE, "Use word segmentation quality metric"); EXTERN BOOL_VAR (tessedit_dont_rowrej_good_wds, FALSE, "Use word segmentation quality metric"); EXTERN INT_VAR (tessedit_preserve_min_wd_len, 2, "Only preserve wds longer than this"); EXTERN BOOL_VAR (tessedit_row_rej_good_docs, TRUE, "Apply row rejection to good docs"); EXTERN double_VAR (tessedit_good_doc_still_rowrej_wd, 1.1, "rej good doc wd if more than this fraction rejected"); EXTERN BOOL_VAR (tessedit_reject_bad_qual_wds, TRUE, "Reject all bad quality wds"); EXTERN BOOL_VAR (tessedit_debug_doc_rejection, FALSE, "Page stats"); EXTERN BOOL_VAR (tessedit_debug_quality_metrics, FALSE, "Output data to debug file"); EXTERN BOOL_VAR (bland_unrej, FALSE, "unrej potential with no chekcs"); EXTERN double_VAR (quality_rowrej_pc, 1.1, "good_quality_doc gte good char limit"); EXTERN BOOL_VAR (unlv_tilde_crunching, TRUE, "Mark v.bad words for tilde crunch"); EXTERN BOOL_VAR (crunch_early_merge_tess_fails, TRUE, "Before word crunch?"); EXTERN BOOL_EVAR (crunch_early_convert_bad_unlv_chs, FALSE, "Take out ~^ early?"); EXTERN double_VAR (crunch_terrible_rating, 80.0, "crunch rating lt this"); EXTERN BOOL_VAR (crunch_terrible_garbage, TRUE, "As it says"); EXTERN double_VAR (crunch_poor_garbage_cert, -9.0, "crunch garbage cert lt this"); EXTERN double_VAR (crunch_poor_garbage_rate, 60, "crunch garbage rating lt this"); EXTERN double_VAR (crunch_pot_poor_rate, 40, "POTENTIAL crunch rating lt this"); EXTERN double_VAR (crunch_pot_poor_cert, -8.0, "POTENTIAL crunch cert lt this"); EXTERN BOOL_VAR (crunch_pot_garbage, TRUE, "POTENTIAL crunch garbage"); EXTERN double_VAR (crunch_del_rating, 60, "POTENTIAL crunch rating lt this"); EXTERN double_VAR (crunch_del_cert, -10.0, "POTENTIAL crunch cert lt this"); EXTERN double_VAR (crunch_del_min_ht, 0.7, "Del if word ht lt xht x this"); EXTERN double_VAR (crunch_del_max_ht, 3.0, "Del if word ht gt xht x this"); EXTERN double_VAR (crunch_del_min_width, 3.0, "Del if word width lt xht x this"); EXTERN double_VAR (crunch_del_high_word, 1.5, "Del if word gt xht x this above bl"); EXTERN double_VAR (crunch_del_low_word, 0.5, "Del if word gt xht x this below bl"); EXTERN double_VAR (crunch_small_outlines_size, 0.6, "Small if lt xht x this"); EXTERN INT_VAR (crunch_rating_max, 10, "For adj length in rating per ch"); EXTERN INT_VAR (crunch_pot_indicators, 1, "How many potential indicators needed"); EXTERN BOOL_VAR (crunch_leave_ok_strings, TRUE, "Dont touch sensible strings"); EXTERN BOOL_VAR (crunch_accept_ok, TRUE, "Use acceptability in okstring"); EXTERN BOOL_VAR (crunch_leave_accept_strings, FALSE, "Dont pot crunch sensible strings"); EXTERN BOOL_VAR (crunch_include_numerals, FALSE, "Fiddle alpha figures"); EXTERN INT_VAR (crunch_leave_lc_strings, 4, "Dont crunch words with long lower case strings"); EXTERN INT_VAR (crunch_leave_uc_strings, 4, "Dont crunch words with long lower case strings"); EXTERN INT_VAR (crunch_long_repetitions, 3, "Crunch words with long repetitions"); EXTERN INT_VAR (crunch_debug, 0, "As it says"); /************************************************************************* * word_blob_quality() * How many blobs in the outword are identical to those of the inword? * ASSUME blobs in both initial word and outword are in ascending order of * left hand blob edge. *************************************************************************/ inT16 word_blob_quality( //Blob seg changes WERD_RES *word, ROW *row) { WERD *bln_word; //BL norm init word TWERD *tessword; //tess format WERD *init_word; //BL norm init word PBLOB_IT outword_it; PBLOB_IT initial_it; inT16 i; inT16 init_blobs_left; inT16 match_count = 0; BOOL8 matched; TBOX out_box; PBLOB *test_blob; DENORM denorm; float bln_xht; if (word->word->gblob_list ()->empty ()) return 0; //xht used for blnorm bln_xht = bln_x_height / word->denorm.scale (); bln_word = make_bln_copy (word->word, row, bln_xht, &denorm); /* NOTE: Need to convert to tess format and back again to ensure that the same float -> int rounding of coords is done to source wd as out wd before comparison */ // if (!bln_word->flag(W_POLYGON)) // tprintf( "NON POLYGON BLN WERD\n"); tessword = make_tess_word (bln_word, NULL); //convert word init_word = make_ed_word (tessword, bln_word); // if (!init_word->flag(W_POLYGON)) // tprintf( "NON POLYGON INIT WERD\n"); // tprintf( "SOURCE BLOBS-AFTER TESS:\n"); // print_boxes( init_word ); // tprintf( "OUTPUT BLOBS:\n"); // print_boxes( word->outword ); initial_it.set_to_list (init_word->blob_list ()); init_blobs_left = initial_it.length (); outword_it.set_to_list (word->outword->blob_list ()); delete bln_word; delete_word(tessword); //get rid of it for (outword_it.mark_cycle_pt (); !outword_it.cycled_list (); outword_it.forward ()) { out_box = outword_it.data ()->bounding_box (); /* Skip any initial blobs LEFT of current outword blob */ while (!initial_it.at_last () && (initial_it.data ()->bounding_box ().left () < out_box.left ())) { initial_it.forward (); init_blobs_left--; } /* See if current outword blob matches any initial blob with the same left coord. (Normally only one but possibly more - in unknown order) */ i = 0; matched = FALSE; do { test_blob = initial_it.data_relative (i++); matched = crude_match_blobs (test_blob, outword_it.data ()); if (matched) match_count++; } while (!matched && (init_blobs_left - i > 0) && (i < 129) && !initial_it.at_last () && test_blob->bounding_box ().left () == out_box.left ()); } delete init_word; return match_count; } /************************************************************************* * crude_match_blobs() * Check bounding boxes are the same and the number of outlines are the same. *************************************************************************/ BOOL8 crude_match_blobs(PBLOB *blob1, PBLOB *blob2) { TBOX box1 = blob1->bounding_box (); TBOX box2 = blob2->bounding_box (); if (box1.contains (box2) && box2.contains (box1) && (blob1->out_list ()->length () == blob1->out_list ()->length ())) return TRUE; else return FALSE; } inT16 word_outline_errs( //Outline count errs WERD_RES *word) { PBLOB_IT outword_it; inT16 i = 0; inT16 err_count = 0; outword_it.set_to_list (word->outword->blob_list ()); for (outword_it.mark_cycle_pt (); !outword_it.cycled_list (); outword_it.forward ()) { err_count += count_outline_errs (word->best_choice->string ()[i], outword_it.data ()->out_list ()-> length ()); i++; } return err_count; } /************************************************************************* * word_char_quality() * Combination of blob quality and outline quality - how many good chars are * there? - I.e chars which pass the blob AND outline tests. *************************************************************************/ void word_char_quality( //Blob seg changes WERD_RES *word, ROW *row, inT16 *match_count, inT16 *accepted_match_count) { WERD *bln_word; //BL norm init word TWERD *tessword; //tess format WERD *init_word; //BL norm init word PBLOB_IT outword_it; PBLOB_IT initial_it; inT16 i; inT16 init_blobs_left; BOOL8 matched; TBOX out_box; PBLOB *test_blob; DENORM denorm; float bln_xht; inT16 j = 0; *match_count = 0; *accepted_match_count = 0; if (word->word->gblob_list ()->empty ()) return; //xht used for blnorm bln_xht = bln_x_height / word->denorm.scale (); bln_word = make_bln_copy (word->word, row, bln_xht, &denorm); /* NOTE: Need to convert to tess format and back again to ensure that the same float -> int rounding of coords is done to source wd as out wd before comparison */ tessword = make_tess_word (bln_word, NULL); //convert word init_word = make_ed_word (tessword, bln_word); delete bln_word; delete_word(tessword); //get rid of it // tprintf( "SOURCE BLOBS-AFTER TESS:\n"); // print_boxes( init_word ); // tprintf( "OUTPUT BLOBS:\n"); // print_boxes( word->outword ); initial_it.set_to_list (init_word->blob_list ()); init_blobs_left = initial_it.length (); outword_it.set_to_list (word->outword->blob_list ()); for (outword_it.mark_cycle_pt (); !outword_it.cycled_list (); outword_it.forward ()) { out_box = outword_it.data ()->bounding_box (); /* Skip any initial blobs LEFT of current outword blob */ while (!initial_it.at_last () && (initial_it.data ()->bounding_box ().left () < out_box.left ())) { initial_it.forward (); init_blobs_left--; } /* See if current outword blob matches any initial blob with the same left coord. (Normally only one but possibly more - in unknown order) */ i = 0; matched = FALSE; do { test_blob = initial_it.data_relative (i++); matched = crude_match_blobs (test_blob, outword_it.data ()); if (matched && (count_outline_errs (word->best_choice->string ()[j], outword_it.data ()->out_list ()->length ()) == 0)) { (*match_count)++; if (word->reject_map[j].accepted ()) (*accepted_match_count)++; } } while (!matched && (init_blobs_left - i > 0) && (i < 129) && !initial_it.at_last () && test_blob->bounding_box ().left () == out_box.left ()); j++; } delete init_word; } /************************************************************************* * unrej_good_chs() * Unreject POTENTIAL rejects if the blob passes the blob and outline checks *************************************************************************/ void unrej_good_chs(WERD_RES *word, ROW *row) { WERD *bln_word; //BL norm init word TWERD *tessword; //tess format WERD *init_word; //BL norm init word PBLOB_IT outword_it; PBLOB_IT initial_it; inT16 i; inT16 init_blobs_left; BOOL8 matched; TBOX out_box; PBLOB *test_blob; DENORM denorm; float bln_xht; inT16 j = 0; if (word->word->gblob_list ()->empty ()) return; //xht used for blnorm bln_xht = bln_x_height / word->denorm.scale (); bln_word = make_bln_copy (word->word, row, bln_xht, &denorm); /* NOTE: Need to convert to tess format and back again to ensure that the same float -> int rounding of coords is done to source wd as out wd before comparison */ tessword = make_tess_word (bln_word, NULL); //convert word init_word = make_ed_word (tessword, bln_word); delete bln_word; delete_word(tessword); //get rid of it initial_it.set_to_list (init_word->blob_list ()); init_blobs_left = initial_it.length (); outword_it.set_to_list (word->outword->blob_list ()); for (outword_it.mark_cycle_pt (); !outword_it.cycled_list (); outword_it.forward ()) { out_box = outword_it.data ()->bounding_box (); /* Skip any initial blobs LEFT of current outword blob */ while (!initial_it.at_last () && (initial_it.data ()->bounding_box ().left () < out_box.left ())) { initial_it.forward (); init_blobs_left--; } /* See if current outword blob matches any initial blob with the same left coord. (Normally only one but possibly more - in unknown order) */ i = 0; matched = FALSE; do { test_blob = initial_it.data_relative (i++); matched = crude_match_blobs (test_blob, outword_it.data ()); if (matched && (word->reject_map[j].accept_if_good_quality ()) && (docqual_excuse_outline_errs || (count_outline_errs (word->best_choice->string ()[j], outword_it.data ()->out_list ()-> length ()) == 0))) word->reject_map[j].setrej_quality_accept (); } while (!matched && (init_blobs_left - i > 0) && (i < 129) && !initial_it.at_last () && test_blob->bounding_box ().left () == out_box.left ()); j++; } delete init_word; } void print_boxes(WERD *word) { PBLOB_IT it; TBOX box; it.set_to_list (word->blob_list ()); for (it.mark_cycle_pt (); !it.cycled_list (); it.forward ()) { box = it.data ()->bounding_box (); box.print (); } } inT16 count_outline_errs(char c, inT16 outline_count) { int expected_outline_count; if (STRING (outlines_odd).contains (c)) return 0; //Dont use this char else if (STRING (outlines_2).contains (c)) expected_outline_count = 2; else expected_outline_count = 1; return abs (outline_count - expected_outline_count); } void quality_based_rejection(PAGE_RES_IT &page_res_it, BOOL8 good_quality_doc) { if ((tessedit_good_quality_unrej && good_quality_doc)) unrej_good_quality_words(page_res_it); doc_and_block_rejection(page_res_it, good_quality_doc); page_res_it.restart_page (); while (page_res_it.word () != NULL) { insert_rej_cblobs (page_res_it.word ()); page_res_it.forward (); } if (unlv_tilde_crunching) { tilde_crunch(page_res_it); tilde_delete(page_res_it); } } /************************************************************************* * unrej_good_quality_words() * Accept potential rejects in words which pass the following checks: * - Contains a potential reject * - Word looks like a sensible alpha word. * - Word segmentation is the same as the original image * - All characters have the expected number of outlines * NOTE - the rejection counts are recalculated after unrejection * - CANT do it in a single pass without a bit of fiddling * - keep it simple but inefficient *************************************************************************/ void unrej_good_quality_words( //unreject potential PAGE_RES_IT &page_res_it) { WERD_RES *word; ROW_RES *current_row; BLOCK_RES *current_block; int i; page_res_it.restart_page (); while (page_res_it.word () != NULL) { check_debug_pt (page_res_it.word (), 100); if (bland_unrej) { word = page_res_it.word (); for (i = 0; i < word->reject_map.length (); i++) { if (word->reject_map[i].accept_if_good_quality ()) word->reject_map[i].setrej_quality_accept (); } page_res_it.forward (); } else if ((page_res_it.row ()->char_count > 0) && ((page_res_it.row ()->rej_count / (float) page_res_it.row ()->char_count) <= quality_rowrej_pc)) { word = page_res_it.word (); if (word->reject_map.quality_recoverable_rejects () && (tessedit_unrej_any_wd || acceptable_word_string (word->best_choice->string ().string (), word->best_choice->lengths().string()) != AC_UNACCEPTABLE)) { unrej_good_chs (word, page_res_it.row ()->row); } page_res_it.forward (); } else { /* Skip to end of dodgy row */ current_row = page_res_it.row (); while ((page_res_it.word () != NULL) && (page_res_it.row () == current_row)) page_res_it.forward (); } check_debug_pt (page_res_it.word (), 110); } page_res_it.restart_page (); page_res_it.page_res->char_count = 0; page_res_it.page_res->rej_count = 0; current_block = NULL; current_row = NULL; while (page_res_it.word () != NULL) { if (current_block != page_res_it.block ()) { current_block = page_res_it.block (); current_block->char_count = 0; current_block->rej_count = 0; } if (current_row != page_res_it.row ()) { current_row = page_res_it.row (); current_row->char_count = 0; current_row->rej_count = 0; current_row->whole_word_rej_count = 0; } page_res_it.rej_stat_word (); page_res_it.forward (); } } /************************************************************************* * doc_and_block_rejection() * * If the page has too many rejects - reject all of it. * If any block has too many rejects - reject all words in the block *************************************************************************/ void doc_and_block_rejection( //reject big chunks PAGE_RES_IT &page_res_it, BOOL8 good_quality_doc) { inT16 block_no = 0; inT16 row_no = 0; BLOCK_RES *current_block; ROW_RES *current_row; BOOL8 rej_word; BOOL8 prev_word_rejected; inT16 char_quality; inT16 accepted_char_quality; if ((page_res_it.page_res->rej_count * 100.0 / page_res_it.page_res->char_count) > tessedit_reject_doc_percent) { reject_whole_page(page_res_it); #ifndef SECURE_NAMES if (tessedit_debug_doc_rejection) { tprintf ("REJECT ALL #chars: %d #Rejects: %d; \n", page_res_it.page_res->char_count, page_res_it.page_res->rej_count); } #endif } else { #ifndef SECURE_NAMES if (tessedit_debug_doc_rejection) tprintf ("NO PAGE REJECTION #chars: %d # Rejects: %d; \n", page_res_it.page_res->char_count, page_res_it.page_res->rej_count); #endif /* Walk blocks testing for block rejection */ page_res_it.restart_page (); while (page_res_it.word () != NULL) { current_block = page_res_it.block (); if (current_block->block->text_region () != NULL) block_no = current_block->block->text_region ()->id_no (); else block_no = -1; if ((page_res_it.block ()->char_count > 0) && ((page_res_it.block ()->rej_count * 100.0 / page_res_it.block ()->char_count) > tessedit_reject_block_percent)) { #ifndef SECURE_NAMES if (tessedit_debug_block_rejection) tprintf ("REJECTING BLOCK %d #chars: %d; #Rejects: %d\n", block_no, page_res_it.block ()->char_count, page_res_it.block ()->rej_count); #endif prev_word_rejected = FALSE; while ((page_res_it.word () != NULL) && (page_res_it.block () == current_block)) { if (tessedit_preserve_blk_rej_perfect_wds) { rej_word = (page_res_it.word ()->reject_map.reject_count () > 0) || (page_res_it.word ()->reject_map.length () < tessedit_preserve_min_wd_len); if (rej_word && tessedit_dont_blkrej_good_wds && !(page_res_it.word ()->reject_map.length () < tessedit_preserve_min_wd_len) && (acceptable_word_string (page_res_it.word ()->best_choice->string (). string (), page_res_it.word ()->best_choice->lengths (). string ()) != AC_UNACCEPTABLE)) { word_char_quality (page_res_it.word (), page_res_it.row ()->row, &char_quality, &accepted_char_quality); rej_word = char_quality != page_res_it.word ()->reject_map.length (); } } else rej_word = TRUE; if (rej_word) { /* Reject spacing if both current and prev words are rejected. NOTE - this is NOT restricted to FUZZY spaces. - When tried this generated more space errors. */ if (tessedit_use_reject_spaces && prev_word_rejected && (page_res_it.prev_row () == page_res_it.row ()) && (page_res_it.word ()->word->space () == 1)) page_res_it.word ()->reject_spaces = TRUE; page_res_it.word ()->reject_map.rej_word_block_rej (); } prev_word_rejected = rej_word; page_res_it.forward (); } } else { #ifndef SECURE_NAMES if (tessedit_debug_block_rejection) tprintf ("NOT REJECTING BLOCK %d #chars: %d # Rejects: %d; \n", block_no, page_res_it.block ()->char_count, page_res_it.block ()->rej_count); #endif /* Walk rows in block testing for row rejection */ row_no = 0; while ((page_res_it.word () != NULL) && (page_res_it.block () == current_block)) { current_row = page_res_it.row (); row_no++; /* Reject whole row if: fraction of chars on row which are rejected exceed a limit AND fraction rejects which occur in WHOLE WERD rejects is LESS THAN a limit */ if ((page_res_it.row ()->char_count > 0) && ((page_res_it.row ()->rej_count * 100.0 / page_res_it.row ()->char_count) > tessedit_reject_row_percent) && ((page_res_it.row ()->whole_word_rej_count * 100.0 / page_res_it.row ()->rej_count) < tessedit_whole_wd_rej_row_percent)) { #ifndef SECURE_NAMES if (tessedit_debug_block_rejection) tprintf ("REJECTING ROW %d #chars: %d; #Rejects: %d\n", row_no, page_res_it.row ()->char_count, page_res_it.row ()->rej_count); #endif prev_word_rejected = FALSE; while ((page_res_it.word () != NULL) && (page_res_it.row () == current_row)) { /* Preserve words on good docs unless they are mostly rejected*/ if (!tessedit_row_rej_good_docs && good_quality_doc) { rej_word = page_res_it.word ()->reject_map. reject_count () / (float) page_res_it.word ()->reject_map. length () > tessedit_good_doc_still_rowrej_wd; } /* Preserve perfect words anyway */ else if (tessedit_preserve_row_rej_perfect_wds) { rej_word = (page_res_it.word ()->reject_map. reject_count () > 0) || (page_res_it.word ()->reject_map. length () < tessedit_preserve_min_wd_len); if (rej_word && tessedit_dont_rowrej_good_wds && !(page_res_it.word ()->reject_map. length () < tessedit_preserve_min_wd_len) && (acceptable_word_string (page_res_it.word ()->best_choice-> string ().string (), page_res_it.word ()->best_choice-> lengths ().string ()) != AC_UNACCEPTABLE)) { word_char_quality (page_res_it.word (), page_res_it.row ()->row, &char_quality, &accepted_char_quality); rej_word = char_quality != page_res_it.word ()->reject_map.length (); } } else rej_word = TRUE; if (rej_word) { /* Reject spacing if both current and prev words are rejected. NOTE - this is NOT restricted to FUZZY spaces. - When tried this generated more space errors. */ if (tessedit_use_reject_spaces && prev_word_rejected && (page_res_it.prev_row () == page_res_it.row ()) && (page_res_it.word ()->word->space () == 1)) page_res_it.word ()->reject_spaces = TRUE; page_res_it.word ()->reject_map. rej_word_row_rej(); } prev_word_rejected = rej_word; page_res_it.forward (); } } else { #ifndef SECURE_NAMES if (tessedit_debug_block_rejection) tprintf ("NOT REJECTING ROW %d #chars: %d # Rejects: %d; \n", row_no, page_res_it.row ()->char_count, page_res_it.row ()->rej_count); #endif while ((page_res_it.word () != NULL) && (page_res_it.row () == current_row)) page_res_it.forward (); } } } } } } /************************************************************************* * reject_whole_page() * Dont believe any of it - set the reject map to 00..00 in all words * *************************************************************************/ void reject_whole_page(PAGE_RES_IT &page_res_it) { page_res_it.restart_page (); while (page_res_it.word () != NULL) { page_res_it.word ()->reject_map.rej_word_doc_rej (); page_res_it.forward (); } //whole page is rejected page_res_it.page_res->rejected = TRUE; } void tilde_crunch(PAGE_RES_IT &page_res_it) { WERD_RES *word; GARBAGE_LEVEL garbage_level; PAGE_RES_IT copy_it; BOOL8 prev_potential_marked = FALSE; BOOL8 found_terrible_word = FALSE; int dict_type; BOOL8 ok_dict_word; page_res_it.restart_page (); while (page_res_it.word () != NULL) { word = page_res_it.word (); if (crunch_early_convert_bad_unlv_chs) convert_bad_unlv_chs(word); if (crunch_early_merge_tess_fails) merge_tess_fails(word); if (word->reject_map.accept_count () != 0) { found_terrible_word = FALSE; //Forget earlier potential crunches prev_potential_marked = FALSE; } else { dict_type = dict_word (word->best_choice->string ().string ()); ok_dict_word = (dict_type > 0) && (dict_type != DOC_DAWG_PERM); garbage_level = garbage_word (word, ok_dict_word); if ((garbage_level != G_NEVER_CRUNCH) && (terrible_word_crunch (word, garbage_level))) { if (crunch_debug > 0) { tprintf ("T CRUNCHING: \"%s\"\n", word->best_choice->string ().string ()); } word->unlv_crunch_mode = CR_KEEP_SPACE; if (prev_potential_marked) { while (copy_it.word () != word) { if (crunch_debug > 0) { tprintf ("P1 CRUNCHING: \"%s\"\n", copy_it.word ()->best_choice->string (). string ()); } copy_it.word ()->unlv_crunch_mode = CR_KEEP_SPACE; copy_it.forward (); } prev_potential_marked = FALSE; } found_terrible_word = TRUE; } else if ((garbage_level != G_NEVER_CRUNCH) && (potential_word_crunch (word, garbage_level, ok_dict_word))) { if (found_terrible_word) { if (crunch_debug > 0) { tprintf ("P2 CRUNCHING: \"%s\"\n", word->best_choice->string ().string ()); } word->unlv_crunch_mode = CR_KEEP_SPACE; } else if (!prev_potential_marked) { copy_it = page_res_it; prev_potential_marked = TRUE; if (crunch_debug > 1) { tprintf ("P3 CRUNCHING: \"%s\"\n", word->best_choice->string ().string ()); } } } else { found_terrible_word = FALSE; //Forget earlier potential crunches prev_potential_marked = FALSE; if (crunch_debug > 2) { tprintf ("NO CRUNCH: \"%s\"\n", word->best_choice->string ().string ()); } } } page_res_it.forward (); } } BOOL8 terrible_word_crunch(WERD_RES *word, GARBAGE_LEVEL garbage_level) { float rating_per_ch; int adjusted_len; int crunch_mode = 0; if ((word->best_choice->string ().length () == 0) || (strspn (word->best_choice->string ().string (), " ") == word->best_choice->string ().length ())) crunch_mode = 1; else { adjusted_len = word->reject_map.length (); if (adjusted_len > crunch_rating_max) adjusted_len = crunch_rating_max; rating_per_ch = word->best_choice->rating () / adjusted_len; if (rating_per_ch > crunch_terrible_rating) crunch_mode = 2; else if (crunch_terrible_garbage && (garbage_level == G_TERRIBLE)) crunch_mode = 3; else if ((word->best_choice->certainty () < crunch_poor_garbage_cert) && (garbage_level != G_OK)) crunch_mode = 4; else if ((rating_per_ch > crunch_poor_garbage_rate) && (garbage_level != G_OK)) crunch_mode = 5; } if (crunch_mode > 0) { if (crunch_debug > 2) { tprintf ("Terrible_word_crunch (%d) on \"%s\"\n", crunch_mode, word->best_choice->string ().string ()); } return TRUE; } else return FALSE; } BOOL8 potential_word_crunch(WERD_RES *word, GARBAGE_LEVEL garbage_level, BOOL8 ok_dict_word) { float rating_per_ch; int adjusted_len; const char *str = word->best_choice->string ().string (); const char *lengths = word->best_choice->lengths ().string (); BOOL8 word_crunchable; int poor_indicator_count = 0; word_crunchable = !crunch_leave_accept_strings || (word->reject_map.length () < 3) || ((acceptable_word_string (str, lengths) == AC_UNACCEPTABLE) && !ok_dict_word); adjusted_len = word->reject_map.length (); if (adjusted_len > 10) adjusted_len = 10; rating_per_ch = word->best_choice->rating () / adjusted_len; if (rating_per_ch > crunch_pot_poor_rate) { if (crunch_debug > 2) { tprintf ("Potential poor rating on \"%s\"\n", word->best_choice->string ().string ()); } poor_indicator_count++; } if (word_crunchable && (word->best_choice->certainty () < crunch_pot_poor_cert)) { if (crunch_debug > 2) { tprintf ("Potential poor cert on \"%s\"\n", word->best_choice->string ().string ()); } poor_indicator_count++; } if (garbage_level != G_OK) { if (crunch_debug > 2) { tprintf ("Potential garbage on \"%s\"\n", word->best_choice->string ().string ()); } poor_indicator_count++; } return (poor_indicator_count >= crunch_pot_indicators); } void tilde_delete(PAGE_RES_IT &page_res_it) { WERD_RES *word; PAGE_RES_IT copy_it; BOOL8 deleting_from_bol = FALSE; BOOL8 marked_delete_point = FALSE; inT16 debug_delete_mode; CRUNCH_MODE delete_mode; inT16 x_debug_delete_mode; CRUNCH_MODE x_delete_mode; page_res_it.restart_page (); while (page_res_it.word () != NULL) { word = page_res_it.word (); delete_mode = word_deletable (word, debug_delete_mode); if (delete_mode != CR_NONE) { if (word->word->flag (W_BOL) || deleting_from_bol) { if (crunch_debug > 0) { tprintf ("BOL CRUNCH DELETING(%d): \"%s\"\n", debug_delete_mode, word->best_choice->string ().string ()); } word->unlv_crunch_mode = delete_mode; deleting_from_bol = TRUE; } else if (word->word->flag (W_EOL)) { if (marked_delete_point) { while (copy_it.word () != word) { x_delete_mode = word_deletable (copy_it.word (), x_debug_delete_mode); if (crunch_debug > 0) { tprintf ("EOL CRUNCH DELETING(%d): \"%s\"\n", x_debug_delete_mode, copy_it.word ()->best_choice->string (). string ()); } copy_it.word ()->unlv_crunch_mode = x_delete_mode; copy_it.forward (); } } if (crunch_debug > 0) { tprintf ("EOL CRUNCH DELETING(%d): \"%s\"\n", debug_delete_mode, word->best_choice->string ().string ()); } word->unlv_crunch_mode = delete_mode; deleting_from_bol = FALSE; marked_delete_point = FALSE; } else { if (!marked_delete_point) { copy_it = page_res_it; marked_delete_point = TRUE; } } } else { deleting_from_bol = FALSE; //Forget earlier potential crunches marked_delete_point = FALSE; } /* The following step has been left till now as the tess fails are used to determine if the word is deletable. */ if (!crunch_early_merge_tess_fails) merge_tess_fails(word); page_res_it.forward (); } } void convert_bad_unlv_chs( //word to do WERD_RES *word_res) { char *ptr; //string ptr int i; int offset; ptr = (char *) word_res->best_choice->string ().string (); for (i = 0, offset = 0; i < word_res->reject_map.length (); offset += word_res->best_choice->lengths ()[i++]) { if (word_res->best_choice->lengths ()[i] == 1 && ptr[offset] == '~') { ptr[offset] = '-'; if (word_res->reject_map[i].accepted ()) word_res->reject_map[i].setrej_unlv_rej (); } if (word_res->best_choice->lengths ()[i] == 1 && ptr[offset] == '^') { ptr[offset] = ' '; if (word_res->reject_map[i].accepted ()) word_res->reject_map[i].setrej_unlv_rej (); } } } /********************************************************************** * merge_tess_fails * * Change pairs of tess failures to a single one **********************************************************************/ void merge_tess_fails( //word to do WERD_RES *word_res) { char *ptr; //string ptr char *ptr_lengths; //lengths ptr PBLOB_IT blob_it; //blobs int i = 0; int len; len = strlen (word_res->best_choice->lengths ().string ()); ASSERT_HOST (word_res->reject_map.length () == len); ASSERT_HOST (word_res->outword->blob_list ()->length () == len); ptr = (char *) word_res->best_choice->string ().string (); ptr_lengths = (char *) word_res->best_choice->lengths ().string (); blob_it = word_res->outword->blob_list (); while (*ptr != '\0') { if ((*ptr == ' ') && (*(ptr + 1) == ' ')) { strcpy (ptr + 1, ptr + 2); //shuffle up strcpy (ptr_lengths + 1, ptr_lengths + 2); //shuffle up word_res->reject_map.remove_pos (i); merge_blobs (blob_it.data_relative (1), blob_it.data ()); delete blob_it.extract (); //get rid of spare } else { i++; ptr += *(ptr_lengths++); } blob_it.forward (); } len = strlen (word_res->best_choice->lengths ().string ()); ASSERT_HOST (word_res->reject_map.length () == len); ASSERT_HOST (word_res->outword->blob_list ()->length () == len); } GARBAGE_LEVEL garbage_word(WERD_RES *word, BOOL8 ok_dict_word) { enum STATES { JUNK, FIRST_UPPER, FIRST_LOWER, FIRST_NUM, SUBSEQUENT_UPPER, SUBSEQUENT_LOWER, SUBSEQUENT_NUM }; const char *str = word->best_choice->string ().string (); const char *lengths = word->best_choice->lengths ().string (); STATES state = JUNK; int len = 0; int isolated_digits = 0; int isolated_alphas = 0; int bad_char_count = 0; int tess_rejs = 0; int dodgy_chars = 0; int ok_chars; UNICHAR_ID last_char = -1; int alpha_repetition_count = 0; int longest_alpha_repetition_count = 0; int longest_lower_run_len = 0; int lower_string_count = 0; int longest_upper_run_len = 0; int upper_string_count = 0; int total_alpha_count = 0; int total_digit_count = 0; for (; *str != '\0'; str += *(lengths++)) { len++; if (unicharset.get_isupper (str, *lengths)) { total_alpha_count++; switch (state) { case SUBSEQUENT_UPPER: case FIRST_UPPER: state = SUBSEQUENT_UPPER; upper_string_count++; if (longest_upper_run_len < upper_string_count) longest_upper_run_len = upper_string_count; if (last_char == unicharset.unichar_to_id(str, *lengths)) { alpha_repetition_count++; if (longest_alpha_repetition_count < alpha_repetition_count) { longest_alpha_repetition_count = alpha_repetition_count; } } else { last_char = unicharset.unichar_to_id(str, *lengths); alpha_repetition_count = 1; } break; case FIRST_NUM: isolated_digits++; default: state = FIRST_UPPER; last_char = unicharset.unichar_to_id(str, *lengths); alpha_repetition_count = 1; upper_string_count = 1; break; } } else if (unicharset.get_islower (str, *lengths)) { total_alpha_count++; switch (state) { case SUBSEQUENT_LOWER: case FIRST_LOWER: state = SUBSEQUENT_LOWER; lower_string_count++; if (longest_lower_run_len < lower_string_count) longest_lower_run_len = lower_string_count; if (last_char == unicharset.unichar_to_id(str, *lengths)) { alpha_repetition_count++; if (longest_alpha_repetition_count < alpha_repetition_count) { longest_alpha_repetition_count = alpha_repetition_count; } } else { last_char = unicharset.unichar_to_id(str, *lengths); alpha_repetition_count = 1; } break; case FIRST_NUM: isolated_digits++; default: state = FIRST_LOWER; last_char = unicharset.unichar_to_id(str, *lengths); alpha_repetition_count = 1; lower_string_count = 1; break; } } else if (unicharset.get_isdigit (str, *lengths)) { total_digit_count++; switch (state) { case FIRST_NUM: state = SUBSEQUENT_NUM; case SUBSEQUENT_NUM: break; case FIRST_UPPER: case FIRST_LOWER: isolated_alphas++; default: state = FIRST_NUM; break; } } else { if (*lengths == 1 && *str == ' ') tess_rejs++; else bad_char_count++; switch (state) { case FIRST_NUM: isolated_digits++; break; case FIRST_UPPER: case FIRST_LOWER: isolated_alphas++; default: break; } state = JUNK; } } switch (state) { case FIRST_NUM: isolated_digits++; break; case FIRST_UPPER: case FIRST_LOWER: isolated_alphas++; default: break; } if (crunch_include_numerals) { total_alpha_count += total_digit_count - isolated_digits; } if (crunch_leave_ok_strings && (len >= 4) && (2 * (total_alpha_count - isolated_alphas) > len) && (longest_alpha_repetition_count < crunch_long_repetitions)) { if ((crunch_accept_ok && (acceptable_word_string (str, lengths) != AC_UNACCEPTABLE)) || (longest_lower_run_len > crunch_leave_lc_strings) || (longest_upper_run_len > crunch_leave_uc_strings)) return G_NEVER_CRUNCH; } if ((word->reject_map.length () > 1) && (strpbrk (str, " ") == NULL) && ((word->best_choice->permuter () == SYSTEM_DAWG_PERM) || (word->best_choice->permuter () == FREQ_DAWG_PERM) || (word->best_choice->permuter () == USER_DAWG_PERM) || (word->best_choice->permuter () == NUMBER_PERM) || (acceptable_word_string (str, lengths) != AC_UNACCEPTABLE) || ok_dict_word)) return G_OK; ok_chars = len - bad_char_count - isolated_digits - isolated_alphas - tess_rejs; if (crunch_debug > 3) { tprintf ("garbage_word: \"%s\"\n", word->best_choice->string ().string ()); tprintf ("LEN: %d bad: %d iso_N: %d iso_A: %d rej: %d\n", len, bad_char_count, isolated_digits, isolated_alphas, tess_rejs); } if ((bad_char_count == 0) && (tess_rejs == 0) && ((len > isolated_digits + isolated_alphas) || (len <= 2))) return G_OK; if ((tess_rejs > ok_chars) || ((tess_rejs > 0) && ((bad_char_count + tess_rejs) * 2 > len))) return G_TERRIBLE; if (len > 4) { dodgy_chars = 2 * tess_rejs + bad_char_count + isolated_digits + isolated_alphas; if ((dodgy_chars > 5) || ((dodgy_chars / (float) len) > 0.5)) return G_DODGY; else return G_OK; } else { dodgy_chars = 2 * tess_rejs + bad_char_count; if (((len == 4) && (dodgy_chars > 2)) || ((len == 3) && (dodgy_chars > 2)) || (dodgy_chars >= len)) return G_DODGY; else return G_OK; } } /************************************************************************* * word_deletable() * DELETE WERDS AT ENDS OF ROWS IF * Word is crunched && * ( string length = 0 OR * > 50% of chars are "|" (before merging) OR * certainty < -10 OR * rating /char > 60 OR * TOP of word is more than 0.5 xht BELOW baseline OR * BOTTOM of word is more than 0.5 xht ABOVE xht OR * length of word < 3xht OR * height of word < 0.7 xht OR * height of word > 3.0 xht OR * >75% of the outline BBs have longest dimension < 0.5xht *************************************************************************/ CRUNCH_MODE word_deletable(WERD_RES *word, inT16 &delete_mode) { int word_len = word->reject_map.length (); float rating_per_ch; TBOX box; //BB of word if (word->unlv_crunch_mode == CR_NONE) { delete_mode = 0; return CR_NONE; } if (word_len == 0) { delete_mode = 1; return CR_DELETE; } box = word->outword->bounding_box (); if (box.height () < crunch_del_min_ht * bln_x_height) { delete_mode = 4; return CR_DELETE; } if (noise_outlines (word->outword)) { delete_mode = 5; return CR_DELETE; } if ((failure_count (word) * 1.5) > word_len) { delete_mode = 2; return CR_LOOSE_SPACE; } if (word->best_choice->certainty () < crunch_del_cert) { delete_mode = 7; return CR_LOOSE_SPACE; } rating_per_ch = word->best_choice->rating () / word_len; if (rating_per_ch > crunch_del_rating) { delete_mode = 8; return CR_LOOSE_SPACE; } if (box.top () < bln_baseline_offset - crunch_del_low_word * bln_x_height) { delete_mode = 9; return CR_LOOSE_SPACE; } if (box.bottom () > bln_baseline_offset + crunch_del_high_word * bln_x_height) { delete_mode = 10; return CR_LOOSE_SPACE; } if (box.height () > crunch_del_max_ht * bln_x_height) { delete_mode = 11; return CR_LOOSE_SPACE; } if (box.width () < crunch_del_min_width * bln_x_height) { delete_mode = 3; return CR_LOOSE_SPACE; } delete_mode = 0; return CR_NONE; } inT16 failure_count(WERD_RES *word) { char *str = (char *) word->best_choice->string ().string (); int tess_rejs = 0; for (; *str != '\0'; str++) { if (*str == ' ') tess_rejs++; } return tess_rejs; } BOOL8 noise_outlines(WERD *word) { PBLOB_IT blob_it; OUTLINE_IT outline_it; TBOX box; //BB of outline inT16 outline_count = 0; inT16 small_outline_count = 0; inT16 max_dimension; float small_limit = bln_x_height * crunch_small_outlines_size; blob_it.set_to_list (word->blob_list ()); for (blob_it.mark_cycle_pt (); !blob_it.cycled_list (); blob_it.forward ()) { outline_it.set_to_list (blob_it.data ()->out_list ()); for (outline_it.mark_cycle_pt (); !outline_it.cycled_list (); outline_it.forward ()) { outline_count++; box = outline_it.data ()->bounding_box (); if (box.height () > box.width ()) max_dimension = box.height (); else max_dimension = box.width (); if (max_dimension < small_limit) small_outline_count++; } } return (small_outline_count >= outline_count); } /************************************************************************* * insert_rej_cblobs() * Put rejected word blobs back into the outword. * NOTE!!! AFTER THIS THE CHOICES LIST WILL NOT HAVE THE CORRECT NUMBER * OF ELEMENTS. *************************************************************************/ void insert_rej_cblobs( //word to do WERD_RES *word) { PBLOB_IT blob_it; //blob iterator PBLOB_IT rej_blob_it; const STRING *word_str; const STRING *word_lengths; int old_len; int rej_len; char new_str[512 * UNICHAR_LEN]; char new_lengths[512]; REJMAP new_map; int i = 0; //new_str index int j = 0; //old_str index int i_offset = 0; //new_str offset int j_offset = 0; //old_str offset int new_len; gblob_sort_list (word->outword->rej_blob_list (), TRUE); rej_blob_it.set_to_list (word->outword->rej_blob_list ()); if (rej_blob_it.empty ()) return; rej_len = rej_blob_it.length (); blob_it.set_to_list (word->outword->blob_list ()); word_str = &(word->best_choice->string ()); word_lengths = &(word->best_choice->lengths ()); old_len = word->best_choice->lengths().length (); ASSERT_HOST (word->reject_map.length () == old_len); ASSERT_HOST (blob_it.length () == old_len); if ((old_len + rej_len) > 511) return; //Word is garbage anyway prevent abort new_map.initialise (old_len + rej_len); while (!rej_blob_it.empty ()) { if ((j >= old_len) || (rej_blob_it.data ()->bounding_box ().left () <= blob_it.data ()->bounding_box ().left ())) { /* Insert reject blob */ if (j >= old_len) blob_it.add_to_end (rej_blob_it.extract ()); else blob_it.add_before_stay_put (rej_blob_it.extract ()); if (!rej_blob_it.empty ()) rej_blob_it.forward (); new_str[i_offset] = ' '; new_lengths[i] = 1; new_map[i].setrej_rej_cblob (); i_offset += new_lengths[i++]; } else { strncpy(new_str + i_offset, &(*word_str)[j_offset], (*word_lengths)[j]); new_lengths[i] = (*word_lengths)[j]; new_map[i] = word->reject_map[j]; i_offset += new_lengths[i++]; j_offset += (*word_lengths)[j++]; blob_it.forward (); } } /* Add any extra normal blobs to strings */ while (j < word_lengths->length ()) { strncpy(new_str + i_offset, &(*word_str)[j_offset], (*word_lengths)[j]); new_lengths[i] = (*word_lengths)[j]; new_map[i] = word->reject_map[j]; i_offset += new_lengths[i++]; j_offset += (*word_lengths)[j++]; } new_str[i_offset] = '\0'; new_lengths[i] = 0; /* tprintf( "\nOld len %d; New len %d; New str \"%s\"; New map \"%s\"\n", old_len, i, new_str, new_map ); */ ASSERT_HOST (i == blob_it.length ()); ASSERT_HOST (i == old_len + rej_len); word->reject_map = new_map; *((STRING *) word_str) = new_str; *((STRING *) word_lengths) = new_lengths; new_len = word->best_choice->lengths ().length (); ASSERT_HOST (word->reject_map.length () == new_len); ASSERT_HOST (word->outword->blob_list ()->length () == new_len); }